RCS/0000755000175100010010000000000012050375116007676 5ustar RobNoneRCS/makefile,v0000444000175100010010000001543212053070542011641 0ustar RobNonehead 1.15; access; symbols; locks; comment @# @; 1.15 date 2012.11.21.06.14.56; author Rob; state Exp; branches; next 1.14; 1.14 date 2012.11.20.08.09.36; author Rob; state Exp; branches; next 1.13; 1.13 date 2012.11.17.12.49.16; author Rob; state Exp; branches; next 1.12; 1.12 date 2012.11.13.22.35.52; author Rob; state Exp; branches; next 1.11; 1.11 date 2012.11.13.07.44.46; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.12.07.32.22; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.11.04.37.21; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.09.08.16.25; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.05.04.36.36; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.04.02.45.34; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.01.06.08.52; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.20.02.52.03; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.03.03.12; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.46.50; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.29.06.44.41; author Rob; state Exp; branches; next ; desc @@ 1.15 log @*** empty log message *** @ text @RTL := rtl ISE := ISE ARB := $(RTL)/arb CON := $(RTL)/cons CPU := $(RTL)/cpu ISE := $(ISE) MEM := $(RTL)/mem UBA := $(RTL)/uba UC := $(CPU)/useq LOAD := MAINDEC-10-DSKAA.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)/page_tables.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 \ $(CON)/cons.v \ $(MEM)/mem.v \ $(MEM)/mem.dat \ $(ARB)/arb.v \ $(UBA)/uba.v \ $(RTL)/rst.v \ $(RTL)/ks10.v \ $(RTL)/ks10.ucf \ $(RTL)/status.txt \ $(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 $(MEM)/mem.dat : $(MEM)/$(LOAD) $(MEM)/mem.awk makefile awk -f $(MEM)/mem.awk -vfilename=$(LOAD) $(MEM)/$(LOAD) > $(MEM)/mem.dat clean: rcsclean $(RTL)/* rcsclean $(ARB)/* rcsclean $(CON)/* rcsclean $(CPU)/* rcsclean $(MEM)/* rcsclean $(UBA)/* rcsclean $(UC)/* rm -f $(UC)/*.dat rm -f $(MEM)/*.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 @ 1.14 log @*** empty log message *** @ text @d11 1 a11 1 LOAD := MAINDEC-10-DSKAK.txt a23 1 $(CPU)/config.vh \ d64 1 a64 2 $(ISE)/ks10.wcfg \ $(ISE)/dskaa.wcfg d76 1 a76 1 awk -f $(MEM)/mem.awk $(MEM)/$(LOAD) > $(MEM)/mem.dat @ 1.13 log @*** empty log message *** @ text @d11 1 a11 1 LOAD := MAINDEC-10-DSKAH.txt d77 1 a77 1 $(MEM)/mem.dat : $(MEM)/$(LOAD) $(MEM)/mem.awk @ 1.12 log @*** empty log message *** @ text @d11 1 a11 1 LOAD := MAINDEC-10-DSKAA.txt d47 1 d59 1 @ 1.11 log @*** empty log message *** @ text @d1 2 a2 2 RTL := rtl ISE := ISE d4 8 a11 7 ARB := $(RTL)/arb CON := $(RTL)/cons CPU := $(RTL)/cpu ISE := $(ISE) MEM := $(RTL)/mem UBA := $(RTL)/uba UC := $(CPU)/useq d33 1 d75 2 a76 2 $(MEM)/mem.dat : $(MEM)/MAINDEC-10-DSKAA.lst $(MEM)/mem.awk awk -f $(MEM)/mem.awk $(MEM)/MAINDEC-10-DSKAA.lst > $(MEM)/mem.dat @ 1.10 log @*** empty log message *** @ text @d1 9 a9 5 ARB := arb CON := cons CPU := cpu MEM := mem UBA := uba d50 1 a50 1 $(MEM)/dskaa.dat \ d53 10 a62 4 rst.v \ ks10.v \ ks10.ucf \ testbench.v d64 2 a65 2 asdf : $(SRC) echo $(SRC) d73 2 a74 2 $(MEM)/dskaa.dat : $(MEM)/MAINDEC-10-DSKAA.lst $(MEM)/dskaa.awk awk -f $(MEM)/dskaa.awk $(MEM)/MAINDEC-10-DSKAA.lst > $(MEM)/dskaa.dat d77 1 a77 1 rcsclean * d93 17 @ 1.9 log @*** empty log message *** @ text @a25 1 $(CPU)/clkgen.v \ d57 1 a57 1 $(UC)/crom.dat $(UC)/crom.v : $(UC)/ks10.mcr $(UC)/crom.awk makefile d60 1 a60 1 $(UC)/drom.dat $(UC)/drom.v : $(UC)/ks10.mcr $(UC)/drom.awk makefile d63 1 a63 1 $(MEM)/dskaa.dat $(MEM)/ram32kx36.v : $(MEM)/MAINDEC-10-DSKAA.lst $(MEM)/dskaa.awk @ 1.8 log @*** empty log message *** @ text @d39 1 a39 1 $(CPU)/regIR.v \ d83 1 a83 1 tar -czvf ks10_all_`date '+%y%m%d'`.tgz *@ 1.7 log @*** empty log message *** @ text @d35 1 d47 1 d58 1 a58 1 $(UC)/crom.dat : $(UC)/ks10.mcr $(UC)/crom.awk makefile d61 1 a61 1 $(UC)/drom.dat : $(UC)/ks10.mcr $(UC)/drom.awk makefile d64 3 d76 1 @ 1.6 log @*** empty log message *** @ text @d2 1 a2 1 CON := con d29 1 d44 1 d48 1 @ 1.5 log @*** empty log message *** @ text @d11 1 a11 1 $(UC)/crom.bin \ d14 1 a14 1 $(UC)/drom.bin \ d19 1 d53 2 a54 2 $(UC)/crom.bin : $(UC)/ks10.mcr $(UC)/crom.awk makefile awk -f $(UC)/crom.awk $(UC)/ks10.mcr > $(UC)/crom.bin d56 2 a57 2 $(UC)/drom.bin : $(UC)/ks10.mcr $(UC)/drom.awk makefile awk -f $(UC)/drom.awk $(UC)/ks10.mcr > $(UC)/drom.bin d67 1 a67 1 rm -f $(UC)/*.bin @ 1.4 log @*** empty log message *** @ text @d1 6 a6 1 UC := microcontroller d18 27 a44 23 $(UC)/microcontroller.v \ ac_block.v \ alu.v \ apr.v \ byte_disp.v \ cache.v \ clkgen.v \ dbm.v \ dbus.v \ intr.v \ iolatch.v \ ni_disp.v \ page_tables.v \ pcflags.v \ pxct.v \ ram1kx36.v \ ramfile.v \ regir.v \ regxr.v \ scad.v \ timer.v \ traps.v \ vma.v \ d60 5 @ 1.3 log @*** empty log message *** @ text @a16 1 apr_device.v \ d18 1 a21 1 flags.v \ d23 1 a23 1 ir.v \ d26 1 d28 1 d30 2 d34 1 a34 1 trap_cycle.v \ a35 1 xr.v \ d37 1 @ 1.2 log @*** empty log message *** @ text @a1 1 ALU := alu a3 1 $(ALU)/alu.v \ a12 1 $(UC)/microcontroller.vh \ d14 10 d25 8 a47 1 rcsclean $(ALU)/* d50 7 a56 1 find . -type f -name "*~" | xargs rm -fv@ 1.1 log @Initial revision @ text @d36 1 a36 3 find . -type f -name *~ #| rm -v@ ise/0000755000175100010010000000000012045340572010031 5ustar RobNoneise/RCS/0000755000175100010010000000000012050371212010447 5ustar RobNoneise/RCS/ks10.wcfg,v0000444000175100010010000423015212053070604012350 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.21.06.15.28; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.13.07.16.04; author Rob; state Exp; branches; next ; desc @Waveform Config @ 1.2 log @*** empty log message *** @ text @ clk clk rst rst label [75] crom[75] FM WRITE[75] memEN memEN CPU label 128 128 255 230 230 230 dp[0:35] dp[0:35] 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 [105] crom[105] CROM EXT ADDR label [3] busADDRO[3] Read Cycle label [5] busADDRO[5] Write Cycle label [10] busADDRO[10] IO Cycle SKIPGE label 128 128 255 230 230 230 label addr[0:11] addr[0:11] OCTALRADIX CROM ADDR[0:11] currADDR[0:11] currADDR[0:11] OCTALRADIX 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] label [3,0:39] aluRAM[3,0:39] OCTALRADIX 3: AR[0:39] 3: AR[4:39] label OCTALRADIX [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] [3,38] aluRAM[3,38] [3,39] aluRAM[3,39] label regIR[0:17] regIR[0:17] OCTALRADIX IR[0:17] IR_AC label OCTALRADIX [9] regIR[9] [10] regIR[10] [11] regIR[11] [12] regIR[12] dp[0:35] dp[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 [3,0:35] ram[3,0:35] OCTALRADIX AC3[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[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 addr[0:9] addr[0:9] OCTALRADIX RAMFILE ADDR[0:9] vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #00ff00 vmaACREF vmaACREF label [8] vmaFLAGS[8] [8] :VMA PHYSICAL label [11] skipADDR[11] skipADDR[11] label [79] crom[79] CROM MULTISHIFT[79] [0] fe[0] fe[0:9] fe[0:9] OCTALRADIX sc[0:9] sc[0:9] OCTALRADIX currADDR[0:11] currADDR[0:11] OCTALRADIX clkenDP clkenDP clkenCR clkenCR CROM label 128 128 255 230 230 230 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 UNSIGNEDDECRADIX [26] crom[26] [27] crom[27] [28] crom[28] [29] crom[29] ADDR B label UNSIGNEDDECRADIX [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 [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] 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] label [3] busADDRO[3] Read Cycle label [5] busADDRO[5] Write Cycle DROM label 128 128 255 230 230 230 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 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 Registers label 128 128 255 230 230 230 label addr[0:11] addr[0:11] OCTALRADIX CROM ADDR[0:11] pcFLAGS[0:17] pcFLAGS[0:17] OCTALRADIX regIR[0:17] regIR[0:17] OCTALRADIX timerCOUNT[18:35] timerCOUNT[18:35] OCTALRADIX vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX currBLOCK[0:2] currBLOCK[0:2] OCTALRADIX prevBLOCK[0:2] prevBLOCK[0:2] 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 scad[0:9] scad[0:9] OCTALRADIX fe[0:9] fe[0:9] OCTALRADIX sc[0:9] sc[0:9] OCTALRADIX 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] 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 ALU (40 Bit View) label 128 128 255 230 230 230 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] 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] RAMFILE label 128 128 255 230 230 230 label regIR[0:17] regIR[0:17] OCTALRADIX regIR[0:17] addr[0:11] addr[0:11] OCTALRADIX label addr[0:9] addr[0:9] OCTALRADIX ram_addr[0:9] 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 vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #0000ff 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 [3,0:35] ram[3,0:35] OCTALRADIX AC3[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[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] dbus[0:35] dbus[0:35] OCTALRADIX label memEN memEN vma memEN vmaACREF vmaACREF @ 1.1 log @Initial revision @ text @d6 1 a6 1 d13 1 a13 1 d15 3 a17 2 d23 13 a35 43 reset reset swCONT swCONT swEXEC swEXEC swRUN swRUN consCONT consCONT cpuRUN cpuRUN cpuHALT cpuHALT cpuCONT cpuCONT cpuREAD cpuREAD cpuWRITE cpuWRITE cpuIO cpuIO d37 2 a38 2 Memory d43 3 a45 24 cpuDIN[0:35] cpuDIN[0:35] OCTALRADIX cpuDOUT[0:35] cpuDOUT[0:35] OCTALRADIX cpuADDR[14:35] cpuADDR[14:35] OCTALRADIX CROM label 128 128 255 230 230 230 addr[0:11] addr[0:11] d48 3 a50 3 crom[0:107] crom[0:107] d53 3 a55 3 J label a56 48 [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] d58 2 a59 2 FUN d62 1 a62 9 [12] crom[12] [13] crom[13] d64 1 a64 1 crom[14] d66 1 a66 11 func[0:2] func[0:2] OCTALRADIX LSRC label OCTALRADIX d68 1 a68 1 crom[15] d70 1 a70 1 d72 1 a72 1 crom[16] d74 1 a74 1 d76 1 a76 1 crom[17] d78 1 a78 6 RSRC label OCTALRADIX d80 1 a80 1 crom[18] d82 1 a82 1 d84 1 a84 1 crom[19] d86 1 a86 1 d88 1 a88 1 crom[20] d90 1 a90 6 DST label OCTALRADIX d92 1 a92 1 crom[21] d94 1 a94 1 d96 1 a96 1 crom[22] d98 1 a98 1 d100 9 a108 1 crom[23] d110 1 a110 11 dest[0:2] dest[0:2] OCTALRADIX ADDR A label UNSIGNEDDECRADIX d112 1 a112 1 crom[26] d114 1 a114 1 d116 1 a116 1 crom[27] d118 1 a118 1 d120 1 a120 1 crom[28] d122 1 a122 1 d124 9 a132 1 crom[29] d134 1 a134 6 ADDR B label UNSIGNEDDECRADIX d136 1 a136 1 crom[32] d138 1 a138 1 d140 1 a140 1 crom[33] d142 1 a142 1 d144 1 a144 1 crom[34] d146 1 a146 1 d148 1 a148 1 crom[35] d151 2 a152 2 LCLKEN d155 3 a157 3 [45] crom[45] d159 3 a161 8 RCLKEN label OCTALRADIX [48] crom[48] d163 3 a165 8 SPEC EN label OCTALRADIX [51] crom[51] d167 3 a169 3 [52] crom[52] d171 3 a173 3 [53] crom[53] d175 3 a177 8 SPEC SEL label OCTALRADIX [54] crom[54] d179 3 a181 3 [55] crom[55] d183 3 a185 3 [56] crom[56] d187 3 a189 8 DISP EN # label OCTALRADIX [57] crom[57] d191 3 a193 3 [58] crom[58] d195 3 a197 3 [59] crom[59] d199 3 a201 8 DISP SEL label OCTALRADIX [60] crom[60] d203 3 a205 3 [61] crom[61] d207 3 a209 3 [62] crom[62] d212 13 a224 2 RAM ADDR MUX d226 3 a228 13 OCTALRADIX [36] crom[36] [37] crom[37] [38] crom[38] d230 1 a230 2 DBUS MUX d232 20 a252 8 [40] crom[40] [41] crom[41] d254 2 a255 2 DBM MUX d258 23 a280 3 [42] crom[42] d282 3 a284 3 [43] crom[43] d286 3 a288 3 [44] crom[44] d290 3 a292 8 SKIP SEL label OCTALRADIX [66] crom[66] d294 3 a296 3 [67] crom[67] d298 3 a300 3 [68] crom[68] d302 3 a304 8 SKIP EN # label OCTALRADIX [63] crom[63] d306 3 a308 3 [64] crom[64] d310 3 a312 3 [65] crom[65] d314 3 a316 7 FM Write label [75] crom[75] d318 3 a320 8 RAMADR label OCTALRADIX [36] crom[36] d322 3 a324 3 [37] crom[37] d326 3 a328 3 [38] crom[38] d330 3 a332 8 NUM label OCTALRADIX [90] crom[90] d334 3 a336 3 [91] crom[91] d338 3 a340 3 [92] crom[92] d342 3 a344 3 [93] crom[93] d346 3 a348 3 [94] crom[94] d350 3 a352 3 [95] crom[95] d354 3 a356 3 [96] crom[96] d358 3 a360 3 [97] crom[97] d362 3 a364 3 [98] crom[98] d366 3 a368 3 [99] crom[99] d370 3 a372 3 [100] crom[100] d374 3 a376 3 [101] crom[101] d378 3 a380 3 [102] crom[102] d382 3 a384 3 [103] crom[103] d386 3 a388 3 [104] crom[104] d390 3 a392 3 [105] crom[105] d394 3 a396 3 [106] crom[106] d398 3 a400 3 [107] crom[107] d403 2 a404 2 DROM d406 1659 a2064 12 128 128 255 230 230 230 addr[0:11] addr[0:11] OCTALRADIX drom[0:35] drom[0:35] OCTALRADIX d2154 201 a2354 2 [20] drom[20] d2356 5 a2360 3 [21] drom[21] d2362 5 a2366 3 [22] drom[22] d2368 5 a2372 3 [23] drom[23] d2375 3 a2377 3 AC DISP label a2378 4 [25] drom[25] d2380 3 a2382 3 IND label a2383 4 [25] drom[25] d2385 3 a2387 3 READ CYCLE label a2388 4 [26] drom[26] d2390 2 a2391 2 WRTEST CYCLE d2394 27 a2420 3 [27] drom[27] d2422 3 a2424 8 COND FUNC label OCTALRADIX [28] drom[28] d2426 3 a2428 8 VMA label OCTALRADIX [29] drom[29] d2430 3 a2432 8 WRITE CYCLE label OCTALRADIX [30] drom[30] d2435 2 a2436 2 Busses d2440 1 d2442 15 a2456 4 addr[0:9] addr[0:9] OCTALRADIX d2458 3 a2460 4 dp[0:35] dp[0:35] OCTALRADIX d2462 3 a2464 4 dbm[0:35] dbm[0:35] OCTALRADIX d2466 3 a2468 4 dbus[0:35] dbus[0:35] OCTALRADIX d2470 3 a2472 3 dbusSEL[0:1] dbusSEL[0:1] d2474 1 a2474 2 Registers d2476 2 a2477 6 128 128 255 230 230 230 fe[0:9] fe[0:9] d2479 1 d2481 2 a2482 6 pcFLAGS[0:17] pcFLAGS[0:17] OCTALRADIX a2483 2 addr[0:9] addr[0:9] d2485 3 a2487 95 ram_addr[0:9] 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 d2489 3 a2491 4 [18,0:35] ram[18,0:35] OCTALRADIX d2493 3 a2495 4 [19,0:35] ram[19,0:35] OCTALRADIX d2497 3 a2499 4 [20,0:35] ram[20,0:35] OCTALRADIX d2501 3 a2503 4 [21,0:35] ram[21,0:35] OCTALRADIX d2505 3 a2507 4 [22,0:35] ram[22,0:35] OCTALRADIX d2509 3 a2511 4 [23,0:35] ram[23,0:35] OCTALRADIX d2513 3 a2515 4 [24,0:35] ram[24,0:35] OCTALRADIX d2517 3 a2519 4 [25,0:35] ram[25,0:35] OCTALRADIX d2521 3 a2523 4 [26,0:35] ram[26,0:35] OCTALRADIX d2525 3 a2527 4 [27,0:35] ram[27,0:35] OCTALRADIX d2529 3 a2531 4 [28,0:35] ram[28,0:35] OCTALRADIX d2533 3 a2535 4 [29,0:35] ram[29,0:35] OCTALRADIX d2537 3 a2539 4 [30,0:35] ram[30,0:35] OCTALRADIX d2541 3 a2543 4 [31,0:35] ram[31,0:35] OCTALRADIX d2545 3 a2547 4 [32,0:35] ram[32,0:35] OCTALRADIX d2549 3 a2551 4 [33,0:35] ram[33,0:35] OCTALRADIX d2553 3 a2555 4 [34,0:35] ram[34,0:35] OCTALRADIX d2557 3 a2559 4 [35,0:35] ram[35,0:35] OCTALRADIX d2561 3 a2563 4 [36,0:35] ram[36,0:35] OCTALRADIX d2565 3 a2567 4 [37,0:35] ram[37,0:35] OCTALRADIX d2569 3 a2571 4 [38,0:35] ram[38,0:35] OCTALRADIX d2573 3 a2575 4 [39,0:35] ram[39,0:35] OCTALRADIX d2577 3 a2579 4 [40,0:35] ram[40,0:35] OCTALRADIX d2581 3 a2583 4 [41,0:35] ram[41,0:35] OCTALRADIX d2585 3 a2587 4 [42,0:35] ram[42,0:35] OCTALRADIX d2589 3 a2591 4 [43,0:35] ram[43,0:35] OCTALRADIX d2593 3 a2595 4 [44,0:35] ram[44,0:35] OCTALRADIX d2597 3 a2599 4 [45,0:35] ram[45,0:35] OCTALRADIX d2601 3 a2603 4 [46,0:35] ram[46,0:35] OCTALRADIX d2605 3 a2607 4 [47,0:35] ram[47,0:35] OCTALRADIX d2609 3 a2611 44 [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 d2613 3 a2615 4 [57,0:35] ram[57,0:35] OCTALRADIX d2617 3 a2619 4 [58,0:35] ram[58,0:35] OCTALRADIX d2621 3 a2623 4 [59,0:35] ram[59,0:35] OCTALRADIX d2625 3 a2627 4 [60,0:35] ram[60,0:35] OCTALRADIX d2629 8 a2636 4 [61,0:35] ram[61,0:35] OCTALRADIX d2638 3 a2640 4 [62,0:35] ram[62,0:35] OCTALRADIX d2642 3 a2644 4 [63,0:35] ram[63,0:35] OCTALRADIX d2646 3 a2648 4 [64,0:35] ram[64,0:35] OCTALRADIX d2650 3 a2652 4 [65,0:35] ram[65,0:35] OCTALRADIX d2654 3 a2656 4 [66,0:35] ram[66,0:35] OCTALRADIX d2658 3 a2660 4 [67,0:35] ram[67,0:35] OCTALRADIX d2662 3 a2664 4 [68,0:35] ram[68,0:35] OCTALRADIX d2666 3 a2668 4 [69,0:35] ram[69,0:35] OCTALRADIX d2670 3 a2672 4 [70,0:35] ram[70,0:35] OCTALRADIX d2674 3 a2676 4 [71,0:35] ram[71,0:35] OCTALRADIX d2678 3 a2680 4 [72,0:35] ram[72,0:35] OCTALRADIX d2682 3 a2684 4 [73,0:35] ram[73,0:35] OCTALRADIX d2686 3 a2688 4 [74,0:35] ram[74,0:35] OCTALRADIX d2690 3 a2692 4 [75,0:35] ram[75,0:35] OCTALRADIX d2694 3 a2696 4 [76,0:35] ram[76,0:35] OCTALRADIX d2698 3 a2700 4 [77,0:35] ram[77,0:35] OCTALRADIX d2702 3 a2704 4 [78,0:35] ram[78,0:35] OCTALRADIX d2706 3 a2708 4 [79,0:35] ram[79,0:35] OCTALRADIX d2710 3 a2712 4 [80,0:35] ram[80,0:35] OCTALRADIX d2714 3 a2716 4 [81,0:35] ram[81,0:35] OCTALRADIX d2718 3 a2720 4 [82,0:35] ram[82,0:35] OCTALRADIX d2722 3 a2724 4 [83,0:35] ram[83,0:35] OCTALRADIX d2726 3 a2728 4 [84,0:35] ram[84,0:35] OCTALRADIX d2730 3 a2732 4 [85,0:35] ram[85,0:35] OCTALRADIX d2734 3 a2736 4 [86,0:35] ram[86,0:35] OCTALRADIX d2738 3 a2740 4 [87,0:35] ram[87,0:35] OCTALRADIX d2742 3 a2744 4 [88,0:35] ram[88,0:35] OCTALRADIX d2746 3 a2748 4 [89,0:35] ram[89,0:35] OCTALRADIX d2750 3 a2752 4 [90,0:35] ram[90,0:35] OCTALRADIX d2754 3 a2756 4 [91,0:35] ram[91,0:35] OCTALRADIX d2758 3 a2760 4 [92,0:35] ram[92,0:35] OCTALRADIX d2762 3 a2764 4 [93,0:35] ram[93,0:35] OCTALRADIX d2766 3 a2768 4 [94,0:35] ram[94,0:35] OCTALRADIX d2770 3 a2772 4 [95,0:35] ram[95,0:35] OCTALRADIX d2774 3 a2776 4 [96,0:35] ram[96,0:35] OCTALRADIX d2778 8 a2785 4 [97,0:35] ram[97,0:35] OCTALRADIX d2787 3 a2789 4 [98,0:35] ram[98,0:35] OCTALRADIX d2791 3 a2793 4 [99,0:35] ram[99,0:35] OCTALRADIX d2795 3 a2797 4 [100,0:35] ram[100,0:35] OCTALRADIX d2799 3 a2801 4 [101,0:35] ram[101,0:35] OCTALRADIX d2803 3 a2805 4 [102,0:35] ram[102,0:35] OCTALRADIX d2807 3 a2809 4 [103,0:35] ram[103,0:35] OCTALRADIX d2811 3 a2813 4 [104,0:35] ram[104,0:35] OCTALRADIX d2815 3 a2817 4 [105,0:35] ram[105,0:35] OCTALRADIX d2819 3 a2821 4 [106,0:35] ram[106,0:35] OCTALRADIX d2823 3 a2825 4 [107,0:35] ram[107,0:35] OCTALRADIX d2827 3 a2829 4 [108,0:35] ram[108,0:35] OCTALRADIX d2831 3 a2833 4 [109,0:35] ram[109,0:35] OCTALRADIX d2835 3 a2837 4 [110,0:35] ram[110,0:35] OCTALRADIX d2839 3 a2841 4 [111,0:35] ram[111,0:35] OCTALRADIX d2843 3 a2845 4 [112,0:35] ram[112,0:35] OCTALRADIX d2847 3 a2849 4 [113,0:35] ram[113,0:35] OCTALRADIX d2851 3 a2853 4 [114,0:35] ram[114,0:35] OCTALRADIX d2855 3 a2857 4 [115,0:35] ram[115,0:35] OCTALRADIX d2859 3 a2861 4 [116,0:35] ram[116,0:35] OCTALRADIX d2863 3 a2865 4 [117,0:35] ram[117,0:35] OCTALRADIX d2867 3 a2869 4 [118,0:35] ram[118,0:35] OCTALRADIX d2871 3 a2873 4 [119,0:35] ram[119,0:35] OCTALRADIX d2875 3 a2877 4 [120,0:35] ram[120,0:35] OCTALRADIX d2879 3 a2881 4 [121,0:35] ram[121,0:35] OCTALRADIX d2883 3 a2885 4 [122,0:35] ram[122,0:35] OCTALRADIX d2887 3 a2889 4 [123,0:35] ram[123,0:35] OCTALRADIX d2891 3 a2893 4 [124,0:35] ram[124,0:35] OCTALRADIX d2895 3 a2897 4 [125,0:35] ram[125,0:35] OCTALRADIX d2899 3 a2901 4 [126,0:35] ram[126,0:35] OCTALRADIX d2903 3 a2905 4 [127,0:35] ram[127,0:35] OCTALRADIX d2907 3 a2909 4 [128,0:35] ram[128,0:35] OCTALRADIX d2911 3 a2913 4 [129,0:35] ram[129,0:35] OCTALRADIX d2915 3 a2917 4 [130,0:35] ram[130,0:35] OCTALRADIX d2919 3 a2921 4 [131,0:35] ram[131,0:35] OCTALRADIX d2923 3 a2925 4 [132,0:35] ram[132,0:35] OCTALRADIX d2927 8 a2934 4 [133,0:35] ram[133,0:35] OCTALRADIX d2936 3 a2938 4 [134,0:35] ram[134,0:35] OCTALRADIX d2940 3 a2942 4 [135,0:35] ram[135,0:35] OCTALRADIX d2944 3 a2946 4 [136,0:35] ram[136,0:35] OCTALRADIX d2948 3 a2950 4 [137,0:35] ram[137,0:35] OCTALRADIX d2952 3 a2954 4 [138,0:35] ram[138,0:35] OCTALRADIX d2956 3 a2958 4 [139,0:35] ram[139,0:35] OCTALRADIX d2960 3 a2962 4 [140,0:35] ram[140,0:35] OCTALRADIX d2964 3 a2966 4 [141,0:35] ram[141,0:35] OCTALRADIX d2968 3 a2970 4 [142,0:35] ram[142,0:35] OCTALRADIX d2972 3 a2974 4 [143,0:35] ram[143,0:35] OCTALRADIX d2976 3 a2978 4 [144,0:35] ram[144,0:35] OCTALRADIX d2980 3 a2982 4 [145,0:35] ram[145,0:35] OCTALRADIX d2984 3 a2986 4 [146,0:35] ram[146,0:35] OCTALRADIX d2988 3 a2990 4 [147,0:35] ram[147,0:35] OCTALRADIX d2992 3 a2994 4 [148,0:35] ram[148,0:35] OCTALRADIX d2996 3 a2998 4 [149,0:35] ram[149,0:35] OCTALRADIX d3000 3 a3002 4 [150,0:35] ram[150,0:35] OCTALRADIX d3004 3 a3006 6 label [151,0:35] ram[151,0:35] OCTALRADIX [151: HSBADR[0:35] d3008 3 a3010 6 label [152,0:35] ram[152,0:35] OCTALRADIX [152: APREN[0:35] d3012 3 a3014 4 [153,0:35] ram[153,0:35] OCTALRADIX d3016 3 a3018 4 [154,0:35] ram[154,0:35] OCTALRADIX d3020 3 a3022 4 [155,0:35] ram[155,0:35] OCTALRADIX d3024 3 a3026 4 [156,0:35] ram[156,0:35] OCTALRADIX d3028 3 a3030 4 [157,0:35] ram[157,0:35] OCTALRADIX d3032 3 a3034 4 [158,0:35] ram[158,0:35] OCTALRADIX d3036 3 a3038 4 [159,0:35] ram[159,0:35] OCTALRADIX d3040 3 a3042 4 [160,0:35] ram[160,0:35] OCTALRADIX d3044 3 a3046 4 [161,0:35] ram[161,0:35] OCTALRADIX d3048 3 a3050 4 [162,0:35] ram[162,0:35] OCTALRADIX d3052 3 a3054 4 [163,0:35] ram[163,0:35] OCTALRADIX d3056 3 a3058 4 [164,0:35] ram[164,0:35] OCTALRADIX d3060 3 a3062 4 [165,0:35] ram[165,0:35] OCTALRADIX d3064 3 a3066 4 [166,0:35] ram[166,0:35] OCTALRADIX d3068 3 a3070 4 [167,0:35] ram[167,0:35] OCTALRADIX d3072 3 a3074 4 [168,0:35] ram[168,0:35] OCTALRADIX d3076 8 a3083 4 [169,0:35] ram[169,0:35] OCTALRADIX d3085 3 a3087 4 [170,0:35] ram[170,0:35] OCTALRADIX d3089 3 a3091 4 [171,0:35] ram[171,0:35] OCTALRADIX d3093 3 a3095 4 [172,0:35] ram[172,0:35] OCTALRADIX d3097 3 a3099 4 [173,0:35] ram[173,0:35] OCTALRADIX d3101 3 a3103 4 [174,0:35] ram[174,0:35] OCTALRADIX d3105 3 a3107 4 [175,0:35] ram[175,0:35] OCTALRADIX d3109 3 a3111 4 [176,0:35] ram[176,0:35] OCTALRADIX d3113 3 a3115 4 [177,0:35] ram[177,0:35] OCTALRADIX d3117 3 a3119 4 [178,0:35] ram[178,0:35] OCTALRADIX d3121 3 a3123 4 [179,0:35] ram[179,0:35] OCTALRADIX d3125 3 a3127 4 [180,0:35] ram[180,0:35] OCTALRADIX d3129 3 a3131 4 [181,0:35] ram[181,0:35] OCTALRADIX d3133 3 a3135 4 [182,0:35] ram[182,0:35] OCTALRADIX d3137 3 a3139 4 [183,0:35] ram[183,0:35] OCTALRADIX d3141 3 a3143 4 [184,0:35] ram[184,0:35] OCTALRADIX d3145 3 a3147 4 [185,0:35] ram[185,0:35] OCTALRADIX d3149 3 a3151 4 [186,0:35] ram[186,0:35] OCTALRADIX d3153 3 a3155 4 [187,0:35] ram[187,0:35] OCTALRADIX d3157 3 a3159 4 [188,0:35] ram[188,0:35] OCTALRADIX d3161 3 a3163 4 [189,0:35] ram[189,0:35] OCTALRADIX d3165 3 a3167 4 [190,0:35] ram[190,0:35] OCTALRADIX d3169 3 a3171 4 [191,0:35] ram[191,0:35] OCTALRADIX d3173 3 a3175 6 label [192,0:35] ram[192,0:35] OCTALRADIX [192: TIME0[0:35] d3177 3 a3179 6 label [193,0:35] ram[193,0:35] OCTALRADIX [193: TIME1[0:35] d3181 3 a3183 6 label [194,0:35] ram[194,0:35] OCTALRADIX [194: PERIOD[0:35] d3185 3 a3187 6 label [195,0:35] ram[195,0:35] OCTALRADIX [195: TTG[0:35] d3189 3 a3191 4 [196,0:35] ram[196,0:35] OCTALRADIX d3193 3 a3195 4 [197,0:35] ram[197,0:35] OCTALRADIX d3197 3 a3199 4 [198,0:35] ram[198,0:35] OCTALRADIX d3201 3 a3203 4 [199,0:35] ram[199,0:35] OCTALRADIX d3205 3 a3207 4 [200,0:35] ram[200,0:35] OCTALRADIX d3209 3 a3211 4 [201,0:35] ram[201,0:35] OCTALRADIX d3213 3 a3215 4 [202,0:35] ram[202,0:35] OCTALRADIX d3217 3 a3219 4 [203,0:35] ram[203,0:35] OCTALRADIX d3221 3 a3223 4 [204,0:35] ram[204,0:35] OCTALRADIX d3225 8 a3232 4 [205,0:35] ram[205,0:35] OCTALRADIX d3234 3 a3236 4 [206,0:35] ram[206,0:35] OCTALRADIX d3238 3 a3240 4 [207,0:35] ram[207,0:35] OCTALRADIX d3242 3 a3244 4 [208,0:35] ram[208,0:35] OCTALRADIX d3246 3 a3248 4 [209,0:35] ram[209,0:35] OCTALRADIX d3250 3 a3252 4 [210,0:35] ram[210,0:35] OCTALRADIX d3254 3 a3256 4 [211,0:35] ram[211,0:35] OCTALRADIX d3258 3 a3260 4 [212,0:35] ram[212,0:35] OCTALRADIX d3262 3 a3264 4 [213,0:35] ram[213,0:35] OCTALRADIX d3266 3 a3268 4 [214,0:35] ram[214,0:35] OCTALRADIX d3270 3 a3272 4 [215,0:35] ram[215,0:35] OCTALRADIX d3274 3 a3276 4 [216,0:35] ram[216,0:35] OCTALRADIX d3278 3 a3280 4 [217,0:35] ram[217,0:35] OCTALRADIX d3282 3 a3284 4 [218,0:35] ram[218,0:35] OCTALRADIX d3286 3 a3288 4 [219,0:35] ram[219,0:35] OCTALRADIX d3290 3 a3292 4 [220,0:35] ram[220,0:35] OCTALRADIX d3294 3 a3296 4 [221,0:35] ram[221,0:35] OCTALRADIX d3298 3 a3300 4 [222,0:35] ram[222,0:35] OCTALRADIX d3302 3 a3304 4 [223,0:35] ram[223,0:35] OCTALRADIX d3306 3 a3308 4 [224,0:35] ram[224,0:35] OCTALRADIX d3310 3 a3312 4 [225,0:35] ram[225,0:35] OCTALRADIX d3314 3 a3316 4 [226,0:35] ram[226,0:35] OCTALRADIX d3318 3 a3320 4 [227,0:35] ram[227,0:35] OCTALRADIX d3322 3 a3324 6 label [228,0:35] ram[228,0:35] HEXRADIX [228: DECLO[0][0:35] d3326 3 a3328 4 [229,0:35] ram[229,0:35] HEXRADIX d3330 3 a3332 4 [230,0:35] ram[230,0:35] HEXRADIX d3334 3 a3336 4 [231,0:35] ram[231,0:35] HEXRADIX d3338 3 a3340 4 [232,0:35] ram[232,0:35] HEXRADIX d3342 3 a3344 4 [233,0:35] ram[233,0:35] HEXRADIX d3346 3 a3348 4 [234,0:35] ram[234,0:35] HEXRADIX d3350 3 a3352 4 [235,0:35] ram[235,0:35] HEXRADIX d3354 3 a3356 4 [236,0:35] ram[236,0:35] HEXRADIX d3358 3 a3360 4 [237,0:35] ram[237,0:35] HEXRADIX d3362 3 a3364 4 [238,0:35] ram[238,0:35] HEXRADIX d3366 3 a3368 4 [239,0:35] ram[239,0:35] HEXRADIX d3370 3 a3372 4 [240,0:35] ram[240,0:35] HEXRADIX d3374 8 a3381 4 [241,0:35] ram[241,0:35] HEXRADIX d3383 3 a3385 4 [242,0:35] ram[242,0:35] HEXRADIX d3387 3 a3389 4 [243,0:35] ram[243,0:35] HEXRADIX d3391 3 a3393 4 [244,0:35] ram[244,0:35] HEXRADIX d3395 3 a3397 4 [245,0:35] ram[245,0:35] HEXRADIX d3399 3 a3401 4 [246,0:35] ram[246,0:35] HEXRADIX d3403 3 a3405 4 [247,0:35] ram[247,0:35] HEXRADIX d3407 3 a3409 4 [248,0:35] ram[248,0:35] HEXRADIX d3411 3 a3413 4 [249,0:35] ram[249,0:35] HEXRADIX d3415 3 a3417 4 [250,0:35] ram[250,0:35] HEXRADIX d3419 3 a3421 6 label [251,0:35] ram[251,0:35] HEXRADIX [251: DECHI[0][0:35] d3423 3 a3425 4 [252,0:35] ram[252,0:35] HEXRADIX d3427 3 a3429 4 [253,0:35] ram[253,0:35] HEXRADIX d3431 3 a3433 4 [254,0:35] ram[254,0:35] HEXRADIX d3435 3 a3437 4 [255,0:35] ram[255,0:35] HEXRADIX d3439 3 a3441 4 [256,0:35] ram[256,0:35] HEXRADIX d3443 3 a3445 4 [257,0:35] ram[257,0:35] HEXRADIX d3447 3 a3449 4 [258,0:35] ram[258,0:35] HEXRADIX d3451 3 a3453 4 [259,0:35] ram[259,0:35] HEXRADIX d3455 3 a3457 4 [260,0:35] ram[260,0:35] HEXRADIX d3459 3 a3461 4 [261,0:35] ram[261,0:35] HEXRADIX d3463 3 a3465 4 [262,0:35] ram[262,0:35] HEXRADIX d3467 3 a3469 4 [263,0:35] ram[263,0:35] HEXRADIX d3471 3 a3473 4 [264,0:35] ram[264,0:35] HEXRADIX d3475 3 a3477 4 [265,0:35] ram[265,0:35] HEXRADIX d3479 3 a3481 4 [266,0:35] ram[266,0:35] HEXRADIX d3483 3 a3485 4 [267,0:35] ram[267,0:35] HEXRADIX d3487 3 a3489 9 [268,0:35] ram[268,0:35] HEXRADIX [269,0:35] ram[269,0:35] HEXRADIX d3491 3 a3493 4 [270,0:35] ram[270,0:35] HEXRADIX d3495 3 a3497 4 [271,0:35] ram[271,0:35] HEXRADIX d3499 3 a3501 4 [272,0:35] ram[272,0:35] HEXRADIX d3503 3 a3505 4 [273,0:35] ram[273,0:35] OCTALRADIX d3507 3 a3509 4 [274,0:35] ram[274,0:35] OCTALRADIX d3511 3 a3513 4 [275,0:35] ram[275,0:35] OCTALRADIX d3515 3 a3517 4 [276,0:35] ram[276,0:35] OCTALRADIX d3519 3 a3521 4 [277,0:35] ram[277,0:35] OCTALRADIX d3523 8 a3530 4 [278,0:35] ram[278,0:35] OCTALRADIX d3532 3 a3534 4 [279,0:35] ram[279,0:35] OCTALRADIX d3536 3 a3538 4 [280,0:35] ram[280,0:35] OCTALRADIX d3540 3 a3542 4 [281,0:35] ram[281,0:35] OCTALRADIX d3544 3 a3546 4 [282,0:35] ram[282,0:35] OCTALRADIX d3548 3 a3550 4 [283,0:35] ram[283,0:35] OCTALRADIX d3552 3 a3554 4 [284,0:35] ram[284,0:35] OCTALRADIX d3556 3 a3558 4 [285,0:35] ram[285,0:35] OCTALRADIX d3560 3 a3562 4 [286,0:35] ram[286,0:35] OCTALRADIX d3564 3 a3566 4 [287,0:35] ram[287,0:35] OCTALRADIX d3568 3 a3570 4 [288,0:35] ram[288,0:35] OCTALRADIX d3572 3 a3574 4 [289,0:35] ram[289,0:35] OCTALRADIX d3576 3 a3578 4 [290,0:35] ram[290,0:35] OCTALRADIX d3580 3 a3582 4 [291,0:35] ram[291,0:35] OCTALRADIX d3584 3 a3586 4 [292,0:35] ram[292,0:35] OCTALRADIX d3588 3 a3590 4 [293,0:35] ram[293,0:35] OCTALRADIX d3592 3 a3594 4 [294,0:35] ram[294,0:35] OCTALRADIX d3596 3 a3598 4 [295,0:35] ram[295,0:35] OCTALRADIX d3600 3 a3602 4 [296,0:35] ram[296,0:35] OCTALRADIX d3604 3 a3606 4 [297,0:35] ram[297,0:35] OCTALRADIX d3608 3 a3610 4 [298,0:35] ram[298,0:35] OCTALRADIX d3612 3 a3614 4 [299,0:35] ram[299,0:35] OCTALRADIX d3616 3 a3618 4 [300,0:35] ram[300,0:35] OCTALRADIX d3620 3 a3622 4 [301,0:35] ram[301,0:35] OCTALRADIX d3624 3 a3626 4 [302,0:35] ram[302,0:35] OCTALRADIX d3628 3 a3630 4 [303,0:35] ram[303,0:35] OCTALRADIX d3632 3 a3634 9 [304,0:35] ram[304,0:35] OCTALRADIX [305,0:35] ram[305,0:35] OCTALRADIX d3636 3 a3638 4 [306,0:35] ram[306,0:35] OCTALRADIX d3640 3 a3642 4 [307,0:35] ram[307,0:35] OCTALRADIX d3644 3 a3646 4 [308,0:35] ram[308,0:35] OCTALRADIX d3648 3 a3650 4 [309,0:35] ram[309,0:35] OCTALRADIX d3652 3 a3654 4 [310,0:35] ram[310,0:35] OCTALRADIX d3656 3 a3658 4 [311,0:35] ram[311,0:35] OCTALRADIX d3660 3 a3662 4 [312,0:35] ram[312,0:35] OCTALRADIX d3664 3 a3666 4 [313,0:35] ram[313,0:35] OCTALRADIX d3668 3 a3670 4 [314,0:35] ram[314,0:35] OCTALRADIX d3672 8 a3679 4 [315,0:35] ram[315,0:35] OCTALRADIX d3681 3 a3683 4 [316,0:35] ram[316,0:35] OCTALRADIX d3685 3 a3687 4 [317,0:35] ram[317,0:35] OCTALRADIX d3689 3 a3691 4 [318,0:35] ram[318,0:35] OCTALRADIX d3693 3 a3695 4 [319,0:35] ram[319,0:35] OCTALRADIX d3697 3 a3699 4 [320,0:35] ram[320,0:35] OCTALRADIX d3701 3 a3703 4 [321,0:35] ram[321,0:35] OCTALRADIX d3705 3 a3707 4 [322,0:35] ram[322,0:35] OCTALRADIX d3709 3 a3711 4 [323,0:35] ram[323,0:35] OCTALRADIX d3713 3 a3715 4 [324,0:35] ram[324,0:35] OCTALRADIX d3717 3 a3719 4 [325,0:35] ram[325,0:35] OCTALRADIX d3721 3 a3723 4 [326,0:35] ram[326,0:35] OCTALRADIX d3725 3 a3727 4 [327,0:35] ram[327,0:35] OCTALRADIX d3729 3 a3731 4 [328,0:35] ram[328,0:35] OCTALRADIX d3733 3 a3735 4 [329,0:35] ram[329,0:35] OCTALRADIX d3737 3 a3739 4 [330,0:35] ram[330,0:35] OCTALRADIX d3741 3 a3743 4 [331,0:35] ram[331,0:35] OCTALRADIX d3745 3 a3747 4 [332,0:35] ram[332,0:35] OCTALRADIX d3749 3 a3751 4 [333,0:35] ram[333,0:35] OCTALRADIX d3753 3 a3755 4 [334,0:35] ram[334,0:35] OCTALRADIX d3757 3 a3759 4 [335,0:35] ram[335,0:35] OCTALRADIX d3761 3 a3763 4 [336,0:35] ram[336,0:35] OCTALRADIX d3765 3 a3767 4 [337,0:35] ram[337,0:35] OCTALRADIX d3769 3 a3771 4 [338,0:35] ram[338,0:35] OCTALRADIX d3773 3 a3775 4 [339,0:35] ram[339,0:35] OCTALRADIX d3777 3 a3779 4 [340,0:35] ram[340,0:35] OCTALRADIX d3781 3 a3783 4 [341,0:35] ram[341,0:35] OCTALRADIX d3785 3 a3787 4 [342,0:35] ram[342,0:35] OCTALRADIX d3789 3 a3791 4 [343,0:35] ram[343,0:35] OCTALRADIX d3793 3 a3795 4 [344,0:35] ram[344,0:35] OCTALRADIX d3797 3 a3799 4 [345,0:35] ram[345,0:35] OCTALRADIX d3801 3 a3803 4 [346,0:35] ram[346,0:35] OCTALRADIX d3805 3 a3807 4 [347,0:35] ram[347,0:35] OCTALRADIX d3809 3 a3811 4 [348,0:35] ram[348,0:35] OCTALRADIX d3813 3 a3815 4 [349,0:35] ram[349,0:35] OCTALRADIX d3817 3 a3819 4 [350,0:35] ram[350,0:35] OCTALRADIX d3821 8 a3828 4 [351,0:35] ram[351,0:35] OCTALRADIX d3830 3 a3832 4 [352,0:35] ram[352,0:35] OCTALRADIX d3834 3 a3836 4 [353,0:35] ram[353,0:35] OCTALRADIX d3838 3 a3840 4 [354,0:35] ram[354,0:35] OCTALRADIX d3842 3 a3844 4 [355,0:35] ram[355,0:35] OCTALRADIX d3846 3 a3848 4 [356,0:35] ram[356,0:35] OCTALRADIX d3850 3 a3852 4 [357,0:35] ram[357,0:35] OCTALRADIX d3854 3 a3856 4 [358,0:35] ram[358,0:35] OCTALRADIX d3858 3 a3860 4 [359,0:35] ram[359,0:35] OCTALRADIX d3862 3 a3864 4 [360,0:35] ram[360,0:35] OCTALRADIX d3866 3 a3868 4 [361,0:35] ram[361,0:35] OCTALRADIX d3870 3 a3872 4 [362,0:35] ram[362,0:35] OCTALRADIX d3874 3 a3876 4 [363,0:35] ram[363,0:35] OCTALRADIX d3878 3 a3880 4 [364,0:35] ram[364,0:35] OCTALRADIX d3882 3 a3884 4 [365,0:35] ram[365,0:35] OCTALRADIX d3886 3 a3888 4 [366,0:35] ram[366,0:35] OCTALRADIX d3890 3 a3892 4 [367,0:35] ram[367,0:35] OCTALRADIX d3894 3 a3896 4 [368,0:35] ram[368,0:35] OCTALRADIX d3898 3 a3900 4 [369,0:35] ram[369,0:35] OCTALRADIX d3902 3 a3904 4 [370,0:35] ram[370,0:35] OCTALRADIX d3906 3 a3908 4 [371,0:35] ram[371,0:35] OCTALRADIX d3910 3 a3912 4 [372,0:35] ram[372,0:35] OCTALRADIX d3914 3 a3916 4 [373,0:35] ram[373,0:35] OCTALRADIX d3918 3 a3920 4 [374,0:35] ram[374,0:35] OCTALRADIX d3922 3 a3924 4 [375,0:35] ram[375,0:35] OCTALRADIX d3926 3 a3928 9 [376,0:35] ram[376,0:35] OCTALRADIX [377,0:35] ram[377,0:35] OCTALRADIX d3930 3 a3932 4 [378,0:35] ram[378,0:35] OCTALRADIX d3934 3 a3936 4 [379,0:35] ram[379,0:35] OCTALRADIX d3938 3 a3940 4 [380,0:35] ram[380,0:35] OCTALRADIX d3942 3 a3944 4 [381,0:35] ram[381,0:35] OCTALRADIX d3946 3 a3948 4 [382,0:35] ram[382,0:35] OCTALRADIX d3950 3 a3952 4 [383,0:35] ram[383,0:35] OCTALRADIX d3954 3 a3956 4 [384,0:35] ram[384,0:35] OCTALRADIX d3958 3 a3960 4 [385,0:35] ram[385,0:35] OCTALRADIX d3962 3 a3964 4 [386,0:35] ram[386,0:35] OCTALRADIX d3966 3 a3968 4 [387,0:35] ram[387,0:35] OCTALRADIX d3970 8 a3977 4 [388,0:35] ram[388,0:35] OCTALRADIX d3979 3 a3981 4 [389,0:35] ram[389,0:35] OCTALRADIX d3983 3 a3985 4 [390,0:35] ram[390,0:35] OCTALRADIX d3987 3 a3989 4 [391,0:35] ram[391,0:35] OCTALRADIX d3991 3 a3993 4 [392,0:35] ram[392,0:35] OCTALRADIX d3995 3 a3997 4 [393,0:35] ram[393,0:35] OCTALRADIX d3999 3 a4001 4 [394,0:35] ram[394,0:35] OCTALRADIX d4003 3 a4005 4 [395,0:35] ram[395,0:35] OCTALRADIX d4007 3 a4009 4 [396,0:35] ram[396,0:35] OCTALRADIX d4011 3 a4013 4 [397,0:35] ram[397,0:35] OCTALRADIX d4015 3 a4017 4 [398,0:35] ram[398,0:35] OCTALRADIX d4019 3 a4021 4 [399,0:35] ram[399,0:35] OCTALRADIX d4023 3 a4025 4 [400,0:35] ram[400,0:35] OCTALRADIX d4027 3 a4029 4 [401,0:35] ram[401,0:35] OCTALRADIX d4031 3 a4033 4 [402,0:35] ram[402,0:35] OCTALRADIX d4035 3 a4037 4 [403,0:35] ram[403,0:35] OCTALRADIX d4039 3 a4041 4 [404,0:35] ram[404,0:35] OCTALRADIX d4043 3 a4045 4 [405,0:35] ram[405,0:35] OCTALRADIX d4047 3 a4049 4 [406,0:35] ram[406,0:35] OCTALRADIX d4051 3 a4053 4 [407,0:35] ram[407,0:35] OCTALRADIX d4055 3 a4057 4 [408,0:35] ram[408,0:35] OCTALRADIX d4059 3 a4061 4 [409,0:35] ram[409,0:35] OCTALRADIX d4063 3 a4065 4 [410,0:35] ram[410,0:35] OCTALRADIX d4067 3 a4069 4 [411,0:35] ram[411,0:35] OCTALRADIX d4071 3 a4073 4 [412,0:35] ram[412,0:35] OCTALRADIX d4075 3 a4077 4 [413,0:35] ram[413,0:35] OCTALRADIX d4079 3 a4081 4 [414,0:35] ram[414,0:35] OCTALRADIX d4083 3 a4085 4 [415,0:35] ram[415,0:35] OCTALRADIX d4087 3 a4089 4 [416,0:35] ram[416,0:35] OCTALRADIX d4091 3 a4093 4 [417,0:35] ram[417,0:35] OCTALRADIX d4095 3 a4097 4 [418,0:35] ram[418,0:35] OCTALRADIX d4099 3 a4101 4 [419,0:35] ram[419,0:35] OCTALRADIX d4103 3 a4105 4 [420,0:35] ram[420,0:35] OCTALRADIX d4107 3 a4109 4 [421,0:35] ram[421,0:35] OCTALRADIX d4111 3 a4113 4 [422,0:35] ram[422,0:35] OCTALRADIX d4115 3 a4117 4 [423,0:35] ram[423,0:35] OCTALRADIX d4119 8 a4126 4 [424,0:35] ram[424,0:35] OCTALRADIX d4128 3 a4130 4 [425,0:35] ram[425,0:35] OCTALRADIX d4132 3 a4134 4 [426,0:35] ram[426,0:35] OCTALRADIX d4136 3 a4138 4 [427,0:35] ram[427,0:35] OCTALRADIX d4140 3 a4142 4 [428,0:35] ram[428,0:35] OCTALRADIX d4144 3 a4146 4 [429,0:35] ram[429,0:35] OCTALRADIX d4148 3 a4150 4 [430,0:35] ram[430,0:35] OCTALRADIX d4152 3 a4154 4 [431,0:35] ram[431,0:35] OCTALRADIX d4156 3 a4158 4 [432,0:35] ram[432,0:35] OCTALRADIX d4160 3 a4162 4 [433,0:35] ram[433,0:35] OCTALRADIX d4164 3 a4166 4 [434,0:35] ram[434,0:35] OCTALRADIX d4168 3 a4170 4 [435,0:35] ram[435,0:35] OCTALRADIX d4172 3 a4174 4 [436,0:35] ram[436,0:35] OCTALRADIX d4176 3 a4178 4 [437,0:35] ram[437,0:35] OCTALRADIX d4180 3 a4182 4 [438,0:35] ram[438,0:35] OCTALRADIX d4184 3 a4186 4 [439,0:35] ram[439,0:35] OCTALRADIX d4188 3 a4190 4 [440,0:35] ram[440,0:35] OCTALRADIX d4192 3 a4194 4 [441,0:35] ram[441,0:35] OCTALRADIX d4196 3 a4198 4 [442,0:35] ram[442,0:35] OCTALRADIX d4200 3 a4202 4 [443,0:35] ram[443,0:35] OCTALRADIX d4204 3 a4206 4 [444,0:35] ram[444,0:35] OCTALRADIX d4208 3 a4210 4 [445,0:35] ram[445,0:35] OCTALRADIX d4212 3 a4214 4 [446,0:35] ram[446,0:35] OCTALRADIX d4216 3 a4218 4 [447,0:35] ram[447,0:35] OCTALRADIX d4220 3 a4222 9 [448,0:35] ram[448,0:35] OCTALRADIX [449,0:35] ram[449,0:35] OCTALRADIX d4224 3 a4226 4 [450,0:35] ram[450,0:35] OCTALRADIX d4228 3 a4230 4 [451,0:35] ram[451,0:35] OCTALRADIX d4232 3 a4234 4 [452,0:35] ram[452,0:35] OCTALRADIX d4236 3 a4238 4 [453,0:35] ram[453,0:35] OCTALRADIX d4240 3 a4242 4 [454,0:35] ram[454,0:35] OCTALRADIX d4244 3 a4246 4 [455,0:35] ram[455,0:35] OCTALRADIX d4248 3 a4250 4 [456,0:35] ram[456,0:35] OCTALRADIX d4252 3 a4254 4 [457,0:35] ram[457,0:35] OCTALRADIX d4256 3 a4258 4 [458,0:35] ram[458,0:35] OCTALRADIX d4260 3 a4262 4 [459,0:35] ram[459,0:35] OCTALRADIX d4264 3 a4266 4 [460,0:35] ram[460,0:35] OCTALRADIX d4268 8 a4275 3 [461,0:35] ram[461,0:35] d4278 8 a4285 3 [462,0:35] ram[462,0:35] d4288 45 a4332 3 [463,0:35] ram[463,0:35] d4334 1 d4336 4 a4339 3 [464,0:35] ram[464,0:35] d4341 1 d4343 4 a4346 3 [465,0:35] ram[465,0:35] d4348 1 d4350 4 a4353 3 [466,0:35] ram[466,0:35] d4355 1 d4357 4 a4360 3 [467,0:35] ram[467,0:35] d4362 1 d4364 4 a4367 3 [468,0:35] ram[468,0:35] d4369 1 d4371 4 a4374 3 [469,0:35] ram[469,0:35] d4376 1 d4378 4 a4381 3 [470,0:35] ram[470,0:35] d4383 1 d4385 4 a4388 3 [471,0:35] ram[471,0:35] d4390 1 d4392 4 a4395 3 [472,0:35] ram[472,0:35] d4397 1 d4399 4 a4402 3 [473,0:35] ram[473,0:35] d4404 1 d4406 4 a4409 3 [474,0:35] ram[474,0:35] d4411 1 d4413 4 a4416 3 [475,0:35] ram[475,0:35] d4418 1 d4420 4 a4423 8 [476,0:35] ram[476,0:35] OCTALRADIX [477,0:35] ram[477,0:35] d4425 1 d4427 4 a4430 3 [478,0:35] ram[478,0:35] d4432 1 d4434 4 a4437 3 [479,0:35] ram[479,0:35] d4439 1 d4441 68 a4508 3 [480,0:35] ram[480,0:35] d4511 3 a4513 3 [481,0:35] ram[481,0:35] d4516 3 a4518 3 [482,0:35] ram[482,0:35] d4521 3 a4523 3 [483,0:35] ram[483,0:35] d4526 3 a4528 3 [484,0:35] ram[484,0:35] d4531 3 a4533 3 [485,0:35] ram[485,0:35] d4536 3 a4538 3 [486,0:35] ram[486,0:35] d4541 3 a4543 3 [487,0:35] ram[487,0:35] d4546 3 a4548 3 [488,0:35] ram[488,0:35] d4551 3 a4553 3 [489,0:35] ram[489,0:35] d4556 3 a4558 3 [490,0:35] ram[490,0:35] d4561 3 a4563 3 [491,0:35] ram[491,0:35] d4566 3 a4568 3 [492,0:35] ram[492,0:35] d4571 3 a4573 3 [493,0:35] ram[493,0:35] d4576 3 a4578 3 [494,0:35] ram[494,0:35] d4581 3 a4583 3 [495,0:35] ram[495,0:35] d4586 3 a4588 3 [496,0:35] ram[496,0:35] d4591 3 a4593 3 [497,0:35] ram[497,0:35] d4596 3 a4598 3 [498,0:35] ram[498,0:35] d4601 3 a4603 3 [499,0:35] ram[499,0:35] d4606 3 a4608 3 [500,0:35] ram[500,0:35] d4611 3 a4613 3 [501,0:35] ram[501,0:35] d4616 3 a4618 3 [502,0:35] ram[502,0:35] d4621 3 a4623 3 [503,0:35] ram[503,0:35] d4626 3 a4628 3 [504,0:35] ram[504,0:35] d4631 3 a4633 3 [505,0:35] ram[505,0:35] d4636 3 a4638 3 [506,0:35] ram[506,0:35] d4641 3 a4643 3 [507,0:35] ram[507,0:35] d4646 3 a4648 8 [508,0:35] ram[508,0:35] OCTALRADIX [509,0:35] ram[509,0:35] d4651 3 a4653 3 [510,0:35] ram[510,0:35] d4656 3 a4658 3 [511,0:35] ram[511,0:35] d4661 3 a4663 3 [512,0:35] ram[512,0:35] d4666 3 a4668 3 [513,0:35] ram[513,0:35] d4671 3 a4673 3 [514,0:35] ram[514,0:35] d4676 3 a4678 3 [515,0:35] ram[515,0:35] d4681 3 a4683 3 [516,0:35] ram[516,0:35] d4686 3 a4688 3 [517,0:35] ram[517,0:35] d4691 3 a4693 3 [518,0:35] ram[518,0:35] d4696 3 a4698 3 [519,0:35] ram[519,0:35] d4701 3 a4703 3 [520,0:35] ram[520,0:35] d4706 3 a4708 3 [521,0:35] ram[521,0:35] d4711 3 a4713 3 [522,0:35] ram[522,0:35] d4716 3 a4718 3 [523,0:35] ram[523,0:35] d4721 3 a4723 3 [524,0:35] ram[524,0:35] d4726 3 a4728 3 [525,0:35] ram[525,0:35] d4731 3 a4733 3 [526,0:35] ram[526,0:35] d4736 3 a4738 3 [527,0:35] ram[527,0:35] d4741 3 a4743 3 [528,0:35] ram[528,0:35] d4746 3 a4748 3 [529,0:35] ram[529,0:35] d4751 3 a4753 3 [530,0:35] ram[530,0:35] d4756 3 a4758 3 [531,0:35] ram[531,0:35] d4761 3 a4763 3 [532,0:35] ram[532,0:35] d4766 3 a4768 3 [533,0:35] ram[533,0:35] d4771 3 a4773 3 [534,0:35] ram[534,0:35] d4776 3 a4778 3 [535,0:35] ram[535,0:35] d4781 3 a4783 3 [536,0:35] ram[536,0:35] d4786 3 a4788 3 [537,0:35] ram[537,0:35] d4791 3 a4793 3 [538,0:35] ram[538,0:35] d4796 3 a4798 3 [539,0:35] ram[539,0:35] d4801 3 a4803 3 [540,0:35] ram[540,0:35] d4806 3 a4808 3 [541,0:35] ram[541,0:35] d4811 3 a4813 3 [542,0:35] ram[542,0:35] d4816 3 a4818 3 [543,0:35] ram[543,0:35] d4821 3 a4823 3 [544,0:35] ram[544,0:35] d4826 3 a4828 3 [545,0:35] ram[545,0:35] d4831 3 a4833 3 [546,0:35] ram[546,0:35] d4836 3 a4838 3 [547,0:35] ram[547,0:35] d4841 3 a4843 3 [548,0:35] ram[548,0:35] d4846 3 a4848 3 [549,0:35] ram[549,0:35] d4851 3 a4853 3 [550,0:35] ram[550,0:35] d4856 3 a4858 3 [551,0:35] ram[551,0:35] d4861 3 a4863 3 [552,0:35] ram[552,0:35] d4866 3 a4868 3 [553,0:35] ram[553,0:35] d4871 3 a4873 3 [554,0:35] ram[554,0:35] d4876 3 a4878 3 [555,0:35] ram[555,0:35] d4881 3 a4883 3 [556,0:35] ram[556,0:35] d4886 3 a4888 3 [557,0:35] ram[557,0:35] d4891 3 a4893 3 [558,0:35] ram[558,0:35] d4896 3 a4898 3 [559,0:35] ram[559,0:35] d4901 3 a4903 3 [560,0:35] ram[560,0:35] d4906 3 a4908 3 [561,0:35] ram[561,0:35] d4911 3 a4913 3 [562,0:35] ram[562,0:35] d4916 3 a4918 3 [563,0:35] ram[563,0:35] d4921 3 a4923 3 [564,0:35] ram[564,0:35] d4926 3 a4928 3 [565,0:35] ram[565,0:35] d4931 3 a4933 3 [566,0:35] ram[566,0:35] d4936 3 a4938 3 [567,0:35] ram[567,0:35] d4941 3 a4943 3 [568,0:35] ram[568,0:35] d4946 3 a4948 3 [569,0:35] ram[569,0:35] d4951 3 a4953 3 [570,0:35] ram[570,0:35] d4956 3 a4958 3 [571,0:35] ram[571,0:35] d4961 3 a4963 3 [572,0:35] ram[572,0:35] d4966 3 a4968 3 [573,0:35] ram[573,0:35] d4971 3 a4973 3 [574,0:35] ram[574,0:35] d4976 3 a4978 3 [575,0:35] ram[575,0:35] d4981 3 a4983 3 [576,0:35] ram[576,0:35] d4986 3 a4988 3 [577,0:35] ram[577,0:35] d4991 3 a4993 3 [578,0:35] ram[578,0:35] d4996 3 a4998 3 [579,0:35] ram[579,0:35] d5001 3 a5003 3 [580,0:35] ram[580,0:35] d5006 3 a5008 3 [581,0:35] ram[581,0:35] d5011 3 a5013 3 [582,0:35] ram[582,0:35] d5016 3 a5018 3 [583,0:35] ram[583,0:35] d5021 3 a5023 3 [584,0:35] ram[584,0:35] d5026 3 a5028 3 [585,0:35] ram[585,0:35] d5031 3 a5033 3 [586,0:35] ram[586,0:35] d5036 3 a5038 3 [587,0:35] ram[587,0:35] d5041 3 a5043 3 [588,0:35] ram[588,0:35] d5046 3 a5048 3 [589,0:35] ram[589,0:35] d5051 3 a5053 3 [590,0:35] ram[590,0:35] d5056 3 a5058 3 [591,0:35] ram[591,0:35] d5061 3 a5063 3 [592,0:35] ram[592,0:35] d5066 3 a5068 3 [593,0:35] ram[593,0:35] d5071 3 a5073 3 [594,0:35] ram[594,0:35] d5076 3 a5078 3 [595,0:35] ram[595,0:35] d5081 3 a5083 3 [596,0:35] ram[596,0:35] d5086 3 a5088 3 [597,0:35] ram[597,0:35] d5091 3 a5093 3 [598,0:35] ram[598,0:35] d5096 3 a5098 3 [599,0:35] ram[599,0:35] d5101 3 a5103 3 [600,0:35] ram[600,0:35] d5106 3 a5108 3 [601,0:35] ram[601,0:35] d5111 3 a5113 3 [602,0:35] ram[602,0:35] d5116 3 a5118 3 [603,0:35] ram[603,0:35] d5121 3 a5123 3 [604,0:35] ram[604,0:35] d5126 3 a5128 3 [605,0:35] ram[605,0:35] d5131 3 a5133 3 [606,0:35] ram[606,0:35] d5136 3 a5138 3 [607,0:35] ram[607,0:35] d5141 3 a5143 3 [608,0:35] ram[608,0:35] d5146 3 a5148 3 [609,0:35] ram[609,0:35] d5151 3 a5153 3 [610,0:35] ram[610,0:35] d5156 3 a5158 3 [611,0:35] ram[611,0:35] d5161 3 a5163 3 [612,0:35] ram[612,0:35] d5166 3 a5168 3 [613,0:35] ram[613,0:35] d5171 3 a5173 3 [614,0:35] ram[614,0:35] d5176 3 a5178 3 [615,0:35] ram[615,0:35] d5181 3 a5183 3 [616,0:35] ram[616,0:35] d5186 3 a5188 3 [617,0:35] ram[617,0:35] d5191 3 a5193 3 [618,0:35] ram[618,0:35] d5196 3 a5198 3 [619,0:35] ram[619,0:35] d5201 3 a5203 3 [620,0:35] ram[620,0:35] d5206 3 a5208 3 [621,0:35] ram[621,0:35] d5211 3 a5213 3 [622,0:35] ram[622,0:35] d5216 3 a5218 3 [623,0:35] ram[623,0:35] d5221 3 a5223 3 [624,0:35] ram[624,0:35] d5226 3 a5228 3 [625,0:35] ram[625,0:35] d5231 3 a5233 3 [626,0:35] ram[626,0:35] d5236 3 a5238 3 [627,0:35] ram[627,0:35] d5241 3 a5243 3 [628,0:35] ram[628,0:35] d5246 3 a5248 3 [629,0:35] ram[629,0:35] d5251 3 a5253 3 [630,0:35] ram[630,0:35] d5256 3 a5258 3 [631,0:35] ram[631,0:35] d5261 4 a5264 3 [632,0:35] ram[632,0:35] d5266 1 d5268 4 a5271 3 [633,0:35] ram[633,0:35] d5273 1 d5275 3 a5277 3 [634,0:35] ram[634,0:35] d5280 3 a5282 3 [635,0:35] ram[635,0:35] d5285 3 a5287 3 [636,0:35] ram[636,0:35] d5290 3 a5292 3 [637,0:35] ram[637,0:35] d5295 3 a5297 3 [638,0:35] ram[638,0:35] d5300 3 a5302 3 [639,0:35] ram[639,0:35] d5305 3 a5307 3 [640,0:35] ram[640,0:35] d5310 3 a5312 3 [641,0:35] ram[641,0:35] d5315 3 a5317 3 [642,0:35] ram[642,0:35] d5320 3 a5322 3 [643,0:35] ram[643,0:35] d5325 3 a5327 3 [644,0:35] ram[644,0:35] d5330 3 a5332 3 [645,0:35] ram[645,0:35] d5335 3 a5337 3 [646,0:35] ram[646,0:35] d5340 3 a5342 3 [647,0:35] ram[647,0:35] d5345 3 a5347 3 [648,0:35] ram[648,0:35] d5350 3 a5352 3 [649,0:35] ram[649,0:35] d5355 3 a5357 3 [650,0:35] ram[650,0:35] d5360 3 a5362 3 [651,0:35] ram[651,0:35] d5365 3 a5367 3 [652,0:35] ram[652,0:35] d5370 3 a5372 3 [653,0:35] ram[653,0:35] d5375 3 a5377 3 [654,0:35] ram[654,0:35] d5380 3 a5382 3 [655,0:35] ram[655,0:35] d5385 3 a5387 3 [656,0:35] ram[656,0:35] d5390 3 a5392 3 [657,0:35] ram[657,0:35] d5395 3 a5397 3 [658,0:35] ram[658,0:35] d5400 3 a5402 3 [659,0:35] ram[659,0:35] d5405 3 a5407 3 [660,0:35] ram[660,0:35] d5410 3 a5412 3 [661,0:35] ram[661,0:35] d5415 3 a5417 3 [662,0:35] ram[662,0:35] d5420 3 a5422 3 [663,0:35] ram[663,0:35] d5425 3 a5427 3 [664,0:35] ram[664,0:35] d5430 3 a5432 3 [665,0:35] ram[665,0:35] d5435 3 a5437 3 [666,0:35] ram[666,0:35] d5440 3 a5442 3 [667,0:35] ram[667,0:35] d5445 3 a5447 3 [668,0:35] ram[668,0:35] d5450 3 a5452 3 [669,0:35] ram[669,0:35] d5455 3 a5457 3 [670,0:35] ram[670,0:35] d5460 3 a5462 3 [671,0:35] ram[671,0:35] d5465 3 a5467 3 [672,0:35] ram[672,0:35] d5470 4 a5473 3 [673,0:35] ram[673,0:35] d5475 1 d5477 4 a5480 3 [674,0:35] ram[674,0:35] d5482 1 d5484 4 a5487 3 [675,0:35] ram[675,0:35] d5489 1 d5491 4 a5494 3 [676,0:35] ram[676,0:35] d5496 1 d5498 3 a5500 3 [677,0:35] ram[677,0:35] d5503 3 a5505 3 [678,0:35] ram[678,0:35] d5508 3 a5510 3 [679,0:35] ram[679,0:35] d5513 3 a5515 3 [680,0:35] ram[680,0:35] d5518 3 a5520 3 [681,0:35] ram[681,0:35] d5523 3 a5525 3 [682,0:35] ram[682,0:35] d5528 3 a5530 3 [683,0:35] ram[683,0:35] d5533 3 a5535 3 [684,0:35] ram[684,0:35] d5538 3 a5540 3 [685,0:35] ram[685,0:35] d5543 3 a5545 3 [686,0:35] ram[686,0:35] d5548 3 a5550 3 [687,0:35] ram[687,0:35] d5553 3 a5555 3 [688,0:35] ram[688,0:35] d5558 3 a5560 3 [689,0:35] ram[689,0:35] d5563 3 a5565 3 [690,0:35] ram[690,0:35] d5568 3 a5570 3 [691,0:35] ram[691,0:35] d5573 3 a5575 3 [692,0:35] ram[692,0:35] d5578 3 a5580 3 [693,0:35] ram[693,0:35] d5583 3 a5585 3 [694,0:35] ram[694,0:35] d5588 3 a5590 3 [695,0:35] ram[695,0:35] d5593 3 a5595 3 [696,0:35] ram[696,0:35] d5598 3 a5600 3 [697,0:35] ram[697,0:35] d5603 3 a5605 3 [698,0:35] ram[698,0:35] d5608 3 a5610 3 [699,0:35] ram[699,0:35] d5613 3 a5615 3 [700,0:35] ram[700,0:35] d5618 3 a5620 3 [701,0:35] ram[701,0:35] d5623 3 a5625 3 [702,0:35] ram[702,0:35] d5628 3 a5630 3 [703,0:35] ram[703,0:35] d5633 3 a5635 3 [704,0:35] ram[704,0:35] d5638 3 a5640 3 [705,0:35] ram[705,0:35] d5643 3 a5645 3 [706,0:35] ram[706,0:35] d5648 3 a5650 3 [707,0:35] ram[707,0:35] d5653 3 a5655 3 [708,0:35] ram[708,0:35] d5658 11 a5668 4 [709,0:35] ram[709,0:35] OCTALRADIX d5670 4 a5673 4 [710,0:35] ram[710,0:35] OCTALRADIX d5675 4 a5678 4 [711,0:35] ram[711,0:35] OCTALRADIX d5680 4 a5683 4 [712,0:35] ram[712,0:35] OCTALRADIX d5685 4 a5688 4 [713,0:35] ram[713,0:35] OCTALRADIX d5690 4 a5693 4 [714,0:35] ram[714,0:35] OCTALRADIX d5695 4 a5698 4 [715,0:35] ram[715,0:35] OCTALRADIX d5700 4 a5703 4 [716,0:35] ram[716,0:35] OCTALRADIX d5705 4 a5708 4 [717,0:35] ram[717,0:35] OCTALRADIX d5710 4 a5713 4 [718,0:35] ram[718,0:35] OCTALRADIX d5715 4 a5718 4 [719,0:35] ram[719,0:35] OCTALRADIX d5720 4 a5723 4 [720,0:35] ram[720,0:35] OCTALRADIX d5725 4 a5728 4 [721,0:35] ram[721,0:35] OCTALRADIX d5730 4 a5733 4 [722,0:35] ram[722,0:35] OCTALRADIX d5735 4 a5738 4 [723,0:35] ram[723,0:35] OCTALRADIX d5740 4 a5743 4 [724,0:35] ram[724,0:35] OCTALRADIX d5745 4 a5748 4 [725,0:35] ram[725,0:35] OCTALRADIX d5750 4 a5753 4 [726,0:35] ram[726,0:35] OCTALRADIX d5755 4 a5758 4 [727,0:35] ram[727,0:35] OCTALRADIX d5760 4 a5763 4 [728,0:35] ram[728,0:35] OCTALRADIX d5765 4 a5768 4 [729,0:35] ram[729,0:35] OCTALRADIX d5770 4 a5773 4 [730,0:35] ram[730,0:35] OCTALRADIX d5775 6 a5780 4 [731,0:35] ram[731,0:35] OCTALRADIX d5782 4 a5785 4 [732,0:35] ram[732,0:35] OCTALRADIX d5787 4 a5790 4 [733,0:35] ram[733,0:35] OCTALRADIX d5792 4 a5795 4 [734,0:35] ram[734,0:35] OCTALRADIX d5797 4 a5800 4 [735,0:35] ram[735,0:35] OCTALRADIX d5802 4 a5805 4 [736,0:35] ram[736,0:35] OCTALRADIX d5807 4 a5810 4 [737,0:35] ram[737,0:35] OCTALRADIX d5812 4 a5815 4 [738,0:35] ram[738,0:35] OCTALRADIX d5817 4 a5820 4 [739,0:35] ram[739,0:35] OCTALRADIX d5822 4 a5825 4 [740,0:35] ram[740,0:35] OCTALRADIX d5827 4 a5830 4 [741,0:35] ram[741,0:35] OCTALRADIX d5832 4 a5835 4 [742,0:35] ram[742,0:35] OCTALRADIX d5837 4 a5840 4 [743,0:35] ram[743,0:35] OCTALRADIX d5842 4 a5845 4 [744,0:35] ram[744,0:35] OCTALRADIX d5847 4 a5850 4 [745,0:35] ram[745,0:35] OCTALRADIX d5852 4 a5855 4 [746,0:35] ram[746,0:35] OCTALRADIX d5857 4 a5860 9 [747,0:35] ram[747,0:35] OCTALRADIX [748,0:35] ram[748,0:35] OCTALRADIX d5862 4 a5865 4 [749,0:35] ram[749,0:35] OCTALRADIX d5867 4 a5870 4 [750,0:35] ram[750,0:35] OCTALRADIX d5872 4 a5875 4 [751,0:35] ram[751,0:35] OCTALRADIX d5877 4 a5880 4 [752,0:35] ram[752,0:35] OCTALRADIX d5882 4 a5885 4 [753,0:35] ram[753,0:35] OCTALRADIX d5887 3 a5889 3 [754,0:35] ram[754,0:35] d5892 3 a5894 3 [755,0:35] ram[755,0:35] d5897 3 a5899 3 [756,0:35] ram[756,0:35] d5902 3 a5904 3 [757,0:35] ram[757,0:35] d5907 3 a5909 3 [758,0:35] ram[758,0:35] d5912 3 a5914 3 [759,0:35] ram[759,0:35] d5917 3 a5919 3 [760,0:35] ram[760,0:35] d5922 3 a5924 3 [761,0:35] ram[761,0:35] d5927 3 a5929 3 [762,0:35] ram[762,0:35] d5932 3 a5934 3 [763,0:35] ram[763,0:35] d5937 3 a5939 3 [764,0:35] ram[764,0:35] d5942 3 a5944 3 [765,0:35] ram[765,0:35] d5947 3 a5949 3 [766,0:35] ram[766,0:35] d5952 3 a5954 3 [767,0:35] ram[767,0:35] d5957 3 a5959 3 [768,0:35] ram[768,0:35] d5962 3 a5964 3 [769,0:35] ram[769,0:35] d5967 3 a5969 3 [770,0:35] ram[770,0:35] d5972 3 a5974 3 [771,0:35] ram[771,0:35] d5977 3 a5979 3 [772,0:35] ram[772,0:35] d5982 3 a5984 3 [773,0:35] ram[773,0:35] d5987 3 a5989 3 [774,0:35] ram[774,0:35] d5992 3 a5994 3 [775,0:35] ram[775,0:35] d5997 3 a5999 3 [776,0:35] ram[776,0:35] d6002 3 a6004 3 [777,0:35] ram[777,0:35] d6007 3 a6009 3 [778,0:35] ram[778,0:35] d6012 3 a6014 3 [779,0:35] ram[779,0:35] d6017 3 a6019 3 [780,0:35] ram[780,0:35] d6022 3 a6024 3 [781,0:35] ram[781,0:35] d6027 3 a6029 3 [782,0:35] ram[782,0:35] d6032 3 a6034 3 [783,0:35] ram[783,0:35] d6037 3 a6039 3 [784,0:35] ram[784,0:35] d6042 3 a6044 3 [785,0:35] ram[785,0:35] d6047 3 a6049 3 [786,0:35] ram[786,0:35] d6052 3 a6054 3 [787,0:35] ram[787,0:35] d6057 3 a6059 3 [788,0:35] ram[788,0:35] d6062 3 a6064 3 [789,0:35] ram[789,0:35] d6067 3 a6069 3 [790,0:35] ram[790,0:35] d6072 3 a6074 3 [791,0:35] ram[791,0:35] d6077 3 a6079 3 [792,0:35] ram[792,0:35] d6082 3 a6084 3 [793,0:35] ram[793,0:35] d6087 3 a6089 3 [794,0:35] ram[794,0:35] d6092 3 a6094 3 [795,0:35] ram[795,0:35] d6097 3 a6099 3 [796,0:35] ram[796,0:35] d6102 3 a6104 3 [797,0:35] ram[797,0:35] d6107 3 a6109 3 [798,0:35] ram[798,0:35] d6112 3 a6114 3 [799,0:35] ram[799,0:35] d6117 3 a6119 3 [800,0:35] ram[800,0:35] d6122 3 a6124 3 [801,0:35] ram[801,0:35] d6127 3 a6129 3 [802,0:35] ram[802,0:35] d6132 3 a6134 3 [803,0:35] ram[803,0:35] d6137 3 a6139 3 [804,0:35] ram[804,0:35] d6142 3 a6144 3 [805,0:35] ram[805,0:35] d6147 3 a6149 3 [806,0:35] ram[806,0:35] d6152 3 a6154 3 [807,0:35] ram[807,0:35] d6157 3 a6159 3 [808,0:35] ram[808,0:35] d6162 3 a6164 3 [809,0:35] ram[809,0:35] d6167 3 a6169 3 [810,0:35] ram[810,0:35] d6172 3 a6174 3 [811,0:35] ram[811,0:35] d6177 3 a6179 3 [812,0:35] ram[812,0:35] d6182 3 a6184 3 [813,0:35] ram[813,0:35] d6187 3 a6189 3 [814,0:35] ram[814,0:35] d6192 3 a6194 3 [815,0:35] ram[815,0:35] d6197 3 a6199 3 [816,0:35] ram[816,0:35] d6202 3 a6204 3 [817,0:35] ram[817,0:35] d6207 3 a6209 3 [818,0:35] ram[818,0:35] d6212 3 a6214 3 [819,0:35] ram[819,0:35] d6217 3 a6219 3 [820,0:35] ram[820,0:35] d6222 3 a6224 3 [821,0:35] ram[821,0:35] d6227 3 a6229 3 [822,0:35] ram[822,0:35] d6232 3 a6234 3 [823,0:35] ram[823,0:35] d6237 3 a6239 3 [824,0:35] ram[824,0:35] d6242 3 a6244 3 [825,0:35] ram[825,0:35] d6247 3 a6249 3 [826,0:35] ram[826,0:35] d6252 3 a6254 3 [827,0:35] ram[827,0:35] d6257 3 a6259 3 [828,0:35] ram[828,0:35] d6262 3 a6264 3 [829,0:35] ram[829,0:35] d6267 3 a6269 3 [830,0:35] ram[830,0:35] d6272 3 a6274 3 [831,0:35] ram[831,0:35] d6276 4 a6279 4 [832,0:35] ram[832,0:35] d6282 3 a6284 3 [833,0:35] ram[833,0:35] d6287 3 a6289 3 [834,0:35] ram[834,0:35] d6292 3 a6294 3 [835,0:35] ram[835,0:35] d6297 3 a6299 3 [836,0:35] ram[836,0:35] d6302 3 a6304 3 [837,0:35] ram[837,0:35] d6307 3 a6309 3 [838,0:35] ram[838,0:35] d6312 3 a6314 3 [839,0:35] ram[839,0:35] d6317 3 a6319 3 [840,0:35] ram[840,0:35] d6322 3 a6324 3 [841,0:35] ram[841,0:35] d6327 3 a6329 3 [842,0:35] ram[842,0:35] d6332 3 a6334 3 [843,0:35] ram[843,0:35] d6337 3 a6339 3 [844,0:35] ram[844,0:35] d6342 3 a6344 3 [845,0:35] ram[845,0:35] d6347 3 a6349 3 [846,0:35] ram[846,0:35] d6352 3 a6354 3 [847,0:35] ram[847,0:35] d6357 3 a6359 3 [848,0:35] ram[848,0:35] d6362 3 a6364 3 [849,0:35] ram[849,0:35] d6367 3 a6369 3 [850,0:35] ram[850,0:35] d6372 3 a6374 3 [851,0:35] ram[851,0:35] d6377 3 a6379 3 [852,0:35] ram[852,0:35] d6382 3 a6384 3 [853,0:35] ram[853,0:35] d6387 3 a6389 3 [854,0:35] ram[854,0:35] d6392 3 a6394 3 [855,0:35] ram[855,0:35] d6397 3 a6399 3 [856,0:35] ram[856,0:35] d6402 3 a6404 3 [857,0:35] ram[857,0:35] d6407 3 a6409 3 [858,0:35] ram[858,0:35] d6412 3 a6414 3 [859,0:35] ram[859,0:35] d6417 3 a6419 3 [860,0:35] ram[860,0:35] d6422 3 a6424 3 [861,0:35] ram[861,0:35] d6427 3 a6429 3 [862,0:35] ram[862,0:35] d6432 3 a6434 3 [863,0:35] ram[863,0:35] d6437 3 a6439 3 [864,0:35] ram[864,0:35] d6442 3 a6444 3 [865,0:35] ram[865,0:35] d6447 3 a6449 3 [866,0:35] ram[866,0:35] d6452 3 a6454 3 [867,0:35] ram[867,0:35] d6457 3 a6459 3 [868,0:35] ram[868,0:35] d6462 3 a6464 3 [869,0:35] ram[869,0:35] d6467 3 a6469 3 [870,0:35] ram[870,0:35] d6472 3 a6474 3 [871,0:35] ram[871,0:35] d6477 3 a6479 3 [872,0:35] ram[872,0:35] d6482 3 a6484 3 [873,0:35] ram[873,0:35] d6487 3 a6489 3 [874,0:35] ram[874,0:35] d6492 3 a6494 3 [875,0:35] ram[875,0:35] d6497 3 a6499 3 [876,0:35] ram[876,0:35] d6502 3 a6504 3 [877,0:35] ram[877,0:35] d6507 3 a6509 3 [878,0:35] ram[878,0:35] d6512 3 a6514 3 [879,0:35] ram[879,0:35] d6517 3 a6519 3 [880,0:35] ram[880,0:35] d6522 3 a6524 3 [881,0:35] ram[881,0:35] d6527 3 a6529 3 [882,0:35] ram[882,0:35] d6532 3 a6534 3 [883,0:35] ram[883,0:35] d6537 3 a6539 3 [884,0:35] ram[884,0:35] d6542 3 a6544 3 [885,0:35] ram[885,0:35] d6547 3 a6549 3 [886,0:35] ram[886,0:35] d6552 3 a6554 3 [887,0:35] ram[887,0:35] d6557 3 a6559 3 [888,0:35] ram[888,0:35] d6562 3 a6564 3 [889,0:35] ram[889,0:35] d6567 3 a6569 3 [890,0:35] ram[890,0:35] d6572 3 a6574 3 [891,0:35] ram[891,0:35] d6577 3 a6579 3 [892,0:35] ram[892,0:35] d6582 3 a6584 3 [893,0:35] ram[893,0:35] d6587 3 a6589 3 [894,0:35] ram[894,0:35] d6592 3 a6594 3 [895,0:35] ram[895,0:35] d6597 3 a6599 3 [896,0:35] ram[896,0:35] d6602 3 a6604 3 [897,0:35] ram[897,0:35] d6607 3 a6609 3 [898,0:35] ram[898,0:35] d6612 3 a6614 3 [899,0:35] ram[899,0:35] d6617 3 a6619 3 [900,0:35] ram[900,0:35] d6622 3 a6624 3 [901,0:35] ram[901,0:35] d6627 3 a6629 3 [902,0:35] ram[902,0:35] d6632 3 a6634 3 [903,0:35] ram[903,0:35] d6637 3 a6639 3 [904,0:35] ram[904,0:35] d6642 3 a6644 3 [905,0:35] ram[905,0:35] d6647 3 a6649 3 [906,0:35] ram[906,0:35] d6652 3 a6654 3 [907,0:35] ram[907,0:35] d6657 3 a6659 3 [908,0:35] ram[908,0:35] d6662 3 a6664 3 [909,0:35] ram[909,0:35] d6667 3 a6669 3 [910,0:35] ram[910,0:35] d6672 3 a6674 3 [911,0:35] ram[911,0:35] d6677 3 a6679 3 [912,0:35] ram[912,0:35] d6682 3 a6684 3 [913,0:35] ram[913,0:35] d6687 3 a6689 3 [914,0:35] ram[914,0:35] d6692 3 a6694 3 [915,0:35] ram[915,0:35] d6697 3 a6699 3 [916,0:35] ram[916,0:35] d6701 4 a6704 4 [917,0:35] ram[917,0:35] d6707 3 a6709 3 [918,0:35] ram[918,0:35] d6712 3 a6714 3 [919,0:35] ram[919,0:35] d6717 3 a6719 3 [920,0:35] ram[920,0:35] d6722 3 a6724 3 [921,0:35] ram[921,0:35] d6727 3 a6729 3 [922,0:35] ram[922,0:35] d6732 3 a6734 3 [923,0:35] ram[923,0:35] d6737 3 a6739 3 [924,0:35] ram[924,0:35] d6742 3 a6744 3 [925,0:35] ram[925,0:35] d6747 3 a6749 3 [926,0:35] ram[926,0:35] d6752 3 a6754 3 [927,0:35] ram[927,0:35] d6757 3 a6759 3 [928,0:35] ram[928,0:35] d6762 3 a6764 3 [929,0:35] ram[929,0:35] d6767 3 a6769 3 [930,0:35] ram[930,0:35] d6772 3 a6774 3 [931,0:35] ram[931,0:35] d6777 3 a6779 3 [932,0:35] ram[932,0:35] d6782 3 a6784 3 [933,0:35] ram[933,0:35] d6787 3 a6789 3 [934,0:35] ram[934,0:35] d6792 3 a6794 3 [935,0:35] ram[935,0:35] d6797 3 a6799 3 [936,0:35] ram[936,0:35] d6802 3 a6804 3 [937,0:35] ram[937,0:35] d6807 3 a6809 3 [938,0:35] ram[938,0:35] d6812 3 a6814 3 [939,0:35] ram[939,0:35] d6817 3 a6819 3 [940,0:35] ram[940,0:35] d6822 3 a6824 3 [941,0:35] ram[941,0:35] d6827 3 a6829 3 [942,0:35] ram[942,0:35] d6832 3 a6834 3 [943,0:35] ram[943,0:35] d6837 3 a6839 3 [944,0:35] ram[944,0:35] d6842 3 a6844 3 [945,0:35] ram[945,0:35] d6847 3 a6849 3 [946,0:35] ram[946,0:35] d6852 3 a6854 3 [947,0:35] ram[947,0:35] d6857 3 a6859 3 [948,0:35] ram[948,0:35] d6862 3 a6864 3 [949,0:35] ram[949,0:35] d6867 3 a6869 3 [950,0:35] ram[950,0:35] d6872 3 a6874 3 [951,0:35] ram[951,0:35] d6877 3 a6879 3 [952,0:35] ram[952,0:35] d6882 3 a6884 3 [953,0:35] ram[953,0:35] d6887 3 a6889 3 [954,0:35] ram[954,0:35] d6892 3 a6894 3 [955,0:35] ram[955,0:35] d6897 3 a6899 3 [956,0:35] ram[956,0:35] d6902 3 a6904 3 [957,0:35] ram[957,0:35] d6907 3 a6909 3 [958,0:35] ram[958,0:35] d6912 3 a6914 3 [959,0:35] ram[959,0:35] d6917 3 a6919 3 [960,0:35] ram[960,0:35] d6922 3 a6924 3 [961,0:35] ram[961,0:35] d6927 3 a6929 3 [962,0:35] ram[962,0:35] d6932 3 a6934 3 [963,0:35] ram[963,0:35] d6937 3 a6939 3 [964,0:35] ram[964,0:35] d6942 3 a6944 3 [965,0:35] ram[965,0:35] d6947 3 a6949 3 [966,0:35] ram[966,0:35] d6952 3 a6954 3 [967,0:35] ram[967,0:35] d6957 3 a6959 3 [968,0:35] ram[968,0:35] d6962 3 a6964 3 [969,0:35] ram[969,0:35] d6967 3 a6969 3 [970,0:35] ram[970,0:35] d6972 3 a6974 3 [971,0:35] ram[971,0:35] d6977 3 a6979 3 [972,0:35] ram[972,0:35] d6982 3 a6984 3 [973,0:35] ram[973,0:35] d6987 3 a6989 3 [974,0:35] ram[974,0:35] d6992 3 a6994 3 [975,0:35] ram[975,0:35] d6997 3 a6999 3 [976,0:35] ram[976,0:35] d7002 3 a7004 3 [977,0:35] ram[977,0:35] d7007 3 a7009 3 [978,0:35] ram[978,0:35] d7012 3 a7014 3 [979,0:35] ram[979,0:35] d7017 3 a7019 3 [980,0:35] ram[980,0:35] d7022 3 a7024 3 [981,0:35] ram[981,0:35] d7027 3 a7029 3 [982,0:35] ram[982,0:35] d7032 3 a7034 3 [983,0:35] ram[983,0:35] d7037 3 a7039 3 [984,0:35] ram[984,0:35] d7042 3 a7044 3 [985,0:35] ram[985,0:35] d7047 3 a7049 3 [986,0:35] ram[986,0:35] d7052 3 a7054 3 [987,0:35] ram[987,0:35] d7057 3 a7059 3 [988,0:35] ram[988,0:35] d7062 3 a7064 3 [989,0:35] ram[989,0:35] d7067 3 a7069 3 [990,0:35] ram[990,0:35] d7072 3 a7074 3 [991,0:35] ram[991,0:35] d7077 3 a7079 3 [992,0:35] ram[992,0:35] d7082 3 a7084 3 [993,0:35] ram[993,0:35] d7087 3 a7089 3 [994,0:35] ram[994,0:35] d7092 3 a7094 3 [995,0:35] ram[995,0:35] d7097 3 a7099 3 [996,0:35] ram[996,0:35] d7102 3 a7104 3 [997,0:35] ram[997,0:35] d7107 3 a7109 3 [998,0:35] ram[998,0:35] d7112 3 a7114 3 [999,0:35] ram[999,0:35] d7117 3 a7119 3 [1000,0:35] ram[1000,0:35] d7122 3 a7124 3 [1001,0:35] ram[1001,0:35] d7127 3 a7129 3 [1002,0:35] ram[1002,0:35] d7132 3 a7134 3 [1003,0:35] ram[1003,0:35] d7137 3 a7139 3 [1004,0:35] ram[1004,0:35] d7142 3 a7144 3 [1005,0:35] ram[1005,0:35] d7147 3 a7149 3 [1006,0:35] ram[1006,0:35] d7152 3 a7154 3 [1007,0:35] ram[1007,0:35] d7157 3 a7159 3 [1008,0:35] ram[1008,0:35] d7162 3 a7164 3 [1009,0:35] ram[1009,0:35] d7167 3 a7169 3 [1010,0:35] ram[1010,0:35] d7172 3 a7174 3 [1011,0:35] ram[1011,0:35] d7177 3 a7179 3 [1012,0:35] ram[1012,0:35] d7182 3 a7184 3 [1013,0:35] ram[1013,0:35] d7187 3 a7189 3 [1014,0:35] ram[1014,0:35] d7192 3 a7194 3 [1015,0:35] ram[1015,0:35] d7197 3 a7199 3 [1016,0:35] ram[1016,0:35] d7202 3 a7204 3 [1017,0:35] ram[1017,0:35] d7207 3 a7209 3 [1018,0:35] ram[1018,0:35] d7212 3 a7214 3 [1019,0:35] ram[1019,0:35] d7217 3 a7219 3 [1020,0:35] ram[1020,0:35] d7222 3 a7224 3 [1021,0:35] ram[1021,0:35] d7227 3 a7229 3 [1022,0:35] ram[1022,0:35] d7232 3 a7234 3 [1023,0:35] ram[1023,0:35] d7237 3 a7239 275 regIR[0:17] regIR[0:17] OCTALRADIX sc[0:9] sc[0:9] UNSIGNEDDECRADIX timerCOUNT[18:35] timerCOUNT[18:35] OCTALRADIX vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX pi_new[0:2] pi_new[0:2] OCTALRADIX currBLOCK[0:2] currBLOCK[0:2] OCTALRADIX prevBLOCK[0:2] prevBLOCK[0:2] 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 #0000ff vmaEN vmaEN true #0000ff vmaSWEEP vmaSWEEP true #0000ff cacheSWEEP cacheSWEEP true #0000ff dispatch label 128 128 255 230 230 230 crom[0:107] crom[0:107] OCTALRADIX dispDROM_B[8:11] dispDROM_B[8:11] OCTALRADIX dispDROM_A[8:11] dispDROM_A[8:11] OCTALRADIX dispNORM[8:11] dispNORM[8:11] OCTALRADIX dispSCAD[8:11] dispSCAD[8:11] OCTALRADIX dispEA[8:11] dispEA[8:11] OCTALRADIX dispBYTE[8:11] dispBYTE[8:11] OCTALRADIX dispNI[8:11] dispNI[8:11] OCTALRADIX dispPF[8:11] dispPF[8:11] OCTALRADIX dispMUL[8:11] dispMUL[8:11] OCTALRADIX dispAREAD[0:11] dispAREAD[0:11] OCTALRADIX dispJ[0:11] dispJ[0:11] OCTALRADIX dispRET[0:11] dispRET[0:11] OCTALRADIX dispDIAG[0:11] dispDIAG[0:11] OCTALRADIX dp[0:35] dp[0:35] OCTALRADIX Sequencer label 128 128 255 230 230 230 addr[0:11] addr[0:11] OCTALRADIX dispADDR[0:11] dispADDR[0:11] OCTALRADIX skipADDR[0:11] skipADDR[0:11] OCTALRADIX call call ret ret sp[0:3] sp[0:3] wp[0:3] wp[0:3] stack[0:15,0:11] stack[0:15,0:11] OCTALRADIX [0,0:11] stack[0,0:11] d7242 3 a7244 3 [1,0:11] stack[1,0:11] d7247 3 a7249 3 [2,0:11] stack[2,0:11] d7252 3 a7254 3 [3,0:11] stack[3,0:11] d7257 3 a7259 3 [4,0:11] stack[4,0:11] d7262 3 a7264 3 [5,0:11] stack[5,0:11] d7267 3 a7269 3 [6,0:11] stack[6,0:11] d7272 3 a7274 3 [7,0:11] stack[7,0:11] d7277 3 a7279 3 [8,0:11] stack[8,0:11] d7282 3 a7284 3 [9,0:11] stack[9,0:11] d7287 3 a7289 3 [10,0:11] stack[10,0:11] d7292 3 a7294 3 [11,0:11] stack[11,0:11] d7297 3 a7299 3 [12,0:11] stack[12,0:11] d7302 3 a7304 3 [13,0:11] stack[13,0:11] d7307 3 a7309 3 [14,0:11] stack[14,0:11] d7312 3 a7314 3 [15,0:11] stack[15,0:11] d7317 4 a7320 59 drom[0:35] drom[0:35] OCTALRADIX ALU (36 Bit) label 128 128 255 230 230 230 OCTALRADIX aluZERO aluZERO aluLZero aluLZero aluRZero aluRZero aluLSign aluLSign aluRSign aluRSign 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] d7322 4 a7325 3 [10,3] aluRAM[10,3] d7327 4 a7330 3 [10,4] aluRAM[10,4] d7332 4 a7335 3 [10,5] aluRAM[10,5] d7337 4 a7340 3 [10,6] aluRAM[10,6] d7342 4 a7345 3 [10,7] aluRAM[10,7] d7347 4 a7350 3 [10,8] aluRAM[10,8] d7352 4 a7355 3 [10,9] aluRAM[10,9] d7357 4 a7360 3 [10,10] aluRAM[10,10] d7362 4 a7365 3 [10,11] aluRAM[10,11] d7367 4 a7370 3 [10,12] aluRAM[10,12] d7372 4 a7375 3 [10,13] aluRAM[10,13] d7377 4 a7380 3 [10,14] aluRAM[10,14] d7382 4 a7385 3 [10,15] aluRAM[10,15] d7387 4 a7390 3 [10,16] aluRAM[10,16] d7392 4 a7395 3 [10,17] aluRAM[10,17] d7397 4 a7400 3 [10,18] aluRAM[10,18] d7402 4 a7405 3 [10,19] aluRAM[10,19] d7407 4 a7410 3 [10,20] aluRAM[10,20] d7412 4 a7415 3 [10,21] aluRAM[10,21] d7417 4 a7420 3 [10,22] aluRAM[10,22] d7422 4 a7425 3 [10,23] aluRAM[10,23] d7427 4 a7430 3 [10,24] aluRAM[10,24] d7432 4 a7435 3 [10,25] aluRAM[10,25] d7437 4 a7440 3 [10,26] aluRAM[10,26] d7442 4 a7445 3 [10,27] aluRAM[10,27] d7447 4 a7450 3 [10,28] aluRAM[10,28] d7452 4 a7455 3 [10,29] aluRAM[10,29] d7457 4 a7460 3 [10,30] aluRAM[10,30] d7462 4 a7465 3 [10,31] aluRAM[10,31] d7467 4 a7470 3 [10,32] aluRAM[10,32] d7472 4 a7475 3 [10,33] aluRAM[10,33] d7477 4 a7480 3 [10,34] aluRAM[10,34] d7482 4 a7485 3 [10,35] aluRAM[10,35] d7487 4 a7490 3 [10,36] aluRAM[10,36] d7492 4 a7495 3 [10,37] aluRAM[10,37] d7497 4 a7500 8 bdi[0:35] label OCTALRADIX [2] bdi[2] d7502 4 a7505 3 [3] bdi[3] d7507 4 a7510 3 [4] bdi[4] d7512 4 a7515 3 [5] bdi[5] d7517 4 a7520 3 [6] bdi[6] d7522 4 a7525 3 [7] bdi[7] d7527 4 a7530 3 [8] bdi[8] d7532 4 a7535 3 [9] bdi[9] d7537 4 a7540 3 [10] bdi[10] d7542 4 a7545 3 [11] bdi[11] d7547 4 a7550 3 [12] bdi[12] d7552 4 a7555 3 [13] bdi[13] d7557 4 a7560 3 [14] bdi[14] d7562 4 a7565 7 [15] bdi[15] [16] bdi[16] d7567 4 a7570 3 [17] bdi[17] d7572 4 a7575 3 [18] bdi[18] d7577 4 a7580 3 [19] bdi[19] d7582 4 a7585 3 [20] bdi[20] d7587 4 a7590 3 [21] bdi[21] d7592 4 a7595 3 [22] bdi[22] d7597 4 a7600 3 [23] bdi[23] d7602 4 a7605 3 [24] bdi[24] d7607 4 a7610 3 [25] bdi[25] d7612 4 a7615 3 [26] bdi[26] d7617 4 a7620 3 [27] bdi[27] d7622 4 a7625 3 [28] bdi[28] d7627 4 a7630 3 [29] bdi[29] d7632 4 a7635 3 [30] bdi[30] d7637 4 a7640 3 [31] bdi[31] d7642 4 a7645 3 [32] bdi[32] d7647 4 a7650 3 [33] bdi[33] d7652 4 a7655 3 [34] bdi[34] d7657 4 a7660 3 [35] bdi[35] d7662 4 a7665 3 [36] bdi[36] d7667 4 a7670 3 [37] bdi[37] d7672 4 a7675 8 ad[0:35] label OCTALRADIX [2] ad[2] d7677 4 a7680 3 [3] ad[3] d7682 4 a7685 3 [4] ad[4] d7687 4 a7690 3 [5] ad[5] d7692 4 a7695 3 [6] ad[6] d7697 4 a7700 3 [7] ad[7] d7702 4 a7705 3 [8] ad[8] d7707 4 a7710 3 [9] ad[9] d7712 4 a7715 3 [10] ad[10] d7717 4 a7720 3 [11] ad[11] d7722 4 a7725 3 [12] ad[12] d7727 4 a7730 3 [13] ad[13] d7732 4 a7735 3 [14] ad[14] d7737 4 a7740 3 [15] ad[15] d7742 4 a7745 3 [16] ad[16] d7747 4 a7750 3 [17] ad[17] d7752 4 a7755 3 [18] ad[18] d7757 4 a7760 3 [19] ad[19] d7762 4 a7765 3 [20] ad[20] d7767 4 a7770 3 [21] ad[21] d7772 4 a7775 3 [22] ad[22] d7777 4 a7780 3 [23] ad[23] d7782 4 a7785 3 [24] ad[24] d7787 4 a7790 3 [25] ad[25] d7792 4 a7795 3 [26] ad[26] d7797 4 a7800 3 [27] ad[27] d7802 4 a7805 3 [28] ad[28] d7807 4 a7810 3 [29] ad[29] d7812 4 a7815 3 [30] ad[30] d7817 4 a7820 3 [31] ad[31] d7822 4 a7825 3 [32] ad[32] d7827 4 a7830 3 [33] ad[33] d7832 4 a7835 3 [34] ad[34] d7837 4 a7840 3 [35] ad[35] d7842 4 a7845 3 [36] ad[36] d7847 4 a7850 3 [37] ad[37] d7852 4 a7855 8 bd[0:35] label OCTALRADIX [2] bd[2] d7857 4 a7860 3 [3] bd[3] d7862 4 a7865 3 [4] bd[4] d7867 4 a7870 3 [5] bd[5] d7872 4 a7875 3 [6] bd[6] d7877 4 a7880 3 [7] bd[7] d7882 4 a7885 3 [8] bd[8] d7887 4 a7890 3 [9] bd[9] d7892 4 a7895 3 [10] bd[10] d7897 4 a7900 3 [11] bd[11] d7902 4 a7905 3 [12] bd[12] d7907 4 a7910 3 [13] bd[13] d7912 4 a7915 3 [14] bd[14] d7917 4 a7920 3 [15] bd[15] d7922 4 a7925 3 [16] bd[16] d7927 4 a7930 3 [17] bd[17] d7932 4 a7935 3 [18] bd[18] d7937 4 a7940 3 [19] bd[19] d7942 4 a7945 3 [20] bd[20] d7947 4 a7950 3 [21] bd[21] d7952 4 a7955 3 [22] bd[22] d7957 4 a7960 3 [23] bd[23] d7962 4 a7965 3 [24] bd[24] d7967 4 a7970 3 [25] bd[25] d7972 4 a7975 3 [26] bd[26] d7977 4 a7980 3 [27] bd[27] d7982 4 a7985 3 [28] bd[28] d7987 4 a7990 3 [29] bd[29] d7992 4 a7995 3 [30] bd[30] d7997 4 a8000 3 [31] bd[31] d8002 4 a8005 3 [32] bd[32] d8007 4 a8010 3 [33] bd[33] d8012 4 a8015 3 [34] bd[34] d8017 4 a8020 3 [35] bd[35] d8022 4 a8025 3 [36] bd[36] d8027 4 a8030 3 [37] bd[37] d8032 4 a8035 8 f[0:35] label OCTALRADIX [2] f[2] d8037 4 a8040 3 [3] f[3] d8042 4 a8045 3 [4] f[4] d8047 4 a8050 3 [5] f[5] d8052 4 a8055 3 [6] f[6] d8057 4 a8060 3 [7] f[7] d8062 4 a8065 3 [8] f[8] d8067 4 a8070 3 [9] f[9] d8072 4 a8075 3 [10] f[10] d8077 4 a8080 3 [11] f[11] d8082 4 a8085 3 [12] f[12] d8087 4 a8090 3 [13] f[13] d8092 4 a8095 3 [14] f[14] d8097 4 a8100 7 [15] f[15] [16] f[16] d8102 4 a8105 3 [17] f[17] d8107 4 a8110 3 [18] f[18] d8112 4 a8115 3 [19] f[19] d8117 4 a8120 3 [20] f[20] d8122 4 a8125 3 [21] f[21] d8127 4 a8130 3 [22] f[22] d8132 4 a8135 3 [23] f[23] d8137 4 a8140 3 [24] f[24] d8142 4 a8145 3 [25] f[25] d8147 4 a8150 3 [26] f[26] d8152 4 a8155 3 [27] f[27] d8157 4 a8160 3 [28] f[28] d8162 4 a8165 3 [29] f[29] d8167 4 a8170 3 [30] f[30] d8172 4 a8175 3 [31] f[31] d8177 4 a8180 3 [32] f[32] d8182 4 a8185 3 [33] f[33] d8187 4 a8190 3 [34] f[34] d8192 4 a8195 3 [35] f[35] d8197 4 a8200 3 [36] f[36] d8202 4 a8205 3 [37] f[37] d8207 4 a8210 8 0: MAG[0:35] label OCTALRADIX [0,2] aluRAM[0,2] d8212 4 a8215 3 [0,3] aluRAM[0,3] d8217 4 a8220 3 [0,4] aluRAM[0,4] d8222 4 a8225 3 [0,5] aluRAM[0,5] d8227 4 a8230 3 [0,6] aluRAM[0,6] d8232 4 a8235 3 [0,7] aluRAM[0,7] d8237 4 a8240 3 [0,8] aluRAM[0,8] d8242 4 a8245 3 [0,9] aluRAM[0,9] d8247 4 a8250 3 [0,10] aluRAM[0,10] d8252 4 a8255 3 [0,11] aluRAM[0,11] d8257 4 a8260 3 [0,12] aluRAM[0,12] d8262 4 a8265 3 [0,13] aluRAM[0,13] d8267 4 a8270 3 [0,14] aluRAM[0,14] d8272 4 a8275 3 [0,15] aluRAM[0,15] d8277 4 a8280 3 [0,16] aluRAM[0,16] d8282 4 a8285 3 [0,17] aluRAM[0,17] d8287 4 a8290 3 [0,18] aluRAM[0,18] d8292 4 a8295 3 [0,19] aluRAM[0,19] d8297 4 a8300 3 [0,20] aluRAM[0,20] d8302 4 a8305 3 [0,21] aluRAM[0,21] d8307 4 a8310 3 [0,22] aluRAM[0,22] d8312 4 a8315 3 [0,23] aluRAM[0,23] d8317 4 a8320 3 [0,24] aluRAM[0,24] d8322 4 a8325 3 [0,25] aluRAM[0,25] d8327 4 a8330 3 [0,26] aluRAM[0,26] d8332 4 a8335 3 [0,27] aluRAM[0,27] d8337 4 a8340 3 [0,28] aluRAM[0,28] d8342 4 a8345 3 [0,29] aluRAM[0,29] d8347 4 a8350 3 [0,30] aluRAM[0,30] d8352 4 a8355 3 [0,31] aluRAM[0,31] d8357 4 a8360 3 [0,32] aluRAM[0,32] d8362 4 a8365 3 [0,33] aluRAM[0,33] d8367 4 a8370 3 [0,34] aluRAM[0,34] d8372 4 a8375 3 [0,35] aluRAM[0,35] d8377 4 a8380 3 [0,36] aluRAM[0,36] d8382 4 a8385 3 [0,37] aluRAM[0,37] d8387 4 a8390 8 1: PC[0:35] label OCTALRADIX [1,2] aluRAM[1,2] d8392 4 a8395 3 [1,3] aluRAM[1,3] d8397 4 a8400 3 [1,4] aluRAM[1,4] d8402 4 a8405 3 [1,5] aluRAM[1,5] d8407 4 a8410 3 [1,6] aluRAM[1,6] d8412 4 a8415 3 [1,7] aluRAM[1,7] d8417 4 a8420 3 [1,8] aluRAM[1,8] d8422 4 a8425 3 [1,9] aluRAM[1,9] d8427 4 a8430 3 [1,10] aluRAM[1,10] d8432 4 a8435 3 [1,11] aluRAM[1,11] d8437 4 a8440 3 [1,12] aluRAM[1,12] d8442 4 a8445 3 [1,13] aluRAM[1,13] d8447 4 a8450 3 [1,14] aluRAM[1,14] d8452 4 a8455 3 [1,15] aluRAM[1,15] d8457 4 a8460 3 [1,16] aluRAM[1,16] d8462 4 a8465 3 [1,17] aluRAM[1,17] d8467 4 a8470 3 [1,18] aluRAM[1,18] d8472 4 a8475 3 [1,19] aluRAM[1,19] d8477 4 a8480 3 [1,20] aluRAM[1,20] d8482 4 a8485 3 [1,21] aluRAM[1,21] d8487 4 a8490 3 [1,22] aluRAM[1,22] d8492 4 a8495 3 [1,23] aluRAM[1,23] d8497 4 a8500 3 [1,24] aluRAM[1,24] d8502 4 a8505 3 [1,25] aluRAM[1,25] d8507 4 a8510 3 [1,26] aluRAM[1,26] d8512 4 a8515 3 [1,27] aluRAM[1,27] d8517 4 a8520 3 [1,28] aluRAM[1,28] d8522 4 a8525 3 [1,29] aluRAM[1,29] d8527 4 a8530 3 [1,30] aluRAM[1,30] d8532 4 a8535 3 [1,31] aluRAM[1,31] d8537 4 a8540 3 [1,32] aluRAM[1,32] d8542 4 a8545 3 [1,33] aluRAM[1,33] d8547 4 a8550 3 [1,34] aluRAM[1,34] d8552 4 a8555 3 [1,35] aluRAM[1,35] d8557 4 a8560 3 [1,36] aluRAM[1,36] d8562 4 a8565 3 [1,37] aluRAM[1,37] d8567 4 a8570 8 2: HR[0:35] label OCTALRADIX [2,2] aluRAM[2,2] d8572 4 a8575 3 [2,3] aluRAM[2,3] d8577 4 a8580 3 [2,4] aluRAM[2,4] d8582 4 a8585 3 [2,5] aluRAM[2,5] d8587 4 a8590 3 [2,6] aluRAM[2,6] d8592 4 a8595 3 [2,7] aluRAM[2,7] d8597 4 a8600 3 [2,8] aluRAM[2,8] d8602 4 a8605 3 [2,9] aluRAM[2,9] d8607 4 a8610 3 [2,10] aluRAM[2,10] d8612 4 a8615 3 [2,11] aluRAM[2,11] d8617 4 a8620 3 [2,12] aluRAM[2,12] d8622 4 a8625 3 [2,13] aluRAM[2,13] d8627 4 a8630 3 [2,14] aluRAM[2,14] d8632 4 a8635 7 [2,15] aluRAM[2,15] [2,16] aluRAM[2,16] d8637 4 a8640 3 [2,17] aluRAM[2,17] d8642 4 a8645 3 [2,18] aluRAM[2,18] d8647 4 a8650 3 [2,19] aluRAM[2,19] d8652 4 a8655 3 [2,20] aluRAM[2,20] d8657 4 a8660 3 [2,21] aluRAM[2,21] d8662 4 a8665 3 [2,22] aluRAM[2,22] d8667 4 a8670 3 [2,23] aluRAM[2,23] d8672 4 a8675 3 [2,24] aluRAM[2,24] d8677 4 a8680 3 [2,25] aluRAM[2,25] d8682 4 a8685 3 [2,26] aluRAM[2,26] d8687 4 a8690 3 [2,27] aluRAM[2,27] d8692 4 a8695 3 [2,28] aluRAM[2,28] d8697 4 a8700 3 [2,29] aluRAM[2,29] d8702 4 a8705 3 [2,30] aluRAM[2,30] d8707 4 a8710 3 [2,31] aluRAM[2,31] d8712 4 a8715 3 [2,32] aluRAM[2,32] d8717 4 a8720 3 [2,33] aluRAM[2,33] d8722 4 a8725 3 [2,34] aluRAM[2,34] d8727 4 a8730 3 [2,35] aluRAM[2,35] d8732 4 a8735 3 [2,36] aluRAM[2,36] d8737 4 a8740 3 [2,37] aluRAM[2,37] d8742 4 a8745 8 3: AR[0:35] label OCTALRADIX [3,2] aluRAM[3,2] d8747 4 a8750 3 [3,3] aluRAM[3,3] d8752 4 a8755 3 [3,4] aluRAM[3,4] d8757 4 a8760 3 [3,5] aluRAM[3,5] d8762 4 a8765 3 [3,6] aluRAM[3,6] d8767 4 a8770 3 [3,7] aluRAM[3,7] d8772 4 a8775 3 [3,8] aluRAM[3,8] d8777 4 a8780 3 [3,9] aluRAM[3,9] d8782 4 a8785 3 [3,10] aluRAM[3,10] d8787 4 a8790 3 [3,11] aluRAM[3,11] d8792 4 a8795 3 [3,12] aluRAM[3,12] d8797 4 a8800 3 [3,13] aluRAM[3,13] d8802 4 a8805 3 [3,14] aluRAM[3,14] d8807 4 a8810 3 [3,15] aluRAM[3,15] d8812 4 a8815 3 [3,16] aluRAM[3,16] d8817 4 a8820 3 [3,17] aluRAM[3,17] d8822 4 a8825 3 [3,18] aluRAM[3,18] d8827 4 a8830 3 [3,19] aluRAM[3,19] d8832 4 a8835 3 [3,20] aluRAM[3,20] d8837 4 a8840 3 [3,21] aluRAM[3,21] d8842 4 a8845 3 [3,22] aluRAM[3,22] d8847 4 a8850 3 [3,23] aluRAM[3,23] d8852 4 a8855 3 [3,24] aluRAM[3,24] d8857 4 a8860 3 [3,25] aluRAM[3,25] d8862 4 a8865 3 [3,26] aluRAM[3,26] d8867 4 a8870 3 [3,27] aluRAM[3,27] d8872 4 a8875 3 [3,28] aluRAM[3,28] d8877 4 a8880 3 [3,29] aluRAM[3,29] d8882 4 a8885 3 [3,30] aluRAM[3,30] d8887 4 a8890 3 [3,31] aluRAM[3,31] d8892 4 a8895 3 [3,32] aluRAM[3,32] d8897 4 a8900 3 [3,33] aluRAM[3,33] d8902 4 a8905 3 [3,34] aluRAM[3,34] d8907 4 a8910 3 [3,35] aluRAM[3,35] d8912 4 a8915 3 [3,36] aluRAM[3,36] d8917 4 a8920 3 [3,37] aluRAM[3,37] d8922 4 a8925 8 4: ARX[0:35] label HEXRADIX [4,2] aluRAM[4,2] d8927 4 a8930 3 [4,3] aluRAM[4,3] d8932 4 a8935 3 [4,4] aluRAM[4,4] d8937 4 a8940 3 [4,5] aluRAM[4,5] d8942 4 a8945 3 [4,6] aluRAM[4,6] d8947 4 a8950 3 [4,7] aluRAM[4,7] d8952 4 a8955 3 [4,8] aluRAM[4,8] d8957 4 a8960 3 [4,9] aluRAM[4,9] d8962 4 a8965 3 [4,10] aluRAM[4,10] d8967 4 a8970 3 [4,11] aluRAM[4,11] d8972 4 a8975 3 [4,12] aluRAM[4,12] d8977 4 a8980 3 [4,13] aluRAM[4,13] d8982 4 a8985 3 [4,14] aluRAM[4,14] d8987 4 a8990 3 [4,15] aluRAM[4,15] d8992 4 a8995 3 [4,16] aluRAM[4,16] d8997 4 a9000 3 [4,17] aluRAM[4,17] d9002 4 a9005 3 [4,18] aluRAM[4,18] d9007 4 a9010 3 [4,19] aluRAM[4,19] d9012 4 a9015 3 [4,20] aluRAM[4,20] d9017 4 a9020 3 [4,21] aluRAM[4,21] d9022 4 a9025 3 [4,22] aluRAM[4,22] d9027 4 a9030 3 [4,23] aluRAM[4,23] d9032 4 a9035 3 [4,24] aluRAM[4,24] d9037 4 a9040 3 [4,25] aluRAM[4,25] d9042 4 a9045 3 [4,26] aluRAM[4,26] d9047 4 a9050 3 [4,27] aluRAM[4,27] d9052 4 a9055 3 [4,28] aluRAM[4,28] d9057 4 a9060 3 [4,29] aluRAM[4,29] d9062 4 a9065 3 [4,30] aluRAM[4,30] d9067 4 a9070 3 [4,31] aluRAM[4,31] d9072 4 a9075 3 [4,32] aluRAM[4,32] d9077 4 a9080 3 [4,33] aluRAM[4,33] d9082 4 a9085 3 [4,34] aluRAM[4,34] d9087 4 a9090 3 [4,35] aluRAM[4,35] d9092 4 a9095 3 [4,36] aluRAM[4,36] d9097 4 a9100 3 [4,37] aluRAM[4,37] d9102 4 a9105 8 5: BR[0:35] label HEXRADIX [5,2] aluRAM[5,2] d9107 4 a9110 3 [5,3] aluRAM[5,3] d9112 4 a9115 3 [5,4] aluRAM[5,4] d9117 4 a9120 3 [5,5] aluRAM[5,5] d9122 4 a9125 3 [5,6] aluRAM[5,6] d9127 4 a9130 3 [5,7] aluRAM[5,7] d9132 4 a9135 3 [5,8] aluRAM[5,8] d9137 4 a9140 3 [5,9] aluRAM[5,9] d9142 4 a9145 3 [5,10] aluRAM[5,10] d9147 4 a9150 3 [5,11] aluRAM[5,11] d9152 4 a9155 3 [5,12] aluRAM[5,12] d9157 4 a9160 3 [5,13] aluRAM[5,13] d9162 4 a9165 3 [5,14] aluRAM[5,14] d9167 4 a9170 3 [5,15] aluRAM[5,15] d9172 4 a9175 3 [5,16] aluRAM[5,16] d9177 4 a9180 3 [5,17] aluRAM[5,17] d9182 4 a9185 3 [5,18] aluRAM[5,18] d9187 4 a9190 3 [5,19] aluRAM[5,19] d9192 4 a9195 3 [5,20] aluRAM[5,20] d9197 4 a9200 3 [5,21] aluRAM[5,21] d9202 4 a9205 3 [5,22] aluRAM[5,22] d9207 4 a9210 3 [5,23] aluRAM[5,23] d9212 4 a9215 3 [5,24] aluRAM[5,24] d9217 4 a9220 3 [5,25] aluRAM[5,25] d9222 4 a9225 3 [5,26] aluRAM[5,26] d9227 4 a9230 3 [5,27] aluRAM[5,27] d9232 4 a9235 3 [5,28] aluRAM[5,28] d9237 4 a9240 3 [5,29] aluRAM[5,29] d9242 4 a9245 3 [5,30] aluRAM[5,30] d9247 4 a9250 3 [5,31] aluRAM[5,31] d9252 4 a9255 3 [5,32] aluRAM[5,32] d9257 4 a9260 3 [5,33] aluRAM[5,33] d9262 4 a9265 3 [5,34] aluRAM[5,34] d9267 4 a9270 3 [5,35] aluRAM[5,35] d9272 4 a9275 3 [5,36] aluRAM[5,36] d9277 4 a9280 3 [5,37] aluRAM[5,37] d9282 4 a9285 8 6: BRX[0:35] label OCTALRADIX [6,2] aluRAM[6,2] d9287 4 a9290 3 [6,3] aluRAM[6,3] d9292 4 a9295 3 [6,4] aluRAM[6,4] d9297 4 a9300 3 [6,5] aluRAM[6,5] d9302 4 a9305 3 [6,6] aluRAM[6,6] d9307 4 a9310 3 [6,7] aluRAM[6,7] d9312 4 a9315 3 [6,8] aluRAM[6,8] d9317 4 a9320 3 [6,9] aluRAM[6,9] d9322 4 a9325 3 [6,10] aluRAM[6,10] d9327 4 a9330 3 [6,11] aluRAM[6,11] d9332 4 a9335 3 [6,12] aluRAM[6,12] d9337 4 a9340 3 [6,13] aluRAM[6,13] d9342 4 a9345 3 [6,14] aluRAM[6,14] d9347 4 a9350 3 [6,15] aluRAM[6,15] d9352 4 a9355 3 [6,16] aluRAM[6,16] d9357 4 a9360 3 [6,17] aluRAM[6,17] d9362 4 a9365 3 [6,18] aluRAM[6,18] d9367 4 a9370 3 [6,19] aluRAM[6,19] d9372 4 a9375 3 [6,20] aluRAM[6,20] d9377 4 a9380 3 [6,21] aluRAM[6,21] d9382 4 a9385 3 [6,22] aluRAM[6,22] d9387 4 a9390 3 [6,23] aluRAM[6,23] d9392 4 a9395 3 [6,24] aluRAM[6,24] d9397 4 a9400 3 [6,25] aluRAM[6,25] d9402 4 a9405 3 [6,26] aluRAM[6,26] d9407 4 a9410 3 [6,27] aluRAM[6,27] d9412 4 a9415 3 [6,28] aluRAM[6,28] d9417 4 a9420 3 [6,29] aluRAM[6,29] d9422 4 a9425 3 [6,30] aluRAM[6,30] d9427 4 a9430 3 [6,31] aluRAM[6,31] d9432 4 a9435 3 [6,32] aluRAM[6,32] d9437 4 a9440 3 [6,33] aluRAM[6,33] d9442 4 a9445 3 [6,34] aluRAM[6,34] d9447 4 a9450 3 [6,35] aluRAM[6,35] d9452 4 a9455 3 [6,36] aluRAM[6,36] d9457 4 a9460 3 [6,37] aluRAM[6,37] d9462 3 a9464 8 R3: BIN0[0:35] label HEXRADIX [3,0:35] ram[3,0:35] d9467 3 a9469 8 R4: BIN1[0:35] label HEXRADIX [4,0:35] ram[4,0:35] d9472 4 a9475 13 regIR[0:17] regIR[0:17] OCTALRADIX IR OPCODE label OCTALRADIX [0] regIR[0] d9477 4 a9480 3 [1] regIR[1] d9482 4 a9485 3 [2] regIR[2] d9487 4 a9490 3 [3] regIR[3] d9492 4 a9495 3 [4] regIR[4] d9497 4 a9500 3 [5] regIR[5] d9502 4 a9505 3 [6] regIR[6] d9507 4 a9510 3 [7] regIR[7] d9512 4 a9515 3 [8] regIR[8] d9517 4 a9520 8 IR AC label OCTALRADIX [9] regIR[9] d9522 4 a9525 3 [10] regIR[10] d9527 4 a9530 3 [11] regIR[11] d9532 4 a9535 3 [12] regIR[12] d9537 4 a9540 8 IR I label OCTALRADIX [13] regIR[13] d9542 4 a9545 8 IR X label OCTALRADIX [14] regIR[14] d9547 4 a9550 3 [15] regIR[15] d9552 4 a9555 3 [16] regIR[16] d9557 4 a9560 3 [17] regIR[17] d9562 3 a9564 59 dbus[0:35] dbus[0:35] OCTALRADIX true #0000ff loadIR loadIR true #0000ff loadXR loadXR true #0000ff addr[0:11] addr[0:11] OCTALRADIX ALU (40 Bit) label 128 128 255 230 230 230 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] 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] a9565 1 0: MAG[0:39] d9567 3 a9569 4 label [1,0:39] aluRAM[1,0:39] a9570 1 1: PC[0:39] d9572 3 a9574 4 label [2,0:39] aluRAM[2,0:39] a9575 1 2: HR[0:39] d9577 3 a9579 4 label [3,0:39] aluRAM[3,0:39] a9580 1 3: AR[0:39] d9582 3 a9584 4 label [4,0:39] aluRAM[4,0:39] a9585 1 4: ARX[0:39] d9587 3 a9589 4 label [5,0:39] aluRAM[5,0:39] a9590 1 5: BR[0:39] d9592 3 a9594 4 label [6,0:39] aluRAM[6,0:39] a9595 1 6: BRX[0:39] d9597 3 a9599 4 label [7,0:39] aluRAM[7,0:39] a9600 1 7: ONE[0:39] d9602 3 a9604 4 label [8,0:39] aluRAM[8,0:39] a9605 1 10: EBR[0:39] d9607 3 a9609 4 label [9,0:39] aluRAM[9,0:39] a9610 1 11: UBR[0:39] d9612 3 a9614 4 label [10,0:39] aluRAM[10,0:39] a9615 1 12: MASK[0:39] d9617 3 a9619 4 label [11,0:39] aluRAM[11,0:39] a9620 1 13: FLG[0:39] d9622 3 a9624 4 label [12,0:39] aluRAM[12,0:39] a9625 1 14: PI[0:39] d9627 3 a9629 4 label [13,0:39] aluRAM[13,0:39] a9630 1 15: XWD1[0:39] d9632 3 a9634 4 label [14,0:39] aluRAM[14,0:39] a9635 1 16: T0[0:39] d9637 3 a9639 4 label [15,0:39] aluRAM[15,0:39] a9640 1 17: T1[0:39] d9643 3 a9645 4 label ad[0:39] ad[0:39] d9647 2 a9648 1 ad[-2:37] d9650 1 a9650 1 d9652 2 a9653 2 bd[0:39] bd[0:39] d9655 1 a9655 1 bd[-2:37] d9657 1 a9657 1 d9659 2 a9660 2 r[0:39] r[0:39] d9662 1 a9662 1 r[-2:37] d9664 1 a9664 1 d9666 2 a9667 2 s[0:39] s[0:39] d9669 1 a9669 1 s[-2:37] d9671 1 a9671 1 d9673 2 a9674 2 f[0:39] f[0:39] d9676 1 a9676 1 f[-2:37] d9678 1 a9678 2 RAMFILE d9680 4 a9683 2 128 128 255 230 230 230 d9685 1 a9685 1 d9687 2 a9688 2 regIR[0:17] regIR[0:17] d9690 1 a9690 1 regIR[0:17] d9692 3 a9694 18 acFUN[0:5] acFUN[0:5] OCTALRADIX acNUM[0:2] acNUM[0:2] OCTALRADIX dbm[0:35] dbm[0:35] OCTALRADIX addr[0:9] addr[0:9] d9697 1 a9697 2 DEBUG d9699 7 a9705 27 128 128 255 230 230 230 addr[0:11] addr[0:11] OCTALRADIX cpuHALT cpuHALT specCONS specCONS cpuCONT cpuCONT consCONT consCONT swCONT swCONT @ ise/RCS/ks10.xise,v0000444000175100010010000014624212053070612012373 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.21.06.15.35; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.13.07.15.42; author Rob; state Exp; branches; next ; desc @XISE File @ 1.2 log @*** empty log message *** @ text @
@ 1.1 log @Initial revision @ text @d19 2 a20 2 d23 2 a24 2 d27 4 a33 4 d39 2 a40 2 d43 4 d50 1 a50 1 d54 1 a54 1 d58 1 a58 1 d62 1 a62 1 d66 1 a66 1 a69 4 d71 2 a72 2 d79 4 d86 1 a86 1 d90 1 a90 1 a93 4 d122 2 a123 2 d126 2 a127 2 d130 1 a130 1 d136 2 a137 2 d140 4 a146 4 d148 2 a149 2 d152 2 a153 2 d164 2 a165 2 d168 10 a177 2 d204 2 a205 2 d229 1 a229 1 d231 1 a231 1 d369 1 a369 1 d454 1 a454 1 a533 1 d538 1 a538 1 @ ise/RCS/ks10.gise,v0000444000175100010010000004434712053070616012361 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.21.06.15.40; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.13.07.16.28; author Rob; state Exp; branches; next ; desc @@ 1.2 log @*** empty log message *** @ text @ 11.1 @ 1.1 log @Initial revision @ text @a24 1 d29 1 d35 4 d40 1 d43 1 d60 5 a64 1 a74 1 d78 1 d92 1 d106 1 a106 1 d112 1 a112 1 d116 1 a116 1 d120 1 a120 1 d124 1 a124 1 a134 1 d138 1 d152 1 d166 1 a166 1 d172 1 a172 1 d175 2 d184 1 a184 1 d191 5 a195 1 d199 1 a199 1 d203 1 a203 1 d207 1 a207 1 d211 1 a211 1 d215 1 a215 1 d219 1 a219 1 d237 1 a237 1 d241 2 a242 2 d246 1 d250 9 @ ise/ks10.xise0000644000175100010010000013545512053071216011511 0ustar RobNone
ise/ks10.gise0000644000175100010010000003543612053071216011466 0ustar RobNone 11.1 ise/ks10.wcfg0000644000175100010010000230516012053071216011461 0ustar RobNone clk clk rst rst label [75] crom[75] FM WRITE[75] memEN memEN CPU label 128 128 255 230 230 230 dp[0:35] dp[0:35] 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 [105] crom[105] CROM EXT ADDR label [3] busADDRO[3] Read Cycle label [5] busADDRO[5] Write Cycle label [10] busADDRO[10] IO Cycle SKIPGE label 128 128 255 230 230 230 label addr[0:11] addr[0:11] OCTALRADIX CROM ADDR[0:11] currADDR[0:11] currADDR[0:11] OCTALRADIX 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] label [3,0:39] aluRAM[3,0:39] OCTALRADIX 3: AR[0:39] 3: AR[4:39] label OCTALRADIX [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] [3,38] aluRAM[3,38] [3,39] aluRAM[3,39] label regIR[0:17] regIR[0:17] OCTALRADIX IR[0:17] IR_AC label OCTALRADIX [9] regIR[9] [10] regIR[10] [11] regIR[11] [12] regIR[12] dp[0:35] dp[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 [3,0:35] ram[3,0:35] OCTALRADIX AC3[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[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 addr[0:9] addr[0:9] OCTALRADIX RAMFILE ADDR[0:9] vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #00ff00 vmaACREF vmaACREF label [8] vmaFLAGS[8] [8] :VMA PHYSICAL label [11] skipADDR[11] skipADDR[11] label [79] crom[79] CROM MULTISHIFT[79] [0] fe[0] fe[0:9] fe[0:9] OCTALRADIX sc[0:9] sc[0:9] OCTALRADIX currADDR[0:11] currADDR[0:11] OCTALRADIX clkenDP clkenDP clkenCR clkenCR CROM label 128 128 255 230 230 230 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 UNSIGNEDDECRADIX [26] crom[26] [27] crom[27] [28] crom[28] [29] crom[29] ADDR B label UNSIGNEDDECRADIX [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 [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] 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] label [3] busADDRO[3] Read Cycle label [5] busADDRO[5] Write Cycle DROM label 128 128 255 230 230 230 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 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 Registers label 128 128 255 230 230 230 label addr[0:11] addr[0:11] OCTALRADIX CROM ADDR[0:11] pcFLAGS[0:17] pcFLAGS[0:17] OCTALRADIX regIR[0:17] regIR[0:17] OCTALRADIX timerCOUNT[18:35] timerCOUNT[18:35] OCTALRADIX vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX currBLOCK[0:2] currBLOCK[0:2] OCTALRADIX prevBLOCK[0:2] prevBLOCK[0:2] 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 scad[0:9] scad[0:9] OCTALRADIX fe[0:9] fe[0:9] OCTALRADIX sc[0:9] sc[0:9] OCTALRADIX 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] 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 ALU (40 Bit View) label 128 128 255 230 230 230 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] 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] RAMFILE label 128 128 255 230 230 230 label regIR[0:17] regIR[0:17] OCTALRADIX regIR[0:17] addr[0:11] addr[0:11] OCTALRADIX label addr[0:9] addr[0:9] OCTALRADIX ram_addr[0:9] 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 vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #0000ff 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 [3,0:35] ram[3,0:35] OCTALRADIX AC3[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[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] dbus[0:35] dbus[0:35] OCTALRADIX label memEN memEN vma memEN vmaACREF vmaACREF makefile0000644000175100010010000000447412053071204010752 0ustar RobNoneRTL := rtl ISE := ISE ARB := $(RTL)/arb CON := $(RTL)/cons CPU := $(RTL)/cpu ISE := $(ISE) MEM := $(RTL)/mem UBA := $(RTL)/uba UC := $(CPU)/useq LOAD := MAINDEC-10-DSKAA.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)/page_tables.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 \ $(CON)/cons.v \ $(MEM)/mem.v \ $(MEM)/mem.dat \ $(ARB)/arb.v \ $(UBA)/uba.v \ $(RTL)/rst.v \ $(RTL)/ks10.v \ $(RTL)/ks10.ucf \ $(RTL)/status.txt \ $(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 $(MEM)/mem.dat : $(MEM)/$(LOAD) $(MEM)/mem.awk makefile awk -f $(MEM)/mem.awk -vfilename=$(LOAD) $(MEM)/$(LOAD) > $(MEM)/mem.dat clean: rcsclean $(RTL)/* rcsclean $(ARB)/* rcsclean $(CON)/* rcsclean $(CPU)/* rcsclean $(MEM)/* rcsclean $(UBA)/* rcsclean $(UC)/* rm -f $(UC)/*.dat rm -f $(MEM)/*.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/0000755000175100010010000000000012027721754010057 5ustar RobNonertl/RCS/0000755000175100010010000000000012044410720010471 5ustar RobNonertl/RCS/testbench.v,v0000444000175100010010000001216112047142346013111 0ustar RobNonehead 1.9; access; symbols; locks; comment @# @; 1.9 date 2012.11.09.08.54.56; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.09.08.16.05; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.08.20.51.01; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.05.04.36.26; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.04.02.44.32; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.01.06.09.39; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.20.02.44.40; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.12.01.44.23; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.29.06.28.03; author Rob; state Exp; branches; next ; desc @Test bench @ 1.9 log @*** empty log message *** @ text @ module testbench; reg clk; reg reset; // // Switches // reg swCONT; wire swEXEC = 1'b1; wire swRUN = 1'b1; // // LED Outputs // wire cpuHALT; wire cpuRUN; // // Initialization // initial begin $display("KS10 Simulation Starting"); clk = 1'b0; // initial state of clock reset = 1'b1; // initial state of reset #95 reset = 1'b0; // release reset at 95 nS end // // Clock generator // always #10 clk = ~clk; // clock is inverted every ten nS // // UUT // KS10 UUT (.clk (clk), .reset (reset), .pwrFAIL (1'b0), .swCONT (swCONT), .swEXEC (swEXEC), .swRUN (swRUN), .conRXD (1'b1), .conTXD (conTXD), .cpuHALT (cpuHALT), .cpuRUN (cpuRUN2) ); // // Display of Processor Status // reg lastHALT; always @@(posedge clk or posedge reset) begin if (reset) lastHALT = 1'b0; else begin if (cpuHALT & ~lastHALT) $display("KS10 CPU Halted at t = %f us", $time / 1.0e3); else if (~cpuHALT & lastHALT) $display("KS10 CPU Unhalted at t = %f us.", $time / 1.0e3); lastHALT = cpuHALT; end end always @@(posedge cpuHALT or posedge reset ) begin if (reset) swCONT <= 1'b0; else if ($time > 12000 && $time < 14000) begin #500 swCONT <= 1'b1; #600 swCONT <= 1'b0; end end endmodule @ 1.8 log @*** empty log message *** @ text @d12 1 a12 1 wire swEXEC = 1'b0; @ 1.7 log @*** empty log message *** @ text @d7 12 a18 1 //wire cpuCONT; d20 1 a20 2 //wire cpuRUN; //wire conTXD; d29 1 a29 1 clk = 1'b0; // initial state of clock d46 10 a55 6 (.clk(clk), .reset(reset), .pwrFAIL(1'b0), .conRXD(1'b1), .conTXD(conTXD), .cpuHALT(cpuHALT) d76 13 a88 1 @ 1.6 log @*** empty log message *** @ text @d5 1 a5 1 reg rst; d7 1 a7 1 wire cpuCONT; d9 2 a10 1 wire cpuRUN; d20 2 a21 2 rst = 1'b1; // initial state of reset #95 rst = 1'b0; // release reset at 95 nS d35 8 a42 23 CPU UUT(.clk(clk), .rst(rst), .clken(1'b1), .consTIMEREN(1'b1), .consSTEP(1'b0), .consRUN(1'b1), .consEXEC(1'b0), .consCONT(1'b1), .consTRAPEN(1'b1), .consCACHEEN(1'b0), .intPWR(intPWR), .intCONS(intCONS), .bus_data_in(), .bus_data_out(), .bus_pi_req_in(), .bus_pi_req_out(), .bus_pi_current(), .cpuCONT(cpuCONT), .cpuHALT(cpuHALT), .cpuRUN(cpuRUN), .crom(), .dp(), .pageNUMBER()); d49 1 a49 1 always @@(posedge clk or posedge rst) d51 1 a51 1 if (rst) @ 1.5 log @*** empty log message *** @ text @d40 1 a40 1 .consEXEC(1'b1), @ 1.4 log @*** empty log message *** @ text @d7 8 d17 4 a20 4 $display($time, " << Starting the Simulation >>"); clk = 1'b0; // initial state of clock rst = 1'b1; // initial state of reset #95 rst = 1'b0; // release reset at 95 nS d22 4 d28 1 a28 1 #10 clk = ~clk; // invert every ten nS d30 4 d51 3 d58 19 @ 1.3 log @*** empty log message *** @ text @d12 1 a12 1 #91 rst = 1'b0; // release reset at 90 nS d18 20 a37 11 KS10 UUT(.clk(clk), .rst(rst), .clken(1'b1), .cons_run(1'b1), .cons_msec_en(1'b1), .cons_exec(1'b1), .cons_cont(1'b1), .consTRAPEN(1'b1), .bus_ac_lo(1'b0), .crom(), .t()); @ 1.2 log @*** empty log message *** @ text @d21 8 a28 6 .run(1'b1), .msec_en(1'b1), .execute(1'b1), .d(36'b0), .t(), .crom()); @ 1.1 log @Initial revision @ text @d12 1 a12 1 #100 rst = 1'b0; // release reset at 100 nS d21 3 d25 2 a26 1 .t()); @ rtl/RCS/rst.v,v0000444000175100010010000000553712047143066011753 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.09.09.00.36; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.44.45; author Rob; state Exp; branches; next ; desc @Reset Circuit @ 1.2 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Reset Generator //! //! \details //! Some devices require that the reset signal is asserted for //! a few clock cycles before reset is negated. Also the //! microsequencer design requires that the reset signal //! is negated synchronously. //! //! \note //! Reset is asynchronously asserted and synchronously negated. //! //! \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 RST(clk, reset, rst); input clk; // Clock input reset; // Reset Input output rst; // // Reset // // Details // Reset is asynchronously asserted and synchronously negated. // reg r1; reg r2; reg r3; always @@(posedge clk or posedge reset) begin if (reset) begin r1 <= 1'b1; r2 <= 1'b1; r3 <= 1'b1; end else begin r1 <= 1'b0; r2 <= r1; r3 <= r2; end end assign rst = r3; endmodule @ 1.1 log @Initial revision @ text @d9 6 d56 2 a57 2 input clk; // Clock input reset; // Reset Input d61 4 a64 1 // Reset is asynchronously asserted and synchronously negated. d70 1 a70 1 d88 1 a88 1 @ rtl/RCS/ks10.ucf,v0000444000175100010010000000233012051521026012204 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.16.20.29.08; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.44.16; author Rob; state Exp; branches; next ; desc @UCF FIle @ 1.2 log @*** empty log message *** @ text @# # 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" 20 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; @ 1.1 log @Initial revision @ text @d13 1 a13 7 #NET "uTIMER/uCLKGEN/clk8p2" TNM_NET = clk8p2; #TIMESPEC TS_clk8p2 = PERIOD "clk8p2" 121.9512195121 ns HIGH 50%; #NET "uTIMER/uCLKGEN/timerclk" TNM_NET = timerclk; #TIMESPEC timerclk = PERIOD "timerclk" 243.902439024 ns HIGH 50%; NET "uALU/r*" TIG; @ rtl/RCS/ks10.v,v0000444000175100010010000005407012051703740011711 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.17.12.49.34; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.16.20.28.36; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.13.07.33.55; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.11.04.35.24; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.09.08.15.41; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.08.20.50.45; author E721269; state Exp; branches; next 1.2; 1.2 date 2012.11.07.07.08.04; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.45.10; author Rob; state Exp; branches; next ; desc @KS10 Processor @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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, pwrFAIL, swCONT, swEXEC, swRUN, conRXD, conTXD, cpuHALT, cpuRUN); // // System Interfaces // input clk; // Clock input reset; // Reset input pwrFAIL; // Power Fail input swCONT; // Continue Switch input swEXEC; // Exec Switch input swRUN; // Run Switch output cpuHALT; // Halt LED output cpuRUN; // Run LED // // Console Interfaces // input conRXD; // Console RXD output conTXD; // Console TXD // // Bus Arbiter Outputs // wire [0:35] arbADDRO; // Arbiter Address Out // // Console Interfaces // wire conREQI; // Console Bus Request In wire conREQO; // Console Bus Request Out wire conACKI; // Console Bus Acknowledge In wire conACKO; // Console Bus Acknowledge Out wire [0:35] conADDRI; // Console Address In wire [0:35] conADDRO; // Console Address Out wire [0:35] conDATAI; // Console Data In wire [0:35] conDATAO; // Console Data Out // // CPU Outputs // wire cpuHALT; // wire cpuRUN; // 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 memACK; // Memory ACK // // Unibus Interface // wire [1: 7] ubaINTR; // Unibus Interrupt Request wire ubaREQ; // Unibus Bus Request wire ubaACK; // Unibus Bus Acknowledge 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 // // Reset // RST uRST (.clk (clk), .reset (reset), .rst (rst) ); // // Bus Arbiter // ARB uARB (// CPU .cpuREQI (cpuREQ), .cpuACKO (cpuACK), .cpuADDRI (cpuADDRO), .cpuDATAI (cpuDATAO), .cpuDATAO (cpuDATAI), // Console .conREQI (conREQO), .conREQO (conREQI), .conACKI (conACKO), .conACKO (conACKI), .conADDRI (conADDRO), .conDATAI (conDATAO), .conDATAO (conDATAI), // 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 (rst), .consTIMEREN (1'b1), .consSTEP (1'b0), .consRUN (swRUN), .consEXEC (swEXEC), .consCONT (swCONT), .consHALT (1'b0), .consTRAPEN (1'b1), .consCACHEEN (1'b0), .pwrINTR (pwrFAIL), .consINTR (1'b0), .ubaINTR (ubaINTR), .curINTR_NUM (curINTR_NUM), .busREQ (cpuREQ), .busACK (cpuACK), .busADDRO (cpuADDRO), .busDATAI (cpuDATAI), .busDATAO (cpuDATAO), .cpuHALT (cpuHALT), .cpuRUN (cpuRUN) ); // // Console Interface // CON uCON (.clk (clk), .clken (1'b1), .busREQI (conREQI), .busREQO (conREQO), .busACKI (conACKI), .busACKO (conACKO), .busADDRI (arbADDRO), .busADDRO (conADDRO), .busDATAI (conDATAI), .busDATAO (conDATAO) ); // // Memory Interface // MEM uMEM (.clk (clk), .clken (1'b1), .busREQI (memREQ), .busACKO (memACK), .busADDRI (arbADDRO), .busDATAI (memDATAI), .busDATAO (memDATAO) ); // // Unibus Interface // UBA uUBA (.clk (clk), .clken (1'b1), .ubaINTR (ubaINTR), .curINTR_NUM (curINTR_NUM), .busREQI (ubaREQI), .busREQO (ubaREQO), .busACKI (ubaACKI), .busACKO (ubaACKO), .busADDRI (arbADDRO), .busADDRO (ubaADDRO), .busDATAI (ubaDATAI), .busDATAO (ubaDATAO) ); endmodule @ 1.7 log @*** empty log message *** @ text @a117 1 wire [1: 7] ubaINTA; // Unibus Interrupt Acknowledge d126 6 a133 5 // Details // The reset signal (rst) needs to be asserted for a few clock // cycles (min) for the hardware to initialize. It also needs // to by synchronously negated. // d195 1 a195 1 .ubaINTA (ubaINTA), d244 1 a244 1 .ubaINTA (ubaINTA), @ 1.6 log @*** empty log message *** @ text @d117 2 a183 1 .clken (1'b1), d192 4 a195 3 .pwrIRQ (pwrFAIL), .consIRQ (1'b0), .ubaIRQ (7'b0), d243 2 @ 1.5 log @*** empty log message *** @ text @d57 8 a64 8 input clk; // Clock input reset; // Reset input pwrFAIL; // Power Fail input swCONT; // Continue Switch input swEXEC; // Exec Switch input swRUN; // Run Switch output cpuHALT; // Halt LED output cpuRUN; // Run LED d70 2 a71 2 input conRXD; // Console RXD output conTXD; // Console TXD d77 1 a77 3 wire [ 0:35] arbDATA; // Arbiter Data wire arbACK; // Arbiter ACK wire arbNXMIRQ; // d83 9 a91 2 wire [ 0:35] consDATA; // Console Data wire consACK; // Console ACK d97 7 a103 9 wire cpuWRITE; // Memory/IO Write wire cpuREAD; // Memory/IO Read wire cpuIO; // IO wire cpuCONT; // wire cpuHALT; // wire cpuRUN; // wire [14:35] cpuADDR; // Memory Address wire [ 0:35] cpuDATA; // Memory Data d109 3 a111 2 wire [ 0:35] memDATA; // Memory Data Output wire memACK; // Memory ACK d117 6 a122 2 wire [ 0:35] ubaDATA; // Unibus Data Output wire ubaACK; // Unibus ACK d140 36 d194 5 a198 9 .nxmIRQ (arbNXMIRQ), .cpuADDR (cpuADDR), .cpuDIN (arbDATA), .cpuACK (arbACK), .cpuDOUT (cpuDATA), .cpuWRITE (cpuWRITE), .cpuREAD (cpuREAD), .cpuIO (cpuIO), .cpuCONT (cpuCONT), a203 15 // Bus Arbiter // ARB uARB (.memACK (memACK), .memDATA (memDATA), .consACK (consACK), .consDATA (consDATA), .ubaACK (ubaACK), .ubaDATA (ubaDATA), .arbACK (arbACK), .arbDATA (arbDATA) ); // d207 1 a207 3 wire cpuPHYSICAL = 1'b1; // FIXME CONS uCONS d209 9 a217 9 .clken (cpuIO), .cpuPHYSICAL (cpuPHYSICAL), .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .consDATA (consDATA), .consACK (consACK) d227 5 a231 7 .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .memDATA (memDATA), .memACK (memACK) d241 8 a248 7 .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .ubaDATA (ubaDATA), .ubaACK (ubaACK) a249 2 assign arbNXMIRQ = ~arbACK & ~cpuIO; @ 1.4 log @*** empty log message *** @ text @d56 10 a65 10 input clk; // Clock input reset; // Reset input pwrFAIL; // Power Fail input swCONT; // Continue Switch input swEXEC; // Exec Switch input swRUN; // Run Switch output cpuHALT; // Halt LED output cpuRUN; // Run LED d69 4 a72 4 input conRXD; // Console RXD output conTXD; // Console TXD d77 4 a80 4 wire [ 0:35] arbDATA; // Arbiter Data wire arbACK; // Arbiter ACK wire arbNXMIRQ; // d85 3 a87 3 wire [ 0:35] consDATA; // Console Data wire consACK; // Console ACK d91 11 a101 11 wire cpuWRITE; // Memory/IO Write wire cpuREAD; // Memory/IO Read wire cpuIO; // IO wire cpuCONT; // wire cpuHALT; // wire cpuRUN; // wire [14:35] cpuADDR; // Memory Address wire [ 0:35] cpuDATA; // Memory Data d105 3 a107 3 wire [ 0:35] memDATA; // Memory Data Output wire memACK; // Memory ACK d112 5 a116 5 wire [ 0:35] ubaDATA; // Unibus Data Output wire ubaACK; // Unibus ACK // d124 1 a124 1 d126 3 a128 3 (.clk (clk), .reset (reset), .rst (rst) d134 1 a134 1 d136 25 a160 25 (.clk (clk), .rst (rst), .clken (1'b1), .consTIMEREN (1'b1), .consSTEP (1'b0), .consRUN (swRUN), .consEXEC (swEXEC), .consCONT (swCONT), .consHALT (1'b0), .consTRAPEN (1'b1), .consCACHEEN (1'b0), .pwrIRQ (pwrFAIL), .consIRQ (1'b0), .ubaIRQ (7'b0), .nxmIRQ (arbNXMIRQ), .cpuADDR (cpuADDR), .cpuDIN (arbDATA), .cpuACK (arbACK), .cpuDOUT (cpuDATA), .cpuWRITE (cpuWRITE), .cpuREAD (cpuREAD), .cpuIO (cpuIO), .cpuCONT (cpuCONT), .cpuHALT (cpuHALT), .cpuRUN (cpuRUN) d168 8 a175 8 (.memACK (memACK), .memDATA (memDATA), .consACK (consACK), .consDATA (consDATA), .ubaACK (ubaACK), .ubaDATA (ubaDATA), .arbACK (arbACK), .arbDATA (arbDATA) d177 1 a177 1 d182 3 a184 1 CONS uCONS d187 8 a194 7 .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .consDATA (consDATA), .consACK (consACK) d196 1 a196 1 d200 1 a200 1 d204 7 a210 7 .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .memDATA (memDATA), .memACK (memACK) d212 1 a212 1 d216 1 a216 1 d220 7 a226 7 .cpuREAD (cpuREAD), .cpuWRITE (cpuWRITE), .cpuIO (cpuIO), .cpuADDR (cpuADDR), .cpuDATA (cpuDATA), .ubaDATA (ubaDATA), .ubaACK (ubaACK) d230 1 a230 1 a231 2 @ 1.3 log @*** empty log message *** @ text @d48 4 a51 1 module KS10(clk, reset, pwrFAIL, conRXD, conTXD, cpuHALT); d60 6 a65 1 d67 1 a67 1 // Console Outputs d72 12 a83 1 output cpuHALT; // CPU Halt d85 3 d92 7 a98 5 wire cpuWRITE; // Memory Write wire cpuREAD; // Memory Read wire cpuCONT; // wire cpuHALT; // wire cpuRUN; // d100 1 a100 1 wire [ 0:35] cpuDOUT; // Memory Data d106 1 a106 1 wire [ 0:35] memDOUT; // Memory Data Output d108 1 a108 1 d110 13 a122 2 // Reset needs to be asserted for a few clock cycles (min) // for the hardware to initialize d141 3 a143 3 .consRUN (1'b1), .consEXEC (1'b0), .consCONT (1'b1), d147 1 a147 1 .pwrIRQ (1'b0), d149 2 a150 2 .ubiIRQ (7'b0), .nxmIRQ (~memACK), d152 3 a154 2 .cpuDIN (memDOUT), .cpuDOUT (cpuDOUT), d157 1 d164 31 d201 6 a206 4 .memWRITE (cpuWRITE), .memADDR (cpuADDR), .memDIN (cpuDOUT), .memDOUT (memDOUT), d209 18 @ 1.2 log @*** empty log message *** @ text @d48 3 a50 2 module KS10(clk, reset, pwr_fail, conRXD, conTXD); d52 1 a52 4 input clk; // Clock input pwr_fail; // Power Fail // Console Outputs d54 3 a56 2 input conRXD; // Console RXD output conTXD; // Console TXD d61 4 a64 8 wire con_request; wire con_grant; wire con_addr_cycle; wire con_data_cycle; wire con_io_cycle; wire con_mem_busy; wire [0:35] con_data; d67 1 a67 1 // Arbiter Outputs a68 9 wire arb_request; wire arb_grant; wire arb_uba_busy; wire arb_mem_busy; wire arb_addr_cycle; wire arb_data_cycle; wire arb_io_cycle; wire [0:35] arb_data; d70 8 d79 1 a79 1 // Memory Interfaces a80 20 wire mem_busy; wire mem_addr_cycle; wire mem_data_cycle; wire mem_io_cycle; wire [0:35] mem_data; // // CPU Interaces // wire cpu_request; wire cpu_grant; wire cpu_addr_cycle; wire cpu_data_cycle; wire cpu_io_cycle; wire cpu_clr_busy; wire [1: 7] cpu_pi_lvl; wire [0: 2] cpu_pi_current; wire [0:35] cpu_data; d82 3 a84 9 // // Unibus Interfaces // wire uba_busy; wire uba_reqest; wire [1: 7] uba_pi_req; wire [0:35] uba_data; d90 5 a94 66 RST uRST(.clk (clk), .reset (reset), .rst (rst) ); // // The KS10 Bus Arbiter // ARB uARB(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), // // CON Interface // .con_request (con_request), .con_grant (con_grant), .con_addr_cycle (con_addr_cycle), .con_data_cycle (con_data_cycle), .con_io_cycle (con_io_cycle), .con_data (con_data), // // CPU Interface // .cpu_request (cpu_request), .cpu_grant (cpu_grant), .cpu_addr_cycle (cpu_addr_cycle), .cpu_data_cycle (cpu_data_cycle), .cpu_io_cycle (cpu_io_cycle), .cpu_data (cpu_data), // // Unibus Interface // .uba_request (uba_request), .uba_grant (uba_grant), .uba_addr_cycle (uba_addr_cycle), .uba_data_cycle (uba_data_cycle), .uba_io_cycle (uba_io_cycle), .uba_data (uba_data), // // Memory Interface // .mem_addr_cycle (mem_addr_cycle), .mem_data_cycle (mem_data_cycle), .mem_io_cycle (mem_io_cycle), .mem_data (mem_data), // // ARB Output // .arb_addr_cycle (arb_addr_cycle), .arb_data_cycle (arb_data_cycle), .arb_io_cycle (arb_io_cycle), .arb_mem_busy (arb_mem_busy), .arb_uba_busy (arb_uba_busy), .arb_data (arb_data) ); d100 25 a124 16 CPU uCPU(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (cpu_request), .bus_grant (cpu_grant), .bus_addr_cycle (cpu_addr_cycle), .bus_data_cycle (cpu_data_cycle), .bus_io_cycle (cpu_io_cycle), .bus_mem_busy (mem_busy), .bus_clr_busy (uba_clr_busy), .bus_pi_req_in (uba_pi_req), .bus_pi_req_out (cpu_pi_lvl), .bus_pi_current (cpu_pi_current), .bus_data_in (arb_data_out), .bus_data_out (cpu_data_out) ); d130 9 a138 68 MEM uMEM(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (mem_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (mem_data_cycle), .bus_io_cycle_in (arb_io_cycle), .bus_io_cycle_out (mem_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (mem_busy), .bus_data_in (arb_data), .bus_data_out (mem_data) ); // // Unibus Interface // Note: The KS10 has two UNIBUS adapter. Somehow SIMH only // implments a single UNIBUS adapter. We will try the same // trick. // UBA uUBA(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (uba_request), .bus_grant (uba_grant), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (uba_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (uba_data_cycle), .bus_io_cycle_out (uba_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (uba_mem_busy), .bus_data_in (arb_data), .bus_data_out (uba_data), .bus_pi_current (cpu_pi_current), .bus_pi_request (uba_pi_request) ); // // Console // CONS uCONS(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (con_request), .bus_grant (con_grant), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (con_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (con_data_cycle), .bus_io_cycle_in (arb_io_cycle), .bus_io_cycle_out (con_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (con_mem_busy), .bus_pi_lvl (cpu_pi_lvl), .bus_pi_current (cpu_pi_current), .bus_data_in (arb_data), .bus_data_out (con_data), .rxd (conRXD), .txd (conTXD) ); @ 1.1 log @Initial revision @ text @a51 1 input rst; // Reset @ rtl/RCS/status.txt,v0000444000175100010010000000522512053067712013032 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.21.06.08.08; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.20.23.01.12; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.20.08.09.51; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.19.15.55.33; author E721269; state Exp; branches; next 1.1; 1.1 date 2012.11.17.00.48.52; author Rob; state Exp; branches; next ; desc @Status @ 1.5 log @*** empty log message *** @ text @Test 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 Pass 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 Fail DSKALA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) DSKAMA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13) TODO: 1. NI_DISP : fix memory cycle. 2. CPU : fix memory timing. 3. MEM : move mem to test bench 4. mem.awk : fix to work on sixbit 5. Search for FIXME is the code. @ 1.4 log @*** empty log message *** @ text @d1 2 d23 2 @ 1.3 log @*** empty log message *** @ text @d20 1 a20 3 4. RAMFILE : fix to use cROM instead of DBUS 5. pcFLAGS : fix to use cROM instead of DBM 6. mem.awk : fix to work on sixbit and DSKAHA0 @ 1.2 log @*** empty log message *** @ text @d8 6 a13 4 DSKAHA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 8) DSKAIA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 9) DSKAJA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) @ 1.1 log @Initial revision @ text @d1 9 a9 9 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) DSKAHA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (8) DSKAIA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) d20 2 @ rtl/RCS/README,v0000444000175100010010000000511112053067730011620 0ustar RobNonehead 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.11.21.06.08.16; author Rob; state Exp; branches; next ; desc @README File @ 1.1 log @Initial revision @ text @ This is revision 0.0.1 of the KS10 FPGA Code. It is mostly configured for running instruction set diagnostics and not much else. I haven't sythesized it in a long time and it probably will need some work before it will synthesize. I'm still mostly trying to get it to simulate and get familar with the KS10 design. First things first! For status see the file ./status.txt The KS10 console provides the starting address for the KS10 CPU. For now this is hardwired by some code in the console. To change the starting address, change the code in ./cons/cons.v. In that file you will find a line (approximately line 100) that looks like: assign busDATAO = busACKO ? 36'o254000030600 : 36'bx; Where 36'o254000030600 is a PDP10 instruction. I.e., "254000030600" is a JRST to address 30600. See notes in that file. The following diagnostics have the following starting addresses: MAINDEC-10-DSKAA.txt MAINDEC-10-DSKAB.txt MAINDEC-10-DSKAC.txt MAINDEC-10-DSKAD.txt MAINDEC-10-DSKAE.txt MAINDEC-10-DSKAF.txt MAINDEC-10-DSKAG.txt MAINDEC-10-DSKAH.txt Starting address 030600 MAINDEC-10-DSKAI.txt MAINDEC-10-DSKAJ.txt MAINDEC-10-DSKAK.txt Starting address 030624 I have been using cygwin and windows to do development on this. You'll need 'make' and 'awk' to do much development. I also use 'rcs' for configuration management. You will note RCS directories in the directory tree - but unless you're interested in history you can ignore the RCS files. To change the diagnostic program that is being executed: (1) edit the makefile and change the line: LOAD := MAINDEC-10-DSKAK.txt to whatever MAINDEC you'd like to run. (2) Execute make. Make will extract the Control ROM code and Dispatch ROM code from the microcode listing file. It will also extract the executable from the MAINDEC listing file. This .tgz file is configured to execute MAINDEC-10-DSKAA. To run the simultion is Xilinx ISE webpack (GUI): (1) install ISE per Xilinx Instructions (2) Start ISE Project Navigator (3) Open KS10.xise project (File->Open Project) KS10.xise is in ../ise Have fun. If you have questions contact me. I'll add instructions on how to run the simulator later. There is a waveform configuration file "ks10.wcfg" in the ISE that I use for viewing simulation results. Rob Doyle doyle (at) cox (dot) net @ rtl/rst.v0000644000175100010010000000453312053071216011051 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Reset Generator //! //! \details //! Some devices require that the reset signal is asserted for //! a few clock cycles before reset is negated. Also the //! microsequencer design requires that the reset signal //! is negated synchronously. //! //! \note //! Reset is asynchronously asserted and synchronously negated. //! //! \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 RST(clk, reset, rst); input clk; // Clock input reset; // Reset Input output rst; // // Reset // // Details // Reset is asynchronously asserted and synchronously negated. // reg r1; reg r2; reg r3; always @(posedge clk or posedge reset) begin if (reset) begin r1 <= 1'b1; r2 <= 1'b1; r3 <= 1'b1; end else begin r1 <= 1'b0; r2 <= r1; r3 <= r2; end end assign rst = r3; endmodule rtl/mem/0000755000175100010010000000000012042567352010634 5ustar RobNonertl/mem/mem.dat0000644000175100010010000156701012053071214012103 0ustar RobNone // // MAINDEC-10-DSKAA.txt // Do not edit this file. // It was created by an awk script. // RAM[00000] = 36'o000000000000; // 000000 (unused) RAM[00001] = 36'o000000000000; // 000001 (unused) RAM[00002] = 36'o000000000000; // 000002 (unused) RAM[00003] = 36'o000000000000; // 000003 (unused) RAM[00004] = 36'o000000000000; // 000004 (unused) RAM[00005] = 36'o000000000000; // 000005 (unused) RAM[00006] = 36'o000000000000; // 000006 (unused) RAM[00007] = 36'o000000000000; // 000007 (unused) RAM[00008] = 36'o000000000000; // 000010 (unused) RAM[00009] = 36'o000000000000; // 000011 (unused) RAM[00010] = 36'o000000000000; // 000012 (unused) RAM[00011] = 36'o000000000000; // 000013 (unused) RAM[00012] = 36'o000000000000; // 000014 (unused) RAM[00013] = 36'o000000000000; // 000015 (unused) RAM[00014] = 36'o000000000000; // 000016 (unused) RAM[00015] = 36'o000000000000; // 000017 (unused) RAM[00016] = 36'o000000000000; // 000020 (unused) RAM[00017] = 36'o000000000000; // 000021 (unused) RAM[00018] = 36'o000000000000; // 000022 (unused) RAM[00019] = 36'o000000000000; // 000023 (unused) RAM[00020] = 36'o000000000000; // 000024 (unused) RAM[00021] = 36'o000000000000; // 000025 (unused) RAM[00022] = 36'o000000000000; // 000026 (unused) RAM[00023] = 36'o000000000000; // 000027 (unused) RAM[00024] = 36'o000000000000; // 000030 (unused) RAM[00025] = 36'o000000000000; // 000031 (unused) RAM[00026] = 36'o000000000000; // 000032 (unused) RAM[00027] = 36'o000000000000; // 000033 (unused) RAM[00028] = 36'o000000000000; // 000034 (unused) RAM[00029] = 36'o000000000000; // 000035 (unused) RAM[00030] = 36'o000000000000; // 000036 (unused) RAM[00031] = 36'o000000000000; // 000037 (unused) RAM[00032] = 36'o000000000000; // 000040 (unused) RAM[00033] = 36'o000000000000; // 000041 (unused) RAM[00034] = 36'o000000000000; // 000042 (unused) RAM[00035] = 36'o000000000000; // 000043 (unused) RAM[00036] = 36'o000000000000; // 000044 (unused) RAM[00037] = 36'o000000000000; // 000045 (unused) RAM[00038] = 36'o000000000000; // 000046 (unused) RAM[00039] = 36'o000000000000; // 000047 (unused) RAM[00040] = 36'o000000000000; // 000050 (unused) RAM[00041] = 36'o000000000000; // 000051 (unused) RAM[00042] = 36'o000000000000; // 000052 (unused) RAM[00043] = 36'o000000000000; // 000053 (unused) RAM[00044] = 36'o000000000000; // 000054 (unused) RAM[00045] = 36'o000000000000; // 000055 (unused) RAM[00046] = 36'o000000000000; // 000056 (unused) RAM[00047] = 36'o000000000000; // 000057 (unused) RAM[00048] = 36'o000000000000; // 000060 (unused) RAM[00049] = 36'o000000000000; // 000061 (unused) RAM[00050] = 36'o000000000000; // 000062 (unused) RAM[00051] = 36'o000000000000; // 000063 (unused) RAM[00052] = 36'o000000000000; // 000064 (unused) RAM[00053] = 36'o000000000000; // 000065 (unused) RAM[00054] = 36'o000000000000; // 000066 (unused) RAM[00055] = 36'o000000000000; // 000067 (unused) RAM[00056] = 36'o000000000000; // 000070 (unused) RAM[00057] = 36'o000000000000; // 000071 (unused) RAM[00058] = 36'o000000000000; // 000072 (unused) RAM[00059] = 36'o000000000000; // 000073 (unused) RAM[00060] = 36'o000000000000; // 000074 (unused) RAM[00061] = 36'o000000000000; // 000075 (unused) RAM[00062] = 36'o000000000000; // 000076 (unused) RAM[00063] = 36'o000000000000; // 000077 (unused) RAM[00064] = 36'o000000000000; // 000100 (unused) RAM[00065] = 36'o000000000000; // 000101 (unused) RAM[00066] = 36'o000000000000; // 000102 (unused) RAM[00067] = 36'o000000000000; // 000103 (unused) RAM[00068] = 36'o000000000000; // 000104 (unused) RAM[00069] = 36'o000000000000; // 000105 (unused) RAM[00070] = 36'o000000000000; // 000106 (unused) RAM[00071] = 36'o000000000000; // 000107 (unused) RAM[00072] = 36'o000000000000; // 000110 (unused) RAM[00073] = 36'o000000000000; // 000111 (unused) RAM[00074] = 36'o000000000000; // 000112 (unused) RAM[00075] = 36'o000000000000; // 000113 (unused) RAM[00076] = 36'o000000000000; // 000114 (unused) RAM[00077] = 36'o000000000000; // 000115 (unused) RAM[00078] = 36'o000000000000; // 000116 (unused) RAM[00079] = 36'o000000000000; // 000117 (unused) RAM[00080] = 36'o000000000000; // 000120 (unused) RAM[00081] = 36'o000000000000; // 000121 (unused) RAM[00082] = 36'o000000000000; // 000122 (unused) RAM[00083] = 36'o000000000000; // 000123 (unused) RAM[00084] = 36'o000000000000; // 000124 (unused) RAM[00085] = 36'o000000000000; // 000125 (unused) RAM[00086] = 36'o000000000000; // 000126 (unused) RAM[00087] = 36'o000000000000; // 000127 (unused) RAM[00088] = 36'o000000000000; // 000130 (unused) RAM[00089] = 36'o000000000000; // 000131 (unused) RAM[00090] = 36'o000000000000; // 000132 (unused) RAM[00091] = 36'o000000000000; // 000133 (unused) RAM[00092] = 36'o000000000000; // 000134 (unused) RAM[00093] = 36'o000000000000; // 000135 (unused) RAM[00094] = 36'o000000000000; // 000136 (unused) RAM[00095] = 36'o000000000001; // 000137 RAM[00096] = 36'o000000000000; // 000140 (unused) RAM[00097] = 36'o000000000000; // 000141 (unused) RAM[00098] = 36'o000000000000; // 000142 (unused) RAM[00099] = 36'o000000000000; // 000143 (unused) RAM[00100] = 36'o000000000000; // 000144 (unused) RAM[00101] = 36'o000000000000; // 000145 (unused) RAM[00102] = 36'o000000000000; // 000146 (unused) RAM[00103] = 36'o000000000000; // 000147 (unused) RAM[00104] = 36'o000000000000; // 000150 (unused) RAM[00105] = 36'o000000000000; // 000151 (unused) RAM[00106] = 36'o000000000000; // 000152 (unused) RAM[00107] = 36'o000000000000; // 000153 (unused) RAM[00108] = 36'o000000000000; // 000154 (unused) RAM[00109] = 36'o000000000000; // 000155 (unused) RAM[00110] = 36'o000000000000; // 000156 (unused) RAM[00111] = 36'o000000000000; // 000157 (unused) RAM[00112] = 36'o000000000000; // 000160 (unused) RAM[00113] = 36'o000000000000; // 000161 (unused) RAM[00114] = 36'o000000000000; // 000162 (unused) RAM[00115] = 36'o000000000000; // 000163 (unused) RAM[00116] = 36'o000000000000; // 000164 (unused) RAM[00117] = 36'o000000000000; // 000165 (unused) RAM[00118] = 36'o000000000000; // 000166 (unused) RAM[00119] = 36'o000000000000; // 000167 (unused) RAM[00120] = 36'o000000000000; // 000170 (unused) RAM[00121] = 36'o000000000000; // 000171 (unused) RAM[00122] = 36'o000000000000; // 000172 (unused) RAM[00123] = 36'o000000000000; // 000173 (unused) RAM[00124] = 36'o000000000000; // 000174 (unused) RAM[00125] = 36'o000000000000; // 000175 (unused) RAM[00126] = 36'o000000000000; // 000176 (unused) RAM[00127] = 36'o000000000000; // 000177 (unused) RAM[00128] = 36'o000000000000; // 000200 (unused) RAM[00129] = 36'o000000000000; // 000201 (unused) RAM[00130] = 36'o000000000000; // 000202 (unused) RAM[00131] = 36'o000000000000; // 000203 (unused) RAM[00132] = 36'o000000000000; // 000204 (unused) RAM[00133] = 36'o000000000000; // 000205 (unused) RAM[00134] = 36'o000000000000; // 000206 (unused) RAM[00135] = 36'o000000000000; // 000207 (unused) RAM[00136] = 36'o000000000000; // 000210 (unused) RAM[00137] = 36'o000000000000; // 000211 (unused) RAM[00138] = 36'o000000000000; // 000212 (unused) RAM[00139] = 36'o000000000000; // 000213 (unused) RAM[00140] = 36'o000000000000; // 000214 (unused) RAM[00141] = 36'o000000000000; // 000215 (unused) RAM[00142] = 36'o000000000000; // 000216 (unused) RAM[00143] = 36'o000000000000; // 000217 (unused) RAM[00144] = 36'o000000000000; // 000220 (unused) RAM[00145] = 36'o000000000000; // 000221 (unused) RAM[00146] = 36'o000000000000; // 000222 (unused) RAM[00147] = 36'o000000000000; // 000223 (unused) RAM[00148] = 36'o000000000000; // 000224 (unused) RAM[00149] = 36'o000000000000; // 000225 (unused) RAM[00150] = 36'o000000000000; // 000226 (unused) RAM[00151] = 36'o000000000000; // 000227 (unused) RAM[00152] = 36'o000000000000; // 000230 (unused) RAM[00153] = 36'o000000000000; // 000231 (unused) RAM[00154] = 36'o000000000000; // 000232 (unused) RAM[00155] = 36'o000000000000; // 000233 (unused) RAM[00156] = 36'o000000000000; // 000234 (unused) RAM[00157] = 36'o000000000000; // 000235 (unused) RAM[00158] = 36'o000000000000; // 000236 (unused) RAM[00159] = 36'o000000000000; // 000237 (unused) RAM[00160] = 36'o000000000000; // 000240 (unused) RAM[00161] = 36'o000000000000; // 000241 (unused) RAM[00162] = 36'o000000000000; // 000242 (unused) RAM[00163] = 36'o000000000000; // 000243 (unused) RAM[00164] = 36'o000000000000; // 000244 (unused) RAM[00165] = 36'o000000000000; // 000245 (unused) RAM[00166] = 36'o000000000000; // 000246 (unused) RAM[00167] = 36'o000000000000; // 000247 (unused) RAM[00168] = 36'o000000000000; // 000250 (unused) RAM[00169] = 36'o000000000000; // 000251 (unused) RAM[00170] = 36'o000000000000; // 000252 (unused) RAM[00171] = 36'o000000000000; // 000253 (unused) RAM[00172] = 36'o000000000000; // 000254 (unused) RAM[00173] = 36'o000000000000; // 000255 (unused) RAM[00174] = 36'o000000000000; // 000256 (unused) RAM[00175] = 36'o000000000000; // 000257 (unused) RAM[00176] = 36'o000000000000; // 000260 (unused) RAM[00177] = 36'o000000000000; // 000261 (unused) RAM[00178] = 36'o000000000000; // 000262 (unused) RAM[00179] = 36'o000000000000; // 000263 (unused) RAM[00180] = 36'o000000000000; // 000264 (unused) RAM[00181] = 36'o000000000000; // 000265 (unused) RAM[00182] = 36'o000000000000; // 000266 (unused) RAM[00183] = 36'o000000000000; // 000267 (unused) RAM[00184] = 36'o000000000000; // 000270 (unused) RAM[00185] = 36'o000000000000; // 000271 (unused) RAM[00186] = 36'o000000000000; // 000272 (unused) RAM[00187] = 36'o000000000000; // 000273 (unused) RAM[00188] = 36'o000000000000; // 000274 (unused) RAM[00189] = 36'o000000000000; // 000275 (unused) RAM[00190] = 36'o000000000000; // 000276 (unused) RAM[00191] = 36'o000000000000; // 000277 (unused) RAM[00192] = 36'o000000000000; // 000300 (unused) RAM[00193] = 36'o000000000000; // 000301 (unused) RAM[00194] = 36'o000000000000; // 000302 (unused) RAM[00195] = 36'o000000000000; // 000303 (unused) RAM[00196] = 36'o000000000000; // 000304 (unused) RAM[00197] = 36'o000000000000; // 000305 (unused) RAM[00198] = 36'o000000000000; // 000306 (unused) RAM[00199] = 36'o000000000000; // 000307 (unused) RAM[00200] = 36'o000000000000; // 000310 (unused) RAM[00201] = 36'o000000000000; // 000311 (unused) RAM[00202] = 36'o000000000000; // 000312 (unused) RAM[00203] = 36'o000000000000; // 000313 (unused) RAM[00204] = 36'o000000000000; // 000314 (unused) RAM[00205] = 36'o000000000000; // 000315 (unused) RAM[00206] = 36'o000000000000; // 000316 (unused) RAM[00207] = 36'o000000000000; // 000317 (unused) RAM[00208] = 36'o000000000000; // 000320 (unused) RAM[00209] = 36'o000000000000; // 000321 (unused) RAM[00210] = 36'o000000000000; // 000322 (unused) RAM[00211] = 36'o000000000000; // 000323 (unused) RAM[00212] = 36'o000000000000; // 000324 (unused) RAM[00213] = 36'o000000000000; // 000325 (unused) RAM[00214] = 36'o000000000000; // 000326 (unused) RAM[00215] = 36'o000000000000; // 000327 (unused) RAM[00216] = 36'o000000000000; // 000330 (unused) RAM[00217] = 36'o000000000000; // 000331 (unused) RAM[00218] = 36'o000000000000; // 000332 (unused) RAM[00219] = 36'o000000000000; // 000333 (unused) RAM[00220] = 36'o000000000000; // 000334 (unused) RAM[00221] = 36'o000000000000; // 000335 (unused) RAM[00222] = 36'o000000000000; // 000336 (unused) RAM[00223] = 36'o000000000000; // 000337 (unused) RAM[00224] = 36'o000000000000; // 000340 (unused) RAM[00225] = 36'o000000000000; // 000341 (unused) RAM[00226] = 36'o000000000000; // 000342 (unused) RAM[00227] = 36'o000000000000; // 000343 (unused) RAM[00228] = 36'o000000000000; // 000344 (unused) RAM[00229] = 36'o000000000000; // 000345 (unused) RAM[00230] = 36'o000000000000; // 000346 (unused) RAM[00231] = 36'o000000000000; // 000347 (unused) RAM[00232] = 36'o000000000000; // 000350 (unused) RAM[00233] = 36'o000000000000; // 000351 (unused) RAM[00234] = 36'o000000000000; // 000352 (unused) RAM[00235] = 36'o000000000000; // 000353 (unused) RAM[00236] = 36'o000000000000; // 000354 (unused) RAM[00237] = 36'o000000000000; // 000355 (unused) RAM[00238] = 36'o000000000000; // 000356 (unused) RAM[00239] = 36'o000000000000; // 000357 (unused) RAM[00240] = 36'o000000000000; // 000360 (unused) RAM[00241] = 36'o000000000000; // 000361 (unused) RAM[00242] = 36'o000000000000; // 000362 (unused) RAM[00243] = 36'o000000000000; // 000363 (unused) RAM[00244] = 36'o000000000000; // 000364 (unused) RAM[00245] = 36'o000000000000; // 000365 (unused) RAM[00246] = 36'o000000000000; // 000366 (unused) RAM[00247] = 36'o000000000000; // 000367 (unused) RAM[00248] = 36'o000000000000; // 000370 (unused) RAM[00249] = 36'o000000000000; // 000371 (unused) RAM[00250] = 36'o000000000000; // 000372 (unused) RAM[00251] = 36'o000000000000; // 000373 (unused) RAM[00252] = 36'o000000000000; // 000374 (unused) RAM[00253] = 36'o000000000000; // 000375 (unused) RAM[00254] = 36'o000000000000; // 000376 (unused) RAM[00255] = 36'o000000000000; // 000377 (unused) RAM[00256] = 36'o000000000000; // 000400 (unused) RAM[00257] = 36'o000000000000; // 000401 (unused) RAM[00258] = 36'o000000000000; // 000402 (unused) RAM[00259] = 36'o000000000000; // 000403 (unused) RAM[00260] = 36'o000000000000; // 000404 (unused) RAM[00261] = 36'o000000000000; // 000405 (unused) RAM[00262] = 36'o000000000000; // 000406 (unused) RAM[00263] = 36'o000000000000; // 000407 (unused) RAM[00264] = 36'o000000000000; // 000410 (unused) RAM[00265] = 36'o000000000000; // 000411 (unused) RAM[00266] = 36'o000000000000; // 000412 (unused) RAM[00267] = 36'o000000000000; // 000413 (unused) RAM[00268] = 36'o000000000000; // 000414 (unused) RAM[00269] = 36'o000000000000; // 000415 (unused) RAM[00270] = 36'o000000000000; // 000416 (unused) RAM[00271] = 36'o000000000000; // 000417 (unused) RAM[00272] = 36'o254200000420; // 000420 RAM[00273] = 36'o255000000000; // 000421 RAM[00274] = 36'o254200000422; // 000422 RAM[00275] = 36'o254200000423; // 000423 RAM[00276] = 36'o000000000000; // 000424 RAM[00277] = 36'o000000000000; // 000425 RAM[00278] = 36'o000000000000; // 000426 RAM[00279] = 36'o254200000427; // 000427 RAM[00280] = 36'o000000000427; // 000430 RAM[00281] = 36'o000000000427; // 000431 RAM[00282] = 36'o000000000427; // 000432 RAM[00283] = 36'o000000000427; // 000433 RAM[00284] = 36'o000000000427; // 000434 RAM[00285] = 36'o000000000427; // 000435 RAM[00286] = 36'o000000000427; // 000436 RAM[00287] = 36'o000000000427; // 000437 RAM[00288] = 36'o254000030000; // 000440 RAM[00289] = 36'o000000000000; // 000441 (unused) RAM[00290] = 36'o000000000000; // 000442 (unused) RAM[00291] = 36'o000000000000; // 000443 (unused) RAM[00292] = 36'o000000000000; // 000444 (unused) RAM[00293] = 36'o000000000000; // 000445 (unused) RAM[00294] = 36'o000000000000; // 000446 (unused) RAM[00295] = 36'o000000000000; // 000447 (unused) RAM[00296] = 36'o000000000000; // 000450 (unused) RAM[00297] = 36'o000000000000; // 000451 (unused) RAM[00298] = 36'o000000000000; // 000452 (unused) RAM[00299] = 36'o000000000000; // 000453 (unused) RAM[00300] = 36'o000000000000; // 000454 (unused) RAM[00301] = 36'o000000000000; // 000455 (unused) RAM[00302] = 36'o000000000000; // 000456 (unused) RAM[00303] = 36'o000000000000; // 000457 (unused) RAM[00304] = 36'o000000000000; // 000460 (unused) RAM[00305] = 36'o000000000000; // 000461 (unused) RAM[00306] = 36'o000000000000; // 000462 (unused) RAM[00307] = 36'o000000000000; // 000463 (unused) RAM[00308] = 36'o000000000000; // 000464 (unused) RAM[00309] = 36'o000000000000; // 000465 (unused) RAM[00310] = 36'o000000000000; // 000466 (unused) RAM[00311] = 36'o000000000000; // 000467 (unused) RAM[00312] = 36'o000000000000; // 000470 (unused) RAM[00313] = 36'o000000000000; // 000471 (unused) RAM[00314] = 36'o000000000000; // 000472 (unused) RAM[00315] = 36'o000000000000; // 000473 (unused) RAM[00316] = 36'o000000000000; // 000474 (unused) RAM[00317] = 36'o000000000000; // 000475 (unused) RAM[00318] = 36'o000000000000; // 000476 (unused) RAM[00319] = 36'o000000000000; // 000477 (unused) RAM[00320] = 36'o000000000000; // 000500 RAM[00321] = 36'o000000000000; // 000501 RAM[00322] = 36'o000000000503; // 000502 RAM[00323] = 36'o254200000503; // 000503 RAM[00324] = 36'o000000000000; // 000504 (unused) RAM[00325] = 36'o000000000000; // 000505 (unused) RAM[00326] = 36'o000000000000; // 000506 (unused) RAM[00327] = 36'o000000000000; // 000507 (unused) RAM[00328] = 36'o000000000000; // 000510 (unused) RAM[00329] = 36'o000000000000; // 000511 (unused) RAM[00330] = 36'o000000000000; // 000512 (unused) RAM[00331] = 36'o000000000000; // 000513 (unused) RAM[00332] = 36'o000000000000; // 000514 (unused) RAM[00333] = 36'o000000000000; // 000515 (unused) RAM[00334] = 36'o000000000000; // 000516 (unused) RAM[00335] = 36'o000000000000; // 000517 (unused) RAM[00336] = 36'o000000000000; // 000520 (unused) RAM[00337] = 36'o000000000000; // 000521 (unused) RAM[00338] = 36'o000000000000; // 000522 (unused) RAM[00339] = 36'o000000000000; // 000523 (unused) RAM[00340] = 36'o000000000000; // 000524 (unused) RAM[00341] = 36'o000000000000; // 000525 (unused) RAM[00342] = 36'o000000000000; // 000526 (unused) RAM[00343] = 36'o000000000000; // 000527 (unused) RAM[00344] = 36'o000000000000; // 000530 (unused) RAM[00345] = 36'o000000000000; // 000531 (unused) RAM[00346] = 36'o000000000000; // 000532 (unused) RAM[00347] = 36'o000000000000; // 000533 (unused) RAM[00348] = 36'o000000000000; // 000534 (unused) RAM[00349] = 36'o000000000000; // 000535 (unused) RAM[00350] = 36'o000000000000; // 000536 (unused) RAM[00351] = 36'o000000000000; // 000537 (unused) RAM[00352] = 36'o000000000000; // 000540 (unused) RAM[00353] = 36'o000000000000; // 000541 (unused) RAM[00354] = 36'o000000000000; // 000542 (unused) RAM[00355] = 36'o000000000000; // 000543 (unused) RAM[00356] = 36'o000000000000; // 000544 (unused) RAM[00357] = 36'o000000000000; // 000545 (unused) RAM[00358] = 36'o000000000000; // 000546 (unused) RAM[00359] = 36'o000000000000; // 000547 (unused) RAM[00360] = 36'o000000000000; // 000550 (unused) RAM[00361] = 36'o000000000000; // 000551 (unused) RAM[00362] = 36'o000000000000; // 000552 (unused) RAM[00363] = 36'o000000000000; // 000553 (unused) RAM[00364] = 36'o000000000000; // 000554 (unused) RAM[00365] = 36'o000000000000; // 000555 (unused) RAM[00366] = 36'o000000000000; // 000556 (unused) RAM[00367] = 36'o000000000000; // 000557 (unused) RAM[00368] = 36'o000000000000; // 000560 (unused) RAM[00369] = 36'o000000000000; // 000561 (unused) RAM[00370] = 36'o000000000000; // 000562 (unused) RAM[00371] = 36'o000000000000; // 000563 (unused) RAM[00372] = 36'o000000000000; // 000564 (unused) RAM[00373] = 36'o000000000000; // 000565 (unused) RAM[00374] = 36'o000000000000; // 000566 (unused) RAM[00375] = 36'o000000000000; // 000567 (unused) RAM[00376] = 36'o000000000000; // 000570 (unused) RAM[00377] = 36'o000000000000; // 000571 (unused) RAM[00378] = 36'o000000000000; // 000572 (unused) RAM[00379] = 36'o000000000000; // 000573 (unused) RAM[00380] = 36'o000000000000; // 000574 (unused) RAM[00381] = 36'o000000000000; // 000575 (unused) RAM[00382] = 36'o000000000000; // 000576 (unused) RAM[00383] = 36'o000000000000; // 000577 (unused) RAM[12288] = 36'o254000030600; // 030000 RAM[12289] = 36'o254000030600; // 030001 RAM[12290] = 36'o254020027774; // 030002 RAM[12291] = 36'o254020027774; // 030003 RAM[12292] = 36'o254000030660; // 030004 RAM[12293] = 36'o254000030660; // 030005 RAM[12294] = 36'o254000030660; // 030006 RAM[12295] = 36'o254020027775; // 030007 RAM[12296] = 36'o254000030660; // 030010 RAM[12297] = 36'o254020027777; // 030011 RAM[12298] = 36'o000000000000; // 030012 RAM[12299] = 36'o254000030660; // 030013 RAM[12300] = 36'o254000030660; // 030014 RAM[12301] = 36'o254000030660; // 030015 RAM[12302] = 36'o254000030660; // 030016 RAM[12303] = 36'o254000030660; // 030017 RAM[12304] = 36'o446353414100; // 030020 RAM[12305] = 36'o645560000000; // 030021 RAM[12306] = 36'o000000000000; // 030022 RAM[12307] = 36'o000000000000; // 030023 RAM[12308] = 36'o000000000001; // 030024 RAM[12309] = 36'o000000030644; // 030025 RAM[12310] = 36'o000000000001; // 030026 RAM[12311] = 36'o000000030000; // 030027 RAM[12312] = 36'o000000030000; // 030030 RAM[12313] = 36'o777777777777; // 030031 RAM[12314] = 36'o777777777777; // 030032 RAM[12315] = 36'o000000000000; // 030033 RAM[12316] = 36'o000000000000; // 030034 RAM[12317] = 36'o000000000000; // 030035 RAM[12318] = 36'o000000000000; // 030036 RAM[12319] = 36'o000000000000; // 030037 RAM[12320] = 36'o000000000000; // 030040 RAM[12321] = 36'o000000000000; // 030041 RAM[12322] = 36'o777777777777; // 030042 RAM[12323] = 36'o000000000000; // 030043 RAM[12324] = 36'o000000000000; // 030044 RAM[12325] = 36'o000000000000; // 030045 RAM[12326] = 36'o000000000000; // 030046 RAM[12327] = 36'o000000000000; // 030047 RAM[12328] = 36'o000000000000; // 030050 RAM[12329] = 36'o000000000000; // 030051 RAM[12330] = 36'o000000000000; // 030052 RAM[12331] = 36'o000000000000; // 030053 RAM[12332] = 36'o000000000000; // 030054 RAM[12333] = 36'o000000000000; // 030055 RAM[12334] = 36'o000000000000; // 030056 RAM[12335] = 36'o254000030613; // 030057 RAM[12336] = 36'o254000030010; // 030060 RAM[12337] = 36'o037700000004; // 030061 RAM[12338] = 36'o254000030660; // 030062 RAM[12339] = 36'o254000030660; // 030063 RAM[12340] = 36'o350017000000; // 030064 RAM[12341] = 36'o263740000000; // 030065 RAM[12342] = 36'o255000000000; // 030066 RAM[12343] = 36'o255000000000; // 030067 RAM[12344] = 36'o255000000000; // 030070 RAM[12345] = 36'o255000000000; // 030071 RAM[12346] = 36'o255000000000; // 030072 RAM[12347] = 36'o255000000000; // 030073 RAM[12348] = 36'o255000000000; // 030074 RAM[12349] = 36'o255000000000; // 030075 RAM[12350] = 36'o255000000000; // 030076 RAM[12351] = 36'o255000000000; // 030077 RAM[12352] = 36'o255000000000; // 030100 RAM[12353] = 36'o255000000000; // 030101 RAM[12354] = 36'o254200030102; // 030102 RAM[12355] = 36'o000000000000; // 030103 RAM[12356] = 36'o000000000000; // 030104 RAM[12357] = 36'o000000000000; // 030105 RAM[12358] = 36'o000000000000; // 030106 RAM[12359] = 36'o000000000000; // 030107 RAM[12360] = 36'o000000000000; // 030110 RAM[12361] = 36'o000000000000; // 030111 RAM[12362] = 36'o000000000000; // 030112 RAM[12363] = 36'o000000000000; // 030113 RAM[12364] = 36'o000000000000; // 030114 RAM[12365] = 36'o000000000000; // 030115 RAM[12366] = 36'o000000000000; // 030116 RAM[12367] = 36'o000000000000; // 030117 RAM[12368] = 36'o000000000000; // 030120 RAM[12369] = 36'o000000000000; // 030121 RAM[12370] = 36'o000000000000; // 030122 RAM[12371] = 36'o000000000000; // 030123 RAM[12372] = 36'o030070030070; // 030124 RAM[12373] = 36'o030070030070; // 030125 RAM[12374] = 36'o030070030070; // 030126 RAM[12375] = 36'o030070030070; // 030127 RAM[12376] = 36'o030070030070; // 030130 RAM[12377] = 36'o030070030070; // 030131 RAM[12378] = 36'o030070030070; // 030132 RAM[12379] = 36'o030070030070; // 030133 RAM[12380] = 36'o030070030070; // 030134 RAM[12381] = 36'o030070030070; // 030135 RAM[12382] = 36'o030070030070; // 030136 RAM[12383] = 36'o030070030070; // 030137 RAM[12384] = 36'o030070030070; // 030140 RAM[12385] = 36'o030070030070; // 030141 RAM[12386] = 36'o000000000000; // 030142 RAM[12387] = 36'o000000000000; // 030143 RAM[12388] = 36'o000000000000; // 030144 RAM[12389] = 36'o000000000000; // 030145 RAM[12390] = 36'o000000000000; // 030146 (unused) RAM[12391] = 36'o000000000000; // 030147 (unused) RAM[12392] = 36'o000000000000; // 030150 (unused) RAM[12393] = 36'o000000000000; // 030151 (unused) RAM[12394] = 36'o000000000000; // 030152 (unused) RAM[12395] = 36'o000000000000; // 030153 (unused) RAM[12396] = 36'o000000000000; // 030154 (unused) RAM[12397] = 36'o000000000000; // 030155 (unused) RAM[12398] = 36'o000000000000; // 030156 (unused) RAM[12399] = 36'o000000000000; // 030157 (unused) RAM[12400] = 36'o000000000000; // 030160 (unused) RAM[12401] = 36'o000000000000; // 030161 (unused) RAM[12402] = 36'o000000000000; // 030162 (unused) RAM[12403] = 36'o000000000000; // 030163 (unused) RAM[12404] = 36'o000000000000; // 030164 (unused) RAM[12405] = 36'o000000000000; // 030165 (unused) RAM[12406] = 36'o000000000000; // 030166 (unused) RAM[12407] = 36'o000000000000; // 030167 (unused) RAM[12408] = 36'o000000000000; // 030170 (unused) RAM[12409] = 36'o000000000000; // 030171 (unused) RAM[12410] = 36'o000000000000; // 030172 (unused) RAM[12411] = 36'o000000000000; // 030173 (unused) RAM[12412] = 36'o000000000000; // 030174 (unused) RAM[12413] = 36'o000000000000; // 030175 (unused) RAM[12414] = 36'o000000000000; // 030176 (unused) RAM[12415] = 36'o000000000000; // 030177 (unused) RAM[12416] = 36'o000000000000; // 030200 (unused) RAM[12417] = 36'o000000000000; // 030201 (unused) RAM[12418] = 36'o000000000000; // 030202 (unused) RAM[12419] = 36'o000000000000; // 030203 (unused) RAM[12420] = 36'o000000000000; // 030204 (unused) RAM[12421] = 36'o000000000000; // 030205 (unused) RAM[12422] = 36'o000000000000; // 030206 (unused) RAM[12423] = 36'o000000000000; // 030207 (unused) RAM[12424] = 36'o000000000000; // 030210 (unused) RAM[12425] = 36'o000000000000; // 030211 (unused) RAM[12426] = 36'o000000000000; // 030212 (unused) RAM[12427] = 36'o000000000000; // 030213 (unused) RAM[12428] = 36'o000000000000; // 030214 (unused) RAM[12429] = 36'o000000000000; // 030215 (unused) RAM[12430] = 36'o000000000000; // 030216 (unused) RAM[12431] = 36'o000000000000; // 030217 RAM[12432] = 36'o000000000000; // 030220 RAM[12433] = 36'o000000000000; // 030221 RAM[12434] = 36'o000000000000; // 030222 RAM[12435] = 36'o000000000000; // 030223 RAM[12436] = 36'o000000000000; // 030224 RAM[12437] = 36'o000000000000; // 030225 RAM[12438] = 36'o000000000000; // 030226 RAM[12439] = 36'o000000000000; // 030227 RAM[12440] = 36'o000000000000; // 030230 RAM[12441] = 36'o000000000000; // 030231 RAM[12442] = 36'o000000000000; // 030232 RAM[12443] = 36'o000000000000; // 030233 RAM[12444] = 36'o000000000000; // 030234 RAM[12445] = 36'o000000000000; // 030235 RAM[12446] = 36'o000000000000; // 030236 RAM[12447] = 36'o000000000000; // 030237 RAM[12448] = 36'o000000000000; // 030240 RAM[12449] = 36'o000000000000; // 030241 RAM[12450] = 36'o000000000000; // 030242 (unused) RAM[12451] = 36'o000000000000; // 030243 (unused) RAM[12452] = 36'o000000000000; // 030244 (unused) RAM[12453] = 36'o000000000000; // 030245 (unused) RAM[12454] = 36'o000000000000; // 030246 (unused) RAM[12455] = 36'o000000000000; // 030247 (unused) RAM[12456] = 36'o000000000000; // 030250 (unused) RAM[12457] = 36'o000000000000; // 030251 (unused) RAM[12458] = 36'o000000000000; // 030252 (unused) RAM[12459] = 36'o000000000000; // 030253 (unused) RAM[12460] = 36'o000000000000; // 030254 (unused) RAM[12461] = 36'o000000000000; // 030255 (unused) RAM[12462] = 36'o000000000000; // 030256 (unused) RAM[12463] = 36'o000000000000; // 030257 (unused) RAM[12464] = 36'o000000000000; // 030260 (unused) RAM[12465] = 36'o000000000000; // 030261 (unused) RAM[12466] = 36'o000000000012; // 030262 RAM[12467] = 36'o000000000040; // 030263 RAM[12468] = 36'o000000000012; // 030264 RAM[12469] = 36'o000000000000; // 030265 (unused) RAM[12470] = 36'o000000000000; // 030266 (unused) RAM[12471] = 36'o000000000000; // 030267 (unused) RAM[12472] = 36'o606251566400; // 030270 RAM[12473] = 36'o605664000000; // 030271 RAM[12474] = 36'o000000000000; // 030272 (unused) RAM[12475] = 36'o000000000000; // 030273 (unused) RAM[12476] = 36'o000000000000; // 030274 (unused) RAM[12477] = 36'o000000000000; // 030275 (unused) RAM[12478] = 36'o000000000000; // 030276 (unused) RAM[12479] = 36'o606251566400; // 030277 RAM[12480] = 36'o605664000000; // 030300 RAM[12481] = 36'o000000000000; // 030301 (unused) RAM[12482] = 36'o000000000000; // 030302 (unused) RAM[12483] = 36'o777577030303; // 030303 RAM[12484] = 36'o000000000000; // 030304 (unused) RAM[12485] = 36'o000000000000; // 030305 (unused) RAM[12486] = 36'o000000000000; // 030306 (unused) RAM[12487] = 36'o000000000000; // 030307 (unused) RAM[12488] = 36'o000000000000; // 030310 (unused) RAM[12489] = 36'o000000000000; // 030311 (unused) RAM[12490] = 36'o000000000000; // 030312 (unused) RAM[12491] = 36'o000000000000; // 030313 (unused) RAM[12492] = 36'o000000000000; // 030314 (unused) RAM[12493] = 36'o000000000000; // 030315 (unused) RAM[12494] = 36'o000000000000; // 030316 (unused) RAM[12495] = 36'o000000000000; // 030317 (unused) RAM[12496] = 36'o000000000000; // 030320 (unused) RAM[12497] = 36'o000000000000; // 030321 (unused) RAM[12498] = 36'o000000000000; // 030322 (unused) RAM[12499] = 36'o000000000000; // 030323 (unused) RAM[12500] = 36'o000000000000; // 030324 (unused) RAM[12501] = 36'o000000000000; // 030325 (unused) RAM[12502] = 36'o000000000000; // 030326 (unused) RAM[12503] = 36'o000000000000; // 030327 (unused) RAM[12504] = 36'o000000000000; // 030330 (unused) RAM[12505] = 36'o000000000000; // 030331 (unused) RAM[12506] = 36'o000000000000; // 030332 (unused) RAM[12507] = 36'o000000000000; // 030333 (unused) RAM[12508] = 36'o000000000000; // 030334 (unused) RAM[12509] = 36'o000000000000; // 030335 (unused) RAM[12510] = 36'o000000000000; // 030336 (unused) RAM[12511] = 36'o000000000000; // 030337 (unused) RAM[12512] = 36'o000000000000; // 030340 (unused) RAM[12513] = 36'o000000000000; // 030341 (unused) RAM[12514] = 36'o000000000000; // 030342 (unused) RAM[12515] = 36'o000000000000; // 030343 (unused) RAM[12516] = 36'o000000000000; // 030344 (unused) RAM[12517] = 36'o000000000000; // 030345 (unused) RAM[12518] = 36'o000000000000; // 030346 (unused) RAM[12519] = 36'o000000000000; // 030347 (unused) RAM[12520] = 36'o000000000000; // 030350 (unused) RAM[12521] = 36'o000000000000; // 030351 (unused) RAM[12522] = 36'o000000000000; // 030352 (unused) RAM[12523] = 36'o000000000000; // 030353 (unused) RAM[12524] = 36'o000000000000; // 030354 (unused) RAM[12525] = 36'o000000000000; // 030355 (unused) RAM[12526] = 36'o000000000000; // 030356 (unused) RAM[12527] = 36'o000000000000; // 030357 (unused) RAM[12528] = 36'o000000000000; // 030360 (unused) RAM[12529] = 36'o000000000000; // 030361 (unused) RAM[12530] = 36'o000000000000; // 030362 (unused) RAM[12531] = 36'o000000000000; // 030363 (unused) RAM[12532] = 36'o000000000000; // 030364 (unused) RAM[12533] = 36'o000000000000; // 030365 (unused) RAM[12534] = 36'o000000000000; // 030366 (unused) RAM[12535] = 36'o000000000000; // 030367 (unused) RAM[12536] = 36'o000000000000; // 030370 (unused) RAM[12537] = 36'o000000000000; // 030371 (unused) RAM[12538] = 36'o000000000000; // 030372 (unused) RAM[12539] = 36'o000000000000; // 030373 (unused) RAM[12540] = 36'o000000000000; // 030374 (unused) RAM[12541] = 36'o000000000000; // 030375 (unused) RAM[12542] = 36'o000000000000; // 030376 (unused) RAM[12543] = 36'o000000000000; // 030377 (unused) RAM[12544] = 36'o000000000000; // 030400 (unused) RAM[12545] = 36'o000000000000; // 030401 (unused) RAM[12546] = 36'o000000000000; // 030402 (unused) RAM[12547] = 36'o000000000000; // 030403 (unused) RAM[12548] = 36'o000000000000; // 030404 (unused) RAM[12549] = 36'o000000000000; // 030405 (unused) RAM[12550] = 36'o000000000000; // 030406 (unused) RAM[12551] = 36'o000000000000; // 030407 (unused) RAM[12552] = 36'o000000000000; // 030410 (unused) RAM[12553] = 36'o000000000000; // 030411 (unused) RAM[12554] = 36'o000000000000; // 030412 (unused) RAM[12555] = 36'o000000000000; // 030413 (unused) RAM[12556] = 36'o000000000000; // 030414 (unused) RAM[12557] = 36'o000000000000; // 030415 (unused) RAM[12558] = 36'o000000000000; // 030416 (unused) RAM[12559] = 36'o000000000000; // 030417 (unused) RAM[12560] = 36'o000000000000; // 030420 (unused) RAM[12561] = 36'o000000000000; // 030421 (unused) RAM[12562] = 36'o000000000000; // 030422 (unused) RAM[12563] = 36'o000000000000; // 030423 (unused) RAM[12564] = 36'o000000000000; // 030424 (unused) RAM[12565] = 36'o000000000000; // 030425 (unused) RAM[12566] = 36'o000000000000; // 030426 (unused) RAM[12567] = 36'o000000000000; // 030427 (unused) RAM[12568] = 36'o000000000000; // 030430 (unused) RAM[12569] = 36'o000000000000; // 030431 (unused) RAM[12570] = 36'o000000000000; // 030432 (unused) RAM[12571] = 36'o000000000000; // 030433 (unused) RAM[12572] = 36'o000000000000; // 030434 (unused) RAM[12573] = 36'o000000000000; // 030435 (unused) RAM[12574] = 36'o000000000000; // 030436 (unused) RAM[12575] = 36'o000000000000; // 030437 (unused) RAM[12576] = 36'o000000000000; // 030440 (unused) RAM[12577] = 36'o000000000000; // 030441 (unused) RAM[12578] = 36'o000000000000; // 030442 (unused) RAM[12579] = 36'o000000000000; // 030443 (unused) RAM[12580] = 36'o000000000000; // 030444 (unused) RAM[12581] = 36'o000000000000; // 030445 (unused) RAM[12582] = 36'o000000000000; // 030446 (unused) RAM[12583] = 36'o000000000000; // 030447 (unused) RAM[12584] = 36'o000000000000; // 030450 (unused) RAM[12585] = 36'o000000000000; // 030451 (unused) RAM[12586] = 36'o000000000000; // 030452 (unused) RAM[12587] = 36'o000000000000; // 030453 (unused) RAM[12588] = 36'o000000000000; // 030454 (unused) RAM[12589] = 36'o000000000000; // 030455 (unused) RAM[12590] = 36'o000000000000; // 030456 (unused) RAM[12591] = 36'o000000000000; // 030457 (unused) RAM[12592] = 36'o000000000000; // 030460 (unused) RAM[12593] = 36'o000000000000; // 030461 (unused) RAM[12594] = 36'o000000000000; // 030462 (unused) RAM[12595] = 36'o000000000000; // 030463 (unused) RAM[12596] = 36'o000000000000; // 030464 (unused) RAM[12597] = 36'o000000000000; // 030465 (unused) RAM[12598] = 36'o000000000000; // 030466 (unused) RAM[12599] = 36'o000000000000; // 030467 (unused) RAM[12600] = 36'o000000000000; // 030470 (unused) RAM[12601] = 36'o000000000000; // 030471 (unused) RAM[12602] = 36'o000000000000; // 030472 (unused) RAM[12603] = 36'o000000000000; // 030473 (unused) RAM[12604] = 36'o000000000000; // 030474 (unused) RAM[12605] = 36'o000000000000; // 030475 (unused) RAM[12606] = 36'o000000000000; // 030476 (unused) RAM[12607] = 36'o000000000000; // 030477 (unused) RAM[12608] = 36'o000000000000; // 030500 (unused) RAM[12609] = 36'o000000000000; // 030501 (unused) RAM[12610] = 36'o000000000000; // 030502 (unused) RAM[12611] = 36'o000000000000; // 030503 (unused) RAM[12612] = 36'o000000000000; // 030504 RAM[12613] = 36'o000000000000; // 030505 RAM[12614] = 36'o000000000000; // 030506 RAM[12615] = 36'o000000000000; // 030507 RAM[12616] = 36'o000000000000; // 030510 RAM[12617] = 36'o000000000000; // 030511 RAM[12618] = 36'o000000000000; // 030512 RAM[12619] = 36'o000000000000; // 030513 RAM[12620] = 36'o000000000000; // 030514 RAM[12621] = 36'o000000000000; // 030515 RAM[12622] = 36'o000000000000; // 030516 RAM[12623] = 36'o000000000000; // 030517 RAM[12624] = 36'o000000000000; // 030520 RAM[12625] = 36'o000000000000; // 030521 RAM[12626] = 36'o000000000000; // 030522 RAM[12627] = 36'o000000000000; // 030523 RAM[12628] = 36'o000000000000; // 030524 RAM[12629] = 36'o000000000000; // 030525 RAM[12630] = 36'o000000000000; // 030526 (unused) RAM[12631] = 36'o000000000000; // 030527 (unused) RAM[12632] = 36'o000000000000; // 030530 (unused) RAM[12633] = 36'o000000000000; // 030531 (unused) RAM[12634] = 36'o000000000000; // 030532 (unused) RAM[12635] = 36'o000000000000; // 030533 (unused) RAM[12636] = 36'o000000000000; // 030534 (unused) RAM[12637] = 36'o000000000000; // 030535 (unused) RAM[12638] = 36'o000000000000; // 030536 (unused) RAM[12639] = 36'o000000000000; // 030537 (unused) RAM[12640] = 36'o000000000000; // 030540 (unused) RAM[12641] = 36'o000000000000; // 030541 (unused) RAM[12642] = 36'o000000000000; // 030542 (unused) RAM[12643] = 36'o000000000000; // 030543 (unused) RAM[12644] = 36'o000000000000; // 030544 (unused) RAM[12645] = 36'o000000000000; // 030545 (unused) RAM[12646] = 36'o000000000000; // 030546 (unused) RAM[12647] = 36'o000000000000; // 030547 (unused) RAM[12648] = 36'o000000000000; // 030550 (unused) RAM[12649] = 36'o000000000000; // 030551 (unused) RAM[12650] = 36'o000000000000; // 030552 (unused) RAM[12651] = 36'o000000000000; // 030553 (unused) RAM[12652] = 36'o000000000000; // 030554 (unused) RAM[12653] = 36'o000000000000; // 030555 (unused) RAM[12654] = 36'o000000000000; // 030556 (unused) RAM[12655] = 36'o000000000000; // 030557 (unused) RAM[12656] = 36'o000000000000; // 030560 (unused) RAM[12657] = 36'o000000000000; // 030561 (unused) RAM[12658] = 36'o000000000000; // 030562 (unused) RAM[12659] = 36'o000000000000; // 030563 (unused) RAM[12660] = 36'o000000000000; // 030564 (unused) RAM[12661] = 36'o000000000000; // 030565 (unused) RAM[12662] = 36'o000000000000; // 030566 (unused) RAM[12663] = 36'o000000000000; // 030567 (unused) RAM[12664] = 36'o000000000000; // 030570 (unused) RAM[12665] = 36'o000000000000; // 030571 (unused) RAM[12666] = 36'o000000000000; // 030572 (unused) RAM[12667] = 36'o000000000000; // 030573 (unused) RAM[12668] = 36'o000000000000; // 030574 (unused) RAM[12669] = 36'o000000000000; // 030575 (unused) RAM[12670] = 36'o000000000000; // 030576 (unused) RAM[12671] = 36'o000000000000; // 030577 RAM[12672] = 36'o402000030037; // 030600 RAM[12673] = 36'o265000030602; // 030601 RAM[12674] = 36'o603000010000; // 030602 RAM[12675] = 36'o476000030037; // 030603 RAM[12676] = 36'o336000030042; // 030604 RAM[12677] = 36'o402000030037; // 030605 RAM[12678] = 36'o332000030037; // 030606 RAM[12679] = 36'o254000030631; // 030607 RAM[12680] = 36'o336000030044; // 030610 RAM[12681] = 36'o476000030024; // 030611 RAM[12682] = 36'o254000030631; // 030612 RAM[12683] = 36'o350000030047; // 030613 RAM[12684] = 36'o370000030024; // 030614 RAM[12685] = 36'o336000030037; // 030615 RAM[12686] = 36'o254000030624; // 030616 RAM[12687] = 36'o332000030024; // 030617 RAM[12688] = 36'o254000030660; // 030620 RAM[12689] = 36'o336000030044; // 030621 RAM[12690] = 36'o047000000012; // 030622 RAM[12691] = 36'o254020030012; // 030623 RAM[12692] = 36'o332000030024; // 030624 RAM[12693] = 36'o254000030660; // 030625 RAM[12694] = 36'o336000030044; // 030626 RAM[12695] = 36'o254200030000; // 030627 RAM[12696] = 36'o254020030012; // 030630 RAM[12697] = 36'o402000030037; // 030631 RAM[12698] = 36'o265000030633; // 030632 RAM[12699] = 36'o603000010000; // 030633 RAM[12700] = 36'o476000030037; // 030634 RAM[12701] = 36'o336000030042; // 030635 RAM[12702] = 36'o402000030037; // 030636 RAM[12703] = 36'o336000030037; // 030637 RAM[12704] = 36'o254000030660; // 030640 RAM[12705] = 36'o331000030043; // 030641 RAM[12706] = 36'o051140030644; // 030642 RAM[12707] = 36'o254000030660; // 030643 RAM[12708] = 36'o000000000000; // 030644 (unused) RAM[12709] = 36'o000000000000; // 030645 (unused) RAM[12710] = 36'o000000000000; // 030646 (unused) RAM[12711] = 36'o000000000000; // 030647 (unused) RAM[12712] = 36'o000000000000; // 030650 (unused) RAM[12713] = 36'o000000000000; // 030651 (unused) RAM[12714] = 36'o000000000000; // 030652 (unused) RAM[12715] = 36'o000000000000; // 030653 (unused) RAM[12716] = 36'o000000000000; // 030654 (unused) RAM[12717] = 36'o000000000000; // 030655 (unused) RAM[12718] = 36'o000000000000; // 030656 (unused) RAM[12719] = 36'o000000000000; // 030657 (unused) RAM[12720] = 36'o254000030661; // 030660 RAM[12721] = 36'o334000000000; // 030661 RAM[12722] = 36'o254200000000; // 030662 RAM[12723] = 36'o320000030664; // 030663 RAM[12724] = 36'o334000000000; // 030664 RAM[12725] = 36'o254200000000; // 030665 RAM[12726] = 36'o320000030670; // 030666 RAM[12727] = 36'o334000000000; // 030667 RAM[12728] = 36'o254200000000; // 030670 RAM[12729] = 36'o324000030672; // 030671 RAM[12730] = 36'o334000000000; // 030672 RAM[12731] = 36'o254200000000; // 030673 RAM[12732] = 36'o324000030676; // 030674 RAM[12733] = 36'o254200000000; // 030675 RAM[12734] = 36'o200000035000; // 030676 RAM[12735] = 36'o334000000000; // 030677 RAM[12736] = 36'o254200030701; // 030700 RAM[12737] = 36'o324000030702; // 030701 RAM[12738] = 36'o200000035001; // 030702 RAM[12739] = 36'o334000000000; // 030703 RAM[12740] = 36'o254200030705; // 030704 RAM[12741] = 36'o324000030706; // 030705 RAM[12742] = 36'o200000035000; // 030706 RAM[12743] = 36'o335000000000; // 030707 RAM[12744] = 36'o254200030711; // 030710 RAM[12745] = 36'o324000030712; // 030711 RAM[12746] = 36'o200000035001; // 030712 RAM[12747] = 36'o330000000000; // 030713 RAM[12748] = 36'o334000000000; // 030714 RAM[12749] = 36'o254200030716; // 030715 RAM[12750] = 36'o324000030717; // 030716 RAM[12751] = 36'o200000035001; // 030717 RAM[12752] = 36'o335000000000; // 030720 RAM[12753] = 36'o334000000000; // 030721 RAM[12754] = 36'o254200030723; // 030722 RAM[12755] = 36'o324000030724; // 030723 RAM[12756] = 36'o200000035000; // 030724 RAM[12757] = 36'o336000000000; // 030725 RAM[12758] = 36'o334000000000; // 030726 RAM[12759] = 36'o254200030730; // 030727 RAM[12760] = 36'o324000030731; // 030730 RAM[12761] = 36'o200000035001; // 030731 RAM[12762] = 36'o336000000000; // 030732 RAM[12763] = 36'o254200030734; // 030733 RAM[12764] = 36'o324000030735; // 030734 RAM[12765] = 36'o200000035001; // 030735 RAM[12766] = 36'o332000000000; // 030736 RAM[12767] = 36'o334000000000; // 030737 RAM[12768] = 36'o254200030741; // 030740 RAM[12769] = 36'o324000030742; // 030741 RAM[12770] = 36'o200000035000; // 030742 RAM[12771] = 36'o332000000000; // 030743 RAM[12772] = 36'o254200030745; // 030744 RAM[12773] = 36'o324000030746; // 030745 RAM[12774] = 36'o200000035000; // 030746 RAM[12775] = 36'o330000000000; // 030747 RAM[12776] = 36'o334000000000; // 030750 RAM[12777] = 36'o254200030752; // 030751 RAM[12778] = 36'o324000030753; // 030752 RAM[12779] = 36'o200000035000; // 030753 RAM[12780] = 36'o331000000000; // 030754 RAM[12781] = 36'o334000000000; // 030755 RAM[12782] = 36'o254200030757; // 030756 RAM[12783] = 36'o324000030760; // 030757 RAM[12784] = 36'o200000035001; // 030760 RAM[12785] = 36'o331000000000; // 030761 RAM[12786] = 36'o254200030763; // 030762 RAM[12787] = 36'o324000030764; // 030763 RAM[12788] = 36'o200000035002; // 030764 RAM[12789] = 36'o337000000000; // 030765 RAM[12790] = 36'o254200030767; // 030766 RAM[12791] = 36'o324000030770; // 030767 RAM[12792] = 36'o200000035001; // 030770 RAM[12793] = 36'o337000000000; // 030771 RAM[12794] = 36'o334000000000; // 030772 RAM[12795] = 36'o254200030774; // 030773 RAM[12796] = 36'o324000030775; // 030774 RAM[12797] = 36'o200000035002; // 030775 RAM[12798] = 36'o331000000000; // 030776 RAM[12799] = 36'o334000000000; // 030777 RAM[12800] = 36'o254200031001; // 031000 RAM[12801] = 36'o324000031002; // 031001 RAM[12802] = 36'o200000035000; // 031002 RAM[12803] = 36'o333000000000; // 031003 RAM[12804] = 36'o254200031005; // 031004 RAM[12805] = 36'o324000031006; // 031005 RAM[12806] = 36'o200000035003; // 031006 RAM[12807] = 36'o333000000000; // 031007 RAM[12808] = 36'o254200031011; // 031010 RAM[12809] = 36'o324000031012; // 031011 RAM[12810] = 36'o200000035002; // 031012 RAM[12811] = 36'o333000000000; // 031013 RAM[12812] = 36'o334000000000; // 031014 RAM[12813] = 36'o254200031016; // 031015 RAM[12814] = 36'o324000031017; // 031016 RAM[12815] = 36'o200000035004; // 031017 RAM[12816] = 36'o336000000000; // 031020 RAM[12817] = 36'o254200031022; // 031021 RAM[12818] = 36'o324000031023; // 031022 RAM[12819] = 36'o200000035005; // 031023 RAM[12820] = 36'o336000000000; // 031024 RAM[12821] = 36'o254200031026; // 031025 RAM[12822] = 36'o324000031027; // 031026 RAM[12823] = 36'o200000035006; // 031027 RAM[12824] = 36'o336000000000; // 031030 RAM[12825] = 36'o254200031032; // 031031 RAM[12826] = 36'o324000031033; // 031032 RAM[12827] = 36'o200000035007; // 031033 RAM[12828] = 36'o336000000000; // 031034 RAM[12829] = 36'o254200031036; // 031035 RAM[12830] = 36'o324000031037; // 031036 RAM[12831] = 36'o200000035010; // 031037 RAM[12832] = 36'o336000000000; // 031040 RAM[12833] = 36'o254200031042; // 031041 RAM[12834] = 36'o324000031043; // 031042 RAM[12835] = 36'o200000035011; // 031043 RAM[12836] = 36'o336000000000; // 031044 RAM[12837] = 36'o254200031046; // 031045 RAM[12838] = 36'o324000031047; // 031046 RAM[12839] = 36'o200000035012; // 031047 RAM[12840] = 36'o336000000000; // 031050 RAM[12841] = 36'o254200031052; // 031051 RAM[12842] = 36'o324000031053; // 031052 RAM[12843] = 36'o200000035013; // 031053 RAM[12844] = 36'o336000000000; // 031054 RAM[12845] = 36'o254200031056; // 031055 RAM[12846] = 36'o324000031057; // 031056 RAM[12847] = 36'o200000035014; // 031057 RAM[12848] = 36'o336000000000; // 031060 RAM[12849] = 36'o254200031062; // 031061 RAM[12850] = 36'o324000031063; // 031062 RAM[12851] = 36'o200000035015; // 031063 RAM[12852] = 36'o336000000000; // 031064 RAM[12853] = 36'o254200031066; // 031065 RAM[12854] = 36'o324000031067; // 031066 RAM[12855] = 36'o200000035016; // 031067 RAM[12856] = 36'o336000000000; // 031070 RAM[12857] = 36'o254200031072; // 031071 RAM[12858] = 36'o324000031073; // 031072 RAM[12859] = 36'o200000035017; // 031073 RAM[12860] = 36'o336000000000; // 031074 RAM[12861] = 36'o254200031076; // 031075 RAM[12862] = 36'o324000031077; // 031076 RAM[12863] = 36'o200000035020; // 031077 RAM[12864] = 36'o336000000000; // 031100 RAM[12865] = 36'o254200031102; // 031101 RAM[12866] = 36'o324000031103; // 031102 RAM[12867] = 36'o200000035021; // 031103 RAM[12868] = 36'o336000000000; // 031104 RAM[12869] = 36'o254200031106; // 031105 RAM[12870] = 36'o324000031107; // 031106 RAM[12871] = 36'o200000035022; // 031107 RAM[12872] = 36'o336000000000; // 031110 RAM[12873] = 36'o254200031112; // 031111 RAM[12874] = 36'o324000031113; // 031112 RAM[12875] = 36'o200000035023; // 031113 RAM[12876] = 36'o336000000000; // 031114 RAM[12877] = 36'o254200031116; // 031115 RAM[12878] = 36'o324000031117; // 031116 RAM[12879] = 36'o200000035024; // 031117 RAM[12880] = 36'o336000000000; // 031120 RAM[12881] = 36'o254200031122; // 031121 RAM[12882] = 36'o324000031123; // 031122 RAM[12883] = 36'o200000035025; // 031123 RAM[12884] = 36'o336000000000; // 031124 RAM[12885] = 36'o254200031126; // 031125 RAM[12886] = 36'o324000031127; // 031126 RAM[12887] = 36'o200000035026; // 031127 RAM[12888] = 36'o336000000000; // 031130 RAM[12889] = 36'o254200031132; // 031131 RAM[12890] = 36'o324000031133; // 031132 RAM[12891] = 36'o200000035027; // 031133 RAM[12892] = 36'o336000000000; // 031134 RAM[12893] = 36'o254200031136; // 031135 RAM[12894] = 36'o324000031137; // 031136 RAM[12895] = 36'o200000035030; // 031137 RAM[12896] = 36'o336000000000; // 031140 RAM[12897] = 36'o254200031142; // 031141 RAM[12898] = 36'o324000031143; // 031142 RAM[12899] = 36'o200000035031; // 031143 RAM[12900] = 36'o336000000000; // 031144 RAM[12901] = 36'o254200031146; // 031145 RAM[12902] = 36'o324000031147; // 031146 RAM[12903] = 36'o200000035032; // 031147 RAM[12904] = 36'o336000000000; // 031150 RAM[12905] = 36'o254200031152; // 031151 RAM[12906] = 36'o324000031153; // 031152 RAM[12907] = 36'o200000035033; // 031153 RAM[12908] = 36'o336000000000; // 031154 RAM[12909] = 36'o254200031156; // 031155 RAM[12910] = 36'o324000031157; // 031156 RAM[12911] = 36'o200000035034; // 031157 RAM[12912] = 36'o336000000000; // 031160 RAM[12913] = 36'o254200031162; // 031161 RAM[12914] = 36'o324000031163; // 031162 RAM[12915] = 36'o200000035035; // 031163 RAM[12916] = 36'o336000000000; // 031164 RAM[12917] = 36'o254200031166; // 031165 RAM[12918] = 36'o324000031167; // 031166 RAM[12919] = 36'o200000035036; // 031167 RAM[12920] = 36'o336000000000; // 031170 RAM[12921] = 36'o254200031172; // 031171 RAM[12922] = 36'o324000031173; // 031172 RAM[12923] = 36'o200000035037; // 031173 RAM[12924] = 36'o336000000000; // 031174 RAM[12925] = 36'o254200031176; // 031175 RAM[12926] = 36'o324000031177; // 031176 RAM[12927] = 36'o200000035040; // 031177 RAM[12928] = 36'o336000000000; // 031200 RAM[12929] = 36'o254200031202; // 031201 RAM[12930] = 36'o324000031203; // 031202 RAM[12931] = 36'o200000035041; // 031203 RAM[12932] = 36'o336000000000; // 031204 RAM[12933] = 36'o254200031206; // 031205 RAM[12934] = 36'o324000031207; // 031206 RAM[12935] = 36'o200000035042; // 031207 RAM[12936] = 36'o336000000000; // 031210 RAM[12937] = 36'o254200031212; // 031211 RAM[12938] = 36'o324000031213; // 031212 RAM[12939] = 36'o200000035043; // 031213 RAM[12940] = 36'o336000000000; // 031214 RAM[12941] = 36'o254200031216; // 031215 RAM[12942] = 36'o324000031217; // 031216 RAM[12943] = 36'o200000035011; // 031217 RAM[12944] = 36'o336000000000; // 031220 RAM[12945] = 36'o254200031222; // 031221 RAM[12946] = 36'o324000031223; // 031222 RAM[12947] = 36'o200000035044; // 031223 RAM[12948] = 36'o336000000000; // 031224 RAM[12949] = 36'o254200031226; // 031225 RAM[12950] = 36'o324000031227; // 031226 RAM[12951] = 36'o200000035045; // 031227 RAM[12952] = 36'o336000000000; // 031230 RAM[12953] = 36'o254200031232; // 031231 RAM[12954] = 36'o324000031233; // 031232 RAM[12955] = 36'o200000035046; // 031233 RAM[12956] = 36'o336000000000; // 031234 RAM[12957] = 36'o254200031236; // 031235 RAM[12958] = 36'o324000031237; // 031236 RAM[12959] = 36'o200000035047; // 031237 RAM[12960] = 36'o336000000000; // 031240 RAM[12961] = 36'o254200031242; // 031241 RAM[12962] = 36'o324000031243; // 031242 RAM[12963] = 36'o200000035050; // 031243 RAM[12964] = 36'o336000000000; // 031244 RAM[12965] = 36'o254200031246; // 031245 RAM[12966] = 36'o324000031247; // 031246 RAM[12967] = 36'o200000035051; // 031247 RAM[12968] = 36'o336000000000; // 031250 RAM[12969] = 36'o254200031252; // 031251 RAM[12970] = 36'o324000031253; // 031252 RAM[12971] = 36'o200000035052; // 031253 RAM[12972] = 36'o336000000000; // 031254 RAM[12973] = 36'o254200031256; // 031255 RAM[12974] = 36'o324000031257; // 031256 RAM[12975] = 36'o200000035053; // 031257 RAM[12976] = 36'o336000000000; // 031260 RAM[12977] = 36'o254200031262; // 031261 RAM[12978] = 36'o324000031263; // 031262 RAM[12979] = 36'o200000035003; // 031263 RAM[12980] = 36'o336000000000; // 031264 RAM[12981] = 36'o254200031266; // 031265 RAM[12982] = 36'o324000031267; // 031266 RAM[12983] = 36'o201000035001; // 031267 RAM[12984] = 36'o337000000000; // 031270 RAM[12985] = 36'o254200031272; // 031271 RAM[12986] = 36'o324000031273; // 031272 RAM[12987] = 36'o200000035000; // 031273 RAM[12988] = 36'o331000035001; // 031274 RAM[12989] = 36'o254200031276; // 031275 RAM[12990] = 36'o324000031277; // 031276 RAM[12991] = 36'o200000035000; // 031277 RAM[12992] = 36'o331000035003; // 031300 RAM[12993] = 36'o254200031302; // 031301 RAM[12994] = 36'o324000031303; // 031302 RAM[12995] = 36'o200000035000; // 031303 RAM[12996] = 36'o310000035054; // 031304 RAM[12997] = 36'o200000000000; // 031305 RAM[12998] = 36'o332000000000; // 031306 RAM[12999] = 36'o254200031310; // 031307 RAM[13000] = 36'o324000031311; // 031310 RAM[13001] = 36'o200000035000; // 031311 RAM[13002] = 36'o300000035054; // 031312 RAM[13003] = 36'o200000000000; // 031313 RAM[13004] = 36'o332000000000; // 031314 RAM[13005] = 36'o254200031316; // 031315 RAM[13006] = 36'o324000031317; // 031316 RAM[13007] = 36'o200000035000; // 031317 RAM[13008] = 36'o300740035054; // 031320 RAM[13009] = 36'o200000000000; // 031321 RAM[13010] = 36'o332000000000; // 031322 RAM[13011] = 36'o254200031324; // 031323 RAM[13012] = 36'o324000031325; // 031324 RAM[13013] = 36'o200000035000; // 031325 RAM[13014] = 36'o310740035054; // 031326 RAM[13015] = 36'o200000000000; // 031327 RAM[13016] = 36'o332000000000; // 031330 RAM[13017] = 36'o254200031332; // 031331 RAM[13018] = 36'o324000031333; // 031332 RAM[13019] = 36'o200040035000; // 031333 RAM[13020] = 36'o200040035001; // 031334 RAM[13021] = 36'o336000000001; // 031335 RAM[13022] = 36'o254200031337; // 031336 RAM[13023] = 36'o324000031340; // 031337 RAM[13024] = 36'o200040035000; // 031340 RAM[13025] = 36'o332000000001; // 031341 RAM[13026] = 36'o254200031343; // 031342 RAM[13027] = 36'o324000031344; // 031343 RAM[13028] = 36'o200000035000; // 031344 RAM[13029] = 36'o200340035054; // 031345 RAM[13030] = 36'o370000000007; // 031346 RAM[13031] = 36'o200000000000; // 031347 RAM[13032] = 36'o332000000000; // 031350 RAM[13033] = 36'o254200031352; // 031351 RAM[13034] = 36'o324000031353; // 031352 RAM[13035] = 36'o200000035000; // 031353 RAM[13036] = 36'o200040035000; // 031354 RAM[13037] = 36'o330040035001; // 031355 RAM[13038] = 36'o336000000001; // 031356 RAM[13039] = 36'o254200031360; // 031357 RAM[13040] = 36'o324000031361; // 031360 RAM[13041] = 36'o332000000000; // 031361 RAM[13042] = 36'o254200031363; // 031362 RAM[13043] = 36'o324000031364; // 031363 RAM[13044] = 36'o200000035000; // 031364 RAM[13045] = 36'o200100035000; // 031365 RAM[13046] = 36'o330100035001; // 031366 RAM[13047] = 36'o336000000002; // 031367 RAM[13048] = 36'o254200031371; // 031370 RAM[13049] = 36'o324000031372; // 031371 RAM[13050] = 36'o332000000000; // 031372 RAM[13051] = 36'o254200031374; // 031373 RAM[13052] = 36'o324000031375; // 031374 RAM[13053] = 36'o200000035000; // 031375 RAM[13054] = 36'o200200035000; // 031376 RAM[13055] = 36'o330200035001; // 031377 RAM[13056] = 36'o336000000004; // 031400 RAM[13057] = 36'o254200031402; // 031401 RAM[13058] = 36'o324000031403; // 031402 RAM[13059] = 36'o332000000000; // 031403 RAM[13060] = 36'o254200031405; // 031404 RAM[13061] = 36'o324000031406; // 031405 RAM[13062] = 36'o200000035000; // 031406 RAM[13063] = 36'o200400035000; // 031407 RAM[13064] = 36'o330400035001; // 031410 RAM[13065] = 36'o336000000010; // 031411 RAM[13066] = 36'o254200031413; // 031412 RAM[13067] = 36'o324000031414; // 031413 RAM[13068] = 36'o332000000000; // 031414 RAM[13069] = 36'o254200031416; // 031415 RAM[13070] = 36'o324000031417; // 031416 RAM[13071] = 36'o200000035000; // 031417 RAM[13072] = 36'o330000035001; // 031420 RAM[13073] = 36'o332000000000; // 031421 RAM[13074] = 36'o254200031423; // 031422 RAM[13075] = 36'o324000031424; // 031423 RAM[13076] = 36'o200340035001; // 031424 RAM[13077] = 36'o200000035000; // 031425 RAM[13078] = 36'o207000000007; // 031426 RAM[13079] = 36'o332000000000; // 031427 RAM[13080] = 36'o254200031431; // 031430 RAM[13081] = 36'o324000031432; // 031431 RAM[13082] = 36'o200340035001; // 031432 RAM[13083] = 36'o200000035000; // 031433 RAM[13084] = 36'o543000000007; // 031434 RAM[13085] = 36'o332000000000; // 031435 RAM[13086] = 36'o254200031437; // 031436 RAM[13087] = 36'o324000031440; // 031437 RAM[13088] = 36'o200000035000; // 031440 RAM[13089] = 36'o320000031442; // 031441 RAM[13090] = 36'o332000000000; // 031442 RAM[13091] = 36'o254200031444; // 031443 RAM[13092] = 36'o324000031445; // 031444 RAM[13093] = 36'o200000035000; // 031445 RAM[13094] = 36'o204000000000; // 031446 RAM[13095] = 36'o332000000000; // 031447 RAM[13096] = 36'o254200031451; // 031450 RAM[13097] = 36'o324000031452; // 031451 RAM[13098] = 36'o200000035055; // 031452 RAM[13099] = 36'o204000000000; // 031453 RAM[13100] = 36'o336000000000; // 031454 RAM[13101] = 36'o254200031456; // 031455 RAM[13102] = 36'o324000031457; // 031456 RAM[13103] = 36'o200000035056; // 031457 RAM[13104] = 36'o204000000000; // 031460 RAM[13105] = 36'o336000000000; // 031461 RAM[13106] = 36'o254200031463; // 031462 RAM[13107] = 36'o324000031464; // 031463 RAM[13108] = 36'o200000035056; // 031464 RAM[13109] = 36'o204000000000; // 031465 RAM[13110] = 36'o337000000000; // 031466 RAM[13111] = 36'o254200031470; // 031467 RAM[13112] = 36'o324000031471; // 031470 RAM[13113] = 36'o200000035055; // 031471 RAM[13114] = 36'o204000000000; // 031472 RAM[13115] = 36'o331000000000; // 031473 RAM[13116] = 36'o254200031475; // 031474 RAM[13117] = 36'o324000031476; // 031475 RAM[13118] = 36'o200000035000; // 031476 RAM[13119] = 36'o204000035012; // 031477 RAM[13120] = 36'o336000000000; // 031500 RAM[13121] = 36'o254200031502; // 031501 RAM[13122] = 36'o324000031503; // 031502 RAM[13123] = 36'o200000035000; // 031503 RAM[13124] = 36'o204000035013; // 031504 RAM[13125] = 36'o336000000000; // 031505 RAM[13126] = 36'o254200031507; // 031506 RAM[13127] = 36'o324000031510; // 031507 RAM[13128] = 36'o200000035000; // 031510 RAM[13129] = 36'o204000035014; // 031511 RAM[13130] = 36'o336000000000; // 031512 RAM[13131] = 36'o254200031514; // 031513 RAM[13132] = 36'o324000031515; // 031514 RAM[13133] = 36'o200000035000; // 031515 RAM[13134] = 36'o204000035015; // 031516 RAM[13135] = 36'o336000000000; // 031517 RAM[13136] = 36'o254200031521; // 031520 RAM[13137] = 36'o324000031522; // 031521 RAM[13138] = 36'o200000035000; // 031522 RAM[13139] = 36'o204000035016; // 031523 RAM[13140] = 36'o336000000000; // 031524 RAM[13141] = 36'o254200031526; // 031525 RAM[13142] = 36'o324000031527; // 031526 RAM[13143] = 36'o200000035000; // 031527 RAM[13144] = 36'o204000035017; // 031530 RAM[13145] = 36'o336000000000; // 031531 RAM[13146] = 36'o254200031533; // 031532 RAM[13147] = 36'o324000031534; // 031533 RAM[13148] = 36'o200000035000; // 031534 RAM[13149] = 36'o204000035020; // 031535 RAM[13150] = 36'o336000000000; // 031536 RAM[13151] = 36'o254200031540; // 031537 RAM[13152] = 36'o324000031541; // 031540 RAM[13153] = 36'o200000035000; // 031541 RAM[13154] = 36'o204000035021; // 031542 RAM[13155] = 36'o336000000000; // 031543 RAM[13156] = 36'o254200031545; // 031544 RAM[13157] = 36'o324000031546; // 031545 RAM[13158] = 36'o200000035000; // 031546 RAM[13159] = 36'o204000035022; // 031547 RAM[13160] = 36'o336000000000; // 031550 RAM[13161] = 36'o254200031552; // 031551 RAM[13162] = 36'o324000031553; // 031552 RAM[13163] = 36'o200000035000; // 031553 RAM[13164] = 36'o204000035023; // 031554 RAM[13165] = 36'o336000000000; // 031555 RAM[13166] = 36'o254200031557; // 031556 RAM[13167] = 36'o324000031560; // 031557 RAM[13168] = 36'o200000035000; // 031560 RAM[13169] = 36'o204000035024; // 031561 RAM[13170] = 36'o336000000000; // 031562 RAM[13171] = 36'o254200031564; // 031563 RAM[13172] = 36'o324000031565; // 031564 RAM[13173] = 36'o200000035000; // 031565 RAM[13174] = 36'o204000035025; // 031566 RAM[13175] = 36'o336000000000; // 031567 RAM[13176] = 36'o254200031571; // 031570 RAM[13177] = 36'o324000031572; // 031571 RAM[13178] = 36'o200000035000; // 031572 RAM[13179] = 36'o204000035026; // 031573 RAM[13180] = 36'o336000000000; // 031574 RAM[13181] = 36'o254200031576; // 031575 RAM[13182] = 36'o324000031577; // 031576 RAM[13183] = 36'o200000035000; // 031577 RAM[13184] = 36'o204000035027; // 031600 RAM[13185] = 36'o336000000000; // 031601 RAM[13186] = 36'o254200031603; // 031602 RAM[13187] = 36'o324000031604; // 031603 RAM[13188] = 36'o200000035000; // 031604 RAM[13189] = 36'o204000035030; // 031605 RAM[13190] = 36'o336000000000; // 031606 RAM[13191] = 36'o254200031610; // 031607 RAM[13192] = 36'o324000031611; // 031610 RAM[13193] = 36'o200000035000; // 031611 RAM[13194] = 36'o204000035031; // 031612 RAM[13195] = 36'o336000000000; // 031613 RAM[13196] = 36'o254200031615; // 031614 RAM[13197] = 36'o324000031616; // 031615 RAM[13198] = 36'o200000035000; // 031616 RAM[13199] = 36'o204000035032; // 031617 RAM[13200] = 36'o336000000000; // 031620 RAM[13201] = 36'o254200031622; // 031621 RAM[13202] = 36'o324000031623; // 031622 RAM[13203] = 36'o200000035000; // 031623 RAM[13204] = 36'o204000035033; // 031624 RAM[13205] = 36'o336000000000; // 031625 RAM[13206] = 36'o254200031627; // 031626 RAM[13207] = 36'o324000031630; // 031627 RAM[13208] = 36'o200000035000; // 031630 RAM[13209] = 36'o204000035034; // 031631 RAM[13210] = 36'o336000000000; // 031632 RAM[13211] = 36'o254200031634; // 031633 RAM[13212] = 36'o324000031635; // 031634 RAM[13213] = 36'o200000035000; // 031635 RAM[13214] = 36'o204000035035; // 031636 RAM[13215] = 36'o336000000000; // 031637 RAM[13216] = 36'o254200031641; // 031640 RAM[13217] = 36'o324000031642; // 031641 RAM[13218] = 36'o200000035000; // 031642 RAM[13219] = 36'o204000035036; // 031643 RAM[13220] = 36'o336000000000; // 031644 RAM[13221] = 36'o254200031646; // 031645 RAM[13222] = 36'o324000031647; // 031646 RAM[13223] = 36'o200000035000; // 031647 RAM[13224] = 36'o204000035037; // 031650 RAM[13225] = 36'o336000000000; // 031651 RAM[13226] = 36'o254200031653; // 031652 RAM[13227] = 36'o324000031654; // 031653 RAM[13228] = 36'o200000035000; // 031654 RAM[13229] = 36'o204000035040; // 031655 RAM[13230] = 36'o336000000000; // 031656 RAM[13231] = 36'o254200031660; // 031657 RAM[13232] = 36'o324000031661; // 031660 RAM[13233] = 36'o200000035000; // 031661 RAM[13234] = 36'o204000035041; // 031662 RAM[13235] = 36'o336000000000; // 031663 RAM[13236] = 36'o254200031665; // 031664 RAM[13237] = 36'o324000031666; // 031665 RAM[13238] = 36'o200000035000; // 031666 RAM[13239] = 36'o204000035042; // 031667 RAM[13240] = 36'o336000000000; // 031670 RAM[13241] = 36'o254200031672; // 031671 RAM[13242] = 36'o324000031673; // 031672 RAM[13243] = 36'o200000035000; // 031673 RAM[13244] = 36'o204000035043; // 031674 RAM[13245] = 36'o336000000000; // 031675 RAM[13246] = 36'o254200031677; // 031676 RAM[13247] = 36'o324000031700; // 031677 RAM[13248] = 36'o200000035000; // 031700 RAM[13249] = 36'o204000035011; // 031701 RAM[13250] = 36'o336000000000; // 031702 RAM[13251] = 36'o254200031704; // 031703 RAM[13252] = 36'o324000031705; // 031704 RAM[13253] = 36'o200000035000; // 031705 RAM[13254] = 36'o204000035044; // 031706 RAM[13255] = 36'o336000000000; // 031707 RAM[13256] = 36'o254200031711; // 031710 RAM[13257] = 36'o324000031712; // 031711 RAM[13258] = 36'o200000035000; // 031712 RAM[13259] = 36'o204000035045; // 031713 RAM[13260] = 36'o336000000000; // 031714 RAM[13261] = 36'o254200031716; // 031715 RAM[13262] = 36'o324000031717; // 031716 RAM[13263] = 36'o200000035000; // 031717 RAM[13264] = 36'o204000035046; // 031720 RAM[13265] = 36'o336000000000; // 031721 RAM[13266] = 36'o254200031723; // 031722 RAM[13267] = 36'o324000031724; // 031723 RAM[13268] = 36'o200000035000; // 031724 RAM[13269] = 36'o204000035047; // 031725 RAM[13270] = 36'o336000000000; // 031726 RAM[13271] = 36'o254200031730; // 031727 RAM[13272] = 36'o324000031731; // 031730 RAM[13273] = 36'o200000035000; // 031731 RAM[13274] = 36'o204000035050; // 031732 RAM[13275] = 36'o336000000000; // 031733 RAM[13276] = 36'o254200031735; // 031734 RAM[13277] = 36'o324000031736; // 031735 RAM[13278] = 36'o200000035000; // 031736 RAM[13279] = 36'o204000035051; // 031737 RAM[13280] = 36'o336000000000; // 031740 RAM[13281] = 36'o254200031742; // 031741 RAM[13282] = 36'o324000031743; // 031742 RAM[13283] = 36'o200000035000; // 031743 RAM[13284] = 36'o204000035052; // 031744 RAM[13285] = 36'o336000000000; // 031745 RAM[13286] = 36'o254200031747; // 031746 RAM[13287] = 36'o324000031750; // 031747 RAM[13288] = 36'o200000035000; // 031750 RAM[13289] = 36'o204000035053; // 031751 RAM[13290] = 36'o336000000000; // 031752 RAM[13291] = 36'o254200031754; // 031753 RAM[13292] = 36'o324000031755; // 031754 RAM[13293] = 36'o200000035000; // 031755 RAM[13294] = 36'o204000035003; // 031756 RAM[13295] = 36'o336000000000; // 031757 RAM[13296] = 36'o254200031761; // 031760 RAM[13297] = 36'o324000031762; // 031761 RAM[13298] = 36'o200000035000; // 031762 RAM[13299] = 36'o414000035001; // 031763 RAM[13300] = 36'o331000000000; // 031764 RAM[13301] = 36'o254200031766; // 031765 RAM[13302] = 36'o324000031767; // 031766 RAM[13303] = 36'o200000035001; // 031767 RAM[13304] = 36'o414000035000; // 031770 RAM[13305] = 36'o332000000000; // 031771 RAM[13306] = 36'o254200031773; // 031772 RAM[13307] = 36'o324000031774; // 031773 RAM[13308] = 36'o200000035000; // 031774 RAM[13309] = 36'o400000000000; // 031775 RAM[13310] = 36'o332000000000; // 031776 RAM[13311] = 36'o254200032000; // 031777 RAM[13312] = 36'o324000032001; // 032000 RAM[13313] = 36'o200000035001; // 032001 RAM[13314] = 36'o400000032002; // 032002 RAM[13315] = 36'o332000000000; // 032003 RAM[13316] = 36'o254200032005; // 032004 RAM[13317] = 36'o324000032006; // 032005 RAM[13318] = 36'o200000035000; // 032006 RAM[13319] = 36'o404000000000; // 032007 RAM[13320] = 36'o332000000000; // 032010 RAM[13321] = 36'o254200032012; // 032011 RAM[13322] = 36'o324000032013; // 032012 RAM[13323] = 36'o400000000000; // 032013 RAM[13324] = 36'o200040035012; // 032014 RAM[13325] = 36'o404040000000; // 032015 RAM[13326] = 36'o332000000001; // 032016 RAM[13327] = 36'o254200032020; // 032017 RAM[13328] = 36'o324000032021; // 032020 RAM[13329] = 36'o332000000000; // 032021 RAM[13330] = 36'o254200032023; // 032022 RAM[13331] = 36'o324000032024; // 032023 RAM[13332] = 36'o400000000000; // 032024 RAM[13333] = 36'o200040035013; // 032025 RAM[13334] = 36'o404040000000; // 032026 RAM[13335] = 36'o332000000001; // 032027 RAM[13336] = 36'o254200032031; // 032030 RAM[13337] = 36'o324000032032; // 032031 RAM[13338] = 36'o332000000000; // 032032 RAM[13339] = 36'o254200032034; // 032033 RAM[13340] = 36'o324000032035; // 032034 RAM[13341] = 36'o400000000000; // 032035 RAM[13342] = 36'o200040035014; // 032036 RAM[13343] = 36'o404040000000; // 032037 RAM[13344] = 36'o332000000001; // 032040 RAM[13345] = 36'o254200032042; // 032041 RAM[13346] = 36'o324000032043; // 032042 RAM[13347] = 36'o332000000000; // 032043 RAM[13348] = 36'o254200032045; // 032044 RAM[13349] = 36'o324000032046; // 032045 RAM[13350] = 36'o400000000000; // 032046 RAM[13351] = 36'o200040035015; // 032047 RAM[13352] = 36'o404040000000; // 032050 RAM[13353] = 36'o332000000001; // 032051 RAM[13354] = 36'o254200032053; // 032052 RAM[13355] = 36'o324000032054; // 032053 RAM[13356] = 36'o332000000000; // 032054 RAM[13357] = 36'o254200032056; // 032055 RAM[13358] = 36'o324000032057; // 032056 RAM[13359] = 36'o400000000000; // 032057 RAM[13360] = 36'o200040035016; // 032060 RAM[13361] = 36'o404040000000; // 032061 RAM[13362] = 36'o332000000001; // 032062 RAM[13363] = 36'o254200032064; // 032063 RAM[13364] = 36'o324000032065; // 032064 RAM[13365] = 36'o332000000000; // 032065 RAM[13366] = 36'o254200032067; // 032066 RAM[13367] = 36'o324000032070; // 032067 RAM[13368] = 36'o400000000000; // 032070 RAM[13369] = 36'o200040035017; // 032071 RAM[13370] = 36'o404040000000; // 032072 RAM[13371] = 36'o332000000001; // 032073 RAM[13372] = 36'o254200032075; // 032074 RAM[13373] = 36'o324000032076; // 032075 RAM[13374] = 36'o332000000000; // 032076 RAM[13375] = 36'o254200032100; // 032077 RAM[13376] = 36'o324000032101; // 032100 RAM[13377] = 36'o400000000000; // 032101 RAM[13378] = 36'o200040035020; // 032102 RAM[13379] = 36'o404040000000; // 032103 RAM[13380] = 36'o332000000001; // 032104 RAM[13381] = 36'o254200032106; // 032105 RAM[13382] = 36'o324000032107; // 032106 RAM[13383] = 36'o332000000000; // 032107 RAM[13384] = 36'o254200032111; // 032110 RAM[13385] = 36'o324000032112; // 032111 RAM[13386] = 36'o400000000000; // 032112 RAM[13387] = 36'o200040035021; // 032113 RAM[13388] = 36'o404040000000; // 032114 RAM[13389] = 36'o332000000001; // 032115 RAM[13390] = 36'o254200032117; // 032116 RAM[13391] = 36'o324000032120; // 032117 RAM[13392] = 36'o332000000000; // 032120 RAM[13393] = 36'o254200032122; // 032121 RAM[13394] = 36'o324000032123; // 032122 RAM[13395] = 36'o400000000000; // 032123 RAM[13396] = 36'o200040035022; // 032124 RAM[13397] = 36'o404040000000; // 032125 RAM[13398] = 36'o332000000001; // 032126 RAM[13399] = 36'o254200032130; // 032127 RAM[13400] = 36'o324000032131; // 032130 RAM[13401] = 36'o332000000000; // 032131 RAM[13402] = 36'o254200032133; // 032132 RAM[13403] = 36'o324000032134; // 032133 RAM[13404] = 36'o400000000000; // 032134 RAM[13405] = 36'o200040035023; // 032135 RAM[13406] = 36'o404040000000; // 032136 RAM[13407] = 36'o332000000001; // 032137 RAM[13408] = 36'o254200032141; // 032140 RAM[13409] = 36'o324000032142; // 032141 RAM[13410] = 36'o332000000000; // 032142 RAM[13411] = 36'o254200032144; // 032143 RAM[13412] = 36'o324000032145; // 032144 RAM[13413] = 36'o400000000000; // 032145 RAM[13414] = 36'o200040035024; // 032146 RAM[13415] = 36'o404040000000; // 032147 RAM[13416] = 36'o332000000001; // 032150 RAM[13417] = 36'o254200032152; // 032151 RAM[13418] = 36'o324000032153; // 032152 RAM[13419] = 36'o332000000000; // 032153 RAM[13420] = 36'o254200032155; // 032154 RAM[13421] = 36'o324000032156; // 032155 RAM[13422] = 36'o400000000000; // 032156 RAM[13423] = 36'o200040035025; // 032157 RAM[13424] = 36'o404040000000; // 032160 RAM[13425] = 36'o332000000001; // 032161 RAM[13426] = 36'o254200032163; // 032162 RAM[13427] = 36'o324000032164; // 032163 RAM[13428] = 36'o332000000000; // 032164 RAM[13429] = 36'o254200032166; // 032165 RAM[13430] = 36'o324000032167; // 032166 RAM[13431] = 36'o400000000000; // 032167 RAM[13432] = 36'o200040035026; // 032170 RAM[13433] = 36'o404040000000; // 032171 RAM[13434] = 36'o332000000001; // 032172 RAM[13435] = 36'o254200032174; // 032173 RAM[13436] = 36'o324000032175; // 032174 RAM[13437] = 36'o332000000000; // 032175 RAM[13438] = 36'o254200032177; // 032176 RAM[13439] = 36'o324000032200; // 032177 RAM[13440] = 36'o400000000000; // 032200 RAM[13441] = 36'o200040035027; // 032201 RAM[13442] = 36'o404040000000; // 032202 RAM[13443] = 36'o332000000001; // 032203 RAM[13444] = 36'o254200032205; // 032204 RAM[13445] = 36'o324000032206; // 032205 RAM[13446] = 36'o332000000000; // 032206 RAM[13447] = 36'o254200032210; // 032207 RAM[13448] = 36'o324000032211; // 032210 RAM[13449] = 36'o400000000000; // 032211 RAM[13450] = 36'o200040035030; // 032212 RAM[13451] = 36'o404040000000; // 032213 RAM[13452] = 36'o332000000001; // 032214 RAM[13453] = 36'o254200032216; // 032215 RAM[13454] = 36'o324000032217; // 032216 RAM[13455] = 36'o332000000000; // 032217 RAM[13456] = 36'o254200032221; // 032220 RAM[13457] = 36'o324000032222; // 032221 RAM[13458] = 36'o400000000000; // 032222 RAM[13459] = 36'o200040035031; // 032223 RAM[13460] = 36'o404040000000; // 032224 RAM[13461] = 36'o332000000001; // 032225 RAM[13462] = 36'o254200032227; // 032226 RAM[13463] = 36'o324000032230; // 032227 RAM[13464] = 36'o332000000000; // 032230 RAM[13465] = 36'o254200032232; // 032231 RAM[13466] = 36'o324000032233; // 032232 RAM[13467] = 36'o400000000000; // 032233 RAM[13468] = 36'o200040035032; // 032234 RAM[13469] = 36'o404040000000; // 032235 RAM[13470] = 36'o332000000001; // 032236 RAM[13471] = 36'o254200032240; // 032237 RAM[13472] = 36'o324000032241; // 032240 RAM[13473] = 36'o332000000000; // 032241 RAM[13474] = 36'o254200032243; // 032242 RAM[13475] = 36'o324000032244; // 032243 RAM[13476] = 36'o400000000000; // 032244 RAM[13477] = 36'o200040035033; // 032245 RAM[13478] = 36'o404040000000; // 032246 RAM[13479] = 36'o332000000001; // 032247 RAM[13480] = 36'o254200032251; // 032250 RAM[13481] = 36'o324000032252; // 032251 RAM[13482] = 36'o332000000000; // 032252 RAM[13483] = 36'o254200032254; // 032253 RAM[13484] = 36'o324000032255; // 032254 RAM[13485] = 36'o400000000000; // 032255 RAM[13486] = 36'o200040035034; // 032256 RAM[13487] = 36'o404040000000; // 032257 RAM[13488] = 36'o332000000001; // 032260 RAM[13489] = 36'o254200032262; // 032261 RAM[13490] = 36'o324000032263; // 032262 RAM[13491] = 36'o332000000000; // 032263 RAM[13492] = 36'o254200032265; // 032264 RAM[13493] = 36'o324000032266; // 032265 RAM[13494] = 36'o400000000000; // 032266 RAM[13495] = 36'o200040035035; // 032267 RAM[13496] = 36'o404040000000; // 032270 RAM[13497] = 36'o332000000001; // 032271 RAM[13498] = 36'o254200032273; // 032272 RAM[13499] = 36'o324000032274; // 032273 RAM[13500] = 36'o332000000000; // 032274 RAM[13501] = 36'o254200032276; // 032275 RAM[13502] = 36'o324000032277; // 032276 RAM[13503] = 36'o400000000000; // 032277 RAM[13504] = 36'o200040035036; // 032300 RAM[13505] = 36'o404040000000; // 032301 RAM[13506] = 36'o332000000001; // 032302 RAM[13507] = 36'o254200032304; // 032303 RAM[13508] = 36'o324000032305; // 032304 RAM[13509] = 36'o332000000000; // 032305 RAM[13510] = 36'o254200032307; // 032306 RAM[13511] = 36'o324000032310; // 032307 RAM[13512] = 36'o400000000000; // 032310 RAM[13513] = 36'o200040035037; // 032311 RAM[13514] = 36'o404040000000; // 032312 RAM[13515] = 36'o332000000001; // 032313 RAM[13516] = 36'o254200032315; // 032314 RAM[13517] = 36'o324000032316; // 032315 RAM[13518] = 36'o332000000000; // 032316 RAM[13519] = 36'o254200032320; // 032317 RAM[13520] = 36'o324000032321; // 032320 RAM[13521] = 36'o400000000000; // 032321 RAM[13522] = 36'o200040035040; // 032322 RAM[13523] = 36'o404040000000; // 032323 RAM[13524] = 36'o332000000001; // 032324 RAM[13525] = 36'o254200032326; // 032325 RAM[13526] = 36'o324000032327; // 032326 RAM[13527] = 36'o332000000000; // 032327 RAM[13528] = 36'o254200032331; // 032330 RAM[13529] = 36'o324000032332; // 032331 RAM[13530] = 36'o400000000000; // 032332 RAM[13531] = 36'o200040035041; // 032333 RAM[13532] = 36'o404040000000; // 032334 RAM[13533] = 36'o332000000001; // 032335 RAM[13534] = 36'o254200032337; // 032336 RAM[13535] = 36'o324000032340; // 032337 RAM[13536] = 36'o332000000000; // 032340 RAM[13537] = 36'o254200032342; // 032341 RAM[13538] = 36'o324000032343; // 032342 RAM[13539] = 36'o400000000000; // 032343 RAM[13540] = 36'o200040035042; // 032344 RAM[13541] = 36'o404040000000; // 032345 RAM[13542] = 36'o332000000001; // 032346 RAM[13543] = 36'o254200032350; // 032347 RAM[13544] = 36'o324000032351; // 032350 RAM[13545] = 36'o332000000000; // 032351 RAM[13546] = 36'o254200032353; // 032352 RAM[13547] = 36'o324000032354; // 032353 RAM[13548] = 36'o400000000000; // 032354 RAM[13549] = 36'o200040035043; // 032355 RAM[13550] = 36'o404040000000; // 032356 RAM[13551] = 36'o332000000001; // 032357 RAM[13552] = 36'o254200032361; // 032360 RAM[13553] = 36'o324000032362; // 032361 RAM[13554] = 36'o332000000000; // 032362 RAM[13555] = 36'o254200032364; // 032363 RAM[13556] = 36'o324000032365; // 032364 RAM[13557] = 36'o400000000000; // 032365 RAM[13558] = 36'o200040035011; // 032366 RAM[13559] = 36'o404040000000; // 032367 RAM[13560] = 36'o332000000001; // 032370 RAM[13561] = 36'o254200032372; // 032371 RAM[13562] = 36'o324000032373; // 032372 RAM[13563] = 36'o332000000000; // 032373 RAM[13564] = 36'o254200032375; // 032374 RAM[13565] = 36'o324000032376; // 032375 RAM[13566] = 36'o400000000000; // 032376 RAM[13567] = 36'o200040035044; // 032377 RAM[13568] = 36'o404040000000; // 032400 RAM[13569] = 36'o332000000001; // 032401 RAM[13570] = 36'o254200032403; // 032402 RAM[13571] = 36'o324000032404; // 032403 RAM[13572] = 36'o332000000000; // 032404 RAM[13573] = 36'o254200032406; // 032405 RAM[13574] = 36'o324000032407; // 032406 RAM[13575] = 36'o400000000000; // 032407 RAM[13576] = 36'o200040035045; // 032410 RAM[13577] = 36'o404040000000; // 032411 RAM[13578] = 36'o332000000001; // 032412 RAM[13579] = 36'o254200032414; // 032413 RAM[13580] = 36'o324000032415; // 032414 RAM[13581] = 36'o332000000000; // 032415 RAM[13582] = 36'o254200032417; // 032416 RAM[13583] = 36'o324000032420; // 032417 RAM[13584] = 36'o400000000000; // 032420 RAM[13585] = 36'o200040035046; // 032421 RAM[13586] = 36'o404040000000; // 032422 RAM[13587] = 36'o332000000001; // 032423 RAM[13588] = 36'o254200032425; // 032424 RAM[13589] = 36'o324000032426; // 032425 RAM[13590] = 36'o332000000000; // 032426 RAM[13591] = 36'o254200032430; // 032427 RAM[13592] = 36'o324000032431; // 032430 RAM[13593] = 36'o400000000000; // 032431 RAM[13594] = 36'o200040035047; // 032432 RAM[13595] = 36'o404040000000; // 032433 RAM[13596] = 36'o332000000001; // 032434 RAM[13597] = 36'o254200032436; // 032435 RAM[13598] = 36'o324000032437; // 032436 RAM[13599] = 36'o332000000000; // 032437 RAM[13600] = 36'o254200032441; // 032440 RAM[13601] = 36'o324000032442; // 032441 RAM[13602] = 36'o400000000000; // 032442 RAM[13603] = 36'o200040035050; // 032443 RAM[13604] = 36'o404040000000; // 032444 RAM[13605] = 36'o332000000001; // 032445 RAM[13606] = 36'o254200032447; // 032446 RAM[13607] = 36'o324000032450; // 032447 RAM[13608] = 36'o332000000000; // 032450 RAM[13609] = 36'o254200032452; // 032451 RAM[13610] = 36'o324000032453; // 032452 RAM[13611] = 36'o400000000000; // 032453 RAM[13612] = 36'o200040035051; // 032454 RAM[13613] = 36'o404040000000; // 032455 RAM[13614] = 36'o332000000001; // 032456 RAM[13615] = 36'o254200032460; // 032457 RAM[13616] = 36'o324000032461; // 032460 RAM[13617] = 36'o332000000000; // 032461 RAM[13618] = 36'o254200032463; // 032462 RAM[13619] = 36'o324000032464; // 032463 RAM[13620] = 36'o400000000000; // 032464 RAM[13621] = 36'o200040035052; // 032465 RAM[13622] = 36'o404040000000; // 032466 RAM[13623] = 36'o332000000001; // 032467 RAM[13624] = 36'o254200032471; // 032470 RAM[13625] = 36'o324000032472; // 032471 RAM[13626] = 36'o332000000000; // 032472 RAM[13627] = 36'o254200032474; // 032473 RAM[13628] = 36'o324000032475; // 032474 RAM[13629] = 36'o400000000000; // 032475 RAM[13630] = 36'o200040035053; // 032476 RAM[13631] = 36'o404040000000; // 032477 RAM[13632] = 36'o332000000001; // 032500 RAM[13633] = 36'o254200032502; // 032501 RAM[13634] = 36'o324000032503; // 032502 RAM[13635] = 36'o332000000000; // 032503 RAM[13636] = 36'o254200032505; // 032504 RAM[13637] = 36'o324000032506; // 032505 RAM[13638] = 36'o400000000000; // 032506 RAM[13639] = 36'o200040035003; // 032507 RAM[13640] = 36'o404040000000; // 032510 RAM[13641] = 36'o332000000001; // 032511 RAM[13642] = 36'o254200032513; // 032512 RAM[13643] = 36'o324000032514; // 032513 RAM[13644] = 36'o332000000000; // 032514 RAM[13645] = 36'o254200032516; // 032515 RAM[13646] = 36'o324000032517; // 032516 RAM[13647] = 36'o200000035012; // 032517 RAM[13648] = 36'o404000000000; // 032520 RAM[13649] = 36'o336000000000; // 032521 RAM[13650] = 36'o254200032523; // 032522 RAM[13651] = 36'o324000032524; // 032523 RAM[13652] = 36'o200000035013; // 032524 RAM[13653] = 36'o404000000000; // 032525 RAM[13654] = 36'o336000000000; // 032526 RAM[13655] = 36'o254200032530; // 032527 RAM[13656] = 36'o324000032531; // 032530 RAM[13657] = 36'o200000035014; // 032531 RAM[13658] = 36'o404000000000; // 032532 RAM[13659] = 36'o336000000000; // 032533 RAM[13660] = 36'o254200032535; // 032534 RAM[13661] = 36'o324000032536; // 032535 RAM[13662] = 36'o200000035015; // 032536 RAM[13663] = 36'o404000000000; // 032537 RAM[13664] = 36'o336000000000; // 032540 RAM[13665] = 36'o254200032542; // 032541 RAM[13666] = 36'o324000032543; // 032542 RAM[13667] = 36'o200000035016; // 032543 RAM[13668] = 36'o404000000000; // 032544 RAM[13669] = 36'o336000000000; // 032545 RAM[13670] = 36'o254200032547; // 032546 RAM[13671] = 36'o324000032550; // 032547 RAM[13672] = 36'o200000035017; // 032550 RAM[13673] = 36'o404000000000; // 032551 RAM[13674] = 36'o336000000000; // 032552 RAM[13675] = 36'o254200032554; // 032553 RAM[13676] = 36'o324000032555; // 032554 RAM[13677] = 36'o200000035020; // 032555 RAM[13678] = 36'o404000000000; // 032556 RAM[13679] = 36'o336000000000; // 032557 RAM[13680] = 36'o254200032561; // 032560 RAM[13681] = 36'o324000032562; // 032561 RAM[13682] = 36'o200000035021; // 032562 RAM[13683] = 36'o404000000000; // 032563 RAM[13684] = 36'o336000000000; // 032564 RAM[13685] = 36'o254200032566; // 032565 RAM[13686] = 36'o324000032567; // 032566 RAM[13687] = 36'o200000035022; // 032567 RAM[13688] = 36'o404000000000; // 032570 RAM[13689] = 36'o336000000000; // 032571 RAM[13690] = 36'o254200032573; // 032572 RAM[13691] = 36'o324000032574; // 032573 RAM[13692] = 36'o200000035023; // 032574 RAM[13693] = 36'o404000000000; // 032575 RAM[13694] = 36'o336000000000; // 032576 RAM[13695] = 36'o254200032600; // 032577 RAM[13696] = 36'o324000032601; // 032600 RAM[13697] = 36'o200000035024; // 032601 RAM[13698] = 36'o404000000000; // 032602 RAM[13699] = 36'o336000000000; // 032603 RAM[13700] = 36'o254200032605; // 032604 RAM[13701] = 36'o324000032606; // 032605 RAM[13702] = 36'o200000035025; // 032606 RAM[13703] = 36'o404000000000; // 032607 RAM[13704] = 36'o336000000000; // 032610 RAM[13705] = 36'o254200032612; // 032611 RAM[13706] = 36'o324000032613; // 032612 RAM[13707] = 36'o200000035026; // 032613 RAM[13708] = 36'o404000000000; // 032614 RAM[13709] = 36'o336000000000; // 032615 RAM[13710] = 36'o254200032617; // 032616 RAM[13711] = 36'o324000032620; // 032617 RAM[13712] = 36'o200000035027; // 032620 RAM[13713] = 36'o404000000000; // 032621 RAM[13714] = 36'o336000000000; // 032622 RAM[13715] = 36'o254200032624; // 032623 RAM[13716] = 36'o324000032625; // 032624 RAM[13717] = 36'o200000035030; // 032625 RAM[13718] = 36'o404000000000; // 032626 RAM[13719] = 36'o336000000000; // 032627 RAM[13720] = 36'o254200032631; // 032630 RAM[13721] = 36'o324000032632; // 032631 RAM[13722] = 36'o200000035031; // 032632 RAM[13723] = 36'o404000000000; // 032633 RAM[13724] = 36'o336000000000; // 032634 RAM[13725] = 36'o254200032636; // 032635 RAM[13726] = 36'o324000032637; // 032636 RAM[13727] = 36'o200000035032; // 032637 RAM[13728] = 36'o404000000000; // 032640 RAM[13729] = 36'o336000000000; // 032641 RAM[13730] = 36'o254200032643; // 032642 RAM[13731] = 36'o324000032644; // 032643 RAM[13732] = 36'o200000035033; // 032644 RAM[13733] = 36'o404000000000; // 032645 RAM[13734] = 36'o336000000000; // 032646 RAM[13735] = 36'o254200032650; // 032647 RAM[13736] = 36'o324000032651; // 032650 RAM[13737] = 36'o200000035034; // 032651 RAM[13738] = 36'o404000000000; // 032652 RAM[13739] = 36'o336000000000; // 032653 RAM[13740] = 36'o254200032655; // 032654 RAM[13741] = 36'o324000032656; // 032655 RAM[13742] = 36'o200000035035; // 032656 RAM[13743] = 36'o404000000000; // 032657 RAM[13744] = 36'o336000000000; // 032660 RAM[13745] = 36'o254200032662; // 032661 RAM[13746] = 36'o324000032663; // 032662 RAM[13747] = 36'o200000035036; // 032663 RAM[13748] = 36'o404000000000; // 032664 RAM[13749] = 36'o336000000000; // 032665 RAM[13750] = 36'o254200032667; // 032666 RAM[13751] = 36'o324000032670; // 032667 RAM[13752] = 36'o200000035037; // 032670 RAM[13753] = 36'o404000000000; // 032671 RAM[13754] = 36'o336000000000; // 032672 RAM[13755] = 36'o254200032674; // 032673 RAM[13756] = 36'o324000032675; // 032674 RAM[13757] = 36'o200000035040; // 032675 RAM[13758] = 36'o404000000000; // 032676 RAM[13759] = 36'o336000000000; // 032677 RAM[13760] = 36'o254200032701; // 032700 RAM[13761] = 36'o324000032702; // 032701 RAM[13762] = 36'o200000035041; // 032702 RAM[13763] = 36'o404000000000; // 032703 RAM[13764] = 36'o336000000000; // 032704 RAM[13765] = 36'o254200032706; // 032705 RAM[13766] = 36'o324000032707; // 032706 RAM[13767] = 36'o200000035042; // 032707 RAM[13768] = 36'o404000000000; // 032710 RAM[13769] = 36'o336000000000; // 032711 RAM[13770] = 36'o254200032713; // 032712 RAM[13771] = 36'o324000032714; // 032713 RAM[13772] = 36'o200000035043; // 032714 RAM[13773] = 36'o404000000000; // 032715 RAM[13774] = 36'o336000000000; // 032716 RAM[13775] = 36'o254200032720; // 032717 RAM[13776] = 36'o324000032721; // 032720 RAM[13777] = 36'o200000035011; // 032721 RAM[13778] = 36'o404000000000; // 032722 RAM[13779] = 36'o336000000000; // 032723 RAM[13780] = 36'o254200032725; // 032724 RAM[13781] = 36'o324000032726; // 032725 RAM[13782] = 36'o200000035044; // 032726 RAM[13783] = 36'o404000000000; // 032727 RAM[13784] = 36'o336000000000; // 032730 RAM[13785] = 36'o254200032732; // 032731 RAM[13786] = 36'o324000032733; // 032732 RAM[13787] = 36'o200000035045; // 032733 RAM[13788] = 36'o404000000000; // 032734 RAM[13789] = 36'o336000000000; // 032735 RAM[13790] = 36'o254200032737; // 032736 RAM[13791] = 36'o324000032740; // 032737 RAM[13792] = 36'o200000035046; // 032740 RAM[13793] = 36'o404000000000; // 032741 RAM[13794] = 36'o336000000000; // 032742 RAM[13795] = 36'o254200032744; // 032743 RAM[13796] = 36'o324000032745; // 032744 RAM[13797] = 36'o200000035047; // 032745 RAM[13798] = 36'o404000000000; // 032746 RAM[13799] = 36'o336000000000; // 032747 RAM[13800] = 36'o254200032751; // 032750 RAM[13801] = 36'o324000032752; // 032751 RAM[13802] = 36'o200000035050; // 032752 RAM[13803] = 36'o404000000000; // 032753 RAM[13804] = 36'o336000000000; // 032754 RAM[13805] = 36'o254200032756; // 032755 RAM[13806] = 36'o324000032757; // 032756 RAM[13807] = 36'o200000035051; // 032757 RAM[13808] = 36'o404000000000; // 032760 RAM[13809] = 36'o336000000000; // 032761 RAM[13810] = 36'o254200032763; // 032762 RAM[13811] = 36'o324000032764; // 032763 RAM[13812] = 36'o200000035052; // 032764 RAM[13813] = 36'o404000000000; // 032765 RAM[13814] = 36'o336000000000; // 032766 RAM[13815] = 36'o254200032770; // 032767 RAM[13816] = 36'o324000032771; // 032770 RAM[13817] = 36'o200000035053; // 032771 RAM[13818] = 36'o404000000000; // 032772 RAM[13819] = 36'o336000000000; // 032773 RAM[13820] = 36'o254200032775; // 032774 RAM[13821] = 36'o324000032776; // 032775 RAM[13822] = 36'o200000035003; // 032776 RAM[13823] = 36'o404000000000; // 032777 RAM[13824] = 36'o336000000000; // 033000 RAM[13825] = 36'o254200033002; // 033001 RAM[13826] = 36'o324000033003; // 033002 RAM[13827] = 36'o200000035000; // 033003 RAM[13828] = 36'o404000035000; // 033004 RAM[13829] = 36'o332000000000; // 033005 RAM[13830] = 36'o254200033007; // 033006 RAM[13831] = 36'o324000033010; // 033007 RAM[13832] = 36'o200000035000; // 033010 RAM[13833] = 36'o404000035001; // 033011 RAM[13834] = 36'o332000000000; // 033012 RAM[13835] = 36'o254200033014; // 033013 RAM[13836] = 36'o324000033015; // 033014 RAM[13837] = 36'o200000035001; // 033015 RAM[13838] = 36'o404000035000; // 033016 RAM[13839] = 36'o332000000000; // 033017 RAM[13840] = 36'o254200033021; // 033020 RAM[13841] = 36'o324000033022; // 033021 RAM[13842] = 36'o200000035001; // 033022 RAM[13843] = 36'o404000035001; // 033023 RAM[13844] = 36'o336000000000; // 033024 RAM[13845] = 36'o254200033026; // 033025 RAM[13846] = 36'o324000033027; // 033026 RAM[13847] = 36'o200000035000; // 033027 RAM[13848] = 36'o430000035057; // 033030 RAM[13849] = 36'o336000000000; // 033031 RAM[13850] = 36'o254200033033; // 033032 RAM[13851] = 36'o324000033034; // 033033 RAM[13852] = 36'o200000035000; // 033034 RAM[13853] = 36'o430000035012; // 033035 RAM[13854] = 36'o336000000000; // 033036 RAM[13855] = 36'o254200033040; // 033037 RAM[13856] = 36'o324000033041; // 033040 RAM[13857] = 36'o200000035000; // 033041 RAM[13858] = 36'o430000035013; // 033042 RAM[13859] = 36'o336000000000; // 033043 RAM[13860] = 36'o254200033045; // 033044 RAM[13861] = 36'o324000033046; // 033045 RAM[13862] = 36'o200000035000; // 033046 RAM[13863] = 36'o430000035014; // 033047 RAM[13864] = 36'o336000000000; // 033050 RAM[13865] = 36'o254200033052; // 033051 RAM[13866] = 36'o324000033053; // 033052 RAM[13867] = 36'o200000035000; // 033053 RAM[13868] = 36'o430000035015; // 033054 RAM[13869] = 36'o336000000000; // 033055 RAM[13870] = 36'o254200033057; // 033056 RAM[13871] = 36'o324000033060; // 033057 RAM[13872] = 36'o200000035000; // 033060 RAM[13873] = 36'o430000035016; // 033061 RAM[13874] = 36'o336000000000; // 033062 RAM[13875] = 36'o254200033064; // 033063 RAM[13876] = 36'o324000033065; // 033064 RAM[13877] = 36'o200000035000; // 033065 RAM[13878] = 36'o430000035017; // 033066 RAM[13879] = 36'o336000000000; // 033067 RAM[13880] = 36'o254200033071; // 033070 RAM[13881] = 36'o324000033072; // 033071 RAM[13882] = 36'o200000035000; // 033072 RAM[13883] = 36'o430000035020; // 033073 RAM[13884] = 36'o336000000000; // 033074 RAM[13885] = 36'o254200033076; // 033075 RAM[13886] = 36'o324000033077; // 033076 RAM[13887] = 36'o200000035000; // 033077 RAM[13888] = 36'o430000035021; // 033100 RAM[13889] = 36'o336000000000; // 033101 RAM[13890] = 36'o254200033103; // 033102 RAM[13891] = 36'o324000033104; // 033103 RAM[13892] = 36'o200000035000; // 033104 RAM[13893] = 36'o430000035022; // 033105 RAM[13894] = 36'o336000000000; // 033106 RAM[13895] = 36'o254200033110; // 033107 RAM[13896] = 36'o324000033111; // 033110 RAM[13897] = 36'o200000035000; // 033111 RAM[13898] = 36'o430000035023; // 033112 RAM[13899] = 36'o336000000000; // 033113 RAM[13900] = 36'o254200033115; // 033114 RAM[13901] = 36'o324000033116; // 033115 RAM[13902] = 36'o200000035000; // 033116 RAM[13903] = 36'o430000035024; // 033117 RAM[13904] = 36'o336000000000; // 033120 RAM[13905] = 36'o254200033122; // 033121 RAM[13906] = 36'o324000033123; // 033122 RAM[13907] = 36'o200000035000; // 033123 RAM[13908] = 36'o430000035025; // 033124 RAM[13909] = 36'o336000000000; // 033125 RAM[13910] = 36'o254200033127; // 033126 RAM[13911] = 36'o324000033130; // 033127 RAM[13912] = 36'o200000035000; // 033130 RAM[13913] = 36'o430000035026; // 033131 RAM[13914] = 36'o336000000000; // 033132 RAM[13915] = 36'o254200033134; // 033133 RAM[13916] = 36'o324000033135; // 033134 RAM[13917] = 36'o200000035000; // 033135 RAM[13918] = 36'o430000035027; // 033136 RAM[13919] = 36'o336000000000; // 033137 RAM[13920] = 36'o254200033141; // 033140 RAM[13921] = 36'o324000033142; // 033141 RAM[13922] = 36'o200000035000; // 033142 RAM[13923] = 36'o430000035030; // 033143 RAM[13924] = 36'o336000000000; // 033144 RAM[13925] = 36'o254200033146; // 033145 RAM[13926] = 36'o324000033147; // 033146 RAM[13927] = 36'o200000035000; // 033147 RAM[13928] = 36'o430000035031; // 033150 RAM[13929] = 36'o336000000000; // 033151 RAM[13930] = 36'o254200033153; // 033152 RAM[13931] = 36'o324000033154; // 033153 RAM[13932] = 36'o200000035000; // 033154 RAM[13933] = 36'o430000035032; // 033155 RAM[13934] = 36'o336000000000; // 033156 RAM[13935] = 36'o254200033160; // 033157 RAM[13936] = 36'o324000033161; // 033160 RAM[13937] = 36'o200000035000; // 033161 RAM[13938] = 36'o430000035033; // 033162 RAM[13939] = 36'o336000000000; // 033163 RAM[13940] = 36'o254200033165; // 033164 RAM[13941] = 36'o324000033166; // 033165 RAM[13942] = 36'o200000035000; // 033166 RAM[13943] = 36'o430000035034; // 033167 RAM[13944] = 36'o336000000000; // 033170 RAM[13945] = 36'o254200033172; // 033171 RAM[13946] = 36'o324000033173; // 033172 RAM[13947] = 36'o200000035000; // 033173 RAM[13948] = 36'o430000035035; // 033174 RAM[13949] = 36'o336000000000; // 033175 RAM[13950] = 36'o254200033177; // 033176 RAM[13951] = 36'o324000033200; // 033177 RAM[13952] = 36'o200000035000; // 033200 RAM[13953] = 36'o430000035036; // 033201 RAM[13954] = 36'o336000000000; // 033202 RAM[13955] = 36'o254200033204; // 033203 RAM[13956] = 36'o324000033205; // 033204 RAM[13957] = 36'o200000035000; // 033205 RAM[13958] = 36'o430000035037; // 033206 RAM[13959] = 36'o336000000000; // 033207 RAM[13960] = 36'o254200033211; // 033210 RAM[13961] = 36'o324000033212; // 033211 RAM[13962] = 36'o200000035000; // 033212 RAM[13963] = 36'o430000035040; // 033213 RAM[13964] = 36'o336000000000; // 033214 RAM[13965] = 36'o254200033216; // 033215 RAM[13966] = 36'o324000033217; // 033216 RAM[13967] = 36'o200000035000; // 033217 RAM[13968] = 36'o430000035041; // 033220 RAM[13969] = 36'o336000000000; // 033221 RAM[13970] = 36'o254200033223; // 033222 RAM[13971] = 36'o324000033224; // 033223 RAM[13972] = 36'o200000035000; // 033224 RAM[13973] = 36'o430000035042; // 033225 RAM[13974] = 36'o336000000000; // 033226 RAM[13975] = 36'o254200033230; // 033227 RAM[13976] = 36'o324000033231; // 033230 RAM[13977] = 36'o200000035000; // 033231 RAM[13978] = 36'o430000035043; // 033232 RAM[13979] = 36'o336000000000; // 033233 RAM[13980] = 36'o254200033235; // 033234 RAM[13981] = 36'o324000033236; // 033235 RAM[13982] = 36'o200000035000; // 033236 RAM[13983] = 36'o430000035011; // 033237 RAM[13984] = 36'o336000000000; // 033240 RAM[13985] = 36'o254200033242; // 033241 RAM[13986] = 36'o324000033243; // 033242 RAM[13987] = 36'o200000035000; // 033243 RAM[13988] = 36'o430000035044; // 033244 RAM[13989] = 36'o336000000000; // 033245 RAM[13990] = 36'o254200033247; // 033246 RAM[13991] = 36'o324000033250; // 033247 RAM[13992] = 36'o200000035000; // 033250 RAM[13993] = 36'o430000035045; // 033251 RAM[13994] = 36'o336000000000; // 033252 RAM[13995] = 36'o254200033254; // 033253 RAM[13996] = 36'o324000033255; // 033254 RAM[13997] = 36'o200000035000; // 033255 RAM[13998] = 36'o430000035046; // 033256 RAM[13999] = 36'o336000000000; // 033257 RAM[14000] = 36'o254200033261; // 033260 RAM[14001] = 36'o324000033262; // 033261 RAM[14002] = 36'o200000035000; // 033262 RAM[14003] = 36'o430000035047; // 033263 RAM[14004] = 36'o336000000000; // 033264 RAM[14005] = 36'o254200033266; // 033265 RAM[14006] = 36'o324000033267; // 033266 RAM[14007] = 36'o200000035000; // 033267 RAM[14008] = 36'o430000035050; // 033270 RAM[14009] = 36'o336000000000; // 033271 RAM[14010] = 36'o254200033273; // 033272 RAM[14011] = 36'o324000033274; // 033273 RAM[14012] = 36'o200000035000; // 033274 RAM[14013] = 36'o430000035051; // 033275 RAM[14014] = 36'o336000000000; // 033276 RAM[14015] = 36'o254200033300; // 033277 RAM[14016] = 36'o324000033301; // 033300 RAM[14017] = 36'o200000035000; // 033301 RAM[14018] = 36'o430000035052; // 033302 RAM[14019] = 36'o336000000000; // 033303 RAM[14020] = 36'o254200033305; // 033304 RAM[14021] = 36'o324000033306; // 033305 RAM[14022] = 36'o200000035000; // 033306 RAM[14023] = 36'o430000035053; // 033307 RAM[14024] = 36'o336000000000; // 033310 RAM[14025] = 36'o254200033312; // 033311 RAM[14026] = 36'o324000033313; // 033312 RAM[14027] = 36'o200000035000; // 033313 RAM[14028] = 36'o430000035003; // 033314 RAM[14029] = 36'o336000000000; // 033315 RAM[14030] = 36'o254200033317; // 033316 RAM[14031] = 36'o324000033320; // 033317 RAM[14032] = 36'o200000035012; // 033320 RAM[14033] = 36'o430000035000; // 033321 RAM[14034] = 36'o336000000000; // 033322 RAM[14035] = 36'o254200033324; // 033323 RAM[14036] = 36'o324000033325; // 033324 RAM[14037] = 36'o200000035013; // 033325 RAM[14038] = 36'o430000035000; // 033326 RAM[14039] = 36'o336000000000; // 033327 RAM[14040] = 36'o254200033331; // 033330 RAM[14041] = 36'o324000033332; // 033331 RAM[14042] = 36'o200000035014; // 033332 RAM[14043] = 36'o430000035000; // 033333 RAM[14044] = 36'o336000000000; // 033334 RAM[14045] = 36'o254200033336; // 033335 RAM[14046] = 36'o324000033337; // 033336 RAM[14047] = 36'o200000035015; // 033337 RAM[14048] = 36'o430000035000; // 033340 RAM[14049] = 36'o336000000000; // 033341 RAM[14050] = 36'o254200033343; // 033342 RAM[14051] = 36'o324000033344; // 033343 RAM[14052] = 36'o200000035016; // 033344 RAM[14053] = 36'o430000035000; // 033345 RAM[14054] = 36'o336000000000; // 033346 RAM[14055] = 36'o254200033350; // 033347 RAM[14056] = 36'o324000033351; // 033350 RAM[14057] = 36'o200000035017; // 033351 RAM[14058] = 36'o430000035000; // 033352 RAM[14059] = 36'o336000000000; // 033353 RAM[14060] = 36'o254200033355; // 033354 RAM[14061] = 36'o324000033356; // 033355 RAM[14062] = 36'o200000035020; // 033356 RAM[14063] = 36'o430000035000; // 033357 RAM[14064] = 36'o336000000000; // 033360 RAM[14065] = 36'o254200033362; // 033361 RAM[14066] = 36'o324000033363; // 033362 RAM[14067] = 36'o200000035021; // 033363 RAM[14068] = 36'o430000035000; // 033364 RAM[14069] = 36'o336000000000; // 033365 RAM[14070] = 36'o254200033367; // 033366 RAM[14071] = 36'o324000033370; // 033367 RAM[14072] = 36'o200000035022; // 033370 RAM[14073] = 36'o430000035000; // 033371 RAM[14074] = 36'o336000000000; // 033372 RAM[14075] = 36'o254200033374; // 033373 RAM[14076] = 36'o324000033375; // 033374 RAM[14077] = 36'o200000035023; // 033375 RAM[14078] = 36'o430000035000; // 033376 RAM[14079] = 36'o336000000000; // 033377 RAM[14080] = 36'o254200033401; // 033400 RAM[14081] = 36'o324000033402; // 033401 RAM[14082] = 36'o200000035024; // 033402 RAM[14083] = 36'o430000035000; // 033403 RAM[14084] = 36'o336000000000; // 033404 RAM[14085] = 36'o254200033406; // 033405 RAM[14086] = 36'o324000033407; // 033406 RAM[14087] = 36'o200000035025; // 033407 RAM[14088] = 36'o430000035000; // 033410 RAM[14089] = 36'o336000000000; // 033411 RAM[14090] = 36'o254200033413; // 033412 RAM[14091] = 36'o324000033414; // 033413 RAM[14092] = 36'o200000035026; // 033414 RAM[14093] = 36'o430000035000; // 033415 RAM[14094] = 36'o336000000000; // 033416 RAM[14095] = 36'o254200033420; // 033417 RAM[14096] = 36'o324000033421; // 033420 RAM[14097] = 36'o200000035027; // 033421 RAM[14098] = 36'o430000035000; // 033422 RAM[14099] = 36'o336000000000; // 033423 RAM[14100] = 36'o254200033425; // 033424 RAM[14101] = 36'o324000033426; // 033425 RAM[14102] = 36'o200000035030; // 033426 RAM[14103] = 36'o430000035000; // 033427 RAM[14104] = 36'o336000000000; // 033430 RAM[14105] = 36'o254200033432; // 033431 RAM[14106] = 36'o324000033433; // 033432 RAM[14107] = 36'o200000035031; // 033433 RAM[14108] = 36'o430000035000; // 033434 RAM[14109] = 36'o336000000000; // 033435 RAM[14110] = 36'o254200033437; // 033436 RAM[14111] = 36'o324000033440; // 033437 RAM[14112] = 36'o200000035032; // 033440 RAM[14113] = 36'o430000035000; // 033441 RAM[14114] = 36'o336000000000; // 033442 RAM[14115] = 36'o254200033444; // 033443 RAM[14116] = 36'o324000033445; // 033444 RAM[14117] = 36'o200000035033; // 033445 RAM[14118] = 36'o430000035000; // 033446 RAM[14119] = 36'o336000000000; // 033447 RAM[14120] = 36'o254200033451; // 033450 RAM[14121] = 36'o324000033452; // 033451 RAM[14122] = 36'o200000035034; // 033452 RAM[14123] = 36'o430000035000; // 033453 RAM[14124] = 36'o336000000000; // 033454 RAM[14125] = 36'o254200033456; // 033455 RAM[14126] = 36'o324000033457; // 033456 RAM[14127] = 36'o200000035035; // 033457 RAM[14128] = 36'o430000035000; // 033460 RAM[14129] = 36'o336000000000; // 033461 RAM[14130] = 36'o254200033463; // 033462 RAM[14131] = 36'o324000033464; // 033463 RAM[14132] = 36'o200000035036; // 033464 RAM[14133] = 36'o430000035000; // 033465 RAM[14134] = 36'o336000000000; // 033466 RAM[14135] = 36'o254200033470; // 033467 RAM[14136] = 36'o324000033471; // 033470 RAM[14137] = 36'o200000035037; // 033471 RAM[14138] = 36'o430000035000; // 033472 RAM[14139] = 36'o336000000000; // 033473 RAM[14140] = 36'o254200033475; // 033474 RAM[14141] = 36'o324000033476; // 033475 RAM[14142] = 36'o200000035040; // 033476 RAM[14143] = 36'o430000035000; // 033477 RAM[14144] = 36'o336000000000; // 033500 RAM[14145] = 36'o254200033502; // 033501 RAM[14146] = 36'o324000033503; // 033502 RAM[14147] = 36'o200000035041; // 033503 RAM[14148] = 36'o430000035000; // 033504 RAM[14149] = 36'o336000000000; // 033505 RAM[14150] = 36'o254200033507; // 033506 RAM[14151] = 36'o324000033510; // 033507 RAM[14152] = 36'o200000035042; // 033510 RAM[14153] = 36'o430000035000; // 033511 RAM[14154] = 36'o336000000000; // 033512 RAM[14155] = 36'o254200033514; // 033513 RAM[14156] = 36'o324000033515; // 033514 RAM[14157] = 36'o200000035043; // 033515 RAM[14158] = 36'o430000035000; // 033516 RAM[14159] = 36'o336000000000; // 033517 RAM[14160] = 36'o254200033521; // 033520 RAM[14161] = 36'o324000033522; // 033521 RAM[14162] = 36'o200000035011; // 033522 RAM[14163] = 36'o430000035000; // 033523 RAM[14164] = 36'o336000000000; // 033524 RAM[14165] = 36'o254200033526; // 033525 RAM[14166] = 36'o324000033527; // 033526 RAM[14167] = 36'o200000035044; // 033527 RAM[14168] = 36'o430000035000; // 033530 RAM[14169] = 36'o336000000000; // 033531 RAM[14170] = 36'o254200033533; // 033532 RAM[14171] = 36'o324000033534; // 033533 RAM[14172] = 36'o200000035045; // 033534 RAM[14173] = 36'o430000035000; // 033535 RAM[14174] = 36'o336000000000; // 033536 RAM[14175] = 36'o254200033540; // 033537 RAM[14176] = 36'o324000033541; // 033540 RAM[14177] = 36'o200000035046; // 033541 RAM[14178] = 36'o430000035000; // 033542 RAM[14179] = 36'o336000000000; // 033543 RAM[14180] = 36'o254200033545; // 033544 RAM[14181] = 36'o324000033546; // 033545 RAM[14182] = 36'o200000035047; // 033546 RAM[14183] = 36'o430000035000; // 033547 RAM[14184] = 36'o336000000000; // 033550 RAM[14185] = 36'o254200033552; // 033551 RAM[14186] = 36'o324000033553; // 033552 RAM[14187] = 36'o200000035050; // 033553 RAM[14188] = 36'o430000035000; // 033554 RAM[14189] = 36'o336000000000; // 033555 RAM[14190] = 36'o254200033557; // 033556 RAM[14191] = 36'o324000033560; // 033557 RAM[14192] = 36'o200000035051; // 033560 RAM[14193] = 36'o430000035000; // 033561 RAM[14194] = 36'o336000000000; // 033562 RAM[14195] = 36'o254200033564; // 033563 RAM[14196] = 36'o324000033565; // 033564 RAM[14197] = 36'o200000035052; // 033565 RAM[14198] = 36'o430000035000; // 033566 RAM[14199] = 36'o336000000000; // 033567 RAM[14200] = 36'o254200033571; // 033570 RAM[14201] = 36'o324000033572; // 033571 RAM[14202] = 36'o200000035053; // 033572 RAM[14203] = 36'o430000035000; // 033573 RAM[14204] = 36'o336000000000; // 033574 RAM[14205] = 36'o254200033576; // 033575 RAM[14206] = 36'o324000033577; // 033576 RAM[14207] = 36'o200000035003; // 033577 RAM[14208] = 36'o430000035000; // 033600 RAM[14209] = 36'o336000000000; // 033601 RAM[14210] = 36'o254200033603; // 033602 RAM[14211] = 36'o324000033604; // 033603 RAM[14212] = 36'o200000035012; // 033604 RAM[14213] = 36'o430000035012; // 033605 RAM[14214] = 36'o332000000000; // 033606 RAM[14215] = 36'o254200033610; // 033607 RAM[14216] = 36'o324000033611; // 033610 RAM[14217] = 36'o200000035013; // 033611 RAM[14218] = 36'o430000035013; // 033612 RAM[14219] = 36'o332000000000; // 033613 RAM[14220] = 36'o254200033615; // 033614 RAM[14221] = 36'o324000033616; // 033615 RAM[14222] = 36'o200000035014; // 033616 RAM[14223] = 36'o430000035014; // 033617 RAM[14224] = 36'o332000000000; // 033620 RAM[14225] = 36'o254200033622; // 033621 RAM[14226] = 36'o324000033623; // 033622 RAM[14227] = 36'o200000035015; // 033623 RAM[14228] = 36'o430000035015; // 033624 RAM[14229] = 36'o332000000000; // 033625 RAM[14230] = 36'o254200033627; // 033626 RAM[14231] = 36'o324000033630; // 033627 RAM[14232] = 36'o200000035016; // 033630 RAM[14233] = 36'o430000035016; // 033631 RAM[14234] = 36'o332000000000; // 033632 RAM[14235] = 36'o254200033634; // 033633 RAM[14236] = 36'o324000033635; // 033634 RAM[14237] = 36'o200000035017; // 033635 RAM[14238] = 36'o430000035017; // 033636 RAM[14239] = 36'o332000000000; // 033637 RAM[14240] = 36'o254200033641; // 033640 RAM[14241] = 36'o324000033642; // 033641 RAM[14242] = 36'o200000035020; // 033642 RAM[14243] = 36'o430000035020; // 033643 RAM[14244] = 36'o332000000000; // 033644 RAM[14245] = 36'o254200033646; // 033645 RAM[14246] = 36'o324000033647; // 033646 RAM[14247] = 36'o200000035021; // 033647 RAM[14248] = 36'o430000035021; // 033650 RAM[14249] = 36'o332000000000; // 033651 RAM[14250] = 36'o254200033653; // 033652 RAM[14251] = 36'o324000033654; // 033653 RAM[14252] = 36'o200000035022; // 033654 RAM[14253] = 36'o430000035022; // 033655 RAM[14254] = 36'o332000000000; // 033656 RAM[14255] = 36'o254200033660; // 033657 RAM[14256] = 36'o324000033661; // 033660 RAM[14257] = 36'o200000035023; // 033661 RAM[14258] = 36'o430000035023; // 033662 RAM[14259] = 36'o332000000000; // 033663 RAM[14260] = 36'o254200033665; // 033664 RAM[14261] = 36'o324000033666; // 033665 RAM[14262] = 36'o200000035024; // 033666 RAM[14263] = 36'o430000035024; // 033667 RAM[14264] = 36'o332000000000; // 033670 RAM[14265] = 36'o254200033672; // 033671 RAM[14266] = 36'o324000033673; // 033672 RAM[14267] = 36'o200000035025; // 033673 RAM[14268] = 36'o430000035025; // 033674 RAM[14269] = 36'o332000000000; // 033675 RAM[14270] = 36'o254200033677; // 033676 RAM[14271] = 36'o324000033700; // 033677 RAM[14272] = 36'o200000035026; // 033700 RAM[14273] = 36'o430000035026; // 033701 RAM[14274] = 36'o332000000000; // 033702 RAM[14275] = 36'o254200033704; // 033703 RAM[14276] = 36'o324000033705; // 033704 RAM[14277] = 36'o200000035027; // 033705 RAM[14278] = 36'o430000035027; // 033706 RAM[14279] = 36'o332000000000; // 033707 RAM[14280] = 36'o254200033711; // 033710 RAM[14281] = 36'o324000033712; // 033711 RAM[14282] = 36'o200000035030; // 033712 RAM[14283] = 36'o430000035030; // 033713 RAM[14284] = 36'o332000000000; // 033714 RAM[14285] = 36'o254200033716; // 033715 RAM[14286] = 36'o324000033717; // 033716 RAM[14287] = 36'o200000035031; // 033717 RAM[14288] = 36'o430000035031; // 033720 RAM[14289] = 36'o332000000000; // 033721 RAM[14290] = 36'o254200033723; // 033722 RAM[14291] = 36'o324000033724; // 033723 RAM[14292] = 36'o200000035032; // 033724 RAM[14293] = 36'o430000035032; // 033725 RAM[14294] = 36'o332000000000; // 033726 RAM[14295] = 36'o254200033730; // 033727 RAM[14296] = 36'o324000033731; // 033730 RAM[14297] = 36'o200000035033; // 033731 RAM[14298] = 36'o430000035033; // 033732 RAM[14299] = 36'o332000000000; // 033733 RAM[14300] = 36'o254200033735; // 033734 RAM[14301] = 36'o324000033736; // 033735 RAM[14302] = 36'o200000035034; // 033736 RAM[14303] = 36'o430000035034; // 033737 RAM[14304] = 36'o332000000000; // 033740 RAM[14305] = 36'o254200033742; // 033741 RAM[14306] = 36'o324000033743; // 033742 RAM[14307] = 36'o200000035035; // 033743 RAM[14308] = 36'o430000035035; // 033744 RAM[14309] = 36'o332000000000; // 033745 RAM[14310] = 36'o254200033747; // 033746 RAM[14311] = 36'o324000033750; // 033747 RAM[14312] = 36'o200000035036; // 033750 RAM[14313] = 36'o430000035036; // 033751 RAM[14314] = 36'o332000000000; // 033752 RAM[14315] = 36'o254200033754; // 033753 RAM[14316] = 36'o324000033755; // 033754 RAM[14317] = 36'o200000035037; // 033755 RAM[14318] = 36'o430000035037; // 033756 RAM[14319] = 36'o332000000000; // 033757 RAM[14320] = 36'o254200033761; // 033760 RAM[14321] = 36'o324000033762; // 033761 RAM[14322] = 36'o200000035040; // 033762 RAM[14323] = 36'o430000035040; // 033763 RAM[14324] = 36'o332000000000; // 033764 RAM[14325] = 36'o254200033766; // 033765 RAM[14326] = 36'o324000033767; // 033766 RAM[14327] = 36'o200000035041; // 033767 RAM[14328] = 36'o430000035041; // 033770 RAM[14329] = 36'o332000000000; // 033771 RAM[14330] = 36'o254200033773; // 033772 RAM[14331] = 36'o324000033774; // 033773 RAM[14332] = 36'o200000035042; // 033774 RAM[14333] = 36'o430000035042; // 033775 RAM[14334] = 36'o332000000000; // 033776 RAM[14335] = 36'o254200034000; // 033777 RAM[14336] = 36'o324000034001; // 034000 RAM[14337] = 36'o200000035043; // 034001 RAM[14338] = 36'o430000035043; // 034002 RAM[14339] = 36'o332000000000; // 034003 RAM[14340] = 36'o254200034005; // 034004 RAM[14341] = 36'o324000034006; // 034005 RAM[14342] = 36'o200000035011; // 034006 RAM[14343] = 36'o430000035011; // 034007 RAM[14344] = 36'o332000000000; // 034010 RAM[14345] = 36'o254200034012; // 034011 RAM[14346] = 36'o324000034013; // 034012 RAM[14347] = 36'o200000035044; // 034013 RAM[14348] = 36'o430000035044; // 034014 RAM[14349] = 36'o332000000000; // 034015 RAM[14350] = 36'o254200034017; // 034016 RAM[14351] = 36'o324000034020; // 034017 RAM[14352] = 36'o200000035045; // 034020 RAM[14353] = 36'o430000035045; // 034021 RAM[14354] = 36'o332000000000; // 034022 RAM[14355] = 36'o254200034024; // 034023 RAM[14356] = 36'o324000034025; // 034024 RAM[14357] = 36'o200000035046; // 034025 RAM[14358] = 36'o430000035046; // 034026 RAM[14359] = 36'o332000000000; // 034027 RAM[14360] = 36'o254200034031; // 034030 RAM[14361] = 36'o324000034032; // 034031 RAM[14362] = 36'o200000035047; // 034032 RAM[14363] = 36'o430000035047; // 034033 RAM[14364] = 36'o332000000000; // 034034 RAM[14365] = 36'o254200034036; // 034035 RAM[14366] = 36'o324000034037; // 034036 RAM[14367] = 36'o200000035050; // 034037 RAM[14368] = 36'o430000035050; // 034040 RAM[14369] = 36'o332000000000; // 034041 RAM[14370] = 36'o254200034043; // 034042 RAM[14371] = 36'o324000034044; // 034043 RAM[14372] = 36'o200000035051; // 034044 RAM[14373] = 36'o430000035051; // 034045 RAM[14374] = 36'o332000000000; // 034046 RAM[14375] = 36'o254200034050; // 034047 RAM[14376] = 36'o324000034051; // 034050 RAM[14377] = 36'o200000035052; // 034051 RAM[14378] = 36'o430000035052; // 034052 RAM[14379] = 36'o332000000000; // 034053 RAM[14380] = 36'o254200034055; // 034054 RAM[14381] = 36'o324000034056; // 034055 RAM[14382] = 36'o200000035053; // 034056 RAM[14383] = 36'o430000035053; // 034057 RAM[14384] = 36'o332000000000; // 034060 RAM[14385] = 36'o254200034062; // 034061 RAM[14386] = 36'o324000034063; // 034062 RAM[14387] = 36'o200000035003; // 034063 RAM[14388] = 36'o430000035003; // 034064 RAM[14389] = 36'o332000000000; // 034065 RAM[14390] = 36'o254200034067; // 034066 RAM[14391] = 36'o324000034070; // 034067 RAM[14392] = 36'o200000035000; // 034070 RAM[14393] = 36'o430000035000; // 034071 RAM[14394] = 36'o332000000000; // 034072 RAM[14395] = 36'o254200034074; // 034073 RAM[14396] = 36'o324000034075; // 034074 RAM[14397] = 36'o200000035000; // 034075 RAM[14398] = 36'o444000035001; // 034076 RAM[14399] = 36'o332000000000; // 034077 RAM[14400] = 36'o254200034101; // 034100 RAM[14401] = 36'o324000034102; // 034101 RAM[14402] = 36'o200000035000; // 034102 RAM[14403] = 36'o444000035060; // 034103 RAM[14404] = 36'o336000000000; // 034104 RAM[14405] = 36'o254200034106; // 034105 RAM[14406] = 36'o324000034107; // 034106 RAM[14407] = 36'o200000035000; // 034107 RAM[14408] = 36'o444000035061; // 034110 RAM[14409] = 36'o336000000000; // 034111 RAM[14410] = 36'o254200034113; // 034112 RAM[14411] = 36'o324000034114; // 034113 RAM[14412] = 36'o200000035000; // 034114 RAM[14413] = 36'o444000035062; // 034115 RAM[14414] = 36'o336000000000; // 034116 RAM[14415] = 36'o254200034120; // 034117 RAM[14416] = 36'o324000034121; // 034120 RAM[14417] = 36'o200000035000; // 034121 RAM[14418] = 36'o444000035063; // 034122 RAM[14419] = 36'o336000000000; // 034123 RAM[14420] = 36'o254200034125; // 034124 RAM[14421] = 36'o324000034126; // 034125 RAM[14422] = 36'o200000035000; // 034126 RAM[14423] = 36'o444000035064; // 034127 RAM[14424] = 36'o336000000000; // 034130 RAM[14425] = 36'o254200034132; // 034131 RAM[14426] = 36'o324000034133; // 034132 RAM[14427] = 36'o200000035000; // 034133 RAM[14428] = 36'o444000035065; // 034134 RAM[14429] = 36'o336000000000; // 034135 RAM[14430] = 36'o254200034137; // 034136 RAM[14431] = 36'o324000034140; // 034137 RAM[14432] = 36'o200000035000; // 034140 RAM[14433] = 36'o444000035066; // 034141 RAM[14434] = 36'o336000000000; // 034142 RAM[14435] = 36'o254200034144; // 034143 RAM[14436] = 36'o324000034145; // 034144 RAM[14437] = 36'o200000035000; // 034145 RAM[14438] = 36'o444000035067; // 034146 RAM[14439] = 36'o336000000000; // 034147 RAM[14440] = 36'o254200034151; // 034150 RAM[14441] = 36'o324000034152; // 034151 RAM[14442] = 36'o200000035000; // 034152 RAM[14443] = 36'o444000035070; // 034153 RAM[14444] = 36'o336000000000; // 034154 RAM[14445] = 36'o254200034156; // 034155 RAM[14446] = 36'o324000034157; // 034156 RAM[14447] = 36'o200000035000; // 034157 RAM[14448] = 36'o444000035071; // 034160 RAM[14449] = 36'o336000000000; // 034161 RAM[14450] = 36'o254200034163; // 034162 RAM[14451] = 36'o324000034164; // 034163 RAM[14452] = 36'o200000035000; // 034164 RAM[14453] = 36'o444000035072; // 034165 RAM[14454] = 36'o336000000000; // 034166 RAM[14455] = 36'o254200034170; // 034167 RAM[14456] = 36'o324000034171; // 034170 RAM[14457] = 36'o200000035000; // 034171 RAM[14458] = 36'o444000035073; // 034172 RAM[14459] = 36'o336000000000; // 034173 RAM[14460] = 36'o254200034175; // 034174 RAM[14461] = 36'o324000034176; // 034175 RAM[14462] = 36'o200000035000; // 034176 RAM[14463] = 36'o444000035074; // 034177 RAM[14464] = 36'o336000000000; // 034200 RAM[14465] = 36'o254200034202; // 034201 RAM[14466] = 36'o324000034203; // 034202 RAM[14467] = 36'o200000035000; // 034203 RAM[14468] = 36'o444000035075; // 034204 RAM[14469] = 36'o336000000000; // 034205 RAM[14470] = 36'o254200034207; // 034206 RAM[14471] = 36'o324000034210; // 034207 RAM[14472] = 36'o200000035000; // 034210 RAM[14473] = 36'o444000035076; // 034211 RAM[14474] = 36'o336000000000; // 034212 RAM[14475] = 36'o254200034214; // 034213 RAM[14476] = 36'o324000034215; // 034214 RAM[14477] = 36'o200000035000; // 034215 RAM[14478] = 36'o444000035077; // 034216 RAM[14479] = 36'o336000000000; // 034217 RAM[14480] = 36'o254200034221; // 034220 RAM[14481] = 36'o324000034222; // 034221 RAM[14482] = 36'o200000035000; // 034222 RAM[14483] = 36'o444000035100; // 034223 RAM[14484] = 36'o336000000000; // 034224 RAM[14485] = 36'o254200034226; // 034225 RAM[14486] = 36'o324000034227; // 034226 RAM[14487] = 36'o200000035000; // 034227 RAM[14488] = 36'o444000035101; // 034230 RAM[14489] = 36'o336000000000; // 034231 RAM[14490] = 36'o254200034233; // 034232 RAM[14491] = 36'o324000034234; // 034233 RAM[14492] = 36'o200000035000; // 034234 RAM[14493] = 36'o444000035102; // 034235 RAM[14494] = 36'o336000000000; // 034236 RAM[14495] = 36'o254200034240; // 034237 RAM[14496] = 36'o324000034241; // 034240 RAM[14497] = 36'o200000035000; // 034241 RAM[14498] = 36'o444000035103; // 034242 RAM[14499] = 36'o336000000000; // 034243 RAM[14500] = 36'o254200034245; // 034244 RAM[14501] = 36'o324000034246; // 034245 RAM[14502] = 36'o200000035000; // 034246 RAM[14503] = 36'o444000035104; // 034247 RAM[14504] = 36'o336000000000; // 034250 RAM[14505] = 36'o254200034252; // 034251 RAM[14506] = 36'o324000034253; // 034252 RAM[14507] = 36'o200000035000; // 034253 RAM[14508] = 36'o444000035105; // 034254 RAM[14509] = 36'o336000000000; // 034255 RAM[14510] = 36'o254200034257; // 034256 RAM[14511] = 36'o324000034260; // 034257 RAM[14512] = 36'o200000035000; // 034260 RAM[14513] = 36'o444000035106; // 034261 RAM[14514] = 36'o336000000000; // 034262 RAM[14515] = 36'o254200034264; // 034263 RAM[14516] = 36'o324000034265; // 034264 RAM[14517] = 36'o200000035000; // 034265 RAM[14518] = 36'o444000035107; // 034266 RAM[14519] = 36'o336000000000; // 034267 RAM[14520] = 36'o254200034271; // 034270 RAM[14521] = 36'o324000034272; // 034271 RAM[14522] = 36'o200000035000; // 034272 RAM[14523] = 36'o444000035110; // 034273 RAM[14524] = 36'o336000000000; // 034274 RAM[14525] = 36'o254200034276; // 034275 RAM[14526] = 36'o324000034277; // 034276 RAM[14527] = 36'o200000035000; // 034277 RAM[14528] = 36'o444000035111; // 034300 RAM[14529] = 36'o336000000000; // 034301 RAM[14530] = 36'o254200034303; // 034302 RAM[14531] = 36'o324000034304; // 034303 RAM[14532] = 36'o200000035000; // 034304 RAM[14533] = 36'o444000035112; // 034305 RAM[14534] = 36'o336000000000; // 034306 RAM[14535] = 36'o254200034310; // 034307 RAM[14536] = 36'o324000034311; // 034310 RAM[14537] = 36'o200000035000; // 034311 RAM[14538] = 36'o444000035113; // 034312 RAM[14539] = 36'o336000000000; // 034313 RAM[14540] = 36'o254200034315; // 034314 RAM[14541] = 36'o324000034316; // 034315 RAM[14542] = 36'o200000035000; // 034316 RAM[14543] = 36'o444000035114; // 034317 RAM[14544] = 36'o336000000000; // 034320 RAM[14545] = 36'o254200034322; // 034321 RAM[14546] = 36'o324000034323; // 034322 RAM[14547] = 36'o200000035000; // 034323 RAM[14548] = 36'o444000035115; // 034324 RAM[14549] = 36'o336000000000; // 034325 RAM[14550] = 36'o254200034327; // 034326 RAM[14551] = 36'o324000034330; // 034327 RAM[14552] = 36'o200000035000; // 034330 RAM[14553] = 36'o444000035116; // 034331 RAM[14554] = 36'o336000000000; // 034332 RAM[14555] = 36'o254200034334; // 034333 RAM[14556] = 36'o324000034335; // 034334 RAM[14557] = 36'o200000035000; // 034335 RAM[14558] = 36'o444000035117; // 034336 RAM[14559] = 36'o336000000000; // 034337 RAM[14560] = 36'o254200034341; // 034340 RAM[14561] = 36'o324000034342; // 034341 RAM[14562] = 36'o200000035000; // 034342 RAM[14563] = 36'o444000035120; // 034343 RAM[14564] = 36'o336000000000; // 034344 RAM[14565] = 36'o254200034346; // 034345 RAM[14566] = 36'o324000034347; // 034346 RAM[14567] = 36'o200000035000; // 034347 RAM[14568] = 36'o444000035121; // 034350 RAM[14569] = 36'o336000000000; // 034351 RAM[14570] = 36'o254200034353; // 034352 RAM[14571] = 36'o324000034354; // 034353 RAM[14572] = 36'o200000035000; // 034354 RAM[14573] = 36'o444000035122; // 034355 RAM[14574] = 36'o336000000000; // 034356 RAM[14575] = 36'o254200034360; // 034357 RAM[14576] = 36'o324000034361; // 034360 RAM[14577] = 36'o200000035000; // 034361 RAM[14578] = 36'o444000035002; // 034362 RAM[14579] = 36'o336000000000; // 034363 RAM[14580] = 36'o254200034365; // 034364 RAM[14581] = 36'o324000034366; // 034365 RAM[14582] = 36'o200000035000; // 034366 RAM[14583] = 36'o444000035000; // 034367 RAM[14584] = 36'o444000035000; // 034370 RAM[14585] = 36'o332000000000; // 034371 RAM[14586] = 36'o254200034373; // 034372 RAM[14587] = 36'o324000034374; // 034373 RAM[14588] = 36'o200000035001; // 034374 RAM[14589] = 36'o444000035001; // 034375 RAM[14590] = 36'o444000035000; // 034376 RAM[14591] = 36'o332000000000; // 034377 RAM[14592] = 36'o254200034401; // 034400 RAM[14593] = 36'o324000034402; // 034401 RAM[14594] = 36'o200000035012; // 034402 RAM[14595] = 36'o404000035012; // 034403 RAM[14596] = 36'o444000035012; // 034404 RAM[14597] = 36'o444000035000; // 034405 RAM[14598] = 36'o332000000000; // 034406 RAM[14599] = 36'o254200034410; // 034407 RAM[14600] = 36'o324000034411; // 034410 RAM[14601] = 36'o200000035013; // 034411 RAM[14602] = 36'o404000035013; // 034412 RAM[14603] = 36'o444000035013; // 034413 RAM[14604] = 36'o444000035000; // 034414 RAM[14605] = 36'o332000000000; // 034415 RAM[14606] = 36'o254200034417; // 034416 RAM[14607] = 36'o324000034420; // 034417 RAM[14608] = 36'o200000035014; // 034420 RAM[14609] = 36'o404000035014; // 034421 RAM[14610] = 36'o444000035014; // 034422 RAM[14611] = 36'o444000035000; // 034423 RAM[14612] = 36'o332000000000; // 034424 RAM[14613] = 36'o254200034426; // 034425 RAM[14614] = 36'o324000034427; // 034426 RAM[14615] = 36'o200000035015; // 034427 RAM[14616] = 36'o404000035015; // 034430 RAM[14617] = 36'o444000035015; // 034431 RAM[14618] = 36'o444000035000; // 034432 RAM[14619] = 36'o332000000000; // 034433 RAM[14620] = 36'o254200034435; // 034434 RAM[14621] = 36'o324000034436; // 034435 RAM[14622] = 36'o200000035016; // 034436 RAM[14623] = 36'o404000035016; // 034437 RAM[14624] = 36'o444000035016; // 034440 RAM[14625] = 36'o444000035000; // 034441 RAM[14626] = 36'o332000000000; // 034442 RAM[14627] = 36'o254200034444; // 034443 RAM[14628] = 36'o324000034445; // 034444 RAM[14629] = 36'o200000035017; // 034445 RAM[14630] = 36'o404000035017; // 034446 RAM[14631] = 36'o444000035017; // 034447 RAM[14632] = 36'o444000035000; // 034450 RAM[14633] = 36'o332000000000; // 034451 RAM[14634] = 36'o254200034453; // 034452 RAM[14635] = 36'o324000034454; // 034453 RAM[14636] = 36'o200000035020; // 034454 RAM[14637] = 36'o404000035020; // 034455 RAM[14638] = 36'o444000035020; // 034456 RAM[14639] = 36'o444000035000; // 034457 RAM[14640] = 36'o332000000000; // 034460 RAM[14641] = 36'o254200034462; // 034461 RAM[14642] = 36'o324000034463; // 034462 RAM[14643] = 36'o200000035021; // 034463 RAM[14644] = 36'o404000035021; // 034464 RAM[14645] = 36'o444000035021; // 034465 RAM[14646] = 36'o444000035000; // 034466 RAM[14647] = 36'o332000000000; // 034467 RAM[14648] = 36'o254200034471; // 034470 RAM[14649] = 36'o324000034472; // 034471 RAM[14650] = 36'o200000035022; // 034472 RAM[14651] = 36'o404000035022; // 034473 RAM[14652] = 36'o444000035022; // 034474 RAM[14653] = 36'o444000035000; // 034475 RAM[14654] = 36'o332000000000; // 034476 RAM[14655] = 36'o254200034500; // 034477 RAM[14656] = 36'o324000034501; // 034500 RAM[14657] = 36'o200000035023; // 034501 RAM[14658] = 36'o404000035023; // 034502 RAM[14659] = 36'o444000035023; // 034503 RAM[14660] = 36'o444000035000; // 034504 RAM[14661] = 36'o332000000000; // 034505 RAM[14662] = 36'o254200034507; // 034506 RAM[14663] = 36'o324000034510; // 034507 RAM[14664] = 36'o200000035024; // 034510 RAM[14665] = 36'o404000035024; // 034511 RAM[14666] = 36'o444000035024; // 034512 RAM[14667] = 36'o444000035000; // 034513 RAM[14668] = 36'o332000000000; // 034514 RAM[14669] = 36'o254200034516; // 034515 RAM[14670] = 36'o324000034517; // 034516 RAM[14671] = 36'o200000035025; // 034517 RAM[14672] = 36'o404000035025; // 034520 RAM[14673] = 36'o444000035025; // 034521 RAM[14674] = 36'o444000035000; // 034522 RAM[14675] = 36'o332000000000; // 034523 RAM[14676] = 36'o254200034525; // 034524 RAM[14677] = 36'o324000034526; // 034525 RAM[14678] = 36'o200000035026; // 034526 RAM[14679] = 36'o404000035026; // 034527 RAM[14680] = 36'o444000035026; // 034530 RAM[14681] = 36'o444000035000; // 034531 RAM[14682] = 36'o332000000000; // 034532 RAM[14683] = 36'o254200034534; // 034533 RAM[14684] = 36'o324000034535; // 034534 RAM[14685] = 36'o200000035027; // 034535 RAM[14686] = 36'o404000035027; // 034536 RAM[14687] = 36'o444000035027; // 034537 RAM[14688] = 36'o444000035000; // 034540 RAM[14689] = 36'o332000000000; // 034541 RAM[14690] = 36'o254200034543; // 034542 RAM[14691] = 36'o324000034544; // 034543 RAM[14692] = 36'o200000035030; // 034544 RAM[14693] = 36'o404000035030; // 034545 RAM[14694] = 36'o444000035030; // 034546 RAM[14695] = 36'o444000035000; // 034547 RAM[14696] = 36'o332000000000; // 034550 RAM[14697] = 36'o254200034552; // 034551 RAM[14698] = 36'o324000034553; // 034552 RAM[14699] = 36'o200000035031; // 034553 RAM[14700] = 36'o404000035031; // 034554 RAM[14701] = 36'o444000035031; // 034555 RAM[14702] = 36'o444000035000; // 034556 RAM[14703] = 36'o332000000000; // 034557 RAM[14704] = 36'o254200034561; // 034560 RAM[14705] = 36'o324000034562; // 034561 RAM[14706] = 36'o200000035032; // 034562 RAM[14707] = 36'o404000035032; // 034563 RAM[14708] = 36'o444000035032; // 034564 RAM[14709] = 36'o444000035000; // 034565 RAM[14710] = 36'o332000000000; // 034566 RAM[14711] = 36'o254200034570; // 034567 RAM[14712] = 36'o324000034571; // 034570 RAM[14713] = 36'o200000035033; // 034571 RAM[14714] = 36'o404000035033; // 034572 RAM[14715] = 36'o444000035033; // 034573 RAM[14716] = 36'o444000035000; // 034574 RAM[14717] = 36'o332000000000; // 034575 RAM[14718] = 36'o254200034577; // 034576 RAM[14719] = 36'o324000034600; // 034577 RAM[14720] = 36'o200000035034; // 034600 RAM[14721] = 36'o404000035034; // 034601 RAM[14722] = 36'o444000035034; // 034602 RAM[14723] = 36'o444000035000; // 034603 RAM[14724] = 36'o332000000000; // 034604 RAM[14725] = 36'o254200034606; // 034605 RAM[14726] = 36'o324000034607; // 034606 RAM[14727] = 36'o200000035035; // 034607 RAM[14728] = 36'o404000035035; // 034610 RAM[14729] = 36'o444000035035; // 034611 RAM[14730] = 36'o444000035000; // 034612 RAM[14731] = 36'o332000000000; // 034613 RAM[14732] = 36'o254200034615; // 034614 RAM[14733] = 36'o324000034616; // 034615 RAM[14734] = 36'o200000035036; // 034616 RAM[14735] = 36'o404000035036; // 034617 RAM[14736] = 36'o444000035036; // 034620 RAM[14737] = 36'o444000035000; // 034621 RAM[14738] = 36'o332000000000; // 034622 RAM[14739] = 36'o254200034624; // 034623 RAM[14740] = 36'o324000034625; // 034624 RAM[14741] = 36'o200000035037; // 034625 RAM[14742] = 36'o404000035037; // 034626 RAM[14743] = 36'o444000035037; // 034627 RAM[14744] = 36'o444000035000; // 034630 RAM[14745] = 36'o332000000000; // 034631 RAM[14746] = 36'o254200034633; // 034632 RAM[14747] = 36'o324000034634; // 034633 RAM[14748] = 36'o200000035040; // 034634 RAM[14749] = 36'o404000035040; // 034635 RAM[14750] = 36'o444000035040; // 034636 RAM[14751] = 36'o444000035000; // 034637 RAM[14752] = 36'o332000000000; // 034640 RAM[14753] = 36'o254200034642; // 034641 RAM[14754] = 36'o324000034643; // 034642 RAM[14755] = 36'o200000035041; // 034643 RAM[14756] = 36'o404000035041; // 034644 RAM[14757] = 36'o444000035041; // 034645 RAM[14758] = 36'o444000035000; // 034646 RAM[14759] = 36'o332000000000; // 034647 RAM[14760] = 36'o254200034651; // 034650 RAM[14761] = 36'o324000034652; // 034651 RAM[14762] = 36'o200000035042; // 034652 RAM[14763] = 36'o404000035042; // 034653 RAM[14764] = 36'o444000035042; // 034654 RAM[14765] = 36'o444000035000; // 034655 RAM[14766] = 36'o332000000000; // 034656 RAM[14767] = 36'o254200034660; // 034657 RAM[14768] = 36'o324000034661; // 034660 RAM[14769] = 36'o200000035043; // 034661 RAM[14770] = 36'o404000035043; // 034662 RAM[14771] = 36'o444000035043; // 034663 RAM[14772] = 36'o444000035000; // 034664 RAM[14773] = 36'o332000000000; // 034665 RAM[14774] = 36'o254200034667; // 034666 RAM[14775] = 36'o324000034670; // 034667 RAM[14776] = 36'o200000035011; // 034670 RAM[14777] = 36'o404000035011; // 034671 RAM[14778] = 36'o444000035011; // 034672 RAM[14779] = 36'o444000035000; // 034673 RAM[14780] = 36'o332000000000; // 034674 RAM[14781] = 36'o254200034676; // 034675 RAM[14782] = 36'o324000034677; // 034676 RAM[14783] = 36'o200000035044; // 034677 RAM[14784] = 36'o404000035044; // 034700 RAM[14785] = 36'o444000035044; // 034701 RAM[14786] = 36'o444000035000; // 034702 RAM[14787] = 36'o332000000000; // 034703 RAM[14788] = 36'o254200034705; // 034704 RAM[14789] = 36'o324000034706; // 034705 RAM[14790] = 36'o200000035045; // 034706 RAM[14791] = 36'o404000035045; // 034707 RAM[14792] = 36'o444000035045; // 034710 RAM[14793] = 36'o444000035000; // 034711 RAM[14794] = 36'o332000000000; // 034712 RAM[14795] = 36'o254200034714; // 034713 RAM[14796] = 36'o324000034715; // 034714 RAM[14797] = 36'o200000035046; // 034715 RAM[14798] = 36'o404000035046; // 034716 RAM[14799] = 36'o444000035046; // 034717 RAM[14800] = 36'o444000035000; // 034720 RAM[14801] = 36'o332000000000; // 034721 RAM[14802] = 36'o254200034723; // 034722 RAM[14803] = 36'o324000034724; // 034723 RAM[14804] = 36'o200000035047; // 034724 RAM[14805] = 36'o404000035047; // 034725 RAM[14806] = 36'o444000035047; // 034726 RAM[14807] = 36'o444000035000; // 034727 RAM[14808] = 36'o332000000000; // 034730 RAM[14809] = 36'o254200034732; // 034731 RAM[14810] = 36'o324000034733; // 034732 RAM[14811] = 36'o200000035050; // 034733 RAM[14812] = 36'o404000035050; // 034734 RAM[14813] = 36'o444000035050; // 034735 RAM[14814] = 36'o444000035000; // 034736 RAM[14815] = 36'o332000000000; // 034737 RAM[14816] = 36'o254200034741; // 034740 RAM[14817] = 36'o324000034742; // 034741 RAM[14818] = 36'o200000035051; // 034742 RAM[14819] = 36'o404000035051; // 034743 RAM[14820] = 36'o444000035051; // 034744 RAM[14821] = 36'o444000035000; // 034745 RAM[14822] = 36'o332000000000; // 034746 RAM[14823] = 36'o254200034750; // 034747 RAM[14824] = 36'o324000034751; // 034750 RAM[14825] = 36'o200000035052; // 034751 RAM[14826] = 36'o404000035052; // 034752 RAM[14827] = 36'o444000035052; // 034753 RAM[14828] = 36'o444000035000; // 034754 RAM[14829] = 36'o332000000000; // 034755 RAM[14830] = 36'o254200034757; // 034756 RAM[14831] = 36'o324000034760; // 034757 RAM[14832] = 36'o200000035053; // 034760 RAM[14833] = 36'o404000035053; // 034761 RAM[14834] = 36'o444000035053; // 034762 RAM[14835] = 36'o444000035000; // 034763 RAM[14836] = 36'o332000000000; // 034764 RAM[14837] = 36'o254200034766; // 034765 RAM[14838] = 36'o324000034767; // 034766 RAM[14839] = 36'o200000035003; // 034767 RAM[14840] = 36'o404000035003; // 034770 RAM[14841] = 36'o444000035003; // 034771 RAM[14842] = 36'o444000035000; // 034772 RAM[14843] = 36'o332000000000; // 034773 RAM[14844] = 36'o254200034775; // 034774 RAM[14845] = 36'o324000034776; // 034775 RAM[14846] = 36'o402000035124; // 034776 RAM[14847] = 36'o254000030057; // 034777 RAM[14848] = 36'o000000000000; // 035000 RAM[14849] = 36'o777777777777; // 035001 RAM[14850] = 36'o377777777777; // 035002 RAM[14851] = 36'o400000000000; // 035003 RAM[14852] = 36'o777000000000; // 035004 RAM[14853] = 36'o000377000000; // 035005 RAM[14854] = 36'o000000177000; // 035006 RAM[14855] = 36'o000000000777; // 035007 RAM[14856] = 36'o000000600000; // 035010 RAM[14857] = 36'o000400000000; // 035011 RAM[14858] = 36'o000000000001; // 035012 RAM[14859] = 36'o000000000002; // 035013 RAM[14860] = 36'o000000000004; // 035014 RAM[14861] = 36'o000000000010; // 035015 RAM[14862] = 36'o000000000020; // 035016 RAM[14863] = 36'o000000000040; // 035017 RAM[14864] = 36'o000000000100; // 035020 RAM[14865] = 36'o000000000200; // 035021 RAM[14866] = 36'o000000000400; // 035022 RAM[14867] = 36'o000000001000; // 035023 RAM[14868] = 36'o000000002000; // 035024 RAM[14869] = 36'o000000004000; // 035025 RAM[14870] = 36'o000000010000; // 035026 RAM[14871] = 36'o000000020000; // 035027 RAM[14872] = 36'o000000040000; // 035030 RAM[14873] = 36'o000000100000; // 035031 RAM[14874] = 36'o000000200000; // 035032 RAM[14875] = 36'o000000400000; // 035033 RAM[14876] = 36'o000001000000; // 035034 RAM[14877] = 36'o000002000000; // 035035 RAM[14878] = 36'o000004000000; // 035036 RAM[14879] = 36'o000010000000; // 035037 RAM[14880] = 36'o000020000000; // 035040 RAM[14881] = 36'o000040000000; // 035041 RAM[14882] = 36'o000100000000; // 035042 RAM[14883] = 36'o000200000000; // 035043 RAM[14884] = 36'o001000000000; // 035044 RAM[14885] = 36'o002000000000; // 035045 RAM[14886] = 36'o004000000000; // 035046 RAM[14887] = 36'o010000000000; // 035047 RAM[14888] = 36'o020000000000; // 035050 RAM[14889] = 36'o040000000000; // 035051 RAM[14890] = 36'o100000000000; // 035052 RAM[14891] = 36'o200000000000; // 035053 RAM[14892] = 36'o000000001234; // 035054 RAM[14893] = 36'o000000777777; // 035055 RAM[14894] = 36'o777777000000; // 035056 RAM[14895] = 36'o707070707070; // 035057 RAM[14896] = 36'o777777777776; // 035060 RAM[14897] = 36'o777777777775; // 035061 RAM[14898] = 36'o777777777773; // 035062 RAM[14899] = 36'o777777777767; // 035063 RAM[14900] = 36'o777777777757; // 035064 RAM[14901] = 36'o777777777737; // 035065 RAM[14902] = 36'o777777777677; // 035066 RAM[14903] = 36'o777777777577; // 035067 RAM[14904] = 36'o777777777377; // 035070 RAM[14905] = 36'o777777776777; // 035071 RAM[14906] = 36'o777777775777; // 035072 RAM[14907] = 36'o777777773777; // 035073 RAM[14908] = 36'o777777767777; // 035074 RAM[14909] = 36'o777777757777; // 035075 RAM[14910] = 36'o777777737777; // 035076 RAM[14911] = 36'o777777677777; // 035077 RAM[14912] = 36'o777777577777; // 035100 RAM[14913] = 36'o777777377777; // 035101 RAM[14914] = 36'o777776777777; // 035102 RAM[14915] = 36'o777775777777; // 035103 RAM[14916] = 36'o777773777777; // 035104 RAM[14917] = 36'o777767777777; // 035105 RAM[14918] = 36'o777757777777; // 035106 RAM[14919] = 36'o777737777777; // 035107 RAM[14920] = 36'o777677777777; // 035110 RAM[14921] = 36'o777577777777; // 035111 RAM[14922] = 36'o777377777777; // 035112 RAM[14923] = 36'o776777777777; // 035113 RAM[14924] = 36'o775777777777; // 035114 RAM[14925] = 36'o773777777777; // 035115 RAM[14926] = 36'o767777777777; // 035116 RAM[14927] = 36'o757777777777; // 035117 RAM[14928] = 36'o737777777777; // 035120 RAM[14929] = 36'o677777777777; // 035121 RAM[14930] = 36'o577777777777; // 035122 RAM[14931] = 36'o000000000000; // 035123 RAM[14932] = 36'o000000000000; // 035124 (unused) RAM[14933] = 36'o000000000000; // 035125 RAM[14934] = 36'o000000000000; // 035126 (unused) RAM[14935] = 36'o000000000000; // 035127 (unused) RAM[14936] = 36'o000000000000; // 035130 (unused) RAM[14937] = 36'o000000000000; // 035131 (unused) RAM[14938] = 36'o000000000000; // 035132 (unused) RAM[14939] = 36'o000000000000; // 035133 (unused) RAM[14940] = 36'o000000000000; // 035134 (unused) RAM[14941] = 36'o000000000000; // 035135 (unused) RAM[14942] = 36'o000000000000; // 035136 (unused) RAM[14943] = 36'o000000000000; // 035137 (unused) RAM[14944] = 36'o000000000000; // 035140 (unused) RAM[14945] = 36'o000000000000; // 035141 (unused) RAM[14946] = 36'o000000000000; // 035142 (unused) RAM[14947] = 36'o000000000000; // 035143 (unused) RAM[14948] = 36'o000000000000; // 035144 (unused) RAM[14949] = 36'o000000000000; // 035145 (unused) RAM[14950] = 36'o000000000000; // 035146 (unused) RAM[14951] = 36'o000000000000; // 035147 (unused) RAM[14952] = 36'o000000000000; // 035150 (unused) RAM[14953] = 36'o000000000000; // 035151 (unused) RAM[14954] = 36'o000000000000; // 035152 (unused) RAM[14955] = 36'o000000000000; // 035153 (unused) RAM[14956] = 36'o000000000000; // 035154 (unused) RAM[14957] = 36'o000000000000; // 035155 (unused) RAM[14958] = 36'o000000000000; // 035156 (unused) RAM[14959] = 36'o000000000000; // 035157 (unused) RAM[14960] = 36'o000000000000; // 035160 (unused) RAM[14961] = 36'o000000000000; // 035161 (unused) RAM[14962] = 36'o000000000000; // 035162 (unused) RAM[14963] = 36'o000000000000; // 035163 (unused) RAM[14964] = 36'o000000000000; // 035164 (unused) RAM[14965] = 36'o000000000000; // 035165 (unused) RAM[14966] = 36'o000000000000; // 035166 (unused) RAM[14967] = 36'o000000000000; // 035167 (unused) RAM[14968] = 36'o000000000000; // 035170 (unused) RAM[14969] = 36'o000000000000; // 035171 (unused) RAM[14970] = 36'o000000000000; // 035172 (unused) RAM[14971] = 36'o000000000000; // 035173 (unused) RAM[14972] = 36'o000000000000; // 035174 (unused) RAM[14973] = 36'o000000000000; // 035175 (unused) RAM[14974] = 36'o000000000000; // 035176 (unused) RAM[14975] = 36'o000000000000; // 035177 (unused) RAM[14976] = 36'o000000000000; // 035200 (unused) RAM[14977] = 36'o000000000000; // 035201 (unused) RAM[14978] = 36'o000000000000; // 035202 (unused) RAM[14979] = 36'o000000000000; // 035203 (unused) RAM[14980] = 36'o000000000000; // 035204 (unused) RAM[14981] = 36'o000000000000; // 035205 (unused) RAM[14982] = 36'o000000000000; // 035206 (unused) RAM[14983] = 36'o000000000000; // 035207 (unused) RAM[14984] = 36'o000000000000; // 035210 (unused) RAM[14985] = 36'o000000000000; // 035211 (unused) RAM[14986] = 36'o000000000000; // 035212 (unused) RAM[14987] = 36'o000000000000; // 035213 (unused) RAM[14988] = 36'o000000000000; // 035214 (unused) RAM[14989] = 36'o000000000000; // 035215 (unused) RAM[14990] = 36'o000000000000; // 035216 (unused) RAM[14991] = 36'o000000000000; // 035217 (unused) RAM[14992] = 36'o000000000000; // 035220 (unused) RAM[14993] = 36'o000000000000; // 035221 (unused) RAM[14994] = 36'o000000000000; // 035222 (unused) RAM[14995] = 36'o000000000000; // 035223 (unused) RAM[14996] = 36'o000000000000; // 035224 (unused) RAM[14997] = 36'o000000000000; // 035225 (unused) RAM[14998] = 36'o000000000000; // 035226 (unused) RAM[14999] = 36'o000000000000; // 035227 (unused) RAM[15000] = 36'o000000000000; // 035230 (unused) RAM[15001] = 36'o000000000000; // 035231 (unused) RAM[15002] = 36'o000000000000; // 035232 (unused) RAM[15003] = 36'o000000000000; // 035233 (unused) RAM[15004] = 36'o000000000000; // 035234 (unused) RAM[15005] = 36'o000000000000; // 035235 (unused) RAM[15006] = 36'o000000000000; // 035236 (unused) RAM[15007] = 36'o000000000000; // 035237 (unused) RAM[15008] = 36'o000000000000; // 035240 (unused) RAM[15009] = 36'o000000000000; // 035241 (unused) RAM[15010] = 36'o000000000000; // 035242 (unused) RAM[15011] = 36'o000000000000; // 035243 (unused) RAM[15012] = 36'o000000000000; // 035244 (unused) RAM[15013] = 36'o000000000000; // 035245 (unused) RAM[15014] = 36'o000000000000; // 035246 (unused) RAM[15015] = 36'o000000000000; // 035247 (unused) RAM[15016] = 36'o000000000000; // 035250 (unused) RAM[15017] = 36'o000000000000; // 035251 (unused) RAM[15018] = 36'o000000000000; // 035252 (unused) RAM[15019] = 36'o000000000000; // 035253 (unused) RAM[15020] = 36'o000000000000; // 035254 (unused) RAM[15021] = 36'o000000000000; // 035255 (unused) RAM[15022] = 36'o000000000000; // 035256 (unused) RAM[15023] = 36'o000000000000; // 035257 (unused) RAM[15024] = 36'o000000000000; // 035260 (unused) RAM[15025] = 36'o000000000000; // 035261 (unused) RAM[15026] = 36'o000000000000; // 035262 (unused) RAM[15027] = 36'o000000000000; // 035263 (unused) RAM[15028] = 36'o000000000000; // 035264 (unused) RAM[15029] = 36'o000000000000; // 035265 (unused) RAM[15030] = 36'o000000000000; // 035266 (unused) RAM[15031] = 36'o000000000000; // 035267 (unused) RAM[15032] = 36'o000000000000; // 035270 (unused) RAM[15033] = 36'o000000000000; // 035271 (unused) RAM[15034] = 36'o000000000000; // 035272 (unused) RAM[15035] = 36'o000000000000; // 035273 (unused) RAM[15036] = 36'o000000000000; // 035274 (unused) RAM[15037] = 36'o000000000000; // 035275 (unused) RAM[15038] = 36'o000000000000; // 035276 (unused) RAM[15039] = 36'o000000000000; // 035277 (unused) RAM[15040] = 36'o000000000000; // 035300 (unused) RAM[15041] = 36'o000000000000; // 035301 (unused) RAM[15042] = 36'o000000000000; // 035302 (unused) RAM[15043] = 36'o000000000000; // 035303 (unused) RAM[15044] = 36'o000000000000; // 035304 (unused) RAM[15045] = 36'o000000000000; // 035305 (unused) RAM[15046] = 36'o000000000000; // 035306 (unused) RAM[15047] = 36'o000000000000; // 035307 (unused) RAM[15048] = 36'o000000000000; // 035310 (unused) RAM[15049] = 36'o000000000000; // 035311 (unused) RAM[15050] = 36'o000000000000; // 035312 (unused) RAM[15051] = 36'o000000000000; // 035313 (unused) RAM[15052] = 36'o000000000000; // 035314 (unused) RAM[15053] = 36'o000000000000; // 035315 (unused) RAM[15054] = 36'o000000000000; // 035316 (unused) RAM[15055] = 36'o000000000000; // 035317 (unused) RAM[15056] = 36'o000000000000; // 035320 (unused) RAM[15057] = 36'o000000000000; // 035321 (unused) RAM[15058] = 36'o000000000000; // 035322 (unused) RAM[15059] = 36'o000000000000; // 035323 (unused) RAM[15060] = 36'o000000000000; // 035324 (unused) RAM[15061] = 36'o000000000000; // 035325 (unused) RAM[15062] = 36'o000000000000; // 035326 (unused) RAM[15063] = 36'o000000000000; // 035327 (unused) RAM[15064] = 36'o000000000000; // 035330 (unused) RAM[15065] = 36'o000000000000; // 035331 (unused) RAM[15066] = 36'o000000000000; // 035332 (unused) RAM[15067] = 36'o000000000000; // 035333 (unused) RAM[15068] = 36'o000000000000; // 035334 (unused) RAM[15069] = 36'o000000000000; // 035335 (unused) RAM[15070] = 36'o000000000000; // 035336 (unused) RAM[15071] = 36'o000000000000; // 035337 (unused) RAM[15072] = 36'o000000000000; // 035340 (unused) RAM[15073] = 36'o000000000000; // 035341 (unused) RAM[15074] = 36'o000000000000; // 035342 (unused) RAM[15075] = 36'o000000000000; // 035343 (unused) RAM[15076] = 36'o000000000000; // 035344 (unused) RAM[15077] = 36'o000000000000; // 035345 (unused) RAM[15078] = 36'o000000000000; // 035346 (unused) RAM[15079] = 36'o000000000000; // 035347 (unused) RAM[15080] = 36'o000000000000; // 035350 (unused) RAM[15081] = 36'o000000000000; // 035351 (unused) RAM[15082] = 36'o000000000000; // 035352 (unused) RAM[15083] = 36'o000000000000; // 035353 (unused) RAM[15084] = 36'o000000000000; // 035354 (unused) RAM[15085] = 36'o000000000000; // 035355 (unused) RAM[15086] = 36'o000000000000; // 035356 (unused) RAM[15087] = 36'o000000000000; // 035357 (unused) RAM[15088] = 36'o000000000000; // 035360 (unused) RAM[15089] = 36'o000000000000; // 035361 (unused) RAM[15090] = 36'o000000000000; // 035362 (unused) RAM[15091] = 36'o000000000000; // 035363 (unused) RAM[15092] = 36'o000000000000; // 035364 (unused) RAM[15093] = 36'o000000000000; // 035365 (unused) RAM[15094] = 36'o000000000000; // 035366 (unused) RAM[15095] = 36'o000000000000; // 035367 (unused) RAM[15096] = 36'o000000000000; // 035370 (unused) RAM[15097] = 36'o000000000000; // 035371 (unused) RAM[15098] = 36'o000000000000; // 035372 (unused) RAM[15099] = 36'o000000000000; // 035373 (unused) RAM[15100] = 36'o000000000000; // 035374 (unused) RAM[15101] = 36'o000000000000; // 035375 (unused) RAM[15102] = 36'o000000000000; // 035376 (unused) RAM[15103] = 36'o000000000000; // 035377 (unused) RAM[15104] = 36'o000000000000; // 035400 (unused) RAM[15105] = 36'o000000000000; // 035401 (unused) RAM[15106] = 36'o000000000000; // 035402 (unused) RAM[15107] = 36'o000000000000; // 035403 (unused) RAM[15108] = 36'o000000000000; // 035404 (unused) RAM[15109] = 36'o000000000000; // 035405 (unused) RAM[15110] = 36'o000000000000; // 035406 (unused) RAM[15111] = 36'o000000000000; // 035407 (unused) RAM[15112] = 36'o000000000000; // 035410 (unused) RAM[15113] = 36'o000000000000; // 035411 (unused) RAM[15114] = 36'o000000000000; // 035412 (unused) RAM[15115] = 36'o000000000000; // 035413 (unused) RAM[15116] = 36'o000000000000; // 035414 (unused) RAM[15117] = 36'o000000000000; // 035415 (unused) RAM[15118] = 36'o000000000000; // 035416 (unused) RAM[15119] = 36'o000000000000; // 035417 (unused) RAM[15120] = 36'o000000000000; // 035420 (unused) RAM[15121] = 36'o000000000000; // 035421 (unused) RAM[15122] = 36'o000000000000; // 035422 (unused) RAM[15123] = 36'o000000000000; // 035423 (unused) RAM[15124] = 36'o000000000000; // 035424 (unused) RAM[15125] = 36'o000000000000; // 035425 (unused) RAM[15126] = 36'o000000000000; // 035426 (unused) RAM[15127] = 36'o000000000000; // 035427 (unused) RAM[15128] = 36'o000000000000; // 035430 (unused) RAM[15129] = 36'o000000000000; // 035431 (unused) RAM[15130] = 36'o000000000000; // 035432 (unused) RAM[15131] = 36'o000000000000; // 035433 (unused) RAM[15132] = 36'o000000000000; // 035434 (unused) RAM[15133] = 36'o000000000000; // 035435 (unused) RAM[15134] = 36'o000000000000; // 035436 (unused) RAM[15135] = 36'o000000000000; // 035437 (unused) RAM[15136] = 36'o000000000000; // 035440 (unused) RAM[15137] = 36'o000000000000; // 035441 (unused) RAM[15138] = 36'o000000000000; // 035442 (unused) RAM[15139] = 36'o000000000000; // 035443 (unused) RAM[15140] = 36'o000000000000; // 035444 (unused) RAM[15141] = 36'o000000000000; // 035445 (unused) RAM[15142] = 36'o000000000000; // 035446 (unused) RAM[15143] = 36'o000000000000; // 035447 (unused) RAM[15144] = 36'o000000000000; // 035450 (unused) RAM[15145] = 36'o000000000000; // 035451 (unused) RAM[15146] = 36'o000000000000; // 035452 (unused) RAM[15147] = 36'o000000000000; // 035453 (unused) RAM[15148] = 36'o000000000000; // 035454 (unused) RAM[15149] = 36'o000000000000; // 035455 (unused) RAM[15150] = 36'o000000000000; // 035456 (unused) RAM[15151] = 36'o000000000000; // 035457 (unused) RAM[15152] = 36'o000000000000; // 035460 (unused) RAM[15153] = 36'o000000000000; // 035461 (unused) RAM[15154] = 36'o000000000000; // 035462 (unused) RAM[15155] = 36'o000000000000; // 035463 (unused) RAM[15156] = 36'o000000000000; // 035464 (unused) RAM[15157] = 36'o000000000000; // 035465 (unused) RAM[15158] = 36'o000000000000; // 035466 (unused) RAM[15159] = 36'o000000000000; // 035467 (unused) RAM[15160] = 36'o000000000000; // 035470 (unused) RAM[15161] = 36'o000000000000; // 035471 (unused) RAM[15162] = 36'o000000000000; // 035472 (unused) RAM[15163] = 36'o000000000000; // 035473 (unused) RAM[15164] = 36'o000000000000; // 035474 (unused) RAM[15165] = 36'o000000000000; // 035475 (unused) RAM[15166] = 36'o000000000000; // 035476 (unused) RAM[15167] = 36'o000000000000; // 035477 (unused) RAM[15168] = 36'o000000000000; // 035500 (unused) RAM[15169] = 36'o000000000000; // 035501 (unused) RAM[15170] = 36'o000000000000; // 035502 (unused) RAM[15171] = 36'o000000000000; // 035503 (unused) RAM[15172] = 36'o000000000000; // 035504 (unused) RAM[15173] = 36'o000000000000; // 035505 (unused) RAM[15174] = 36'o000000000000; // 035506 (unused) RAM[15175] = 36'o000000000000; // 035507 (unused) RAM[15176] = 36'o000000000000; // 035510 (unused) RAM[15177] = 36'o000000000000; // 035511 (unused) RAM[15178] = 36'o000000000000; // 035512 (unused) RAM[15179] = 36'o000000000000; // 035513 (unused) RAM[15180] = 36'o000000000000; // 035514 (unused) RAM[15181] = 36'o000000000000; // 035515 (unused) RAM[15182] = 36'o000000000000; // 035516 (unused) RAM[15183] = 36'o000000000000; // 035517 (unused) RAM[15184] = 36'o000000000000; // 035520 (unused) RAM[15185] = 36'o000000000000; // 035521 (unused) RAM[15186] = 36'o000000000000; // 035522 (unused) RAM[15187] = 36'o000000000000; // 035523 (unused) RAM[15188] = 36'o000000000000; // 035524 (unused) RAM[15189] = 36'o000000000000; // 035525 (unused) RAM[15190] = 36'o000000000000; // 035526 (unused) RAM[15191] = 36'o000000000000; // 035527 (unused) RAM[15192] = 36'o000000000000; // 035530 (unused) RAM[15193] = 36'o000000000000; // 035531 (unused) RAM[15194] = 36'o000000000000; // 035532 (unused) RAM[15195] = 36'o000000000000; // 035533 (unused) RAM[15196] = 36'o000000000000; // 035534 (unused) RAM[15197] = 36'o000000000000; // 035535 (unused) RAM[15198] = 36'o000000000000; // 035536 (unused) RAM[15199] = 36'o000000000000; // 035537 (unused) RAM[15200] = 36'o000000000000; // 035540 (unused) RAM[15201] = 36'o000000000000; // 035541 (unused) RAM[15202] = 36'o000000000000; // 035542 (unused) RAM[15203] = 36'o000000000000; // 035543 (unused) RAM[15204] = 36'o000000000000; // 035544 (unused) RAM[15205] = 36'o000000000000; // 035545 (unused) RAM[15206] = 36'o000000000000; // 035546 (unused) RAM[15207] = 36'o000000000000; // 035547 (unused) RAM[15208] = 36'o000000000000; // 035550 (unused) RAM[15209] = 36'o000000000000; // 035551 (unused) RAM[15210] = 36'o000000000000; // 035552 (unused) RAM[15211] = 36'o000000000000; // 035553 (unused) RAM[15212] = 36'o000000000000; // 035554 (unused) RAM[15213] = 36'o000000000000; // 035555 (unused) RAM[15214] = 36'o000000000000; // 035556 (unused) RAM[15215] = 36'o000000000000; // 035557 (unused) RAM[15216] = 36'o000000000000; // 035560 (unused) RAM[15217] = 36'o000000000000; // 035561 (unused) RAM[15218] = 36'o000000000000; // 035562 (unused) RAM[15219] = 36'o000000000000; // 035563 (unused) RAM[15220] = 36'o000000000000; // 035564 (unused) RAM[15221] = 36'o000000000000; // 035565 (unused) RAM[15222] = 36'o000000000000; // 035566 (unused) RAM[15223] = 36'o000000000000; // 035567 (unused) RAM[15224] = 36'o000000000000; // 035570 (unused) RAM[15225] = 36'o000000000000; // 035571 (unused) RAM[15226] = 36'o000000000000; // 035572 (unused) RAM[15227] = 36'o000000000000; // 035573 (unused) RAM[15228] = 36'o000000000000; // 035574 (unused) RAM[15229] = 36'o000000000000; // 035575 (unused) RAM[15230] = 36'o000000000000; // 035576 (unused) RAM[15231] = 36'o000000000000; // 035577 (unused) RAM[15232] = 36'o000000000000; // 035600 (unused) RAM[15233] = 36'o000000000000; // 035601 (unused) RAM[15234] = 36'o000000000000; // 035602 (unused) RAM[15235] = 36'o000000000000; // 035603 (unused) RAM[15236] = 36'o000000000000; // 035604 (unused) RAM[15237] = 36'o000000000000; // 035605 (unused) RAM[15238] = 36'o000000000000; // 035606 (unused) RAM[15239] = 36'o000000000000; // 035607 (unused) RAM[15240] = 36'o000000000000; // 035610 (unused) RAM[15241] = 36'o000000000000; // 035611 (unused) RAM[15242] = 36'o000000000000; // 035612 (unused) RAM[15243] = 36'o000000000000; // 035613 (unused) RAM[15244] = 36'o000000000000; // 035614 (unused) RAM[15245] = 36'o000000000000; // 035615 (unused) RAM[15246] = 36'o000000000000; // 035616 (unused) RAM[15247] = 36'o000000000000; // 035617 (unused) RAM[15248] = 36'o000000000000; // 035620 (unused) RAM[15249] = 36'o000000000000; // 035621 (unused) RAM[15250] = 36'o000000000000; // 035622 (unused) RAM[15251] = 36'o000000000000; // 035623 (unused) RAM[15252] = 36'o000000000000; // 035624 (unused) RAM[15253] = 36'o000000000000; // 035625 (unused) RAM[15254] = 36'o000000000000; // 035626 (unused) RAM[15255] = 36'o000000000000; // 035627 (unused) RAM[15256] = 36'o000000000000; // 035630 (unused) RAM[15257] = 36'o000000000000; // 035631 (unused) RAM[15258] = 36'o000000000000; // 035632 (unused) RAM[15259] = 36'o000000000000; // 035633 (unused) RAM[15260] = 36'o000000000000; // 035634 (unused) RAM[15261] = 36'o000000000000; // 035635 (unused) RAM[15262] = 36'o000000000000; // 035636 (unused) RAM[15263] = 36'o000000000000; // 035637 (unused) RAM[15264] = 36'o000000000000; // 035640 (unused) RAM[15265] = 36'o000000000000; // 035641 (unused) RAM[15266] = 36'o000000000000; // 035642 (unused) RAM[15267] = 36'o000000000000; // 035643 (unused) RAM[15268] = 36'o000000000000; // 035644 (unused) RAM[15269] = 36'o000000000000; // 035645 (unused) RAM[15270] = 36'o000000000000; // 035646 (unused) RAM[15271] = 36'o000000000000; // 035647 (unused) RAM[15272] = 36'o000000000000; // 035650 (unused) RAM[15273] = 36'o000000000000; // 035651 (unused) RAM[15274] = 36'o000000000000; // 035652 (unused) RAM[15275] = 36'o000000000000; // 035653 (unused) RAM[15276] = 36'o000000000000; // 035654 (unused) RAM[15277] = 36'o000000000000; // 035655 (unused) RAM[15278] = 36'o000000000000; // 035656 (unused) RAM[15279] = 36'o000000000000; // 035657 (unused) RAM[15280] = 36'o000000000000; // 035660 (unused) RAM[15281] = 36'o000000000000; // 035661 (unused) RAM[15282] = 36'o000000000000; // 035662 (unused) RAM[15283] = 36'o000000000000; // 035663 (unused) RAM[15284] = 36'o000000000000; // 035664 (unused) RAM[15285] = 36'o000000000000; // 035665 (unused) RAM[15286] = 36'o000000000000; // 035666 (unused) RAM[15287] = 36'o000000000000; // 035667 (unused) RAM[15288] = 36'o000000000000; // 035670 (unused) RAM[15289] = 36'o000000000000; // 035671 (unused) RAM[15290] = 36'o000000000000; // 035672 (unused) RAM[15291] = 36'o000000000000; // 035673 (unused) RAM[15292] = 36'o000000000000; // 035674 (unused) RAM[15293] = 36'o000000000000; // 035675 (unused) RAM[15294] = 36'o000000000000; // 035676 (unused) RAM[15295] = 36'o000000000000; // 035677 (unused) RAM[15296] = 36'o000000000000; // 035700 (unused) RAM[15297] = 36'o000000000000; // 035701 (unused) RAM[15298] = 36'o000000000000; // 035702 (unused) RAM[15299] = 36'o000000000000; // 035703 (unused) RAM[15300] = 36'o000000000000; // 035704 (unused) RAM[15301] = 36'o000000000000; // 035705 (unused) RAM[15302] = 36'o000000000000; // 035706 (unused) RAM[15303] = 36'o000000000000; // 035707 (unused) RAM[15304] = 36'o000000000000; // 035710 (unused) RAM[15305] = 36'o000000000000; // 035711 (unused) RAM[15306] = 36'o000000000000; // 035712 (unused) RAM[15307] = 36'o000000000000; // 035713 (unused) RAM[15308] = 36'o000000000000; // 035714 (unused) RAM[15309] = 36'o000000000000; // 035715 (unused) RAM[15310] = 36'o000000000000; // 035716 (unused) RAM[15311] = 36'o000000000000; // 035717 (unused) RAM[15312] = 36'o000000000000; // 035720 (unused) RAM[15313] = 36'o000000000000; // 035721 (unused) RAM[15314] = 36'o000000000000; // 035722 (unused) RAM[15315] = 36'o000000000000; // 035723 (unused) RAM[15316] = 36'o000000000000; // 035724 (unused) RAM[15317] = 36'o000000000000; // 035725 (unused) RAM[15318] = 36'o000000000000; // 035726 (unused) RAM[15319] = 36'o000000000000; // 035727 (unused) RAM[15320] = 36'o000000000000; // 035730 (unused) RAM[15321] = 36'o000000000000; // 035731 (unused) RAM[15322] = 36'o000000000000; // 035732 (unused) RAM[15323] = 36'o000000000000; // 035733 (unused) RAM[15324] = 36'o000000000000; // 035734 (unused) RAM[15325] = 36'o000000000000; // 035735 (unused) RAM[15326] = 36'o000000000000; // 035736 (unused) RAM[15327] = 36'o000000000000; // 035737 (unused) RAM[15328] = 36'o000000000000; // 035740 (unused) RAM[15329] = 36'o000000000000; // 035741 (unused) RAM[15330] = 36'o000000000000; // 035742 (unused) RAM[15331] = 36'o000000000000; // 035743 (unused) RAM[15332] = 36'o000000000000; // 035744 (unused) RAM[15333] = 36'o000000000000; // 035745 (unused) RAM[15334] = 36'o000000000000; // 035746 (unused) RAM[15335] = 36'o000000000000; // 035747 (unused) RAM[15336] = 36'o000000000000; // 035750 (unused) RAM[15337] = 36'o000000000000; // 035751 (unused) RAM[15338] = 36'o000000000000; // 035752 (unused) RAM[15339] = 36'o000000000000; // 035753 (unused) RAM[15340] = 36'o000000000000; // 035754 (unused) RAM[15341] = 36'o000000000000; // 035755 (unused) RAM[15342] = 36'o000000000000; // 035756 (unused) RAM[15343] = 36'o000000000000; // 035757 (unused) RAM[15344] = 36'o000000000000; // 035760 (unused) RAM[15345] = 36'o000000000000; // 035761 (unused) RAM[15346] = 36'o000000000000; // 035762 (unused) RAM[15347] = 36'o000000000000; // 035763 (unused) RAM[15348] = 36'o000000000000; // 035764 (unused) RAM[15349] = 36'o000000000000; // 035765 (unused) RAM[15350] = 36'o000000000000; // 035766 (unused) RAM[15351] = 36'o000000000000; // 035767 (unused) RAM[15352] = 36'o000000000000; // 035770 (unused) RAM[15353] = 36'o000000000000; // 035771 (unused) RAM[15354] = 36'o000000000000; // 035772 (unused) RAM[15355] = 36'o000000000000; // 035773 (unused) RAM[15356] = 36'o000000000000; // 035774 (unused) RAM[15357] = 36'o000000000000; // 035775 (unused) RAM[15358] = 36'o000000000000; // 035776 (unused) RAM[15359] = 36'o000000000000; // 035777 (unused) RAM[15360] = 36'o000000000000; // 036000 (unused) RAM[15361] = 36'o000000000000; // 036001 (unused) RAM[15362] = 36'o000000000000; // 036002 (unused) RAM[15363] = 36'o000000000000; // 036003 (unused) RAM[15364] = 36'o000000000000; // 036004 (unused) RAM[15365] = 36'o000000000000; // 036005 (unused) RAM[15366] = 36'o000000000000; // 036006 (unused) RAM[15367] = 36'o000000000000; // 036007 (unused) RAM[15368] = 36'o000000000000; // 036010 (unused) RAM[15369] = 36'o000000000000; // 036011 (unused) RAM[15370] = 36'o000000000000; // 036012 (unused) RAM[15371] = 36'o000000000000; // 036013 (unused) RAM[15372] = 36'o000000000000; // 036014 (unused) RAM[15373] = 36'o000000000000; // 036015 (unused) RAM[15374] = 36'o000000000000; // 036016 (unused) RAM[15375] = 36'o000000000000; // 036017 (unused) RAM[15376] = 36'o000000000000; // 036020 (unused) RAM[15377] = 36'o000000000000; // 036021 (unused) RAM[15378] = 36'o000000000000; // 036022 (unused) RAM[15379] = 36'o000000000000; // 036023 (unused) RAM[15380] = 36'o000000000000; // 036024 (unused) RAM[15381] = 36'o000000000000; // 036025 (unused) RAM[15382] = 36'o000000000000; // 036026 (unused) RAM[15383] = 36'o000000000000; // 036027 (unused) RAM[15384] = 36'o000000000000; // 036030 (unused) RAM[15385] = 36'o000000000000; // 036031 (unused) RAM[15386] = 36'o000000000000; // 036032 (unused) RAM[15387] = 36'o000000000000; // 036033 (unused) RAM[15388] = 36'o000000000000; // 036034 (unused) RAM[15389] = 36'o000000000000; // 036035 (unused) RAM[15390] = 36'o000000000000; // 036036 (unused) RAM[15391] = 36'o000000000000; // 036037 (unused) RAM[15392] = 36'o000000000000; // 036040 (unused) RAM[15393] = 36'o000000000000; // 036041 (unused) RAM[15394] = 36'o000000000000; // 036042 (unused) RAM[15395] = 36'o000000000000; // 036043 (unused) RAM[15396] = 36'o000000000000; // 036044 (unused) RAM[15397] = 36'o000000000000; // 036045 (unused) RAM[15398] = 36'o000000000000; // 036046 (unused) RAM[15399] = 36'o000000000000; // 036047 (unused) RAM[15400] = 36'o000000000000; // 036050 (unused) RAM[15401] = 36'o000000000000; // 036051 (unused) RAM[15402] = 36'o000000000000; // 036052 (unused) RAM[15403] = 36'o000000000000; // 036053 (unused) RAM[15404] = 36'o000000000000; // 036054 (unused) RAM[15405] = 36'o000000000000; // 036055 (unused) RAM[15406] = 36'o000000000000; // 036056 (unused) RAM[15407] = 36'o000000000000; // 036057 (unused) RAM[15408] = 36'o000000000000; // 036060 (unused) RAM[15409] = 36'o000000000000; // 036061 (unused) RAM[15410] = 36'o000000000000; // 036062 (unused) RAM[15411] = 36'o000000000000; // 036063 (unused) RAM[15412] = 36'o000000000000; // 036064 (unused) RAM[15413] = 36'o000000000000; // 036065 (unused) RAM[15414] = 36'o000000000000; // 036066 (unused) RAM[15415] = 36'o000000000000; // 036067 (unused) RAM[15416] = 36'o000000000000; // 036070 (unused) RAM[15417] = 36'o000000000000; // 036071 (unused) RAM[15418] = 36'o000000000000; // 036072 (unused) RAM[15419] = 36'o000000000000; // 036073 (unused) RAM[15420] = 36'o000000000000; // 036074 (unused) RAM[15421] = 36'o000000000000; // 036075 (unused) RAM[15422] = 36'o000000000000; // 036076 (unused) RAM[15423] = 36'o000000000000; // 036077 (unused) RAM[15424] = 36'o000000000000; // 036100 (unused) RAM[15425] = 36'o000000000000; // 036101 (unused) RAM[15426] = 36'o000000000000; // 036102 (unused) RAM[15427] = 36'o000000000000; // 036103 (unused) RAM[15428] = 36'o000000000000; // 036104 (unused) RAM[15429] = 36'o000000000000; // 036105 (unused) RAM[15430] = 36'o000000000000; // 036106 (unused) RAM[15431] = 36'o000000000000; // 036107 (unused) RAM[15432] = 36'o000000000000; // 036110 (unused) RAM[15433] = 36'o000000000000; // 036111 (unused) RAM[15434] = 36'o000000000000; // 036112 (unused) RAM[15435] = 36'o000000000000; // 036113 (unused) RAM[15436] = 36'o000000000000; // 036114 (unused) RAM[15437] = 36'o000000000000; // 036115 (unused) RAM[15438] = 36'o000000000000; // 036116 (unused) RAM[15439] = 36'o000000000000; // 036117 (unused) RAM[15440] = 36'o000000000000; // 036120 (unused) RAM[15441] = 36'o000000000000; // 036121 (unused) RAM[15442] = 36'o000000000000; // 036122 (unused) RAM[15443] = 36'o000000000000; // 036123 (unused) RAM[15444] = 36'o000000000000; // 036124 (unused) RAM[15445] = 36'o000000000000; // 036125 (unused) RAM[15446] = 36'o000000000000; // 036126 (unused) RAM[15447] = 36'o000000000000; // 036127 (unused) RAM[15448] = 36'o000000000000; // 036130 (unused) RAM[15449] = 36'o000000000000; // 036131 (unused) RAM[15450] = 36'o000000000000; // 036132 (unused) RAM[15451] = 36'o000000000000; // 036133 (unused) RAM[15452] = 36'o000000000000; // 036134 (unused) RAM[15453] = 36'o000000000000; // 036135 (unused) RAM[15454] = 36'o000000000000; // 036136 (unused) RAM[15455] = 36'o000000000000; // 036137 (unused) RAM[15456] = 36'o000000000000; // 036140 (unused) RAM[15457] = 36'o000000000000; // 036141 (unused) RAM[15458] = 36'o000000000000; // 036142 (unused) RAM[15459] = 36'o000000000000; // 036143 (unused) RAM[15460] = 36'o000000000000; // 036144 (unused) RAM[15461] = 36'o000000000000; // 036145 (unused) RAM[15462] = 36'o000000000000; // 036146 (unused) RAM[15463] = 36'o000000000000; // 036147 (unused) RAM[15464] = 36'o000000000000; // 036150 (unused) RAM[15465] = 36'o000000000000; // 036151 (unused) RAM[15466] = 36'o000000000000; // 036152 (unused) RAM[15467] = 36'o000000000000; // 036153 (unused) RAM[15468] = 36'o000000000000; // 036154 (unused) RAM[15469] = 36'o000000000000; // 036155 (unused) RAM[15470] = 36'o000000000000; // 036156 (unused) RAM[15471] = 36'o000000000000; // 036157 (unused) RAM[15472] = 36'o000000000000; // 036160 (unused) RAM[15473] = 36'o000000000000; // 036161 (unused) RAM[15474] = 36'o000000000000; // 036162 (unused) RAM[15475] = 36'o000000000000; // 036163 (unused) RAM[15476] = 36'o000000000000; // 036164 (unused) RAM[15477] = 36'o000000000000; // 036165 (unused) RAM[15478] = 36'o000000000000; // 036166 (unused) RAM[15479] = 36'o000000000000; // 036167 (unused) RAM[15480] = 36'o000000000000; // 036170 (unused) RAM[15481] = 36'o000000000000; // 036171 (unused) RAM[15482] = 36'o000000000000; // 036172 (unused) RAM[15483] = 36'o000000000000; // 036173 (unused) RAM[15484] = 36'o000000000000; // 036174 (unused) RAM[15485] = 36'o000000000000; // 036175 (unused) RAM[15486] = 36'o000000000000; // 036176 (unused) RAM[15487] = 36'o000000000000; // 036177 (unused) RAM[15488] = 36'o000000000000; // 036200 (unused) RAM[15489] = 36'o000000000000; // 036201 (unused) RAM[15490] = 36'o000000000000; // 036202 (unused) RAM[15491] = 36'o000000000000; // 036203 (unused) RAM[15492] = 36'o000000000000; // 036204 (unused) RAM[15493] = 36'o000000000000; // 036205 (unused) RAM[15494] = 36'o000000000000; // 036206 (unused) RAM[15495] = 36'o000000000000; // 036207 (unused) RAM[15496] = 36'o000000000000; // 036210 (unused) RAM[15497] = 36'o000000000000; // 036211 (unused) RAM[15498] = 36'o000000000000; // 036212 (unused) RAM[15499] = 36'o000000000000; // 036213 (unused) RAM[15500] = 36'o000000000000; // 036214 (unused) RAM[15501] = 36'o000000000000; // 036215 (unused) RAM[15502] = 36'o000000000000; // 036216 (unused) RAM[15503] = 36'o000000000000; // 036217 (unused) RAM[15504] = 36'o000000000000; // 036220 (unused) RAM[15505] = 36'o000000000000; // 036221 (unused) RAM[15506] = 36'o000000000000; // 036222 (unused) RAM[15507] = 36'o000000000000; // 036223 (unused) RAM[15508] = 36'o000000000000; // 036224 (unused) RAM[15509] = 36'o000000000000; // 036225 (unused) RAM[15510] = 36'o000000000000; // 036226 (unused) RAM[15511] = 36'o000000000000; // 036227 (unused) RAM[15512] = 36'o000000000000; // 036230 (unused) RAM[15513] = 36'o000000000000; // 036231 (unused) RAM[15514] = 36'o000000000000; // 036232 (unused) RAM[15515] = 36'o000000000000; // 036233 (unused) RAM[15516] = 36'o000000000000; // 036234 (unused) RAM[15517] = 36'o000000000000; // 036235 (unused) RAM[15518] = 36'o000000000000; // 036236 (unused) RAM[15519] = 36'o000000000000; // 036237 (unused) RAM[15520] = 36'o000000000000; // 036240 (unused) RAM[15521] = 36'o000000000000; // 036241 (unused) RAM[15522] = 36'o000000000000; // 036242 (unused) RAM[15523] = 36'o000000000000; // 036243 (unused) RAM[15524] = 36'o000000000000; // 036244 (unused) RAM[15525] = 36'o000000000000; // 036245 (unused) RAM[15526] = 36'o000000000000; // 036246 (unused) RAM[15527] = 36'o000000000000; // 036247 (unused) RAM[15528] = 36'o000000000000; // 036250 (unused) RAM[15529] = 36'o000000000000; // 036251 (unused) RAM[15530] = 36'o000000000000; // 036252 (unused) RAM[15531] = 36'o000000000000; // 036253 (unused) RAM[15532] = 36'o000000000000; // 036254 (unused) RAM[15533] = 36'o000000000000; // 036255 (unused) RAM[15534] = 36'o000000000000; // 036256 (unused) RAM[15535] = 36'o000000000000; // 036257 (unused) RAM[15536] = 36'o000000000000; // 036260 (unused) RAM[15537] = 36'o000000000000; // 036261 (unused) RAM[15538] = 36'o000000000000; // 036262 (unused) RAM[15539] = 36'o000000000000; // 036263 (unused) RAM[15540] = 36'o000000000000; // 036264 (unused) RAM[15541] = 36'o000000000000; // 036265 (unused) RAM[15542] = 36'o000000000000; // 036266 (unused) RAM[15543] = 36'o000000000000; // 036267 (unused) RAM[15544] = 36'o000000000000; // 036270 (unused) RAM[15545] = 36'o000000000000; // 036271 (unused) RAM[15546] = 36'o000000000000; // 036272 (unused) RAM[15547] = 36'o000000000000; // 036273 (unused) RAM[15548] = 36'o000000000000; // 036274 (unused) RAM[15549] = 36'o000000000000; // 036275 (unused) RAM[15550] = 36'o000000000000; // 036276 (unused) RAM[15551] = 36'o000000000000; // 036277 (unused) RAM[15552] = 36'o000000000000; // 036300 (unused) RAM[15553] = 36'o000000000000; // 036301 (unused) RAM[15554] = 36'o000000000000; // 036302 (unused) RAM[15555] = 36'o000000000000; // 036303 (unused) RAM[15556] = 36'o000000000000; // 036304 (unused) RAM[15557] = 36'o000000000000; // 036305 (unused) RAM[15558] = 36'o000000000000; // 036306 (unused) RAM[15559] = 36'o000000000000; // 036307 (unused) RAM[15560] = 36'o000000000000; // 036310 (unused) RAM[15561] = 36'o000000000000; // 036311 (unused) RAM[15562] = 36'o000000000000; // 036312 (unused) RAM[15563] = 36'o000000000000; // 036313 (unused) RAM[15564] = 36'o000000000000; // 036314 (unused) RAM[15565] = 36'o000000000000; // 036315 (unused) RAM[15566] = 36'o000000000000; // 036316 (unused) RAM[15567] = 36'o000000000000; // 036317 (unused) RAM[15568] = 36'o000000000000; // 036320 (unused) RAM[15569] = 36'o000000000000; // 036321 (unused) RAM[15570] = 36'o000000000000; // 036322 (unused) RAM[15571] = 36'o000000000000; // 036323 (unused) RAM[15572] = 36'o000000000000; // 036324 (unused) RAM[15573] = 36'o000000000000; // 036325 (unused) RAM[15574] = 36'o000000000000; // 036326 (unused) RAM[15575] = 36'o000000000000; // 036327 (unused) RAM[15576] = 36'o000000000000; // 036330 (unused) RAM[15577] = 36'o000000000000; // 036331 (unused) RAM[15578] = 36'o000000000000; // 036332 (unused) RAM[15579] = 36'o000000000000; // 036333 (unused) RAM[15580] = 36'o000000000000; // 036334 (unused) RAM[15581] = 36'o000000000000; // 036335 (unused) RAM[15582] = 36'o000000000000; // 036336 (unused) RAM[15583] = 36'o000000000000; // 036337 (unused) RAM[15584] = 36'o000000000000; // 036340 (unused) RAM[15585] = 36'o000000000000; // 036341 (unused) RAM[15586] = 36'o000000000000; // 036342 (unused) RAM[15587] = 36'o000000000000; // 036343 (unused) RAM[15588] = 36'o000000000000; // 036344 (unused) RAM[15589] = 36'o000000000000; // 036345 (unused) RAM[15590] = 36'o000000000000; // 036346 (unused) RAM[15591] = 36'o000000000000; // 036347 (unused) RAM[15592] = 36'o000000000000; // 036350 (unused) RAM[15593] = 36'o000000000000; // 036351 (unused) RAM[15594] = 36'o000000000000; // 036352 (unused) RAM[15595] = 36'o000000000000; // 036353 (unused) RAM[15596] = 36'o000000000000; // 036354 (unused) RAM[15597] = 36'o000000000000; // 036355 (unused) RAM[15598] = 36'o000000000000; // 036356 (unused) RAM[15599] = 36'o000000000000; // 036357 (unused) RAM[15600] = 36'o000000000000; // 036360 (unused) RAM[15601] = 36'o000000000000; // 036361 (unused) RAM[15602] = 36'o000000000000; // 036362 (unused) RAM[15603] = 36'o000000000000; // 036363 (unused) RAM[15604] = 36'o000000000000; // 036364 (unused) RAM[15605] = 36'o000000000000; // 036365 (unused) RAM[15606] = 36'o000000000000; // 036366 (unused) RAM[15607] = 36'o000000000000; // 036367 (unused) RAM[15608] = 36'o000000000000; // 036370 (unused) RAM[15609] = 36'o000000000000; // 036371 (unused) RAM[15610] = 36'o000000000000; // 036372 (unused) RAM[15611] = 36'o000000000000; // 036373 (unused) RAM[15612] = 36'o000000000000; // 036374 (unused) RAM[15613] = 36'o000000000000; // 036375 (unused) RAM[15614] = 36'o000000000000; // 036376 (unused) RAM[15615] = 36'o000000000000; // 036377 (unused) RAM[15616] = 36'o000000000000; // 036400 (unused) RAM[15617] = 36'o000000000000; // 036401 (unused) RAM[15618] = 36'o000000000000; // 036402 (unused) RAM[15619] = 36'o000000000000; // 036403 (unused) RAM[15620] = 36'o000000000000; // 036404 (unused) RAM[15621] = 36'o000000000000; // 036405 (unused) RAM[15622] = 36'o000000000000; // 036406 (unused) RAM[15623] = 36'o000000000000; // 036407 (unused) RAM[15624] = 36'o000000000000; // 036410 (unused) RAM[15625] = 36'o000000000000; // 036411 (unused) RAM[15626] = 36'o000000000000; // 036412 (unused) RAM[15627] = 36'o000000000000; // 036413 (unused) RAM[15628] = 36'o000000000000; // 036414 (unused) RAM[15629] = 36'o000000000000; // 036415 (unused) RAM[15630] = 36'o000000000000; // 036416 (unused) RAM[15631] = 36'o000000000000; // 036417 (unused) RAM[15632] = 36'o000000000000; // 036420 (unused) RAM[15633] = 36'o000000000000; // 036421 (unused) RAM[15634] = 36'o000000000000; // 036422 (unused) RAM[15635] = 36'o000000000000; // 036423 (unused) RAM[15636] = 36'o000000000000; // 036424 (unused) RAM[15637] = 36'o000000000000; // 036425 (unused) RAM[15638] = 36'o000000000000; // 036426 (unused) RAM[15639] = 36'o000000000000; // 036427 (unused) RAM[15640] = 36'o000000000000; // 036430 (unused) RAM[15641] = 36'o000000000000; // 036431 (unused) RAM[15642] = 36'o000000000000; // 036432 (unused) RAM[15643] = 36'o000000000000; // 036433 (unused) RAM[15644] = 36'o000000000000; // 036434 (unused) RAM[15645] = 36'o000000000000; // 036435 (unused) RAM[15646] = 36'o000000000000; // 036436 (unused) RAM[15647] = 36'o000000000000; // 036437 (unused) RAM[15648] = 36'o000000000000; // 036440 (unused) RAM[15649] = 36'o000000000000; // 036441 (unused) RAM[15650] = 36'o000000000000; // 036442 (unused) RAM[15651] = 36'o000000000000; // 036443 (unused) RAM[15652] = 36'o000000000000; // 036444 (unused) RAM[15653] = 36'o000000000000; // 036445 (unused) RAM[15654] = 36'o000000000000; // 036446 (unused) RAM[15655] = 36'o000000000000; // 036447 (unused) RAM[15656] = 36'o000000000000; // 036450 (unused) RAM[15657] = 36'o000000000000; // 036451 (unused) RAM[15658] = 36'o000000000000; // 036452 (unused) RAM[15659] = 36'o000000000000; // 036453 (unused) RAM[15660] = 36'o000000000000; // 036454 (unused) RAM[15661] = 36'o000000000000; // 036455 (unused) RAM[15662] = 36'o000000000000; // 036456 (unused) RAM[15663] = 36'o000000000000; // 036457 (unused) RAM[15664] = 36'o000000000000; // 036460 (unused) RAM[15665] = 36'o000000000000; // 036461 (unused) RAM[15666] = 36'o000000000000; // 036462 (unused) RAM[15667] = 36'o000000000000; // 036463 (unused) RAM[15668] = 36'o000000000000; // 036464 (unused) RAM[15669] = 36'o000000000000; // 036465 (unused) RAM[15670] = 36'o000000000000; // 036466 (unused) RAM[15671] = 36'o000000000000; // 036467 (unused) RAM[15672] = 36'o000000000000; // 036470 (unused) RAM[15673] = 36'o000000000000; // 036471 (unused) RAM[15674] = 36'o000000000000; // 036472 (unused) RAM[15675] = 36'o000000000000; // 036473 (unused) RAM[15676] = 36'o000000000000; // 036474 (unused) RAM[15677] = 36'o000000000000; // 036475 (unused) RAM[15678] = 36'o000000000000; // 036476 (unused) RAM[15679] = 36'o000000000000; // 036477 (unused) RAM[15680] = 36'o000000000000; // 036500 (unused) RAM[15681] = 36'o000000000000; // 036501 (unused) RAM[15682] = 36'o000000000000; // 036502 (unused) RAM[15683] = 36'o000000000000; // 036503 (unused) RAM[15684] = 36'o000000000000; // 036504 (unused) RAM[15685] = 36'o000000000000; // 036505 (unused) RAM[15686] = 36'o000000000000; // 036506 (unused) RAM[15687] = 36'o000000000000; // 036507 (unused) RAM[15688] = 36'o000000000000; // 036510 (unused) RAM[15689] = 36'o000000000000; // 036511 (unused) RAM[15690] = 36'o000000000000; // 036512 (unused) RAM[15691] = 36'o000000000000; // 036513 (unused) RAM[15692] = 36'o000000000000; // 036514 (unused) RAM[15693] = 36'o000000000000; // 036515 (unused) RAM[15694] = 36'o000000000000; // 036516 (unused) RAM[15695] = 36'o000000000000; // 036517 (unused) RAM[15696] = 36'o000000000000; // 036520 (unused) RAM[15697] = 36'o000000000000; // 036521 (unused) RAM[15698] = 36'o000000000000; // 036522 (unused) RAM[15699] = 36'o000000000000; // 036523 (unused) RAM[15700] = 36'o000000000000; // 036524 (unused) RAM[15701] = 36'o000000000000; // 036525 (unused) RAM[15702] = 36'o000000000000; // 036526 (unused) RAM[15703] = 36'o000000000000; // 036527 (unused) RAM[15704] = 36'o000000000000; // 036530 (unused) RAM[15705] = 36'o000000000000; // 036531 (unused) RAM[15706] = 36'o000000000000; // 036532 (unused) RAM[15707] = 36'o000000000000; // 036533 (unused) RAM[15708] = 36'o000000000000; // 036534 (unused) RAM[15709] = 36'o000000000000; // 036535 (unused) RAM[15710] = 36'o000000000000; // 036536 (unused) RAM[15711] = 36'o000000000000; // 036537 (unused) RAM[15712] = 36'o000000000000; // 036540 (unused) RAM[15713] = 36'o000000000000; // 036541 (unused) RAM[15714] = 36'o000000000000; // 036542 (unused) RAM[15715] = 36'o000000000000; // 036543 (unused) RAM[15716] = 36'o000000000000; // 036544 (unused) RAM[15717] = 36'o000000000000; // 036545 (unused) RAM[15718] = 36'o000000000000; // 036546 (unused) RAM[15719] = 36'o000000000000; // 036547 (unused) RAM[15720] = 36'o000000000000; // 036550 (unused) RAM[15721] = 36'o000000000000; // 036551 (unused) RAM[15722] = 36'o000000000000; // 036552 (unused) RAM[15723] = 36'o000000000000; // 036553 (unused) RAM[15724] = 36'o000000000000; // 036554 (unused) RAM[15725] = 36'o000000000000; // 036555 (unused) RAM[15726] = 36'o000000000000; // 036556 (unused) RAM[15727] = 36'o000000000000; // 036557 (unused) RAM[15728] = 36'o000000000000; // 036560 (unused) RAM[15729] = 36'o000000000000; // 036561 (unused) RAM[15730] = 36'o000000000000; // 036562 (unused) RAM[15731] = 36'o000000000000; // 036563 (unused) RAM[15732] = 36'o000000000000; // 036564 (unused) RAM[15733] = 36'o000000000000; // 036565 (unused) RAM[15734] = 36'o000000000000; // 036566 (unused) RAM[15735] = 36'o000000000000; // 036567 (unused) RAM[15736] = 36'o000000000000; // 036570 (unused) RAM[15737] = 36'o000000000000; // 036571 (unused) RAM[15738] = 36'o000000000000; // 036572 (unused) RAM[15739] = 36'o000000000000; // 036573 (unused) RAM[15740] = 36'o000000000000; // 036574 (unused) RAM[15741] = 36'o000000000000; // 036575 (unused) RAM[15742] = 36'o000000000000; // 036576 (unused) RAM[15743] = 36'o000000000000; // 036577 (unused) RAM[15744] = 36'o000000000000; // 036600 (unused) RAM[15745] = 36'o000000000000; // 036601 (unused) RAM[15746] = 36'o000000000000; // 036602 (unused) RAM[15747] = 36'o000000000000; // 036603 (unused) RAM[15748] = 36'o000000000000; // 036604 (unused) RAM[15749] = 36'o000000000000; // 036605 (unused) RAM[15750] = 36'o000000000000; // 036606 (unused) RAM[15751] = 36'o000000000000; // 036607 (unused) RAM[15752] = 36'o000000000000; // 036610 (unused) RAM[15753] = 36'o000000000000; // 036611 (unused) RAM[15754] = 36'o000000000000; // 036612 (unused) RAM[15755] = 36'o000000000000; // 036613 (unused) RAM[15756] = 36'o000000000000; // 036614 (unused) RAM[15757] = 36'o000000000000; // 036615 (unused) RAM[15758] = 36'o000000000000; // 036616 (unused) RAM[15759] = 36'o000000000000; // 036617 (unused) RAM[15760] = 36'o000000000000; // 036620 (unused) RAM[15761] = 36'o000000000000; // 036621 (unused) RAM[15762] = 36'o000000000000; // 036622 (unused) RAM[15763] = 36'o000000000000; // 036623 (unused) RAM[15764] = 36'o000000000000; // 036624 (unused) RAM[15765] = 36'o000000000000; // 036625 (unused) RAM[15766] = 36'o000000000000; // 036626 (unused) RAM[15767] = 36'o000000000000; // 036627 (unused) RAM[15768] = 36'o000000000000; // 036630 (unused) RAM[15769] = 36'o000000000000; // 036631 (unused) RAM[15770] = 36'o000000000000; // 036632 (unused) RAM[15771] = 36'o000000000000; // 036633 (unused) RAM[15772] = 36'o000000000000; // 036634 (unused) RAM[15773] = 36'o000000000000; // 036635 (unused) RAM[15774] = 36'o000000000000; // 036636 (unused) RAM[15775] = 36'o000000000000; // 036637 (unused) RAM[15776] = 36'o000000000000; // 036640 (unused) RAM[15777] = 36'o000000000000; // 036641 (unused) RAM[15778] = 36'o000000000000; // 036642 (unused) RAM[15779] = 36'o000000000000; // 036643 (unused) RAM[15780] = 36'o000000000000; // 036644 (unused) RAM[15781] = 36'o000000000000; // 036645 (unused) RAM[15782] = 36'o000000000000; // 036646 (unused) RAM[15783] = 36'o000000000000; // 036647 (unused) RAM[15784] = 36'o000000000000; // 036650 (unused) RAM[15785] = 36'o000000000000; // 036651 (unused) RAM[15786] = 36'o000000000000; // 036652 (unused) RAM[15787] = 36'o000000000000; // 036653 (unused) RAM[15788] = 36'o000000000000; // 036654 (unused) RAM[15789] = 36'o000000000000; // 036655 (unused) RAM[15790] = 36'o000000000000; // 036656 (unused) RAM[15791] = 36'o000000000000; // 036657 (unused) RAM[15792] = 36'o000000000000; // 036660 (unused) RAM[15793] = 36'o000000000000; // 036661 (unused) RAM[15794] = 36'o000000000000; // 036662 (unused) RAM[15795] = 36'o000000000000; // 036663 (unused) RAM[15796] = 36'o000000000000; // 036664 (unused) RAM[15797] = 36'o000000000000; // 036665 (unused) RAM[15798] = 36'o000000000000; // 036666 (unused) RAM[15799] = 36'o000000000000; // 036667 (unused) RAM[15800] = 36'o000000000000; // 036670 (unused) RAM[15801] = 36'o000000000000; // 036671 (unused) RAM[15802] = 36'o000000000000; // 036672 (unused) RAM[15803] = 36'o000000000000; // 036673 (unused) RAM[15804] = 36'o000000000000; // 036674 (unused) RAM[15805] = 36'o000000000000; // 036675 (unused) RAM[15806] = 36'o000000000000; // 036676 (unused) RAM[15807] = 36'o000000000000; // 036677 (unused) RAM[15808] = 36'o000000000000; // 036700 (unused) RAM[15809] = 36'o000000000000; // 036701 (unused) RAM[15810] = 36'o000000000000; // 036702 (unused) RAM[15811] = 36'o000000000000; // 036703 (unused) RAM[15812] = 36'o000000000000; // 036704 (unused) RAM[15813] = 36'o000000000000; // 036705 (unused) RAM[15814] = 36'o000000000000; // 036706 (unused) RAM[15815] = 36'o000000000000; // 036707 (unused) RAM[15816] = 36'o000000000000; // 036710 (unused) RAM[15817] = 36'o000000000000; // 036711 (unused) RAM[15818] = 36'o000000000000; // 036712 (unused) RAM[15819] = 36'o000000000000; // 036713 (unused) RAM[15820] = 36'o000000000000; // 036714 (unused) RAM[15821] = 36'o000000000000; // 036715 (unused) RAM[15822] = 36'o000000000000; // 036716 (unused) RAM[15823] = 36'o000000000000; // 036717 (unused) RAM[15824] = 36'o000000000000; // 036720 (unused) RAM[15825] = 36'o000000000000; // 036721 (unused) RAM[15826] = 36'o000000000000; // 036722 (unused) RAM[15827] = 36'o000000000000; // 036723 (unused) RAM[15828] = 36'o000000000000; // 036724 (unused) RAM[15829] = 36'o000000000000; // 036725 (unused) RAM[15830] = 36'o000000000000; // 036726 (unused) RAM[15831] = 36'o000000000000; // 036727 (unused) RAM[15832] = 36'o000000000000; // 036730 (unused) RAM[15833] = 36'o000000000000; // 036731 (unused) RAM[15834] = 36'o000000000000; // 036732 (unused) RAM[15835] = 36'o000000000000; // 036733 (unused) RAM[15836] = 36'o000000000000; // 036734 (unused) RAM[15837] = 36'o000000000000; // 036735 (unused) RAM[15838] = 36'o000000000000; // 036736 (unused) RAM[15839] = 36'o000000000000; // 036737 (unused) RAM[15840] = 36'o000000000000; // 036740 (unused) RAM[15841] = 36'o000000000000; // 036741 (unused) RAM[15842] = 36'o000000000000; // 036742 (unused) RAM[15843] = 36'o000000000000; // 036743 (unused) RAM[15844] = 36'o000000000000; // 036744 (unused) RAM[15845] = 36'o000000000000; // 036745 (unused) RAM[15846] = 36'o000000000000; // 036746 (unused) RAM[15847] = 36'o000000000000; // 036747 (unused) RAM[15848] = 36'o000000000000; // 036750 (unused) RAM[15849] = 36'o000000000000; // 036751 (unused) RAM[15850] = 36'o000000000000; // 036752 (unused) RAM[15851] = 36'o000000000000; // 036753 (unused) RAM[15852] = 36'o000000000000; // 036754 (unused) RAM[15853] = 36'o000000000000; // 036755 (unused) RAM[15854] = 36'o000000000000; // 036756 (unused) RAM[15855] = 36'o000000000000; // 036757 (unused) RAM[15856] = 36'o000000000000; // 036760 (unused) RAM[15857] = 36'o000000000000; // 036761 (unused) RAM[15858] = 36'o000000000000; // 036762 (unused) RAM[15859] = 36'o000000000000; // 036763 (unused) RAM[15860] = 36'o000000000000; // 036764 (unused) RAM[15861] = 36'o000000000000; // 036765 (unused) RAM[15862] = 36'o000000000000; // 036766 (unused) RAM[15863] = 36'o000000000000; // 036767 (unused) RAM[15864] = 36'o000000000000; // 036770 (unused) RAM[15865] = 36'o000000000000; // 036771 (unused) RAM[15866] = 36'o000000000000; // 036772 (unused) RAM[15867] = 36'o000000000000; // 036773 (unused) RAM[15868] = 36'o000000000000; // 036774 (unused) RAM[15869] = 36'o000000000000; // 036775 (unused) RAM[15870] = 36'o000000000000; // 036776 (unused) RAM[15871] = 36'o000000000000; // 036777 (unused) RAM[15872] = 36'o000000000000; // 037000 (unused) RAM[15873] = 36'o000000000000; // 037001 (unused) RAM[15874] = 36'o000000000000; // 037002 (unused) RAM[15875] = 36'o000000000000; // 037003 (unused) RAM[15876] = 36'o000000000000; // 037004 (unused) RAM[15877] = 36'o000000000000; // 037005 (unused) RAM[15878] = 36'o000000000000; // 037006 (unused) RAM[15879] = 36'o000000000000; // 037007 (unused) RAM[15880] = 36'o000000000000; // 037010 (unused) RAM[15881] = 36'o000000000000; // 037011 (unused) RAM[15882] = 36'o000000000000; // 037012 (unused) RAM[15883] = 36'o000000000000; // 037013 (unused) RAM[15884] = 36'o000000000000; // 037014 (unused) RAM[15885] = 36'o000000000000; // 037015 (unused) RAM[15886] = 36'o000000000000; // 037016 (unused) RAM[15887] = 36'o000000000000; // 037017 (unused) RAM[15888] = 36'o000000000000; // 037020 (unused) RAM[15889] = 36'o000000000000; // 037021 (unused) RAM[15890] = 36'o000000000000; // 037022 (unused) RAM[15891] = 36'o000000000000; // 037023 (unused) RAM[15892] = 36'o000000000000; // 037024 (unused) RAM[15893] = 36'o000000000000; // 037025 (unused) RAM[15894] = 36'o000000000000; // 037026 (unused) RAM[15895] = 36'o000000000000; // 037027 (unused) RAM[15896] = 36'o000000000000; // 037030 (unused) RAM[15897] = 36'o000000000000; // 037031 (unused) RAM[15898] = 36'o000000000000; // 037032 (unused) RAM[15899] = 36'o000000000000; // 037033 (unused) RAM[15900] = 36'o000000000000; // 037034 (unused) RAM[15901] = 36'o000000000000; // 037035 (unused) RAM[15902] = 36'o000000000000; // 037036 (unused) RAM[15903] = 36'o000000000000; // 037037 (unused) RAM[15904] = 36'o000000000000; // 037040 (unused) RAM[15905] = 36'o000000000000; // 037041 (unused) RAM[15906] = 36'o000000000000; // 037042 (unused) RAM[15907] = 36'o000000000000; // 037043 (unused) RAM[15908] = 36'o000000000000; // 037044 (unused) RAM[15909] = 36'o000000000000; // 037045 (unused) RAM[15910] = 36'o000000000000; // 037046 (unused) RAM[15911] = 36'o000000000000; // 037047 (unused) RAM[15912] = 36'o000000000000; // 037050 (unused) RAM[15913] = 36'o000000000000; // 037051 (unused) RAM[15914] = 36'o000000000000; // 037052 (unused) RAM[15915] = 36'o000000000000; // 037053 (unused) RAM[15916] = 36'o000000000000; // 037054 (unused) RAM[15917] = 36'o000000000000; // 037055 (unused) RAM[15918] = 36'o000000000000; // 037056 (unused) RAM[15919] = 36'o000000000000; // 037057 (unused) RAM[15920] = 36'o000000000000; // 037060 (unused) RAM[15921] = 36'o000000000000; // 037061 (unused) RAM[15922] = 36'o000000000000; // 037062 (unused) RAM[15923] = 36'o000000000000; // 037063 (unused) RAM[15924] = 36'o000000000000; // 037064 (unused) RAM[15925] = 36'o000000000000; // 037065 (unused) RAM[15926] = 36'o000000000000; // 037066 (unused) RAM[15927] = 36'o000000000000; // 037067 (unused) RAM[15928] = 36'o000000000000; // 037070 (unused) RAM[15929] = 36'o000000000000; // 037071 (unused) RAM[15930] = 36'o000000000000; // 037072 (unused) RAM[15931] = 36'o000000000000; // 037073 (unused) RAM[15932] = 36'o000000000000; // 037074 (unused) RAM[15933] = 36'o000000000000; // 037075 (unused) RAM[15934] = 36'o000000000000; // 037076 (unused) RAM[15935] = 36'o000000000000; // 037077 (unused) RAM[15936] = 36'o000000000000; // 037100 (unused) RAM[15937] = 36'o000000000000; // 037101 (unused) RAM[15938] = 36'o000000000000; // 037102 (unused) RAM[15939] = 36'o000000000000; // 037103 (unused) RAM[15940] = 36'o000000000000; // 037104 (unused) RAM[15941] = 36'o000000000000; // 037105 (unused) RAM[15942] = 36'o000000000000; // 037106 (unused) RAM[15943] = 36'o000000000000; // 037107 (unused) RAM[15944] = 36'o000000000000; // 037110 (unused) RAM[15945] = 36'o000000000000; // 037111 (unused) RAM[15946] = 36'o000000000000; // 037112 (unused) RAM[15947] = 36'o000000000000; // 037113 (unused) RAM[15948] = 36'o000000000000; // 037114 (unused) RAM[15949] = 36'o000000000000; // 037115 (unused) RAM[15950] = 36'o000000000000; // 037116 (unused) RAM[15951] = 36'o000000000000; // 037117 (unused) RAM[15952] = 36'o000000000000; // 037120 (unused) RAM[15953] = 36'o000000000000; // 037121 (unused) RAM[15954] = 36'o000000000000; // 037122 (unused) RAM[15955] = 36'o000000000000; // 037123 (unused) RAM[15956] = 36'o000000000000; // 037124 (unused) RAM[15957] = 36'o000000000000; // 037125 (unused) RAM[15958] = 36'o000000000000; // 037126 (unused) RAM[15959] = 36'o000000000000; // 037127 (unused) RAM[15960] = 36'o000000000000; // 037130 (unused) RAM[15961] = 36'o000000000000; // 037131 (unused) RAM[15962] = 36'o000000000000; // 037132 (unused) RAM[15963] = 36'o000000000000; // 037133 (unused) RAM[15964] = 36'o000000000000; // 037134 (unused) RAM[15965] = 36'o000000000000; // 037135 (unused) RAM[15966] = 36'o000000000000; // 037136 (unused) RAM[15967] = 36'o000000000000; // 037137 (unused) RAM[15968] = 36'o000000000000; // 037140 (unused) RAM[15969] = 36'o000000000000; // 037141 (unused) RAM[15970] = 36'o000000000000; // 037142 (unused) RAM[15971] = 36'o000000000000; // 037143 (unused) RAM[15972] = 36'o000000000000; // 037144 (unused) RAM[15973] = 36'o000000000000; // 037145 (unused) RAM[15974] = 36'o000000000000; // 037146 (unused) RAM[15975] = 36'o000000000000; // 037147 (unused) RAM[15976] = 36'o000000000000; // 037150 (unused) RAM[15977] = 36'o000000000000; // 037151 (unused) RAM[15978] = 36'o000000000000; // 037152 (unused) RAM[15979] = 36'o000000000000; // 037153 (unused) RAM[15980] = 36'o000000000000; // 037154 (unused) RAM[15981] = 36'o000000000000; // 037155 (unused) RAM[15982] = 36'o000000000000; // 037156 (unused) RAM[15983] = 36'o000000000000; // 037157 (unused) RAM[15984] = 36'o000000000000; // 037160 (unused) RAM[15985] = 36'o000000000000; // 037161 (unused) RAM[15986] = 36'o000000000000; // 037162 (unused) RAM[15987] = 36'o000000000000; // 037163 (unused) RAM[15988] = 36'o000000000000; // 037164 (unused) RAM[15989] = 36'o000000000000; // 037165 (unused) RAM[15990] = 36'o000000000000; // 037166 (unused) RAM[15991] = 36'o000000000000; // 037167 (unused) RAM[15992] = 36'o000000000000; // 037170 (unused) RAM[15993] = 36'o000000000000; // 037171 (unused) RAM[15994] = 36'o000000000000; // 037172 (unused) RAM[15995] = 36'o000000000000; // 037173 (unused) RAM[15996] = 36'o000000000000; // 037174 (unused) RAM[15997] = 36'o000000000000; // 037175 (unused) RAM[15998] = 36'o000000000000; // 037176 (unused) RAM[15999] = 36'o000000000000; // 037177 (unused) RAM[16000] = 36'o000000000000; // 037200 (unused) RAM[16001] = 36'o000000000000; // 037201 (unused) RAM[16002] = 36'o000000000000; // 037202 (unused) RAM[16003] = 36'o000000000000; // 037203 (unused) RAM[16004] = 36'o000000000000; // 037204 (unused) RAM[16005] = 36'o000000000000; // 037205 (unused) RAM[16006] = 36'o000000000000; // 037206 (unused) RAM[16007] = 36'o000000000000; // 037207 (unused) RAM[16008] = 36'o000000000000; // 037210 (unused) RAM[16009] = 36'o000000000000; // 037211 (unused) RAM[16010] = 36'o000000000000; // 037212 (unused) RAM[16011] = 36'o000000000000; // 037213 (unused) RAM[16012] = 36'o000000000000; // 037214 (unused) RAM[16013] = 36'o000000000000; // 037215 (unused) RAM[16014] = 36'o000000000000; // 037216 (unused) RAM[16015] = 36'o000000000000; // 037217 (unused) RAM[16016] = 36'o000000000000; // 037220 (unused) RAM[16017] = 36'o000000000000; // 037221 (unused) RAM[16018] = 36'o000000000000; // 037222 (unused) RAM[16019] = 36'o000000000000; // 037223 (unused) RAM[16020] = 36'o000000000000; // 037224 (unused) RAM[16021] = 36'o000000000000; // 037225 (unused) RAM[16022] = 36'o000000000000; // 037226 (unused) RAM[16023] = 36'o000000000000; // 037227 (unused) RAM[16024] = 36'o000000000000; // 037230 (unused) RAM[16025] = 36'o000000000000; // 037231 (unused) RAM[16026] = 36'o000000000000; // 037232 (unused) RAM[16027] = 36'o000000000000; // 037233 (unused) RAM[16028] = 36'o000000000000; // 037234 (unused) RAM[16029] = 36'o000000000000; // 037235 (unused) RAM[16030] = 36'o000000000000; // 037236 (unused) RAM[16031] = 36'o000000000000; // 037237 (unused) RAM[16032] = 36'o000000000000; // 037240 (unused) RAM[16033] = 36'o000000000000; // 037241 (unused) RAM[16034] = 36'o000000000000; // 037242 (unused) RAM[16035] = 36'o000000000000; // 037243 (unused) RAM[16036] = 36'o000000000000; // 037244 (unused) RAM[16037] = 36'o000000000000; // 037245 (unused) RAM[16038] = 36'o000000000000; // 037246 (unused) RAM[16039] = 36'o000000000000; // 037247 (unused) RAM[16040] = 36'o000000000000; // 037250 (unused) RAM[16041] = 36'o000000000000; // 037251 (unused) RAM[16042] = 36'o000000000000; // 037252 (unused) RAM[16043] = 36'o000000000000; // 037253 (unused) RAM[16044] = 36'o000000000000; // 037254 (unused) RAM[16045] = 36'o000000000000; // 037255 (unused) RAM[16046] = 36'o000000000000; // 037256 (unused) RAM[16047] = 36'o000000000000; // 037257 (unused) RAM[16048] = 36'o000000000000; // 037260 (unused) RAM[16049] = 36'o000000000000; // 037261 (unused) RAM[16050] = 36'o000000000000; // 037262 (unused) RAM[16051] = 36'o000000000000; // 037263 (unused) RAM[16052] = 36'o000000000000; // 037264 (unused) RAM[16053] = 36'o000000000000; // 037265 (unused) RAM[16054] = 36'o000000000000; // 037266 (unused) RAM[16055] = 36'o000000000000; // 037267 (unused) RAM[16056] = 36'o000000000000; // 037270 (unused) RAM[16057] = 36'o000000000000; // 037271 (unused) RAM[16058] = 36'o000000000000; // 037272 (unused) RAM[16059] = 36'o000000000000; // 037273 (unused) RAM[16060] = 36'o000000000000; // 037274 (unused) RAM[16061] = 36'o000000000000; // 037275 (unused) RAM[16062] = 36'o000000000000; // 037276 (unused) RAM[16063] = 36'o000000000000; // 037277 (unused) RAM[16064] = 36'o000000000000; // 037300 (unused) RAM[16065] = 36'o000000000000; // 037301 (unused) RAM[16066] = 36'o000000000000; // 037302 (unused) RAM[16067] = 36'o000000000000; // 037303 (unused) RAM[16068] = 36'o000000000000; // 037304 (unused) RAM[16069] = 36'o000000000000; // 037305 (unused) RAM[16070] = 36'o000000000000; // 037306 (unused) RAM[16071] = 36'o000000000000; // 037307 (unused) RAM[16072] = 36'o000000000000; // 037310 (unused) RAM[16073] = 36'o000000000000; // 037311 (unused) RAM[16074] = 36'o000000000000; // 037312 (unused) RAM[16075] = 36'o000000000000; // 037313 (unused) RAM[16076] = 36'o000000000000; // 037314 (unused) RAM[16077] = 36'o000000000000; // 037315 (unused) RAM[16078] = 36'o000000000000; // 037316 (unused) RAM[16079] = 36'o000000000000; // 037317 (unused) RAM[16080] = 36'o000000000000; // 037320 (unused) RAM[16081] = 36'o000000000000; // 037321 (unused) RAM[16082] = 36'o000000000000; // 037322 (unused) RAM[16083] = 36'o000000000000; // 037323 (unused) RAM[16084] = 36'o000000000000; // 037324 (unused) RAM[16085] = 36'o000000000000; // 037325 (unused) RAM[16086] = 36'o000000000000; // 037326 (unused) RAM[16087] = 36'o000000000000; // 037327 (unused) RAM[16088] = 36'o000000000000; // 037330 (unused) RAM[16089] = 36'o000000000000; // 037331 (unused) RAM[16090] = 36'o000000000000; // 037332 (unused) RAM[16091] = 36'o000000000000; // 037333 (unused) RAM[16092] = 36'o000000000000; // 037334 (unused) RAM[16093] = 36'o000000000000; // 037335 (unused) RAM[16094] = 36'o000000000000; // 037336 (unused) RAM[16095] = 36'o000000000000; // 037337 (unused) RAM[16096] = 36'o000000000000; // 037340 (unused) RAM[16097] = 36'o000000000000; // 037341 (unused) RAM[16098] = 36'o000000000000; // 037342 (unused) RAM[16099] = 36'o000000000000; // 037343 (unused) RAM[16100] = 36'o000000000000; // 037344 (unused) RAM[16101] = 36'o000000000000; // 037345 (unused) RAM[16102] = 36'o000000000000; // 037346 (unused) RAM[16103] = 36'o000000000000; // 037347 (unused) RAM[16104] = 36'o000000000000; // 037350 (unused) RAM[16105] = 36'o000000000000; // 037351 (unused) RAM[16106] = 36'o000000000000; // 037352 (unused) RAM[16107] = 36'o000000000000; // 037353 (unused) RAM[16108] = 36'o000000000000; // 037354 (unused) RAM[16109] = 36'o000000000000; // 037355 (unused) RAM[16110] = 36'o000000000000; // 037356 (unused) RAM[16111] = 36'o000000000000; // 037357 (unused) RAM[16112] = 36'o000000000000; // 037360 (unused) RAM[16113] = 36'o000000000000; // 037361 (unused) RAM[16114] = 36'o000000000000; // 037362 (unused) RAM[16115] = 36'o000000000000; // 037363 (unused) RAM[16116] = 36'o000000000000; // 037364 (unused) RAM[16117] = 36'o000000000000; // 037365 (unused) RAM[16118] = 36'o000000000000; // 037366 (unused) RAM[16119] = 36'o000000000000; // 037367 (unused) RAM[16120] = 36'o000000000000; // 037370 (unused) RAM[16121] = 36'o000000000000; // 037371 (unused) RAM[16122] = 36'o000000000000; // 037372 (unused) RAM[16123] = 36'o000000000000; // 037373 (unused) RAM[16124] = 36'o000000000000; // 037374 (unused) RAM[16125] = 36'o000000000000; // 037375 (unused) RAM[16126] = 36'o000000000000; // 037376 (unused) RAM[16127] = 36'o000000000000; // 037377 (unused) RAM[16128] = 36'o000000000000; // 037400 (unused) RAM[16129] = 36'o000000000000; // 037401 (unused) RAM[16130] = 36'o000000000000; // 037402 (unused) RAM[16131] = 36'o000000000000; // 037403 (unused) RAM[16132] = 36'o000000000000; // 037404 (unused) RAM[16133] = 36'o000000000000; // 037405 (unused) RAM[16134] = 36'o000000000000; // 037406 (unused) RAM[16135] = 36'o000000000000; // 037407 (unused) RAM[16136] = 36'o000000000000; // 037410 (unused) RAM[16137] = 36'o000000000000; // 037411 (unused) RAM[16138] = 36'o000000000000; // 037412 (unused) RAM[16139] = 36'o000000000000; // 037413 (unused) RAM[16140] = 36'o000000000000; // 037414 (unused) RAM[16141] = 36'o000000000000; // 037415 (unused) RAM[16142] = 36'o000000000000; // 037416 (unused) RAM[16143] = 36'o000000000000; // 037417 (unused) RAM[16144] = 36'o000000000000; // 037420 (unused) RAM[16145] = 36'o000000000000; // 037421 (unused) RAM[16146] = 36'o000000000000; // 037422 (unused) RAM[16147] = 36'o000000000000; // 037423 (unused) RAM[16148] = 36'o000000000000; // 037424 (unused) RAM[16149] = 36'o000000000000; // 037425 (unused) RAM[16150] = 36'o000000000000; // 037426 (unused) RAM[16151] = 36'o000000000000; // 037427 (unused) RAM[16152] = 36'o000000000000; // 037430 (unused) RAM[16153] = 36'o000000000000; // 037431 (unused) RAM[16154] = 36'o000000000000; // 037432 (unused) RAM[16155] = 36'o000000000000; // 037433 (unused) RAM[16156] = 36'o000000000000; // 037434 (unused) RAM[16157] = 36'o000000000000; // 037435 (unused) RAM[16158] = 36'o000000000000; // 037436 (unused) RAM[16159] = 36'o000000000000; // 037437 (unused) RAM[16160] = 36'o000000000000; // 037440 (unused) RAM[16161] = 36'o000000000000; // 037441 (unused) RAM[16162] = 36'o000000000000; // 037442 (unused) RAM[16163] = 36'o000000000000; // 037443 (unused) RAM[16164] = 36'o000000000000; // 037444 (unused) RAM[16165] = 36'o000000000000; // 037445 (unused) RAM[16166] = 36'o000000000000; // 037446 (unused) RAM[16167] = 36'o000000000000; // 037447 (unused) RAM[16168] = 36'o000000000000; // 037450 (unused) RAM[16169] = 36'o000000000000; // 037451 (unused) RAM[16170] = 36'o000000000000; // 037452 (unused) RAM[16171] = 36'o000000000000; // 037453 (unused) RAM[16172] = 36'o000000000000; // 037454 (unused) RAM[16173] = 36'o000000000000; // 037455 (unused) RAM[16174] = 36'o000000000000; // 037456 (unused) RAM[16175] = 36'o000000000000; // 037457 (unused) RAM[16176] = 36'o000000000000; // 037460 (unused) RAM[16177] = 36'o000000000000; // 037461 (unused) RAM[16178] = 36'o000000000000; // 037462 (unused) RAM[16179] = 36'o000000000000; // 037463 (unused) RAM[16180] = 36'o000000000000; // 037464 (unused) RAM[16181] = 36'o000000000000; // 037465 (unused) RAM[16182] = 36'o000000000000; // 037466 (unused) RAM[16183] = 36'o000000000000; // 037467 (unused) RAM[16184] = 36'o000000000000; // 037470 (unused) RAM[16185] = 36'o000000000000; // 037471 (unused) RAM[16186] = 36'o000000000000; // 037472 (unused) RAM[16187] = 36'o000000000000; // 037473 (unused) RAM[16188] = 36'o000000000000; // 037474 (unused) RAM[16189] = 36'o000000000000; // 037475 (unused) RAM[16190] = 36'o000000000000; // 037476 (unused) RAM[16191] = 36'o000000000000; // 037477 (unused) RAM[16192] = 36'o000000000000; // 037500 (unused) RAM[16193] = 36'o000000000000; // 037501 (unused) RAM[16194] = 36'o000000000000; // 037502 (unused) RAM[16195] = 36'o000000000000; // 037503 (unused) RAM[16196] = 36'o000000000000; // 037504 (unused) RAM[16197] = 36'o000000000000; // 037505 (unused) RAM[16198] = 36'o000000000000; // 037506 (unused) RAM[16199] = 36'o000000000000; // 037507 (unused) RAM[16200] = 36'o000000000000; // 037510 (unused) RAM[16201] = 36'o000000000000; // 037511 (unused) RAM[16202] = 36'o000000000000; // 037512 (unused) RAM[16203] = 36'o000000000000; // 037513 (unused) RAM[16204] = 36'o000000000000; // 037514 (unused) RAM[16205] = 36'o000000000000; // 037515 (unused) RAM[16206] = 36'o000000000000; // 037516 (unused) RAM[16207] = 36'o000000000000; // 037517 (unused) RAM[16208] = 36'o000000000000; // 037520 (unused) RAM[16209] = 36'o000000000000; // 037521 (unused) RAM[16210] = 36'o000000000000; // 037522 (unused) RAM[16211] = 36'o000000000000; // 037523 (unused) RAM[16212] = 36'o000000000000; // 037524 (unused) RAM[16213] = 36'o000000000000; // 037525 (unused) RAM[16214] = 36'o000000000000; // 037526 (unused) RAM[16215] = 36'o000000000000; // 037527 (unused) RAM[16216] = 36'o000000000000; // 037530 (unused) RAM[16217] = 36'o000000000000; // 037531 (unused) RAM[16218] = 36'o000000000000; // 037532 (unused) RAM[16219] = 36'o000000000000; // 037533 (unused) RAM[16220] = 36'o000000000000; // 037534 (unused) RAM[16221] = 36'o000000000000; // 037535 (unused) RAM[16222] = 36'o000000000000; // 037536 (unused) RAM[16223] = 36'o000000000000; // 037537 (unused) RAM[16224] = 36'o000000000000; // 037540 (unused) RAM[16225] = 36'o000000000000; // 037541 (unused) RAM[16226] = 36'o000000000000; // 037542 (unused) RAM[16227] = 36'o000000000000; // 037543 (unused) RAM[16228] = 36'o000000000000; // 037544 (unused) RAM[16229] = 36'o000000000000; // 037545 (unused) RAM[16230] = 36'o000000000000; // 037546 (unused) RAM[16231] = 36'o000000000000; // 037547 (unused) RAM[16232] = 36'o000000000000; // 037550 (unused) RAM[16233] = 36'o000000000000; // 037551 (unused) RAM[16234] = 36'o000000000000; // 037552 (unused) RAM[16235] = 36'o000000000000; // 037553 (unused) RAM[16236] = 36'o000000000000; // 037554 (unused) RAM[16237] = 36'o000000000000; // 037555 (unused) RAM[16238] = 36'o000000000000; // 037556 (unused) RAM[16239] = 36'o000000000000; // 037557 (unused) RAM[16240] = 36'o000000000000; // 037560 (unused) RAM[16241] = 36'o000000000000; // 037561 (unused) RAM[16242] = 36'o000000000000; // 037562 (unused) RAM[16243] = 36'o000000000000; // 037563 (unused) RAM[16244] = 36'o000000000000; // 037564 (unused) RAM[16245] = 36'o000000000000; // 037565 (unused) RAM[16246] = 36'o000000000000; // 037566 (unused) RAM[16247] = 36'o000000000000; // 037567 (unused) RAM[16248] = 36'o000000000000; // 037570 (unused) RAM[16249] = 36'o000000000000; // 037571 (unused) RAM[16250] = 36'o000000000000; // 037572 (unused) RAM[16251] = 36'o000000000000; // 037573 (unused) RAM[16252] = 36'o000000000000; // 037574 (unused) RAM[16253] = 36'o000000000000; // 037575 (unused) RAM[16254] = 36'o000000000000; // 037576 (unused) RAM[16255] = 36'o000000000000; // 037577 (unused) RAM[16256] = 36'o000000000000; // 037600 (unused) RAM[16257] = 36'o000000000000; // 037601 (unused) RAM[16258] = 36'o000000000000; // 037602 (unused) RAM[16259] = 36'o000000000000; // 037603 (unused) RAM[16260] = 36'o000000000000; // 037604 (unused) RAM[16261] = 36'o000000000000; // 037605 (unused) RAM[16262] = 36'o000000000000; // 037606 (unused) RAM[16263] = 36'o000000000000; // 037607 (unused) RAM[16264] = 36'o000000000000; // 037610 (unused) RAM[16265] = 36'o000000000000; // 037611 (unused) RAM[16266] = 36'o000000000000; // 037612 (unused) RAM[16267] = 36'o000000000000; // 037613 (unused) RAM[16268] = 36'o000000000000; // 037614 (unused) RAM[16269] = 36'o000000000000; // 037615 (unused) RAM[16270] = 36'o000000000000; // 037616 (unused) RAM[16271] = 36'o000000000000; // 037617 (unused) RAM[16272] = 36'o000000000000; // 037620 (unused) RAM[16273] = 36'o000000000000; // 037621 (unused) RAM[16274] = 36'o000000000000; // 037622 (unused) RAM[16275] = 36'o000000000000; // 037623 (unused) RAM[16276] = 36'o000000000000; // 037624 (unused) RAM[16277] = 36'o000000000000; // 037625 (unused) RAM[16278] = 36'o000000000000; // 037626 (unused) RAM[16279] = 36'o000000000000; // 037627 (unused) RAM[16280] = 36'o000000000000; // 037630 (unused) RAM[16281] = 36'o000000000000; // 037631 (unused) RAM[16282] = 36'o000000000000; // 037632 (unused) RAM[16283] = 36'o000000000000; // 037633 (unused) RAM[16284] = 36'o000000000000; // 037634 (unused) RAM[16285] = 36'o000000000000; // 037635 (unused) RAM[16286] = 36'o000000000000; // 037636 (unused) RAM[16287] = 36'o000000000000; // 037637 (unused) RAM[16288] = 36'o000000000000; // 037640 (unused) RAM[16289] = 36'o000000000000; // 037641 (unused) RAM[16290] = 36'o000000000000; // 037642 (unused) RAM[16291] = 36'o000000000000; // 037643 (unused) RAM[16292] = 36'o000000000000; // 037644 (unused) RAM[16293] = 36'o000000000000; // 037645 (unused) RAM[16294] = 36'o000000000000; // 037646 (unused) RAM[16295] = 36'o000000000000; // 037647 (unused) RAM[16296] = 36'o000000000000; // 037650 (unused) RAM[16297] = 36'o000000000000; // 037651 (unused) RAM[16298] = 36'o000000000000; // 037652 (unused) RAM[16299] = 36'o000000000000; // 037653 (unused) RAM[16300] = 36'o000000000000; // 037654 (unused) RAM[16301] = 36'o000000000000; // 037655 (unused) RAM[16302] = 36'o000000000000; // 037656 (unused) RAM[16303] = 36'o000000000000; // 037657 (unused) RAM[16304] = 36'o000000000000; // 037660 (unused) RAM[16305] = 36'o000000000000; // 037661 (unused) RAM[16306] = 36'o000000000000; // 037662 (unused) RAM[16307] = 36'o000000000000; // 037663 (unused) RAM[16308] = 36'o000000000000; // 037664 (unused) RAM[16309] = 36'o000000000000; // 037665 (unused) RAM[16310] = 36'o000000000000; // 037666 (unused) RAM[16311] = 36'o000000000000; // 037667 (unused) RAM[16312] = 36'o000000000000; // 037670 (unused) RAM[16313] = 36'o000000000000; // 037671 (unused) RAM[16314] = 36'o000000000000; // 037672 (unused) RAM[16315] = 36'o000000000000; // 037673 (unused) RAM[16316] = 36'o000000000000; // 037674 (unused) RAM[16317] = 36'o000000000000; // 037675 (unused) RAM[16318] = 36'o000000000000; // 037676 (unused) RAM[16319] = 36'o000000000000; // 037677 (unused) RAM[16320] = 36'o000000000000; // 037700 (unused) RAM[16321] = 36'o000000000000; // 037701 (unused) RAM[16322] = 36'o000000000000; // 037702 (unused) RAM[16323] = 36'o000000000000; // 037703 (unused) RAM[16324] = 36'o000000000000; // 037704 (unused) RAM[16325] = 36'o000000000000; // 037705 (unused) RAM[16326] = 36'o000000000000; // 037706 (unused) RAM[16327] = 36'o000000000000; // 037707 (unused) RAM[16328] = 36'o000000000000; // 037710 (unused) RAM[16329] = 36'o000000000000; // 037711 (unused) RAM[16330] = 36'o000000000000; // 037712 (unused) RAM[16331] = 36'o000000000000; // 037713 (unused) RAM[16332] = 36'o000000000000; // 037714 (unused) RAM[16333] = 36'o000000000000; // 037715 (unused) RAM[16334] = 36'o000000000000; // 037716 (unused) RAM[16335] = 36'o000000000000; // 037717 (unused) RAM[16336] = 36'o000000000000; // 037720 (unused) RAM[16337] = 36'o000000000000; // 037721 (unused) RAM[16338] = 36'o000000000000; // 037722 (unused) RAM[16339] = 36'o000000000000; // 037723 (unused) RAM[16340] = 36'o000000000000; // 037724 (unused) RAM[16341] = 36'o000000000000; // 037725 (unused) RAM[16342] = 36'o000000000000; // 037726 (unused) RAM[16343] = 36'o000000000000; // 037727 (unused) RAM[16344] = 36'o000000000000; // 037730 (unused) RAM[16345] = 36'o000000000000; // 037731 (unused) RAM[16346] = 36'o000000000000; // 037732 (unused) RAM[16347] = 36'o000000000000; // 037733 (unused) RAM[16348] = 36'o000000000000; // 037734 (unused) RAM[16349] = 36'o000000000000; // 037735 (unused) RAM[16350] = 36'o000000000000; // 037736 (unused) RAM[16351] = 36'o000000000000; // 037737 (unused) RAM[16352] = 36'o000000000000; // 037740 (unused) RAM[16353] = 36'o000000000000; // 037741 (unused) RAM[16354] = 36'o000000000000; // 037742 (unused) RAM[16355] = 36'o000000000000; // 037743 (unused) RAM[16356] = 36'o000000000000; // 037744 (unused) RAM[16357] = 36'o000000000000; // 037745 (unused) RAM[16358] = 36'o000000000000; // 037746 (unused) RAM[16359] = 36'o000000000000; // 037747 (unused) RAM[16360] = 36'o000000000000; // 037750 (unused) RAM[16361] = 36'o000000000000; // 037751 (unused) RAM[16362] = 36'o000000000000; // 037752 (unused) RAM[16363] = 36'o000000000000; // 037753 (unused) RAM[16364] = 36'o000000000000; // 037754 (unused) RAM[16365] = 36'o000000000000; // 037755 (unused) RAM[16366] = 36'o000000000000; // 037756 (unused) RAM[16367] = 36'o000000000000; // 037757 (unused) RAM[16368] = 36'o000000000000; // 037760 (unused) RAM[16369] = 36'o000000000000; // 037761 (unused) RAM[16370] = 36'o000000000000; // 037762 (unused) RAM[16371] = 36'o000000000000; // 037763 (unused) RAM[16372] = 36'o000000000000; // 037764 (unused) RAM[16373] = 36'o000000000000; // 037765 (unused) RAM[16374] = 36'o000000000000; // 037766 (unused) RAM[16375] = 36'o000000000000; // 037767 (unused) RAM[16376] = 36'o000000000000; // 037770 (unused) RAM[16377] = 36'o000000000000; // 037771 (unused) RAM[16378] = 36'o000000000000; // 037772 (unused) RAM[16379] = 36'o000000000000; // 037773 (unused) RAM[16380] = 36'o000000000000; // 037774 (unused) RAM[16381] = 36'o000000000000; // 037775 (unused) RAM[16382] = 36'o000000000000; // 037776 (unused) RAM[16383] = 36'o000000000000; // 037777 (unused) RAM[16384] = 36'o000000000000; // 040000 (unused) RAM[16385] = 36'o000000000000; // 040001 (unused) RAM[16386] = 36'o000000000000; // 040002 (unused) RAM[16387] = 36'o000000000000; // 040003 (unused) RAM[16388] = 36'o000000000000; // 040004 (unused) RAM[16389] = 36'o000000000000; // 040005 (unused) RAM[16390] = 36'o000000000000; // 040006 (unused) RAM[16391] = 36'o000000000000; // 040007 (unused) RAM[16392] = 36'o000000000000; // 040010 (unused) RAM[16393] = 36'o000000000000; // 040011 (unused) RAM[16394] = 36'o000000000000; // 040012 (unused) RAM[16395] = 36'o000000000000; // 040013 (unused) RAM[16396] = 36'o000000000000; // 040014 (unused) RAM[16397] = 36'o000000000000; // 040015 (unused) RAM[16398] = 36'o000000000000; // 040016 (unused) RAM[16399] = 36'o000000000000; // 040017 (unused) RAM[16400] = 36'o000000000000; // 040020 (unused) RAM[16401] = 36'o000000000000; // 040021 (unused) RAM[16402] = 36'o000000000000; // 040022 (unused) RAM[16403] = 36'o000000000000; // 040023 (unused) RAM[16404] = 36'o000000000000; // 040024 (unused) RAM[16405] = 36'o000000000000; // 040025 (unused) RAM[16406] = 36'o000000000000; // 040026 (unused) RAM[16407] = 36'o000000000000; // 040027 (unused) RAM[16408] = 36'o000000000000; // 040030 (unused) RAM[16409] = 36'o000000000000; // 040031 (unused) RAM[16410] = 36'o000000000000; // 040032 (unused) RAM[16411] = 36'o000000000000; // 040033 (unused) RAM[16412] = 36'o000000000000; // 040034 (unused) RAM[16413] = 36'o000000000000; // 040035 (unused) RAM[16414] = 36'o000000000000; // 040036 (unused) RAM[16415] = 36'o000000000000; // 040037 (unused) RAM[16416] = 36'o000000000000; // 040040 (unused) RAM[16417] = 36'o000000000000; // 040041 (unused) RAM[16418] = 36'o000000000000; // 040042 (unused) RAM[16419] = 36'o000000000000; // 040043 (unused) RAM[16420] = 36'o000000000000; // 040044 (unused) RAM[16421] = 36'o000000000000; // 040045 (unused) RAM[16422] = 36'o000000000000; // 040046 (unused) RAM[16423] = 36'o000000000000; // 040047 (unused) RAM[16424] = 36'o000000000000; // 040050 (unused) RAM[16425] = 36'o000000000000; // 040051 (unused) RAM[16426] = 36'o000000000000; // 040052 (unused) RAM[16427] = 36'o000000000000; // 040053 (unused) RAM[16428] = 36'o000000000000; // 040054 (unused) RAM[16429] = 36'o000000000000; // 040055 (unused) RAM[16430] = 36'o000000000000; // 040056 (unused) RAM[16431] = 36'o000000000000; // 040057 (unused) RAM[16432] = 36'o000000000000; // 040060 (unused) RAM[16433] = 36'o000000000000; // 040061 (unused) RAM[16434] = 36'o000000000000; // 040062 (unused) RAM[16435] = 36'o000000000000; // 040063 (unused) RAM[16436] = 36'o000000000000; // 040064 (unused) RAM[16437] = 36'o000000000000; // 040065 (unused) RAM[16438] = 36'o000000000000; // 040066 (unused) RAM[16439] = 36'o000000000000; // 040067 (unused) RAM[16440] = 36'o000000000000; // 040070 (unused) RAM[16441] = 36'o000000000000; // 040071 (unused) RAM[16442] = 36'o000000000000; // 040072 (unused) RAM[16443] = 36'o000000000000; // 040073 (unused) RAM[16444] = 36'o000000000000; // 040074 (unused) RAM[16445] = 36'o000000000000; // 040075 (unused) RAM[16446] = 36'o000000000000; // 040076 (unused) RAM[16447] = 36'o000000000000; // 040077 (unused) RAM[16448] = 36'o000000000000; // 040100 (unused) RAM[16449] = 36'o000000000000; // 040101 (unused) RAM[16450] = 36'o000000000000; // 040102 (unused) RAM[16451] = 36'o000000000000; // 040103 (unused) RAM[16452] = 36'o000000000000; // 040104 (unused) RAM[16453] = 36'o000000000000; // 040105 (unused) RAM[16454] = 36'o000000000000; // 040106 (unused) RAM[16455] = 36'o000000000000; // 040107 (unused) RAM[16456] = 36'o000000000000; // 040110 (unused) RAM[16457] = 36'o000000000000; // 040111 (unused) RAM[16458] = 36'o000000000000; // 040112 (unused) RAM[16459] = 36'o000000000000; // 040113 (unused) RAM[16460] = 36'o000000000000; // 040114 (unused) RAM[16461] = 36'o000000000000; // 040115 (unused) RAM[16462] = 36'o000000000000; // 040116 (unused) RAM[16463] = 36'o000000000000; // 040117 (unused) RAM[16464] = 36'o000000000000; // 040120 (unused) RAM[16465] = 36'o000000000000; // 040121 (unused) RAM[16466] = 36'o000000000000; // 040122 (unused) RAM[16467] = 36'o000000000000; // 040123 (unused) RAM[16468] = 36'o000000000000; // 040124 (unused) RAM[16469] = 36'o000000000000; // 040125 (unused) RAM[16470] = 36'o000000000000; // 040126 (unused) RAM[16471] = 36'o000000000000; // 040127 (unused) RAM[16472] = 36'o000000000000; // 040130 (unused) RAM[16473] = 36'o000000000000; // 040131 (unused) RAM[16474] = 36'o000000000000; // 040132 (unused) RAM[16475] = 36'o000000000000; // 040133 (unused) RAM[16476] = 36'o000000000000; // 040134 (unused) RAM[16477] = 36'o000000000000; // 040135 (unused) RAM[16478] = 36'o000000000000; // 040136 (unused) RAM[16479] = 36'o000000000000; // 040137 (unused) RAM[16480] = 36'o000000000000; // 040140 (unused) RAM[16481] = 36'o000000000000; // 040141 (unused) RAM[16482] = 36'o000000000000; // 040142 (unused) RAM[16483] = 36'o000000000000; // 040143 (unused) RAM[16484] = 36'o000000000000; // 040144 (unused) RAM[16485] = 36'o000000000000; // 040145 (unused) RAM[16486] = 36'o000000000000; // 040146 (unused) RAM[16487] = 36'o000000000000; // 040147 (unused) RAM[16488] = 36'o000000000000; // 040150 (unused) RAM[16489] = 36'o000000000000; // 040151 (unused) RAM[16490] = 36'o000000000000; // 040152 (unused) RAM[16491] = 36'o000000000000; // 040153 (unused) RAM[16492] = 36'o000000000000; // 040154 (unused) RAM[16493] = 36'o000000000000; // 040155 (unused) RAM[16494] = 36'o000000000000; // 040156 (unused) RAM[16495] = 36'o000000000000; // 040157 (unused) RAM[16496] = 36'o000000000000; // 040160 (unused) RAM[16497] = 36'o000000000000; // 040161 (unused) RAM[16498] = 36'o000000000000; // 040162 (unused) RAM[16499] = 36'o000000000000; // 040163 (unused) RAM[16500] = 36'o000000000000; // 040164 (unused) RAM[16501] = 36'o000000000000; // 040165 (unused) RAM[16502] = 36'o000000000000; // 040166 (unused) RAM[16503] = 36'o000000000000; // 040167 (unused) RAM[16504] = 36'o000000000000; // 040170 (unused) RAM[16505] = 36'o000000000000; // 040171 (unused) RAM[16506] = 36'o000000000000; // 040172 (unused) RAM[16507] = 36'o000000000000; // 040173 (unused) RAM[16508] = 36'o000000000000; // 040174 (unused) RAM[16509] = 36'o000000000000; // 040175 (unused) RAM[16510] = 36'o000000000000; // 040176 (unused) RAM[16511] = 36'o000000000000; // 040177 (unused) RAM[16512] = 36'o000000000000; // 040200 (unused) RAM[16513] = 36'o000000000000; // 040201 (unused) RAM[16514] = 36'o000000000000; // 040202 (unused) RAM[16515] = 36'o000000000000; // 040203 (unused) RAM[16516] = 36'o000000000000; // 040204 (unused) RAM[16517] = 36'o000000000000; // 040205 (unused) RAM[16518] = 36'o000000000000; // 040206 (unused) RAM[16519] = 36'o000000000000; // 040207 (unused) RAM[16520] = 36'o000000000000; // 040210 (unused) RAM[16521] = 36'o000000000000; // 040211 (unused) RAM[16522] = 36'o000000000000; // 040212 (unused) RAM[16523] = 36'o000000000000; // 040213 (unused) RAM[16524] = 36'o000000000000; // 040214 (unused) RAM[16525] = 36'o000000000000; // 040215 (unused) RAM[16526] = 36'o000000000000; // 040216 (unused) RAM[16527] = 36'o000000000000; // 040217 (unused) RAM[16528] = 36'o000000000000; // 040220 (unused) RAM[16529] = 36'o000000000000; // 040221 (unused) RAM[16530] = 36'o000000000000; // 040222 (unused) RAM[16531] = 36'o000000000000; // 040223 (unused) RAM[16532] = 36'o000000000000; // 040224 (unused) RAM[16533] = 36'o000000000000; // 040225 (unused) RAM[16534] = 36'o000000000000; // 040226 (unused) RAM[16535] = 36'o000000000000; // 040227 (unused) RAM[16536] = 36'o000000000000; // 040230 (unused) RAM[16537] = 36'o000000000000; // 040231 (unused) RAM[16538] = 36'o000000000000; // 040232 (unused) RAM[16539] = 36'o000000000000; // 040233 (unused) RAM[16540] = 36'o000000000000; // 040234 (unused) RAM[16541] = 36'o000000000000; // 040235 (unused) RAM[16542] = 36'o000000000000; // 040236 (unused) RAM[16543] = 36'o000000000000; // 040237 (unused) RAM[16544] = 36'o000000000000; // 040240 (unused) RAM[16545] = 36'o000000000000; // 040241 (unused) RAM[16546] = 36'o000000000000; // 040242 (unused) RAM[16547] = 36'o000000000000; // 040243 (unused) RAM[16548] = 36'o000000000000; // 040244 (unused) RAM[16549] = 36'o000000000000; // 040245 (unused) RAM[16550] = 36'o000000000000; // 040246 (unused) RAM[16551] = 36'o000000000000; // 040247 (unused) RAM[16552] = 36'o000000000000; // 040250 (unused) RAM[16553] = 36'o000000000000; // 040251 (unused) RAM[16554] = 36'o000000000000; // 040252 (unused) RAM[16555] = 36'o000000000000; // 040253 (unused) RAM[16556] = 36'o000000000000; // 040254 (unused) RAM[16557] = 36'o000000000000; // 040255 (unused) RAM[16558] = 36'o000000000000; // 040256 (unused) RAM[16559] = 36'o000000000000; // 040257 (unused) RAM[16560] = 36'o000000000000; // 040260 (unused) RAM[16561] = 36'o000000000000; // 040261 (unused) RAM[16562] = 36'o000000000000; // 040262 (unused) RAM[16563] = 36'o000000000000; // 040263 (unused) RAM[16564] = 36'o000000000000; // 040264 (unused) RAM[16565] = 36'o000000000000; // 040265 (unused) RAM[16566] = 36'o000000000000; // 040266 (unused) RAM[16567] = 36'o000000000000; // 040267 (unused) RAM[16568] = 36'o000000000000; // 040270 (unused) RAM[16569] = 36'o000000000000; // 040271 (unused) RAM[16570] = 36'o000000000000; // 040272 (unused) RAM[16571] = 36'o000000000000; // 040273 (unused) RAM[16572] = 36'o000000000000; // 040274 (unused) RAM[16573] = 36'o000000000000; // 040275 (unused) RAM[16574] = 36'o000000000000; // 040276 (unused) RAM[16575] = 36'o000000000000; // 040277 (unused) RAM[16576] = 36'o000000000000; // 040300 (unused) RAM[16577] = 36'o000000000000; // 040301 (unused) RAM[16578] = 36'o000000000000; // 040302 (unused) RAM[16579] = 36'o000000000000; // 040303 (unused) RAM[16580] = 36'o000000000000; // 040304 (unused) RAM[16581] = 36'o000000000000; // 040305 (unused) RAM[16582] = 36'o000000000000; // 040306 (unused) RAM[16583] = 36'o000000000000; // 040307 (unused) RAM[16584] = 36'o000000000000; // 040310 (unused) RAM[16585] = 36'o000000000000; // 040311 (unused) RAM[16586] = 36'o000000000000; // 040312 (unused) RAM[16587] = 36'o000000000000; // 040313 (unused) RAM[16588] = 36'o000000000000; // 040314 (unused) RAM[16589] = 36'o000000000000; // 040315 (unused) RAM[16590] = 36'o000000000000; // 040316 (unused) RAM[16591] = 36'o000000000000; // 040317 (unused) RAM[16592] = 36'o000000000000; // 040320 (unused) RAM[16593] = 36'o000000000000; // 040321 (unused) RAM[16594] = 36'o000000000000; // 040322 (unused) RAM[16595] = 36'o000000000000; // 040323 (unused) RAM[16596] = 36'o000000000000; // 040324 (unused) RAM[16597] = 36'o000000000000; // 040325 (unused) RAM[16598] = 36'o000000000000; // 040326 (unused) RAM[16599] = 36'o000000000000; // 040327 (unused) RAM[16600] = 36'o000000000000; // 040330 (unused) RAM[16601] = 36'o000000000000; // 040331 (unused) RAM[16602] = 36'o000000000000; // 040332 (unused) RAM[16603] = 36'o000000000000; // 040333 (unused) RAM[16604] = 36'o000000000000; // 040334 (unused) RAM[16605] = 36'o000000000000; // 040335 (unused) RAM[16606] = 36'o000000000000; // 040336 (unused) RAM[16607] = 36'o000000000000; // 040337 (unused) RAM[16608] = 36'o000000000000; // 040340 (unused) RAM[16609] = 36'o000000000000; // 040341 (unused) RAM[16610] = 36'o000000000000; // 040342 (unused) RAM[16611] = 36'o000000000000; // 040343 (unused) RAM[16612] = 36'o000000000000; // 040344 (unused) RAM[16613] = 36'o000000000000; // 040345 (unused) RAM[16614] = 36'o000000000000; // 040346 (unused) RAM[16615] = 36'o000000000000; // 040347 (unused) RAM[16616] = 36'o000000000000; // 040350 (unused) RAM[16617] = 36'o000000000000; // 040351 (unused) RAM[16618] = 36'o000000000000; // 040352 (unused) RAM[16619] = 36'o000000000000; // 040353 (unused) RAM[16620] = 36'o000000000000; // 040354 (unused) RAM[16621] = 36'o000000000000; // 040355 (unused) RAM[16622] = 36'o000000000000; // 040356 (unused) RAM[16623] = 36'o000000000000; // 040357 (unused) RAM[16624] = 36'o000000000000; // 040360 (unused) RAM[16625] = 36'o000000000000; // 040361 (unused) RAM[16626] = 36'o000000000000; // 040362 (unused) RAM[16627] = 36'o000000000000; // 040363 (unused) RAM[16628] = 36'o000000000000; // 040364 (unused) RAM[16629] = 36'o000000000000; // 040365 (unused) RAM[16630] = 36'o000000000000; // 040366 (unused) RAM[16631] = 36'o000000000000; // 040367 (unused) RAM[16632] = 36'o000000000000; // 040370 (unused) RAM[16633] = 36'o000000000000; // 040371 (unused) RAM[16634] = 36'o000000000000; // 040372 (unused) RAM[16635] = 36'o000000000000; // 040373 (unused) RAM[16636] = 36'o000000000000; // 040374 (unused) RAM[16637] = 36'o000000000000; // 040375 (unused) RAM[16638] = 36'o000000000000; // 040376 (unused) RAM[16639] = 36'o000000000000; // 040377 (unused) RAM[16640] = 36'o000000000000; // 040400 (unused) RAM[16641] = 36'o000000000000; // 040401 (unused) RAM[16642] = 36'o000000000000; // 040402 (unused) RAM[16643] = 36'o000000000000; // 040403 (unused) RAM[16644] = 36'o000000000000; // 040404 (unused) RAM[16645] = 36'o000000000000; // 040405 (unused) RAM[16646] = 36'o000000000000; // 040406 (unused) RAM[16647] = 36'o000000000000; // 040407 (unused) RAM[16648] = 36'o000000000000; // 040410 (unused) RAM[16649] = 36'o000000000000; // 040411 (unused) RAM[16650] = 36'o000000000000; // 040412 (unused) RAM[16651] = 36'o000000000000; // 040413 (unused) RAM[16652] = 36'o000000000000; // 040414 (unused) RAM[16653] = 36'o000000000000; // 040415 (unused) RAM[16654] = 36'o000000000000; // 040416 (unused) RAM[16655] = 36'o000000000000; // 040417 (unused) RAM[16656] = 36'o000000000000; // 040420 (unused) RAM[16657] = 36'o000000000000; // 040421 (unused) RAM[16658] = 36'o000000000000; // 040422 (unused) RAM[16659] = 36'o000000000000; // 040423 (unused) RAM[16660] = 36'o000000000000; // 040424 (unused) RAM[16661] = 36'o000000000000; // 040425 (unused) RAM[16662] = 36'o000000000000; // 040426 (unused) RAM[16663] = 36'o000000000000; // 040427 (unused) RAM[16664] = 36'o000000000000; // 040430 (unused) RAM[16665] = 36'o000000000000; // 040431 (unused) RAM[16666] = 36'o000000000000; // 040432 (unused) RAM[16667] = 36'o000000000000; // 040433 (unused) RAM[16668] = 36'o000000000000; // 040434 (unused) RAM[16669] = 36'o000000000000; // 040435 (unused) RAM[16670] = 36'o000000000000; // 040436 (unused) RAM[16671] = 36'o000000000000; // 040437 (unused) RAM[16672] = 36'o000000000000; // 040440 (unused) RAM[16673] = 36'o000000000000; // 040441 (unused) RAM[16674] = 36'o000000000000; // 040442 (unused) RAM[16675] = 36'o000000000000; // 040443 (unused) RAM[16676] = 36'o000000000000; // 040444 (unused) RAM[16677] = 36'o000000000000; // 040445 (unused) RAM[16678] = 36'o000000000000; // 040446 (unused) RAM[16679] = 36'o000000000000; // 040447 (unused) RAM[16680] = 36'o000000000000; // 040450 (unused) RAM[16681] = 36'o000000000000; // 040451 (unused) RAM[16682] = 36'o000000000000; // 040452 (unused) RAM[16683] = 36'o000000000000; // 040453 (unused) RAM[16684] = 36'o000000000000; // 040454 (unused) RAM[16685] = 36'o000000000000; // 040455 (unused) RAM[16686] = 36'o000000000000; // 040456 (unused) RAM[16687] = 36'o000000000000; // 040457 (unused) RAM[16688] = 36'o000000000000; // 040460 (unused) RAM[16689] = 36'o000000000000; // 040461 (unused) RAM[16690] = 36'o000000000000; // 040462 (unused) RAM[16691] = 36'o000000000000; // 040463 (unused) RAM[16692] = 36'o000000000000; // 040464 (unused) RAM[16693] = 36'o000000000000; // 040465 (unused) RAM[16694] = 36'o000000000000; // 040466 (unused) RAM[16695] = 36'o000000000000; // 040467 (unused) RAM[16696] = 36'o000000000000; // 040470 (unused) RAM[16697] = 36'o000000000000; // 040471 (unused) RAM[16698] = 36'o000000000000; // 040472 (unused) RAM[16699] = 36'o000000000000; // 040473 (unused) RAM[16700] = 36'o000000000000; // 040474 (unused) RAM[16701] = 36'o000000000000; // 040475 (unused) RAM[16702] = 36'o000000000000; // 040476 (unused) RAM[16703] = 36'o000000000000; // 040477 (unused) RAM[16704] = 36'o000000000000; // 040500 (unused) RAM[16705] = 36'o000000000000; // 040501 (unused) RAM[16706] = 36'o000000000000; // 040502 (unused) RAM[16707] = 36'o000000000000; // 040503 (unused) RAM[16708] = 36'o000000000000; // 040504 (unused) RAM[16709] = 36'o000000000000; // 040505 (unused) RAM[16710] = 36'o000000000000; // 040506 (unused) RAM[16711] = 36'o000000000000; // 040507 (unused) RAM[16712] = 36'o000000000000; // 040510 (unused) RAM[16713] = 36'o000000000000; // 040511 (unused) RAM[16714] = 36'o000000000000; // 040512 (unused) RAM[16715] = 36'o000000000000; // 040513 (unused) RAM[16716] = 36'o000000000000; // 040514 (unused) RAM[16717] = 36'o000000000000; // 040515 (unused) RAM[16718] = 36'o000000000000; // 040516 (unused) RAM[16719] = 36'o000000000000; // 040517 (unused) RAM[16720] = 36'o000000000000; // 040520 (unused) RAM[16721] = 36'o000000000000; // 040521 (unused) RAM[16722] = 36'o000000000000; // 040522 (unused) RAM[16723] = 36'o000000000000; // 040523 (unused) RAM[16724] = 36'o000000000000; // 040524 (unused) RAM[16725] = 36'o000000000000; // 040525 (unused) RAM[16726] = 36'o000000000000; // 040526 (unused) RAM[16727] = 36'o000000000000; // 040527 (unused) RAM[16728] = 36'o000000000000; // 040530 (unused) RAM[16729] = 36'o000000000000; // 040531 (unused) RAM[16730] = 36'o000000000000; // 040532 (unused) RAM[16731] = 36'o000000000000; // 040533 (unused) RAM[16732] = 36'o000000000000; // 040534 (unused) RAM[16733] = 36'o000000000000; // 040535 (unused) RAM[16734] = 36'o000000000000; // 040536 (unused) RAM[16735] = 36'o000000000000; // 040537 (unused) RAM[16736] = 36'o000000000000; // 040540 (unused) RAM[16737] = 36'o000000000000; // 040541 (unused) RAM[16738] = 36'o000000000000; // 040542 (unused) RAM[16739] = 36'o000000000000; // 040543 (unused) RAM[16740] = 36'o000000000000; // 040544 (unused) RAM[16741] = 36'o000000000000; // 040545 (unused) RAM[16742] = 36'o000000000000; // 040546 (unused) RAM[16743] = 36'o000000000000; // 040547 (unused) RAM[16744] = 36'o000000000000; // 040550 (unused) RAM[16745] = 36'o000000000000; // 040551 (unused) RAM[16746] = 36'o000000000000; // 040552 (unused) RAM[16747] = 36'o000000000000; // 040553 (unused) RAM[16748] = 36'o000000000000; // 040554 (unused) RAM[16749] = 36'o000000000000; // 040555 (unused) RAM[16750] = 36'o000000000000; // 040556 (unused) RAM[16751] = 36'o000000000000; // 040557 (unused) RAM[16752] = 36'o000000000000; // 040560 (unused) RAM[16753] = 36'o000000000000; // 040561 (unused) RAM[16754] = 36'o000000000000; // 040562 (unused) RAM[16755] = 36'o000000000000; // 040563 (unused) RAM[16756] = 36'o000000000000; // 040564 (unused) RAM[16757] = 36'o000000000000; // 040565 (unused) RAM[16758] = 36'o000000000000; // 040566 (unused) RAM[16759] = 36'o000000000000; // 040567 (unused) RAM[16760] = 36'o000000000000; // 040570 (unused) RAM[16761] = 36'o000000000000; // 040571 (unused) RAM[16762] = 36'o000000000000; // 040572 (unused) RAM[16763] = 36'o000000000000; // 040573 (unused) RAM[16764] = 36'o000000000000; // 040574 (unused) RAM[16765] = 36'o000000000000; // 040575 (unused) RAM[16766] = 36'o000000000000; // 040576 (unused) RAM[16767] = 36'o000000000000; // 040577 (unused) RAM[16768] = 36'o000000000000; // 040600 (unused) RAM[16769] = 36'o000000000000; // 040601 (unused) RAM[16770] = 36'o000000000000; // 040602 (unused) RAM[16771] = 36'o000000000000; // 040603 (unused) RAM[16772] = 36'o000000000000; // 040604 (unused) RAM[16773] = 36'o000000000000; // 040605 (unused) RAM[16774] = 36'o000000000000; // 040606 (unused) RAM[16775] = 36'o000000000000; // 040607 (unused) RAM[16776] = 36'o000000000000; // 040610 (unused) RAM[16777] = 36'o000000000000; // 040611 (unused) RAM[16778] = 36'o000000000000; // 040612 (unused) RAM[16779] = 36'o000000000000; // 040613 (unused) RAM[16780] = 36'o000000000000; // 040614 (unused) RAM[16781] = 36'o000000000000; // 040615 (unused) RAM[16782] = 36'o000000000000; // 040616 (unused) RAM[16783] = 36'o000000000000; // 040617 (unused) RAM[16784] = 36'o000000000000; // 040620 (unused) RAM[16785] = 36'o000000000000; // 040621 (unused) RAM[16786] = 36'o000000000000; // 040622 (unused) RAM[16787] = 36'o000000000000; // 040623 (unused) RAM[16788] = 36'o000000000000; // 040624 (unused) RAM[16789] = 36'o000000000000; // 040625 (unused) RAM[16790] = 36'o000000000000; // 040626 (unused) RAM[16791] = 36'o000000000000; // 040627 (unused) RAM[16792] = 36'o000000000000; // 040630 (unused) RAM[16793] = 36'o000000000000; // 040631 (unused) RAM[16794] = 36'o000000000000; // 040632 (unused) RAM[16795] = 36'o000000000000; // 040633 (unused) RAM[16796] = 36'o000000000000; // 040634 (unused) RAM[16797] = 36'o000000000000; // 040635 (unused) RAM[16798] = 36'o000000000000; // 040636 (unused) RAM[16799] = 36'o000000000000; // 040637 (unused) RAM[16800] = 36'o000000000000; // 040640 (unused) RAM[16801] = 36'o000000000000; // 040641 (unused) RAM[16802] = 36'o000000000000; // 040642 (unused) RAM[16803] = 36'o000000000000; // 040643 (unused) RAM[16804] = 36'o000000000000; // 040644 (unused) RAM[16805] = 36'o000000000000; // 040645 (unused) RAM[16806] = 36'o000000000000; // 040646 (unused) RAM[16807] = 36'o000000000000; // 040647 (unused) RAM[16808] = 36'o000000000000; // 040650 (unused) RAM[16809] = 36'o000000000000; // 040651 (unused) RAM[16810] = 36'o000000000000; // 040652 (unused) RAM[16811] = 36'o000000000000; // 040653 (unused) RAM[16812] = 36'o000000000000; // 040654 (unused) RAM[16813] = 36'o000000000000; // 040655 (unused) RAM[16814] = 36'o000000000000; // 040656 (unused) RAM[16815] = 36'o000000000000; // 040657 (unused) RAM[16816] = 36'o000000000000; // 040660 (unused) RAM[16817] = 36'o000000000000; // 040661 (unused) RAM[16818] = 36'o000000000000; // 040662 (unused) RAM[16819] = 36'o000000000000; // 040663 (unused) RAM[16820] = 36'o000000000000; // 040664 (unused) RAM[16821] = 36'o000000000000; // 040665 (unused) RAM[16822] = 36'o000000000000; // 040666 (unused) RAM[16823] = 36'o000000000000; // 040667 (unused) RAM[16824] = 36'o000000000000; // 040670 (unused) RAM[16825] = 36'o000000000000; // 040671 (unused) RAM[16826] = 36'o000000000000; // 040672 (unused) RAM[16827] = 36'o000000000000; // 040673 (unused) RAM[16828] = 36'o000000000000; // 040674 (unused) RAM[16829] = 36'o000000000000; // 040675 (unused) RAM[16830] = 36'o000000000000; // 040676 (unused) RAM[16831] = 36'o000000000000; // 040677 (unused) RAM[16832] = 36'o000000000000; // 040700 (unused) RAM[16833] = 36'o000000000000; // 040701 (unused) RAM[16834] = 36'o000000000000; // 040702 (unused) RAM[16835] = 36'o000000000000; // 040703 (unused) RAM[16836] = 36'o000000000000; // 040704 (unused) RAM[16837] = 36'o000000000000; // 040705 (unused) RAM[16838] = 36'o000000000000; // 040706 (unused) RAM[16839] = 36'o000000000000; // 040707 (unused) RAM[16840] = 36'o000000000000; // 040710 (unused) RAM[16841] = 36'o000000000000; // 040711 (unused) RAM[16842] = 36'o000000000000; // 040712 (unused) RAM[16843] = 36'o000000000000; // 040713 (unused) RAM[16844] = 36'o000000000000; // 040714 (unused) RAM[16845] = 36'o000000000000; // 040715 (unused) RAM[16846] = 36'o000000000000; // 040716 (unused) RAM[16847] = 36'o000000000000; // 040717 (unused) RAM[16848] = 36'o000000000000; // 040720 (unused) RAM[16849] = 36'o000000000000; // 040721 (unused) RAM[16850] = 36'o000000000000; // 040722 (unused) RAM[16851] = 36'o000000000000; // 040723 (unused) RAM[16852] = 36'o000000000000; // 040724 (unused) RAM[16853] = 36'o000000000000; // 040725 (unused) RAM[16854] = 36'o000000000000; // 040726 (unused) RAM[16855] = 36'o000000000000; // 040727 (unused) RAM[16856] = 36'o000000000000; // 040730 (unused) RAM[16857] = 36'o000000000000; // 040731 (unused) RAM[16858] = 36'o000000000000; // 040732 (unused) RAM[16859] = 36'o000000000000; // 040733 (unused) RAM[16860] = 36'o000000000000; // 040734 (unused) RAM[16861] = 36'o000000000000; // 040735 (unused) RAM[16862] = 36'o000000000000; // 040736 (unused) RAM[16863] = 36'o000000000000; // 040737 (unused) RAM[16864] = 36'o000000000000; // 040740 (unused) RAM[16865] = 36'o000000000000; // 040741 (unused) RAM[16866] = 36'o000000000000; // 040742 (unused) RAM[16867] = 36'o000000000000; // 040743 (unused) RAM[16868] = 36'o000000000000; // 040744 (unused) RAM[16869] = 36'o000000000000; // 040745 (unused) RAM[16870] = 36'o000000000000; // 040746 (unused) RAM[16871] = 36'o000000000000; // 040747 (unused) RAM[16872] = 36'o000000000000; // 040750 (unused) RAM[16873] = 36'o000000000000; // 040751 (unused) RAM[16874] = 36'o000000000000; // 040752 (unused) RAM[16875] = 36'o000000000000; // 040753 (unused) RAM[16876] = 36'o000000000000; // 040754 (unused) RAM[16877] = 36'o000000000000; // 040755 (unused) RAM[16878] = 36'o000000000000; // 040756 (unused) RAM[16879] = 36'o000000000000; // 040757 (unused) RAM[16880] = 36'o000000000000; // 040760 (unused) RAM[16881] = 36'o000000000000; // 040761 (unused) RAM[16882] = 36'o000000000000; // 040762 (unused) RAM[16883] = 36'o000000000000; // 040763 (unused) RAM[16884] = 36'o000000000000; // 040764 (unused) RAM[16885] = 36'o000000000000; // 040765 (unused) RAM[16886] = 36'o000000000000; // 040766 (unused) RAM[16887] = 36'o000000000000; // 040767 (unused) RAM[16888] = 36'o000000000000; // 040770 (unused) RAM[16889] = 36'o000000000000; // 040771 (unused) RAM[16890] = 36'o000000000000; // 040772 (unused) RAM[16891] = 36'o000000000000; // 040773 (unused) RAM[16892] = 36'o000000000000; // 040774 (unused) RAM[16893] = 36'o000000000000; // 040775 (unused) RAM[16894] = 36'o000000000000; // 040776 (unused) RAM[16895] = 36'o000000000000; // 040777 (unused) RAM[16896] = 36'o000000000000; // 041000 (unused) RAM[16897] = 36'o000000000000; // 041001 (unused) RAM[16898] = 36'o000000000000; // 041002 (unused) RAM[16899] = 36'o000000000000; // 041003 (unused) RAM[16900] = 36'o000000000000; // 041004 (unused) RAM[16901] = 36'o000000000000; // 041005 (unused) RAM[16902] = 36'o000000000000; // 041006 (unused) RAM[16903] = 36'o000000000000; // 041007 (unused) RAM[16904] = 36'o000000000000; // 041010 (unused) RAM[16905] = 36'o000000000000; // 041011 (unused) RAM[16906] = 36'o000000000000; // 041012 (unused) RAM[16907] = 36'o000000000000; // 041013 (unused) RAM[16908] = 36'o000000000000; // 041014 (unused) RAM[16909] = 36'o000000000000; // 041015 (unused) RAM[16910] = 36'o000000000000; // 041016 (unused) RAM[16911] = 36'o000000000000; // 041017 (unused) RAM[16912] = 36'o000000000000; // 041020 (unused) RAM[16913] = 36'o000000000000; // 041021 (unused) RAM[16914] = 36'o000000000000; // 041022 (unused) RAM[16915] = 36'o000000000000; // 041023 (unused) RAM[16916] = 36'o000000000000; // 041024 (unused) RAM[16917] = 36'o000000000000; // 041025 (unused) RAM[16918] = 36'o000000000000; // 041026 (unused) RAM[16919] = 36'o000000000000; // 041027 (unused) RAM[16920] = 36'o000000000000; // 041030 (unused) RAM[16921] = 36'o000000000000; // 041031 (unused) RAM[16922] = 36'o000000000000; // 041032 (unused) RAM[16923] = 36'o000000000000; // 041033 (unused) RAM[16924] = 36'o000000000000; // 041034 (unused) RAM[16925] = 36'o000000000000; // 041035 (unused) RAM[16926] = 36'o000000000000; // 041036 (unused) RAM[16927] = 36'o000000000000; // 041037 (unused) RAM[16928] = 36'o000000000000; // 041040 (unused) RAM[16929] = 36'o000000000000; // 041041 (unused) RAM[16930] = 36'o000000000000; // 041042 (unused) RAM[16931] = 36'o000000000000; // 041043 (unused) RAM[16932] = 36'o000000000000; // 041044 (unused) RAM[16933] = 36'o000000000000; // 041045 (unused) RAM[16934] = 36'o000000000000; // 041046 (unused) RAM[16935] = 36'o000000000000; // 041047 (unused) RAM[16936] = 36'o000000000000; // 041050 (unused) RAM[16937] = 36'o000000000000; // 041051 (unused) RAM[16938] = 36'o000000000000; // 041052 (unused) RAM[16939] = 36'o000000000000; // 041053 (unused) RAM[16940] = 36'o000000000000; // 041054 (unused) RAM[16941] = 36'o000000000000; // 041055 (unused) RAM[16942] = 36'o000000000000; // 041056 (unused) RAM[16943] = 36'o000000000000; // 041057 (unused) RAM[16944] = 36'o000000000000; // 041060 (unused) RAM[16945] = 36'o000000000000; // 041061 (unused) RAM[16946] = 36'o000000000000; // 041062 (unused) RAM[16947] = 36'o000000000000; // 041063 (unused) RAM[16948] = 36'o000000000000; // 041064 (unused) RAM[16949] = 36'o000000000000; // 041065 (unused) RAM[16950] = 36'o000000000000; // 041066 (unused) RAM[16951] = 36'o000000000000; // 041067 (unused) RAM[16952] = 36'o000000000000; // 041070 (unused) RAM[16953] = 36'o000000000000; // 041071 (unused) RAM[16954] = 36'o000000000000; // 041072 (unused) RAM[16955] = 36'o000000000000; // 041073 (unused) RAM[16956] = 36'o000000000000; // 041074 (unused) RAM[16957] = 36'o000000000000; // 041075 (unused) RAM[16958] = 36'o000000000000; // 041076 (unused) RAM[16959] = 36'o000000000000; // 041077 (unused) RAM[16960] = 36'o000000000000; // 041100 (unused) RAM[16961] = 36'o000000000000; // 041101 (unused) RAM[16962] = 36'o000000000000; // 041102 (unused) RAM[16963] = 36'o000000000000; // 041103 (unused) RAM[16964] = 36'o000000000000; // 041104 (unused) RAM[16965] = 36'o000000000000; // 041105 (unused) RAM[16966] = 36'o000000000000; // 041106 (unused) RAM[16967] = 36'o000000000000; // 041107 (unused) RAM[16968] = 36'o000000000000; // 041110 (unused) RAM[16969] = 36'o000000000000; // 041111 (unused) RAM[16970] = 36'o000000000000; // 041112 (unused) RAM[16971] = 36'o000000000000; // 041113 (unused) RAM[16972] = 36'o000000000000; // 041114 (unused) RAM[16973] = 36'o000000000000; // 041115 (unused) RAM[16974] = 36'o000000000000; // 041116 (unused) RAM[16975] = 36'o000000000000; // 041117 (unused) RAM[16976] = 36'o000000000000; // 041120 (unused) RAM[16977] = 36'o000000000000; // 041121 (unused) RAM[16978] = 36'o000000000000; // 041122 (unused) RAM[16979] = 36'o000000000000; // 041123 (unused) RAM[16980] = 36'o000000000000; // 041124 (unused) RAM[16981] = 36'o000000000000; // 041125 (unused) RAM[16982] = 36'o000000000000; // 041126 (unused) RAM[16983] = 36'o000000000000; // 041127 (unused) RAM[16984] = 36'o000000000000; // 041130 (unused) RAM[16985] = 36'o000000000000; // 041131 (unused) RAM[16986] = 36'o000000000000; // 041132 (unused) RAM[16987] = 36'o000000000000; // 041133 (unused) RAM[16988] = 36'o000000000000; // 041134 (unused) RAM[16989] = 36'o000000000000; // 041135 (unused) RAM[16990] = 36'o000000000000; // 041136 (unused) RAM[16991] = 36'o000000000000; // 041137 (unused) RAM[16992] = 36'o000000000000; // 041140 (unused) RAM[16993] = 36'o000000000000; // 041141 (unused) RAM[16994] = 36'o000000000000; // 041142 (unused) RAM[16995] = 36'o000000000000; // 041143 (unused) RAM[16996] = 36'o000000000000; // 041144 (unused) RAM[16997] = 36'o000000000000; // 041145 (unused) RAM[16998] = 36'o000000000000; // 041146 (unused) RAM[16999] = 36'o000000000000; // 041147 (unused) RAM[17000] = 36'o000000000000; // 041150 (unused) RAM[17001] = 36'o000000000000; // 041151 (unused) RAM[17002] = 36'o000000000000; // 041152 (unused) RAM[17003] = 36'o000000000000; // 041153 (unused) RAM[17004] = 36'o000000000000; // 041154 (unused) RAM[17005] = 36'o000000000000; // 041155 (unused) RAM[17006] = 36'o000000000000; // 041156 (unused) RAM[17007] = 36'o000000000000; // 041157 (unused) RAM[17008] = 36'o000000000000; // 041160 (unused) RAM[17009] = 36'o000000000000; // 041161 (unused) RAM[17010] = 36'o000000000000; // 041162 (unused) RAM[17011] = 36'o000000000000; // 041163 (unused) RAM[17012] = 36'o000000000000; // 041164 (unused) RAM[17013] = 36'o000000000000; // 041165 (unused) RAM[17014] = 36'o000000000000; // 041166 (unused) RAM[17015] = 36'o000000000000; // 041167 (unused) RAM[17016] = 36'o000000000000; // 041170 (unused) RAM[17017] = 36'o000000000000; // 041171 (unused) RAM[17018] = 36'o000000000000; // 041172 (unused) RAM[17019] = 36'o000000000000; // 041173 (unused) RAM[17020] = 36'o000000000000; // 041174 (unused) RAM[17021] = 36'o000000000000; // 041175 (unused) RAM[17022] = 36'o000000000000; // 041176 (unused) RAM[17023] = 36'o000000000000; // 041177 (unused) RAM[17024] = 36'o000000000000; // 041200 (unused) RAM[17025] = 36'o000000000000; // 041201 (unused) RAM[17026] = 36'o000000000000; // 041202 (unused) RAM[17027] = 36'o000000000000; // 041203 (unused) RAM[17028] = 36'o000000000000; // 041204 (unused) RAM[17029] = 36'o000000000000; // 041205 (unused) RAM[17030] = 36'o000000000000; // 041206 (unused) RAM[17031] = 36'o000000000000; // 041207 (unused) RAM[17032] = 36'o000000000000; // 041210 (unused) RAM[17033] = 36'o000000000000; // 041211 (unused) RAM[17034] = 36'o000000000000; // 041212 (unused) RAM[17035] = 36'o000000000000; // 041213 (unused) RAM[17036] = 36'o000000000000; // 041214 (unused) RAM[17037] = 36'o000000000000; // 041215 (unused) RAM[17038] = 36'o000000000000; // 041216 (unused) RAM[17039] = 36'o000000000000; // 041217 (unused) RAM[17040] = 36'o000000000000; // 041220 (unused) RAM[17041] = 36'o000000000000; // 041221 (unused) RAM[17042] = 36'o000000000000; // 041222 (unused) RAM[17043] = 36'o000000000000; // 041223 (unused) RAM[17044] = 36'o000000000000; // 041224 (unused) RAM[17045] = 36'o000000000000; // 041225 (unused) RAM[17046] = 36'o000000000000; // 041226 (unused) RAM[17047] = 36'o000000000000; // 041227 (unused) RAM[17048] = 36'o000000000000; // 041230 (unused) RAM[17049] = 36'o000000000000; // 041231 (unused) RAM[17050] = 36'o000000000000; // 041232 (unused) RAM[17051] = 36'o000000000000; // 041233 (unused) RAM[17052] = 36'o000000000000; // 041234 (unused) RAM[17053] = 36'o000000000000; // 041235 (unused) RAM[17054] = 36'o000000000000; // 041236 (unused) RAM[17055] = 36'o000000000000; // 041237 (unused) RAM[17056] = 36'o000000000000; // 041240 (unused) RAM[17057] = 36'o000000000000; // 041241 (unused) RAM[17058] = 36'o000000000000; // 041242 (unused) RAM[17059] = 36'o000000000000; // 041243 (unused) RAM[17060] = 36'o000000000000; // 041244 (unused) RAM[17061] = 36'o000000000000; // 041245 (unused) RAM[17062] = 36'o000000000000; // 041246 (unused) RAM[17063] = 36'o000000000000; // 041247 (unused) RAM[17064] = 36'o000000000000; // 041250 (unused) RAM[17065] = 36'o000000000000; // 041251 (unused) RAM[17066] = 36'o000000000000; // 041252 (unused) RAM[17067] = 36'o000000000000; // 041253 (unused) RAM[17068] = 36'o000000000000; // 041254 (unused) RAM[17069] = 36'o000000000000; // 041255 (unused) RAM[17070] = 36'o000000000000; // 041256 (unused) RAM[17071] = 36'o000000000000; // 041257 (unused) RAM[17072] = 36'o000000000000; // 041260 (unused) RAM[17073] = 36'o000000000000; // 041261 (unused) RAM[17074] = 36'o000000000000; // 041262 (unused) RAM[17075] = 36'o000000000000; // 041263 (unused) RAM[17076] = 36'o000000000000; // 041264 (unused) RAM[17077] = 36'o000000000000; // 041265 (unused) RAM[17078] = 36'o000000000000; // 041266 (unused) RAM[17079] = 36'o000000000000; // 041267 (unused) RAM[17080] = 36'o000000000000; // 041270 (unused) RAM[17081] = 36'o000000000000; // 041271 (unused) RAM[17082] = 36'o000000000000; // 041272 (unused) RAM[17083] = 36'o000000000000; // 041273 (unused) RAM[17084] = 36'o000000000000; // 041274 (unused) RAM[17085] = 36'o000000000000; // 041275 (unused) RAM[17086] = 36'o000000000000; // 041276 (unused) RAM[17087] = 36'o000000000000; // 041277 (unused) RAM[17088] = 36'o000000000000; // 041300 (unused) RAM[17089] = 36'o000000000000; // 041301 (unused) RAM[17090] = 36'o000000000000; // 041302 (unused) RAM[17091] = 36'o000000000000; // 041303 (unused) RAM[17092] = 36'o000000000000; // 041304 (unused) RAM[17093] = 36'o000000000000; // 041305 (unused) RAM[17094] = 36'o000000000000; // 041306 (unused) RAM[17095] = 36'o000000000000; // 041307 (unused) RAM[17096] = 36'o000000000000; // 041310 (unused) RAM[17097] = 36'o000000000000; // 041311 (unused) RAM[17098] = 36'o000000000000; // 041312 (unused) RAM[17099] = 36'o000000000000; // 041313 (unused) RAM[17100] = 36'o000000000000; // 041314 (unused) RAM[17101] = 36'o000000000000; // 041315 (unused) RAM[17102] = 36'o000000000000; // 041316 (unused) RAM[17103] = 36'o000000000000; // 041317 (unused) RAM[17104] = 36'o000000000000; // 041320 (unused) RAM[17105] = 36'o000000000000; // 041321 (unused) RAM[17106] = 36'o000000000000; // 041322 (unused) RAM[17107] = 36'o000000000000; // 041323 (unused) RAM[17108] = 36'o000000000000; // 041324 (unused) RAM[17109] = 36'o000000000000; // 041325 (unused) RAM[17110] = 36'o000000000000; // 041326 (unused) RAM[17111] = 36'o000000000000; // 041327 (unused) RAM[17112] = 36'o000000000000; // 041330 (unused) RAM[17113] = 36'o000000000000; // 041331 (unused) RAM[17114] = 36'o000000000000; // 041332 (unused) RAM[17115] = 36'o000000000000; // 041333 (unused) RAM[17116] = 36'o000000000000; // 041334 (unused) RAM[17117] = 36'o000000000000; // 041335 (unused) RAM[17118] = 36'o000000000000; // 041336 (unused) RAM[17119] = 36'o000000000000; // 041337 (unused) RAM[17120] = 36'o000000000000; // 041340 (unused) RAM[17121] = 36'o000000000000; // 041341 (unused) RAM[17122] = 36'o000000000000; // 041342 (unused) RAM[17123] = 36'o000000000000; // 041343 (unused) RAM[17124] = 36'o000000000000; // 041344 (unused) RAM[17125] = 36'o000000000000; // 041345 (unused) RAM[17126] = 36'o000000000000; // 041346 (unused) RAM[17127] = 36'o000000000000; // 041347 (unused) RAM[17128] = 36'o000000000000; // 041350 (unused) RAM[17129] = 36'o000000000000; // 041351 (unused) RAM[17130] = 36'o000000000000; // 041352 (unused) RAM[17131] = 36'o000000000000; // 041353 (unused) RAM[17132] = 36'o000000000000; // 041354 (unused) RAM[17133] = 36'o000000000000; // 041355 (unused) RAM[17134] = 36'o000000000000; // 041356 (unused) RAM[17135] = 36'o000000000000; // 041357 (unused) RAM[17136] = 36'o000000000000; // 041360 (unused) RAM[17137] = 36'o000000000000; // 041361 (unused) RAM[17138] = 36'o000000000000; // 041362 (unused) RAM[17139] = 36'o000000000000; // 041363 (unused) RAM[17140] = 36'o000000000000; // 041364 (unused) RAM[17141] = 36'o000000000000; // 041365 (unused) RAM[17142] = 36'o000000000000; // 041366 (unused) RAM[17143] = 36'o000000000000; // 041367 (unused) RAM[17144] = 36'o000000000000; // 041370 (unused) RAM[17145] = 36'o000000000000; // 041371 (unused) RAM[17146] = 36'o000000000000; // 041372 (unused) RAM[17147] = 36'o000000000000; // 041373 (unused) RAM[17148] = 36'o000000000000; // 041374 (unused) RAM[17149] = 36'o000000000000; // 041375 (unused) RAM[17150] = 36'o000000000000; // 041376 (unused) RAM[17151] = 36'o000000000000; // 041377 (unused) RAM[17152] = 36'o000000000000; // 041400 (unused) RAM[17153] = 36'o000000000000; // 041401 (unused) RAM[17154] = 36'o000000000000; // 041402 (unused) RAM[17155] = 36'o000000000000; // 041403 (unused) RAM[17156] = 36'o000000000000; // 041404 (unused) RAM[17157] = 36'o000000000000; // 041405 (unused) RAM[17158] = 36'o000000000000; // 041406 (unused) RAM[17159] = 36'o000000000000; // 041407 (unused) RAM[17160] = 36'o000000000000; // 041410 (unused) RAM[17161] = 36'o000000000000; // 041411 (unused) RAM[17162] = 36'o000000000000; // 041412 (unused) RAM[17163] = 36'o000000000000; // 041413 (unused) RAM[17164] = 36'o000000000000; // 041414 (unused) RAM[17165] = 36'o000000000000; // 041415 (unused) RAM[17166] = 36'o000000000000; // 041416 (unused) RAM[17167] = 36'o000000000000; // 041417 (unused) RAM[17168] = 36'o000000000000; // 041420 (unused) RAM[17169] = 36'o000000000000; // 041421 (unused) RAM[17170] = 36'o000000000000; // 041422 (unused) RAM[17171] = 36'o000000000000; // 041423 (unused) RAM[17172] = 36'o000000000000; // 041424 (unused) RAM[17173] = 36'o000000000000; // 041425 (unused) RAM[17174] = 36'o000000000000; // 041426 (unused) RAM[17175] = 36'o000000000000; // 041427 (unused) RAM[17176] = 36'o000000000000; // 041430 (unused) RAM[17177] = 36'o000000000000; // 041431 (unused) RAM[17178] = 36'o000000000000; // 041432 (unused) RAM[17179] = 36'o000000000000; // 041433 (unused) RAM[17180] = 36'o000000000000; // 041434 (unused) RAM[17181] = 36'o000000000000; // 041435 (unused) RAM[17182] = 36'o000000000000; // 041436 (unused) RAM[17183] = 36'o000000000000; // 041437 (unused) RAM[17184] = 36'o000000000000; // 041440 (unused) RAM[17185] = 36'o000000000000; // 041441 (unused) RAM[17186] = 36'o000000000000; // 041442 (unused) RAM[17187] = 36'o000000000000; // 041443 (unused) RAM[17188] = 36'o000000000000; // 041444 (unused) RAM[17189] = 36'o000000000000; // 041445 (unused) RAM[17190] = 36'o000000000000; // 041446 (unused) RAM[17191] = 36'o000000000000; // 041447 (unused) RAM[17192] = 36'o000000000000; // 041450 (unused) RAM[17193] = 36'o000000000000; // 041451 (unused) RAM[17194] = 36'o000000000000; // 041452 (unused) RAM[17195] = 36'o000000000000; // 041453 (unused) RAM[17196] = 36'o000000000000; // 041454 (unused) RAM[17197] = 36'o000000000000; // 041455 (unused) RAM[17198] = 36'o000000000000; // 041456 (unused) RAM[17199] = 36'o000000000000; // 041457 (unused) RAM[17200] = 36'o000000000000; // 041460 (unused) RAM[17201] = 36'o000000000000; // 041461 (unused) RAM[17202] = 36'o000000000000; // 041462 (unused) RAM[17203] = 36'o000000000000; // 041463 (unused) RAM[17204] = 36'o000000000000; // 041464 (unused) RAM[17205] = 36'o000000000000; // 041465 (unused) RAM[17206] = 36'o000000000000; // 041466 (unused) RAM[17207] = 36'o000000000000; // 041467 (unused) RAM[17208] = 36'o000000000000; // 041470 (unused) RAM[17209] = 36'o000000000000; // 041471 (unused) RAM[17210] = 36'o000000000000; // 041472 (unused) RAM[17211] = 36'o000000000000; // 041473 (unused) RAM[17212] = 36'o000000000000; // 041474 (unused) RAM[17213] = 36'o000000000000; // 041475 (unused) RAM[17214] = 36'o000000000000; // 041476 (unused) RAM[17215] = 36'o000000000000; // 041477 (unused) RAM[17216] = 36'o000000000000; // 041500 (unused) RAM[17217] = 36'o000000000000; // 041501 (unused) RAM[17218] = 36'o000000000000; // 041502 (unused) RAM[17219] = 36'o000000000000; // 041503 (unused) RAM[17220] = 36'o000000000000; // 041504 (unused) RAM[17221] = 36'o000000000000; // 041505 (unused) RAM[17222] = 36'o000000000000; // 041506 (unused) RAM[17223] = 36'o000000000000; // 041507 (unused) RAM[17224] = 36'o000000000000; // 041510 (unused) RAM[17225] = 36'o000000000000; // 041511 (unused) RAM[17226] = 36'o000000000000; // 041512 (unused) RAM[17227] = 36'o000000000000; // 041513 (unused) RAM[17228] = 36'o000000000000; // 041514 (unused) RAM[17229] = 36'o000000000000; // 041515 (unused) RAM[17230] = 36'o000000000000; // 041516 (unused) RAM[17231] = 36'o000000000000; // 041517 (unused) RAM[17232] = 36'o000000000000; // 041520 (unused) RAM[17233] = 36'o000000000000; // 041521 (unused) RAM[17234] = 36'o000000000000; // 041522 (unused) RAM[17235] = 36'o000000000000; // 041523 (unused) RAM[17236] = 36'o000000000000; // 041524 (unused) RAM[17237] = 36'o000000000000; // 041525 (unused) RAM[17238] = 36'o000000000000; // 041526 (unused) RAM[17239] = 36'o000000000000; // 041527 (unused) RAM[17240] = 36'o000000000000; // 041530 (unused) RAM[17241] = 36'o000000000000; // 041531 (unused) RAM[17242] = 36'o000000000000; // 041532 (unused) RAM[17243] = 36'o000000000000; // 041533 (unused) RAM[17244] = 36'o000000000000; // 041534 (unused) RAM[17245] = 36'o000000000000; // 041535 (unused) RAM[17246] = 36'o000000000000; // 041536 (unused) RAM[17247] = 36'o000000000000; // 041537 (unused) RAM[17248] = 36'o000000000000; // 041540 (unused) RAM[17249] = 36'o000000000000; // 041541 (unused) RAM[17250] = 36'o000000000000; // 041542 (unused) RAM[17251] = 36'o000000000000; // 041543 (unused) RAM[17252] = 36'o000000000000; // 041544 (unused) RAM[17253] = 36'o000000000000; // 041545 (unused) RAM[17254] = 36'o000000000000; // 041546 (unused) RAM[17255] = 36'o000000000000; // 041547 (unused) RAM[17256] = 36'o000000000000; // 041550 (unused) RAM[17257] = 36'o000000000000; // 041551 (unused) RAM[17258] = 36'o000000000000; // 041552 (unused) RAM[17259] = 36'o000000000000; // 041553 (unused) RAM[17260] = 36'o000000000000; // 041554 (unused) RAM[17261] = 36'o000000000000; // 041555 (unused) RAM[17262] = 36'o000000000000; // 041556 (unused) RAM[17263] = 36'o000000000000; // 041557 (unused) RAM[17264] = 36'o000000000000; // 041560 (unused) RAM[17265] = 36'o000000000000; // 041561 (unused) RAM[17266] = 36'o000000000000; // 041562 (unused) RAM[17267] = 36'o000000000000; // 041563 (unused) RAM[17268] = 36'o000000000000; // 041564 (unused) RAM[17269] = 36'o000000000000; // 041565 (unused) RAM[17270] = 36'o000000000000; // 041566 (unused) RAM[17271] = 36'o000000000000; // 041567 (unused) RAM[17272] = 36'o000000000000; // 041570 (unused) RAM[17273] = 36'o000000000000; // 041571 (unused) RAM[17274] = 36'o000000000000; // 041572 (unused) RAM[17275] = 36'o000000000000; // 041573 (unused) RAM[17276] = 36'o000000000000; // 041574 (unused) RAM[17277] = 36'o000000000000; // 041575 (unused) RAM[17278] = 36'o000000000000; // 041576 (unused) RAM[17279] = 36'o000000000000; // 041577 (unused) RAM[17280] = 36'o000000000000; // 041600 (unused) RAM[17281] = 36'o000000000000; // 041601 (unused) RAM[17282] = 36'o000000000000; // 041602 (unused) RAM[17283] = 36'o000000000000; // 041603 (unused) RAM[17284] = 36'o000000000000; // 041604 (unused) RAM[17285] = 36'o000000000000; // 041605 (unused) RAM[17286] = 36'o000000000000; // 041606 (unused) RAM[17287] = 36'o000000000000; // 041607 (unused) RAM[17288] = 36'o000000000000; // 041610 (unused) RAM[17289] = 36'o000000000000; // 041611 (unused) RAM[17290] = 36'o000000000000; // 041612 (unused) RAM[17291] = 36'o000000000000; // 041613 (unused) RAM[17292] = 36'o000000000000; // 041614 (unused) RAM[17293] = 36'o000000000000; // 041615 (unused) RAM[17294] = 36'o000000000000; // 041616 (unused) RAM[17295] = 36'o000000000000; // 041617 (unused) RAM[17296] = 36'o000000000000; // 041620 (unused) RAM[17297] = 36'o000000000000; // 041621 (unused) RAM[17298] = 36'o000000000000; // 041622 (unused) RAM[17299] = 36'o000000000000; // 041623 (unused) RAM[17300] = 36'o000000000000; // 041624 (unused) RAM[17301] = 36'o000000000000; // 041625 (unused) RAM[17302] = 36'o000000000000; // 041626 (unused) RAM[17303] = 36'o000000000000; // 041627 (unused) RAM[17304] = 36'o000000000000; // 041630 (unused) RAM[17305] = 36'o000000000000; // 041631 (unused) RAM[17306] = 36'o000000000000; // 041632 (unused) RAM[17307] = 36'o000000000000; // 041633 (unused) RAM[17308] = 36'o000000000000; // 041634 (unused) RAM[17309] = 36'o000000000000; // 041635 (unused) RAM[17310] = 36'o000000000000; // 041636 (unused) RAM[17311] = 36'o000000000000; // 041637 (unused) RAM[17312] = 36'o000000000000; // 041640 (unused) RAM[17313] = 36'o000000000000; // 041641 (unused) RAM[17314] = 36'o000000000000; // 041642 (unused) RAM[17315] = 36'o000000000000; // 041643 (unused) RAM[17316] = 36'o000000000000; // 041644 (unused) RAM[17317] = 36'o000000000000; // 041645 (unused) RAM[17318] = 36'o000000000000; // 041646 (unused) RAM[17319] = 36'o000000000000; // 041647 (unused) RAM[17320] = 36'o000000000000; // 041650 (unused) RAM[17321] = 36'o000000000000; // 041651 (unused) RAM[17322] = 36'o000000000000; // 041652 (unused) RAM[17323] = 36'o000000000000; // 041653 (unused) RAM[17324] = 36'o000000000000; // 041654 (unused) RAM[17325] = 36'o000000000000; // 041655 (unused) RAM[17326] = 36'o000000000000; // 041656 (unused) RAM[17327] = 36'o000000000000; // 041657 (unused) RAM[17328] = 36'o000000000000; // 041660 (unused) RAM[17329] = 36'o000000000000; // 041661 (unused) RAM[17330] = 36'o000000000000; // 041662 (unused) RAM[17331] = 36'o000000000000; // 041663 (unused) RAM[17332] = 36'o000000000000; // 041664 (unused) RAM[17333] = 36'o000000000000; // 041665 (unused) RAM[17334] = 36'o000000000000; // 041666 (unused) RAM[17335] = 36'o000000000000; // 041667 (unused) RAM[17336] = 36'o000000000000; // 041670 (unused) RAM[17337] = 36'o000000000000; // 041671 (unused) RAM[17338] = 36'o000000000000; // 041672 (unused) RAM[17339] = 36'o000000000000; // 041673 (unused) RAM[17340] = 36'o000000000000; // 041674 (unused) RAM[17341] = 36'o000000000000; // 041675 (unused) RAM[17342] = 36'o000000000000; // 041676 (unused) RAM[17343] = 36'o000000000000; // 041677 (unused) RAM[17344] = 36'o000000000000; // 041700 (unused) RAM[17345] = 36'o000000000000; // 041701 (unused) RAM[17346] = 36'o000000000000; // 041702 (unused) RAM[17347] = 36'o000000000000; // 041703 (unused) RAM[17348] = 36'o000000000000; // 041704 (unused) RAM[17349] = 36'o000000000000; // 041705 (unused) RAM[17350] = 36'o000000000000; // 041706 (unused) RAM[17351] = 36'o000000000000; // 041707 (unused) RAM[17352] = 36'o000000000000; // 041710 (unused) RAM[17353] = 36'o000000000000; // 041711 (unused) RAM[17354] = 36'o000000000000; // 041712 (unused) RAM[17355] = 36'o000000000000; // 041713 (unused) RAM[17356] = 36'o000000000000; // 041714 (unused) RAM[17357] = 36'o000000000000; // 041715 (unused) RAM[17358] = 36'o000000000000; // 041716 (unused) RAM[17359] = 36'o000000000000; // 041717 (unused) RAM[17360] = 36'o000000000000; // 041720 (unused) RAM[17361] = 36'o000000000000; // 041721 (unused) RAM[17362] = 36'o000000000000; // 041722 (unused) RAM[17363] = 36'o000000000000; // 041723 (unused) RAM[17364] = 36'o000000000000; // 041724 (unused) RAM[17365] = 36'o000000000000; // 041725 (unused) RAM[17366] = 36'o000000000000; // 041726 (unused) RAM[17367] = 36'o000000000000; // 041727 (unused) RAM[17368] = 36'o000000000000; // 041730 (unused) RAM[17369] = 36'o000000000000; // 041731 (unused) RAM[17370] = 36'o000000000000; // 041732 (unused) RAM[17371] = 36'o000000000000; // 041733 (unused) RAM[17372] = 36'o000000000000; // 041734 (unused) RAM[17373] = 36'o000000000000; // 041735 (unused) RAM[17374] = 36'o000000000000; // 041736 (unused) RAM[17375] = 36'o000000000000; // 041737 (unused) RAM[17376] = 36'o000000000000; // 041740 (unused) RAM[17377] = 36'o000000000000; // 041741 (unused) RAM[17378] = 36'o000000000000; // 041742 (unused) RAM[17379] = 36'o000000000000; // 041743 (unused) RAM[17380] = 36'o000000000000; // 041744 (unused) RAM[17381] = 36'o000000000000; // 041745 (unused) RAM[17382] = 36'o000000000000; // 041746 (unused) RAM[17383] = 36'o000000000000; // 041747 (unused) RAM[17384] = 36'o000000000000; // 041750 (unused) RAM[17385] = 36'o000000000000; // 041751 (unused) RAM[17386] = 36'o000000000000; // 041752 (unused) RAM[17387] = 36'o000000000000; // 041753 (unused) RAM[17388] = 36'o000000000000; // 041754 (unused) RAM[17389] = 36'o000000000000; // 041755 (unused) RAM[17390] = 36'o000000000000; // 041756 (unused) RAM[17391] = 36'o000000000000; // 041757 (unused) RAM[17392] = 36'o000000000000; // 041760 (unused) RAM[17393] = 36'o000000000000; // 041761 (unused) RAM[17394] = 36'o000000000000; // 041762 (unused) RAM[17395] = 36'o000000000000; // 041763 (unused) RAM[17396] = 36'o000000000000; // 041764 (unused) RAM[17397] = 36'o000000000000; // 041765 (unused) RAM[17398] = 36'o000000000000; // 041766 (unused) RAM[17399] = 36'o000000000000; // 041767 (unused) RAM[17400] = 36'o000000000000; // 041770 (unused) RAM[17401] = 36'o000000000000; // 041771 (unused) RAM[17402] = 36'o000000000000; // 041772 (unused) RAM[17403] = 36'o000000000000; // 041773 (unused) RAM[17404] = 36'o000000000000; // 041774 (unused) RAM[17405] = 36'o000000000000; // 041775 (unused) RAM[17406] = 36'o000000000000; // 041776 (unused) RAM[17407] = 36'o000000000000; // 041777 (unused) RAM[17408] = 36'o000000000000; // 042000 (unused) RAM[17409] = 36'o000000000000; // 042001 (unused) RAM[17410] = 36'o000000000000; // 042002 (unused) RAM[17411] = 36'o000000000000; // 042003 (unused) RAM[17412] = 36'o000000000000; // 042004 (unused) RAM[17413] = 36'o000000000000; // 042005 (unused) RAM[17414] = 36'o000000000000; // 042006 (unused) RAM[17415] = 36'o000000000000; // 042007 (unused) RAM[17416] = 36'o000000000000; // 042010 (unused) RAM[17417] = 36'o000000000000; // 042011 (unused) RAM[17418] = 36'o000000000000; // 042012 (unused) RAM[17419] = 36'o000000000000; // 042013 (unused) RAM[17420] = 36'o000000000000; // 042014 (unused) RAM[17421] = 36'o000000000000; // 042015 (unused) RAM[17422] = 36'o000000000000; // 042016 (unused) RAM[17423] = 36'o000000000000; // 042017 (unused) RAM[17424] = 36'o000000000000; // 042020 (unused) RAM[17425] = 36'o000000000000; // 042021 (unused) RAM[17426] = 36'o000000000000; // 042022 (unused) RAM[17427] = 36'o000000000000; // 042023 (unused) RAM[17428] = 36'o000000000000; // 042024 (unused) RAM[17429] = 36'o000000000000; // 042025 (unused) RAM[17430] = 36'o000000000000; // 042026 (unused) RAM[17431] = 36'o000000000000; // 042027 (unused) RAM[17432] = 36'o000000000000; // 042030 (unused) RAM[17433] = 36'o000000000000; // 042031 (unused) RAM[17434] = 36'o000000000000; // 042032 (unused) RAM[17435] = 36'o000000000000; // 042033 (unused) RAM[17436] = 36'o000000000000; // 042034 (unused) RAM[17437] = 36'o000000000000; // 042035 (unused) RAM[17438] = 36'o000000000000; // 042036 (unused) RAM[17439] = 36'o000000000000; // 042037 (unused) RAM[17440] = 36'o000000000000; // 042040 (unused) RAM[17441] = 36'o000000000000; // 042041 (unused) RAM[17442] = 36'o000000000000; // 042042 (unused) RAM[17443] = 36'o000000000000; // 042043 (unused) RAM[17444] = 36'o000000000000; // 042044 (unused) RAM[17445] = 36'o000000000000; // 042045 (unused) RAM[17446] = 36'o000000000000; // 042046 (unused) RAM[17447] = 36'o000000000000; // 042047 (unused) RAM[17448] = 36'o000000000000; // 042050 (unused) RAM[17449] = 36'o000000000000; // 042051 (unused) RAM[17450] = 36'o000000000000; // 042052 (unused) RAM[17451] = 36'o000000000000; // 042053 (unused) RAM[17452] = 36'o000000000000; // 042054 (unused) RAM[17453] = 36'o000000000000; // 042055 (unused) RAM[17454] = 36'o000000000000; // 042056 (unused) RAM[17455] = 36'o000000000000; // 042057 (unused) RAM[17456] = 36'o000000000000; // 042060 (unused) RAM[17457] = 36'o000000000000; // 042061 (unused) RAM[17458] = 36'o000000000000; // 042062 (unused) RAM[17459] = 36'o000000000000; // 042063 (unused) RAM[17460] = 36'o000000000000; // 042064 (unused) RAM[17461] = 36'o000000000000; // 042065 (unused) RAM[17462] = 36'o000000000000; // 042066 (unused) RAM[17463] = 36'o000000000000; // 042067 (unused) RAM[17464] = 36'o000000000000; // 042070 (unused) RAM[17465] = 36'o000000000000; // 042071 (unused) RAM[17466] = 36'o000000000000; // 042072 (unused) RAM[17467] = 36'o000000000000; // 042073 (unused) RAM[17468] = 36'o000000000000; // 042074 (unused) RAM[17469] = 36'o000000000000; // 042075 (unused) RAM[17470] = 36'o000000000000; // 042076 (unused) RAM[17471] = 36'o000000000000; // 042077 (unused) RAM[17472] = 36'o000000000000; // 042100 (unused) RAM[17473] = 36'o000000000000; // 042101 (unused) RAM[17474] = 36'o000000000000; // 042102 (unused) RAM[17475] = 36'o000000000000; // 042103 (unused) RAM[17476] = 36'o000000000000; // 042104 (unused) RAM[17477] = 36'o000000000000; // 042105 (unused) RAM[17478] = 36'o000000000000; // 042106 (unused) RAM[17479] = 36'o000000000000; // 042107 (unused) RAM[17480] = 36'o000000000000; // 042110 (unused) RAM[17481] = 36'o000000000000; // 042111 (unused) RAM[17482] = 36'o000000000000; // 042112 (unused) RAM[17483] = 36'o000000000000; // 042113 (unused) RAM[17484] = 36'o000000000000; // 042114 (unused) RAM[17485] = 36'o000000000000; // 042115 (unused) RAM[17486] = 36'o000000000000; // 042116 (unused) RAM[17487] = 36'o000000000000; // 042117 (unused) RAM[17488] = 36'o000000000000; // 042120 (unused) RAM[17489] = 36'o000000000000; // 042121 (unused) RAM[17490] = 36'o000000000000; // 042122 (unused) RAM[17491] = 36'o000000000000; // 042123 (unused) RAM[17492] = 36'o000000000000; // 042124 (unused) RAM[17493] = 36'o000000000000; // 042125 (unused) RAM[17494] = 36'o000000000000; // 042126 (unused) RAM[17495] = 36'o000000000000; // 042127 (unused) RAM[17496] = 36'o000000000000; // 042130 (unused) RAM[17497] = 36'o000000000000; // 042131 (unused) RAM[17498] = 36'o000000000000; // 042132 (unused) RAM[17499] = 36'o000000000000; // 042133 (unused) RAM[17500] = 36'o000000000000; // 042134 (unused) RAM[17501] = 36'o000000000000; // 042135 (unused) RAM[17502] = 36'o000000000000; // 042136 (unused) RAM[17503] = 36'o000000000000; // 042137 (unused) RAM[17504] = 36'o000000000000; // 042140 (unused) RAM[17505] = 36'o000000000000; // 042141 (unused) RAM[17506] = 36'o000000000000; // 042142 (unused) RAM[17507] = 36'o000000000000; // 042143 (unused) RAM[17508] = 36'o000000000000; // 042144 (unused) RAM[17509] = 36'o000000000000; // 042145 (unused) RAM[17510] = 36'o000000000000; // 042146 (unused) RAM[17511] = 36'o000000000000; // 042147 (unused) RAM[17512] = 36'o000000000000; // 042150 (unused) RAM[17513] = 36'o000000000000; // 042151 (unused) RAM[17514] = 36'o000000000000; // 042152 (unused) RAM[17515] = 36'o000000000000; // 042153 (unused) RAM[17516] = 36'o000000000000; // 042154 (unused) RAM[17517] = 36'o000000000000; // 042155 (unused) RAM[17518] = 36'o000000000000; // 042156 (unused) RAM[17519] = 36'o000000000000; // 042157 (unused) RAM[17520] = 36'o000000000000; // 042160 (unused) RAM[17521] = 36'o000000000000; // 042161 (unused) RAM[17522] = 36'o000000000000; // 042162 (unused) RAM[17523] = 36'o000000000000; // 042163 (unused) RAM[17524] = 36'o000000000000; // 042164 (unused) RAM[17525] = 36'o000000000000; // 042165 (unused) RAM[17526] = 36'o000000000000; // 042166 (unused) RAM[17527] = 36'o000000000000; // 042167 (unused) RAM[17528] = 36'o000000000000; // 042170 (unused) RAM[17529] = 36'o000000000000; // 042171 (unused) RAM[17530] = 36'o000000000000; // 042172 (unused) RAM[17531] = 36'o000000000000; // 042173 (unused) RAM[17532] = 36'o000000000000; // 042174 (unused) RAM[17533] = 36'o000000000000; // 042175 (unused) RAM[17534] = 36'o000000000000; // 042176 (unused) RAM[17535] = 36'o000000000000; // 042177 (unused) RAM[17536] = 36'o000000000000; // 042200 (unused) RAM[17537] = 36'o000000000000; // 042201 (unused) RAM[17538] = 36'o000000000000; // 042202 (unused) RAM[17539] = 36'o000000000000; // 042203 (unused) RAM[17540] = 36'o000000000000; // 042204 (unused) RAM[17541] = 36'o000000000000; // 042205 (unused) RAM[17542] = 36'o000000000000; // 042206 (unused) RAM[17543] = 36'o000000000000; // 042207 (unused) RAM[17544] = 36'o000000000000; // 042210 (unused) RAM[17545] = 36'o000000000000; // 042211 (unused) RAM[17546] = 36'o000000000000; // 042212 (unused) RAM[17547] = 36'o000000000000; // 042213 (unused) RAM[17548] = 36'o000000000000; // 042214 (unused) RAM[17549] = 36'o000000000000; // 042215 (unused) RAM[17550] = 36'o000000000000; // 042216 (unused) RAM[17551] = 36'o000000000000; // 042217 (unused) RAM[17552] = 36'o000000000000; // 042220 (unused) RAM[17553] = 36'o000000000000; // 042221 (unused) RAM[17554] = 36'o000000000000; // 042222 (unused) RAM[17555] = 36'o000000000000; // 042223 (unused) RAM[17556] = 36'o000000000000; // 042224 (unused) RAM[17557] = 36'o000000000000; // 042225 (unused) RAM[17558] = 36'o000000000000; // 042226 (unused) RAM[17559] = 36'o000000000000; // 042227 (unused) RAM[17560] = 36'o000000000000; // 042230 (unused) RAM[17561] = 36'o000000000000; // 042231 (unused) RAM[17562] = 36'o000000000000; // 042232 (unused) RAM[17563] = 36'o000000000000; // 042233 (unused) RAM[17564] = 36'o000000000000; // 042234 (unused) RAM[17565] = 36'o000000000000; // 042235 (unused) RAM[17566] = 36'o000000000000; // 042236 (unused) RAM[17567] = 36'o000000000000; // 042237 (unused) RAM[17568] = 36'o000000000000; // 042240 (unused) RAM[17569] = 36'o000000000000; // 042241 (unused) RAM[17570] = 36'o000000000000; // 042242 (unused) RAM[17571] = 36'o000000000000; // 042243 (unused) RAM[17572] = 36'o000000000000; // 042244 (unused) RAM[17573] = 36'o000000000000; // 042245 (unused) RAM[17574] = 36'o000000000000; // 042246 (unused) RAM[17575] = 36'o000000000000; // 042247 (unused) RAM[17576] = 36'o000000000000; // 042250 (unused) RAM[17577] = 36'o000000000000; // 042251 (unused) RAM[17578] = 36'o000000000000; // 042252 (unused) RAM[17579] = 36'o000000000000; // 042253 (unused) RAM[17580] = 36'o000000000000; // 042254 (unused) RAM[17581] = 36'o000000000000; // 042255 (unused) RAM[17582] = 36'o000000000000; // 042256 (unused) RAM[17583] = 36'o000000000000; // 042257 (unused) RAM[17584] = 36'o000000000000; // 042260 (unused) RAM[17585] = 36'o000000000000; // 042261 (unused) RAM[17586] = 36'o000000000000; // 042262 (unused) RAM[17587] = 36'o000000000000; // 042263 (unused) RAM[17588] = 36'o000000000000; // 042264 (unused) RAM[17589] = 36'o000000000000; // 042265 (unused) RAM[17590] = 36'o000000000000; // 042266 (unused) RAM[17591] = 36'o000000000000; // 042267 (unused) RAM[17592] = 36'o000000000000; // 042270 (unused) RAM[17593] = 36'o000000000000; // 042271 (unused) RAM[17594] = 36'o000000000000; // 042272 (unused) RAM[17595] = 36'o000000000000; // 042273 (unused) RAM[17596] = 36'o000000000000; // 042274 (unused) RAM[17597] = 36'o000000000000; // 042275 (unused) RAM[17598] = 36'o000000000000; // 042276 (unused) RAM[17599] = 36'o000000000000; // 042277 (unused) RAM[17600] = 36'o000000000000; // 042300 (unused) RAM[17601] = 36'o000000000000; // 042301 (unused) RAM[17602] = 36'o000000000000; // 042302 (unused) RAM[17603] = 36'o000000000000; // 042303 (unused) RAM[17604] = 36'o000000000000; // 042304 (unused) RAM[17605] = 36'o000000000000; // 042305 (unused) RAM[17606] = 36'o000000000000; // 042306 (unused) RAM[17607] = 36'o000000000000; // 042307 (unused) RAM[17608] = 36'o000000000000; // 042310 (unused) RAM[17609] = 36'o000000000000; // 042311 (unused) RAM[17610] = 36'o000000000000; // 042312 (unused) RAM[17611] = 36'o000000000000; // 042313 (unused) RAM[17612] = 36'o000000000000; // 042314 (unused) RAM[17613] = 36'o000000000000; // 042315 (unused) RAM[17614] = 36'o000000000000; // 042316 (unused) RAM[17615] = 36'o000000000000; // 042317 (unused) RAM[17616] = 36'o000000000000; // 042320 (unused) RAM[17617] = 36'o000000000000; // 042321 (unused) RAM[17618] = 36'o000000000000; // 042322 (unused) RAM[17619] = 36'o000000000000; // 042323 (unused) RAM[17620] = 36'o000000000000; // 042324 (unused) RAM[17621] = 36'o000000000000; // 042325 (unused) RAM[17622] = 36'o000000000000; // 042326 (unused) RAM[17623] = 36'o000000000000; // 042327 (unused) RAM[17624] = 36'o000000000000; // 042330 (unused) RAM[17625] = 36'o000000000000; // 042331 (unused) RAM[17626] = 36'o000000000000; // 042332 (unused) RAM[17627] = 36'o000000000000; // 042333 (unused) RAM[17628] = 36'o000000000000; // 042334 (unused) RAM[17629] = 36'o000000000000; // 042335 (unused) RAM[17630] = 36'o000000000000; // 042336 (unused) RAM[17631] = 36'o000000000000; // 042337 (unused) RAM[17632] = 36'o000000000000; // 042340 (unused) RAM[17633] = 36'o000000000000; // 042341 (unused) RAM[17634] = 36'o000000000000; // 042342 (unused) RAM[17635] = 36'o000000000000; // 042343 (unused) RAM[17636] = 36'o000000000000; // 042344 (unused) RAM[17637] = 36'o000000000000; // 042345 (unused) RAM[17638] = 36'o000000000000; // 042346 (unused) RAM[17639] = 36'o000000000000; // 042347 (unused) RAM[17640] = 36'o000000000000; // 042350 (unused) RAM[17641] = 36'o000000000000; // 042351 (unused) RAM[17642] = 36'o000000000000; // 042352 (unused) RAM[17643] = 36'o000000000000; // 042353 (unused) RAM[17644] = 36'o000000000000; // 042354 (unused) RAM[17645] = 36'o000000000000; // 042355 (unused) RAM[17646] = 36'o000000000000; // 042356 (unused) RAM[17647] = 36'o000000000000; // 042357 (unused) RAM[17648] = 36'o000000000000; // 042360 (unused) RAM[17649] = 36'o000000000000; // 042361 (unused) RAM[17650] = 36'o000000000000; // 042362 (unused) RAM[17651] = 36'o000000000000; // 042363 (unused) RAM[17652] = 36'o000000000000; // 042364 (unused) RAM[17653] = 36'o000000000000; // 042365 (unused) RAM[17654] = 36'o000000000000; // 042366 (unused) RAM[17655] = 36'o000000000000; // 042367 (unused) RAM[17656] = 36'o000000000000; // 042370 (unused) RAM[17657] = 36'o000000000000; // 042371 (unused) RAM[17658] = 36'o000000000000; // 042372 (unused) RAM[17659] = 36'o000000000000; // 042373 (unused) RAM[17660] = 36'o000000000000; // 042374 (unused) RAM[17661] = 36'o000000000000; // 042375 (unused) RAM[17662] = 36'o000000000000; // 042376 (unused) RAM[17663] = 36'o000000000000; // 042377 (unused) RAM[17664] = 36'o000000000000; // 042400 (unused) RAM[17665] = 36'o000000000000; // 042401 (unused) RAM[17666] = 36'o000000000000; // 042402 (unused) RAM[17667] = 36'o000000000000; // 042403 (unused) RAM[17668] = 36'o000000000000; // 042404 (unused) RAM[17669] = 36'o000000000000; // 042405 (unused) RAM[17670] = 36'o000000000000; // 042406 (unused) RAM[17671] = 36'o000000000000; // 042407 (unused) RAM[17672] = 36'o000000000000; // 042410 (unused) RAM[17673] = 36'o000000000000; // 042411 (unused) RAM[17674] = 36'o000000000000; // 042412 (unused) RAM[17675] = 36'o000000000000; // 042413 (unused) RAM[17676] = 36'o000000000000; // 042414 (unused) RAM[17677] = 36'o000000000000; // 042415 (unused) RAM[17678] = 36'o000000000000; // 042416 (unused) RAM[17679] = 36'o000000000000; // 042417 (unused) RAM[17680] = 36'o000000000000; // 042420 (unused) RAM[17681] = 36'o000000000000; // 042421 (unused) RAM[17682] = 36'o000000000000; // 042422 (unused) RAM[17683] = 36'o000000000000; // 042423 (unused) RAM[17684] = 36'o000000000000; // 042424 (unused) RAM[17685] = 36'o000000000000; // 042425 (unused) RAM[17686] = 36'o000000000000; // 042426 (unused) RAM[17687] = 36'o000000000000; // 042427 (unused) RAM[17688] = 36'o000000000000; // 042430 (unused) RAM[17689] = 36'o000000000000; // 042431 (unused) RAM[17690] = 36'o000000000000; // 042432 (unused) RAM[17691] = 36'o000000000000; // 042433 (unused) RAM[17692] = 36'o000000000000; // 042434 (unused) RAM[17693] = 36'o000000000000; // 042435 (unused) RAM[17694] = 36'o000000000000; // 042436 (unused) RAM[17695] = 36'o000000000000; // 042437 (unused) RAM[17696] = 36'o000000000000; // 042440 (unused) RAM[17697] = 36'o000000000000; // 042441 (unused) RAM[17698] = 36'o000000000000; // 042442 (unused) RAM[17699] = 36'o000000000000; // 042443 (unused) RAM[17700] = 36'o000000000000; // 042444 (unused) RAM[17701] = 36'o000000000000; // 042445 (unused) RAM[17702] = 36'o000000000000; // 042446 (unused) RAM[17703] = 36'o000000000000; // 042447 (unused) RAM[17704] = 36'o000000000000; // 042450 (unused) RAM[17705] = 36'o000000000000; // 042451 (unused) RAM[17706] = 36'o000000000000; // 042452 (unused) RAM[17707] = 36'o000000000000; // 042453 (unused) RAM[17708] = 36'o000000000000; // 042454 (unused) RAM[17709] = 36'o000000000000; // 042455 (unused) RAM[17710] = 36'o000000000000; // 042456 (unused) RAM[17711] = 36'o000000000000; // 042457 (unused) RAM[17712] = 36'o000000000000; // 042460 (unused) RAM[17713] = 36'o000000000000; // 042461 (unused) RAM[17714] = 36'o000000000000; // 042462 (unused) RAM[17715] = 36'o000000000000; // 042463 (unused) RAM[17716] = 36'o000000000000; // 042464 (unused) RAM[17717] = 36'o000000000000; // 042465 (unused) RAM[17718] = 36'o000000000000; // 042466 (unused) RAM[17719] = 36'o000000000000; // 042467 (unused) RAM[17720] = 36'o000000000000; // 042470 (unused) RAM[17721] = 36'o000000000000; // 042471 (unused) RAM[17722] = 36'o000000000000; // 042472 (unused) RAM[17723] = 36'o000000000000; // 042473 (unused) RAM[17724] = 36'o000000000000; // 042474 (unused) RAM[17725] = 36'o000000000000; // 042475 (unused) RAM[17726] = 36'o000000000000; // 042476 (unused) RAM[17727] = 36'o000000000000; // 042477 (unused) RAM[17728] = 36'o000000000000; // 042500 (unused) RAM[17729] = 36'o000000000000; // 042501 (unused) RAM[17730] = 36'o000000000000; // 042502 (unused) RAM[17731] = 36'o000000000000; // 042503 (unused) RAM[17732] = 36'o000000000000; // 042504 (unused) RAM[17733] = 36'o000000000000; // 042505 (unused) RAM[17734] = 36'o000000000000; // 042506 (unused) RAM[17735] = 36'o000000000000; // 042507 (unused) RAM[17736] = 36'o000000000000; // 042510 (unused) RAM[17737] = 36'o000000000000; // 042511 (unused) RAM[17738] = 36'o000000000000; // 042512 (unused) RAM[17739] = 36'o000000000000; // 042513 (unused) RAM[17740] = 36'o000000000000; // 042514 (unused) RAM[17741] = 36'o000000000000; // 042515 (unused) RAM[17742] = 36'o000000000000; // 042516 (unused) RAM[17743] = 36'o000000000000; // 042517 (unused) RAM[17744] = 36'o000000000000; // 042520 (unused) RAM[17745] = 36'o000000000000; // 042521 (unused) RAM[17746] = 36'o000000000000; // 042522 (unused) RAM[17747] = 36'o000000000000; // 042523 (unused) RAM[17748] = 36'o000000000000; // 042524 (unused) RAM[17749] = 36'o000000000000; // 042525 (unused) RAM[17750] = 36'o000000000000; // 042526 (unused) RAM[17751] = 36'o000000000000; // 042527 (unused) RAM[17752] = 36'o000000000000; // 042530 (unused) RAM[17753] = 36'o000000000000; // 042531 (unused) RAM[17754] = 36'o000000000000; // 042532 (unused) RAM[17755] = 36'o000000000000; // 042533 (unused) RAM[17756] = 36'o000000000000; // 042534 (unused) RAM[17757] = 36'o000000000000; // 042535 (unused) RAM[17758] = 36'o000000000000; // 042536 (unused) RAM[17759] = 36'o000000000000; // 042537 (unused) RAM[17760] = 36'o000000000000; // 042540 (unused) RAM[17761] = 36'o000000000000; // 042541 (unused) RAM[17762] = 36'o000000000000; // 042542 (unused) RAM[17763] = 36'o000000000000; // 042543 (unused) RAM[17764] = 36'o000000000000; // 042544 (unused) RAM[17765] = 36'o000000000000; // 042545 (unused) RAM[17766] = 36'o000000000000; // 042546 (unused) RAM[17767] = 36'o000000000000; // 042547 (unused) RAM[17768] = 36'o000000000000; // 042550 (unused) RAM[17769] = 36'o000000000000; // 042551 (unused) RAM[17770] = 36'o000000000000; // 042552 (unused) RAM[17771] = 36'o000000000000; // 042553 (unused) RAM[17772] = 36'o000000000000; // 042554 (unused) RAM[17773] = 36'o000000000000; // 042555 (unused) RAM[17774] = 36'o000000000000; // 042556 (unused) RAM[17775] = 36'o000000000000; // 042557 (unused) RAM[17776] = 36'o000000000000; // 042560 (unused) RAM[17777] = 36'o000000000000; // 042561 (unused) RAM[17778] = 36'o000000000000; // 042562 (unused) RAM[17779] = 36'o000000000000; // 042563 (unused) RAM[17780] = 36'o000000000000; // 042564 (unused) RAM[17781] = 36'o000000000000; // 042565 (unused) RAM[17782] = 36'o000000000000; // 042566 (unused) RAM[17783] = 36'o000000000000; // 042567 (unused) RAM[17784] = 36'o000000000000; // 042570 (unused) RAM[17785] = 36'o000000000000; // 042571 (unused) RAM[17786] = 36'o000000000000; // 042572 (unused) RAM[17787] = 36'o000000000000; // 042573 (unused) RAM[17788] = 36'o000000000000; // 042574 (unused) RAM[17789] = 36'o000000000000; // 042575 (unused) RAM[17790] = 36'o000000000000; // 042576 (unused) RAM[17791] = 36'o000000000000; // 042577 (unused) RAM[17792] = 36'o000000000000; // 042600 (unused) RAM[17793] = 36'o000000000000; // 042601 (unused) RAM[17794] = 36'o000000000000; // 042602 (unused) RAM[17795] = 36'o000000000000; // 042603 (unused) RAM[17796] = 36'o000000000000; // 042604 (unused) RAM[17797] = 36'o000000000000; // 042605 (unused) RAM[17798] = 36'o000000000000; // 042606 (unused) RAM[17799] = 36'o000000000000; // 042607 (unused) RAM[17800] = 36'o000000000000; // 042610 (unused) RAM[17801] = 36'o000000000000; // 042611 (unused) RAM[17802] = 36'o000000000000; // 042612 (unused) RAM[17803] = 36'o000000000000; // 042613 (unused) RAM[17804] = 36'o000000000000; // 042614 (unused) RAM[17805] = 36'o000000000000; // 042615 (unused) RAM[17806] = 36'o000000000000; // 042616 (unused) RAM[17807] = 36'o000000000000; // 042617 (unused) RAM[17808] = 36'o000000000000; // 042620 (unused) RAM[17809] = 36'o000000000000; // 042621 (unused) RAM[17810] = 36'o000000000000; // 042622 (unused) RAM[17811] = 36'o000000000000; // 042623 (unused) RAM[17812] = 36'o000000000000; // 042624 (unused) RAM[17813] = 36'o000000000000; // 042625 (unused) RAM[17814] = 36'o000000000000; // 042626 (unused) RAM[17815] = 36'o000000000000; // 042627 (unused) RAM[17816] = 36'o000000000000; // 042630 (unused) RAM[17817] = 36'o000000000000; // 042631 (unused) RAM[17818] = 36'o000000000000; // 042632 (unused) RAM[17819] = 36'o000000000000; // 042633 (unused) RAM[17820] = 36'o000000000000; // 042634 (unused) RAM[17821] = 36'o000000000000; // 042635 (unused) RAM[17822] = 36'o000000000000; // 042636 (unused) RAM[17823] = 36'o000000000000; // 042637 (unused) RAM[17824] = 36'o000000000000; // 042640 (unused) RAM[17825] = 36'o000000000000; // 042641 (unused) RAM[17826] = 36'o000000000000; // 042642 (unused) RAM[17827] = 36'o000000000000; // 042643 (unused) RAM[17828] = 36'o000000000000; // 042644 (unused) RAM[17829] = 36'o000000000000; // 042645 (unused) RAM[17830] = 36'o000000000000; // 042646 (unused) RAM[17831] = 36'o000000000000; // 042647 (unused) RAM[17832] = 36'o000000000000; // 042650 (unused) RAM[17833] = 36'o000000000000; // 042651 (unused) RAM[17834] = 36'o000000000000; // 042652 (unused) RAM[17835] = 36'o000000000000; // 042653 (unused) RAM[17836] = 36'o000000000000; // 042654 (unused) RAM[17837] = 36'o000000000000; // 042655 (unused) RAM[17838] = 36'o000000000000; // 042656 (unused) RAM[17839] = 36'o000000000000; // 042657 (unused) RAM[17840] = 36'o000000000000; // 042660 (unused) RAM[17841] = 36'o000000000000; // 042661 (unused) RAM[17842] = 36'o000000000000; // 042662 (unused) RAM[17843] = 36'o000000000000; // 042663 (unused) RAM[17844] = 36'o000000000000; // 042664 (unused) RAM[17845] = 36'o000000000000; // 042665 (unused) RAM[17846] = 36'o000000000000; // 042666 (unused) RAM[17847] = 36'o000000000000; // 042667 (unused) RAM[17848] = 36'o000000000000; // 042670 (unused) RAM[17849] = 36'o000000000000; // 042671 (unused) RAM[17850] = 36'o000000000000; // 042672 (unused) RAM[17851] = 36'o000000000000; // 042673 (unused) RAM[17852] = 36'o000000000000; // 042674 (unused) RAM[17853] = 36'o000000000000; // 042675 (unused) RAM[17854] = 36'o000000000000; // 042676 (unused) RAM[17855] = 36'o000000000000; // 042677 (unused) RAM[17856] = 36'o000000000000; // 042700 (unused) RAM[17857] = 36'o000000000000; // 042701 (unused) RAM[17858] = 36'o000000000000; // 042702 (unused) RAM[17859] = 36'o000000000000; // 042703 (unused) RAM[17860] = 36'o000000000000; // 042704 (unused) RAM[17861] = 36'o000000000000; // 042705 (unused) RAM[17862] = 36'o000000000000; // 042706 (unused) RAM[17863] = 36'o000000000000; // 042707 (unused) RAM[17864] = 36'o000000000000; // 042710 (unused) RAM[17865] = 36'o000000000000; // 042711 (unused) RAM[17866] = 36'o000000000000; // 042712 (unused) RAM[17867] = 36'o000000000000; // 042713 (unused) RAM[17868] = 36'o000000000000; // 042714 (unused) RAM[17869] = 36'o000000000000; // 042715 (unused) RAM[17870] = 36'o000000000000; // 042716 (unused) RAM[17871] = 36'o000000000000; // 042717 (unused) RAM[17872] = 36'o000000000000; // 042720 (unused) RAM[17873] = 36'o000000000000; // 042721 (unused) RAM[17874] = 36'o000000000000; // 042722 (unused) RAM[17875] = 36'o000000000000; // 042723 (unused) RAM[17876] = 36'o000000000000; // 042724 (unused) RAM[17877] = 36'o000000000000; // 042725 (unused) RAM[17878] = 36'o000000000000; // 042726 (unused) RAM[17879] = 36'o000000000000; // 042727 (unused) RAM[17880] = 36'o000000000000; // 042730 (unused) RAM[17881] = 36'o000000000000; // 042731 (unused) RAM[17882] = 36'o000000000000; // 042732 (unused) RAM[17883] = 36'o000000000000; // 042733 (unused) RAM[17884] = 36'o000000000000; // 042734 (unused) RAM[17885] = 36'o000000000000; // 042735 (unused) RAM[17886] = 36'o000000000000; // 042736 (unused) RAM[17887] = 36'o000000000000; // 042737 (unused) RAM[17888] = 36'o000000000000; // 042740 (unused) RAM[17889] = 36'o000000000000; // 042741 (unused) RAM[17890] = 36'o000000000000; // 042742 (unused) RAM[17891] = 36'o000000000000; // 042743 (unused) RAM[17892] = 36'o000000000000; // 042744 (unused) RAM[17893] = 36'o000000000000; // 042745 (unused) RAM[17894] = 36'o000000000000; // 042746 (unused) RAM[17895] = 36'o000000000000; // 042747 (unused) RAM[17896] = 36'o000000000000; // 042750 (unused) RAM[17897] = 36'o000000000000; // 042751 (unused) RAM[17898] = 36'o000000000000; // 042752 (unused) RAM[17899] = 36'o000000000000; // 042753 (unused) RAM[17900] = 36'o000000000000; // 042754 (unused) RAM[17901] = 36'o000000000000; // 042755 (unused) RAM[17902] = 36'o000000000000; // 042756 (unused) RAM[17903] = 36'o000000000000; // 042757 (unused) RAM[17904] = 36'o000000000000; // 042760 (unused) RAM[17905] = 36'o000000000000; // 042761 (unused) RAM[17906] = 36'o000000000000; // 042762 (unused) RAM[17907] = 36'o000000000000; // 042763 (unused) RAM[17908] = 36'o000000000000; // 042764 (unused) RAM[17909] = 36'o000000000000; // 042765 (unused) RAM[17910] = 36'o000000000000; // 042766 (unused) RAM[17911] = 36'o000000000000; // 042767 (unused) RAM[17912] = 36'o000000000000; // 042770 (unused) RAM[17913] = 36'o000000000000; // 042771 (unused) RAM[17914] = 36'o000000000000; // 042772 (unused) RAM[17915] = 36'o000000000000; // 042773 (unused) RAM[17916] = 36'o000000000000; // 042774 (unused) RAM[17917] = 36'o000000000000; // 042775 (unused) RAM[17918] = 36'o000000000000; // 042776 (unused) RAM[17919] = 36'o000000000000; // 042777 (unused) RAM[17920] = 36'o000000000000; // 043000 (unused) RAM[17921] = 36'o000000000000; // 043001 (unused) RAM[17922] = 36'o000000000000; // 043002 (unused) RAM[17923] = 36'o000000000000; // 043003 (unused) RAM[17924] = 36'o000000000000; // 043004 (unused) RAM[17925] = 36'o000000000000; // 043005 (unused) RAM[17926] = 36'o000000000000; // 043006 (unused) RAM[17927] = 36'o000000000000; // 043007 (unused) RAM[17928] = 36'o000000000000; // 043010 (unused) RAM[17929] = 36'o000000000000; // 043011 (unused) RAM[17930] = 36'o000000000000; // 043012 (unused) RAM[17931] = 36'o000000000000; // 043013 (unused) RAM[17932] = 36'o000000000000; // 043014 (unused) RAM[17933] = 36'o000000000000; // 043015 (unused) RAM[17934] = 36'o000000000000; // 043016 (unused) RAM[17935] = 36'o000000000000; // 043017 (unused) RAM[17936] = 36'o000000000000; // 043020 (unused) RAM[17937] = 36'o000000000000; // 043021 (unused) RAM[17938] = 36'o000000000000; // 043022 (unused) RAM[17939] = 36'o000000000000; // 043023 (unused) RAM[17940] = 36'o000000000000; // 043024 (unused) RAM[17941] = 36'o000000000000; // 043025 (unused) RAM[17942] = 36'o000000000000; // 043026 (unused) RAM[17943] = 36'o000000000000; // 043027 (unused) RAM[17944] = 36'o000000000000; // 043030 (unused) RAM[17945] = 36'o000000000000; // 043031 (unused) RAM[17946] = 36'o000000000000; // 043032 (unused) RAM[17947] = 36'o000000000000; // 043033 (unused) RAM[17948] = 36'o000000000000; // 043034 (unused) RAM[17949] = 36'o000000000000; // 043035 (unused) RAM[17950] = 36'o000000000000; // 043036 (unused) RAM[17951] = 36'o000000000000; // 043037 (unused) RAM[17952] = 36'o000000000000; // 043040 (unused) RAM[17953] = 36'o000000000000; // 043041 (unused) RAM[17954] = 36'o000000000000; // 043042 (unused) RAM[17955] = 36'o000000000000; // 043043 (unused) RAM[17956] = 36'o000000000000; // 043044 (unused) RAM[17957] = 36'o000000000000; // 043045 (unused) RAM[17958] = 36'o000000000000; // 043046 (unused) RAM[17959] = 36'o000000000000; // 043047 (unused) RAM[17960] = 36'o000000000000; // 043050 (unused) RAM[17961] = 36'o000000000000; // 043051 (unused) RAM[17962] = 36'o000000000000; // 043052 (unused) RAM[17963] = 36'o000000000000; // 043053 (unused) RAM[17964] = 36'o000000000000; // 043054 (unused) RAM[17965] = 36'o000000000000; // 043055 (unused) RAM[17966] = 36'o000000000000; // 043056 (unused) RAM[17967] = 36'o000000000000; // 043057 (unused) RAM[17968] = 36'o000000000000; // 043060 (unused) RAM[17969] = 36'o000000000000; // 043061 (unused) RAM[17970] = 36'o000000000000; // 043062 (unused) RAM[17971] = 36'o000000000000; // 043063 (unused) RAM[17972] = 36'o000000000000; // 043064 (unused) RAM[17973] = 36'o000000000000; // 043065 (unused) RAM[17974] = 36'o000000000000; // 043066 (unused) RAM[17975] = 36'o000000000000; // 043067 (unused) RAM[17976] = 36'o000000000000; // 043070 (unused) RAM[17977] = 36'o000000000000; // 043071 (unused) RAM[17978] = 36'o000000000000; // 043072 (unused) RAM[17979] = 36'o000000000000; // 043073 (unused) RAM[17980] = 36'o000000000000; // 043074 (unused) RAM[17981] = 36'o000000000000; // 043075 (unused) RAM[17982] = 36'o000000000000; // 043076 (unused) RAM[17983] = 36'o000000000000; // 043077 (unused) RAM[17984] = 36'o000000000000; // 043100 (unused) RAM[17985] = 36'o000000000000; // 043101 (unused) RAM[17986] = 36'o000000000000; // 043102 (unused) RAM[17987] = 36'o000000000000; // 043103 (unused) RAM[17988] = 36'o000000000000; // 043104 (unused) RAM[17989] = 36'o000000000000; // 043105 (unused) RAM[17990] = 36'o000000000000; // 043106 (unused) RAM[17991] = 36'o000000000000; // 043107 (unused) RAM[17992] = 36'o000000000000; // 043110 (unused) RAM[17993] = 36'o000000000000; // 043111 (unused) RAM[17994] = 36'o000000000000; // 043112 (unused) RAM[17995] = 36'o000000000000; // 043113 (unused) RAM[17996] = 36'o000000000000; // 043114 (unused) RAM[17997] = 36'o000000000000; // 043115 (unused) RAM[17998] = 36'o000000000000; // 043116 (unused) RAM[17999] = 36'o000000000000; // 043117 (unused) RAM[18000] = 36'o000000000000; // 043120 (unused) RAM[18001] = 36'o000000000000; // 043121 (unused) RAM[18002] = 36'o000000000000; // 043122 (unused) RAM[18003] = 36'o000000000000; // 043123 (unused) RAM[18004] = 36'o000000000000; // 043124 (unused) RAM[18005] = 36'o000000000000; // 043125 (unused) RAM[18006] = 36'o000000000000; // 043126 (unused) RAM[18007] = 36'o000000000000; // 043127 (unused) RAM[18008] = 36'o000000000000; // 043130 (unused) RAM[18009] = 36'o000000000000; // 043131 (unused) RAM[18010] = 36'o000000000000; // 043132 (unused) RAM[18011] = 36'o000000000000; // 043133 (unused) RAM[18012] = 36'o000000000000; // 043134 (unused) RAM[18013] = 36'o000000000000; // 043135 (unused) RAM[18014] = 36'o000000000000; // 043136 (unused) RAM[18015] = 36'o000000000000; // 043137 (unused) RAM[18016] = 36'o000000000000; // 043140 (unused) RAM[18017] = 36'o000000000000; // 043141 (unused) RAM[18018] = 36'o000000000000; // 043142 (unused) RAM[18019] = 36'o000000000000; // 043143 (unused) RAM[18020] = 36'o000000000000; // 043144 (unused) RAM[18021] = 36'o000000000000; // 043145 (unused) RAM[18022] = 36'o000000000000; // 043146 (unused) RAM[18023] = 36'o000000000000; // 043147 (unused) RAM[18024] = 36'o000000000000; // 043150 (unused) RAM[18025] = 36'o000000000000; // 043151 (unused) RAM[18026] = 36'o000000000000; // 043152 (unused) RAM[18027] = 36'o000000000000; // 043153 (unused) RAM[18028] = 36'o000000000000; // 043154 (unused) RAM[18029] = 36'o000000000000; // 043155 (unused) RAM[18030] = 36'o000000000000; // 043156 (unused) RAM[18031] = 36'o000000000000; // 043157 (unused) RAM[18032] = 36'o000000000000; // 043160 (unused) RAM[18033] = 36'o000000000000; // 043161 (unused) RAM[18034] = 36'o000000000000; // 043162 (unused) RAM[18035] = 36'o000000000000; // 043163 (unused) RAM[18036] = 36'o000000000000; // 043164 (unused) RAM[18037] = 36'o000000000000; // 043165 (unused) RAM[18038] = 36'o000000000000; // 043166 (unused) RAM[18039] = 36'o000000000000; // 043167 (unused) RAM[18040] = 36'o000000000000; // 043170 (unused) RAM[18041] = 36'o000000000000; // 043171 (unused) RAM[18042] = 36'o000000000000; // 043172 (unused) RAM[18043] = 36'o000000000000; // 043173 (unused) RAM[18044] = 36'o000000000000; // 043174 (unused) RAM[18045] = 36'o000000000000; // 043175 (unused) RAM[18046] = 36'o000000000000; // 043176 (unused) RAM[18047] = 36'o000000000000; // 043177 (unused) RAM[18048] = 36'o000000000000; // 043200 (unused) RAM[18049] = 36'o000000000000; // 043201 (unused) RAM[18050] = 36'o000000000000; // 043202 (unused) RAM[18051] = 36'o000000000000; // 043203 (unused) RAM[18052] = 36'o000000000000; // 043204 (unused) RAM[18053] = 36'o000000000000; // 043205 (unused) RAM[18054] = 36'o000000000000; // 043206 (unused) RAM[18055] = 36'o000000000000; // 043207 (unused) RAM[18056] = 36'o000000000000; // 043210 (unused) RAM[18057] = 36'o000000000000; // 043211 (unused) RAM[18058] = 36'o000000000000; // 043212 (unused) RAM[18059] = 36'o000000000000; // 043213 (unused) RAM[18060] = 36'o000000000000; // 043214 (unused) RAM[18061] = 36'o000000000000; // 043215 (unused) RAM[18062] = 36'o000000000000; // 043216 (unused) RAM[18063] = 36'o000000000000; // 043217 (unused) RAM[18064] = 36'o000000000000; // 043220 (unused) RAM[18065] = 36'o000000000000; // 043221 (unused) RAM[18066] = 36'o000000000000; // 043222 (unused) RAM[18067] = 36'o000000000000; // 043223 (unused) RAM[18068] = 36'o000000000000; // 043224 (unused) RAM[18069] = 36'o000000000000; // 043225 (unused) RAM[18070] = 36'o000000000000; // 043226 (unused) RAM[18071] = 36'o000000000000; // 043227 (unused) RAM[18072] = 36'o000000000000; // 043230 (unused) RAM[18073] = 36'o000000000000; // 043231 (unused) RAM[18074] = 36'o000000000000; // 043232 (unused) RAM[18075] = 36'o000000000000; // 043233 (unused) RAM[18076] = 36'o000000000000; // 043234 (unused) RAM[18077] = 36'o000000000000; // 043235 (unused) RAM[18078] = 36'o000000000000; // 043236 (unused) RAM[18079] = 36'o000000000000; // 043237 (unused) RAM[18080] = 36'o000000000000; // 043240 (unused) RAM[18081] = 36'o000000000000; // 043241 (unused) RAM[18082] = 36'o000000000000; // 043242 (unused) RAM[18083] = 36'o000000000000; // 043243 (unused) RAM[18084] = 36'o000000000000; // 043244 (unused) RAM[18085] = 36'o000000000000; // 043245 (unused) RAM[18086] = 36'o000000000000; // 043246 (unused) RAM[18087] = 36'o000000000000; // 043247 (unused) RAM[18088] = 36'o000000000000; // 043250 (unused) RAM[18089] = 36'o000000000000; // 043251 (unused) RAM[18090] = 36'o000000000000; // 043252 (unused) RAM[18091] = 36'o000000000000; // 043253 (unused) RAM[18092] = 36'o000000000000; // 043254 (unused) RAM[18093] = 36'o000000000000; // 043255 (unused) RAM[18094] = 36'o000000000000; // 043256 (unused) RAM[18095] = 36'o000000000000; // 043257 (unused) RAM[18096] = 36'o000000000000; // 043260 (unused) RAM[18097] = 36'o000000000000; // 043261 (unused) RAM[18098] = 36'o000000000000; // 043262 (unused) RAM[18099] = 36'o000000000000; // 043263 (unused) RAM[18100] = 36'o000000000000; // 043264 (unused) RAM[18101] = 36'o000000000000; // 043265 (unused) RAM[18102] = 36'o000000000000; // 043266 (unused) RAM[18103] = 36'o000000000000; // 043267 (unused) RAM[18104] = 36'o000000000000; // 043270 (unused) RAM[18105] = 36'o000000000000; // 043271 (unused) RAM[18106] = 36'o000000000000; // 043272 (unused) RAM[18107] = 36'o000000000000; // 043273 (unused) RAM[18108] = 36'o000000000000; // 043274 (unused) RAM[18109] = 36'o000000000000; // 043275 (unused) RAM[18110] = 36'o000000000000; // 043276 (unused) RAM[18111] = 36'o000000000000; // 043277 (unused) RAM[18112] = 36'o000000000000; // 043300 (unused) RAM[18113] = 36'o000000000000; // 043301 (unused) RAM[18114] = 36'o000000000000; // 043302 (unused) RAM[18115] = 36'o000000000000; // 043303 (unused) RAM[18116] = 36'o000000000000; // 043304 (unused) RAM[18117] = 36'o000000000000; // 043305 (unused) RAM[18118] = 36'o000000000000; // 043306 (unused) RAM[18119] = 36'o000000000000; // 043307 (unused) RAM[18120] = 36'o000000000000; // 043310 (unused) RAM[18121] = 36'o000000000000; // 043311 (unused) RAM[18122] = 36'o000000000000; // 043312 (unused) RAM[18123] = 36'o000000000000; // 043313 (unused) RAM[18124] = 36'o000000000000; // 043314 (unused) RAM[18125] = 36'o000000000000; // 043315 (unused) RAM[18126] = 36'o000000000000; // 043316 (unused) RAM[18127] = 36'o000000000000; // 043317 (unused) RAM[18128] = 36'o000000000000; // 043320 (unused) RAM[18129] = 36'o000000000000; // 043321 (unused) RAM[18130] = 36'o000000000000; // 043322 (unused) RAM[18131] = 36'o000000000000; // 043323 (unused) RAM[18132] = 36'o000000000000; // 043324 (unused) RAM[18133] = 36'o000000000000; // 043325 (unused) RAM[18134] = 36'o000000000000; // 043326 (unused) RAM[18135] = 36'o000000000000; // 043327 (unused) RAM[18136] = 36'o000000000000; // 043330 (unused) RAM[18137] = 36'o000000000000; // 043331 (unused) RAM[18138] = 36'o000000000000; // 043332 (unused) RAM[18139] = 36'o000000000000; // 043333 (unused) RAM[18140] = 36'o000000000000; // 043334 (unused) RAM[18141] = 36'o000000000000; // 043335 (unused) RAM[18142] = 36'o000000000000; // 043336 (unused) RAM[18143] = 36'o000000000000; // 043337 (unused) RAM[18144] = 36'o000000000000; // 043340 (unused) RAM[18145] = 36'o000000000000; // 043341 (unused) RAM[18146] = 36'o000000000000; // 043342 (unused) RAM[18147] = 36'o000000000000; // 043343 (unused) RAM[18148] = 36'o000000000000; // 043344 (unused) RAM[18149] = 36'o000000000000; // 043345 (unused) RAM[18150] = 36'o000000000000; // 043346 (unused) RAM[18151] = 36'o000000000000; // 043347 (unused) RAM[18152] = 36'o000000000000; // 043350 (unused) RAM[18153] = 36'o000000000000; // 043351 (unused) RAM[18154] = 36'o000000000000; // 043352 (unused) RAM[18155] = 36'o000000000000; // 043353 (unused) RAM[18156] = 36'o000000000000; // 043354 (unused) RAM[18157] = 36'o000000000000; // 043355 (unused) RAM[18158] = 36'o000000000000; // 043356 (unused) RAM[18159] = 36'o000000000000; // 043357 (unused) RAM[18160] = 36'o000000000000; // 043360 (unused) RAM[18161] = 36'o000000000000; // 043361 (unused) RAM[18162] = 36'o000000000000; // 043362 (unused) RAM[18163] = 36'o000000000000; // 043363 (unused) RAM[18164] = 36'o000000000000; // 043364 (unused) RAM[18165] = 36'o000000000000; // 043365 (unused) RAM[18166] = 36'o000000000000; // 043366 (unused) RAM[18167] = 36'o000000000000; // 043367 (unused) RAM[18168] = 36'o000000000000; // 043370 (unused) RAM[18169] = 36'o000000000000; // 043371 (unused) RAM[18170] = 36'o000000000000; // 043372 (unused) RAM[18171] = 36'o000000000000; // 043373 (unused) RAM[18172] = 36'o000000000000; // 043374 (unused) RAM[18173] = 36'o000000000000; // 043375 (unused) RAM[18174] = 36'o000000000000; // 043376 (unused) RAM[18175] = 36'o000000000000; // 043377 (unused) RAM[18176] = 36'o000000000000; // 043400 (unused) RAM[18177] = 36'o000000000000; // 043401 (unused) RAM[18178] = 36'o000000000000; // 043402 (unused) RAM[18179] = 36'o000000000000; // 043403 (unused) RAM[18180] = 36'o000000000000; // 043404 (unused) RAM[18181] = 36'o000000000000; // 043405 (unused) RAM[18182] = 36'o000000000000; // 043406 (unused) RAM[18183] = 36'o000000000000; // 043407 (unused) RAM[18184] = 36'o000000000000; // 043410 (unused) RAM[18185] = 36'o000000000000; // 043411 (unused) RAM[18186] = 36'o000000000000; // 043412 (unused) RAM[18187] = 36'o000000000000; // 043413 (unused) RAM[18188] = 36'o000000000000; // 043414 (unused) RAM[18189] = 36'o000000000000; // 043415 (unused) RAM[18190] = 36'o000000000000; // 043416 (unused) RAM[18191] = 36'o000000000000; // 043417 (unused) RAM[18192] = 36'o000000000000; // 043420 (unused) RAM[18193] = 36'o000000000000; // 043421 (unused) RAM[18194] = 36'o000000000000; // 043422 (unused) RAM[18195] = 36'o000000000000; // 043423 (unused) RAM[18196] = 36'o000000000000; // 043424 (unused) RAM[18197] = 36'o000000000000; // 043425 (unused) RAM[18198] = 36'o000000000000; // 043426 (unused) RAM[18199] = 36'o000000000000; // 043427 (unused) RAM[18200] = 36'o000000000000; // 043430 (unused) RAM[18201] = 36'o000000000000; // 043431 (unused) RAM[18202] = 36'o000000000000; // 043432 (unused) RAM[18203] = 36'o000000000000; // 043433 (unused) RAM[18204] = 36'o000000000000; // 043434 (unused) RAM[18205] = 36'o000000000000; // 043435 (unused) RAM[18206] = 36'o000000000000; // 043436 (unused) RAM[18207] = 36'o000000000000; // 043437 (unused) RAM[18208] = 36'o000000000000; // 043440 (unused) RAM[18209] = 36'o000000000000; // 043441 (unused) RAM[18210] = 36'o000000000000; // 043442 (unused) RAM[18211] = 36'o000000000000; // 043443 (unused) RAM[18212] = 36'o000000000000; // 043444 (unused) RAM[18213] = 36'o000000000000; // 043445 (unused) RAM[18214] = 36'o000000000000; // 043446 (unused) RAM[18215] = 36'o000000000000; // 043447 (unused) RAM[18216] = 36'o000000000000; // 043450 (unused) RAM[18217] = 36'o000000000000; // 043451 (unused) RAM[18218] = 36'o000000000000; // 043452 (unused) RAM[18219] = 36'o000000000000; // 043453 (unused) RAM[18220] = 36'o000000000000; // 043454 (unused) RAM[18221] = 36'o000000000000; // 043455 (unused) RAM[18222] = 36'o000000000000; // 043456 (unused) RAM[18223] = 36'o000000000000; // 043457 (unused) RAM[18224] = 36'o000000000000; // 043460 (unused) RAM[18225] = 36'o000000000000; // 043461 (unused) RAM[18226] = 36'o000000000000; // 043462 (unused) RAM[18227] = 36'o000000000000; // 043463 (unused) RAM[18228] = 36'o000000000000; // 043464 (unused) RAM[18229] = 36'o000000000000; // 043465 (unused) RAM[18230] = 36'o000000000000; // 043466 (unused) RAM[18231] = 36'o000000000000; // 043467 (unused) RAM[18232] = 36'o000000000000; // 043470 (unused) RAM[18233] = 36'o000000000000; // 043471 (unused) RAM[18234] = 36'o000000000000; // 043472 (unused) RAM[18235] = 36'o000000000000; // 043473 (unused) RAM[18236] = 36'o000000000000; // 043474 (unused) RAM[18237] = 36'o000000000000; // 043475 (unused) RAM[18238] = 36'o000000000000; // 043476 (unused) RAM[18239] = 36'o000000000000; // 043477 (unused) RAM[18240] = 36'o000000000000; // 043500 (unused) RAM[18241] = 36'o000000000000; // 043501 (unused) RAM[18242] = 36'o000000000000; // 043502 (unused) RAM[18243] = 36'o000000000000; // 043503 (unused) RAM[18244] = 36'o000000000000; // 043504 (unused) RAM[18245] = 36'o000000000000; // 043505 (unused) RAM[18246] = 36'o000000000000; // 043506 (unused) RAM[18247] = 36'o000000000000; // 043507 (unused) RAM[18248] = 36'o000000000000; // 043510 (unused) RAM[18249] = 36'o000000000000; // 043511 (unused) RAM[18250] = 36'o000000000000; // 043512 (unused) RAM[18251] = 36'o000000000000; // 043513 (unused) RAM[18252] = 36'o000000000000; // 043514 (unused) RAM[18253] = 36'o000000000000; // 043515 (unused) RAM[18254] = 36'o000000000000; // 043516 (unused) RAM[18255] = 36'o000000000000; // 043517 (unused) RAM[18256] = 36'o000000000000; // 043520 (unused) RAM[18257] = 36'o000000000000; // 043521 (unused) RAM[18258] = 36'o000000000000; // 043522 (unused) RAM[18259] = 36'o000000000000; // 043523 (unused) RAM[18260] = 36'o000000000000; // 043524 (unused) RAM[18261] = 36'o000000000000; // 043525 (unused) RAM[18262] = 36'o000000000000; // 043526 (unused) RAM[18263] = 36'o000000000000; // 043527 (unused) RAM[18264] = 36'o000000000000; // 043530 (unused) RAM[18265] = 36'o000000000000; // 043531 (unused) RAM[18266] = 36'o000000000000; // 043532 (unused) RAM[18267] = 36'o000000000000; // 043533 (unused) RAM[18268] = 36'o000000000000; // 043534 (unused) RAM[18269] = 36'o000000000000; // 043535 (unused) RAM[18270] = 36'o000000000000; // 043536 (unused) RAM[18271] = 36'o000000000000; // 043537 (unused) RAM[18272] = 36'o000000000000; // 043540 (unused) RAM[18273] = 36'o000000000000; // 043541 (unused) RAM[18274] = 36'o000000000000; // 043542 (unused) RAM[18275] = 36'o000000000000; // 043543 (unused) RAM[18276] = 36'o000000000000; // 043544 (unused) RAM[18277] = 36'o000000000000; // 043545 (unused) RAM[18278] = 36'o000000000000; // 043546 (unused) RAM[18279] = 36'o000000000000; // 043547 (unused) RAM[18280] = 36'o000000000000; // 043550 (unused) RAM[18281] = 36'o000000000000; // 043551 (unused) RAM[18282] = 36'o000000000000; // 043552 (unused) RAM[18283] = 36'o000000000000; // 043553 (unused) RAM[18284] = 36'o000000000000; // 043554 (unused) RAM[18285] = 36'o000000000000; // 043555 (unused) RAM[18286] = 36'o000000000000; // 043556 (unused) RAM[18287] = 36'o000000000000; // 043557 (unused) RAM[18288] = 36'o000000000000; // 043560 (unused) RAM[18289] = 36'o000000000000; // 043561 (unused) RAM[18290] = 36'o000000000000; // 043562 (unused) RAM[18291] = 36'o000000000000; // 043563 (unused) RAM[18292] = 36'o000000000000; // 043564 (unused) RAM[18293] = 36'o000000000000; // 043565 (unused) RAM[18294] = 36'o000000000000; // 043566 (unused) RAM[18295] = 36'o000000000000; // 043567 (unused) RAM[18296] = 36'o000000000000; // 043570 (unused) RAM[18297] = 36'o000000000000; // 043571 (unused) RAM[18298] = 36'o000000000000; // 043572 (unused) RAM[18299] = 36'o000000000000; // 043573 (unused) RAM[18300] = 36'o000000000000; // 043574 (unused) RAM[18301] = 36'o000000000000; // 043575 (unused) RAM[18302] = 36'o000000000000; // 043576 (unused) RAM[18303] = 36'o000000000000; // 043577 (unused) RAM[18304] = 36'o000000000000; // 043600 (unused) RAM[18305] = 36'o000000000000; // 043601 (unused) RAM[18306] = 36'o000000000000; // 043602 (unused) RAM[18307] = 36'o000000000000; // 043603 (unused) RAM[18308] = 36'o000000000000; // 043604 (unused) RAM[18309] = 36'o000000000000; // 043605 (unused) RAM[18310] = 36'o000000000000; // 043606 (unused) RAM[18311] = 36'o000000000000; // 043607 (unused) RAM[18312] = 36'o000000000000; // 043610 (unused) RAM[18313] = 36'o000000000000; // 043611 (unused) RAM[18314] = 36'o000000000000; // 043612 (unused) RAM[18315] = 36'o000000000000; // 043613 (unused) RAM[18316] = 36'o000000000000; // 043614 (unused) RAM[18317] = 36'o000000000000; // 043615 (unused) RAM[18318] = 36'o000000000000; // 043616 (unused) RAM[18319] = 36'o000000000000; // 043617 (unused) RAM[18320] = 36'o000000000000; // 043620 (unused) RAM[18321] = 36'o000000000000; // 043621 (unused) RAM[18322] = 36'o000000000000; // 043622 (unused) RAM[18323] = 36'o000000000000; // 043623 (unused) RAM[18324] = 36'o000000000000; // 043624 (unused) RAM[18325] = 36'o000000000000; // 043625 (unused) RAM[18326] = 36'o000000000000; // 043626 (unused) RAM[18327] = 36'o000000000000; // 043627 (unused) RAM[18328] = 36'o000000000000; // 043630 (unused) RAM[18329] = 36'o000000000000; // 043631 (unused) RAM[18330] = 36'o000000000000; // 043632 (unused) RAM[18331] = 36'o000000000000; // 043633 (unused) RAM[18332] = 36'o000000000000; // 043634 (unused) RAM[18333] = 36'o000000000000; // 043635 (unused) RAM[18334] = 36'o000000000000; // 043636 (unused) RAM[18335] = 36'o000000000000; // 043637 (unused) RAM[18336] = 36'o000000000000; // 043640 (unused) RAM[18337] = 36'o000000000000; // 043641 (unused) RAM[18338] = 36'o000000000000; // 043642 (unused) RAM[18339] = 36'o000000000000; // 043643 (unused) RAM[18340] = 36'o000000000000; // 043644 (unused) RAM[18341] = 36'o000000000000; // 043645 (unused) RAM[18342] = 36'o000000000000; // 043646 (unused) RAM[18343] = 36'o000000000000; // 043647 (unused) RAM[18344] = 36'o000000000000; // 043650 (unused) RAM[18345] = 36'o000000000000; // 043651 (unused) RAM[18346] = 36'o000000000000; // 043652 (unused) RAM[18347] = 36'o000000000000; // 043653 (unused) RAM[18348] = 36'o000000000000; // 043654 (unused) RAM[18349] = 36'o000000000000; // 043655 (unused) RAM[18350] = 36'o000000000000; // 043656 (unused) RAM[18351] = 36'o000000000000; // 043657 (unused) RAM[18352] = 36'o000000000000; // 043660 (unused) RAM[18353] = 36'o000000000000; // 043661 (unused) RAM[18354] = 36'o000000000000; // 043662 (unused) RAM[18355] = 36'o000000000000; // 043663 (unused) RAM[18356] = 36'o000000000000; // 043664 (unused) RAM[18357] = 36'o000000000000; // 043665 (unused) RAM[18358] = 36'o000000000000; // 043666 (unused) RAM[18359] = 36'o000000000000; // 043667 (unused) RAM[18360] = 36'o000000000000; // 043670 (unused) RAM[18361] = 36'o000000000000; // 043671 (unused) RAM[18362] = 36'o000000000000; // 043672 (unused) RAM[18363] = 36'o000000000000; // 043673 (unused) RAM[18364] = 36'o000000000000; // 043674 (unused) RAM[18365] = 36'o000000000000; // 043675 (unused) RAM[18366] = 36'o000000000000; // 043676 (unused) RAM[18367] = 36'o000000000000; // 043677 (unused) RAM[18368] = 36'o000000000000; // 043700 (unused) RAM[18369] = 36'o000000000000; // 043701 (unused) RAM[18370] = 36'o000000000000; // 043702 (unused) RAM[18371] = 36'o000000000000; // 043703 (unused) RAM[18372] = 36'o000000000000; // 043704 (unused) RAM[18373] = 36'o000000000000; // 043705 (unused) RAM[18374] = 36'o000000000000; // 043706 (unused) RAM[18375] = 36'o000000000000; // 043707 (unused) RAM[18376] = 36'o000000000000; // 043710 (unused) RAM[18377] = 36'o000000000000; // 043711 (unused) RAM[18378] = 36'o000000000000; // 043712 (unused) RAM[18379] = 36'o000000000000; // 043713 (unused) RAM[18380] = 36'o000000000000; // 043714 (unused) RAM[18381] = 36'o000000000000; // 043715 (unused) RAM[18382] = 36'o000000000000; // 043716 (unused) RAM[18383] = 36'o000000000000; // 043717 (unused) RAM[18384] = 36'o000000000000; // 043720 (unused) RAM[18385] = 36'o000000000000; // 043721 (unused) RAM[18386] = 36'o000000000000; // 043722 (unused) RAM[18387] = 36'o000000000000; // 043723 (unused) RAM[18388] = 36'o000000000000; // 043724 (unused) RAM[18389] = 36'o000000000000; // 043725 (unused) RAM[18390] = 36'o000000000000; // 043726 (unused) RAM[18391] = 36'o000000000000; // 043727 (unused) RAM[18392] = 36'o000000000000; // 043730 (unused) RAM[18393] = 36'o000000000000; // 043731 (unused) RAM[18394] = 36'o000000000000; // 043732 (unused) RAM[18395] = 36'o000000000000; // 043733 (unused) RAM[18396] = 36'o000000000000; // 043734 (unused) RAM[18397] = 36'o000000000000; // 043735 (unused) RAM[18398] = 36'o000000000000; // 043736 (unused) RAM[18399] = 36'o000000000000; // 043737 (unused) RAM[18400] = 36'o000000000000; // 043740 (unused) RAM[18401] = 36'o000000000000; // 043741 (unused) RAM[18402] = 36'o000000000000; // 043742 (unused) RAM[18403] = 36'o000000000000; // 043743 (unused) RAM[18404] = 36'o000000000000; // 043744 (unused) RAM[18405] = 36'o000000000000; // 043745 (unused) RAM[18406] = 36'o000000000000; // 043746 (unused) RAM[18407] = 36'o000000000000; // 043747 (unused) RAM[18408] = 36'o000000000000; // 043750 (unused) RAM[18409] = 36'o000000000000; // 043751 (unused) RAM[18410] = 36'o000000000000; // 043752 (unused) RAM[18411] = 36'o000000000000; // 043753 (unused) RAM[18412] = 36'o000000000000; // 043754 (unused) RAM[18413] = 36'o000000000000; // 043755 (unused) RAM[18414] = 36'o000000000000; // 043756 (unused) RAM[18415] = 36'o000000000000; // 043757 (unused) RAM[18416] = 36'o000000000000; // 043760 (unused) RAM[18417] = 36'o000000000000; // 043761 (unused) RAM[18418] = 36'o000000000000; // 043762 (unused) RAM[18419] = 36'o000000000000; // 043763 (unused) RAM[18420] = 36'o000000000000; // 043764 (unused) RAM[18421] = 36'o000000000000; // 043765 (unused) RAM[18422] = 36'o000000000000; // 043766 (unused) RAM[18423] = 36'o000000000000; // 043767 (unused) RAM[18424] = 36'o000000000000; // 043770 (unused) RAM[18425] = 36'o000000000000; // 043771 (unused) RAM[18426] = 36'o000000000000; // 043772 (unused) RAM[18427] = 36'o000000000000; // 043773 (unused) RAM[18428] = 36'o000000000000; // 043774 (unused) RAM[18429] = 36'o000000000000; // 043775 (unused) RAM[18430] = 36'o000000000000; // 043776 (unused) RAM[18431] = 36'o000000000000; // 043777 (unused) RAM[18432] = 36'o000000000000; // 044000 (unused) RAM[18433] = 36'o000000000000; // 044001 (unused) RAM[18434] = 36'o000000000000; // 044002 (unused) RAM[18435] = 36'o000000000000; // 044003 (unused) RAM[18436] = 36'o000000000000; // 044004 (unused) RAM[18437] = 36'o000000000000; // 044005 (unused) RAM[18438] = 36'o000000000000; // 044006 (unused) RAM[18439] = 36'o000000000000; // 044007 (unused) RAM[18440] = 36'o000000000000; // 044010 (unused) RAM[18441] = 36'o000000000000; // 044011 (unused) RAM[18442] = 36'o000000000000; // 044012 (unused) RAM[18443] = 36'o000000000000; // 044013 (unused) RAM[18444] = 36'o000000000000; // 044014 (unused) RAM[18445] = 36'o000000000000; // 044015 (unused) RAM[18446] = 36'o000000000000; // 044016 (unused) RAM[18447] = 36'o000000000000; // 044017 (unused) RAM[18448] = 36'o000000000000; // 044020 (unused) RAM[18449] = 36'o000000000000; // 044021 (unused) RAM[18450] = 36'o000000000000; // 044022 (unused) RAM[18451] = 36'o000000000000; // 044023 (unused) RAM[18452] = 36'o000000000000; // 044024 (unused) RAM[18453] = 36'o000000000000; // 044025 (unused) RAM[18454] = 36'o000000000000; // 044026 (unused) RAM[18455] = 36'o000000000000; // 044027 (unused) RAM[18456] = 36'o000000000000; // 044030 (unused) RAM[18457] = 36'o000000000000; // 044031 (unused) RAM[18458] = 36'o000000000000; // 044032 (unused) RAM[18459] = 36'o000000000000; // 044033 (unused) RAM[18460] = 36'o000000000000; // 044034 (unused) RAM[18461] = 36'o000000000000; // 044035 (unused) RAM[18462] = 36'o000000000000; // 044036 (unused) RAM[18463] = 36'o000000000000; // 044037 (unused) RAM[18464] = 36'o000000000000; // 044040 (unused) RAM[18465] = 36'o000000000000; // 044041 (unused) RAM[18466] = 36'o000000000000; // 044042 (unused) RAM[18467] = 36'o000000000000; // 044043 (unused) RAM[18468] = 36'o000000000000; // 044044 (unused) RAM[18469] = 36'o000000000000; // 044045 (unused) RAM[18470] = 36'o000000000000; // 044046 (unused) RAM[18471] = 36'o000000000000; // 044047 (unused) RAM[18472] = 36'o000000000000; // 044050 (unused) RAM[18473] = 36'o000000000000; // 044051 (unused) RAM[18474] = 36'o000000000000; // 044052 (unused) RAM[18475] = 36'o000000000000; // 044053 (unused) RAM[18476] = 36'o000000000000; // 044054 (unused) RAM[18477] = 36'o000000000000; // 044055 (unused) RAM[18478] = 36'o000000000000; // 044056 (unused) RAM[18479] = 36'o000000000000; // 044057 (unused) RAM[18480] = 36'o000000000000; // 044060 (unused) RAM[18481] = 36'o000000000000; // 044061 (unused) RAM[18482] = 36'o000000000000; // 044062 (unused) RAM[18483] = 36'o000000000000; // 044063 (unused) RAM[18484] = 36'o000000000000; // 044064 (unused) RAM[18485] = 36'o000000000000; // 044065 (unused) RAM[18486] = 36'o000000000000; // 044066 (unused) RAM[18487] = 36'o000000000000; // 044067 (unused) RAM[18488] = 36'o000000000000; // 044070 (unused) RAM[18489] = 36'o000000000000; // 044071 (unused) RAM[18490] = 36'o000000000000; // 044072 (unused) RAM[18491] = 36'o000000000000; // 044073 (unused) RAM[18492] = 36'o000000000000; // 044074 (unused) RAM[18493] = 36'o000000000000; // 044075 (unused) RAM[18494] = 36'o000000000000; // 044076 (unused) RAM[18495] = 36'o000000000000; // 044077 (unused) RAM[18496] = 36'o000000000000; // 044100 (unused) RAM[18497] = 36'o000000000000; // 044101 (unused) RAM[18498] = 36'o000000000000; // 044102 (unused) RAM[18499] = 36'o000000000000; // 044103 (unused) RAM[18500] = 36'o000000000000; // 044104 (unused) RAM[18501] = 36'o000000000000; // 044105 (unused) RAM[18502] = 36'o000000000000; // 044106 (unused) RAM[18503] = 36'o000000000000; // 044107 (unused) RAM[18504] = 36'o000000000000; // 044110 (unused) RAM[18505] = 36'o000000000000; // 044111 (unused) RAM[18506] = 36'o000000000000; // 044112 (unused) RAM[18507] = 36'o000000000000; // 044113 (unused) RAM[18508] = 36'o000000000000; // 044114 (unused) RAM[18509] = 36'o000000000000; // 044115 (unused) RAM[18510] = 36'o000000000000; // 044116 (unused) RAM[18511] = 36'o000000000000; // 044117 (unused) RAM[18512] = 36'o000000000000; // 044120 (unused) RAM[18513] = 36'o000000000000; // 044121 (unused) RAM[18514] = 36'o000000000000; // 044122 (unused) RAM[18515] = 36'o000000000000; // 044123 (unused) RAM[18516] = 36'o000000000000; // 044124 (unused) RAM[18517] = 36'o000000000000; // 044125 (unused) RAM[18518] = 36'o000000000000; // 044126 (unused) RAM[18519] = 36'o000000000000; // 044127 (unused) RAM[18520] = 36'o000000000000; // 044130 (unused) RAM[18521] = 36'o000000000000; // 044131 (unused) RAM[18522] = 36'o000000000000; // 044132 (unused) RAM[18523] = 36'o000000000000; // 044133 (unused) RAM[18524] = 36'o000000000000; // 044134 (unused) RAM[18525] = 36'o000000000000; // 044135 (unused) RAM[18526] = 36'o000000000000; // 044136 (unused) RAM[18527] = 36'o000000000000; // 044137 (unused) RAM[18528] = 36'o000000000000; // 044140 (unused) RAM[18529] = 36'o000000000000; // 044141 (unused) RAM[18530] = 36'o000000000000; // 044142 (unused) RAM[18531] = 36'o000000000000; // 044143 (unused) RAM[18532] = 36'o000000000000; // 044144 (unused) RAM[18533] = 36'o000000000000; // 044145 (unused) RAM[18534] = 36'o000000000000; // 044146 (unused) RAM[18535] = 36'o000000000000; // 044147 (unused) RAM[18536] = 36'o000000000000; // 044150 (unused) RAM[18537] = 36'o000000000000; // 044151 (unused) RAM[18538] = 36'o000000000000; // 044152 (unused) RAM[18539] = 36'o000000000000; // 044153 (unused) RAM[18540] = 36'o000000000000; // 044154 (unused) RAM[18541] = 36'o000000000000; // 044155 (unused) RAM[18542] = 36'o000000000000; // 044156 (unused) RAM[18543] = 36'o000000000000; // 044157 (unused) RAM[18544] = 36'o000000000000; // 044160 (unused) RAM[18545] = 36'o000000000000; // 044161 (unused) RAM[18546] = 36'o000000000000; // 044162 (unused) RAM[18547] = 36'o000000000000; // 044163 (unused) RAM[18548] = 36'o000000000000; // 044164 (unused) RAM[18549] = 36'o000000000000; // 044165 (unused) RAM[18550] = 36'o000000000000; // 044166 (unused) RAM[18551] = 36'o000000000000; // 044167 (unused) RAM[18552] = 36'o000000000000; // 044170 (unused) RAM[18553] = 36'o000000000000; // 044171 (unused) RAM[18554] = 36'o000000000000; // 044172 (unused) RAM[18555] = 36'o000000000000; // 044173 (unused) RAM[18556] = 36'o000000000000; // 044174 (unused) RAM[18557] = 36'o000000000000; // 044175 (unused) RAM[18558] = 36'o000000000000; // 044176 (unused) RAM[18559] = 36'o000000000000; // 044177 (unused) RAM[18560] = 36'o000000000000; // 044200 (unused) RAM[18561] = 36'o000000000000; // 044201 (unused) RAM[18562] = 36'o000000000000; // 044202 (unused) RAM[18563] = 36'o000000000000; // 044203 (unused) RAM[18564] = 36'o000000000000; // 044204 (unused) RAM[18565] = 36'o000000000000; // 044205 (unused) RAM[18566] = 36'o000000000000; // 044206 (unused) RAM[18567] = 36'o000000000000; // 044207 (unused) RAM[18568] = 36'o000000000000; // 044210 (unused) RAM[18569] = 36'o000000000000; // 044211 (unused) RAM[18570] = 36'o000000000000; // 044212 (unused) RAM[18571] = 36'o000000000000; // 044213 (unused) RAM[18572] = 36'o000000000000; // 044214 (unused) RAM[18573] = 36'o000000000000; // 044215 (unused) RAM[18574] = 36'o000000000000; // 044216 (unused) RAM[18575] = 36'o000000000000; // 044217 (unused) RAM[18576] = 36'o000000000000; // 044220 (unused) RAM[18577] = 36'o000000000000; // 044221 (unused) RAM[18578] = 36'o000000000000; // 044222 (unused) RAM[18579] = 36'o000000000000; // 044223 (unused) RAM[18580] = 36'o000000000000; // 044224 (unused) RAM[18581] = 36'o000000000000; // 044225 (unused) RAM[18582] = 36'o000000000000; // 044226 (unused) RAM[18583] = 36'o000000000000; // 044227 (unused) RAM[18584] = 36'o000000000000; // 044230 (unused) RAM[18585] = 36'o000000000000; // 044231 (unused) RAM[18586] = 36'o000000000000; // 044232 (unused) RAM[18587] = 36'o000000000000; // 044233 (unused) RAM[18588] = 36'o000000000000; // 044234 (unused) RAM[18589] = 36'o000000000000; // 044235 (unused) RAM[18590] = 36'o000000000000; // 044236 (unused) RAM[18591] = 36'o000000000000; // 044237 (unused) RAM[18592] = 36'o000000000000; // 044240 (unused) RAM[18593] = 36'o000000000000; // 044241 (unused) RAM[18594] = 36'o000000000000; // 044242 (unused) RAM[18595] = 36'o000000000000; // 044243 (unused) RAM[18596] = 36'o000000000000; // 044244 (unused) RAM[18597] = 36'o000000000000; // 044245 (unused) RAM[18598] = 36'o000000000000; // 044246 (unused) RAM[18599] = 36'o000000000000; // 044247 (unused) RAM[18600] = 36'o000000000000; // 044250 (unused) RAM[18601] = 36'o000000000000; // 044251 (unused) RAM[18602] = 36'o000000000000; // 044252 (unused) RAM[18603] = 36'o000000000000; // 044253 (unused) RAM[18604] = 36'o000000000000; // 044254 (unused) RAM[18605] = 36'o000000000000; // 044255 (unused) RAM[18606] = 36'o000000000000; // 044256 (unused) RAM[18607] = 36'o000000000000; // 044257 (unused) RAM[18608] = 36'o000000000000; // 044260 (unused) RAM[18609] = 36'o000000000000; // 044261 (unused) RAM[18610] = 36'o000000000000; // 044262 (unused) RAM[18611] = 36'o000000000000; // 044263 (unused) RAM[18612] = 36'o000000000000; // 044264 (unused) RAM[18613] = 36'o000000000000; // 044265 (unused) RAM[18614] = 36'o000000000000; // 044266 (unused) RAM[18615] = 36'o000000000000; // 044267 (unused) RAM[18616] = 36'o000000000000; // 044270 (unused) RAM[18617] = 36'o000000000000; // 044271 (unused) RAM[18618] = 36'o000000000000; // 044272 (unused) RAM[18619] = 36'o000000000000; // 044273 (unused) RAM[18620] = 36'o000000000000; // 044274 (unused) RAM[18621] = 36'o000000000000; // 044275 (unused) RAM[18622] = 36'o000000000000; // 044276 (unused) RAM[18623] = 36'o000000000000; // 044277 (unused) RAM[18624] = 36'o000000000000; // 044300 (unused) RAM[18625] = 36'o000000000000; // 044301 (unused) RAM[18626] = 36'o000000000000; // 044302 (unused) RAM[18627] = 36'o000000000000; // 044303 (unused) RAM[18628] = 36'o000000000000; // 044304 (unused) RAM[18629] = 36'o000000000000; // 044305 (unused) RAM[18630] = 36'o000000000000; // 044306 (unused) RAM[18631] = 36'o000000000000; // 044307 (unused) RAM[18632] = 36'o000000000000; // 044310 (unused) RAM[18633] = 36'o000000000000; // 044311 (unused) RAM[18634] = 36'o000000000000; // 044312 (unused) RAM[18635] = 36'o000000000000; // 044313 (unused) RAM[18636] = 36'o000000000000; // 044314 (unused) RAM[18637] = 36'o000000000000; // 044315 (unused) RAM[18638] = 36'o000000000000; // 044316 (unused) RAM[18639] = 36'o000000000000; // 044317 (unused) RAM[18640] = 36'o000000000000; // 044320 (unused) RAM[18641] = 36'o000000000000; // 044321 (unused) RAM[18642] = 36'o000000000000; // 044322 (unused) RAM[18643] = 36'o000000000000; // 044323 (unused) RAM[18644] = 36'o000000000000; // 044324 (unused) RAM[18645] = 36'o000000000000; // 044325 (unused) RAM[18646] = 36'o000000000000; // 044326 (unused) RAM[18647] = 36'o000000000000; // 044327 (unused) RAM[18648] = 36'o000000000000; // 044330 (unused) RAM[18649] = 36'o000000000000; // 044331 (unused) RAM[18650] = 36'o000000000000; // 044332 (unused) RAM[18651] = 36'o000000000000; // 044333 (unused) RAM[18652] = 36'o000000000000; // 044334 (unused) RAM[18653] = 36'o000000000000; // 044335 (unused) RAM[18654] = 36'o000000000000; // 044336 (unused) RAM[18655] = 36'o000000000000; // 044337 (unused) RAM[18656] = 36'o000000000000; // 044340 (unused) RAM[18657] = 36'o000000000000; // 044341 (unused) RAM[18658] = 36'o000000000000; // 044342 (unused) RAM[18659] = 36'o000000000000; // 044343 (unused) RAM[18660] = 36'o000000000000; // 044344 (unused) RAM[18661] = 36'o000000000000; // 044345 (unused) RAM[18662] = 36'o000000000000; // 044346 (unused) RAM[18663] = 36'o000000000000; // 044347 (unused) RAM[18664] = 36'o000000000000; // 044350 (unused) RAM[18665] = 36'o000000000000; // 044351 (unused) RAM[18666] = 36'o000000000000; // 044352 (unused) RAM[18667] = 36'o000000000000; // 044353 (unused) RAM[18668] = 36'o000000000000; // 044354 (unused) RAM[18669] = 36'o000000000000; // 044355 (unused) RAM[18670] = 36'o000000000000; // 044356 (unused) RAM[18671] = 36'o000000000000; // 044357 (unused) RAM[18672] = 36'o000000000000; // 044360 (unused) RAM[18673] = 36'o000000000000; // 044361 (unused) RAM[18674] = 36'o000000000000; // 044362 (unused) RAM[18675] = 36'o000000000000; // 044363 (unused) RAM[18676] = 36'o000000000000; // 044364 (unused) RAM[18677] = 36'o000000000000; // 044365 (unused) RAM[18678] = 36'o000000000000; // 044366 (unused) RAM[18679] = 36'o000000000000; // 044367 (unused) RAM[18680] = 36'o000000000000; // 044370 (unused) RAM[18681] = 36'o000000000000; // 044371 (unused) RAM[18682] = 36'o000000000000; // 044372 (unused) RAM[18683] = 36'o000000000000; // 044373 (unused) RAM[18684] = 36'o000000000000; // 044374 (unused) RAM[18685] = 36'o000000000000; // 044375 (unused) RAM[18686] = 36'o000000000000; // 044376 (unused) RAM[18687] = 36'o000000000000; // 044377 (unused) RAM[18688] = 36'o000000000000; // 044400 (unused) RAM[18689] = 36'o000000000000; // 044401 (unused) RAM[18690] = 36'o000000000000; // 044402 (unused) RAM[18691] = 36'o000000000000; // 044403 (unused) RAM[18692] = 36'o000000000000; // 044404 (unused) RAM[18693] = 36'o000000000000; // 044405 (unused) RAM[18694] = 36'o000000000000; // 044406 (unused) RAM[18695] = 36'o000000000000; // 044407 (unused) RAM[18696] = 36'o000000000000; // 044410 (unused) RAM[18697] = 36'o000000000000; // 044411 (unused) RAM[18698] = 36'o000000000000; // 044412 (unused) RAM[18699] = 36'o000000000000; // 044413 (unused) RAM[18700] = 36'o000000000000; // 044414 (unused) RAM[18701] = 36'o000000000000; // 044415 (unused) RAM[18702] = 36'o000000000000; // 044416 (unused) RAM[18703] = 36'o000000000000; // 044417 (unused) RAM[18704] = 36'o000000000000; // 044420 (unused) RAM[18705] = 36'o000000000000; // 044421 (unused) RAM[18706] = 36'o000000000000; // 044422 (unused) RAM[18707] = 36'o000000000000; // 044423 (unused) RAM[18708] = 36'o000000000000; // 044424 (unused) RAM[18709] = 36'o000000000000; // 044425 (unused) RAM[18710] = 36'o000000000000; // 044426 (unused) RAM[18711] = 36'o000000000000; // 044427 (unused) RAM[18712] = 36'o000000000000; // 044430 (unused) RAM[18713] = 36'o000000000000; // 044431 (unused) RAM[18714] = 36'o000000000000; // 044432 (unused) RAM[18715] = 36'o000000000000; // 044433 (unused) RAM[18716] = 36'o000000000000; // 044434 (unused) RAM[18717] = 36'o000000000000; // 044435 (unused) RAM[18718] = 36'o000000000000; // 044436 (unused) RAM[18719] = 36'o000000000000; // 044437 (unused) RAM[18720] = 36'o000000000000; // 044440 (unused) RAM[18721] = 36'o000000000000; // 044441 (unused) RAM[18722] = 36'o000000000000; // 044442 (unused) RAM[18723] = 36'o000000000000; // 044443 (unused) RAM[18724] = 36'o000000000000; // 044444 (unused) RAM[18725] = 36'o000000000000; // 044445 (unused) RAM[18726] = 36'o000000000000; // 044446 (unused) RAM[18727] = 36'o000000000000; // 044447 (unused) RAM[18728] = 36'o000000000000; // 044450 (unused) RAM[18729] = 36'o000000000000; // 044451 (unused) RAM[18730] = 36'o000000000000; // 044452 (unused) RAM[18731] = 36'o000000000000; // 044453 (unused) RAM[18732] = 36'o000000000000; // 044454 (unused) RAM[18733] = 36'o000000000000; // 044455 (unused) RAM[18734] = 36'o000000000000; // 044456 (unused) RAM[18735] = 36'o000000000000; // 044457 (unused) RAM[18736] = 36'o000000000000; // 044460 (unused) RAM[18737] = 36'o000000000000; // 044461 (unused) RAM[18738] = 36'o000000000000; // 044462 (unused) RAM[18739] = 36'o000000000000; // 044463 (unused) RAM[18740] = 36'o000000000000; // 044464 (unused) RAM[18741] = 36'o000000000000; // 044465 (unused) RAM[18742] = 36'o000000000000; // 044466 (unused) RAM[18743] = 36'o000000000000; // 044467 (unused) RAM[18744] = 36'o000000000000; // 044470 (unused) RAM[18745] = 36'o000000000000; // 044471 (unused) RAM[18746] = 36'o000000000000; // 044472 (unused) RAM[18747] = 36'o000000000000; // 044473 (unused) RAM[18748] = 36'o000000000000; // 044474 (unused) RAM[18749] = 36'o000000000000; // 044475 (unused) RAM[18750] = 36'o000000000000; // 044476 (unused) RAM[18751] = 36'o000000000000; // 044477 (unused) RAM[18752] = 36'o000000000000; // 044500 (unused) RAM[18753] = 36'o000000000000; // 044501 (unused) RAM[18754] = 36'o000000000000; // 044502 (unused) RAM[18755] = 36'o000000000000; // 044503 (unused) RAM[18756] = 36'o000000000000; // 044504 (unused) RAM[18757] = 36'o000000000000; // 044505 (unused) RAM[18758] = 36'o000000000000; // 044506 (unused) RAM[18759] = 36'o000000000000; // 044507 (unused) RAM[18760] = 36'o000000000000; // 044510 (unused) RAM[18761] = 36'o000000000000; // 044511 (unused) RAM[18762] = 36'o000000000000; // 044512 (unused) RAM[18763] = 36'o000000000000; // 044513 (unused) RAM[18764] = 36'o000000000000; // 044514 (unused) RAM[18765] = 36'o000000000000; // 044515 (unused) RAM[18766] = 36'o000000000000; // 044516 (unused) RAM[18767] = 36'o000000000000; // 044517 (unused) RAM[18768] = 36'o000000000000; // 044520 (unused) RAM[18769] = 36'o000000000000; // 044521 (unused) RAM[18770] = 36'o000000000000; // 044522 (unused) RAM[18771] = 36'o000000000000; // 044523 (unused) RAM[18772] = 36'o000000000000; // 044524 (unused) RAM[18773] = 36'o000000000000; // 044525 (unused) RAM[18774] = 36'o000000000000; // 044526 (unused) RAM[18775] = 36'o000000000000; // 044527 (unused) RAM[18776] = 36'o000000000000; // 044530 (unused) RAM[18777] = 36'o000000000000; // 044531 (unused) RAM[18778] = 36'o000000000000; // 044532 (unused) RAM[18779] = 36'o000000000000; // 044533 (unused) RAM[18780] = 36'o000000000000; // 044534 (unused) RAM[18781] = 36'o000000000000; // 044535 (unused) RAM[18782] = 36'o000000000000; // 044536 (unused) RAM[18783] = 36'o000000000000; // 044537 (unused) RAM[18784] = 36'o000000000000; // 044540 (unused) RAM[18785] = 36'o000000000000; // 044541 (unused) RAM[18786] = 36'o000000000000; // 044542 (unused) RAM[18787] = 36'o000000000000; // 044543 (unused) RAM[18788] = 36'o000000000000; // 044544 (unused) RAM[18789] = 36'o000000000000; // 044545 (unused) RAM[18790] = 36'o000000000000; // 044546 (unused) RAM[18791] = 36'o000000000000; // 044547 (unused) RAM[18792] = 36'o000000000000; // 044550 (unused) RAM[18793] = 36'o000000000000; // 044551 (unused) RAM[18794] = 36'o000000000000; // 044552 (unused) RAM[18795] = 36'o000000000000; // 044553 (unused) RAM[18796] = 36'o000000000000; // 044554 (unused) RAM[18797] = 36'o000000000000; // 044555 (unused) RAM[18798] = 36'o000000000000; // 044556 (unused) RAM[18799] = 36'o000000000000; // 044557 (unused) RAM[18800] = 36'o000000000000; // 044560 (unused) RAM[18801] = 36'o000000000000; // 044561 (unused) RAM[18802] = 36'o000000000000; // 044562 (unused) RAM[18803] = 36'o000000000000; // 044563 (unused) RAM[18804] = 36'o000000000000; // 044564 (unused) RAM[18805] = 36'o000000000000; // 044565 (unused) RAM[18806] = 36'o000000000000; // 044566 (unused) RAM[18807] = 36'o000000000000; // 044567 (unused) RAM[18808] = 36'o000000000000; // 044570 (unused) RAM[18809] = 36'o000000000000; // 044571 (unused) RAM[18810] = 36'o000000000000; // 044572 (unused) RAM[18811] = 36'o000000000000; // 044573 (unused) RAM[18812] = 36'o000000000000; // 044574 (unused) RAM[18813] = 36'o000000000000; // 044575 (unused) RAM[18814] = 36'o000000000000; // 044576 (unused) RAM[18815] = 36'o000000000000; // 044577 (unused) RAM[18816] = 36'o000000000000; // 044600 (unused) RAM[18817] = 36'o000000000000; // 044601 (unused) RAM[18818] = 36'o000000000000; // 044602 (unused) RAM[18819] = 36'o000000000000; // 044603 (unused) RAM[18820] = 36'o000000000000; // 044604 (unused) RAM[18821] = 36'o000000000000; // 044605 (unused) RAM[18822] = 36'o000000000000; // 044606 (unused) RAM[18823] = 36'o000000000000; // 044607 (unused) RAM[18824] = 36'o000000000000; // 044610 (unused) RAM[18825] = 36'o000000000000; // 044611 (unused) RAM[18826] = 36'o000000000000; // 044612 (unused) RAM[18827] = 36'o000000000000; // 044613 (unused) RAM[18828] = 36'o000000000000; // 044614 (unused) RAM[18829] = 36'o000000000000; // 044615 (unused) RAM[18830] = 36'o000000000000; // 044616 (unused) RAM[18831] = 36'o000000000000; // 044617 (unused) RAM[18832] = 36'o000000000000; // 044620 (unused) RAM[18833] = 36'o000000000000; // 044621 (unused) RAM[18834] = 36'o000000000000; // 044622 (unused) RAM[18835] = 36'o000000000000; // 044623 (unused) RAM[18836] = 36'o000000000000; // 044624 (unused) RAM[18837] = 36'o000000000000; // 044625 (unused) RAM[18838] = 36'o000000000000; // 044626 (unused) RAM[18839] = 36'o000000000000; // 044627 (unused) RAM[18840] = 36'o000000000000; // 044630 (unused) RAM[18841] = 36'o000000000000; // 044631 (unused) RAM[18842] = 36'o000000000000; // 044632 (unused) RAM[18843] = 36'o000000000000; // 044633 (unused) RAM[18844] = 36'o000000000000; // 044634 (unused) RAM[18845] = 36'o000000000000; // 044635 (unused) RAM[18846] = 36'o000000000000; // 044636 (unused) RAM[18847] = 36'o000000000000; // 044637 (unused) RAM[18848] = 36'o000000000000; // 044640 (unused) RAM[18849] = 36'o000000000000; // 044641 (unused) RAM[18850] = 36'o000000000000; // 044642 (unused) RAM[18851] = 36'o000000000000; // 044643 (unused) RAM[18852] = 36'o000000000000; // 044644 (unused) RAM[18853] = 36'o000000000000; // 044645 (unused) RAM[18854] = 36'o000000000000; // 044646 (unused) RAM[18855] = 36'o000000000000; // 044647 (unused) RAM[18856] = 36'o000000000000; // 044650 (unused) RAM[18857] = 36'o000000000000; // 044651 (unused) RAM[18858] = 36'o000000000000; // 044652 (unused) RAM[18859] = 36'o000000000000; // 044653 (unused) RAM[18860] = 36'o000000000000; // 044654 (unused) RAM[18861] = 36'o000000000000; // 044655 (unused) RAM[18862] = 36'o000000000000; // 044656 (unused) RAM[18863] = 36'o000000000000; // 044657 (unused) RAM[18864] = 36'o000000000000; // 044660 (unused) RAM[18865] = 36'o000000000000; // 044661 (unused) RAM[18866] = 36'o000000000000; // 044662 (unused) RAM[18867] = 36'o000000000000; // 044663 (unused) RAM[18868] = 36'o000000000000; // 044664 (unused) RAM[18869] = 36'o000000000000; // 044665 (unused) RAM[18870] = 36'o000000000000; // 044666 (unused) RAM[18871] = 36'o000000000000; // 044667 (unused) RAM[18872] = 36'o000000000000; // 044670 (unused) RAM[18873] = 36'o000000000000; // 044671 (unused) RAM[18874] = 36'o000000000000; // 044672 (unused) RAM[18875] = 36'o000000000000; // 044673 (unused) RAM[18876] = 36'o000000000000; // 044674 (unused) RAM[18877] = 36'o000000000000; // 044675 (unused) RAM[18878] = 36'o000000000000; // 044676 (unused) RAM[18879] = 36'o000000000000; // 044677 (unused) RAM[18880] = 36'o000000000000; // 044700 (unused) RAM[18881] = 36'o000000000000; // 044701 (unused) RAM[18882] = 36'o000000000000; // 044702 (unused) RAM[18883] = 36'o000000000000; // 044703 (unused) RAM[18884] = 36'o000000000000; // 044704 (unused) RAM[18885] = 36'o000000000000; // 044705 (unused) RAM[18886] = 36'o000000000000; // 044706 (unused) RAM[18887] = 36'o000000000000; // 044707 (unused) RAM[18888] = 36'o000000000000; // 044710 (unused) RAM[18889] = 36'o000000000000; // 044711 (unused) RAM[18890] = 36'o000000000000; // 044712 (unused) RAM[18891] = 36'o000000000000; // 044713 (unused) RAM[18892] = 36'o000000000000; // 044714 (unused) RAM[18893] = 36'o000000000000; // 044715 (unused) RAM[18894] = 36'o000000000000; // 044716 (unused) RAM[18895] = 36'o000000000000; // 044717 (unused) RAM[18896] = 36'o000000000000; // 044720 (unused) RAM[18897] = 36'o000000000000; // 044721 (unused) RAM[18898] = 36'o000000000000; // 044722 (unused) RAM[18899] = 36'o000000000000; // 044723 (unused) RAM[18900] = 36'o000000000000; // 044724 (unused) RAM[18901] = 36'o000000000000; // 044725 (unused) RAM[18902] = 36'o000000000000; // 044726 (unused) RAM[18903] = 36'o000000000000; // 044727 (unused) RAM[18904] = 36'o000000000000; // 044730 (unused) RAM[18905] = 36'o000000000000; // 044731 (unused) RAM[18906] = 36'o000000000000; // 044732 (unused) RAM[18907] = 36'o000000000000; // 044733 (unused) RAM[18908] = 36'o000000000000; // 044734 (unused) RAM[18909] = 36'o000000000000; // 044735 (unused) RAM[18910] = 36'o000000000000; // 044736 (unused) RAM[18911] = 36'o000000000000; // 044737 (unused) RAM[18912] = 36'o000000000000; // 044740 (unused) RAM[18913] = 36'o000000000000; // 044741 (unused) RAM[18914] = 36'o000000000000; // 044742 (unused) RAM[18915] = 36'o000000000000; // 044743 (unused) RAM[18916] = 36'o000000000000; // 044744 (unused) RAM[18917] = 36'o000000000000; // 044745 (unused) RAM[18918] = 36'o000000000000; // 044746 (unused) RAM[18919] = 36'o000000000000; // 044747 (unused) RAM[18920] = 36'o000000000000; // 044750 (unused) RAM[18921] = 36'o000000000000; // 044751 (unused) RAM[18922] = 36'o000000000000; // 044752 (unused) RAM[18923] = 36'o000000000000; // 044753 (unused) RAM[18924] = 36'o000000000000; // 044754 (unused) RAM[18925] = 36'o000000000000; // 044755 (unused) RAM[18926] = 36'o000000000000; // 044756 (unused) RAM[18927] = 36'o000000000000; // 044757 (unused) RAM[18928] = 36'o000000000000; // 044760 (unused) RAM[18929] = 36'o000000000000; // 044761 (unused) RAM[18930] = 36'o000000000000; // 044762 (unused) RAM[18931] = 36'o000000000000; // 044763 (unused) RAM[18932] = 36'o000000000000; // 044764 (unused) RAM[18933] = 36'o000000000000; // 044765 (unused) RAM[18934] = 36'o000000000000; // 044766 (unused) RAM[18935] = 36'o000000000000; // 044767 (unused) RAM[18936] = 36'o000000000000; // 044770 (unused) RAM[18937] = 36'o000000000000; // 044771 (unused) RAM[18938] = 36'o000000000000; // 044772 (unused) RAM[18939] = 36'o000000000000; // 044773 (unused) RAM[18940] = 36'o000000000000; // 044774 (unused) RAM[18941] = 36'o000000000000; // 044775 (unused) RAM[18942] = 36'o000000000000; // 044776 (unused) RAM[18943] = 36'o000000000000; // 044777 (unused) RAM[18944] = 36'o000000000000; // 045000 (unused) RAM[18945] = 36'o000000000000; // 045001 (unused) RAM[18946] = 36'o000000000000; // 045002 (unused) RAM[18947] = 36'o000000000000; // 045003 (unused) RAM[18948] = 36'o000000000000; // 045004 (unused) RAM[18949] = 36'o000000000000; // 045005 (unused) RAM[18950] = 36'o000000000000; // 045006 (unused) RAM[18951] = 36'o000000000000; // 045007 (unused) RAM[18952] = 36'o000000000000; // 045010 (unused) RAM[18953] = 36'o000000000000; // 045011 (unused) RAM[18954] = 36'o000000000000; // 045012 (unused) RAM[18955] = 36'o000000000000; // 045013 (unused) RAM[18956] = 36'o000000000000; // 045014 (unused) RAM[18957] = 36'o000000000000; // 045015 (unused) RAM[18958] = 36'o000000000000; // 045016 (unused) RAM[18959] = 36'o000000000000; // 045017 (unused) RAM[18960] = 36'o000000000000; // 045020 (unused) RAM[18961] = 36'o000000000000; // 045021 (unused) RAM[18962] = 36'o000000000000; // 045022 (unused) RAM[18963] = 36'o000000000000; // 045023 (unused) RAM[18964] = 36'o000000000000; // 045024 (unused) RAM[18965] = 36'o000000000000; // 045025 (unused) RAM[18966] = 36'o000000000000; // 045026 (unused) RAM[18967] = 36'o000000000000; // 045027 (unused) RAM[18968] = 36'o000000000000; // 045030 (unused) RAM[18969] = 36'o000000000000; // 045031 (unused) RAM[18970] = 36'o000000000000; // 045032 (unused) RAM[18971] = 36'o000000000000; // 045033 (unused) RAM[18972] = 36'o000000000000; // 045034 (unused) RAM[18973] = 36'o000000000000; // 045035 (unused) RAM[18974] = 36'o000000000000; // 045036 (unused) RAM[18975] = 36'o000000000000; // 045037 (unused) RAM[18976] = 36'o000000000000; // 045040 (unused) RAM[18977] = 36'o000000000000; // 045041 (unused) RAM[18978] = 36'o000000000000; // 045042 (unused) RAM[18979] = 36'o000000000000; // 045043 (unused) RAM[18980] = 36'o000000000000; // 045044 (unused) RAM[18981] = 36'o000000000000; // 045045 (unused) RAM[18982] = 36'o000000000000; // 045046 (unused) RAM[18983] = 36'o000000000000; // 045047 (unused) RAM[18984] = 36'o000000000000; // 045050 (unused) RAM[18985] = 36'o000000000000; // 045051 (unused) RAM[18986] = 36'o000000000000; // 045052 (unused) RAM[18987] = 36'o000000000000; // 045053 (unused) RAM[18988] = 36'o000000000000; // 045054 (unused) RAM[18989] = 36'o000000000000; // 045055 (unused) RAM[18990] = 36'o000000000000; // 045056 (unused) RAM[18991] = 36'o000000000000; // 045057 (unused) RAM[18992] = 36'o000000000000; // 045060 (unused) RAM[18993] = 36'o000000000000; // 045061 (unused) RAM[18994] = 36'o000000000000; // 045062 (unused) RAM[18995] = 36'o000000000000; // 045063 (unused) RAM[18996] = 36'o000000000000; // 045064 (unused) RAM[18997] = 36'o000000000000; // 045065 (unused) RAM[18998] = 36'o000000000000; // 045066 (unused) RAM[18999] = 36'o000000000000; // 045067 (unused) RAM[19000] = 36'o000000000000; // 045070 (unused) RAM[19001] = 36'o000000000000; // 045071 (unused) RAM[19002] = 36'o000000000000; // 045072 (unused) RAM[19003] = 36'o000000000000; // 045073 (unused) RAM[19004] = 36'o000000000000; // 045074 (unused) RAM[19005] = 36'o000000000000; // 045075 (unused) RAM[19006] = 36'o000000000000; // 045076 (unused) RAM[19007] = 36'o000000000000; // 045077 (unused) RAM[19008] = 36'o000000000000; // 045100 (unused) RAM[19009] = 36'o000000000000; // 045101 (unused) RAM[19010] = 36'o000000000000; // 045102 (unused) RAM[19011] = 36'o000000000000; // 045103 (unused) RAM[19012] = 36'o000000000000; // 045104 (unused) RAM[19013] = 36'o000000000000; // 045105 (unused) RAM[19014] = 36'o000000000000; // 045106 (unused) RAM[19015] = 36'o000000000000; // 045107 (unused) RAM[19016] = 36'o000000000000; // 045110 (unused) RAM[19017] = 36'o000000000000; // 045111 (unused) RAM[19018] = 36'o000000000000; // 045112 (unused) RAM[19019] = 36'o000000000000; // 045113 (unused) RAM[19020] = 36'o000000000000; // 045114 (unused) RAM[19021] = 36'o000000000000; // 045115 (unused) RAM[19022] = 36'o000000000000; // 045116 (unused) RAM[19023] = 36'o000000000000; // 045117 (unused) RAM[19024] = 36'o000000000000; // 045120 (unused) RAM[19025] = 36'o000000000000; // 045121 (unused) RAM[19026] = 36'o000000000000; // 045122 (unused) RAM[19027] = 36'o000000000000; // 045123 (unused) RAM[19028] = 36'o000000000000; // 045124 (unused) RAM[19029] = 36'o000000000000; // 045125 (unused) RAM[19030] = 36'o000000000000; // 045126 (unused) RAM[19031] = 36'o000000000000; // 045127 (unused) RAM[19032] = 36'o000000000000; // 045130 (unused) RAM[19033] = 36'o000000000000; // 045131 (unused) RAM[19034] = 36'o000000000000; // 045132 (unused) RAM[19035] = 36'o000000000000; // 045133 (unused) RAM[19036] = 36'o000000000000; // 045134 (unused) RAM[19037] = 36'o000000000000; // 045135 (unused) RAM[19038] = 36'o000000000000; // 045136 (unused) RAM[19039] = 36'o000000000000; // 045137 (unused) RAM[19040] = 36'o000000000000; // 045140 (unused) RAM[19041] = 36'o000000000000; // 045141 (unused) RAM[19042] = 36'o000000000000; // 045142 (unused) RAM[19043] = 36'o000000000000; // 045143 (unused) RAM[19044] = 36'o000000000000; // 045144 (unused) RAM[19045] = 36'o000000000000; // 045145 (unused) RAM[19046] = 36'o000000000000; // 045146 (unused) RAM[19047] = 36'o000000000000; // 045147 (unused) RAM[19048] = 36'o000000000000; // 045150 (unused) RAM[19049] = 36'o000000000000; // 045151 (unused) RAM[19050] = 36'o000000000000; // 045152 (unused) RAM[19051] = 36'o000000000000; // 045153 (unused) RAM[19052] = 36'o000000000000; // 045154 (unused) RAM[19053] = 36'o000000000000; // 045155 (unused) RAM[19054] = 36'o000000000000; // 045156 (unused) RAM[19055] = 36'o000000000000; // 045157 (unused) RAM[19056] = 36'o000000000000; // 045160 (unused) RAM[19057] = 36'o000000000000; // 045161 (unused) RAM[19058] = 36'o000000000000; // 045162 (unused) RAM[19059] = 36'o000000000000; // 045163 (unused) RAM[19060] = 36'o000000000000; // 045164 (unused) RAM[19061] = 36'o000000000000; // 045165 (unused) RAM[19062] = 36'o000000000000; // 045166 (unused) RAM[19063] = 36'o000000000000; // 045167 (unused) RAM[19064] = 36'o000000000000; // 045170 (unused) RAM[19065] = 36'o000000000000; // 045171 (unused) RAM[19066] = 36'o000000000000; // 045172 (unused) RAM[19067] = 36'o000000000000; // 045173 (unused) RAM[19068] = 36'o000000000000; // 045174 (unused) RAM[19069] = 36'o000000000000; // 045175 (unused) RAM[19070] = 36'o000000000000; // 045176 (unused) RAM[19071] = 36'o000000000000; // 045177 (unused) RAM[19072] = 36'o000000000000; // 045200 (unused) RAM[19073] = 36'o000000000000; // 045201 (unused) RAM[19074] = 36'o000000000000; // 045202 (unused) RAM[19075] = 36'o000000000000; // 045203 (unused) RAM[19076] = 36'o000000000000; // 045204 (unused) RAM[19077] = 36'o000000000000; // 045205 (unused) RAM[19078] = 36'o000000000000; // 045206 (unused) RAM[19079] = 36'o000000000000; // 045207 (unused) RAM[19080] = 36'o000000000000; // 045210 (unused) RAM[19081] = 36'o000000000000; // 045211 (unused) RAM[19082] = 36'o000000000000; // 045212 (unused) RAM[19083] = 36'o000000000000; // 045213 (unused) RAM[19084] = 36'o000000000000; // 045214 (unused) RAM[19085] = 36'o000000000000; // 045215 (unused) RAM[19086] = 36'o000000000000; // 045216 (unused) RAM[19087] = 36'o000000000000; // 045217 (unused) RAM[19088] = 36'o000000000000; // 045220 (unused) RAM[19089] = 36'o000000000000; // 045221 (unused) RAM[19090] = 36'o000000000000; // 045222 (unused) RAM[19091] = 36'o000000000000; // 045223 (unused) RAM[19092] = 36'o000000000000; // 045224 (unused) RAM[19093] = 36'o000000000000; // 045225 (unused) RAM[19094] = 36'o000000000000; // 045226 (unused) RAM[19095] = 36'o000000000000; // 045227 (unused) RAM[19096] = 36'o000000000000; // 045230 (unused) RAM[19097] = 36'o000000000000; // 045231 (unused) RAM[19098] = 36'o000000000000; // 045232 (unused) RAM[19099] = 36'o000000000000; // 045233 (unused) RAM[19100] = 36'o000000000000; // 045234 (unused) RAM[19101] = 36'o000000000000; // 045235 (unused) RAM[19102] = 36'o000000000000; // 045236 (unused) RAM[19103] = 36'o000000000000; // 045237 (unused) RAM[19104] = 36'o000000000000; // 045240 (unused) RAM[19105] = 36'o000000000000; // 045241 (unused) RAM[19106] = 36'o000000000000; // 045242 (unused) RAM[19107] = 36'o000000000000; // 045243 (unused) RAM[19108] = 36'o000000000000; // 045244 (unused) RAM[19109] = 36'o000000000000; // 045245 (unused) RAM[19110] = 36'o000000000000; // 045246 (unused) RAM[19111] = 36'o000000000000; // 045247 (unused) RAM[19112] = 36'o000000000000; // 045250 (unused) RAM[19113] = 36'o000000000000; // 045251 (unused) RAM[19114] = 36'o000000000000; // 045252 (unused) RAM[19115] = 36'o000000000000; // 045253 (unused) RAM[19116] = 36'o000000000000; // 045254 (unused) RAM[19117] = 36'o000000000000; // 045255 (unused) RAM[19118] = 36'o000000000000; // 045256 (unused) RAM[19119] = 36'o000000000000; // 045257 (unused) RAM[19120] = 36'o000000000000; // 045260 (unused) RAM[19121] = 36'o000000000000; // 045261 (unused) RAM[19122] = 36'o000000000000; // 045262 (unused) RAM[19123] = 36'o000000000000; // 045263 (unused) RAM[19124] = 36'o000000000000; // 045264 (unused) RAM[19125] = 36'o000000000000; // 045265 (unused) RAM[19126] = 36'o000000000000; // 045266 (unused) RAM[19127] = 36'o000000000000; // 045267 (unused) RAM[19128] = 36'o000000000000; // 045270 (unused) RAM[19129] = 36'o000000000000; // 045271 (unused) RAM[19130] = 36'o000000000000; // 045272 (unused) RAM[19131] = 36'o000000000000; // 045273 (unused) RAM[19132] = 36'o000000000000; // 045274 (unused) RAM[19133] = 36'o000000000000; // 045275 (unused) RAM[19134] = 36'o000000000000; // 045276 (unused) RAM[19135] = 36'o000000000000; // 045277 (unused) RAM[19136] = 36'o000000000000; // 045300 (unused) RAM[19137] = 36'o000000000000; // 045301 (unused) RAM[19138] = 36'o000000000000; // 045302 (unused) RAM[19139] = 36'o000000000000; // 045303 (unused) RAM[19140] = 36'o000000000000; // 045304 (unused) RAM[19141] = 36'o000000000000; // 045305 (unused) RAM[19142] = 36'o000000000000; // 045306 (unused) RAM[19143] = 36'o000000000000; // 045307 (unused) RAM[19144] = 36'o000000000000; // 045310 (unused) RAM[19145] = 36'o000000000000; // 045311 (unused) RAM[19146] = 36'o000000000000; // 045312 (unused) RAM[19147] = 36'o000000000000; // 045313 (unused) RAM[19148] = 36'o000000000000; // 045314 (unused) RAM[19149] = 36'o000000000000; // 045315 (unused) RAM[19150] = 36'o000000000000; // 045316 (unused) RAM[19151] = 36'o000000000000; // 045317 (unused) RAM[19152] = 36'o000000000000; // 045320 (unused) RAM[19153] = 36'o000000000000; // 045321 (unused) RAM[19154] = 36'o000000000000; // 045322 (unused) RAM[19155] = 36'o000000000000; // 045323 (unused) RAM[19156] = 36'o000000000000; // 045324 (unused) RAM[19157] = 36'o000000000000; // 045325 (unused) RAM[19158] = 36'o000000000000; // 045326 (unused) RAM[19159] = 36'o000000000000; // 045327 (unused) RAM[19160] = 36'o000000000000; // 045330 (unused) RAM[19161] = 36'o000000000000; // 045331 (unused) RAM[19162] = 36'o000000000000; // 045332 (unused) RAM[19163] = 36'o000000000000; // 045333 (unused) RAM[19164] = 36'o000000000000; // 045334 (unused) RAM[19165] = 36'o000000000000; // 045335 (unused) RAM[19166] = 36'o000000000000; // 045336 (unused) RAM[19167] = 36'o000000000000; // 045337 (unused) RAM[19168] = 36'o000000000000; // 045340 (unused) RAM[19169] = 36'o000000000000; // 045341 (unused) RAM[19170] = 36'o000000000000; // 045342 (unused) RAM[19171] = 36'o000000000000; // 045343 (unused) RAM[19172] = 36'o000000000000; // 045344 (unused) RAM[19173] = 36'o000000000000; // 045345 (unused) RAM[19174] = 36'o000000000000; // 045346 (unused) RAM[19175] = 36'o000000000000; // 045347 (unused) RAM[19176] = 36'o000000000000; // 045350 (unused) RAM[19177] = 36'o000000000000; // 045351 (unused) RAM[19178] = 36'o000000000000; // 045352 (unused) RAM[19179] = 36'o000000000000; // 045353 (unused) RAM[19180] = 36'o000000000000; // 045354 (unused) RAM[19181] = 36'o000000000000; // 045355 (unused) RAM[19182] = 36'o000000000000; // 045356 (unused) RAM[19183] = 36'o000000000000; // 045357 (unused) RAM[19184] = 36'o000000000000; // 045360 (unused) RAM[19185] = 36'o000000000000; // 045361 (unused) RAM[19186] = 36'o000000000000; // 045362 (unused) RAM[19187] = 36'o000000000000; // 045363 (unused) RAM[19188] = 36'o000000000000; // 045364 (unused) RAM[19189] = 36'o000000000000; // 045365 (unused) RAM[19190] = 36'o000000000000; // 045366 (unused) RAM[19191] = 36'o000000000000; // 045367 (unused) RAM[19192] = 36'o000000000000; // 045370 (unused) RAM[19193] = 36'o000000000000; // 045371 (unused) RAM[19194] = 36'o000000000000; // 045372 (unused) RAM[19195] = 36'o000000000000; // 045373 (unused) RAM[19196] = 36'o000000000000; // 045374 (unused) RAM[19197] = 36'o000000000000; // 045375 (unused) RAM[19198] = 36'o000000000000; // 045376 (unused) RAM[19199] = 36'o000000000000; // 045377 (unused) RAM[19200] = 36'o000000000000; // 045400 (unused) RAM[19201] = 36'o000000000000; // 045401 (unused) RAM[19202] = 36'o000000000000; // 045402 (unused) RAM[19203] = 36'o000000000000; // 045403 (unused) RAM[19204] = 36'o000000000000; // 045404 (unused) RAM[19205] = 36'o000000000000; // 045405 (unused) RAM[19206] = 36'o000000000000; // 045406 (unused) RAM[19207] = 36'o000000000000; // 045407 (unused) RAM[19208] = 36'o000000000000; // 045410 (unused) RAM[19209] = 36'o000000000000; // 045411 (unused) RAM[19210] = 36'o000000000000; // 045412 (unused) RAM[19211] = 36'o000000000000; // 045413 (unused) RAM[19212] = 36'o000000000000; // 045414 (unused) RAM[19213] = 36'o000000000000; // 045415 (unused) RAM[19214] = 36'o000000000000; // 045416 (unused) RAM[19215] = 36'o000000000000; // 045417 (unused) RAM[19216] = 36'o000000000000; // 045420 (unused) RAM[19217] = 36'o000000000000; // 045421 (unused) RAM[19218] = 36'o000000000000; // 045422 (unused) RAM[19219] = 36'o000000000000; // 045423 (unused) RAM[19220] = 36'o000000000000; // 045424 (unused) RAM[19221] = 36'o000000000000; // 045425 (unused) RAM[19222] = 36'o000000000000; // 045426 (unused) RAM[19223] = 36'o000000000000; // 045427 (unused) RAM[19224] = 36'o000000000000; // 045430 (unused) RAM[19225] = 36'o000000000000; // 045431 (unused) RAM[19226] = 36'o000000000000; // 045432 (unused) RAM[19227] = 36'o000000000000; // 045433 (unused) RAM[19228] = 36'o000000000000; // 045434 (unused) RAM[19229] = 36'o000000000000; // 045435 (unused) RAM[19230] = 36'o000000000000; // 045436 (unused) RAM[19231] = 36'o000000000000; // 045437 (unused) RAM[19232] = 36'o000000000000; // 045440 (unused) RAM[19233] = 36'o000000000000; // 045441 (unused) RAM[19234] = 36'o000000000000; // 045442 (unused) RAM[19235] = 36'o000000000000; // 045443 (unused) RAM[19236] = 36'o000000000000; // 045444 (unused) RAM[19237] = 36'o000000000000; // 045445 (unused) RAM[19238] = 36'o000000000000; // 045446 (unused) RAM[19239] = 36'o000000000000; // 045447 (unused) RAM[19240] = 36'o000000000000; // 045450 (unused) RAM[19241] = 36'o000000000000; // 045451 (unused) RAM[19242] = 36'o000000000000; // 045452 (unused) RAM[19243] = 36'o000000000000; // 045453 (unused) RAM[19244] = 36'o000000000000; // 045454 (unused) RAM[19245] = 36'o000000000000; // 045455 (unused) RAM[19246] = 36'o000000000000; // 045456 (unused) RAM[19247] = 36'o000000000000; // 045457 (unused) RAM[19248] = 36'o000000000000; // 045460 (unused) RAM[19249] = 36'o000000000000; // 045461 (unused) RAM[19250] = 36'o000000000000; // 045462 (unused) RAM[19251] = 36'o000000000000; // 045463 (unused) RAM[19252] = 36'o000000000000; // 045464 (unused) RAM[19253] = 36'o000000000000; // 045465 (unused) RAM[19254] = 36'o000000000000; // 045466 (unused) RAM[19255] = 36'o000000000000; // 045467 (unused) RAM[19256] = 36'o000000000000; // 045470 (unused) RAM[19257] = 36'o000000000000; // 045471 (unused) RAM[19258] = 36'o000000000000; // 045472 (unused) RAM[19259] = 36'o000000000000; // 045473 (unused) RAM[19260] = 36'o000000000000; // 045474 (unused) RAM[19261] = 36'o000000000000; // 045475 (unused) RAM[19262] = 36'o000000000000; // 045476 (unused) RAM[19263] = 36'o000000000000; // 045477 (unused) RAM[19264] = 36'o000000000000; // 045500 (unused) RAM[19265] = 36'o000000000000; // 045501 (unused) RAM[19266] = 36'o000000000000; // 045502 (unused) RAM[19267] = 36'o000000000000; // 045503 (unused) RAM[19268] = 36'o000000000000; // 045504 (unused) RAM[19269] = 36'o000000000000; // 045505 (unused) RAM[19270] = 36'o000000000000; // 045506 (unused) RAM[19271] = 36'o000000000000; // 045507 (unused) RAM[19272] = 36'o000000000000; // 045510 (unused) RAM[19273] = 36'o000000000000; // 045511 (unused) RAM[19274] = 36'o000000000000; // 045512 (unused) RAM[19275] = 36'o000000000000; // 045513 (unused) RAM[19276] = 36'o000000000000; // 045514 (unused) RAM[19277] = 36'o000000000000; // 045515 (unused) RAM[19278] = 36'o000000000000; // 045516 (unused) RAM[19279] = 36'o000000000000; // 045517 (unused) RAM[19280] = 36'o000000000000; // 045520 (unused) RAM[19281] = 36'o000000000000; // 045521 (unused) RAM[19282] = 36'o000000000000; // 045522 (unused) RAM[19283] = 36'o000000000000; // 045523 (unused) RAM[19284] = 36'o000000000000; // 045524 (unused) RAM[19285] = 36'o000000000000; // 045525 (unused) RAM[19286] = 36'o000000000000; // 045526 (unused) RAM[19287] = 36'o000000000000; // 045527 (unused) RAM[19288] = 36'o000000000000; // 045530 (unused) RAM[19289] = 36'o000000000000; // 045531 (unused) RAM[19290] = 36'o000000000000; // 045532 (unused) RAM[19291] = 36'o000000000000; // 045533 (unused) RAM[19292] = 36'o000000000000; // 045534 (unused) RAM[19293] = 36'o000000000000; // 045535 (unused) RAM[19294] = 36'o000000000000; // 045536 (unused) RAM[19295] = 36'o000000000000; // 045537 (unused) RAM[19296] = 36'o000000000000; // 045540 (unused) RAM[19297] = 36'o000000000000; // 045541 (unused) RAM[19298] = 36'o000000000000; // 045542 (unused) RAM[19299] = 36'o000000000000; // 045543 (unused) RAM[19300] = 36'o000000000000; // 045544 (unused) RAM[19301] = 36'o000000000000; // 045545 (unused) RAM[19302] = 36'o000000000000; // 045546 (unused) RAM[19303] = 36'o000000000000; // 045547 (unused) RAM[19304] = 36'o000000000000; // 045550 (unused) RAM[19305] = 36'o000000000000; // 045551 (unused) RAM[19306] = 36'o000000000000; // 045552 (unused) RAM[19307] = 36'o000000000000; // 045553 (unused) RAM[19308] = 36'o000000000000; // 045554 (unused) RAM[19309] = 36'o000000000000; // 045555 (unused) RAM[19310] = 36'o000000000000; // 045556 (unused) RAM[19311] = 36'o000000000000; // 045557 (unused) RAM[19312] = 36'o000000000000; // 045560 (unused) RAM[19313] = 36'o000000000000; // 045561 (unused) RAM[19314] = 36'o000000000000; // 045562 (unused) RAM[19315] = 36'o000000000000; // 045563 (unused) RAM[19316] = 36'o000000000000; // 045564 (unused) RAM[19317] = 36'o000000000000; // 045565 (unused) RAM[19318] = 36'o000000000000; // 045566 (unused) RAM[19319] = 36'o000000000000; // 045567 (unused) RAM[19320] = 36'o000000000000; // 045570 (unused) RAM[19321] = 36'o000000000000; // 045571 (unused) RAM[19322] = 36'o000000000000; // 045572 (unused) RAM[19323] = 36'o000000000000; // 045573 (unused) RAM[19324] = 36'o000000000000; // 045574 (unused) RAM[19325] = 36'o000000000000; // 045575 (unused) RAM[19326] = 36'o000000000000; // 045576 (unused) RAM[19327] = 36'o000000000000; // 045577 (unused) RAM[19328] = 36'o000000000000; // 045600 (unused) RAM[19329] = 36'o000000000000; // 045601 (unused) RAM[19330] = 36'o000000000000; // 045602 (unused) RAM[19331] = 36'o000000000000; // 045603 (unused) RAM[19332] = 36'o000000000000; // 045604 (unused) RAM[19333] = 36'o000000000000; // 045605 (unused) RAM[19334] = 36'o000000000000; // 045606 (unused) RAM[19335] = 36'o000000000000; // 045607 (unused) RAM[19336] = 36'o000000000000; // 045610 (unused) RAM[19337] = 36'o000000000000; // 045611 (unused) RAM[19338] = 36'o000000000000; // 045612 (unused) RAM[19339] = 36'o000000000000; // 045613 (unused) RAM[19340] = 36'o000000000000; // 045614 (unused) RAM[19341] = 36'o000000000000; // 045615 (unused) RAM[19342] = 36'o000000000000; // 045616 (unused) RAM[19343] = 36'o000000000000; // 045617 (unused) RAM[19344] = 36'o000000000000; // 045620 (unused) RAM[19345] = 36'o000000000000; // 045621 (unused) RAM[19346] = 36'o000000000000; // 045622 (unused) RAM[19347] = 36'o000000000000; // 045623 (unused) RAM[19348] = 36'o000000000000; // 045624 (unused) RAM[19349] = 36'o000000000000; // 045625 (unused) RAM[19350] = 36'o000000000000; // 045626 (unused) RAM[19351] = 36'o000000000000; // 045627 (unused) RAM[19352] = 36'o000000000000; // 045630 (unused) RAM[19353] = 36'o000000000000; // 045631 (unused) RAM[19354] = 36'o000000000000; // 045632 (unused) RAM[19355] = 36'o000000000000; // 045633 (unused) RAM[19356] = 36'o000000000000; // 045634 (unused) RAM[19357] = 36'o000000000000; // 045635 (unused) RAM[19358] = 36'o000000000000; // 045636 (unused) RAM[19359] = 36'o000000000000; // 045637 (unused) RAM[19360] = 36'o000000000000; // 045640 (unused) RAM[19361] = 36'o000000000000; // 045641 (unused) RAM[19362] = 36'o000000000000; // 045642 (unused) RAM[19363] = 36'o000000000000; // 045643 (unused) RAM[19364] = 36'o000000000000; // 045644 (unused) RAM[19365] = 36'o000000000000; // 045645 (unused) RAM[19366] = 36'o000000000000; // 045646 (unused) RAM[19367] = 36'o000000000000; // 045647 (unused) RAM[19368] = 36'o000000000000; // 045650 (unused) RAM[19369] = 36'o000000000000; // 045651 (unused) RAM[19370] = 36'o000000000000; // 045652 (unused) RAM[19371] = 36'o000000000000; // 045653 (unused) RAM[19372] = 36'o000000000000; // 045654 (unused) RAM[19373] = 36'o000000000000; // 045655 (unused) RAM[19374] = 36'o000000000000; // 045656 (unused) RAM[19375] = 36'o000000000000; // 045657 (unused) RAM[19376] = 36'o000000000000; // 045660 (unused) RAM[19377] = 36'o000000000000; // 045661 (unused) RAM[19378] = 36'o000000000000; // 045662 (unused) RAM[19379] = 36'o000000000000; // 045663 (unused) RAM[19380] = 36'o000000000000; // 045664 (unused) RAM[19381] = 36'o000000000000; // 045665 (unused) RAM[19382] = 36'o000000000000; // 045666 (unused) RAM[19383] = 36'o000000000000; // 045667 (unused) RAM[19384] = 36'o000000000000; // 045670 (unused) RAM[19385] = 36'o000000000000; // 045671 (unused) RAM[19386] = 36'o000000000000; // 045672 (unused) RAM[19387] = 36'o000000000000; // 045673 (unused) RAM[19388] = 36'o000000000000; // 045674 (unused) RAM[19389] = 36'o000000000000; // 045675 (unused) RAM[19390] = 36'o000000000000; // 045676 (unused) RAM[19391] = 36'o000000000000; // 045677 (unused) RAM[19392] = 36'o000000000000; // 045700 (unused) RAM[19393] = 36'o000000000000; // 045701 (unused) RAM[19394] = 36'o000000000000; // 045702 (unused) RAM[19395] = 36'o000000000000; // 045703 (unused) RAM[19396] = 36'o000000000000; // 045704 (unused) RAM[19397] = 36'o000000000000; // 045705 (unused) RAM[19398] = 36'o000000000000; // 045706 (unused) RAM[19399] = 36'o000000000000; // 045707 (unused) RAM[19400] = 36'o000000000000; // 045710 (unused) RAM[19401] = 36'o000000000000; // 045711 (unused) RAM[19402] = 36'o000000000000; // 045712 (unused) RAM[19403] = 36'o000000000000; // 045713 (unused) RAM[19404] = 36'o000000000000; // 045714 (unused) RAM[19405] = 36'o000000000000; // 045715 (unused) RAM[19406] = 36'o000000000000; // 045716 (unused) RAM[19407] = 36'o000000000000; // 045717 (unused) RAM[19408] = 36'o000000000000; // 045720 (unused) RAM[19409] = 36'o000000000000; // 045721 (unused) RAM[19410] = 36'o000000000000; // 045722 (unused) RAM[19411] = 36'o000000000000; // 045723 (unused) RAM[19412] = 36'o000000000000; // 045724 (unused) RAM[19413] = 36'o000000000000; // 045725 (unused) RAM[19414] = 36'o000000000000; // 045726 (unused) RAM[19415] = 36'o000000000000; // 045727 (unused) RAM[19416] = 36'o000000000000; // 045730 (unused) RAM[19417] = 36'o000000000000; // 045731 (unused) RAM[19418] = 36'o000000000000; // 045732 (unused) RAM[19419] = 36'o000000000000; // 045733 (unused) RAM[19420] = 36'o000000000000; // 045734 (unused) RAM[19421] = 36'o000000000000; // 045735 (unused) RAM[19422] = 36'o000000000000; // 045736 (unused) RAM[19423] = 36'o000000000000; // 045737 (unused) RAM[19424] = 36'o000000000000; // 045740 (unused) RAM[19425] = 36'o000000000000; // 045741 (unused) RAM[19426] = 36'o000000000000; // 045742 (unused) RAM[19427] = 36'o000000000000; // 045743 (unused) RAM[19428] = 36'o000000000000; // 045744 (unused) RAM[19429] = 36'o000000000000; // 045745 (unused) RAM[19430] = 36'o000000000000; // 045746 (unused) RAM[19431] = 36'o000000000000; // 045747 (unused) RAM[19432] = 36'o000000000000; // 045750 (unused) RAM[19433] = 36'o000000000000; // 045751 (unused) RAM[19434] = 36'o000000000000; // 045752 (unused) RAM[19435] = 36'o000000000000; // 045753 (unused) RAM[19436] = 36'o000000000000; // 045754 (unused) RAM[19437] = 36'o000000000000; // 045755 (unused) RAM[19438] = 36'o000000000000; // 045756 (unused) RAM[19439] = 36'o000000000000; // 045757 (unused) RAM[19440] = 36'o000000000000; // 045760 (unused) RAM[19441] = 36'o000000000000; // 045761 (unused) RAM[19442] = 36'o000000000000; // 045762 (unused) RAM[19443] = 36'o000000000000; // 045763 (unused) RAM[19444] = 36'o000000000000; // 045764 (unused) RAM[19445] = 36'o000000000000; // 045765 (unused) RAM[19446] = 36'o000000000000; // 045766 (unused) RAM[19447] = 36'o000000000000; // 045767 (unused) RAM[19448] = 36'o000000000000; // 045770 (unused) RAM[19449] = 36'o000000000000; // 045771 (unused) RAM[19450] = 36'o000000000000; // 045772 (unused) RAM[19451] = 36'o000000000000; // 045773 (unused) RAM[19452] = 36'o000000000000; // 045774 (unused) RAM[19453] = 36'o000000000000; // 045775 (unused) RAM[19454] = 36'o000000000000; // 045776 (unused) RAM[19455] = 36'o000000000000; // 045777 (unused) RAM[19456] = 36'o000000000000; // 046000 (unused) RAM[19457] = 36'o000000000000; // 046001 (unused) RAM[19458] = 36'o000000000000; // 046002 (unused) RAM[19459] = 36'o000000000000; // 046003 (unused) RAM[19460] = 36'o000000000000; // 046004 (unused) RAM[19461] = 36'o000000000000; // 046005 (unused) RAM[19462] = 36'o000000000000; // 046006 (unused) RAM[19463] = 36'o000000000000; // 046007 (unused) RAM[19464] = 36'o000000000000; // 046010 (unused) RAM[19465] = 36'o000000000000; // 046011 (unused) RAM[19466] = 36'o000000000000; // 046012 (unused) RAM[19467] = 36'o000000000000; // 046013 (unused) RAM[19468] = 36'o000000000000; // 046014 (unused) RAM[19469] = 36'o000000000000; // 046015 (unused) RAM[19470] = 36'o000000000000; // 046016 (unused) RAM[19471] = 36'o000000000000; // 046017 (unused) RAM[19472] = 36'o000000000000; // 046020 (unused) RAM[19473] = 36'o000000000000; // 046021 (unused) RAM[19474] = 36'o000000000000; // 046022 (unused) RAM[19475] = 36'o000000000000; // 046023 (unused) RAM[19476] = 36'o000000000000; // 046024 (unused) RAM[19477] = 36'o000000000000; // 046025 (unused) RAM[19478] = 36'o000000000000; // 046026 (unused) RAM[19479] = 36'o000000000000; // 046027 (unused) RAM[19480] = 36'o000000000000; // 046030 (unused) RAM[19481] = 36'o000000000000; // 046031 (unused) RAM[19482] = 36'o000000000000; // 046032 (unused) RAM[19483] = 36'o000000000000; // 046033 (unused) RAM[19484] = 36'o000000000000; // 046034 (unused) RAM[19485] = 36'o000000000000; // 046035 (unused) RAM[19486] = 36'o000000000000; // 046036 (unused) RAM[19487] = 36'o000000000000; // 046037 (unused) RAM[19488] = 36'o000000000000; // 046040 (unused) RAM[19489] = 36'o000000000000; // 046041 (unused) RAM[19490] = 36'o000000000000; // 046042 (unused) RAM[19491] = 36'o000000000000; // 046043 (unused) RAM[19492] = 36'o000000000000; // 046044 (unused) RAM[19493] = 36'o000000000000; // 046045 (unused) RAM[19494] = 36'o000000000000; // 046046 (unused) RAM[19495] = 36'o000000000000; // 046047 (unused) RAM[19496] = 36'o000000000000; // 046050 (unused) RAM[19497] = 36'o000000000000; // 046051 (unused) RAM[19498] = 36'o000000000000; // 046052 (unused) RAM[19499] = 36'o000000000000; // 046053 (unused) RAM[19500] = 36'o000000000000; // 046054 (unused) RAM[19501] = 36'o000000000000; // 046055 (unused) RAM[19502] = 36'o000000000000; // 046056 (unused) RAM[19503] = 36'o000000000000; // 046057 (unused) RAM[19504] = 36'o000000000000; // 046060 (unused) RAM[19505] = 36'o000000000000; // 046061 (unused) RAM[19506] = 36'o000000000000; // 046062 (unused) RAM[19507] = 36'o000000000000; // 046063 (unused) RAM[19508] = 36'o000000000000; // 046064 (unused) RAM[19509] = 36'o000000000000; // 046065 (unused) RAM[19510] = 36'o000000000000; // 046066 (unused) RAM[19511] = 36'o000000000000; // 046067 (unused) RAM[19512] = 36'o000000000000; // 046070 (unused) RAM[19513] = 36'o000000000000; // 046071 (unused) RAM[19514] = 36'o000000000000; // 046072 (unused) RAM[19515] = 36'o000000000000; // 046073 (unused) RAM[19516] = 36'o000000000000; // 046074 (unused) RAM[19517] = 36'o000000000000; // 046075 (unused) RAM[19518] = 36'o000000000000; // 046076 (unused) RAM[19519] = 36'o000000000000; // 046077 (unused) RAM[19520] = 36'o000000000000; // 046100 (unused) RAM[19521] = 36'o000000000000; // 046101 (unused) RAM[19522] = 36'o000000000000; // 046102 (unused) RAM[19523] = 36'o000000000000; // 046103 (unused) RAM[19524] = 36'o000000000000; // 046104 (unused) RAM[19525] = 36'o000000000000; // 046105 (unused) RAM[19526] = 36'o000000000000; // 046106 (unused) RAM[19527] = 36'o000000000000; // 046107 (unused) RAM[19528] = 36'o000000000000; // 046110 (unused) RAM[19529] = 36'o000000000000; // 046111 (unused) RAM[19530] = 36'o000000000000; // 046112 (unused) RAM[19531] = 36'o000000000000; // 046113 (unused) RAM[19532] = 36'o000000000000; // 046114 (unused) RAM[19533] = 36'o000000000000; // 046115 (unused) RAM[19534] = 36'o000000000000; // 046116 (unused) RAM[19535] = 36'o000000000000; // 046117 (unused) RAM[19536] = 36'o000000000000; // 046120 (unused) RAM[19537] = 36'o000000000000; // 046121 (unused) RAM[19538] = 36'o000000000000; // 046122 (unused) RAM[19539] = 36'o000000000000; // 046123 (unused) RAM[19540] = 36'o000000000000; // 046124 (unused) RAM[19541] = 36'o000000000000; // 046125 (unused) RAM[19542] = 36'o000000000000; // 046126 (unused) RAM[19543] = 36'o000000000000; // 046127 (unused) RAM[19544] = 36'o000000000000; // 046130 (unused) RAM[19545] = 36'o000000000000; // 046131 (unused) RAM[19546] = 36'o000000000000; // 046132 (unused) RAM[19547] = 36'o000000000000; // 046133 (unused) RAM[19548] = 36'o000000000000; // 046134 (unused) RAM[19549] = 36'o000000000000; // 046135 (unused) RAM[19550] = 36'o000000000000; // 046136 (unused) RAM[19551] = 36'o000000000000; // 046137 (unused) RAM[19552] = 36'o000000000000; // 046140 (unused) RAM[19553] = 36'o000000000000; // 046141 (unused) RAM[19554] = 36'o000000000000; // 046142 (unused) RAM[19555] = 36'o000000000000; // 046143 (unused) RAM[19556] = 36'o000000000000; // 046144 (unused) RAM[19557] = 36'o000000000000; // 046145 (unused) RAM[19558] = 36'o000000000000; // 046146 (unused) RAM[19559] = 36'o000000000000; // 046147 (unused) RAM[19560] = 36'o000000000000; // 046150 (unused) RAM[19561] = 36'o000000000000; // 046151 (unused) RAM[19562] = 36'o000000000000; // 046152 (unused) RAM[19563] = 36'o000000000000; // 046153 (unused) RAM[19564] = 36'o000000000000; // 046154 (unused) RAM[19565] = 36'o000000000000; // 046155 (unused) RAM[19566] = 36'o000000000000; // 046156 (unused) RAM[19567] = 36'o000000000000; // 046157 (unused) RAM[19568] = 36'o000000000000; // 046160 (unused) RAM[19569] = 36'o000000000000; // 046161 (unused) RAM[19570] = 36'o000000000000; // 046162 (unused) RAM[19571] = 36'o000000000000; // 046163 (unused) RAM[19572] = 36'o000000000000; // 046164 (unused) RAM[19573] = 36'o000000000000; // 046165 (unused) RAM[19574] = 36'o000000000000; // 046166 (unused) RAM[19575] = 36'o000000000000; // 046167 (unused) RAM[19576] = 36'o000000000000; // 046170 (unused) RAM[19577] = 36'o000000000000; // 046171 (unused) RAM[19578] = 36'o000000000000; // 046172 (unused) RAM[19579] = 36'o000000000000; // 046173 (unused) RAM[19580] = 36'o000000000000; // 046174 (unused) RAM[19581] = 36'o000000000000; // 046175 (unused) RAM[19582] = 36'o000000000000; // 046176 (unused) RAM[19583] = 36'o000000000000; // 046177 (unused) RAM[19584] = 36'o000000000000; // 046200 (unused) RAM[19585] = 36'o000000000000; // 046201 (unused) RAM[19586] = 36'o000000000000; // 046202 (unused) RAM[19587] = 36'o000000000000; // 046203 (unused) RAM[19588] = 36'o000000000000; // 046204 (unused) RAM[19589] = 36'o000000000000; // 046205 (unused) RAM[19590] = 36'o000000000000; // 046206 (unused) RAM[19591] = 36'o000000000000; // 046207 (unused) RAM[19592] = 36'o000000000000; // 046210 (unused) RAM[19593] = 36'o000000000000; // 046211 (unused) RAM[19594] = 36'o000000000000; // 046212 (unused) RAM[19595] = 36'o000000000000; // 046213 (unused) RAM[19596] = 36'o000000000000; // 046214 (unused) RAM[19597] = 36'o000000000000; // 046215 (unused) RAM[19598] = 36'o000000000000; // 046216 (unused) RAM[19599] = 36'o000000000000; // 046217 (unused) RAM[19600] = 36'o000000000000; // 046220 (unused) RAM[19601] = 36'o000000000000; // 046221 (unused) RAM[19602] = 36'o000000000000; // 046222 (unused) RAM[19603] = 36'o000000000000; // 046223 (unused) RAM[19604] = 36'o000000000000; // 046224 (unused) RAM[19605] = 36'o000000000000; // 046225 (unused) RAM[19606] = 36'o000000000000; // 046226 (unused) RAM[19607] = 36'o000000000000; // 046227 (unused) RAM[19608] = 36'o000000000000; // 046230 (unused) RAM[19609] = 36'o000000000000; // 046231 (unused) RAM[19610] = 36'o000000000000; // 046232 (unused) RAM[19611] = 36'o000000000000; // 046233 (unused) RAM[19612] = 36'o000000000000; // 046234 (unused) RAM[19613] = 36'o000000000000; // 046235 (unused) RAM[19614] = 36'o000000000000; // 046236 (unused) RAM[19615] = 36'o000000000000; // 046237 (unused) RAM[19616] = 36'o000000000000; // 046240 (unused) RAM[19617] = 36'o000000000000; // 046241 (unused) RAM[19618] = 36'o000000000000; // 046242 (unused) RAM[19619] = 36'o000000000000; // 046243 (unused) RAM[19620] = 36'o000000000000; // 046244 (unused) RAM[19621] = 36'o000000000000; // 046245 (unused) RAM[19622] = 36'o000000000000; // 046246 (unused) RAM[19623] = 36'o000000000000; // 046247 (unused) RAM[19624] = 36'o000000000000; // 046250 (unused) RAM[19625] = 36'o000000000000; // 046251 (unused) RAM[19626] = 36'o000000000000; // 046252 (unused) RAM[19627] = 36'o000000000000; // 046253 (unused) RAM[19628] = 36'o000000000000; // 046254 (unused) RAM[19629] = 36'o000000000000; // 046255 (unused) RAM[19630] = 36'o000000000000; // 046256 (unused) RAM[19631] = 36'o000000000000; // 046257 (unused) RAM[19632] = 36'o000000000000; // 046260 (unused) RAM[19633] = 36'o000000000000; // 046261 (unused) RAM[19634] = 36'o000000000000; // 046262 (unused) RAM[19635] = 36'o000000000000; // 046263 (unused) RAM[19636] = 36'o000000000000; // 046264 (unused) RAM[19637] = 36'o000000000000; // 046265 (unused) RAM[19638] = 36'o000000000000; // 046266 (unused) RAM[19639] = 36'o000000000000; // 046267 (unused) RAM[19640] = 36'o000000000000; // 046270 (unused) RAM[19641] = 36'o000000000000; // 046271 (unused) RAM[19642] = 36'o000000000000; // 046272 (unused) RAM[19643] = 36'o000000000000; // 046273 (unused) RAM[19644] = 36'o000000000000; // 046274 (unused) RAM[19645] = 36'o000000000000; // 046275 (unused) RAM[19646] = 36'o000000000000; // 046276 (unused) RAM[19647] = 36'o000000000000; // 046277 (unused) RAM[19648] = 36'o000000000000; // 046300 (unused) RAM[19649] = 36'o000000000000; // 046301 (unused) RAM[19650] = 36'o000000000000; // 046302 (unused) RAM[19651] = 36'o000000000000; // 046303 (unused) RAM[19652] = 36'o000000000000; // 046304 (unused) RAM[19653] = 36'o000000000000; // 046305 (unused) RAM[19654] = 36'o000000000000; // 046306 (unused) RAM[19655] = 36'o000000000000; // 046307 (unused) RAM[19656] = 36'o000000000000; // 046310 (unused) RAM[19657] = 36'o000000000000; // 046311 (unused) RAM[19658] = 36'o000000000000; // 046312 (unused) RAM[19659] = 36'o000000000000; // 046313 (unused) RAM[19660] = 36'o000000000000; // 046314 (unused) RAM[19661] = 36'o000000000000; // 046315 (unused) RAM[19662] = 36'o000000000000; // 046316 (unused) RAM[19663] = 36'o000000000000; // 046317 (unused) RAM[19664] = 36'o000000000000; // 046320 (unused) RAM[19665] = 36'o000000000000; // 046321 (unused) RAM[19666] = 36'o000000000000; // 046322 (unused) RAM[19667] = 36'o000000000000; // 046323 (unused) RAM[19668] = 36'o000000000000; // 046324 (unused) RAM[19669] = 36'o000000000000; // 046325 (unused) RAM[19670] = 36'o000000000000; // 046326 (unused) RAM[19671] = 36'o000000000000; // 046327 (unused) RAM[19672] = 36'o000000000000; // 046330 (unused) RAM[19673] = 36'o000000000000; // 046331 (unused) RAM[19674] = 36'o000000000000; // 046332 (unused) RAM[19675] = 36'o000000000000; // 046333 (unused) RAM[19676] = 36'o000000000000; // 046334 (unused) RAM[19677] = 36'o000000000000; // 046335 (unused) RAM[19678] = 36'o000000000000; // 046336 (unused) RAM[19679] = 36'o000000000000; // 046337 (unused) RAM[19680] = 36'o000000000000; // 046340 (unused) RAM[19681] = 36'o000000000000; // 046341 (unused) RAM[19682] = 36'o000000000000; // 046342 (unused) RAM[19683] = 36'o000000000000; // 046343 (unused) RAM[19684] = 36'o000000000000; // 046344 (unused) RAM[19685] = 36'o000000000000; // 046345 (unused) RAM[19686] = 36'o000000000000; // 046346 (unused) RAM[19687] = 36'o000000000000; // 046347 (unused) RAM[19688] = 36'o000000000000; // 046350 (unused) RAM[19689] = 36'o000000000000; // 046351 (unused) RAM[19690] = 36'o000000000000; // 046352 (unused) RAM[19691] = 36'o000000000000; // 046353 (unused) RAM[19692] = 36'o000000000000; // 046354 (unused) RAM[19693] = 36'o000000000000; // 046355 (unused) RAM[19694] = 36'o000000000000; // 046356 (unused) RAM[19695] = 36'o000000000000; // 046357 (unused) RAM[19696] = 36'o000000000000; // 046360 (unused) RAM[19697] = 36'o000000000000; // 046361 (unused) RAM[19698] = 36'o000000000000; // 046362 (unused) RAM[19699] = 36'o000000000000; // 046363 (unused) RAM[19700] = 36'o000000000000; // 046364 (unused) RAM[19701] = 36'o000000000000; // 046365 (unused) RAM[19702] = 36'o000000000000; // 046366 (unused) RAM[19703] = 36'o000000000000; // 046367 (unused) RAM[19704] = 36'o000000000000; // 046370 (unused) RAM[19705] = 36'o000000000000; // 046371 (unused) RAM[19706] = 36'o000000000000; // 046372 (unused) RAM[19707] = 36'o000000000000; // 046373 (unused) RAM[19708] = 36'o000000000000; // 046374 (unused) RAM[19709] = 36'o000000000000; // 046375 (unused) RAM[19710] = 36'o000000000000; // 046376 (unused) RAM[19711] = 36'o000000000000; // 046377 (unused) RAM[19712] = 36'o000000000000; // 046400 (unused) RAM[19713] = 36'o000000000000; // 046401 (unused) RAM[19714] = 36'o000000000000; // 046402 (unused) RAM[19715] = 36'o000000000000; // 046403 (unused) RAM[19716] = 36'o000000000000; // 046404 (unused) RAM[19717] = 36'o000000000000; // 046405 (unused) RAM[19718] = 36'o000000000000; // 046406 (unused) RAM[19719] = 36'o000000000000; // 046407 (unused) RAM[19720] = 36'o000000000000; // 046410 (unused) RAM[19721] = 36'o000000000000; // 046411 (unused) RAM[19722] = 36'o000000000000; // 046412 (unused) RAM[19723] = 36'o000000000000; // 046413 (unused) RAM[19724] = 36'o000000000000; // 046414 (unused) RAM[19725] = 36'o000000000000; // 046415 (unused) RAM[19726] = 36'o000000000000; // 046416 (unused) RAM[19727] = 36'o000000000000; // 046417 (unused) RAM[19728] = 36'o000000000000; // 046420 (unused) RAM[19729] = 36'o000000000000; // 046421 (unused) RAM[19730] = 36'o000000000000; // 046422 (unused) RAM[19731] = 36'o000000000000; // 046423 (unused) RAM[19732] = 36'o000000000000; // 046424 (unused) RAM[19733] = 36'o000000000000; // 046425 (unused) RAM[19734] = 36'o000000000000; // 046426 (unused) RAM[19735] = 36'o000000000000; // 046427 (unused) RAM[19736] = 36'o000000000000; // 046430 (unused) RAM[19737] = 36'o000000000000; // 046431 (unused) RAM[19738] = 36'o000000000000; // 046432 (unused) RAM[19739] = 36'o000000000000; // 046433 (unused) RAM[19740] = 36'o000000000000; // 046434 (unused) RAM[19741] = 36'o000000000000; // 046435 (unused) RAM[19742] = 36'o000000000000; // 046436 (unused) RAM[19743] = 36'o000000000000; // 046437 (unused) RAM[19744] = 36'o000000000000; // 046440 (unused) RAM[19745] = 36'o000000000000; // 046441 (unused) RAM[19746] = 36'o000000000000; // 046442 (unused) RAM[19747] = 36'o000000000000; // 046443 (unused) RAM[19748] = 36'o000000000000; // 046444 (unused) RAM[19749] = 36'o000000000000; // 046445 (unused) RAM[19750] = 36'o000000000000; // 046446 (unused) RAM[19751] = 36'o000000000000; // 046447 (unused) RAM[19752] = 36'o000000000000; // 046450 (unused) RAM[19753] = 36'o000000000000; // 046451 (unused) RAM[19754] = 36'o000000000000; // 046452 (unused) RAM[19755] = 36'o000000000000; // 046453 (unused) RAM[19756] = 36'o000000000000; // 046454 (unused) RAM[19757] = 36'o000000000000; // 046455 (unused) RAM[19758] = 36'o000000000000; // 046456 (unused) RAM[19759] = 36'o000000000000; // 046457 (unused) RAM[19760] = 36'o000000000000; // 046460 (unused) RAM[19761] = 36'o000000000000; // 046461 (unused) RAM[19762] = 36'o000000000000; // 046462 (unused) RAM[19763] = 36'o000000000000; // 046463 (unused) RAM[19764] = 36'o000000000000; // 046464 (unused) RAM[19765] = 36'o000000000000; // 046465 (unused) RAM[19766] = 36'o000000000000; // 046466 (unused) RAM[19767] = 36'o000000000000; // 046467 (unused) RAM[19768] = 36'o000000000000; // 046470 (unused) RAM[19769] = 36'o000000000000; // 046471 (unused) RAM[19770] = 36'o000000000000; // 046472 (unused) RAM[19771] = 36'o000000000000; // 046473 (unused) RAM[19772] = 36'o000000000000; // 046474 (unused) RAM[19773] = 36'o000000000000; // 046475 (unused) RAM[19774] = 36'o000000000000; // 046476 (unused) RAM[19775] = 36'o000000000000; // 046477 (unused) RAM[19776] = 36'o000000000000; // 046500 (unused) RAM[19777] = 36'o000000000000; // 046501 (unused) RAM[19778] = 36'o000000000000; // 046502 (unused) RAM[19779] = 36'o000000000000; // 046503 (unused) RAM[19780] = 36'o000000000000; // 046504 (unused) RAM[19781] = 36'o000000000000; // 046505 (unused) RAM[19782] = 36'o000000000000; // 046506 (unused) RAM[19783] = 36'o000000000000; // 046507 (unused) RAM[19784] = 36'o000000000000; // 046510 (unused) RAM[19785] = 36'o000000000000; // 046511 (unused) RAM[19786] = 36'o000000000000; // 046512 (unused) RAM[19787] = 36'o000000000000; // 046513 (unused) RAM[19788] = 36'o000000000000; // 046514 (unused) RAM[19789] = 36'o000000000000; // 046515 (unused) RAM[19790] = 36'o000000000000; // 046516 (unused) RAM[19791] = 36'o000000000000; // 046517 (unused) RAM[19792] = 36'o000000000000; // 046520 (unused) RAM[19793] = 36'o000000000000; // 046521 (unused) RAM[19794] = 36'o000000000000; // 046522 (unused) RAM[19795] = 36'o000000000000; // 046523 (unused) RAM[19796] = 36'o000000000000; // 046524 (unused) RAM[19797] = 36'o000000000000; // 046525 (unused) RAM[19798] = 36'o000000000000; // 046526 (unused) RAM[19799] = 36'o000000000000; // 046527 (unused) RAM[19800] = 36'o000000000000; // 046530 (unused) RAM[19801] = 36'o000000000000; // 046531 (unused) RAM[19802] = 36'o000000000000; // 046532 (unused) RAM[19803] = 36'o000000000000; // 046533 (unused) RAM[19804] = 36'o000000000000; // 046534 (unused) RAM[19805] = 36'o000000000000; // 046535 (unused) RAM[19806] = 36'o000000000000; // 046536 (unused) RAM[19807] = 36'o000000000000; // 046537 (unused) RAM[19808] = 36'o000000000000; // 046540 (unused) RAM[19809] = 36'o000000000000; // 046541 (unused) RAM[19810] = 36'o000000000000; // 046542 (unused) RAM[19811] = 36'o000000000000; // 046543 (unused) RAM[19812] = 36'o000000000000; // 046544 (unused) RAM[19813] = 36'o000000000000; // 046545 (unused) RAM[19814] = 36'o000000000000; // 046546 (unused) RAM[19815] = 36'o000000000000; // 046547 (unused) RAM[19816] = 36'o000000000000; // 046550 (unused) RAM[19817] = 36'o000000000000; // 046551 (unused) RAM[19818] = 36'o000000000000; // 046552 (unused) RAM[19819] = 36'o000000000000; // 046553 (unused) RAM[19820] = 36'o000000000000; // 046554 (unused) RAM[19821] = 36'o000000000000; // 046555 (unused) RAM[19822] = 36'o000000000000; // 046556 (unused) RAM[19823] = 36'o000000000000; // 046557 (unused) RAM[19824] = 36'o000000000000; // 046560 (unused) RAM[19825] = 36'o000000000000; // 046561 (unused) RAM[19826] = 36'o000000000000; // 046562 (unused) RAM[19827] = 36'o000000000000; // 046563 (unused) RAM[19828] = 36'o000000000000; // 046564 (unused) RAM[19829] = 36'o000000000000; // 046565 (unused) RAM[19830] = 36'o000000000000; // 046566 (unused) RAM[19831] = 36'o000000000000; // 046567 (unused) RAM[19832] = 36'o000000000000; // 046570 (unused) RAM[19833] = 36'o000000000000; // 046571 (unused) RAM[19834] = 36'o000000000000; // 046572 (unused) RAM[19835] = 36'o000000000000; // 046573 (unused) RAM[19836] = 36'o000000000000; // 046574 (unused) RAM[19837] = 36'o000000000000; // 046575 (unused) RAM[19838] = 36'o000000000000; // 046576 (unused) RAM[19839] = 36'o000000000000; // 046577 (unused) RAM[19840] = 36'o000000000000; // 046600 (unused) RAM[19841] = 36'o000000000000; // 046601 (unused) RAM[19842] = 36'o000000000000; // 046602 (unused) RAM[19843] = 36'o000000000000; // 046603 (unused) RAM[19844] = 36'o000000000000; // 046604 (unused) RAM[19845] = 36'o000000000000; // 046605 (unused) RAM[19846] = 36'o000000000000; // 046606 (unused) RAM[19847] = 36'o000000000000; // 046607 (unused) RAM[19848] = 36'o000000000000; // 046610 (unused) RAM[19849] = 36'o000000000000; // 046611 (unused) RAM[19850] = 36'o000000000000; // 046612 (unused) RAM[19851] = 36'o000000000000; // 046613 (unused) RAM[19852] = 36'o000000000000; // 046614 (unused) RAM[19853] = 36'o000000000000; // 046615 (unused) RAM[19854] = 36'o000000000000; // 046616 (unused) RAM[19855] = 36'o000000000000; // 046617 (unused) RAM[19856] = 36'o000000000000; // 046620 (unused) RAM[19857] = 36'o000000000000; // 046621 (unused) RAM[19858] = 36'o000000000000; // 046622 (unused) RAM[19859] = 36'o000000000000; // 046623 (unused) RAM[19860] = 36'o000000000000; // 046624 (unused) RAM[19861] = 36'o000000000000; // 046625 (unused) RAM[19862] = 36'o000000000000; // 046626 (unused) RAM[19863] = 36'o000000000000; // 046627 (unused) RAM[19864] = 36'o000000000000; // 046630 (unused) RAM[19865] = 36'o000000000000; // 046631 (unused) RAM[19866] = 36'o000000000000; // 046632 (unused) RAM[19867] = 36'o000000000000; // 046633 (unused) RAM[19868] = 36'o000000000000; // 046634 (unused) RAM[19869] = 36'o000000000000; // 046635 (unused) RAM[19870] = 36'o000000000000; // 046636 (unused) RAM[19871] = 36'o000000000000; // 046637 (unused) RAM[19872] = 36'o000000000000; // 046640 (unused) RAM[19873] = 36'o000000000000; // 046641 (unused) RAM[19874] = 36'o000000000000; // 046642 (unused) RAM[19875] = 36'o000000000000; // 046643 (unused) RAM[19876] = 36'o000000000000; // 046644 (unused) RAM[19877] = 36'o000000000000; // 046645 (unused) RAM[19878] = 36'o000000000000; // 046646 (unused) RAM[19879] = 36'o000000000000; // 046647 (unused) RAM[19880] = 36'o000000000000; // 046650 (unused) RAM[19881] = 36'o000000000000; // 046651 (unused) RAM[19882] = 36'o000000000000; // 046652 (unused) RAM[19883] = 36'o000000000000; // 046653 (unused) RAM[19884] = 36'o000000000000; // 046654 (unused) RAM[19885] = 36'o000000000000; // 046655 (unused) RAM[19886] = 36'o000000000000; // 046656 (unused) RAM[19887] = 36'o000000000000; // 046657 (unused) RAM[19888] = 36'o000000000000; // 046660 (unused) RAM[19889] = 36'o000000000000; // 046661 (unused) RAM[19890] = 36'o000000000000; // 046662 (unused) RAM[19891] = 36'o000000000000; // 046663 (unused) RAM[19892] = 36'o000000000000; // 046664 (unused) RAM[19893] = 36'o000000000000; // 046665 (unused) RAM[19894] = 36'o000000000000; // 046666 (unused) RAM[19895] = 36'o000000000000; // 046667 (unused) RAM[19896] = 36'o000000000000; // 046670 (unused) RAM[19897] = 36'o000000000000; // 046671 (unused) RAM[19898] = 36'o000000000000; // 046672 (unused) RAM[19899] = 36'o000000000000; // 046673 (unused) RAM[19900] = 36'o000000000000; // 046674 (unused) RAM[19901] = 36'o000000000000; // 046675 (unused) RAM[19902] = 36'o000000000000; // 046676 (unused) RAM[19903] = 36'o000000000000; // 046677 (unused) RAM[19904] = 36'o000000000000; // 046700 (unused) RAM[19905] = 36'o000000000000; // 046701 (unused) RAM[19906] = 36'o000000000000; // 046702 (unused) RAM[19907] = 36'o000000000000; // 046703 (unused) RAM[19908] = 36'o000000000000; // 046704 (unused) RAM[19909] = 36'o000000000000; // 046705 (unused) RAM[19910] = 36'o000000000000; // 046706 (unused) RAM[19911] = 36'o000000000000; // 046707 (unused) RAM[19912] = 36'o000000000000; // 046710 (unused) RAM[19913] = 36'o000000000000; // 046711 (unused) RAM[19914] = 36'o000000000000; // 046712 (unused) RAM[19915] = 36'o000000000000; // 046713 (unused) RAM[19916] = 36'o000000000000; // 046714 (unused) RAM[19917] = 36'o000000000000; // 046715 (unused) RAM[19918] = 36'o000000000000; // 046716 (unused) RAM[19919] = 36'o000000000000; // 046717 (unused) RAM[19920] = 36'o000000000000; // 046720 (unused) RAM[19921] = 36'o000000000000; // 046721 (unused) RAM[19922] = 36'o000000000000; // 046722 (unused) RAM[19923] = 36'o000000000000; // 046723 (unused) RAM[19924] = 36'o000000000000; // 046724 (unused) RAM[19925] = 36'o000000000000; // 046725 (unused) RAM[19926] = 36'o000000000000; // 046726 (unused) RAM[19927] = 36'o000000000000; // 046727 (unused) RAM[19928] = 36'o000000000000; // 046730 (unused) RAM[19929] = 36'o000000000000; // 046731 (unused) RAM[19930] = 36'o000000000000; // 046732 (unused) RAM[19931] = 36'o000000000000; // 046733 (unused) RAM[19932] = 36'o000000000000; // 046734 (unused) RAM[19933] = 36'o000000000000; // 046735 (unused) RAM[19934] = 36'o000000000000; // 046736 (unused) RAM[19935] = 36'o000000000000; // 046737 (unused) RAM[19936] = 36'o000000000000; // 046740 (unused) RAM[19937] = 36'o000000000000; // 046741 (unused) RAM[19938] = 36'o000000000000; // 046742 (unused) RAM[19939] = 36'o000000000000; // 046743 (unused) RAM[19940] = 36'o000000000000; // 046744 (unused) RAM[19941] = 36'o000000000000; // 046745 (unused) RAM[19942] = 36'o000000000000; // 046746 (unused) RAM[19943] = 36'o000000000000; // 046747 (unused) RAM[19944] = 36'o000000000000; // 046750 (unused) RAM[19945] = 36'o000000000000; // 046751 (unused) RAM[19946] = 36'o000000000000; // 046752 (unused) RAM[19947] = 36'o000000000000; // 046753 (unused) RAM[19948] = 36'o000000000000; // 046754 (unused) RAM[19949] = 36'o000000000000; // 046755 (unused) RAM[19950] = 36'o000000000000; // 046756 (unused) RAM[19951] = 36'o000000000000; // 046757 (unused) RAM[19952] = 36'o000000000000; // 046760 (unused) RAM[19953] = 36'o000000000000; // 046761 (unused) RAM[19954] = 36'o000000000000; // 046762 (unused) RAM[19955] = 36'o000000000000; // 046763 (unused) RAM[19956] = 36'o000000000000; // 046764 (unused) RAM[19957] = 36'o000000000000; // 046765 (unused) RAM[19958] = 36'o000000000000; // 046766 (unused) RAM[19959] = 36'o000000000000; // 046767 (unused) RAM[19960] = 36'o000000000000; // 046770 (unused) RAM[19961] = 36'o000000000000; // 046771 (unused) RAM[19962] = 36'o000000000000; // 046772 (unused) RAM[19963] = 36'o000000000000; // 046773 (unused) RAM[19964] = 36'o000000000000; // 046774 (unused) RAM[19965] = 36'o000000000000; // 046775 (unused) RAM[19966] = 36'o000000000000; // 046776 (unused) RAM[19967] = 36'o000000000000; // 046777 (unused) rtl/mem/mem.v0000644000175100010010000000645212053071212011573 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Memory Interface //! //! \details //! //! \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, clken, busREQI, busACKO, busADDRI, busDATAI, busDATAO); input clk; // Clock 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 // // Memory flags // // Details: // busADDRI[0:13] is flags // Only 32K of memory is implemented. // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busIO = busADDRI[10]; wire [21:35] busADDR = busADDRI[16:35]; // // 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] RAM [0:32767]; initial begin `include "mem.dat" end // // Synchronous RAM // // Details // This is PDP10 memory. // // Note: // Only 32K is implemented. This is sufficient to run the // MAINDEC diagnostics. // // FIXME // This is temporary and won't synthesize well. Notice the clock // polarity. // reg [0:14] rd_addr; wire [0:14] wr_addr = busADDR[21:35]; always @(negedge clk) begin if (clken & ~busIO) begin if (busWRITE) RAM[wr_addr] <= busDATAI; rd_addr <= wr_addr; end end assign busDATAO = RAM[rd_addr]; // // ACK the memory if implemented. // assign busACKO = ~busIO & (busADDR < 32768); endmodule rtl/mem/MAINDEC-10-DSKAA.txt0000644000175100010010000355532412053071214013502 0ustar RobNone00;DSKAA IDENTIFICATION -------------- PRODUCT CODE: AH-E297A-DD DIAGNOSTIC CODE: DSKAA PRODUCT NAME: DSKAAA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (1) 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-DSKAA.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAA.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIRST IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. IT IS THE MOST BASIC OF THE PROCESSOR DIAGNOSTICS. THIS DIAGNOSTIC ASSUMES THE HALT INSTRUCTION AND THE COMPUTER CONSOLE TO BE OPERATIVE. IT MAKES NO FURTHER ASSUMPTIONS EXCEPT THAT IT IS LOADED INTO MEMORY CORRECTLY. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY MAINDEC-10-DSKAA.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAA.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAA SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAA TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (1) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 DSKAAT MAC 28-Mar-78 09:37 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAA 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 DSKAAT MAC 28-Mar-78 09:37 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 DSKAAT MAC 28-Mar-78 09:37 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414100 PAREA3=SIXBIT/DSKAA/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @RETURN ;DONE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 DSKAA1 MAC 28-Mar-78 09:38 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) [DSKAA] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 061 051 040 798 030656 133 104 123 113 101 799 030657 101 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (1) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 807 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0029 808 SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS 809 810 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED 811 ;INSTRUCTION. 812 ;********** 813 814 ;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION 815 816 030661 A00=. 817 030661 334 00 0 00 000000 A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 818 030662 254 04 0 00 000000 HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP 819 820 ;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC], 821 ;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1], 822 ;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2], 823 ;PC CLOCK EN [PCC], ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND 824 ;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC] 825 826 ;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2] 827 828 ;********** 829 830 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS 831 832 030663 320 00 0 00 030664 A15000: JUMP .+1 ;*JUMP SHOULD NEVER JUMP 833 030664 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL 834 030665 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS 835 836 ;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION 837 ;MAY HAVE FAILED. CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E], 838 ;IR JUMPS [IR1], IR JUMPX [IR1] 839 840 ;********** 841 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS 842 843 030666 320 00 0 00 030670 A15100: JUMP .+2 ;*JUMP SHOULD NEVER JUMP 844 030667 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL 845 030670 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS 846 847 ;AB PC EN [ABC] 848 849 ;********** 850 851 ;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION 852 853 030671 324 00 0 00 030672 A12700: JUMPA .+1 ;*JUMPA .+1 SHOULD NEVER JUMP 854 030672 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL 855 030673 254 04 0 00 000000 HALT ;HALT IF JUMPA .+1 FAILED 856 857 ;********** 858 859 ;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2 860 861 030674 324 00 0 00 030676 A12600: JUMPA .+2 ;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 862 030675 254 04 0 00 000000 HALT ;PROGRAM HALTS HERE IF JUMPA .+2 FAILS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0030 863 864 ;ST1 COND [ST2] 865 866 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0031 867 ;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT 868 ;INSTRUCTION. 869 ;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. 870 871 030676 200 00 0 00 035000 A100: MOVE [0] ;PRESET LOCATION 0 TO ALL ZEROS 872 030677 334 00 0 00 000000 SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 873 STOP^ 874 030700 254 04 0 00 030701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 875 030701 324 00 0 00 030702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 876 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 877 ;IN THE SUBTEST) TO LOOP ON ERROR^ 878 879 ;********** 880 ;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT 881 ;INSTRUCTION. 882 ;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. 883 884 030702 200 00 0 00 035001 A200: MOVE [-1] ;PRESET LOCATION 0 TO ALL ONES 885 030703 334 00 0 00 000000 SKIPA ;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION 886 STOP^ 887 030704 254 04 0 00 030705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 888 030705 324 00 0 00 030706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 891 892 ;COND P [ADZ] 893 894 ;********** 895 ;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E) 896 ;IS ALL ZEROS. THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS. 897 898 030706 200 00 0 00 035000 A300: MOVE [0] ;PRESET E TO ALL ZEROS 899 030707 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION 900 STOP^ 901 030710 254 04 0 00 030711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 902 030711 324 00 0 00 030712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 903 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 904 ;IN THE SUBTEST) TO LOOP ON ERROR^ 905 906 ;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP], 907 ;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1] 908 909 ;********** 910 911 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, SKIP NEVER SKIPS. IT ALWAYS 912 ;CONTINUES ON TO THE NEXT INSTRUCTION. 913 914 030712 200 00 0 00 035001 A400: MOVE [-1] ;PRESET E TO ALL ONES 915 030713 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION 916 030714 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 917 STOP^ 918 030715 254 04 0 00 030716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 919 030716 324 00 0 00 030717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 921 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0032 922 923 ;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4] 924 925 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0033 926 ;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS 927 ;NEGATIVE. THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER. 928 929 030717 200 00 0 00 035001 A500: MOVE [-1] ;PRESET E WITH ALL ONES, A NEGATIVE NUMBER 930 030720 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION 931 030721 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 932 STOP^ 933 030722 254 04 0 00 030723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 934 030723 324 00 0 00 030724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 936 ;IN THE SUBTEST) TO LOOP ON ERROR^ 937 938 ;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], 939 ;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1] 940 941 ;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1] 942 943 ;********** 944 945 ;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN 946 ;C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. 947 948 030724 200 00 0 00 035000 A600: MOVE [0] ;PRESET E WITH ALL ZEROS 949 030725 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION 950 030726 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 951 STOP^ 952 030727 254 04 0 00 030730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 953 030730 324 00 0 00 030731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 956 957 ;********** 958 959 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT SHOULD SKIP 960 ;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS 961 ;E WITH -1, A NON-ZERO NUMBER. 962 963 030731 200 00 0 00 035001 A700: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER 964 030732 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 965 STOP^ 966 030733 254 04 0 00 030734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 967 030734 324 00 0 00 030735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 968 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 969 ;IN THE SUBTEST) TO LOOP ON ERROR^ 970 971 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0034 972 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD NOT 973 ;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS E 974 ;WITH -1, A NON-ZERO NUMBER. 975 976 030735 200 00 0 00 035001 A1000: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER 977 030736 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION 978 030737 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 979 STOP^ 980 030740 254 04 0 00 030741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 981 030741 324 00 0 00 030742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 983 ;IN THE SUBTEST) TO LOOP ON ERROR^ 984 985 ;********** 986 987 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD SKIP 988 ;THE NEXT INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS ALL 989 ;ZEROS INTO E. 990 991 030742 200 00 0 00 035000 A1100: MOVE [0] ;PRESET E TO ALL ZEROS 992 030743 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION 993 STOP^ 994 030744 254 04 0 00 030745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 995 030745 324 00 0 00 030746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 998 999 ;********** 1000 1001 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, IT NEVER SKIPS. IT ALWAYS 1002 ;CONTINUES ON TO THE NEXT INSTRUCTION. 1003 1004 030746 200 00 0 00 035000 A1200: MOVE [0] ;PRESET E TO ALL ZEROS 1005 030747 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION 1006 030750 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1007 STOP^ 1008 030751 254 04 0 00 030752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1009 030752 324 00 0 00 030753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1010 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1011 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1012 1013 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0035 1014 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1015 ;INSTRUCTION WHEN C(E) IS NOT NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD 1016 ;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER. 1017 1018 030753 200 00 0 00 035000 A1300: MOVE [0] ;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER 1019 030754 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION 1020 030755 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1021 STOP^ 1022 030756 254 04 0 00 030757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1023 030757 324 00 0 00 030760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1024 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1025 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1026 1027 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0036 1028 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1029 ;INSTRUCTION WHEN C(E) IS NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1, 1030 ;A NEGATIVE NUMBER. 1031 1032 030760 200 00 0 00 035001 A1400: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER 1033 030761 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION 1034 STOP^ 1035 030762 254 04 0 00 030763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1036 030763 324 00 0 00 030764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1038 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1039 1040 ;********** 1041 1042 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1043 ;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO LOAD 1044 ;E WITH A NON-ZERO POSITIVE NUMBER. 1045 1046 030764 200 00 0 00 035002 A1500: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER 1047 030765 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION 1048 STOP^ 1049 030766 254 04 0 00 030767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1050 030767 324 00 0 00 030770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1052 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1053 1054 ;********** 1055 1056 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1057 ;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO 1058 ;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO. 1059 1060 030770 200 00 0 00 035001 A1600: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER 1061 030771 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION 1062 030772 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1063 STOP^ 1064 030773 254 04 0 00 030774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1065 030774 324 00 0 00 030775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1067 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1068 1069 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0037 1070 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1071 ;INSTRUCTION WHEN C(E) IS NON-NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH 1072 ;377777777777, A NON-NEGATIVE NUMBER. 1073 1074 030775 200 00 0 00 035002 A1700: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER 1075 030776 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION 1076 030777 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1077 STOP^ 1078 031000 254 04 0 00 031001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1079 031001 324 00 0 00 031002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1082 1083 ;********** 1084 1085 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1086 ;INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. 1087 1088 031002 200 00 0 00 035000 A2000: MOVE [0] ;PRESET E TO ALL ZEROS 1089 031003 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION 1090 STOP^ 1091 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1092 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1093 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1094 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1095 1096 ;********** 1097 1098 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1099 ;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER. THE MOVE INSTRUCTION IS USED TO LOAD 1100 ;E WITH 400000000000, A NEGATIVE NUMBER. 1101 1102 031006 200 00 0 00 035003 A2100: MOVE [XWD 400000,0] ;PRESET E TO 400000000000, A NEGATIVE NUMBER. 1103 031007 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION 1104 STOP^ 1105 031010 254 04 0 00 031011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1106 031011 324 00 0 00 031012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1108 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1109 1110 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0038 1111 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1112 ;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER. THE MOVE INSTRUCTION LOADS 1113 ;E WITH 377777777777, A POSITIVE NUMBER. 1114 1115 031012 200 00 0 00 035002 A2200: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A POSITIVE NUMBER 1116 031013 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION 1117 031014 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1118 STOP^ 1119 031015 254 04 0 00 031016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1120 031016 324 00 0 00 031017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1121 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1122 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1123 1124 ;********* DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0039 1125 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1126 ;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1127 ;LOAD 777000000000, A NON-ZERO NUMBER INTO E. 1128 1129 031017 200 00 0 00 035004 A2300: MOVE [XWD 777000,0] ;PRESET E WITH 777000000000, A NON-ZERO NUMBER 1130 031020 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1131 STOP^ 1132 031021 254 04 0 00 031022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1133 031022 324 00 0 00 031023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1136 1137 ;********** 1138 1139 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1140 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1141 ;LOAD A NON-ZERO NUMBER, 377000000 INTO E. 1142 1143 031023 200 00 0 00 035005 A2400: MOVE [XWD 377,0] ;PRESET E TO 377000000, A NON ZERO NUMBER 1144 031024 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1145 STOP^ 1146 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1147 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1148 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1149 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1150 1151 ;********** 1152 1153 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1154 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1155 ;LOAD E WITH A NON-ZERO NUMBER, 177000. 1156 1157 031027 200 00 0 00 035006 A2500: MOVE [177000] ;PRESET E WITH 177000, A NON ZERO NUMBER 1158 031030 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1159 STOP^ 1160 031031 254 04 0 00 031032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1161 031032 324 00 0 00 031033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1162 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1163 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1164 1165 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0040 1166 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1167 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1168 ;LOAD 777, A NON-ZERO NUMBER INTO E. 1169 1170 031033 200 00 0 00 035007 A2600: MOVE [777] ;PRESET E WITH 777, A NON-ZERO NUMBER 1171 031034 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1172 STOP^ 1173 031035 254 04 0 00 031036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1174 031036 324 00 0 00 031037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1175 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1176 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1177 1178 ;********** 1179 1180 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1181 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1182 ;LOAD E WITH 600000, A NON-ZERO NUMBER. 1183 1184 031037 200 00 0 00 035010 A2700: MOVE [600000] ;PRESET E WITK 600000, A NON-ZERO NUMBER 1185 031040 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1186 STOP^ 1187 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1188 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1190 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1191 1192 ;********** 1193 1194 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1195 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1196 ;LOAD E WITH 400000000, A NON-ZERO NUMBER. 1197 1198 031043 200 00 0 00 035011 A3000: MOVE [XWD 400,000] ;PRESET E WITH 400000000, A NON-ZERO NUMBER 1199 031044 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1200 STOP^ 1201 031045 254 04 0 00 031046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1202 031046 324 00 0 00 031047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1203 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1204 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1205 1206 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0041 1207 003100 SN=3100 1208 000000 ZZ=0 1209 1210 A3100: REPEAT ^D36, 1211 <;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1212 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1213 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1214 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1215 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1216 1217 SN=SN+1 1218 ZZ=ZZ+ZZ 1219 IFE ZZ, 1220 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1221 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1222 STOP 1223 1224 ;********** 1225 > 1226 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1227 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1228 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1229 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1230 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1231 1232 003101 SN=SN+1 1233 000000 ZZ=ZZ+ZZ 1234 000001 IFE ZZ, 1235 031047 200 00 0 00 035012 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1236 031050 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1237 STOP^ 1238 031051 254 04 0 00 031052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1239 031052 324 00 0 00 031053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1241 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1242 1243 ;********** 1244 1245 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1246 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1247 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1248 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1249 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1250 1251 003102 SN=SN+1 1252 000002 ZZ=ZZ+ZZ 1253 IFE ZZ, 1254 031053 200 00 0 00 035013 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1255 031054 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1256 STOP^ 1257 031055 254 04 0 00 031056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1258 031056 324 00 0 00 031057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1261 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0042 1262 ;********** 1263 1264 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1265 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1266 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1267 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1268 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1269 1270 003103 SN=SN+1 1271 000004 ZZ=ZZ+ZZ 1272 IFE ZZ, 1273 031057 200 00 0 00 035014 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1274 031060 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1275 STOP^ 1276 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1277 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1278 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1279 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1280 1281 ;********** 1282 1283 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1284 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1285 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1286 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1287 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1288 1289 003104 SN=SN+1 1290 000010 ZZ=ZZ+ZZ 1291 IFE ZZ, 1292 031063 200 00 0 00 035015 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1293 031064 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1294 STOP^ 1295 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1296 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1299 1300 ;********** 1301 1302 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1303 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1304 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1305 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1306 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1307 1308 003105 SN=SN+1 1309 000020 ZZ=ZZ+ZZ 1310 IFE ZZ, 1311 031067 200 00 0 00 035016 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1312 031070 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1313 STOP^ 1314 031071 254 04 0 00 031072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1315 031072 324 00 0 00 031073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1316 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0043 1317 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1318 1319 ;********** 1320 1321 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1322 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1323 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1324 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1325 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1326 1327 003106 SN=SN+1 1328 000040 ZZ=ZZ+ZZ 1329 IFE ZZ, 1330 031073 200 00 0 00 035017 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1331 031074 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1332 STOP^ 1333 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1334 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1336 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1337 1338 ;********** 1339 1340 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1341 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1342 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1343 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1344 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1345 1346 003107 SN=SN+1 1347 000100 ZZ=ZZ+ZZ 1348 IFE ZZ, 1349 031077 200 00 0 00 035020 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1350 031100 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1351 STOP^ 1352 031101 254 04 0 00 031102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1353 031102 324 00 0 00 031103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1354 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1355 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1356 1357 ;********** 1358 1359 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1360 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1361 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1362 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1363 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1364 1365 003110 SN=SN+1 1366 000200 ZZ=ZZ+ZZ 1367 IFE ZZ, 1368 031103 200 00 0 00 035021 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1369 031104 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1370 STOP^ 1371 031105 254 04 0 00 031106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0044 1372 031106 324 00 0 00 031107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1373 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1374 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1375 1376 ;********** 1377 1378 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1379 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1380 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1381 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1382 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1383 1384 003111 SN=SN+1 1385 000400 ZZ=ZZ+ZZ 1386 IFE ZZ, 1387 031107 200 00 0 00 035022 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1388 031110 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1389 STOP^ 1390 031111 254 04 0 00 031112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1391 031112 324 00 0 00 031113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1392 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1393 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1394 1395 ;********** 1396 1397 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1398 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1399 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1400 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1401 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1402 1403 003112 SN=SN+1 1404 001000 ZZ=ZZ+ZZ 1405 IFE ZZ, 1406 031113 200 00 0 00 035023 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1407 031114 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1408 STOP^ 1409 031115 254 04 0 00 031116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1410 031116 324 00 0 00 031117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1411 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1412 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1413 1414 ;********** 1415 1416 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1417 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1418 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1419 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1420 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1421 1422 003113 SN=SN+1 1423 002000 ZZ=ZZ+ZZ 1424 IFE ZZ, 1425 031117 200 00 0 00 035024 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1426 031120 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0045 1427 STOP^ 1428 031121 254 04 0 00 031122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1429 031122 324 00 0 00 031123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1430 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1431 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1432 1433 ;********** 1434 1435 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1436 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1437 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1438 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1439 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1440 1441 003114 SN=SN+1 1442 004000 ZZ=ZZ+ZZ 1443 IFE ZZ, 1444 031123 200 00 0 00 035025 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1445 031124 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1446 STOP^ 1447 031125 254 04 0 00 031126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1448 031126 324 00 0 00 031127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1449 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1450 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1451 1452 ;********** 1453 1454 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1455 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1456 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1457 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1458 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1459 1460 003115 SN=SN+1 1461 010000 ZZ=ZZ+ZZ 1462 IFE ZZ, 1463 031127 200 00 0 00 035026 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1464 031130 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1465 STOP^ 1466 031131 254 04 0 00 031132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1467 031132 324 00 0 00 031133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1468 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1469 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1470 1471 ;********** 1472 1473 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1474 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1475 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1476 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1477 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1478 1479 003116 SN=SN+1 1480 020000 ZZ=ZZ+ZZ 1481 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0046 1482 031133 200 00 0 00 035027 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1483 031134 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1484 STOP^ 1485 031135 254 04 0 00 031136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1486 031136 324 00 0 00 031137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1487 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1488 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1489 1490 ;********** 1491 1492 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1493 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1494 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1495 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1496 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1497 1498 003117 SN=SN+1 1499 040000 ZZ=ZZ+ZZ 1500 IFE ZZ, 1501 031137 200 00 0 00 035030 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1502 031140 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1503 STOP^ 1504 031141 254 04 0 00 031142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1505 031142 324 00 0 00 031143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1506 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1507 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1508 1509 ;********** 1510 1511 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1512 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1513 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1514 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1515 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1516 1517 003120 SN=SN+1 1518 100000 ZZ=ZZ+ZZ 1519 IFE ZZ, 1520 031143 200 00 0 00 035031 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1521 031144 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1522 STOP^ 1523 031145 254 04 0 00 031146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1524 031146 324 00 0 00 031147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1527 1528 ;********** 1529 1530 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1531 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1532 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1533 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1534 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1535 1536 003121 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0047 1537 200000 ZZ=ZZ+ZZ 1538 IFE ZZ, 1539 031147 200 00 0 00 035032 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1540 031150 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1541 STOP^ 1542 031151 254 04 0 00 031152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1543 031152 324 00 0 00 031153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1545 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1546 1547 ;********** 1548 1549 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1550 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1551 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1552 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1553 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1554 1555 003122 SN=SN+1 1556 400000 ZZ=ZZ+ZZ 1557 IFE ZZ, 1558 031153 200 00 0 00 035033 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1559 031154 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1560 STOP^ 1561 031155 254 04 0 00 031156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1562 031156 324 00 0 00 031157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1563 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1564 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1565 1566 ;********** 1567 1568 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1569 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1570 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1571 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1572 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1573 1574 003123 SN=SN+1 1575 000001 000000 ZZ=ZZ+ZZ 1576 IFE ZZ, 1577 031157 200 00 0 00 035034 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1578 031160 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1579 STOP^ 1580 031161 254 04 0 00 031162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1581 031162 324 00 0 00 031163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1583 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1584 1585 ;********** 1586 1587 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1588 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1589 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1590 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1591 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0048 1592 1593 003124 SN=SN+1 1594 000002 000000 ZZ=ZZ+ZZ 1595 IFE ZZ, 1596 031163 200 00 0 00 035035 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1597 031164 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1598 STOP^ 1599 031165 254 04 0 00 031166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1600 031166 324 00 0 00 031167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1601 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1602 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1603 1604 ;********** 1605 1606 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1607 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1608 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1609 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1610 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1611 1612 003125 SN=SN+1 1613 000004 000000 ZZ=ZZ+ZZ 1614 IFE ZZ, 1615 031167 200 00 0 00 035036 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1616 031170 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1617 STOP^ 1618 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1619 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1620 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1621 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1622 1623 ;********** 1624 1625 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1626 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1627 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1628 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1629 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1630 1631 003126 SN=SN+1 1632 000010 000000 ZZ=ZZ+ZZ 1633 IFE ZZ, 1634 031173 200 00 0 00 035037 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1635 031174 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1636 STOP^ 1637 031175 254 04 0 00 031176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1638 031176 324 00 0 00 031177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1640 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1641 1642 ;********** 1643 1644 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1645 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1646 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0049 1647 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1648 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1649 1650 003127 SN=SN+1 1651 000020 000000 ZZ=ZZ+ZZ 1652 IFE ZZ, 1653 031177 200 00 0 00 035040 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1654 031200 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1655 STOP^ 1656 031201 254 04 0 00 031202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1657 031202 324 00 0 00 031203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1658 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1659 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1660 1661 ;********** 1662 1663 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1664 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1665 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1666 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1667 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1668 1669 003130 SN=SN+1 1670 000040 000000 ZZ=ZZ+ZZ 1671 IFE ZZ, 1672 031203 200 00 0 00 035041 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1673 031204 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1674 STOP^ 1675 031205 254 04 0 00 031206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1676 031206 324 00 0 00 031207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1678 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1679 1680 ;********** 1681 1682 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1683 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1684 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1685 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1686 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1687 1688 003131 SN=SN+1 1689 000100 000000 ZZ=ZZ+ZZ 1690 IFE ZZ, 1691 031207 200 00 0 00 035042 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1692 031210 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1693 STOP^ 1694 031211 254 04 0 00 031212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1695 031212 324 00 0 00 031213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1698 1699 ;********** 1700 1701 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0050 1702 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1703 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1704 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1705 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1706 1707 003132 SN=SN+1 1708 000200 000000 ZZ=ZZ+ZZ 1709 IFE ZZ, 1710 031213 200 00 0 00 035043 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1711 031214 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1712 STOP^ 1713 031215 254 04 0 00 031216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1714 031216 324 00 0 00 031217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1716 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1717 1718 ;********** 1719 1720 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1721 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1722 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1723 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1724 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1725 1726 003133 SN=SN+1 1727 000400 000000 ZZ=ZZ+ZZ 1728 IFE ZZ, 1729 031217 200 00 0 00 035011 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1730 031220 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1731 STOP^ 1732 031221 254 04 0 00 031222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1733 031222 324 00 0 00 031223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1736 1737 ;********** 1738 1739 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1740 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1741 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1742 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1743 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1744 1745 003134 SN=SN+1 1746 001000 000000 ZZ=ZZ+ZZ 1747 IFE ZZ, 1748 031223 200 00 0 00 035044 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1749 031224 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1750 STOP^ 1751 031225 254 04 0 00 031226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1752 031226 324 00 0 00 031227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1753 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1754 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1755 1756 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0051 1757 1758 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1759 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1760 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1761 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1762 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1763 1764 003135 SN=SN+1 1765 002000 000000 ZZ=ZZ+ZZ 1766 IFE ZZ, 1767 031227 200 00 0 00 035045 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1768 031230 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1769 STOP^ 1770 031231 254 04 0 00 031232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1771 031232 324 00 0 00 031233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1774 1775 ;********** 1776 1777 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1778 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1779 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1780 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1781 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1782 1783 003136 SN=SN+1 1784 004000 000000 ZZ=ZZ+ZZ 1785 IFE ZZ, 1786 031233 200 00 0 00 035046 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1787 031234 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1788 STOP^ 1789 031235 254 04 0 00 031236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1790 031236 324 00 0 00 031237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1793 1794 ;********** 1795 1796 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1797 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1798 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1799 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1800 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1801 1802 003137 SN=SN+1 1803 010000 000000 ZZ=ZZ+ZZ 1804 IFE ZZ, 1805 031237 200 00 0 00 035047 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1806 031240 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1807 STOP^ 1808 031241 254 04 0 00 031242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1809 031242 324 00 0 00 031243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1811 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0052 1812 1813 ;********** 1814 1815 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1816 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1817 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1818 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1819 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1820 1821 003140 SN=SN+1 1822 020000 000000 ZZ=ZZ+ZZ 1823 IFE ZZ, 1824 031243 200 00 0 00 035050 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1825 031244 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1826 STOP^ 1827 031245 254 04 0 00 031246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1828 031246 324 00 0 00 031247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1829 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1830 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1831 1832 ;********** 1833 1834 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1835 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1836 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1837 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1838 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1839 1840 003141 SN=SN+1 1841 040000 000000 ZZ=ZZ+ZZ 1842 IFE ZZ, 1843 031247 200 00 0 00 035051 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1844 031250 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1845 STOP^ 1846 031251 254 04 0 00 031252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1847 031252 324 00 0 00 031253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1848 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1849 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1850 1851 ;********** 1852 1853 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1854 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1855 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1856 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1857 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1858 1859 003142 SN=SN+1 1860 100000 000000 ZZ=ZZ+ZZ 1861 IFE ZZ, 1862 031253 200 00 0 00 035052 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1863 031254 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1864 STOP^ 1865 031255 254 04 0 00 031256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1866 031256 324 00 0 00 031257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0053 1867 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1868 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1869 1870 ;********** 1871 1872 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1873 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1874 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1875 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1876 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1877 1878 003143 SN=SN+1 1879 200000 000000 ZZ=ZZ+ZZ 1880 IFE ZZ, 1881 031257 200 00 0 00 035053 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1882 031260 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1883 STOP^ 1884 031261 254 04 0 00 031262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1885 031262 324 00 0 00 031263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1886 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1887 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1888 1889 ;********** 1890 1891 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1892 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1893 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1894 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1895 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1896 1897 003144 SN=SN+1 1898 400000 000000 ZZ=ZZ+ZZ 1899 IFE ZZ, 1900 031263 200 00 0 00 035003 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1901 031264 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1902 STOP^ 1903 031265 254 04 0 00 031266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1904 031266 324 00 0 00 031267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1907 1908 ;********** 1909 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0054 1910 SUBTTL TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS 1911 1912 ;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC. SKIPG IS USED TO CHECK THAT 1913 ;THE AC WAS INDEED MODIFIED BY MOVEI. 1914 1915 031267 201 00 0 00 035001 A3200: MOVEI [-1] ;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0 1916 031270 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY 1917 STOP^ 1918 031271 254 04 0 00 031272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1919 031272 324 00 0 00 031273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1921 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1922 1923 ;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP], 1924 ;AD FM + F/F [ADFP], F CYC ACT EN C [F1] 1925 1926 ;********** 1927 1928 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO 1929 ;THE DATA IN THE AC. HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF 1930 ;C(E) IS LESS THAN ZERO. E IS SET TO -1, A NEGATIVE NUMBER; AND 1931 ;THE AC IS SET TO 0 IN THIS TEST. THEREFORE SKIPL SHOULD SKIP. 1932 1933 031273 200 00 0 00 035000 A3300: MOVE [0] ;SET THE AC TO ALL ZEROS 1934 031274 331 00 0 00 035001 SKIPL [-1] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE 1935 STOP^ 1936 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1937 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1938 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1939 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1940 1941 ;********** 1942 1943 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E. SKIPL SHOULD 1944 ;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET. IN THIS 1945 ;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0. 1946 ;A FAILURE UCCURS IF SKIPL DOES NOT SKIP. 1947 1948 031277 200 00 0 00 035000 A13100: MOVE [0] ;SET THE AC TO ALL ZEROS 1949 031300 331 00 0 00 035003 SKIPL [400000,,0] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE 1950 STOP^ 1951 031301 254 04 0 00 031302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1952 031302 324 00 0 00 031303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1953 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1954 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1955 1956 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0055 1957 ;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS 1958 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO. 1959 ;THE AC IS THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. 1960 1961 031303 200 00 0 00 035000 A3400: MOVE [0] ;PRESET THE AC TO ALL ZEROS 1962 031304 310 00 0 00 035054 CAM [1234] ;*CAM SHOULD NOT MODIFY THE AC 1963 031305 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP. 1964 ;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.) 1965 031306 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM 1966 STOP^ 1967 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1968 031310 324 00 0 00 031311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1971 1972 ;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC], 1973 ;IR CAXX [IR3] 1974 1975 ;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1], 1976 ;ET2 J F/F [E], IR CAXX [IR3] 1977 1978 ;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1] 1979 1980 ;********** 1981 1982 ;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS 1983 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO. THE AC IS 1984 ;THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. 1985 1986 031311 200 00 0 00 035000 A3500: MOVE [0] ;PRESET THE AC TO ALL ZEROS 1987 031312 300 00 0 00 035054 CAI [1234] ;*CAI SHOULD NOT MODIFY THE AC 1988 031313 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER 1989 ;IN CASE CAI MODIFIES THE AC. IT SERVES AS A NO-OP) 1990 031314 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC 1991 STOP^ 1992 031315 254 04 0 00 031316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1993 031316 324 00 0 00 031317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1996 1997 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0056 1998 ;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS 1999 ;SPECIFIED BY THE CAI INSTRUCTION. 2000 ;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0. 2001 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH 2002 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. 2003 2004 031317 200 00 0 00 035000 A3600: MOVE [0] ;LOAD AC0 WITH ALL ZEROS 2005 031320 300 17 0 00 035054 CAI 17,[1234] ;*CAI SHOULD NOT MODIFY AC0 2006 031321 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2007 ;CAI SKIPS THE NEXT INSTRUCTION. IT ACTS AS A NO-OP) 2008 031322 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED 2009 STOP^ 2010 031323 254 04 0 00 031324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2011 031324 324 00 0 00 031325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2012 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2013 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2014 2015 ;********** 2016 2017 ;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS 2018 ;SPECIFIED BY THE CAM INSTRUCTION. 2019 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH 2020 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. 2021 2022 031325 200 00 0 00 035000 A3700: MOVE [0] ;PRESET C(AC0) TO ALL ZEROS 2023 031326 310 17 0 00 035054 CAM 17,[1234] ;*CAM SHOULD NOT MODIFY AC0 2024 031327 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2025 ;CAM SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) 2026 031330 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM 2027 STOP^ 2028 031331 254 04 0 00 031332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2029 031332 324 00 0 00 031333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2031 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2032 2033 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0057 2034 ;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC. AC, E AND C(E) ARE NON-ZERO 2035 ;IN THIS TEST. THIS TEST PASSES IF FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO. 2036 2037 031333 200 01 0 00 035000 A4500: MOVE 1,[0] ;LOAD THE AC WITH ALL ZEROS 2038 031334 200 01 0 00 035001 MOVE 1,[-1] ;*MOVE SHOULD PLACE ALL ONES IN THE AC 2039 031335 336 00 0 00 000001 SKIPN 1 ;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC 2040 STOP^ 2041 031336 254 04 0 00 031337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2042 031337 324 00 0 00 031340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2045 2046 ;********** 2047 2048 ;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC. 2049 ;AC, E ARE NON-ZERO AND C(E)=0. 2050 ;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E) 2051 2052 031340 200 01 0 00 035000 A4600: MOVE 1,[0] ;*PLACE ALL ZEROS INTO THE AC 2053 031341 332 00 0 00 000001 SKIPE 1 ;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC 2054 STOP^ 2055 031342 254 04 0 00 031343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2056 031343 324 00 0 00 031344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2059 2060 ;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1], 2061 ;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA], 2062 ;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA], 2063 ;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA], 2064 ;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA] 2065 2066 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0058 2067 ;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0. 2068 ;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER; 2069 ;THEN, SOS IS EXECUTED. SOS SHOULD SUBTRACT ONE FROM C((E) 2070 ;AND EXECUTE THE NEXT INSTRUCTION. IT SHOULD NOT MODIFY AC0. 2071 ;THE TEST PASSES IF AC0 WAS NOT MODIFIED. 2072 2073 031344 200 00 0 00 035000 A4000: MOVE [0] ;PRESET AC0 TO ALL ZEROS 2074 031345 200 07 0 00 035054 MOVE 7,[1234] ;PRESET E WITH A POSITIVE NUMBER 2075 031346 370 00 0 00 000007 SOS 7 ;*SOS SHOULD NOT MODIFY C(AC0) 2076 031347 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2077 ;SOS SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) 2078 031350 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED 2079 STOP^ 2080 031351 254 04 0 00 031352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2081 031352 324 00 0 00 031353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2084 2085 ;********** 2086 004100 SN=4100 2087 000000 AC=0 2088 2089 A4100: REPEAT 4, 2090 <;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2091 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2092 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2093 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2094 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2095 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2096 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2097 2098 SN=SN+1 2099 AC=AC+AC 2100 IFE AC, 2101 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2102 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2103 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2104 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2105 STOP 2106 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2107 STOP 2108 2109 ;********** 2110 > 2111 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2112 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2113 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2114 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2115 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2116 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2117 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2118 2119 004101 SN=SN+1 2120 000000 AC=AC+AC 2121 000001 IFE AC, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0059 2122 031353 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2123 031354 200 01 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2124 031355 330 01 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2125 031356 336 00 0 00 000001 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2126 STOP^ 2127 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2128 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2129 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2130 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2131 031361 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2132 STOP^ 2133 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2134 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2136 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2137 2138 ;********** 2139 2140 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2141 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2142 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2143 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2144 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2145 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2146 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2147 2148 004102 SN=SN+1 2149 000002 AC=AC+AC 2150 IFE AC, 2151 031364 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2152 031365 200 02 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2153 031366 330 02 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2154 031367 336 00 0 00 000002 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2155 STOP^ 2156 031370 254 04 0 00 031371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2157 031371 324 00 0 00 031372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2158 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2159 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2160 031372 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2161 STOP^ 2162 031373 254 04 0 00 031374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2163 031374 324 00 0 00 031375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2166 2167 ;********** 2168 2169 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2170 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2171 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2172 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2173 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2174 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2175 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2176 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0060 2177 004103 SN=SN+1 2178 000004 AC=AC+AC 2179 IFE AC, 2180 031375 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2181 031376 200 04 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2182 031377 330 04 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2183 031400 336 00 0 00 000004 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2184 STOP^ 2185 031401 254 04 0 00 031402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2186 031402 324 00 0 00 031403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2187 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2188 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2189 031403 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2190 STOP^ 2191 031404 254 04 0 00 031405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2192 031405 324 00 0 00 031406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2193 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2194 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2195 2196 ;********** 2197 2198 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2199 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2200 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2201 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2202 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2203 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2204 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2205 2206 004104 SN=SN+1 2207 000010 AC=AC+AC 2208 IFE AC, 2209 031406 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2210 031407 200 10 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2211 031410 330 10 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2212 031411 336 00 0 00 000010 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2213 STOP^ 2214 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2215 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2218 031414 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2219 STOP^ 2220 031415 254 04 0 00 031416 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2221 031416 324 00 0 00 031417 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2224 2225 ;********** 2226 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0061 2227 SUBTTL TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS 2228 2229 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0. 2230 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, 2231 ;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0. AC0 IS THEN TESTED FOR ALL 2232 ;ZEROS. THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION. 2233 2234 031417 200 00 0 00 035000 A4200: MOVE [0] ;PRESET AC0 TO ALL ZEROS 2235 031420 330 00 0 00 035001 SKIP [-1] ;*SKIP SHOULD NOT MODIFY AC0 2236 031421 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP 2237 STOP^ 2238 031422 254 04 0 00 031423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2239 031423 324 00 0 00 031424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2241 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2242 2243 ;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1 2244 2245 ;********** 2246 2247 ;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC. 2248 ;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0) 2249 ;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED. MOVSS SHOULD NOT MODIFY AC0. 2250 ;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS. 2251 2252 031424 200 07 0 00 035001 A4300: MOVE 7,[-1] ;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES 2253 031425 200 00 0 00 035000 MOVE [0] ;PRESET AC0 TO ALL ZEROS 2254 031426 207 00 0 00 000007 MOVSS 7 ;*MOVSS SHOULD NOT MODIFY AC0 2255 031427 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS INTACT 2256 STOP^ 2257 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2258 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2261 2262 ;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1] 2263 2264 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0062 2265 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC. 2266 ;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS; 2267 ;THEN, HRRS IS EXECUTED WITH AC=AC0. AC0 IS THEN CHECKED FOR ALL ZEROS. 2268 ;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL. 2269 2270 031432 200 07 0 00 035001 A4400: MOVE 7,[-1] ;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES 2271 031433 200 00 0 00 035000 MOVE [0] ;PRESET AC0 TO ALL ZEROS 2272 031434 543 00 0 00 000007 HRRS 7 ;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0 2273 031435 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT 2274 STOP^ 2275 031436 254 04 0 00 031437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2276 031437 324 00 0 00 031440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2278 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2279 2280 ;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1], 2281 ;IR BITS S-A-1 2282 2283 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0063 2284 ;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC). 2285 ;THE AC IS FIRST LOADED WITH ALL ZEROS; 2286 ;THEN JUMP .+1 IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED 2287 ;BY JUMP. THE TEST FAILS IF THE AC WAS MODIFIED 2288 2289 031440 200 00 0 00 035000 A4700: MOVE [0] ; PRESET THE AC TO ALL ZEROS 2290 031441 320 00 0 00 031442 JUMP .+1 ;*JUMP SHOULD NOT MODIFY THE AC 2291 031442 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS INTACT 2292 STOP^ 2293 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2294 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2297 2298 ;********** 2299 2300 ;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD 2301 ;OF ALL ZEROS. FIRST, E IS LOADED WITH A WORD OF ALL ZEROS; 2302 ;THEN, MOVS IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT 2303 ;CONTAIN ANY ONES. 2304 2305 031445 200 00 0 00 035000 A5000: MOVE [0] ;PRESET E WITH ALL ZEROS 2306 031446 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS 2307 031447 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC)=0 2308 STOP^ 2309 031450 254 04 0 00 031451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2310 031451 324 00 0 00 031452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2311 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2312 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2313 2314 ;********** 2315 2316 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER 2317 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD 2318 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO RESULT. 2319 ;IF C(AC)=0, THE TEST FAILS. 2320 2321 031452 200 00 0 00 035055 A5100: MOVE [XWD 0,-1] ;LOAD E WITH A NON-ZERO VALUE 2322 031453 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT IN C(AC) NON-ZERO 2323 031454 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO 2324 STOP^ 2325 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2326 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2327 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2328 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2329 2330 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 21 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0064 2331 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER 2332 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD 2333 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO 2334 ;RESULT. IF C(AC)=0, THE TEST FAILS. 2335 2336 031457 200 00 0 00 035056 A5200: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH A NON-ZERO NUMBER 2337 031460 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO 2338 031461 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO 2339 STOP^ 2340 031462 254 04 0 00 031463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2341 031463 324 00 0 00 031464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2342 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2343 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2344 2345 ;********** 2346 2347 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E 2348 ;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0. FIRST, A WORD 2349 ;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS 2350 ;IS EXECUTED. THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE 2351 ;CORRECT RESULT. 2352 2353 031464 200 00 0 00 035056 A5300: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH 777777000000 2354 031465 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0 2355 031466 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0 2356 STOP^ 2357 031467 254 04 0 00 031470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2358 031470 324 00 0 00 031471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2361 2362 ;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB], 2363 ;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1], 2364 ;IR MOV(E,S)X [IR1] 2365 2366 ;********** 2367 2368 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND 2369 ;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1. FIRST, A WORD WITH BIT 0 2370 ;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS IS EXECUTED. 2371 ;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT. 2372 2373 031471 200 00 0 00 035055 A5400: MOVE [XWD 0,-1] ;LOAD E OF MOVS WITH 777777 2374 031472 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET 2375 031473 331 00 0 00 000000 SKIPL ;PASS IF AC BIT 0 IS SET 2376 STOP^ 2377 031474 254 04 0 00 031475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2378 031475 324 00 0 00 031476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2379 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2380 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2381 2382 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0065 2383 005500 SN=5500 2384 000000 ZZ=0 2385 2386 A5500: REPEAT ^D18, 2387 <;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2388 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2389 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2390 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2391 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2392 SN=SN+1 2393 ZZ=ZZ+ZZ 2394 IFE ZZ, 2395 MOVE [0] ;CLEAR AC 2396 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2397 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2398 STOP 2399 2400 ;********** 2401 > 2402 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2403 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2404 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2405 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2406 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2407 005501 SN=SN+1 2408 000000 ZZ=ZZ+ZZ 2409 000001 IFE ZZ, 2410 031476 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2411 031477 204 00 0 00 035012 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2412 031500 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2413 STOP^ 2414 031501 254 04 0 00 031502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2415 031502 324 00 0 00 031503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2416 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2417 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2418 2419 ;********** 2420 2421 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2422 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2423 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2424 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2425 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2426 005502 SN=SN+1 2427 000002 ZZ=ZZ+ZZ 2428 IFE ZZ, 2429 031503 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2430 031504 204 00 0 00 035013 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2431 031505 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2432 STOP^ 2433 031506 254 04 0 00 031507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2434 031507 324 00 0 00 031510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2437 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0066 2438 ;********** 2439 2440 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2441 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2442 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2443 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2444 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2445 005503 SN=SN+1 2446 000004 ZZ=ZZ+ZZ 2447 IFE ZZ, 2448 031510 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2449 031511 204 00 0 00 035014 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2450 031512 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2451 STOP^ 2452 031513 254 04 0 00 031514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2453 031514 324 00 0 00 031515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2454 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2455 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2456 2457 ;********** 2458 2459 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2460 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2461 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2462 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2463 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2464 005504 SN=SN+1 2465 000010 ZZ=ZZ+ZZ 2466 IFE ZZ, 2467 031515 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2468 031516 204 00 0 00 035015 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2469 031517 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2470 STOP^ 2471 031520 254 04 0 00 031521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2472 031521 324 00 0 00 031522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2473 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2474 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2475 2476 ;********** 2477 2478 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2479 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2480 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2481 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2482 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2483 005505 SN=SN+1 2484 000020 ZZ=ZZ+ZZ 2485 IFE ZZ, 2486 031522 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2487 031523 204 00 0 00 035016 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2488 031524 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2489 STOP^ 2490 031525 254 04 0 00 031526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2491 031526 324 00 0 00 031527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0067 2493 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2494 2495 ;********** 2496 2497 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2498 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2499 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2500 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2501 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2502 005506 SN=SN+1 2503 000040 ZZ=ZZ+ZZ 2504 IFE ZZ, 2505 031527 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2506 031530 204 00 0 00 035017 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2507 031531 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2508 STOP^ 2509 031532 254 04 0 00 031533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2510 031533 324 00 0 00 031534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2513 2514 ;********** 2515 2516 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2517 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2518 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2519 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2520 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2521 005507 SN=SN+1 2522 000100 ZZ=ZZ+ZZ 2523 IFE ZZ, 2524 031534 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2525 031535 204 00 0 00 035020 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2526 031536 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2527 STOP^ 2528 031537 254 04 0 00 031540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2529 031540 324 00 0 00 031541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2530 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2531 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2532 2533 ;********** 2534 2535 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2536 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2537 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2538 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2539 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2540 005510 SN=SN+1 2541 000200 ZZ=ZZ+ZZ 2542 IFE ZZ, 2543 031541 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2544 031542 204 00 0 00 035021 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2545 031543 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2546 STOP^ 2547 031544 254 04 0 00 031545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0068 2548 031545 324 00 0 00 031546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2551 2552 ;********** 2553 2554 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2555 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2556 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2557 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2558 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2559 005511 SN=SN+1 2560 000400 ZZ=ZZ+ZZ 2561 IFE ZZ, 2562 031546 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2563 031547 204 00 0 00 035022 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2564 031550 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2565 STOP^ 2566 031551 254 04 0 00 031552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2567 031552 324 00 0 00 031553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2568 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2569 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2570 2571 ;********** 2572 2573 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2574 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2575 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2576 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2577 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2578 005512 SN=SN+1 2579 001000 ZZ=ZZ+ZZ 2580 IFE ZZ, 2581 031553 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2582 031554 204 00 0 00 035023 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2583 031555 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2584 STOP^ 2585 031556 254 04 0 00 031557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2586 031557 324 00 0 00 031560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2587 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2588 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2589 2590 ;********** 2591 2592 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2593 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2594 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2595 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2596 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2597 005513 SN=SN+1 2598 002000 ZZ=ZZ+ZZ 2599 IFE ZZ, 2600 031560 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2601 031561 204 00 0 00 035024 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2602 031562 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0069 2603 STOP^ 2604 031563 254 04 0 00 031564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2605 031564 324 00 0 00 031565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2606 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2607 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2608 2609 ;********** 2610 2611 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2612 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2613 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2614 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2615 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2616 005514 SN=SN+1 2617 004000 ZZ=ZZ+ZZ 2618 IFE ZZ, 2619 031565 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2620 031566 204 00 0 00 035025 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2621 031567 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2622 STOP^ 2623 031570 254 04 0 00 031571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2624 031571 324 00 0 00 031572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2625 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2626 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2627 2628 ;********** 2629 2630 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2631 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2632 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2633 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2634 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2635 005515 SN=SN+1 2636 010000 ZZ=ZZ+ZZ 2637 IFE ZZ, 2638 031572 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2639 031573 204 00 0 00 035026 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2640 031574 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2641 STOP^ 2642 031575 254 04 0 00 031576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2643 031576 324 00 0 00 031577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2646 2647 ;********** 2648 2649 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2650 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2651 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2652 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2653 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2654 005516 SN=SN+1 2655 020000 ZZ=ZZ+ZZ 2656 IFE ZZ, 2657 031577 200 00 0 00 035000 MOVE [0] ;CLEAR AC DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0070 2658 031600 204 00 0 00 035027 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2659 031601 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2660 STOP^ 2661 031602 254 04 0 00 031603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2662 031603 324 00 0 00 031604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2663 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2664 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2665 2666 ;********** 2667 2668 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2669 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2670 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2671 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2672 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2673 005517 SN=SN+1 2674 040000 ZZ=ZZ+ZZ 2675 IFE ZZ, 2676 031604 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2677 031605 204 00 0 00 035030 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2678 031606 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2679 STOP^ 2680 031607 254 04 0 00 031610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2681 031610 324 00 0 00 031611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2682 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2683 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2684 2685 ;********** 2686 2687 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2688 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2689 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2690 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2691 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2692 005520 SN=SN+1 2693 100000 ZZ=ZZ+ZZ 2694 IFE ZZ, 2695 031611 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2696 031612 204 00 0 00 035031 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2697 031613 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2698 STOP^ 2699 031614 254 04 0 00 031615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2700 031615 324 00 0 00 031616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2703 2704 ;********** 2705 2706 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2707 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2708 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2709 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2710 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2711 005521 SN=SN+1 2712 200000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0071 2713 IFE ZZ, 2714 031616 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2715 031617 204 00 0 00 035032 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2716 031620 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2717 STOP^ 2718 031621 254 04 0 00 031622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2719 031622 324 00 0 00 031623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2721 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2722 2723 ;********** 2724 2725 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2726 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2727 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2728 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2729 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2730 005522 SN=SN+1 2731 400000 ZZ=ZZ+ZZ 2732 IFE ZZ, 2733 031623 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2734 031624 204 00 0 00 035033 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2735 031625 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2736 STOP^ 2737 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2738 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2739 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2740 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2741 2742 ;********** 2743 2744 005600 SN=5600 2745 2746 A5600: REPEAT ^D18, 2747 <;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2748 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2749 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2750 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2751 ;HALF OF THE AC IS TESTED WITH A 1. 2752 2753 SN=SN+1 2754 ZZ=ZZ+ZZ 2755 MOVE [0] ;CLEAR AC 2756 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2757 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2758 STOP 2759 2760 ;********** 2761 > 2762 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2763 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2764 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2765 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2766 ;HALF OF THE AC IS TESTED WITH A 1. 2767 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0072 2768 005601 SN=SN+1 2769 000001 000000 ZZ=ZZ+ZZ 2770 031630 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2771 031631 204 00 0 00 035034 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2772 031632 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2773 STOP^ 2774 031633 254 04 0 00 031634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2775 031634 324 00 0 00 031635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2778 2779 ;********** 2780 2781 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2782 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2783 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2784 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2785 ;HALF OF THE AC IS TESTED WITH A 1. 2786 2787 005602 SN=SN+1 2788 000002 000000 ZZ=ZZ+ZZ 2789 031635 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2790 031636 204 00 0 00 035035 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2791 031637 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2792 STOP^ 2793 031640 254 04 0 00 031641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2794 031641 324 00 0 00 031642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2795 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2796 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2797 2798 ;********** 2799 2800 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2801 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2802 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2803 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2804 ;HALF OF THE AC IS TESTED WITH A 1. 2805 2806 005603 SN=SN+1 2807 000004 000000 ZZ=ZZ+ZZ 2808 031642 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2809 031643 204 00 0 00 035036 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2810 031644 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2811 STOP^ 2812 031645 254 04 0 00 031646 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2813 031646 324 00 0 00 031647 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2814 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2815 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2816 2817 ;********** 2818 2819 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2820 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2821 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2822 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0073 2823 ;HALF OF THE AC IS TESTED WITH A 1. 2824 2825 005604 SN=SN+1 2826 000010 000000 ZZ=ZZ+ZZ 2827 031647 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2828 031650 204 00 0 00 035037 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2829 031651 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2830 STOP^ 2831 031652 254 04 0 00 031653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2832 031653 324 00 0 00 031654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2835 2836 ;********** 2837 2838 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2839 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2840 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2841 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2842 ;HALF OF THE AC IS TESTED WITH A 1. 2843 2844 005605 SN=SN+1 2845 000020 000000 ZZ=ZZ+ZZ 2846 031654 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2847 031655 204 00 0 00 035040 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2848 031656 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2849 STOP^ 2850 031657 254 04 0 00 031660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2851 031660 324 00 0 00 031661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2852 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2853 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2854 2855 ;********** 2856 2857 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2858 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2859 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2860 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2861 ;HALF OF THE AC IS TESTED WITH A 1. 2862 2863 005606 SN=SN+1 2864 000040 000000 ZZ=ZZ+ZZ 2865 031661 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2866 031662 204 00 0 00 035041 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2867 031663 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2868 STOP^ 2869 031664 254 04 0 00 031665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2870 031665 324 00 0 00 031666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2871 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2872 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2873 2874 ;********** 2875 2876 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2877 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0074 2878 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2879 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2880 ;HALF OF THE AC IS TESTED WITH A 1. 2881 2882 005607 SN=SN+1 2883 000100 000000 ZZ=ZZ+ZZ 2884 031666 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2885 031667 204 00 0 00 035042 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2886 031670 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2887 STOP^ 2888 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2889 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2890 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2891 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2892 2893 ;********** 2894 2895 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2896 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2897 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2898 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2899 ;HALF OF THE AC IS TESTED WITH A 1. 2900 2901 005610 SN=SN+1 2902 000200 000000 ZZ=ZZ+ZZ 2903 031673 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2904 031674 204 00 0 00 035043 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2905 031675 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2906 STOP^ 2907 031676 254 04 0 00 031677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2908 031677 324 00 0 00 031700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2909 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2910 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2911 2912 ;********** 2913 2914 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2915 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2916 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2917 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2918 ;HALF OF THE AC IS TESTED WITH A 1. 2919 2920 005611 SN=SN+1 2921 000400 000000 ZZ=ZZ+ZZ 2922 031700 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2923 031701 204 00 0 00 035011 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2924 031702 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2925 STOP^ 2926 031703 254 04 0 00 031704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2927 031704 324 00 0 00 031705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2930 2931 ;********** 2932 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0075 2933 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2934 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2935 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2936 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2937 ;HALF OF THE AC IS TESTED WITH A 1. 2938 2939 005612 SN=SN+1 2940 001000 000000 ZZ=ZZ+ZZ 2941 031705 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2942 031706 204 00 0 00 035044 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2943 031707 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2944 STOP^ 2945 031710 254 04 0 00 031711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2946 031711 324 00 0 00 031712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2947 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2948 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2949 2950 ;********** 2951 2952 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2953 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2954 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2955 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2956 ;HALF OF THE AC IS TESTED WITH A 1. 2957 2958 005613 SN=SN+1 2959 002000 000000 ZZ=ZZ+ZZ 2960 031712 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2961 031713 204 00 0 00 035045 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2962 031714 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2963 STOP^ 2964 031715 254 04 0 00 031716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2965 031716 324 00 0 00 031717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2966 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2967 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2968 2969 ;********** 2970 2971 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2972 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2973 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2974 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2975 ;HALF OF THE AC IS TESTED WITH A 1. 2976 2977 005614 SN=SN+1 2978 004000 000000 ZZ=ZZ+ZZ 2979 031717 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2980 031720 204 00 0 00 035046 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2981 031721 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2982 STOP^ 2983 031722 254 04 0 00 031723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2984 031723 324 00 0 00 031724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2985 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2986 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2987 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0076 2988 ;********** 2989 2990 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2991 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2992 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2993 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2994 ;HALF OF THE AC IS TESTED WITH A 1. 2995 2996 005615 SN=SN+1 2997 010000 000000 ZZ=ZZ+ZZ 2998 031724 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2999 031725 204 00 0 00 035047 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3000 031726 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3001 STOP^ 3002 031727 254 04 0 00 031730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3003 031730 324 00 0 00 031731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3004 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3005 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3006 3007 ;********** 3008 3009 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3010 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3011 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3012 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3013 ;HALF OF THE AC IS TESTED WITH A 1. 3014 3015 005616 SN=SN+1 3016 020000 000000 ZZ=ZZ+ZZ 3017 031731 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3018 031732 204 00 0 00 035050 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3019 031733 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3020 STOP^ 3021 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3022 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3024 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3025 3026 ;********** 3027 3028 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3029 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3030 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3031 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3032 ;HALF OF THE AC IS TESTED WITH A 1. 3033 3034 005617 SN=SN+1 3035 040000 000000 ZZ=ZZ+ZZ 3036 031736 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3037 031737 204 00 0 00 035051 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3038 031740 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3039 STOP^ 3040 031741 254 04 0 00 031742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3041 031742 324 00 0 00 031743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3042 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0077 3043 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3044 3045 ;********** 3046 3047 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3048 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3049 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3050 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3051 ;HALF OF THE AC IS TESTED WITH A 1. 3052 3053 005620 SN=SN+1 3054 100000 000000 ZZ=ZZ+ZZ 3055 031743 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3056 031744 204 00 0 00 035052 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3057 031745 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3058 STOP^ 3059 031746 254 04 0 00 031747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3060 031747 324 00 0 00 031750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3061 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3062 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3063 3064 ;********** 3065 3066 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3067 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3068 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3069 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3070 ;HALF OF THE AC IS TESTED WITH A 1. 3071 3072 005621 SN=SN+1 3073 200000 000000 ZZ=ZZ+ZZ 3074 031750 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3075 031751 204 00 0 00 035053 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3076 031752 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3077 STOP^ 3078 031753 254 04 0 00 031754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3079 031754 324 00 0 00 031755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3082 3083 ;********** 3084 3085 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3086 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3087 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3088 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3089 ;HALF OF THE AC IS TESTED WITH A 1. 3090 3091 005622 SN=SN+1 3092 400000 000000 ZZ=ZZ+ZZ 3093 031755 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3094 031756 204 00 0 00 035003 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3095 031757 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3096 STOP^ 3097 031760 254 04 0 00 031761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0078 3098 031761 324 00 0 00 031762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3099 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3100 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3101 3102 ;********** 3103 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 23 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0079 3104 SUBTTL TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) 3105 3106 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET 3107 ;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E. BIT 0 OF THE AC 3108 ;IS THEN CHECKED FOR A 1. 3109 3110 031762 200 00 0 00 035000 A5700: MOVE [0] ;PRELOAD AC WITH ALL ZEROS 3111 031763 414 00 0 00 035001 SETM [-1] ;*SETM SHOULD LOAD AC WITH ALL ONES 3112 031764 331 00 0 00 000000 SKIPL ;PASS TEST IF AC BIT 0 IS A ONE 3113 STOP^ 3114 031765 254 04 0 00 031766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3115 031766 324 00 0 00 031767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3117 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3118 ;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2] 3119 3120 ;********** 3121 3122 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET TO 3123 ;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E. THE AC IS CHECKED 3124 ;FOR ALL ZEROS 3125 3126 031767 200 00 0 00 035001 A6000: MOVE [-1] ;PRESET AC TO ALL ONES 3127 031770 414 00 0 00 035000 SETM [0] ;*SETM SHOULD LOAD AC WITH ALL ONES 3128 031771 332 00 0 00 000000 SKIPE ;PASSES TEST IF C(AC) = 0 3129 STOP^ 3130 031772 254 04 0 00 031773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3131 031773 324 00 0 00 031774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3133 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3134 3135 ;AD AR + EN [ADAP], AD AR + EN C[ADAP], 3136 ;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2], 3137 ;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2] 3138 3139 ;********** 3140 3141 ;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS. FIRST, A WORD 3142 ;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS 3143 ;EXECUTED. THE AC IS CHECKED FOR ALL ZEROS. 3144 ;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. 3145 3146 031774 200 00 0 00 035000 A6100: MOVE [0] ;RESET AC TO ALL ZEROS 3147 031775 400 00 0 00 000000 SETZ ;*SETZ SHOULD CLEAR THE AC 3148 031776 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3149 STOP^ 3150 031777 254 04 0 00 032000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3151 032000 324 00 0 00 032001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3152 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3153 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3154 3155 ;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1] 3156 ;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1]; 3157 ;IR BOOLE [IR1] 3158 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 23-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0080 3159 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0081 3160 ;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS. FIRST, 3161 ;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED. THE AC IS THEN 3162 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. 3163 3164 032001 200 00 0 00 035001 A6200: MOVE [-1] ;PRESET AC TO ALL ONES 3165 032002 400 00 0 00 032002 SETZ . ;*SETZ SHOULD CLEAR THE AC 3166 032003 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3167 STOP^ 3168 032004 254 04 0 00 032005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3169 032005 324 00 0 00 032006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3171 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3172 3173 ;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR] 3174 3175 ;********** 3176 3177 ;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC 3178 ;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC 3179 ;OF ALL ZEROS. THE AC AND E ARE THE SAME IN THIS TEST. 3180 ;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED. THE AC IS THEN 3181 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION, 3182 ;THE TEST FAILS. 3183 3184 3185 032006 200 00 0 00 035000 A6300: MOVE [0] ;PRESET AC, E TO ALL ZEROS 3186 032007 404 00 0 00 000000 AND ;*AND SHOULD RESULT IN C(AC) = 0 3187 032010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3188 STOP^ 3189 032011 254 04 0 00 032012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3190 032012 324 00 0 00 032013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3191 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3192 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3193 3194 ;********** 3195 006400 SN=6400 3196 000000 ZZ=0 3197 3198 A6400: REPEAT ^D36, 3199 <;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3200 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3201 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3202 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3203 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3204 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3205 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3206 3207 SN=SN+1 3208 ZZ=ZZ+ZZ 3209 IFE ZZ, 3210 SETZ ;PRESET E TO ALL ZEROS 3211 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3212 ;WHERE X VARIES FROM 0 THRU 35 3213 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3214 SKIPE 1 ;FAIL IF C(AC) NON-ZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0082 3215 STOP 3216 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3217 STOP 3218 ;********** 3219 > 3220 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3221 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3222 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3223 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3224 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3225 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3226 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3227 3228 006401 SN=SN+1 3229 000000 ZZ=ZZ+ZZ 3230 000001 IFE ZZ, 3231 032013 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3232 032014 200 01 0 00 035012 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3233 ;WHERE X VARIES FROM 0 THRU 35 3234 032015 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3235 032016 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3236 STOP^ 3237 032017 254 04 0 00 032020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3238 032020 324 00 0 00 032021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3239 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3240 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3241 032021 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3242 STOP^ 3243 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3244 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3245 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3246 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3247 ;********** 3248 3249 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3250 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3251 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3252 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3253 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3254 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3255 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3256 3257 006402 SN=SN+1 3258 000002 ZZ=ZZ+ZZ 3259 IFE ZZ, 3260 032024 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3261 032025 200 01 0 00 035013 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3262 ;WHERE X VARIES FROM 0 THRU 35 3263 032026 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3264 032027 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3265 STOP^ 3266 032030 254 04 0 00 032031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3267 032031 324 00 0 00 032032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3268 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3269 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0083 3270 032032 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3271 STOP^ 3272 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3273 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3274 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3275 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3276 ;********** 3277 3278 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3279 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3280 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3281 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3282 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3283 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3284 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3285 3286 006403 SN=SN+1 3287 000004 ZZ=ZZ+ZZ 3288 IFE ZZ, 3289 032035 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3290 032036 200 01 0 00 035014 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3291 ;WHERE X VARIES FROM 0 THRU 35 3292 032037 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3293 032040 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3294 STOP^ 3295 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3296 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3299 032043 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3300 STOP^ 3301 032044 254 04 0 00 032045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3302 032045 324 00 0 00 032046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3303 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3304 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3305 ;********** 3306 3307 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3308 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3309 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3310 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3311 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3312 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3313 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3314 3315 006404 SN=SN+1 3316 000010 ZZ=ZZ+ZZ 3317 IFE ZZ, 3318 032046 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3319 032047 200 01 0 00 035015 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3320 ;WHERE X VARIES FROM 0 THRU 35 3321 032050 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3322 032051 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3323 STOP^ 3324 032052 254 04 0 00 032053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0084 3325 032053 324 00 0 00 032054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3326 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3327 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3328 032054 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3329 STOP^ 3330 032055 254 04 0 00 032056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3331 032056 324 00 0 00 032057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3334 ;********** 3335 3336 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3337 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3338 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3339 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3340 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3341 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3342 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3343 3344 006405 SN=SN+1 3345 000020 ZZ=ZZ+ZZ 3346 IFE ZZ, 3347 032057 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3348 032060 200 01 0 00 035016 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3349 ;WHERE X VARIES FROM 0 THRU 35 3350 032061 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3351 032062 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3352 STOP^ 3353 032063 254 04 0 00 032064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3354 032064 324 00 0 00 032065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3356 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3357 032065 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3358 STOP^ 3359 032066 254 04 0 00 032067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3360 032067 324 00 0 00 032070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3363 ;********** 3364 3365 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3366 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3367 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3368 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3369 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3370 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3371 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3372 3373 006406 SN=SN+1 3374 000040 ZZ=ZZ+ZZ 3375 IFE ZZ, 3376 032070 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3377 032071 200 01 0 00 035017 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3378 ;WHERE X VARIES FROM 0 THRU 35 3379 032072 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0085 3380 032073 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3381 STOP^ 3382 032074 254 04 0 00 032075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3383 032075 324 00 0 00 032076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3386 032076 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3387 STOP^ 3388 032077 254 04 0 00 032100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3389 032100 324 00 0 00 032101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3392 ;********** 3393 3394 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3395 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3396 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3397 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3398 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3399 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3400 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3401 3402 006407 SN=SN+1 3403 000100 ZZ=ZZ+ZZ 3404 IFE ZZ, 3405 032101 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3406 032102 200 01 0 00 035020 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3407 ;WHERE X VARIES FROM 0 THRU 35 3408 032103 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3409 032104 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3410 STOP^ 3411 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3412 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3413 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3414 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3415 032107 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3416 STOP^ 3417 032110 254 04 0 00 032111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3418 032111 324 00 0 00 032112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3420 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3421 ;********** 3422 3423 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3424 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3425 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3426 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3427 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3428 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3429 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3430 3431 006410 SN=SN+1 3432 000200 ZZ=ZZ+ZZ 3433 IFE ZZ, 3434 032112 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0086 3435 032113 200 01 0 00 035021 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3436 ;WHERE X VARIES FROM 0 THRU 35 3437 032114 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3438 032115 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3439 STOP^ 3440 032116 254 04 0 00 032117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3441 032117 324 00 0 00 032120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3442 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3443 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3444 032120 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3445 STOP^ 3446 032121 254 04 0 00 032122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3447 032122 324 00 0 00 032123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3448 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3449 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3450 ;********** 3451 3452 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3453 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3454 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3455 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3456 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3457 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3458 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3459 3460 006411 SN=SN+1 3461 000400 ZZ=ZZ+ZZ 3462 IFE ZZ, 3463 032123 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3464 032124 200 01 0 00 035022 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3465 ;WHERE X VARIES FROM 0 THRU 35 3466 032125 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3467 032126 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3468 STOP^ 3469 032127 254 04 0 00 032130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3470 032130 324 00 0 00 032131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3473 032131 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3474 STOP^ 3475 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3476 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3479 ;********** 3480 3481 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3482 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3483 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3484 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3485 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3486 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3487 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3488 3489 006412 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0087 3490 001000 ZZ=ZZ+ZZ 3491 IFE ZZ, 3492 032134 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3493 032135 200 01 0 00 035023 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3494 ;WHERE X VARIES FROM 0 THRU 35 3495 032136 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3496 032137 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3497 STOP^ 3498 032140 254 04 0 00 032141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3499 032141 324 00 0 00 032142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3501 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3502 032142 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3503 STOP^ 3504 032143 254 04 0 00 032144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3505 032144 324 00 0 00 032145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3506 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3507 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3508 ;********** 3509 3510 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3511 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3512 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3513 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3514 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3515 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3516 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3517 3518 006413 SN=SN+1 3519 002000 ZZ=ZZ+ZZ 3520 IFE ZZ, 3521 032145 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3522 032146 200 01 0 00 035024 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3523 ;WHERE X VARIES FROM 0 THRU 35 3524 032147 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3525 032150 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3526 STOP^ 3527 032151 254 04 0 00 032152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3528 032152 324 00 0 00 032153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3529 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3530 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3531 032153 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3532 STOP^ 3533 032154 254 04 0 00 032155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3534 032155 324 00 0 00 032156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3535 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3536 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3537 ;********** 3538 3539 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3540 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3541 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3542 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3543 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3544 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0088 3545 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3546 3547 006414 SN=SN+1 3548 004000 ZZ=ZZ+ZZ 3549 IFE ZZ, 3550 032156 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3551 032157 200 01 0 00 035025 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3552 ;WHERE X VARIES FROM 0 THRU 35 3553 032160 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3554 032161 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3555 STOP^ 3556 032162 254 04 0 00 032163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3557 032163 324 00 0 00 032164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3558 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3559 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3560 032164 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3561 STOP^ 3562 032165 254 04 0 00 032166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3563 032166 324 00 0 00 032167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3566 ;********** 3567 3568 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3569 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3570 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3571 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3572 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3573 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3574 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3575 3576 006415 SN=SN+1 3577 010000 ZZ=ZZ+ZZ 3578 IFE ZZ, 3579 032167 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3580 032170 200 01 0 00 035026 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3581 ;WHERE X VARIES FROM 0 THRU 35 3582 032171 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3583 032172 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3584 STOP^ 3585 032173 254 04 0 00 032174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3586 032174 324 00 0 00 032175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3587 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3588 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3589 032175 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3590 STOP^ 3591 032176 254 04 0 00 032177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3592 032177 324 00 0 00 032200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3593 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3594 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3595 ;********** 3596 3597 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3598 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3599 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0089 3600 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3601 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3602 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3603 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3604 3605 006416 SN=SN+1 3606 020000 ZZ=ZZ+ZZ 3607 IFE ZZ, 3608 032200 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3609 032201 200 01 0 00 035027 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3610 ;WHERE X VARIES FROM 0 THRU 35 3611 032202 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3612 032203 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3613 STOP^ 3614 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3615 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3616 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3617 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3618 032206 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3619 STOP^ 3620 032207 254 04 0 00 032210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3621 032210 324 00 0 00 032211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3623 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3624 ;********** 3625 3626 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3627 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3628 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3629 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3630 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3631 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3632 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3633 3634 006417 SN=SN+1 3635 040000 ZZ=ZZ+ZZ 3636 IFE ZZ, 3637 032211 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3638 032212 200 01 0 00 035030 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3639 ;WHERE X VARIES FROM 0 THRU 35 3640 032213 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3641 032214 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3642 STOP^ 3643 032215 254 04 0 00 032216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3644 032216 324 00 0 00 032217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3645 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3646 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3647 032217 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3648 STOP^ 3649 032220 254 04 0 00 032221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3650 032221 324 00 0 00 032222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3651 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3652 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3653 ;********** 3654 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0090 3655 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3656 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3657 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3658 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3659 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3660 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3661 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3662 3663 006420 SN=SN+1 3664 100000 ZZ=ZZ+ZZ 3665 IFE ZZ, 3666 032222 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3667 032223 200 01 0 00 035031 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3668 ;WHERE X VARIES FROM 0 THRU 35 3669 032224 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3670 032225 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3671 STOP^ 3672 032226 254 04 0 00 032227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3673 032227 324 00 0 00 032230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3674 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3675 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3676 032230 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3677 STOP^ 3678 032231 254 04 0 00 032232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3679 032232 324 00 0 00 032233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3680 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3681 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3682 ;********** 3683 3684 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3685 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3686 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3687 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3688 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3689 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3690 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3691 3692 006421 SN=SN+1 3693 200000 ZZ=ZZ+ZZ 3694 IFE ZZ, 3695 032233 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3696 032234 200 01 0 00 035032 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3697 ;WHERE X VARIES FROM 0 THRU 35 3698 032235 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3699 032236 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3700 STOP^ 3701 032237 254 04 0 00 032240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3702 032240 324 00 0 00 032241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3703 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3704 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3705 032241 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3706 STOP^ 3707 032242 254 04 0 00 032243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3708 032243 324 00 0 00 032244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0091 3710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3711 ;********** 3712 3713 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3714 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3715 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3716 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3717 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3718 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3719 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3720 3721 006422 SN=SN+1 3722 400000 ZZ=ZZ+ZZ 3723 IFE ZZ, 3724 032244 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3725 032245 200 01 0 00 035033 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3726 ;WHERE X VARIES FROM 0 THRU 35 3727 032246 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3728 032247 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3729 STOP^ 3730 032250 254 04 0 00 032251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3731 032251 324 00 0 00 032252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3733 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3734 032252 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3735 STOP^ 3736 032253 254 04 0 00 032254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3737 032254 324 00 0 00 032255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3739 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3740 ;********** 3741 3742 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3743 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3744 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3745 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3746 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3747 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3748 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3749 3750 006423 SN=SN+1 3751 000001 000000 ZZ=ZZ+ZZ 3752 IFE ZZ, 3753 032255 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3754 032256 200 01 0 00 035034 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3755 ;WHERE X VARIES FROM 0 THRU 35 3756 032257 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3757 032260 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3758 STOP^ 3759 032261 254 04 0 00 032262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3760 032262 324 00 0 00 032263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3763 032263 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3764 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0092 3765 032264 254 04 0 00 032265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3766 032265 324 00 0 00 032266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3767 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3768 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3769 ;********** 3770 3771 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3772 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3773 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3774 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3775 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3776 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3777 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3778 3779 006424 SN=SN+1 3780 000002 000000 ZZ=ZZ+ZZ 3781 IFE ZZ, 3782 032266 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3783 032267 200 01 0 00 035035 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3784 ;WHERE X VARIES FROM 0 THRU 35 3785 032270 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3786 032271 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3787 STOP^ 3788 032272 254 04 0 00 032273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3789 032273 324 00 0 00 032274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3790 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3791 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3792 032274 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3793 STOP^ 3794 032275 254 04 0 00 032276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3795 032276 324 00 0 00 032277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3798 ;********** 3799 3800 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3801 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3802 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3803 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3804 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3805 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3806 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3807 3808 006425 SN=SN+1 3809 000004 000000 ZZ=ZZ+ZZ 3810 IFE ZZ, 3811 032277 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3812 032300 200 01 0 00 035036 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3813 ;WHERE X VARIES FROM 0 THRU 35 3814 032301 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3815 032302 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3816 STOP^ 3817 032303 254 04 0 00 032304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3818 032304 324 00 0 00 032305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3819 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0093 3820 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3821 032305 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3822 STOP^ 3823 032306 254 04 0 00 032307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3824 032307 324 00 0 00 032310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3825 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3826 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3827 ;********** 3828 3829 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3830 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3831 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3832 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3833 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3834 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3835 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3836 3837 006426 SN=SN+1 3838 000010 000000 ZZ=ZZ+ZZ 3839 IFE ZZ, 3840 032310 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3841 032311 200 01 0 00 035037 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3842 ;WHERE X VARIES FROM 0 THRU 35 3843 032312 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3844 032313 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3845 STOP^ 3846 032314 254 04 0 00 032315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3847 032315 324 00 0 00 032316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3848 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3849 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3850 032316 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3851 STOP^ 3852 032317 254 04 0 00 032320 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3853 032320 324 00 0 00 032321 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3854 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3855 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3856 ;********** 3857 3858 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3859 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3860 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3861 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3862 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3863 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3864 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3865 3866 006427 SN=SN+1 3867 000020 000000 ZZ=ZZ+ZZ 3868 IFE ZZ, 3869 032321 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3870 032322 200 01 0 00 035040 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3871 ;WHERE X VARIES FROM 0 THRU 35 3872 032323 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3873 032324 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3874 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0094 3875 032325 254 04 0 00 032326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3876 032326 324 00 0 00 032327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3877 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3878 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3879 032327 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3880 STOP^ 3881 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3882 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3883 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3884 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3885 ;********** 3886 3887 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3888 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3889 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3890 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3891 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3892 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3893 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3894 3895 006430 SN=SN+1 3896 000040 000000 ZZ=ZZ+ZZ 3897 IFE ZZ, 3898 032332 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3899 032333 200 01 0 00 035041 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3900 ;WHERE X VARIES FROM 0 THRU 35 3901 032334 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3902 032335 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3903 STOP^ 3904 032336 254 04 0 00 032337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3905 032337 324 00 0 00 032340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3908 032340 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3909 STOP^ 3910 032341 254 04 0 00 032342 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3911 032342 324 00 0 00 032343 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3912 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3913 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3914 ;********** 3915 3916 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3917 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3918 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3919 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3920 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3921 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3922 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3923 3924 006431 SN=SN+1 3925 000100 000000 ZZ=ZZ+ZZ 3926 IFE ZZ, 3927 032343 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3928 032344 200 01 0 00 035042 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3929 ;WHERE X VARIES FROM 0 THRU 35 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0095 3930 032345 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3931 032346 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3932 STOP^ 3933 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3934 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3936 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3937 032351 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3938 STOP^ 3939 032352 254 04 0 00 032353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3940 032353 324 00 0 00 032354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3943 ;********** 3944 3945 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3946 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3947 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3948 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3949 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3950 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3951 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3952 3953 006432 SN=SN+1 3954 000200 000000 ZZ=ZZ+ZZ 3955 IFE ZZ, 3956 032354 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3957 032355 200 01 0 00 035043 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3958 ;WHERE X VARIES FROM 0 THRU 35 3959 032356 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3960 032357 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3961 STOP^ 3962 032360 254 04 0 00 032361 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3963 032361 324 00 0 00 032362 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3964 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3965 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3966 032362 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3967 STOP^ 3968 032363 254 04 0 00 032364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3969 032364 324 00 0 00 032365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3970 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3971 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3972 ;********** 3973 3974 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3975 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3976 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3977 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3978 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3979 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3980 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3981 3982 006433 SN=SN+1 3983 000400 000000 ZZ=ZZ+ZZ 3984 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0096 3985 032365 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3986 032366 200 01 0 00 035011 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3987 ;WHERE X VARIES FROM 0 THRU 35 3988 032367 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3989 032370 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3990 STOP^ 3991 032371 254 04 0 00 032372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3992 032372 324 00 0 00 032373 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3994 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3995 032373 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3996 STOP^ 3997 032374 254 04 0 00 032375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3998 032375 324 00 0 00 032376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4001 ;********** 4002 4003 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4004 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4005 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4006 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4007 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4008 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4009 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4010 4011 006434 SN=SN+1 4012 001000 000000 ZZ=ZZ+ZZ 4013 IFE ZZ, 4014 032376 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4015 032377 200 01 0 00 035044 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4016 ;WHERE X VARIES FROM 0 THRU 35 4017 032400 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4018 032401 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4019 STOP^ 4020 032402 254 04 0 00 032403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4021 032403 324 00 0 00 032404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4022 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4023 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4024 032404 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4025 STOP^ 4026 032405 254 04 0 00 032406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4027 032406 324 00 0 00 032407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4028 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4029 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4030 ;********** 4031 4032 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4033 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4034 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4035 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4036 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4037 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4038 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4039 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0097 4040 006435 SN=SN+1 4041 002000 000000 ZZ=ZZ+ZZ 4042 IFE ZZ, 4043 032407 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4044 032410 200 01 0 00 035045 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4045 ;WHERE X VARIES FROM 0 THRU 35 4046 032411 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4047 032412 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4048 STOP^ 4049 032413 254 04 0 00 032414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4050 032414 324 00 0 00 032415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4052 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4053 032415 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4054 STOP^ 4055 032416 254 04 0 00 032417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4056 032417 324 00 0 00 032420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4059 ;********** 4060 4061 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4062 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4063 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4064 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4065 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4066 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4067 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4068 4069 006436 SN=SN+1 4070 004000 000000 ZZ=ZZ+ZZ 4071 IFE ZZ, 4072 032420 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4073 032421 200 01 0 00 035046 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4074 ;WHERE X VARIES FROM 0 THRU 35 4075 032422 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4076 032423 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4077 STOP^ 4078 032424 254 04 0 00 032425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4079 032425 324 00 0 00 032426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4082 032426 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4083 STOP^ 4084 032427 254 04 0 00 032430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4085 032430 324 00 0 00 032431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4086 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4087 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4088 ;********** 4089 4090 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4091 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4092 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4093 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4094 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0098 4095 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4096 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4097 4098 006437 SN=SN+1 4099 010000 000000 ZZ=ZZ+ZZ 4100 IFE ZZ, 4101 032431 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4102 032432 200 01 0 00 035047 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4103 ;WHERE X VARIES FROM 0 THRU 35 4104 032433 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4105 032434 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4106 STOP^ 4107 032435 254 04 0 00 032436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4108 032436 324 00 0 00 032437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4111 032437 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4112 STOP^ 4113 032440 254 04 0 00 032441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4114 032441 324 00 0 00 032442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4116 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4117 ;********** 4118 4119 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4120 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4121 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4122 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4123 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4124 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4125 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4126 4127 006440 SN=SN+1 4128 020000 000000 ZZ=ZZ+ZZ 4129 IFE ZZ, 4130 032442 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4131 032443 200 01 0 00 035050 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4132 ;WHERE X VARIES FROM 0 THRU 35 4133 032444 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4134 032445 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4135 STOP^ 4136 032446 254 04 0 00 032447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4137 032447 324 00 0 00 032450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4138 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4139 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4140 032450 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4141 STOP^ 4142 032451 254 04 0 00 032452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4143 032452 324 00 0 00 032453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4145 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4146 ;********** 4147 4148 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4149 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0099 4150 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4151 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4152 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4153 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4154 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4155 4156 006441 SN=SN+1 4157 040000 000000 ZZ=ZZ+ZZ 4158 IFE ZZ, 4159 032453 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4160 032454 200 01 0 00 035051 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4161 ;WHERE X VARIES FROM 0 THRU 35 4162 032455 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4163 032456 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4164 STOP^ 4165 032457 254 04 0 00 032460 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4166 032460 324 00 0 00 032461 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4169 032461 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4170 STOP^ 4171 032462 254 04 0 00 032463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4172 032463 324 00 0 00 032464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4173 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4174 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4175 ;********** 4176 4177 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4178 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4179 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4180 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4181 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4182 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4183 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4184 4185 006442 SN=SN+1 4186 100000 000000 ZZ=ZZ+ZZ 4187 IFE ZZ, 4188 032464 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4189 032465 200 01 0 00 035052 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4190 ;WHERE X VARIES FROM 0 THRU 35 4191 032466 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4192 032467 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4193 STOP^ 4194 032470 254 04 0 00 032471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4195 032471 324 00 0 00 032472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4196 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4197 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4198 032472 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4199 STOP^ 4200 032473 254 04 0 00 032474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4201 032474 324 00 0 00 032475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4203 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4204 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0100 4205 4206 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4207 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4208 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4209 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4210 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4211 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4212 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4213 4214 006443 SN=SN+1 4215 200000 000000 ZZ=ZZ+ZZ 4216 IFE ZZ, 4217 032475 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4218 032476 200 01 0 00 035053 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4219 ;WHERE X VARIES FROM 0 THRU 35 4220 032477 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4221 032500 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4222 STOP^ 4223 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4224 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4226 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4227 032503 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4228 STOP^ 4229 032504 254 04 0 00 032505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4230 032505 324 00 0 00 032506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4232 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4233 ;********** 4234 4235 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4236 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4237 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4238 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4239 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4240 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4241 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4242 4243 006444 SN=SN+1 4244 400000 000000 ZZ=ZZ+ZZ 4245 IFE ZZ, 4246 032506 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4247 032507 200 01 0 00 035003 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4248 ;WHERE X VARIES FROM 0 THRU 35 4249 032510 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4250 032511 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4251 STOP^ 4252 032512 254 04 0 00 032513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4253 032513 324 00 0 00 032514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4254 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4255 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4256 032514 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4257 STOP^ 4258 032515 254 04 0 00 032516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4259 032516 324 00 0 00 032517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0101 4260 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4261 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4262 ;********** 4263 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0102 4264 006500 SN=6500 4265 000000 ZZ=0 4266 4267 A6500: REPEAT ^D36, 4268 <;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4269 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4270 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4271 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4272 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4273 SN=SN+1 4274 ZZ=ZZ+ZZ 4275 IFE ZZ, 4276 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4277 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4278 ;POSITION WITH ITSELF SHOULD RESULT WITH 4279 ;C(AC) NONZERO 4280 SKIPN ;PASS TEST IF C(AC) NONZERO 4281 STOP 4282 4283 ;********** 4284 > 4285 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4286 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4287 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4288 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4289 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4290 006501 SN=SN+1 4291 000000 ZZ=ZZ+ZZ 4292 000001 IFE ZZ, 4293 032517 200 00 0 00 035012 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4294 032520 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4295 ;POSITION WITH ITSELF SHOULD RESULT WITH 4296 ;C(AC) NONZERO 4297 032521 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4298 STOP^ 4299 032522 254 04 0 00 032523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4300 032523 324 00 0 00 032524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4301 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4302 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4303 4304 ;********** 4305 4306 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4307 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4308 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4309 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4310 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4311 006502 SN=SN+1 4312 000002 ZZ=ZZ+ZZ 4313 IFE ZZ, 4314 032524 200 00 0 00 035013 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4315 032525 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4316 ;POSITION WITH ITSELF SHOULD RESULT WITH 4317 ;C(AC) NONZERO 4318 032526 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0103 4319 STOP^ 4320 032527 254 04 0 00 032530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4321 032530 324 00 0 00 032531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4322 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4323 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4324 4325 ;********** 4326 4327 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4328 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4329 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4330 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4331 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4332 006503 SN=SN+1 4333 000004 ZZ=ZZ+ZZ 4334 IFE ZZ, 4335 032531 200 00 0 00 035014 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4336 032532 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4337 ;POSITION WITH ITSELF SHOULD RESULT WITH 4338 ;C(AC) NONZERO 4339 032533 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4340 STOP^ 4341 032534 254 04 0 00 032535 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4342 032535 324 00 0 00 032536 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4345 4346 ;********** 4347 4348 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4349 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4350 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4351 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4352 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4353 006504 SN=SN+1 4354 000010 ZZ=ZZ+ZZ 4355 IFE ZZ, 4356 032536 200 00 0 00 035015 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4357 032537 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4358 ;POSITION WITH ITSELF SHOULD RESULT WITH 4359 ;C(AC) NONZERO 4360 032540 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4361 STOP^ 4362 032541 254 04 0 00 032542 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4363 032542 324 00 0 00 032543 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4366 4367 ;********** 4368 4369 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4370 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4371 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4372 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4373 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0104 4374 006505 SN=SN+1 4375 000020 ZZ=ZZ+ZZ 4376 IFE ZZ, 4377 032543 200 00 0 00 035016 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4378 032544 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4379 ;POSITION WITH ITSELF SHOULD RESULT WITH 4380 ;C(AC) NONZERO 4381 032545 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4382 STOP^ 4383 032546 254 04 0 00 032547 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4384 032547 324 00 0 00 032550 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4385 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4386 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4387 4388 ;********** 4389 4390 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4391 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4392 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4393 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4394 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4395 006506 SN=SN+1 4396 000040 ZZ=ZZ+ZZ 4397 IFE ZZ, 4398 032550 200 00 0 00 035017 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4399 032551 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4400 ;POSITION WITH ITSELF SHOULD RESULT WITH 4401 ;C(AC) NONZERO 4402 032552 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4403 STOP^ 4404 032553 254 04 0 00 032554 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4405 032554 324 00 0 00 032555 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4406 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4407 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4408 4409 ;********** 4410 4411 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4412 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4413 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4414 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4415 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4416 006507 SN=SN+1 4417 000100 ZZ=ZZ+ZZ 4418 IFE ZZ, 4419 032555 200 00 0 00 035020 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4420 032556 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4421 ;POSITION WITH ITSELF SHOULD RESULT WITH 4422 ;C(AC) NONZERO 4423 032557 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4424 STOP^ 4425 032560 254 04 0 00 032561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4426 032561 324 00 0 00 032562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4427 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4428 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0105 4429 4430 ;********** 4431 4432 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4433 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4434 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4435 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4436 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4437 006510 SN=SN+1 4438 000200 ZZ=ZZ+ZZ 4439 IFE ZZ, 4440 032562 200 00 0 00 035021 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4441 032563 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4442 ;POSITION WITH ITSELF SHOULD RESULT WITH 4443 ;C(AC) NONZERO 4444 032564 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4445 STOP^ 4446 032565 254 04 0 00 032566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4447 032566 324 00 0 00 032567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4448 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4449 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4450 4451 ;********** 4452 4453 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4454 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4455 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4456 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4457 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4458 006511 SN=SN+1 4459 000400 ZZ=ZZ+ZZ 4460 IFE ZZ, 4461 032567 200 00 0 00 035022 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4462 032570 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4463 ;POSITION WITH ITSELF SHOULD RESULT WITH 4464 ;C(AC) NONZERO 4465 032571 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4466 STOP^ 4467 032572 254 04 0 00 032573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4468 032573 324 00 0 00 032574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4469 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4470 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4471 4472 ;********** 4473 4474 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4475 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4476 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4477 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4478 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4479 006512 SN=SN+1 4480 001000 ZZ=ZZ+ZZ 4481 IFE ZZ, 4482 032574 200 00 0 00 035023 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4483 032575 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0106 4484 ;POSITION WITH ITSELF SHOULD RESULT WITH 4485 ;C(AC) NONZERO 4486 032576 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4487 STOP^ 4488 032577 254 04 0 00 032600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4489 032600 324 00 0 00 032601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4490 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4491 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4492 4493 ;********** 4494 4495 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4496 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4497 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4498 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4499 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4500 006513 SN=SN+1 4501 002000 ZZ=ZZ+ZZ 4502 IFE ZZ, 4503 032601 200 00 0 00 035024 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4504 032602 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4505 ;POSITION WITH ITSELF SHOULD RESULT WITH 4506 ;C(AC) NONZERO 4507 032603 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4508 STOP^ 4509 032604 254 04 0 00 032605 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4510 032605 324 00 0 00 032606 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4513 4514 ;********** 4515 4516 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4517 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4518 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4519 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4520 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4521 006514 SN=SN+1 4522 004000 ZZ=ZZ+ZZ 4523 IFE ZZ, 4524 032606 200 00 0 00 035025 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4525 032607 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4526 ;POSITION WITH ITSELF SHOULD RESULT WITH 4527 ;C(AC) NONZERO 4528 032610 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4529 STOP^ 4530 032611 254 04 0 00 032612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4531 032612 324 00 0 00 032613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4533 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4534 4535 ;********** 4536 4537 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4538 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0107 4539 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4540 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4541 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4542 006515 SN=SN+1 4543 010000 ZZ=ZZ+ZZ 4544 IFE ZZ, 4545 032613 200 00 0 00 035026 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4546 032614 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4547 ;POSITION WITH ITSELF SHOULD RESULT WITH 4548 ;C(AC) NONZERO 4549 032615 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4550 STOP^ 4551 032616 254 04 0 00 032617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4552 032617 324 00 0 00 032620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4553 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4554 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4555 4556 ;********** 4557 4558 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4559 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4560 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4561 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4562 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4563 006516 SN=SN+1 4564 020000 ZZ=ZZ+ZZ 4565 IFE ZZ, 4566 032620 200 00 0 00 035027 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4567 032621 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4568 ;POSITION WITH ITSELF SHOULD RESULT WITH 4569 ;C(AC) NONZERO 4570 032622 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4571 STOP^ 4572 032623 254 04 0 00 032624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4573 032624 324 00 0 00 032625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4574 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4575 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4576 4577 ;********** 4578 4579 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4580 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4581 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4582 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4583 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4584 006517 SN=SN+1 4585 040000 ZZ=ZZ+ZZ 4586 IFE ZZ, 4587 032625 200 00 0 00 035030 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4588 032626 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4589 ;POSITION WITH ITSELF SHOULD RESULT WITH 4590 ;C(AC) NONZERO 4591 032627 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4592 STOP^ 4593 032630 254 04 0 00 032631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0108 4594 032631 324 00 0 00 032632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4595 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4596 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4597 4598 ;********** 4599 4600 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4601 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4602 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4603 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4604 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4605 006520 SN=SN+1 4606 100000 ZZ=ZZ+ZZ 4607 IFE ZZ, 4608 032632 200 00 0 00 035031 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4609 032633 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4610 ;POSITION WITH ITSELF SHOULD RESULT WITH 4611 ;C(AC) NONZERO 4612 032634 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4613 STOP^ 4614 032635 254 04 0 00 032636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4615 032636 324 00 0 00 032637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4616 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4617 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4618 4619 ;********** 4620 4621 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4622 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4623 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4624 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4625 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4626 006521 SN=SN+1 4627 200000 ZZ=ZZ+ZZ 4628 IFE ZZ, 4629 032637 200 00 0 00 035032 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4630 032640 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4631 ;POSITION WITH ITSELF SHOULD RESULT WITH 4632 ;C(AC) NONZERO 4633 032641 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4634 STOP^ 4635 032642 254 04 0 00 032643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4636 032643 324 00 0 00 032644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4638 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4639 4640 ;********** 4641 4642 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4643 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4644 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4645 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4646 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4647 006522 SN=SN+1 4648 400000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0109 4649 IFE ZZ, 4650 032644 200 00 0 00 035033 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4651 032645 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4652 ;POSITION WITH ITSELF SHOULD RESULT WITH 4653 ;C(AC) NONZERO 4654 032646 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4655 STOP^ 4656 032647 254 04 0 00 032650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4657 032650 324 00 0 00 032651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4658 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4659 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4660 4661 ;********** 4662 4663 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4664 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4665 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4666 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4667 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4668 006523 SN=SN+1 4669 000001 000000 ZZ=ZZ+ZZ 4670 IFE ZZ, 4671 032651 200 00 0 00 035034 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4672 032652 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4673 ;POSITION WITH ITSELF SHOULD RESULT WITH 4674 ;C(AC) NONZERO 4675 032653 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4676 STOP^ 4677 032654 254 04 0 00 032655 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4678 032655 324 00 0 00 032656 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4680 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4681 4682 ;********** 4683 4684 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4685 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4686 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4687 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4688 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4689 006524 SN=SN+1 4690 000002 000000 ZZ=ZZ+ZZ 4691 IFE ZZ, 4692 032656 200 00 0 00 035035 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4693 032657 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4694 ;POSITION WITH ITSELF SHOULD RESULT WITH 4695 ;C(AC) NONZERO 4696 032660 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4697 STOP^ 4698 032661 254 04 0 00 032662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4699 032662 324 00 0 00 032663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4700 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4701 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4702 4703 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0110 4704 4705 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4706 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4707 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4708 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4709 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4710 006525 SN=SN+1 4711 000004 000000 ZZ=ZZ+ZZ 4712 IFE ZZ, 4713 032663 200 00 0 00 035036 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4714 032664 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4715 ;POSITION WITH ITSELF SHOULD RESULT WITH 4716 ;C(AC) NONZERO 4717 032665 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4718 STOP^ 4719 032666 254 04 0 00 032667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4720 032667 324 00 0 00 032670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4721 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4722 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4723 4724 ;********** 4725 4726 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4727 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4728 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4729 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4730 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4731 006526 SN=SN+1 4732 000010 000000 ZZ=ZZ+ZZ 4733 IFE ZZ, 4734 032670 200 00 0 00 035037 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4735 032671 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4736 ;POSITION WITH ITSELF SHOULD RESULT WITH 4737 ;C(AC) NONZERO 4738 032672 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4739 STOP^ 4740 032673 254 04 0 00 032674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4741 032674 324 00 0 00 032675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4742 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4743 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4744 4745 ;********** 4746 4747 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4748 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4749 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4750 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4751 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4752 006527 SN=SN+1 4753 000020 000000 ZZ=ZZ+ZZ 4754 IFE ZZ, 4755 032675 200 00 0 00 035040 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4756 032676 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4757 ;POSITION WITH ITSELF SHOULD RESULT WITH 4758 ;C(AC) NONZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0111 4759 032677 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4760 STOP^ 4761 032700 254 04 0 00 032701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4762 032701 324 00 0 00 032702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4763 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4764 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4765 4766 ;********** 4767 4768 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4769 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4770 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4771 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4772 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4773 006530 SN=SN+1 4774 000040 000000 ZZ=ZZ+ZZ 4775 IFE ZZ, 4776 032702 200 00 0 00 035041 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4777 032703 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4778 ;POSITION WITH ITSELF SHOULD RESULT WITH 4779 ;C(AC) NONZERO 4780 032704 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4781 STOP^ 4782 032705 254 04 0 00 032706 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4783 032706 324 00 0 00 032707 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4786 4787 ;********** 4788 4789 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4790 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4791 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4792 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4793 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4794 006531 SN=SN+1 4795 000100 000000 ZZ=ZZ+ZZ 4796 IFE ZZ, 4797 032707 200 00 0 00 035042 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4798 032710 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4799 ;POSITION WITH ITSELF SHOULD RESULT WITH 4800 ;C(AC) NONZERO 4801 032711 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4802 STOP^ 4803 032712 254 04 0 00 032713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4804 032713 324 00 0 00 032714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4805 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4806 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4807 4808 ;********** 4809 4810 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4811 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4812 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4813 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0112 4814 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4815 006532 SN=SN+1 4816 000200 000000 ZZ=ZZ+ZZ 4817 IFE ZZ, 4818 032714 200 00 0 00 035043 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4819 032715 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4820 ;POSITION WITH ITSELF SHOULD RESULT WITH 4821 ;C(AC) NONZERO 4822 032716 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4823 STOP^ 4824 032717 254 04 0 00 032720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4825 032720 324 00 0 00 032721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4827 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4828 4829 ;********** 4830 4831 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4832 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4833 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4834 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4835 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4836 006533 SN=SN+1 4837 000400 000000 ZZ=ZZ+ZZ 4838 IFE ZZ, 4839 032721 200 00 0 00 035011 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4840 032722 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4841 ;POSITION WITH ITSELF SHOULD RESULT WITH 4842 ;C(AC) NONZERO 4843 032723 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4844 STOP^ 4845 032724 254 04 0 00 032725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4846 032725 324 00 0 00 032726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4847 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4848 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4849 4850 ;********** 4851 4852 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4853 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4854 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4855 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4856 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4857 006534 SN=SN+1 4858 001000 000000 ZZ=ZZ+ZZ 4859 IFE ZZ, 4860 032726 200 00 0 00 035044 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4861 032727 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4862 ;POSITION WITH ITSELF SHOULD RESULT WITH 4863 ;C(AC) NONZERO 4864 032730 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4865 STOP^ 4866 032731 254 04 0 00 032732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4867 032732 324 00 0 00 032733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0113 4869 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4870 4871 ;********** 4872 4873 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4874 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4875 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4876 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4877 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4878 006535 SN=SN+1 4879 002000 000000 ZZ=ZZ+ZZ 4880 IFE ZZ, 4881 032733 200 00 0 00 035045 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4882 032734 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4883 ;POSITION WITH ITSELF SHOULD RESULT WITH 4884 ;C(AC) NONZERO 4885 032735 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4886 STOP^ 4887 032736 254 04 0 00 032737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4888 032737 324 00 0 00 032740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4891 4892 ;********** 4893 4894 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4895 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4896 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4897 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4898 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4899 006536 SN=SN+1 4900 004000 000000 ZZ=ZZ+ZZ 4901 IFE ZZ, 4902 032740 200 00 0 00 035046 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4903 032741 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4904 ;POSITION WITH ITSELF SHOULD RESULT WITH 4905 ;C(AC) NONZERO 4906 032742 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4907 STOP^ 4908 032743 254 04 0 00 032744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4909 032744 324 00 0 00 032745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4910 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4911 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4912 4913 ;********** 4914 4915 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4916 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4917 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4918 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4919 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4920 006537 SN=SN+1 4921 010000 000000 ZZ=ZZ+ZZ 4922 IFE ZZ, 4923 032745 200 00 0 00 035047 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0114 4924 032746 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4925 ;POSITION WITH ITSELF SHOULD RESULT WITH 4926 ;C(AC) NONZERO 4927 032747 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4928 STOP^ 4929 032750 254 04 0 00 032751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4930 032751 324 00 0 00 032752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4931 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4932 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4933 4934 ;********** 4935 4936 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4937 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4938 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4939 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4940 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4941 006540 SN=SN+1 4942 020000 000000 ZZ=ZZ+ZZ 4943 IFE ZZ, 4944 032752 200 00 0 00 035050 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4945 032753 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4946 ;POSITION WITH ITSELF SHOULD RESULT WITH 4947 ;C(AC) NONZERO 4948 032754 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4949 STOP^ 4950 032755 254 04 0 00 032756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4951 032756 324 00 0 00 032757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4952 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4953 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4954 4955 ;********** 4956 4957 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4958 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4959 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4960 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4961 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4962 006541 SN=SN+1 4963 040000 000000 ZZ=ZZ+ZZ 4964 IFE ZZ, 4965 032757 200 00 0 00 035051 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4966 032760 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4967 ;POSITION WITH ITSELF SHOULD RESULT WITH 4968 ;C(AC) NONZERO 4969 032761 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4970 STOP^ 4971 032762 254 04 0 00 032763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4972 032763 324 00 0 00 032764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4973 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4974 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4975 4976 ;********** 4977 4978 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0115 4979 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4980 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4981 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4982 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4983 006542 SN=SN+1 4984 100000 000000 ZZ=ZZ+ZZ 4985 IFE ZZ, 4986 032764 200 00 0 00 035052 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4987 032765 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4988 ;POSITION WITH ITSELF SHOULD RESULT WITH 4989 ;C(AC) NONZERO 4990 032766 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4991 STOP^ 4992 032767 254 04 0 00 032770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4993 032770 324 00 0 00 032771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4996 4997 ;********** 4998 4999 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 5000 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 5001 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 5002 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 5003 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 5004 006543 SN=SN+1 5005 200000 000000 ZZ=ZZ+ZZ 5006 IFE ZZ, 5007 032771 200 00 0 00 035053 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 5008 032772 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 5009 ;POSITION WITH ITSELF SHOULD RESULT WITH 5010 ;C(AC) NONZERO 5011 032773 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 5012 STOP^ 5013 032774 254 04 0 00 032775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5014 032775 324 00 0 00 032776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5015 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5016 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5017 5018 ;********** 5019 5020 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 5021 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 5022 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 5023 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 5024 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 5025 006544 SN=SN+1 5026 400000 000000 ZZ=ZZ+ZZ 5027 IFE ZZ, 5028 032776 200 00 0 00 035003 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 5029 032777 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 5030 ;POSITION WITH ITSELF SHOULD RESULT WITH 5031 ;C(AC) NONZERO 5032 033000 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 5033 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0116 5034 033001 254 04 0 00 033002 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5035 033002 324 00 0 00 033003 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5038 5039 ;********** 5040 5041 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE 5042 ;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC. 5043 ;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN 5044 ;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0. 5045 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5046 5047 033003 200 00 0 00 035000 A6600: MOVE [0] ;PRESET AC TO ALL ZEROS 5048 033004 404 00 0 00 035000 AND [0] ;*AND OF TWO WORDS OF ALL ZEROS 5049 ;SHOULD RESULT IN C(AC)=0 5050 033005 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5051 STOP^ 5052 033006 254 04 0 00 033007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5053 033007 324 00 0 00 033010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5054 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5055 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5056 5057 ;********** 5058 5059 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0 5060 ;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE AC IS 5061 ;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE 5062 ;E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. 5063 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5064 5065 033010 200 00 0 00 035000 A6700: MOVE [0] ;PRESET AC TO ALL ZEROS 5066 033011 404 00 0 00 035001 AND [-1] ;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0 5067 033012 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5068 STOP^ 5069 033013 254 04 0 00 033014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5070 033014 324 00 0 00 033015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5071 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5072 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5073 5074 ;AD FM+EN [ADFP],AD FM+EN A [ADFP], 5075 ;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2], 5076 ;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2] 5077 5078 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 26 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0117 5079 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0 5080 ;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE 5081 ;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL 5082 ;ZEROS, WHERE E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. 5083 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5084 5085 033015 200 00 0 00 035001 A7000: MOVE [-1] ;PRESET AC TO ALL ONES 5086 033016 404 00 0 00 035000 AND [0] ;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0 5087 033017 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5088 STOP^ 5089 033020 254 04 0 00 033021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5090 033021 324 00 0 00 033022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5091 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5092 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5093 5094 ;********** 5095 5096 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS 5097 ;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES. FIRST, THE 5098 ;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL 5099 ;ONES. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5100 ;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5101 5102 033022 200 00 0 00 035001 A7100: MOVE [-1] ;PRELOAD AC WITH ALL ONES 5103 033023 404 00 0 00 035001 AND [-1] ;*AND OF TWO WORDS OF ALL ONES SHOULD 5104 ;RESULT IN C(AC)=ALL ONES 5105 033024 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON ZERO 5106 STOP^ 5107 033025 254 04 0 00 033026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5108 033026 324 00 0 00 033027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5111 5112 ;********** 5113 5114 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5115 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO. 5116 ;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO. 5117 ;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS. 5118 033027 200 00 0 00 035000 A7200: MOVE [0] ;CLEAR AC 5119 033030 430 00 0 00 035057 XOR [707070707070] ;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD 5120 ;RESTULT IN C(AC)=707070707070 5121 033031 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5122 STOP^ 5123 033032 254 04 0 00 033033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5124 033033 324 00 0 00 033034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5125 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5126 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5127 5128 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0118 5129 007300 SN=7300 5130 000000 ZZ=0 5131 5132 A7300: REPEAT ^D36, 5133 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5134 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5135 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5136 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5137 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5138 SN=SN+1 5139 ZZ=ZZ+ZZ 5140 IFE ZZ, 5141 MOVE [0] ;CLEAR AC 5142 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5143 ;RESULT IN C(AC) NONZERO 5144 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5145 STOP 5146 5147 ;********** 5148 > 5149 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5150 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5151 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5152 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5153 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5154 007301 SN=SN+1 5155 000000 ZZ=ZZ+ZZ 5156 000001 IFE ZZ, 5157 033034 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5158 033035 430 00 0 00 035012 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5159 ;RESULT IN C(AC) NONZERO 5160 033036 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5161 STOP^ 5162 033037 254 04 0 00 033040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5163 033040 324 00 0 00 033041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5166 5167 ;********** 5168 5169 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5170 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5171 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5172 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5173 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5174 007302 SN=SN+1 5175 000002 ZZ=ZZ+ZZ 5176 IFE ZZ, 5177 033041 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5178 033042 430 00 0 00 035013 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5179 ;RESULT IN C(AC) NONZERO 5180 033043 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5181 STOP^ 5182 033044 254 04 0 00 033045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5183 033045 324 00 0 00 033046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0119 5184 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5185 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5186 5187 ;********** 5188 5189 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5190 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5191 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5192 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5193 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5194 007303 SN=SN+1 5195 000004 ZZ=ZZ+ZZ 5196 IFE ZZ, 5197 033046 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5198 033047 430 00 0 00 035014 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5199 ;RESULT IN C(AC) NONZERO 5200 033050 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5201 STOP^ 5202 033051 254 04 0 00 033052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5203 033052 324 00 0 00 033053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5204 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5205 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5206 5207 ;********** 5208 5209 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5210 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5211 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5212 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5213 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5214 007304 SN=SN+1 5215 000010 ZZ=ZZ+ZZ 5216 IFE ZZ, 5217 033053 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5218 033054 430 00 0 00 035015 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5219 ;RESULT IN C(AC) NONZERO 5220 033055 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5221 STOP^ 5222 033056 254 04 0 00 033057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5223 033057 324 00 0 00 033060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5224 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5225 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5226 5227 ;********** 5228 5229 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5230 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5231 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5232 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5233 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5234 007305 SN=SN+1 5235 000020 ZZ=ZZ+ZZ 5236 IFE ZZ, 5237 033060 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5238 033061 430 00 0 00 035016 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0120 5239 ;RESULT IN C(AC) NONZERO 5240 033062 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5241 STOP^ 5242 033063 254 04 0 00 033064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5243 033064 324 00 0 00 033065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5244 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5245 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5246 5247 ;********** 5248 5249 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5250 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5251 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5252 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5253 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5254 007306 SN=SN+1 5255 000040 ZZ=ZZ+ZZ 5256 IFE ZZ, 5257 033065 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5258 033066 430 00 0 00 035017 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5259 ;RESULT IN C(AC) NONZERO 5260 033067 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5261 STOP^ 5262 033070 254 04 0 00 033071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5263 033071 324 00 0 00 033072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5264 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5265 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5266 5267 ;********** 5268 5269 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5270 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5271 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5272 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5273 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5274 007307 SN=SN+1 5275 000100 ZZ=ZZ+ZZ 5276 IFE ZZ, 5277 033072 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5278 033073 430 00 0 00 035020 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5279 ;RESULT IN C(AC) NONZERO 5280 033074 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5281 STOP^ 5282 033075 254 04 0 00 033076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5283 033076 324 00 0 00 033077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5284 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5285 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5286 5287 ;********** 5288 5289 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5290 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5291 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5292 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5293 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0121 5294 007310 SN=SN+1 5295 000200 ZZ=ZZ+ZZ 5296 IFE ZZ, 5297 033077 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5298 033100 430 00 0 00 035021 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5299 ;RESULT IN C(AC) NONZERO 5300 033101 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5301 STOP^ 5302 033102 254 04 0 00 033103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5303 033103 324 00 0 00 033104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5306 5307 ;********** 5308 5309 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5310 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5311 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5312 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5313 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5314 007311 SN=SN+1 5315 000400 ZZ=ZZ+ZZ 5316 IFE ZZ, 5317 033104 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5318 033105 430 00 0 00 035022 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5319 ;RESULT IN C(AC) NONZERO 5320 033106 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5321 STOP^ 5322 033107 254 04 0 00 033110 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5323 033110 324 00 0 00 033111 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5325 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5326 5327 ;********** 5328 5329 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5330 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5331 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5332 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5333 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5334 007312 SN=SN+1 5335 001000 ZZ=ZZ+ZZ 5336 IFE ZZ, 5337 033111 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5338 033112 430 00 0 00 035023 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5339 ;RESULT IN C(AC) NONZERO 5340 033113 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5341 STOP^ 5342 033114 254 04 0 00 033115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5343 033115 324 00 0 00 033116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5344 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5345 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5346 5347 ;********** 5348 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0122 5349 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5350 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5351 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5352 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5353 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5354 007313 SN=SN+1 5355 002000 ZZ=ZZ+ZZ 5356 IFE ZZ, 5357 033116 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5358 033117 430 00 0 00 035024 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5359 ;RESULT IN C(AC) NONZERO 5360 033120 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5361 STOP^ 5362 033121 254 04 0 00 033122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5363 033122 324 00 0 00 033123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5366 5367 ;********** 5368 5369 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5370 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5371 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5372 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5373 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5374 007314 SN=SN+1 5375 004000 ZZ=ZZ+ZZ 5376 IFE ZZ, 5377 033123 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5378 033124 430 00 0 00 035025 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5379 ;RESULT IN C(AC) NONZERO 5380 033125 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5381 STOP^ 5382 033126 254 04 0 00 033127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5383 033127 324 00 0 00 033130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5386 5387 ;********** 5388 5389 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5390 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5391 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5392 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5393 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5394 007315 SN=SN+1 5395 010000 ZZ=ZZ+ZZ 5396 IFE ZZ, 5397 033130 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5398 033131 430 00 0 00 035026 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5399 ;RESULT IN C(AC) NONZERO 5400 033132 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5401 STOP^ 5402 033133 254 04 0 00 033134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5403 033134 324 00 0 00 033135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0123 5404 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5405 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5406 5407 ;********** 5408 5409 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5410 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5411 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5412 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5413 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5414 007316 SN=SN+1 5415 020000 ZZ=ZZ+ZZ 5416 IFE ZZ, 5417 033135 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5418 033136 430 00 0 00 035027 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5419 ;RESULT IN C(AC) NONZERO 5420 033137 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5421 STOP^ 5422 033140 254 04 0 00 033141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5423 033141 324 00 0 00 033142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5424 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5425 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5426 5427 ;********** 5428 5429 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5430 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5431 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5432 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5433 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5434 007317 SN=SN+1 5435 040000 ZZ=ZZ+ZZ 5436 IFE ZZ, 5437 033142 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5438 033143 430 00 0 00 035030 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5439 ;RESULT IN C(AC) NONZERO 5440 033144 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5441 STOP^ 5442 033145 254 04 0 00 033146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5443 033146 324 00 0 00 033147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5444 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5445 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5446 5447 ;********** 5448 5449 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5450 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5451 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5452 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5453 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5454 007320 SN=SN+1 5455 100000 ZZ=ZZ+ZZ 5456 IFE ZZ, 5457 033147 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5458 033150 430 00 0 00 035031 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0124 5459 ;RESULT IN C(AC) NONZERO 5460 033151 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5461 STOP^ 5462 033152 254 04 0 00 033153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5463 033153 324 00 0 00 033154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5464 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5465 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5466 5467 ;********** 5468 5469 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5470 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5471 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5472 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5473 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5474 007321 SN=SN+1 5475 200000 ZZ=ZZ+ZZ 5476 IFE ZZ, 5477 033154 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5478 033155 430 00 0 00 035032 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5479 ;RESULT IN C(AC) NONZERO 5480 033156 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5481 STOP^ 5482 033157 254 04 0 00 033160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5483 033160 324 00 0 00 033161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5486 5487 ;********** 5488 5489 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5490 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5491 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5492 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5493 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5494 007322 SN=SN+1 5495 400000 ZZ=ZZ+ZZ 5496 IFE ZZ, 5497 033161 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5498 033162 430 00 0 00 035033 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5499 ;RESULT IN C(AC) NONZERO 5500 033163 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5501 STOP^ 5502 033164 254 04 0 00 033165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5503 033165 324 00 0 00 033166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5504 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5505 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5506 5507 ;********** 5508 5509 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5510 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5511 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5512 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5513 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0125 5514 007323 SN=SN+1 5515 000001 000000 ZZ=ZZ+ZZ 5516 IFE ZZ, 5517 033166 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5518 033167 430 00 0 00 035034 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5519 ;RESULT IN C(AC) NONZERO 5520 033170 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5521 STOP^ 5522 033171 254 04 0 00 033172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5523 033172 324 00 0 00 033173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5526 5527 ;********** 5528 5529 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5530 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5531 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5532 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5533 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5534 007324 SN=SN+1 5535 000002 000000 ZZ=ZZ+ZZ 5536 IFE ZZ, 5537 033173 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5538 033174 430 00 0 00 035035 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5539 ;RESULT IN C(AC) NONZERO 5540 033175 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5541 STOP^ 5542 033176 254 04 0 00 033177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5543 033177 324 00 0 00 033200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5545 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5546 5547 ;********** 5548 5549 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5550 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5551 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5552 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5553 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5554 007325 SN=SN+1 5555 000004 000000 ZZ=ZZ+ZZ 5556 IFE ZZ, 5557 033200 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5558 033201 430 00 0 00 035036 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5559 ;RESULT IN C(AC) NONZERO 5560 033202 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5561 STOP^ 5562 033203 254 04 0 00 033204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5563 033204 324 00 0 00 033205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5566 5567 ;********** 5568 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0126 5569 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5570 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5571 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5572 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5573 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5574 007326 SN=SN+1 5575 000010 000000 ZZ=ZZ+ZZ 5576 IFE ZZ, 5577 033205 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5578 033206 430 00 0 00 035037 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5579 ;RESULT IN C(AC) NONZERO 5580 033207 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5581 STOP^ 5582 033210 254 04 0 00 033211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5583 033211 324 00 0 00 033212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5585 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5586 5587 ;********** 5588 5589 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5590 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5591 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5592 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5593 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5594 007327 SN=SN+1 5595 000020 000000 ZZ=ZZ+ZZ 5596 IFE ZZ, 5597 033212 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5598 033213 430 00 0 00 035040 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5599 ;RESULT IN C(AC) NONZERO 5600 033214 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5601 STOP^ 5602 033215 254 04 0 00 033216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5603 033216 324 00 0 00 033217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5604 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5605 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5606 5607 ;********** 5608 5609 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5610 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5611 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5612 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5613 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5614 007330 SN=SN+1 5615 000040 000000 ZZ=ZZ+ZZ 5616 IFE ZZ, 5617 033217 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5618 033220 430 00 0 00 035041 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5619 ;RESULT IN C(AC) NONZERO 5620 033221 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5621 STOP^ 5622 033222 254 04 0 00 033223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5623 033223 324 00 0 00 033224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0127 5624 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5625 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5626 5627 ;********** 5628 5629 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5630 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5631 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5632 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5633 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5634 007331 SN=SN+1 5635 000100 000000 ZZ=ZZ+ZZ 5636 IFE ZZ, 5637 033224 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5638 033225 430 00 0 00 035042 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5639 ;RESULT IN C(AC) NONZERO 5640 033226 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5641 STOP^ 5642 033227 254 04 0 00 033230 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5643 033230 324 00 0 00 033231 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5646 5647 ;********** 5648 5649 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5650 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5651 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5652 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5653 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5654 007332 SN=SN+1 5655 000200 000000 ZZ=ZZ+ZZ 5656 IFE ZZ, 5657 033231 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5658 033232 430 00 0 00 035043 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5659 ;RESULT IN C(AC) NONZERO 5660 033233 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5661 STOP^ 5662 033234 254 04 0 00 033235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5663 033235 324 00 0 00 033236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5664 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5665 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5666 5667 ;********** 5668 5669 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5670 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5671 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5672 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5673 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5674 007333 SN=SN+1 5675 000400 000000 ZZ=ZZ+ZZ 5676 IFE ZZ, 5677 033236 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5678 033237 430 00 0 00 035011 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0128 5679 ;RESULT IN C(AC) NONZERO 5680 033240 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5681 STOP^ 5682 033241 254 04 0 00 033242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5683 033242 324 00 0 00 033243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5686 5687 ;********** 5688 5689 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5690 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5691 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5692 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5693 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5694 007334 SN=SN+1 5695 001000 000000 ZZ=ZZ+ZZ 5696 IFE ZZ, 5697 033243 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5698 033244 430 00 0 00 035044 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5699 ;RESULT IN C(AC) NONZERO 5700 033245 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5701 STOP^ 5702 033246 254 04 0 00 033247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5703 033247 324 00 0 00 033250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5704 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5705 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5706 5707 ;********** 5708 5709 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5710 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5711 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5712 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5713 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5714 007335 SN=SN+1 5715 002000 000000 ZZ=ZZ+ZZ 5716 IFE ZZ, 5717 033250 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5718 033251 430 00 0 00 035045 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5719 ;RESULT IN C(AC) NONZERO 5720 033252 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5721 STOP^ 5722 033253 254 04 0 00 033254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5723 033254 324 00 0 00 033255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5725 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5726 5727 ;********** 5728 5729 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5730 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5731 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5732 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5733 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0129 5734 007336 SN=SN+1 5735 004000 000000 ZZ=ZZ+ZZ 5736 IFE ZZ, 5737 033255 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5738 033256 430 00 0 00 035046 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5739 ;RESULT IN C(AC) NONZERO 5740 033257 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5741 STOP^ 5742 033260 254 04 0 00 033261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5743 033261 324 00 0 00 033262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5744 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5745 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5746 5747 ;********** 5748 5749 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5750 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5751 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5752 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5753 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5754 007337 SN=SN+1 5755 010000 000000 ZZ=ZZ+ZZ 5756 IFE ZZ, 5757 033262 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5758 033263 430 00 0 00 035047 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5759 ;RESULT IN C(AC) NONZERO 5760 033264 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5761 STOP^ 5762 033265 254 04 0 00 033266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5763 033266 324 00 0 00 033267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5764 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5765 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5766 5767 ;********** 5768 5769 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5770 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5771 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5772 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5773 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5774 007340 SN=SN+1 5775 020000 000000 ZZ=ZZ+ZZ 5776 IFE ZZ, 5777 033267 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5778 033270 430 00 0 00 035050 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5779 ;RESULT IN C(AC) NONZERO 5780 033271 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5781 STOP^ 5782 033272 254 04 0 00 033273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5783 033273 324 00 0 00 033274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5786 5787 ;********** 5788 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0130 5789 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5790 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5791 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5792 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5793 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5794 007341 SN=SN+1 5795 040000 000000 ZZ=ZZ+ZZ 5796 IFE ZZ, 5797 033274 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5798 033275 430 00 0 00 035051 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5799 ;RESULT IN C(AC) NONZERO 5800 033276 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5801 STOP^ 5802 033277 254 04 0 00 033300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5803 033300 324 00 0 00 033301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5804 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5805 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5806 5807 ;********** 5808 5809 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5810 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5811 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5812 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5813 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5814 007342 SN=SN+1 5815 100000 000000 ZZ=ZZ+ZZ 5816 IFE ZZ, 5817 033301 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5818 033302 430 00 0 00 035052 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5819 ;RESULT IN C(AC) NONZERO 5820 033303 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5821 STOP^ 5822 033304 254 04 0 00 033305 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5823 033305 324 00 0 00 033306 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5824 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5825 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5826 5827 ;********** 5828 5829 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5830 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5831 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5832 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5833 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5834 007343 SN=SN+1 5835 200000 000000 ZZ=ZZ+ZZ 5836 IFE ZZ, 5837 033306 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5838 033307 430 00 0 00 035053 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5839 ;RESULT IN C(AC) NONZERO 5840 033310 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5841 STOP^ 5842 033311 254 04 0 00 033312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5843 033312 324 00 0 00 033313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0131 5844 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5845 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5846 5847 ;********** 5848 5849 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5850 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5851 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5852 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5853 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5854 007344 SN=SN+1 5855 400000 000000 ZZ=ZZ+ZZ 5856 IFE ZZ, 5857 033313 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5858 033314 430 00 0 00 035003 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5859 ;RESULT IN C(AC) NONZERO 5860 033315 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5861 STOP^ 5862 033316 254 04 0 00 033317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5863 033317 324 00 0 00 033320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5865 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5866 5867 ;********** 5868 5869 007400 SN=7400 5870 000000 ZZ=0 5871 5872 A7400: REPEAT ^D36, 5873 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5874 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5875 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5876 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5877 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5878 SN=SN+1 5879 ZZ=ZZ+ZZ 5880 IFE ZZ, 5881 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5882 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5883 ;RESULT IN C(AC) NON-ZERO 5884 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5885 STOP 5886 5887 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5888 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5889 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5890 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5891 5892 ;********** 5893 > 5894 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5895 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5896 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5897 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5898 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0132 5899 007401 SN=SN+1 5900 000000 ZZ=ZZ+ZZ 5901 000001 IFE ZZ, 5902 033320 200 00 0 00 035012 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5903 033321 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5904 ;RESULT IN C(AC) NON-ZERO 5905 033322 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5906 STOP^ 5907 033323 254 04 0 00 033324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5908 033324 324 00 0 00 033325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5909 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5910 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5911 5912 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5913 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5914 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5915 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5916 5917 ;********** 5918 5919 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5920 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5921 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5922 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5923 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5924 007402 SN=SN+1 5925 000002 ZZ=ZZ+ZZ 5926 IFE ZZ, 5927 033325 200 00 0 00 035013 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5928 033326 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5929 ;RESULT IN C(AC) NON-ZERO 5930 033327 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5931 STOP^ 5932 033330 254 04 0 00 033331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5933 033331 324 00 0 00 033332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5934 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5935 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5936 5937 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5938 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5939 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5940 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5941 5942 ;********** 5943 5944 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5945 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5946 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5947 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5948 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5949 007403 SN=SN+1 5950 000004 ZZ=ZZ+ZZ 5951 IFE ZZ, 5952 033332 200 00 0 00 035014 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5953 033333 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0133 5954 ;RESULT IN C(AC) NON-ZERO 5955 033334 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5956 STOP^ 5957 033335 254 04 0 00 033336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5958 033336 324 00 0 00 033337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5959 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5960 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5961 5962 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5963 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5964 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5965 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5966 5967 ;********** 5968 5969 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5970 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5971 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5972 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5973 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5974 007404 SN=SN+1 5975 000010 ZZ=ZZ+ZZ 5976 IFE ZZ, 5977 033337 200 00 0 00 035015 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5978 033340 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5979 ;RESULT IN C(AC) NON-ZERO 5980 033341 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5981 STOP^ 5982 033342 254 04 0 00 033343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5983 033343 324 00 0 00 033344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5984 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5985 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5986 5987 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5988 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5989 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5990 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5991 5992 ;********** 5993 5994 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5995 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5996 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5997 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5998 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5999 007405 SN=SN+1 6000 000020 ZZ=ZZ+ZZ 6001 IFE ZZ, 6002 033344 200 00 0 00 035016 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6003 033345 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6004 ;RESULT IN C(AC) NON-ZERO 6005 033346 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6006 STOP^ 6007 033347 254 04 0 00 033350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6008 033350 324 00 0 00 033351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0134 6009 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6010 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6011 6012 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6013 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6014 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6015 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6016 6017 ;********** 6018 6019 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6020 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6021 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6022 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6023 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6024 007406 SN=SN+1 6025 000040 ZZ=ZZ+ZZ 6026 IFE ZZ, 6027 033351 200 00 0 00 035017 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6028 033352 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6029 ;RESULT IN C(AC) NON-ZERO 6030 033353 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6031 STOP^ 6032 033354 254 04 0 00 033355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6033 033355 324 00 0 00 033356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6034 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6035 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6036 6037 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6038 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6039 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6040 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6041 6042 ;********** 6043 6044 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6045 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6046 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6047 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6048 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6049 007407 SN=SN+1 6050 000100 ZZ=ZZ+ZZ 6051 IFE ZZ, 6052 033356 200 00 0 00 035020 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6053 033357 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6054 ;RESULT IN C(AC) NON-ZERO 6055 033360 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6056 STOP^ 6057 033361 254 04 0 00 033362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6058 033362 324 00 0 00 033363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6059 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6060 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6061 6062 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6063 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0135 6064 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6065 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6066 6067 ;********** 6068 6069 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6070 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6071 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6072 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6073 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6074 007410 SN=SN+1 6075 000200 ZZ=ZZ+ZZ 6076 IFE ZZ, 6077 033363 200 00 0 00 035021 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6078 033364 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6079 ;RESULT IN C(AC) NON-ZERO 6080 033365 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6081 STOP^ 6082 033366 254 04 0 00 033367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6083 033367 324 00 0 00 033370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6084 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6085 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6086 6087 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6088 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6089 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6090 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6091 6092 ;********** 6093 6094 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6095 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6096 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6097 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6098 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6099 007411 SN=SN+1 6100 000400 ZZ=ZZ+ZZ 6101 IFE ZZ, 6102 033370 200 00 0 00 035022 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6103 033371 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6104 ;RESULT IN C(AC) NON-ZERO 6105 033372 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6106 STOP^ 6107 033373 254 04 0 00 033374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6108 033374 324 00 0 00 033375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6111 6112 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6113 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6114 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6115 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6116 6117 ;********** 6118 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0136 6119 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6120 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6121 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6122 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6123 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6124 007412 SN=SN+1 6125 001000 ZZ=ZZ+ZZ 6126 IFE ZZ, 6127 033375 200 00 0 00 035023 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6128 033376 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6129 ;RESULT IN C(AC) NON-ZERO 6130 033377 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6131 STOP^ 6132 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6133 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6136 6137 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6138 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6139 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6140 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6141 6142 ;********** 6143 6144 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6145 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6146 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6147 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6148 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6149 007413 SN=SN+1 6150 002000 ZZ=ZZ+ZZ 6151 IFE ZZ, 6152 033402 200 00 0 00 035024 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6153 033403 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6154 ;RESULT IN C(AC) NON-ZERO 6155 033404 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6156 STOP^ 6157 033405 254 04 0 00 033406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6158 033406 324 00 0 00 033407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6159 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6160 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6161 6162 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6163 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6164 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6165 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6166 6167 ;********** 6168 6169 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6170 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6171 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6172 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6173 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0137 6174 007414 SN=SN+1 6175 004000 ZZ=ZZ+ZZ 6176 IFE ZZ, 6177 033407 200 00 0 00 035025 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6178 033410 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6179 ;RESULT IN C(AC) NON-ZERO 6180 033411 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6181 STOP^ 6182 033412 254 04 0 00 033413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6183 033413 324 00 0 00 033414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6184 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6185 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6186 6187 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6188 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6189 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6190 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6191 6192 ;********** 6193 6194 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6195 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6196 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6197 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6198 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6199 007415 SN=SN+1 6200 010000 ZZ=ZZ+ZZ 6201 IFE ZZ, 6202 033414 200 00 0 00 035026 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6203 033415 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6204 ;RESULT IN C(AC) NON-ZERO 6205 033416 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6206 STOP^ 6207 033417 254 04 0 00 033420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6208 033420 324 00 0 00 033421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6209 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6210 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6211 6212 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6213 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6214 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6215 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6216 6217 ;********** 6218 6219 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6220 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6221 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6222 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6223 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6224 007416 SN=SN+1 6225 020000 ZZ=ZZ+ZZ 6226 IFE ZZ, 6227 033421 200 00 0 00 035027 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6228 033422 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0138 6229 ;RESULT IN C(AC) NON-ZERO 6230 033423 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6231 STOP^ 6232 033424 254 04 0 00 033425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6233 033425 324 00 0 00 033426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6234 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6235 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6236 6237 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6238 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6239 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6240 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6241 6242 ;********** 6243 6244 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6245 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6246 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6247 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6248 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6249 007417 SN=SN+1 6250 040000 ZZ=ZZ+ZZ 6251 IFE ZZ, 6252 033426 200 00 0 00 035030 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6253 033427 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6254 ;RESULT IN C(AC) NON-ZERO 6255 033430 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6256 STOP^ 6257 033431 254 04 0 00 033432 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6258 033432 324 00 0 00 033433 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6261 6262 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6263 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6264 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6265 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6266 6267 ;********** 6268 6269 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6270 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6271 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6272 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6273 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6274 007420 SN=SN+1 6275 100000 ZZ=ZZ+ZZ 6276 IFE ZZ, 6277 033433 200 00 0 00 035031 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6278 033434 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6279 ;RESULT IN C(AC) NON-ZERO 6280 033435 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6281 STOP^ 6282 033436 254 04 0 00 033437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6283 033437 324 00 0 00 033440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-21 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0139 6284 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6285 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6286 6287 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6288 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6289 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6290 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6291 6292 ;********** 6293 6294 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6295 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6296 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6297 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6298 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6299 007421 SN=SN+1 6300 200000 ZZ=ZZ+ZZ 6301 IFE ZZ, 6302 033440 200 00 0 00 035032 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6303 033441 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6304 ;RESULT IN C(AC) NON-ZERO 6305 033442 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6306 STOP^ 6307 033443 254 04 0 00 033444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6308 033444 324 00 0 00 033445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6309 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6310 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6311 6312 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6313 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6314 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6315 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6316 6317 ;********** 6318 6319 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6320 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6321 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6322 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6323 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6324 007422 SN=SN+1 6325 400000 ZZ=ZZ+ZZ 6326 IFE ZZ, 6327 033445 200 00 0 00 035033 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6328 033446 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6329 ;RESULT IN C(AC) NON-ZERO 6330 033447 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6331 STOP^ 6332 033450 254 04 0 00 033451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6333 033451 324 00 0 00 033452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6334 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6335 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6336 6337 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6338 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-22 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0140 6339 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6340 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6341 6342 ;********** 6343 6344 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6345 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6346 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6347 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6348 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6349 007423 SN=SN+1 6350 000001 000000 ZZ=ZZ+ZZ 6351 IFE ZZ, 6352 033452 200 00 0 00 035034 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6353 033453 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6354 ;RESULT IN C(AC) NON-ZERO 6355 033454 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6356 STOP^ 6357 033455 254 04 0 00 033456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6358 033456 324 00 0 00 033457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6361 6362 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6363 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6364 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6365 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6366 6367 ;********** 6368 6369 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6370 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6371 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6372 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6373 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6374 007424 SN=SN+1 6375 000002 000000 ZZ=ZZ+ZZ 6376 IFE ZZ, 6377 033457 200 00 0 00 035035 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6378 033460 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6379 ;RESULT IN C(AC) NON-ZERO 6380 033461 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6381 STOP^ 6382 033462 254 04 0 00 033463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6383 033463 324 00 0 00 033464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6386 6387 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6388 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6389 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6390 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6391 6392 ;********** 6393 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-23 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0141 6394 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6395 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6396 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6397 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6398 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6399 007425 SN=SN+1 6400 000004 000000 ZZ=ZZ+ZZ 6401 IFE ZZ, 6402 033464 200 00 0 00 035036 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6403 033465 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6404 ;RESULT IN C(AC) NON-ZERO 6405 033466 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6406 STOP^ 6407 033467 254 04 0 00 033470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6408 033470 324 00 0 00 033471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6409 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6410 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6411 6412 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6413 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6414 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6415 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6416 6417 ;********** 6418 6419 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6420 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6421 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6422 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6423 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6424 007426 SN=SN+1 6425 000010 000000 ZZ=ZZ+ZZ 6426 IFE ZZ, 6427 033471 200 00 0 00 035037 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6428 033472 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6429 ;RESULT IN C(AC) NON-ZERO 6430 033473 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6431 STOP^ 6432 033474 254 04 0 00 033475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6433 033475 324 00 0 00 033476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6435 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6436 6437 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6438 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6439 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6440 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6441 6442 ;********** 6443 6444 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6445 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6446 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6447 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6448 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-24 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0142 6449 007427 SN=SN+1 6450 000020 000000 ZZ=ZZ+ZZ 6451 IFE ZZ, 6452 033476 200 00 0 00 035040 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6453 033477 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6454 ;RESULT IN C(AC) NON-ZERO 6455 033500 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6456 STOP^ 6457 033501 254 04 0 00 033502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6458 033502 324 00 0 00 033503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6459 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6460 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6461 6462 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6463 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6464 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6465 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6466 6467 ;********** 6468 6469 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6470 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6471 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6472 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6473 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6474 007430 SN=SN+1 6475 000040 000000 ZZ=ZZ+ZZ 6476 IFE ZZ, 6477 033503 200 00 0 00 035041 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6478 033504 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6479 ;RESULT IN C(AC) NON-ZERO 6480 033505 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6481 STOP^ 6482 033506 254 04 0 00 033507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6483 033507 324 00 0 00 033510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6486 6487 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6488 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6489 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6490 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6491 6492 ;********** 6493 6494 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6495 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6496 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6497 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6498 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6499 007431 SN=SN+1 6500 000100 000000 ZZ=ZZ+ZZ 6501 IFE ZZ, 6502 033510 200 00 0 00 035042 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6503 033511 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-25 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0143 6504 ;RESULT IN C(AC) NON-ZERO 6505 033512 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6506 STOP^ 6507 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6508 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6509 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6510 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6511 6512 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6513 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6514 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6515 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6516 6517 ;********** 6518 6519 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6520 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6521 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6522 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6523 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6524 007432 SN=SN+1 6525 000200 000000 ZZ=ZZ+ZZ 6526 IFE ZZ, 6527 033515 200 00 0 00 035043 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6528 033516 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6529 ;RESULT IN C(AC) NON-ZERO 6530 033517 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6531 STOP^ 6532 033520 254 04 0 00 033521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6533 033521 324 00 0 00 033522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6534 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6535 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6536 6537 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6538 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6539 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6540 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6541 6542 ;********** 6543 6544 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6545 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6546 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6547 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6548 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6549 007433 SN=SN+1 6550 000400 000000 ZZ=ZZ+ZZ 6551 IFE ZZ, 6552 033522 200 00 0 00 035011 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6553 033523 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6554 ;RESULT IN C(AC) NON-ZERO 6555 033524 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6556 STOP^ 6557 033525 254 04 0 00 033526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6558 033526 324 00 0 00 033527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-26 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0144 6559 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6560 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6561 6562 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6563 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6564 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6565 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6566 6567 ;********** 6568 6569 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6570 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6571 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6572 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6573 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6574 007434 SN=SN+1 6575 001000 000000 ZZ=ZZ+ZZ 6576 IFE ZZ, 6577 033527 200 00 0 00 035044 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6578 033530 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6579 ;RESULT IN C(AC) NON-ZERO 6580 033531 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6581 STOP^ 6582 033532 254 04 0 00 033533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6583 033533 324 00 0 00 033534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6585 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6586 6587 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6588 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6589 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6590 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6591 6592 ;********** 6593 6594 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6595 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6596 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6597 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6598 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6599 007435 SN=SN+1 6600 002000 000000 ZZ=ZZ+ZZ 6601 IFE ZZ, 6602 033534 200 00 0 00 035045 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6603 033535 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6604 ;RESULT IN C(AC) NON-ZERO 6605 033536 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6606 STOP^ 6607 033537 254 04 0 00 033540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6608 033540 324 00 0 00 033541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6609 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6610 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6611 6612 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6613 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-27 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0145 6614 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6615 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6616 6617 ;********** 6618 6619 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6620 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6621 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6622 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6623 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6624 007436 SN=SN+1 6625 004000 000000 ZZ=ZZ+ZZ 6626 IFE ZZ, 6627 033541 200 00 0 00 035046 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6628 033542 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6629 ;RESULT IN C(AC) NON-ZERO 6630 033543 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6631 STOP^ 6632 033544 254 04 0 00 033545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6633 033545 324 00 0 00 033546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6634 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6635 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6636 6637 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6638 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6639 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6640 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6641 6642 ;********** 6643 6644 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6645 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6646 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6647 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6648 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6649 007437 SN=SN+1 6650 010000 000000 ZZ=ZZ+ZZ 6651 IFE ZZ, 6652 033546 200 00 0 00 035047 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6653 033547 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6654 ;RESULT IN C(AC) NON-ZERO 6655 033550 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6656 STOP^ 6657 033551 254 04 0 00 033552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6658 033552 324 00 0 00 033553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6659 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6660 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6661 6662 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6663 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6664 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6665 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6666 6667 ;********** 6668 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-28 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0146 6669 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6670 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6671 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6672 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6673 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6674 007440 SN=SN+1 6675 020000 000000 ZZ=ZZ+ZZ 6676 IFE ZZ, 6677 033553 200 00 0 00 035050 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6678 033554 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6679 ;RESULT IN C(AC) NON-ZERO 6680 033555 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6681 STOP^ 6682 033556 254 04 0 00 033557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6683 033557 324 00 0 00 033560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6686 6687 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6688 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6689 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6690 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6691 6692 ;********** 6693 6694 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6695 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6696 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6697 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6698 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6699 007441 SN=SN+1 6700 040000 000000 ZZ=ZZ+ZZ 6701 IFE ZZ, 6702 033560 200 00 0 00 035051 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6703 033561 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6704 ;RESULT IN C(AC) NON-ZERO 6705 033562 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6706 STOP^ 6707 033563 254 04 0 00 033564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6708 033564 324 00 0 00 033565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6711 6712 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6713 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6714 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6715 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6716 6717 ;********** 6718 6719 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6720 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6721 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6722 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6723 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-29 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0147 6724 007442 SN=SN+1 6725 100000 000000 ZZ=ZZ+ZZ 6726 IFE ZZ, 6727 033565 200 00 0 00 035052 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6728 033566 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6729 ;RESULT IN C(AC) NON-ZERO 6730 033567 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6731 STOP^ 6732 033570 254 04 0 00 033571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6733 033571 324 00 0 00 033572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6736 6737 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6738 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6739 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6740 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6741 6742 ;********** 6743 6744 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6745 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6746 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6747 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6748 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6749 007443 SN=SN+1 6750 200000 000000 ZZ=ZZ+ZZ 6751 IFE ZZ, 6752 033572 200 00 0 00 035053 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6753 033573 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6754 ;RESULT IN C(AC) NON-ZERO 6755 033574 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6756 STOP^ 6757 033575 254 04 0 00 033576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6758 033576 324 00 0 00 033577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6759 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6760 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6761 6762 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6763 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6764 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6765 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6766 6767 ;********** 6768 6769 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6770 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6771 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6772 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6773 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6774 007444 SN=SN+1 6775 400000 000000 ZZ=ZZ+ZZ 6776 IFE ZZ, 6777 033577 200 00 0 00 035003 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6778 033600 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-30 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0148 6779 ;RESULT IN C(AC) NON-ZERO 6780 033601 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6781 STOP^ 6782 033602 254 04 0 00 033603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6783 033603 324 00 0 00 033604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6786 6787 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6788 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6789 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6790 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6791 6792 ;********** 6793 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0149 6794 007500 SN=7500 6795 000000 ZZ=0 6796 6797 A7500: REPEAT ^D36, 6798 <;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6799 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6800 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6801 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6802 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6803 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6804 ;INDICATE AN ILLEGAL CARRY GENERATION. 6805 SN=SN+1 6806 ZZ=ZZ+ZZ 6807 IFE ZZ, 6808 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6809 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6810 SKIPE ;PASS TEST IF C(AC)=0 6811 STOP 6812 6813 ;********** 6814 > 6815 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6816 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6817 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6818 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6819 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6820 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6821 ;INDICATE AN ILLEGAL CARRY GENERATION. 6822 007501 SN=SN+1 6823 000000 ZZ=ZZ+ZZ 6824 000001 IFE ZZ, 6825 033604 200 00 0 00 035012 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6826 033605 430 00 0 00 035012 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6827 033606 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6828 STOP^ 6829 033607 254 04 0 00 033610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6830 033610 324 00 0 00 033611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6831 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6832 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6833 6834 ;********** 6835 6836 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6837 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6838 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6839 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6840 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6841 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6842 ;INDICATE AN ILLEGAL CARRY GENERATION. 6843 007502 SN=SN+1 6844 000002 ZZ=ZZ+ZZ 6845 IFE ZZ, 6846 033611 200 00 0 00 035013 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6847 033612 430 00 0 00 035013 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6848 033613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0150 6849 STOP^ 6850 033614 254 04 0 00 033615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6851 033615 324 00 0 00 033616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6852 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6853 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6854 6855 ;********** 6856 6857 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6858 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6859 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6860 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6861 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6862 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6863 ;INDICATE AN ILLEGAL CARRY GENERATION. 6864 007503 SN=SN+1 6865 000004 ZZ=ZZ+ZZ 6866 IFE ZZ, 6867 033616 200 00 0 00 035014 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6868 033617 430 00 0 00 035014 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6869 033620 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6870 STOP^ 6871 033621 254 04 0 00 033622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6872 033622 324 00 0 00 033623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6873 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6874 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6875 6876 ;********** 6877 6878 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6879 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6880 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6881 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6882 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6883 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6884 ;INDICATE AN ILLEGAL CARRY GENERATION. 6885 007504 SN=SN+1 6886 000010 ZZ=ZZ+ZZ 6887 IFE ZZ, 6888 033623 200 00 0 00 035015 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6889 033624 430 00 0 00 035015 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6890 033625 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6891 STOP^ 6892 033626 254 04 0 00 033627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6893 033627 324 00 0 00 033630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6894 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6895 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6896 6897 ;********** 6898 6899 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6900 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6901 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6902 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6903 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0151 6904 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6905 ;INDICATE AN ILLEGAL CARRY GENERATION. 6906 007505 SN=SN+1 6907 000020 ZZ=ZZ+ZZ 6908 IFE ZZ, 6909 033630 200 00 0 00 035016 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6910 033631 430 00 0 00 035016 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6911 033632 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6912 STOP^ 6913 033633 254 04 0 00 033634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6914 033634 324 00 0 00 033635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6915 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6916 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6917 6918 ;********** 6919 6920 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6921 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6922 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6923 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6924 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6925 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6926 ;INDICATE AN ILLEGAL CARRY GENERATION. 6927 007506 SN=SN+1 6928 000040 ZZ=ZZ+ZZ 6929 IFE ZZ, 6930 033635 200 00 0 00 035017 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6931 033636 430 00 0 00 035017 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6932 033637 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6933 STOP^ 6934 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6935 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6936 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6937 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6938 6939 ;********** 6940 6941 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6942 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6943 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6944 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6945 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6946 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6947 ;INDICATE AN ILLEGAL CARRY GENERATION. 6948 007507 SN=SN+1 6949 000100 ZZ=ZZ+ZZ 6950 IFE ZZ, 6951 033642 200 00 0 00 035020 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6952 033643 430 00 0 00 035020 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6953 033644 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6954 STOP^ 6955 033645 254 04 0 00 033646 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6956 033646 324 00 0 00 033647 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6957 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6958 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0152 6959 6960 ;********** 6961 6962 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6963 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6964 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6965 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6966 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6967 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6968 ;INDICATE AN ILLEGAL CARRY GENERATION. 6969 007510 SN=SN+1 6970 000200 ZZ=ZZ+ZZ 6971 IFE ZZ, 6972 033647 200 00 0 00 035021 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6973 033650 430 00 0 00 035021 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6974 033651 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6975 STOP^ 6976 033652 254 04 0 00 033653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6977 033653 324 00 0 00 033654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6979 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6980 6981 ;********** 6982 6983 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6984 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6985 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6986 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6987 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6988 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6989 ;INDICATE AN ILLEGAL CARRY GENERATION. 6990 007511 SN=SN+1 6991 000400 ZZ=ZZ+ZZ 6992 IFE ZZ, 6993 033654 200 00 0 00 035022 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6994 033655 430 00 0 00 035022 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6995 033656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6996 STOP^ 6997 033657 254 04 0 00 033660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6998 033660 324 00 0 00 033661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7001 7002 ;********** 7003 7004 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7005 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7006 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7007 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7008 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7009 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7010 ;INDICATE AN ILLEGAL CARRY GENERATION. 7011 007512 SN=SN+1 7012 001000 ZZ=ZZ+ZZ 7013 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0153 7014 033661 200 00 0 00 035023 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7015 033662 430 00 0 00 035023 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7016 033663 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7017 STOP^ 7018 033664 254 04 0 00 033665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7019 033665 324 00 0 00 033666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7021 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7022 7023 ;********** 7024 7025 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7026 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7027 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7028 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7029 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7030 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7031 ;INDICATE AN ILLEGAL CARRY GENERATION. 7032 007513 SN=SN+1 7033 002000 ZZ=ZZ+ZZ 7034 IFE ZZ, 7035 033666 200 00 0 00 035024 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7036 033667 430 00 0 00 035024 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7037 033670 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7038 STOP^ 7039 033671 254 04 0 00 033672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7040 033672 324 00 0 00 033673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7042 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7043 7044 ;********** 7045 7046 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7047 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7048 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7049 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7050 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7051 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7052 ;INDICATE AN ILLEGAL CARRY GENERATION. 7053 007514 SN=SN+1 7054 004000 ZZ=ZZ+ZZ 7055 IFE ZZ, 7056 033673 200 00 0 00 035025 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7057 033674 430 00 0 00 035025 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7058 033675 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7059 STOP^ 7060 033676 254 04 0 00 033677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7061 033677 324 00 0 00 033700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7062 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7063 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7064 7065 ;********** 7066 7067 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7068 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0154 7069 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7070 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7071 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7072 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7073 ;INDICATE AN ILLEGAL CARRY GENERATION. 7074 007515 SN=SN+1 7075 010000 ZZ=ZZ+ZZ 7076 IFE ZZ, 7077 033700 200 00 0 00 035026 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7078 033701 430 00 0 00 035026 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7079 033702 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7080 STOP^ 7081 033703 254 04 0 00 033704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7082 033704 324 00 0 00 033705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7084 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7085 7086 ;********** 7087 7088 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7089 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7090 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7091 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7092 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7093 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7094 ;INDICATE AN ILLEGAL CARRY GENERATION. 7095 007516 SN=SN+1 7096 020000 ZZ=ZZ+ZZ 7097 IFE ZZ, 7098 033705 200 00 0 00 035027 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7099 033706 430 00 0 00 035027 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7100 033707 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7101 STOP^ 7102 033710 254 04 0 00 033711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7103 033711 324 00 0 00 033712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7104 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7105 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7106 7107 ;********** 7108 7109 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7110 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7111 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7112 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7113 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7114 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7115 ;INDICATE AN ILLEGAL CARRY GENERATION. 7116 007517 SN=SN+1 7117 040000 ZZ=ZZ+ZZ 7118 IFE ZZ, 7119 033712 200 00 0 00 035030 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7120 033713 430 00 0 00 035030 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7121 033714 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7122 STOP^ 7123 033715 254 04 0 00 033716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0155 7124 033716 324 00 0 00 033717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7125 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7126 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7127 7128 ;********** 7129 7130 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7131 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7132 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7133 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7134 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7135 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7136 ;INDICATE AN ILLEGAL CARRY GENERATION. 7137 007520 SN=SN+1 7138 100000 ZZ=ZZ+ZZ 7139 IFE ZZ, 7140 033717 200 00 0 00 035031 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7141 033720 430 00 0 00 035031 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7142 033721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7143 STOP^ 7144 033722 254 04 0 00 033723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7145 033723 324 00 0 00 033724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7146 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7147 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7148 7149 ;********** 7150 7151 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7152 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7153 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7154 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7155 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7156 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7157 ;INDICATE AN ILLEGAL CARRY GENERATION. 7158 007521 SN=SN+1 7159 200000 ZZ=ZZ+ZZ 7160 IFE ZZ, 7161 033724 200 00 0 00 035032 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7162 033725 430 00 0 00 035032 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7163 033726 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7164 STOP^ 7165 033727 254 04 0 00 033730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7166 033730 324 00 0 00 033731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7169 7170 ;********** 7171 7172 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7173 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7174 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7175 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7176 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7177 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7178 ;INDICATE AN ILLEGAL CARRY GENERATION. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0156 7179 007522 SN=SN+1 7180 400000 ZZ=ZZ+ZZ 7181 IFE ZZ, 7182 033731 200 00 0 00 035033 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7183 033732 430 00 0 00 035033 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7184 033733 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7185 STOP^ 7186 033734 254 04 0 00 033735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7187 033735 324 00 0 00 033736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7188 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7189 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7190 7191 ;********** 7192 7193 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7194 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7195 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7196 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7197 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7198 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7199 ;INDICATE AN ILLEGAL CARRY GENERATION. 7200 007523 SN=SN+1 7201 000001 000000 ZZ=ZZ+ZZ 7202 IFE ZZ, 7203 033736 200 00 0 00 035034 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7204 033737 430 00 0 00 035034 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7205 033740 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7206 STOP^ 7207 033741 254 04 0 00 033742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7208 033742 324 00 0 00 033743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7209 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7210 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7211 7212 ;********** 7213 7214 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7215 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7216 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7217 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7218 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7219 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7220 ;INDICATE AN ILLEGAL CARRY GENERATION. 7221 007524 SN=SN+1 7222 000002 000000 ZZ=ZZ+ZZ 7223 IFE ZZ, 7224 033743 200 00 0 00 035035 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7225 033744 430 00 0 00 035035 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7226 033745 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7227 STOP^ 7228 033746 254 04 0 00 033747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7229 033747 324 00 0 00 033750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7230 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7231 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7232 7233 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0157 7234 7235 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7236 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7237 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7238 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7239 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7240 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7241 ;INDICATE AN ILLEGAL CARRY GENERATION. 7242 007525 SN=SN+1 7243 000004 000000 ZZ=ZZ+ZZ 7244 IFE ZZ, 7245 033750 200 00 0 00 035036 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7246 033751 430 00 0 00 035036 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7247 033752 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7248 STOP^ 7249 033753 254 04 0 00 033754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7250 033754 324 00 0 00 033755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7251 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7252 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7253 7254 ;********** 7255 7256 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7257 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7258 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7259 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7260 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7261 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7262 ;INDICATE AN ILLEGAL CARRY GENERATION. 7263 007526 SN=SN+1 7264 000010 000000 ZZ=ZZ+ZZ 7265 IFE ZZ, 7266 033755 200 00 0 00 035037 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7267 033756 430 00 0 00 035037 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7268 033757 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7269 STOP^ 7270 033760 254 04 0 00 033761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7271 033761 324 00 0 00 033762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7272 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7273 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7274 7275 ;********** 7276 7277 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7278 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7279 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7280 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7281 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7282 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7283 ;INDICATE AN ILLEGAL CARRY GENERATION. 7284 007527 SN=SN+1 7285 000020 000000 ZZ=ZZ+ZZ 7286 IFE ZZ, 7287 033762 200 00 0 00 035040 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7288 033763 430 00 0 00 035040 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0158 7289 033764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7290 STOP^ 7291 033765 254 04 0 00 033766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7292 033766 324 00 0 00 033767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7293 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7294 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7295 7296 ;********** 7297 7298 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7299 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7300 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7301 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7302 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7303 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7304 ;INDICATE AN ILLEGAL CARRY GENERATION. 7305 007530 SN=SN+1 7306 000040 000000 ZZ=ZZ+ZZ 7307 IFE ZZ, 7308 033767 200 00 0 00 035041 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7309 033770 430 00 0 00 035041 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7310 033771 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7311 STOP^ 7312 033772 254 04 0 00 033773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7313 033773 324 00 0 00 033774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7315 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7316 7317 ;********** 7318 7319 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7320 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7321 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7322 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7323 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7324 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7325 ;INDICATE AN ILLEGAL CARRY GENERATION. 7326 007531 SN=SN+1 7327 000100 000000 ZZ=ZZ+ZZ 7328 IFE ZZ, 7329 033774 200 00 0 00 035042 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7330 033775 430 00 0 00 035042 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7331 033776 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7332 STOP^ 7333 033777 254 04 0 00 034000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7334 034000 324 00 0 00 034001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7336 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7337 7338 ;********** 7339 7340 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7341 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7342 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7343 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0159 7344 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7345 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7346 ;INDICATE AN ILLEGAL CARRY GENERATION. 7347 007532 SN=SN+1 7348 000200 000000 ZZ=ZZ+ZZ 7349 IFE ZZ, 7350 034001 200 00 0 00 035043 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7351 034002 430 00 0 00 035043 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7352 034003 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7353 STOP^ 7354 034004 254 04 0 00 034005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7355 034005 324 00 0 00 034006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7356 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7357 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7358 7359 ;********** 7360 7361 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7362 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7363 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7364 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7365 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7366 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7367 ;INDICATE AN ILLEGAL CARRY GENERATION. 7368 007533 SN=SN+1 7369 000400 000000 ZZ=ZZ+ZZ 7370 IFE ZZ, 7371 034006 200 00 0 00 035011 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7372 034007 430 00 0 00 035011 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7373 034010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7374 STOP^ 7375 034011 254 04 0 00 034012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7376 034012 324 00 0 00 034013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7377 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7378 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7379 7380 ;********** 7381 7382 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7383 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7384 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7385 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7386 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7387 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7388 ;INDICATE AN ILLEGAL CARRY GENERATION. 7389 007534 SN=SN+1 7390 001000 000000 ZZ=ZZ+ZZ 7391 IFE ZZ, 7392 034013 200 00 0 00 035044 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7393 034014 430 00 0 00 035044 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7394 034015 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7395 STOP^ 7396 034016 254 04 0 00 034017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7397 034017 324 00 0 00 034020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7398 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0160 7399 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7400 7401 ;********** 7402 7403 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7404 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7405 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7406 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7407 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7408 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7409 ;INDICATE AN ILLEGAL CARRY GENERATION. 7410 007535 SN=SN+1 7411 002000 000000 ZZ=ZZ+ZZ 7412 IFE ZZ, 7413 034020 200 00 0 00 035045 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7414 034021 430 00 0 00 035045 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7415 034022 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7416 STOP^ 7417 034023 254 04 0 00 034024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7418 034024 324 00 0 00 034025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7420 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7421 7422 ;********** 7423 7424 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7425 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7426 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7427 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7428 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7429 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7430 ;INDICATE AN ILLEGAL CARRY GENERATION. 7431 007536 SN=SN+1 7432 004000 000000 ZZ=ZZ+ZZ 7433 IFE ZZ, 7434 034025 200 00 0 00 035046 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7435 034026 430 00 0 00 035046 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7436 034027 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7437 STOP^ 7438 034030 254 04 0 00 034031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7439 034031 324 00 0 00 034032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7440 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7441 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7442 7443 ;********** 7444 7445 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7446 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7447 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7448 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7449 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7450 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7451 ;INDICATE AN ILLEGAL CARRY GENERATION. 7452 007537 SN=SN+1 7453 010000 000000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0161 7454 IFE ZZ, 7455 034032 200 00 0 00 035047 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7456 034033 430 00 0 00 035047 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7457 034034 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7458 STOP^ 7459 034035 254 04 0 00 034036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7460 034036 324 00 0 00 034037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7463 7464 ;********** 7465 7466 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7467 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7468 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7469 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7470 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7471 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7472 ;INDICATE AN ILLEGAL CARRY GENERATION. 7473 007540 SN=SN+1 7474 020000 000000 ZZ=ZZ+ZZ 7475 IFE ZZ, 7476 034037 200 00 0 00 035050 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7477 034040 430 00 0 00 035050 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7478 034041 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7479 STOP^ 7480 034042 254 04 0 00 034043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7481 034043 324 00 0 00 034044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7483 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7484 7485 ;********** 7486 7487 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7488 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7489 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7490 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7491 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7492 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7493 ;INDICATE AN ILLEGAL CARRY GENERATION. 7494 007541 SN=SN+1 7495 040000 000000 ZZ=ZZ+ZZ 7496 IFE ZZ, 7497 034044 200 00 0 00 035051 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7498 034045 430 00 0 00 035051 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7499 034046 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7500 STOP^ 7501 034047 254 04 0 00 034050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7502 034050 324 00 0 00 034051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7503 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7504 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7505 7506 ;********** 7507 7508 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0162 7509 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7510 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7511 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7512 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7513 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7514 ;INDICATE AN ILLEGAL CARRY GENERATION. 7515 007542 SN=SN+1 7516 100000 000000 ZZ=ZZ+ZZ 7517 IFE ZZ, 7518 034051 200 00 0 00 035052 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7519 034052 430 00 0 00 035052 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7520 034053 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7521 STOP^ 7522 034054 254 04 0 00 034055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7523 034055 324 00 0 00 034056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7526 7527 ;********** 7528 7529 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7530 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7531 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7532 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7533 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7534 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7535 ;INDICATE AN ILLEGAL CARRY GENERATION. 7536 007543 SN=SN+1 7537 200000 000000 ZZ=ZZ+ZZ 7538 IFE ZZ, 7539 034056 200 00 0 00 035053 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7540 034057 430 00 0 00 035053 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7541 034060 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7542 STOP^ 7543 034061 254 04 0 00 034062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7544 034062 324 00 0 00 034063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7545 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7546 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7547 7548 ;********** 7549 7550 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7551 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7552 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7553 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7554 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7555 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7556 ;INDICATE AN ILLEGAL CARRY GENERATION. 7557 007544 SN=SN+1 7558 400000 000000 ZZ=ZZ+ZZ 7559 IFE ZZ, 7560 034063 200 00 0 00 035003 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7561 034064 430 00 0 00 035003 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7562 034065 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7563 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0163 7564 034066 254 04 0 00 034067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7565 034067 324 00 0 00 034070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7566 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7567 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7568 7569 ;********** 7570 7571 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE 7572 ;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN 7573 ;XOR IS EXECUTED WITH C(E)=0. THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS 7574 7575 034070 200 00 0 00 035000 A7600: MOVE [0] ;INITIALIZE AC TO ALL ZEROS 7576 034071 430 00 0 00 035000 XOR [0] ;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0 7577 034072 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7578 STOP^ 7579 034073 254 04 0 00 034074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7580 034074 324 00 0 00 034075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7581 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7582 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7583 7584 ;********** 7585 7586 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7587 ;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE 7588 ;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS. FIRST, THE AC 7589 ;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES. 7590 ;THE AC IS THEN CHECKED FOR ALL ZEROS 7591 7592 034075 200 00 0 00 035000 A7700: MOVE [0] ;CLEAR THE AC 7593 034076 444 00 0 00 035001 EQV [-1] ;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD 7594 ;RESULT IN C(AC)=0 7595 034077 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7596 STOP^ 7597 034100 254 04 0 00 034101 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7598 034101 324 00 0 00 034102 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7599 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7600 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7601 7602 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0164 7603 010000 SN=10000 7604 000000 ZZ=0 7605 7606 A10000: REPEAT ^D18, 7607 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7608 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7609 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7610 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7611 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7612 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7613 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7614 SN=SN+1 7615 ZZ=ZZ+ZZ+1 7616 IFE , 7617 MOVE [0] ;PRESET AC TO ALL ZEROS 7618 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7619 ;RESULT IN C(AC) NON-ZERO 7620 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7621 STOP 7622 7623 ;********** 7624 > 7625 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7626 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7627 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7628 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7629 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7630 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7631 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7632 010001 SN=SN+1 7633 000001 ZZ=ZZ+ZZ+1 7634 777777 777776 IFE , 7635 034102 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7636 034103 444 00 0 00 035060 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7637 ;RESULT IN C(AC) NON-ZERO 7638 034104 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7639 STOP^ 7640 034105 254 04 0 00 034106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7641 034106 324 00 0 00 034107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7644 7645 ;********** 7646 7647 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7648 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7649 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7650 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7651 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7652 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7653 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7654 010002 SN=SN+1 7655 777777 777775 ZZ=ZZ+ZZ+1 7656 IFE , 7657 034107 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0165 7658 034110 444 00 0 00 035061 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7659 ;RESULT IN C(AC) NON-ZERO 7660 034111 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7661 STOP^ 7662 034112 254 04 0 00 034113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7663 034113 324 00 0 00 034114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7664 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7665 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7666 7667 ;********** 7668 7669 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7670 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7671 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7672 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7673 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7674 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7675 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7676 010003 SN=SN+1 7677 777777 777773 ZZ=ZZ+ZZ+1 7678 IFE , 7679 034114 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7680 034115 444 00 0 00 035062 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7681 ;RESULT IN C(AC) NON-ZERO 7682 034116 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7683 STOP^ 7684 034117 254 04 0 00 034120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7685 034120 324 00 0 00 034121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7686 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7687 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7688 7689 ;********** 7690 7691 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7692 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7693 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7694 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7695 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7696 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7697 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7698 010004 SN=SN+1 7699 777777 777767 ZZ=ZZ+ZZ+1 7700 IFE , 7701 034121 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7702 034122 444 00 0 00 035063 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7703 ;RESULT IN C(AC) NON-ZERO 7704 034123 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7705 STOP^ 7706 034124 254 04 0 00 034125 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7707 034125 324 00 0 00 034126 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7708 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7709 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7710 7711 ;********** 7712 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0166 7713 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7714 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7715 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7716 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7717 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7718 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7719 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7720 010005 SN=SN+1 7721 777777 777757 ZZ=ZZ+ZZ+1 7722 IFE , 7723 034126 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7724 034127 444 00 0 00 035064 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7725 ;RESULT IN C(AC) NON-ZERO 7726 034130 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7727 STOP^ 7728 034131 254 04 0 00 034132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7729 034132 324 00 0 00 034133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7730 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7731 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7732 7733 ;********** 7734 7735 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7736 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7737 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7738 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7739 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7740 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7741 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7742 010006 SN=SN+1 7743 777777 777737 ZZ=ZZ+ZZ+1 7744 IFE , 7745 034133 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7746 034134 444 00 0 00 035065 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7747 ;RESULT IN C(AC) NON-ZERO 7748 034135 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7749 STOP^ 7750 034136 254 04 0 00 034137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7751 034137 324 00 0 00 034140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7753 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7754 7755 ;********** 7756 7757 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7758 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7759 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7760 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7761 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7762 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7763 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7764 010007 SN=SN+1 7765 777777 777677 ZZ=ZZ+ZZ+1 7766 IFE , 7767 034140 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0167 7768 034141 444 00 0 00 035066 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7769 ;RESULT IN C(AC) NON-ZERO 7770 034142 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7771 STOP^ 7772 034143 254 04 0 00 034144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7773 034144 324 00 0 00 034145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7776 7777 ;********** 7778 7779 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7780 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7781 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7782 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7783 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7784 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7785 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7786 010010 SN=SN+1 7787 777777 777577 ZZ=ZZ+ZZ+1 7788 IFE , 7789 034145 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7790 034146 444 00 0 00 035067 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7791 ;RESULT IN C(AC) NON-ZERO 7792 034147 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7793 STOP^ 7794 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7795 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7798 7799 ;********** 7800 7801 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7802 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7803 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7804 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7805 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7806 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7807 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7808 010011 SN=SN+1 7809 777777 777377 ZZ=ZZ+ZZ+1 7810 IFE , 7811 034152 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7812 034153 444 00 0 00 035070 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7813 ;RESULT IN C(AC) NON-ZERO 7814 034154 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7815 STOP^ 7816 034155 254 04 0 00 034156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7817 034156 324 00 0 00 034157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7820 7821 ;********** 7822 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0168 7823 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7824 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7825 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7826 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7827 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7828 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7829 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7830 010012 SN=SN+1 7831 777777 776777 ZZ=ZZ+ZZ+1 7832 IFE , 7833 034157 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7834 034160 444 00 0 00 035071 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7835 ;RESULT IN C(AC) NON-ZERO 7836 034161 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7837 STOP^ 7838 034162 254 04 0 00 034163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7839 034163 324 00 0 00 034164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7841 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7842 7843 ;********** 7844 7845 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7846 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7847 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7848 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7849 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7850 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7851 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7852 010013 SN=SN+1 7853 777777 775777 ZZ=ZZ+ZZ+1 7854 IFE , 7855 034164 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7856 034165 444 00 0 00 035072 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7857 ;RESULT IN C(AC) NON-ZERO 7858 034166 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7859 STOP^ 7860 034167 254 04 0 00 034170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7861 034170 324 00 0 00 034171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7862 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7863 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7864 7865 ;********** 7866 7867 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7868 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7869 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7870 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7871 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7872 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7873 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7874 010014 SN=SN+1 7875 777777 773777 ZZ=ZZ+ZZ+1 7876 IFE , 7877 034171 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0169 7878 034172 444 00 0 00 035073 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7879 ;RESULT IN C(AC) NON-ZERO 7880 034173 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7881 STOP^ 7882 034174 254 04 0 00 034175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7883 034175 324 00 0 00 034176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7886 7887 ;********** 7888 7889 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7890 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7891 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7892 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7893 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7894 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7895 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7896 010015 SN=SN+1 7897 777777 767777 ZZ=ZZ+ZZ+1 7898 IFE , 7899 034176 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7900 034177 444 00 0 00 035074 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7901 ;RESULT IN C(AC) NON-ZERO 7902 034200 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7903 STOP^ 7904 034201 254 04 0 00 034202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7905 034202 324 00 0 00 034203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7908 7909 ;********** 7910 7911 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7912 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7913 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7914 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7915 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7916 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7917 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7918 010016 SN=SN+1 7919 777777 757777 ZZ=ZZ+ZZ+1 7920 IFE , 7921 034203 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7922 034204 444 00 0 00 035075 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7923 ;RESULT IN C(AC) NON-ZERO 7924 034205 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7925 STOP^ 7926 034206 254 04 0 00 034207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7927 034207 324 00 0 00 034210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7930 7931 ;********** 7932 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0170 7933 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7934 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7935 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7936 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7937 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7938 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7939 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7940 010017 SN=SN+1 7941 777777 737777 ZZ=ZZ+ZZ+1 7942 IFE , 7943 034210 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7944 034211 444 00 0 00 035076 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7945 ;RESULT IN C(AC) NON-ZERO 7946 034212 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7947 STOP^ 7948 034213 254 04 0 00 034214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7949 034214 324 00 0 00 034215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7951 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7952 7953 ;********** 7954 7955 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7956 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7957 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7958 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7959 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7960 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7961 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7962 010020 SN=SN+1 7963 777777 677777 ZZ=ZZ+ZZ+1 7964 IFE , 7965 034215 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7966 034216 444 00 0 00 035077 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7967 ;RESULT IN C(AC) NON-ZERO 7968 034217 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7969 STOP^ 7970 034220 254 04 0 00 034221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7971 034221 324 00 0 00 034222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7972 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7973 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7974 7975 ;********** 7976 7977 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7978 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7979 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7980 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7981 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7982 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7983 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7984 010021 SN=SN+1 7985 777777 577777 ZZ=ZZ+ZZ+1 7986 IFE , 7987 034222 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0171 7988 034223 444 00 0 00 035100 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7989 ;RESULT IN C(AC) NON-ZERO 7990 034224 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7991 STOP^ 7992 034225 254 04 0 00 034226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7993 034226 324 00 0 00 034227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7996 7997 ;********** 7998 7999 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8000 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8001 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8002 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8003 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8004 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8005 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8006 010022 SN=SN+1 8007 777777 377777 ZZ=ZZ+ZZ+1 8008 IFE , 8009 034227 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8010 034230 444 00 0 00 035101 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8011 ;RESULT IN C(AC) NON-ZERO 8012 034231 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8013 STOP^ 8014 034232 254 04 0 00 034233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8015 034233 324 00 0 00 034234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8018 8019 ;********** 8020 8021 010100 SN=10100 8022 000000 ZZ=0 8023 8024 A10100: REPEAT ^D18, 8025 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8026 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8027 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8028 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8029 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8030 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8031 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8032 SN=SN+1 8033 ZZ=ZZ+ZZ+1 8034 IFE , 8035 MOVE [0] ;PRESET AC TO ALL ZEROS 8036 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8037 ;RESULT IN C(AC) NON-ZERO 8038 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8039 STOP 8040 8041 ;********** 8042 > DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0172 8043 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8044 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8045 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8046 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8047 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8048 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8049 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8050 010101 SN=SN+1 8051 000001 ZZ=ZZ+ZZ+1 8052 777777 777776 IFE , 8053 034234 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8054 034235 444 00 0 00 035102 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8055 ;RESULT IN C(AC) NON-ZERO 8056 034236 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8057 STOP^ 8058 034237 254 04 0 00 034240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8059 034240 324 00 0 00 034241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8060 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8061 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8062 8063 ;********** 8064 8065 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8066 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8067 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8068 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8069 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8070 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8071 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8072 010102 SN=SN+1 8073 777777 777775 ZZ=ZZ+ZZ+1 8074 IFE , 8075 034241 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8076 034242 444 00 0 00 035103 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8077 ;RESULT IN C(AC) NON-ZERO 8078 034243 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8079 STOP^ 8080 034244 254 04 0 00 034245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8081 034245 324 00 0 00 034246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8084 8085 ;********** 8086 8087 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8088 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8089 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8090 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8091 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8092 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8093 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8094 010103 SN=SN+1 8095 777777 777773 ZZ=ZZ+ZZ+1 8096 IFE , 8097 034246 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0173 8098 034247 444 00 0 00 035104 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8099 ;RESULT IN C(AC) NON-ZERO 8100 034250 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8101 STOP^ 8102 034251 254 04 0 00 034252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8103 034252 324 00 0 00 034253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8104 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8105 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8106 8107 ;********** 8108 8109 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8110 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8111 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8112 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8113 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8114 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8115 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8116 010104 SN=SN+1 8117 777777 777767 ZZ=ZZ+ZZ+1 8118 IFE , 8119 034253 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8120 034254 444 00 0 00 035105 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8121 ;RESULT IN C(AC) NON-ZERO 8122 034255 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8123 STOP^ 8124 034256 254 04 0 00 034257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8125 034257 324 00 0 00 034260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8126 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8127 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8128 8129 ;********** 8130 8131 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8132 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8133 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8134 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8135 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8136 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8137 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8138 010105 SN=SN+1 8139 777777 777757 ZZ=ZZ+ZZ+1 8140 IFE , 8141 034260 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8142 034261 444 00 0 00 035106 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8143 ;RESULT IN C(AC) NON-ZERO 8144 034262 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8145 STOP^ 8146 034263 254 04 0 00 034264 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8147 034264 324 00 0 00 034265 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8148 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8149 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8150 8151 ;********** 8152 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0174 8153 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8154 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8155 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8156 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8157 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8158 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8159 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8160 010106 SN=SN+1 8161 777777 777737 ZZ=ZZ+ZZ+1 8162 IFE , 8163 034265 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8164 034266 444 00 0 00 035107 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8165 ;RESULT IN C(AC) NON-ZERO 8166 034267 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8167 STOP^ 8168 034270 254 04 0 00 034271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8169 034271 324 00 0 00 034272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8171 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8172 8173 ;********** 8174 8175 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8176 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8177 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8178 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8179 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8180 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8181 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8182 010107 SN=SN+1 8183 777777 777677 ZZ=ZZ+ZZ+1 8184 IFE , 8185 034272 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8186 034273 444 00 0 00 035110 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8187 ;RESULT IN C(AC) NON-ZERO 8188 034274 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8189 STOP^ 8190 034275 254 04 0 00 034276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8191 034276 324 00 0 00 034277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8192 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8193 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8194 8195 ;********** 8196 8197 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8198 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8199 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8200 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8201 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8202 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8203 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8204 010110 SN=SN+1 8205 777777 777577 ZZ=ZZ+ZZ+1 8206 IFE , 8207 034277 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0175 8208 034300 444 00 0 00 035111 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8209 ;RESULT IN C(AC) NON-ZERO 8210 034301 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8211 STOP^ 8212 034302 254 04 0 00 034303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8213 034303 324 00 0 00 034304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8216 8217 ;********** 8218 8219 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8220 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8221 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8222 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8223 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8224 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8225 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8226 010111 SN=SN+1 8227 777777 777377 ZZ=ZZ+ZZ+1 8228 IFE , 8229 034304 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8230 034305 444 00 0 00 035112 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8231 ;RESULT IN C(AC) NON-ZERO 8232 034306 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8233 STOP^ 8234 034307 254 04 0 00 034310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8235 034310 324 00 0 00 034311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8236 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8237 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8238 8239 ;********** 8240 8241 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8242 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8243 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8244 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8245 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8246 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8247 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8248 010112 SN=SN+1 8249 777777 776777 ZZ=ZZ+ZZ+1 8250 IFE , 8251 034311 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8252 034312 444 00 0 00 035113 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8253 ;RESULT IN C(AC) NON-ZERO 8254 034313 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8255 STOP^ 8256 034314 254 04 0 00 034315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8257 034315 324 00 0 00 034316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8258 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8259 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8260 8261 ;********** 8262 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0176 8263 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8264 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8265 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8266 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8267 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8268 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8269 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8270 010113 SN=SN+1 8271 777777 775777 ZZ=ZZ+ZZ+1 8272 IFE , 8273 034316 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8274 034317 444 00 0 00 035114 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8275 ;RESULT IN C(AC) NON-ZERO 8276 034320 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8277 STOP^ 8278 034321 254 04 0 00 034322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8279 034322 324 00 0 00 034323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8280 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8281 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8282 8283 ;********** 8284 8285 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8286 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8287 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8288 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8289 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8290 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8291 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8292 010114 SN=SN+1 8293 777777 773777 ZZ=ZZ+ZZ+1 8294 IFE , 8295 034323 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8296 034324 444 00 0 00 035115 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8297 ;RESULT IN C(AC) NON-ZERO 8298 034325 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8299 STOP^ 8300 034326 254 04 0 00 034327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8301 034327 324 00 0 00 034330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8302 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8303 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8304 8305 ;********** 8306 8307 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8308 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8309 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8310 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8311 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8312 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8313 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8314 010115 SN=SN+1 8315 777777 767777 ZZ=ZZ+ZZ+1 8316 IFE , 8317 034330 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0177 8318 034331 444 00 0 00 035116 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8319 ;RESULT IN C(AC) NON-ZERO 8320 034332 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8321 STOP^ 8322 034333 254 04 0 00 034334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8323 034334 324 00 0 00 034335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8325 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8326 8327 ;********** 8328 8329 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8330 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8331 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8332 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8333 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8334 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8335 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8336 010116 SN=SN+1 8337 777777 757777 ZZ=ZZ+ZZ+1 8338 IFE , 8339 034335 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8340 034336 444 00 0 00 035117 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8341 ;RESULT IN C(AC) NON-ZERO 8342 034337 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8343 STOP^ 8344 034340 254 04 0 00 034341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8345 034341 324 00 0 00 034342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8346 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8347 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8348 8349 ;********** 8350 8351 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8352 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8353 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8354 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8355 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8356 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8357 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8358 010117 SN=SN+1 8359 777777 737777 ZZ=ZZ+ZZ+1 8360 IFE , 8361 034342 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8362 034343 444 00 0 00 035120 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8363 ;RESULT IN C(AC) NON-ZERO 8364 034344 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8365 STOP^ 8366 034345 254 04 0 00 034346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8367 034346 324 00 0 00 034347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8368 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8369 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8370 8371 ;********** 8372 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0178 8373 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8374 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8375 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8376 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8377 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8378 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8379 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8380 010120 SN=SN+1 8381 777777 677777 ZZ=ZZ+ZZ+1 8382 IFE , 8383 034347 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8384 034350 444 00 0 00 035121 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8385 ;RESULT IN C(AC) NON-ZERO 8386 034351 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8387 STOP^ 8388 034352 254 04 0 00 034353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8389 034353 324 00 0 00 034354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8392 8393 ;********** 8394 8395 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8396 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8397 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8398 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8399 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8400 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8401 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8402 010121 SN=SN+1 8403 777777 577777 ZZ=ZZ+ZZ+1 8404 IFE , 8405 034354 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8406 034355 444 00 0 00 035122 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8407 ;RESULT IN C(AC) NON-ZERO 8408 034356 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8409 STOP^ 8410 034357 254 04 0 00 034360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8411 034360 324 00 0 00 034361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8412 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8413 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8414 8415 ;********** 8416 8417 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8418 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8419 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8420 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8421 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8422 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8423 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8424 010122 SN=SN+1 8425 777777 377777 ZZ=ZZ+ZZ+1 8426 IFE , 8427 034361 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0179 8428 034362 444 00 0 00 035002 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8429 ;RESULT IN C(AC) NON-ZERO 8430 034363 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8431 STOP^ 8432 034364 254 04 0 00 034365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8433 034365 324 00 0 00 034366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8435 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8436 8437 ;********** 8438 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 30 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0180 8439 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS 8440 ;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL 8441 ;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED 8442 ;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC 8443 ;SHOULD BE ALL ZEROS. FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN, 8444 ;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS. THE AC IS 8445 ;THEN CHECKED FOR ALL ZEROS 8446 8447 034366 200 00 0 00 035000 A10200: MOVE [0] ;CLEAR THE AC 8448 034367 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=ALL ONES 8449 034370 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 8450 034371 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8451 STOP^ 8452 034372 254 04 0 00 034373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8453 034373 324 00 0 00 034374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8454 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8455 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8456 8457 ;********** 8458 8459 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES 8460 ;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES; 8461 ;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E 8462 ;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS. 8463 ;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS 8464 ;EQUIVALENCED WITH AN E OF ALL ONES. NEXT, THIS SAME AC IS EQUIVALENCED 8465 ;WITH AN E OF ALL ZEROS. THE AC IS THEN CHECKED FOR ALL ZEROS. 8466 8467 034374 200 00 0 00 035001 A10300: MOVE [-1] ;SET C(AC) TO ALL ONES 8468 034375 444 00 0 00 035001 EQV [-1] ;*EQV SHOULD RESULT IN C(AC) OF ALL ONES 8469 034376 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 8470 034377 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8471 STOP^ 8472 034400 254 04 0 00 034401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8473 034401 324 00 0 00 034402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8474 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8475 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8476 8477 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0181 8478 013000 SN=13000 8479 000000 ZZ=0 8480 8481 A13000: REPEAT ^D36, 8482 <;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8483 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8484 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8485 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8486 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8487 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8488 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8489 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8490 SN=SN+1 8491 ZZ=ZZ+ZZ 8492 IFE ZZ, 8493 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8494 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8495 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8496 EQV [0] ;RESULTS IN C(AC)=0 8497 SKIPE ;PASS TEST IF C(AC)=0 8498 STOP 8499 8500 ;********** 8501 > 8502 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8503 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8504 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8505 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8506 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8507 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8508 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8509 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8510 013001 SN=SN+1 8511 000000 ZZ=ZZ+ZZ 8512 000001 IFE ZZ, 8513 034402 200 00 0 00 035012 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8514 034403 404 00 0 00 035012 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8515 034404 444 00 0 00 035012 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8516 034405 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8517 034406 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8518 STOP^ 8519 034407 254 04 0 00 034410 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8520 034410 324 00 0 00 034411 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8522 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8523 8524 ;********** 8525 8526 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8527 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8528 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8529 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8530 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8531 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8532 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0182 8533 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8534 013002 SN=SN+1 8535 000002 ZZ=ZZ+ZZ 8536 IFE ZZ, 8537 034411 200 00 0 00 035013 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8538 034412 404 00 0 00 035013 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8539 034413 444 00 0 00 035013 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8540 034414 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8541 034415 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8542 STOP^ 8543 034416 254 04 0 00 034417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8544 034417 324 00 0 00 034420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8545 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8546 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8547 8548 ;********** 8549 8550 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8551 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8552 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8553 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8554 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8555 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8556 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8557 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8558 013003 SN=SN+1 8559 000004 ZZ=ZZ+ZZ 8560 IFE ZZ, 8561 034420 200 00 0 00 035014 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8562 034421 404 00 0 00 035014 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8563 034422 444 00 0 00 035014 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8564 034423 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8565 034424 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8566 STOP^ 8567 034425 254 04 0 00 034426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8568 034426 324 00 0 00 034427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8569 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8570 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8571 8572 ;********** 8573 8574 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8575 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8576 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8577 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8578 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8579 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8580 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8581 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8582 013004 SN=SN+1 8583 000010 ZZ=ZZ+ZZ 8584 IFE ZZ, 8585 034427 200 00 0 00 035015 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8586 034430 404 00 0 00 035015 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8587 034431 444 00 0 00 035015 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0183 8588 034432 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8589 034433 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8590 STOP^ 8591 034434 254 04 0 00 034435 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8592 034435 324 00 0 00 034436 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8593 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8594 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8595 8596 ;********** 8597 8598 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8599 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8600 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8601 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8602 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8603 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8604 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8605 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8606 013005 SN=SN+1 8607 000020 ZZ=ZZ+ZZ 8608 IFE ZZ, 8609 034436 200 00 0 00 035016 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8610 034437 404 00 0 00 035016 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8611 034440 444 00 0 00 035016 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8612 034441 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8613 034442 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8614 STOP^ 8615 034443 254 04 0 00 034444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8616 034444 324 00 0 00 034445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8618 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8619 8620 ;********** 8621 8622 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8623 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8624 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8625 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8626 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8627 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8628 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8629 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8630 013006 SN=SN+1 8631 000040 ZZ=ZZ+ZZ 8632 IFE ZZ, 8633 034445 200 00 0 00 035017 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8634 034446 404 00 0 00 035017 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8635 034447 444 00 0 00 035017 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8636 034450 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8637 034451 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8638 STOP^ 8639 034452 254 04 0 00 034453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8640 034453 324 00 0 00 034454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8642 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0184 8643 8644 ;********** 8645 8646 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8647 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8648 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8649 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8650 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8651 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8652 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8653 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8654 013007 SN=SN+1 8655 000100 ZZ=ZZ+ZZ 8656 IFE ZZ, 8657 034454 200 00 0 00 035020 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8658 034455 404 00 0 00 035020 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8659 034456 444 00 0 00 035020 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8660 034457 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8661 034460 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8662 STOP^ 8663 034461 254 04 0 00 034462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8664 034462 324 00 0 00 034463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8665 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8666 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8667 8668 ;********** 8669 8670 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8671 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8672 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8673 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8674 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8675 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8676 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8677 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8678 013010 SN=SN+1 8679 000200 ZZ=ZZ+ZZ 8680 IFE ZZ, 8681 034463 200 00 0 00 035021 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8682 034464 404 00 0 00 035021 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8683 034465 444 00 0 00 035021 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8684 034466 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8685 034467 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8686 STOP^ 8687 034470 254 04 0 00 034471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8688 034471 324 00 0 00 034472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8690 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8691 8692 ;********** 8693 8694 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8695 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8696 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8697 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0185 8698 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8699 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8700 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8701 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8702 013011 SN=SN+1 8703 000400 ZZ=ZZ+ZZ 8704 IFE ZZ, 8705 034472 200 00 0 00 035022 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8706 034473 404 00 0 00 035022 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8707 034474 444 00 0 00 035022 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8708 034475 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8709 034476 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8710 STOP^ 8711 034477 254 04 0 00 034500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8712 034500 324 00 0 00 034501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8713 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8714 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8715 8716 ;********** 8717 8718 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8719 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8720 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8721 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8722 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8723 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8724 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8725 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8726 013012 SN=SN+1 8727 001000 ZZ=ZZ+ZZ 8728 IFE ZZ, 8729 034501 200 00 0 00 035023 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8730 034502 404 00 0 00 035023 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8731 034503 444 00 0 00 035023 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8732 034504 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8733 034505 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8734 STOP^ 8735 034506 254 04 0 00 034507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8736 034507 324 00 0 00 034510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8738 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8739 8740 ;********** 8741 8742 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8743 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8744 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8745 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8746 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8747 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8748 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8749 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8750 013013 SN=SN+1 8751 002000 ZZ=ZZ+ZZ 8752 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0186 8753 034510 200 00 0 00 035024 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8754 034511 404 00 0 00 035024 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8755 034512 444 00 0 00 035024 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8756 034513 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8757 034514 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8758 STOP^ 8759 034515 254 04 0 00 034516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8760 034516 324 00 0 00 034517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8763 8764 ;********** 8765 8766 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8767 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8768 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8769 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8770 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8771 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8772 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8773 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8774 013014 SN=SN+1 8775 004000 ZZ=ZZ+ZZ 8776 IFE ZZ, 8777 034517 200 00 0 00 035025 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8778 034520 404 00 0 00 035025 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8779 034521 444 00 0 00 035025 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8780 034522 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8781 034523 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8782 STOP^ 8783 034524 254 04 0 00 034525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8784 034525 324 00 0 00 034526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8785 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8786 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8787 8788 ;********** 8789 8790 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8791 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8792 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8793 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8794 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8795 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8796 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8797 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8798 013015 SN=SN+1 8799 010000 ZZ=ZZ+ZZ 8800 IFE ZZ, 8801 034526 200 00 0 00 035026 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8802 034527 404 00 0 00 035026 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8803 034530 444 00 0 00 035026 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8804 034531 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8805 034532 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8806 STOP^ 8807 034533 254 04 0 00 034534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0187 8808 034534 324 00 0 00 034535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8809 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8810 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8811 8812 ;********** 8813 8814 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8815 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8816 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8817 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8818 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8819 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8820 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8821 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8822 013016 SN=SN+1 8823 020000 ZZ=ZZ+ZZ 8824 IFE ZZ, 8825 034535 200 00 0 00 035027 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8826 034536 404 00 0 00 035027 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8827 034537 444 00 0 00 035027 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8828 034540 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8829 034541 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8830 STOP^ 8831 034542 254 04 0 00 034543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8832 034543 324 00 0 00 034544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8835 8836 ;********** 8837 8838 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8839 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8840 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8841 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8842 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8843 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8844 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8845 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8846 013017 SN=SN+1 8847 040000 ZZ=ZZ+ZZ 8848 IFE ZZ, 8849 034544 200 00 0 00 035030 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8850 034545 404 00 0 00 035030 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8851 034546 444 00 0 00 035030 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8852 034547 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8853 034550 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8854 STOP^ 8855 034551 254 04 0 00 034552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8856 034552 324 00 0 00 034553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8858 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8859 8860 ;********** 8861 8862 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0188 8863 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8864 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8865 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8866 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8867 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8868 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8869 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8870 013020 SN=SN+1 8871 100000 ZZ=ZZ+ZZ 8872 IFE ZZ, 8873 034553 200 00 0 00 035031 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8874 034554 404 00 0 00 035031 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8875 034555 444 00 0 00 035031 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8876 034556 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8877 034557 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8878 STOP^ 8879 034560 254 04 0 00 034561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8880 034561 324 00 0 00 034562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8883 8884 ;********** 8885 8886 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8887 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8888 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8889 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8890 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8891 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8892 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8893 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8894 013021 SN=SN+1 8895 200000 ZZ=ZZ+ZZ 8896 IFE ZZ, 8897 034562 200 00 0 00 035032 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8898 034563 404 00 0 00 035032 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8899 034564 444 00 0 00 035032 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8900 034565 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8901 034566 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8902 STOP^ 8903 034567 254 04 0 00 034570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8904 034570 324 00 0 00 034571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8907 8908 ;********** 8909 8910 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8911 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8912 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8913 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8914 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8915 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8916 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8917 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0189 8918 013022 SN=SN+1 8919 400000 ZZ=ZZ+ZZ 8920 IFE ZZ, 8921 034571 200 00 0 00 035033 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8922 034572 404 00 0 00 035033 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8923 034573 444 00 0 00 035033 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8924 034574 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8925 034575 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8926 STOP^ 8927 034576 254 04 0 00 034577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8928 034577 324 00 0 00 034600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8929 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8930 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8931 8932 ;********** 8933 8934 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8935 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8936 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8937 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8938 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8939 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8940 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8941 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8942 013023 SN=SN+1 8943 000001 000000 ZZ=ZZ+ZZ 8944 IFE ZZ, 8945 034600 200 00 0 00 035034 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8946 034601 404 00 0 00 035034 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8947 034602 444 00 0 00 035034 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8948 034603 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8949 034604 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8950 STOP^ 8951 034605 254 04 0 00 034606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8952 034606 324 00 0 00 034607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8953 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8954 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8955 8956 ;********** 8957 8958 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8959 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8960 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8961 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8962 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8963 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8964 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8965 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8966 013024 SN=SN+1 8967 000002 000000 ZZ=ZZ+ZZ 8968 IFE ZZ, 8969 034607 200 00 0 00 035035 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8970 034610 404 00 0 00 035035 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8971 034611 444 00 0 00 035035 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8972 034612 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0190 8973 034613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8974 STOP^ 8975 034614 254 04 0 00 034615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8976 034615 324 00 0 00 034616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8977 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8978 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8979 8980 ;********** 8981 8982 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8983 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8984 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8985 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8986 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8987 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8988 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8989 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8990 013025 SN=SN+1 8991 000004 000000 ZZ=ZZ+ZZ 8992 IFE ZZ, 8993 034616 200 00 0 00 035036 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8994 034617 404 00 0 00 035036 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8995 034620 444 00 0 00 035036 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8996 034621 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8997 034622 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8998 STOP^ 8999 034623 254 04 0 00 034624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9000 034624 324 00 0 00 034625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9003 9004 ;********** 9005 9006 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9007 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9008 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9009 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9010 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9011 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9012 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9013 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9014 013026 SN=SN+1 9015 000010 000000 ZZ=ZZ+ZZ 9016 IFE ZZ, 9017 034625 200 00 0 00 035037 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9018 034626 404 00 0 00 035037 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9019 034627 444 00 0 00 035037 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9020 034630 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9021 034631 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9022 STOP^ 9023 034632 254 04 0 00 034633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9024 034633 324 00 0 00 034634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9025 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9026 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9027 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0191 9028 ;********** 9029 9030 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9031 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9032 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9033 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9034 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9035 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9036 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9037 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9038 013027 SN=SN+1 9039 000020 000000 ZZ=ZZ+ZZ 9040 IFE ZZ, 9041 034634 200 00 0 00 035040 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9042 034635 404 00 0 00 035040 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9043 034636 444 00 0 00 035040 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9044 034637 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9045 034640 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9046 STOP^ 9047 034641 254 04 0 00 034642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9048 034642 324 00 0 00 034643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9049 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9050 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9051 9052 ;********** 9053 9054 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9055 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9056 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9057 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9058 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9059 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9060 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9061 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9062 013030 SN=SN+1 9063 000040 000000 ZZ=ZZ+ZZ 9064 IFE ZZ, 9065 034643 200 00 0 00 035041 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9066 034644 404 00 0 00 035041 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9067 034645 444 00 0 00 035041 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9068 034646 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9069 034647 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9070 STOP^ 9071 034650 254 04 0 00 034651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9072 034651 324 00 0 00 034652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9073 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9074 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9075 9076 ;********** 9077 9078 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9079 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9080 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9081 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9082 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0192 9083 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9084 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9085 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9086 013031 SN=SN+1 9087 000100 000000 ZZ=ZZ+ZZ 9088 IFE ZZ, 9089 034652 200 00 0 00 035042 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9090 034653 404 00 0 00 035042 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9091 034654 444 00 0 00 035042 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9092 034655 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9093 034656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9094 STOP^ 9095 034657 254 04 0 00 034660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9096 034660 324 00 0 00 034661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9098 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9099 9100 ;********** 9101 9102 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9103 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9104 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9105 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9106 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9107 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9108 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9109 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9110 013032 SN=SN+1 9111 000200 000000 ZZ=ZZ+ZZ 9112 IFE ZZ, 9113 034661 200 00 0 00 035043 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9114 034662 404 00 0 00 035043 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9115 034663 444 00 0 00 035043 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9116 034664 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9117 034665 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9118 STOP^ 9119 034666 254 04 0 00 034667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9120 034667 324 00 0 00 034670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9121 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9122 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9123 9124 ;********** 9125 9126 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9127 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9128 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9129 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9130 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9131 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9132 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9133 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9134 013033 SN=SN+1 9135 000400 000000 ZZ=ZZ+ZZ 9136 IFE ZZ, 9137 034670 200 00 0 00 035011 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0193 9138 034671 404 00 0 00 035011 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9139 034672 444 00 0 00 035011 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9140 034673 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9141 034674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9142 STOP^ 9143 034675 254 04 0 00 034676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9144 034676 324 00 0 00 034677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9145 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9146 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9147 9148 ;********** 9149 9150 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9151 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9152 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9153 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9154 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9155 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9156 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9157 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9158 013034 SN=SN+1 9159 001000 000000 ZZ=ZZ+ZZ 9160 IFE ZZ, 9161 034677 200 00 0 00 035044 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9162 034700 404 00 0 00 035044 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9163 034701 444 00 0 00 035044 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9164 034702 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9165 034703 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9166 STOP^ 9167 034704 254 04 0 00 034705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9168 034705 324 00 0 00 034706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9171 9172 ;********** 9173 9174 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9175 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9176 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9177 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9178 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9179 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9180 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9181 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9182 013035 SN=SN+1 9183 002000 000000 ZZ=ZZ+ZZ 9184 IFE ZZ, 9185 034706 200 00 0 00 035045 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9186 034707 404 00 0 00 035045 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9187 034710 444 00 0 00 035045 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9188 034711 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9189 034712 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9190 STOP^ 9191 034713 254 04 0 00 034714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9192 034714 324 00 0 00 034715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0194 9193 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9194 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9195 9196 ;********** 9197 9198 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9199 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9200 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9201 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9202 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9203 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9204 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9205 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9206 013036 SN=SN+1 9207 004000 000000 ZZ=ZZ+ZZ 9208 IFE ZZ, 9209 034715 200 00 0 00 035046 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9210 034716 404 00 0 00 035046 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9211 034717 444 00 0 00 035046 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9212 034720 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9213 034721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9214 STOP^ 9215 034722 254 04 0 00 034723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9216 034723 324 00 0 00 034724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9217 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9218 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9219 9220 ;********** 9221 9222 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9223 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9224 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9225 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9226 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9227 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9228 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9229 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9230 013037 SN=SN+1 9231 010000 000000 ZZ=ZZ+ZZ 9232 IFE ZZ, 9233 034724 200 00 0 00 035047 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9234 034725 404 00 0 00 035047 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9235 034726 444 00 0 00 035047 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9236 034727 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9237 034730 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9238 STOP^ 9239 034731 254 04 0 00 034732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9240 034732 324 00 0 00 034733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9241 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9242 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9243 9244 ;********** 9245 9246 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9247 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0195 9248 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9249 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9250 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9251 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9252 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9253 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9254 013040 SN=SN+1 9255 020000 000000 ZZ=ZZ+ZZ 9256 IFE ZZ, 9257 034733 200 00 0 00 035050 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9258 034734 404 00 0 00 035050 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9259 034735 444 00 0 00 035050 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9260 034736 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9261 034737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9262 STOP^ 9263 034740 254 04 0 00 034741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9264 034741 324 00 0 00 034742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9266 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9267 9268 ;********** 9269 9270 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9271 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9272 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9273 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9274 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9275 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9276 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9277 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9278 013041 SN=SN+1 9279 040000 000000 ZZ=ZZ+ZZ 9280 IFE ZZ, 9281 034742 200 00 0 00 035051 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9282 034743 404 00 0 00 035051 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9283 034744 444 00 0 00 035051 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9284 034745 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9285 034746 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9286 STOP^ 9287 034747 254 04 0 00 034750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9288 034750 324 00 0 00 034751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9289 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9290 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9291 9292 ;********** 9293 9294 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9295 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9296 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9297 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9298 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9299 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9300 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9301 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9302 013042 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0196 9303 100000 000000 ZZ=ZZ+ZZ 9304 IFE ZZ, 9305 034751 200 00 0 00 035052 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9306 034752 404 00 0 00 035052 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9307 034753 444 00 0 00 035052 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9308 034754 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9309 034755 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9310 STOP^ 9311 034756 254 04 0 00 034757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9312 034757 324 00 0 00 034760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9314 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9315 9316 ;********** 9317 9318 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9319 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9320 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9321 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9322 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9323 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9324 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9325 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9326 013043 SN=SN+1 9327 200000 000000 ZZ=ZZ+ZZ 9328 IFE ZZ, 9329 034760 200 00 0 00 035053 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9330 034761 404 00 0 00 035053 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9331 034762 444 00 0 00 035053 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9332 034763 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9333 034764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9334 STOP^ 9335 034765 254 04 0 00 034766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9336 034766 324 00 0 00 034767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9339 9340 ;********** 9341 9342 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9343 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9344 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9345 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9346 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9347 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9348 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9349 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9350 013044 SN=SN+1 9351 400000 000000 ZZ=ZZ+ZZ 9352 IFE ZZ, 9353 034767 200 00 0 00 035003 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9354 034770 404 00 0 00 035003 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9355 034771 444 00 0 00 035003 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9356 034772 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9357 034773 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0197 9358 STOP^ 9359 034774 254 04 0 00 034775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9360 034775 324 00 0 00 034776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9363 9364 ;********** 9365 9366 034776 402 00 0 00 035124 ENDIT: SETZM TNUMB# 9367 034777 254 00 0 00 030057 JRST BEGEND DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0198 9368 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 9369 9370 ;PROGRAM LITERALS 9371 9372 XLIST 9373 IFNDEF $LPAPER, 9374 035000 LIT 9375 035000 000000 000000 9376 035001 777777 777777 9377 035002 377777 777777 9378 035003 400000 000000 9379 035004 777000 000000 9380 035005 000377 000000 9381 035006 000000 177000 9382 035007 000000 000777 9383 035010 000000 600000 9384 035011 000400 000000 9385 035012 000000 000001 9386 035013 000000 000002 9387 035014 000000 000004 9388 035015 000000 000010 9389 035016 000000 000020 9390 035017 000000 000040 9391 035020 000000 000100 9392 035021 000000 000200 9393 035022 000000 000400 9394 035023 000000 001000 9395 035024 000000 002000 9396 035025 000000 004000 9397 035026 000000 010000 9398 035027 000000 020000 9399 035030 000000 040000 9400 035031 000000 100000 9401 035032 000000 200000 9402 035033 000000 400000 9403 035034 000001 000000 9404 035035 000002 000000 9405 035036 000004 000000 9406 035037 000010 000000 9407 035040 000020 000000 9408 035041 000040 000000 9409 035042 000100 000000 9410 035043 000200 000000 9411 035044 001000 000000 9412 035045 002000 000000 9413 035046 004000 000000 9414 035047 010000 000000 9415 035050 020000 000000 9416 035051 040000 000000 9417 035052 100000 000000 9418 035053 200000 000000 9419 035054 000000 001234 9420 035055 000000 777777 9421 035056 777777 000000 9422 035057 707070 707070 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0199 9423 035060 777777 777776 9424 035061 777777 777775 9425 035062 777777 777773 9426 035063 777777 777767 9427 035064 777777 777757 9428 035065 777777 777737 9429 035066 777777 777677 9430 035067 777777 777577 9431 035070 777777 777377 9432 035071 777777 776777 9433 035072 777777 775777 9434 035073 777777 773777 9435 035074 777777 767777 9436 035075 777777 757777 9437 035076 777777 737777 9438 035077 777777 677777 9439 035100 777777 577777 9440 035101 777777 377777 9441 035102 777776 777777 9442 035103 777775 777777 9443 035104 777773 777777 9444 035105 777767 777777 9445 035106 777757 777777 9446 035107 777737 777777 9447 035110 777677 777777 9448 035111 777577 777777 9449 035112 777377 777777 9450 035113 776777 777777 9451 035114 775777 777777 9452 035115 773777 777777 9453 035116 767777 777777 9454 035117 757777 777777 9455 035120 737777 777777 9456 035121 677777 777777 9457 035122 577777 777777 9458 LIST 9459 035123 000000 000000 ENDSLD: 0 9460 9461 IFDEF DEBUG,< 9462 PATCH: BLOCK DEBUG ;PATCHING AREA 9463 > 9464 9465 ;PROGRAM VARIABLES 9466 035124 VAR 9467 9468 IFDEF PGMEND,< 9469 035125 000000 000000 END: 0 9470 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 035126 CPU TIME USED 00:27.561 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0200 22P CORE USED A00 816# A100 871# SEQ 0201 A1000 976# A10000 7606# A10100 8024# A10200 8447# A10300 8467# A1100 991# A1200 1004# A12500 817# A12600 861# A12700 853# A1300 1018# A13000 8481# A13100 1948# A1400 1032# A1500 1046# A15000 832# A15100 843# A1600 1060# A1700 1074# A200 884# A2000 1088# A2100 1102# A2200 1115# A2300 1129# A2400 1143# A2500 1157# A2600 1170# A2700 1184# A300 898# A3000 1198# A3100 1210# A3200 1915# A3300 1933# A3400 1961# A3500 1986# A3600 2004# A3700 2022# A400 914# A4000 2073# A4100 2089# A4200 2234# A4300 2252# A4400 2270# A4500 2037# A4600 2052# A4700 2289# A500 929# A5000 2305# A5100 2321# A5200 2336# A5300 2353# A5400 2373# A5500 2386# SEQ 0202 A5600 2746# A5700 3110# A600 948# A6000 3126# A6100 3146# A6200 3164# A6300 3185# A6400 3198# A6500 4267# A6600 5047# A6700 5065# A700 963# A7000 5085# A7100 5102# A7200 5118# A7300 5132# A7400 5872# A7500 6797# A7600 7575# A7700 7592# ABORT 92# AC 2087# 2120 2120# 2121 2121# 2123 2124 2125 2149 2149# 2150 2152 2153 2154 2178 2178# 2179 2181 2182 2183 2207 2207# 2208 2210 2211 2212 AC0 687# ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 9367 BEGIN 307 308 369# 708 771 9470 BEGIN1 385# 439 BELL 561# BIS 356# CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# CRY1 356# CSHFLG 604# CSHMEM 605# SEQ 0203 CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 9461 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 9469# ENDFIX 684# ENDIT 9366# ENDSLD 9459# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# SEQ 0204 ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# SEQ 0205 LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# SEQ 0206 LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# SEQ 0207 MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 9468 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# SEQ 0208 QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SN 1207# 1232 1232# 1251 1251# 1270 1270# 1289 1289# 1308 1308# 1327 1327# 1346 1346# 1365 1365# 1384 1384# 1403 1403# 1422 1422# 1441 1441# 1460 1460# 1479 1479# 1498 1498# 1517 1517# 1536 1536# 1555 1555# 1574 1574# 1593 1593# 1612 1612# 1631 1631# 1650 1650# 1669 1669# 1688 1688# 1707 1707# 1726 1726# 1745 1745# 1764 1764# 1783 1783# 1802 1802# 1821 1821# 1840 1840# 1859 1859# 1878 1878# 1897 1897# 2086# 2119 2119# 2148 2148# 2177 2177# 2206 2206# 2383# 2407 2407# 2426 2426# 2445 2445# 2464 2464# 2483 2483# 2502 2502# 2521 2521# 2540 2540# 2559 2559# 2578 2578# 2597 2597# 2616 2616# 2635 2635# 2654 2654# 2673 2673# 2692 2692# 2711 2711# 2730 2730# 2744# 2768 2768# 2787 2787# 2806 2806# 2825 2825# 2844 2844# 2863 2863# 2882 2882# 2901 2901# 2920 2920# 2939 2939# 2958 2958# 2977 2977# 2996 2996# 3015 3015# 3034 3034# 3053 3053# 3072 3072# 3091 3091# 3195# 3228 3228# 3257 3257# 3286 3286# 3315 3315# 3344 3344# 3373 3373# 3402 3402# 3431 3431# 3460 3460# 3489 3489# 3518 3518# 3547 3547# 3576 3576# 3605 3605# 3634 3634# 3663 3663# 3692 3692# 3721 3721# 3750 3750# 3779 3779# 3808 3808# 3837 3837# 3866 3866# 3895 3895# 3924 3924# 3953 3953# 3982 3982# 4011 4011# 4040 4040# 4069 4069# 4098 4098# 4127 4127# 4156 4156# 4185 4185# 4214 4214# 4243 4243# 4264# 4290 4290# 4311 4311# 4332 4332# 4353 4353# 4374 4374# 4395 4395# 4416 4416# 4437 4437# 4458 4458# 4479 4479# 4500 4500# 4521 4521# 4542 4542# 4563 4563# 4584 4584# 4605 4605# 4626 4626# 4647 4647# 4668 4668# 4689 4689# 4710 4710# 4731 4731# 4752 4752# 4773 4773# 4794 4794# SEQ 0209 4815 4815# 4836 4836# 4857 4857# 4878 4878# 4899 4899# 4920 4920# 4941 4941# 4962 4962# 4983 4983# 5004 5004# 5025 5025# 5129# 5154 5154# 5174 5174# 5194 5194# 5214 5214# 5234 5234# 5254 5254# 5274 5274# 5294 5294# 5314 5314# 5334 5334# 5354 5354# 5374 5374# 5394 5394# 5414 5414# 5434 5434# 5454 5454# 5474 5474# 5494 5494# 5514 5514# 5534 5534# 5554 5554# 5574 5574# 5594 5594# 5614 5614# 5634 5634# 5654 5654# 5674 5674# 5694 5694# 5714 5714# 5734 5734# 5754 5754# 5774 5774# 5794 5794# 5814 5814# 5834 5834# 5854 5854# 5869# 5899 5899# 5924 5924# 5949 5949# 5974 5974# 5999 5999# 6024 6024# 6049 6049# 6074 6074# 6099 6099# 6124 6124# 6149 6149# 6174 6174# 6199 6199# 6224 6224# 6249 6249# 6274 6274# 6299 6299# 6324 6324# 6349 6349# 6374 6374# 6399 6399# 6424 6424# 6449 6449# 6474 6474# 6499 6499# 6524 6524# 6549 6549# 6574 6574# 6599 6599# 6624 6624# 6649 6649# 6674 6674# 6699 6699# 6724 6724# 6749 6749# 6774 6774# 6794# 6822 6822# 6843 6843# 6864 6864# 6885 6885# 6906 6906# 6927 6927# 6948 6948# 6969 6969# 6990 6990# 7011 7011# 7032 7032# 7053 7053# 7074 7074# 7095 7095# 7116 7116# 7137 7137# 7158 7158# 7179 7179# 7200 7200# 7221 7221# 7242 7242# 7263 7263# 7284 7284# 7305 7305# 7326 7326# 7347 7347# 7368 7368# 7389 7389# 7410 7410# 7431 7431# 7452 7452# 7473 7473# 7494 7494# 7515 7515# 7536 7536# 7557 7557# 7603# 7632 7632# 7654 7654# 7676 7676# 7698 7698# 7720 7720# 7742 7742# 7764 7764# 7786 7786# 7808 7808# 7830 7830# 7852 7852# 7874 7874# 7896 7896# 7918 7918# 7940 7940# 7962 7962# 7984 7984# 8006 8006# 8021# 8050 8050# 8072 8072# 8094 8094# 8116 8116# 8138 8138# 8160 8160# 8182 8182# 8204 8204# 8226 8226# 8248 8248# 8270 8270# 8292 8292# 8314 8314# 8336 8336# 8358 8358# 8380 8380# 8402 8402# 8424 8424# 8478# 8510 8510# 8534 8534# 8558 8558# 8582 8582# 8606 8606# 8630 8630# 8654 8654# 8678 8678# 8702 8702# 8726 8726# 8750 8750# 8774 8774# 8798 8798# 8822 8822# 8846 8846# 8870 8870# 8894 8894# 8918 8918# 8942 8942# 8966 8966# 8990 8990# 9014 9014# 9038 9038# 9062 9062# 9086 9086# 9110 9110# 9134 9134# 9158 9158# 9182 9182# 9206 9206# 9230 9230# 9254 9254# 9278 9278# 9302 9302# 9326 9326# 9350 9350# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 807# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 9366# 9366 TOTALS 94# TRP3TP 356# TTNBRF 611# SEQ 0210 TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# ZZ 1208# 1233 1233# 1234 1234# 1235 1252 1252# 1253 1254 1271 1271# 1272 1273 1290 1290# 1291 1292 1309 1309# 1310 1311 1328 1328# 1329 1330 1347 1347# 1348 1349 1366 1366# 1367 1368 1385 1385# 1386 1387 1404 1404# 1405 1406 1423 1423# 1424 1425 1442 1442# 1443 1444 1461 1461# 1462 1463 1480 1480# 1481 1482 1499 1499# 1500 1501 1518 1518# 1519 1520 1537 1537# 1538 1539 1556 1556# 1557 1558 1575 1575# 1576 1577 1594 1594# 1595 1596 1613 1613# 1614 1615 1632 1632# 1633 1634 1651 1651# 1652 1653 1670 1670# 1671 1672 1689 1689# 1690 1691 1708 1708# 1709 1710 1727 1727# 1728 1729 1746 1746# 1747 1748 1765 1765# 1766 1767 1784 1784# 1785 1786 1803 1803# 1804 1805 1822 1822# 1823 1824 1841 1841# 1842 1843 1860 1860# 1861 1862 1879 1879# 1880 1881 1898 1898# 1899 1900 2384# 2408 2408# 2409 2409# 2411 2427 2427# 2428 2430 2446 2446# 2447 2449 2465 2465# 2466 2468 2484 2484# 2485 2487 2503 2503# 2504 2506 2522 2522# 2523 2525 2541 2541# 2542 2544 2560 2560# 2561 2563 2579 2579# 2580 2582 2598 2598# 2599 2601 2617 2617# 2618 2620 2636 2636# 2637 2639 2655 2655# 2656 2658 2674 2674# 2675 2677 2693 2693# 2694 2696 2712 2712# 2713 2715 2731 2731# 2732 2734 2769 2769# 2771 2788 2788# 2790 2807 2807# 2809 2826 2826# 2828 2845 2845# 2847 2864 2864# 2866 2883 2883# 2885 2902 2902# 2904 2921 2921# 2923 2940 2940# 2942 2959 2959# 2961 2978 2978# 2980 2997 2997# 2999 3016 3016# 3018 3035 3035# 3037 3054 3054# 3056 3073 3073# 3075 3092 3092# 3094 3196# 3229 3229# 3230 3230# 3232 3258 3258# 3259 3261 3287 3287# 3288 3290 3316 3316# 3317 3319 3345 3345# 3346 3348 3374 3374# 3375 3377 3403 3403# 3404 3406 3432 3432# 3433 3435 3461 3461# 3462 3464 3490 3490# 3491 3493 3519 3519# 3520 3522 3548 3548# 3549 3551 3577 3577# 3578 3580 3606 3606# 3607 3609 3635 3635# 3636 3638 3664 3664# 3665 3667 3693 3693# 3694 3696 3722 3722# 3723 3725 3751 3751# 3752 3754 3780 3780# 3781 3783 3809 3809# 3810 3812 3838 3838# 3839 3841 3867 3867# 3868 3870 3896 3896# 3897 3899 3925 3925# 3926 3928 3954 3954# 3955 3957 3983 3983# 3984 3986 4012 4012# 4013 4015 4041 4041# 4042 4044 4070 4070# 4071 4073 4099 4099# 4100 4102 4128 4128# 4129 4131 4157 4157# 4158 4160 4186 4186# 4187 4189 4215 4215# 4216 4218 4244 4244# 4245 4247 4265# 4291 4291# 4292 4292# 4293 4312 4312# 4313 4314 4333 4333# 4334 4335 4354 4354# 4355 4356 4375 4375# 4376 4377 4396 4396# 4397 4398 4417 4417# 4418 4419 4438 4438# 4439 4440 4459 4459# 4460 4461 4480 4480# 4481 4482 4501 4501# 4502 4503 4522 4522# 4523 4524 4543 4543# 4544 4545 4564 4564# 4565 4566 4585 4585# 4586 4587 4606 4606# 4607 4608 4627 4627# 4628 4629 4648 4648# 4649 4650 4669 4669# 4670 4671 4690 4690# 4691 4692 4711 4711# 4712 4713 4732 4732# 4733 4734 4753 4753# 4754 4755 4774 4774# 4775 4776 4795 4795# 4796 4797 4816 4816# 4817 4818 4837 4837# 4838 4839 4858 4858# 4859 4860 4879 4879# 4880 4881 4900 4900# 4901 4902 4921 4921# 4922 4923 4942 4942# 4943 4944 4963 4963# 4964 4965 4984 4984# 4985 4986 5005 5005# SEQ 0211 5006 5007 5026 5026# 5027 5028 5130# 5155 5155# 5156 5156# 5158 5175 5175# 5176 5178 5195 5195# 5196 5198 5215 5215# 5216 5218 5235 5235# 5236 5238 5255 5255# 5256 5258 5275 5275# 5276 5278 5295 5295# 5296 5298 5315 5315# 5316 5318 5335 5335# 5336 5338 5355 5355# 5356 5358 5375 5375# 5376 5378 5395 5395# 5396 5398 5415 5415# 5416 5418 5435 5435# 5436 5438 5455 5455# 5456 5458 5475 5475# 5476 5478 5495 5495# 5496 5498 5515 5515# 5516 5518 5535 5535# 5536 5538 5555 5555# 5556 5558 5575 5575# 5576 5578 5595 5595# 5596 5598 5615 5615# 5616 5618 5635 5635# 5636 5638 5655 5655# 5656 5658 5675 5675# 5676 5678 5695 5695# 5696 5698 5715 5715# 5716 5718 5735 5735# 5736 5738 5755 5755# 5756 5758 5775 5775# 5776 5778 5795 5795# 5796 5798 5815 5815# 5816 5818 5835 5835# 5836 5838 5855 5855# 5856 5858 5870# 5900 5900# 5901 5901# 5902 5925 5925# 5926 5927 5950 5950# 5951 5952 5975 5975# 5976 5977 6000 6000# 6001 6002 6025 6025# 6026 6027 6050 6050# 6051 6052 6075 6075# 6076 6077 6100 6100# 6101 6102 6125 6125# 6126 6127 6150 6150# 6151 6152 6175 6175# 6176 6177 6200 6200# 6201 6202 6225 6225# 6226 6227 6250 6250# 6251 6252 6275 6275# 6276 6277 6300 6300# 6301 6302 6325 6325# 6326 6327 6350 6350# 6351 6352 6375 6375# 6376 6377 6400 6400# 6401 6402 6425 6425# 6426 6427 6450 6450# 6451 6452 6475 6475# 6476 6477 6500 6500# 6501 6502 6525 6525# 6526 6527 6550 6550# 6551 6552 6575 6575# 6576 6577 6600 6600# 6601 6602 6625 6625# 6626 6627 6650 6650# 6651 6652 6675 6675# 6676 6677 6700 6700# 6701 6702 6725 6725# 6726 6727 6750 6750# 6751 6752 6775 6775# 6776 6777 6795# 6823 6823# 6824 6824# 6825 6826 6844 6844# 6845 6846 6847 6865 6865# 6866 6867 6868 6886 6886# 6887 6888 6889 6907 6907# 6908 6909 6910 6928 6928# 6929 6930 6931 6949 6949# 6950 6951 6952 6970 6970# 6971 6972 6973 6991 6991# 6992 6993 6994 7012 7012# 7013 7014 7015 7033 7033# 7034 7035 7036 7054 7054# 7055 7056 7057 7075 7075# 7076 7077 7078 7096 7096# 7097 7098 7099 7117 7117# 7118 7119 7120 7138 7138# 7139 7140 7141 7159 7159# 7160 7161 7162 7180 7180# 7181 7182 7183 7201 7201# 7202 7203 7204 7222 7222# 7223 7224 7225 7243 7243# 7244 7245 7246 7264 7264# 7265 7266 7267 7285 7285# 7286 7287 7288 7306 7306# 7307 7308 7309 7327 7327# 7328 7329 7330 7348 7348# 7349 7350 7351 7369 7369# 7370 7371 7372 7390 7390# 7391 7392 7393 7411 7411# 7412 7413 7414 7432 7432# 7433 7434 7435 7453 7453# 7454 7455 7456 7474 7474# 7475 7476 7477 7495 7495# 7496 7497 7498 7516 7516# 7517 7518 7519 7537 7537# 7538 7539 7540 7558 7558# 7559 7560 7561 7604# 7633 7633# 7634 7634# 7636 7655 7655# 7656 7658 7677 7677# 7678 7680 7699 7699# 7700 7702 7721 7721# 7722 7724 7743 7743# 7744 7746 7765 7765# 7766 7768 7787 7787# 7788 7790 7809 7809# 7810 7812 7831 7831# 7832 7834 7853 7853# 7854 7856 7875 7875# 7876 7878 7897 7897# 7898 7900 7919 7919# 7920 7922 7941 7941# 7942 7944 7963 7963# 7964 7966 7985 7985# 7986 7988 8007 8007# 8008 8010 8022# 8051 8051# 8052 8052# 8054 8073 8073# 8074 8076 8095 8095# 8096 8098 8117 8117# 8118 8120 8139 8139# 8140 8142 8161 8161# 8162 8164 8183 8183# 8184 8186 8205 8205# 8206 8208 8227 8227# 8228 8230 8249 8249# 8250 8252 8271 8271# 8272 8274 8293 8293# 8294 8296 8315 8315# 8316 8318 8337 8337# 8338 8340 8359 8359# 8360 8362 8381 8381# 8382 8384 8403 8403# 8404 8406 8425 8425# 8426 8428 8479# 8511 8511# 8512 8512# 8513 8514 8515 8535 8535# 8536 8537 8538 8539 8559 8559# 8560 8561 8562 8563 8583 8583# 8584 8585 8586 8587 8607 8607# 8608 8609 8610 8611 8631 8631# 8632 8633 8634 8635 8655 8655# 8656 8657 8658 8659 8679 8679# 8680 8681 8682 8683 8703 8703# 8704 8705 8706 8707 8727 8727# 8728 8729 8730 8731 8751 8751# 8752 8753 8754 8755 8775 8775# 8776 8777 8778 8779 8799 8799# 8800 8801 8802 8803 8823 8823# 8824 8825 8826 8827 8847 8847# 8848 8849 8850 8851 8871 8871# 8872 8873 8874 8875 8895 8895# 8896 8897 8898 8899 8919 8919# 8920 8921 8922 8923 8943 8943# 8944 8945 SEQ 0212 8946 8947 8967 8967# 8968 8969 8970 8971 8991 8991# 8992 8993 8994 8995 9015 9015# 9016 9017 9018 9019 9039 9039# 9040 9041 9042 9043 9063 9063# 9064 9065 9066 9067 9087 9087# 9088 9089 9090 9091 9111 9111# 9112 9113 9114 9115 9135 9135# 9136 9137 9138 9139 9159 9159# 9160 9161 9162 9163 9183 9183# 9184 9185 9186 9187 9207 9207# 9208 9209 9210 9211 9231 9231# 9232 9233 9234 9235 9255 9255# 9256 9257 9258 9259 9279 9279# 9280 9281 9282 9283 9303 9303# 9304 9305 9306 9307 9327 9327# 9328 9329 9330 9331 9351 9351# 9352 9353 9354 9355 $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# SEQ 0213 $ITRX1 451# $LPAPE 9373 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# SEQ 0214 .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0215 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 818 834 845 855 862 874 887 901 918 933 952 966 980 994 1008 1022 1035 1049 1064 1078 1091 1105 1119 1132 1146 1160 1173 1187 1201 1238 1257 1276 1295 1314 1333 1352 1371 1390 1409 1428 1447 1466 1485 1504 1523 1542 1561 1580 1599 1618 1637 1656 1675 1694 1713 1732 1751 1770 1789 1808 1827 1846 1865 1884 1903 1918 1936 1951 1967 1992 2010 2028 2041 2055 2080 2127 2133 2156 2162 2185 2191 2214 2220 2238 2257 2275 2293 2309 2325 2340 2357 2377 2414 2433 2452 2471 2490 2509 2528 2547 2566 2585 2604 2623 2642 2661 2680 2699 2718 2737 2774 2793 2812 2831 2850 2869 2888 2907 2926 2945 2964 2983 3002 3021 3040 3059 3078 3097 3114 3130 3150 3168 3189 3237 3243 3266 3272 3295 3301 3324 3330 3353 3359 3382 3388 3411 3417 3440 3446 3469 3475 3498 3504 3527 3533 3556 3562 3585 3591 3614 3620 3643 3649 3672 3678 3701 3707 3730 3736 3759 3765 3788 3794 3817 3823 3846 3852 3875 3881 3904 3910 3933 3939 3962 3968 3991 3997 4020 4026 4049 4055 4078 4084 4107 4113 4136 4142 4165 4171 4194 4200 4223 4229 4252 4258 4299 4320 4341 4362 4383 4404 4425 4446 4467 4488 4509 4530 4551 4572 4593 4614 4635 4656 4677 4698 4719 4740 4761 4782 4803 4824 4845 4866 4887 4908 4929 4950 4971 4992 5013 5034 5052 5069 5089 5107 5123 5162 5182 5202 5222 5242 5262 5282 5302 5322 5342 5362 5382 5402 5422 5442 5462 5482 5502 5522 5542 5562 5582 5602 5622 5642 5662 5682 5702 5722 5742 5762 5782 5802 5822 5842 5862 5907 5932 5957 5982 6007 6032 6057 6082 6107 6132 6157 6182 6207 6232 6257 6282 6307 6332 6357 6382 6407 6432 6457 6482 6507 6532 6557 6582 6607 6632 6657 6682 6707 6732 6757 6782 6829 6850 6871 6892 6913 6934 6955 6976 6997 7018 7039 7060 7081 7102 7123 7144 7165 7186 7207 7228 7249 7270 7291 7312 7333 7354 7375 7396 7417 7438 7459 7480 7501 7522 7543 7564 7579 7597 7640 7662 7684 7706 7728 7750 7772 7794 7816 7838 7860 7882 7904 7926 SEQ 0216 7948 7970 7992 8014 8058 8080 8102 8124 8146 8168 8190 8212 8234 8256 8278 8300 8322 8344 8366 8388 8410 8432 8452 8472 8519 8543 8567 8591 8615 8639 8663 8687 8711 8735 8759 8783 8807 8831 8855 8879 8903 8927 8951 8975 8999 9023 9047 9071 9095 9119 9143 9167 9191 9215 9239 9263 9287 9311 9335 9359 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# SEQ 0217 PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# SIXBTZ 261# STOP 48# 873 886 900 917 932 951 965 979 993 1007 1021 1034 1048 1063 1077 1090 1104 1118 1131 1145 1159 1172 1186 1200 1237 1256 1275 1294 1313 1332 1351 1370 1389 1408 1427 1446 1465 1484 1503 1522 1541 1560 1579 1598 1617 1636 1655 1674 1693 1712 1731 1750 1769 1788 1807 1826 1845 1864 1883 1902 1917 1935 1950 1966 1991 2009 2027 2040 2054 SEQ 0218 2079 2126 2132 2155 2161 2184 2190 2213 2219 2237 2256 2274 2292 2308 2324 2339 2356 2376 2413 2432 2451 2470 2489 2508 2527 2546 2565 2584 2603 2622 2641 2660 2679 2698 2717 2736 2773 2792 2811 2830 2849 2868 2887 2906 2925 2944 2963 2982 3001 3020 3039 3058 3077 3096 3113 3129 3149 3167 3188 3236 3242 3265 3271 3294 3300 3323 3329 3352 3358 3381 3387 3410 3416 3439 3445 3468 3474 3497 3503 3526 3532 3555 3561 3584 3590 3613 3619 3642 3648 3671 3677 3700 3706 3729 3735 3758 3764 3787 3793 3816 3822 3845 3851 3874 3880 3903 3909 3932 3938 3961 3967 3990 3996 4019 4025 4048 4054 4077 4083 4106 4112 4135 4141 4164 4170 4193 4199 4222 4228 4251 4257 4298 4319 4340 4361 4382 4403 4424 4445 4466 4487 4508 4529 4550 4571 4592 4613 4634 4655 4676 4697 4718 4739 4760 4781 4802 4823 4844 4865 4886 4907 4928 4949 4970 4991 5012 5033 5051 5068 5088 5106 5122 5161 5181 5201 5221 5241 5261 5281 5301 5321 5341 5361 5381 5401 5421 5441 5461 5481 5501 5521 5541 5561 5581 5601 5621 5641 5661 5681 5701 5721 5741 5761 5781 5801 5821 5841 5861 5906 5931 5956 5981 6006 6031 6056 6081 6106 6131 6156 6181 6206 6231 6256 6281 6306 6331 6356 6381 6406 6431 6456 6481 6506 6531 6556 6581 6606 6631 6656 6681 6706 6731 6756 6781 6828 6849 6870 6891 6912 6933 6954 6975 6996 7017 7038 7059 7080 7101 7122 7143 7164 7185 7206 7227 7248 7269 7290 7311 7332 7353 7374 7395 7416 7437 7458 7479 7500 7521 7542 7563 7578 7596 7639 7661 7683 7705 7727 7749 7771 7793 7815 7837 7859 7881 7903 7925 7947 7969 7991 8013 8057 8079 8101 8123 8145 8167 8189 8211 8233 8255 8277 8299 8321 8343 8365 8387 8409 8431 8451 8471 8518 8542 8566 8590 8614 8638 8662 8686 8710 8734 8758 8782 8806 8830 8854 8878 8902 8926 8950 8974 8998 9022 9046 9070 9094 9118 9142 9166 9190 9214 9238 9262 9286 9310 9334 9358 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# SEQ 0219 WRTIM 356# WRUBR 356# AND 3186 3234 3263 3292 3321 3350 3379 3408 3437 3466 3495 3524 3553 3582 3611 3640 3669 3698 3727 3756 3785 3814 3843 3872 3901 3930 3959 3988 SEQ 0220 4017 4046 4075 4104 4133 4162 4191 4220 4249 4294 4315 4336 4357 4378 4399 4420 4441 4462 4483 4504 4525 4546 4567 4588 4609 4630 4651 4672 4693 4714 4735 4756 4777 4798 4819 4840 4861 4882 4903 4924 4945 4966 4987 5008 5029 5048 5066 5086 5103 8514 8538 8562 8586 8610 8634 8658 8682 8706 8730 8754 8778 8802 8826 8850 8874 8898 8922 8946 8970 8994 9018 9042 9066 9090 9114 9138 9162 9186 9210 9234 9258 9282 9306 9330 9354 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAI 1987 2005 CAM 1962 2023 DEFINE 9 48 56 84 252 255 261 335 346 END 9470 EQV 7593 7636 7658 7680 7702 7724 7746 7768 7790 7812 7834 7856 7878 7900 7922 7944 7966 7988 8010 8054 8076 8098 8120 8142 8164 8186 8208 8230 8252 8274 8296 8318 8340 8362 8384 8406 8428 8448 8449 8468 8469 8515 8516 8539 8540 8563 8564 8587 8588 8611 8612 8635 8636 8659 8660 8683 8684 8707 8708 8731 8732 8755 8756 8779 8780 8803 8804 8827 8828 8851 8852 8875 8876 8899 8900 8923 8924 8947 8948 8971 8972 8995 8996 9019 9020 9043 9044 9067 9068 9091 9092 9115 9116 9139 9140 9163 9164 9187 9188 9211 9212 9235 9236 9259 9260 9283 9284 9307 9308 9331 9332 9355 9356 HRRS 2272 IFDEF 356 407 408 409 410 9461 9468 IFE 1234 1253 1272 1291 1310 1329 1348 1367 1386 1405 1424 1443 1462 1481 1500 1519 1538 1557 1576 1595 1614 1633 1652 1671 1690 1709 1728 1747 1766 1785 1804 1823 1842 1861 1880 1899 2121 2150 2179 2208 2409 2428 2447 2466 2485 2504 2523 2542 2561 2580 2599 2618 2637 2656 2675 2694 2713 2732 3230 3259 3288 3317 3346 3375 3404 3433 3462 3491 3520 3549 3578 3607 3636 3665 3694 3723 3752 3781 3810 3839 3868 3897 3926 3955 3984 4013 4042 4071 4100 4129 4158 4187 4216 4245 4292 4313 4334 4355 4376 4397 4418 4439 4460 4481 4502 4523 4544 4565 4586 4607 4628 4649 4670 4691 4712 4733 4754 4775 4796 4817 4838 4859 4880 4901 4922 4943 4964 4985 5006 5027 5156 5176 5196 5216 5236 5256 5276 5296 5316 5336 5356 5376 5396 5416 5436 5456 5476 5496 5516 5536 5556 5576 5596 5616 5636 5656 5676 5696 5716 5736 5756 5776 5796 5816 5836 5856 5901 5926 5951 5976 6001 6026 6051 6076 6101 6126 6151 6176 6201 6226 6251 6276 6301 6326 6351 6376 6401 6426 6451 6476 6501 6526 6551 6576 6601 6626 6651 6676 6701 6726 6751 6776 6824 6845 6866 6887 6908 6929 6950 6971 6992 7013 7034 7055 7076 7097 7118 7139 7160 7181 7202 7223 7244 7265 7286 7307 7328 7349 7370 7391 7412 7433 7454 7475 7496 7517 7538 7559 7634 7656 7678 7700 7722 7744 7766 7788 7810 7832 7854 7876 7898 7920 7942 7964 7986 8008 8052 8074 8096 8118 8140 8162 8184 8206 8228 8250 8272 8294 8316 8338 8360 8382 8404 8426 8512 8536 8560 8584 8608 8632 8656 8680 8704 8728 8752 8776 8800 8824 8848 8872 8896 8920 8944 8968 8992 9016 9040 9064 9088 9112 9136 9160 9184 9208 9232 9256 9280 9304 9328 9352 IFNDEF 307 308 318 407 408 409 410 489 9373 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 SEQ 0221 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 807 9367 JSP 166 743 776 JUMP 832 843 2290 JUMPA 853 861 875 888 902 919 934 953 967 981 995 1009 1023 1036 1050 1065 1079 1092 1106 1120 1133 1147 1161 1174 1188 1202 1239 1258 1277 1296 1315 1334 1353 1372 1391 1410 1429 1448 1467 1486 1505 1524 1543 1562 1581 1600 1619 1638 1657 1676 1695 1714 1733 1752 1771 1790 1809 1828 1847 1866 1885 1904 1919 1937 1952 1968 1993 2011 2029 2042 2056 2081 2128 2134 2157 2163 2186 2192 2215 2221 2239 2258 2276 2294 2310 2326 2341 2358 2378 2415 2434 2453 2472 2491 2510 2529 2548 2567 2586 2605 2624 2643 2662 2681 2700 2719 2738 2775 2794 2813 2832 2851 2870 2889 2908 2927 2946 2965 2984 3003 3022 3041 3060 3079 3098 3115 3131 3151 3169 3190 3238 3244 3267 3273 3296 3302 3325 3331 3354 3360 3383 3389 3412 3418 3441 3447 3470 3476 3499 3505 3528 3534 3557 3563 3586 3592 3615 3621 3644 3650 3673 3679 3702 3708 3731 3737 3760 3766 3789 3795 3818 3824 3847 3853 3876 3882 3905 3911 3934 3940 3963 3969 3992 3998 4021 4027 4050 4056 4079 4085 4108 4114 4137 4143 4166 4172 4195 4201 4224 4230 4253 4259 4300 4321 4342 4363 4384 4405 4426 4447 4468 4489 4510 4531 4552 4573 4594 4615 4636 4657 4678 4699 4720 4741 4762 4783 4804 4825 4846 4867 4888 4909 4930 4951 4972 4993 5014 5035 5053 5070 5090 5108 5124 5163 5183 5203 5223 5243 5263 5283 5303 5323 5343 5363 5383 5403 5423 5443 5463 5483 5503 5523 5543 5563 5583 5603 5623 5643 5663 5683 5703 5723 5743 5763 5783 5803 5823 5843 5863 5908 5933 5958 5983 6008 6033 6058 6083 6108 6133 6158 6183 6208 6233 6258 6283 6308 6333 6358 6383 6408 6433 6458 6483 6508 6533 6558 6583 6608 6633 6658 6683 6708 6733 6758 6783 6830 6851 6872 6893 6914 6935 6956 6977 6998 7019 7040 7061 7082 7103 7124 7145 7166 7187 7208 7229 7250 7271 7292 7313 7334 7355 7376 7397 7418 7439 7460 7481 7502 7523 7544 7565 7580 7598 7641 7663 7685 7707 7729 7751 7773 7795 7817 7839 7861 7883 7905 7927 7949 7971 7993 8015 8059 8081 8103 8125 8147 8169 8191 8213 8235 8257 8279 8301 8323 8345 8367 8389 8411 8433 8453 8473 8520 8544 8568 8592 8616 8640 8664 8688 8712 8736 8760 8784 8808 8832 8856 8880 8904 8928 8952 8976 9000 9024 9048 9072 9096 9120 9144 9168 9192 9216 9240 9264 9288 9312 9336 9360 LALL 10 LIST 9 318 356 489 9373 9458 LIT 9374 LOC 26 359 683 703 707 710 715 733 738 MOVE 871 884 898 914 929 948 963 976 991 1004 1018 1032 1046 1060 1074 1088 1102 1115 1129 1143 1157 1170 1184 1198 1235 1254 1273 1292 1311 1330 1349 1368 1387 1406 1425 1444 1463 1482 1501 1520 1539 1558 1577 1596 1615 1634 1653 1672 1691 1710 1729 1748 1767 1786 1805 1824 1843 1862 1881 1900 1933 1948 1961 1963 1986 1988 2004 2006 2022 2024 2037 2038 2052 2073 2074 2076 2122 2123 2151 2152 2180 2181 2209 2210 2234 2252 2253 2270 2271 2289 2305 2321 2336 2353 2373 2410 2429 2448 2467 2486 2505 2524 2543 2562 2581 2600 2619 2638 2657 2676 2695 2714 2733 2770 2789 2808 2827 2846 2865 2884 2903 2922 2941 2960 2979 2998 3017 3036 3055 3074 3093 3110 3126 3146 3164 3185 3232 3261 3290 3319 3348 3377 3406 3435 3464 3493 3522 3551 3580 3609 3638 3667 3696 3725 3754 3783 3812 3841 3870 3899 3928 3957 3986 4015 4044 4073 4102 4131 4160 4189 4218 4247 4293 4314 4335 4356 4377 4398 4419 4440 4461 4482 SEQ 0222 4503 4524 4545 4566 4587 4608 4629 4650 4671 4692 4713 4734 4755 4776 4797 4818 4839 4860 4881 4902 4923 4944 4965 4986 5007 5028 5047 5065 5085 5102 5118 5157 5177 5197 5217 5237 5257 5277 5297 5317 5337 5357 5377 5397 5417 5437 5457 5477 5497 5517 5537 5557 5577 5597 5617 5637 5657 5677 5697 5717 5737 5757 5777 5797 5817 5837 5857 5902 5927 5952 5977 6002 6027 6052 6077 6102 6127 6152 6177 6202 6227 6252 6277 6302 6327 6352 6377 6402 6427 6452 6477 6502 6527 6552 6577 6602 6627 6652 6677 6702 6727 6752 6777 6825 6846 6867 6888 6909 6930 6951 6972 6993 7014 7035 7056 7077 7098 7119 7140 7161 7182 7203 7224 7245 7266 7287 7308 7329 7350 7371 7392 7413 7434 7455 7476 7497 7518 7539 7560 7575 7592 7635 7657 7679 7701 7723 7745 7767 7789 7811 7833 7855 7877 7899 7921 7943 7965 7987 8009 8053 8075 8097 8119 8141 8163 8185 8207 8229 8251 8273 8295 8317 8339 8361 8383 8405 8427 8447 8467 8513 8537 8561 8585 8609 8633 8657 8681 8705 8729 8753 8777 8801 8825 8849 8873 8897 8921 8945 8969 8993 9017 9041 9065 9089 9113 9137 9161 9185 9209 9233 9257 9281 9305 9329 9353 MOVEI 1915 MOVS 2306 2322 2337 2354 2374 2411 2430 2449 2468 2487 2506 2525 2544 2563 2582 2601 2620 2639 2658 2677 2696 2715 2734 2771 2790 2809 2828 2847 2866 2885 2904 2923 2942 2961 2980 2999 3018 3037 3056 3075 3094 MOVSS 2254 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 1210 2089 2386 2746 3198 4267 5132 5872 6797 7606 8024 8481 SETM 3111 3127 SETOM 745 752 778 SETZ 3147 3165 3231 3260 3289 3318 3347 3376 3405 3434 3463 3492 3521 3550 3579 3608 3637 3666 3695 3724 3753 3782 3811 3840 3869 3898 3927 3956 3985 4014 4043 4072 4101 4130 4159 4188 4217 4246 SETZM 742 747 775 780 9366 SIXBIT 77 78 574 575 583 584 SKIP 915 1005 2124 2153 2182 2211 2235 SKIPA 817 833 844 854 872 885 916 931 950 978 1006 1020 1062 1076 1117 SKIPE 748 762 768 977 992 1965 1990 2008 2026 2053 2078 2131 2160 2189 2218 2236 2255 2273 2291 2307 3128 3148 3166 3187 3235 3241 3264 3270 3293 3299 3322 3328 3351 3357 3380 3386 3409 3415 3438 3444 3467 3473 3496 3502 3525 3531 3554 3560 3583 3589 3612 3618 3641 3647 3670 3676 3699 3705 3728 3734 3757 3763 3786 3792 3815 3821 3844 3850 3873 3879 3902 3908 3931 3937 3960 3966 3989 3995 4018 4024 4047 4053 4076 4082 4105 4111 4134 4140 4163 4169 4192 4198 4221 4227 4250 4256 5050 5067 5087 6827 6848 6869 6890 6911 6932 6953 6974 6995 7016 7037 7058 7079 SEQ 0223 7100 7121 7142 7163 7184 7205 7226 7247 7268 7289 7310 7331 7352 7373 7394 7415 7436 7457 7478 7499 7520 7541 7562 7577 7595 8450 8470 8517 8541 8565 8589 8613 8637 8661 8685 8709 8733 8757 8781 8805 8829 8853 8877 8901 8925 8949 8973 8997 9021 9045 9069 9093 9117 9141 9165 9189 9213 9237 9261 9285 9309 9333 9357 SKIPG 1047 1061 1916 2355 SKIPGE 899 930 SKIPL 783 1019 1033 1075 1934 1949 2375 3112 SKIPLE 1089 1103 1116 SKIPN 746 751 759 764 770 779 781 949 964 1130 1144 1158 1171 1185 1199 1236 1255 1274 1293 1312 1331 1350 1369 1388 1407 1426 1445 1464 1483 1502 1521 1540 1559 1578 1597 1616 1635 1654 1673 1692 1711 1730 1749 1768 1787 1806 1825 1844 1863 1882 1901 2039 2125 2154 2183 2212 2323 2338 2412 2431 2450 2469 2488 2507 2526 2545 2564 2583 2602 2621 2640 2659 2678 2697 2716 2735 2772 2791 2810 2829 2848 2867 2886 2905 2924 2943 2962 2981 3000 3019 3038 3057 3076 3095 4297 4318 4339 4360 4381 4402 4423 4444 4465 4486 4507 4528 4549 4570 4591 4612 4633 4654 4675 4696 4717 4738 4759 4780 4801 4822 4843 4864 4885 4906 4927 4948 4969 4990 5011 5032 5105 5121 5160 5180 5200 5220 5240 5260 5280 5300 5320 5340 5360 5380 5400 5420 5440 5460 5480 5500 5520 5540 5560 5580 5600 5620 5640 5660 5680 5700 5720 5740 5760 5780 5800 5820 5840 5860 5905 5930 5955 5980 6005 6030 6055 6080 6105 6130 6155 6180 6205 6230 6255 6280 6305 6330 6355 6380 6405 6430 6455 6480 6505 6530 6555 6580 6605 6630 6655 6680 6705 6730 6755 6780 7638 7660 7682 7704 7726 7748 7770 7792 7814 7836 7858 7880 7902 7924 7946 7968 7990 8012 8056 8078 8100 8122 8144 8166 8188 8210 8232 8254 8276 8298 8320 8342 8364 8386 8408 8430 SOS 758 2075 SUBTTL 30 82 117 319 356 357 685 773 808 1910 2227 3104 9368 TITLE 14 TLNE 744 777 TTCALL 784 VAR 9466 XLIST 8 317 355 488 9372 XOR 5119 5158 5178 5198 5218 5238 5258 5278 5298 5318 5338 5358 5378 5398 5418 5438 5458 5478 5498 5518 5538 5558 5578 5598 5618 5638 5658 5678 5698 5718 5738 5758 5778 5798 5818 5838 5858 5903 5928 5953 5978 6003 6028 6053 6078 6103 6128 6153 6178 6203 6228 6253 6278 6303 6328 6353 6378 6403 6428 6453 6478 6503 6528 6553 6578 6603 6628 6653 6678 6703 6728 6753 6778 6826 6847 6868 6889 6910 6931 6952 6973 6994 7015 7036 7057 7078 7099 7120 7141 7162 7183 7204 7225 7246 7267 7288 7309 7330 7351 7372 7393 7414 7435 7456 7477 7498 7519 7540 7561 7576 XWD 1046 1074 1102 1115 1129 1143 1198 2321 2336 2353 2373 7636 7658 7680 7702 7724 7746 7768 7790 7812 7834 7856 7878 7900 7922 7944 7966 7988 8010 8054 8076 8098 8120 8142 8164 8186 8208 8230 8252 8274 8296 8318 8340 8362 8384 8406 8428 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0224 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *030663 JUMP 0,030664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030664 ---------- *030664 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030666 JUMP 0,030670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030670 ---------- *030667 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030671 JUMPA 0,030672 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030672 ---------- *030672 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *030674 JUMPA 0,030676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030676 ---------- *030676 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030677 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030701 JUMPA 0,030702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030702 ---------- *030702 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030703 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *030705 JUMPA 0,030706 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030706 ---------- *030706 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030707 SKIPGE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030711 JUMPA 0,030712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030712 ---------- *030712 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030713 SKIP 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *030714 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030716 JUMPA 0,030717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030717 ---------- *030717 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030720 SKIPGE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030721 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *030723 JUMPA 0,030724 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030724 ---------- *030724 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030725 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030726 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030730 JUMPA 0,030731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030731 ---------- *030731 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *030732 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030734 JUMPA 0,030735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030735 ---------- *030735 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030736 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030737 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *030741 JUMPA 0,030742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030742 ---------- *030742 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030743 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030745 JUMPA 0,030746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030746 ---------- *030746 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030747 SKIP 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *030750 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030752 JUMPA 0,030753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030753 ---------- *030753 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030754 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030755 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *030757 JUMPA 0,030760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030760 ---------- *030760 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030761 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030763 JUMPA 0,030764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030764 ---------- *030764 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *030765 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *030767 JUMPA 0,030770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 030770 ---------- *030770 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030771 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030772 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030774 JUMPA 0,030775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030775 ---------- *030775 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *030776 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *030777 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031001 JUMPA 0,031002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 031002 ---------- *031002 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031003 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031005 JUMPA 0,031006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031006 ---------- *031006 MOVE 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031007 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031011 JUMPA 0,031012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 031012 ---------- *031012 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031013 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031014 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031016 JUMPA 0,031017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 031017 ---------- *031017 MOVE 0,035004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 777000 000000 FINAL C(AC)= 777000 000000 ---------- *031020 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 C(E)= 777000 000000 FINAL C(AC)= 777000 000000 ---------- *031022 JUMPA 0,031023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 E= 000000 031023 ---------- *031023 MOVE 0,035005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 C(E)= 000377 000000 FINAL C(AC)= 000377 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031024 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 C(E)= 000377 000000 FINAL C(AC)= 000377 000000 ---------- *031026 JUMPA 0,031027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 E= 000000 031027 ---------- *031027 MOVE 0,035006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 C(E)= 000000 177000 FINAL C(AC)= 000000 177000 ---------- *031030 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 C(E)= 000000 177000 FINAL C(AC)= 000000 177000 ---------- *031032 JUMPA 0,031033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 E= 000000 031033 ---------- *031033 MOVE 0,035007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 C(E)= 000000 000777 FINAL C(AC)= 000000 000777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031034 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 000777 FINAL C(AC)= 000000 000777 ---------- *031036 JUMPA 0,031037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 E= 000000 031037 ---------- *031037 MOVE 0,035010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 600000 FINAL C(AC)= 000000 600000 ---------- *031040 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 C(E)= 000000 600000 FINAL C(AC)= 000000 600000 ---------- *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 E= 000000 031043 ---------- *031043 MOVE 0,035011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031044 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031046 JUMPA 0,031047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 031047 ---------- *031047 MOVE 0,035012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031050 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031052 JUMPA 0,031053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 031053 ---------- *031053 MOVE 0,035013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *031054 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031056 JUMPA 0,031057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 031057 ---------- *031057 MOVE 0,035014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031060 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031062 JUMPA 0,031063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 031063 ---------- *031063 MOVE 0,035015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *031064 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031066 JUMPA 0,031067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 031067 ---------- *031067 MOVE 0,035016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031070 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031072 JUMPA 0,031073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 031073 ---------- *031073 MOVE 0,035017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *031074 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 031077 ---------- *031077 MOVE 0,035020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031100 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031102 JUMPA 0,031103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 031103 ---------- *031103 MOVE 0,035021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *031104 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031106 JUMPA 0,031107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 031107 ---------- *031107 MOVE 0,035022 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031110 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031112 JUMPA 0,031113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 031113 ---------- *031113 MOVE 0,035023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *031114 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031116 JUMPA 0,031117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 031117 ---------- *031117 MOVE 0,035024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031120 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031122 JUMPA 0,031123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 031123 ---------- *031123 MOVE 0,035025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *031124 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031126 JUMPA 0,031127 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 031127 ---------- *031127 MOVE 0,035026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031130 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031132 JUMPA 0,031133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 031133 ---------- *031133 MOVE 0,035027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *031134 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031136 JUMPA 0,031137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 031137 ---------- *031137 MOVE 0,035030 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031140 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031142 JUMPA 0,031143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 031143 ---------- *031143 MOVE 0,035031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *031144 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031146 JUMPA 0,031147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 031147 ---------- *031147 MOVE 0,035032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031150 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031152 JUMPA 0,031153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 031153 ---------- *031153 MOVE 0,035033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *031154 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031156 JUMPA 0,031157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 031157 ---------- *031157 MOVE 0,035034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031160 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031162 JUMPA 0,031163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 031163 ---------- *031163 MOVE 0,035035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *031164 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031166 JUMPA 0,031167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 031167 ---------- *031167 MOVE 0,035036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031170 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031172 JUMPA 0,031173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 031173 ---------- *031173 MOVE 0,035037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *031174 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031176 JUMPA 0,031177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 031177 ---------- *031177 MOVE 0,035040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031200 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031202 JUMPA 0,031203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 031203 ---------- *031203 MOVE 0,035041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *031204 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031206 JUMPA 0,031207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 031207 ---------- *031207 MOVE 0,035042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031210 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031212 JUMPA 0,031213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 031213 ---------- *031213 MOVE 0,035043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *031214 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031216 JUMPA 0,031217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 031217 ---------- *031217 MOVE 0,035011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031220 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031222 JUMPA 0,031223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 031223 ---------- *031223 MOVE 0,035044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *031224 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031226 JUMPA 0,031227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 031227 ---------- *031227 MOVE 0,035045 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031230 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031232 JUMPA 0,031233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 031233 ---------- *031233 MOVE 0,035046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *031234 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031236 JUMPA 0,031237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 031237 ---------- *031237 MOVE 0,035047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031240 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031242 JUMPA 0,031243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 031243 ---------- *031243 MOVE 0,035050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *031244 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031246 JUMPA 0,031247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 031247 ---------- *031247 MOVE 0,035051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031250 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031252 JUMPA 0,031253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 031253 ---------- *031253 MOVE 0,035052 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *031254 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031256 JUMPA 0,031257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 031257 ---------- *031257 MOVE 0,035053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031260 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031262 JUMPA 0,031263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 031263 ---------- *031263 MOVE 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *031264 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031266 JUMPA 0,031267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 031267 ---------- *031267 MOVEI 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 035001 FINAL C(AC)= 000000 035001 ---------- *031270 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 C(E)= 000000 035001 FINAL C(AC)= 000000 035001 ---------- *031272 JUMPA 0,031273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 E= 000000 031273 ---------- *031273 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *031274 SKIPL 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031276 JUMPA 0,031277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031277 ---------- *031277 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031300 SKIPL 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *031302 JUMPA 0,031303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031303 ---------- *031303 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *031304 CAM 0,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 ---------- *031305 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031306 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031310 JUMPA 0,031311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031311 ---------- *031311 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031312 CAI 0,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 035054 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *031313 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031314 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031316 JUMPA 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031317 ---------- *031317 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031320 CAI 17,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 035054 ---------- *031321 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *031322 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031324 JUMPA 0,031325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031325 ---------- *031325 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031326 CAM 17,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 ---------- *031327 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031330 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *031332 JUMPA 0,031333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031333 ---------- *031333 MOVE 1,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031334 MOVE 1,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031335 SKIPN 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031337 JUMPA 0,031340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031340 ---------- *031340 MOVE 1,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *031341 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031343 JUMPA 0,031344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031344 ---------- *031344 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031345 MOVE 7,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 FINAL C(AC)= 000000 001234 ---------- *031346 SOS 0,000007 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 FINAL C(AC)= 000000 000000 C(E)= 000000 001233 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *031347 MOVE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031350 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031352 JUMPA 0,031353 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031353 ---------- *031353 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031354 MOVE 1,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *031355 SKIP 1,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031356 SKIPN 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031360 JUMPA 0,031361 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031361 ---------- *031361 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031363 JUMPA 0,031364 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031364 ---------- *031364 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *031365 MOVE 2,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031366 SKIP 2,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031367 SKIPN 0,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031371 JUMPA 0,031372 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031372 ---------- *031372 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *031374 JUMPA 0,031375 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031375 ---------- *031375 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031376 MOVE 4,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031377 SKIP 4,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031400 SKIPN 0,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *031402 JUMPA 0,031403 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031403 ---------- *031403 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031405 JUMPA 0,031406 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031406 ---------- *031406 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031407 MOVE 10,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031410 SKIP 10,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *031411 SKIPN 0,000010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031413 JUMPA 0,031414 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031414 ---------- *031414 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031416 JUMPA 0,031417 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031417 ---------- *031417 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031420 SKIP 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *031421 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031423 JUMPA 0,031424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031424 ---------- *031424 MOVE 7,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001233 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031425 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031426 MOVSS 0,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *031427 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031431 JUMPA 0,031432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031432 ---------- *031432 MOVE 7,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031433 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031434 HRRS 0,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *031435 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031437 JUMPA 0,031440 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031440 ---------- *031440 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031441 JUMP 0,031442 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031442 ---------- *031442 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031444 JUMPA 0,031445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031445 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *031445 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031446 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031447 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031451 JUMPA 0,031452 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031452 ---------- *031452 MOVE 0,035055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *031453 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031454 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031456 JUMPA 0,031457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 E= 000000 031457 ---------- *031457 MOVE 0,035056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031460 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *031461 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031463 JUMPA 0,031464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 031464 ---------- *031464 MOVE 0,035056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031465 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *031466 SKIPG 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *031470 JUMPA 0,031471 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 031471 ---------- *031471 MOVE 0,035055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031472 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031473 SKIPL 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031475 JUMPA 0,031476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 E= 000000 031476 ---------- *031476 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *031477 MOVS 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *031500 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031502 JUMPA 0,031503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 031503 ---------- *031503 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031504 MOVS 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *031505 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031507 JUMPA 0,031510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 031510 ---------- *031510 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031511 MOVS 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000004 000000 ---------- *031512 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *031514 JUMPA 0,031515 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 031515 ---------- *031515 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031516 MOVS 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000010 000000 ---------- *031517 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031521 JUMPA 0,031522 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 031522 ---------- *031522 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *031523 MOVS 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000020 000000 ---------- *031524 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031526 JUMPA 0,031527 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 031527 ---------- *031527 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031530 MOVS 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *031531 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031533 JUMPA 0,031534 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 031534 ---------- *031534 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031535 MOVS 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *031536 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *031540 JUMPA 0,031541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 031541 ---------- *031541 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031542 MOVS 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000200 000000 ---------- *031543 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031545 JUMPA 0,031546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 031546 ---------- *031546 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *031547 MOVS 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000400 000000 ---------- *031550 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031552 JUMPA 0,031553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 031553 ---------- *031553 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031554 MOVS 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *031555 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031557 JUMPA 0,031560 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 031560 ---------- *031560 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031561 MOVS 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 002000 000000 ---------- *031562 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *031564 JUMPA 0,031565 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 031565 ---------- *031565 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031566 MOVS 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 004000 000000 ---------- *031567 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031571 JUMPA 0,031572 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 031572 ---------- *031572 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *031573 MOVS 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 010000 000000 ---------- *031574 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031576 JUMPA 0,031577 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 031577 ---------- *031577 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031600 MOVS 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *031601 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031603 JUMPA 0,031604 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 031604 ---------- *031604 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031605 MOVS 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *031606 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *031610 JUMPA 0,031611 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 031611 ---------- *031611 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031612 MOVS 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *031613 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031615 JUMPA 0,031616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 031616 ---------- *031616 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *031617 MOVS 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *031620 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031622 JUMPA 0,031623 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 031623 ---------- *031623 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031624 MOVS 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *031625 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031627 JUMPA 0,031630 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 031630 ---------- *031630 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031631 MOVS 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000001 ---------- *031632 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *031634 JUMPA 0,031635 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 031635 ---------- *031635 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031636 MOVS 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000002 ---------- *031637 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031641 JUMPA 0,031642 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 031642 ---------- *031642 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *031643 MOVS 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000004 ---------- *031644 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031646 JUMPA 0,031647 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 031647 ---------- *031647 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031650 MOVS 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *031651 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031653 JUMPA 0,031654 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 031654 ---------- *031654 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031655 MOVS 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000020 ---------- *031656 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *031660 JUMPA 0,031661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 031661 ---------- *031661 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031662 MOVS 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000040 ---------- *031663 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031665 JUMPA 0,031666 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 031666 ---------- *031666 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *031667 MOVS 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000100 ---------- *031670 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031672 JUMPA 0,031673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 031673 ---------- *031673 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031674 MOVS 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *031675 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031677 JUMPA 0,031700 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 031700 ---------- *031700 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031701 MOVS 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000400 ---------- *031702 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *031704 JUMPA 0,031705 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 031705 ---------- *031705 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031706 MOVS 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 001000 ---------- *031707 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031711 JUMPA 0,031712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 031712 ---------- *031712 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *031713 MOVS 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 002000 ---------- *031714 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031716 JUMPA 0,031717 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 031717 ---------- *031717 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031720 MOVS 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *031721 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031723 JUMPA 0,031724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 031724 ---------- *031724 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031725 MOVS 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 010000 ---------- *031726 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *031730 JUMPA 0,031731 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 031731 ---------- *031731 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031732 MOVS 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 020000 ---------- *031733 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031735 JUMPA 0,031736 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 031736 ---------- *031736 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *031737 MOVS 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 040000 ---------- *031740 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031742 JUMPA 0,031743 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 031743 ---------- *031743 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031744 MOVS 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *031745 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031747 JUMPA 0,031750 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 031750 ---------- *031750 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031751 MOVS 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 200000 ---------- *031752 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *031754 JUMPA 0,031755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 031755 ---------- *031755 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031756 MOVS 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 400000 ---------- *031757 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031761 JUMPA 0,031762 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 031762 ---------- *031762 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *031763 SETM 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031764 SKIPL 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031766 JUMPA 0,031767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031767 ---------- *031767 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031770 SETM 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *031771 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031773 JUMPA 0,031774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031774 ---------- *031774 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031775 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031776 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *032000 JUMPA 0,032001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032001 ---------- *032001 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032002 SETZ 0,032002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 400000 032002 FINAL C(AC)= 000000 000000 ---------- *032003 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032005 JUMPA 0,032006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032006 ---------- *032006 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *032007 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032010 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032012 JUMPA 0,032013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032013 ---------- *032013 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032014 MOVE 1,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *032015 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032016 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032020 JUMPA 0,032021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032021 ---------- *032021 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032023 JUMPA 0,032024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032024 ---------- *032024 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *032025 MOVE 1,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032026 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032027 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032031 JUMPA 0,032032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032032 ---------- *032032 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *032034 JUMPA 0,032035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032035 ---------- *032035 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032036 MOVE 1,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032037 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032040 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *032042 JUMPA 0,032043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032043 ---------- *032043 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032045 JUMPA 0,032046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032046 ---------- *032046 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032047 MOVE 1,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032050 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *032051 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032053 JUMPA 0,032054 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032054 ---------- *032054 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032056 JUMPA 0,032057 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032057 ---------- *032057 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032060 MOVE 1,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *032061 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032062 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032064 JUMPA 0,032065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032065 ---------- *032065 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032067 JUMPA 0,032070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032070 ---------- *032070 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *032071 MOVE 1,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032072 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032073 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032075 JUMPA 0,032076 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032076 ---------- *032076 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *032100 JUMPA 0,032101 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032101 ---------- *032101 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032102 MOVE 1,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032103 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032104 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *032106 JUMPA 0,032107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032107 ---------- *032107 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032111 JUMPA 0,032112 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032112 ---------- *032112 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032113 MOVE 1,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032114 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *032115 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032117 JUMPA 0,032120 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032120 ---------- *032120 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032122 JUMPA 0,032123 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032123 ---------- *032123 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032124 MOVE 1,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *032125 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032126 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032130 JUMPA 0,032131 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032131 ---------- *032131 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032133 JUMPA 0,032134 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032134 ---------- *032134 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *032135 MOVE 1,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032136 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032137 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032141 JUMPA 0,032142 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032142 ---------- *032142 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *032144 JUMPA 0,032145 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032145 ---------- *032145 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032146 MOVE 1,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032147 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032150 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *032152 JUMPA 0,032153 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032153 ---------- *032153 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032155 JUMPA 0,032156 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032156 ---------- *032156 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032157 MOVE 1,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032160 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *032161 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032163 JUMPA 0,032164 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032164 ---------- *032164 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032166 JUMPA 0,032167 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032167 ---------- *032167 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032170 MOVE 1,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *032171 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032172 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032174 JUMPA 0,032175 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032175 ---------- *032175 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032177 JUMPA 0,032200 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032200 ---------- *032200 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *032201 MOVE 1,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032202 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032203 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032205 JUMPA 0,032206 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032206 ---------- *032206 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *032210 JUMPA 0,032211 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032211 ---------- *032211 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032212 MOVE 1,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032213 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032214 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *032216 JUMPA 0,032217 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032217 ---------- *032217 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032221 JUMPA 0,032222 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032222 ---------- *032222 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032223 MOVE 1,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032224 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *032225 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032227 JUMPA 0,032230 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032230 ---------- *032230 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032232 JUMPA 0,032233 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032233 ---------- *032233 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032234 MOVE 1,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *032235 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032236 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032240 JUMPA 0,032241 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032241 ---------- *032241 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032243 JUMPA 0,032244 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032244 ---------- *032244 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *032245 MOVE 1,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032246 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032247 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032251 JUMPA 0,032252 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032252 ---------- *032252 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *032254 JUMPA 0,032255 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032255 ---------- *032255 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032256 MOVE 1,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032257 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032260 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *032262 JUMPA 0,032263 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032263 ---------- *032263 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032265 JUMPA 0,032266 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032266 ---------- *032266 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032267 MOVE 1,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032270 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *032271 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032273 JUMPA 0,032274 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032274 ---------- *032274 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032276 JUMPA 0,032277 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032277 ---------- *032277 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032300 MOVE 1,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *032301 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032302 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032304 JUMPA 0,032305 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032305 ---------- *032305 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032307 JUMPA 0,032310 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032310 ---------- *032310 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *032311 MOVE 1,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032312 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032313 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032315 JUMPA 0,032316 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032316 ---------- *032316 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *032320 JUMPA 0,032321 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032321 ---------- *032321 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032322 MOVE 1,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032323 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032324 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *032326 JUMPA 0,032327 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032327 ---------- *032327 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032331 JUMPA 0,032332 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032332 ---------- *032332 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032333 MOVE 1,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032334 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *032335 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032337 JUMPA 0,032340 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032340 ---------- *032340 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032342 JUMPA 0,032343 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032343 ---------- *032343 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032344 MOVE 1,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *032345 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032346 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032350 JUMPA 0,032351 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032351 ---------- *032351 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032353 JUMPA 0,032354 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032354 ---------- *032354 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *032355 MOVE 1,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032356 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032357 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032361 JUMPA 0,032362 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032362 ---------- *032362 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *032364 JUMPA 0,032365 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032365 ---------- *032365 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032366 MOVE 1,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032367 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032370 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *032372 JUMPA 0,032373 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032373 ---------- *032373 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032375 JUMPA 0,032376 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032376 ---------- *032376 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032377 MOVE 1,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032400 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *032401 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032403 JUMPA 0,032404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032404 ---------- *032404 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032406 JUMPA 0,032407 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032407 ---------- *032407 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032410 MOVE 1,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *032411 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032412 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032414 JUMPA 0,032415 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032415 ---------- *032415 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032417 JUMPA 0,032420 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032420 ---------- *032420 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *032421 MOVE 1,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032422 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032423 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032425 JUMPA 0,032426 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032426 ---------- *032426 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *032430 JUMPA 0,032431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032431 ---------- *032431 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032432 MOVE 1,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032433 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032434 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *032436 JUMPA 0,032437 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032437 ---------- *032437 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032441 JUMPA 0,032442 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032442 ---------- *032442 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032443 MOVE 1,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032444 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *032445 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032447 JUMPA 0,032450 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032450 ---------- *032450 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032452 JUMPA 0,032453 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032453 ---------- *032453 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032454 MOVE 1,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *032455 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032456 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032460 JUMPA 0,032461 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032461 ---------- *032461 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032463 JUMPA 0,032464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032464 ---------- *032464 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *032465 MOVE 1,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032466 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032467 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032471 JUMPA 0,032472 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032472 ---------- *032472 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *032474 JUMPA 0,032475 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032475 ---------- *032475 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032476 MOVE 1,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032477 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032500 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *032502 JUMPA 0,032503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032503 ---------- *032503 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032505 JUMPA 0,032506 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032506 ---------- *032506 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032507 MOVE 1,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *032510 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *032511 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032513 JUMPA 0,032514 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032514 ---------- *032514 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032516 JUMPA 0,032517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032517 ---------- *032517 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032520 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *032521 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032523 JUMPA 0,032524 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032524 ---------- *032524 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032525 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032526 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *032530 JUMPA 0,032531 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032531 ---------- *032531 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032532 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032533 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032535 JUMPA 0,032536 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 032536 ---------- *032536 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *032537 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032540 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032542 JUMPA 0,032543 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 032543 ---------- *032543 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032544 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *032545 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032547 JUMPA 0,032550 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 032550 ---------- *032550 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032551 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032552 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *032554 JUMPA 0,032555 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 032555 ---------- *032555 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032556 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032557 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032561 JUMPA 0,032562 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 032562 ---------- *032562 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *032563 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032564 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032566 JUMPA 0,032567 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 032567 ---------- *032567 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032570 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *032571 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032573 JUMPA 0,032574 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 032574 ---------- *032574 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032575 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032576 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *032600 JUMPA 0,032601 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 032601 ---------- *032601 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032602 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032603 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032605 JUMPA 0,032606 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 032606 ---------- *032606 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *032607 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032610 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032612 JUMPA 0,032613 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 032613 ---------- *032613 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032614 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *032615 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032617 JUMPA 0,032620 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 032620 ---------- *032620 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032621 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032622 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *032624 JUMPA 0,032625 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 032625 ---------- *032625 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032626 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032627 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032631 JUMPA 0,032632 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 032632 ---------- *032632 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *032633 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032634 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032636 JUMPA 0,032637 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 032637 ---------- *032637 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *032640 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *032641 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *032643 JUMPA 0,032644 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 032644 ---------- *032644 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032645 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032646 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *032650 JUMPA 0,032651 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 032651 ---------- *032651 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032652 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032653 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032655 JUMPA 0,032656 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 032656 ---------- *032656 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *032657 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032660 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032662 JUMPA 0,032663 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 032663 ---------- *032663 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *032664 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *032665 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *032667 JUMPA 0,032670 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 032670 ---------- *032670 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032671 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032672 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *032674 JUMPA 0,032675 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 032675 ---------- *032675 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032676 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032677 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032701 JUMPA 0,032702 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 032702 ---------- *032702 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *032703 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032704 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032706 JUMPA 0,032707 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 032707 ---------- *032707 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *032710 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *032711 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *032713 JUMPA 0,032714 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 032714 ---------- *032714 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032715 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032716 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *032720 JUMPA 0,032721 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 032721 ---------- *032721 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032722 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032723 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032725 JUMPA 0,032726 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 032726 ---------- *032726 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *032727 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032730 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032732 JUMPA 0,032733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 032733 ---------- *032733 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *032734 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *032735 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *032737 JUMPA 0,032740 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 032740 ---------- *032740 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032741 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032742 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *032744 JUMPA 0,032745 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 032745 ---------- *032745 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032746 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032747 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032751 JUMPA 0,032752 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 032752 ---------- *032752 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *032753 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032754 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032756 JUMPA 0,032757 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 032757 ---------- *032757 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *032760 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *032761 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *032763 JUMPA 0,032764 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 032764 ---------- *032764 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032765 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032766 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *032770 JUMPA 0,032771 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 032771 ---------- *032771 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032772 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032773 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032775 JUMPA 0,032776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 032776 ---------- *032776 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *032777 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033000 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033002 JUMPA 0,033003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033003 ---------- *033003 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033004 AND 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *033005 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033007 JUMPA 0,033010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033010 ---------- *033010 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033011 AND 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033012 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *033014 JUMPA 0,033015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033015 ---------- *033015 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033016 AND 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033017 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033021 JUMPA 0,033022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033022 ---------- *033022 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *033023 AND 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033024 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033026 JUMPA 0,033027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033027 ---------- *033027 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033030 XOR 0,035057 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *033031 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033033 JUMPA 0,033034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033034 ---------- *033034 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033035 XOR 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033036 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *033040 JUMPA 0,033041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 033041 ---------- *033041 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033042 XOR 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033043 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033045 JUMPA 0,033046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 033046 ---------- *033046 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *033047 XOR 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033050 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033052 JUMPA 0,033053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 033053 ---------- *033053 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033054 XOR 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *033055 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033057 JUMPA 0,033060 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 033060 ---------- *033060 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033061 XOR 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033062 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *033064 JUMPA 0,033065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 033065 ---------- *033065 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033066 XOR 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033067 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033071 JUMPA 0,033072 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 033072 ---------- *033072 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *033073 XOR 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033074 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033076 JUMPA 0,033077 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 033077 ---------- *033077 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033100 XOR 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *033101 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033103 JUMPA 0,033104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 033104 ---------- *033104 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033105 XOR 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033106 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *033110 JUMPA 0,033111 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 033111 ---------- *033111 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033112 XOR 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033113 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033115 JUMPA 0,033116 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 033116 ---------- *033116 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *033117 XOR 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033120 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033122 JUMPA 0,033123 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 033123 ---------- *033123 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033124 XOR 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *033125 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033127 JUMPA 0,033130 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 033130 ---------- *033130 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033131 XOR 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033132 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *033134 JUMPA 0,033135 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 033135 ---------- *033135 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033136 XOR 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033137 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033141 JUMPA 0,033142 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 033142 ---------- *033142 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *033143 XOR 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033144 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033146 JUMPA 0,033147 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 033147 ---------- *033147 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033150 XOR 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *033151 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033153 JUMPA 0,033154 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 033154 ---------- *033154 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033155 XOR 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033156 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *033160 JUMPA 0,033161 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 033161 ---------- *033161 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033162 XOR 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033163 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033165 JUMPA 0,033166 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 033166 ---------- *033166 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *033167 XOR 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033170 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033172 JUMPA 0,033173 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 033173 ---------- *033173 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033174 XOR 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *033175 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033177 JUMPA 0,033200 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 033200 ---------- *033200 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033201 XOR 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033202 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *033204 JUMPA 0,033205 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 033205 ---------- *033205 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033206 XOR 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033207 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033211 JUMPA 0,033212 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 033212 ---------- *033212 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *033213 XOR 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033214 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033216 JUMPA 0,033217 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 033217 ---------- *033217 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033220 XOR 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *033221 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033223 JUMPA 0,033224 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 033224 ---------- *033224 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033225 XOR 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033226 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 *033230 JUMPA 0,033231 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 033231 ---------- *033231 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033232 XOR 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033233 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033235 JUMPA 0,033236 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 033236 ---------- *033236 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 *033237 XOR 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033240 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033242 JUMPA 0,033243 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 033243 ---------- *033243 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033244 XOR 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 *033245 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033247 JUMPA 0,033250 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 033250 ---------- *033250 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033251 XOR 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *033252 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 *033254 JUMPA 0,033255 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 033255 ---------- *033255 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033256 XOR 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033257 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033261 JUMPA 0,033262 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 033262 ---------- *033262 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 *033263 XOR 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033264 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033266 JUMPA 0,033267 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 033267 ---------- *033267 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033270 XOR 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 *033271 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033273 JUMPA 0,033274 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 033274 ---------- *033274 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033275 XOR 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033276 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 *033300 JUMPA 0,033301 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 033301 ---------- *033301 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033302 XOR 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033303 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033305 JUMPA 0,033306 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 033306 ---------- *033306 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 *033307 XOR 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033310 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033312 JUMPA 0,033313 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 033313 ---------- *033313 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033314 XOR 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 *033315 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033317 JUMPA 0,033320 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033320 ---------- *033320 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033321 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 ---------- *033322 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 *033324 JUMPA 0,033325 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 033325 ---------- *033325 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033326 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000002 ---------- *033327 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033331 JUMPA 0,033332 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 033332 ---------- *033332 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 *033333 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 ---------- *033334 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033336 JUMPA 0,033337 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 033337 ---------- *033337 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033340 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 *033341 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033343 JUMPA 0,033344 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 033344 ---------- *033344 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033345 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000020 ---------- *033346 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 *033350 JUMPA 0,033351 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 033351 ---------- *033351 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033352 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000040 ---------- *033353 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033355 JUMPA 0,033356 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 033356 ---------- *033356 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 *033357 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000100 ---------- *033360 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033362 JUMPA 0,033363 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 033363 ---------- *033363 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033364 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 *033365 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033367 JUMPA 0,033370 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 033370 ---------- *033370 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033371 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000400 ---------- *033372 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 *033374 JUMPA 0,033375 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 033375 ---------- *033375 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033376 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 001000 ---------- *033377 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033401 JUMPA 0,033402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 033402 ---------- *033402 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 *033403 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 002000 ---------- *033404 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033406 JUMPA 0,033407 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 033407 ---------- *033407 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033410 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 *033411 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033413 JUMPA 0,033414 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 033414 ---------- *033414 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033415 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 010000 ---------- *033416 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 *033420 JUMPA 0,033421 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 033421 ---------- *033421 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033422 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 020000 ---------- *033423 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033425 JUMPA 0,033426 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 033426 ---------- *033426 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 *033427 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 040000 ---------- *033430 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033432 JUMPA 0,033433 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 033433 ---------- *033433 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033434 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 *033435 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033437 JUMPA 0,033440 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 033440 ---------- *033440 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033441 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 200000 ---------- *033442 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 *033444 JUMPA 0,033445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 033445 ---------- *033445 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033446 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 400000 ---------- *033447 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033451 JUMPA 0,033452 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 033452 ---------- *033452 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 *033453 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000001 000000 ---------- *033454 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033456 JUMPA 0,033457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 033457 ---------- *033457 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033460 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 *033461 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033463 JUMPA 0,033464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 033464 ---------- *033464 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033465 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000004 000000 ---------- *033466 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 *033470 JUMPA 0,033471 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 033471 ---------- *033471 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033472 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000010 000000 ---------- *033473 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033475 JUMPA 0,033476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 033476 ---------- *033476 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 *033477 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000020 000000 ---------- *033500 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033502 JUMPA 0,033503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 033503 ---------- *033503 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033504 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 *033505 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033507 JUMPA 0,033510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 033510 ---------- *033510 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033511 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000100 000000 ---------- *033512 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 *033514 JUMPA 0,033515 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 033515 ---------- *033515 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033516 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000200 000000 ---------- *033517 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033521 JUMPA 0,033522 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 033522 ---------- *033522 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 *033523 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000400 000000 ---------- *033524 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033526 JUMPA 0,033527 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 033527 ---------- *033527 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033530 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 *033531 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033533 JUMPA 0,033534 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 033534 ---------- *033534 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *033535 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 002000 000000 ---------- *033536 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 *033540 JUMPA 0,033541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 033541 ---------- *033541 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033542 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 004000 000000 ---------- *033543 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033545 JUMPA 0,033546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 033546 ---------- *033546 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 *033547 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 010000 000000 ---------- *033550 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033552 JUMPA 0,033553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 033553 ---------- *033553 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033554 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 *033555 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033557 JUMPA 0,033560 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 033560 ---------- *033560 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033561 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 040000 000000 ---------- *033562 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 *033564 JUMPA 0,033565 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 033565 ---------- *033565 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033566 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 100000 000000 ---------- *033567 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033571 JUMPA 0,033572 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 033572 ---------- *033572 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 *033573 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 200000 000000 ---------- *033574 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033576 JUMPA 0,033577 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 033577 ---------- *033577 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033600 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 *033601 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033603 JUMPA 0,033604 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033604 ---------- *033604 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033605 XOR 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *033606 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 *033610 JUMPA 0,033611 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033611 ---------- *033611 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033612 XOR 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 ---------- *033613 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033615 JUMPA 0,033616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033616 ---------- *033616 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 *033617 XOR 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 ---------- *033620 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033622 JUMPA 0,033623 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033623 ---------- *033623 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033624 XOR 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 *033625 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033627 JUMPA 0,033630 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033630 ---------- *033630 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033631 XOR 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 ---------- *033632 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 221 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 *033634 JUMPA 0,033635 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033635 ---------- *033635 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033636 XOR 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 ---------- *033637 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033641 JUMPA 0,033642 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033642 ---------- *033642 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 222 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 *033643 XOR 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 ---------- *033644 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033646 JUMPA 0,033647 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033647 ---------- *033647 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033650 XOR 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 223 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 *033651 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033653 JUMPA 0,033654 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033654 ---------- *033654 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033655 XOR 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 ---------- *033656 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 224 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 *033660 JUMPA 0,033661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033661 ---------- *033661 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033662 XOR 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 ---------- *033663 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033665 JUMPA 0,033666 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033666 ---------- *033666 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 225 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 *033667 XOR 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 ---------- *033670 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033672 JUMPA 0,033673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033673 ---------- *033673 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033674 XOR 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 226 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 *033675 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033677 JUMPA 0,033700 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033700 ---------- *033700 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033701 XOR 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 ---------- *033702 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 227 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 *033704 JUMPA 0,033705 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033705 ---------- *033705 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033706 XOR 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 ---------- *033707 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033711 JUMPA 0,033712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033712 ---------- *033712 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 228 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 *033713 XOR 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 ---------- *033714 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033716 JUMPA 0,033717 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033717 ---------- *033717 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033720 XOR 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 229 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 *033721 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033723 JUMPA 0,033724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033724 ---------- *033724 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033725 XOR 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 ---------- *033726 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 230 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 *033730 JUMPA 0,033731 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033731 ---------- *033731 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033732 XOR 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 ---------- *033733 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033735 JUMPA 0,033736 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033736 ---------- *033736 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 231 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 *033737 XOR 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 ---------- *033740 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033742 JUMPA 0,033743 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033743 ---------- *033743 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033744 XOR 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 232 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 *033745 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033747 JUMPA 0,033750 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033750 ---------- *033750 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033751 XOR 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 ---------- *033752 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 233 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 *033754 JUMPA 0,033755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033755 ---------- *033755 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033756 XOR 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 ---------- *033757 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033761 JUMPA 0,033762 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033762 ---------- *033762 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 234 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 *033763 XOR 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 ---------- *033764 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033766 JUMPA 0,033767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033767 ---------- *033767 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033770 XOR 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 235 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 *033771 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033773 JUMPA 0,033774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033774 ---------- *033774 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033775 XOR 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 ---------- *033776 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 236 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 *034000 JUMPA 0,034001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034001 ---------- *034001 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034002 XOR 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 ---------- *034003 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034005 JUMPA 0,034006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034006 ---------- *034006 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 237 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 *034007 XOR 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 ---------- *034010 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034012 JUMPA 0,034013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034013 ---------- *034013 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034014 XOR 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 238 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 *034015 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034017 JUMPA 0,034020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034020 ---------- *034020 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034021 XOR 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 000000 ---------- *034022 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 239 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0462 *034024 JUMPA 0,034025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034025 ---------- *034025 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034026 XOR 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 ---------- *034027 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034031 JUMPA 0,034032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034032 ---------- *034032 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 240 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0463 *034033 XOR 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 ---------- *034034 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034036 JUMPA 0,034037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034037 ---------- *034037 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034040 XOR 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 241 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0464 *034041 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034043 JUMPA 0,034044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034044 ---------- *034044 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034045 XOR 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 ---------- *034046 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 242 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0465 *034050 JUMPA 0,034051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034051 ---------- *034051 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034052 XOR 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 ---------- *034053 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034055 JUMPA 0,034056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034056 ---------- *034056 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 243 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0466 *034057 XOR 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 ---------- *034060 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034062 JUMPA 0,034063 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034063 ---------- *034063 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034064 XOR 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 244 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0467 *034065 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034067 JUMPA 0,034070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034070 ---------- *034070 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034071 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034072 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 245 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0468 *034074 JUMPA 0,034075 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034075 ---------- *034075 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034076 EQV 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034077 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034101 JUMPA 0,034102 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034102 ---------- *034102 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 246 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0469 *034103 EQV 0,035060 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 000000 000001 ---------- *034104 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034106 JUMPA 0,034107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 034107 ---------- *034107 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034110 EQV 0,035061 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 247 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0470 *034111 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034113 JUMPA 0,034114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 034114 ---------- *034114 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034115 EQV 0,035062 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 000000 000004 ---------- *034116 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 248 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0471 *034120 JUMPA 0,034121 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 034121 ---------- *034121 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034122 EQV 0,035063 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 000000 000010 ---------- *034123 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034125 JUMPA 0,034126 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 034126 ---------- *034126 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 249 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0472 *034127 EQV 0,035064 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 000000 000020 ---------- *034130 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *034132 JUMPA 0,034133 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 034133 ---------- *034133 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034134 EQV 0,035065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 250 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0473 *034135 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *034137 JUMPA 0,034140 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 034140 ---------- *034140 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034141 EQV 0,035066 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 000000 000100 ---------- *034142 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 251 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0474 *034144 JUMPA 0,034145 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 034145 ---------- *034145 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034146 EQV 0,035067 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 000000 000200 ---------- *034147 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034151 JUMPA 0,034152 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 034152 ---------- *034152 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 252 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0475 *034153 EQV 0,035070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 000000 000400 ---------- *034154 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034156 JUMPA 0,034157 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 034157 ---------- *034157 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034160 EQV 0,035071 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 253 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0476 *034161 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *034163 JUMPA 0,034164 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 034164 ---------- *034164 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034165 EQV 0,035072 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 000000 002000 ---------- *034166 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 254 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0477 *034170 JUMPA 0,034171 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 034171 ---------- *034171 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034172 EQV 0,035073 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 000000 004000 ---------- *034173 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034175 JUMPA 0,034176 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 034176 ---------- *034176 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 255 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0478 *034177 EQV 0,035074 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 000000 010000 ---------- *034200 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034202 JUMPA 0,034203 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 034203 ---------- *034203 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034204 EQV 0,035075 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 256 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0479 *034205 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034207 JUMPA 0,034210 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 034210 ---------- *034210 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034211 EQV 0,035076 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 000000 040000 ---------- *034212 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 257 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0480 *034214 JUMPA 0,034215 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 034215 ---------- *034215 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034216 EQV 0,035077 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 000000 100000 ---------- *034217 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *034221 JUMPA 0,034222 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 034222 ---------- *034222 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 258 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0481 *034223 EQV 0,035100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 000000 200000 ---------- *034224 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034226 JUMPA 0,034227 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 034227 ---------- *034227 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034230 EQV 0,035101 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 259 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0482 *034231 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034233 JUMPA 0,034234 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 034234 ---------- *034234 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034235 EQV 0,035102 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 000001 000000 ---------- *034236 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 260 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0483 *034240 JUMPA 0,034241 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 034241 ---------- *034241 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034242 EQV 0,035103 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 000002 000000 ---------- *034243 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *034245 JUMPA 0,034246 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 034246 ---------- *034246 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 261 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0484 *034247 EQV 0,035104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 000004 000000 ---------- *034250 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *034252 JUMPA 0,034253 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 034253 ---------- *034253 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034254 EQV 0,035105 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 262 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0485 *034255 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034257 JUMPA 0,034260 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 034260 ---------- *034260 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034261 EQV 0,035106 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 000020 000000 ---------- *034262 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 263 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0486 *034264 JUMPA 0,034265 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 034265 ---------- *034265 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034266 EQV 0,035107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 000040 000000 ---------- *034267 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034271 JUMPA 0,034272 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 034272 ---------- *034272 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 264 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0487 *034273 EQV 0,035110 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 000100 000000 ---------- *034274 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *034276 JUMPA 0,034277 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 034277 ---------- *034277 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034300 EQV 0,035111 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 265 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0488 *034301 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034303 JUMPA 0,034304 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 034304 ---------- *034304 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034305 EQV 0,035112 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 000400 000000 ---------- *034306 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 266 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0489 *034310 JUMPA 0,034311 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 034311 ---------- *034311 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034312 EQV 0,035113 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 001000 000000 ---------- *034313 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034315 JUMPA 0,034316 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 034316 ---------- *034316 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 267 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0490 *034317 EQV 0,035114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 002000 000000 ---------- *034320 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034322 JUMPA 0,034323 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 034323 ---------- *034323 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034324 EQV 0,035115 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 268 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0491 *034325 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034327 JUMPA 0,034330 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 034330 ---------- *034330 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034331 EQV 0,035116 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 010000 000000 ---------- *034332 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 269 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0492 *034334 JUMPA 0,034335 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 034335 ---------- *034335 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034336 EQV 0,035117 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 020000 000000 ---------- *034337 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034341 JUMPA 0,034342 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 034342 ---------- *034342 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 270 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0493 *034343 EQV 0,035120 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 040000 000000 ---------- *034344 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034346 JUMPA 0,034347 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 034347 ---------- *034347 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034350 EQV 0,035121 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 271 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0494 *034351 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034353 JUMPA 0,034354 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 034354 ---------- *034354 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034355 EQV 0,035122 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 200000 000000 ---------- *034356 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 272 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0495 *034360 JUMPA 0,034361 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 034361 ---------- *034361 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034362 EQV 0,035002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 400000 000000 ---------- *034363 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034365 JUMPA 0,034366 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 034366 ---------- *034366 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 273 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0496 *034367 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034370 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034371 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034373 JUMPA 0,034374 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034374 ---------- *034374 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 274 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0497 *034375 EQV 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034376 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034377 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034401 JUMPA 0,034402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034402 ---------- *034402 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 275 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0498 *034403 AND 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034404 EQV 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- *034405 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034406 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034410 JUMPA 0,034411 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034411 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 276 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0499 *034411 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034412 AND 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034413 EQV 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *034414 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034415 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 277 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0500 *034417 JUMPA 0,034420 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034420 ---------- *034420 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *034421 AND 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *034422 EQV 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 ---------- *034423 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 278 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0501 *034424 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034426 JUMPA 0,034427 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034427 ---------- *034427 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034430 AND 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034431 EQV 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 279 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0502 *034432 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034433 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034435 JUMPA 0,034436 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034436 ---------- *034436 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *034437 AND 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 280 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0503 *034440 EQV 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 ---------- *034441 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034442 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034444 JUMPA 0,034445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034445 ---------- *034445 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 281 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0504 *034446 AND 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *034447 EQV 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 ---------- *034450 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034451 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034453 JUMPA 0,034454 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034454 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 282 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0505 *034454 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *034455 AND 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *034456 EQV 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 ---------- *034457 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034460 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 283 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0506 *034462 JUMPA 0,034463 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034463 ---------- *034463 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034464 AND 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034465 EQV 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 ---------- *034466 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 284 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0507 *034467 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034471 JUMPA 0,034472 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034472 ---------- *034472 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034473 AND 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034474 EQV 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 285 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0508 *034475 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034476 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034500 JUMPA 0,034501 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034501 ---------- *034501 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *034502 AND 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 286 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0509 *034503 EQV 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 ---------- *034504 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034505 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034507 JUMPA 0,034510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034510 ---------- *034510 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 287 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0510 *034511 AND 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *034512 EQV 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 ---------- *034513 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034514 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034516 JUMPA 0,034517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034517 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 288 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0511 *034517 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034520 AND 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034521 EQV 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 ---------- *034522 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034523 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 289 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0512 *034525 JUMPA 0,034526 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034526 ---------- *034526 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034527 AND 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034530 EQV 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 ---------- *034531 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 290 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0513 *034532 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034534 JUMPA 0,034535 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034535 ---------- *034535 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034536 AND 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034537 EQV 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 291 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0514 *034540 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034541 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034543 JUMPA 0,034544 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034544 ---------- *034544 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *034545 AND 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 292 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0515 *034546 EQV 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 ---------- *034547 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034550 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034552 JUMPA 0,034553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034553 ---------- *034553 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 293 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0516 *034554 AND 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *034555 EQV 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 ---------- *034556 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034557 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034561 JUMPA 0,034562 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034562 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 294 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0517 *034562 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034563 AND 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034564 EQV 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 ---------- *034565 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034566 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 295 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0518 *034570 JUMPA 0,034571 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034571 ---------- *034571 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034572 AND 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034573 EQV 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 ---------- *034574 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 296 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0519 *034575 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034577 JUMPA 0,034600 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034600 ---------- *034600 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *034601 AND 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *034602 EQV 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 297 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0520 *034603 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034604 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034606 JUMPA 0,034607 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034607 ---------- *034607 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *034610 AND 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 298 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0521 *034611 EQV 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 ---------- *034612 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034613 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034615 JUMPA 0,034616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034616 ---------- *034616 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 299 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0522 *034617 AND 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *034620 EQV 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 ---------- *034621 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034622 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034624 JUMPA 0,034625 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034625 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 300 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0523 *034625 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034626 AND 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034627 EQV 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 ---------- *034630 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034631 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 301 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0524 *034633 JUMPA 0,034634 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034634 ---------- *034634 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *034635 AND 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *034636 EQV 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 ---------- *034637 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 302 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0525 *034640 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034642 JUMPA 0,034643 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034643 ---------- *034643 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034644 AND 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034645 EQV 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 303 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0526 *034646 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034647 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034651 JUMPA 0,034652 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034652 ---------- *034652 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *034653 AND 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 304 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0527 *034654 EQV 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 ---------- *034655 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034656 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034660 JUMPA 0,034661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034661 ---------- *034661 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 305 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0528 *034662 AND 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034663 EQV 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 ---------- *034664 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034665 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034667 JUMPA 0,034670 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034670 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 306 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0529 *034670 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *034671 AND 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *034672 EQV 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 ---------- *034673 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034674 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 307 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0530 *034676 JUMPA 0,034677 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034677 ---------- *034677 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034700 AND 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034701 EQV 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 ---------- *034702 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 308 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0531 *034703 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034705 JUMPA 0,034706 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034706 ---------- *034706 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034707 AND 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034710 EQV 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 309 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0532 *034711 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034712 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034714 JUMPA 0,034715 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034715 ---------- *034715 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034716 AND 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 310 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0533 *034717 EQV 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 ---------- *034720 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034721 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034723 JUMPA 0,034724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034724 ---------- *034724 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 311 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0534 *034725 AND 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *034726 EQV 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 ---------- *034727 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034730 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034732 JUMPA 0,034733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034733 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 312 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0535 *034733 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034734 AND 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034735 EQV 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 ---------- *034736 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034737 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 313 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0536 *034741 JUMPA 0,034742 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034742 ---------- *034742 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034743 AND 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034744 EQV 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 ---------- *034745 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 314 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0537 *034746 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034750 JUMPA 0,034751 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034751 ---------- *034751 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034752 AND 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034753 EQV 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 315 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0538 *034754 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034755 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034757 JUMPA 0,034760 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034760 ---------- *034760 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *034761 AND 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 316 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0539 *034762 EQV 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 ---------- *034763 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034764 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034766 JUMPA 0,034767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034767 ---------- *034767 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 317 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0540 *034770 AND 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034771 EQV 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 ---------- *034772 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034773 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034775 JUMPA 0,034776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 318 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0541 *034776 SETZM 0,035124 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *034777 JRST 0,030057 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 319 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0542 *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030630 JRST 0,@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- rtl/mem/mem.awk0000644000175100010010000001120612053071214012103 0ustar RobNone# # 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 # # 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 # # 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 = and(strtonum("0" substr($3, 1, 3)), 0177) data2 = and(strtonum("0" substr($3, 5, 3)), 0177) data3 = and(strtonum("0" substr($3, 9, 3)), 0177) data4 = and(strtonum("0" substr($3, 13, 3)), 0177) data5 = and(strtonum("0" substr($3, 17, 3)), 0177) dig1 = and(rshift(data1, 1), 077); dig2 = and(lshift(data1, 2), 037) + and(lshift(data1, 6), 040); dig3 = and(rshift(data3, 3), 017) + and(lshift(data2, 5), 060); dig4 = and(rshift(data4, 4), 007) + and(lshift(data3, 4), 070); dig5 = and(rshift(data5, 5), 003) + and(lshift(data4, 3), 074); data = sprintf(" %02o,%02o ...", dig1, dig2); #print ($2 data) #print $2, (data1 " " data2 " " data3 " " data4 " " data5) } # # 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) } # # # END { for (i = 0; i < 384; i++) { if (map[i] != "") { printf " RAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { printf " RAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } } for (i = 030000; i < 047000; i++) { if (map[i] != "") { printf " RAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { printf " RAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } } } rtl/mem/RCS/0000755000175100010010000000000012045353432011256 5ustar RobNonertl/mem/RCS/MAINDEC-10-DSKAA.txt,v0000444000175100010010000355563212050276544014405 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.08.21.03.48; author E721269; state Exp; branches; next ; desc @dskaa diagnostic @ 1.1 log @Initial revision @ text @00;DSKAA IDENTIFICATION -------------- PRODUCT CODE: AH-E297A-DD DIAGNOSTIC CODE: DSKAA PRODUCT NAME: DSKAAA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (1) 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-DSKAA.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAA.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIRST IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. IT IS THE MOST BASIC OF THE PROCESSOR DIAGNOSTICS. THIS DIAGNOSTIC ASSUMES THE HALT INSTRUCTION AND THE COMPUTER CONSOLE TO BE OPERATIVE. IT MAKES NO FURTHER ASSUMPTIONS EXCEPT THAT IT IS LOADED INTO MEMORY CORRECTLY. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY MAINDEC-10-DSKAA.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAA.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAA SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAA TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (1) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 DSKAAT MAC 28-Mar-78 09:37 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAA 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 DSKAAT MAC 28-Mar-78 09:37 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 DSKAAT MAC 28-Mar-78 09:37 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414100 PAREA3=SIXBIT/DSKAA/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 DSKAA1 MAC 28-Mar-78 09:38 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) [DSKAA] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 061 051 040 798 030656 133 104 123 113 101 799 030657 101 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (1) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 807 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0029 808 SUBTTL TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS 809 810 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED 811 ;INSTRUCTION. 812 ;********** 813 814 ;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION 815 816 030661 A00=. 817 030661 334 00 0 00 000000 A12500: SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 818 030662 254 04 0 00 000000 HALT ;IF PROGRAM HALTS, SKIPA DID NOT SKIP 819 820 ;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC], 821 ;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1], 822 ;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2], 823 ;PC CLOCK EN [PCC], ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND 824 ;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC] 825 826 ;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2] 827 828 ;********** 829 830 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS 831 832 030663 320 00 0 00 030664 A15000: JUMP .+1 ;*JUMP SHOULD NEVER JUMP 833 030664 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL 834 030665 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS 835 836 ;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION 837 ;MAY HAVE FAILED. CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E], 838 ;IR JUMPS [IR1], IR JUMPX [IR1] 839 840 ;********** 841 ;THIS TEST VERIFIES THAT JUMP NEVER JUMPS 842 843 030666 320 00 0 00 030670 A15100: JUMP .+2 ;*JUMP SHOULD NEVER JUMP 844 030667 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL 845 030670 254 04 0 00 000000 HALT ;HALT IF JUMP FAILS 846 847 ;AB PC EN [ABC] 848 849 ;********** 850 851 ;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION 852 853 030671 324 00 0 00 030672 A12700: JUMPA .+1 ;*JUMPA .+1 SHOULD NEVER JUMP 854 030672 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL 855 030673 254 04 0 00 000000 HALT ;HALT IF JUMPA .+1 FAILED 856 857 ;********** 858 859 ;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2 860 861 030674 324 00 0 00 030676 A12600: JUMPA .+2 ;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 862 030675 254 04 0 00 000000 HALT ;PROGRAM HALTS HERE IF JUMPA .+2 FAILS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 2-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0030 863 864 ;ST1 COND [ST2] 865 866 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0031 867 ;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT 868 ;INSTRUCTION. 869 ;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. 870 871 030676 200 00 0 00 035000 A100: MOVE [0] ;PRESET LOCATION 0 TO ALL ZEROS 872 030677 334 00 0 00 000000 SKIPA ;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION 873 STOP^ 874 030700 254 04 0 00 030701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 875 030701 324 00 0 00 030702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 876 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 877 ;IN THE SUBTEST) TO LOOP ON ERROR^ 878 879 ;********** 880 ;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT. HENCE, IT ALWAYS SKIPS THE NEXT 881 ;INSTRUCTION. 882 ;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA. 883 884 030702 200 00 0 00 035001 A200: MOVE [-1] ;PRESET LOCATION 0 TO ALL ONES 885 030703 334 00 0 00 000000 SKIPA ;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION 886 STOP^ 887 030704 254 04 0 00 030705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 888 030705 324 00 0 00 030706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 891 892 ;COND P [ADZ] 893 894 ;********** 895 ;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E) 896 ;IS ALL ZEROS. THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS. 897 898 030706 200 00 0 00 035000 A300: MOVE [0] ;PRESET E TO ALL ZEROS 899 030707 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION 900 STOP^ 901 030710 254 04 0 00 030711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 902 030711 324 00 0 00 030712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 903 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 904 ;IN THE SUBTEST) TO LOOP ON ERROR^ 905 906 ;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP], 907 ;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1] 908 909 ;********** 910 911 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, SKIP NEVER SKIPS. IT ALWAYS 912 ;CONTINUES ON TO THE NEXT INSTRUCTION. 913 914 030712 200 00 0 00 035001 A400: MOVE [-1] ;PRESET E TO ALL ONES 915 030713 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION 916 030714 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 917 STOP^ 918 030715 254 04 0 00 030716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 919 030716 324 00 0 00 030717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 921 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 3-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0032 922 923 ;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4] 924 925 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0033 926 ;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS 927 ;NEGATIVE. THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER. 928 929 030717 200 00 0 00 035001 A500: MOVE [-1] ;PRESET E WITH ALL ONES, A NEGATIVE NUMBER 930 030720 335 00 0 00 000000 SKIPGE ;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION 931 030721 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 932 STOP^ 933 030722 254 04 0 00 030723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 934 030723 324 00 0 00 030724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 936 ;IN THE SUBTEST) TO LOOP ON ERROR^ 937 938 ;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], 939 ;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1] 940 941 ;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1] 942 943 ;********** 944 945 ;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN 946 ;C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. 947 948 030724 200 00 0 00 035000 A600: MOVE [0] ;PRESET E WITH ALL ZEROS 949 030725 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION 950 030726 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 951 STOP^ 952 030727 254 04 0 00 030730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 953 030730 324 00 0 00 030731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 956 957 ;********** 958 959 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT SHOULD SKIP 960 ;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS 961 ;E WITH -1, A NON-ZERO NUMBER. 962 963 030731 200 00 0 00 035001 A700: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER 964 030732 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 965 STOP^ 966 030733 254 04 0 00 030734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 967 030734 324 00 0 00 030735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 968 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 969 ;IN THE SUBTEST) TO LOOP ON ERROR^ 970 971 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0034 972 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD NOT 973 ;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO. THE MOVE INSTRUCTION LOADS E 974 ;WITH -1, A NON-ZERO NUMBER. 975 976 030735 200 00 0 00 035001 A1000: MOVE [-1] ;PRESET E WITH ALL ONES, A NON-ZERO NUMBER 977 030736 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION 978 030737 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 979 STOP^ 980 030740 254 04 0 00 030741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 981 030741 324 00 0 00 030742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 983 ;IN THE SUBTEST) TO LOOP ON ERROR^ 984 985 ;********** 986 987 ;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT. HENCE, IT SHOULD SKIP 988 ;THE NEXT INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS ALL 989 ;ZEROS INTO E. 990 991 030742 200 00 0 00 035000 A1100: MOVE [0] ;PRESET E TO ALL ZEROS 992 030743 332 00 0 00 000000 SKIPE ;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION 993 STOP^ 994 030744 254 04 0 00 030745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 995 030745 324 00 0 00 030746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 998 999 ;********** 1000 1001 ;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT. HENCE, IT NEVER SKIPS. IT ALWAYS 1002 ;CONTINUES ON TO THE NEXT INSTRUCTION. 1003 1004 030746 200 00 0 00 035000 A1200: MOVE [0] ;PRESET E TO ALL ZEROS 1005 030747 330 00 0 00 000000 SKIP ;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION 1006 030750 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1007 STOP^ 1008 030751 254 04 0 00 030752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1009 030752 324 00 0 00 030753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1010 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1011 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1012 1013 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0035 1014 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1015 ;INSTRUCTION WHEN C(E) IS NOT NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD 1016 ;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER. 1017 1018 030753 200 00 0 00 035000 A1300: MOVE [0] ;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER 1019 030754 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION 1020 030755 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1021 STOP^ 1022 030756 254 04 0 00 030757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1023 030757 324 00 0 00 030760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1024 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1025 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1026 1027 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0036 1028 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1029 ;INSTRUCTION WHEN C(E) IS NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1, 1030 ;A NEGATIVE NUMBER. 1031 1032 030760 200 00 0 00 035001 A1400: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER 1033 030761 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION 1034 STOP^ 1035 030762 254 04 0 00 030763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1036 030763 324 00 0 00 030764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1038 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1039 1040 ;********** 1041 1042 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1043 ;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO LOAD 1044 ;E WITH A NON-ZERO POSITIVE NUMBER. 1045 1046 030764 200 00 0 00 035002 A1500: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER 1047 030765 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION 1048 STOP^ 1049 030766 254 04 0 00 030767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1050 030767 324 00 0 00 030770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1052 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1053 1054 ;********** 1055 1056 ;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1057 ;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO. THE MOVE INSTRUCTION IS USED TO 1058 ;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO. 1059 1060 030770 200 00 0 00 035001 A1600: MOVE [-1] ;PRESET E TO -1, A NEGATIVE NUMBER 1061 030771 337 00 0 00 000000 SKIPG ;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION 1062 030772 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1063 STOP^ 1064 030773 254 04 0 00 030774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1065 030774 324 00 0 00 030775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1067 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1068 1069 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0037 1070 ;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1071 ;INSTRUCTION WHEN C(E) IS NON-NEGATIVE. THE MOVE INSTRUCTION IS USED TO LOAD E WITH 1072 ;377777777777, A NON-NEGATIVE NUMBER. 1073 1074 030775 200 00 0 00 035002 A1700: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER 1075 030776 331 00 0 00 000000 SKIPL ;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION 1076 030777 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1077 STOP^ 1078 031000 254 04 0 00 031001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1079 031001 324 00 0 00 031002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1082 1083 ;********** 1084 1085 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1086 ;INSTRUCTION WHEN C(E) IS ZERO. THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS. 1087 1088 031002 200 00 0 00 035000 A2000: MOVE [0] ;PRESET E TO ALL ZEROS 1089 031003 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION 1090 STOP^ 1091 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1092 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1093 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1094 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1095 1096 ;********** 1097 1098 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1099 ;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER. THE MOVE INSTRUCTION IS USED TO LOAD 1100 ;E WITH 400000000000, A NEGATIVE NUMBER. 1101 1102 031006 200 00 0 00 035003 A2100: MOVE [XWD 400000,0] ;PRESET E TO 400000000000, A NEGATIVE NUMBER. 1103 031007 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION 1104 STOP^ 1105 031010 254 04 0 00 031011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1106 031011 324 00 0 00 031012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1108 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1109 1110 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0038 1111 ;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT. HENCE, IT WILL NOT SKIP THE NEXT 1112 ;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER. THE MOVE INSTRUCTION LOADS 1113 ;E WITH 377777777777, A POSITIVE NUMBER. 1114 1115 031012 200 00 0 00 035002 A2200: MOVE [XWD 377777,-1] ;PRESET E TO 377777777777, A POSITIVE NUMBER 1116 031013 333 00 0 00 000000 SKIPLE ;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION 1117 031014 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSES 1118 STOP^ 1119 031015 254 04 0 00 031016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1120 031016 324 00 0 00 031017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1121 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1122 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1123 1124 ;********* DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0039 1125 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1126 ;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1127 ;LOAD 777000000000, A NON-ZERO NUMBER INTO E. 1128 1129 031017 200 00 0 00 035004 A2300: MOVE [XWD 777000,0] ;PRESET E WITH 777000000000, A NON-ZERO NUMBER 1130 031020 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1131 STOP^ 1132 031021 254 04 0 00 031022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1133 031022 324 00 0 00 031023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1136 1137 ;********** 1138 1139 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1140 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1141 ;LOAD A NON-ZERO NUMBER, 377000000 INTO E. 1142 1143 031023 200 00 0 00 035005 A2400: MOVE [XWD 377,0] ;PRESET E TO 377000000, A NON ZERO NUMBER 1144 031024 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1145 STOP^ 1146 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1147 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1148 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1149 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1150 1151 ;********** 1152 1153 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1154 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1155 ;LOAD E WITH A NON-ZERO NUMBER, 177000. 1156 1157 031027 200 00 0 00 035006 A2500: MOVE [177000] ;PRESET E WITH 177000, A NON ZERO NUMBER 1158 031030 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1159 STOP^ 1160 031031 254 04 0 00 031032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1161 031032 324 00 0 00 031033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1162 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1163 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1164 1165 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0040 1166 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1167 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1168 ;LOAD 777, A NON-ZERO NUMBER INTO E. 1169 1170 031033 200 00 0 00 035007 A2600: MOVE [777] ;PRESET E WITH 777, A NON-ZERO NUMBER 1171 031034 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1172 STOP^ 1173 031035 254 04 0 00 031036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1174 031036 324 00 0 00 031037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1175 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1176 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1177 1178 ;********** 1179 1180 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1181 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1182 ;LOAD E WITH 600000, A NON-ZERO NUMBER. 1183 1184 031037 200 00 0 00 035010 A2700: MOVE [600000] ;PRESET E WITK 600000, A NON-ZERO NUMBER 1185 031040 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1186 STOP^ 1187 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1188 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1190 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1191 1192 ;********** 1193 1194 ;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT. HENCE, IT WILL SKIP THE NEXT 1195 ;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER. THE MOVE INSTRUCTION IS USED TO 1196 ;LOAD E WITH 400000000, A NON-ZERO NUMBER. 1197 1198 031043 200 00 0 00 035011 A3000: MOVE [XWD 400,000] ;PRESET E WITH 400000000, A NON-ZERO NUMBER 1199 031044 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1200 STOP^ 1201 031045 254 04 0 00 031046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1202 031046 324 00 0 00 031047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1203 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1204 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1205 1206 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0041 1207 003100 SN=3100 1208 000000 ZZ=0 1209 1210 A3100: REPEAT ^D36, 1211 <;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1212 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1213 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1214 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1215 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1216 1217 SN=SN+1 1218 ZZ=ZZ+ZZ 1219 IFE ZZ, 1220 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1221 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1222 STOP 1223 1224 ;********** 1225 > 1226 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1227 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1228 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1229 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1230 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1231 1232 003101 SN=SN+1 1233 000000 ZZ=ZZ+ZZ 1234 000001 IFE ZZ, 1235 031047 200 00 0 00 035012 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1236 031050 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1237 STOP^ 1238 031051 254 04 0 00 031052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1239 031052 324 00 0 00 031053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1241 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1242 1243 ;********** 1244 1245 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1246 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1247 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1248 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1249 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1250 1251 003102 SN=SN+1 1252 000002 ZZ=ZZ+ZZ 1253 IFE ZZ, 1254 031053 200 00 0 00 035013 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1255 031054 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1256 STOP^ 1257 031055 254 04 0 00 031056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1258 031056 324 00 0 00 031057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1261 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0042 1262 ;********** 1263 1264 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1265 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1266 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1267 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1268 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1269 1270 003103 SN=SN+1 1271 000004 ZZ=ZZ+ZZ 1272 IFE ZZ, 1273 031057 200 00 0 00 035014 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1274 031060 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1275 STOP^ 1276 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1277 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1278 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1279 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1280 1281 ;********** 1282 1283 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1284 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1285 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1286 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1287 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1288 1289 003104 SN=SN+1 1290 000010 ZZ=ZZ+ZZ 1291 IFE ZZ, 1292 031063 200 00 0 00 035015 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1293 031064 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1294 STOP^ 1295 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1296 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1299 1300 ;********** 1301 1302 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1303 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1304 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1305 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1306 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1307 1308 003105 SN=SN+1 1309 000020 ZZ=ZZ+ZZ 1310 IFE ZZ, 1311 031067 200 00 0 00 035016 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1312 031070 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1313 STOP^ 1314 031071 254 04 0 00 031072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1315 031072 324 00 0 00 031073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1316 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0043 1317 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1318 1319 ;********** 1320 1321 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1322 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1323 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1324 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1325 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1326 1327 003106 SN=SN+1 1328 000040 ZZ=ZZ+ZZ 1329 IFE ZZ, 1330 031073 200 00 0 00 035017 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1331 031074 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1332 STOP^ 1333 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1334 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1336 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1337 1338 ;********** 1339 1340 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1341 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1342 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1343 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1344 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1345 1346 003107 SN=SN+1 1347 000100 ZZ=ZZ+ZZ 1348 IFE ZZ, 1349 031077 200 00 0 00 035020 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1350 031100 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1351 STOP^ 1352 031101 254 04 0 00 031102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1353 031102 324 00 0 00 031103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1354 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1355 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1356 1357 ;********** 1358 1359 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1360 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1361 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1362 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1363 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1364 1365 003110 SN=SN+1 1366 000200 ZZ=ZZ+ZZ 1367 IFE ZZ, 1368 031103 200 00 0 00 035021 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1369 031104 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1370 STOP^ 1371 031105 254 04 0 00 031106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0044 1372 031106 324 00 0 00 031107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1373 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1374 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1375 1376 ;********** 1377 1378 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1379 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1380 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1381 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1382 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1383 1384 003111 SN=SN+1 1385 000400 ZZ=ZZ+ZZ 1386 IFE ZZ, 1387 031107 200 00 0 00 035022 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1388 031110 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1389 STOP^ 1390 031111 254 04 0 00 031112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1391 031112 324 00 0 00 031113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1392 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1393 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1394 1395 ;********** 1396 1397 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1398 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1399 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1400 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1401 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1402 1403 003112 SN=SN+1 1404 001000 ZZ=ZZ+ZZ 1405 IFE ZZ, 1406 031113 200 00 0 00 035023 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1407 031114 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1408 STOP^ 1409 031115 254 04 0 00 031116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1410 031116 324 00 0 00 031117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1411 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1412 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1413 1414 ;********** 1415 1416 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1417 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1418 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1419 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1420 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1421 1422 003113 SN=SN+1 1423 002000 ZZ=ZZ+ZZ 1424 IFE ZZ, 1425 031117 200 00 0 00 035024 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1426 031120 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0045 1427 STOP^ 1428 031121 254 04 0 00 031122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1429 031122 324 00 0 00 031123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1430 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1431 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1432 1433 ;********** 1434 1435 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1436 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1437 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1438 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1439 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1440 1441 003114 SN=SN+1 1442 004000 ZZ=ZZ+ZZ 1443 IFE ZZ, 1444 031123 200 00 0 00 035025 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1445 031124 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1446 STOP^ 1447 031125 254 04 0 00 031126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1448 031126 324 00 0 00 031127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1449 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1450 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1451 1452 ;********** 1453 1454 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1455 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1456 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1457 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1458 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1459 1460 003115 SN=SN+1 1461 010000 ZZ=ZZ+ZZ 1462 IFE ZZ, 1463 031127 200 00 0 00 035026 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1464 031130 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1465 STOP^ 1466 031131 254 04 0 00 031132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1467 031132 324 00 0 00 031133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1468 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1469 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1470 1471 ;********** 1472 1473 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1474 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1475 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1476 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1477 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1478 1479 003116 SN=SN+1 1480 020000 ZZ=ZZ+ZZ 1481 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0046 1482 031133 200 00 0 00 035027 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1483 031134 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1484 STOP^ 1485 031135 254 04 0 00 031136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1486 031136 324 00 0 00 031137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1487 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1488 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1489 1490 ;********** 1491 1492 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1493 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1494 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1495 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1496 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1497 1498 003117 SN=SN+1 1499 040000 ZZ=ZZ+ZZ 1500 IFE ZZ, 1501 031137 200 00 0 00 035030 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1502 031140 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1503 STOP^ 1504 031141 254 04 0 00 031142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1505 031142 324 00 0 00 031143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1506 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1507 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1508 1509 ;********** 1510 1511 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1512 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1513 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1514 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1515 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1516 1517 003120 SN=SN+1 1518 100000 ZZ=ZZ+ZZ 1519 IFE ZZ, 1520 031143 200 00 0 00 035031 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1521 031144 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1522 STOP^ 1523 031145 254 04 0 00 031146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1524 031146 324 00 0 00 031147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1527 1528 ;********** 1529 1530 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1531 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1532 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1533 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1534 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1535 1536 003121 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0047 1537 200000 ZZ=ZZ+ZZ 1538 IFE ZZ, 1539 031147 200 00 0 00 035032 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1540 031150 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1541 STOP^ 1542 031151 254 04 0 00 031152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1543 031152 324 00 0 00 031153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1545 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1546 1547 ;********** 1548 1549 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1550 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1551 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1552 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1553 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1554 1555 003122 SN=SN+1 1556 400000 ZZ=ZZ+ZZ 1557 IFE ZZ, 1558 031153 200 00 0 00 035033 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1559 031154 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1560 STOP^ 1561 031155 254 04 0 00 031156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1562 031156 324 00 0 00 031157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1563 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1564 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1565 1566 ;********** 1567 1568 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1569 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1570 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1571 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1572 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1573 1574 003123 SN=SN+1 1575 000001 000000 ZZ=ZZ+ZZ 1576 IFE ZZ, 1577 031157 200 00 0 00 035034 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1578 031160 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1579 STOP^ 1580 031161 254 04 0 00 031162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1581 031162 324 00 0 00 031163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1583 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1584 1585 ;********** 1586 1587 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1588 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1589 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1590 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1591 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0048 1592 1593 003124 SN=SN+1 1594 000002 000000 ZZ=ZZ+ZZ 1595 IFE ZZ, 1596 031163 200 00 0 00 035035 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1597 031164 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1598 STOP^ 1599 031165 254 04 0 00 031166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1600 031166 324 00 0 00 031167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1601 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1602 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1603 1604 ;********** 1605 1606 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1607 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1608 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1609 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1610 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1611 1612 003125 SN=SN+1 1613 000004 000000 ZZ=ZZ+ZZ 1614 IFE ZZ, 1615 031167 200 00 0 00 035036 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1616 031170 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1617 STOP^ 1618 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1619 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1620 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1621 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1622 1623 ;********** 1624 1625 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1626 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1627 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1628 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1629 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1630 1631 003126 SN=SN+1 1632 000010 000000 ZZ=ZZ+ZZ 1633 IFE ZZ, 1634 031173 200 00 0 00 035037 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1635 031174 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1636 STOP^ 1637 031175 254 04 0 00 031176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1638 031176 324 00 0 00 031177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1640 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1641 1642 ;********** 1643 1644 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1645 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1646 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0049 1647 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1648 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1649 1650 003127 SN=SN+1 1651 000020 000000 ZZ=ZZ+ZZ 1652 IFE ZZ, 1653 031177 200 00 0 00 035040 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1654 031200 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1655 STOP^ 1656 031201 254 04 0 00 031202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1657 031202 324 00 0 00 031203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1658 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1659 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1660 1661 ;********** 1662 1663 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1664 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1665 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1666 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1667 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1668 1669 003130 SN=SN+1 1670 000040 000000 ZZ=ZZ+ZZ 1671 IFE ZZ, 1672 031203 200 00 0 00 035041 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1673 031204 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1674 STOP^ 1675 031205 254 04 0 00 031206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1676 031206 324 00 0 00 031207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1678 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1679 1680 ;********** 1681 1682 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1683 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1684 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1685 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1686 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1687 1688 003131 SN=SN+1 1689 000100 000000 ZZ=ZZ+ZZ 1690 IFE ZZ, 1691 031207 200 00 0 00 035042 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1692 031210 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1693 STOP^ 1694 031211 254 04 0 00 031212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1695 031212 324 00 0 00 031213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1698 1699 ;********** 1700 1701 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0050 1702 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1703 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1704 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1705 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1706 1707 003132 SN=SN+1 1708 000200 000000 ZZ=ZZ+ZZ 1709 IFE ZZ, 1710 031213 200 00 0 00 035043 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1711 031214 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1712 STOP^ 1713 031215 254 04 0 00 031216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1714 031216 324 00 0 00 031217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1716 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1717 1718 ;********** 1719 1720 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1721 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1722 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1723 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1724 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1725 1726 003133 SN=SN+1 1727 000400 000000 ZZ=ZZ+ZZ 1728 IFE ZZ, 1729 031217 200 00 0 00 035011 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1730 031220 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1731 STOP^ 1732 031221 254 04 0 00 031222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1733 031222 324 00 0 00 031223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1736 1737 ;********** 1738 1739 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1740 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1741 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1742 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1743 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1744 1745 003134 SN=SN+1 1746 001000 000000 ZZ=ZZ+ZZ 1747 IFE ZZ, 1748 031223 200 00 0 00 035044 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1749 031224 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1750 STOP^ 1751 031225 254 04 0 00 031226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1752 031226 324 00 0 00 031227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1753 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1754 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1755 1756 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0051 1757 1758 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1759 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1760 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1761 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1762 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1763 1764 003135 SN=SN+1 1765 002000 000000 ZZ=ZZ+ZZ 1766 IFE ZZ, 1767 031227 200 00 0 00 035045 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1768 031230 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1769 STOP^ 1770 031231 254 04 0 00 031232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1771 031232 324 00 0 00 031233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1774 1775 ;********** 1776 1777 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1778 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1779 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1780 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1781 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1782 1783 003136 SN=SN+1 1784 004000 000000 ZZ=ZZ+ZZ 1785 IFE ZZ, 1786 031233 200 00 0 00 035046 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1787 031234 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1788 STOP^ 1789 031235 254 04 0 00 031236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1790 031236 324 00 0 00 031237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1793 1794 ;********** 1795 1796 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1797 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1798 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1799 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1800 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1801 1802 003137 SN=SN+1 1803 010000 000000 ZZ=ZZ+ZZ 1804 IFE ZZ, 1805 031237 200 00 0 00 035047 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1806 031240 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1807 STOP^ 1808 031241 254 04 0 00 031242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1809 031242 324 00 0 00 031243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1811 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0052 1812 1813 ;********** 1814 1815 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1816 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1817 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1818 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1819 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1820 1821 003140 SN=SN+1 1822 020000 000000 ZZ=ZZ+ZZ 1823 IFE ZZ, 1824 031243 200 00 0 00 035050 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1825 031244 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1826 STOP^ 1827 031245 254 04 0 00 031246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1828 031246 324 00 0 00 031247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1829 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1830 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1831 1832 ;********** 1833 1834 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1835 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1836 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1837 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1838 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1839 1840 003141 SN=SN+1 1841 040000 000000 ZZ=ZZ+ZZ 1842 IFE ZZ, 1843 031247 200 00 0 00 035051 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1844 031250 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1845 STOP^ 1846 031251 254 04 0 00 031252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1847 031252 324 00 0 00 031253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1848 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1849 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1850 1851 ;********** 1852 1853 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1854 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1855 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1856 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1857 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1858 1859 003142 SN=SN+1 1860 100000 000000 ZZ=ZZ+ZZ 1861 IFE ZZ, 1862 031253 200 00 0 00 035052 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1863 031254 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1864 STOP^ 1865 031255 254 04 0 00 031256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1866 031256 324 00 0 00 031257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 12-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS SEQ 0053 1867 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1868 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1869 1870 ;********** 1871 1872 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1873 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1874 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1875 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1876 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1877 1878 003143 SN=SN+1 1879 200000 000000 ZZ=ZZ+ZZ 1880 IFE ZZ, 1881 031257 200 00 0 00 035053 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1882 031260 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1883 STOP^ 1884 031261 254 04 0 00 031262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1885 031262 324 00 0 00 031263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1886 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1887 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1888 1889 ;********** 1890 1891 ;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION. THIS TEST 1892 ;IS REPEATED 36 TIMES. EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE 1893 ;BIT POSITION IS MOVED INTO E. THEN SKIPN IS EXECUTED. THIS TEST ALSO 1894 ;CHECKS ADDER GATING. IF THIS TEST FAILS, CHECK C(E). 1895 ;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED. 1896 1897 003144 SN=SN+1 1898 400000 000000 ZZ=ZZ+ZZ 1899 IFE ZZ, 1900 031263 200 00 0 00 035003 MOVE [ZZ] ;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO 1901 031264 336 00 0 00 000000 SKIPN ;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION 1902 STOP^ 1903 031265 254 04 0 00 031266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1904 031266 324 00 0 00 031267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1907 1908 ;********** 1909 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0054 1910 SUBTTL TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS 1911 1912 ;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC. SKIPG IS USED TO CHECK THAT 1913 ;THE AC WAS INDEED MODIFIED BY MOVEI. 1914 1915 031267 201 00 0 00 035001 A3200: MOVEI [-1] ;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0 1916 031270 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY 1917 STOP^ 1918 031271 254 04 0 00 031272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1919 031272 324 00 0 00 031273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1920 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1921 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1922 1923 ;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP], 1924 ;AD FM + F/F [ADFP], F CYC ACT EN C [F1] 1925 1926 ;********** 1927 1928 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO 1929 ;THE DATA IN THE AC. HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF 1930 ;C(E) IS LESS THAN ZERO. E IS SET TO -1, A NEGATIVE NUMBER; AND 1931 ;THE AC IS SET TO 0 IN THIS TEST. THEREFORE SKIPL SHOULD SKIP. 1932 1933 031273 200 00 0 00 035000 A3300: MOVE [0] ;SET THE AC TO ALL ZEROS 1934 031274 331 00 0 00 035001 SKIPL [-1] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE 1935 STOP^ 1936 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1937 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1938 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1939 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1940 1941 ;********** 1942 1943 ;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E. SKIPL SHOULD 1944 ;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET. IN THIS 1945 ;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0. 1946 ;A FAILURE UCCURS IF SKIPL DOES NOT SKIP. 1947 1948 031277 200 00 0 00 035000 A13100: MOVE [0] ;SET THE AC TO ALL ZEROS 1949 031300 331 00 0 00 035003 SKIPL [400000,,0] ;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE 1950 STOP^ 1951 031301 254 04 0 00 031302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1952 031302 324 00 0 00 031303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1953 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1954 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1955 1956 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0055 1957 ;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS 1958 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO. 1959 ;THE AC IS THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. 1960 1961 031303 200 00 0 00 035000 A3400: MOVE [0] ;PRESET THE AC TO ALL ZEROS 1962 031304 310 00 0 00 035054 CAM [1234] ;*CAM SHOULD NOT MODIFY THE AC 1963 031305 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP. 1964 ;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.) 1965 031306 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM 1966 STOP^ 1967 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1968 031310 324 00 0 00 031311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1971 1972 ;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC], 1973 ;IR CAXX [IR3] 1974 1975 ;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1], 1976 ;ET2 J F/F [E], IR CAXX [IR3] 1977 1978 ;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1] 1979 1980 ;********** 1981 1982 ;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC). THE AC IS 1983 ;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO. THE AC IS 1984 ;THEN CHECKED FOR ALL ZEROS. THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM. 1985 1986 031311 200 00 0 00 035000 A3500: MOVE [0] ;PRESET THE AC TO ALL ZEROS 1987 031312 300 00 0 00 035054 CAI [1234] ;*CAI SHOULD NOT MODIFY THE AC 1988 031313 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER 1989 ;IN CASE CAI MODIFIES THE AC. IT SERVES AS A NO-OP) 1990 031314 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC 1991 STOP^ 1992 031315 254 04 0 00 031316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1993 031316 324 00 0 00 031317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1996 1997 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0056 1998 ;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS 1999 ;SPECIFIED BY THE CAI INSTRUCTION. 2000 ;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0. 2001 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH 2002 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. 2003 2004 031317 200 00 0 00 035000 A3600: MOVE [0] ;LOAD AC0 WITH ALL ZEROS 2005 031320 300 17 0 00 035054 CAI 17,[1234] ;*CAI SHOULD NOT MODIFY AC0 2006 031321 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2007 ;CAI SKIPS THE NEXT INSTRUCTION. IT ACTS AS A NO-OP) 2008 031322 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED 2009 STOP^ 2010 031323 254 04 0 00 031324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2011 031324 324 00 0 00 031325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2012 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2013 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2014 2015 ;********** 2016 2017 ;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS 2018 ;SPECIFIED BY THE CAM INSTRUCTION. 2019 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH 2020 ;A NON-ZERO E. AC 0 IS THEN TESTED F0R ALL ZEROS. 2021 2022 031325 200 00 0 00 035000 A3700: MOVE [0] ;PRESET C(AC0) TO ALL ZEROS 2023 031326 310 17 0 00 035054 CAM 17,[1234] ;*CAM SHOULD NOT MODIFY AC0 2024 031327 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2025 ;CAM SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) 2026 031330 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM 2027 STOP^ 2028 031331 254 04 0 00 031332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2029 031332 324 00 0 00 031333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2031 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2032 2033 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0057 2034 ;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC. AC, E AND C(E) ARE NON-ZERO 2035 ;IN THIS TEST. THIS TEST PASSES IF FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO. 2036 2037 031333 200 01 0 00 035000 A4500: MOVE 1,[0] ;LOAD THE AC WITH ALL ZEROS 2038 031334 200 01 0 00 035001 MOVE 1,[-1] ;*MOVE SHOULD PLACE ALL ONES IN THE AC 2039 031335 336 00 0 00 000001 SKIPN 1 ;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC 2040 STOP^ 2041 031336 254 04 0 00 031337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2042 031337 324 00 0 00 031340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2045 2046 ;********** 2047 2048 ;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC. 2049 ;AC, E ARE NON-ZERO AND C(E)=0. 2050 ;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E) 2051 2052 031340 200 01 0 00 035000 A4600: MOVE 1,[0] ;*PLACE ALL ZEROS INTO THE AC 2053 031341 332 00 0 00 000001 SKIPE 1 ;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC 2054 STOP^ 2055 031342 254 04 0 00 031343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2056 031343 324 00 0 00 031344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2059 2060 ;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1], 2061 ;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA], 2062 ;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA], 2063 ;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA], 2064 ;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA] 2065 2066 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0058 2067 ;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0. 2068 ;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER; 2069 ;THEN, SOS IS EXECUTED. SOS SHOULD SUBTRACT ONE FROM C((E) 2070 ;AND EXECUTE THE NEXT INSTRUCTION. IT SHOULD NOT MODIFY AC0. 2071 ;THE TEST PASSES IF AC0 WAS NOT MODIFIED. 2072 2073 031344 200 00 0 00 035000 A4000: MOVE [0] ;PRESET AC0 TO ALL ZEROS 2074 031345 200 07 0 00 035054 MOVE 7,[1234] ;PRESET E WITH A POSITIVE NUMBER 2075 031346 370 00 0 00 000007 SOS 7 ;*SOS SHOULD NOT MODIFY C(AC0) 2076 031347 200 00 0 00 000000 MOVE ;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE 2077 ;SOS SKIPS THE NEXT INSTRUCTION. IT SERVES AS A NO-OP) 2078 031350 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED 2079 STOP^ 2080 031351 254 04 0 00 031352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2081 031352 324 00 0 00 031353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2084 2085 ;********** 2086 004100 SN=4100 2087 000000 AC=0 2088 2089 A4100: REPEAT 4, 2090 <;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2091 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2092 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2093 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2094 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2095 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2096 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2097 2098 SN=SN+1 2099 AC=AC+AC 2100 IFE AC, 2101 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2102 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2103 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2104 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2105 STOP 2106 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2107 STOP 2108 2109 ;********** 2110 > 2111 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2112 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2113 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2114 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2115 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2116 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2117 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2118 2119 004101 SN=SN+1 2120 000000 AC=AC+AC 2121 000001 IFE AC, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0059 2122 031353 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2123 031354 200 01 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2124 031355 330 01 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2125 031356 336 00 0 00 000001 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2126 STOP^ 2127 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2128 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2129 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2130 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2131 031361 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2132 STOP^ 2133 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2134 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2136 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2137 2138 ;********** 2139 2140 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2141 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2142 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2143 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2144 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2145 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2146 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2147 2148 004102 SN=SN+1 2149 000002 AC=AC+AC 2150 IFE AC, 2151 031364 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2152 031365 200 02 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2153 031366 330 02 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2154 031367 336 00 0 00 000002 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2155 STOP^ 2156 031370 254 04 0 00 031371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2157 031371 324 00 0 00 031372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2158 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2159 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2160 031372 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2161 STOP^ 2162 031373 254 04 0 00 031374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2163 031374 324 00 0 00 031375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2166 2167 ;********** 2168 2169 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2170 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2171 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2172 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2173 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2174 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2175 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2176 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 17-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS SEQ 0060 2177 004103 SN=SN+1 2178 000004 AC=AC+AC 2179 IFE AC, 2180 031375 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2181 031376 200 04 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2182 031377 330 04 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2183 031400 336 00 0 00 000004 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2184 STOP^ 2185 031401 254 04 0 00 031402 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2186 031402 324 00 0 00 031403 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2187 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2188 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2189 031403 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2190 STOP^ 2191 031404 254 04 0 00 031405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2192 031405 324 00 0 00 031406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2193 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2194 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2195 2196 ;********** 2197 2198 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC 2199 ;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10. 2200 ;FIRST, THE AC IS LOADED WITH ALL ZEROS; THEN, THE SKIP INSTRUCTION IS EXECUTED 2201 ;WITH AC1, AC2, AC4 OR AC10. C(E) IS EQUAL TO -1. THE SKIP INSTRUCTION SHOULD CAUSE 2202 ;THE AC TO CONTAIN -1. THE AC IS THEN CHECKED FOR 2203 ;NON-ZERO CONTENTS. THE TEST FAILS IF C(AC)=0. 2204 ;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0. 2205 2206 004104 SN=SN+1 2207 000010 AC=AC+AC 2208 IFE AC, 2209 031406 200 00 0 00 035000 MOVE 0,[0] ;PRESET AC0 TO ALL ZEROS 2210 031407 200 10 0 00 035000 MOVE AC,[0] ;PRESET THE AC TO ALL ZEROS 2211 031410 330 10 0 00 035001 SKIP AC,[-1] ;*SKIP SHOULD PLACE -1 INTO THE AC 2212 031411 336 00 0 00 000010 SKIPN AC ;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO 2213 STOP^ 2214 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2215 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2218 031414 332 00 0 00 000000 SKIPE 0 ;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP 2219 STOP^ 2220 031415 254 04 0 00 031416 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2221 031416 324 00 0 00 031417 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2224 2225 ;********** 2226 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0061 2227 SUBTTL TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS 2228 2229 ;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0. 2230 ;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, 2231 ;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0. AC0 IS THEN TESTED FOR ALL 2232 ;ZEROS. THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION. 2233 2234 031417 200 00 0 00 035000 A4200: MOVE [0] ;PRESET AC0 TO ALL ZEROS 2235 031420 330 00 0 00 035001 SKIP [-1] ;*SKIP SHOULD NOT MODIFY AC0 2236 031421 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP 2237 STOP^ 2238 031422 254 04 0 00 031423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2239 031423 324 00 0 00 031424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2241 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2242 2243 ;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1 2244 2245 ;********** 2246 2247 ;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC. 2248 ;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0) 2249 ;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED. MOVSS SHOULD NOT MODIFY AC0. 2250 ;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS. 2251 2252 031424 200 07 0 00 035001 A4300: MOVE 7,[-1] ;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES 2253 031425 200 00 0 00 035000 MOVE [0] ;PRESET AC0 TO ALL ZEROS 2254 031426 207 00 0 00 000007 MOVSS 7 ;*MOVSS SHOULD NOT MODIFY AC0 2255 031427 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC0 WAS INTACT 2256 STOP^ 2257 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2258 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2261 2262 ;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1] 2263 2264 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0062 2265 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC. 2266 ;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS; 2267 ;THEN, HRRS IS EXECUTED WITH AC=AC0. AC0 IS THEN CHECKED FOR ALL ZEROS. 2268 ;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL. 2269 2270 031432 200 07 0 00 035001 A4400: MOVE 7,[-1] ;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES 2271 031433 200 00 0 00 035000 MOVE [0] ;PRESET AC0 TO ALL ZEROS 2272 031434 543 00 0 00 000007 HRRS 7 ;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0 2273 031435 332 00 0 00 000000 SKIPE ;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT 2274 STOP^ 2275 031436 254 04 0 00 031437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2276 031437 324 00 0 00 031440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2278 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2279 2280 ;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1], 2281 ;IR BITS S-A-1 2282 2283 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0063 2284 ;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC). 2285 ;THE AC IS FIRST LOADED WITH ALL ZEROS; 2286 ;THEN JUMP .+1 IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED 2287 ;BY JUMP. THE TEST FAILS IF THE AC WAS MODIFIED 2288 2289 031440 200 00 0 00 035000 A4700: MOVE [0] ; PRESET THE AC TO ALL ZEROS 2290 031441 320 00 0 00 031442 JUMP .+1 ;*JUMP SHOULD NOT MODIFY THE AC 2291 031442 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF AC WAS INTACT 2292 STOP^ 2293 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2294 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2297 2298 ;********** 2299 2300 ;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD 2301 ;OF ALL ZEROS. FIRST, E IS LOADED WITH A WORD OF ALL ZEROS; 2302 ;THEN, MOVS IS EXECUTED. THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT 2303 ;CONTAIN ANY ONES. 2304 2305 031445 200 00 0 00 035000 A5000: MOVE [0] ;PRESET E WITH ALL ZEROS 2306 031446 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS 2307 031447 332 00 0 00 000000 SKIPE ;SKIP HALT INSTRUCTION IF C(AC)=0 2308 STOP^ 2309 031450 254 04 0 00 031451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2310 031451 324 00 0 00 031452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2311 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2312 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2313 2314 ;********** 2315 2316 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER 2317 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD 2318 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO RESULT. 2319 ;IF C(AC)=0, THE TEST FAILS. 2320 2321 031452 200 00 0 00 035055 A5100: MOVE [XWD 0,-1] ;LOAD E WITH A NON-ZERO VALUE 2322 031453 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT IN C(AC) NON-ZERO 2323 031454 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO 2324 STOP^ 2325 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2326 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2327 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2328 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2329 2330 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 21 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0064 2331 ;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER 2332 ;RESULTS IN A NON-ZERO NUMBER IN THE AC. FIRST A NON-ZERO WORD 2333 ;IS LOADED INTO E; THEN, MOVS IS EXECUTED. THE AC IS CHECKED FOR A NON-ZERO 2334 ;RESULT. IF C(AC)=0, THE TEST FAILS. 2335 2336 031457 200 00 0 00 035056 A5200: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH A NON-ZERO NUMBER 2337 031460 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO 2338 031461 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO 2339 STOP^ 2340 031462 254 04 0 00 031463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2341 031463 324 00 0 00 031464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2342 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2343 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2344 2345 ;********** 2346 2347 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E 2348 ;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0. FIRST, A WORD 2349 ;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS 2350 ;IS EXECUTED. THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE 2351 ;CORRECT RESULT. 2352 2353 031464 200 00 0 00 035056 A5300: MOVE [XWD -1,0] ;LOAD E OF MOVS WITH 777777000000 2354 031465 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0 2355 031466 337 00 0 00 000000 SKIPG ;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0 2356 STOP^ 2357 031467 254 04 0 00 031470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2358 031470 324 00 0 00 031471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2361 2362 ;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB], 2363 ;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1], 2364 ;IR MOV(E,S)X [IR1] 2365 2366 ;********** 2367 2368 ;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND 2369 ;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1. FIRST, A WORD WITH BIT 0 2370 ;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E. THEN, MOVS IS EXECUTED. 2371 ;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT. 2372 2373 031471 200 00 0 00 035055 A5400: MOVE [XWD 0,-1] ;LOAD E OF MOVS WITH 777777 2374 031472 204 00 0 00 000000 MOVS ;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET 2375 031473 331 00 0 00 000000 SKIPL ;PASS IF AC BIT 0 IS SET 2376 STOP^ 2377 031474 254 04 0 00 031475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2378 031475 324 00 0 00 031476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2379 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2380 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2381 2382 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0065 2383 005500 SN=5500 2384 000000 ZZ=0 2385 2386 A5500: REPEAT ^D18, 2387 <;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2388 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2389 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2390 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2391 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2392 SN=SN+1 2393 ZZ=ZZ+ZZ 2394 IFE ZZ, 2395 MOVE [0] ;CLEAR AC 2396 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2397 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2398 STOP 2399 2400 ;********** 2401 > 2402 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2403 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2404 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2405 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2406 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2407 005501 SN=SN+1 2408 000000 ZZ=ZZ+ZZ 2409 000001 IFE ZZ, 2410 031476 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2411 031477 204 00 0 00 035012 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2412 031500 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2413 STOP^ 2414 031501 254 04 0 00 031502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2415 031502 324 00 0 00 031503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2416 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2417 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2418 2419 ;********** 2420 2421 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2422 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2423 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2424 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2425 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2426 005502 SN=SN+1 2427 000002 ZZ=ZZ+ZZ 2428 IFE ZZ, 2429 031503 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2430 031504 204 00 0 00 035013 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2431 031505 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2432 STOP^ 2433 031506 254 04 0 00 031507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2434 031507 324 00 0 00 031510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2437 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0066 2438 ;********** 2439 2440 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2441 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2442 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2443 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2444 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2445 005503 SN=SN+1 2446 000004 ZZ=ZZ+ZZ 2447 IFE ZZ, 2448 031510 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2449 031511 204 00 0 00 035014 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2450 031512 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2451 STOP^ 2452 031513 254 04 0 00 031514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2453 031514 324 00 0 00 031515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2454 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2455 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2456 2457 ;********** 2458 2459 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2460 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2461 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2462 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2463 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2464 005504 SN=SN+1 2465 000010 ZZ=ZZ+ZZ 2466 IFE ZZ, 2467 031515 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2468 031516 204 00 0 00 035015 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2469 031517 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2470 STOP^ 2471 031520 254 04 0 00 031521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2472 031521 324 00 0 00 031522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2473 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2474 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2475 2476 ;********** 2477 2478 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2479 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2480 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2481 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2482 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2483 005505 SN=SN+1 2484 000020 ZZ=ZZ+ZZ 2485 IFE ZZ, 2486 031522 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2487 031523 204 00 0 00 035016 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2488 031524 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2489 STOP^ 2490 031525 254 04 0 00 031526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2491 031526 324 00 0 00 031527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0067 2493 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2494 2495 ;********** 2496 2497 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2498 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2499 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2500 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2501 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2502 005506 SN=SN+1 2503 000040 ZZ=ZZ+ZZ 2504 IFE ZZ, 2505 031527 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2506 031530 204 00 0 00 035017 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2507 031531 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2508 STOP^ 2509 031532 254 04 0 00 031533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2510 031533 324 00 0 00 031534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2513 2514 ;********** 2515 2516 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2517 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2518 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2519 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2520 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2521 005507 SN=SN+1 2522 000100 ZZ=ZZ+ZZ 2523 IFE ZZ, 2524 031534 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2525 031535 204 00 0 00 035020 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2526 031536 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2527 STOP^ 2528 031537 254 04 0 00 031540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2529 031540 324 00 0 00 031541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2530 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2531 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2532 2533 ;********** 2534 2535 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2536 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2537 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2538 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2539 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2540 005510 SN=SN+1 2541 000200 ZZ=ZZ+ZZ 2542 IFE ZZ, 2543 031541 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2544 031542 204 00 0 00 035021 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2545 031543 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2546 STOP^ 2547 031544 254 04 0 00 031545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0068 2548 031545 324 00 0 00 031546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2551 2552 ;********** 2553 2554 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2555 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2556 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2557 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2558 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2559 005511 SN=SN+1 2560 000400 ZZ=ZZ+ZZ 2561 IFE ZZ, 2562 031546 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2563 031547 204 00 0 00 035022 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2564 031550 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2565 STOP^ 2566 031551 254 04 0 00 031552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2567 031552 324 00 0 00 031553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2568 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2569 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2570 2571 ;********** 2572 2573 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2574 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2575 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2576 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2577 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2578 005512 SN=SN+1 2579 001000 ZZ=ZZ+ZZ 2580 IFE ZZ, 2581 031553 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2582 031554 204 00 0 00 035023 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2583 031555 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2584 STOP^ 2585 031556 254 04 0 00 031557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2586 031557 324 00 0 00 031560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2587 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2588 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2589 2590 ;********** 2591 2592 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2593 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2594 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2595 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2596 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2597 005513 SN=SN+1 2598 002000 ZZ=ZZ+ZZ 2599 IFE ZZ, 2600 031560 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2601 031561 204 00 0 00 035024 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2602 031562 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0069 2603 STOP^ 2604 031563 254 04 0 00 031564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2605 031564 324 00 0 00 031565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2606 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2607 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2608 2609 ;********** 2610 2611 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2612 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2613 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2614 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2615 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2616 005514 SN=SN+1 2617 004000 ZZ=ZZ+ZZ 2618 IFE ZZ, 2619 031565 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2620 031566 204 00 0 00 035025 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2621 031567 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2622 STOP^ 2623 031570 254 04 0 00 031571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2624 031571 324 00 0 00 031572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2625 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2626 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2627 2628 ;********** 2629 2630 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2631 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2632 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2633 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2634 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2635 005515 SN=SN+1 2636 010000 ZZ=ZZ+ZZ 2637 IFE ZZ, 2638 031572 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2639 031573 204 00 0 00 035026 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2640 031574 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2641 STOP^ 2642 031575 254 04 0 00 031576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2643 031576 324 00 0 00 031577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2646 2647 ;********** 2648 2649 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2650 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2651 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2652 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2653 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2654 005516 SN=SN+1 2655 020000 ZZ=ZZ+ZZ 2656 IFE ZZ, 2657 031577 200 00 0 00 035000 MOVE [0] ;CLEAR AC DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0070 2658 031600 204 00 0 00 035027 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2659 031601 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2660 STOP^ 2661 031602 254 04 0 00 031603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2662 031603 324 00 0 00 031604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2663 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2664 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2665 2666 ;********** 2667 2668 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2669 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2670 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2671 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2672 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2673 005517 SN=SN+1 2674 040000 ZZ=ZZ+ZZ 2675 IFE ZZ, 2676 031604 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2677 031605 204 00 0 00 035030 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2678 031606 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2679 STOP^ 2680 031607 254 04 0 00 031610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2681 031610 324 00 0 00 031611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2682 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2683 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2684 2685 ;********** 2686 2687 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2688 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2689 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2690 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2691 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2692 005520 SN=SN+1 2693 100000 ZZ=ZZ+ZZ 2694 IFE ZZ, 2695 031611 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2696 031612 204 00 0 00 035031 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2697 031613 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2698 STOP^ 2699 031614 254 04 0 00 031615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2700 031615 324 00 0 00 031616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2703 2704 ;********** 2705 2706 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2707 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2708 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2709 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2710 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2711 005521 SN=SN+1 2712 200000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0071 2713 IFE ZZ, 2714 031616 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2715 031617 204 00 0 00 035032 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2716 031620 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2717 STOP^ 2718 031621 254 04 0 00 031622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2719 031622 324 00 0 00 031623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2721 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2722 2723 ;********** 2724 2725 ;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING. A WORD OF ALL ZER0S, 2726 ;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED. 2727 ;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES 2728 ;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT 2729 ;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1. 2730 005522 SN=SN+1 2731 400000 ZZ=ZZ+ZZ 2732 IFE ZZ, 2733 031623 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2734 031624 204 00 0 00 035033 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2735 031625 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2736 STOP^ 2737 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2738 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2739 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2740 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2741 2742 ;********** 2743 2744 005600 SN=5600 2745 2746 A5600: REPEAT ^D18, 2747 <;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2748 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2749 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2750 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2751 ;HALF OF THE AC IS TESTED WITH A 1. 2752 2753 SN=SN+1 2754 ZZ=ZZ+ZZ 2755 MOVE [0] ;CLEAR AC 2756 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2757 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2758 STOP 2759 2760 ;********** 2761 > 2762 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2763 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2764 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2765 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2766 ;HALF OF THE AC IS TESTED WITH A 1. 2767 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0072 2768 005601 SN=SN+1 2769 000001 000000 ZZ=ZZ+ZZ 2770 031630 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2771 031631 204 00 0 00 035034 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2772 031632 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2773 STOP^ 2774 031633 254 04 0 00 031634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2775 031634 324 00 0 00 031635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2778 2779 ;********** 2780 2781 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2782 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2783 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2784 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2785 ;HALF OF THE AC IS TESTED WITH A 1. 2786 2787 005602 SN=SN+1 2788 000002 000000 ZZ=ZZ+ZZ 2789 031635 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2790 031636 204 00 0 00 035035 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2791 031637 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2792 STOP^ 2793 031640 254 04 0 00 031641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2794 031641 324 00 0 00 031642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2795 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2796 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2797 2798 ;********** 2799 2800 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2801 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2802 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2803 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2804 ;HALF OF THE AC IS TESTED WITH A 1. 2805 2806 005603 SN=SN+1 2807 000004 000000 ZZ=ZZ+ZZ 2808 031642 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2809 031643 204 00 0 00 035036 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2810 031644 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2811 STOP^ 2812 031645 254 04 0 00 031646 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2813 031646 324 00 0 00 031647 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2814 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2815 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2816 2817 ;********** 2818 2819 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2820 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2821 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2822 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0073 2823 ;HALF OF THE AC IS TESTED WITH A 1. 2824 2825 005604 SN=SN+1 2826 000010 000000 ZZ=ZZ+ZZ 2827 031647 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2828 031650 204 00 0 00 035037 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2829 031651 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2830 STOP^ 2831 031652 254 04 0 00 031653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2832 031653 324 00 0 00 031654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2835 2836 ;********** 2837 2838 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2839 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2840 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2841 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2842 ;HALF OF THE AC IS TESTED WITH A 1. 2843 2844 005605 SN=SN+1 2845 000020 000000 ZZ=ZZ+ZZ 2846 031654 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2847 031655 204 00 0 00 035040 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2848 031656 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2849 STOP^ 2850 031657 254 04 0 00 031660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2851 031660 324 00 0 00 031661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2852 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2853 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2854 2855 ;********** 2856 2857 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2858 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2859 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2860 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2861 ;HALF OF THE AC IS TESTED WITH A 1. 2862 2863 005606 SN=SN+1 2864 000040 000000 ZZ=ZZ+ZZ 2865 031661 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2866 031662 204 00 0 00 035041 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2867 031663 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2868 STOP^ 2869 031664 254 04 0 00 031665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2870 031665 324 00 0 00 031666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2871 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2872 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2873 2874 ;********** 2875 2876 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2877 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0074 2878 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2879 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2880 ;HALF OF THE AC IS TESTED WITH A 1. 2881 2882 005607 SN=SN+1 2883 000100 000000 ZZ=ZZ+ZZ 2884 031666 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2885 031667 204 00 0 00 035042 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2886 031670 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2887 STOP^ 2888 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2889 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2890 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2891 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2892 2893 ;********** 2894 2895 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2896 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2897 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2898 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2899 ;HALF OF THE AC IS TESTED WITH A 1. 2900 2901 005610 SN=SN+1 2902 000200 000000 ZZ=ZZ+ZZ 2903 031673 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2904 031674 204 00 0 00 035043 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2905 031675 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2906 STOP^ 2907 031676 254 04 0 00 031677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2908 031677 324 00 0 00 031700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2909 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2910 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2911 2912 ;********** 2913 2914 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2915 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2916 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2917 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2918 ;HALF OF THE AC IS TESTED WITH A 1. 2919 2920 005611 SN=SN+1 2921 000400 000000 ZZ=ZZ+ZZ 2922 031700 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2923 031701 204 00 0 00 035011 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2924 031702 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2925 STOP^ 2926 031703 254 04 0 00 031704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2927 031704 324 00 0 00 031705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2930 2931 ;********** 2932 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0075 2933 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2934 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2935 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2936 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2937 ;HALF OF THE AC IS TESTED WITH A 1. 2938 2939 005612 SN=SN+1 2940 001000 000000 ZZ=ZZ+ZZ 2941 031705 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2942 031706 204 00 0 00 035044 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2943 031707 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2944 STOP^ 2945 031710 254 04 0 00 031711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2946 031711 324 00 0 00 031712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2947 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2948 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2949 2950 ;********** 2951 2952 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2953 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2954 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2955 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2956 ;HALF OF THE AC IS TESTED WITH A 1. 2957 2958 005613 SN=SN+1 2959 002000 000000 ZZ=ZZ+ZZ 2960 031712 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2961 031713 204 00 0 00 035045 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2962 031714 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2963 STOP^ 2964 031715 254 04 0 00 031716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2965 031716 324 00 0 00 031717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2966 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2967 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2968 2969 ;********** 2970 2971 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2972 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2973 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2974 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2975 ;HALF OF THE AC IS TESTED WITH A 1. 2976 2977 005614 SN=SN+1 2978 004000 000000 ZZ=ZZ+ZZ 2979 031717 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2980 031720 204 00 0 00 035046 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 2981 031721 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 2982 STOP^ 2983 031722 254 04 0 00 031723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2984 031723 324 00 0 00 031724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2985 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2986 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2987 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0076 2988 ;********** 2989 2990 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 2991 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 2992 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 2993 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 2994 ;HALF OF THE AC IS TESTED WITH A 1. 2995 2996 005615 SN=SN+1 2997 010000 000000 ZZ=ZZ+ZZ 2998 031724 200 00 0 00 035000 MOVE [0] ;CLEAR AC 2999 031725 204 00 0 00 035047 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3000 031726 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3001 STOP^ 3002 031727 254 04 0 00 031730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3003 031730 324 00 0 00 031731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3004 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3005 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3006 3007 ;********** 3008 3009 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3010 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3011 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3012 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3013 ;HALF OF THE AC IS TESTED WITH A 1. 3014 3015 005616 SN=SN+1 3016 020000 000000 ZZ=ZZ+ZZ 3017 031731 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3018 031732 204 00 0 00 035050 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3019 031733 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3020 STOP^ 3021 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3022 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3024 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3025 3026 ;********** 3027 3028 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3029 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3030 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3031 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3032 ;HALF OF THE AC IS TESTED WITH A 1. 3033 3034 005617 SN=SN+1 3035 040000 000000 ZZ=ZZ+ZZ 3036 031736 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3037 031737 204 00 0 00 035051 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3038 031740 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3039 STOP^ 3040 031741 254 04 0 00 031742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3041 031742 324 00 0 00 031743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3042 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0077 3043 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3044 3045 ;********** 3046 3047 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3048 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3049 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3050 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3051 ;HALF OF THE AC IS TESTED WITH A 1. 3052 3053 005620 SN=SN+1 3054 100000 000000 ZZ=ZZ+ZZ 3055 031743 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3056 031744 204 00 0 00 035052 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3057 031745 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3058 STOP^ 3059 031746 254 04 0 00 031747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3060 031747 324 00 0 00 031750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3061 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3062 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3063 3064 ;********** 3065 3066 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3067 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3068 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3069 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3070 ;HALF OF THE AC IS TESTED WITH A 1. 3071 3072 005621 SN=SN+1 3073 200000 000000 ZZ=ZZ+ZZ 3074 031750 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3075 031751 204 00 0 00 035053 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3076 031752 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3077 STOP^ 3078 031753 254 04 0 00 031754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3079 031754 324 00 0 00 031755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3082 3083 ;********** 3084 3085 ;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING. A WORD OF ALL 3086 ;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED. THE AC IS 3087 ;CHECKED FOR ITS CONTENTS NON-ZERO. THE TEST PASSES IF C(AC) IS 3088 ;NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT 3089 ;HALF OF THE AC IS TESTED WITH A 1. 3090 3091 005622 SN=SN+1 3092 400000 000000 ZZ=ZZ+ZZ 3093 031755 200 00 0 00 035000 MOVE [0] ;CLEAR AC 3094 031756 204 00 0 00 035003 MOVS [ZZ] ;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC 3095 031757 336 00 0 00 000000 SKIPN ;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP. 3096 STOP^ 3097 031760 254 04 0 00 031761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 22-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS SEQ 0078 3098 031761 324 00 0 00 031762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3099 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3100 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3101 3102 ;********** 3103 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 23 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0079 3104 SUBTTL TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) 3105 3106 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET 3107 ;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E. BIT 0 OF THE AC 3108 ;IS THEN CHECKED FOR A 1. 3109 3110 031762 200 00 0 00 035000 A5700: MOVE [0] ;PRELOAD AC WITH ALL ZEROS 3111 031763 414 00 0 00 035001 SETM [-1] ;*SETM SHOULD LOAD AC WITH ALL ONES 3112 031764 331 00 0 00 000000 SKIPL ;PASS TEST IF AC BIT 0 IS A ONE 3113 STOP^ 3114 031765 254 04 0 00 031766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3115 031766 324 00 0 00 031767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3117 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3118 ;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2] 3119 3120 ;********** 3121 3122 ;THIS TEST VERIFIES THAT SETM LOADS AC FROM E. THE AC IS FIRST SET TO 3123 ;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E. THE AC IS CHECKED 3124 ;FOR ALL ZEROS 3125 3126 031767 200 00 0 00 035001 A6000: MOVE [-1] ;PRESET AC TO ALL ONES 3127 031770 414 00 0 00 035000 SETM [0] ;*SETM SHOULD LOAD AC WITH ALL ONES 3128 031771 332 00 0 00 000000 SKIPE ;PASSES TEST IF C(AC) = 0 3129 STOP^ 3130 031772 254 04 0 00 031773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3131 031773 324 00 0 00 031774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3133 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3134 3135 ;AD AR + EN [ADAP], AD AR + EN C[ADAP], 3136 ;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2], 3137 ;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2] 3138 3139 ;********** 3140 3141 ;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS. FIRST, A WORD 3142 ;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS 3143 ;EXECUTED. THE AC IS CHECKED FOR ALL ZEROS. 3144 ;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. 3145 3146 031774 200 00 0 00 035000 A6100: MOVE [0] ;RESET AC TO ALL ZEROS 3147 031775 400 00 0 00 000000 SETZ ;*SETZ SHOULD CLEAR THE AC 3148 031776 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3149 STOP^ 3150 031777 254 04 0 00 032000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3151 032000 324 00 0 00 032001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3152 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3153 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3154 3155 ;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1] 3156 ;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1]; 3157 ;IR BOOLE [IR1] 3158 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 23-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0080 3159 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0081 3160 ;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS. FIRST, 3161 ;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED. THE AC IS THEN 3162 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET, THE TEST FAILS. 3163 3164 032001 200 00 0 00 035001 A6200: MOVE [-1] ;PRESET AC TO ALL ONES 3165 032002 400 00 0 00 032002 SETZ . ;*SETZ SHOULD CLEAR THE AC 3166 032003 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3167 STOP^ 3168 032004 254 04 0 00 032005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3169 032005 324 00 0 00 032006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3171 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3172 3173 ;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR] 3174 3175 ;********** 3176 3177 ;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC 3178 ;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC 3179 ;OF ALL ZEROS. THE AC AND E ARE THE SAME IN THIS TEST. 3180 ;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED. THE AC IS THEN 3181 ;CHECKED FOR ALL ZEROS. IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION, 3182 ;THE TEST FAILS. 3183 3184 3185 032006 200 00 0 00 035000 A6300: MOVE [0] ;PRESET AC, E TO ALL ZEROS 3186 032007 404 00 0 00 000000 AND ;*AND SHOULD RESULT IN C(AC) = 0 3187 032010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) = 0 3188 STOP^ 3189 032011 254 04 0 00 032012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3190 032012 324 00 0 00 032013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3191 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3192 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3193 3194 ;********** 3195 006400 SN=6400 3196 000000 ZZ=0 3197 3198 A6400: REPEAT ^D36, 3199 <;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3200 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3201 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3202 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3203 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3204 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3205 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3206 3207 SN=SN+1 3208 ZZ=ZZ+ZZ 3209 IFE ZZ, 3210 SETZ ;PRESET E TO ALL ZEROS 3211 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3212 ;WHERE X VARIES FROM 0 THRU 35 3213 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3214 SKIPE 1 ;FAIL IF C(AC) NON-ZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0082 3215 STOP 3216 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3217 STOP 3218 ;********** 3219 > 3220 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3221 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3222 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3223 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3224 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3225 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3226 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3227 3228 006401 SN=SN+1 3229 000000 ZZ=ZZ+ZZ 3230 000001 IFE ZZ, 3231 032013 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3232 032014 200 01 0 00 035012 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3233 ;WHERE X VARIES FROM 0 THRU 35 3234 032015 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3235 032016 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3236 STOP^ 3237 032017 254 04 0 00 032020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3238 032020 324 00 0 00 032021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3239 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3240 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3241 032021 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3242 STOP^ 3243 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3244 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3245 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3246 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3247 ;********** 3248 3249 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3250 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3251 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3252 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3253 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3254 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3255 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3256 3257 006402 SN=SN+1 3258 000002 ZZ=ZZ+ZZ 3259 IFE ZZ, 3260 032024 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3261 032025 200 01 0 00 035013 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3262 ;WHERE X VARIES FROM 0 THRU 35 3263 032026 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3264 032027 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3265 STOP^ 3266 032030 254 04 0 00 032031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3267 032031 324 00 0 00 032032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3268 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3269 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0083 3270 032032 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3271 STOP^ 3272 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3273 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3274 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3275 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3276 ;********** 3277 3278 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3279 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3280 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3281 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3282 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3283 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3284 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3285 3286 006403 SN=SN+1 3287 000004 ZZ=ZZ+ZZ 3288 IFE ZZ, 3289 032035 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3290 032036 200 01 0 00 035014 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3291 ;WHERE X VARIES FROM 0 THRU 35 3292 032037 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3293 032040 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3294 STOP^ 3295 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3296 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3299 032043 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3300 STOP^ 3301 032044 254 04 0 00 032045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3302 032045 324 00 0 00 032046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3303 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3304 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3305 ;********** 3306 3307 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3308 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3309 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3310 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3311 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3312 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3313 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3314 3315 006404 SN=SN+1 3316 000010 ZZ=ZZ+ZZ 3317 IFE ZZ, 3318 032046 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3319 032047 200 01 0 00 035015 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3320 ;WHERE X VARIES FROM 0 THRU 35 3321 032050 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3322 032051 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3323 STOP^ 3324 032052 254 04 0 00 032053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0084 3325 032053 324 00 0 00 032054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3326 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3327 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3328 032054 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3329 STOP^ 3330 032055 254 04 0 00 032056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3331 032056 324 00 0 00 032057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3334 ;********** 3335 3336 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3337 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3338 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3339 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3340 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3341 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3342 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3343 3344 006405 SN=SN+1 3345 000020 ZZ=ZZ+ZZ 3346 IFE ZZ, 3347 032057 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3348 032060 200 01 0 00 035016 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3349 ;WHERE X VARIES FROM 0 THRU 35 3350 032061 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3351 032062 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3352 STOP^ 3353 032063 254 04 0 00 032064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3354 032064 324 00 0 00 032065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3356 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3357 032065 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3358 STOP^ 3359 032066 254 04 0 00 032067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3360 032067 324 00 0 00 032070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3363 ;********** 3364 3365 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3366 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3367 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3368 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3369 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3370 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3371 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3372 3373 006406 SN=SN+1 3374 000040 ZZ=ZZ+ZZ 3375 IFE ZZ, 3376 032070 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3377 032071 200 01 0 00 035017 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3378 ;WHERE X VARIES FROM 0 THRU 35 3379 032072 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0085 3380 032073 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3381 STOP^ 3382 032074 254 04 0 00 032075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3383 032075 324 00 0 00 032076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3386 032076 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3387 STOP^ 3388 032077 254 04 0 00 032100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3389 032100 324 00 0 00 032101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3392 ;********** 3393 3394 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3395 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3396 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3397 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3398 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3399 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3400 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3401 3402 006407 SN=SN+1 3403 000100 ZZ=ZZ+ZZ 3404 IFE ZZ, 3405 032101 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3406 032102 200 01 0 00 035020 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3407 ;WHERE X VARIES FROM 0 THRU 35 3408 032103 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3409 032104 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3410 STOP^ 3411 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3412 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3413 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3414 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3415 032107 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3416 STOP^ 3417 032110 254 04 0 00 032111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3418 032111 324 00 0 00 032112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3420 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3421 ;********** 3422 3423 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3424 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3425 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3426 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3427 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3428 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3429 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3430 3431 006410 SN=SN+1 3432 000200 ZZ=ZZ+ZZ 3433 IFE ZZ, 3434 032112 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0086 3435 032113 200 01 0 00 035021 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3436 ;WHERE X VARIES FROM 0 THRU 35 3437 032114 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3438 032115 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3439 STOP^ 3440 032116 254 04 0 00 032117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3441 032117 324 00 0 00 032120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3442 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3443 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3444 032120 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3445 STOP^ 3446 032121 254 04 0 00 032122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3447 032122 324 00 0 00 032123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3448 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3449 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3450 ;********** 3451 3452 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3453 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3454 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3455 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3456 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3457 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3458 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3459 3460 006411 SN=SN+1 3461 000400 ZZ=ZZ+ZZ 3462 IFE ZZ, 3463 032123 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3464 032124 200 01 0 00 035022 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3465 ;WHERE X VARIES FROM 0 THRU 35 3466 032125 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3467 032126 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3468 STOP^ 3469 032127 254 04 0 00 032130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3470 032130 324 00 0 00 032131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3473 032131 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3474 STOP^ 3475 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3476 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3479 ;********** 3480 3481 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3482 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3483 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3484 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3485 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3486 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3487 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3488 3489 006412 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0087 3490 001000 ZZ=ZZ+ZZ 3491 IFE ZZ, 3492 032134 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3493 032135 200 01 0 00 035023 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3494 ;WHERE X VARIES FROM 0 THRU 35 3495 032136 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3496 032137 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3497 STOP^ 3498 032140 254 04 0 00 032141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3499 032141 324 00 0 00 032142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3501 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3502 032142 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3503 STOP^ 3504 032143 254 04 0 00 032144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3505 032144 324 00 0 00 032145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3506 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3507 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3508 ;********** 3509 3510 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3511 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3512 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3513 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3514 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3515 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3516 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3517 3518 006413 SN=SN+1 3519 002000 ZZ=ZZ+ZZ 3520 IFE ZZ, 3521 032145 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3522 032146 200 01 0 00 035024 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3523 ;WHERE X VARIES FROM 0 THRU 35 3524 032147 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3525 032150 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3526 STOP^ 3527 032151 254 04 0 00 032152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3528 032152 324 00 0 00 032153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3529 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3530 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3531 032153 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3532 STOP^ 3533 032154 254 04 0 00 032155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3534 032155 324 00 0 00 032156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3535 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3536 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3537 ;********** 3538 3539 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3540 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3541 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3542 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3543 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3544 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0088 3545 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3546 3547 006414 SN=SN+1 3548 004000 ZZ=ZZ+ZZ 3549 IFE ZZ, 3550 032156 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3551 032157 200 01 0 00 035025 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3552 ;WHERE X VARIES FROM 0 THRU 35 3553 032160 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3554 032161 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3555 STOP^ 3556 032162 254 04 0 00 032163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3557 032163 324 00 0 00 032164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3558 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3559 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3560 032164 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3561 STOP^ 3562 032165 254 04 0 00 032166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3563 032166 324 00 0 00 032167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3566 ;********** 3567 3568 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3569 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3570 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3571 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3572 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3573 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3574 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3575 3576 006415 SN=SN+1 3577 010000 ZZ=ZZ+ZZ 3578 IFE ZZ, 3579 032167 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3580 032170 200 01 0 00 035026 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3581 ;WHERE X VARIES FROM 0 THRU 35 3582 032171 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3583 032172 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3584 STOP^ 3585 032173 254 04 0 00 032174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3586 032174 324 00 0 00 032175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3587 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3588 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3589 032175 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3590 STOP^ 3591 032176 254 04 0 00 032177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3592 032177 324 00 0 00 032200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3593 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3594 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3595 ;********** 3596 3597 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3598 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3599 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0089 3600 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3601 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3602 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3603 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3604 3605 006416 SN=SN+1 3606 020000 ZZ=ZZ+ZZ 3607 IFE ZZ, 3608 032200 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3609 032201 200 01 0 00 035027 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3610 ;WHERE X VARIES FROM 0 THRU 35 3611 032202 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3612 032203 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3613 STOP^ 3614 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3615 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3616 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3617 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3618 032206 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3619 STOP^ 3620 032207 254 04 0 00 032210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3621 032210 324 00 0 00 032211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3623 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3624 ;********** 3625 3626 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3627 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3628 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3629 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3630 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3631 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3632 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3633 3634 006417 SN=SN+1 3635 040000 ZZ=ZZ+ZZ 3636 IFE ZZ, 3637 032211 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3638 032212 200 01 0 00 035030 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3639 ;WHERE X VARIES FROM 0 THRU 35 3640 032213 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3641 032214 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3642 STOP^ 3643 032215 254 04 0 00 032216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3644 032216 324 00 0 00 032217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3645 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3646 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3647 032217 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3648 STOP^ 3649 032220 254 04 0 00 032221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3650 032221 324 00 0 00 032222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3651 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3652 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3653 ;********** 3654 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0090 3655 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3656 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3657 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3658 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3659 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3660 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3661 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3662 3663 006420 SN=SN+1 3664 100000 ZZ=ZZ+ZZ 3665 IFE ZZ, 3666 032222 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3667 032223 200 01 0 00 035031 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3668 ;WHERE X VARIES FROM 0 THRU 35 3669 032224 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3670 032225 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3671 STOP^ 3672 032226 254 04 0 00 032227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3673 032227 324 00 0 00 032230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3674 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3675 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3676 032230 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3677 STOP^ 3678 032231 254 04 0 00 032232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3679 032232 324 00 0 00 032233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3680 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3681 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3682 ;********** 3683 3684 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3685 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3686 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3687 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3688 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3689 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3690 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3691 3692 006421 SN=SN+1 3693 200000 ZZ=ZZ+ZZ 3694 IFE ZZ, 3695 032233 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3696 032234 200 01 0 00 035032 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3697 ;WHERE X VARIES FROM 0 THRU 35 3698 032235 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3699 032236 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3700 STOP^ 3701 032237 254 04 0 00 032240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3702 032240 324 00 0 00 032241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3703 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3704 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3705 032241 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3706 STOP^ 3707 032242 254 04 0 00 032243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3708 032243 324 00 0 00 032244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0091 3710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3711 ;********** 3712 3713 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3714 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3715 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3716 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3717 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3718 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3719 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3720 3721 006422 SN=SN+1 3722 400000 ZZ=ZZ+ZZ 3723 IFE ZZ, 3724 032244 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3725 032245 200 01 0 00 035033 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3726 ;WHERE X VARIES FROM 0 THRU 35 3727 032246 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3728 032247 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3729 STOP^ 3730 032250 254 04 0 00 032251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3731 032251 324 00 0 00 032252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3733 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3734 032252 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3735 STOP^ 3736 032253 254 04 0 00 032254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3737 032254 324 00 0 00 032255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3739 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3740 ;********** 3741 3742 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3743 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3744 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3745 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3746 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3747 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3748 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3749 3750 006423 SN=SN+1 3751 000001 000000 ZZ=ZZ+ZZ 3752 IFE ZZ, 3753 032255 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3754 032256 200 01 0 00 035034 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3755 ;WHERE X VARIES FROM 0 THRU 35 3756 032257 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3757 032260 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3758 STOP^ 3759 032261 254 04 0 00 032262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3760 032262 324 00 0 00 032263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3763 032263 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3764 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0092 3765 032264 254 04 0 00 032265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3766 032265 324 00 0 00 032266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3767 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3768 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3769 ;********** 3770 3771 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3772 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3773 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3774 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3775 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3776 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3777 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3778 3779 006424 SN=SN+1 3780 000002 000000 ZZ=ZZ+ZZ 3781 IFE ZZ, 3782 032266 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3783 032267 200 01 0 00 035035 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3784 ;WHERE X VARIES FROM 0 THRU 35 3785 032270 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3786 032271 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3787 STOP^ 3788 032272 254 04 0 00 032273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3789 032273 324 00 0 00 032274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3790 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3791 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3792 032274 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3793 STOP^ 3794 032275 254 04 0 00 032276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3795 032276 324 00 0 00 032277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3798 ;********** 3799 3800 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3801 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3802 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3803 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3804 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3805 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3806 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3807 3808 006425 SN=SN+1 3809 000004 000000 ZZ=ZZ+ZZ 3810 IFE ZZ, 3811 032277 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3812 032300 200 01 0 00 035036 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3813 ;WHERE X VARIES FROM 0 THRU 35 3814 032301 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3815 032302 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3816 STOP^ 3817 032303 254 04 0 00 032304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3818 032304 324 00 0 00 032305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3819 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0093 3820 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3821 032305 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3822 STOP^ 3823 032306 254 04 0 00 032307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3824 032307 324 00 0 00 032310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3825 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3826 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3827 ;********** 3828 3829 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3830 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3831 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3832 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3833 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3834 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3835 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3836 3837 006426 SN=SN+1 3838 000010 000000 ZZ=ZZ+ZZ 3839 IFE ZZ, 3840 032310 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3841 032311 200 01 0 00 035037 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3842 ;WHERE X VARIES FROM 0 THRU 35 3843 032312 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3844 032313 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3845 STOP^ 3846 032314 254 04 0 00 032315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3847 032315 324 00 0 00 032316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3848 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3849 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3850 032316 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3851 STOP^ 3852 032317 254 04 0 00 032320 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3853 032320 324 00 0 00 032321 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3854 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3855 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3856 ;********** 3857 3858 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3859 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3860 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3861 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3862 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3863 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3864 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3865 3866 006427 SN=SN+1 3867 000020 000000 ZZ=ZZ+ZZ 3868 IFE ZZ, 3869 032321 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3870 032322 200 01 0 00 035040 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3871 ;WHERE X VARIES FROM 0 THRU 35 3872 032323 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3873 032324 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3874 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0094 3875 032325 254 04 0 00 032326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3876 032326 324 00 0 00 032327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3877 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3878 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3879 032327 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3880 STOP^ 3881 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3882 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3883 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3884 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3885 ;********** 3886 3887 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3888 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3889 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3890 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3891 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3892 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3893 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3894 3895 006430 SN=SN+1 3896 000040 000000 ZZ=ZZ+ZZ 3897 IFE ZZ, 3898 032332 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3899 032333 200 01 0 00 035041 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3900 ;WHERE X VARIES FROM 0 THRU 35 3901 032334 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3902 032335 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3903 STOP^ 3904 032336 254 04 0 00 032337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3905 032337 324 00 0 00 032340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3908 032340 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3909 STOP^ 3910 032341 254 04 0 00 032342 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3911 032342 324 00 0 00 032343 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3912 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3913 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3914 ;********** 3915 3916 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3917 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3918 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3919 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3920 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3921 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3922 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3923 3924 006431 SN=SN+1 3925 000100 000000 ZZ=ZZ+ZZ 3926 IFE ZZ, 3927 032343 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3928 032344 200 01 0 00 035042 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3929 ;WHERE X VARIES FROM 0 THRU 35 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0095 3930 032345 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3931 032346 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3932 STOP^ 3933 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3934 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3936 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3937 032351 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3938 STOP^ 3939 032352 254 04 0 00 032353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3940 032353 324 00 0 00 032354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3943 ;********** 3944 3945 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3946 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3947 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3948 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3949 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3950 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3951 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3952 3953 006432 SN=SN+1 3954 000200 000000 ZZ=ZZ+ZZ 3955 IFE ZZ, 3956 032354 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3957 032355 200 01 0 00 035043 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3958 ;WHERE X VARIES FROM 0 THRU 35 3959 032356 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3960 032357 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3961 STOP^ 3962 032360 254 04 0 00 032361 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3963 032361 324 00 0 00 032362 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3964 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3965 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3966 032362 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3967 STOP^ 3968 032363 254 04 0 00 032364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3969 032364 324 00 0 00 032365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3970 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3971 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3972 ;********** 3973 3974 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 3975 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 3976 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 3977 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 3978 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 3979 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 3980 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 3981 3982 006433 SN=SN+1 3983 000400 000000 ZZ=ZZ+ZZ 3984 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0096 3985 032365 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 3986 032366 200 01 0 00 035011 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 3987 ;WHERE X VARIES FROM 0 THRU 35 3988 032367 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 3989 032370 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 3990 STOP^ 3991 032371 254 04 0 00 032372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3992 032372 324 00 0 00 032373 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3994 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3995 032373 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 3996 STOP^ 3997 032374 254 04 0 00 032375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3998 032375 324 00 0 00 032376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4001 ;********** 4002 4003 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4004 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4005 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4006 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4007 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4008 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4009 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4010 4011 006434 SN=SN+1 4012 001000 000000 ZZ=ZZ+ZZ 4013 IFE ZZ, 4014 032376 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4015 032377 200 01 0 00 035044 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4016 ;WHERE X VARIES FROM 0 THRU 35 4017 032400 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4018 032401 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4019 STOP^ 4020 032402 254 04 0 00 032403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4021 032403 324 00 0 00 032404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4022 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4023 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4024 032404 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4025 STOP^ 4026 032405 254 04 0 00 032406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4027 032406 324 00 0 00 032407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4028 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4029 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4030 ;********** 4031 4032 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4033 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4034 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4035 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4036 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4037 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4038 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4039 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0097 4040 006435 SN=SN+1 4041 002000 000000 ZZ=ZZ+ZZ 4042 IFE ZZ, 4043 032407 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4044 032410 200 01 0 00 035045 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4045 ;WHERE X VARIES FROM 0 THRU 35 4046 032411 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4047 032412 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4048 STOP^ 4049 032413 254 04 0 00 032414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4050 032414 324 00 0 00 032415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4051 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4052 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4053 032415 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4054 STOP^ 4055 032416 254 04 0 00 032417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4056 032417 324 00 0 00 032420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4059 ;********** 4060 4061 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4062 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4063 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4064 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4065 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4066 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4067 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4068 4069 006436 SN=SN+1 4070 004000 000000 ZZ=ZZ+ZZ 4071 IFE ZZ, 4072 032420 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4073 032421 200 01 0 00 035046 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4074 ;WHERE X VARIES FROM 0 THRU 35 4075 032422 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4076 032423 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4077 STOP^ 4078 032424 254 04 0 00 032425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4079 032425 324 00 0 00 032426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4082 032426 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4083 STOP^ 4084 032427 254 04 0 00 032430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4085 032430 324 00 0 00 032431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4086 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4087 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4088 ;********** 4089 4090 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4091 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4092 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4093 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4094 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0098 4095 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4096 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4097 4098 006437 SN=SN+1 4099 010000 000000 ZZ=ZZ+ZZ 4100 IFE ZZ, 4101 032431 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4102 032432 200 01 0 00 035047 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4103 ;WHERE X VARIES FROM 0 THRU 35 4104 032433 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4105 032434 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4106 STOP^ 4107 032435 254 04 0 00 032436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4108 032436 324 00 0 00 032437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4111 032437 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4112 STOP^ 4113 032440 254 04 0 00 032441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4114 032441 324 00 0 00 032442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4116 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4117 ;********** 4118 4119 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4120 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4121 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4122 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4123 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4124 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4125 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4126 4127 006440 SN=SN+1 4128 020000 000000 ZZ=ZZ+ZZ 4129 IFE ZZ, 4130 032442 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4131 032443 200 01 0 00 035050 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4132 ;WHERE X VARIES FROM 0 THRU 35 4133 032444 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4134 032445 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4135 STOP^ 4136 032446 254 04 0 00 032447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4137 032447 324 00 0 00 032450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4138 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4139 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4140 032450 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4141 STOP^ 4142 032451 254 04 0 00 032452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4143 032452 324 00 0 00 032453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4145 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4146 ;********** 4147 4148 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4149 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0099 4150 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4151 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4152 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4153 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4154 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4155 4156 006441 SN=SN+1 4157 040000 000000 ZZ=ZZ+ZZ 4158 IFE ZZ, 4159 032453 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4160 032454 200 01 0 00 035051 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4161 ;WHERE X VARIES FROM 0 THRU 35 4162 032455 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4163 032456 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4164 STOP^ 4165 032457 254 04 0 00 032460 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4166 032460 324 00 0 00 032461 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4169 032461 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4170 STOP^ 4171 032462 254 04 0 00 032463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4172 032463 324 00 0 00 032464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4173 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4174 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4175 ;********** 4176 4177 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4178 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4179 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4180 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4181 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4182 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4183 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4184 4185 006442 SN=SN+1 4186 100000 000000 ZZ=ZZ+ZZ 4187 IFE ZZ, 4188 032464 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4189 032465 200 01 0 00 035052 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4190 ;WHERE X VARIES FROM 0 THRU 35 4191 032466 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4192 032467 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4193 STOP^ 4194 032470 254 04 0 00 032471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4195 032471 324 00 0 00 032472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4196 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4197 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4198 032472 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4199 STOP^ 4200 032473 254 04 0 00 032474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4201 032474 324 00 0 00 032475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4203 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4204 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0100 4205 4206 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4207 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4208 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4209 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4210 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4211 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4212 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4213 4214 006443 SN=SN+1 4215 200000 000000 ZZ=ZZ+ZZ 4216 IFE ZZ, 4217 032475 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4218 032476 200 01 0 00 035053 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4219 ;WHERE X VARIES FROM 0 THRU 35 4220 032477 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4221 032500 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4222 STOP^ 4223 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4224 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4226 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4227 032503 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4228 STOP^ 4229 032504 254 04 0 00 032505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4230 032505 324 00 0 00 032506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4232 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4233 ;********** 4234 4235 ;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION 4236 ;IS ZERO, THE RESULT WILL BE ZERO. THIS TEST IS REPEATED 36 TIMES WITH 4237 ;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X 4238 ;WHERE X TAKES ON INTEGER VALUES 0 THRU 35. E CONTAINS ALL ZEROS. 4239 ;THE RESULT SHOULD BE ALL ZEROS IN THE AC. IF C(AC) IS NON-ZERO, 4240 ;'AND' FAILED. C(0) IS ALSO CHECKED FOR ALL ZEROS. IF C(0) IS 4241 ;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'. 4242 4243 006444 SN=SN+1 4244 400000 000000 ZZ=ZZ+ZZ 4245 IFE ZZ, 4246 032506 400 00 0 00 000000 SETZ ;PRESET E TO ALL ZEROS 4247 032507 200 01 0 00 035003 MOVE 1,[ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X 4248 ;WHERE X VARIES FROM 0 THRU 35 4249 032510 404 01 0 00 000000 AND 1,0 ;*AND SHOULD RESULT IN C(AC) = 0 4250 032511 332 00 0 00 000001 SKIPE 1 ;FAIL IF C(AC) NON-ZERO 4251 STOP^ 4252 032512 254 04 0 00 032513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4253 032513 324 00 0 00 032514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4254 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4255 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4256 032514 332 00 0 00 000000 SKIPE 0 ;FAIL IF C(0) IS NON-ZERO 4257 STOP^ 4258 032515 254 04 0 00 032516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4259 032516 324 00 0 00 032517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 24-20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0101 4260 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4261 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4262 ;********** 4263 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0102 4264 006500 SN=6500 4265 000000 ZZ=0 4266 4267 A6500: REPEAT ^D36, 4268 <;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4269 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4270 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4271 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4272 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4273 SN=SN+1 4274 ZZ=ZZ+ZZ 4275 IFE ZZ, 4276 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4277 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4278 ;POSITION WITH ITSELF SHOULD RESULT WITH 4279 ;C(AC) NONZERO 4280 SKIPN ;PASS TEST IF C(AC) NONZERO 4281 STOP 4282 4283 ;********** 4284 > 4285 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4286 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4287 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4288 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4289 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4290 006501 SN=SN+1 4291 000000 ZZ=ZZ+ZZ 4292 000001 IFE ZZ, 4293 032517 200 00 0 00 035012 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4294 032520 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4295 ;POSITION WITH ITSELF SHOULD RESULT WITH 4296 ;C(AC) NONZERO 4297 032521 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4298 STOP^ 4299 032522 254 04 0 00 032523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4300 032523 324 00 0 00 032524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4301 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4302 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4303 4304 ;********** 4305 4306 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4307 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4308 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4309 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4310 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4311 006502 SN=SN+1 4312 000002 ZZ=ZZ+ZZ 4313 IFE ZZ, 4314 032524 200 00 0 00 035013 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4315 032525 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4316 ;POSITION WITH ITSELF SHOULD RESULT WITH 4317 ;C(AC) NONZERO 4318 032526 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0103 4319 STOP^ 4320 032527 254 04 0 00 032530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4321 032530 324 00 0 00 032531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4322 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4323 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4324 4325 ;********** 4326 4327 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4328 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4329 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4330 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4331 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4332 006503 SN=SN+1 4333 000004 ZZ=ZZ+ZZ 4334 IFE ZZ, 4335 032531 200 00 0 00 035014 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4336 032532 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4337 ;POSITION WITH ITSELF SHOULD RESULT WITH 4338 ;C(AC) NONZERO 4339 032533 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4340 STOP^ 4341 032534 254 04 0 00 032535 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4342 032535 324 00 0 00 032536 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4345 4346 ;********** 4347 4348 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4349 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4350 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4351 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4352 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4353 006504 SN=SN+1 4354 000010 ZZ=ZZ+ZZ 4355 IFE ZZ, 4356 032536 200 00 0 00 035015 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4357 032537 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4358 ;POSITION WITH ITSELF SHOULD RESULT WITH 4359 ;C(AC) NONZERO 4360 032540 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4361 STOP^ 4362 032541 254 04 0 00 032542 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4363 032542 324 00 0 00 032543 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4366 4367 ;********** 4368 4369 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4370 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4371 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4372 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4373 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0104 4374 006505 SN=SN+1 4375 000020 ZZ=ZZ+ZZ 4376 IFE ZZ, 4377 032543 200 00 0 00 035016 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4378 032544 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4379 ;POSITION WITH ITSELF SHOULD RESULT WITH 4380 ;C(AC) NONZERO 4381 032545 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4382 STOP^ 4383 032546 254 04 0 00 032547 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4384 032547 324 00 0 00 032550 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4385 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4386 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4387 4388 ;********** 4389 4390 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4391 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4392 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4393 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4394 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4395 006506 SN=SN+1 4396 000040 ZZ=ZZ+ZZ 4397 IFE ZZ, 4398 032550 200 00 0 00 035017 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4399 032551 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4400 ;POSITION WITH ITSELF SHOULD RESULT WITH 4401 ;C(AC) NONZERO 4402 032552 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4403 STOP^ 4404 032553 254 04 0 00 032554 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4405 032554 324 00 0 00 032555 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4406 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4407 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4408 4409 ;********** 4410 4411 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4412 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4413 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4414 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4415 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4416 006507 SN=SN+1 4417 000100 ZZ=ZZ+ZZ 4418 IFE ZZ, 4419 032555 200 00 0 00 035020 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4420 032556 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4421 ;POSITION WITH ITSELF SHOULD RESULT WITH 4422 ;C(AC) NONZERO 4423 032557 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4424 STOP^ 4425 032560 254 04 0 00 032561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4426 032561 324 00 0 00 032562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4427 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4428 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0105 4429 4430 ;********** 4431 4432 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4433 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4434 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4435 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4436 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4437 006510 SN=SN+1 4438 000200 ZZ=ZZ+ZZ 4439 IFE ZZ, 4440 032562 200 00 0 00 035021 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4441 032563 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4442 ;POSITION WITH ITSELF SHOULD RESULT WITH 4443 ;C(AC) NONZERO 4444 032564 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4445 STOP^ 4446 032565 254 04 0 00 032566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4447 032566 324 00 0 00 032567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4448 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4449 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4450 4451 ;********** 4452 4453 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4454 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4455 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4456 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4457 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4458 006511 SN=SN+1 4459 000400 ZZ=ZZ+ZZ 4460 IFE ZZ, 4461 032567 200 00 0 00 035022 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4462 032570 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4463 ;POSITION WITH ITSELF SHOULD RESULT WITH 4464 ;C(AC) NONZERO 4465 032571 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4466 STOP^ 4467 032572 254 04 0 00 032573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4468 032573 324 00 0 00 032574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4469 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4470 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4471 4472 ;********** 4473 4474 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4475 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4476 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4477 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4478 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4479 006512 SN=SN+1 4480 001000 ZZ=ZZ+ZZ 4481 IFE ZZ, 4482 032574 200 00 0 00 035023 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4483 032575 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0106 4484 ;POSITION WITH ITSELF SHOULD RESULT WITH 4485 ;C(AC) NONZERO 4486 032576 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4487 STOP^ 4488 032577 254 04 0 00 032600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4489 032600 324 00 0 00 032601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4490 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4491 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4492 4493 ;********** 4494 4495 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4496 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4497 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4498 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4499 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4500 006513 SN=SN+1 4501 002000 ZZ=ZZ+ZZ 4502 IFE ZZ, 4503 032601 200 00 0 00 035024 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4504 032602 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4505 ;POSITION WITH ITSELF SHOULD RESULT WITH 4506 ;C(AC) NONZERO 4507 032603 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4508 STOP^ 4509 032604 254 04 0 00 032605 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4510 032605 324 00 0 00 032606 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4513 4514 ;********** 4515 4516 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4517 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4518 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4519 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4520 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4521 006514 SN=SN+1 4522 004000 ZZ=ZZ+ZZ 4523 IFE ZZ, 4524 032606 200 00 0 00 035025 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4525 032607 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4526 ;POSITION WITH ITSELF SHOULD RESULT WITH 4527 ;C(AC) NONZERO 4528 032610 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4529 STOP^ 4530 032611 254 04 0 00 032612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4531 032612 324 00 0 00 032613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4533 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4534 4535 ;********** 4536 4537 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4538 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0107 4539 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4540 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4541 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4542 006515 SN=SN+1 4543 010000 ZZ=ZZ+ZZ 4544 IFE ZZ, 4545 032613 200 00 0 00 035026 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4546 032614 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4547 ;POSITION WITH ITSELF SHOULD RESULT WITH 4548 ;C(AC) NONZERO 4549 032615 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4550 STOP^ 4551 032616 254 04 0 00 032617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4552 032617 324 00 0 00 032620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4553 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4554 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4555 4556 ;********** 4557 4558 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4559 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4560 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4561 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4562 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4563 006516 SN=SN+1 4564 020000 ZZ=ZZ+ZZ 4565 IFE ZZ, 4566 032620 200 00 0 00 035027 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4567 032621 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4568 ;POSITION WITH ITSELF SHOULD RESULT WITH 4569 ;C(AC) NONZERO 4570 032622 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4571 STOP^ 4572 032623 254 04 0 00 032624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4573 032624 324 00 0 00 032625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4574 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4575 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4576 4577 ;********** 4578 4579 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4580 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4581 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4582 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4583 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4584 006517 SN=SN+1 4585 040000 ZZ=ZZ+ZZ 4586 IFE ZZ, 4587 032625 200 00 0 00 035030 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4588 032626 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4589 ;POSITION WITH ITSELF SHOULD RESULT WITH 4590 ;C(AC) NONZERO 4591 032627 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4592 STOP^ 4593 032630 254 04 0 00 032631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0108 4594 032631 324 00 0 00 032632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4595 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4596 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4597 4598 ;********** 4599 4600 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4601 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4602 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4603 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4604 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4605 006520 SN=SN+1 4606 100000 ZZ=ZZ+ZZ 4607 IFE ZZ, 4608 032632 200 00 0 00 035031 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4609 032633 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4610 ;POSITION WITH ITSELF SHOULD RESULT WITH 4611 ;C(AC) NONZERO 4612 032634 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4613 STOP^ 4614 032635 254 04 0 00 032636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4615 032636 324 00 0 00 032637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4616 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4617 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4618 4619 ;********** 4620 4621 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4622 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4623 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4624 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4625 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4626 006521 SN=SN+1 4627 200000 ZZ=ZZ+ZZ 4628 IFE ZZ, 4629 032637 200 00 0 00 035032 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4630 032640 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4631 ;POSITION WITH ITSELF SHOULD RESULT WITH 4632 ;C(AC) NONZERO 4633 032641 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4634 STOP^ 4635 032642 254 04 0 00 032643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4636 032643 324 00 0 00 032644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4638 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4639 4640 ;********** 4641 4642 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4643 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4644 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4645 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4646 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4647 006522 SN=SN+1 4648 400000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0109 4649 IFE ZZ, 4650 032644 200 00 0 00 035033 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4651 032645 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4652 ;POSITION WITH ITSELF SHOULD RESULT WITH 4653 ;C(AC) NONZERO 4654 032646 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4655 STOP^ 4656 032647 254 04 0 00 032650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4657 032650 324 00 0 00 032651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4658 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4659 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4660 4661 ;********** 4662 4663 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4664 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4665 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4666 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4667 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4668 006523 SN=SN+1 4669 000001 000000 ZZ=ZZ+ZZ 4670 IFE ZZ, 4671 032651 200 00 0 00 035034 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4672 032652 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4673 ;POSITION WITH ITSELF SHOULD RESULT WITH 4674 ;C(AC) NONZERO 4675 032653 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4676 STOP^ 4677 032654 254 04 0 00 032655 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4678 032655 324 00 0 00 032656 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4680 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4681 4682 ;********** 4683 4684 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4685 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4686 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4687 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4688 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4689 006524 SN=SN+1 4690 000002 000000 ZZ=ZZ+ZZ 4691 IFE ZZ, 4692 032656 200 00 0 00 035035 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4693 032657 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4694 ;POSITION WITH ITSELF SHOULD RESULT WITH 4695 ;C(AC) NONZERO 4696 032660 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4697 STOP^ 4698 032661 254 04 0 00 032662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4699 032662 324 00 0 00 032663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4700 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4701 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4702 4703 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0110 4704 4705 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4706 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4707 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4708 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4709 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4710 006525 SN=SN+1 4711 000004 000000 ZZ=ZZ+ZZ 4712 IFE ZZ, 4713 032663 200 00 0 00 035036 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4714 032664 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4715 ;POSITION WITH ITSELF SHOULD RESULT WITH 4716 ;C(AC) NONZERO 4717 032665 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4718 STOP^ 4719 032666 254 04 0 00 032667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4720 032667 324 00 0 00 032670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4721 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4722 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4723 4724 ;********** 4725 4726 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4727 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4728 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4729 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4730 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4731 006526 SN=SN+1 4732 000010 000000 ZZ=ZZ+ZZ 4733 IFE ZZ, 4734 032670 200 00 0 00 035037 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4735 032671 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4736 ;POSITION WITH ITSELF SHOULD RESULT WITH 4737 ;C(AC) NONZERO 4738 032672 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4739 STOP^ 4740 032673 254 04 0 00 032674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4741 032674 324 00 0 00 032675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4742 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4743 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4744 4745 ;********** 4746 4747 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4748 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4749 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4750 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4751 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4752 006527 SN=SN+1 4753 000020 000000 ZZ=ZZ+ZZ 4754 IFE ZZ, 4755 032675 200 00 0 00 035040 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4756 032676 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4757 ;POSITION WITH ITSELF SHOULD RESULT WITH 4758 ;C(AC) NONZERO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0111 4759 032677 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4760 STOP^ 4761 032700 254 04 0 00 032701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4762 032701 324 00 0 00 032702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4763 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4764 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4765 4766 ;********** 4767 4768 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4769 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4770 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4771 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4772 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4773 006530 SN=SN+1 4774 000040 000000 ZZ=ZZ+ZZ 4775 IFE ZZ, 4776 032702 200 00 0 00 035041 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4777 032703 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4778 ;POSITION WITH ITSELF SHOULD RESULT WITH 4779 ;C(AC) NONZERO 4780 032704 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4781 STOP^ 4782 032705 254 04 0 00 032706 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4783 032706 324 00 0 00 032707 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4786 4787 ;********** 4788 4789 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4790 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4791 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4792 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4793 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4794 006531 SN=SN+1 4795 000100 000000 ZZ=ZZ+ZZ 4796 IFE ZZ, 4797 032707 200 00 0 00 035042 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4798 032710 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4799 ;POSITION WITH ITSELF SHOULD RESULT WITH 4800 ;C(AC) NONZERO 4801 032711 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4802 STOP^ 4803 032712 254 04 0 00 032713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4804 032713 324 00 0 00 032714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4805 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4806 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4807 4808 ;********** 4809 4810 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4811 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4812 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4813 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0112 4814 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4815 006532 SN=SN+1 4816 000200 000000 ZZ=ZZ+ZZ 4817 IFE ZZ, 4818 032714 200 00 0 00 035043 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4819 032715 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4820 ;POSITION WITH ITSELF SHOULD RESULT WITH 4821 ;C(AC) NONZERO 4822 032716 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4823 STOP^ 4824 032717 254 04 0 00 032720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4825 032720 324 00 0 00 032721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4827 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4828 4829 ;********** 4830 4831 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4832 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4833 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4834 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4835 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4836 006533 SN=SN+1 4837 000400 000000 ZZ=ZZ+ZZ 4838 IFE ZZ, 4839 032721 200 00 0 00 035011 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4840 032722 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4841 ;POSITION WITH ITSELF SHOULD RESULT WITH 4842 ;C(AC) NONZERO 4843 032723 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4844 STOP^ 4845 032724 254 04 0 00 032725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4846 032725 324 00 0 00 032726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4847 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4848 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4849 4850 ;********** 4851 4852 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4853 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4854 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4855 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4856 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4857 006534 SN=SN+1 4858 001000 000000 ZZ=ZZ+ZZ 4859 IFE ZZ, 4860 032726 200 00 0 00 035044 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4861 032727 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4862 ;POSITION WITH ITSELF SHOULD RESULT WITH 4863 ;C(AC) NONZERO 4864 032730 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4865 STOP^ 4866 032731 254 04 0 00 032732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4867 032732 324 00 0 00 032733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0113 4869 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4870 4871 ;********** 4872 4873 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4874 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4875 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4876 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4877 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4878 006535 SN=SN+1 4879 002000 000000 ZZ=ZZ+ZZ 4880 IFE ZZ, 4881 032733 200 00 0 00 035045 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4882 032734 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4883 ;POSITION WITH ITSELF SHOULD RESULT WITH 4884 ;C(AC) NONZERO 4885 032735 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4886 STOP^ 4887 032736 254 04 0 00 032737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4888 032737 324 00 0 00 032740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4891 4892 ;********** 4893 4894 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4895 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4896 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4897 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4898 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4899 006536 SN=SN+1 4900 004000 000000 ZZ=ZZ+ZZ 4901 IFE ZZ, 4902 032740 200 00 0 00 035046 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4903 032741 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4904 ;POSITION WITH ITSELF SHOULD RESULT WITH 4905 ;C(AC) NONZERO 4906 032742 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4907 STOP^ 4908 032743 254 04 0 00 032744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4909 032744 324 00 0 00 032745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4910 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4911 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4912 4913 ;********** 4914 4915 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4916 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4917 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4918 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4919 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4920 006537 SN=SN+1 4921 010000 000000 ZZ=ZZ+ZZ 4922 IFE ZZ, 4923 032745 200 00 0 00 035047 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0114 4924 032746 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4925 ;POSITION WITH ITSELF SHOULD RESULT WITH 4926 ;C(AC) NONZERO 4927 032747 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4928 STOP^ 4929 032750 254 04 0 00 032751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4930 032751 324 00 0 00 032752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4931 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4932 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4933 4934 ;********** 4935 4936 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4937 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4938 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4939 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4940 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4941 006540 SN=SN+1 4942 020000 000000 ZZ=ZZ+ZZ 4943 IFE ZZ, 4944 032752 200 00 0 00 035050 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4945 032753 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4946 ;POSITION WITH ITSELF SHOULD RESULT WITH 4947 ;C(AC) NONZERO 4948 032754 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4949 STOP^ 4950 032755 254 04 0 00 032756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4951 032756 324 00 0 00 032757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4952 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4953 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4954 4955 ;********** 4956 4957 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 4958 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4959 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4960 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4961 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4962 006541 SN=SN+1 4963 040000 000000 ZZ=ZZ+ZZ 4964 IFE ZZ, 4965 032757 200 00 0 00 035051 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4966 032760 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4967 ;POSITION WITH ITSELF SHOULD RESULT WITH 4968 ;C(AC) NONZERO 4969 032761 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4970 STOP^ 4971 032762 254 04 0 00 032763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4972 032763 324 00 0 00 032764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4973 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4974 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4975 4976 ;********** 4977 4978 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0115 4979 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 4980 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 4981 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 4982 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 4983 006542 SN=SN+1 4984 100000 000000 ZZ=ZZ+ZZ 4985 IFE ZZ, 4986 032764 200 00 0 00 035052 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 4987 032765 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 4988 ;POSITION WITH ITSELF SHOULD RESULT WITH 4989 ;C(AC) NONZERO 4990 032766 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 4991 STOP^ 4992 032767 254 04 0 00 032770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4993 032770 324 00 0 00 032771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4996 4997 ;********** 4998 4999 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 5000 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 5001 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 5002 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 5003 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 5004 006543 SN=SN+1 5005 200000 000000 ZZ=ZZ+ZZ 5006 IFE ZZ, 5007 032771 200 00 0 00 035053 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 5008 032772 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 5009 ;POSITION WITH ITSELF SHOULD RESULT WITH 5010 ;C(AC) NONZERO 5011 032773 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 5012 STOP^ 5013 032774 254 04 0 00 032775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5014 032775 324 00 0 00 032776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5015 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5016 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5017 5018 ;********** 5019 5020 ;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF 5021 ;SHOULD BE THAT SAME WORD. A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE 5022 ;IN ONLY ONE BIT IS ANDED WITH ITSELF. THE AC IS THEN CHECKED FOR ITS 5023 ;CONTENTS NONZERO. IF C(AC)=0, THE 'AND' INSTRUCTION FAILED. THIS TEST IS REPEATED 5024 ;36 TIMES TO CHECK EACH BIT INDIVIDUALLY. 5025 006544 SN=SN+1 5026 400000 000000 ZZ=ZZ+ZZ 5027 IFE ZZ, 5028 032776 200 00 0 00 035003 MOVE [ZZ] ;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT 5029 032777 404 00 0 00 000000 AND ;*AND OF WORD CONTAINING A ONE IN ONE BIT 5030 ;POSITION WITH ITSELF SHOULD RESULT WITH 5031 ;C(AC) NONZERO 5032 033000 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NONZERO 5033 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 25-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0116 5034 033001 254 04 0 00 033002 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5035 033002 324 00 0 00 033003 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5038 5039 ;********** 5040 5041 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE 5042 ;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC. 5043 ;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN 5044 ;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0. 5045 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5046 5047 033003 200 00 0 00 035000 A6600: MOVE [0] ;PRESET AC TO ALL ZEROS 5048 033004 404 00 0 00 035000 AND [0] ;*AND OF TWO WORDS OF ALL ZEROS 5049 ;SHOULD RESULT IN C(AC)=0 5050 033005 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5051 STOP^ 5052 033006 254 04 0 00 033007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5053 033007 324 00 0 00 033010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5054 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5055 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5056 5057 ;********** 5058 5059 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0 5060 ;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE AC IS 5061 ;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE 5062 ;E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. 5063 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5064 5065 033010 200 00 0 00 035000 A6700: MOVE [0] ;PRESET AC TO ALL ZEROS 5066 033011 404 00 0 00 035001 AND [-1] ;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0 5067 033012 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5068 STOP^ 5069 033013 254 04 0 00 033014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5070 033014 324 00 0 00 033015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5071 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5072 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5073 5074 ;AD FM+EN [ADFP],AD FM+EN A [ADFP], 5075 ;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2], 5076 ;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2] 5077 5078 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 26 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0117 5079 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0 5080 ;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE 5081 ;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL 5082 ;ZEROS, WHERE E IS BEYOND THE AC RANGE. THE RESULT SHOULD BE C(AC)=0. 5083 ;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5084 5085 033015 200 00 0 00 035001 A7000: MOVE [-1] ;PRESET AC TO ALL ONES 5086 033016 404 00 0 00 035000 AND [0] ;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0 5087 033017 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5088 STOP^ 5089 033020 254 04 0 00 033021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5090 033021 324 00 0 00 033022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5091 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5092 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5093 5094 ;********** 5095 5096 ;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS 5097 ;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES. FIRST, THE 5098 ;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL 5099 ;ONES. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5100 ;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND. 5101 5102 033022 200 00 0 00 035001 A7100: MOVE [-1] ;PRELOAD AC WITH ALL ONES 5103 033023 404 00 0 00 035001 AND [-1] ;*AND OF TWO WORDS OF ALL ONES SHOULD 5104 ;RESULT IN C(AC)=ALL ONES 5105 033024 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON ZERO 5106 STOP^ 5107 033025 254 04 0 00 033026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5108 033026 324 00 0 00 033027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5111 5112 ;********** 5113 5114 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5115 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO. 5116 ;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO. 5117 ;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS. 5118 033027 200 00 0 00 035000 A7200: MOVE [0] ;CLEAR AC 5119 033030 430 00 0 00 035057 XOR [707070707070] ;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD 5120 ;RESTULT IN C(AC)=707070707070 5121 033031 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5122 STOP^ 5123 033032 254 04 0 00 033033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5124 033033 324 00 0 00 033034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5125 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5126 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5127 5128 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0118 5129 007300 SN=7300 5130 000000 ZZ=0 5131 5132 A7300: REPEAT ^D36, 5133 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5134 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5135 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5136 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5137 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5138 SN=SN+1 5139 ZZ=ZZ+ZZ 5140 IFE ZZ, 5141 MOVE [0] ;CLEAR AC 5142 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5143 ;RESULT IN C(AC) NONZERO 5144 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5145 STOP 5146 5147 ;********** 5148 > 5149 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5150 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5151 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5152 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5153 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5154 007301 SN=SN+1 5155 000000 ZZ=ZZ+ZZ 5156 000001 IFE ZZ, 5157 033034 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5158 033035 430 00 0 00 035012 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5159 ;RESULT IN C(AC) NONZERO 5160 033036 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5161 STOP^ 5162 033037 254 04 0 00 033040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5163 033040 324 00 0 00 033041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5166 5167 ;********** 5168 5169 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5170 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5171 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5172 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5173 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5174 007302 SN=SN+1 5175 000002 ZZ=ZZ+ZZ 5176 IFE ZZ, 5177 033041 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5178 033042 430 00 0 00 035013 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5179 ;RESULT IN C(AC) NONZERO 5180 033043 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5181 STOP^ 5182 033044 254 04 0 00 033045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5183 033045 324 00 0 00 033046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0119 5184 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5185 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5186 5187 ;********** 5188 5189 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5190 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5191 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5192 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5193 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5194 007303 SN=SN+1 5195 000004 ZZ=ZZ+ZZ 5196 IFE ZZ, 5197 033046 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5198 033047 430 00 0 00 035014 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5199 ;RESULT IN C(AC) NONZERO 5200 033050 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5201 STOP^ 5202 033051 254 04 0 00 033052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5203 033052 324 00 0 00 033053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5204 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5205 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5206 5207 ;********** 5208 5209 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5210 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5211 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5212 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5213 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5214 007304 SN=SN+1 5215 000010 ZZ=ZZ+ZZ 5216 IFE ZZ, 5217 033053 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5218 033054 430 00 0 00 035015 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5219 ;RESULT IN C(AC) NONZERO 5220 033055 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5221 STOP^ 5222 033056 254 04 0 00 033057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5223 033057 324 00 0 00 033060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5224 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5225 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5226 5227 ;********** 5228 5229 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5230 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5231 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5232 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5233 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5234 007305 SN=SN+1 5235 000020 ZZ=ZZ+ZZ 5236 IFE ZZ, 5237 033060 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5238 033061 430 00 0 00 035016 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0120 5239 ;RESULT IN C(AC) NONZERO 5240 033062 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5241 STOP^ 5242 033063 254 04 0 00 033064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5243 033064 324 00 0 00 033065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5244 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5245 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5246 5247 ;********** 5248 5249 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5250 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5251 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5252 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5253 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5254 007306 SN=SN+1 5255 000040 ZZ=ZZ+ZZ 5256 IFE ZZ, 5257 033065 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5258 033066 430 00 0 00 035017 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5259 ;RESULT IN C(AC) NONZERO 5260 033067 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5261 STOP^ 5262 033070 254 04 0 00 033071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5263 033071 324 00 0 00 033072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5264 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5265 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5266 5267 ;********** 5268 5269 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5270 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5271 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5272 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5273 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5274 007307 SN=SN+1 5275 000100 ZZ=ZZ+ZZ 5276 IFE ZZ, 5277 033072 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5278 033073 430 00 0 00 035020 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5279 ;RESULT IN C(AC) NONZERO 5280 033074 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5281 STOP^ 5282 033075 254 04 0 00 033076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5283 033076 324 00 0 00 033077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5284 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5285 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5286 5287 ;********** 5288 5289 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5290 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5291 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5292 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5293 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0121 5294 007310 SN=SN+1 5295 000200 ZZ=ZZ+ZZ 5296 IFE ZZ, 5297 033077 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5298 033100 430 00 0 00 035021 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5299 ;RESULT IN C(AC) NONZERO 5300 033101 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5301 STOP^ 5302 033102 254 04 0 00 033103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5303 033103 324 00 0 00 033104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5306 5307 ;********** 5308 5309 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5310 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5311 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5312 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5313 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5314 007311 SN=SN+1 5315 000400 ZZ=ZZ+ZZ 5316 IFE ZZ, 5317 033104 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5318 033105 430 00 0 00 035022 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5319 ;RESULT IN C(AC) NONZERO 5320 033106 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5321 STOP^ 5322 033107 254 04 0 00 033110 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5323 033110 324 00 0 00 033111 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5325 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5326 5327 ;********** 5328 5329 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5330 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5331 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5332 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5333 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5334 007312 SN=SN+1 5335 001000 ZZ=ZZ+ZZ 5336 IFE ZZ, 5337 033111 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5338 033112 430 00 0 00 035023 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5339 ;RESULT IN C(AC) NONZERO 5340 033113 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5341 STOP^ 5342 033114 254 04 0 00 033115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5343 033115 324 00 0 00 033116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5344 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5345 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5346 5347 ;********** 5348 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0122 5349 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5350 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5351 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5352 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5353 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5354 007313 SN=SN+1 5355 002000 ZZ=ZZ+ZZ 5356 IFE ZZ, 5357 033116 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5358 033117 430 00 0 00 035024 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5359 ;RESULT IN C(AC) NONZERO 5360 033120 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5361 STOP^ 5362 033121 254 04 0 00 033122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5363 033122 324 00 0 00 033123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5366 5367 ;********** 5368 5369 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5370 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5371 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5372 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5373 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5374 007314 SN=SN+1 5375 004000 ZZ=ZZ+ZZ 5376 IFE ZZ, 5377 033123 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5378 033124 430 00 0 00 035025 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5379 ;RESULT IN C(AC) NONZERO 5380 033125 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5381 STOP^ 5382 033126 254 04 0 00 033127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5383 033127 324 00 0 00 033130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5386 5387 ;********** 5388 5389 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5390 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5391 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5392 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5393 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5394 007315 SN=SN+1 5395 010000 ZZ=ZZ+ZZ 5396 IFE ZZ, 5397 033130 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5398 033131 430 00 0 00 035026 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5399 ;RESULT IN C(AC) NONZERO 5400 033132 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5401 STOP^ 5402 033133 254 04 0 00 033134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5403 033134 324 00 0 00 033135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0123 5404 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5405 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5406 5407 ;********** 5408 5409 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5410 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5411 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5412 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5413 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5414 007316 SN=SN+1 5415 020000 ZZ=ZZ+ZZ 5416 IFE ZZ, 5417 033135 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5418 033136 430 00 0 00 035027 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5419 ;RESULT IN C(AC) NONZERO 5420 033137 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5421 STOP^ 5422 033140 254 04 0 00 033141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5423 033141 324 00 0 00 033142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5424 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5425 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5426 5427 ;********** 5428 5429 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5430 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5431 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5432 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5433 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5434 007317 SN=SN+1 5435 040000 ZZ=ZZ+ZZ 5436 IFE ZZ, 5437 033142 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5438 033143 430 00 0 00 035030 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5439 ;RESULT IN C(AC) NONZERO 5440 033144 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5441 STOP^ 5442 033145 254 04 0 00 033146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5443 033146 324 00 0 00 033147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5444 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5445 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5446 5447 ;********** 5448 5449 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5450 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5451 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5452 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5453 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5454 007320 SN=SN+1 5455 100000 ZZ=ZZ+ZZ 5456 IFE ZZ, 5457 033147 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5458 033150 430 00 0 00 035031 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0124 5459 ;RESULT IN C(AC) NONZERO 5460 033151 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5461 STOP^ 5462 033152 254 04 0 00 033153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5463 033153 324 00 0 00 033154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5464 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5465 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5466 5467 ;********** 5468 5469 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5470 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5471 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5472 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5473 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5474 007321 SN=SN+1 5475 200000 ZZ=ZZ+ZZ 5476 IFE ZZ, 5477 033154 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5478 033155 430 00 0 00 035032 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5479 ;RESULT IN C(AC) NONZERO 5480 033156 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5481 STOP^ 5482 033157 254 04 0 00 033160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5483 033160 324 00 0 00 033161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5486 5487 ;********** 5488 5489 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5490 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5491 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5492 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5493 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5494 007322 SN=SN+1 5495 400000 ZZ=ZZ+ZZ 5496 IFE ZZ, 5497 033161 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5498 033162 430 00 0 00 035033 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5499 ;RESULT IN C(AC) NONZERO 5500 033163 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5501 STOP^ 5502 033164 254 04 0 00 033165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5503 033165 324 00 0 00 033166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5504 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5505 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5506 5507 ;********** 5508 5509 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5510 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5511 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5512 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5513 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0125 5514 007323 SN=SN+1 5515 000001 000000 ZZ=ZZ+ZZ 5516 IFE ZZ, 5517 033166 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5518 033167 430 00 0 00 035034 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5519 ;RESULT IN C(AC) NONZERO 5520 033170 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5521 STOP^ 5522 033171 254 04 0 00 033172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5523 033172 324 00 0 00 033173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5526 5527 ;********** 5528 5529 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5530 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5531 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5532 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5533 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5534 007324 SN=SN+1 5535 000002 000000 ZZ=ZZ+ZZ 5536 IFE ZZ, 5537 033173 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5538 033174 430 00 0 00 035035 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5539 ;RESULT IN C(AC) NONZERO 5540 033175 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5541 STOP^ 5542 033176 254 04 0 00 033177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5543 033177 324 00 0 00 033200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5545 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5546 5547 ;********** 5548 5549 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5550 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5551 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5552 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5553 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5554 007325 SN=SN+1 5555 000004 000000 ZZ=ZZ+ZZ 5556 IFE ZZ, 5557 033200 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5558 033201 430 00 0 00 035036 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5559 ;RESULT IN C(AC) NONZERO 5560 033202 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5561 STOP^ 5562 033203 254 04 0 00 033204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5563 033204 324 00 0 00 033205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5566 5567 ;********** 5568 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0126 5569 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5570 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5571 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5572 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5573 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5574 007326 SN=SN+1 5575 000010 000000 ZZ=ZZ+ZZ 5576 IFE ZZ, 5577 033205 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5578 033206 430 00 0 00 035037 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5579 ;RESULT IN C(AC) NONZERO 5580 033207 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5581 STOP^ 5582 033210 254 04 0 00 033211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5583 033211 324 00 0 00 033212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5585 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5586 5587 ;********** 5588 5589 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5590 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5591 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5592 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5593 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5594 007327 SN=SN+1 5595 000020 000000 ZZ=ZZ+ZZ 5596 IFE ZZ, 5597 033212 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5598 033213 430 00 0 00 035040 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5599 ;RESULT IN C(AC) NONZERO 5600 033214 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5601 STOP^ 5602 033215 254 04 0 00 033216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5603 033216 324 00 0 00 033217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5604 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5605 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5606 5607 ;********** 5608 5609 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5610 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5611 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5612 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5613 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5614 007330 SN=SN+1 5615 000040 000000 ZZ=ZZ+ZZ 5616 IFE ZZ, 5617 033217 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5618 033220 430 00 0 00 035041 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5619 ;RESULT IN C(AC) NONZERO 5620 033221 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5621 STOP^ 5622 033222 254 04 0 00 033223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5623 033223 324 00 0 00 033224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0127 5624 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5625 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5626 5627 ;********** 5628 5629 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5630 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5631 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5632 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5633 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5634 007331 SN=SN+1 5635 000100 000000 ZZ=ZZ+ZZ 5636 IFE ZZ, 5637 033224 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5638 033225 430 00 0 00 035042 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5639 ;RESULT IN C(AC) NONZERO 5640 033226 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5641 STOP^ 5642 033227 254 04 0 00 033230 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5643 033230 324 00 0 00 033231 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5646 5647 ;********** 5648 5649 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5650 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5651 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5652 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5653 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5654 007332 SN=SN+1 5655 000200 000000 ZZ=ZZ+ZZ 5656 IFE ZZ, 5657 033231 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5658 033232 430 00 0 00 035043 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5659 ;RESULT IN C(AC) NONZERO 5660 033233 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5661 STOP^ 5662 033234 254 04 0 00 033235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5663 033235 324 00 0 00 033236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5664 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5665 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5666 5667 ;********** 5668 5669 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5670 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5671 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5672 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5673 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5674 007333 SN=SN+1 5675 000400 000000 ZZ=ZZ+ZZ 5676 IFE ZZ, 5677 033236 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5678 033237 430 00 0 00 035011 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0128 5679 ;RESULT IN C(AC) NONZERO 5680 033240 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5681 STOP^ 5682 033241 254 04 0 00 033242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5683 033242 324 00 0 00 033243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5686 5687 ;********** 5688 5689 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5690 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5691 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5692 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5693 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5694 007334 SN=SN+1 5695 001000 000000 ZZ=ZZ+ZZ 5696 IFE ZZ, 5697 033243 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5698 033244 430 00 0 00 035044 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5699 ;RESULT IN C(AC) NONZERO 5700 033245 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5701 STOP^ 5702 033246 254 04 0 00 033247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5703 033247 324 00 0 00 033250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5704 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5705 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5706 5707 ;********** 5708 5709 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5710 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5711 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5712 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5713 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5714 007335 SN=SN+1 5715 002000 000000 ZZ=ZZ+ZZ 5716 IFE ZZ, 5717 033250 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5718 033251 430 00 0 00 035045 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5719 ;RESULT IN C(AC) NONZERO 5720 033252 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5721 STOP^ 5722 033253 254 04 0 00 033254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5723 033254 324 00 0 00 033255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5725 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5726 5727 ;********** 5728 5729 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5730 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5731 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5732 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5733 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0129 5734 007336 SN=SN+1 5735 004000 000000 ZZ=ZZ+ZZ 5736 IFE ZZ, 5737 033255 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5738 033256 430 00 0 00 035046 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5739 ;RESULT IN C(AC) NONZERO 5740 033257 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5741 STOP^ 5742 033260 254 04 0 00 033261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5743 033261 324 00 0 00 033262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5744 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5745 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5746 5747 ;********** 5748 5749 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5750 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5751 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5752 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5753 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5754 007337 SN=SN+1 5755 010000 000000 ZZ=ZZ+ZZ 5756 IFE ZZ, 5757 033262 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5758 033263 430 00 0 00 035047 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5759 ;RESULT IN C(AC) NONZERO 5760 033264 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5761 STOP^ 5762 033265 254 04 0 00 033266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5763 033266 324 00 0 00 033267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5764 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5765 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5766 5767 ;********** 5768 5769 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5770 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5771 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5772 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5773 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5774 007340 SN=SN+1 5775 020000 000000 ZZ=ZZ+ZZ 5776 IFE ZZ, 5777 033267 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5778 033270 430 00 0 00 035050 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5779 ;RESULT IN C(AC) NONZERO 5780 033271 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5781 STOP^ 5782 033272 254 04 0 00 033273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5783 033273 324 00 0 00 033274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5786 5787 ;********** 5788 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0130 5789 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5790 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5791 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5792 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5793 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5794 007341 SN=SN+1 5795 040000 000000 ZZ=ZZ+ZZ 5796 IFE ZZ, 5797 033274 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5798 033275 430 00 0 00 035051 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5799 ;RESULT IN C(AC) NONZERO 5800 033276 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5801 STOP^ 5802 033277 254 04 0 00 033300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5803 033300 324 00 0 00 033301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5804 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5805 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5806 5807 ;********** 5808 5809 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5810 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5811 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5812 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5813 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5814 007342 SN=SN+1 5815 100000 000000 ZZ=ZZ+ZZ 5816 IFE ZZ, 5817 033301 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5818 033302 430 00 0 00 035052 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5819 ;RESULT IN C(AC) NONZERO 5820 033303 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5821 STOP^ 5822 033304 254 04 0 00 033305 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5823 033305 324 00 0 00 033306 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5824 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5825 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5826 5827 ;********** 5828 5829 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5830 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5831 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5832 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5833 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5834 007343 SN=SN+1 5835 200000 000000 ZZ=ZZ+ZZ 5836 IFE ZZ, 5837 033306 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5838 033307 430 00 0 00 035053 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5839 ;RESULT IN C(AC) NONZERO 5840 033310 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5841 STOP^ 5842 033311 254 04 0 00 033312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5843 033312 324 00 0 00 033313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0131 5844 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5845 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5846 5847 ;********** 5848 5849 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5850 ;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5851 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED 5852 ;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE. 5853 ;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5854 007344 SN=SN+1 5855 400000 000000 ZZ=ZZ+ZZ 5856 IFE ZZ, 5857 033313 200 00 0 00 035000 MOVE [0] ;CLEAR AC 5858 033314 430 00 0 00 035003 XOR [ZZ] ;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD 5859 ;RESULT IN C(AC) NONZERO 5860 033315 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5861 STOP^ 5862 033316 254 04 0 00 033317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5863 033317 324 00 0 00 033320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5865 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5866 5867 ;********** 5868 5869 007400 SN=7400 5870 000000 ZZ=0 5871 5872 A7400: REPEAT ^D36, 5873 <;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5874 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5875 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5876 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5877 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5878 SN=SN+1 5879 ZZ=ZZ+ZZ 5880 IFE ZZ, 5881 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5882 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5883 ;RESULT IN C(AC) NON-ZERO 5884 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5885 STOP 5886 5887 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5888 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5889 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5890 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5891 5892 ;********** 5893 > 5894 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5895 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5896 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5897 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5898 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0132 5899 007401 SN=SN+1 5900 000000 ZZ=ZZ+ZZ 5901 000001 IFE ZZ, 5902 033320 200 00 0 00 035012 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5903 033321 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5904 ;RESULT IN C(AC) NON-ZERO 5905 033322 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5906 STOP^ 5907 033323 254 04 0 00 033324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5908 033324 324 00 0 00 033325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5909 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5910 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5911 5912 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5913 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5914 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5915 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5916 5917 ;********** 5918 5919 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5920 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5921 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5922 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5923 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5924 007402 SN=SN+1 5925 000002 ZZ=ZZ+ZZ 5926 IFE ZZ, 5927 033325 200 00 0 00 035013 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5928 033326 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5929 ;RESULT IN C(AC) NON-ZERO 5930 033327 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5931 STOP^ 5932 033330 254 04 0 00 033331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5933 033331 324 00 0 00 033332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5934 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5935 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5936 5937 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5938 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5939 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5940 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5941 5942 ;********** 5943 5944 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5945 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5946 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5947 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5948 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5949 007403 SN=SN+1 5950 000004 ZZ=ZZ+ZZ 5951 IFE ZZ, 5952 033332 200 00 0 00 035014 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5953 033333 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0133 5954 ;RESULT IN C(AC) NON-ZERO 5955 033334 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5956 STOP^ 5957 033335 254 04 0 00 033336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5958 033336 324 00 0 00 033337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5959 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5960 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5961 5962 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5963 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5964 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5965 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5966 5967 ;********** 5968 5969 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5970 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5971 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5972 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5973 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5974 007404 SN=SN+1 5975 000010 ZZ=ZZ+ZZ 5976 IFE ZZ, 5977 033337 200 00 0 00 035015 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 5978 033340 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 5979 ;RESULT IN C(AC) NON-ZERO 5980 033341 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 5981 STOP^ 5982 033342 254 04 0 00 033343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5983 033343 324 00 0 00 033344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5984 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5985 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5986 5987 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 5988 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 5989 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 5990 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 5991 5992 ;********** 5993 5994 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 5995 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 5996 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 5997 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 5998 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 5999 007405 SN=SN+1 6000 000020 ZZ=ZZ+ZZ 6001 IFE ZZ, 6002 033344 200 00 0 00 035016 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6003 033345 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6004 ;RESULT IN C(AC) NON-ZERO 6005 033346 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6006 STOP^ 6007 033347 254 04 0 00 033350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6008 033350 324 00 0 00 033351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0134 6009 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6010 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6011 6012 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6013 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6014 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6015 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6016 6017 ;********** 6018 6019 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6020 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6021 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6022 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6023 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6024 007406 SN=SN+1 6025 000040 ZZ=ZZ+ZZ 6026 IFE ZZ, 6027 033351 200 00 0 00 035017 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6028 033352 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6029 ;RESULT IN C(AC) NON-ZERO 6030 033353 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6031 STOP^ 6032 033354 254 04 0 00 033355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6033 033355 324 00 0 00 033356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6034 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6035 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6036 6037 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6038 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6039 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6040 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6041 6042 ;********** 6043 6044 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6045 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6046 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6047 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6048 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6049 007407 SN=SN+1 6050 000100 ZZ=ZZ+ZZ 6051 IFE ZZ, 6052 033356 200 00 0 00 035020 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6053 033357 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6054 ;RESULT IN C(AC) NON-ZERO 6055 033360 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6056 STOP^ 6057 033361 254 04 0 00 033362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6058 033362 324 00 0 00 033363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6059 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6060 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6061 6062 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6063 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-17 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0135 6064 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6065 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6066 6067 ;********** 6068 6069 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6070 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6071 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6072 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6073 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6074 007410 SN=SN+1 6075 000200 ZZ=ZZ+ZZ 6076 IFE ZZ, 6077 033363 200 00 0 00 035021 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6078 033364 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6079 ;RESULT IN C(AC) NON-ZERO 6080 033365 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6081 STOP^ 6082 033366 254 04 0 00 033367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6083 033367 324 00 0 00 033370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6084 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6085 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6086 6087 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6088 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6089 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6090 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6091 6092 ;********** 6093 6094 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6095 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6096 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6097 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6098 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6099 007411 SN=SN+1 6100 000400 ZZ=ZZ+ZZ 6101 IFE ZZ, 6102 033370 200 00 0 00 035022 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6103 033371 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6104 ;RESULT IN C(AC) NON-ZERO 6105 033372 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6106 STOP^ 6107 033373 254 04 0 00 033374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6108 033374 324 00 0 00 033375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6111 6112 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6113 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6114 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6115 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6116 6117 ;********** 6118 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-18 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0136 6119 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6120 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6121 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6122 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6123 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6124 007412 SN=SN+1 6125 001000 ZZ=ZZ+ZZ 6126 IFE ZZ, 6127 033375 200 00 0 00 035023 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6128 033376 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6129 ;RESULT IN C(AC) NON-ZERO 6130 033377 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6131 STOP^ 6132 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6133 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6136 6137 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6138 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6139 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6140 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6141 6142 ;********** 6143 6144 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6145 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6146 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6147 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6148 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6149 007413 SN=SN+1 6150 002000 ZZ=ZZ+ZZ 6151 IFE ZZ, 6152 033402 200 00 0 00 035024 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6153 033403 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6154 ;RESULT IN C(AC) NON-ZERO 6155 033404 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6156 STOP^ 6157 033405 254 04 0 00 033406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6158 033406 324 00 0 00 033407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6159 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6160 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6161 6162 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6163 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6164 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6165 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6166 6167 ;********** 6168 6169 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6170 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6171 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6172 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6173 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-19 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0137 6174 007414 SN=SN+1 6175 004000 ZZ=ZZ+ZZ 6176 IFE ZZ, 6177 033407 200 00 0 00 035025 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6178 033410 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6179 ;RESULT IN C(AC) NON-ZERO 6180 033411 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6181 STOP^ 6182 033412 254 04 0 00 033413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6183 033413 324 00 0 00 033414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6184 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6185 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6186 6187 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6188 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6189 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6190 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6191 6192 ;********** 6193 6194 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6195 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6196 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6197 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6198 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6199 007415 SN=SN+1 6200 010000 ZZ=ZZ+ZZ 6201 IFE ZZ, 6202 033414 200 00 0 00 035026 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6203 033415 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6204 ;RESULT IN C(AC) NON-ZERO 6205 033416 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6206 STOP^ 6207 033417 254 04 0 00 033420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6208 033420 324 00 0 00 033421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6209 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6210 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6211 6212 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6213 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6214 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6215 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6216 6217 ;********** 6218 6219 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6220 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6221 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6222 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6223 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6224 007416 SN=SN+1 6225 020000 ZZ=ZZ+ZZ 6226 IFE ZZ, 6227 033421 200 00 0 00 035027 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6228 033422 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-20 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0138 6229 ;RESULT IN C(AC) NON-ZERO 6230 033423 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6231 STOP^ 6232 033424 254 04 0 00 033425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6233 033425 324 00 0 00 033426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6234 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6235 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6236 6237 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6238 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6239 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6240 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6241 6242 ;********** 6243 6244 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6245 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6246 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6247 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6248 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6249 007417 SN=SN+1 6250 040000 ZZ=ZZ+ZZ 6251 IFE ZZ, 6252 033426 200 00 0 00 035030 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6253 033427 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6254 ;RESULT IN C(AC) NON-ZERO 6255 033430 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6256 STOP^ 6257 033431 254 04 0 00 033432 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6258 033432 324 00 0 00 033433 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6261 6262 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6263 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6264 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6265 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6266 6267 ;********** 6268 6269 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6270 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6271 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6272 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6273 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6274 007420 SN=SN+1 6275 100000 ZZ=ZZ+ZZ 6276 IFE ZZ, 6277 033433 200 00 0 00 035031 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6278 033434 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6279 ;RESULT IN C(AC) NON-ZERO 6280 033435 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6281 STOP^ 6282 033436 254 04 0 00 033437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6283 033437 324 00 0 00 033440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-21 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0139 6284 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6285 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6286 6287 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6288 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6289 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6290 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6291 6292 ;********** 6293 6294 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6295 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6296 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6297 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6298 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6299 007421 SN=SN+1 6300 200000 ZZ=ZZ+ZZ 6301 IFE ZZ, 6302 033440 200 00 0 00 035032 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6303 033441 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6304 ;RESULT IN C(AC) NON-ZERO 6305 033442 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6306 STOP^ 6307 033443 254 04 0 00 033444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6308 033444 324 00 0 00 033445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6309 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6310 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6311 6312 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6313 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6314 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6315 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6316 6317 ;********** 6318 6319 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6320 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6321 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6322 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6323 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6324 007422 SN=SN+1 6325 400000 ZZ=ZZ+ZZ 6326 IFE ZZ, 6327 033445 200 00 0 00 035033 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6328 033446 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6329 ;RESULT IN C(AC) NON-ZERO 6330 033447 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6331 STOP^ 6332 033450 254 04 0 00 033451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6333 033451 324 00 0 00 033452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6334 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6335 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6336 6337 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6338 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-22 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0140 6339 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6340 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6341 6342 ;********** 6343 6344 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6345 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6346 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6347 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6348 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6349 007423 SN=SN+1 6350 000001 000000 ZZ=ZZ+ZZ 6351 IFE ZZ, 6352 033452 200 00 0 00 035034 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6353 033453 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6354 ;RESULT IN C(AC) NON-ZERO 6355 033454 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6356 STOP^ 6357 033455 254 04 0 00 033456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6358 033456 324 00 0 00 033457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6361 6362 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6363 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6364 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6365 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6366 6367 ;********** 6368 6369 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6370 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6371 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6372 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6373 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6374 007424 SN=SN+1 6375 000002 000000 ZZ=ZZ+ZZ 6376 IFE ZZ, 6377 033457 200 00 0 00 035035 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6378 033460 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6379 ;RESULT IN C(AC) NON-ZERO 6380 033461 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6381 STOP^ 6382 033462 254 04 0 00 033463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6383 033463 324 00 0 00 033464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6386 6387 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6388 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6389 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6390 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6391 6392 ;********** 6393 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-23 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0141 6394 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6395 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6396 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6397 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6398 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6399 007425 SN=SN+1 6400 000004 000000 ZZ=ZZ+ZZ 6401 IFE ZZ, 6402 033464 200 00 0 00 035036 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6403 033465 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6404 ;RESULT IN C(AC) NON-ZERO 6405 033466 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6406 STOP^ 6407 033467 254 04 0 00 033470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6408 033470 324 00 0 00 033471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6409 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6410 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6411 6412 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6413 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6414 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6415 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6416 6417 ;********** 6418 6419 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6420 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6421 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6422 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6423 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6424 007426 SN=SN+1 6425 000010 000000 ZZ=ZZ+ZZ 6426 IFE ZZ, 6427 033471 200 00 0 00 035037 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6428 033472 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6429 ;RESULT IN C(AC) NON-ZERO 6430 033473 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6431 STOP^ 6432 033474 254 04 0 00 033475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6433 033475 324 00 0 00 033476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6435 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6436 6437 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6438 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6439 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6440 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6441 6442 ;********** 6443 6444 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6445 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6446 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6447 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6448 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-24 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0142 6449 007427 SN=SN+1 6450 000020 000000 ZZ=ZZ+ZZ 6451 IFE ZZ, 6452 033476 200 00 0 00 035040 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6453 033477 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6454 ;RESULT IN C(AC) NON-ZERO 6455 033500 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6456 STOP^ 6457 033501 254 04 0 00 033502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6458 033502 324 00 0 00 033503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6459 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6460 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6461 6462 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6463 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6464 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6465 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6466 6467 ;********** 6468 6469 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6470 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6471 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6472 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6473 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6474 007430 SN=SN+1 6475 000040 000000 ZZ=ZZ+ZZ 6476 IFE ZZ, 6477 033503 200 00 0 00 035041 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6478 033504 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6479 ;RESULT IN C(AC) NON-ZERO 6480 033505 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6481 STOP^ 6482 033506 254 04 0 00 033507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6483 033507 324 00 0 00 033510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6486 6487 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6488 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6489 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6490 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6491 6492 ;********** 6493 6494 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6495 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6496 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6497 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6498 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6499 007431 SN=SN+1 6500 000100 000000 ZZ=ZZ+ZZ 6501 IFE ZZ, 6502 033510 200 00 0 00 035042 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6503 033511 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-25 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0143 6504 ;RESULT IN C(AC) NON-ZERO 6505 033512 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6506 STOP^ 6507 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6508 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6509 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6510 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6511 6512 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6513 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6514 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6515 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6516 6517 ;********** 6518 6519 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6520 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6521 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6522 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6523 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6524 007432 SN=SN+1 6525 000200 000000 ZZ=ZZ+ZZ 6526 IFE ZZ, 6527 033515 200 00 0 00 035043 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6528 033516 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6529 ;RESULT IN C(AC) NON-ZERO 6530 033517 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6531 STOP^ 6532 033520 254 04 0 00 033521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6533 033521 324 00 0 00 033522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6534 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6535 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6536 6537 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6538 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6539 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6540 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6541 6542 ;********** 6543 6544 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6545 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6546 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6547 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6548 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6549 007433 SN=SN+1 6550 000400 000000 ZZ=ZZ+ZZ 6551 IFE ZZ, 6552 033522 200 00 0 00 035011 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6553 033523 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6554 ;RESULT IN C(AC) NON-ZERO 6555 033524 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6556 STOP^ 6557 033525 254 04 0 00 033526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6558 033526 324 00 0 00 033527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-26 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0144 6559 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6560 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6561 6562 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6563 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6564 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6565 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6566 6567 ;********** 6568 6569 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6570 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6571 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6572 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6573 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6574 007434 SN=SN+1 6575 001000 000000 ZZ=ZZ+ZZ 6576 IFE ZZ, 6577 033527 200 00 0 00 035044 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6578 033530 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6579 ;RESULT IN C(AC) NON-ZERO 6580 033531 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6581 STOP^ 6582 033532 254 04 0 00 033533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6583 033533 324 00 0 00 033534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6585 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6586 6587 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6588 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6589 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6590 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6591 6592 ;********** 6593 6594 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6595 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6596 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6597 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6598 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6599 007435 SN=SN+1 6600 002000 000000 ZZ=ZZ+ZZ 6601 IFE ZZ, 6602 033534 200 00 0 00 035045 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6603 033535 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6604 ;RESULT IN C(AC) NON-ZERO 6605 033536 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6606 STOP^ 6607 033537 254 04 0 00 033540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6608 033540 324 00 0 00 033541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6609 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6610 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6611 6612 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6613 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-27 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0145 6614 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6615 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6616 6617 ;********** 6618 6619 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6620 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6621 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6622 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6623 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6624 007436 SN=SN+1 6625 004000 000000 ZZ=ZZ+ZZ 6626 IFE ZZ, 6627 033541 200 00 0 00 035046 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6628 033542 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6629 ;RESULT IN C(AC) NON-ZERO 6630 033543 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6631 STOP^ 6632 033544 254 04 0 00 033545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6633 033545 324 00 0 00 033546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6634 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6635 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6636 6637 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6638 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6639 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6640 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6641 6642 ;********** 6643 6644 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6645 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6646 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6647 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6648 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6649 007437 SN=SN+1 6650 010000 000000 ZZ=ZZ+ZZ 6651 IFE ZZ, 6652 033546 200 00 0 00 035047 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6653 033547 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6654 ;RESULT IN C(AC) NON-ZERO 6655 033550 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6656 STOP^ 6657 033551 254 04 0 00 033552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6658 033552 324 00 0 00 033553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6659 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6660 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6661 6662 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6663 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6664 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6665 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6666 6667 ;********** 6668 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-28 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0146 6669 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6670 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6671 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6672 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6673 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6674 007440 SN=SN+1 6675 020000 000000 ZZ=ZZ+ZZ 6676 IFE ZZ, 6677 033553 200 00 0 00 035050 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6678 033554 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6679 ;RESULT IN C(AC) NON-ZERO 6680 033555 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6681 STOP^ 6682 033556 254 04 0 00 033557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6683 033557 324 00 0 00 033560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6686 6687 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6688 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6689 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6690 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6691 6692 ;********** 6693 6694 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6695 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6696 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6697 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6698 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6699 007441 SN=SN+1 6700 040000 000000 ZZ=ZZ+ZZ 6701 IFE ZZ, 6702 033560 200 00 0 00 035051 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6703 033561 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6704 ;RESULT IN C(AC) NON-ZERO 6705 033562 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6706 STOP^ 6707 033563 254 04 0 00 033564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6708 033564 324 00 0 00 033565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6711 6712 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6713 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6714 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6715 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6716 6717 ;********** 6718 6719 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6720 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6721 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6722 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6723 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-29 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0147 6724 007442 SN=SN+1 6725 100000 000000 ZZ=ZZ+ZZ 6726 IFE ZZ, 6727 033565 200 00 0 00 035052 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6728 033566 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6729 ;RESULT IN C(AC) NON-ZERO 6730 033567 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6731 STOP^ 6732 033570 254 04 0 00 033571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6733 033571 324 00 0 00 033572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6736 6737 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6738 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6739 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6740 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6741 6742 ;********** 6743 6744 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6745 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6746 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6747 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6748 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6749 007443 SN=SN+1 6750 200000 000000 ZZ=ZZ+ZZ 6751 IFE ZZ, 6752 033572 200 00 0 00 035053 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6753 033573 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD 6754 ;RESULT IN C(AC) NON-ZERO 6755 033574 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6756 STOP^ 6757 033575 254 04 0 00 033576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6758 033576 324 00 0 00 033577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6759 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6760 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6761 6762 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6763 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6764 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6765 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6766 6767 ;********** 6768 6769 ;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 6770 ;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS 6771 ;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE 6772 ;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E 6773 ;CONTAINING ALL ZEROS. THE AC IS THEN CHECKED FOR A NON-ZERO RESULT. 6774 007444 SN=SN+1 6775 400000 000000 ZZ=ZZ+ZZ 6776 IFE ZZ, 6777 033577 200 00 0 00 035003 MOVE [ZZ] ;PRELOAD AC WITH ONE FLOATING BIT SET 6778 033600 430 00 0 00 035000 XOR [0] ;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 27-30 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0148 6779 ;RESULT IN C(AC) NON-ZERO 6780 033601 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 6781 STOP^ 6782 033602 254 04 0 00 033603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6783 033603 324 00 0 00 033604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6786 6787 ;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1], 6788 ;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2], 6789 ;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1], 6790 ;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2] 6791 6792 ;********** 6793 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0149 6794 007500 SN=7500 6795 000000 ZZ=0 6796 6797 A7500: REPEAT ^D36, 6798 <;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6799 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6800 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6801 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6802 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6803 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6804 ;INDICATE AN ILLEGAL CARRY GENERATION. 6805 SN=SN+1 6806 ZZ=ZZ+ZZ 6807 IFE ZZ, 6808 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6809 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6810 SKIPE ;PASS TEST IF C(AC)=0 6811 STOP 6812 6813 ;********** 6814 > 6815 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6816 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6817 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6818 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6819 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6820 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6821 ;INDICATE AN ILLEGAL CARRY GENERATION. 6822 007501 SN=SN+1 6823 000000 ZZ=ZZ+ZZ 6824 000001 IFE ZZ, 6825 033604 200 00 0 00 035012 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6826 033605 430 00 0 00 035012 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6827 033606 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6828 STOP^ 6829 033607 254 04 0 00 033610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6830 033610 324 00 0 00 033611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6831 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6832 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6833 6834 ;********** 6835 6836 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6837 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6838 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6839 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6840 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6841 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6842 ;INDICATE AN ILLEGAL CARRY GENERATION. 6843 007502 SN=SN+1 6844 000002 ZZ=ZZ+ZZ 6845 IFE ZZ, 6846 033611 200 00 0 00 035013 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6847 033612 430 00 0 00 035013 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6848 033613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0150 6849 STOP^ 6850 033614 254 04 0 00 033615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6851 033615 324 00 0 00 033616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6852 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6853 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6854 6855 ;********** 6856 6857 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6858 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6859 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6860 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6861 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6862 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6863 ;INDICATE AN ILLEGAL CARRY GENERATION. 6864 007503 SN=SN+1 6865 000004 ZZ=ZZ+ZZ 6866 IFE ZZ, 6867 033616 200 00 0 00 035014 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6868 033617 430 00 0 00 035014 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6869 033620 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6870 STOP^ 6871 033621 254 04 0 00 033622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6872 033622 324 00 0 00 033623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6873 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6874 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6875 6876 ;********** 6877 6878 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6879 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6880 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6881 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6882 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6883 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6884 ;INDICATE AN ILLEGAL CARRY GENERATION. 6885 007504 SN=SN+1 6886 000010 ZZ=ZZ+ZZ 6887 IFE ZZ, 6888 033623 200 00 0 00 035015 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6889 033624 430 00 0 00 035015 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6890 033625 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6891 STOP^ 6892 033626 254 04 0 00 033627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6893 033627 324 00 0 00 033630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6894 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6895 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6896 6897 ;********** 6898 6899 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6900 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6901 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6902 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6903 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0151 6904 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6905 ;INDICATE AN ILLEGAL CARRY GENERATION. 6906 007505 SN=SN+1 6907 000020 ZZ=ZZ+ZZ 6908 IFE ZZ, 6909 033630 200 00 0 00 035016 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6910 033631 430 00 0 00 035016 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6911 033632 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6912 STOP^ 6913 033633 254 04 0 00 033634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6914 033634 324 00 0 00 033635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6915 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6916 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6917 6918 ;********** 6919 6920 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6921 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6922 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6923 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6924 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6925 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6926 ;INDICATE AN ILLEGAL CARRY GENERATION. 6927 007506 SN=SN+1 6928 000040 ZZ=ZZ+ZZ 6929 IFE ZZ, 6930 033635 200 00 0 00 035017 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6931 033636 430 00 0 00 035017 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6932 033637 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6933 STOP^ 6934 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6935 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6936 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6937 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6938 6939 ;********** 6940 6941 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6942 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6943 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6944 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6945 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6946 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6947 ;INDICATE AN ILLEGAL CARRY GENERATION. 6948 007507 SN=SN+1 6949 000100 ZZ=ZZ+ZZ 6950 IFE ZZ, 6951 033642 200 00 0 00 035020 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6952 033643 430 00 0 00 035020 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6953 033644 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6954 STOP^ 6955 033645 254 04 0 00 033646 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6956 033646 324 00 0 00 033647 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6957 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6958 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0152 6959 6960 ;********** 6961 6962 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6963 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6964 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6965 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6966 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6967 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6968 ;INDICATE AN ILLEGAL CARRY GENERATION. 6969 007510 SN=SN+1 6970 000200 ZZ=ZZ+ZZ 6971 IFE ZZ, 6972 033647 200 00 0 00 035021 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6973 033650 430 00 0 00 035021 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6974 033651 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6975 STOP^ 6976 033652 254 04 0 00 033653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6977 033653 324 00 0 00 033654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6979 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6980 6981 ;********** 6982 6983 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 6984 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 6985 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 6986 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 6987 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 6988 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 6989 ;INDICATE AN ILLEGAL CARRY GENERATION. 6990 007511 SN=SN+1 6991 000400 ZZ=ZZ+ZZ 6992 IFE ZZ, 6993 033654 200 00 0 00 035022 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 6994 033655 430 00 0 00 035022 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 6995 033656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 6996 STOP^ 6997 033657 254 04 0 00 033660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6998 033660 324 00 0 00 033661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7001 7002 ;********** 7003 7004 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7005 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7006 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7007 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7008 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7009 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7010 ;INDICATE AN ILLEGAL CARRY GENERATION. 7011 007512 SN=SN+1 7012 001000 ZZ=ZZ+ZZ 7013 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0153 7014 033661 200 00 0 00 035023 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7015 033662 430 00 0 00 035023 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7016 033663 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7017 STOP^ 7018 033664 254 04 0 00 033665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7019 033665 324 00 0 00 033666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7021 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7022 7023 ;********** 7024 7025 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7026 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7027 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7028 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7029 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7030 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7031 ;INDICATE AN ILLEGAL CARRY GENERATION. 7032 007513 SN=SN+1 7033 002000 ZZ=ZZ+ZZ 7034 IFE ZZ, 7035 033666 200 00 0 00 035024 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7036 033667 430 00 0 00 035024 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7037 033670 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7038 STOP^ 7039 033671 254 04 0 00 033672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7040 033672 324 00 0 00 033673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7042 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7043 7044 ;********** 7045 7046 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7047 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7048 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7049 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7050 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7051 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7052 ;INDICATE AN ILLEGAL CARRY GENERATION. 7053 007514 SN=SN+1 7054 004000 ZZ=ZZ+ZZ 7055 IFE ZZ, 7056 033673 200 00 0 00 035025 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7057 033674 430 00 0 00 035025 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7058 033675 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7059 STOP^ 7060 033676 254 04 0 00 033677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7061 033677 324 00 0 00 033700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7062 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7063 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7064 7065 ;********** 7066 7067 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7068 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0154 7069 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7070 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7071 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7072 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7073 ;INDICATE AN ILLEGAL CARRY GENERATION. 7074 007515 SN=SN+1 7075 010000 ZZ=ZZ+ZZ 7076 IFE ZZ, 7077 033700 200 00 0 00 035026 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7078 033701 430 00 0 00 035026 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7079 033702 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7080 STOP^ 7081 033703 254 04 0 00 033704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7082 033704 324 00 0 00 033705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7084 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7085 7086 ;********** 7087 7088 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7089 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7090 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7091 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7092 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7093 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7094 ;INDICATE AN ILLEGAL CARRY GENERATION. 7095 007516 SN=SN+1 7096 020000 ZZ=ZZ+ZZ 7097 IFE ZZ, 7098 033705 200 00 0 00 035027 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7099 033706 430 00 0 00 035027 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7100 033707 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7101 STOP^ 7102 033710 254 04 0 00 033711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7103 033711 324 00 0 00 033712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7104 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7105 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7106 7107 ;********** 7108 7109 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7110 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7111 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7112 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7113 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7114 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7115 ;INDICATE AN ILLEGAL CARRY GENERATION. 7116 007517 SN=SN+1 7117 040000 ZZ=ZZ+ZZ 7118 IFE ZZ, 7119 033712 200 00 0 00 035030 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7120 033713 430 00 0 00 035030 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7121 033714 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7122 STOP^ 7123 033715 254 04 0 00 033716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0155 7124 033716 324 00 0 00 033717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7125 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7126 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7127 7128 ;********** 7129 7130 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7131 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7132 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7133 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7134 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7135 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7136 ;INDICATE AN ILLEGAL CARRY GENERATION. 7137 007520 SN=SN+1 7138 100000 ZZ=ZZ+ZZ 7139 IFE ZZ, 7140 033717 200 00 0 00 035031 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7141 033720 430 00 0 00 035031 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7142 033721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7143 STOP^ 7144 033722 254 04 0 00 033723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7145 033723 324 00 0 00 033724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7146 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7147 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7148 7149 ;********** 7150 7151 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7152 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7153 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7154 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7155 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7156 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7157 ;INDICATE AN ILLEGAL CARRY GENERATION. 7158 007521 SN=SN+1 7159 200000 ZZ=ZZ+ZZ 7160 IFE ZZ, 7161 033724 200 00 0 00 035032 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7162 033725 430 00 0 00 035032 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7163 033726 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7164 STOP^ 7165 033727 254 04 0 00 033730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7166 033730 324 00 0 00 033731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7169 7170 ;********** 7171 7172 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7173 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7174 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7175 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7176 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7177 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7178 ;INDICATE AN ILLEGAL CARRY GENERATION. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0156 7179 007522 SN=SN+1 7180 400000 ZZ=ZZ+ZZ 7181 IFE ZZ, 7182 033731 200 00 0 00 035033 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7183 033732 430 00 0 00 035033 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7184 033733 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7185 STOP^ 7186 033734 254 04 0 00 033735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7187 033735 324 00 0 00 033736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7188 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7189 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7190 7191 ;********** 7192 7193 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7194 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7195 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7196 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7197 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7198 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7199 ;INDICATE AN ILLEGAL CARRY GENERATION. 7200 007523 SN=SN+1 7201 000001 000000 ZZ=ZZ+ZZ 7202 IFE ZZ, 7203 033736 200 00 0 00 035034 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7204 033737 430 00 0 00 035034 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7205 033740 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7206 STOP^ 7207 033741 254 04 0 00 033742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7208 033742 324 00 0 00 033743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7209 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7210 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7211 7212 ;********** 7213 7214 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7215 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7216 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7217 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7218 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7219 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7220 ;INDICATE AN ILLEGAL CARRY GENERATION. 7221 007524 SN=SN+1 7222 000002 000000 ZZ=ZZ+ZZ 7223 IFE ZZ, 7224 033743 200 00 0 00 035035 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7225 033744 430 00 0 00 035035 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7226 033745 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7227 STOP^ 7228 033746 254 04 0 00 033747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7229 033747 324 00 0 00 033750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7230 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7231 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7232 7233 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0157 7234 7235 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7236 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7237 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7238 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7239 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7240 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7241 ;INDICATE AN ILLEGAL CARRY GENERATION. 7242 007525 SN=SN+1 7243 000004 000000 ZZ=ZZ+ZZ 7244 IFE ZZ, 7245 033750 200 00 0 00 035036 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7246 033751 430 00 0 00 035036 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7247 033752 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7248 STOP^ 7249 033753 254 04 0 00 033754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7250 033754 324 00 0 00 033755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7251 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7252 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7253 7254 ;********** 7255 7256 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7257 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7258 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7259 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7260 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7261 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7262 ;INDICATE AN ILLEGAL CARRY GENERATION. 7263 007526 SN=SN+1 7264 000010 000000 ZZ=ZZ+ZZ 7265 IFE ZZ, 7266 033755 200 00 0 00 035037 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7267 033756 430 00 0 00 035037 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7268 033757 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7269 STOP^ 7270 033760 254 04 0 00 033761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7271 033761 324 00 0 00 033762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7272 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7273 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7274 7275 ;********** 7276 7277 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7278 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7279 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7280 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7281 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7282 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7283 ;INDICATE AN ILLEGAL CARRY GENERATION. 7284 007527 SN=SN+1 7285 000020 000000 ZZ=ZZ+ZZ 7286 IFE ZZ, 7287 033762 200 00 0 00 035040 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7288 033763 430 00 0 00 035040 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0158 7289 033764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7290 STOP^ 7291 033765 254 04 0 00 033766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7292 033766 324 00 0 00 033767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7293 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7294 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7295 7296 ;********** 7297 7298 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7299 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7300 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7301 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7302 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7303 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7304 ;INDICATE AN ILLEGAL CARRY GENERATION. 7305 007530 SN=SN+1 7306 000040 000000 ZZ=ZZ+ZZ 7307 IFE ZZ, 7308 033767 200 00 0 00 035041 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7309 033770 430 00 0 00 035041 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7310 033771 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7311 STOP^ 7312 033772 254 04 0 00 033773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7313 033773 324 00 0 00 033774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7315 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7316 7317 ;********** 7318 7319 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7320 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7321 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7322 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7323 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7324 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7325 ;INDICATE AN ILLEGAL CARRY GENERATION. 7326 007531 SN=SN+1 7327 000100 000000 ZZ=ZZ+ZZ 7328 IFE ZZ, 7329 033774 200 00 0 00 035042 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7330 033775 430 00 0 00 035042 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7331 033776 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7332 STOP^ 7333 033777 254 04 0 00 034000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7334 034000 324 00 0 00 034001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7336 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7337 7338 ;********** 7339 7340 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7341 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7342 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7343 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0159 7344 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7345 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7346 ;INDICATE AN ILLEGAL CARRY GENERATION. 7347 007532 SN=SN+1 7348 000200 000000 ZZ=ZZ+ZZ 7349 IFE ZZ, 7350 034001 200 00 0 00 035043 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7351 034002 430 00 0 00 035043 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7352 034003 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7353 STOP^ 7354 034004 254 04 0 00 034005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7355 034005 324 00 0 00 034006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7356 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7357 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7358 7359 ;********** 7360 7361 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7362 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7363 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7364 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7365 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7366 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7367 ;INDICATE AN ILLEGAL CARRY GENERATION. 7368 007533 SN=SN+1 7369 000400 000000 ZZ=ZZ+ZZ 7370 IFE ZZ, 7371 034006 200 00 0 00 035011 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7372 034007 430 00 0 00 035011 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7373 034010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7374 STOP^ 7375 034011 254 04 0 00 034012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7376 034012 324 00 0 00 034013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7377 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7378 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7379 7380 ;********** 7381 7382 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7383 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7384 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7385 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7386 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7387 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7388 ;INDICATE AN ILLEGAL CARRY GENERATION. 7389 007534 SN=SN+1 7390 001000 000000 ZZ=ZZ+ZZ 7391 IFE ZZ, 7392 034013 200 00 0 00 035044 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7393 034014 430 00 0 00 035044 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7394 034015 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7395 STOP^ 7396 034016 254 04 0 00 034017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7397 034017 324 00 0 00 034020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7398 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0160 7399 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7400 7401 ;********** 7402 7403 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7404 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7405 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7406 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7407 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7408 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7409 ;INDICATE AN ILLEGAL CARRY GENERATION. 7410 007535 SN=SN+1 7411 002000 000000 ZZ=ZZ+ZZ 7412 IFE ZZ, 7413 034020 200 00 0 00 035045 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7414 034021 430 00 0 00 035045 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7415 034022 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7416 STOP^ 7417 034023 254 04 0 00 034024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7418 034024 324 00 0 00 034025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7419 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7420 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7421 7422 ;********** 7423 7424 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7425 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7426 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7427 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7428 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7429 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7430 ;INDICATE AN ILLEGAL CARRY GENERATION. 7431 007536 SN=SN+1 7432 004000 000000 ZZ=ZZ+ZZ 7433 IFE ZZ, 7434 034025 200 00 0 00 035046 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7435 034026 430 00 0 00 035046 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7436 034027 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7437 STOP^ 7438 034030 254 04 0 00 034031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7439 034031 324 00 0 00 034032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7440 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7441 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7442 7443 ;********** 7444 7445 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7446 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7447 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7448 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7449 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7450 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7451 ;INDICATE AN ILLEGAL CARRY GENERATION. 7452 007537 SN=SN+1 7453 010000 000000 ZZ=ZZ+ZZ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0161 7454 IFE ZZ, 7455 034032 200 00 0 00 035047 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7456 034033 430 00 0 00 035047 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7457 034034 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7458 STOP^ 7459 034035 254 04 0 00 034036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7460 034036 324 00 0 00 034037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7463 7464 ;********** 7465 7466 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7467 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7468 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7469 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7470 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7471 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7472 ;INDICATE AN ILLEGAL CARRY GENERATION. 7473 007540 SN=SN+1 7474 020000 000000 ZZ=ZZ+ZZ 7475 IFE ZZ, 7476 034037 200 00 0 00 035050 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7477 034040 430 00 0 00 035050 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7478 034041 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7479 STOP^ 7480 034042 254 04 0 00 034043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7481 034043 324 00 0 00 034044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7483 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7484 7485 ;********** 7486 7487 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7488 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7489 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7490 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7491 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7492 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7493 ;INDICATE AN ILLEGAL CARRY GENERATION. 7494 007541 SN=SN+1 7495 040000 000000 ZZ=ZZ+ZZ 7496 IFE ZZ, 7497 034044 200 00 0 00 035051 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7498 034045 430 00 0 00 035051 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7499 034046 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7500 STOP^ 7501 034047 254 04 0 00 034050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7502 034050 324 00 0 00 034051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7503 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7504 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7505 7506 ;********** 7507 7508 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0162 7509 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7510 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7511 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7512 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7513 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7514 ;INDICATE AN ILLEGAL CARRY GENERATION. 7515 007542 SN=SN+1 7516 100000 000000 ZZ=ZZ+ZZ 7517 IFE ZZ, 7518 034051 200 00 0 00 035052 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7519 034052 430 00 0 00 035052 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7520 034053 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7521 STOP^ 7522 034054 254 04 0 00 034055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7523 034055 324 00 0 00 034056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7526 7527 ;********** 7528 7529 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7530 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7531 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7532 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7533 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7534 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7535 ;INDICATE AN ILLEGAL CARRY GENERATION. 7536 007543 SN=SN+1 7537 200000 000000 ZZ=ZZ+ZZ 7538 IFE ZZ, 7539 034056 200 00 0 00 035053 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7540 034057 430 00 0 00 035053 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7541 034060 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7542 STOP^ 7543 034061 254 04 0 00 034062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7544 034062 324 00 0 00 034063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7545 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7546 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7547 7548 ;********** 7549 7550 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION 7551 ;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS. FIRST, 7552 ;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT 7553 ;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME 7554 ;NUMBER. THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS. THIS TEST 7555 ;IS REPEATED 36 TIMES. IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY 7556 ;INDICATE AN ILLEGAL CARRY GENERATION. 7557 007544 SN=SN+1 7558 400000 000000 ZZ=ZZ+ZZ 7559 IFE ZZ, 7560 034063 200 00 0 00 035003 MOVE [ZZ] ;INITIALIZE AC WITH ONE FLOATING BIT SET 7561 034064 430 00 0 00 035003 XOR [ZZ] ;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0 7562 034065 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7563 STOP^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 28-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0163 7564 034066 254 04 0 00 034067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7565 034067 324 00 0 00 034070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7566 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7567 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7568 7569 ;********** 7570 7571 ;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE 7572 ;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN 7573 ;XOR IS EXECUTED WITH C(E)=0. THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS 7574 7575 034070 200 00 0 00 035000 A7600: MOVE [0] ;INITIALIZE AC TO ALL ZEROS 7576 034071 430 00 0 00 035000 XOR [0] ;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0 7577 034072 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7578 STOP^ 7579 034073 254 04 0 00 034074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7580 034074 324 00 0 00 034075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7581 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7582 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7583 7584 ;********** 7585 7586 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7587 ;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE 7588 ;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS. FIRST, THE AC 7589 ;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES. 7590 ;THE AC IS THEN CHECKED FOR ALL ZEROS 7591 7592 034075 200 00 0 00 035000 A7700: MOVE [0] ;CLEAR THE AC 7593 034076 444 00 0 00 035001 EQV [-1] ;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD 7594 ;RESULT IN C(AC)=0 7595 034077 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 7596 STOP^ 7597 034100 254 04 0 00 034101 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7598 034101 324 00 0 00 034102 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7599 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7600 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7601 7602 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0164 7603 010000 SN=10000 7604 000000 ZZ=0 7605 7606 A10000: REPEAT ^D18, 7607 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7608 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7609 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7610 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7611 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7612 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7613 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7614 SN=SN+1 7615 ZZ=ZZ+ZZ+1 7616 IFE , 7617 MOVE [0] ;PRESET AC TO ALL ZEROS 7618 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7619 ;RESULT IN C(AC) NON-ZERO 7620 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7621 STOP 7622 7623 ;********** 7624 > 7625 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7626 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7627 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7628 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7629 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7630 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7631 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7632 010001 SN=SN+1 7633 000001 ZZ=ZZ+ZZ+1 7634 777777 777776 IFE , 7635 034102 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7636 034103 444 00 0 00 035060 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7637 ;RESULT IN C(AC) NON-ZERO 7638 034104 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7639 STOP^ 7640 034105 254 04 0 00 034106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7641 034106 324 00 0 00 034107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7644 7645 ;********** 7646 7647 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7648 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7649 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7650 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7651 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7652 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7653 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7654 010002 SN=SN+1 7655 777777 777775 ZZ=ZZ+ZZ+1 7656 IFE , 7657 034107 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0165 7658 034110 444 00 0 00 035061 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7659 ;RESULT IN C(AC) NON-ZERO 7660 034111 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7661 STOP^ 7662 034112 254 04 0 00 034113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7663 034113 324 00 0 00 034114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7664 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7665 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7666 7667 ;********** 7668 7669 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7670 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7671 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7672 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7673 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7674 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7675 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7676 010003 SN=SN+1 7677 777777 777773 ZZ=ZZ+ZZ+1 7678 IFE , 7679 034114 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7680 034115 444 00 0 00 035062 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7681 ;RESULT IN C(AC) NON-ZERO 7682 034116 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7683 STOP^ 7684 034117 254 04 0 00 034120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7685 034120 324 00 0 00 034121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7686 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7687 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7688 7689 ;********** 7690 7691 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7692 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7693 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7694 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7695 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7696 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7697 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7698 010004 SN=SN+1 7699 777777 777767 ZZ=ZZ+ZZ+1 7700 IFE , 7701 034121 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7702 034122 444 00 0 00 035063 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7703 ;RESULT IN C(AC) NON-ZERO 7704 034123 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7705 STOP^ 7706 034124 254 04 0 00 034125 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7707 034125 324 00 0 00 034126 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7708 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7709 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7710 7711 ;********** 7712 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0166 7713 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7714 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7715 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7716 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7717 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7718 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7719 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7720 010005 SN=SN+1 7721 777777 777757 ZZ=ZZ+ZZ+1 7722 IFE , 7723 034126 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7724 034127 444 00 0 00 035064 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7725 ;RESULT IN C(AC) NON-ZERO 7726 034130 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7727 STOP^ 7728 034131 254 04 0 00 034132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7729 034132 324 00 0 00 034133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7730 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7731 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7732 7733 ;********** 7734 7735 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7736 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7737 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7738 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7739 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7740 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7741 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7742 010006 SN=SN+1 7743 777777 777737 ZZ=ZZ+ZZ+1 7744 IFE , 7745 034133 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7746 034134 444 00 0 00 035065 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7747 ;RESULT IN C(AC) NON-ZERO 7748 034135 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7749 STOP^ 7750 034136 254 04 0 00 034137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7751 034137 324 00 0 00 034140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7753 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7754 7755 ;********** 7756 7757 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7758 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7759 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7760 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7761 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7762 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7763 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7764 010007 SN=SN+1 7765 777777 777677 ZZ=ZZ+ZZ+1 7766 IFE , 7767 034140 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0167 7768 034141 444 00 0 00 035066 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7769 ;RESULT IN C(AC) NON-ZERO 7770 034142 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7771 STOP^ 7772 034143 254 04 0 00 034144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7773 034144 324 00 0 00 034145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7776 7777 ;********** 7778 7779 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7780 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7781 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7782 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7783 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7784 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7785 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7786 010010 SN=SN+1 7787 777777 777577 ZZ=ZZ+ZZ+1 7788 IFE , 7789 034145 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7790 034146 444 00 0 00 035067 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7791 ;RESULT IN C(AC) NON-ZERO 7792 034147 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7793 STOP^ 7794 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7795 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7798 7799 ;********** 7800 7801 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7802 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7803 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7804 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7805 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7806 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7807 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7808 010011 SN=SN+1 7809 777777 777377 ZZ=ZZ+ZZ+1 7810 IFE , 7811 034152 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7812 034153 444 00 0 00 035070 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7813 ;RESULT IN C(AC) NON-ZERO 7814 034154 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7815 STOP^ 7816 034155 254 04 0 00 034156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7817 034156 324 00 0 00 034157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7820 7821 ;********** 7822 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0168 7823 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7824 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7825 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7826 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7827 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7828 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7829 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7830 010012 SN=SN+1 7831 777777 776777 ZZ=ZZ+ZZ+1 7832 IFE , 7833 034157 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7834 034160 444 00 0 00 035071 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7835 ;RESULT IN C(AC) NON-ZERO 7836 034161 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7837 STOP^ 7838 034162 254 04 0 00 034163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7839 034163 324 00 0 00 034164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7841 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7842 7843 ;********** 7844 7845 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7846 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7847 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7848 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7849 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7850 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7851 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7852 010013 SN=SN+1 7853 777777 775777 ZZ=ZZ+ZZ+1 7854 IFE , 7855 034164 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7856 034165 444 00 0 00 035072 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7857 ;RESULT IN C(AC) NON-ZERO 7858 034166 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7859 STOP^ 7860 034167 254 04 0 00 034170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7861 034170 324 00 0 00 034171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7862 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7863 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7864 7865 ;********** 7866 7867 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7868 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7869 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7870 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7871 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7872 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7873 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7874 010014 SN=SN+1 7875 777777 773777 ZZ=ZZ+ZZ+1 7876 IFE , 7877 034171 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0169 7878 034172 444 00 0 00 035073 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7879 ;RESULT IN C(AC) NON-ZERO 7880 034173 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7881 STOP^ 7882 034174 254 04 0 00 034175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7883 034175 324 00 0 00 034176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7886 7887 ;********** 7888 7889 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7890 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7891 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7892 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7893 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7894 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7895 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7896 010015 SN=SN+1 7897 777777 767777 ZZ=ZZ+ZZ+1 7898 IFE , 7899 034176 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7900 034177 444 00 0 00 035074 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7901 ;RESULT IN C(AC) NON-ZERO 7902 034200 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7903 STOP^ 7904 034201 254 04 0 00 034202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7905 034202 324 00 0 00 034203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7908 7909 ;********** 7910 7911 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7912 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7913 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7914 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7915 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7916 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7917 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7918 010016 SN=SN+1 7919 777777 757777 ZZ=ZZ+ZZ+1 7920 IFE , 7921 034203 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7922 034204 444 00 0 00 035075 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7923 ;RESULT IN C(AC) NON-ZERO 7924 034205 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7925 STOP^ 7926 034206 254 04 0 00 034207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7927 034207 324 00 0 00 034210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7930 7931 ;********** 7932 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0170 7933 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7934 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7935 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7936 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7937 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7938 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7939 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7940 010017 SN=SN+1 7941 777777 737777 ZZ=ZZ+ZZ+1 7942 IFE , 7943 034210 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7944 034211 444 00 0 00 035076 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7945 ;RESULT IN C(AC) NON-ZERO 7946 034212 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7947 STOP^ 7948 034213 254 04 0 00 034214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7949 034214 324 00 0 00 034215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7951 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7952 7953 ;********** 7954 7955 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7956 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7957 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7958 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7959 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7960 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7961 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7962 010020 SN=SN+1 7963 777777 677777 ZZ=ZZ+ZZ+1 7964 IFE , 7965 034215 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 7966 034216 444 00 0 00 035077 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7967 ;RESULT IN C(AC) NON-ZERO 7968 034217 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7969 STOP^ 7970 034220 254 04 0 00 034221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7971 034221 324 00 0 00 034222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7972 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7973 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7974 7975 ;********** 7976 7977 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 7978 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 7979 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 7980 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 7981 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 7982 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 7983 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 7984 010021 SN=SN+1 7985 777777 577777 ZZ=ZZ+ZZ+1 7986 IFE , 7987 034222 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0171 7988 034223 444 00 0 00 035100 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 7989 ;RESULT IN C(AC) NON-ZERO 7990 034224 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 7991 STOP^ 7992 034225 254 04 0 00 034226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7993 034226 324 00 0 00 034227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7996 7997 ;********** 7998 7999 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8000 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8001 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8002 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8003 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8004 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8005 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8006 010022 SN=SN+1 8007 777777 377777 ZZ=ZZ+ZZ+1 8008 IFE , 8009 034227 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8010 034230 444 00 0 00 035101 EQV [XWD -1,ZZ] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8011 ;RESULT IN C(AC) NON-ZERO 8012 034231 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8013 STOP^ 8014 034232 254 04 0 00 034233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8015 034233 324 00 0 00 034234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8018 8019 ;********** 8020 8021 010100 SN=10100 8022 000000 ZZ=0 8023 8024 A10100: REPEAT ^D18, 8025 <;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8026 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8027 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8028 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8029 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8030 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8031 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8032 SN=SN+1 8033 ZZ=ZZ+ZZ+1 8034 IFE , 8035 MOVE [0] ;PRESET AC TO ALL ZEROS 8036 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8037 ;RESULT IN C(AC) NON-ZERO 8038 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8039 STOP 8040 8041 ;********** 8042 > DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0172 8043 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8044 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8045 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8046 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8047 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8048 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8049 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8050 010101 SN=SN+1 8051 000001 ZZ=ZZ+ZZ+1 8052 777777 777776 IFE , 8053 034234 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8054 034235 444 00 0 00 035102 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8055 ;RESULT IN C(AC) NON-ZERO 8056 034236 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8057 STOP^ 8058 034237 254 04 0 00 034240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8059 034240 324 00 0 00 034241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8060 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8061 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8062 8063 ;********** 8064 8065 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8066 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8067 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8068 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8069 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8070 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8071 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8072 010102 SN=SN+1 8073 777777 777775 ZZ=ZZ+ZZ+1 8074 IFE , 8075 034241 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8076 034242 444 00 0 00 035103 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8077 ;RESULT IN C(AC) NON-ZERO 8078 034243 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8079 STOP^ 8080 034244 254 04 0 00 034245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8081 034245 324 00 0 00 034246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8084 8085 ;********** 8086 8087 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8088 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8089 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8090 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8091 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8092 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8093 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8094 010103 SN=SN+1 8095 777777 777773 ZZ=ZZ+ZZ+1 8096 IFE , 8097 034246 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0173 8098 034247 444 00 0 00 035104 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8099 ;RESULT IN C(AC) NON-ZERO 8100 034250 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8101 STOP^ 8102 034251 254 04 0 00 034252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8103 034252 324 00 0 00 034253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8104 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8105 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8106 8107 ;********** 8108 8109 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8110 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8111 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8112 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8113 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8114 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8115 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8116 010104 SN=SN+1 8117 777777 777767 ZZ=ZZ+ZZ+1 8118 IFE , 8119 034253 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8120 034254 444 00 0 00 035105 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8121 ;RESULT IN C(AC) NON-ZERO 8122 034255 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8123 STOP^ 8124 034256 254 04 0 00 034257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8125 034257 324 00 0 00 034260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8126 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8127 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8128 8129 ;********** 8130 8131 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8132 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8133 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8134 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8135 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8136 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8137 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8138 010105 SN=SN+1 8139 777777 777757 ZZ=ZZ+ZZ+1 8140 IFE , 8141 034260 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8142 034261 444 00 0 00 035106 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8143 ;RESULT IN C(AC) NON-ZERO 8144 034262 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8145 STOP^ 8146 034263 254 04 0 00 034264 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8147 034264 324 00 0 00 034265 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8148 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8149 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8150 8151 ;********** 8152 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0174 8153 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8154 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8155 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8156 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8157 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8158 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8159 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8160 010106 SN=SN+1 8161 777777 777737 ZZ=ZZ+ZZ+1 8162 IFE , 8163 034265 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8164 034266 444 00 0 00 035107 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8165 ;RESULT IN C(AC) NON-ZERO 8166 034267 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8167 STOP^ 8168 034270 254 04 0 00 034271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8169 034271 324 00 0 00 034272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8170 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8171 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8172 8173 ;********** 8174 8175 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8176 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8177 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8178 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8179 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8180 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8181 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8182 010107 SN=SN+1 8183 777777 777677 ZZ=ZZ+ZZ+1 8184 IFE , 8185 034272 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8186 034273 444 00 0 00 035110 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8187 ;RESULT IN C(AC) NON-ZERO 8188 034274 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8189 STOP^ 8190 034275 254 04 0 00 034276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8191 034276 324 00 0 00 034277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8192 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8193 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8194 8195 ;********** 8196 8197 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8198 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8199 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8200 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8201 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8202 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8203 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8204 010110 SN=SN+1 8205 777777 777577 ZZ=ZZ+ZZ+1 8206 IFE , 8207 034277 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0175 8208 034300 444 00 0 00 035111 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8209 ;RESULT IN C(AC) NON-ZERO 8210 034301 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8211 STOP^ 8212 034302 254 04 0 00 034303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8213 034303 324 00 0 00 034304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8216 8217 ;********** 8218 8219 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8220 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8221 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8222 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8223 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8224 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8225 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8226 010111 SN=SN+1 8227 777777 777377 ZZ=ZZ+ZZ+1 8228 IFE , 8229 034304 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8230 034305 444 00 0 00 035112 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8231 ;RESULT IN C(AC) NON-ZERO 8232 034306 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8233 STOP^ 8234 034307 254 04 0 00 034310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8235 034310 324 00 0 00 034311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8236 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8237 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8238 8239 ;********** 8240 8241 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8242 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8243 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8244 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8245 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8246 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8247 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8248 010112 SN=SN+1 8249 777777 776777 ZZ=ZZ+ZZ+1 8250 IFE , 8251 034311 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8252 034312 444 00 0 00 035113 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8253 ;RESULT IN C(AC) NON-ZERO 8254 034313 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8255 STOP^ 8256 034314 254 04 0 00 034315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8257 034315 324 00 0 00 034316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8258 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8259 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8260 8261 ;********** 8262 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0176 8263 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8264 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8265 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8266 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8267 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8268 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8269 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8270 010113 SN=SN+1 8271 777777 775777 ZZ=ZZ+ZZ+1 8272 IFE , 8273 034316 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8274 034317 444 00 0 00 035114 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8275 ;RESULT IN C(AC) NON-ZERO 8276 034320 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8277 STOP^ 8278 034321 254 04 0 00 034322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8279 034322 324 00 0 00 034323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8280 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8281 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8282 8283 ;********** 8284 8285 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8286 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8287 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8288 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8289 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8290 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8291 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8292 010114 SN=SN+1 8293 777777 773777 ZZ=ZZ+ZZ+1 8294 IFE , 8295 034323 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8296 034324 444 00 0 00 035115 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8297 ;RESULT IN C(AC) NON-ZERO 8298 034325 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8299 STOP^ 8300 034326 254 04 0 00 034327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8301 034327 324 00 0 00 034330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8302 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8303 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8304 8305 ;********** 8306 8307 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8308 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8309 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8310 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8311 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8312 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8313 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8314 010115 SN=SN+1 8315 777777 767777 ZZ=ZZ+ZZ+1 8316 IFE , 8317 034330 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0177 8318 034331 444 00 0 00 035116 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8319 ;RESULT IN C(AC) NON-ZERO 8320 034332 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8321 STOP^ 8322 034333 254 04 0 00 034334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8323 034334 324 00 0 00 034335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8325 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8326 8327 ;********** 8328 8329 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8330 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8331 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8332 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8333 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8334 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8335 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8336 010116 SN=SN+1 8337 777777 757777 ZZ=ZZ+ZZ+1 8338 IFE , 8339 034335 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8340 034336 444 00 0 00 035117 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8341 ;RESULT IN C(AC) NON-ZERO 8342 034337 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8343 STOP^ 8344 034340 254 04 0 00 034341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8345 034341 324 00 0 00 034342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8346 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8347 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8348 8349 ;********** 8350 8351 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8352 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8353 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8354 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8355 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8356 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8357 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8358 010117 SN=SN+1 8359 777777 737777 ZZ=ZZ+ZZ+1 8360 IFE , 8361 034342 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8362 034343 444 00 0 00 035120 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8363 ;RESULT IN C(AC) NON-ZERO 8364 034344 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8365 STOP^ 8366 034345 254 04 0 00 034346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8367 034346 324 00 0 00 034347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8368 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8369 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8370 8371 ;********** 8372 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0178 8373 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8374 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8375 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8376 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8377 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8378 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8379 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8380 010120 SN=SN+1 8381 777777 677777 ZZ=ZZ+ZZ+1 8382 IFE , 8383 034347 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8384 034350 444 00 0 00 035121 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8385 ;RESULT IN C(AC) NON-ZERO 8386 034351 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8387 STOP^ 8388 034352 254 04 0 00 034353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8389 034353 324 00 0 00 034354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8392 8393 ;********** 8394 8395 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8396 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8397 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8398 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8399 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8400 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8401 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8402 010121 SN=SN+1 8403 777777 577777 ZZ=ZZ+ZZ+1 8404 IFE , 8405 034354 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS 8406 034355 444 00 0 00 035122 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8407 ;RESULT IN C(AC) NON-ZERO 8408 034356 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8409 STOP^ 8410 034357 254 04 0 00 034360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8411 034360 324 00 0 00 034361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8412 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8413 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8414 8415 ;********** 8416 8417 ;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE 8418 ;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN 8419 ;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE 8420 ;E CONTAINS A ZERO). THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT 8421 ;OF THE RESULT IS A ONE ONCE AND ONLY ONCE. FIRST, THE AC IS 8422 ;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO. THE 8423 ;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 8424 010122 SN=SN+1 8425 777777 377777 ZZ=ZZ+ZZ+1 8426 IFE , 8427 034361 200 00 0 00 035000 MOVE [0] ;PRESET AC TO ALL ZEROS DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 29-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0179 8428 034362 444 00 0 00 035002 EQV [XWD ZZ,-1] ;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD 8429 ;RESULT IN C(AC) NON-ZERO 8430 034363 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) NON-ZERO 8431 STOP^ 8432 034364 254 04 0 00 034365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8433 034365 324 00 0 00 034366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8434 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8435 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8436 8437 ;********** 8438 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 30 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0180 8439 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS 8440 ;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL 8441 ;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED 8442 ;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC 8443 ;SHOULD BE ALL ZEROS. FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN, 8444 ;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS. THE AC IS 8445 ;THEN CHECKED FOR ALL ZEROS 8446 8447 034366 200 00 0 00 035000 A10200: MOVE [0] ;CLEAR THE AC 8448 034367 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=ALL ONES 8449 034370 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 8450 034371 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8451 STOP^ 8452 034372 254 04 0 00 034373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8453 034373 324 00 0 00 034374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8454 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8455 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8456 8457 ;********** 8458 8459 ;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES 8460 ;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES; 8461 ;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E 8462 ;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS. 8463 ;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS 8464 ;EQUIVALENCED WITH AN E OF ALL ONES. NEXT, THIS SAME AC IS EQUIVALENCED 8465 ;WITH AN E OF ALL ZEROS. THE AC IS THEN CHECKED FOR ALL ZEROS. 8466 8467 034374 200 00 0 00 035001 A10300: MOVE [-1] ;SET C(AC) TO ALL ONES 8468 034375 444 00 0 00 035001 EQV [-1] ;*EQV SHOULD RESULT IN C(AC) OF ALL ONES 8469 034376 444 00 0 00 035000 EQV [0] ;*EQV SHOULD RESULT IN C(AC)=0 8470 034377 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8471 STOP^ 8472 034400 254 04 0 00 034401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8473 034401 324 00 0 00 034402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8474 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8475 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8476 8477 ;********** DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0181 8478 013000 SN=13000 8479 000000 ZZ=0 8480 8481 A13000: REPEAT ^D36, 8482 <;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8483 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8484 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8485 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8486 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8487 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8488 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8489 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8490 SN=SN+1 8491 ZZ=ZZ+ZZ 8492 IFE ZZ, 8493 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8494 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8495 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8496 EQV [0] ;RESULTS IN C(AC)=0 8497 SKIPE ;PASS TEST IF C(AC)=0 8498 STOP 8499 8500 ;********** 8501 > 8502 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8503 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8504 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8505 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8506 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8507 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8508 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8509 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8510 013001 SN=SN+1 8511 000000 ZZ=ZZ+ZZ 8512 000001 IFE ZZ, 8513 034402 200 00 0 00 035012 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8514 034403 404 00 0 00 035012 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8515 034404 444 00 0 00 035012 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8516 034405 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8517 034406 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8518 STOP^ 8519 034407 254 04 0 00 034410 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8520 034410 324 00 0 00 034411 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8522 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8523 8524 ;********** 8525 8526 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8527 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8528 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8529 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8530 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8531 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8532 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-1 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0182 8533 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8534 013002 SN=SN+1 8535 000002 ZZ=ZZ+ZZ 8536 IFE ZZ, 8537 034411 200 00 0 00 035013 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8538 034412 404 00 0 00 035013 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8539 034413 444 00 0 00 035013 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8540 034414 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8541 034415 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8542 STOP^ 8543 034416 254 04 0 00 034417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8544 034417 324 00 0 00 034420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8545 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8546 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8547 8548 ;********** 8549 8550 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8551 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8552 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8553 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8554 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8555 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8556 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8557 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8558 013003 SN=SN+1 8559 000004 ZZ=ZZ+ZZ 8560 IFE ZZ, 8561 034420 200 00 0 00 035014 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8562 034421 404 00 0 00 035014 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8563 034422 444 00 0 00 035014 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8564 034423 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8565 034424 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8566 STOP^ 8567 034425 254 04 0 00 034426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8568 034426 324 00 0 00 034427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8569 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8570 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8571 8572 ;********** 8573 8574 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8575 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8576 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8577 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8578 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8579 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8580 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8581 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8582 013004 SN=SN+1 8583 000010 ZZ=ZZ+ZZ 8584 IFE ZZ, 8585 034427 200 00 0 00 035015 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8586 034430 404 00 0 00 035015 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8587 034431 444 00 0 00 035015 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-2 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0183 8588 034432 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8589 034433 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8590 STOP^ 8591 034434 254 04 0 00 034435 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8592 034435 324 00 0 00 034436 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8593 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8594 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8595 8596 ;********** 8597 8598 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8599 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8600 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8601 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8602 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8603 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8604 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8605 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8606 013005 SN=SN+1 8607 000020 ZZ=ZZ+ZZ 8608 IFE ZZ, 8609 034436 200 00 0 00 035016 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8610 034437 404 00 0 00 035016 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8611 034440 444 00 0 00 035016 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8612 034441 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8613 034442 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8614 STOP^ 8615 034443 254 04 0 00 034444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8616 034444 324 00 0 00 034445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8618 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8619 8620 ;********** 8621 8622 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8623 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8624 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8625 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8626 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8627 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8628 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8629 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8630 013006 SN=SN+1 8631 000040 ZZ=ZZ+ZZ 8632 IFE ZZ, 8633 034445 200 00 0 00 035017 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8634 034446 404 00 0 00 035017 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8635 034447 444 00 0 00 035017 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8636 034450 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8637 034451 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8638 STOP^ 8639 034452 254 04 0 00 034453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8640 034453 324 00 0 00 034454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8642 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-3 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0184 8643 8644 ;********** 8645 8646 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8647 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8648 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8649 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8650 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8651 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8652 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8653 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8654 013007 SN=SN+1 8655 000100 ZZ=ZZ+ZZ 8656 IFE ZZ, 8657 034454 200 00 0 00 035020 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8658 034455 404 00 0 00 035020 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8659 034456 444 00 0 00 035020 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8660 034457 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8661 034460 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8662 STOP^ 8663 034461 254 04 0 00 034462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8664 034462 324 00 0 00 034463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8665 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8666 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8667 8668 ;********** 8669 8670 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8671 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8672 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8673 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8674 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8675 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8676 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8677 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8678 013010 SN=SN+1 8679 000200 ZZ=ZZ+ZZ 8680 IFE ZZ, 8681 034463 200 00 0 00 035021 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8682 034464 404 00 0 00 035021 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8683 034465 444 00 0 00 035021 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8684 034466 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8685 034467 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8686 STOP^ 8687 034470 254 04 0 00 034471 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8688 034471 324 00 0 00 034472 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8690 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8691 8692 ;********** 8693 8694 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8695 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8696 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8697 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-4 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0185 8698 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8699 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8700 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8701 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8702 013011 SN=SN+1 8703 000400 ZZ=ZZ+ZZ 8704 IFE ZZ, 8705 034472 200 00 0 00 035022 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8706 034473 404 00 0 00 035022 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8707 034474 444 00 0 00 035022 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8708 034475 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8709 034476 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8710 STOP^ 8711 034477 254 04 0 00 034500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8712 034500 324 00 0 00 034501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8713 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8714 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8715 8716 ;********** 8717 8718 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8719 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8720 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8721 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8722 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8723 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8724 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8725 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8726 013012 SN=SN+1 8727 001000 ZZ=ZZ+ZZ 8728 IFE ZZ, 8729 034501 200 00 0 00 035023 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8730 034502 404 00 0 00 035023 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8731 034503 444 00 0 00 035023 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8732 034504 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8733 034505 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8734 STOP^ 8735 034506 254 04 0 00 034507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8736 034507 324 00 0 00 034510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8738 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8739 8740 ;********** 8741 8742 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8743 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8744 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8745 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8746 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8747 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8748 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8749 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8750 013013 SN=SN+1 8751 002000 ZZ=ZZ+ZZ 8752 IFE ZZ, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-5 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0186 8753 034510 200 00 0 00 035024 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8754 034511 404 00 0 00 035024 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8755 034512 444 00 0 00 035024 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8756 034513 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8757 034514 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8758 STOP^ 8759 034515 254 04 0 00 034516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8760 034516 324 00 0 00 034517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8763 8764 ;********** 8765 8766 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8767 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8768 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8769 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8770 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8771 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8772 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8773 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8774 013014 SN=SN+1 8775 004000 ZZ=ZZ+ZZ 8776 IFE ZZ, 8777 034517 200 00 0 00 035025 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8778 034520 404 00 0 00 035025 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8779 034521 444 00 0 00 035025 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8780 034522 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8781 034523 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8782 STOP^ 8783 034524 254 04 0 00 034525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8784 034525 324 00 0 00 034526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8785 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8786 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8787 8788 ;********** 8789 8790 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8791 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8792 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8793 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8794 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8795 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8796 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8797 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8798 013015 SN=SN+1 8799 010000 ZZ=ZZ+ZZ 8800 IFE ZZ, 8801 034526 200 00 0 00 035026 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8802 034527 404 00 0 00 035026 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8803 034530 444 00 0 00 035026 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8804 034531 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8805 034532 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8806 STOP^ 8807 034533 254 04 0 00 034534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-6 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0187 8808 034534 324 00 0 00 034535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8809 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8810 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8811 8812 ;********** 8813 8814 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8815 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8816 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8817 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8818 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8819 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8820 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8821 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8822 013016 SN=SN+1 8823 020000 ZZ=ZZ+ZZ 8824 IFE ZZ, 8825 034535 200 00 0 00 035027 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8826 034536 404 00 0 00 035027 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8827 034537 444 00 0 00 035027 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8828 034540 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8829 034541 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8830 STOP^ 8831 034542 254 04 0 00 034543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8832 034543 324 00 0 00 034544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8835 8836 ;********** 8837 8838 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8839 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8840 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8841 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8842 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8843 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8844 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8845 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8846 013017 SN=SN+1 8847 040000 ZZ=ZZ+ZZ 8848 IFE ZZ, 8849 034544 200 00 0 00 035030 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8850 034545 404 00 0 00 035030 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8851 034546 444 00 0 00 035030 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8852 034547 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8853 034550 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8854 STOP^ 8855 034551 254 04 0 00 034552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8856 034552 324 00 0 00 034553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8858 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8859 8860 ;********** 8861 8862 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-7 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0188 8863 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8864 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8865 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8866 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8867 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8868 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8869 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8870 013020 SN=SN+1 8871 100000 ZZ=ZZ+ZZ 8872 IFE ZZ, 8873 034553 200 00 0 00 035031 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8874 034554 404 00 0 00 035031 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8875 034555 444 00 0 00 035031 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8876 034556 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8877 034557 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8878 STOP^ 8879 034560 254 04 0 00 034561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8880 034561 324 00 0 00 034562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8883 8884 ;********** 8885 8886 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8887 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8888 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8889 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8890 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8891 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8892 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8893 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8894 013021 SN=SN+1 8895 200000 ZZ=ZZ+ZZ 8896 IFE ZZ, 8897 034562 200 00 0 00 035032 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8898 034563 404 00 0 00 035032 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8899 034564 444 00 0 00 035032 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8900 034565 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8901 034566 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8902 STOP^ 8903 034567 254 04 0 00 034570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8904 034570 324 00 0 00 034571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8907 8908 ;********** 8909 8910 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8911 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8912 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8913 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8914 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8915 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8916 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8917 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-8 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0189 8918 013022 SN=SN+1 8919 400000 ZZ=ZZ+ZZ 8920 IFE ZZ, 8921 034571 200 00 0 00 035033 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8922 034572 404 00 0 00 035033 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8923 034573 444 00 0 00 035033 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8924 034574 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8925 034575 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8926 STOP^ 8927 034576 254 04 0 00 034577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8928 034577 324 00 0 00 034600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8929 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8930 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8931 8932 ;********** 8933 8934 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8935 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8936 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8937 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8938 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8939 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8940 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8941 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8942 013023 SN=SN+1 8943 000001 000000 ZZ=ZZ+ZZ 8944 IFE ZZ, 8945 034600 200 00 0 00 035034 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8946 034601 404 00 0 00 035034 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8947 034602 444 00 0 00 035034 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8948 034603 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8949 034604 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8950 STOP^ 8951 034605 254 04 0 00 034606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8952 034606 324 00 0 00 034607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8953 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8954 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8955 8956 ;********** 8957 8958 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8959 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8960 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8961 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8962 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8963 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8964 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8965 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8966 013024 SN=SN+1 8967 000002 000000 ZZ=ZZ+ZZ 8968 IFE ZZ, 8969 034607 200 00 0 00 035035 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8970 034610 404 00 0 00 035035 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8971 034611 444 00 0 00 035035 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8972 034612 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-9 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0190 8973 034613 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8974 STOP^ 8975 034614 254 04 0 00 034615 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8976 034615 324 00 0 00 034616 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8977 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8978 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8979 8980 ;********** 8981 8982 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 8983 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 8984 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 8985 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 8986 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 8987 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 8988 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 8989 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 8990 013025 SN=SN+1 8991 000004 000000 ZZ=ZZ+ZZ 8992 IFE ZZ, 8993 034616 200 00 0 00 035036 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 8994 034617 404 00 0 00 035036 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 8995 034620 444 00 0 00 035036 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 8996 034621 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 8997 034622 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 8998 STOP^ 8999 034623 254 04 0 00 034624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9000 034624 324 00 0 00 034625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9003 9004 ;********** 9005 9006 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9007 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9008 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9009 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9010 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9011 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9012 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9013 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9014 013026 SN=SN+1 9015 000010 000000 ZZ=ZZ+ZZ 9016 IFE ZZ, 9017 034625 200 00 0 00 035037 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9018 034626 404 00 0 00 035037 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9019 034627 444 00 0 00 035037 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9020 034630 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9021 034631 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9022 STOP^ 9023 034632 254 04 0 00 034633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9024 034633 324 00 0 00 034634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9025 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9026 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9027 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-10 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0191 9028 ;********** 9029 9030 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9031 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9032 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9033 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9034 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9035 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9036 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9037 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9038 013027 SN=SN+1 9039 000020 000000 ZZ=ZZ+ZZ 9040 IFE ZZ, 9041 034634 200 00 0 00 035040 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9042 034635 404 00 0 00 035040 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9043 034636 444 00 0 00 035040 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9044 034637 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9045 034640 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9046 STOP^ 9047 034641 254 04 0 00 034642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9048 034642 324 00 0 00 034643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9049 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9050 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9051 9052 ;********** 9053 9054 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9055 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9056 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9057 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9058 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9059 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9060 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9061 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9062 013030 SN=SN+1 9063 000040 000000 ZZ=ZZ+ZZ 9064 IFE ZZ, 9065 034643 200 00 0 00 035041 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9066 034644 404 00 0 00 035041 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9067 034645 444 00 0 00 035041 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9068 034646 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9069 034647 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9070 STOP^ 9071 034650 254 04 0 00 034651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9072 034651 324 00 0 00 034652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9073 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9074 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9075 9076 ;********** 9077 9078 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9079 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9080 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9081 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9082 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-11 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0192 9083 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9084 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9085 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9086 013031 SN=SN+1 9087 000100 000000 ZZ=ZZ+ZZ 9088 IFE ZZ, 9089 034652 200 00 0 00 035042 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9090 034653 404 00 0 00 035042 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9091 034654 444 00 0 00 035042 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9092 034655 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9093 034656 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9094 STOP^ 9095 034657 254 04 0 00 034660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9096 034660 324 00 0 00 034661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9098 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9099 9100 ;********** 9101 9102 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9103 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9104 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9105 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9106 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9107 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9108 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9109 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9110 013032 SN=SN+1 9111 000200 000000 ZZ=ZZ+ZZ 9112 IFE ZZ, 9113 034661 200 00 0 00 035043 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9114 034662 404 00 0 00 035043 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9115 034663 444 00 0 00 035043 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9116 034664 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9117 034665 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9118 STOP^ 9119 034666 254 04 0 00 034667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9120 034667 324 00 0 00 034670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9121 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9122 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9123 9124 ;********** 9125 9126 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9127 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9128 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9129 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9130 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9131 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9132 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9133 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9134 013033 SN=SN+1 9135 000400 000000 ZZ=ZZ+ZZ 9136 IFE ZZ, 9137 034670 200 00 0 00 035011 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-12 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0193 9138 034671 404 00 0 00 035011 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9139 034672 444 00 0 00 035011 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9140 034673 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9141 034674 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9142 STOP^ 9143 034675 254 04 0 00 034676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9144 034676 324 00 0 00 034677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9145 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9146 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9147 9148 ;********** 9149 9150 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9151 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9152 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9153 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9154 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9155 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9156 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9157 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9158 013034 SN=SN+1 9159 001000 000000 ZZ=ZZ+ZZ 9160 IFE ZZ, 9161 034677 200 00 0 00 035044 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9162 034700 404 00 0 00 035044 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9163 034701 444 00 0 00 035044 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9164 034702 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9165 034703 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9166 STOP^ 9167 034704 254 04 0 00 034705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9168 034705 324 00 0 00 034706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9171 9172 ;********** 9173 9174 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9175 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9176 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9177 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9178 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9179 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9180 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9181 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9182 013035 SN=SN+1 9183 002000 000000 ZZ=ZZ+ZZ 9184 IFE ZZ, 9185 034706 200 00 0 00 035045 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9186 034707 404 00 0 00 035045 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9187 034710 444 00 0 00 035045 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9188 034711 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9189 034712 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9190 STOP^ 9191 034713 254 04 0 00 034714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9192 034714 324 00 0 00 034715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-13 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0194 9193 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9194 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9195 9196 ;********** 9197 9198 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9199 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9200 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9201 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9202 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9203 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9204 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9205 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9206 013036 SN=SN+1 9207 004000 000000 ZZ=ZZ+ZZ 9208 IFE ZZ, 9209 034715 200 00 0 00 035046 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9210 034716 404 00 0 00 035046 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9211 034717 444 00 0 00 035046 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9212 034720 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9213 034721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9214 STOP^ 9215 034722 254 04 0 00 034723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9216 034723 324 00 0 00 034724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9217 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9218 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9219 9220 ;********** 9221 9222 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9223 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9224 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9225 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9226 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9227 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9228 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9229 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9230 013037 SN=SN+1 9231 010000 000000 ZZ=ZZ+ZZ 9232 IFE ZZ, 9233 034724 200 00 0 00 035047 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9234 034725 404 00 0 00 035047 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9235 034726 444 00 0 00 035047 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9236 034727 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9237 034730 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9238 STOP^ 9239 034731 254 04 0 00 034732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9240 034732 324 00 0 00 034733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9241 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9242 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9243 9244 ;********** 9245 9246 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9247 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-14 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0195 9248 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9249 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9250 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9251 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9252 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9253 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9254 013040 SN=SN+1 9255 020000 000000 ZZ=ZZ+ZZ 9256 IFE ZZ, 9257 034733 200 00 0 00 035050 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9258 034734 404 00 0 00 035050 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9259 034735 444 00 0 00 035050 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9260 034736 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9261 034737 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9262 STOP^ 9263 034740 254 04 0 00 034741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9264 034741 324 00 0 00 034742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9266 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9267 9268 ;********** 9269 9270 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9271 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9272 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9273 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9274 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9275 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9276 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9277 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9278 013041 SN=SN+1 9279 040000 000000 ZZ=ZZ+ZZ 9280 IFE ZZ, 9281 034742 200 00 0 00 035051 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9282 034743 404 00 0 00 035051 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9283 034744 444 00 0 00 035051 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9284 034745 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9285 034746 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9286 STOP^ 9287 034747 254 04 0 00 034750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9288 034750 324 00 0 00 034751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9289 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9290 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9291 9292 ;********** 9293 9294 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9295 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9296 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9297 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9298 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9299 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9300 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9301 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9302 013042 SN=SN+1 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-15 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0196 9303 100000 000000 ZZ=ZZ+ZZ 9304 IFE ZZ, 9305 034751 200 00 0 00 035052 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9306 034752 404 00 0 00 035052 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9307 034753 444 00 0 00 035052 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9308 034754 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9309 034755 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9310 STOP^ 9311 034756 254 04 0 00 034757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9312 034757 324 00 0 00 034760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9314 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9315 9316 ;********** 9317 9318 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9319 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9320 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9321 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9322 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9323 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9324 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9325 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9326 013043 SN=SN+1 9327 200000 000000 ZZ=ZZ+ZZ 9328 IFE ZZ, 9329 034760 200 00 0 00 035053 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9330 034761 404 00 0 00 035053 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9331 034762 444 00 0 00 035053 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9332 034763 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9333 034764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 9334 STOP^ 9335 034765 254 04 0 00 034766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9336 034766 324 00 0 00 034767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9339 9340 ;********** 9341 9342 ;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS. 9343 ;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN 9344 ;ANDED WITH C(E) WHERE C(E)=C(AC). THE NET RESULT SHOULD BE NO CHANGE TO C(AC). 9345 ;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 9346 ;BE ALL ONES IN THE AC. THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS, 9347 ;WHICH SHOULD RESULT IN C(AC)=0. THE AC IS CHECKED FOR ALL ZEROS. 9348 ;IF C(AC) IS NON-ZERO, THE TEST FAILS. THIS TEST IS REPEATED 36 TIMES TO 9349 ;RIPPLE A ONE THROUGH EVERY BIT OF THE AC. 9350 013044 SN=SN+1 9351 400000 000000 ZZ=ZZ+ZZ 9352 IFE ZZ, 9353 034767 200 00 0 00 035003 MOVE [ZZ] ;SETUP AC WITH A ONE IN ONLY ONE BIT 9354 034770 404 00 0 00 035003 AND [ZZ] ;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC) 9355 034771 444 00 0 00 035003 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 9356 034772 444 00 0 00 035000 EQV [0] ;RESULTS IN C(AC)=0 9357 034773 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 31-16 DSKAA1 MAC 28-Mar-78 09:38 TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV) SEQ 0197 9358 STOP^ 9359 034774 254 04 0 00 034775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9360 034775 324 00 0 00 034776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9363 9364 ;********** 9365 9366 034776 402 00 0 00 035124 ENDIT: SETZM TNUMB# 9367 034777 254 00 0 00 030057 JRST BEGEND DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0198 9368 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 9369 9370 ;PROGRAM LITERALS 9371 9372 XLIST 9373 IFNDEF $LPAPER, 9374 035000 LIT 9375 035000 000000 000000 9376 035001 777777 777777 9377 035002 377777 777777 9378 035003 400000 000000 9379 035004 777000 000000 9380 035005 000377 000000 9381 035006 000000 177000 9382 035007 000000 000777 9383 035010 000000 600000 9384 035011 000400 000000 9385 035012 000000 000001 9386 035013 000000 000002 9387 035014 000000 000004 9388 035015 000000 000010 9389 035016 000000 000020 9390 035017 000000 000040 9391 035020 000000 000100 9392 035021 000000 000200 9393 035022 000000 000400 9394 035023 000000 001000 9395 035024 000000 002000 9396 035025 000000 004000 9397 035026 000000 010000 9398 035027 000000 020000 9399 035030 000000 040000 9400 035031 000000 100000 9401 035032 000000 200000 9402 035033 000000 400000 9403 035034 000001 000000 9404 035035 000002 000000 9405 035036 000004 000000 9406 035037 000010 000000 9407 035040 000020 000000 9408 035041 000040 000000 9409 035042 000100 000000 9410 035043 000200 000000 9411 035044 001000 000000 9412 035045 002000 000000 9413 035046 004000 000000 9414 035047 010000 000000 9415 035050 020000 000000 9416 035051 040000 000000 9417 035052 100000 000000 9418 035053 200000 000000 9419 035054 000000 001234 9420 035055 000000 777777 9421 035056 777777 000000 9422 035057 707070 707070 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0199 9423 035060 777777 777776 9424 035061 777777 777775 9425 035062 777777 777773 9426 035063 777777 777767 9427 035064 777777 777757 9428 035065 777777 777737 9429 035066 777777 777677 9430 035067 777777 777577 9431 035070 777777 777377 9432 035071 777777 776777 9433 035072 777777 775777 9434 035073 777777 773777 9435 035074 777777 767777 9436 035075 777777 757777 9437 035076 777777 737777 9438 035077 777777 677777 9439 035100 777777 577777 9440 035101 777777 377777 9441 035102 777776 777777 9442 035103 777775 777777 9443 035104 777773 777777 9444 035105 777767 777777 9445 035106 777757 777777 9446 035107 777737 777777 9447 035110 777677 777777 9448 035111 777577 777777 9449 035112 777377 777777 9450 035113 776777 777777 9451 035114 775777 777777 9452 035115 773777 777777 9453 035116 767777 777777 9454 035117 757777 777777 9455 035120 737777 777777 9456 035121 677777 777777 9457 035122 577777 777777 9458 LIST 9459 035123 000000 000000 ENDSLD: 0 9460 9461 IFDEF DEBUG,< 9462 PATCH: BLOCK DEBUG ;PATCHING AREA 9463 > 9464 9465 ;PROGRAM VARIABLES 9466 035124 VAR 9467 9468 IFDEF PGMEND,< 9469 035125 000000 000000 END: 0 9470 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 035126 CPU TIME USED 00:27.561 DSKAA DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (1) 0,1 MACRO %53(1020) 13:49 28-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0200 22P CORE USED A00 816# A100 871# SEQ 0201 A1000 976# A10000 7606# A10100 8024# A10200 8447# A10300 8467# A1100 991# A1200 1004# A12500 817# A12600 861# A12700 853# A1300 1018# A13000 8481# A13100 1948# A1400 1032# A1500 1046# A15000 832# A15100 843# A1600 1060# A1700 1074# A200 884# A2000 1088# A2100 1102# A2200 1115# A2300 1129# A2400 1143# A2500 1157# A2600 1170# A2700 1184# A300 898# A3000 1198# A3100 1210# A3200 1915# A3300 1933# A3400 1961# A3500 1986# A3600 2004# A3700 2022# A400 914# A4000 2073# A4100 2089# A4200 2234# A4300 2252# A4400 2270# A4500 2037# A4600 2052# A4700 2289# A500 929# A5000 2305# A5100 2321# A5200 2336# A5300 2353# A5400 2373# A5500 2386# SEQ 0202 A5600 2746# A5700 3110# A600 948# A6000 3126# A6100 3146# A6200 3164# A6300 3185# A6400 3198# A6500 4267# A6600 5047# A6700 5065# A700 963# A7000 5085# A7100 5102# A7200 5118# A7300 5132# A7400 5872# A7500 6797# A7600 7575# A7700 7592# ABORT 92# AC 2087# 2120 2120# 2121 2121# 2123 2124 2125 2149 2149# 2150 2152 2153 2154 2178 2178# 2179 2181 2182 2183 2207 2207# 2208 2210 2211 2212 AC0 687# ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 9367 BEGIN 307 308 369# 708 771 9470 BEGIN1 385# 439 BELL 561# BIS 356# CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# CRY1 356# CSHFLG 604# CSHMEM 605# SEQ 0203 CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 9461 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 9469# ENDFIX 684# ENDIT 9366# ENDSLD 9459# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# SEQ 0204 ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# SEQ 0205 LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# SEQ 0206 LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# SEQ 0207 MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 9468 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# SEQ 0208 QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SN 1207# 1232 1232# 1251 1251# 1270 1270# 1289 1289# 1308 1308# 1327 1327# 1346 1346# 1365 1365# 1384 1384# 1403 1403# 1422 1422# 1441 1441# 1460 1460# 1479 1479# 1498 1498# 1517 1517# 1536 1536# 1555 1555# 1574 1574# 1593 1593# 1612 1612# 1631 1631# 1650 1650# 1669 1669# 1688 1688# 1707 1707# 1726 1726# 1745 1745# 1764 1764# 1783 1783# 1802 1802# 1821 1821# 1840 1840# 1859 1859# 1878 1878# 1897 1897# 2086# 2119 2119# 2148 2148# 2177 2177# 2206 2206# 2383# 2407 2407# 2426 2426# 2445 2445# 2464 2464# 2483 2483# 2502 2502# 2521 2521# 2540 2540# 2559 2559# 2578 2578# 2597 2597# 2616 2616# 2635 2635# 2654 2654# 2673 2673# 2692 2692# 2711 2711# 2730 2730# 2744# 2768 2768# 2787 2787# 2806 2806# 2825 2825# 2844 2844# 2863 2863# 2882 2882# 2901 2901# 2920 2920# 2939 2939# 2958 2958# 2977 2977# 2996 2996# 3015 3015# 3034 3034# 3053 3053# 3072 3072# 3091 3091# 3195# 3228 3228# 3257 3257# 3286 3286# 3315 3315# 3344 3344# 3373 3373# 3402 3402# 3431 3431# 3460 3460# 3489 3489# 3518 3518# 3547 3547# 3576 3576# 3605 3605# 3634 3634# 3663 3663# 3692 3692# 3721 3721# 3750 3750# 3779 3779# 3808 3808# 3837 3837# 3866 3866# 3895 3895# 3924 3924# 3953 3953# 3982 3982# 4011 4011# 4040 4040# 4069 4069# 4098 4098# 4127 4127# 4156 4156# 4185 4185# 4214 4214# 4243 4243# 4264# 4290 4290# 4311 4311# 4332 4332# 4353 4353# 4374 4374# 4395 4395# 4416 4416# 4437 4437# 4458 4458# 4479 4479# 4500 4500# 4521 4521# 4542 4542# 4563 4563# 4584 4584# 4605 4605# 4626 4626# 4647 4647# 4668 4668# 4689 4689# 4710 4710# 4731 4731# 4752 4752# 4773 4773# 4794 4794# SEQ 0209 4815 4815# 4836 4836# 4857 4857# 4878 4878# 4899 4899# 4920 4920# 4941 4941# 4962 4962# 4983 4983# 5004 5004# 5025 5025# 5129# 5154 5154# 5174 5174# 5194 5194# 5214 5214# 5234 5234# 5254 5254# 5274 5274# 5294 5294# 5314 5314# 5334 5334# 5354 5354# 5374 5374# 5394 5394# 5414 5414# 5434 5434# 5454 5454# 5474 5474# 5494 5494# 5514 5514# 5534 5534# 5554 5554# 5574 5574# 5594 5594# 5614 5614# 5634 5634# 5654 5654# 5674 5674# 5694 5694# 5714 5714# 5734 5734# 5754 5754# 5774 5774# 5794 5794# 5814 5814# 5834 5834# 5854 5854# 5869# 5899 5899# 5924 5924# 5949 5949# 5974 5974# 5999 5999# 6024 6024# 6049 6049# 6074 6074# 6099 6099# 6124 6124# 6149 6149# 6174 6174# 6199 6199# 6224 6224# 6249 6249# 6274 6274# 6299 6299# 6324 6324# 6349 6349# 6374 6374# 6399 6399# 6424 6424# 6449 6449# 6474 6474# 6499 6499# 6524 6524# 6549 6549# 6574 6574# 6599 6599# 6624 6624# 6649 6649# 6674 6674# 6699 6699# 6724 6724# 6749 6749# 6774 6774# 6794# 6822 6822# 6843 6843# 6864 6864# 6885 6885# 6906 6906# 6927 6927# 6948 6948# 6969 6969# 6990 6990# 7011 7011# 7032 7032# 7053 7053# 7074 7074# 7095 7095# 7116 7116# 7137 7137# 7158 7158# 7179 7179# 7200 7200# 7221 7221# 7242 7242# 7263 7263# 7284 7284# 7305 7305# 7326 7326# 7347 7347# 7368 7368# 7389 7389# 7410 7410# 7431 7431# 7452 7452# 7473 7473# 7494 7494# 7515 7515# 7536 7536# 7557 7557# 7603# 7632 7632# 7654 7654# 7676 7676# 7698 7698# 7720 7720# 7742 7742# 7764 7764# 7786 7786# 7808 7808# 7830 7830# 7852 7852# 7874 7874# 7896 7896# 7918 7918# 7940 7940# 7962 7962# 7984 7984# 8006 8006# 8021# 8050 8050# 8072 8072# 8094 8094# 8116 8116# 8138 8138# 8160 8160# 8182 8182# 8204 8204# 8226 8226# 8248 8248# 8270 8270# 8292 8292# 8314 8314# 8336 8336# 8358 8358# 8380 8380# 8402 8402# 8424 8424# 8478# 8510 8510# 8534 8534# 8558 8558# 8582 8582# 8606 8606# 8630 8630# 8654 8654# 8678 8678# 8702 8702# 8726 8726# 8750 8750# 8774 8774# 8798 8798# 8822 8822# 8846 8846# 8870 8870# 8894 8894# 8918 8918# 8942 8942# 8966 8966# 8990 8990# 9014 9014# 9038 9038# 9062 9062# 9086 9086# 9110 9110# 9134 9134# 9158 9158# 9182 9182# 9206 9206# 9230 9230# 9254 9254# 9278 9278# 9302 9302# 9326 9326# 9350 9350# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 807# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 9366# 9366 TOTALS 94# TRP3TP 356# TTNBRF 611# SEQ 0210 TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# ZZ 1208# 1233 1233# 1234 1234# 1235 1252 1252# 1253 1254 1271 1271# 1272 1273 1290 1290# 1291 1292 1309 1309# 1310 1311 1328 1328# 1329 1330 1347 1347# 1348 1349 1366 1366# 1367 1368 1385 1385# 1386 1387 1404 1404# 1405 1406 1423 1423# 1424 1425 1442 1442# 1443 1444 1461 1461# 1462 1463 1480 1480# 1481 1482 1499 1499# 1500 1501 1518 1518# 1519 1520 1537 1537# 1538 1539 1556 1556# 1557 1558 1575 1575# 1576 1577 1594 1594# 1595 1596 1613 1613# 1614 1615 1632 1632# 1633 1634 1651 1651# 1652 1653 1670 1670# 1671 1672 1689 1689# 1690 1691 1708 1708# 1709 1710 1727 1727# 1728 1729 1746 1746# 1747 1748 1765 1765# 1766 1767 1784 1784# 1785 1786 1803 1803# 1804 1805 1822 1822# 1823 1824 1841 1841# 1842 1843 1860 1860# 1861 1862 1879 1879# 1880 1881 1898 1898# 1899 1900 2384# 2408 2408# 2409 2409# 2411 2427 2427# 2428 2430 2446 2446# 2447 2449 2465 2465# 2466 2468 2484 2484# 2485 2487 2503 2503# 2504 2506 2522 2522# 2523 2525 2541 2541# 2542 2544 2560 2560# 2561 2563 2579 2579# 2580 2582 2598 2598# 2599 2601 2617 2617# 2618 2620 2636 2636# 2637 2639 2655 2655# 2656 2658 2674 2674# 2675 2677 2693 2693# 2694 2696 2712 2712# 2713 2715 2731 2731# 2732 2734 2769 2769# 2771 2788 2788# 2790 2807 2807# 2809 2826 2826# 2828 2845 2845# 2847 2864 2864# 2866 2883 2883# 2885 2902 2902# 2904 2921 2921# 2923 2940 2940# 2942 2959 2959# 2961 2978 2978# 2980 2997 2997# 2999 3016 3016# 3018 3035 3035# 3037 3054 3054# 3056 3073 3073# 3075 3092 3092# 3094 3196# 3229 3229# 3230 3230# 3232 3258 3258# 3259 3261 3287 3287# 3288 3290 3316 3316# 3317 3319 3345 3345# 3346 3348 3374 3374# 3375 3377 3403 3403# 3404 3406 3432 3432# 3433 3435 3461 3461# 3462 3464 3490 3490# 3491 3493 3519 3519# 3520 3522 3548 3548# 3549 3551 3577 3577# 3578 3580 3606 3606# 3607 3609 3635 3635# 3636 3638 3664 3664# 3665 3667 3693 3693# 3694 3696 3722 3722# 3723 3725 3751 3751# 3752 3754 3780 3780# 3781 3783 3809 3809# 3810 3812 3838 3838# 3839 3841 3867 3867# 3868 3870 3896 3896# 3897 3899 3925 3925# 3926 3928 3954 3954# 3955 3957 3983 3983# 3984 3986 4012 4012# 4013 4015 4041 4041# 4042 4044 4070 4070# 4071 4073 4099 4099# 4100 4102 4128 4128# 4129 4131 4157 4157# 4158 4160 4186 4186# 4187 4189 4215 4215# 4216 4218 4244 4244# 4245 4247 4265# 4291 4291# 4292 4292# 4293 4312 4312# 4313 4314 4333 4333# 4334 4335 4354 4354# 4355 4356 4375 4375# 4376 4377 4396 4396# 4397 4398 4417 4417# 4418 4419 4438 4438# 4439 4440 4459 4459# 4460 4461 4480 4480# 4481 4482 4501 4501# 4502 4503 4522 4522# 4523 4524 4543 4543# 4544 4545 4564 4564# 4565 4566 4585 4585# 4586 4587 4606 4606# 4607 4608 4627 4627# 4628 4629 4648 4648# 4649 4650 4669 4669# 4670 4671 4690 4690# 4691 4692 4711 4711# 4712 4713 4732 4732# 4733 4734 4753 4753# 4754 4755 4774 4774# 4775 4776 4795 4795# 4796 4797 4816 4816# 4817 4818 4837 4837# 4838 4839 4858 4858# 4859 4860 4879 4879# 4880 4881 4900 4900# 4901 4902 4921 4921# 4922 4923 4942 4942# 4943 4944 4963 4963# 4964 4965 4984 4984# 4985 4986 5005 5005# SEQ 0211 5006 5007 5026 5026# 5027 5028 5130# 5155 5155# 5156 5156# 5158 5175 5175# 5176 5178 5195 5195# 5196 5198 5215 5215# 5216 5218 5235 5235# 5236 5238 5255 5255# 5256 5258 5275 5275# 5276 5278 5295 5295# 5296 5298 5315 5315# 5316 5318 5335 5335# 5336 5338 5355 5355# 5356 5358 5375 5375# 5376 5378 5395 5395# 5396 5398 5415 5415# 5416 5418 5435 5435# 5436 5438 5455 5455# 5456 5458 5475 5475# 5476 5478 5495 5495# 5496 5498 5515 5515# 5516 5518 5535 5535# 5536 5538 5555 5555# 5556 5558 5575 5575# 5576 5578 5595 5595# 5596 5598 5615 5615# 5616 5618 5635 5635# 5636 5638 5655 5655# 5656 5658 5675 5675# 5676 5678 5695 5695# 5696 5698 5715 5715# 5716 5718 5735 5735# 5736 5738 5755 5755# 5756 5758 5775 5775# 5776 5778 5795 5795# 5796 5798 5815 5815# 5816 5818 5835 5835# 5836 5838 5855 5855# 5856 5858 5870# 5900 5900# 5901 5901# 5902 5925 5925# 5926 5927 5950 5950# 5951 5952 5975 5975# 5976 5977 6000 6000# 6001 6002 6025 6025# 6026 6027 6050 6050# 6051 6052 6075 6075# 6076 6077 6100 6100# 6101 6102 6125 6125# 6126 6127 6150 6150# 6151 6152 6175 6175# 6176 6177 6200 6200# 6201 6202 6225 6225# 6226 6227 6250 6250# 6251 6252 6275 6275# 6276 6277 6300 6300# 6301 6302 6325 6325# 6326 6327 6350 6350# 6351 6352 6375 6375# 6376 6377 6400 6400# 6401 6402 6425 6425# 6426 6427 6450 6450# 6451 6452 6475 6475# 6476 6477 6500 6500# 6501 6502 6525 6525# 6526 6527 6550 6550# 6551 6552 6575 6575# 6576 6577 6600 6600# 6601 6602 6625 6625# 6626 6627 6650 6650# 6651 6652 6675 6675# 6676 6677 6700 6700# 6701 6702 6725 6725# 6726 6727 6750 6750# 6751 6752 6775 6775# 6776 6777 6795# 6823 6823# 6824 6824# 6825 6826 6844 6844# 6845 6846 6847 6865 6865# 6866 6867 6868 6886 6886# 6887 6888 6889 6907 6907# 6908 6909 6910 6928 6928# 6929 6930 6931 6949 6949# 6950 6951 6952 6970 6970# 6971 6972 6973 6991 6991# 6992 6993 6994 7012 7012# 7013 7014 7015 7033 7033# 7034 7035 7036 7054 7054# 7055 7056 7057 7075 7075# 7076 7077 7078 7096 7096# 7097 7098 7099 7117 7117# 7118 7119 7120 7138 7138# 7139 7140 7141 7159 7159# 7160 7161 7162 7180 7180# 7181 7182 7183 7201 7201# 7202 7203 7204 7222 7222# 7223 7224 7225 7243 7243# 7244 7245 7246 7264 7264# 7265 7266 7267 7285 7285# 7286 7287 7288 7306 7306# 7307 7308 7309 7327 7327# 7328 7329 7330 7348 7348# 7349 7350 7351 7369 7369# 7370 7371 7372 7390 7390# 7391 7392 7393 7411 7411# 7412 7413 7414 7432 7432# 7433 7434 7435 7453 7453# 7454 7455 7456 7474 7474# 7475 7476 7477 7495 7495# 7496 7497 7498 7516 7516# 7517 7518 7519 7537 7537# 7538 7539 7540 7558 7558# 7559 7560 7561 7604# 7633 7633# 7634 7634# 7636 7655 7655# 7656 7658 7677 7677# 7678 7680 7699 7699# 7700 7702 7721 7721# 7722 7724 7743 7743# 7744 7746 7765 7765# 7766 7768 7787 7787# 7788 7790 7809 7809# 7810 7812 7831 7831# 7832 7834 7853 7853# 7854 7856 7875 7875# 7876 7878 7897 7897# 7898 7900 7919 7919# 7920 7922 7941 7941# 7942 7944 7963 7963# 7964 7966 7985 7985# 7986 7988 8007 8007# 8008 8010 8022# 8051 8051# 8052 8052# 8054 8073 8073# 8074 8076 8095 8095# 8096 8098 8117 8117# 8118 8120 8139 8139# 8140 8142 8161 8161# 8162 8164 8183 8183# 8184 8186 8205 8205# 8206 8208 8227 8227# 8228 8230 8249 8249# 8250 8252 8271 8271# 8272 8274 8293 8293# 8294 8296 8315 8315# 8316 8318 8337 8337# 8338 8340 8359 8359# 8360 8362 8381 8381# 8382 8384 8403 8403# 8404 8406 8425 8425# 8426 8428 8479# 8511 8511# 8512 8512# 8513 8514 8515 8535 8535# 8536 8537 8538 8539 8559 8559# 8560 8561 8562 8563 8583 8583# 8584 8585 8586 8587 8607 8607# 8608 8609 8610 8611 8631 8631# 8632 8633 8634 8635 8655 8655# 8656 8657 8658 8659 8679 8679# 8680 8681 8682 8683 8703 8703# 8704 8705 8706 8707 8727 8727# 8728 8729 8730 8731 8751 8751# 8752 8753 8754 8755 8775 8775# 8776 8777 8778 8779 8799 8799# 8800 8801 8802 8803 8823 8823# 8824 8825 8826 8827 8847 8847# 8848 8849 8850 8851 8871 8871# 8872 8873 8874 8875 8895 8895# 8896 8897 8898 8899 8919 8919# 8920 8921 8922 8923 8943 8943# 8944 8945 SEQ 0212 8946 8947 8967 8967# 8968 8969 8970 8971 8991 8991# 8992 8993 8994 8995 9015 9015# 9016 9017 9018 9019 9039 9039# 9040 9041 9042 9043 9063 9063# 9064 9065 9066 9067 9087 9087# 9088 9089 9090 9091 9111 9111# 9112 9113 9114 9115 9135 9135# 9136 9137 9138 9139 9159 9159# 9160 9161 9162 9163 9183 9183# 9184 9185 9186 9187 9207 9207# 9208 9209 9210 9211 9231 9231# 9232 9233 9234 9235 9255 9255# 9256 9257 9258 9259 9279 9279# 9280 9281 9282 9283 9303 9303# 9304 9305 9306 9307 9327 9327# 9328 9329 9330 9331 9351 9351# 9352 9353 9354 9355 $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# SEQ 0213 $ITRX1 451# $LPAPE 9373 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# SEQ 0214 .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0215 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 818 834 845 855 862 874 887 901 918 933 952 966 980 994 1008 1022 1035 1049 1064 1078 1091 1105 1119 1132 1146 1160 1173 1187 1201 1238 1257 1276 1295 1314 1333 1352 1371 1390 1409 1428 1447 1466 1485 1504 1523 1542 1561 1580 1599 1618 1637 1656 1675 1694 1713 1732 1751 1770 1789 1808 1827 1846 1865 1884 1903 1918 1936 1951 1967 1992 2010 2028 2041 2055 2080 2127 2133 2156 2162 2185 2191 2214 2220 2238 2257 2275 2293 2309 2325 2340 2357 2377 2414 2433 2452 2471 2490 2509 2528 2547 2566 2585 2604 2623 2642 2661 2680 2699 2718 2737 2774 2793 2812 2831 2850 2869 2888 2907 2926 2945 2964 2983 3002 3021 3040 3059 3078 3097 3114 3130 3150 3168 3189 3237 3243 3266 3272 3295 3301 3324 3330 3353 3359 3382 3388 3411 3417 3440 3446 3469 3475 3498 3504 3527 3533 3556 3562 3585 3591 3614 3620 3643 3649 3672 3678 3701 3707 3730 3736 3759 3765 3788 3794 3817 3823 3846 3852 3875 3881 3904 3910 3933 3939 3962 3968 3991 3997 4020 4026 4049 4055 4078 4084 4107 4113 4136 4142 4165 4171 4194 4200 4223 4229 4252 4258 4299 4320 4341 4362 4383 4404 4425 4446 4467 4488 4509 4530 4551 4572 4593 4614 4635 4656 4677 4698 4719 4740 4761 4782 4803 4824 4845 4866 4887 4908 4929 4950 4971 4992 5013 5034 5052 5069 5089 5107 5123 5162 5182 5202 5222 5242 5262 5282 5302 5322 5342 5362 5382 5402 5422 5442 5462 5482 5502 5522 5542 5562 5582 5602 5622 5642 5662 5682 5702 5722 5742 5762 5782 5802 5822 5842 5862 5907 5932 5957 5982 6007 6032 6057 6082 6107 6132 6157 6182 6207 6232 6257 6282 6307 6332 6357 6382 6407 6432 6457 6482 6507 6532 6557 6582 6607 6632 6657 6682 6707 6732 6757 6782 6829 6850 6871 6892 6913 6934 6955 6976 6997 7018 7039 7060 7081 7102 7123 7144 7165 7186 7207 7228 7249 7270 7291 7312 7333 7354 7375 7396 7417 7438 7459 7480 7501 7522 7543 7564 7579 7597 7640 7662 7684 7706 7728 7750 7772 7794 7816 7838 7860 7882 7904 7926 SEQ 0216 7948 7970 7992 8014 8058 8080 8102 8124 8146 8168 8190 8212 8234 8256 8278 8300 8322 8344 8366 8388 8410 8432 8452 8472 8519 8543 8567 8591 8615 8639 8663 8687 8711 8735 8759 8783 8807 8831 8855 8879 8903 8927 8951 8975 8999 9023 9047 9071 9095 9119 9143 9167 9191 9215 9239 9263 9287 9311 9335 9359 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# SEQ 0217 PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# SIXBTZ 261# STOP 48# 873 886 900 917 932 951 965 979 993 1007 1021 1034 1048 1063 1077 1090 1104 1118 1131 1145 1159 1172 1186 1200 1237 1256 1275 1294 1313 1332 1351 1370 1389 1408 1427 1446 1465 1484 1503 1522 1541 1560 1579 1598 1617 1636 1655 1674 1693 1712 1731 1750 1769 1788 1807 1826 1845 1864 1883 1902 1917 1935 1950 1966 1991 2009 2027 2040 2054 SEQ 0218 2079 2126 2132 2155 2161 2184 2190 2213 2219 2237 2256 2274 2292 2308 2324 2339 2356 2376 2413 2432 2451 2470 2489 2508 2527 2546 2565 2584 2603 2622 2641 2660 2679 2698 2717 2736 2773 2792 2811 2830 2849 2868 2887 2906 2925 2944 2963 2982 3001 3020 3039 3058 3077 3096 3113 3129 3149 3167 3188 3236 3242 3265 3271 3294 3300 3323 3329 3352 3358 3381 3387 3410 3416 3439 3445 3468 3474 3497 3503 3526 3532 3555 3561 3584 3590 3613 3619 3642 3648 3671 3677 3700 3706 3729 3735 3758 3764 3787 3793 3816 3822 3845 3851 3874 3880 3903 3909 3932 3938 3961 3967 3990 3996 4019 4025 4048 4054 4077 4083 4106 4112 4135 4141 4164 4170 4193 4199 4222 4228 4251 4257 4298 4319 4340 4361 4382 4403 4424 4445 4466 4487 4508 4529 4550 4571 4592 4613 4634 4655 4676 4697 4718 4739 4760 4781 4802 4823 4844 4865 4886 4907 4928 4949 4970 4991 5012 5033 5051 5068 5088 5106 5122 5161 5181 5201 5221 5241 5261 5281 5301 5321 5341 5361 5381 5401 5421 5441 5461 5481 5501 5521 5541 5561 5581 5601 5621 5641 5661 5681 5701 5721 5741 5761 5781 5801 5821 5841 5861 5906 5931 5956 5981 6006 6031 6056 6081 6106 6131 6156 6181 6206 6231 6256 6281 6306 6331 6356 6381 6406 6431 6456 6481 6506 6531 6556 6581 6606 6631 6656 6681 6706 6731 6756 6781 6828 6849 6870 6891 6912 6933 6954 6975 6996 7017 7038 7059 7080 7101 7122 7143 7164 7185 7206 7227 7248 7269 7290 7311 7332 7353 7374 7395 7416 7437 7458 7479 7500 7521 7542 7563 7578 7596 7639 7661 7683 7705 7727 7749 7771 7793 7815 7837 7859 7881 7903 7925 7947 7969 7991 8013 8057 8079 8101 8123 8145 8167 8189 8211 8233 8255 8277 8299 8321 8343 8365 8387 8409 8431 8451 8471 8518 8542 8566 8590 8614 8638 8662 8686 8710 8734 8758 8782 8806 8830 8854 8878 8902 8926 8950 8974 8998 9022 9046 9070 9094 9118 9142 9166 9190 9214 9238 9262 9286 9310 9334 9358 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# SEQ 0219 WRTIM 356# WRUBR 356# AND 3186 3234 3263 3292 3321 3350 3379 3408 3437 3466 3495 3524 3553 3582 3611 3640 3669 3698 3727 3756 3785 3814 3843 3872 3901 3930 3959 3988 SEQ 0220 4017 4046 4075 4104 4133 4162 4191 4220 4249 4294 4315 4336 4357 4378 4399 4420 4441 4462 4483 4504 4525 4546 4567 4588 4609 4630 4651 4672 4693 4714 4735 4756 4777 4798 4819 4840 4861 4882 4903 4924 4945 4966 4987 5008 5029 5048 5066 5086 5103 8514 8538 8562 8586 8610 8634 8658 8682 8706 8730 8754 8778 8802 8826 8850 8874 8898 8922 8946 8970 8994 9018 9042 9066 9090 9114 9138 9162 9186 9210 9234 9258 9282 9306 9330 9354 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAI 1987 2005 CAM 1962 2023 DEFINE 9 48 56 84 252 255 261 335 346 END 9470 EQV 7593 7636 7658 7680 7702 7724 7746 7768 7790 7812 7834 7856 7878 7900 7922 7944 7966 7988 8010 8054 8076 8098 8120 8142 8164 8186 8208 8230 8252 8274 8296 8318 8340 8362 8384 8406 8428 8448 8449 8468 8469 8515 8516 8539 8540 8563 8564 8587 8588 8611 8612 8635 8636 8659 8660 8683 8684 8707 8708 8731 8732 8755 8756 8779 8780 8803 8804 8827 8828 8851 8852 8875 8876 8899 8900 8923 8924 8947 8948 8971 8972 8995 8996 9019 9020 9043 9044 9067 9068 9091 9092 9115 9116 9139 9140 9163 9164 9187 9188 9211 9212 9235 9236 9259 9260 9283 9284 9307 9308 9331 9332 9355 9356 HRRS 2272 IFDEF 356 407 408 409 410 9461 9468 IFE 1234 1253 1272 1291 1310 1329 1348 1367 1386 1405 1424 1443 1462 1481 1500 1519 1538 1557 1576 1595 1614 1633 1652 1671 1690 1709 1728 1747 1766 1785 1804 1823 1842 1861 1880 1899 2121 2150 2179 2208 2409 2428 2447 2466 2485 2504 2523 2542 2561 2580 2599 2618 2637 2656 2675 2694 2713 2732 3230 3259 3288 3317 3346 3375 3404 3433 3462 3491 3520 3549 3578 3607 3636 3665 3694 3723 3752 3781 3810 3839 3868 3897 3926 3955 3984 4013 4042 4071 4100 4129 4158 4187 4216 4245 4292 4313 4334 4355 4376 4397 4418 4439 4460 4481 4502 4523 4544 4565 4586 4607 4628 4649 4670 4691 4712 4733 4754 4775 4796 4817 4838 4859 4880 4901 4922 4943 4964 4985 5006 5027 5156 5176 5196 5216 5236 5256 5276 5296 5316 5336 5356 5376 5396 5416 5436 5456 5476 5496 5516 5536 5556 5576 5596 5616 5636 5656 5676 5696 5716 5736 5756 5776 5796 5816 5836 5856 5901 5926 5951 5976 6001 6026 6051 6076 6101 6126 6151 6176 6201 6226 6251 6276 6301 6326 6351 6376 6401 6426 6451 6476 6501 6526 6551 6576 6601 6626 6651 6676 6701 6726 6751 6776 6824 6845 6866 6887 6908 6929 6950 6971 6992 7013 7034 7055 7076 7097 7118 7139 7160 7181 7202 7223 7244 7265 7286 7307 7328 7349 7370 7391 7412 7433 7454 7475 7496 7517 7538 7559 7634 7656 7678 7700 7722 7744 7766 7788 7810 7832 7854 7876 7898 7920 7942 7964 7986 8008 8052 8074 8096 8118 8140 8162 8184 8206 8228 8250 8272 8294 8316 8338 8360 8382 8404 8426 8512 8536 8560 8584 8608 8632 8656 8680 8704 8728 8752 8776 8800 8824 8848 8872 8896 8920 8944 8968 8992 9016 9040 9064 9088 9112 9136 9160 9184 9208 9232 9256 9280 9304 9328 9352 IFNDEF 307 308 318 407 408 409 410 489 9373 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 SEQ 0221 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 807 9367 JSP 166 743 776 JUMP 832 843 2290 JUMPA 853 861 875 888 902 919 934 953 967 981 995 1009 1023 1036 1050 1065 1079 1092 1106 1120 1133 1147 1161 1174 1188 1202 1239 1258 1277 1296 1315 1334 1353 1372 1391 1410 1429 1448 1467 1486 1505 1524 1543 1562 1581 1600 1619 1638 1657 1676 1695 1714 1733 1752 1771 1790 1809 1828 1847 1866 1885 1904 1919 1937 1952 1968 1993 2011 2029 2042 2056 2081 2128 2134 2157 2163 2186 2192 2215 2221 2239 2258 2276 2294 2310 2326 2341 2358 2378 2415 2434 2453 2472 2491 2510 2529 2548 2567 2586 2605 2624 2643 2662 2681 2700 2719 2738 2775 2794 2813 2832 2851 2870 2889 2908 2927 2946 2965 2984 3003 3022 3041 3060 3079 3098 3115 3131 3151 3169 3190 3238 3244 3267 3273 3296 3302 3325 3331 3354 3360 3383 3389 3412 3418 3441 3447 3470 3476 3499 3505 3528 3534 3557 3563 3586 3592 3615 3621 3644 3650 3673 3679 3702 3708 3731 3737 3760 3766 3789 3795 3818 3824 3847 3853 3876 3882 3905 3911 3934 3940 3963 3969 3992 3998 4021 4027 4050 4056 4079 4085 4108 4114 4137 4143 4166 4172 4195 4201 4224 4230 4253 4259 4300 4321 4342 4363 4384 4405 4426 4447 4468 4489 4510 4531 4552 4573 4594 4615 4636 4657 4678 4699 4720 4741 4762 4783 4804 4825 4846 4867 4888 4909 4930 4951 4972 4993 5014 5035 5053 5070 5090 5108 5124 5163 5183 5203 5223 5243 5263 5283 5303 5323 5343 5363 5383 5403 5423 5443 5463 5483 5503 5523 5543 5563 5583 5603 5623 5643 5663 5683 5703 5723 5743 5763 5783 5803 5823 5843 5863 5908 5933 5958 5983 6008 6033 6058 6083 6108 6133 6158 6183 6208 6233 6258 6283 6308 6333 6358 6383 6408 6433 6458 6483 6508 6533 6558 6583 6608 6633 6658 6683 6708 6733 6758 6783 6830 6851 6872 6893 6914 6935 6956 6977 6998 7019 7040 7061 7082 7103 7124 7145 7166 7187 7208 7229 7250 7271 7292 7313 7334 7355 7376 7397 7418 7439 7460 7481 7502 7523 7544 7565 7580 7598 7641 7663 7685 7707 7729 7751 7773 7795 7817 7839 7861 7883 7905 7927 7949 7971 7993 8015 8059 8081 8103 8125 8147 8169 8191 8213 8235 8257 8279 8301 8323 8345 8367 8389 8411 8433 8453 8473 8520 8544 8568 8592 8616 8640 8664 8688 8712 8736 8760 8784 8808 8832 8856 8880 8904 8928 8952 8976 9000 9024 9048 9072 9096 9120 9144 9168 9192 9216 9240 9264 9288 9312 9336 9360 LALL 10 LIST 9 318 356 489 9373 9458 LIT 9374 LOC 26 359 683 703 707 710 715 733 738 MOVE 871 884 898 914 929 948 963 976 991 1004 1018 1032 1046 1060 1074 1088 1102 1115 1129 1143 1157 1170 1184 1198 1235 1254 1273 1292 1311 1330 1349 1368 1387 1406 1425 1444 1463 1482 1501 1520 1539 1558 1577 1596 1615 1634 1653 1672 1691 1710 1729 1748 1767 1786 1805 1824 1843 1862 1881 1900 1933 1948 1961 1963 1986 1988 2004 2006 2022 2024 2037 2038 2052 2073 2074 2076 2122 2123 2151 2152 2180 2181 2209 2210 2234 2252 2253 2270 2271 2289 2305 2321 2336 2353 2373 2410 2429 2448 2467 2486 2505 2524 2543 2562 2581 2600 2619 2638 2657 2676 2695 2714 2733 2770 2789 2808 2827 2846 2865 2884 2903 2922 2941 2960 2979 2998 3017 3036 3055 3074 3093 3110 3126 3146 3164 3185 3232 3261 3290 3319 3348 3377 3406 3435 3464 3493 3522 3551 3580 3609 3638 3667 3696 3725 3754 3783 3812 3841 3870 3899 3928 3957 3986 4015 4044 4073 4102 4131 4160 4189 4218 4247 4293 4314 4335 4356 4377 4398 4419 4440 4461 4482 SEQ 0222 4503 4524 4545 4566 4587 4608 4629 4650 4671 4692 4713 4734 4755 4776 4797 4818 4839 4860 4881 4902 4923 4944 4965 4986 5007 5028 5047 5065 5085 5102 5118 5157 5177 5197 5217 5237 5257 5277 5297 5317 5337 5357 5377 5397 5417 5437 5457 5477 5497 5517 5537 5557 5577 5597 5617 5637 5657 5677 5697 5717 5737 5757 5777 5797 5817 5837 5857 5902 5927 5952 5977 6002 6027 6052 6077 6102 6127 6152 6177 6202 6227 6252 6277 6302 6327 6352 6377 6402 6427 6452 6477 6502 6527 6552 6577 6602 6627 6652 6677 6702 6727 6752 6777 6825 6846 6867 6888 6909 6930 6951 6972 6993 7014 7035 7056 7077 7098 7119 7140 7161 7182 7203 7224 7245 7266 7287 7308 7329 7350 7371 7392 7413 7434 7455 7476 7497 7518 7539 7560 7575 7592 7635 7657 7679 7701 7723 7745 7767 7789 7811 7833 7855 7877 7899 7921 7943 7965 7987 8009 8053 8075 8097 8119 8141 8163 8185 8207 8229 8251 8273 8295 8317 8339 8361 8383 8405 8427 8447 8467 8513 8537 8561 8585 8609 8633 8657 8681 8705 8729 8753 8777 8801 8825 8849 8873 8897 8921 8945 8969 8993 9017 9041 9065 9089 9113 9137 9161 9185 9209 9233 9257 9281 9305 9329 9353 MOVEI 1915 MOVS 2306 2322 2337 2354 2374 2411 2430 2449 2468 2487 2506 2525 2544 2563 2582 2601 2620 2639 2658 2677 2696 2715 2734 2771 2790 2809 2828 2847 2866 2885 2904 2923 2942 2961 2980 2999 3018 3037 3056 3075 3094 MOVSS 2254 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 1210 2089 2386 2746 3198 4267 5132 5872 6797 7606 8024 8481 SETM 3111 3127 SETOM 745 752 778 SETZ 3147 3165 3231 3260 3289 3318 3347 3376 3405 3434 3463 3492 3521 3550 3579 3608 3637 3666 3695 3724 3753 3782 3811 3840 3869 3898 3927 3956 3985 4014 4043 4072 4101 4130 4159 4188 4217 4246 SETZM 742 747 775 780 9366 SIXBIT 77 78 574 575 583 584 SKIP 915 1005 2124 2153 2182 2211 2235 SKIPA 817 833 844 854 872 885 916 931 950 978 1006 1020 1062 1076 1117 SKIPE 748 762 768 977 992 1965 1990 2008 2026 2053 2078 2131 2160 2189 2218 2236 2255 2273 2291 2307 3128 3148 3166 3187 3235 3241 3264 3270 3293 3299 3322 3328 3351 3357 3380 3386 3409 3415 3438 3444 3467 3473 3496 3502 3525 3531 3554 3560 3583 3589 3612 3618 3641 3647 3670 3676 3699 3705 3728 3734 3757 3763 3786 3792 3815 3821 3844 3850 3873 3879 3902 3908 3931 3937 3960 3966 3989 3995 4018 4024 4047 4053 4076 4082 4105 4111 4134 4140 4163 4169 4192 4198 4221 4227 4250 4256 5050 5067 5087 6827 6848 6869 6890 6911 6932 6953 6974 6995 7016 7037 7058 7079 SEQ 0223 7100 7121 7142 7163 7184 7205 7226 7247 7268 7289 7310 7331 7352 7373 7394 7415 7436 7457 7478 7499 7520 7541 7562 7577 7595 8450 8470 8517 8541 8565 8589 8613 8637 8661 8685 8709 8733 8757 8781 8805 8829 8853 8877 8901 8925 8949 8973 8997 9021 9045 9069 9093 9117 9141 9165 9189 9213 9237 9261 9285 9309 9333 9357 SKIPG 1047 1061 1916 2355 SKIPGE 899 930 SKIPL 783 1019 1033 1075 1934 1949 2375 3112 SKIPLE 1089 1103 1116 SKIPN 746 751 759 764 770 779 781 949 964 1130 1144 1158 1171 1185 1199 1236 1255 1274 1293 1312 1331 1350 1369 1388 1407 1426 1445 1464 1483 1502 1521 1540 1559 1578 1597 1616 1635 1654 1673 1692 1711 1730 1749 1768 1787 1806 1825 1844 1863 1882 1901 2039 2125 2154 2183 2212 2323 2338 2412 2431 2450 2469 2488 2507 2526 2545 2564 2583 2602 2621 2640 2659 2678 2697 2716 2735 2772 2791 2810 2829 2848 2867 2886 2905 2924 2943 2962 2981 3000 3019 3038 3057 3076 3095 4297 4318 4339 4360 4381 4402 4423 4444 4465 4486 4507 4528 4549 4570 4591 4612 4633 4654 4675 4696 4717 4738 4759 4780 4801 4822 4843 4864 4885 4906 4927 4948 4969 4990 5011 5032 5105 5121 5160 5180 5200 5220 5240 5260 5280 5300 5320 5340 5360 5380 5400 5420 5440 5460 5480 5500 5520 5540 5560 5580 5600 5620 5640 5660 5680 5700 5720 5740 5760 5780 5800 5820 5840 5860 5905 5930 5955 5980 6005 6030 6055 6080 6105 6130 6155 6180 6205 6230 6255 6280 6305 6330 6355 6380 6405 6430 6455 6480 6505 6530 6555 6580 6605 6630 6655 6680 6705 6730 6755 6780 7638 7660 7682 7704 7726 7748 7770 7792 7814 7836 7858 7880 7902 7924 7946 7968 7990 8012 8056 8078 8100 8122 8144 8166 8188 8210 8232 8254 8276 8298 8320 8342 8364 8386 8408 8430 SOS 758 2075 SUBTTL 30 82 117 319 356 357 685 773 808 1910 2227 3104 9368 TITLE 14 TLNE 744 777 TTCALL 784 VAR 9466 XLIST 8 317 355 488 9372 XOR 5119 5158 5178 5198 5218 5238 5258 5278 5298 5318 5338 5358 5378 5398 5418 5438 5458 5478 5498 5518 5538 5558 5578 5598 5618 5638 5658 5678 5698 5718 5738 5758 5778 5798 5818 5838 5858 5903 5928 5953 5978 6003 6028 6053 6078 6103 6128 6153 6178 6203 6228 6253 6278 6303 6328 6353 6378 6403 6428 6453 6478 6503 6528 6553 6578 6603 6628 6653 6678 6703 6728 6753 6778 6826 6847 6868 6889 6910 6931 6952 6973 6994 7015 7036 7057 7078 7099 7120 7141 7162 7183 7204 7225 7246 7267 7288 7309 7330 7351 7372 7393 7414 7435 7456 7477 7498 7519 7540 7561 7576 XWD 1046 1074 1102 1115 1129 1143 1198 2321 2336 2353 2373 7636 7658 7680 7702 7724 7746 7768 7790 7812 7834 7856 7878 7900 7922 7944 7966 7988 8010 8054 8076 8098 8120 8142 8164 8186 8208 8230 8252 8274 8296 8318 8340 8362 8384 8406 8428 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0224 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *030663 JUMP 0,030664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030664 ---------- *030664 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030666 JUMP 0,030670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030670 ---------- *030667 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030671 JUMPA 0,030672 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030672 ---------- *030672 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *030674 JUMPA 0,030676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030676 ---------- *030676 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030677 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030701 JUMPA 0,030702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030702 ---------- *030702 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030703 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *030705 JUMPA 0,030706 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030706 ---------- *030706 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030707 SKIPGE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030711 JUMPA 0,030712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030712 ---------- *030712 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030713 SKIP 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *030714 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030716 JUMPA 0,030717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030717 ---------- *030717 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030720 SKIPGE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030721 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *030723 JUMPA 0,030724 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030724 ---------- *030724 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030725 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030726 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030730 JUMPA 0,030731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030731 ---------- *030731 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *030732 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030734 JUMPA 0,030735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030735 ---------- *030735 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030736 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030737 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *030741 JUMPA 0,030742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030742 ---------- *030742 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030743 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030745 JUMPA 0,030746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030746 ---------- *030746 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030747 SKIP 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *030750 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030752 JUMPA 0,030753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030753 ---------- *030753 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030754 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030755 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *030757 JUMPA 0,030760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030760 ---------- *030760 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030761 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030763 JUMPA 0,030764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030764 ---------- *030764 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *030765 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *030767 JUMPA 0,030770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 030770 ---------- *030770 MOVE 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030771 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030772 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030774 JUMPA 0,030775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030775 ---------- *030775 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *030776 SKIPL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *030777 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031001 JUMPA 0,031002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 031002 ---------- *031002 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031003 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031005 JUMPA 0,031006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031006 ---------- *031006 MOVE 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031007 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031011 JUMPA 0,031012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 031012 ---------- *031012 MOVE 0,035002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031013 SKIPLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031014 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *031016 JUMPA 0,031017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 031017 ---------- *031017 MOVE 0,035004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 777000 000000 FINAL C(AC)= 777000 000000 ---------- *031020 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 C(E)= 777000 000000 FINAL C(AC)= 777000 000000 ---------- *031022 JUMPA 0,031023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 E= 000000 031023 ---------- *031023 MOVE 0,035005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 C(E)= 000377 000000 FINAL C(AC)= 000377 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031024 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 C(E)= 000377 000000 FINAL C(AC)= 000377 000000 ---------- *031026 JUMPA 0,031027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 E= 000000 031027 ---------- *031027 MOVE 0,035006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 000000 C(E)= 000000 177000 FINAL C(AC)= 000000 177000 ---------- *031030 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 C(E)= 000000 177000 FINAL C(AC)= 000000 177000 ---------- *031032 JUMPA 0,031033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 E= 000000 031033 ---------- *031033 MOVE 0,035007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177000 C(E)= 000000 000777 FINAL C(AC)= 000000 000777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031034 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 000777 FINAL C(AC)= 000000 000777 ---------- *031036 JUMPA 0,031037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 E= 000000 031037 ---------- *031037 MOVE 0,035010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 600000 FINAL C(AC)= 000000 600000 ---------- *031040 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 C(E)= 000000 600000 FINAL C(AC)= 000000 600000 ---------- *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 E= 000000 031043 ---------- *031043 MOVE 0,035011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 600000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031044 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031046 JUMPA 0,031047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 031047 ---------- *031047 MOVE 0,035012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031050 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031052 JUMPA 0,031053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 031053 ---------- *031053 MOVE 0,035013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *031054 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031056 JUMPA 0,031057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 031057 ---------- *031057 MOVE 0,035014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031060 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031062 JUMPA 0,031063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 031063 ---------- *031063 MOVE 0,035015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *031064 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031066 JUMPA 0,031067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 031067 ---------- *031067 MOVE 0,035016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031070 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031072 JUMPA 0,031073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 031073 ---------- *031073 MOVE 0,035017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *031074 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 031077 ---------- *031077 MOVE 0,035020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031100 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031102 JUMPA 0,031103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 031103 ---------- *031103 MOVE 0,035021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *031104 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031106 JUMPA 0,031107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 031107 ---------- *031107 MOVE 0,035022 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031110 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031112 JUMPA 0,031113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 031113 ---------- *031113 MOVE 0,035023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *031114 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031116 JUMPA 0,031117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 031117 ---------- *031117 MOVE 0,035024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031120 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031122 JUMPA 0,031123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 031123 ---------- *031123 MOVE 0,035025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *031124 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031126 JUMPA 0,031127 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 031127 ---------- *031127 MOVE 0,035026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031130 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031132 JUMPA 0,031133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 031133 ---------- *031133 MOVE 0,035027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *031134 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031136 JUMPA 0,031137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 031137 ---------- *031137 MOVE 0,035030 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031140 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031142 JUMPA 0,031143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 031143 ---------- *031143 MOVE 0,035031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *031144 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031146 JUMPA 0,031147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 031147 ---------- *031147 MOVE 0,035032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031150 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031152 JUMPA 0,031153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 031153 ---------- *031153 MOVE 0,035033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *031154 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031156 JUMPA 0,031157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 031157 ---------- *031157 MOVE 0,035034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031160 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031162 JUMPA 0,031163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 031163 ---------- *031163 MOVE 0,035035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *031164 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031166 JUMPA 0,031167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 031167 ---------- *031167 MOVE 0,035036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031170 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031172 JUMPA 0,031173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 031173 ---------- *031173 MOVE 0,035037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *031174 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031176 JUMPA 0,031177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 031177 ---------- *031177 MOVE 0,035040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031200 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031202 JUMPA 0,031203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 031203 ---------- *031203 MOVE 0,035041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *031204 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031206 JUMPA 0,031207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 031207 ---------- *031207 MOVE 0,035042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031210 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031212 JUMPA 0,031213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 031213 ---------- *031213 MOVE 0,035043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *031214 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031216 JUMPA 0,031217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 031217 ---------- *031217 MOVE 0,035011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031220 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031222 JUMPA 0,031223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 031223 ---------- *031223 MOVE 0,035044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *031224 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031226 JUMPA 0,031227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 031227 ---------- *031227 MOVE 0,035045 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031230 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031232 JUMPA 0,031233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 031233 ---------- *031233 MOVE 0,035046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *031234 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031236 JUMPA 0,031237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 031237 ---------- *031237 MOVE 0,035047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031240 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031242 JUMPA 0,031243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 031243 ---------- *031243 MOVE 0,035050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *031244 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031246 JUMPA 0,031247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 031247 ---------- *031247 MOVE 0,035051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031250 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031252 JUMPA 0,031253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 031253 ---------- *031253 MOVE 0,035052 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *031254 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031256 JUMPA 0,031257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 031257 ---------- *031257 MOVE 0,035053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031260 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031262 JUMPA 0,031263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 031263 ---------- *031263 MOVE 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *031264 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031266 JUMPA 0,031267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 031267 ---------- *031267 MOVEI 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 035001 FINAL C(AC)= 000000 035001 ---------- *031270 SKIPG 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 C(E)= 000000 035001 FINAL C(AC)= 000000 035001 ---------- *031272 JUMPA 0,031273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 E= 000000 031273 ---------- *031273 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 035001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *031274 SKIPL 0,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031276 JUMPA 0,031277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031277 ---------- *031277 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031300 SKIPL 0,035003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *031302 JUMPA 0,031303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031303 ---------- *031303 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *031304 CAM 0,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 ---------- *031305 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031306 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031310 JUMPA 0,031311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031311 ---------- *031311 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031312 CAI 0,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 035054 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *031313 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031314 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031316 JUMPA 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031317 ---------- *031317 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031320 CAI 17,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 035054 ---------- *031321 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *031322 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031324 JUMPA 0,031325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031325 ---------- *031325 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031326 CAM 17,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 ---------- *031327 MOVE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031330 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *031332 JUMPA 0,031333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031333 ---------- *031333 MOVE 1,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031334 MOVE 1,035001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031335 SKIPN 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031337 JUMPA 0,031340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031340 ---------- *031340 MOVE 1,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *031341 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031343 JUMPA 0,031344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031344 ---------- *031344 MOVE 0,035000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031345 MOVE 7,035054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 FINAL C(AC)= 000000 001234 ---------- *031346 SOS 0,000007 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001234 FINAL C(AC)= 000000 000000 C(E)= 000000 001233 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *031347 MOVE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031350 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031352 JUMPA 0,031353 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031353 ---------- *031353 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031354 MOVE 1,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *031355 SKIP 1,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031356 SKIPN 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031360 JUMPA 0,031361 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031361 ---------- *031361 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031363 JUMPA 0,031364 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031364 ---------- *031364 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *031365 MOVE 2,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031366 SKIP 2,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031367 SKIPN 0,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031371 JUMPA 0,031372 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031372 ---------- *031372 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *031374 JUMPA 0,031375 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031375 ---------- *031375 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031376 MOVE 4,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031377 SKIP 4,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031400 SKIPN 0,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *031402 JUMPA 0,031403 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031403 ---------- *031403 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031405 JUMPA 0,031406 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031406 ---------- *031406 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031407 MOVE 10,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031410 SKIP 10,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *031411 SKIPN 0,000010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031413 JUMPA 0,031414 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031414 ---------- *031414 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031416 JUMPA 0,031417 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031417 ---------- *031417 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031420 SKIP 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *031421 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031423 JUMPA 0,031424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031424 ---------- *031424 MOVE 7,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001233 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031425 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031426 MOVSS 0,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *031427 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031431 JUMPA 0,031432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031432 ---------- *031432 MOVE 7,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031433 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031434 HRRS 0,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *031435 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031437 JUMPA 0,031440 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031440 ---------- *031440 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031441 JUMP 0,031442 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031442 ---------- *031442 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031444 JUMPA 0,031445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031445 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *031445 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031446 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031447 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031451 JUMPA 0,031452 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031452 ---------- *031452 MOVE 0,035055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *031453 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031454 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031456 JUMPA 0,031457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 E= 000000 031457 ---------- *031457 MOVE 0,035056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031460 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *031461 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031463 JUMPA 0,031464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 031464 ---------- *031464 MOVE 0,035056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031465 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *031466 SKIPG 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *031470 JUMPA 0,031471 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 031471 ---------- *031471 MOVE 0,035055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031472 MOVS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031473 SKIPL 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031475 JUMPA 0,031476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 E= 000000 031476 ---------- *031476 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *031477 MOVS 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *031500 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031502 JUMPA 0,031503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 031503 ---------- *031503 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031504 MOVS 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *031505 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031507 JUMPA 0,031510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 031510 ---------- *031510 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031511 MOVS 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000004 000000 ---------- *031512 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *031514 JUMPA 0,031515 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 031515 ---------- *031515 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031516 MOVS 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000010 000000 ---------- *031517 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031521 JUMPA 0,031522 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 031522 ---------- *031522 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *031523 MOVS 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000020 000000 ---------- *031524 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031526 JUMPA 0,031527 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 031527 ---------- *031527 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031530 MOVS 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *031531 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031533 JUMPA 0,031534 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 031534 ---------- *031534 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031535 MOVS 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *031536 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *031540 JUMPA 0,031541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 031541 ---------- *031541 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031542 MOVS 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000200 000000 ---------- *031543 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031545 JUMPA 0,031546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 031546 ---------- *031546 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *031547 MOVS 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000400 000000 ---------- *031550 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031552 JUMPA 0,031553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 031553 ---------- *031553 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031554 MOVS 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *031555 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031557 JUMPA 0,031560 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 031560 ---------- *031560 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031561 MOVS 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 002000 000000 ---------- *031562 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *031564 JUMPA 0,031565 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 031565 ---------- *031565 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031566 MOVS 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 004000 000000 ---------- *031567 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031571 JUMPA 0,031572 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 031572 ---------- *031572 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *031573 MOVS 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 010000 000000 ---------- *031574 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031576 JUMPA 0,031577 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 031577 ---------- *031577 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031600 MOVS 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *031601 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031603 JUMPA 0,031604 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 031604 ---------- *031604 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031605 MOVS 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *031606 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *031610 JUMPA 0,031611 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 031611 ---------- *031611 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031612 MOVS 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *031613 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031615 JUMPA 0,031616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 031616 ---------- *031616 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *031617 MOVS 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *031620 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031622 JUMPA 0,031623 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 031623 ---------- *031623 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031624 MOVS 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *031625 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031627 JUMPA 0,031630 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 031630 ---------- *031630 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031631 MOVS 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000001 ---------- *031632 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *031634 JUMPA 0,031635 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 031635 ---------- *031635 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031636 MOVS 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000002 ---------- *031637 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031641 JUMPA 0,031642 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 031642 ---------- *031642 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *031643 MOVS 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000004 ---------- *031644 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031646 JUMPA 0,031647 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 031647 ---------- *031647 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031650 MOVS 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *031651 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031653 JUMPA 0,031654 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 031654 ---------- *031654 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031655 MOVS 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000020 ---------- *031656 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *031660 JUMPA 0,031661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 031661 ---------- *031661 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031662 MOVS 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000040 ---------- *031663 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031665 JUMPA 0,031666 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 031666 ---------- *031666 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *031667 MOVS 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000100 ---------- *031670 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031672 JUMPA 0,031673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 031673 ---------- *031673 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031674 MOVS 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *031675 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031677 JUMPA 0,031700 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 031700 ---------- *031700 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031701 MOVS 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000400 ---------- *031702 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *031704 JUMPA 0,031705 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 031705 ---------- *031705 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031706 MOVS 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 001000 ---------- *031707 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031711 JUMPA 0,031712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 031712 ---------- *031712 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *031713 MOVS 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 002000 ---------- *031714 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031716 JUMPA 0,031717 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 031717 ---------- *031717 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031720 MOVS 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *031721 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031723 JUMPA 0,031724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 031724 ---------- *031724 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031725 MOVS 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 010000 ---------- *031726 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *031730 JUMPA 0,031731 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 031731 ---------- *031731 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031732 MOVS 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 020000 ---------- *031733 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031735 JUMPA 0,031736 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 031736 ---------- *031736 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *031737 MOVS 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 040000 ---------- *031740 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031742 JUMPA 0,031743 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 031743 ---------- *031743 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031744 MOVS 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *031745 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031747 JUMPA 0,031750 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 031750 ---------- *031750 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031751 MOVS 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 200000 ---------- *031752 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *031754 JUMPA 0,031755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 031755 ---------- *031755 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031756 MOVS 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 400000 ---------- *031757 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031761 JUMPA 0,031762 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 031762 ---------- *031762 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *031763 SETM 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031764 SKIPL 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031766 JUMPA 0,031767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031767 ---------- *031767 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031770 SETM 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *031771 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031773 JUMPA 0,031774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031774 ---------- *031774 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031775 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031776 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *032000 JUMPA 0,032001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032001 ---------- *032001 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032002 SETZ 0,032002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 400000 032002 FINAL C(AC)= 000000 000000 ---------- *032003 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032005 JUMPA 0,032006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032006 ---------- *032006 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *032007 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032010 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032012 JUMPA 0,032013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032013 ---------- *032013 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032014 MOVE 1,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *032015 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032016 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032020 JUMPA 0,032021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032021 ---------- *032021 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032023 JUMPA 0,032024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032024 ---------- *032024 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *032025 MOVE 1,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032026 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032027 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032031 JUMPA 0,032032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032032 ---------- *032032 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *032034 JUMPA 0,032035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032035 ---------- *032035 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032036 MOVE 1,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032037 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032040 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *032042 JUMPA 0,032043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032043 ---------- *032043 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032045 JUMPA 0,032046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032046 ---------- *032046 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032047 MOVE 1,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032050 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *032051 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032053 JUMPA 0,032054 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032054 ---------- *032054 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032056 JUMPA 0,032057 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032057 ---------- *032057 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032060 MOVE 1,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *032061 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032062 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032064 JUMPA 0,032065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032065 ---------- *032065 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032067 JUMPA 0,032070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032070 ---------- *032070 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *032071 MOVE 1,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032072 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032073 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032075 JUMPA 0,032076 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032076 ---------- *032076 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *032100 JUMPA 0,032101 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032101 ---------- *032101 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032102 MOVE 1,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032103 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032104 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *032106 JUMPA 0,032107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032107 ---------- *032107 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032111 JUMPA 0,032112 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032112 ---------- *032112 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032113 MOVE 1,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032114 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *032115 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032117 JUMPA 0,032120 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032120 ---------- *032120 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032122 JUMPA 0,032123 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032123 ---------- *032123 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032124 MOVE 1,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *032125 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032126 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032130 JUMPA 0,032131 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032131 ---------- *032131 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032133 JUMPA 0,032134 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032134 ---------- *032134 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *032135 MOVE 1,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032136 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032137 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032141 JUMPA 0,032142 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032142 ---------- *032142 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *032144 JUMPA 0,032145 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032145 ---------- *032145 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032146 MOVE 1,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032147 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032150 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *032152 JUMPA 0,032153 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032153 ---------- *032153 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032155 JUMPA 0,032156 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032156 ---------- *032156 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032157 MOVE 1,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032160 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *032161 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032163 JUMPA 0,032164 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032164 ---------- *032164 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032166 JUMPA 0,032167 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032167 ---------- *032167 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032170 MOVE 1,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *032171 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032172 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032174 JUMPA 0,032175 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032175 ---------- *032175 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032177 JUMPA 0,032200 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032200 ---------- *032200 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *032201 MOVE 1,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032202 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032203 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032205 JUMPA 0,032206 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032206 ---------- *032206 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *032210 JUMPA 0,032211 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032211 ---------- *032211 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032212 MOVE 1,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032213 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032214 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *032216 JUMPA 0,032217 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032217 ---------- *032217 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032221 JUMPA 0,032222 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032222 ---------- *032222 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032223 MOVE 1,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032224 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *032225 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032227 JUMPA 0,032230 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032230 ---------- *032230 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032232 JUMPA 0,032233 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032233 ---------- *032233 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032234 MOVE 1,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *032235 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032236 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032240 JUMPA 0,032241 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032241 ---------- *032241 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032243 JUMPA 0,032244 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032244 ---------- *032244 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *032245 MOVE 1,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032246 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032247 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032251 JUMPA 0,032252 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032252 ---------- *032252 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *032254 JUMPA 0,032255 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032255 ---------- *032255 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032256 MOVE 1,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032257 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032260 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *032262 JUMPA 0,032263 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032263 ---------- *032263 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032265 JUMPA 0,032266 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032266 ---------- *032266 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032267 MOVE 1,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032270 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *032271 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032273 JUMPA 0,032274 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032274 ---------- *032274 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032276 JUMPA 0,032277 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032277 ---------- *032277 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032300 MOVE 1,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *032301 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032302 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032304 JUMPA 0,032305 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032305 ---------- *032305 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032307 JUMPA 0,032310 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032310 ---------- *032310 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *032311 MOVE 1,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032312 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032313 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032315 JUMPA 0,032316 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032316 ---------- *032316 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *032320 JUMPA 0,032321 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032321 ---------- *032321 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032322 MOVE 1,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032323 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032324 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *032326 JUMPA 0,032327 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032327 ---------- *032327 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032331 JUMPA 0,032332 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032332 ---------- *032332 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032333 MOVE 1,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032334 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *032335 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032337 JUMPA 0,032340 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032340 ---------- *032340 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032342 JUMPA 0,032343 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032343 ---------- *032343 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032344 MOVE 1,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *032345 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032346 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032350 JUMPA 0,032351 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032351 ---------- *032351 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032353 JUMPA 0,032354 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032354 ---------- *032354 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *032355 MOVE 1,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032356 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032357 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032361 JUMPA 0,032362 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032362 ---------- *032362 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *032364 JUMPA 0,032365 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032365 ---------- *032365 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032366 MOVE 1,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032367 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032370 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *032372 JUMPA 0,032373 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032373 ---------- *032373 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032375 JUMPA 0,032376 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032376 ---------- *032376 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032377 MOVE 1,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032400 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *032401 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032403 JUMPA 0,032404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032404 ---------- *032404 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032406 JUMPA 0,032407 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032407 ---------- *032407 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032410 MOVE 1,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *032411 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032412 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032414 JUMPA 0,032415 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032415 ---------- *032415 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032417 JUMPA 0,032420 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032420 ---------- *032420 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *032421 MOVE 1,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032422 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032423 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032425 JUMPA 0,032426 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032426 ---------- *032426 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *032430 JUMPA 0,032431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032431 ---------- *032431 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032432 MOVE 1,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032433 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032434 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *032436 JUMPA 0,032437 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032437 ---------- *032437 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032441 JUMPA 0,032442 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032442 ---------- *032442 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032443 MOVE 1,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032444 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *032445 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032447 JUMPA 0,032450 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032450 ---------- *032450 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032452 JUMPA 0,032453 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032453 ---------- *032453 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032454 MOVE 1,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *032455 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032456 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032460 JUMPA 0,032461 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032461 ---------- *032461 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032463 JUMPA 0,032464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032464 ---------- *032464 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *032465 MOVE 1,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032466 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032467 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032471 JUMPA 0,032472 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032472 ---------- *032472 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *032474 JUMPA 0,032475 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032475 ---------- *032475 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032476 MOVE 1,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032477 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032500 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *032502 JUMPA 0,032503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032503 ---------- *032503 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032505 JUMPA 0,032506 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032506 ---------- *032506 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032507 MOVE 1,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *032510 AND 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *032511 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032513 JUMPA 0,032514 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032514 ---------- *032514 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032516 JUMPA 0,032517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032517 ---------- *032517 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032520 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *032521 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032523 JUMPA 0,032524 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032524 ---------- *032524 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032525 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032526 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *032530 JUMPA 0,032531 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032531 ---------- *032531 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032532 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032533 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032535 JUMPA 0,032536 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 032536 ---------- *032536 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *032537 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032540 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032542 JUMPA 0,032543 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 032543 ---------- *032543 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032544 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *032545 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032547 JUMPA 0,032550 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 032550 ---------- *032550 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032551 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032552 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *032554 JUMPA 0,032555 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 032555 ---------- *032555 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032556 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032557 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032561 JUMPA 0,032562 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 032562 ---------- *032562 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *032563 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032564 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032566 JUMPA 0,032567 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 032567 ---------- *032567 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032570 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *032571 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032573 JUMPA 0,032574 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 032574 ---------- *032574 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032575 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032576 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *032600 JUMPA 0,032601 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 032601 ---------- *032601 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032602 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032603 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032605 JUMPA 0,032606 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 032606 ---------- *032606 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *032607 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032610 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032612 JUMPA 0,032613 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 032613 ---------- *032613 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032614 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *032615 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032617 JUMPA 0,032620 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 032620 ---------- *032620 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032621 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032622 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *032624 JUMPA 0,032625 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 032625 ---------- *032625 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032626 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032627 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032631 JUMPA 0,032632 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 032632 ---------- *032632 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *032633 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032634 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032636 JUMPA 0,032637 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 032637 ---------- *032637 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *032640 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *032641 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *032643 JUMPA 0,032644 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 032644 ---------- *032644 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032645 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032646 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *032650 JUMPA 0,032651 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 032651 ---------- *032651 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032652 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032653 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032655 JUMPA 0,032656 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 032656 ---------- *032656 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *032657 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032660 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032662 JUMPA 0,032663 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 032663 ---------- *032663 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *032664 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *032665 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *032667 JUMPA 0,032670 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 032670 ---------- *032670 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032671 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *032672 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *032674 JUMPA 0,032675 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 032675 ---------- *032675 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032676 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032677 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032701 JUMPA 0,032702 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 032702 ---------- *032702 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *032703 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032704 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032706 JUMPA 0,032707 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 032707 ---------- *032707 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *032710 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *032711 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *032713 JUMPA 0,032714 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 032714 ---------- *032714 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032715 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032716 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *032720 JUMPA 0,032721 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 032721 ---------- *032721 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032722 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032723 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *032725 JUMPA 0,032726 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 032726 ---------- *032726 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *032727 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032730 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032732 JUMPA 0,032733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 032733 ---------- *032733 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *032734 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *032735 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *032737 JUMPA 0,032740 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 032740 ---------- *032740 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032741 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032742 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *032744 JUMPA 0,032745 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 032745 ---------- *032745 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032746 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032747 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032751 JUMPA 0,032752 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 032752 ---------- *032752 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *032753 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032754 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *032756 JUMPA 0,032757 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 032757 ---------- *032757 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *032760 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *032761 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *032763 JUMPA 0,032764 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 032764 ---------- *032764 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032765 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032766 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *032770 JUMPA 0,032771 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 032771 ---------- *032771 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032772 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032773 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032775 JUMPA 0,032776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 032776 ---------- *032776 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *032777 AND 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033000 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033002 JUMPA 0,033003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033003 ---------- *033003 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033004 AND 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *033005 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033007 JUMPA 0,033010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033010 ---------- *033010 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033011 AND 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033012 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *033014 JUMPA 0,033015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033015 ---------- *033015 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033016 AND 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033017 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033021 JUMPA 0,033022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033022 ---------- *033022 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *033023 AND 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033024 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033026 JUMPA 0,033027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033027 ---------- *033027 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033030 XOR 0,035057 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *033031 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033033 JUMPA 0,033034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033034 ---------- *033034 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033035 XOR 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033036 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *033040 JUMPA 0,033041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 033041 ---------- *033041 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033042 XOR 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033043 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033045 JUMPA 0,033046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 033046 ---------- *033046 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *033047 XOR 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033050 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033052 JUMPA 0,033053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 033053 ---------- *033053 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033054 XOR 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *033055 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033057 JUMPA 0,033060 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 033060 ---------- *033060 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033061 XOR 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033062 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *033064 JUMPA 0,033065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 033065 ---------- *033065 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033066 XOR 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033067 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033071 JUMPA 0,033072 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 033072 ---------- *033072 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *033073 XOR 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033074 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033076 JUMPA 0,033077 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 033077 ---------- *033077 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033100 XOR 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *033101 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033103 JUMPA 0,033104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 033104 ---------- *033104 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033105 XOR 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033106 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *033110 JUMPA 0,033111 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 033111 ---------- *033111 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033112 XOR 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033113 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033115 JUMPA 0,033116 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 033116 ---------- *033116 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *033117 XOR 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033120 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033122 JUMPA 0,033123 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 033123 ---------- *033123 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033124 XOR 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *033125 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033127 JUMPA 0,033130 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 033130 ---------- *033130 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033131 XOR 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033132 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *033134 JUMPA 0,033135 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 033135 ---------- *033135 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033136 XOR 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033137 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033141 JUMPA 0,033142 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 033142 ---------- *033142 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *033143 XOR 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033144 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033146 JUMPA 0,033147 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 033147 ---------- *033147 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033150 XOR 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *033151 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033153 JUMPA 0,033154 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 033154 ---------- *033154 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033155 XOR 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033156 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *033160 JUMPA 0,033161 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 033161 ---------- *033161 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033162 XOR 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033163 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033165 JUMPA 0,033166 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 033166 ---------- *033166 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *033167 XOR 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033170 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033172 JUMPA 0,033173 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 033173 ---------- *033173 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033174 XOR 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *033175 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033177 JUMPA 0,033200 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 033200 ---------- *033200 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033201 XOR 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033202 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *033204 JUMPA 0,033205 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 033205 ---------- *033205 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033206 XOR 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033207 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033211 JUMPA 0,033212 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 033212 ---------- *033212 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *033213 XOR 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033214 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033216 JUMPA 0,033217 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 033217 ---------- *033217 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033220 XOR 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *033221 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033223 JUMPA 0,033224 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 033224 ---------- *033224 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033225 XOR 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033226 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 *033230 JUMPA 0,033231 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 033231 ---------- *033231 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033232 XOR 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033233 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033235 JUMPA 0,033236 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 033236 ---------- *033236 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 *033237 XOR 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033240 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033242 JUMPA 0,033243 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 033243 ---------- *033243 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033244 XOR 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 *033245 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033247 JUMPA 0,033250 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 033250 ---------- *033250 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033251 XOR 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *033252 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 *033254 JUMPA 0,033255 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 033255 ---------- *033255 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033256 XOR 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033257 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033261 JUMPA 0,033262 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 033262 ---------- *033262 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 *033263 XOR 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033264 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033266 JUMPA 0,033267 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 033267 ---------- *033267 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033270 XOR 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 *033271 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033273 JUMPA 0,033274 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 033274 ---------- *033274 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033275 XOR 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033276 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 *033300 JUMPA 0,033301 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 033301 ---------- *033301 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033302 XOR 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033303 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033305 JUMPA 0,033306 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 033306 ---------- *033306 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 *033307 XOR 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033310 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033312 JUMPA 0,033313 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 033313 ---------- *033313 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033314 XOR 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 *033315 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033317 JUMPA 0,033320 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033320 ---------- *033320 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033321 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 ---------- *033322 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 *033324 JUMPA 0,033325 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 033325 ---------- *033325 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033326 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000002 ---------- *033327 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033331 JUMPA 0,033332 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 033332 ---------- *033332 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 *033333 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 ---------- *033334 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033336 JUMPA 0,033337 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 033337 ---------- *033337 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033340 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 *033341 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033343 JUMPA 0,033344 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 033344 ---------- *033344 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033345 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000020 ---------- *033346 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 *033350 JUMPA 0,033351 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 033351 ---------- *033351 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033352 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000040 ---------- *033353 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033355 JUMPA 0,033356 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 033356 ---------- *033356 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 *033357 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000100 ---------- *033360 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033362 JUMPA 0,033363 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 033363 ---------- *033363 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033364 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 *033365 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033367 JUMPA 0,033370 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 033370 ---------- *033370 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033371 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000400 ---------- *033372 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 *033374 JUMPA 0,033375 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 033375 ---------- *033375 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033376 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 001000 ---------- *033377 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033401 JUMPA 0,033402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 033402 ---------- *033402 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 *033403 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 002000 ---------- *033404 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033406 JUMPA 0,033407 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 033407 ---------- *033407 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033410 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 *033411 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033413 JUMPA 0,033414 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 033414 ---------- *033414 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033415 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 010000 ---------- *033416 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 *033420 JUMPA 0,033421 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 033421 ---------- *033421 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033422 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 020000 ---------- *033423 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033425 JUMPA 0,033426 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 033426 ---------- *033426 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 *033427 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 040000 ---------- *033430 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033432 JUMPA 0,033433 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 033433 ---------- *033433 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033434 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 *033435 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033437 JUMPA 0,033440 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 033440 ---------- *033440 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033441 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 200000 ---------- *033442 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 *033444 JUMPA 0,033445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 033445 ---------- *033445 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033446 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 400000 ---------- *033447 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033451 JUMPA 0,033452 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 033452 ---------- *033452 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 *033453 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000001 000000 ---------- *033454 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033456 JUMPA 0,033457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 033457 ---------- *033457 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033460 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 *033461 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033463 JUMPA 0,033464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 033464 ---------- *033464 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033465 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000004 000000 ---------- *033466 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 *033470 JUMPA 0,033471 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 033471 ---------- *033471 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033472 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000010 000000 ---------- *033473 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033475 JUMPA 0,033476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 033476 ---------- *033476 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 *033477 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000020 000000 ---------- *033500 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *033502 JUMPA 0,033503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 033503 ---------- *033503 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033504 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 *033505 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033507 JUMPA 0,033510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 033510 ---------- *033510 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033511 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000100 000000 ---------- *033512 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 *033514 JUMPA 0,033515 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 033515 ---------- *033515 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033516 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000200 000000 ---------- *033517 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033521 JUMPA 0,033522 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 033522 ---------- *033522 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 *033523 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000400 000000 ---------- *033524 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033526 JUMPA 0,033527 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 033527 ---------- *033527 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033530 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 *033531 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033533 JUMPA 0,033534 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 033534 ---------- *033534 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *033535 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 002000 000000 ---------- *033536 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 *033540 JUMPA 0,033541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 033541 ---------- *033541 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033542 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 004000 000000 ---------- *033543 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033545 JUMPA 0,033546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 033546 ---------- *033546 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 *033547 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 010000 000000 ---------- *033550 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033552 JUMPA 0,033553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 033553 ---------- *033553 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033554 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 *033555 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033557 JUMPA 0,033560 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 033560 ---------- *033560 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033561 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 040000 000000 ---------- *033562 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 *033564 JUMPA 0,033565 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 033565 ---------- *033565 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033566 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 100000 000000 ---------- *033567 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033571 JUMPA 0,033572 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 033572 ---------- *033572 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 *033573 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 200000 000000 ---------- *033574 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *033576 JUMPA 0,033577 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 033577 ---------- *033577 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033600 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 *033601 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033603 JUMPA 0,033604 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 033604 ---------- *033604 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033605 XOR 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *033606 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 *033610 JUMPA 0,033611 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033611 ---------- *033611 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033612 XOR 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 ---------- *033613 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033615 JUMPA 0,033616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033616 ---------- *033616 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 *033617 XOR 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 ---------- *033620 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033622 JUMPA 0,033623 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033623 ---------- *033623 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033624 XOR 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 *033625 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033627 JUMPA 0,033630 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033630 ---------- *033630 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033631 XOR 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 ---------- *033632 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 221 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 *033634 JUMPA 0,033635 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033635 ---------- *033635 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033636 XOR 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 ---------- *033637 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033641 JUMPA 0,033642 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033642 ---------- *033642 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 222 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 *033643 XOR 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 ---------- *033644 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033646 JUMPA 0,033647 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033647 ---------- *033647 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033650 XOR 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 223 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 *033651 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033653 JUMPA 0,033654 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033654 ---------- *033654 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033655 XOR 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 ---------- *033656 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 224 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 *033660 JUMPA 0,033661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033661 ---------- *033661 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033662 XOR 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 ---------- *033663 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033665 JUMPA 0,033666 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033666 ---------- *033666 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 225 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 *033667 XOR 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 ---------- *033670 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033672 JUMPA 0,033673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033673 ---------- *033673 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033674 XOR 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 226 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 *033675 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033677 JUMPA 0,033700 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033700 ---------- *033700 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033701 XOR 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 ---------- *033702 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 227 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 *033704 JUMPA 0,033705 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033705 ---------- *033705 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033706 XOR 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 ---------- *033707 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033711 JUMPA 0,033712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033712 ---------- *033712 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 228 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 *033713 XOR 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 ---------- *033714 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033716 JUMPA 0,033717 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033717 ---------- *033717 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033720 XOR 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 229 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 *033721 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033723 JUMPA 0,033724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033724 ---------- *033724 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033725 XOR 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 ---------- *033726 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 230 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 *033730 JUMPA 0,033731 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033731 ---------- *033731 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033732 XOR 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 ---------- *033733 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033735 JUMPA 0,033736 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033736 ---------- *033736 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 231 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 *033737 XOR 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 ---------- *033740 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033742 JUMPA 0,033743 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033743 ---------- *033743 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033744 XOR 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 232 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 *033745 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033747 JUMPA 0,033750 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033750 ---------- *033750 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033751 XOR 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 ---------- *033752 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 233 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 *033754 JUMPA 0,033755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033755 ---------- *033755 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033756 XOR 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 ---------- *033757 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033761 JUMPA 0,033762 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033762 ---------- *033762 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 234 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 *033763 XOR 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 ---------- *033764 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033766 JUMPA 0,033767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033767 ---------- *033767 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033770 XOR 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 235 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 *033771 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033773 JUMPA 0,033774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033774 ---------- *033774 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033775 XOR 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 ---------- *033776 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 236 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 *034000 JUMPA 0,034001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034001 ---------- *034001 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034002 XOR 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 ---------- *034003 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034005 JUMPA 0,034006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034006 ---------- *034006 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 237 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 *034007 XOR 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 ---------- *034010 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034012 JUMPA 0,034013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034013 ---------- *034013 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034014 XOR 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 238 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 *034015 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034017 JUMPA 0,034020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034020 ---------- *034020 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034021 XOR 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 000000 ---------- *034022 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 239 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0462 *034024 JUMPA 0,034025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034025 ---------- *034025 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034026 XOR 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 ---------- *034027 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034031 JUMPA 0,034032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034032 ---------- *034032 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 240 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0463 *034033 XOR 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 ---------- *034034 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034036 JUMPA 0,034037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034037 ---------- *034037 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034040 XOR 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 241 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0464 *034041 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034043 JUMPA 0,034044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034044 ---------- *034044 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034045 XOR 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 ---------- *034046 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 242 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0465 *034050 JUMPA 0,034051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034051 ---------- *034051 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034052 XOR 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 ---------- *034053 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034055 JUMPA 0,034056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034056 ---------- *034056 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 243 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0466 *034057 XOR 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 ---------- *034060 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034062 JUMPA 0,034063 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034063 ---------- *034063 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034064 XOR 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 244 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0467 *034065 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034067 JUMPA 0,034070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034070 ---------- *034070 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034071 XOR 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034072 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 245 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0468 *034074 JUMPA 0,034075 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034075 ---------- *034075 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034076 EQV 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034077 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034101 JUMPA 0,034102 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034102 ---------- *034102 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 246 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0469 *034103 EQV 0,035060 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 000000 000001 ---------- *034104 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034106 JUMPA 0,034107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 034107 ---------- *034107 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034110 EQV 0,035061 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 247 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0470 *034111 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034113 JUMPA 0,034114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 034114 ---------- *034114 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034115 EQV 0,035062 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 000000 000004 ---------- *034116 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 248 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0471 *034120 JUMPA 0,034121 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 034121 ---------- *034121 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034122 EQV 0,035063 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 000000 000010 ---------- *034123 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034125 JUMPA 0,034126 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 E= 000000 034126 ---------- *034126 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 249 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0472 *034127 EQV 0,035064 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 000000 000020 ---------- *034130 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *034132 JUMPA 0,034133 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 E= 000000 034133 ---------- *034133 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034134 EQV 0,035065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 250 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0473 *034135 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *034137 JUMPA 0,034140 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 E= 000000 034140 ---------- *034140 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034141 EQV 0,035066 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 000000 000100 ---------- *034142 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 251 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0474 *034144 JUMPA 0,034145 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 034145 ---------- *034145 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034146 EQV 0,035067 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 000000 000200 ---------- *034147 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034151 JUMPA 0,034152 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 E= 000000 034152 ---------- *034152 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 252 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0475 *034153 EQV 0,035070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 000000 000400 ---------- *034154 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034156 JUMPA 0,034157 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 E= 000000 034157 ---------- *034157 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034160 EQV 0,035071 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 253 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0476 *034161 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *034163 JUMPA 0,034164 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 E= 000000 034164 ---------- *034164 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034165 EQV 0,035072 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 000000 002000 ---------- *034166 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 254 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0477 *034170 JUMPA 0,034171 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 E= 000000 034171 ---------- *034171 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034172 EQV 0,035073 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 000000 004000 ---------- *034173 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034175 JUMPA 0,034176 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 E= 000000 034176 ---------- *034176 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 255 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0478 *034177 EQV 0,035074 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 000000 010000 ---------- *034200 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034202 JUMPA 0,034203 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 E= 000000 034203 ---------- *034203 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034204 EQV 0,035075 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 256 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0479 *034205 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034207 JUMPA 0,034210 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 E= 000000 034210 ---------- *034210 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034211 EQV 0,035076 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 000000 040000 ---------- *034212 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 257 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0480 *034214 JUMPA 0,034215 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 E= 000000 034215 ---------- *034215 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034216 EQV 0,035077 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 000000 100000 ---------- *034217 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *034221 JUMPA 0,034222 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 E= 000000 034222 ---------- *034222 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 258 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0481 *034223 EQV 0,035100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 000000 200000 ---------- *034224 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034226 JUMPA 0,034227 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 E= 000000 034227 ---------- *034227 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034230 EQV 0,035101 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 259 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0482 *034231 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034233 JUMPA 0,034234 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 E= 000000 034234 ---------- *034234 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034235 EQV 0,035102 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 000001 000000 ---------- *034236 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 260 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0483 *034240 JUMPA 0,034241 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 E= 000000 034241 ---------- *034241 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034242 EQV 0,035103 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 000002 000000 ---------- *034243 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *034245 JUMPA 0,034246 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 E= 000000 034246 ---------- *034246 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 261 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0484 *034247 EQV 0,035104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 000004 000000 ---------- *034250 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *034252 JUMPA 0,034253 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 E= 000000 034253 ---------- *034253 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034254 EQV 0,035105 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 262 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0485 *034255 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034257 JUMPA 0,034260 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 E= 000000 034260 ---------- *034260 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034261 EQV 0,035106 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 000020 000000 ---------- *034262 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 263 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0486 *034264 JUMPA 0,034265 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 E= 000000 034265 ---------- *034265 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034266 EQV 0,035107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 000040 000000 ---------- *034267 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034271 JUMPA 0,034272 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 E= 000000 034272 ---------- *034272 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 264 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0487 *034273 EQV 0,035110 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 000100 000000 ---------- *034274 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *034276 JUMPA 0,034277 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 E= 000000 034277 ---------- *034277 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034300 EQV 0,035111 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 265 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0488 *034301 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034303 JUMPA 0,034304 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 E= 000000 034304 ---------- *034304 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034305 EQV 0,035112 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 000400 000000 ---------- *034306 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 266 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0489 *034310 JUMPA 0,034311 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 E= 000000 034311 ---------- *034311 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034312 EQV 0,035113 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 001000 000000 ---------- *034313 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034315 JUMPA 0,034316 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 E= 000000 034316 ---------- *034316 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 267 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0490 *034317 EQV 0,035114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 002000 000000 ---------- *034320 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034322 JUMPA 0,034323 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 E= 000000 034323 ---------- *034323 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034324 EQV 0,035115 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 268 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0491 *034325 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034327 JUMPA 0,034330 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 E= 000000 034330 ---------- *034330 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034331 EQV 0,035116 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 010000 000000 ---------- *034332 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 269 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0492 *034334 JUMPA 0,034335 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 E= 000000 034335 ---------- *034335 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034336 EQV 0,035117 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 020000 000000 ---------- *034337 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034341 JUMPA 0,034342 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 E= 000000 034342 ---------- *034342 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 270 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0493 *034343 EQV 0,035120 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 040000 000000 ---------- *034344 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034346 JUMPA 0,034347 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 E= 000000 034347 ---------- *034347 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034350 EQV 0,035121 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 271 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0494 *034351 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034353 JUMPA 0,034354 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 E= 000000 034354 ---------- *034354 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034355 EQV 0,035122 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 200000 000000 ---------- *034356 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 272 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0495 *034360 JUMPA 0,034361 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 034361 ---------- *034361 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034362 EQV 0,035002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 400000 000000 ---------- *034363 SKIPN 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034365 JUMPA 0,034366 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 E= 000000 034366 ---------- *034366 MOVE 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 273 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0496 *034367 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034370 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034371 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034373 JUMPA 0,034374 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034374 ---------- *034374 MOVE 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 274 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0497 *034375 EQV 0,035001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034376 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034377 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034401 JUMPA 0,034402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034402 ---------- *034402 MOVE 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 275 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0498 *034403 AND 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034404 EQV 0,035012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- *034405 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034406 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034410 JUMPA 0,034411 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034411 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 276 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0499 *034411 MOVE 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034412 AND 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034413 EQV 0,035013 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *034414 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034415 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 277 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0500 *034417 JUMPA 0,034420 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034420 ---------- *034420 MOVE 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *034421 AND 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *034422 EQV 0,035014 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 ---------- *034423 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 278 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0501 *034424 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034426 JUMPA 0,034427 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034427 ---------- *034427 MOVE 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034430 AND 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034431 EQV 0,035015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 279 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0502 *034432 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034433 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034435 JUMPA 0,034436 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034436 ---------- *034436 MOVE 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *034437 AND 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 280 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0503 *034440 EQV 0,035016 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 ---------- *034441 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034442 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034444 JUMPA 0,034445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034445 ---------- *034445 MOVE 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 281 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0504 *034446 AND 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *034447 EQV 0,035017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 ---------- *034450 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034451 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034453 JUMPA 0,034454 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034454 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 282 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0505 *034454 MOVE 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *034455 AND 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *034456 EQV 0,035020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 ---------- *034457 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034460 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 283 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0506 *034462 JUMPA 0,034463 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034463 ---------- *034463 MOVE 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034464 AND 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034465 EQV 0,035021 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 ---------- *034466 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 284 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0507 *034467 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034471 JUMPA 0,034472 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034472 ---------- *034472 MOVE 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034473 AND 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034474 EQV 0,035022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 285 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0508 *034475 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034476 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034500 JUMPA 0,034501 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034501 ---------- *034501 MOVE 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *034502 AND 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 286 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0509 *034503 EQV 0,035023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 ---------- *034504 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034505 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034507 JUMPA 0,034510 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034510 ---------- *034510 MOVE 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 287 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0510 *034511 AND 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *034512 EQV 0,035024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 ---------- *034513 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034514 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034516 JUMPA 0,034517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034517 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 288 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0511 *034517 MOVE 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034520 AND 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034521 EQV 0,035025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 ---------- *034522 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034523 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 289 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0512 *034525 JUMPA 0,034526 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034526 ---------- *034526 MOVE 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034527 AND 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034530 EQV 0,035026 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 ---------- *034531 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 290 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0513 *034532 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034534 JUMPA 0,034535 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034535 ---------- *034535 MOVE 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034536 AND 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034537 EQV 0,035027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 291 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0514 *034540 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034541 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034543 JUMPA 0,034544 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034544 ---------- *034544 MOVE 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *034545 AND 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 292 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0515 *034546 EQV 0,035030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 ---------- *034547 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034550 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034552 JUMPA 0,034553 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034553 ---------- *034553 MOVE 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 293 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0516 *034554 AND 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *034555 EQV 0,035031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 ---------- *034556 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034557 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034561 JUMPA 0,034562 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034562 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 294 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0517 *034562 MOVE 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034563 AND 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034564 EQV 0,035032 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 ---------- *034565 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034566 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 295 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0518 *034570 JUMPA 0,034571 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034571 ---------- *034571 MOVE 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034572 AND 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034573 EQV 0,035033 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 ---------- *034574 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 296 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0519 *034575 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034577 JUMPA 0,034600 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034600 ---------- *034600 MOVE 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *034601 AND 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *034602 EQV 0,035034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 297 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0520 *034603 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034604 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034606 JUMPA 0,034607 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034607 ---------- *034607 MOVE 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *034610 AND 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 298 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0521 *034611 EQV 0,035035 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 ---------- *034612 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034613 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034615 JUMPA 0,034616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034616 ---------- *034616 MOVE 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 299 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0522 *034617 AND 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *034620 EQV 0,035036 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 ---------- *034621 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034622 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034624 JUMPA 0,034625 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034625 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 300 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0523 *034625 MOVE 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034626 AND 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034627 EQV 0,035037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 ---------- *034630 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034631 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 301 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0524 *034633 JUMPA 0,034634 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034634 ---------- *034634 MOVE 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *034635 AND 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *034636 EQV 0,035040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 ---------- *034637 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 302 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0525 *034640 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034642 JUMPA 0,034643 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034643 ---------- *034643 MOVE 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034644 AND 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034645 EQV 0,035041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 303 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0526 *034646 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034647 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034651 JUMPA 0,034652 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034652 ---------- *034652 MOVE 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *034653 AND 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 304 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0527 *034654 EQV 0,035042 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 ---------- *034655 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034656 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034660 JUMPA 0,034661 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034661 ---------- *034661 MOVE 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 305 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0528 *034662 AND 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034663 EQV 0,035043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 ---------- *034664 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034665 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034667 JUMPA 0,034670 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034670 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 306 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0529 *034670 MOVE 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *034671 AND 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *034672 EQV 0,035011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 ---------- *034673 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034674 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 307 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0530 *034676 JUMPA 0,034677 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034677 ---------- *034677 MOVE 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034700 AND 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034701 EQV 0,035044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 ---------- *034702 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 308 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0531 *034703 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034705 JUMPA 0,034706 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034706 ---------- *034706 MOVE 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034707 AND 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034710 EQV 0,035045 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 309 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0532 *034711 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034712 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034714 JUMPA 0,034715 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034715 ---------- *034715 MOVE 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034716 AND 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 310 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0533 *034717 EQV 0,035046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 ---------- *034720 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034721 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034723 JUMPA 0,034724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034724 ---------- *034724 MOVE 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 311 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0534 *034725 AND 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *034726 EQV 0,035047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 ---------- *034727 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034730 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034732 JUMPA 0,034733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034733 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 312 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0535 *034733 MOVE 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034734 AND 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034735 EQV 0,035050 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 ---------- *034736 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034737 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 313 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0536 *034741 JUMPA 0,034742 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034742 ---------- *034742 MOVE 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034743 AND 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034744 EQV 0,035051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 ---------- *034745 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 314 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0537 *034746 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034750 JUMPA 0,034751 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034751 ---------- *034751 MOVE 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034752 AND 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034753 EQV 0,035052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 315 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0538 *034754 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034755 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034757 JUMPA 0,034760 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034760 ---------- *034760 MOVE 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *034761 AND 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 316 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0539 *034762 EQV 0,035053 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 ---------- *034763 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034764 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034766 JUMPA 0,034767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034767 ---------- *034767 MOVE 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 317 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0540 *034770 AND 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034771 EQV 0,035003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 ---------- *034772 EQV 0,035000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034773 SKIPE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034775 JUMPA 0,034776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 318 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0541 *034776 SETZM 0,035124 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *034777 JRST 0,030057 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 319 DSKAA 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0542 *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAB.txt,v0000444000175100010010000411155412050545156014374 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.13.22.31.01; author Rob; state Exp; branches; next ; desc @Test Program @ 1.1 log @Initial revision @ text @;DSKAB IDENTIFICATION -------------- PRODUCT CODE: AH-E299A-DD DIAGNOSTIC CODE: DSKAB PRODUCT NAME: DSKABA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (2) 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-DSKAB.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAB.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE SECOND IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS SOME OF THE FOLLOWING INSTRUCTIONS. MOVE, COMPARE, HALF WORD AND BOOLE. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAB.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAB.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAB SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAB TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (2) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 DSKABT MAC 28-Mar-78 12:29 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAB 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 2 DSKABT MAC 28-Mar-78 12:29 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 3 DSKABT MAC 28-Mar-78 12:29 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414200 PAREA3=SIXBIT/DSKAB/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 DSKAB1 MAC 28-Mar-78 12:29 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) [DSKAB] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 062 051 040 798 030656 133 104 123 113 101 799 030657 102 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (2) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0029 807 SUBTTL TEST OF THE ADD INSTRUCTION 808 809 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED 810 ;TO ADD A NON-ZERO NUMBER CONTAINED IN E TO AN AC CONTAINING ALL ZEROS, 811 ;THE RESULT IS A NON-ZERO NUMBER IN THE AC. FIRST, THE AC IS CLEARED; 812 ;THEN, ANON-ZERO POSITIVE NUMBER IS ADDED TO THE AC USING THE ADD 813 ;INSTRUCTION. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 814 815 030661 200 00 0 00 035330 A10400: MOVE [0] ;PRESET AC TO ALL ZEROS 816 030662 270 00 0 00 035331 ADD [123456765432] ;*ADD OF A NON-ZERO NUMBER TO AN AC OF ALL 817 ;ZEROS SHOULD RESULT 818 ;IN AN AC CONTAINING A NON-ZERO NUMBER 819 030663 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON-ZERO 820 STOP^ 821 030664 254 04 0 00 030665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 822 030665 324 00 0 00 030666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 823 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 824 ;IN THE SUBTEST) TO LOOP ON ERROR^ 825 826 ;AD ADD [ADC1], AD ADD EN [ADC1], 827 ;F CYC ACT EN A [F1], AD FM + FETCH EN A [ADFP], 828 ;F CYC ACT EN C[F1], IR ADSUB [IR1], IRXX [IR1] 829 830 ;********** 831 832 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD 833 ;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE 834 ;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC. FIRST, THE AC IS 835 ;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS 836 ; IS ADDED TO THE AC. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 837 838 030666 200 00 0 00 035331 A10500: MOVE [123456765432] ;PRESET AC WITH A NON-ZERO NUMBER 839 030667 270 00 0 00 035330 ADD [0] ;*ADD OF A WORD OF ALL ZEROS TO AN AC 840 ;CONTAINING A NON-ZERO NUMBER 841 ;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER 842 030670 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON-ZERO 843 STOP^ 844 030671 254 04 0 00 030672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 845 030672 324 00 0 00 030673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 846 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 847 ;IN THE SUBTEST) TO LOOP ON ERROR^ 848 849 ;AR AD EN [ARMA], AR AD EN A [ARMA], ET2C F/F [E], 850 ;AR AD ET2 EN [ARMA], IR ADSUB [IR1] 851 852 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0030 853 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD 854 ;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE 855 ;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC. FIRST, THE AC IS 856 ;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS 857 ; IS ADDED TO THE AC. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 858 859 030673 200 00 0 00 035332 A10600: MOVE [XWD 123456,0] ;PRESET AC WITH A NON-ZERO NUMBER 860 030674 270 00 0 00 035330 ADD [0] ;*ADD OF A WORD OF ALL ZEROS TO AN AC CONTAINING 861 ;A NON-ZERO NUMBER SHOULD RESULT IN AN AC 862 ;CONTAINING A NON-ZERO NUMBER 863 030675 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON-ZERO 864 STOP^ 865 030676 254 04 0 00 030677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 866 030677 324 00 0 00 030700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 867 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 868 ;IN THE SUBTEST) TO LOOP ON ERROR^ 869 870 ;AR AD EN [ARMA], AR AD EN A [ARMA], ET2C F/F[E], 871 ;AR AD ET2 EN [ARMA], IR AD SUB [IR1] 872 873 ;********* 874 875 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD 876 ;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE 877 ;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC. FIRST, THE AC IS 878 ;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS 879 ; IS ADDED TO THE AC. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 880 881 030700 200 00 0 00 035333 A10700: MOVE [123456] ;PRESET AC WITH A NON-ZERO NUMBER 882 030701 270 00 0 00 035330 ADD [0] ;*ADD OF A WORD OF ALL ZEROS TO AN AC CONTAINING 883 ;A NON-ZERO NUMBER 884 ;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER 885 030702 336 00 0 00 000000 SKIPN ;PASS TEST IS C(AC) IS NON-ZERO 886 STOP^ 887 030703 254 04 0 00 030704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 888 030704 324 00 0 00 030705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 891 892 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0031 893 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD 894 ;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE 895 ;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC. FIRST, THE AC IS 896 ;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER 897 ;IS ADDED TO THE AC. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 898 899 030705 200 00 0 00 035330 A13300: MOVE [0] ;PRESET AC WITH ALL ZEROS 900 030706 270 00 0 00 035332 ADD [123456,,0] ;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS 901 ;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER 902 030707 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON-ZERO 903 STOP^ 904 030710 254 04 0 00 030711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 905 030711 324 00 0 00 030712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 908 909 ;********** 910 911 ;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD 912 ;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE 913 ;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC. FIRST, THE AC IS 914 ;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER 915 ;IS ADDED TO THE AC. THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO 916 917 030712 200 00 0 00 035330 A13400: MOVE [0] ;PRESET AC WITH ALL ZEROS 918 030713 270 00 0 00 035333 ADD [123456] ;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS 919 ;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER 920 030714 336 00 0 00 000000 SKIPN ;PASS TEST IF C(AC) IS NON-ZERO 921 STOP^ 922 030715 254 04 0 00 030716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 923 030716 324 00 0 00 030717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 924 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 925 ;IN THE SUBTEST) TO LOOP ON ERROR^ 926 927 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0032 928 ;ADD ZERO TO A RIPPLED ONE 929 930 011000 SN=11000 931 000000 ZZ=0 932 933 A11000: REPEAT ^D36, 934 <;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 935 ;A WORD OF ALL ZEROS IS ADDED TO AN 936 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 937 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 938 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 939 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 940 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 941 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 942 ;EVERY BIT OF THE AC. 943 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 944 SN=SN+1 945 ZZ=ZZ+ZZ 946 IFE ZZ, 947 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 948 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 949 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 950 EQV [0] ;RESULTS IN C(AC)=0 951 SKIPE ;PASS TEST IF C(AC)=0 952 STOP 953 954 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 955 ;IR ADDX [IR1], IR ADSUB [IR1] 956 957 ;********** 958 PAGE 959 > 960 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 961 ;A WORD OF ALL ZEROS IS ADDED TO AN 962 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 963 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 964 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 965 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 966 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 967 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 968 ;EVERY BIT OF THE AC. 969 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 970 011001 SN=SN+1 971 000000 ZZ=ZZ+ZZ 972 000001 IFE ZZ, 973 030717 200 00 0 00 035334 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 974 030720 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 975 030721 444 00 0 00 035334 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 976 030722 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 977 030723 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 978 STOP^ 979 030724 254 04 0 00 030725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 980 030725 324 00 0 00 030726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 981 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 982 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0033 983 984 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 985 ;IR ADDX [IR1], IR ADSUB [IR1] 986 987 ;********** 988 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0034 989 990 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 991 ;A WORD OF ALL ZEROS IS ADDED TO AN 992 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 993 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 994 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 995 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 996 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 997 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 998 ;EVERY BIT OF THE AC. 999 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1000 011002 SN=SN+1 1001 000002 ZZ=ZZ+ZZ 1002 IFE ZZ, 1003 030726 200 00 0 00 035335 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1004 030727 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1005 030730 444 00 0 00 035335 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1006 030731 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1007 030732 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1008 STOP^ 1009 030733 254 04 0 00 030734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1010 030734 324 00 0 00 030735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1011 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1012 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1013 1014 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1015 ;IR ADDX [IR1], IR ADSUB [IR1] 1016 1017 ;********** 1018 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0035 1019 1020 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1021 ;A WORD OF ALL ZEROS IS ADDED TO AN 1022 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1023 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1024 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1025 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1026 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1027 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1028 ;EVERY BIT OF THE AC. 1029 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1030 011003 SN=SN+1 1031 000004 ZZ=ZZ+ZZ 1032 IFE ZZ, 1033 030735 200 00 0 00 035336 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1034 030736 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1035 030737 444 00 0 00 035336 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1036 030740 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1037 030741 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1038 STOP^ 1039 030742 254 04 0 00 030743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1040 030743 324 00 0 00 030744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1042 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1043 1044 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1045 ;IR ADDX [IR1], IR ADSUB [IR1] 1046 1047 ;********** 1048 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0036 1049 1050 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1051 ;A WORD OF ALL ZEROS IS ADDED TO AN 1052 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1053 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1054 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1055 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1056 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1057 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1058 ;EVERY BIT OF THE AC. 1059 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1060 011004 SN=SN+1 1061 000010 ZZ=ZZ+ZZ 1062 IFE ZZ, 1063 030744 200 00 0 00 035337 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1064 030745 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1065 030746 444 00 0 00 035337 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1066 030747 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1067 030750 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1068 STOP^ 1069 030751 254 04 0 00 030752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1070 030752 324 00 0 00 030753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1071 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1072 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1073 1074 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1075 ;IR ADDX [IR1], IR ADSUB [IR1] 1076 1077 ;********** 1078 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0037 1079 1080 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1081 ;A WORD OF ALL ZEROS IS ADDED TO AN 1082 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1083 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1084 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1085 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1086 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1087 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1088 ;EVERY BIT OF THE AC. 1089 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1090 011005 SN=SN+1 1091 000020 ZZ=ZZ+ZZ 1092 IFE ZZ, 1093 030753 200 00 0 00 035340 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1094 030754 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1095 030755 444 00 0 00 035340 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1096 030756 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1097 030757 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1098 STOP^ 1099 030760 254 04 0 00 030761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1100 030761 324 00 0 00 030762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1101 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1102 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1103 1104 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1105 ;IR ADDX [IR1], IR ADSUB [IR1] 1106 1107 ;********** 1108 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0038 1109 1110 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1111 ;A WORD OF ALL ZEROS IS ADDED TO AN 1112 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1113 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1114 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1115 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1116 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1117 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1118 ;EVERY BIT OF THE AC. 1119 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1120 011006 SN=SN+1 1121 000040 ZZ=ZZ+ZZ 1122 IFE ZZ, 1123 030762 200 00 0 00 035341 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1124 030763 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1125 030764 444 00 0 00 035341 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1126 030765 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1127 030766 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1128 STOP^ 1129 030767 254 04 0 00 030770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1130 030770 324 00 0 00 030771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1131 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1132 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1133 1134 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1135 ;IR ADDX [IR1], IR ADSUB [IR1] 1136 1137 ;********** 1138 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0039 1139 1140 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1141 ;A WORD OF ALL ZEROS IS ADDED TO AN 1142 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1143 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1144 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1145 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1146 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1147 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1148 ;EVERY BIT OF THE AC. 1149 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1150 011007 SN=SN+1 1151 000100 ZZ=ZZ+ZZ 1152 IFE ZZ, 1153 030771 200 00 0 00 035342 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1154 030772 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1155 030773 444 00 0 00 035342 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1156 030774 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1157 030775 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1158 STOP^ 1159 030776 254 04 0 00 030777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1160 030777 324 00 0 00 031000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1161 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1162 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1163 1164 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1165 ;IR ADDX [IR1], IR ADSUB [IR1] 1166 1167 ;********** 1168 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0040 1169 1170 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1171 ;A WORD OF ALL ZEROS IS ADDED TO AN 1172 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1173 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1174 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1175 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1176 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1177 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1178 ;EVERY BIT OF THE AC. 1179 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1180 011010 SN=SN+1 1181 000200 ZZ=ZZ+ZZ 1182 IFE ZZ, 1183 031000 200 00 0 00 035343 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1184 031001 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1185 031002 444 00 0 00 035343 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1186 031003 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1187 031004 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1188 STOP^ 1189 031005 254 04 0 00 031006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1190 031006 324 00 0 00 031007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1191 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1192 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1193 1194 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1195 ;IR ADDX [IR1], IR ADSUB [IR1] 1196 1197 ;********** 1198 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0041 1199 1200 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1201 ;A WORD OF ALL ZEROS IS ADDED TO AN 1202 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1203 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1204 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1205 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1206 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1207 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1208 ;EVERY BIT OF THE AC. 1209 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1210 011011 SN=SN+1 1211 000400 ZZ=ZZ+ZZ 1212 IFE ZZ, 1213 031007 200 00 0 00 035344 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1214 031010 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1215 031011 444 00 0 00 035344 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1216 031012 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1217 031013 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1218 STOP^ 1219 031014 254 04 0 00 031015 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1220 031015 324 00 0 00 031016 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1222 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1223 1224 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1225 ;IR ADDX [IR1], IR ADSUB [IR1] 1226 1227 ;********** 1228 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0042 1229 1230 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1231 ;A WORD OF ALL ZEROS IS ADDED TO AN 1232 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1233 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1234 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1235 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1236 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1237 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1238 ;EVERY BIT OF THE AC. 1239 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1240 011012 SN=SN+1 1241 001000 ZZ=ZZ+ZZ 1242 IFE ZZ, 1243 031016 200 00 0 00 035345 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1244 031017 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1245 031020 444 00 0 00 035345 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1246 031021 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1247 031022 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1248 STOP^ 1249 031023 254 04 0 00 031024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1250 031024 324 00 0 00 031025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1251 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1252 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1253 1254 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1255 ;IR ADDX [IR1], IR ADSUB [IR1] 1256 1257 ;********** 1258 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0043 1259 1260 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1261 ;A WORD OF ALL ZEROS IS ADDED TO AN 1262 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1263 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1264 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1265 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1266 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1267 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1268 ;EVERY BIT OF THE AC. 1269 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1270 011013 SN=SN+1 1271 002000 ZZ=ZZ+ZZ 1272 IFE ZZ, 1273 031025 200 00 0 00 035346 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1274 031026 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1275 031027 444 00 0 00 035346 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1276 031030 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1277 031031 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1278 STOP^ 1279 031032 254 04 0 00 031033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1280 031033 324 00 0 00 031034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1281 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1282 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1283 1284 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1285 ;IR ADDX [IR1], IR ADSUB [IR1] 1286 1287 ;********** 1288 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0044 1289 1290 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1291 ;A WORD OF ALL ZEROS IS ADDED TO AN 1292 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1293 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1294 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1295 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1296 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1297 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1298 ;EVERY BIT OF THE AC. 1299 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1300 011014 SN=SN+1 1301 004000 ZZ=ZZ+ZZ 1302 IFE ZZ, 1303 031034 200 00 0 00 035347 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1304 031035 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1305 031036 444 00 0 00 035347 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1306 031037 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1307 031040 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1308 STOP^ 1309 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1310 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1311 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1312 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1313 1314 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1315 ;IR ADDX [IR1], IR ADSUB [IR1] 1316 1317 ;********** 1318 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-13 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0045 1319 1320 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1321 ;A WORD OF ALL ZEROS IS ADDED TO AN 1322 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1323 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1324 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1325 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1326 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1327 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1328 ;EVERY BIT OF THE AC. 1329 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1330 011015 SN=SN+1 1331 010000 ZZ=ZZ+ZZ 1332 IFE ZZ, 1333 031043 200 00 0 00 035350 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1334 031044 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1335 031045 444 00 0 00 035350 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1336 031046 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1337 031047 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1338 STOP^ 1339 031050 254 04 0 00 031051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1340 031051 324 00 0 00 031052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1341 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1342 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1343 1344 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1345 ;IR ADDX [IR1], IR ADSUB [IR1] 1346 1347 ;********** 1348 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-14 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0046 1349 1350 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1351 ;A WORD OF ALL ZEROS IS ADDED TO AN 1352 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1353 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1354 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1355 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1356 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1357 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1358 ;EVERY BIT OF THE AC. 1359 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1360 011016 SN=SN+1 1361 020000 ZZ=ZZ+ZZ 1362 IFE ZZ, 1363 031052 200 00 0 00 035351 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1364 031053 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1365 031054 444 00 0 00 035351 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1366 031055 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1367 031056 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1368 STOP^ 1369 031057 254 04 0 00 031060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1370 031060 324 00 0 00 031061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1371 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1372 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1373 1374 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1375 ;IR ADDX [IR1], IR ADSUB [IR1] 1376 1377 ;********** 1378 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-15 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0047 1379 1380 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1381 ;A WORD OF ALL ZEROS IS ADDED TO AN 1382 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1383 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1384 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1385 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1386 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1387 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1388 ;EVERY BIT OF THE AC. 1389 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1390 011017 SN=SN+1 1391 040000 ZZ=ZZ+ZZ 1392 IFE ZZ, 1393 031061 200 00 0 00 035352 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1394 031062 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1395 031063 444 00 0 00 035352 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1396 031064 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1397 031065 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1398 STOP^ 1399 031066 254 04 0 00 031067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1400 031067 324 00 0 00 031070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1401 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1402 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1403 1404 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1405 ;IR ADDX [IR1], IR ADSUB [IR1] 1406 1407 ;********** 1408 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-16 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0048 1409 1410 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1411 ;A WORD OF ALL ZEROS IS ADDED TO AN 1412 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1413 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1414 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1415 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1416 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1417 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1418 ;EVERY BIT OF THE AC. 1419 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1420 011020 SN=SN+1 1421 100000 ZZ=ZZ+ZZ 1422 IFE ZZ, 1423 031070 200 00 0 00 035353 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1424 031071 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1425 031072 444 00 0 00 035353 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1426 031073 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1427 031074 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1428 STOP^ 1429 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1430 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1431 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1432 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1433 1434 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1435 ;IR ADDX [IR1], IR ADSUB [IR1] 1436 1437 ;********** 1438 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-17 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0049 1439 1440 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1441 ;A WORD OF ALL ZEROS IS ADDED TO AN 1442 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1443 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1444 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1445 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1446 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1447 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1448 ;EVERY BIT OF THE AC. 1449 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1450 011021 SN=SN+1 1451 200000 ZZ=ZZ+ZZ 1452 IFE ZZ, 1453 031077 200 00 0 00 035354 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1454 031100 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1455 031101 444 00 0 00 035354 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1456 031102 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1457 031103 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1458 STOP^ 1459 031104 254 04 0 00 031105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1460 031105 324 00 0 00 031106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1463 1464 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1465 ;IR ADDX [IR1], IR ADSUB [IR1] 1466 1467 ;********** 1468 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-18 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0050 1469 1470 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1471 ;A WORD OF ALL ZEROS IS ADDED TO AN 1472 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1473 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1474 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1475 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1476 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1477 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1478 ;EVERY BIT OF THE AC. 1479 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1480 011022 SN=SN+1 1481 400000 ZZ=ZZ+ZZ 1482 IFE ZZ, 1483 031106 200 00 0 00 035355 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1484 031107 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1485 031110 444 00 0 00 035355 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1486 031111 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1487 031112 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1488 STOP^ 1489 031113 254 04 0 00 031114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1490 031114 324 00 0 00 031115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1491 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1492 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1493 1494 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1495 ;IR ADDX [IR1], IR ADSUB [IR1] 1496 1497 ;********** 1498 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-19 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0051 1499 1500 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1501 ;A WORD OF ALL ZEROS IS ADDED TO AN 1502 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1503 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1504 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1505 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1506 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1507 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1508 ;EVERY BIT OF THE AC. 1509 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1510 011023 SN=SN+1 1511 000001 000000 ZZ=ZZ+ZZ 1512 IFE ZZ, 1513 031115 200 00 0 00 035356 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1514 031116 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1515 031117 444 00 0 00 035356 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1516 031120 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1517 031121 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1518 STOP^ 1519 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1520 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1522 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1523 1524 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1525 ;IR ADDX [IR1], IR ADSUB [IR1] 1526 1527 ;********** 1528 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-20 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0052 1529 1530 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1531 ;A WORD OF ALL ZEROS IS ADDED TO AN 1532 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1533 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1534 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1535 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1536 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1537 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1538 ;EVERY BIT OF THE AC. 1539 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1540 011024 SN=SN+1 1541 000002 000000 ZZ=ZZ+ZZ 1542 IFE ZZ, 1543 031124 200 00 0 00 035357 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1544 031125 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1545 031126 444 00 0 00 035357 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1546 031127 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1547 031130 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1548 STOP^ 1549 031131 254 04 0 00 031132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1550 031132 324 00 0 00 031133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1551 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1552 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1553 1554 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1555 ;IR ADDX [IR1], IR ADSUB [IR1] 1556 1557 ;********** 1558 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-21 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0053 1559 1560 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1561 ;A WORD OF ALL ZEROS IS ADDED TO AN 1562 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1563 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1564 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1565 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1566 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1567 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1568 ;EVERY BIT OF THE AC. 1569 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1570 011025 SN=SN+1 1571 000004 000000 ZZ=ZZ+ZZ 1572 IFE ZZ, 1573 031133 200 00 0 00 035360 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1574 031134 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1575 031135 444 00 0 00 035360 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1576 031136 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1577 031137 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1578 STOP^ 1579 031140 254 04 0 00 031141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1580 031141 324 00 0 00 031142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1581 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1582 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1583 1584 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1585 ;IR ADDX [IR1], IR ADSUB [IR1] 1586 1587 ;********** 1588 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-22 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0054 1589 1590 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1591 ;A WORD OF ALL ZEROS IS ADDED TO AN 1592 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1593 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1594 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1595 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1596 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1597 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1598 ;EVERY BIT OF THE AC. 1599 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1600 011026 SN=SN+1 1601 000010 000000 ZZ=ZZ+ZZ 1602 IFE ZZ, 1603 031142 200 00 0 00 035361 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1604 031143 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1605 031144 444 00 0 00 035361 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1606 031145 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1607 031146 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1608 STOP^ 1609 031147 254 04 0 00 031150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1610 031150 324 00 0 00 031151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1611 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1612 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1613 1614 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1615 ;IR ADDX [IR1], IR ADSUB [IR1] 1616 1617 ;********** 1618 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-23 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0055 1619 1620 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1621 ;A WORD OF ALL ZEROS IS ADDED TO AN 1622 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1623 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1624 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1625 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1626 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1627 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1628 ;EVERY BIT OF THE AC. 1629 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1630 011027 SN=SN+1 1631 000020 000000 ZZ=ZZ+ZZ 1632 IFE ZZ, 1633 031151 200 00 0 00 035362 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1634 031152 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1635 031153 444 00 0 00 035362 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1636 031154 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1637 031155 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1638 STOP^ 1639 031156 254 04 0 00 031157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1640 031157 324 00 0 00 031160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1642 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1643 1644 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1645 ;IR ADDX [IR1], IR ADSUB [IR1] 1646 1647 ;********** 1648 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-24 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0056 1649 1650 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1651 ;A WORD OF ALL ZEROS IS ADDED TO AN 1652 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1653 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1654 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1655 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1656 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1657 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1658 ;EVERY BIT OF THE AC. 1659 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1660 011030 SN=SN+1 1661 000040 000000 ZZ=ZZ+ZZ 1662 IFE ZZ, 1663 031160 200 00 0 00 035363 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1664 031161 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1665 031162 444 00 0 00 035363 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1666 031163 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1667 031164 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1668 STOP^ 1669 031165 254 04 0 00 031166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1670 031166 324 00 0 00 031167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1671 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1672 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1673 1674 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1675 ;IR ADDX [IR1], IR ADSUB [IR1] 1676 1677 ;********** 1678 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-25 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0057 1679 1680 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1681 ;A WORD OF ALL ZEROS IS ADDED TO AN 1682 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1683 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1684 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1685 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1686 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1687 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1688 ;EVERY BIT OF THE AC. 1689 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1690 011031 SN=SN+1 1691 000100 000000 ZZ=ZZ+ZZ 1692 IFE ZZ, 1693 031167 200 00 0 00 035364 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1694 031170 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1695 031171 444 00 0 00 035364 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1696 031172 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1697 031173 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1698 STOP^ 1699 031174 254 04 0 00 031175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1700 031175 324 00 0 00 031176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1703 1704 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1705 ;IR ADDX [IR1], IR ADSUB [IR1] 1706 1707 ;********** 1708 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-26 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0058 1709 1710 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1711 ;A WORD OF ALL ZEROS IS ADDED TO AN 1712 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1713 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1714 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1715 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1716 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1717 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1718 ;EVERY BIT OF THE AC. 1719 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1720 011032 SN=SN+1 1721 000200 000000 ZZ=ZZ+ZZ 1722 IFE ZZ, 1723 031176 200 00 0 00 035365 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1724 031177 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1725 031200 444 00 0 00 035365 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1726 031201 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1727 031202 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1728 STOP^ 1729 031203 254 04 0 00 031204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1730 031204 324 00 0 00 031205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1732 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1733 1734 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1735 ;IR ADDX [IR1], IR ADSUB [IR1] 1736 1737 ;********** 1738 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-27 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0059 1739 1740 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1741 ;A WORD OF ALL ZEROS IS ADDED TO AN 1742 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1743 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1744 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1745 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1746 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1747 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1748 ;EVERY BIT OF THE AC. 1749 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1750 011033 SN=SN+1 1751 000400 000000 ZZ=ZZ+ZZ 1752 IFE ZZ, 1753 031205 200 00 0 00 035366 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1754 031206 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1755 031207 444 00 0 00 035366 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1756 031210 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1757 031211 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1758 STOP^ 1759 031212 254 04 0 00 031213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1760 031213 324 00 0 00 031214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1763 1764 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1765 ;IR ADDX [IR1], IR ADSUB [IR1] 1766 1767 ;********** 1768 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-28 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0060 1769 1770 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1771 ;A WORD OF ALL ZEROS IS ADDED TO AN 1772 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1773 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1774 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1775 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1776 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1777 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1778 ;EVERY BIT OF THE AC. 1779 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1780 011034 SN=SN+1 1781 001000 000000 ZZ=ZZ+ZZ 1782 IFE ZZ, 1783 031214 200 00 0 00 035367 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1784 031215 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1785 031216 444 00 0 00 035367 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1786 031217 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1787 031220 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1788 STOP^ 1789 031221 254 04 0 00 031222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1790 031222 324 00 0 00 031223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1793 1794 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1795 ;IR ADDX [IR1], IR ADSUB [IR1] 1796 1797 ;********** 1798 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-29 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0061 1799 1800 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1801 ;A WORD OF ALL ZEROS IS ADDED TO AN 1802 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1803 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1804 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1805 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1806 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1807 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1808 ;EVERY BIT OF THE AC. 1809 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1810 011035 SN=SN+1 1811 002000 000000 ZZ=ZZ+ZZ 1812 IFE ZZ, 1813 031223 200 00 0 00 035370 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1814 031224 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1815 031225 444 00 0 00 035370 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1816 031226 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1817 031227 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1818 STOP^ 1819 031230 254 04 0 00 031231 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1820 031231 324 00 0 00 031232 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1821 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1822 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1823 1824 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1825 ;IR ADDX [IR1], IR ADSUB [IR1] 1826 1827 ;********** 1828 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-30 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0062 1829 1830 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1831 ;A WORD OF ALL ZEROS IS ADDED TO AN 1832 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1833 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1834 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1835 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1836 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1837 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1838 ;EVERY BIT OF THE AC. 1839 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1840 011036 SN=SN+1 1841 004000 000000 ZZ=ZZ+ZZ 1842 IFE ZZ, 1843 031232 200 00 0 00 035371 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1844 031233 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1845 031234 444 00 0 00 035371 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1846 031235 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1847 031236 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1848 STOP^ 1849 031237 254 04 0 00 031240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1850 031240 324 00 0 00 031241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1851 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1852 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1853 1854 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1855 ;IR ADDX [IR1], IR ADSUB [IR1] 1856 1857 ;********** 1858 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-31 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0063 1859 1860 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1861 ;A WORD OF ALL ZEROS IS ADDED TO AN 1862 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1863 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1864 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1865 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1866 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1867 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1868 ;EVERY BIT OF THE AC. 1869 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1870 011037 SN=SN+1 1871 010000 000000 ZZ=ZZ+ZZ 1872 IFE ZZ, 1873 031241 200 00 0 00 035372 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1874 031242 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1875 031243 444 00 0 00 035372 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1876 031244 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1877 031245 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1878 STOP^ 1879 031246 254 04 0 00 031247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1880 031247 324 00 0 00 031250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1883 1884 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1885 ;IR ADDX [IR1], IR ADSUB [IR1] 1886 1887 ;********** 1888 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-32 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0064 1889 1890 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1891 ;A WORD OF ALL ZEROS IS ADDED TO AN 1892 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1893 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1894 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1895 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1896 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1897 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1898 ;EVERY BIT OF THE AC. 1899 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1900 011040 SN=SN+1 1901 020000 000000 ZZ=ZZ+ZZ 1902 IFE ZZ, 1903 031250 200 00 0 00 035373 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1904 031251 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1905 031252 444 00 0 00 035373 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1906 031253 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1907 031254 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1908 STOP^ 1909 031255 254 04 0 00 031256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1910 031256 324 00 0 00 031257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1911 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1912 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1913 1914 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1915 ;IR ADDX [IR1], IR ADSUB [IR1] 1916 1917 ;********** 1918 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-33 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0065 1919 1920 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1921 ;A WORD OF ALL ZEROS IS ADDED TO AN 1922 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1923 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1924 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1925 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1926 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1927 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1928 ;EVERY BIT OF THE AC. 1929 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1930 011041 SN=SN+1 1931 040000 000000 ZZ=ZZ+ZZ 1932 IFE ZZ, 1933 031257 200 00 0 00 035374 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1934 031260 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1935 031261 444 00 0 00 035374 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1936 031262 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1937 031263 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1938 STOP^ 1939 031264 254 04 0 00 031265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1940 031265 324 00 0 00 031266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1943 1944 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1945 ;IR ADDX [IR1], IR ADSUB [IR1] 1946 1947 ;********** 1948 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-34 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0066 1949 1950 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1951 ;A WORD OF ALL ZEROS IS ADDED TO AN 1952 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1953 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1954 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1955 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1956 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1957 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1958 ;EVERY BIT OF THE AC. 1959 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1960 011042 SN=SN+1 1961 100000 000000 ZZ=ZZ+ZZ 1962 IFE ZZ, 1963 031266 200 00 0 00 035375 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1964 031267 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1965 031270 444 00 0 00 035375 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1966 031271 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1967 031272 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1968 STOP^ 1969 031273 254 04 0 00 031274 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1970 031274 324 00 0 00 031275 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1971 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1972 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1973 1974 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 1975 ;IR ADDX [IR1], IR ADSUB [IR1] 1976 1977 ;********** 1978 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-35 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0067 1979 1980 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 1981 ;A WORD OF ALL ZEROS IS ADDED TO AN 1982 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 1983 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 1984 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 1985 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 1986 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 1987 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 1988 ;EVERY BIT OF THE AC. 1989 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 1990 011043 SN=SN+1 1991 200000 000000 ZZ=ZZ+ZZ 1992 IFE ZZ, 1993 031275 200 00 0 00 035376 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 1994 031276 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 1995 031277 444 00 0 00 035376 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 1996 031300 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 1997 031301 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1998 STOP^ 1999 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2000 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2003 2004 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 2005 ;IR ADDX [IR1], IR ADSUB [IR1] 2006 2007 ;********** 2008 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-36 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0068 2009 2010 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2011 ;A WORD OF ALL ZEROS IS ADDED TO AN 2012 ;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2013 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY. 2014 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2015 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2016 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2017 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2018 ;EVERY BIT OF THE AC. 2019 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2020 011044 SN=SN+1 2021 400000 000000 ZZ=ZZ+ZZ 2022 IFE ZZ, 2023 031304 200 00 0 00 035377 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 2024 031305 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO FLOATING ONE 2025 031306 444 00 0 00 035377 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2026 031307 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2027 031310 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2028 STOP^ 2029 031311 254 04 0 00 031312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2030 031312 324 00 0 00 031313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2031 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2032 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2033 2034 ;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1], 2035 ;IR ADDX [IR1], IR ADSUB [IR1] 2036 2037 ;********** 2038 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 5-37 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0069 2039 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0070 2040 ;THIS TEST VERIFIES THAT THE ADDITION OF A WORD OF 2041 ;ALL ZEROS TO AN AC OF ALL ZEROS RESULTS IN 2042 ;C(AC)=0. FIRST THE AC IS CLEARED; THEN, A WORD 2043 ;OF ALL ZEROS IS ADDED TO THE AC. THE RESULT IN 2044 ;THE AC IS THEN CHECKED TO INSURE THAT C(AC)=0 2045 2046 031313 200 00 0 00 035330 A11100: MOVE [0] ;PRESET AC TO ZERO 2047 031314 270 00 0 00 035330 ADD [0] ;*ADD OF ZERO TO ZERO SHOULD RESULT IN C(AC)=0 2048 031315 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2049 STOP^ 2050 031316 254 04 0 00 031317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2051 031317 324 00 0 00 031320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2052 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2053 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2054 2055 ;FCE[F1], IR AD SUB [IR1] 2056 ;AD FM + EN [ADFP], AD FM + EN A [ADFP], 2057 ;F CYC ACT EN C[F1], IR ADSUB [IR1] 2058 2059 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0071 2060 ;ADD ZERO TO A RIPPLED ONE 2061 2062 013200 SN=13200 2063 000000 ZZ=0 2064 2065 A13200: REPEAT ^D36, 2066 <;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2067 ;TO AN AC OF ALL ZEROS IS ADDED A 2068 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2069 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2070 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2071 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2072 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2073 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2074 ;EVERY BIT OF THE AC. 2075 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2076 SN=SN+1 2077 ZZ=ZZ+ZZ 2078 IFE ZZ, 2079 MOVE [0] ;LOAD AC WITH ALL ZEROS 2080 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2081 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2082 EQV [0] ;RESULTS IN C(AC)=0 2083 SKIPE ;PASS TEST IF C(AC)=0 2084 STOP 2085 2086 ;********** 2087 > 2088 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2089 ;TO AN AC OF ALL ZEROS IS ADDED A 2090 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2091 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2092 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2093 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2094 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2095 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2096 ;EVERY BIT OF THE AC. 2097 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2098 013201 SN=SN+1 2099 000000 ZZ=ZZ+ZZ 2100 000001 IFE ZZ, 2101 031320 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2102 031321 270 00 0 00 035334 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2103 031322 444 00 0 00 035334 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2104 031323 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2105 031324 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2106 STOP^ 2107 031325 254 04 0 00 031326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2108 031326 324 00 0 00 031327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2111 2112 ;********** 2113 2114 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0072 2115 ;TO AN AC OF ALL ZEROS IS ADDED A 2116 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2117 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2118 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2119 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2120 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2121 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2122 ;EVERY BIT OF THE AC. 2123 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2124 013202 SN=SN+1 2125 000002 ZZ=ZZ+ZZ 2126 IFE ZZ, 2127 031327 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2128 031330 270 00 0 00 035335 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2129 031331 444 00 0 00 035335 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2130 031332 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2131 031333 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2132 STOP^ 2133 031334 254 04 0 00 031335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2134 031335 324 00 0 00 031336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2136 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2137 2138 ;********** 2139 2140 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2141 ;TO AN AC OF ALL ZEROS IS ADDED A 2142 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2143 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2144 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2145 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2146 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2147 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2148 ;EVERY BIT OF THE AC. 2149 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2150 013203 SN=SN+1 2151 000004 ZZ=ZZ+ZZ 2152 IFE ZZ, 2153 031336 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2154 031337 270 00 0 00 035336 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2155 031340 444 00 0 00 035336 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2156 031341 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2157 031342 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2158 STOP^ 2159 031343 254 04 0 00 031344 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2160 031344 324 00 0 00 031345 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2161 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2162 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2163 2164 ;********** 2165 2166 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2167 ;TO AN AC OF ALL ZEROS IS ADDED A 2168 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2169 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0073 2170 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2171 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2172 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2173 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2174 ;EVERY BIT OF THE AC. 2175 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2176 013204 SN=SN+1 2177 000010 ZZ=ZZ+ZZ 2178 IFE ZZ, 2179 031345 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2180 031346 270 00 0 00 035337 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2181 031347 444 00 0 00 035337 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2182 031350 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2183 031351 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2184 STOP^ 2185 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2186 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2187 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2188 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2189 2190 ;********** 2191 2192 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2193 ;TO AN AC OF ALL ZEROS IS ADDED A 2194 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2195 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2196 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2197 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2198 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2199 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2200 ;EVERY BIT OF THE AC. 2201 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2202 013205 SN=SN+1 2203 000020 ZZ=ZZ+ZZ 2204 IFE ZZ, 2205 031354 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2206 031355 270 00 0 00 035340 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2207 031356 444 00 0 00 035340 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2208 031357 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2209 031360 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2210 STOP^ 2211 031361 254 04 0 00 031362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2212 031362 324 00 0 00 031363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2213 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2214 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2215 2216 ;********** 2217 2218 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2219 ;TO AN AC OF ALL ZEROS IS ADDED A 2220 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2221 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2222 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2223 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2224 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0074 2225 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2226 ;EVERY BIT OF THE AC. 2227 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2228 013206 SN=SN+1 2229 000040 ZZ=ZZ+ZZ 2230 IFE ZZ, 2231 031363 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2232 031364 270 00 0 00 035341 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2233 031365 444 00 0 00 035341 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2234 031366 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2235 031367 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2236 STOP^ 2237 031370 254 04 0 00 031371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2238 031371 324 00 0 00 031372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2239 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2240 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2241 2242 ;********** 2243 2244 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2245 ;TO AN AC OF ALL ZEROS IS ADDED A 2246 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2247 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2248 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2249 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2250 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2251 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2252 ;EVERY BIT OF THE AC. 2253 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2254 013207 SN=SN+1 2255 000100 ZZ=ZZ+ZZ 2256 IFE ZZ, 2257 031372 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2258 031373 270 00 0 00 035342 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2259 031374 444 00 0 00 035342 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2260 031375 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2261 031376 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2262 STOP^ 2263 031377 254 04 0 00 031400 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2264 031400 324 00 0 00 031401 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2266 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2267 2268 ;********** 2269 2270 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2271 ;TO AN AC OF ALL ZEROS IS ADDED A 2272 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2273 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2274 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2275 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2276 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2277 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2278 ;EVERY BIT OF THE AC. 2279 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0075 2280 013210 SN=SN+1 2281 000200 ZZ=ZZ+ZZ 2282 IFE ZZ, 2283 031401 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2284 031402 270 00 0 00 035343 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2285 031403 444 00 0 00 035343 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2286 031404 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2287 031405 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2288 STOP^ 2289 031406 254 04 0 00 031407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2290 031407 324 00 0 00 031410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2291 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2292 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2293 2294 ;********** 2295 2296 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2297 ;TO AN AC OF ALL ZEROS IS ADDED A 2298 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2299 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2300 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2301 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2302 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2303 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2304 ;EVERY BIT OF THE AC. 2305 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2306 013211 SN=SN+1 2307 000400 ZZ=ZZ+ZZ 2308 IFE ZZ, 2309 031410 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2310 031411 270 00 0 00 035344 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2311 031412 444 00 0 00 035344 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2312 031413 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2313 031414 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2314 STOP^ 2315 031415 254 04 0 00 031416 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2316 031416 324 00 0 00 031417 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2319 2320 ;********** 2321 2322 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2323 ;TO AN AC OF ALL ZEROS IS ADDED A 2324 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2325 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2326 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2327 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2328 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2329 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2330 ;EVERY BIT OF THE AC. 2331 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2332 013212 SN=SN+1 2333 001000 ZZ=ZZ+ZZ 2334 IFE ZZ, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0076 2335 031417 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2336 031420 270 00 0 00 035345 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2337 031421 444 00 0 00 035345 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2338 031422 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2339 031423 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2340 STOP^ 2341 031424 254 04 0 00 031425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2342 031425 324 00 0 00 031426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2345 2346 ;********** 2347 2348 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2349 ;TO AN AC OF ALL ZEROS IS ADDED A 2350 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2351 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2352 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2353 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2354 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2355 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2356 ;EVERY BIT OF THE AC. 2357 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2358 013213 SN=SN+1 2359 002000 ZZ=ZZ+ZZ 2360 IFE ZZ, 2361 031426 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2362 031427 270 00 0 00 035346 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2363 031430 444 00 0 00 035346 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2364 031431 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2365 031432 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2366 STOP^ 2367 031433 254 04 0 00 031434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2368 031434 324 00 0 00 031435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2371 2372 ;********** 2373 2374 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2375 ;TO AN AC OF ALL ZEROS IS ADDED A 2376 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2377 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2378 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2379 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2380 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2381 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2382 ;EVERY BIT OF THE AC. 2383 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2384 013214 SN=SN+1 2385 004000 ZZ=ZZ+ZZ 2386 IFE ZZ, 2387 031435 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2388 031436 270 00 0 00 035347 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2389 031437 444 00 0 00 035347 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0077 2390 031440 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2391 031441 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2392 STOP^ 2393 031442 254 04 0 00 031443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2394 031443 324 00 0 00 031444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2395 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2396 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2397 2398 ;********** 2399 2400 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2401 ;TO AN AC OF ALL ZEROS IS ADDED A 2402 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2403 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2404 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2405 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2406 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2407 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2408 ;EVERY BIT OF THE AC. 2409 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2410 013215 SN=SN+1 2411 010000 ZZ=ZZ+ZZ 2412 IFE ZZ, 2413 031444 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2414 031445 270 00 0 00 035350 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2415 031446 444 00 0 00 035350 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2416 031447 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2417 031450 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2418 STOP^ 2419 031451 254 04 0 00 031452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2420 031452 324 00 0 00 031453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2421 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2422 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2423 2424 ;********** 2425 2426 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2427 ;TO AN AC OF ALL ZEROS IS ADDED A 2428 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2429 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2430 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2431 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2432 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2433 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2434 ;EVERY BIT OF THE AC. 2435 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2436 013216 SN=SN+1 2437 020000 ZZ=ZZ+ZZ 2438 IFE ZZ, 2439 031453 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2440 031454 270 00 0 00 035351 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2441 031455 444 00 0 00 035351 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2442 031456 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2443 031457 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2444 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0078 2445 031460 254 04 0 00 031461 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2446 031461 324 00 0 00 031462 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2447 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2448 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2449 2450 ;********** 2451 2452 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2453 ;TO AN AC OF ALL ZEROS IS ADDED A 2454 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2455 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2456 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2457 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2458 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2459 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2460 ;EVERY BIT OF THE AC. 2461 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2462 013217 SN=SN+1 2463 040000 ZZ=ZZ+ZZ 2464 IFE ZZ, 2465 031462 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2466 031463 270 00 0 00 035352 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2467 031464 444 00 0 00 035352 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2468 031465 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2469 031466 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2470 STOP^ 2471 031467 254 04 0 00 031470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2472 031470 324 00 0 00 031471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2473 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2474 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2475 2476 ;********** 2477 2478 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2479 ;TO AN AC OF ALL ZEROS IS ADDED A 2480 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2481 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2482 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2483 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2484 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2485 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2486 ;EVERY BIT OF THE AC. 2487 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2488 013220 SN=SN+1 2489 100000 ZZ=ZZ+ZZ 2490 IFE ZZ, 2491 031471 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2492 031472 270 00 0 00 035353 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2493 031473 444 00 0 00 035353 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2494 031474 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2495 031475 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2496 STOP^ 2497 031476 254 04 0 00 031477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2498 031477 324 00 0 00 031500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0079 2500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2501 2502 ;********** 2503 2504 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2505 ;TO AN AC OF ALL ZEROS IS ADDED A 2506 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2507 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2508 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2509 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2510 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2511 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2512 ;EVERY BIT OF THE AC. 2513 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2514 013221 SN=SN+1 2515 200000 ZZ=ZZ+ZZ 2516 IFE ZZ, 2517 031500 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2518 031501 270 00 0 00 035354 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2519 031502 444 00 0 00 035354 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2520 031503 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2521 031504 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2522 STOP^ 2523 031505 254 04 0 00 031506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2524 031506 324 00 0 00 031507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2527 2528 ;********** 2529 2530 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2531 ;TO AN AC OF ALL ZEROS IS ADDED A 2532 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2533 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2534 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2535 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2536 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2537 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2538 ;EVERY BIT OF THE AC. 2539 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2540 013222 SN=SN+1 2541 400000 ZZ=ZZ+ZZ 2542 IFE ZZ, 2543 031507 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2544 031510 270 00 0 00 035355 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2545 031511 444 00 0 00 035355 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2546 031512 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2547 031513 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2548 STOP^ 2549 031514 254 04 0 00 031515 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2550 031515 324 00 0 00 031516 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2551 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2552 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2553 2554 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0080 2555 2556 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2557 ;TO AN AC OF ALL ZEROS IS ADDED A 2558 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2559 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2560 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2561 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2562 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2563 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2564 ;EVERY BIT OF THE AC. 2565 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2566 013223 SN=SN+1 2567 000001 000000 ZZ=ZZ+ZZ 2568 IFE ZZ, 2569 031516 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2570 031517 270 00 0 00 035356 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2571 031520 444 00 0 00 035356 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2572 031521 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2573 031522 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2574 STOP^ 2575 031523 254 04 0 00 031524 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2576 031524 324 00 0 00 031525 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2577 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2578 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2579 2580 ;********** 2581 2582 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2583 ;TO AN AC OF ALL ZEROS IS ADDED A 2584 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2585 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2586 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2587 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2588 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2589 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2590 ;EVERY BIT OF THE AC. 2591 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2592 013224 SN=SN+1 2593 000002 000000 ZZ=ZZ+ZZ 2594 IFE ZZ, 2595 031525 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2596 031526 270 00 0 00 035357 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2597 031527 444 00 0 00 035357 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2598 031530 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2599 031531 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2600 STOP^ 2601 031532 254 04 0 00 031533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2602 031533 324 00 0 00 031534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2604 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2605 2606 ;********** 2607 2608 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2609 ;TO AN AC OF ALL ZEROS IS ADDED A DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0081 2610 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2611 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2612 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2613 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2614 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2615 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2616 ;EVERY BIT OF THE AC. 2617 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2618 013225 SN=SN+1 2619 000004 000000 ZZ=ZZ+ZZ 2620 IFE ZZ, 2621 031534 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2622 031535 270 00 0 00 035360 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2623 031536 444 00 0 00 035360 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2624 031537 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2625 031540 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2626 STOP^ 2627 031541 254 04 0 00 031542 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2628 031542 324 00 0 00 031543 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2629 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2630 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2631 2632 ;********** 2633 2634 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2635 ;TO AN AC OF ALL ZEROS IS ADDED A 2636 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2637 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2638 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2639 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2640 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2641 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2642 ;EVERY BIT OF THE AC. 2643 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2644 013226 SN=SN+1 2645 000010 000000 ZZ=ZZ+ZZ 2646 IFE ZZ, 2647 031543 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2648 031544 270 00 0 00 035361 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2649 031545 444 00 0 00 035361 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2650 031546 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2651 031547 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2652 STOP^ 2653 031550 254 04 0 00 031551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2654 031551 324 00 0 00 031552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2656 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2657 2658 ;********** 2659 2660 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2661 ;TO AN AC OF ALL ZEROS IS ADDED A 2662 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2663 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2664 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0082 2665 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2666 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2667 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2668 ;EVERY BIT OF THE AC. 2669 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2670 013227 SN=SN+1 2671 000020 000000 ZZ=ZZ+ZZ 2672 IFE ZZ, 2673 031552 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2674 031553 270 00 0 00 035362 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2675 031554 444 00 0 00 035362 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2676 031555 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2677 031556 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2678 STOP^ 2679 031557 254 04 0 00 031560 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2680 031560 324 00 0 00 031561 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2681 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2682 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2683 2684 ;********** 2685 2686 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2687 ;TO AN AC OF ALL ZEROS IS ADDED A 2688 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2689 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2690 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2691 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2692 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2693 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2694 ;EVERY BIT OF THE AC. 2695 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2696 013230 SN=SN+1 2697 000040 000000 ZZ=ZZ+ZZ 2698 IFE ZZ, 2699 031561 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2700 031562 270 00 0 00 035363 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2701 031563 444 00 0 00 035363 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2702 031564 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2703 031565 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2704 STOP^ 2705 031566 254 04 0 00 031567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2706 031567 324 00 0 00 031570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2707 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2708 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2709 2710 ;********** 2711 2712 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2713 ;TO AN AC OF ALL ZEROS IS ADDED A 2714 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2715 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2716 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2717 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2718 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2719 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0083 2720 ;EVERY BIT OF THE AC. 2721 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2722 013231 SN=SN+1 2723 000100 000000 ZZ=ZZ+ZZ 2724 IFE ZZ, 2725 031570 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2726 031571 270 00 0 00 035364 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2727 031572 444 00 0 00 035364 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2728 031573 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2729 031574 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2730 STOP^ 2731 031575 254 04 0 00 031576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2732 031576 324 00 0 00 031577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2733 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2734 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2735 2736 ;********** 2737 2738 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2739 ;TO AN AC OF ALL ZEROS IS ADDED A 2740 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2741 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2742 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2743 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2744 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2745 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2746 ;EVERY BIT OF THE AC. 2747 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2748 013232 SN=SN+1 2749 000200 000000 ZZ=ZZ+ZZ 2750 IFE ZZ, 2751 031577 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2752 031600 270 00 0 00 035365 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2753 031601 444 00 0 00 035365 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2754 031602 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2755 031603 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2756 STOP^ 2757 031604 254 04 0 00 031605 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2758 031605 324 00 0 00 031606 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2759 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2760 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2761 2762 ;********** 2763 2764 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2765 ;TO AN AC OF ALL ZEROS IS ADDED A 2766 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2767 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2768 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2769 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2770 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2771 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2772 ;EVERY BIT OF THE AC. 2773 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2774 013233 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-13 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0084 2775 000400 000000 ZZ=ZZ+ZZ 2776 IFE ZZ, 2777 031606 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2778 031607 270 00 0 00 035366 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2779 031610 444 00 0 00 035366 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2780 031611 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2781 031612 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2782 STOP^ 2783 031613 254 04 0 00 031614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2784 031614 324 00 0 00 031615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2785 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2786 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2787 2788 ;********** 2789 2790 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2791 ;TO AN AC OF ALL ZEROS IS ADDED A 2792 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2793 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2794 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2795 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2796 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2797 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2798 ;EVERY BIT OF THE AC. 2799 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2800 013234 SN=SN+1 2801 001000 000000 ZZ=ZZ+ZZ 2802 IFE ZZ, 2803 031615 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2804 031616 270 00 0 00 035367 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2805 031617 444 00 0 00 035367 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2806 031620 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2807 031621 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2808 STOP^ 2809 031622 254 04 0 00 031623 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2810 031623 324 00 0 00 031624 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2811 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2812 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2813 2814 ;********** 2815 2816 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2817 ;TO AN AC OF ALL ZEROS IS ADDED A 2818 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2819 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2820 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2821 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2822 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2823 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2824 ;EVERY BIT OF THE AC. 2825 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2826 013235 SN=SN+1 2827 002000 000000 ZZ=ZZ+ZZ 2828 IFE ZZ, 2829 031624 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-14 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0085 2830 031625 270 00 0 00 035370 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2831 031626 444 00 0 00 035370 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2832 031627 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2833 031630 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2834 STOP^ 2835 031631 254 04 0 00 031632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2836 031632 324 00 0 00 031633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2837 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2838 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2839 2840 ;********** 2841 2842 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2843 ;TO AN AC OF ALL ZEROS IS ADDED A 2844 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2845 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2846 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2847 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2848 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2849 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2850 ;EVERY BIT OF THE AC. 2851 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2852 013236 SN=SN+1 2853 004000 000000 ZZ=ZZ+ZZ 2854 IFE ZZ, 2855 031633 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2856 031634 270 00 0 00 035371 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2857 031635 444 00 0 00 035371 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2858 031636 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2859 031637 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2860 STOP^ 2861 031640 254 04 0 00 031641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2862 031641 324 00 0 00 031642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2863 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2864 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2865 2866 ;********** 2867 2868 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2869 ;TO AN AC OF ALL ZEROS IS ADDED A 2870 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2871 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2872 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2873 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2874 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2875 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2876 ;EVERY BIT OF THE AC. 2877 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2878 013237 SN=SN+1 2879 010000 000000 ZZ=ZZ+ZZ 2880 IFE ZZ, 2881 031642 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2882 031643 270 00 0 00 035372 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2883 031644 444 00 0 00 035372 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2884 031645 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-15 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0086 2885 031646 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2886 STOP^ 2887 031647 254 04 0 00 031650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2888 031650 324 00 0 00 031651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2891 2892 ;********** 2893 2894 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2895 ;TO AN AC OF ALL ZEROS IS ADDED A 2896 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2897 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2898 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2899 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2900 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2901 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2902 ;EVERY BIT OF THE AC. 2903 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2904 013240 SN=SN+1 2905 020000 000000 ZZ=ZZ+ZZ 2906 IFE ZZ, 2907 031651 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2908 031652 270 00 0 00 035373 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2909 031653 444 00 0 00 035373 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2910 031654 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2911 031655 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2912 STOP^ 2913 031656 254 04 0 00 031657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2914 031657 324 00 0 00 031660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2915 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2916 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2917 2918 ;********** 2919 2920 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2921 ;TO AN AC OF ALL ZEROS IS ADDED A 2922 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2923 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2924 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2925 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2926 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2927 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2928 ;EVERY BIT OF THE AC. 2929 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2930 013241 SN=SN+1 2931 040000 000000 ZZ=ZZ+ZZ 2932 IFE ZZ, 2933 031660 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2934 031661 270 00 0 00 035374 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2935 031662 444 00 0 00 035374 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2936 031663 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2937 031664 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2938 STOP^ 2939 031665 254 04 0 00 031666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-16 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0087 2940 031666 324 00 0 00 031667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2943 2944 ;********** 2945 2946 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2947 ;TO AN AC OF ALL ZEROS IS ADDED A 2948 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2949 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2950 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2951 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2952 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2953 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2954 ;EVERY BIT OF THE AC. 2955 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2956 013242 SN=SN+1 2957 100000 000000 ZZ=ZZ+ZZ 2958 IFE ZZ, 2959 031667 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2960 031670 270 00 0 00 035375 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2961 031671 444 00 0 00 035375 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2962 031672 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2963 031673 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2964 STOP^ 2965 031674 254 04 0 00 031675 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2966 031675 324 00 0 00 031676 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2967 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2968 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2969 2970 ;********** 2971 2972 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2973 ;TO AN AC OF ALL ZEROS IS ADDED A 2974 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 2975 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 2976 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 2977 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 2978 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 2979 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 2980 ;EVERY BIT OF THE AC. 2981 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 2982 013243 SN=SN+1 2983 200000 000000 ZZ=ZZ+ZZ 2984 IFE ZZ, 2985 031676 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 2986 031677 270 00 0 00 035376 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 2987 031700 444 00 0 00 035376 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 2988 031701 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 2989 031702 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 2990 STOP^ 2991 031703 254 04 0 00 031704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2992 031704 324 00 0 00 031705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2994 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-17 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0088 2995 2996 ;********** 2997 2998 ;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS. 2999 ;TO AN AC OF ALL ZEROS IS ADDED A 3000 ;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT, 3001 ;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT. 3002 ;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC). THIS RESULT SHOULD 3003 ;BE ALL ONES. NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS. 3004 ;THE FINAL RESULT SHOULD BE C(AC)=0. THIS 3005 ;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH 3006 ;EVERY BIT OF THE AC. 3007 ;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS. 3008 013244 SN=SN+1 3009 400000 000000 ZZ=ZZ+ZZ 3010 IFE ZZ, 3011 031705 200 00 0 00 035330 MOVE [0] ;LOAD AC WITH ALL ZEROS 3012 031706 270 00 0 00 035377 ADD [ZZ] ;*ADD OF FLOATING ONE TO ZERO 3013 031707 444 00 0 00 035377 EQV [ZZ] ;RESULTS IN C(AC)=ALL ONES 3014 031710 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3015 031711 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3016 STOP^ 3017 031712 254 04 0 00 031713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3018 031713 324 00 0 00 031714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3019 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3020 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3021 3022 ;********** 3023 3024 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-18 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0089 3025 ;ADD A RIPPLED ONE TO A RIPPLED ONE 3026 3027 011200 SN=11200 3028 000000 ZZ=0 3029 3030 A11200: REPEAT ^D35, 3031 <;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3032 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3033 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3034 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3035 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3036 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3037 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3038 ;SO THAT A ONE WILL BE FLOATED THROUGH 3039 ;BITS 1 THRU 35 OF BOTH AC AND E 3040 SN=SN+1 3041 ZZ=ZZ+ZZ 3042 IFE ZZ, 3043 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3044 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3045 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3046 EQV [0] ;RESULTS IN C(AC)=0 3047 SKIPE ;PASS TEST IF C(AC)=0 3048 STOP 3049 3050 ;********** 3051 > 3052 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3053 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3054 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3055 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3056 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3057 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3058 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3059 ;SO THAT A ONE WILL BE FLOATED THROUGH 3060 ;BITS 1 THRU 35 OF BOTH AC AND E 3061 011201 SN=SN+1 3062 000000 ZZ=ZZ+ZZ 3063 000001 IFE ZZ, 3064 031714 200 00 0 00 035334 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3065 031715 270 00 0 00 035334 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3066 031716 444 00 0 00 035335 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3067 031717 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3068 031720 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3069 STOP^ 3070 031721 254 04 0 00 031722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3071 031722 324 00 0 00 031723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3073 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3074 3075 ;********** 3076 3077 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3078 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3079 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-19 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0090 3080 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3081 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3082 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3083 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3084 ;SO THAT A ONE WILL BE FLOATED THROUGH 3085 ;BITS 1 THRU 35 OF BOTH AC AND E 3086 011202 SN=SN+1 3087 000002 ZZ=ZZ+ZZ 3088 IFE ZZ, 3089 031723 200 00 0 00 035335 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3090 031724 270 00 0 00 035335 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3091 031725 444 00 0 00 035336 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3092 031726 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3093 031727 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3094 STOP^ 3095 031730 254 04 0 00 031731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3096 031731 324 00 0 00 031732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3098 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3099 3100 ;********** 3101 3102 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3103 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3104 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3105 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3106 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3107 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3108 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3109 ;SO THAT A ONE WILL BE FLOATED THROUGH 3110 ;BITS 1 THRU 35 OF BOTH AC AND E 3111 011203 SN=SN+1 3112 000004 ZZ=ZZ+ZZ 3113 IFE ZZ, 3114 031732 200 00 0 00 035336 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3115 031733 270 00 0 00 035336 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3116 031734 444 00 0 00 035337 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3117 031735 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3118 031736 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3119 STOP^ 3120 031737 254 04 0 00 031740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3121 031740 324 00 0 00 031741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3122 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3123 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3124 3125 ;********** 3126 3127 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3128 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3129 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3130 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3131 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3132 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3133 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3134 ;SO THAT A ONE WILL BE FLOATED THROUGH DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-20 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0091 3135 ;BITS 1 THRU 35 OF BOTH AC AND E 3136 011204 SN=SN+1 3137 000010 ZZ=ZZ+ZZ 3138 IFE ZZ, 3139 031741 200 00 0 00 035337 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3140 031742 270 00 0 00 035337 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3141 031743 444 00 0 00 035340 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3142 031744 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3143 031745 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3144 STOP^ 3145 031746 254 04 0 00 031747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3146 031747 324 00 0 00 031750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3147 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3148 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3149 3150 ;********** 3151 3152 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3153 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3154 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3155 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3156 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3157 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3158 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3159 ;SO THAT A ONE WILL BE FLOATED THROUGH 3160 ;BITS 1 THRU 35 OF BOTH AC AND E 3161 011205 SN=SN+1 3162 000020 ZZ=ZZ+ZZ 3163 IFE ZZ, 3164 031750 200 00 0 00 035340 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3165 031751 270 00 0 00 035340 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3166 031752 444 00 0 00 035341 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3167 031753 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3168 031754 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3169 STOP^ 3170 031755 254 04 0 00 031756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3171 031756 324 00 0 00 031757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3172 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3173 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3174 3175 ;********** 3176 3177 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3178 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3179 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3180 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3181 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3182 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3183 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3184 ;SO THAT A ONE WILL BE FLOATED THROUGH 3185 ;BITS 1 THRU 35 OF BOTH AC AND E 3186 011206 SN=SN+1 3187 000040 ZZ=ZZ+ZZ 3188 IFE ZZ, 3189 031757 200 00 0 00 035341 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-21 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0092 3190 031760 270 00 0 00 035341 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3191 031761 444 00 0 00 035342 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3192 031762 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3193 031763 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3194 STOP^ 3195 031764 254 04 0 00 031765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3196 031765 324 00 0 00 031766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3197 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3198 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3199 3200 ;********** 3201 3202 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3203 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3204 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3205 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3206 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3207 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3208 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3209 ;SO THAT A ONE WILL BE FLOATED THROUGH 3210 ;BITS 1 THRU 35 OF BOTH AC AND E 3211 011207 SN=SN+1 3212 000100 ZZ=ZZ+ZZ 3213 IFE ZZ, 3214 031766 200 00 0 00 035342 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3215 031767 270 00 0 00 035342 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3216 031770 444 00 0 00 035343 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3217 031771 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3218 031772 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3219 STOP^ 3220 031773 254 04 0 00 031774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3221 031774 324 00 0 00 031775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3224 3225 ;********** 3226 3227 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3228 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3229 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3230 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3231 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3232 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3233 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3234 ;SO THAT A ONE WILL BE FLOATED THROUGH 3235 ;BITS 1 THRU 35 OF BOTH AC AND E 3236 011210 SN=SN+1 3237 000200 ZZ=ZZ+ZZ 3238 IFE ZZ, 3239 031775 200 00 0 00 035343 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3240 031776 270 00 0 00 035343 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3241 031777 444 00 0 00 035344 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3242 032000 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3243 032001 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3244 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-22 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0093 3245 032002 254 04 0 00 032003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3246 032003 324 00 0 00 032004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3247 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3248 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3249 3250 ;********** 3251 3252 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3253 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3254 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3255 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3256 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3257 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3258 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3259 ;SO THAT A ONE WILL BE FLOATED THROUGH 3260 ;BITS 1 THRU 35 OF BOTH AC AND E 3261 011211 SN=SN+1 3262 000400 ZZ=ZZ+ZZ 3263 IFE ZZ, 3264 032004 200 00 0 00 035344 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3265 032005 270 00 0 00 035344 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3266 032006 444 00 0 00 035345 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3267 032007 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3268 032010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3269 STOP^ 3270 032011 254 04 0 00 032012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3271 032012 324 00 0 00 032013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3272 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3273 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3274 3275 ;********** 3276 3277 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3278 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3279 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3280 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3281 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3282 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3283 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3284 ;SO THAT A ONE WILL BE FLOATED THROUGH 3285 ;BITS 1 THRU 35 OF BOTH AC AND E 3286 011212 SN=SN+1 3287 001000 ZZ=ZZ+ZZ 3288 IFE ZZ, 3289 032013 200 00 0 00 035345 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3290 032014 270 00 0 00 035345 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3291 032015 444 00 0 00 035346 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3292 032016 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3293 032017 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3294 STOP^ 3295 032020 254 04 0 00 032021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3296 032021 324 00 0 00 032022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3299 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-23 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0094 3300 ;********** 3301 3302 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3303 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3304 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3305 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3306 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3307 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3308 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3309 ;SO THAT A ONE WILL BE FLOATED THROUGH 3310 ;BITS 1 THRU 35 OF BOTH AC AND E 3311 011213 SN=SN+1 3312 002000 ZZ=ZZ+ZZ 3313 IFE ZZ, 3314 032022 200 00 0 00 035346 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3315 032023 270 00 0 00 035346 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3316 032024 444 00 0 00 035347 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3317 032025 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3318 032026 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3319 STOP^ 3320 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3321 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3322 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3323 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3324 3325 ;********** 3326 3327 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3328 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3329 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3330 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3331 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3332 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3333 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3334 ;SO THAT A ONE WILL BE FLOATED THROUGH 3335 ;BITS 1 THRU 35 OF BOTH AC AND E 3336 011214 SN=SN+1 3337 004000 ZZ=ZZ+ZZ 3338 IFE ZZ, 3339 032031 200 00 0 00 035347 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3340 032032 270 00 0 00 035347 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3341 032033 444 00 0 00 035350 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3342 032034 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3343 032035 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3344 STOP^ 3345 032036 254 04 0 00 032037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3346 032037 324 00 0 00 032040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3347 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3348 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3349 3350 ;********** 3351 3352 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3353 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3354 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-24 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0095 3355 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3356 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3357 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3358 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3359 ;SO THAT A ONE WILL BE FLOATED THROUGH 3360 ;BITS 1 THRU 35 OF BOTH AC AND E 3361 011215 SN=SN+1 3362 010000 ZZ=ZZ+ZZ 3363 IFE ZZ, 3364 032040 200 00 0 00 035350 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3365 032041 270 00 0 00 035350 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3366 032042 444 00 0 00 035351 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3367 032043 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3368 032044 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3369 STOP^ 3370 032045 254 04 0 00 032046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3371 032046 324 00 0 00 032047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3372 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3373 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3374 3375 ;********** 3376 3377 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3378 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3379 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3380 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3381 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3382 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3383 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3384 ;SO THAT A ONE WILL BE FLOATED THROUGH 3385 ;BITS 1 THRU 35 OF BOTH AC AND E 3386 011216 SN=SN+1 3387 020000 ZZ=ZZ+ZZ 3388 IFE ZZ, 3389 032047 200 00 0 00 035351 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3390 032050 270 00 0 00 035351 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3391 032051 444 00 0 00 035352 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3392 032052 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3393 032053 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3394 STOP^ 3395 032054 254 04 0 00 032055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3396 032055 324 00 0 00 032056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3397 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3398 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3399 3400 ;********** 3401 3402 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3403 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3404 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3405 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3406 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3407 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3408 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3409 ;SO THAT A ONE WILL BE FLOATED THROUGH DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-25 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0096 3410 ;BITS 1 THRU 35 OF BOTH AC AND E 3411 011217 SN=SN+1 3412 040000 ZZ=ZZ+ZZ 3413 IFE ZZ, 3414 032056 200 00 0 00 035352 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3415 032057 270 00 0 00 035352 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3416 032060 444 00 0 00 035353 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3417 032061 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3418 032062 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3419 STOP^ 3420 032063 254 04 0 00 032064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3421 032064 324 00 0 00 032065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3422 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3423 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3424 3425 ;********** 3426 3427 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3428 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3429 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3430 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3431 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3432 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3433 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3434 ;SO THAT A ONE WILL BE FLOATED THROUGH 3435 ;BITS 1 THRU 35 OF BOTH AC AND E 3436 011220 SN=SN+1 3437 100000 ZZ=ZZ+ZZ 3438 IFE ZZ, 3439 032065 200 00 0 00 035353 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3440 032066 270 00 0 00 035353 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3441 032067 444 00 0 00 035354 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3442 032070 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3443 032071 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3444 STOP^ 3445 032072 254 04 0 00 032073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3446 032073 324 00 0 00 032074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3447 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3448 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3449 3450 ;********** 3451 3452 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3453 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3454 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3455 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3456 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3457 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3458 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3459 ;SO THAT A ONE WILL BE FLOATED THROUGH 3460 ;BITS 1 THRU 35 OF BOTH AC AND E 3461 011221 SN=SN+1 3462 200000 ZZ=ZZ+ZZ 3463 IFE ZZ, 3464 032074 200 00 0 00 035354 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-26 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0097 3465 032075 270 00 0 00 035354 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3466 032076 444 00 0 00 035355 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3467 032077 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3468 032100 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3469 STOP^ 3470 032101 254 04 0 00 032102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3471 032102 324 00 0 00 032103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3472 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3473 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3474 3475 ;********** 3476 3477 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3478 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3479 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3480 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3481 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3482 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3483 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3484 ;SO THAT A ONE WILL BE FLOATED THROUGH 3485 ;BITS 1 THRU 35 OF BOTH AC AND E 3486 011222 SN=SN+1 3487 400000 ZZ=ZZ+ZZ 3488 IFE ZZ, 3489 032103 200 00 0 00 035355 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3490 032104 270 00 0 00 035355 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3491 032105 444 00 0 00 035356 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3492 032106 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3493 032107 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3494 STOP^ 3495 032110 254 04 0 00 032111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3496 032111 324 00 0 00 032112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3497 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3498 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3499 3500 ;********** 3501 3502 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3503 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3504 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3505 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3506 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3507 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3508 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3509 ;SO THAT A ONE WILL BE FLOATED THROUGH 3510 ;BITS 1 THRU 35 OF BOTH AC AND E 3511 011223 SN=SN+1 3512 000001 000000 ZZ=ZZ+ZZ 3513 IFE ZZ, 3514 032112 200 00 0 00 035356 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3515 032113 270 00 0 00 035356 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3516 032114 444 00 0 00 035357 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3517 032115 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3518 032116 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3519 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-27 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0098 3520 032117 254 04 0 00 032120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3521 032120 324 00 0 00 032121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3522 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3523 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3524 3525 ;********** 3526 3527 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3528 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3529 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3530 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3531 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3532 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3533 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3534 ;SO THAT A ONE WILL BE FLOATED THROUGH 3535 ;BITS 1 THRU 35 OF BOTH AC AND E 3536 011224 SN=SN+1 3537 000002 000000 ZZ=ZZ+ZZ 3538 IFE ZZ, 3539 032121 200 00 0 00 035357 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3540 032122 270 00 0 00 035357 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3541 032123 444 00 0 00 035360 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3542 032124 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3543 032125 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3544 STOP^ 3545 032126 254 04 0 00 032127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3546 032127 324 00 0 00 032130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3548 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3549 3550 ;********** 3551 3552 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3553 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3554 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3555 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3556 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3557 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3558 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3559 ;SO THAT A ONE WILL BE FLOATED THROUGH 3560 ;BITS 1 THRU 35 OF BOTH AC AND E 3561 011225 SN=SN+1 3562 000004 000000 ZZ=ZZ+ZZ 3563 IFE ZZ, 3564 032130 200 00 0 00 035360 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3565 032131 270 00 0 00 035360 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3566 032132 444 00 0 00 035361 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3567 032133 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3568 032134 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3569 STOP^ 3570 032135 254 04 0 00 032136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3571 032136 324 00 0 00 032137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3572 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3573 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3574 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-28 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0099 3575 ;********** 3576 3577 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3578 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3579 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3580 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3581 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3582 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3583 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3584 ;SO THAT A ONE WILL BE FLOATED THROUGH 3585 ;BITS 1 THRU 35 OF BOTH AC AND E 3586 011226 SN=SN+1 3587 000010 000000 ZZ=ZZ+ZZ 3588 IFE ZZ, 3589 032137 200 00 0 00 035361 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3590 032140 270 00 0 00 035361 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3591 032141 444 00 0 00 035362 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3592 032142 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3593 032143 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3594 STOP^ 3595 032144 254 04 0 00 032145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3596 032145 324 00 0 00 032146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3598 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3599 3600 ;********** 3601 3602 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3603 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3604 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3605 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3606 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3607 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3608 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3609 ;SO THAT A ONE WILL BE FLOATED THROUGH 3610 ;BITS 1 THRU 35 OF BOTH AC AND E 3611 011227 SN=SN+1 3612 000020 000000 ZZ=ZZ+ZZ 3613 IFE ZZ, 3614 032146 200 00 0 00 035362 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3615 032147 270 00 0 00 035362 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3616 032150 444 00 0 00 035363 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3617 032151 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3618 032152 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3619 STOP^ 3620 032153 254 04 0 00 032154 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3621 032154 324 00 0 00 032155 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3623 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3624 3625 ;********** 3626 3627 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3628 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3629 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-29 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0100 3630 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3631 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3632 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3633 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3634 ;SO THAT A ONE WILL BE FLOATED THROUGH 3635 ;BITS 1 THRU 35 OF BOTH AC AND E 3636 011230 SN=SN+1 3637 000040 000000 ZZ=ZZ+ZZ 3638 IFE ZZ, 3639 032155 200 00 0 00 035363 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3640 032156 270 00 0 00 035363 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3641 032157 444 00 0 00 035364 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3642 032160 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3643 032161 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3644 STOP^ 3645 032162 254 04 0 00 032163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3646 032163 324 00 0 00 032164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3647 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3648 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3649 3650 ;********** 3651 3652 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3653 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3654 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3655 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3656 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3657 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3658 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3659 ;SO THAT A ONE WILL BE FLOATED THROUGH 3660 ;BITS 1 THRU 35 OF BOTH AC AND E 3661 011231 SN=SN+1 3662 000100 000000 ZZ=ZZ+ZZ 3663 IFE ZZ, 3664 032164 200 00 0 00 035364 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3665 032165 270 00 0 00 035364 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3666 032166 444 00 0 00 035365 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3667 032167 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3668 032170 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3669 STOP^ 3670 032171 254 04 0 00 032172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3671 032172 324 00 0 00 032173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3672 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3673 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3674 3675 ;********** 3676 3677 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3678 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3679 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3680 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3681 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3682 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3683 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3684 ;SO THAT A ONE WILL BE FLOATED THROUGH DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-30 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0101 3685 ;BITS 1 THRU 35 OF BOTH AC AND E 3686 011232 SN=SN+1 3687 000200 000000 ZZ=ZZ+ZZ 3688 IFE ZZ, 3689 032173 200 00 0 00 035365 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3690 032174 270 00 0 00 035365 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3691 032175 444 00 0 00 035366 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3692 032176 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3693 032177 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3694 STOP^ 3695 032200 254 04 0 00 032201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3696 032201 324 00 0 00 032202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3697 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3698 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3699 3700 ;********** 3701 3702 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3703 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3704 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3705 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3706 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3707 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3708 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3709 ;SO THAT A ONE WILL BE FLOATED THROUGH 3710 ;BITS 1 THRU 35 OF BOTH AC AND E 3711 011233 SN=SN+1 3712 000400 000000 ZZ=ZZ+ZZ 3713 IFE ZZ, 3714 032202 200 00 0 00 035366 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3715 032203 270 00 0 00 035366 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3716 032204 444 00 0 00 035367 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3717 032205 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3718 032206 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3719 STOP^ 3720 032207 254 04 0 00 032210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3721 032210 324 00 0 00 032211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3722 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3723 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3724 3725 ;********** 3726 3727 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3728 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3729 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3730 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3731 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3732 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3733 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3734 ;SO THAT A ONE WILL BE FLOATED THROUGH 3735 ;BITS 1 THRU 35 OF BOTH AC AND E 3736 011234 SN=SN+1 3737 001000 000000 ZZ=ZZ+ZZ 3738 IFE ZZ, 3739 032211 200 00 0 00 035367 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-31 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0102 3740 032212 270 00 0 00 035367 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3741 032213 444 00 0 00 035370 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3742 032214 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3743 032215 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3744 STOP^ 3745 032216 254 04 0 00 032217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3746 032217 324 00 0 00 032220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3747 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3748 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3749 3750 ;********** 3751 3752 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3753 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3754 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3755 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3756 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3757 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3758 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3759 ;SO THAT A ONE WILL BE FLOATED THROUGH 3760 ;BITS 1 THRU 35 OF BOTH AC AND E 3761 011235 SN=SN+1 3762 002000 000000 ZZ=ZZ+ZZ 3763 IFE ZZ, 3764 032220 200 00 0 00 035370 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3765 032221 270 00 0 00 035370 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3766 032222 444 00 0 00 035371 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3767 032223 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3768 032224 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3769 STOP^ 3770 032225 254 04 0 00 032226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3771 032226 324 00 0 00 032227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3774 3775 ;********** 3776 3777 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3778 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3779 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3780 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3781 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3782 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3783 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3784 ;SO THAT A ONE WILL BE FLOATED THROUGH 3785 ;BITS 1 THRU 35 OF BOTH AC AND E 3786 011236 SN=SN+1 3787 004000 000000 ZZ=ZZ+ZZ 3788 IFE ZZ, 3789 032227 200 00 0 00 035371 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3790 032230 270 00 0 00 035371 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3791 032231 444 00 0 00 035372 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3792 032232 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3793 032233 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3794 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-32 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0103 3795 032234 254 04 0 00 032235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3796 032235 324 00 0 00 032236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3798 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3799 3800 ;********** 3801 3802 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3803 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3804 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3805 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3806 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3807 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3808 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3809 ;SO THAT A ONE WILL BE FLOATED THROUGH 3810 ;BITS 1 THRU 35 OF BOTH AC AND E 3811 011237 SN=SN+1 3812 010000 000000 ZZ=ZZ+ZZ 3813 IFE ZZ, 3814 032236 200 00 0 00 035372 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3815 032237 270 00 0 00 035372 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3816 032240 444 00 0 00 035373 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3817 032241 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3818 032242 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3819 STOP^ 3820 032243 254 04 0 00 032244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3821 032244 324 00 0 00 032245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3822 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3823 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3824 3825 ;********** 3826 3827 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3828 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3829 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3830 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3831 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3832 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3833 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3834 ;SO THAT A ONE WILL BE FLOATED THROUGH 3835 ;BITS 1 THRU 35 OF BOTH AC AND E 3836 011240 SN=SN+1 3837 020000 000000 ZZ=ZZ+ZZ 3838 IFE ZZ, 3839 032245 200 00 0 00 035373 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3840 032246 270 00 0 00 035373 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3841 032247 444 00 0 00 035374 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3842 032250 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3843 032251 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3844 STOP^ 3845 032252 254 04 0 00 032253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3846 032253 324 00 0 00 032254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3847 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3848 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3849 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-33 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0104 3850 ;********** 3851 3852 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3853 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3854 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3855 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3856 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3857 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3858 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3859 ;SO THAT A ONE WILL BE FLOATED THROUGH 3860 ;BITS 1 THRU 35 OF BOTH AC AND E 3861 011241 SN=SN+1 3862 040000 000000 ZZ=ZZ+ZZ 3863 IFE ZZ, 3864 032254 200 00 0 00 035374 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3865 032255 270 00 0 00 035374 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3866 032256 444 00 0 00 035375 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3867 032257 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3868 032260 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3869 STOP^ 3870 032261 254 04 0 00 032262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3871 032262 324 00 0 00 032263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3872 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3873 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3874 3875 ;********** 3876 3877 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3878 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3879 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN 3880 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3881 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3882 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3883 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3884 ;SO THAT A ONE WILL BE FLOATED THROUGH 3885 ;BITS 1 THRU 35 OF BOTH AC AND E 3886 011242 SN=SN+1 3887 100000 000000 ZZ=ZZ+ZZ 3888 IFE ZZ, 3889 032263 200 00 0 00 035375 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3890 032264 270 00 0 00 035375 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3891 032265 444 00 0 00 035376 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3892 032266 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3893 032267 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3894 STOP^ 3895 032270 254 04 0 00 032271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3896 032271 324 00 0 00 032272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3897 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3898 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3899 3900 ;********** 3901 3902 ;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC) 3903 ;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)= 3904 ;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 7-34 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0105 3905 ;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A 3906 ;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE 3907 ;RESULT IN THE AC WILL BE ZERO AND THE TEST 3908 ;WILL FAIL. THIS TEST IS REPEATED 35 TIMES 3909 ;SO THAT A ONE WILL BE FLOATED THROUGH 3910 ;BITS 1 THRU 35 OF BOTH AC AND E 3911 011243 SN=SN+1 3912 200000 000000 ZZ=ZZ+ZZ 3913 IFE ZZ, 3914 032272 200 00 0 00 035376 MOVE [ZZ] ;PRESET AC WITH A FLOATING ONE 3915 032273 270 00 0 00 035376 ADD [ZZ] ;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO 3916 032274 444 00 0 00 035377 EQV [ZZ+ZZ] ;RESULTS IN C(AC)=ALL ONES 3917 032275 444 00 0 00 035330 EQV [0] ;RESULTS IN C(AC)=0 3918 032276 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3919 STOP^ 3920 032277 254 04 0 00 032300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3921 032300 324 00 0 00 032301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3922 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3923 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3924 3925 ;********** 3926 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0106 3927 011300 SN=11300 3928 000000 ZZ=0 3929 000000 YY=0 3930 3931 A11300: REPEAT ^D18, 3932 <;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 3933 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 3934 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 3935 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 3936 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 3937 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 3938 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 3939 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 3940 ;FORMER VALUE PLUS THE CURRENT C(AC) 3941 SN=SN+1 3942 YY=YY/2 3943 ZZ=ZZ+YY 3944 IFE YY, 3945 IFE ZZ, 3946 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 3947 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 3948 ;POWER SHOULD RESULT IN C(AC)=0. 3949 SKIPE ;PASS TEST IF C(AC)=0 3950 STOP 3951 3952 ;********** 3953 > 3954 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 3955 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 3956 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 3957 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 3958 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 3959 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 3960 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 3961 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 3962 ;FORMER VALUE PLUS THE CURRENT C(AC) 3963 011301 SN=SN+1 3964 000000 YY=YY/2 3965 000000 ZZ=ZZ+YY 3966 400000 IFE YY, 3967 400000 IFE ZZ, 3968 032301 200 00 0 00 035377 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 3969 032302 270 00 0 00 035377 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 3970 ;POWER SHOULD RESULT IN C(AC)=0. 3971 032303 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3972 STOP^ 3973 032304 254 04 0 00 032305 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3974 032305 324 00 0 00 032306 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3975 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3976 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3977 3978 ;********** 3979 3980 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 3981 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0107 3982 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 3983 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 3984 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 3985 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 3986 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 3987 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 3988 ;FORMER VALUE PLUS THE CURRENT C(AC) 3989 011302 SN=SN+1 3990 200000 YY=YY/2 3991 600000 ZZ=ZZ+YY 3992 IFE YY, 3993 IFE ZZ, 3994 032306 200 00 0 00 035400 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 3995 032307 270 00 0 00 035376 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 3996 ;POWER SHOULD RESULT IN C(AC)=0. 3997 032310 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 3998 STOP^ 3999 032311 254 04 0 00 032312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4000 032312 324 00 0 00 032313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4003 4004 ;********** 4005 4006 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4007 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4008 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4009 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4010 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4011 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4012 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4013 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4014 ;FORMER VALUE PLUS THE CURRENT C(AC) 4015 011303 SN=SN+1 4016 100000 YY=YY/2 4017 700000 ZZ=ZZ+YY 4018 IFE YY, 4019 IFE ZZ, 4020 032313 200 00 0 00 035401 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4021 032314 270 00 0 00 035375 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4022 ;POWER SHOULD RESULT IN C(AC)=0. 4023 032315 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4024 STOP^ 4025 032316 254 04 0 00 032317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4026 032317 324 00 0 00 032320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4027 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4028 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4029 4030 ;********** 4031 4032 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4033 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4034 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4035 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4036 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0108 4037 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4038 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4039 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4040 ;FORMER VALUE PLUS THE CURRENT C(AC) 4041 011304 SN=SN+1 4042 040000 YY=YY/2 4043 740000 ZZ=ZZ+YY 4044 IFE YY, 4045 IFE ZZ, 4046 032320 200 00 0 00 035402 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4047 032321 270 00 0 00 035374 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4048 ;POWER SHOULD RESULT IN C(AC)=0. 4049 032322 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4050 STOP^ 4051 032323 254 04 0 00 032324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4052 032324 324 00 0 00 032325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4053 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4054 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4055 4056 ;********** 4057 4058 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4059 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4060 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4061 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4062 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4063 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4064 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4065 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4066 ;FORMER VALUE PLUS THE CURRENT C(AC) 4067 011305 SN=SN+1 4068 020000 YY=YY/2 4069 760000 ZZ=ZZ+YY 4070 IFE YY, 4071 IFE ZZ, 4072 032325 200 00 0 00 035403 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4073 032326 270 00 0 00 035373 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4074 ;POWER SHOULD RESULT IN C(AC)=0. 4075 032327 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4076 STOP^ 4077 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4078 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4079 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4080 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4081 4082 ;********** 4083 4084 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4085 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4086 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4087 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4088 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4089 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4090 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4091 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0109 4092 ;FORMER VALUE PLUS THE CURRENT C(AC) 4093 011306 SN=SN+1 4094 010000 YY=YY/2 4095 770000 ZZ=ZZ+YY 4096 IFE YY, 4097 IFE ZZ, 4098 032332 200 00 0 00 035404 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4099 032333 270 00 0 00 035372 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4100 ;POWER SHOULD RESULT IN C(AC)=0. 4101 032334 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4102 STOP^ 4103 032335 254 04 0 00 032336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4104 032336 324 00 0 00 032337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4105 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4106 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4107 4108 ;********** 4109 4110 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4111 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4112 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4113 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4114 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4115 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4116 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4117 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4118 ;FORMER VALUE PLUS THE CURRENT C(AC) 4119 011307 SN=SN+1 4120 004000 YY=YY/2 4121 774000 ZZ=ZZ+YY 4122 IFE YY, 4123 IFE ZZ, 4124 032337 200 00 0 00 035405 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4125 032340 270 00 0 00 035371 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4126 ;POWER SHOULD RESULT IN C(AC)=0. 4127 032341 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4128 STOP^ 4129 032342 254 04 0 00 032343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4130 032343 324 00 0 00 032344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4131 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4132 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4133 4134 ;********** 4135 4136 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4137 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4138 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4139 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4140 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4141 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4142 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4143 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4144 ;FORMER VALUE PLUS THE CURRENT C(AC) 4145 011310 SN=SN+1 4146 002000 YY=YY/2 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0110 4147 776000 ZZ=ZZ+YY 4148 IFE YY, 4149 IFE ZZ, 4150 032344 200 00 0 00 035406 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4151 032345 270 00 0 00 035370 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4152 ;POWER SHOULD RESULT IN C(AC)=0. 4153 032346 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4154 STOP^ 4155 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4156 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4157 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4158 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4159 4160 ;********** 4161 4162 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4163 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4164 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4165 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4166 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4167 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4168 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4169 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4170 ;FORMER VALUE PLUS THE CURRENT C(AC) 4171 011311 SN=SN+1 4172 001000 YY=YY/2 4173 777000 ZZ=ZZ+YY 4174 IFE YY, 4175 IFE ZZ, 4176 032351 200 00 0 00 035407 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4177 032352 270 00 0 00 035367 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4178 ;POWER SHOULD RESULT IN C(AC)=0. 4179 032353 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4180 STOP^ 4181 032354 254 04 0 00 032355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4182 032355 324 00 0 00 032356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4183 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4184 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4185 4186 ;********** 4187 4188 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4189 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4190 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4191 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4192 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4193 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4194 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4195 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4196 ;FORMER VALUE PLUS THE CURRENT C(AC) 4197 011312 SN=SN+1 4198 000400 YY=YY/2 4199 777400 ZZ=ZZ+YY 4200 IFE YY, 4201 IFE ZZ, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0111 4202 032356 200 00 0 00 035410 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4203 032357 270 00 0 00 035366 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4204 ;POWER SHOULD RESULT IN C(AC)=0. 4205 032360 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4206 STOP^ 4207 032361 254 04 0 00 032362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4208 032362 324 00 0 00 032363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4209 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4210 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4211 4212 ;********** 4213 4214 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4215 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4216 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4217 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4218 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4219 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4220 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4221 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4222 ;FORMER VALUE PLUS THE CURRENT C(AC) 4223 011313 SN=SN+1 4224 000200 YY=YY/2 4225 777600 ZZ=ZZ+YY 4226 IFE YY, 4227 IFE ZZ, 4228 032363 200 00 0 00 035411 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4229 032364 270 00 0 00 035365 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4230 ;POWER SHOULD RESULT IN C(AC)=0. 4231 032365 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4232 STOP^ 4233 032366 254 04 0 00 032367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4234 032367 324 00 0 00 032370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4235 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4236 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4237 4238 ;********** 4239 4240 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4241 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4242 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4243 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4244 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4245 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4246 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4247 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4248 ;FORMER VALUE PLUS THE CURRENT C(AC) 4249 011314 SN=SN+1 4250 000100 YY=YY/2 4251 777700 ZZ=ZZ+YY 4252 IFE YY, 4253 IFE ZZ, 4254 032370 200 00 0 00 035412 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4255 032371 270 00 0 00 035364 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4256 ;POWER SHOULD RESULT IN C(AC)=0. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0112 4257 032372 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4258 STOP^ 4259 032373 254 04 0 00 032374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4260 032374 324 00 0 00 032375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4261 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4262 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4263 4264 ;********** 4265 4266 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4267 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4268 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4269 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4270 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4271 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4272 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4273 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4274 ;FORMER VALUE PLUS THE CURRENT C(AC) 4275 011315 SN=SN+1 4276 000040 YY=YY/2 4277 777740 ZZ=ZZ+YY 4278 IFE YY, 4279 IFE ZZ, 4280 032375 200 00 0 00 035413 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4281 032376 270 00 0 00 035363 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4282 ;POWER SHOULD RESULT IN C(AC)=0. 4283 032377 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4284 STOP^ 4285 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4286 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4287 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4288 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4289 4290 ;********** 4291 4292 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4293 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4294 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4295 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4296 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4297 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4298 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4299 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4300 ;FORMER VALUE PLUS THE CURRENT C(AC) 4301 011316 SN=SN+1 4302 000020 YY=YY/2 4303 777760 ZZ=ZZ+YY 4304 IFE YY, 4305 IFE ZZ, 4306 032402 200 00 0 00 035414 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4307 032403 270 00 0 00 035362 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4308 ;POWER SHOULD RESULT IN C(AC)=0. 4309 032404 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4310 STOP^ 4311 032405 254 04 0 00 032406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0113 4312 032406 324 00 0 00 032407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4314 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4315 4316 ;********** 4317 4318 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4319 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4320 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4321 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4322 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4323 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4324 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4325 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4326 ;FORMER VALUE PLUS THE CURRENT C(AC) 4327 011317 SN=SN+1 4328 000010 YY=YY/2 4329 777770 ZZ=ZZ+YY 4330 IFE YY, 4331 IFE ZZ, 4332 032407 200 00 0 00 035415 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4333 032410 270 00 0 00 035361 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4334 ;POWER SHOULD RESULT IN C(AC)=0. 4335 032411 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4336 STOP^ 4337 032412 254 04 0 00 032413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4338 032413 324 00 0 00 032414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4339 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4340 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4341 4342 ;********** 4343 4344 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4345 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4346 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4347 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4348 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4349 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4350 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4351 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4352 ;FORMER VALUE PLUS THE CURRENT C(AC) 4353 011320 SN=SN+1 4354 000004 YY=YY/2 4355 777774 ZZ=ZZ+YY 4356 IFE YY, 4357 IFE ZZ, 4358 032414 200 00 0 00 035416 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4359 032415 270 00 0 00 035360 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4360 ;POWER SHOULD RESULT IN C(AC)=0. 4361 032416 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4362 STOP^ 4363 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4364 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4365 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4366 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0114 4367 4368 ;********** 4369 4370 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4371 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4372 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4373 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4374 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4375 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4376 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4377 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4378 ;FORMER VALUE PLUS THE CURRENT C(AC) 4379 011321 SN=SN+1 4380 000002 YY=YY/2 4381 777776 ZZ=ZZ+YY 4382 IFE YY, 4383 IFE ZZ, 4384 032421 200 00 0 00 035417 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4385 032422 270 00 0 00 035357 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4386 ;POWER SHOULD RESULT IN C(AC)=0. 4387 032423 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4388 STOP^ 4389 032424 254 04 0 00 032425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4390 032425 324 00 0 00 032426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4391 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4392 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4393 4394 ;********** 4395 4396 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4397 ;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4398 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4399 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE 4400 ;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4401 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4402 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4403 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS 4404 ;FORMER VALUE PLUS THE CURRENT C(AC) 4405 011322 SN=SN+1 4406 000001 YY=YY/2 4407 777777 ZZ=ZZ+YY 4408 IFE YY, 4409 IFE ZZ, 4410 032426 200 00 0 00 035420 MOVE [XWD ZZ,0] ;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4411 032427 270 00 0 00 035356 ADD [XWD YY,0] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4412 ;POWER SHOULD RESULT IN C(AC)=0. 4413 032430 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4414 STOP^ 4415 032431 254 04 0 00 032432 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4416 032432 324 00 0 00 032433 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4417 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4418 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4419 4420 ;********** 4421 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0115 4422 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0116 4423 011400 SN=11400 4424 000000 ZZ=0 4425 000000 YY=0 4426 4427 A11400: REPEAT ^D18, 4428 <;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4429 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4430 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4431 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4432 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4433 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4434 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4435 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4436 ;FORMER VALUE PLUS THE CURRENT C(AC) 4437 SN=SN+1 4438 YY=YY/2 4439 ZZ=ZZ+YY 4440 IFE YY, 4441 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4442 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4443 ;POWER SHOULD RESULT IN C(AC)=0. 4444 ADD [YY] ;PASS TEST IF C(AC)=0 4445 SKIPE 4446 STOP 4447 4448 ;********** 4449 > 4450 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4451 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4452 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4453 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4454 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4455 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4456 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4457 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4458 ;FORMER VALUE PLUS THE CURRENT C(AC) 4459 011401 SN=SN+1 4460 000000 YY=YY/2 4461 000000 ZZ=ZZ+YY 4462 400000 IFE YY, 4463 400000 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4464 032433 200 00 0 00 035421 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4465 ;POWER SHOULD RESULT IN C(AC)=0. 4466 032434 270 00 0 00 035355 ADD [YY] ;PASS TEST IF C(AC)=0 4467 032435 332 00 0 00 000000 SKIPE 4468 STOP^ 4469 032436 254 04 0 00 032437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4470 032437 324 00 0 00 032440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4473 4474 ;********** 4475 4476 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4477 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0117 4478 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4479 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4480 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4481 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4482 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4483 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4484 ;FORMER VALUE PLUS THE CURRENT C(AC) 4485 011402 SN=SN+1 4486 200000 YY=YY/2 4487 600000 ZZ=ZZ+YY 4488 IFE YY, 4489 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4490 032440 200 00 0 00 035422 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4491 ;POWER SHOULD RESULT IN C(AC)=0. 4492 032441 270 00 0 00 035354 ADD [YY] ;PASS TEST IF C(AC)=0 4493 032442 332 00 0 00 000000 SKIPE 4494 STOP^ 4495 032443 254 04 0 00 032444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4496 032444 324 00 0 00 032445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4497 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4498 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4499 4500 ;********** 4501 4502 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4503 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4504 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4505 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4506 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4507 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4508 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4509 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4510 ;FORMER VALUE PLUS THE CURRENT C(AC) 4511 011403 SN=SN+1 4512 100000 YY=YY/2 4513 700000 ZZ=ZZ+YY 4514 IFE YY, 4515 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4516 032445 200 00 0 00 035423 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4517 ;POWER SHOULD RESULT IN C(AC)=0. 4518 032446 270 00 0 00 035353 ADD [YY] ;PASS TEST IF C(AC)=0 4519 032447 332 00 0 00 000000 SKIPE 4520 STOP^ 4521 032450 254 04 0 00 032451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4522 032451 324 00 0 00 032452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4523 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4524 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4525 4526 ;********** 4527 4528 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4529 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4530 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4531 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4532 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0118 4533 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4534 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4535 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4536 ;FORMER VALUE PLUS THE CURRENT C(AC) 4537 011404 SN=SN+1 4538 040000 YY=YY/2 4539 740000 ZZ=ZZ+YY 4540 IFE YY, 4541 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4542 032452 200 00 0 00 035424 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4543 ;POWER SHOULD RESULT IN C(AC)=0. 4544 032453 270 00 0 00 035352 ADD [YY] ;PASS TEST IF C(AC)=0 4545 032454 332 00 0 00 000000 SKIPE 4546 STOP^ 4547 032455 254 04 0 00 032456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4548 032456 324 00 0 00 032457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4551 4552 ;********** 4553 4554 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4555 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4556 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4557 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4558 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4559 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4560 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4561 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4562 ;FORMER VALUE PLUS THE CURRENT C(AC) 4563 011405 SN=SN+1 4564 020000 YY=YY/2 4565 760000 ZZ=ZZ+YY 4566 IFE YY, 4567 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4568 032457 200 00 0 00 035425 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4569 ;POWER SHOULD RESULT IN C(AC)=0. 4570 032460 270 00 0 00 035351 ADD [YY] ;PASS TEST IF C(AC)=0 4571 032461 332 00 0 00 000000 SKIPE 4572 STOP^ 4573 032462 254 04 0 00 032463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4574 032463 324 00 0 00 032464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4575 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4576 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4577 4578 ;********** 4579 4580 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4581 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4582 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4583 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4584 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4585 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4586 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4587 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-13 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0119 4588 ;FORMER VALUE PLUS THE CURRENT C(AC) 4589 011406 SN=SN+1 4590 010000 YY=YY/2 4591 770000 ZZ=ZZ+YY 4592 IFE YY, 4593 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4594 032464 200 00 0 00 035426 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4595 ;POWER SHOULD RESULT IN C(AC)=0. 4596 032465 270 00 0 00 035350 ADD [YY] ;PASS TEST IF C(AC)=0 4597 032466 332 00 0 00 000000 SKIPE 4598 STOP^ 4599 032467 254 04 0 00 032470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4600 032470 324 00 0 00 032471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4601 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4602 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4603 4604 ;********** 4605 4606 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4607 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4608 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4609 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4610 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4611 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4612 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4613 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4614 ;FORMER VALUE PLUS THE CURRENT C(AC) 4615 011407 SN=SN+1 4616 004000 YY=YY/2 4617 774000 ZZ=ZZ+YY 4618 IFE YY, 4619 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4620 032471 200 00 0 00 035427 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4621 ;POWER SHOULD RESULT IN C(AC)=0. 4622 032472 270 00 0 00 035347 ADD [YY] ;PASS TEST IF C(AC)=0 4623 032473 332 00 0 00 000000 SKIPE 4624 STOP^ 4625 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4626 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4627 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4628 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4629 4630 ;********** 4631 4632 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4633 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4634 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4635 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4636 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4637 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4638 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4639 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4640 ;FORMER VALUE PLUS THE CURRENT C(AC) 4641 011410 SN=SN+1 4642 002000 YY=YY/2 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-14 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0120 4643 776000 ZZ=ZZ+YY 4644 IFE YY, 4645 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4646 032476 200 00 0 00 035430 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4647 ;POWER SHOULD RESULT IN C(AC)=0. 4648 032477 270 00 0 00 035346 ADD [YY] ;PASS TEST IF C(AC)=0 4649 032500 332 00 0 00 000000 SKIPE 4650 STOP^ 4651 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4652 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4653 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4654 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4655 4656 ;********** 4657 4658 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4659 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4660 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4661 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4662 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4663 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4664 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4665 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4666 ;FORMER VALUE PLUS THE CURRENT C(AC) 4667 011411 SN=SN+1 4668 001000 YY=YY/2 4669 777000 ZZ=ZZ+YY 4670 IFE YY, 4671 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4672 032503 200 00 0 00 035431 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4673 ;POWER SHOULD RESULT IN C(AC)=0. 4674 032504 270 00 0 00 035345 ADD [YY] ;PASS TEST IF C(AC)=0 4675 032505 332 00 0 00 000000 SKIPE 4676 STOP^ 4677 032506 254 04 0 00 032507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4678 032507 324 00 0 00 032510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4680 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4681 4682 ;********** 4683 4684 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4685 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4686 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4687 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4688 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4689 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4690 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4691 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4692 ;FORMER VALUE PLUS THE CURRENT C(AC) 4693 011412 SN=SN+1 4694 000400 YY=YY/2 4695 777400 ZZ=ZZ+YY 4696 IFE YY, 4697 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-15 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0121 4698 032510 200 00 0 00 035432 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4699 ;POWER SHOULD RESULT IN C(AC)=0. 4700 032511 270 00 0 00 035344 ADD [YY] ;PASS TEST IF C(AC)=0 4701 032512 332 00 0 00 000000 SKIPE 4702 STOP^ 4703 032513 254 04 0 00 032514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4704 032514 324 00 0 00 032515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4705 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4706 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4707 4708 ;********** 4709 4710 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4711 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4712 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4713 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4714 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4715 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4716 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4717 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4718 ;FORMER VALUE PLUS THE CURRENT C(AC) 4719 011413 SN=SN+1 4720 000200 YY=YY/2 4721 777600 ZZ=ZZ+YY 4722 IFE YY, 4723 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4724 032515 200 00 0 00 035433 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4725 ;POWER SHOULD RESULT IN C(AC)=0. 4726 032516 270 00 0 00 035343 ADD [YY] ;PASS TEST IF C(AC)=0 4727 032517 332 00 0 00 000000 SKIPE 4728 STOP^ 4729 032520 254 04 0 00 032521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4730 032521 324 00 0 00 032522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4732 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4733 4734 ;********** 4735 4736 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4737 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4738 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4739 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4740 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4741 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4742 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4743 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4744 ;FORMER VALUE PLUS THE CURRENT C(AC) 4745 011414 SN=SN+1 4746 000100 YY=YY/2 4747 777700 ZZ=ZZ+YY 4748 IFE YY, 4749 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4750 032522 200 00 0 00 035434 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4751 ;POWER SHOULD RESULT IN C(AC)=0. 4752 032523 270 00 0 00 035342 ADD [YY] ;PASS TEST IF C(AC)=0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-16 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0122 4753 032524 332 00 0 00 000000 SKIPE 4754 STOP^ 4755 032525 254 04 0 00 032526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4756 032526 324 00 0 00 032527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4758 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4759 4760 ;********** 4761 4762 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4763 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4764 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4765 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4766 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4767 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4768 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4769 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4770 ;FORMER VALUE PLUS THE CURRENT C(AC) 4771 011415 SN=SN+1 4772 000040 YY=YY/2 4773 777740 ZZ=ZZ+YY 4774 IFE YY, 4775 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4776 032527 200 00 0 00 035435 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4777 ;POWER SHOULD RESULT IN C(AC)=0. 4778 032530 270 00 0 00 035341 ADD [YY] ;PASS TEST IF C(AC)=0 4779 032531 332 00 0 00 000000 SKIPE 4780 STOP^ 4781 032532 254 04 0 00 032533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4782 032533 324 00 0 00 032534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4783 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4784 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4785 4786 ;********** 4787 4788 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4789 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4790 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4791 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4792 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4793 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4794 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4795 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4796 ;FORMER VALUE PLUS THE CURRENT C(AC) 4797 011416 SN=SN+1 4798 000020 YY=YY/2 4799 777760 ZZ=ZZ+YY 4800 IFE YY, 4801 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4802 032534 200 00 0 00 035436 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4803 ;POWER SHOULD RESULT IN C(AC)=0. 4804 032535 270 00 0 00 035340 ADD [YY] ;PASS TEST IF C(AC)=0 4805 032536 332 00 0 00 000000 SKIPE 4806 STOP^ 4807 032537 254 04 0 00 032540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-17 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0123 4808 032540 324 00 0 00 032541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4809 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4810 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4811 4812 ;********** 4813 4814 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4815 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4816 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4817 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4818 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4819 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4820 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4821 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4822 ;FORMER VALUE PLUS THE CURRENT C(AC) 4823 011417 SN=SN+1 4824 000010 YY=YY/2 4825 777770 ZZ=ZZ+YY 4826 IFE YY, 4827 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4828 032541 200 00 0 00 035437 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4829 ;POWER SHOULD RESULT IN C(AC)=0. 4830 032542 270 00 0 00 035337 ADD [YY] ;PASS TEST IF C(AC)=0 4831 032543 332 00 0 00 000000 SKIPE 4832 STOP^ 4833 032544 254 04 0 00 032545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4834 032545 324 00 0 00 032546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4835 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4836 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4837 4838 ;********** 4839 4840 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4841 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4842 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4843 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4844 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4845 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4846 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4847 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4848 ;FORMER VALUE PLUS THE CURRENT C(AC) 4849 011420 SN=SN+1 4850 000004 YY=YY/2 4851 777774 ZZ=ZZ+YY 4852 IFE YY, 4853 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4854 032546 200 00 0 00 035440 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4855 ;POWER SHOULD RESULT IN C(AC)=0. 4856 032547 270 00 0 00 035336 ADD [YY] ;PASS TEST IF C(AC)=0 4857 032550 332 00 0 00 000000 SKIPE 4858 STOP^ 4859 032551 254 04 0 00 032552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4860 032552 324 00 0 00 032553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4861 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4862 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 8-18 DSKAB1 MAC 28-Mar-78 12:29 TEST OF THE ADD INSTRUCTION SEQ 0124 4863 4864 ;********** 4865 4866 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4867 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4868 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4869 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4870 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4871 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4872 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4873 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4874 ;FORMER VALUE PLUS THE CURRENT C(AC) 4875 011421 SN=SN+1 4876 000002 YY=YY/2 4877 777776 ZZ=ZZ+YY 4878 IFE YY, 4879 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4880 032553 200 00 0 00 035441 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4881 ;POWER SHOULD RESULT IN C(AC)=0. 4882 032554 270 00 0 00 035335 ADD [YY] ;PASS TEST IF C(AC)=0 4883 032555 332 00 0 00 000000 SKIPE 4884 STOP^ 4885 032556 254 04 0 00 032557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4886 032557 324 00 0 00 032560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4887 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4888 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4889 4890 ;********** 4891 4892 ;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE 4893 ;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER 4894 ;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST 4895 ;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE 4896 ;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE 4897 ;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN, 4898 ;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER 4899 ;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS 4900 ;FORMER VALUE PLUS THE CURRENT C(AC) 4901 011422 SN=SN+1 4902 000001 YY=YY/2 4903 777777 ZZ=ZZ+YY 4904 IFE YY, 4905 IFE ZZ, ;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0 4906 032560 200 00 0 00 035442 MOVE [XWD -1,ZZ] ;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH 4907 ;POWER SHOULD RESULT IN C(AC)=0. 4908 032561 270 00 0 00 035334 ADD [YY] ;PASS TEST IF C(AC)=0 4909 032562 332 00 0 00 000000 SKIPE 4910 STOP^ 4911 032563 254 04 0 00 032564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4912 032564 324 00 0 00 032565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4913 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4914 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4915 4916 ;********** 4917 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 9 DSKAB1 MAC 28-Mar-78 12:29 SPECIAL KI10 FOUR BIT ADDER TEST SEQ 0125 4918 SUBTTL SPECIAL KI10 FOUR BIT ADDER TEST 4919 4920 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 4921 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 4922 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 33 TO BIT 32. 4923 4924 032565 200 00 0 00 035443 A13500: MOVE [-1,,-5] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 33 4925 032566 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 33 TO BIT 32 4926 032567 444 00 0 00 035440 EQV [-1,,-4] ;RESULT IN AC=ALL ONES 4927 032570 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 4928 032571 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4929 STOP^ 4930 032572 254 04 0 00 032573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4931 032573 324 00 0 00 032574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4932 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4933 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4934 4935 ;********** 4936 4937 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 4938 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 4939 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 29 TO BIT 28. 4940 4941 032574 200 00 0 00 035444 A13600: MOVE [-1,,-101] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 29 4942 032575 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 29 TO BIT 28 4943 032576 444 00 0 00 035434 EQV [-1,,-100] ;RESULT IN AC=ALL ONES 4944 032577 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 4945 032600 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4946 STOP^ 4947 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4948 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4950 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4951 4952 ;********** 4953 4954 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 4955 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 4956 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 25 TO BIT 24. 4957 4958 032603 200 00 0 00 035445 A13700: MOVE [-1,,-2001] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 25 4959 032604 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 25 TO BIT 24 4960 032605 444 00 0 00 035430 EQV [-1,,-2000] ;RESULT IN AC=ALL ONES 4961 032606 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 4962 032607 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4963 STOP^ 4964 032610 254 04 0 00 032611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4965 032611 324 00 0 00 032612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4966 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4967 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4968 4969 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 10 DSKAB1 MAC 28-Mar-78 12:29 SPECIAL KI10 FOUR BIT ADDER TEST SEQ 0126 4970 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 4971 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 4972 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 21 TO BIT 20. 4973 4974 032612 200 00 0 00 035446 A14000: MOVE [-1,,-40001] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 21 4975 032613 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 21 TO BIT 20 4976 032614 444 00 0 00 035424 EQV [-1,,-40000] ;RESULT IN AC=ALL ONES 4977 032615 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 4978 032616 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4979 STOP^ 4980 032617 254 04 0 00 032620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4981 032620 324 00 0 00 032621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4983 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4984 4985 ;********** 4986 4987 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 4988 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 4989 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 18 TO BIT 17. 4990 4991 032621 200 00 0 00 035447 A14100: MOVE [-1,,-400001] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 18 4992 032622 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 18 TO BIT 17 4993 032623 444 00 0 00 035421 EQV [-1,,400000] ;RESULT IN AC=ALL ONES 4994 032624 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 4995 032625 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 4996 STOP^ 4997 032626 254 04 0 00 032627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4998 032627 324 00 0 00 032630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5001 5002 ;********** 5003 5004 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5005 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5006 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 14 TO BIT 13. 5007 5008 032630 200 00 0 00 035450 A14200: MOVE [-11,,-1] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 14 5009 032631 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 14 TO BIT 13 5010 032632 444 00 0 00 035415 EQV [-10,,0] ;RESULT IN AC=ALL ONES 5011 032633 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 5012 032634 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5013 STOP^ 5014 032635 254 04 0 00 032636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5015 032636 324 00 0 00 032637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5018 5019 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 11 DSKAB1 MAC 28-Mar-78 12:29 SPECIAL KI10 FOUR BIT ADDER TEST SEQ 0127 5020 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5021 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5022 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 10 TO BIT 9. 5023 5024 032637 200 00 0 00 035451 A14300: MOVE [-201,,-1] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 10 5025 032640 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 10 TO BIT 9 5026 032641 444 00 0 00 035411 EQV [-200,,0] ;RESULT IN AC=ALL ONES 5027 032642 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 5028 032643 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5029 STOP^ 5030 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5031 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5032 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5033 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5034 5035 ;********** 5036 5037 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5038 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5039 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 6 TO BIT 5. 5040 5041 032646 200 00 0 00 035452 A14400: MOVE [-4001,,-1] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 6 5042 032647 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 6 TO BIT 5 5043 032650 444 00 0 00 035405 EQV [-4000,,0] ;RESULT IN AC=ALL ONES 5044 032651 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 5045 032652 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5046 STOP^ 5047 032653 254 04 0 00 032654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5048 032654 324 00 0 00 032655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5049 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5050 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5051 5052 ;********** 5053 5054 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5055 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5056 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 2 TO BIT 1. 5057 5058 032655 200 00 0 00 035453 A14500: MOVE [-100001,,-1] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 2 5059 032656 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 2 TO BIT 1 5060 032657 444 00 0 00 035401 EQV [-100000,,0] ;RESULT IN AC=ALL ONES 5061 032660 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 5062 032661 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5063 STOP^ 5064 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5065 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5067 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5068 5069 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 12 DSKAB1 MAC 28-Mar-78 12:29 SPECIAL KI10 FOUR BIT ADDER TEST SEQ 0128 5070 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5071 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5072 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 1 TO BIT 0. 5073 5074 032664 200 00 0 00 035454 A14600: MOVE [-200001,,-1] ;PRESET AC WITH ALL ONES EXCEPT FOR BIT 1 5075 032665 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT 1 TO BIT 0 5076 032666 444 00 0 00 035400 EQV [600000,,0] ;RESULT IN AC=ALL ONES 5077 032667 444 00 0 00 035330 EQV [0] ;RESULT IN AC=0 5078 032670 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5079 STOP^ 5080 032671 254 04 0 00 032672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5081 032672 324 00 0 00 032673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5084 5085 ;********** 5086 5087 ;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR 5088 ;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER. 5089 ;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT -1TO BIT 35. 5090 5091 032673 200 00 0 00 035442 A14700: MOVE [-1,,-1] ;PRESET AC WITH ALL ONES 5092 032674 270 00 0 00 035334 ADD [1] ;*ADD SHOULD NOT CAUSE CARRY FROM BIT -1 TO BIT 35 5093 032675 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5094 STOP^ 5095 032676 254 04 0 00 032677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5096 032677 324 00 0 00 032700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5097 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5098 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5099 5100 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0129 5101 SUBTTL TEST OF SUB AND COMPARE INSTRUCTIONS 5102 5103 ;THIS TEST VERIFIES THAT IF A NON ZERO POSITIVE NUMBER IN E IS 5104 ;SUBTRACTED FROM THE AC WHEN C(AC)=0, THE RESULT IN THE AC 5105 ;IS NEGATIVE 5106 5107 032700 200 00 0 00 035330 A11500: MOVE [0] ;PRESET AC TO ZERO 5108 032701 274 00 0 00 035455 SUB [XWD 0,-1] ;*SUB OF POSITIVE NONZERO NUMBER FROM AC OF ALL ZEROS 5109 ;SHOULD RESULT IN C(AC) NEGATIVE 5110 032702 331 00 0 00 000000 SKIPL ;PASS TEST IF C(AC) IS NEGATIVE 5111 STOP^ 5112 032703 254 04 0 00 032704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5113 032704 324 00 0 00 032705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5114 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5115 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5116 5117 ;AD AR- EN D [ADAM], F CYC ACT ENB [F1], 5118 ;IR SUBX[IR1], IR ADSUB[IR1] 5119 5120 ;********** 5121 5122 ;THIS TEST VERIFIES THAT IF A WORD OF ALL ZEROS IS 5123 ;SUBTRACTED FROM AN AC OF ALL ZEROS, THE RESULT 5124 ;IS AN AC OF ZEROS. 5125 5126 032705 200 00 0 00 035330 A11600: MOVE [0] ;PRESET AC TO ZERO 5127 032706 274 00 0 00 035330 SUB [0] ;*SUB OF 0 FROM 0 SHOULD RESULT IN C(AC)=0 5128 032707 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5129 STOP^ 5130 032710 254 04 0 00 032711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5131 032711 324 00 0 00 032712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5133 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5134 ;AD CRY 36[ADCR], F CYC ACT EN D[F1], IF SUBX [IR1] 5135 5136 ;********** 5137 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0130 5138 011700 SN=11700 5139 000000 ZZ=0 5140 5141 A11700: REPEAT ^D36, 5142 <;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5143 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5144 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5145 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5146 SN=SN+1 5147 ZZ=ZZ+ZZ 5148 IFE ZZ, 5149 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5150 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5151 SKIPE ;PASS TEST IF C(AC)=0 5152 STOP 5153 5154 ;********** 5155 > 5156 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5157 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5158 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5159 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5160 011701 SN=SN+1 5161 000000 ZZ=ZZ+ZZ 5162 000001 IFE ZZ, 5163 032712 200 00 0 00 035334 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5164 032713 274 00 0 00 035334 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5165 032714 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5166 STOP^ 5167 032715 254 04 0 00 032716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5168 032716 324 00 0 00 032717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5171 5172 ;********** 5173 5174 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5175 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5176 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5177 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5178 011702 SN=SN+1 5179 000002 ZZ=ZZ+ZZ 5180 IFE ZZ, 5181 032717 200 00 0 00 035335 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5182 032720 274 00 0 00 035335 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5183 032721 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5184 STOP^ 5185 032722 254 04 0 00 032723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5186 032723 324 00 0 00 032724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5187 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5188 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5189 5190 ;********** 5191 5192 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0131 5193 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5194 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5195 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5196 011703 SN=SN+1 5197 000004 ZZ=ZZ+ZZ 5198 IFE ZZ, 5199 032724 200 00 0 00 035336 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5200 032725 274 00 0 00 035336 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5201 032726 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5202 STOP^ 5203 032727 254 04 0 00 032730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5204 032730 324 00 0 00 032731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5205 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5206 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5207 5208 ;********** 5209 5210 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5211 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5212 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5213 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5214 011704 SN=SN+1 5215 000010 ZZ=ZZ+ZZ 5216 IFE ZZ, 5217 032731 200 00 0 00 035337 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5218 032732 274 00 0 00 035337 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5219 032733 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5220 STOP^ 5221 032734 254 04 0 00 032735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5222 032735 324 00 0 00 032736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5223 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5224 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5225 5226 ;********** 5227 5228 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5229 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5230 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5231 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5232 011705 SN=SN+1 5233 000020 ZZ=ZZ+ZZ 5234 IFE ZZ, 5235 032736 200 00 0 00 035340 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5236 032737 274 00 0 00 035340 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5237 032740 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5238 STOP^ 5239 032741 254 04 0 00 032742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5240 032742 324 00 0 00 032743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5241 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5242 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5243 5244 ;********** 5245 5246 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5247 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0132 5248 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5249 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5250 011706 SN=SN+1 5251 000040 ZZ=ZZ+ZZ 5252 IFE ZZ, 5253 032743 200 00 0 00 035341 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5254 032744 274 00 0 00 035341 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5255 032745 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5256 STOP^ 5257 032746 254 04 0 00 032747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5258 032747 324 00 0 00 032750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5261 5262 ;********** 5263 5264 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5265 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5266 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5267 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5268 011707 SN=SN+1 5269 000100 ZZ=ZZ+ZZ 5270 IFE ZZ, 5271 032750 200 00 0 00 035342 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5272 032751 274 00 0 00 035342 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5273 032752 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5274 STOP^ 5275 032753 254 04 0 00 032754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5276 032754 324 00 0 00 032755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5278 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5279 5280 ;********** 5281 5282 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5283 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5284 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5285 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5286 011710 SN=SN+1 5287 000200 ZZ=ZZ+ZZ 5288 IFE ZZ, 5289 032755 200 00 0 00 035343 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5290 032756 274 00 0 00 035343 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5291 032757 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5292 STOP^ 5293 032760 254 04 0 00 032761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5294 032761 324 00 0 00 032762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5297 5298 ;********** 5299 5300 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5301 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5302 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0133 5303 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5304 011711 SN=SN+1 5305 000400 ZZ=ZZ+ZZ 5306 IFE ZZ, 5307 032762 200 00 0 00 035344 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5308 032763 274 00 0 00 035344 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5309 032764 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5310 STOP^ 5311 032765 254 04 0 00 032766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5312 032766 324 00 0 00 032767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5314 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5315 5316 ;********** 5317 5318 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5319 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5320 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5321 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5322 011712 SN=SN+1 5323 001000 ZZ=ZZ+ZZ 5324 IFE ZZ, 5325 032767 200 00 0 00 035345 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5326 032770 274 00 0 00 035345 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5327 032771 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5328 STOP^ 5329 032772 254 04 0 00 032773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5330 032773 324 00 0 00 032774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5331 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5332 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5333 5334 ;********** 5335 5336 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5337 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5338 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5339 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5340 011713 SN=SN+1 5341 002000 ZZ=ZZ+ZZ 5342 IFE ZZ, 5343 032774 200 00 0 00 035346 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5344 032775 274 00 0 00 035346 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5345 032776 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5346 STOP^ 5347 032777 254 04 0 00 033000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5348 033000 324 00 0 00 033001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5349 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5350 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5351 5352 ;********** 5353 5354 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5355 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5356 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5357 ;TIMES IN ORDER TO TEST ALL 36 BITS. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0134 5358 011714 SN=SN+1 5359 004000 ZZ=ZZ+ZZ 5360 IFE ZZ, 5361 033001 200 00 0 00 035347 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5362 033002 274 00 0 00 035347 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5363 033003 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5364 STOP^ 5365 033004 254 04 0 00 033005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5366 033005 324 00 0 00 033006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5367 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5368 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5369 5370 ;********** 5371 5372 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5373 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5374 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5375 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5376 011715 SN=SN+1 5377 010000 ZZ=ZZ+ZZ 5378 IFE ZZ, 5379 033006 200 00 0 00 035350 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5380 033007 274 00 0 00 035350 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5381 033010 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5382 STOP^ 5383 033011 254 04 0 00 033012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5384 033012 324 00 0 00 033013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5385 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5386 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5387 5388 ;********** 5389 5390 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5391 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5392 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5393 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5394 011716 SN=SN+1 5395 020000 ZZ=ZZ+ZZ 5396 IFE ZZ, 5397 033013 200 00 0 00 035351 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5398 033014 274 00 0 00 035351 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5399 033015 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5400 STOP^ 5401 033016 254 04 0 00 033017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5402 033017 324 00 0 00 033020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5403 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5404 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5405 5406 ;********** 5407 5408 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5409 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5410 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5411 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5412 011717 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0135 5413 040000 ZZ=ZZ+ZZ 5414 IFE ZZ, 5415 033020 200 00 0 00 035352 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5416 033021 274 00 0 00 035352 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5417 033022 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5418 STOP^ 5419 033023 254 04 0 00 033024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5420 033024 324 00 0 00 033025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5421 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5422 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5423 5424 ;********** 5425 5426 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5427 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5428 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5429 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5430 011720 SN=SN+1 5431 100000 ZZ=ZZ+ZZ 5432 IFE ZZ, 5433 033025 200 00 0 00 035353 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5434 033026 274 00 0 00 035353 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5435 033027 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5436 STOP^ 5437 033030 254 04 0 00 033031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5438 033031 324 00 0 00 033032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5439 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5440 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5441 5442 ;********** 5443 5444 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5445 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5446 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5447 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5448 011721 SN=SN+1 5449 200000 ZZ=ZZ+ZZ 5450 IFE ZZ, 5451 033032 200 00 0 00 035354 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5452 033033 274 00 0 00 035354 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5453 033034 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5454 STOP^ 5455 033035 254 04 0 00 033036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5456 033036 324 00 0 00 033037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5458 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5459 5460 ;********** 5461 5462 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5463 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5464 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5465 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5466 011722 SN=SN+1 5467 400000 ZZ=ZZ+ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0136 5468 IFE ZZ, 5469 033037 200 00 0 00 035355 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5470 033040 274 00 0 00 035355 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5471 033041 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5472 STOP^ 5473 033042 254 04 0 00 033043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5474 033043 324 00 0 00 033044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5475 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5476 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5477 5478 ;********** 5479 5480 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5481 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5482 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5483 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5484 011723 SN=SN+1 5485 000001 000000 ZZ=ZZ+ZZ 5486 IFE ZZ, 5487 033044 200 00 0 00 035356 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5488 033045 274 00 0 00 035356 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5489 033046 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5490 STOP^ 5491 033047 254 04 0 00 033050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5492 033050 324 00 0 00 033051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5493 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5494 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5495 5496 ;********** 5497 5498 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5499 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5500 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5501 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5502 011724 SN=SN+1 5503 000002 000000 ZZ=ZZ+ZZ 5504 IFE ZZ, 5505 033051 200 00 0 00 035357 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5506 033052 274 00 0 00 035357 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5507 033053 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5508 STOP^ 5509 033054 254 04 0 00 033055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5510 033055 324 00 0 00 033056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5513 5514 ;********** 5515 5516 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5517 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5518 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5519 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5520 011725 SN=SN+1 5521 000004 000000 ZZ=ZZ+ZZ 5522 IFE ZZ, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0137 5523 033056 200 00 0 00 035360 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5524 033057 274 00 0 00 035360 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5525 033060 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5526 STOP^ 5527 033061 254 04 0 00 033062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5528 033062 324 00 0 00 033063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5529 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5530 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5531 5532 ;********** 5533 5534 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5535 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5536 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5537 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5538 011726 SN=SN+1 5539 000010 000000 ZZ=ZZ+ZZ 5540 IFE ZZ, 5541 033063 200 00 0 00 035361 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5542 033064 274 00 0 00 035361 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5543 033065 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5544 STOP^ 5545 033066 254 04 0 00 033067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5546 033067 324 00 0 00 033070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5548 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5549 5550 ;********** 5551 5552 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5553 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5554 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5555 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5556 011727 SN=SN+1 5557 000020 000000 ZZ=ZZ+ZZ 5558 IFE ZZ, 5559 033070 200 00 0 00 035362 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5560 033071 274 00 0 00 035362 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5561 033072 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5562 STOP^ 5563 033073 254 04 0 00 033074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5564 033074 324 00 0 00 033075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5565 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5566 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5567 5568 ;********** 5569 5570 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5571 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5572 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5573 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5574 011730 SN=SN+1 5575 000040 000000 ZZ=ZZ+ZZ 5576 IFE ZZ, 5577 033075 200 00 0 00 035363 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0138 5578 033076 274 00 0 00 035363 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5579 033077 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5580 STOP^ 5581 033100 254 04 0 00 033101 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5582 033101 324 00 0 00 033102 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5583 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5584 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5585 5586 ;********** 5587 5588 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5589 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5590 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5591 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5592 011731 SN=SN+1 5593 000100 000000 ZZ=ZZ+ZZ 5594 IFE ZZ, 5595 033102 200 00 0 00 035364 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5596 033103 274 00 0 00 035364 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5597 033104 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5598 STOP^ 5599 033105 254 04 0 00 033106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5600 033106 324 00 0 00 033107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5601 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5602 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5603 5604 ;********** 5605 5606 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5607 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5608 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5609 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5610 011732 SN=SN+1 5611 000200 000000 ZZ=ZZ+ZZ 5612 IFE ZZ, 5613 033107 200 00 0 00 035365 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5614 033110 274 00 0 00 035365 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5615 033111 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5616 STOP^ 5617 033112 254 04 0 00 033113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5618 033113 324 00 0 00 033114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5619 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5620 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5621 5622 ;********** 5623 5624 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5625 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5626 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5627 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5628 011733 SN=SN+1 5629 000400 000000 ZZ=ZZ+ZZ 5630 IFE ZZ, 5631 033114 200 00 0 00 035366 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5632 033115 274 00 0 00 035366 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0139 5633 033116 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5634 STOP^ 5635 033117 254 04 0 00 033120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5636 033120 324 00 0 00 033121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5638 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5639 5640 ;********** 5641 5642 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5643 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5644 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5645 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5646 011734 SN=SN+1 5647 001000 000000 ZZ=ZZ+ZZ 5648 IFE ZZ, 5649 033121 200 00 0 00 035367 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5650 033122 274 00 0 00 035367 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5651 033123 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5652 STOP^ 5653 033124 254 04 0 00 033125 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5654 033125 324 00 0 00 033126 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5656 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5657 5658 ;********** 5659 5660 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5661 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5662 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5663 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5664 011735 SN=SN+1 5665 002000 000000 ZZ=ZZ+ZZ 5666 IFE ZZ, 5667 033126 200 00 0 00 035370 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5668 033127 274 00 0 00 035370 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5669 033130 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5670 STOP^ 5671 033131 254 04 0 00 033132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5672 033132 324 00 0 00 033133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5673 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5674 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5675 5676 ;********** 5677 5678 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5679 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5680 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5681 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5682 011736 SN=SN+1 5683 004000 000000 ZZ=ZZ+ZZ 5684 IFE ZZ, 5685 033133 200 00 0 00 035371 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5686 033134 274 00 0 00 035371 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5687 033135 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0140 5688 STOP^ 5689 033136 254 04 0 00 033137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5690 033137 324 00 0 00 033140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5691 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5692 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5693 5694 ;********** 5695 5696 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5697 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5698 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5699 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5700 011737 SN=SN+1 5701 010000 000000 ZZ=ZZ+ZZ 5702 IFE ZZ, 5703 033140 200 00 0 00 035372 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5704 033141 274 00 0 00 035372 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5705 033142 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5706 STOP^ 5707 033143 254 04 0 00 033144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5708 033144 324 00 0 00 033145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5711 5712 ;********** 5713 5714 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5715 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5716 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5717 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5718 011740 SN=SN+1 5719 020000 000000 ZZ=ZZ+ZZ 5720 IFE ZZ, 5721 033145 200 00 0 00 035373 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5722 033146 274 00 0 00 035373 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5723 033147 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5724 STOP^ 5725 033150 254 04 0 00 033151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5726 033151 324 00 0 00 033152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5727 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5728 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5729 5730 ;********** 5731 5732 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5733 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5734 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5735 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5736 011741 SN=SN+1 5737 040000 000000 ZZ=ZZ+ZZ 5738 IFE ZZ, 5739 033152 200 00 0 00 035374 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5740 033153 274 00 0 00 035374 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5741 033154 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5742 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0141 5743 033155 254 04 0 00 033156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5744 033156 324 00 0 00 033157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5745 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5746 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5747 5748 ;********** 5749 5750 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5751 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5752 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5753 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5754 011742 SN=SN+1 5755 100000 000000 ZZ=ZZ+ZZ 5756 IFE ZZ, 5757 033157 200 00 0 00 035375 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5758 033160 274 00 0 00 035375 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5759 033161 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5760 STOP^ 5761 033162 254 04 0 00 033163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5762 033163 324 00 0 00 033164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5763 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5764 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5765 5766 ;********** 5767 5768 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5769 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5770 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5771 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5772 011743 SN=SN+1 5773 200000 000000 ZZ=ZZ+ZZ 5774 IFE ZZ, 5775 033164 200 00 0 00 035376 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5776 033165 274 00 0 00 035376 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5777 033166 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5778 STOP^ 5779 033167 254 04 0 00 033170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5780 033170 324 00 0 00 033171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5781 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5782 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5783 5784 ;********** 5785 5786 ;THIS TEST VERIFIES THAT IF A RIPPLED ONE 5787 ;IS SUBTRACTED FROM ITSELF, THE RESULT IS 5788 ;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36 5789 ;TIMES IN ORDER TO TEST ALL 36 BITS. 5790 011744 SN=SN+1 5791 400000 000000 ZZ=ZZ+ZZ 5792 IFE ZZ, 5793 033171 200 00 0 00 035377 MOVE [ZZ] ;LOAD AC WITH A FLOATING ONE 5794 033172 274 00 0 00 035377 SUB [ZZ] ;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0 5795 033173 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5796 STOP^ 5797 033174 254 04 0 00 033175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-13 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0142 5798 033175 324 00 0 00 033176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5799 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5800 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5801 5802 ;********** 5803 5804 PAGE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 13-14 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0143 5805 ;THIS TEST VERIFIES THAT IF A WORD OF ALL 5806 ;ONES IS SUBTRACTED FROM ITSELF, THE RESULT 5807 ;IN THE AC IS ZERO. 5808 5809 033176 200 00 0 00 035442 A12000: MOVE [-1] ;PRESET AC TO ALL ONES 5810 033177 274 00 0 00 035442 SUB [-1] ;*SUB OF -1 FROM ITSELF SHOULD RESULT IN C(AC)=0 5811 033200 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 5812 STOP^ 5813 033201 254 04 0 00 033202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5814 033202 324 00 0 00 033203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5815 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5816 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5817 5818 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 14 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0144 5819 ;THIS TEST VERIFIES THAT CAMA ALWAYS SKIPS THE 5820 ;NEXT INSTRUCTION INDEPENDENT OF THE DATA WITH AC 5821 ;AND E. THIS TEST FAILS IF CAMA DOES NOT SKIP ALWAYS. 5822 5823 033203 200 00 0 00 035330 A12100: MOVE [0] ;PRESET AC, E TO ZERO 5824 033204 314 00 0 00 000000 CAMA ;*CAMA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION, 5825 ;OTHERWISE THIS TEST FAILS 5826 STOP^ 5827 033205 254 04 0 00 033206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5828 033206 324 00 0 00 033207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5829 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5830 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5831 5832 ;ET0 [E], ET0 EN[E], IR CAXX[IR3], AD CRY 3C[ADCR], 5833 ;FCYC ACT EN D [ADCR], AD CRY 36 F/F'S [ADCR], 5834 ;PC CLOCK EN [PCC], ET0 C F/F[E], IR CAXX[IR3], 5835 ;ADZ COND P[ADZ] AND ADZ COND Z[ADZ] 5836 5837 ;********** 5838 5839 ;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE. 5840 ;IT SKIPS THE NEXT INSTRUCTION IF AND ONLY 5841 ;IF C(AC)=C(E). IN THIS TEST AC=E=0 AND 5842 ;C(AC)=C(E)=0. HENCE, CAME MUST 5843 ;SKIP THE NEXT INSTRUCTION 5844 ;IN THIS TEST 5845 5846 033207 200 00 0 00 035330 A12200: MOVE [0] ;PRESET AC, E TO ZERO 5847 033210 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP SINCE E=AC 5848 STOP^ 5849 033211 254 04 0 00 033212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5850 033212 324 00 0 00 033213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5851 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5852 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5853 5854 ;AD FM + EN [ADFP], F CXC ACT ENC[F1], IRCAXX[IR3] 5855 5856 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 15 DSKAB1 MAC 28-Mar-78 12:29 TEST OF SUB AND COMPARE INSTRUCTIONS SEQ 0145 5857 ;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE 5858 ;IT SKIPS THE NEXT INSTRUCTION OF AND ONLY IF 5859 ;C(AC)=C(E). IN THIS TEST C(AC)=C(E)=0; 5860 ;BUT, E IS NOT WITHIN THE AC RANGE. 5861 ;HENCE, CAME MUST SKIP 5862 ;THE NEXT INSTRUCTION IN THIS TEST. 5863 5864 033213 200 00 0 00 035330 A12300: MOVE [0] ;*CAME SHOULD SKIP WHEN C(AC)=C(E)=0 5865 033214 312 00 0 00 035330 CAME [0] 5866 STOP^ 5867 033215 254 04 0 00 033216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5868 033216 324 00 0 00 033217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5870 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5871 5872 ;CAMX: FCE[F1], IR CAMX[IR1] 5873 5874 ;********** 5875 5876 ;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE. 5877 ;IT SKIPS THE NEXT INSTRUCTION IF AND ONLY IF 5878 ;C(AC)=C(E). IN THIS TEST C(AC)=0 AND 5879 ;C(E)=-1. HENCE, CAME SHOULD NOT 5880 ;SKIP THE NEXT INSTRUCTION IN THIS TEST. 5881 5882 033217 200 00 0 00 035330 A12400: MOVE [0] ;PRESET AC TO ZERO 5883 033220 312 00 0 00 035442 CAME [-1] ;*CAME SHOULD NOT SKIP BECAUSE C(AC)=0 ANDC(E)=- 5884 033221 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAME PASSES TEST 5885 STOP^ 5886 033222 254 04 0 00 033223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5887 033223 324 00 0 00 033224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5888 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5889 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5890 5891 ;AD AR- EN [ADAM], IR CAXX [IR3], F CYC ACT EN B [F1], 5892 ;AD AR- F/F'S [ADAM], AD ADD [ADC1], AD FM + FETCH EN A [ADFP], 5893 ;F CYC ACT EN A [F1], AD ADD EN C [ADC1], AD ADD F/F'S [ADC1] 5894 5895 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 16 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0146 5896 SUBTTL TEST OF COMPARE (CAMX) INSTRUCTIONS 5897 5898 ;********** 5899 5900 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 5901 ;ONLY WHEN C(AC) IS LESS THAN C(E). 5902 ;IN THIS TEST, C(AC)=-1 AND C(E)=0; HENCE, CAML SHOULD SKIP. OTHERWISE,THE 5903 ;PROGRAM HALTS. 5904 5905 033224 200 00 0 00 035442 B100: MOVE [-1] ;PRELOAD AC WITH -1 5906 033225 311 00 0 00 035330 CAML [0] ;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E) 5907 STOP^ 5908 033226 254 04 0 00 033227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5909 033227 324 00 0 00 033230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5910 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5911 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5912 5913 ;***** FAILURE ANALYSIS ***** 5914 ;C(AC0) C(AC1) FAILING SIGNAL 5915 5916 ; FC: AB PC EN 5917 ; ET0: COND Q: PC CLK EN 5918 5919 ;********** 5920 5921 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 5922 ;ONLY WHEN C(AC) IS LESS THAN C(E). 5923 ;IN THIS CASE, C(AC)=0 AND C(E)=-1; HENCE, CAML SHOULD NOT SKIP. OTHERWISE, 5924 ;THE PROGRAM HALTS. 5925 5926 033230 200 00 0 00 035330 B200: MOVE [0] ;PRELOAD AC WITH 0 5927 033231 311 00 0 00 035442 CAML [-1] ;*CAML SHOULD NOT SKIP BECAUSE 5928 ;C(AC) IS GREATER THAN C(E) 5929 033232 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAML PASSES 5930 STOP^ 5931 033233 254 04 0 00 033234 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5932 033234 324 00 0 00 033235 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5933 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5934 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5935 5936 ;***** FAILURE ANALYSIS ***** 5937 ;C(AC0) C(AC1) FAILING SIGNAL 5938 5939 ; SW: FCE 5940 ; FC: PC CHANGE 5941 5942 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 17 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0147 5943 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 5944 ;ONLY WHEN C(AC) IS LESS THAN C(E). 5945 ;IN THIS CASE, C(AC)=400000,,0 (THE MOST 5946 ;NEGATIVE NUMBER) AND C(E)=377777,,-1 5947 ;(THE MOST POSITIVE NUMBER); HENCE, 5948 ;CAML SHOULD SKIP. OTHERWISE, THE 5949 ;PROGRAM HALTS 5950 5951 033235 200 00 0 00 035377 B300: MOVE [XWD 400000,0] ;PRELOAD AC WITH 400000,,0 5952 033236 311 00 0 00 035456 CAML [XWD 377777,-1] ;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E) 5953 STOP^ 5954 033237 254 04 0 00 033240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5955 033240 324 00 0 00 033241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5957 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5958 5959 ;***** FAILURE ANALYSIS ***** 5960 ;C(AC0) C(AC1) FAILING SIGNAL 5961 5962 ; FC: AD ADD 5963 5964 ;********** 5965 5966 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 5967 ;ONLY WHEN C(AC) IS LESS THAN C(E). 5968 ;IN THIS CASE, C(AC)=377777,,-1 (THE MOST POSITIVE NUMBER) AND C(E)=400000,,0 (THE MOST NEG 5969 ATIVE NUMBER) 5970 ;HENCE, CAML SHOULD NOT SKIP. OTHERWISE, THE PROGRAM HALTS. 5971 5972 033241 200 00 0 00 035456 B400: MOVE [XWD 377777,-1] ;PRELOAD AC WITH 377777,,-1 5973 033242 311 00 0 00 035377 CAML [XWD 400000,0] ;*CAML SHOULD NOT SKIP BECAUSE 5974 ;C(AC) IS GREATER THAN C(E) 5975 033243 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAML PASSES 5976 STOP^ 5977 033244 254 04 0 00 033245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5978 033245 324 00 0 00 033246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5980 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5981 5982 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 18 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0148 5983 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 5984 ;ONLY WHEN C(AC) IS LESS THAN C(E). 5985 ;IN THIS CASE, C(AC)=400000,,0 (THE MOST NEGTIVE NUMBER) AND C(E)=-1; 5986 ;HENCE, CAML SHOULD SKIP. OTHERWISE, THE PROGRAM HALTS 5987 5988 033246 200 00 0 00 035377 B500: MOVE [XWD 400000,0] ;PRELOAD AC WITH 400000,,0 5989 033247 311 00 0 00 035442 CAML [-1] ;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E) 5990 STOP^ 5991 033250 254 04 0 00 033251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5992 033251 324 00 0 00 033252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5994 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5995 5996 ;***** FAILURE ANALYSIS ***** 5997 ;C(AC0) C(AC1) FAILING SIGNAL 5998 5999 ; FC: AD FM + EN 6000 6001 ;********** 6002 6003 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6004 ;ONLY WHEN C(AC) IS LESS THAN C(E). 6005 ;IN THIS CASE, C(AC)=0 AND C(E)=-1 ;HENCE, CAML SHOULD NOT SKIP. OTHERWISE, 6006 ;THE PROGRAM HALTS. 6007 6008 033252 400 00 0 00 000000 B600: SETZ ;PRELOAD AC WITH 0 6009 033253 311 00 0 00 035442 CAML [-1] ;*CAML SHOULD NOT SKIP BECAUSE 6010 ;C(AC) IS GREATER THAN C(E) 6011 033254 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAML PASSES. 6012 STOP^ 6013 033255 254 04 0 00 033256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6014 033256 324 00 0 00 033257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6015 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6016 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6017 6018 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 19 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0149 6019 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT INSTRUCTION WHEN AND 6020 ;ONLY WHEN C(AC) IS LESS THAN C(E). 6021 ;IN THIS CASE, C(AC)=0 AND C(E)=0 ;HENCE, CAML SHOULD NOT SKIP. OTHERWISE, 6022 ;THE PROGRAM HALTS. 6023 6024 033257 400 00 0 00 000000 B700: SETZ ;PRELOAD AS WITH 0 6025 033260 311 00 0 00 035330 CAML [0] ;*CAML SHOULD NOT SKIP BECAUSE C(AC)=C(E) 6026 033261 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAML PASSES 6027 STOP^ 6028 033262 254 04 0 00 033263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6029 033263 324 00 0 00 033264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6031 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6032 6033 ;***** FAILURE ANALYSIS ***** 6034 ;C(AC0) C(AC1) FAILING SIGNAL 6035 6036 ; FC: AD CRY 36 6037 6038 ;********** 6039 6040 ;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6041 ;ONLY WHEN C(AC) IS LESS THAN C(E). 6042 ;IN THIS CASE, C(AC)=0 AND C(E)=400000,,O (THE MOST NEGATIVE NUMBER); 6043 ;HENCE CAML SHOULD NOT SKIP. OTHERWISE, THE PROGRAM HALTS. 6044 6045 033264 400 00 0 00 000000 B1000: SETZ ;PRELOAD AC WITH 0 6046 033265 311 00 0 00 035377 CAML [XWD 400000,0] ;*CAML SHOULD NOT SKIP BECAUSE 6047 ;C(AC) IS GREATER THAN C(E) 6048 033266 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAML PASSES 6049 STOP^ 6050 033267 254 04 0 00 033270 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6051 033270 324 00 0 00 033271 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6052 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6053 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6054 6055 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 20 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0150 6056 ;THIS TEST VERIFIES THAT CAM IS DATA INDEPENDENT. IT NEVER SKIPS 6057 ;THE NEXT SEQUENTIAL INSTRUCTION 6058 ;IN THIS CASE, C(AC)=-1 AND C(E)=0 6059 ;IF IT DOES SKIP THE NEXT INSTRUCTION, THE PROGRAM HALTS 6060 6061 033271 200 00 0 00 035442 B1100: MOVE [-1] ;PRELOAD AC WITH -1 6062 033272 310 00 0 00 035330 CAM [0] ;*CAM SHOULD NEVER SKIP 6063 033273 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAM PASSES 6064 STOP^ 6065 033274 254 04 0 00 033275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6066 033275 324 00 0 00 033276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6068 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6069 6070 ;********** 6071 6072 ;THIS TEST VERIFIES THAT CAMGE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6073 ;ONLY WHEN C(AC) IS GREATER THAN OR EQUAL TO C(E). 6074 ;IN THIS CASE, C(AC)=-1 AND C(E)=0; HENCE, CAMGE SHOULD NOT SKIP. 6075 ;OTHERWISE, THE PROGRAM HALTS. 6076 6077 033276 200 00 0 00 035442 B1200: MOVE [-1] ;PRELOAD AC WITH-1 6078 033277 315 00 0 00 035330 CAMGE [0] ;*CAMGE SHOULD NOT SKIP BECAUSE C(AC) IS LESS THAN C(E) 6079 033300 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAMGE PASSES. 6080 STOP^ 6081 033301 254 04 0 00 033302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6082 033302 324 00 0 00 033303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6084 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6085 6086 ;***** FAILURE ANALYSIS ***** 6087 ;C(AC0) C(AC1) FAILING SIGNAL 6088 6089 ; FC: PC CHANGE 6090 ; FC: AB PC EN 6091 6092 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 21 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0151 6093 ;THIS TEST VERIFIES THAT CAMGE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6094 ;ONLY WHEN C(AC) IS GREATER THAN OR EQUAL TO C(E) 6095 ;IN THIS CASE, C(AC)=0 AND C(E)=-1; HENCE CAMGE SHOULD SKIP. 6096 ;OTHEWISE, THE PROGRAM HALTS. 6097 6098 033303 400 00 0 00 000000 B1300: SETZ ;PRELOAD AC WITH 0 6099 033304 315 00 0 00 035442 CAMGE [-1] ;*CAMGE SHOULD SKIP BECAUSE C(AC) IS GREATER THAN C(E) 6100 STOP^ 6101 033305 254 04 0 00 033306 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6102 033306 324 00 0 00 033307 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6103 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6104 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6105 6106 ;***** FAILURE ANALYSIS ***** 6107 ;C(AC0) C(AC1) FAILING SIGNAL 6108 6109 ; SW: FCE 6110 ; ET0: COND Q: PC CLK EN 6111 6112 ;********** 6113 6114 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6115 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E) 6116 ;IN THIS CASE C(AC)=0 AND C(E)=-1; HENCE CAMN SHOULD SKIP. 6117 ;OTHERWISE, THE PROGRAM HALTS 6118 6119 033307 400 00 0 00 000000 B1400: SETZ ;PRELOAD AC WITH 0 6120 033310 316 00 0 00 035442 CAMN [-1] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 6121 STOP^ 6122 033311 254 04 0 00 033312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6123 033312 324 00 0 00 033313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6125 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6126 6127 ;***** FAILURE ANALYSIS ***** 6128 ;C(AC0) C(AC1) FAILING SIGNAL 6129 6130 ; FC:AD FM + EN 6131 ; FC: AD AR - EN 6132 ; FC: AD CRY 36 6133 ; FC: AD ADD 6134 ; FC: AB PC EN 6135 ; ET0: PC CLK EN 6136 6137 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 22 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0152 6138 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 6139 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E) 6140 ;IN THIS CASE, C(AC)=0 AND C(E)=0; HENCE CAMN SHOULD NOT SKIP. 6141 ;OTHERWISE, THE PROGRAM HALTS 6142 6143 033313 400 00 0 00 000000 B1500: SETZ ;PRELOAD AC WITH 0 6144 033314 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD NOT SKIP BECAUSE C(AC)=C(E). 6145 033315 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF CAMN PASSES 6146 STOP^ 6147 033316 254 04 0 00 033317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6148 033317 324 00 0 00 033320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6149 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6150 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6151 6152 ;***** FAILURE ANALYSIS ***** 6153 ;C(AC0) C(AC1) FAILING SIGNAL 6154 6155 ; SW: FCE 6156 ; FC: PC CHANGE 6157 6158 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0153 6159 001600 SN=1600 6160 000000 ZZ=0 6161 6162 B1600: REPEAT ^D18,< 6163 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6164 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6165 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6166 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6167 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6168 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6169 6170 SN=SN+1 6171 ZZ=ZZ+ZZ 6172 IFE ZZ, 6173 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6174 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6175 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6176 STOP 6177 6178 ;***** FAILURE ANALYSIS ***** 6179 ;C(AC0) C(AC1) FAILING SIGNAL 6180 6181 ; ET0: COND P 6182 6183 ;********** 6184 > 6185 6186 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6187 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6188 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6189 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6190 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6191 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6192 6193 001601 SN=SN+1 6194 000000 ZZ=ZZ+ZZ 6195 000001 IFE ZZ, 6196 033320 200 00 0 00 035334 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6197 033321 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6198 033322 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6199 STOP^ 6200 033323 254 04 0 00 033324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6201 033324 324 00 0 00 033325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6203 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6204 6205 ;***** FAILURE ANALYSIS ***** 6206 ;C(AC0) C(AC1) FAILING SIGNAL 6207 6208 ; ET0: COND P 6209 6210 ;********** 6211 6212 6213 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0154 6214 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6215 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6216 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6217 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6218 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6219 6220 001602 SN=SN+1 6221 000002 ZZ=ZZ+ZZ 6222 IFE ZZ, 6223 033325 200 00 0 00 035335 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6224 033326 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6225 033327 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6226 STOP^ 6227 033330 254 04 0 00 033331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6228 033331 324 00 0 00 033332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6229 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6230 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6231 6232 ;***** FAILURE ANALYSIS ***** 6233 ;C(AC0) C(AC1) FAILING SIGNAL 6234 6235 ; ET0: COND P 6236 6237 ;********** 6238 6239 6240 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6241 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6242 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6243 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6244 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6245 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6246 6247 001603 SN=SN+1 6248 000004 ZZ=ZZ+ZZ 6249 IFE ZZ, 6250 033332 200 00 0 00 035336 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6251 033333 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6252 033334 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6253 STOP^ 6254 033335 254 04 0 00 033336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6255 033336 324 00 0 00 033337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6256 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6257 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6258 6259 ;***** FAILURE ANALYSIS ***** 6260 ;C(AC0) C(AC1) FAILING SIGNAL 6261 6262 ; ET0: COND P 6263 6264 ;********** 6265 6266 6267 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6268 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0155 6269 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6270 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6271 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6272 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6273 6274 001604 SN=SN+1 6275 000010 ZZ=ZZ+ZZ 6276 IFE ZZ, 6277 033337 200 00 0 00 035337 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6278 033340 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6279 033341 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6280 STOP^ 6281 033342 254 04 0 00 033343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6282 033343 324 00 0 00 033344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6283 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6284 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6285 6286 ;***** FAILURE ANALYSIS ***** 6287 ;C(AC0) C(AC1) FAILING SIGNAL 6288 6289 ; ET0: COND P 6290 6291 ;********** 6292 6293 6294 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6295 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6296 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6297 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6298 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6299 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6300 6301 001605 SN=SN+1 6302 000020 ZZ=ZZ+ZZ 6303 IFE ZZ, 6304 033344 200 00 0 00 035340 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6305 033345 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6306 033346 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6307 STOP^ 6308 033347 254 04 0 00 033350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6309 033350 324 00 0 00 033351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6310 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6311 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6312 6313 ;***** FAILURE ANALYSIS ***** 6314 ;C(AC0) C(AC1) FAILING SIGNAL 6315 6316 ; ET0: COND P 6317 6318 ;********** 6319 6320 6321 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6322 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6323 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0156 6324 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6325 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6326 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6327 6328 001606 SN=SN+1 6329 000040 ZZ=ZZ+ZZ 6330 IFE ZZ, 6331 033351 200 00 0 00 035341 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6332 033352 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6333 033353 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6334 STOP^ 6335 033354 254 04 0 00 033355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6336 033355 324 00 0 00 033356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6339 6340 ;***** FAILURE ANALYSIS ***** 6341 ;C(AC0) C(AC1) FAILING SIGNAL 6342 6343 ; ET0: COND P 6344 6345 ;********** 6346 6347 6348 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6349 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6350 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6351 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6352 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6353 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6354 6355 001607 SN=SN+1 6356 000100 ZZ=ZZ+ZZ 6357 IFE ZZ, 6358 033356 200 00 0 00 035342 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6359 033357 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6360 033360 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6361 STOP^ 6362 033361 254 04 0 00 033362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6363 033362 324 00 0 00 033363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6366 6367 ;***** FAILURE ANALYSIS ***** 6368 ;C(AC0) C(AC1) FAILING SIGNAL 6369 6370 ; ET0: COND P 6371 6372 ;********** 6373 6374 6375 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6376 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6377 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6378 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0157 6379 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6380 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6381 6382 001610 SN=SN+1 6383 000200 ZZ=ZZ+ZZ 6384 IFE ZZ, 6385 033363 200 00 0 00 035343 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6386 033364 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6387 033365 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6388 STOP^ 6389 033366 254 04 0 00 033367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6390 033367 324 00 0 00 033370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6391 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6392 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6393 6394 ;***** FAILURE ANALYSIS ***** 6395 ;C(AC0) C(AC1) FAILING SIGNAL 6396 6397 ; ET0: COND P 6398 6399 ;********** 6400 6401 6402 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6403 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6404 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6405 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6406 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6407 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6408 6409 001611 SN=SN+1 6410 000400 ZZ=ZZ+ZZ 6411 IFE ZZ, 6412 033370 200 00 0 00 035344 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6413 033371 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6414 033372 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6415 STOP^ 6416 033373 254 04 0 00 033374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6417 033374 324 00 0 00 033375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6418 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6419 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6420 6421 ;***** FAILURE ANALYSIS ***** 6422 ;C(AC0) C(AC1) FAILING SIGNAL 6423 6424 ; ET0: COND P 6425 6426 ;********** 6427 6428 6429 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6430 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6431 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6432 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6433 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0158 6434 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6435 6436 001612 SN=SN+1 6437 001000 ZZ=ZZ+ZZ 6438 IFE ZZ, 6439 033375 200 00 0 00 035345 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6440 033376 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6441 033377 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6442 STOP^ 6443 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6444 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6445 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6446 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6447 6448 ;***** FAILURE ANALYSIS ***** 6449 ;C(AC0) C(AC1) FAILING SIGNAL 6450 6451 ; ET0: COND P 6452 6453 ;********** 6454 6455 6456 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6457 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6458 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6459 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6460 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6461 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6462 6463 001613 SN=SN+1 6464 002000 ZZ=ZZ+ZZ 6465 IFE ZZ, 6466 033402 200 00 0 00 035346 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6467 033403 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6468 033404 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6469 STOP^ 6470 033405 254 04 0 00 033406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6471 033406 324 00 0 00 033407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6472 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6473 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6474 6475 ;***** FAILURE ANALYSIS ***** 6476 ;C(AC0) C(AC1) FAILING SIGNAL 6477 6478 ; ET0: COND P 6479 6480 ;********** 6481 6482 6483 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6484 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6485 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6486 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6487 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6488 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0159 6489 6490 001614 SN=SN+1 6491 004000 ZZ=ZZ+ZZ 6492 IFE ZZ, 6493 033407 200 00 0 00 035347 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6494 033410 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6495 033411 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6496 STOP^ 6497 033412 254 04 0 00 033413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6498 033413 324 00 0 00 033414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6501 6502 ;***** FAILURE ANALYSIS ***** 6503 ;C(AC0) C(AC1) FAILING SIGNAL 6504 6505 ; ET0: COND P 6506 6507 ;********** 6508 6509 6510 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6511 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6512 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6513 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6514 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6515 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6516 6517 001615 SN=SN+1 6518 010000 ZZ=ZZ+ZZ 6519 IFE ZZ, 6520 033414 200 00 0 00 035350 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6521 033415 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6522 033416 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6523 STOP^ 6524 033417 254 04 0 00 033420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6525 033420 324 00 0 00 033421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6526 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6527 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6528 6529 ;***** FAILURE ANALYSIS ***** 6530 ;C(AC0) C(AC1) FAILING SIGNAL 6531 6532 ; ET0: COND P 6533 6534 ;********** 6535 6536 6537 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6538 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6539 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6540 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6541 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6542 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6543 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0160 6544 001616 SN=SN+1 6545 020000 ZZ=ZZ+ZZ 6546 IFE ZZ, 6547 033421 200 00 0 00 035351 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6548 033422 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6549 033423 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6550 STOP^ 6551 033424 254 04 0 00 033425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6552 033425 324 00 0 00 033426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6553 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6554 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6555 6556 ;***** FAILURE ANALYSIS ***** 6557 ;C(AC0) C(AC1) FAILING SIGNAL 6558 6559 ; ET0: COND P 6560 6561 ;********** 6562 6563 6564 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6565 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6566 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6567 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6568 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6569 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6570 6571 001617 SN=SN+1 6572 040000 ZZ=ZZ+ZZ 6573 IFE ZZ, 6574 033426 200 00 0 00 035352 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6575 033427 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6576 033430 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6577 STOP^ 6578 033431 254 04 0 00 033432 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6579 033432 324 00 0 00 033433 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6580 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6581 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6582 6583 ;***** FAILURE ANALYSIS ***** 6584 ;C(AC0) C(AC1) FAILING SIGNAL 6585 6586 ; ET0: COND P 6587 6588 ;********** 6589 6590 6591 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6592 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6593 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6594 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6595 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6596 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6597 6598 001620 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0161 6599 100000 ZZ=ZZ+ZZ 6600 IFE ZZ, 6601 033433 200 00 0 00 035353 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6602 033434 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6603 033435 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6604 STOP^ 6605 033436 254 04 0 00 033437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6606 033437 324 00 0 00 033440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6607 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6608 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6609 6610 ;***** FAILURE ANALYSIS ***** 6611 ;C(AC0) C(AC1) FAILING SIGNAL 6612 6613 ; ET0: COND P 6614 6615 ;********** 6616 6617 6618 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6619 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6620 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6621 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6622 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6623 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6624 6625 001621 SN=SN+1 6626 200000 ZZ=ZZ+ZZ 6627 IFE ZZ, 6628 033440 200 00 0 00 035354 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6629 033441 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6630 033442 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6631 STOP^ 6632 033443 254 04 0 00 033444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6633 033444 324 00 0 00 033445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6634 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6635 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6636 6637 ;***** FAILURE ANALYSIS ***** 6638 ;C(AC0) C(AC1) FAILING SIGNAL 6639 6640 ; ET0: COND P 6641 6642 ;********** 6643 6644 6645 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6646 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6647 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6648 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6649 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6650 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6651 6652 001622 SN=SN+1 6653 400000 ZZ=ZZ+ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 23-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0162 6654 IFE ZZ, 6655 033445 200 00 0 00 035355 MOVE [XWD ZZ] ;PRELOAD AC,E WITH A FLOATING 1 6656 033446 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6657 033447 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6658 STOP^ 6659 033450 254 04 0 00 033451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6660 033451 324 00 0 00 033452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6661 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6662 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6663 6664 ;***** FAILURE ANALYSIS ***** 6665 ;C(AC0) C(AC1) FAILING SIGNAL 6666 6667 ; ET0: COND P 6668 6669 ;********** 6670 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0163 6671 000000 ZZ=0 6672 6673 REPEAT ^D18,< 6674 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6675 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6676 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6677 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6678 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6679 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6680 6681 SN=SN+1 6682 ZZ=ZZ+ZZ 6683 IFE ZZ, 6684 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6685 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6686 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6687 STOP 6688 6689 ;********** 6690 > 6691 6692 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6693 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6694 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6695 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6696 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6697 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6698 6699 001623 SN=SN+1 6700 000000 ZZ=ZZ+ZZ 6701 000001 IFE ZZ, 6702 033452 200 00 0 00 035356 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6703 033453 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6704 033454 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6705 STOP^ 6706 033455 254 04 0 00 033456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6707 033456 324 00 0 00 033457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6708 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6709 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6710 6711 ;********** 6712 6713 6714 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6715 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6716 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6717 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6718 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6719 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6720 6721 001624 SN=SN+1 6722 000002 ZZ=ZZ+ZZ 6723 IFE ZZ, 6724 033457 200 00 0 00 035357 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6725 033460 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0164 6726 033461 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6727 STOP^ 6728 033462 254 04 0 00 033463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6729 033463 324 00 0 00 033464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6730 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6731 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6732 6733 ;********** 6734 6735 6736 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6737 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6738 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6739 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6740 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6741 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6742 6743 001625 SN=SN+1 6744 000004 ZZ=ZZ+ZZ 6745 IFE ZZ, 6746 033464 200 00 0 00 035360 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6747 033465 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6748 033466 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6749 STOP^ 6750 033467 254 04 0 00 033470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6751 033470 324 00 0 00 033471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6753 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6754 6755 ;********** 6756 6757 6758 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6759 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6760 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6761 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6762 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6763 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6764 6765 001626 SN=SN+1 6766 000010 ZZ=ZZ+ZZ 6767 IFE ZZ, 6768 033471 200 00 0 00 035361 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6769 033472 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6770 033473 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6771 STOP^ 6772 033474 254 04 0 00 033475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6773 033475 324 00 0 00 033476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6776 6777 ;********** 6778 6779 6780 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0165 6781 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6782 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6783 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6784 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6785 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6786 6787 001627 SN=SN+1 6788 000020 ZZ=ZZ+ZZ 6789 IFE ZZ, 6790 033476 200 00 0 00 035362 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6791 033477 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6792 033500 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6793 STOP^ 6794 033501 254 04 0 00 033502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6795 033502 324 00 0 00 033503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6798 6799 ;********** 6800 6801 6802 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6803 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6804 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6805 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6806 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6807 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6808 6809 001630 SN=SN+1 6810 000040 ZZ=ZZ+ZZ 6811 IFE ZZ, 6812 033503 200 00 0 00 035363 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6813 033504 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6814 033505 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6815 STOP^ 6816 033506 254 04 0 00 033507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6817 033507 324 00 0 00 033510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6820 6821 ;********** 6822 6823 6824 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6825 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6826 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6827 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6828 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6829 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6830 6831 001631 SN=SN+1 6832 000100 ZZ=ZZ+ZZ 6833 IFE ZZ, 6834 033510 200 00 0 00 035364 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6835 033511 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0166 6836 033512 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6837 STOP^ 6838 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6839 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6841 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6842 6843 ;********** 6844 6845 6846 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6847 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6848 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6849 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6850 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6851 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6852 6853 001632 SN=SN+1 6854 000200 ZZ=ZZ+ZZ 6855 IFE ZZ, 6856 033515 200 00 0 00 035365 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6857 033516 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6858 033517 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6859 STOP^ 6860 033520 254 04 0 00 033521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6861 033521 324 00 0 00 033522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6862 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6863 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6864 6865 ;********** 6866 6867 6868 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6869 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6870 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6871 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6872 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6873 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6874 6875 001633 SN=SN+1 6876 000400 ZZ=ZZ+ZZ 6877 IFE ZZ, 6878 033522 200 00 0 00 035366 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6879 033523 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6880 033524 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6881 STOP^ 6882 033525 254 04 0 00 033526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6883 033526 324 00 0 00 033527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6886 6887 ;********** 6888 6889 6890 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0167 6891 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6892 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6893 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6894 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6895 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6896 6897 001634 SN=SN+1 6898 001000 ZZ=ZZ+ZZ 6899 IFE ZZ, 6900 033527 200 00 0 00 035367 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6901 033530 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6902 033531 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6903 STOP^ 6904 033532 254 04 0 00 033533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6905 033533 324 00 0 00 033534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6908 6909 ;********** 6910 6911 6912 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6913 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6914 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6915 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6916 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6917 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6918 6919 001635 SN=SN+1 6920 002000 ZZ=ZZ+ZZ 6921 IFE ZZ, 6922 033534 200 00 0 00 035370 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6923 033535 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6924 033536 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6925 STOP^ 6926 033537 254 04 0 00 033540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6927 033540 324 00 0 00 033541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6930 6931 ;********** 6932 6933 6934 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6935 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6936 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6937 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6938 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6939 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6940 6941 001636 SN=SN+1 6942 004000 ZZ=ZZ+ZZ 6943 IFE ZZ, 6944 033541 200 00 0 00 035371 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6945 033542 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0168 6946 033543 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6947 STOP^ 6948 033544 254 04 0 00 033545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6949 033545 324 00 0 00 033546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6951 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6952 6953 ;********** 6954 6955 6956 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6957 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6958 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6959 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6960 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6961 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6962 6963 001637 SN=SN+1 6964 010000 ZZ=ZZ+ZZ 6965 IFE ZZ, 6966 033546 200 00 0 00 035372 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6967 033547 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6968 033550 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6969 STOP^ 6970 033551 254 04 0 00 033552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6971 033552 324 00 0 00 033553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6972 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6973 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6974 6975 ;********** 6976 6977 6978 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 6979 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 6980 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 6981 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 6982 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 6983 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 6984 6985 001640 SN=SN+1 6986 020000 ZZ=ZZ+ZZ 6987 IFE ZZ, 6988 033553 200 00 0 00 035373 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 6989 033554 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 6990 033555 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 6991 STOP^ 6992 033556 254 04 0 00 033557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6993 033557 324 00 0 00 033560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6996 6997 ;********** 6998 6999 7000 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0169 7001 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 7002 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 7003 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 7004 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 7005 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 7006 7007 001641 SN=SN+1 7008 040000 ZZ=ZZ+ZZ 7009 IFE ZZ, 7010 033560 200 00 0 00 035374 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 7011 033561 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 7012 033562 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 7013 STOP^ 7014 033563 254 04 0 00 033564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7015 033564 324 00 0 00 033565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7018 7019 ;********** 7020 7021 7022 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 7023 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 7024 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 7025 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 7026 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 7027 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 7028 7029 001642 SN=SN+1 7030 100000 ZZ=ZZ+ZZ 7031 IFE ZZ, 7032 033565 200 00 0 00 035375 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 7033 033566 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 7034 033567 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 7035 STOP^ 7036 033570 254 04 0 00 033571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7037 033571 324 00 0 00 033572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7038 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7039 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7040 7041 ;********** 7042 7043 7044 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 7045 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 7046 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 7047 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 7048 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 7049 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 7050 7051 001643 SN=SN+1 7052 200000 ZZ=ZZ+ZZ 7053 IFE ZZ, 7054 033572 200 00 0 00 035376 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 7055 033573 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 24-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0170 7056 033574 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 7057 STOP^ 7058 033575 254 04 0 00 033576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7059 033576 324 00 0 00 033577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7060 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7061 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7062 7063 ;********** 7064 7065 7066 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY 7067 ;WHEN C(AC) IS NOT EQUAL TO C(E). IT ALSO VERIFIES THAT CAME 7068 ;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN 7069 ;C(AC)=C(E). IN BOTH CASES AC=E; HENCE, C(AC)=C(E) 7070 ;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS 7071 ;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS 7072 7073 001644 SN=SN+1 7074 400000 ZZ=ZZ+ZZ 7075 IFE ZZ, 7076 033577 200 00 0 00 035377 MOVE [XWD ZZ,0] ;PRELOAD AC,E WITH A FLOATING 1 7077 033600 316 00 0 00 000000 CAMN ;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E) 7078 033601 312 00 0 00 000000 CAME ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) 7079 STOP^ 7080 033602 254 04 0 00 033603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7081 033603 324 00 0 00 033604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7082 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7083 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7084 7085 ;********** 7086 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0171 7087 001700 SN=1700 7088 000000 ZZ=0 7089 7090 B1700: REPEAT ^D36,< 7091 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7092 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7093 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7094 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7095 SN=SN+1 7096 ZZ=ZZ+ZZ 7097 IFE ZZ, 7098 SETZ ;PRELOAD AC WITH 0 7099 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7100 STOP 7101 7102 ;********** 7103 > 7104 7105 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7106 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7107 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7108 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7109 001701 SN=SN+1 7110 000000 ZZ=ZZ+ZZ 7111 000001 IFE ZZ, 7112 033604 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7113 033605 316 00 0 00 035334 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7114 STOP ^ 7115 033606 254 04 0 00 033607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7116 033607 324 00 0 00 033610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7117 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7118 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7119 7120 ;********** 7121 7122 7123 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7124 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7125 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7126 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7127 001702 SN=SN+1 7128 000002 ZZ=ZZ+ZZ 7129 IFE ZZ, 7130 033610 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7131 033611 316 00 0 00 035335 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7132 STOP ^ 7133 033612 254 04 0 00 033613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7134 033613 324 00 0 00 033614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7136 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7137 7138 ;********** 7139 7140 7141 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0172 7142 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7143 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7144 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7145 001703 SN=SN+1 7146 000004 ZZ=ZZ+ZZ 7147 IFE ZZ, 7148 033614 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7149 033615 316 00 0 00 035336 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7150 STOP ^ 7151 033616 254 04 0 00 033617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7152 033617 324 00 0 00 033620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7154 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7155 7156 ;********** 7157 7158 7159 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7160 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7161 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7162 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7163 001704 SN=SN+1 7164 000010 ZZ=ZZ+ZZ 7165 IFE ZZ, 7166 033620 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7167 033621 316 00 0 00 035337 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7168 STOP ^ 7169 033622 254 04 0 00 033623 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7170 033623 324 00 0 00 033624 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7171 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7172 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7173 7174 ;********** 7175 7176 7177 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7178 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7179 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7180 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7181 001705 SN=SN+1 7182 000020 ZZ=ZZ+ZZ 7183 IFE ZZ, 7184 033624 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7185 033625 316 00 0 00 035340 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7186 STOP ^ 7187 033626 254 04 0 00 033627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7188 033627 324 00 0 00 033630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7190 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7191 7192 ;********** 7193 7194 7195 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7196 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0173 7197 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7198 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7199 001706 SN=SN+1 7200 000040 ZZ=ZZ+ZZ 7201 IFE ZZ, 7202 033630 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7203 033631 316 00 0 00 035341 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7204 STOP ^ 7205 033632 254 04 0 00 033633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7206 033633 324 00 0 00 033634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7208 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7209 7210 ;********** 7211 7212 7213 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7214 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7215 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7216 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7217 001707 SN=SN+1 7218 000100 ZZ=ZZ+ZZ 7219 IFE ZZ, 7220 033634 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7221 033635 316 00 0 00 035342 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7222 STOP ^ 7223 033636 254 04 0 00 033637 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7224 033637 324 00 0 00 033640 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7226 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7227 7228 ;********** 7229 7230 7231 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7232 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7233 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7234 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7235 001710 SN=SN+1 7236 000200 ZZ=ZZ+ZZ 7237 IFE ZZ, 7238 033640 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7239 033641 316 00 0 00 035343 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7240 STOP ^ 7241 033642 254 04 0 00 033643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7242 033643 324 00 0 00 033644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7244 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7245 7246 ;********** 7247 7248 7249 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7250 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7251 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0174 7252 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7253 001711 SN=SN+1 7254 000400 ZZ=ZZ+ZZ 7255 IFE ZZ, 7256 033644 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7257 033645 316 00 0 00 035344 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7258 STOP ^ 7259 033646 254 04 0 00 033647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7260 033647 324 00 0 00 033650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7261 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7262 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7263 7264 ;********** 7265 7266 7267 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7268 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7269 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7270 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7271 001712 SN=SN+1 7272 001000 ZZ=ZZ+ZZ 7273 IFE ZZ, 7274 033650 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7275 033651 316 00 0 00 035345 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7276 STOP ^ 7277 033652 254 04 0 00 033653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7278 033653 324 00 0 00 033654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7279 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7280 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7281 7282 ;********** 7283 7284 7285 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7286 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7287 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7288 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7289 001713 SN=SN+1 7290 002000 ZZ=ZZ+ZZ 7291 IFE ZZ, 7292 033654 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7293 033655 316 00 0 00 035346 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7294 STOP ^ 7295 033656 254 04 0 00 033657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7296 033657 324 00 0 00 033660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7299 7300 ;********** 7301 7302 7303 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7304 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7305 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7306 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0175 7307 001714 SN=SN+1 7308 004000 ZZ=ZZ+ZZ 7309 IFE ZZ, 7310 033660 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7311 033661 316 00 0 00 035347 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7312 STOP ^ 7313 033662 254 04 0 00 033663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7314 033663 324 00 0 00 033664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7315 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7316 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7317 7318 ;********** 7319 7320 7321 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7322 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7323 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7324 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7325 001715 SN=SN+1 7326 010000 ZZ=ZZ+ZZ 7327 IFE ZZ, 7328 033664 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7329 033665 316 00 0 00 035350 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7330 STOP ^ 7331 033666 254 04 0 00 033667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7332 033667 324 00 0 00 033670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7334 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7335 7336 ;********** 7337 7338 7339 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7340 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7341 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7342 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7343 001716 SN=SN+1 7344 020000 ZZ=ZZ+ZZ 7345 IFE ZZ, 7346 033670 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7347 033671 316 00 0 00 035351 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7348 STOP ^ 7349 033672 254 04 0 00 033673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7350 033673 324 00 0 00 033674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7353 7354 ;********** 7355 7356 7357 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7358 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7359 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7360 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7361 001717 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0176 7362 040000 ZZ=ZZ+ZZ 7363 IFE ZZ, 7364 033674 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7365 033675 316 00 0 00 035352 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7366 STOP ^ 7367 033676 254 04 0 00 033677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7368 033677 324 00 0 00 033700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7371 7372 ;********** 7373 7374 7375 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7376 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7377 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7378 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7379 001720 SN=SN+1 7380 100000 ZZ=ZZ+ZZ 7381 IFE ZZ, 7382 033700 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7383 033701 316 00 0 00 035353 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7384 STOP ^ 7385 033702 254 04 0 00 033703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7386 033703 324 00 0 00 033704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7387 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7388 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7389 7390 ;********** 7391 7392 7393 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7394 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7395 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7396 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7397 001721 SN=SN+1 7398 200000 ZZ=ZZ+ZZ 7399 IFE ZZ, 7400 033704 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7401 033705 316 00 0 00 035354 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7402 STOP ^ 7403 033706 254 04 0 00 033707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7404 033707 324 00 0 00 033710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7406 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7407 7408 ;********** 7409 7410 7411 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7412 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7413 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7414 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7415 001722 SN=SN+1 7416 400000 ZZ=ZZ+ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0177 7417 IFE ZZ, 7418 033710 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7419 033711 316 00 0 00 035355 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7420 STOP ^ 7421 033712 254 04 0 00 033713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7422 033713 324 00 0 00 033714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7423 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7424 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7425 7426 ;********** 7427 7428 7429 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7430 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7431 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7432 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7433 001723 SN=SN+1 7434 000001 000000 ZZ=ZZ+ZZ 7435 IFE ZZ, 7436 033714 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7437 033715 316 00 0 00 035356 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7438 STOP ^ 7439 033716 254 04 0 00 033717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7440 033717 324 00 0 00 033720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7441 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7442 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7443 7444 ;********** 7445 7446 7447 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7448 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7449 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7450 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7451 001724 SN=SN+1 7452 000002 000000 ZZ=ZZ+ZZ 7453 IFE ZZ, 7454 033720 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7455 033721 316 00 0 00 035357 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7456 STOP ^ 7457 033722 254 04 0 00 033723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7458 033723 324 00 0 00 033724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7459 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7460 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7461 7462 ;********** 7463 7464 7465 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7466 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7467 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7468 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7469 001725 SN=SN+1 7470 000004 000000 ZZ=ZZ+ZZ 7471 IFE ZZ, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0178 7472 033724 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7473 033725 316 00 0 00 035360 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7474 STOP ^ 7475 033726 254 04 0 00 033727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7476 033727 324 00 0 00 033730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7479 7480 ;********** 7481 7482 7483 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7484 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7485 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7486 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7487 001726 SN=SN+1 7488 000010 000000 ZZ=ZZ+ZZ 7489 IFE ZZ, 7490 033730 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7491 033731 316 00 0 00 035361 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7492 STOP ^ 7493 033732 254 04 0 00 033733 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7494 033733 324 00 0 00 033734 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7497 7498 ;********** 7499 7500 7501 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7502 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7503 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7504 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7505 001727 SN=SN+1 7506 000020 000000 ZZ=ZZ+ZZ 7507 IFE ZZ, 7508 033734 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7509 033735 316 00 0 00 035362 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7510 STOP ^ 7511 033736 254 04 0 00 033737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7512 033737 324 00 0 00 033740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7513 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7514 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7515 7516 ;********** 7517 7518 7519 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7520 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7521 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7522 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7523 001730 SN=SN+1 7524 000040 000000 ZZ=ZZ+ZZ 7525 IFE ZZ, 7526 033740 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0179 7527 033741 316 00 0 00 035363 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7528 STOP ^ 7529 033742 254 04 0 00 033743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7530 033743 324 00 0 00 033744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7531 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7532 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7533 7534 ;********** 7535 7536 7537 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7538 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7539 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7540 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7541 001731 SN=SN+1 7542 000100 000000 ZZ=ZZ+ZZ 7543 IFE ZZ, 7544 033744 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7545 033745 316 00 0 00 035364 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7546 STOP ^ 7547 033746 254 04 0 00 033747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7548 033747 324 00 0 00 033750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7551 7552 ;********** 7553 7554 7555 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7556 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7557 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7558 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7559 001732 SN=SN+1 7560 000200 000000 ZZ=ZZ+ZZ 7561 IFE ZZ, 7562 033750 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7563 033751 316 00 0 00 035365 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7564 STOP ^ 7565 033752 254 04 0 00 033753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7566 033753 324 00 0 00 033754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7567 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7568 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7569 7570 ;********** 7571 7572 7573 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7574 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7575 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7576 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7577 001733 SN=SN+1 7578 000400 000000 ZZ=ZZ+ZZ 7579 IFE ZZ, 7580 033754 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7581 033755 316 00 0 00 035366 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0180 7582 STOP ^ 7583 033756 254 04 0 00 033757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7584 033757 324 00 0 00 033760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7585 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7586 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7587 7588 ;********** 7589 7590 7591 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7592 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7593 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7594 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7595 001734 SN=SN+1 7596 001000 000000 ZZ=ZZ+ZZ 7597 IFE ZZ, 7598 033760 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7599 033761 316 00 0 00 035367 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7600 STOP ^ 7601 033762 254 04 0 00 033763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7602 033763 324 00 0 00 033764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7604 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7605 7606 ;********** 7607 7608 7609 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7610 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7611 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7612 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7613 001735 SN=SN+1 7614 002000 000000 ZZ=ZZ+ZZ 7615 IFE ZZ, 7616 033764 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7617 033765 316 00 0 00 035370 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7618 STOP ^ 7619 033766 254 04 0 00 033767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7620 033767 324 00 0 00 033770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7621 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7622 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7623 7624 ;********** 7625 7626 7627 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7628 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7629 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7630 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7631 001736 SN=SN+1 7632 004000 000000 ZZ=ZZ+ZZ 7633 IFE ZZ, 7634 033770 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7635 033771 316 00 0 00 035371 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7636 STOP ^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0181 7637 033772 254 04 0 00 033773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7638 033773 324 00 0 00 033774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7640 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7641 7642 ;********** 7643 7644 7645 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7646 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7647 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7648 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7649 001737 SN=SN+1 7650 010000 000000 ZZ=ZZ+ZZ 7651 IFE ZZ, 7652 033774 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7653 033775 316 00 0 00 035372 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7654 STOP ^ 7655 033776 254 04 0 00 033777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7656 033777 324 00 0 00 034000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7658 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7659 7660 ;********** 7661 7662 7663 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7664 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7665 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7666 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7667 001740 SN=SN+1 7668 020000 000000 ZZ=ZZ+ZZ 7669 IFE ZZ, 7670 034000 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7671 034001 316 00 0 00 035373 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7672 STOP ^ 7673 034002 254 04 0 00 034003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7674 034003 324 00 0 00 034004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7675 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7676 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7677 7678 ;********** 7679 7680 7681 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7682 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7683 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7684 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7685 001741 SN=SN+1 7686 040000 000000 ZZ=ZZ+ZZ 7687 IFE ZZ, 7688 034004 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7689 034005 316 00 0 00 035374 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7690 STOP ^ 7691 034006 254 04 0 00 034007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0182 7692 034007 324 00 0 00 034010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7693 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7694 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7695 7696 ;********** 7697 7698 7699 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7700 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7701 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7702 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7703 001742 SN=SN+1 7704 100000 000000 ZZ=ZZ+ZZ 7705 IFE ZZ, 7706 034010 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7707 034011 316 00 0 00 035375 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7708 STOP ^ 7709 034012 254 04 0 00 034013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7710 034013 324 00 0 00 034014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7711 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7712 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7713 7714 ;********** 7715 7716 7717 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7718 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7719 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7720 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7721 001743 SN=SN+1 7722 200000 000000 ZZ=ZZ+ZZ 7723 IFE ZZ, 7724 034014 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7725 034015 316 00 0 00 035376 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7726 STOP ^ 7727 034016 254 04 0 00 034017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7728 034017 324 00 0 00 034020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7729 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7730 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7731 7732 ;********** 7733 7734 7735 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND 7736 ;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1. HENCE, 7737 ;CAMN SHOULD SKIP; OTHERWISE, THE PROGRAM HALTS 7738 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E 7739 001744 SN=SN+1 7740 400000 000000 ZZ=ZZ+ZZ 7741 IFE ZZ, 7742 034020 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 7743 034021 316 00 0 00 035377 CAMN [ZZ] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7744 STOP ^ 7745 034022 254 04 0 00 034023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7746 034023 324 00 0 00 034024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 25-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0183 7747 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7748 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7749 7750 ;********** 7751 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0184 7752 002000 SN=2000 7753 000000 ZZ=0 7754 7755 B2000: REPEAT ^D36,< 7756 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7757 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7758 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7759 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7760 SN=SN+1 7761 ZZ=ZZ+ZZ 7762 IFE ZZ, 7763 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7764 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7765 STOP 7766 7767 ;********** 7768 > 7769 7770 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7771 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7772 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7773 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7774 002001 SN=SN+1 7775 000000 ZZ=ZZ+ZZ 7776 000001 IFE ZZ, 7777 034024 200 00 0 00 035334 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7778 034025 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7779 STOP^ 7780 034026 254 04 0 00 034027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7781 034027 324 00 0 00 034030 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7783 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7784 7785 ;********** 7786 7787 7788 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7789 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7790 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7791 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7792 002002 SN=SN+1 7793 000002 ZZ=ZZ+ZZ 7794 IFE ZZ, 7795 034030 200 00 0 00 035335 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7796 034031 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7797 STOP^ 7798 034032 254 04 0 00 034033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7799 034033 324 00 0 00 034034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7800 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7801 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7802 7803 ;********** 7804 7805 7806 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0185 7807 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7808 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7809 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7810 002003 SN=SN+1 7811 000004 ZZ=ZZ+ZZ 7812 IFE ZZ, 7813 034034 200 00 0 00 035336 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7814 034035 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7815 STOP^ 7816 034036 254 04 0 00 034037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7817 034037 324 00 0 00 034040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7820 7821 ;********** 7822 7823 7824 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7825 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7826 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7827 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7828 002004 SN=SN+1 7829 000010 ZZ=ZZ+ZZ 7830 IFE ZZ, 7831 034040 200 00 0 00 035337 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7832 034041 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7833 STOP^ 7834 034042 254 04 0 00 034043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7835 034043 324 00 0 00 034044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7837 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7838 7839 ;********** 7840 7841 7842 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7843 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7844 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7845 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7846 002005 SN=SN+1 7847 000020 ZZ=ZZ+ZZ 7848 IFE ZZ, 7849 034044 200 00 0 00 035340 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7850 034045 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7851 STOP^ 7852 034046 254 04 0 00 034047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7853 034047 324 00 0 00 034050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7854 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7855 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7856 7857 ;********** 7858 7859 7860 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7861 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0186 7862 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7863 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7864 002006 SN=SN+1 7865 000040 ZZ=ZZ+ZZ 7866 IFE ZZ, 7867 034050 200 00 0 00 035341 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7868 034051 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7869 STOP^ 7870 034052 254 04 0 00 034053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7871 034053 324 00 0 00 034054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7872 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7873 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7874 7875 ;********** 7876 7877 7878 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7879 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7880 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7881 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7882 002007 SN=SN+1 7883 000100 ZZ=ZZ+ZZ 7884 IFE ZZ, 7885 034054 200 00 0 00 035342 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7886 034055 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7887 STOP^ 7888 034056 254 04 0 00 034057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7889 034057 324 00 0 00 034060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7890 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7891 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7892 7893 ;********** 7894 7895 7896 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7897 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7898 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7899 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7900 002010 SN=SN+1 7901 000200 ZZ=ZZ+ZZ 7902 IFE ZZ, 7903 034060 200 00 0 00 035343 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7904 034061 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7905 STOP^ 7906 034062 254 04 0 00 034063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7907 034063 324 00 0 00 034064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7908 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7909 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7910 7911 ;********** 7912 7913 7914 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7915 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7916 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0187 7917 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7918 002011 SN=SN+1 7919 000400 ZZ=ZZ+ZZ 7920 IFE ZZ, 7921 034064 200 00 0 00 035344 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7922 034065 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7923 STOP^ 7924 034066 254 04 0 00 034067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7925 034067 324 00 0 00 034070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7926 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7927 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7928 7929 ;********** 7930 7931 7932 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7933 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7934 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7935 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7936 002012 SN=SN+1 7937 001000 ZZ=ZZ+ZZ 7938 IFE ZZ, 7939 034070 200 00 0 00 035345 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7940 034071 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7941 STOP^ 7942 034072 254 04 0 00 034073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7943 034073 324 00 0 00 034074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7945 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7946 7947 ;********** 7948 7949 7950 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7951 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7952 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7953 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7954 002013 SN=SN+1 7955 002000 ZZ=ZZ+ZZ 7956 IFE ZZ, 7957 034074 200 00 0 00 035346 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7958 034075 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7959 STOP^ 7960 034076 254 04 0 00 034077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7961 034077 324 00 0 00 034100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7963 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7964 7965 ;********** 7966 7967 7968 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7969 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7970 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7971 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0188 7972 002014 SN=SN+1 7973 004000 ZZ=ZZ+ZZ 7974 IFE ZZ, 7975 034100 200 00 0 00 035347 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7976 034101 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7977 STOP^ 7978 034102 254 04 0 00 034103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7979 034103 324 00 0 00 034104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7980 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7981 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7982 7983 ;********** 7984 7985 7986 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 7987 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 7988 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 7989 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 7990 002015 SN=SN+1 7991 010000 ZZ=ZZ+ZZ 7992 IFE ZZ, 7993 034104 200 00 0 00 035350 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 7994 034105 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 7995 STOP^ 7996 034106 254 04 0 00 034107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7997 034107 324 00 0 00 034110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7998 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7999 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8000 8001 ;********** 8002 8003 8004 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8005 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8006 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8007 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8008 002016 SN=SN+1 8009 020000 ZZ=ZZ+ZZ 8010 IFE ZZ, 8011 034110 200 00 0 00 035351 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8012 034111 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8013 STOP^ 8014 034112 254 04 0 00 034113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8015 034113 324 00 0 00 034114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8018 8019 ;********** 8020 8021 8022 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8023 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8024 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8025 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8026 002017 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0189 8027 040000 ZZ=ZZ+ZZ 8028 IFE ZZ, 8029 034114 200 00 0 00 035352 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8030 034115 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8031 STOP^ 8032 034116 254 04 0 00 034117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8033 034117 324 00 0 00 034120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8034 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8035 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8036 8037 ;********** 8038 8039 8040 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8041 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8042 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8043 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8044 002020 SN=SN+1 8045 100000 ZZ=ZZ+ZZ 8046 IFE ZZ, 8047 034120 200 00 0 00 035353 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8048 034121 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8049 STOP^ 8050 034122 254 04 0 00 034123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8051 034123 324 00 0 00 034124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8052 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8053 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8054 8055 ;********** 8056 8057 8058 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8059 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8060 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8061 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8062 002021 SN=SN+1 8063 200000 ZZ=ZZ+ZZ 8064 IFE ZZ, 8065 034124 200 00 0 00 035354 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8066 034125 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8067 STOP^ 8068 034126 254 04 0 00 034127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8069 034127 324 00 0 00 034130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8070 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8071 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8072 8073 ;********** 8074 8075 8076 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8077 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8078 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8079 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8080 002022 SN=SN+1 8081 400000 ZZ=ZZ+ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0190 8082 IFE ZZ, 8083 034130 200 00 0 00 035355 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8084 034131 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8085 STOP^ 8086 034132 254 04 0 00 034133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8087 034133 324 00 0 00 034134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8088 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8089 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8090 8091 ;********** 8092 8093 8094 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8095 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8096 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8097 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8098 002023 SN=SN+1 8099 000001 000000 ZZ=ZZ+ZZ 8100 IFE ZZ, 8101 034134 200 00 0 00 035356 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8102 034135 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8103 STOP^ 8104 034136 254 04 0 00 034137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8105 034137 324 00 0 00 034140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8106 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8107 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8108 8109 ;********** 8110 8111 8112 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8113 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8114 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8115 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8116 002024 SN=SN+1 8117 000002 000000 ZZ=ZZ+ZZ 8118 IFE ZZ, 8119 034140 200 00 0 00 035357 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8120 034141 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8121 STOP^ 8122 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8123 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8125 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8126 8127 ;********** 8128 8129 8130 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8131 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8132 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8133 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8134 002025 SN=SN+1 8135 000004 000000 ZZ=ZZ+ZZ 8136 IFE ZZ, DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0191 8137 034144 200 00 0 00 035360 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8138 034145 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8139 STOP^ 8140 034146 254 04 0 00 034147 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8141 034147 324 00 0 00 034150 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8142 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8143 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8144 8145 ;********** 8146 8147 8148 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8149 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8150 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8151 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8152 002026 SN=SN+1 8153 000010 000000 ZZ=ZZ+ZZ 8154 IFE ZZ, 8155 034150 200 00 0 00 035361 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8156 034151 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8157 STOP^ 8158 034152 254 04 0 00 034153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8159 034153 324 00 0 00 034154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8160 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8161 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8162 8163 ;********** 8164 8165 8166 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8167 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8168 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8169 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8170 002027 SN=SN+1 8171 000020 000000 ZZ=ZZ+ZZ 8172 IFE ZZ, 8173 034154 200 00 0 00 035362 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8174 034155 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8175 STOP^ 8176 034156 254 04 0 00 034157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8177 034157 324 00 0 00 034160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8178 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8179 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8180 8181 ;********** 8182 8183 8184 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8185 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8186 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8187 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8188 002030 SN=SN+1 8189 000040 000000 ZZ=ZZ+ZZ 8190 IFE ZZ, 8191 034160 200 00 0 00 035363 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0192 8192 034161 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8193 STOP^ 8194 034162 254 04 0 00 034163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8195 034163 324 00 0 00 034164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8196 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8197 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8198 8199 ;********** 8200 8201 8202 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8203 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8204 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8205 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8206 002031 SN=SN+1 8207 000100 000000 ZZ=ZZ+ZZ 8208 IFE ZZ, 8209 034164 200 00 0 00 035364 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8210 034165 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8211 STOP^ 8212 034166 254 04 0 00 034167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8213 034167 324 00 0 00 034170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8216 8217 ;********** 8218 8219 8220 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8221 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8222 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8223 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8224 002032 SN=SN+1 8225 000200 000000 ZZ=ZZ+ZZ 8226 IFE ZZ, 8227 034170 200 00 0 00 035365 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8228 034171 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8229 STOP^ 8230 034172 254 04 0 00 034173 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8231 034173 324 00 0 00 034174 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8232 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8233 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8234 8235 ;********** 8236 8237 8238 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8239 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8240 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8241 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8242 002033 SN=SN+1 8243 000400 000000 ZZ=ZZ+ZZ 8244 IFE ZZ, 8245 034174 200 00 0 00 035366 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8246 034175 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-9 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0193 8247 STOP^ 8248 034176 254 04 0 00 034177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8249 034177 324 00 0 00 034200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8250 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8251 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8252 8253 ;********** 8254 8255 8256 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8257 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8258 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8259 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8260 002034 SN=SN+1 8261 001000 000000 ZZ=ZZ+ZZ 8262 IFE ZZ, 8263 034200 200 00 0 00 035367 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8264 034201 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8265 STOP^ 8266 034202 254 04 0 00 034203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8267 034203 324 00 0 00 034204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8268 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8269 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8270 8271 ;********** 8272 8273 8274 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8275 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8276 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8277 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8278 002035 SN=SN+1 8279 002000 000000 ZZ=ZZ+ZZ 8280 IFE ZZ, 8281 034204 200 00 0 00 035370 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8282 034205 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8283 STOP^ 8284 034206 254 04 0 00 034207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8285 034207 324 00 0 00 034210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8286 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8287 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8288 8289 ;********** 8290 8291 8292 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8293 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8294 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8295 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8296 002036 SN=SN+1 8297 004000 000000 ZZ=ZZ+ZZ 8298 IFE ZZ, 8299 034210 200 00 0 00 035371 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8300 034211 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8301 STOP^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-10 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0194 8302 034212 254 04 0 00 034213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8303 034213 324 00 0 00 034214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8306 8307 ;********** 8308 8309 8310 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8311 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8312 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8313 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8314 002037 SN=SN+1 8315 010000 000000 ZZ=ZZ+ZZ 8316 IFE ZZ, 8317 034214 200 00 0 00 035372 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8318 034215 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8319 STOP^ 8320 034216 254 04 0 00 034217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8321 034217 324 00 0 00 034220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8322 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8323 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8324 8325 ;********** 8326 8327 8328 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8329 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8330 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8331 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8332 002040 SN=SN+1 8333 020000 000000 ZZ=ZZ+ZZ 8334 IFE ZZ, 8335 034220 200 00 0 00 035373 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8336 034221 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8337 STOP^ 8338 034222 254 04 0 00 034223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8339 034223 324 00 0 00 034224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8340 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8341 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8342 8343 ;********** 8344 8345 8346 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8347 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8348 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8349 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8350 002041 SN=SN+1 8351 040000 000000 ZZ=ZZ+ZZ 8352 IFE ZZ, 8353 034224 200 00 0 00 035374 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8354 034225 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8355 STOP^ 8356 034226 254 04 0 00 034227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-11 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0195 8357 034227 324 00 0 00 034230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8358 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8359 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8360 8361 ;********** 8362 8363 8364 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8365 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8366 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8367 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8368 002042 SN=SN+1 8369 100000 000000 ZZ=ZZ+ZZ 8370 IFE ZZ, 8371 034230 200 00 0 00 035375 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8372 034231 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8373 STOP^ 8374 034232 254 04 0 00 034233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8375 034233 324 00 0 00 034234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8376 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8377 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8378 8379 ;********** 8380 8381 8382 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8383 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8384 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8385 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8386 002043 SN=SN+1 8387 200000 000000 ZZ=ZZ+ZZ 8388 IFE ZZ, 8389 034234 200 00 0 00 035376 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8390 034235 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8391 STOP^ 8392 034236 254 04 0 00 034237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8393 034237 324 00 0 00 034240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8394 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8395 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8396 8397 ;********** 8398 8399 8400 ;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND 8401 ;ONLY WHEN C(AC) IS NOT EQUAL TO C(E). HENCE, 8402 ;CAMN SHOULD SKIP; OTHERWISE THE PROGRAM HALTS. 8403 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC 8404 002044 SN=SN+1 8405 400000 000000 ZZ=ZZ+ZZ 8406 IFE ZZ, 8407 034240 200 00 0 00 035377 MOVE [ZZ] ;PRELOAD AC WITH A FLOATING 1 8408 034241 316 00 0 00 035330 CAMN [0] ;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E) 8409 STOP^ 8410 034242 254 04 0 00 034243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8411 034243 324 00 0 00 034244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 26-12 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAMX) INSTRUCTIONS SEQ 0196 8412 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8413 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8414 8415 ;********** 8416 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0197 8417 SUBTTL TEST OF MOVS INSTRUCTION 8418 8419 ;********** 8420 8421 002100 SN=2100 8422 000000 ZZ=0 8423 8424 B2100: REPEAT ^D18,< 8425 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8426 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8427 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8428 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8429 8430 SN=SN+1 8431 ZZ=ZZ+ZZ 8432 IFE ZZ, 8433 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8434 ;AND MOVE RESULT INTO AC 8435 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8436 STOP 8437 8438 ;********** 8439 > 8440 8441 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8442 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8443 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8444 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8445 8446 002101 SN=SN+1 8447 000000 ZZ=ZZ+ZZ 8448 000001 IFE ZZ, 8449 034244 204 00 0 00 035457 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8450 ;AND MOVE RESULT INTO AC 8451 034245 312 00 0 00 035457 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8452 STOP ^ 8453 034246 254 04 0 00 034247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8454 034247 324 00 0 00 034250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8455 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8456 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8457 8458 ;********** 8459 8460 8461 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8462 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8463 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8464 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8465 8466 002102 SN=SN+1 8467 000002 ZZ=ZZ+ZZ 8468 IFE ZZ, 8469 034250 204 00 0 00 035460 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8470 ;AND MOVE RESULT INTO AC 8471 034251 312 00 0 00 035460 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0198 8472 STOP ^ 8473 034252 254 04 0 00 034253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8474 034253 324 00 0 00 034254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8475 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8476 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8477 8478 ;********** 8479 8480 8481 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8482 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8483 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8484 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8485 8486 002103 SN=SN+1 8487 000004 ZZ=ZZ+ZZ 8488 IFE ZZ, 8489 034254 204 00 0 00 035461 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8490 ;AND MOVE RESULT INTO AC 8491 034255 312 00 0 00 035461 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8492 STOP ^ 8493 034256 254 04 0 00 034257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8494 034257 324 00 0 00 034260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8497 8498 ;********** 8499 8500 8501 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8502 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8503 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8504 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8505 8506 002104 SN=SN+1 8507 000010 ZZ=ZZ+ZZ 8508 IFE ZZ, 8509 034260 204 00 0 00 035462 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8510 ;AND MOVE RESULT INTO AC 8511 034261 312 00 0 00 035462 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8512 STOP ^ 8513 034262 254 04 0 00 034263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8514 034263 324 00 0 00 034264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8515 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8516 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8517 8518 ;********** 8519 8520 8521 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8522 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8523 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8524 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8525 8526 002105 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0199 8527 000020 ZZ=ZZ+ZZ 8528 IFE ZZ, 8529 034264 204 00 0 00 035463 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8530 ;AND MOVE RESULT INTO AC 8531 034265 312 00 0 00 035463 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8532 STOP ^ 8533 034266 254 04 0 00 034267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8534 034267 324 00 0 00 034270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8535 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8536 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8537 8538 ;********** 8539 8540 8541 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8542 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8543 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8544 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8545 8546 002106 SN=SN+1 8547 000040 ZZ=ZZ+ZZ 8548 IFE ZZ, 8549 034270 204 00 0 00 035464 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8550 ;AND MOVE RESULT INTO AC 8551 034271 312 00 0 00 035464 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8552 STOP ^ 8553 034272 254 04 0 00 034273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8554 034273 324 00 0 00 034274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8557 8558 ;********** 8559 8560 8561 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8562 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8563 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8564 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8565 8566 002107 SN=SN+1 8567 000100 ZZ=ZZ+ZZ 8568 IFE ZZ, 8569 034274 204 00 0 00 035465 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8570 ;AND MOVE RESULT INTO AC 8571 034275 312 00 0 00 035465 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8572 STOP ^ 8573 034276 254 04 0 00 034277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8574 034277 324 00 0 00 034300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8575 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8576 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8577 8578 ;********** 8579 8580 8581 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0200 8582 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8583 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8584 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8585 8586 002110 SN=SN+1 8587 000200 ZZ=ZZ+ZZ 8588 IFE ZZ, 8589 034300 204 00 0 00 035466 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8590 ;AND MOVE RESULT INTO AC 8591 034301 312 00 0 00 035466 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8592 STOP ^ 8593 034302 254 04 0 00 034303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8594 034303 324 00 0 00 034304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8595 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8596 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8597 8598 ;********** 8599 8600 8601 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8602 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8603 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8604 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8605 8606 002111 SN=SN+1 8607 000400 ZZ=ZZ+ZZ 8608 IFE ZZ, 8609 034304 204 00 0 00 035467 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8610 ;AND MOVE RESULT INTO AC 8611 034305 312 00 0 00 035467 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8612 STOP ^ 8613 034306 254 04 0 00 034307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8614 034307 324 00 0 00 034310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8615 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8616 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8617 8618 ;********** 8619 8620 8621 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8622 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8623 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8624 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8625 8626 002112 SN=SN+1 8627 001000 ZZ=ZZ+ZZ 8628 IFE ZZ, 8629 034310 204 00 0 00 035470 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8630 ;AND MOVE RESULT INTO AC 8631 034311 312 00 0 00 035470 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8632 STOP ^ 8633 034312 254 04 0 00 034313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8634 034313 324 00 0 00 034314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8635 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8636 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0201 8637 8638 ;********** 8639 8640 8641 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8642 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8643 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8644 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8645 8646 002113 SN=SN+1 8647 002000 ZZ=ZZ+ZZ 8648 IFE ZZ, 8649 034314 204 00 0 00 035471 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8650 ;AND MOVE RESULT INTO AC 8651 034315 312 00 0 00 035471 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8652 STOP ^ 8653 034316 254 04 0 00 034317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8654 034317 324 00 0 00 034320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8656 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8657 8658 ;********** 8659 8660 8661 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8662 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8663 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8664 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8665 8666 002114 SN=SN+1 8667 004000 ZZ=ZZ+ZZ 8668 IFE ZZ, 8669 034320 204 00 0 00 035472 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8670 ;AND MOVE RESULT INTO AC 8671 034321 312 00 0 00 035472 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8672 STOP ^ 8673 034322 254 04 0 00 034323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8674 034323 324 00 0 00 034324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8675 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8676 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8677 8678 ;********** 8679 8680 8681 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8682 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8683 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8684 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8685 8686 002115 SN=SN+1 8687 010000 ZZ=ZZ+ZZ 8688 IFE ZZ, 8689 034324 204 00 0 00 035473 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8690 ;AND MOVE RESULT INTO AC 8691 034325 312 00 0 00 035473 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0202 8692 STOP ^ 8693 034326 254 04 0 00 034327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8694 034327 324 00 0 00 034330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8696 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8697 8698 ;********** 8699 8700 8701 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8702 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8703 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8704 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8705 8706 002116 SN=SN+1 8707 020000 ZZ=ZZ+ZZ 8708 IFE ZZ, 8709 034330 204 00 0 00 035474 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8710 ;AND MOVE RESULT INTO AC 8711 034331 312 00 0 00 035474 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8712 STOP ^ 8713 034332 254 04 0 00 034333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8714 034333 324 00 0 00 034334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8716 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8717 8718 ;********** 8719 8720 8721 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8722 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8723 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8724 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8725 8726 002117 SN=SN+1 8727 040000 ZZ=ZZ+ZZ 8728 IFE ZZ, 8729 034334 204 00 0 00 035475 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8730 ;AND MOVE RESULT INTO AC 8731 034335 312 00 0 00 035475 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8732 STOP ^ 8733 034336 254 04 0 00 034337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8734 034337 324 00 0 00 034340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8735 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8736 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8737 8738 ;********** 8739 8740 8741 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8742 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8743 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8744 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8745 8746 002120 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 27-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0203 8747 100000 ZZ=ZZ+ZZ 8748 IFE ZZ, 8749 034340 204 00 0 00 035476 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8750 ;AND MOVE RESULT INTO AC 8751 034341 312 00 0 00 035476 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8752 STOP ^ 8753 034342 254 04 0 00 034343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8754 034343 324 00 0 00 034344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8755 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8756 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8757 8758 ;********** 8759 8760 8761 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8762 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8763 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8764 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8765 8766 002121 SN=SN+1 8767 200000 ZZ=ZZ+ZZ 8768 IFE ZZ, 8769 034344 204 00 0 00 035477 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8770 ;AND MOVE RESULT INTO AC 8771 034345 312 00 0 00 035477 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8772 STOP ^ 8773 034346 254 04 0 00 034347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8774 034347 324 00 0 00 034350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8775 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8776 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8777 8778 ;********** 8779 8780 8781 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8782 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES 8783 ;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1]. THEN, C(AC) IS CHECKED. 8784 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF 8785 8786 002122 SN=SN+1 8787 400000 ZZ=ZZ+ZZ 8788 IFE ZZ, 8789 034350 204 00 0 00 035500 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8790 ;AND MOVE RESULT INTO AC 8791 034351 312 00 0 00 035500 CAME [XWD ZZ,ZZ] ;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ 8792 STOP ^ 8793 034352 254 04 0 00 034353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8794 034353 324 00 0 00 034354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8795 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8796 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8797 8798 ;********** 8799 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0204 8800 002200 SN=2200 8801 000000 ZZ=0 8802 8803 B2200: REPEAT ^D18,< 8804 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8805 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8806 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8807 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8808 8809 SN=SN+1 8810 ZZ=ZZ+ZZ+1 8811 IFE , 8812 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8813 ;AND MOVE RESULT INTO AC 8814 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8815 STOP 8816 8817 ;********** 8818 > 8819 8820 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8821 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8822 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8823 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8824 8825 002201 SN=SN+1 8826 000001 ZZ=ZZ+ZZ+1 8827 777777 777776 IFE , 8828 034354 204 00 0 00 035501 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8829 ;AND MOVE RESULT INTO AC 8830 034355 312 00 0 00 035501 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8831 STOP ^ 8832 034356 254 04 0 00 034357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8833 034357 324 00 0 00 034360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8835 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8836 8837 ;********** 8838 8839 8840 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8841 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8842 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8843 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8844 8845 002202 SN=SN+1 8846 777777 777775 ZZ=ZZ+ZZ+1 8847 IFE , 8848 034360 204 00 0 00 035502 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8849 ;AND MOVE RESULT INTO AC 8850 034361 312 00 0 00 035502 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8851 STOP ^ 8852 034362 254 04 0 00 034363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8853 034363 324 00 0 00 034364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8854 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0205 8855 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8856 8857 ;********** 8858 8859 8860 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8861 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8862 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8863 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8864 8865 002203 SN=SN+1 8866 777777 777773 ZZ=ZZ+ZZ+1 8867 IFE , 8868 034364 204 00 0 00 035503 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8869 ;AND MOVE RESULT INTO AC 8870 034365 312 00 0 00 035503 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8871 STOP ^ 8872 034366 254 04 0 00 034367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8873 034367 324 00 0 00 034370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8874 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8875 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8876 8877 ;********** 8878 8879 8880 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8881 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8882 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8883 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8884 8885 002204 SN=SN+1 8886 777777 777767 ZZ=ZZ+ZZ+1 8887 IFE , 8888 034370 204 00 0 00 035504 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8889 ;AND MOVE RESULT INTO AC 8890 034371 312 00 0 00 035504 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8891 STOP ^ 8892 034372 254 04 0 00 034373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8893 034373 324 00 0 00 034374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8894 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8895 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8896 8897 ;********** 8898 8899 8900 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8901 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8902 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8903 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8904 8905 002205 SN=SN+1 8906 777777 777757 ZZ=ZZ+ZZ+1 8907 IFE , 8908 034374 204 00 0 00 035505 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8909 ;AND MOVE RESULT INTO AC DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0206 8910 034375 312 00 0 00 035505 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8911 STOP ^ 8912 034376 254 04 0 00 034377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8913 034377 324 00 0 00 034400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8914 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8915 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8916 8917 ;********** 8918 8919 8920 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8921 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8922 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8923 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8924 8925 002206 SN=SN+1 8926 777777 777737 ZZ=ZZ+ZZ+1 8927 IFE , 8928 034400 204 00 0 00 035506 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8929 ;AND MOVE RESULT INTO AC 8930 034401 312 00 0 00 035506 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8931 STOP ^ 8932 034402 254 04 0 00 034403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8933 034403 324 00 0 00 034404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8934 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8935 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8936 8937 ;********** 8938 8939 8940 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8941 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8942 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8943 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8944 8945 002207 SN=SN+1 8946 777777 777677 ZZ=ZZ+ZZ+1 8947 IFE , 8948 034404 204 00 0 00 035507 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8949 ;AND MOVE RESULT INTO AC 8950 034405 312 00 0 00 035507 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8951 STOP ^ 8952 034406 254 04 0 00 034407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8953 034407 324 00 0 00 034410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8956 8957 ;********** 8958 8959 8960 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8961 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8962 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8963 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8964 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0207 8965 002210 SN=SN+1 8966 777777 777577 ZZ=ZZ+ZZ+1 8967 IFE , 8968 034410 204 00 0 00 035510 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8969 ;AND MOVE RESULT INTO AC 8970 034411 312 00 0 00 035510 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8971 STOP ^ 8972 034412 254 04 0 00 034413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8973 034413 324 00 0 00 034414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8974 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8975 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8976 8977 ;********** 8978 8979 8980 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 8981 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 8982 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 8983 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 8984 8985 002211 SN=SN+1 8986 777777 777377 ZZ=ZZ+ZZ+1 8987 IFE , 8988 034414 204 00 0 00 035511 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 8989 ;AND MOVE RESULT INTO AC 8990 034415 312 00 0 00 035511 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 8991 STOP ^ 8992 034416 254 04 0 00 034417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 8993 034417 324 00 0 00 034420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 8994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 8995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 8996 8997 ;********** 8998 8999 9000 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9001 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9002 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9003 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9004 9005 002212 SN=SN+1 9006 777777 776777 ZZ=ZZ+ZZ+1 9007 IFE , 9008 034420 204 00 0 00 035512 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9009 ;AND MOVE RESULT INTO AC 9010 034421 312 00 0 00 035512 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9011 STOP ^ 9012 034422 254 04 0 00 034423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9013 034423 324 00 0 00 034424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9014 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9015 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9016 9017 ;********** 9018 9019 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0208 9020 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9021 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9022 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9023 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9024 9025 002213 SN=SN+1 9026 777777 775777 ZZ=ZZ+ZZ+1 9027 IFE , 9028 034424 204 00 0 00 035513 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9029 ;AND MOVE RESULT INTO AC 9030 034425 312 00 0 00 035513 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9031 STOP ^ 9032 034426 254 04 0 00 034427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9033 034427 324 00 0 00 034430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9034 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9035 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9036 9037 ;********** 9038 9039 9040 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9041 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9042 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9043 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9044 9045 002214 SN=SN+1 9046 777777 773777 ZZ=ZZ+ZZ+1 9047 IFE , 9048 034430 204 00 0 00 035514 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9049 ;AND MOVE RESULT INTO AC 9050 034431 312 00 0 00 035514 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9051 STOP ^ 9052 034432 254 04 0 00 034433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9053 034433 324 00 0 00 034434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9054 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9055 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9056 9057 ;********** 9058 9059 9060 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9061 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9062 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9063 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9064 9065 002215 SN=SN+1 9066 777777 767777 ZZ=ZZ+ZZ+1 9067 IFE , 9068 034434 204 00 0 00 035515 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9069 ;AND MOVE RESULT INTO AC 9070 034435 312 00 0 00 035515 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9071 STOP ^ 9072 034436 254 04 0 00 034437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9073 034437 324 00 0 00 034440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9074 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0209 9075 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9076 9077 ;********** 9078 9079 9080 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9081 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9082 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9083 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9084 9085 002216 SN=SN+1 9086 777777 757777 ZZ=ZZ+ZZ+1 9087 IFE , 9088 034440 204 00 0 00 035516 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9089 ;AND MOVE RESULT INTO AC 9090 034441 312 00 0 00 035516 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9091 STOP ^ 9092 034442 254 04 0 00 034443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9093 034443 324 00 0 00 034444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9094 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9095 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9096 9097 ;********** 9098 9099 9100 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9101 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9102 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9103 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9104 9105 002217 SN=SN+1 9106 777777 737777 ZZ=ZZ+ZZ+1 9107 IFE , 9108 034444 204 00 0 00 035517 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9109 ;AND MOVE RESULT INTO AC 9110 034445 312 00 0 00 035517 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9111 STOP ^ 9112 034446 254 04 0 00 034447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9113 034447 324 00 0 00 034450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9114 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9115 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9116 9117 ;********** 9118 9119 9120 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9121 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9122 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9123 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9124 9125 002220 SN=SN+1 9126 777777 677777 ZZ=ZZ+ZZ+1 9127 IFE , 9128 034450 204 00 0 00 035520 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9129 ;AND MOVE RESULT INTO AC DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 28-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0210 9130 034451 312 00 0 00 035520 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9131 STOP ^ 9132 034452 254 04 0 00 034453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9133 034453 324 00 0 00 034454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9136 9137 ;********** 9138 9139 9140 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9141 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9142 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9143 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9144 9145 002221 SN=SN+1 9146 777777 577777 ZZ=ZZ+ZZ+1 9147 IFE , 9148 034454 204 00 0 00 035521 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9149 ;AND MOVE RESULT INTO AC 9150 034455 312 00 0 00 035521 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9151 STOP ^ 9152 034456 254 04 0 00 034457 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9153 034457 324 00 0 00 034460 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9154 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9155 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9156 9157 ;********** 9158 9159 9160 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9161 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES 9162 ;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0]. THEN, C(AC) IS CHECKED. 9163 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF 9164 9165 002222 SN=SN+1 9166 777777 377777 ZZ=ZZ+ZZ+1 9167 IFE , 9168 034460 204 00 0 00 035522 MOVS [XWD ZZ,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9169 ;AND MOVE RESULT INTO AC 9170 034461 312 00 0 00 035522 CAME [XWD ZZ,ZZ] ;PASS TEST IF AC CONTAINS ZZ,,ZZ 9171 STOP ^ 9172 034462 254 04 0 00 034463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9173 034463 324 00 0 00 034464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9174 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9175 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9176 9177 ;********** 9178 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0211 9179 002300 SN=2300 9180 000000 ZZ=0 9181 000000 YY=0 9182 9183 B2300: REPEAT ^D18,< 9184 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9185 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9186 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9187 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9188 ;THEN, C(AC) IS CHECKED. 9189 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9190 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9191 9192 SN=SN+1 9193 ZZ=ZZ+ZZ 9194 YY=YY+YY+1 9195 IFE ZZ, 9196 IFE , 9197 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9198 ;AND MOVE RESULT INTO AC 9199 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9200 STOP 9201 9202 ;********** 9203 > 9204 9205 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9206 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9207 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9208 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9209 ;THEN, C(AC) IS CHECKED. 9210 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9211 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9212 9213 002301 SN=SN+1 9214 000000 ZZ=ZZ+ZZ 9215 000001 YY=YY+YY+1 9216 000001 IFE ZZ, 9217 777777 777776 IFE , 9218 034464 204 00 0 00 035523 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9219 ;AND MOVE RESULT INTO AC 9220 034465 312 00 0 00 035524 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9221 STOP ^ 9222 034466 254 04 0 00 034467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9223 034467 324 00 0 00 034470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9224 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9225 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9226 9227 ;********** 9228 9229 9230 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9231 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9232 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9233 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0212 9234 ;THEN, C(AC) IS CHECKED. 9235 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9236 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9237 9238 002302 SN=SN+1 9239 000002 ZZ=ZZ+ZZ 9240 777777 777775 YY=YY+YY+1 9241 IFE ZZ, 9242 IFE , 9243 034470 204 00 0 00 035525 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9244 ;AND MOVE RESULT INTO AC 9245 034471 312 00 0 00 035526 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9246 STOP ^ 9247 034472 254 04 0 00 034473 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9248 034473 324 00 0 00 034474 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9249 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9250 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9251 9252 ;********** 9253 9254 9255 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9256 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9257 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9258 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9259 ;THEN, C(AC) IS CHECKED. 9260 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9261 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9262 9263 002303 SN=SN+1 9264 000004 ZZ=ZZ+ZZ 9265 777777 777773 YY=YY+YY+1 9266 IFE ZZ, 9267 IFE , 9268 034474 204 00 0 00 035527 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9269 ;AND MOVE RESULT INTO AC 9270 034475 312 00 0 00 035530 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9271 STOP ^ 9272 034476 254 04 0 00 034477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9273 034477 324 00 0 00 034500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9274 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9275 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9276 9277 ;********** 9278 9279 9280 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9281 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9282 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9283 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9284 ;THEN, C(AC) IS CHECKED. 9285 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9286 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9287 9288 002304 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0213 9289 000010 ZZ=ZZ+ZZ 9290 777777 777767 YY=YY+YY+1 9291 IFE ZZ, 9292 IFE , 9293 034500 204 00 0 00 035531 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9294 ;AND MOVE RESULT INTO AC 9295 034501 312 00 0 00 035532 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9296 STOP ^ 9297 034502 254 04 0 00 034503 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9298 034503 324 00 0 00 034504 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9299 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9300 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9301 9302 ;********** 9303 9304 9305 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9306 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9307 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9308 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9309 ;THEN, C(AC) IS CHECKED. 9310 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9311 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9312 9313 002305 SN=SN+1 9314 000020 ZZ=ZZ+ZZ 9315 777777 777757 YY=YY+YY+1 9316 IFE ZZ, 9317 IFE , 9318 034504 204 00 0 00 035533 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9319 ;AND MOVE RESULT INTO AC 9320 034505 312 00 0 00 035534 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9321 STOP ^ 9322 034506 254 04 0 00 034507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9323 034507 324 00 0 00 034510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9324 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9325 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9326 9327 ;********** 9328 9329 9330 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9331 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9332 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9333 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9334 ;THEN, C(AC) IS CHECKED. 9335 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9336 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9337 9338 002306 SN=SN+1 9339 000040 ZZ=ZZ+ZZ 9340 777777 777737 YY=YY+YY+1 9341 IFE ZZ, 9342 IFE , 9343 034510 204 00 0 00 035535 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0214 9344 ;AND MOVE RESULT INTO AC 9345 034511 312 00 0 00 035536 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9346 STOP ^ 9347 034512 254 04 0 00 034513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9348 034513 324 00 0 00 034514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9349 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9350 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9351 9352 ;********** 9353 9354 9355 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9356 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9357 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9358 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9359 ;THEN, C(AC) IS CHECKED. 9360 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9361 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9362 9363 002307 SN=SN+1 9364 000100 ZZ=ZZ+ZZ 9365 777777 777677 YY=YY+YY+1 9366 IFE ZZ, 9367 IFE , 9368 034514 204 00 0 00 035537 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9369 ;AND MOVE RESULT INTO AC 9370 034515 312 00 0 00 035540 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9371 STOP ^ 9372 034516 254 04 0 00 034517 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9373 034517 324 00 0 00 034520 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9374 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9375 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9376 9377 ;********** 9378 9379 9380 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9381 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9382 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9383 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9384 ;THEN, C(AC) IS CHECKED. 9385 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9386 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9387 9388 002310 SN=SN+1 9389 000200 ZZ=ZZ+ZZ 9390 777777 777577 YY=YY+YY+1 9391 IFE ZZ, 9392 IFE , 9393 034520 204 00 0 00 035541 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9394 ;AND MOVE RESULT INTO AC 9395 034521 312 00 0 00 035542 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9396 STOP ^ 9397 034522 254 04 0 00 034523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9398 034523 324 00 0 00 034524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0215 9399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9400 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9401 9402 ;********** 9403 9404 9405 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9406 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9407 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9408 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9409 ;THEN, C(AC) IS CHECKED. 9410 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9411 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9412 9413 002311 SN=SN+1 9414 000400 ZZ=ZZ+ZZ 9415 777777 777377 YY=YY+YY+1 9416 IFE ZZ, 9417 IFE , 9418 034524 204 00 0 00 035543 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9419 ;AND MOVE RESULT INTO AC 9420 034525 312 00 0 00 035544 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9421 STOP ^ 9422 034526 254 04 0 00 034527 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9423 034527 324 00 0 00 034530 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9424 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9425 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9426 9427 ;********** 9428 9429 9430 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9431 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9432 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9433 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9434 ;THEN, C(AC) IS CHECKED. 9435 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9436 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9437 9438 002312 SN=SN+1 9439 001000 ZZ=ZZ+ZZ 9440 777777 776777 YY=YY+YY+1 9441 IFE ZZ, 9442 IFE , 9443 034530 204 00 0 00 035545 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9444 ;AND MOVE RESULT INTO AC 9445 034531 312 00 0 00 035546 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9446 STOP ^ 9447 034532 254 04 0 00 034533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9448 034533 324 00 0 00 034534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9449 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9450 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9451 9452 ;********** 9453 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0216 9454 9455 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9456 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9457 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9458 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9459 ;THEN, C(AC) IS CHECKED. 9460 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9461 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9462 9463 002313 SN=SN+1 9464 002000 ZZ=ZZ+ZZ 9465 777777 775777 YY=YY+YY+1 9466 IFE ZZ, 9467 IFE , 9468 034534 204 00 0 00 035547 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9469 ;AND MOVE RESULT INTO AC 9470 034535 312 00 0 00 035550 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9471 STOP ^ 9472 034536 254 04 0 00 034537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9473 034537 324 00 0 00 034540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9474 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9475 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9476 9477 ;********** 9478 9479 9480 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9481 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9482 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9483 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9484 ;THEN, C(AC) IS CHECKED. 9485 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9486 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9487 9488 002314 SN=SN+1 9489 004000 ZZ=ZZ+ZZ 9490 777777 773777 YY=YY+YY+1 9491 IFE ZZ, 9492 IFE , 9493 034540 204 00 0 00 035551 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9494 ;AND MOVE RESULT INTO AC 9495 034541 312 00 0 00 035552 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9496 STOP ^ 9497 034542 254 04 0 00 034543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9498 034543 324 00 0 00 034544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9501 9502 ;********** 9503 9504 9505 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9506 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9507 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9508 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0217 9509 ;THEN, C(AC) IS CHECKED. 9510 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9511 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9512 9513 002315 SN=SN+1 9514 010000 ZZ=ZZ+ZZ 9515 777777 767777 YY=YY+YY+1 9516 IFE ZZ, 9517 IFE , 9518 034544 204 00 0 00 035553 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9519 ;AND MOVE RESULT INTO AC 9520 034545 312 00 0 00 035554 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9521 STOP ^ 9522 034546 254 04 0 00 034547 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9523 034547 324 00 0 00 034550 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9526 9527 ;********** 9528 9529 9530 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9531 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9532 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9533 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9534 ;THEN, C(AC) IS CHECKED. 9535 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9536 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9537 9538 002316 SN=SN+1 9539 020000 ZZ=ZZ+ZZ 9540 777777 757777 YY=YY+YY+1 9541 IFE ZZ, 9542 IFE , 9543 034550 204 00 0 00 035555 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9544 ;AND MOVE RESULT INTO AC 9545 034551 312 00 0 00 035556 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9546 STOP ^ 9547 034552 254 04 0 00 034553 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9548 034553 324 00 0 00 034554 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9551 9552 ;********** 9553 9554 9555 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9556 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9557 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9558 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9559 ;THEN, C(AC) IS CHECKED. 9560 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9561 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9562 9563 002317 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0218 9564 040000 ZZ=ZZ+ZZ 9565 777777 737777 YY=YY+YY+1 9566 IFE ZZ, 9567 IFE , 9568 034554 204 00 0 00 035557 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9569 ;AND MOVE RESULT INTO AC 9570 034555 312 00 0 00 035560 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9571 STOP ^ 9572 034556 254 04 0 00 034557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9573 034557 324 00 0 00 034560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9574 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9575 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9576 9577 ;********** 9578 9579 9580 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9581 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9582 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9583 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9584 ;THEN, C(AC) IS CHECKED. 9585 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9586 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9587 9588 002320 SN=SN+1 9589 100000 ZZ=ZZ+ZZ 9590 777777 677777 YY=YY+YY+1 9591 IFE ZZ, 9592 IFE , 9593 034560 204 00 0 00 035561 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9594 ;AND MOVE RESULT INTO AC 9595 034561 312 00 0 00 035562 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9596 STOP ^ 9597 034562 254 04 0 00 034563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9598 034563 324 00 0 00 034564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9599 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9600 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9601 9602 ;********** 9603 9604 9605 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9606 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9607 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9608 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9609 ;THEN, C(AC) IS CHECKED. 9610 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9611 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9612 9613 002321 SN=SN+1 9614 200000 ZZ=ZZ+ZZ 9615 777777 577777 YY=YY+YY+1 9616 IFE ZZ, 9617 IFE , 9618 034564 204 00 0 00 035563 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 29-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0219 9619 ;AND MOVE RESULT INTO AC 9620 034565 312 00 0 00 035564 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9621 STOP ^ 9622 034566 254 04 0 00 034567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9623 034567 324 00 0 00 034570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9624 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9625 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9626 9627 ;********** 9628 9629 9630 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9631 ;MOVES IT INTO AC. IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E 9632 ;AND A 0 IS RIPPLED THRU THE RIGHT HALF 9633 ;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9634 ;THEN, C(AC) IS CHECKED. 9635 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9636 ;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9637 9638 002322 SN=SN+1 9639 400000 ZZ=ZZ+ZZ 9640 777777 377777 YY=YY+YY+1 9641 IFE ZZ, 9642 IFE , 9643 034570 204 00 0 00 035565 MOVS [XWD ZZ,YY] ;*MOVS SHOULD SWAP HALVES OF C(E) 9644 ;AND MOVE RESULT INTO AC 9645 034571 312 00 0 00 035566 CAME [XWD YY,ZZ] ;PASS TEST IF AC CONTAINS YY,,ZZ 9646 STOP ^ 9647 034572 254 04 0 00 034573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9648 034573 324 00 0 00 034574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9649 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9650 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9651 9652 ;********** 9653 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0220 9654 002400 SN=2400 9655 000000 ZZ=0 9656 000000 YY=0 9657 9658 B2400: REPEAT ^D18,< 9659 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9660 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9661 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9662 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9663 ;THEN, C(AC) IS CHECKED. 9664 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9665 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9666 9667 SN=SN+1 9668 ZZ=ZZ+ZZ 9669 YY=YY+YY+1 9670 IFE ZZ, 9671 IFE , 9672 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9673 ;AND MOVE RESULT INTO AC 9674 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9675 STOP 9676 9677 ;********** 9678 > 9679 9680 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9681 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9682 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9683 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9684 ;THEN, C(AC) IS CHECKED. 9685 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9686 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9687 9688 002401 SN=SN+1 9689 000000 ZZ=ZZ+ZZ 9690 000001 YY=YY+YY+1 9691 000001 IFE ZZ, 9692 777777 777776 IFE , 9693 034574 204 00 0 00 035524 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9694 ;AND MOVE RESULT INTO AC 9695 034575 312 00 0 00 035523 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9696 STOP ^ 9697 034576 254 04 0 00 034577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9698 034577 324 00 0 00 034600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9699 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9700 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9701 9702 ;********** 9703 9704 9705 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9706 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9707 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9708 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0221 9709 ;THEN, C(AC) IS CHECKED. 9710 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9711 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9712 9713 002402 SN=SN+1 9714 000002 ZZ=ZZ+ZZ 9715 777777 777775 YY=YY+YY+1 9716 IFE ZZ, 9717 IFE , 9718 034600 204 00 0 00 035526 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9719 ;AND MOVE RESULT INTO AC 9720 034601 312 00 0 00 035525 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9721 STOP ^ 9722 034602 254 04 0 00 034603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9723 034603 324 00 0 00 034604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9725 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9726 9727 ;********** 9728 9729 9730 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9731 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9732 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9733 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9734 ;THEN, C(AC) IS CHECKED. 9735 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9736 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9737 9738 002403 SN=SN+1 9739 000004 ZZ=ZZ+ZZ 9740 777777 777773 YY=YY+YY+1 9741 IFE ZZ, 9742 IFE , 9743 034604 204 00 0 00 035530 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9744 ;AND MOVE RESULT INTO AC 9745 034605 312 00 0 00 035527 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9746 STOP ^ 9747 034606 254 04 0 00 034607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9748 034607 324 00 0 00 034610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9749 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9750 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9751 9752 ;********** 9753 9754 9755 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9756 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9757 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9758 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9759 ;THEN, C(AC) IS CHECKED. 9760 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9761 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9762 9763 002404 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-2 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0222 9764 000010 ZZ=ZZ+ZZ 9765 777777 777767 YY=YY+YY+1 9766 IFE ZZ, 9767 IFE , 9768 034610 204 00 0 00 035532 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9769 ;AND MOVE RESULT INTO AC 9770 034611 312 00 0 00 035531 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9771 STOP ^ 9772 034612 254 04 0 00 034613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9773 034613 324 00 0 00 034614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9776 9777 ;********** 9778 9779 9780 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9781 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9782 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9783 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9784 ;THEN, C(AC) IS CHECKED. 9785 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9786 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9787 9788 002405 SN=SN+1 9789 000020 ZZ=ZZ+ZZ 9790 777777 777757 YY=YY+YY+1 9791 IFE ZZ, 9792 IFE , 9793 034614 204 00 0 00 035534 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9794 ;AND MOVE RESULT INTO AC 9795 034615 312 00 0 00 035533 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9796 STOP ^ 9797 034616 254 04 0 00 034617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9798 034617 324 00 0 00 034620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9799 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9800 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9801 9802 ;********** 9803 9804 9805 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9806 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9807 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9808 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9809 ;THEN, C(AC) IS CHECKED. 9810 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9811 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9812 9813 002406 SN=SN+1 9814 000040 ZZ=ZZ+ZZ 9815 777777 777737 YY=YY+YY+1 9816 IFE ZZ, 9817 IFE , 9818 034620 204 00 0 00 035536 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-3 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0223 9819 ;AND MOVE RESULT INTO AC 9820 034621 312 00 0 00 035535 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9821 STOP ^ 9822 034622 254 04 0 00 034623 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9823 034623 324 00 0 00 034624 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9824 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9825 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9826 9827 ;********** 9828 9829 9830 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9831 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9832 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9833 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9834 ;THEN, C(AC) IS CHECKED. 9835 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9836 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9837 9838 002407 SN=SN+1 9839 000100 ZZ=ZZ+ZZ 9840 777777 777677 YY=YY+YY+1 9841 IFE ZZ, 9842 IFE , 9843 034624 204 00 0 00 035540 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9844 ;AND MOVE RESULT INTO AC 9845 034625 312 00 0 00 035537 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9846 STOP ^ 9847 034626 254 04 0 00 034627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9848 034627 324 00 0 00 034630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9849 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9850 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9851 9852 ;********** 9853 9854 9855 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9856 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9857 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9858 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9859 ;THEN, C(AC) IS CHECKED. 9860 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9861 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9862 9863 002410 SN=SN+1 9864 000200 ZZ=ZZ+ZZ 9865 777777 777577 YY=YY+YY+1 9866 IFE ZZ, 9867 IFE , 9868 034630 204 00 0 00 035542 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9869 ;AND MOVE RESULT INTO AC 9870 034631 312 00 0 00 035541 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9871 STOP ^ 9872 034632 254 04 0 00 034633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9873 034633 324 00 0 00 034634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-4 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0224 9874 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9875 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9876 9877 ;********** 9878 9879 9880 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9881 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9882 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9883 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9884 ;THEN, C(AC) IS CHECKED. 9885 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9886 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9887 9888 002411 SN=SN+1 9889 000400 ZZ=ZZ+ZZ 9890 777777 777377 YY=YY+YY+1 9891 IFE ZZ, 9892 IFE , 9893 034634 204 00 0 00 035544 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9894 ;AND MOVE RESULT INTO AC 9895 034635 312 00 0 00 035543 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9896 STOP ^ 9897 034636 254 04 0 00 034637 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9898 034637 324 00 0 00 034640 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9899 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9900 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9901 9902 ;********** 9903 9904 9905 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9906 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9907 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9908 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9909 ;THEN, C(AC) IS CHECKED. 9910 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9911 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9912 9913 002412 SN=SN+1 9914 001000 ZZ=ZZ+ZZ 9915 777777 776777 YY=YY+YY+1 9916 IFE ZZ, 9917 IFE , 9918 034640 204 00 0 00 035546 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9919 ;AND MOVE RESULT INTO AC 9920 034641 312 00 0 00 035545 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9921 STOP ^ 9922 034642 254 04 0 00 034643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9923 034643 324 00 0 00 034644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9924 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9925 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9926 9927 ;********** 9928 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-5 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0225 9929 9930 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9931 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9932 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9933 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9934 ;THEN, C(AC) IS CHECKED. 9935 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9936 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9937 9938 002413 SN=SN+1 9939 002000 ZZ=ZZ+ZZ 9940 777777 775777 YY=YY+YY+1 9941 IFE ZZ, 9942 IFE , 9943 034644 204 00 0 00 035550 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9944 ;AND MOVE RESULT INTO AC 9945 034645 312 00 0 00 035547 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9946 STOP ^ 9947 034646 254 04 0 00 034647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9948 034647 324 00 0 00 034650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9950 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9951 9952 ;********** 9953 9954 9955 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9956 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9957 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9958 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 9959 ;THEN, C(AC) IS CHECKED. 9960 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9961 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9962 9963 002414 SN=SN+1 9964 004000 ZZ=ZZ+ZZ 9965 777777 773777 YY=YY+YY+1 9966 IFE ZZ, 9967 IFE , 9968 034650 204 00 0 00 035552 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9969 ;AND MOVE RESULT INTO AC 9970 034651 312 00 0 00 035551 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9971 STOP ^ 9972 034652 254 04 0 00 034653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9973 034653 324 00 0 00 034654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9974 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 9975 ;IN THE SUBTEST) TO LOOP ON ERROR^ 9976 9977 ;********** 9978 9979 9980 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 9981 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 9982 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 9983 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-6 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0226 9984 ;THEN, C(AC) IS CHECKED. 9985 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 9986 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 9987 9988 002415 SN=SN+1 9989 010000 ZZ=ZZ+ZZ 9990 777777 767777 YY=YY+YY+1 9991 IFE ZZ, 9992 IFE , 9993 034654 204 00 0 00 035554 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 9994 ;AND MOVE RESULT INTO AC 9995 034655 312 00 0 00 035553 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 9996 STOP ^ 9997 034656 254 04 0 00 034657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 9998 034657 324 00 0 00 034660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 9999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10001 10002 ;********** 10003 10004 10005 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 10006 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 10007 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 10008 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 10009 ;THEN, C(AC) IS CHECKED. 10010 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 10011 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 10012 10013 002416 SN=SN+1 10014 020000 ZZ=ZZ+ZZ 10015 777777 757777 YY=YY+YY+1 10016 IFE ZZ, 10017 IFE , 10018 034660 204 00 0 00 035556 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 10019 ;AND MOVE RESULT INTO AC 10020 034661 312 00 0 00 035555 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 10021 STOP ^ 10022 034662 254 04 0 00 034663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10023 034663 324 00 0 00 034664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10024 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10025 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10026 10027 ;********** 10028 10029 10030 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 10031 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 10032 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 10033 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 10034 ;THEN, C(AC) IS CHECKED. 10035 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 10036 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 10037 10038 002417 SN=SN+1 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-7 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0227 10039 040000 ZZ=ZZ+ZZ 10040 777777 737777 YY=YY+YY+1 10041 IFE ZZ, 10042 IFE , 10043 034664 204 00 0 00 035560 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 10044 ;AND MOVE RESULT INTO AC 10045 034665 312 00 0 00 035557 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 10046 STOP ^ 10047 034666 254 04 0 00 034667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10048 034667 324 00 0 00 034670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10049 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10050 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10051 10052 ;********** 10053 10054 10055 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 10056 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 10057 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 10058 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 10059 ;THEN, C(AC) IS CHECKED. 10060 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 10061 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 10062 10063 002420 SN=SN+1 10064 100000 ZZ=ZZ+ZZ 10065 777777 677777 YY=YY+YY+1 10066 IFE ZZ, 10067 IFE , 10068 034670 204 00 0 00 035562 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 10069 ;AND MOVE RESULT INTO AC 10070 034671 312 00 0 00 035561 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 10071 STOP ^ 10072 034672 254 04 0 00 034673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10073 034673 324 00 0 00 034674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10074 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10075 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10076 10077 ;********** 10078 10079 10080 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 10081 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 10082 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 10083 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 10084 ;THEN, C(AC) IS CHECKED. 10085 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 10086 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 10087 10088 002421 SN=SN+1 10089 200000 ZZ=ZZ+ZZ 10090 777777 577777 YY=YY+YY+1 10091 IFE ZZ, 10092 IFE , 10093 034674 204 00 0 00 035564 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 30-8 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVS INSTRUCTION SEQ 0228 10094 ;AND MOVE RESULT INTO AC 10095 034675 312 00 0 00 035563 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 10096 STOP ^ 10097 034676 254 04 0 00 034677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10098 034677 324 00 0 00 034700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10099 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10100 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10101 10102 ;********** 10103 10104 10105 ;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND 10106 ;MOVES IT INTO AC. IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E 10107 ;AND A 1 IS RIPPLED THRU THE RIGHT HALF 10108 ;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0]. 10109 ;THEN, C(AC) IS CHECKED. 10110 ;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF 10111 ;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E 10112 10113 002422 SN=SN+1 10114 400000 ZZ=ZZ+ZZ 10115 777777 377777 YY=YY+YY+1 10116 IFE ZZ, 10117 IFE , 10118 034700 204 00 0 00 035566 MOVS [XWD YY,ZZ] ;*MOVS SHOULD SWAP HALVES OF C(E) 10119 ;AND MOVE RESULT INTO AC 10120 034701 312 00 0 00 035565 CAME [XWD ZZ,YY] ;PASS TEST IF C(AC)=ZZ,,YY 10121 STOP ^ 10122 034702 254 04 0 00 034703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10123 034703 324 00 0 00 034704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10124 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10125 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10126 10127 ;********** 10128 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 31 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAXX) INSTRUCTIONS SEQ 0229 10129 SUBTTL TEST OF COMPARE (CAXX) INSTRUCTIONS 10130 10131 ;********** 10132 10133 ;THIS TEST VERIFIES THAT CAIE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 10134 ;AND ONLY WHEN C(AC)=E 10135 ;IN THIS CASE C(AC)=E=0; HENCE, CAIE SHOULD SKIP 10136 ;OTHERWISE THE PROGRAM HALTS 10137 10138 034704 400 00 0 00 000000 B2500: SETZ ;PRELOAD AC TO 0 10139 034705 302 00 0 00 000000 CAIE ;*CAIE SHOULD SKIP BECAUSE C(AC)=E 10140 STOP^ 10141 034706 254 04 0 00 034707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10142 034707 324 00 0 00 034710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10143 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10144 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10145 10146 ;***** FAILURE ANALYSIS ***** 10147 ;C(AC0) C(AC1) FAILING SIGNAL 10148 10149 ; SW: PC CHANGE 10150 ; FC: AD FM ; EN 10151 ; FC: AD CRY 36 10152 ; FC: AB PC EN 10153 ; ET0: COND P: PC CLK EN 10154 10155 ;********** 10156 10157 ;THIS TEST VERIFIES THAT CAIE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 10158 ;AND ONLY WHEN C(AC)=E 10159 ;IN THIS CASE C(AC)=E=1. HENCE, CAIE SHOULD SKIP 10160 ;OTHERWISE THE PROGRAM HALTS 10161 10162 034710 200 00 0 00 035334 B2600: MOVE [1] ;PRELOAD AC TO 1 10163 034711 302 00 0 00 000001 CAIE 1 ;*CAIE SHOULD SKIP BECAUSE C(AC)=E 10164 STOP^ 10165 034712 254 04 0 00 034713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10166 034713 324 00 0 00 034714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10169 10170 ;***** FAILURE ANALYSIS ***** 10171 ;C(AC0) C(AC1) FAILING SIGNAL 10172 10173 ; FC: AD AR - EN 10174 10175 ;********** 10176 10177 ;THIS TEST VERIFIES THAT CAME SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 10178 ;AND ONLY WHEN C(AC)=C(E) 10179 ;IN THIS CASE C(AC)=C(E)=1; HENCE, CAME SHOULD SKIP 10180 ;OTHERWISE THE PROGRAM HALTS 10181 10182 034714 201 00 0 00 000001 B2700: MOVEI 1 ;PRELOAD AC TO 1 10183 034715 312 00 0 00 035334 CAME [1] ;*CAME SHOULD SKIP BECAUSE C(AC)=C(E) DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 31-1 DSKAB1 MAC 28-Mar-78 12:29 TEST OF COMPARE (CAXX) INSTRUCTIONS SEQ 0230 10184 STOP^ 10185 034716 254 04 0 00 034717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10186 034717 324 00 0 00 034720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10187 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10188 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10189 10190 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 32 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0231 10191 SUBTTL TEST OF BOOLEAN INSTRUCTIONS 10192 10193 ;********** 10194 10195 ;THIS TEST VERIFIES THAT SETCA IGNORES THE ADDRESS FIELD OF THE INSTUCTION WORD. 10196 ;IN THIS CASE C(AC)=0,,-1; HENCE, THE RESULT IN THE AC SHOULD BE -1,,0 10197 ;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES. 10198 10199 034720 201 00 0 00 777777 B3000: MOVEI -1 ;PRELOAD AC TO 0,,-1 10200 034721 450 00 0 00 035442 SETCA [-1] ;*SETCA SHOULD PUT -1,,0 INTO THE AC 10201 034722 312 00 0 00 035420 CAME [-1,,0] ;PASS TEST IF C(AC)=-1,,0 10202 STOP^ 10203 034723 254 04 0 00 034724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10204 034724 324 00 0 00 034725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10205 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10206 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10207 10208 ;********** 10209 10210 ;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE 10211 ;RESULT IN THE AC. 10212 ;IN THIS CASE C(AC)=0,,-1; HENCE, THE RESULT IN THE AC SHOULD BE -1,,0 10213 ;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES 10214 10215 034725 201 00 0 00 777777 B3100: MOVEI -1 ;PRELOAD AC TO 0,,-1 10216 034726 450 00 0 00 000000 SETCA ;*SETCA SHOULD PUT -1,,0 INTO THE AC 10217 034727 312 00 0 00 035420 CAME [-1,,0] ;PASS TEST IF C(AC) =-1,,0 10218 STOP^ 10219 034730 254 04 0 00 034731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10220 034731 324 00 0 00 034732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10221 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10222 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10223 10224 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 33 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0232 10225 ;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE 10226 ;RESULT IN THE AC, 10227 ;IN THIS CASE C(AC)=0,,0 HENCE, THE RESULT IN THE AC SHOULD BE,-1 10228 ;IF THE RESULT IN THE AC IS -1,,-1, THE TEST PASSES 10229 10230 034732 201 00 0 00 000000 B3200: MOVEI 0 ;PRELOAD AC TO 0,,0 10231 034733 450 00 0 00 000000 SETCA ;*SETCA SHOULD PUT -1,,-1 INTO THE AC 10232 034734 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC) =-1,,-1 10233 STOP^ 10234 034735 254 04 0 00 034736 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10235 034736 324 00 0 00 034737 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10236 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10237 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10238 10239 ;***** FAILURE ANALYSIS ***** 10240 ;C(AC0) C(AC1) FAILING SIGNAL 10241 10242 ;0 ET2: AR AD EN 10243 10244 ;********** 10245 10246 ;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE 10247 ;RESULT IN THE AC, 10248 ;IN THIS CASE C(AC)=-1,,-1; HENCE, THE RESULT IN THE AC SHOULD BE 0,,0 10249 ;IF THE RESULT IN THE AC IS ZERO, THE TEST PASSES 10250 10251 034737 200 00 0 00 035442 B3300: MOVE [-1] ;PRELOAD AC TO -1,,-1 10252 034740 450 00 0 00 000000 SETCA ;*SETCA SHOULD PUT 0,,0 INTO THE AC 10253 034741 312 00 0 00 035330 CAME [0] ;PASS TEST IF C(AC) IS ZERO 10254 STOP^ 10255 034742 254 04 0 00 034743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10256 034743 324 00 0 00 034744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10257 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10258 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10259 10260 ;***** FAILURE ANALYSIS ***** 10261 ;C(AC0) C(AC1) FAILING SIGNAL 10262 10263 ;-1,,-1 FC: AD FM - EN 10264 10265 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 34 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0233 10266 ;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE 10267 ;RESULT IN THE AC. 10268 ;IN THIS CASE AC=E AND C(E)=C(AC)=0,,-1; HENCE, THE RESULT IN THE AC SHOULD BE -1,,0 10269 ;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES 10270 10271 034744 201 00 0 00 777777 B3500: MOVEI -1 ;PRELOAD AC TO 0,,-1 10272 034745 460 00 0 00 000000 SETCM ;*SETCM SHOULD PUT -1,,0 INTO THE AC 10273 034746 312 00 0 00 035420 CAME [-1,,0] ;PASS TEST IF C(AC) =-1,,0 10274 STOP^ 10275 034747 254 04 0 00 034750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10276 034750 324 00 0 00 034751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10277 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10278 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10279 10280 ;***** FAILURE ANALYSIS ***** 10281 ;C(AC0) C(AC1) FAILING SIGNAL 10282 10283 ;-1,,-1 SW: FCE 10284 ;-1,,-1 FC: AD AR - EN 10285 ;0,,-1 ET2: AR AD EN 10286 10287 ;********** 10288 10289 ;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE 10290 ;RESULT IN THE AC. 10291 ;IN THIS CASE C(E)=-1,,-1; HENCE, THE RESULT IN THE AC SHOULD BE 0,,0 10292 ;IF THE RESULT IN THE AC IS ZERO,THE TEST PASSES 10293 10294 034751 460 00 0 00 035442 B3600: SETCM [-1] ;*SETCM SHOULD PUT 0 INTO THE AC 10295 034752 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC0)=0 10296 STOP^ 10297 034753 254 04 0 00 034754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10298 034754 324 00 0 00 034755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10299 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10300 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10301 10302 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 35 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0234 10303 ;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE 10304 ;RESULT IN THE AC. 10305 ;IN THIS CASE C(E)=0,,0; HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 10306 ;IF THE RESULT IN THE AC IS -1,,-1,THE TEST PASSES 10307 10308 034755 460 00 0 00 035330 B3700: SETCM [0] ;*SETCM SHOULD PUT -1,,-1 INTO THE AC 10309 034756 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 10310 STOP^ 10311 034757 254 04 0 00 034760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10312 034760 324 00 0 00 034761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10313 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10314 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10315 10316 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 36 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0235 10317 ;THIS TEST VERIFIES THAT SETO SETS C(AC) TO -1,,-1. SETO IGNORES 10318 ;THE ADDRESS FIELD OF THE INSTRUCTION WORD. 10319 ;FIRST C(AC) IS SET TO 0,,0; THEN SETO IS EXECUTED. 10320 ;THE AC IS THEN CHECKED FOR ALL ONES. IF C(AC) IS ALL ONES, 10321 ;THE TEST PASSES 10322 10323 034761 201 00 0 00 000000 B4300: MOVEI 0 ;PRELOAD AC WITH 0,,0 10324 034762 474 00 0 00 000000 SETO ;*SETO SHOULD LOAD THE AC WITH -1,,-1 10325 034763 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 10326 STOP^ 10327 034764 254 04 0 00 034765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10328 034765 324 00 0 00 034766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10329 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10330 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10331 10332 ;***** FAILURE ANALYSIS ***** 10333 ;C(AC0) C(AC1) FAILING SIGNAL 10334 10335 ;0 ET2: AR AD EN 10336 10337 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 37 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0236 10338 ;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL 10339 ;INCLUSIVE OR OF C(AC) WITH THE COMPLEMENT OF C(MEMORY). 10340 ;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=0. 10341 ;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES. 10342 ;THE AC IS CHECKED FOR ITS FINAL CONTENTS NON-ZERO. 10343 ;IF C(AC) IS NOT=0, THE TEST PASSES 10344 10345 034766 201 00 0 00 000000 B4400: MOVEI 0 ;PRELOAD AC,E WITH 0 10346 034767 464 00 0 00 000000 ORCM ;*ORCM SHOULD PUT ALL ONES INTO AC0 10347 034770 336 00 0 00 000000 SKIPN ;PASS IF C(AC) IS NON-ZERO 10348 STOP^ 10349 034771 254 04 0 00 034772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10350 034772 324 00 0 00 034773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10353 10354 ;********** 10355 10356 ;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL 10357 ;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY). 10358 ;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=0 10359 ;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES. 10360 ;THE AC IS CHECKED FOR ITS FINAL CONTENTS EQUAL TO -1,,-1 10361 ;IF C(AC0)=-1,,-1, THE TEST PASSES 10362 10363 034773 201 00 0 00 000000 B4500: MOVEI 0 ;PRELOAD AC,E WITH 0 10364 034774 464 00 0 00 000000 ORCM ;*ORCM SHOULD PUT ALL ONES INTO AC0 10365 034775 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10366 STOP^ 10367 034776 254 04 0 00 034777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10368 034777 324 00 0 00 035000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10371 10372 ;***** FAILURE ANALYSIS ***** 10373 ;C(AC0) C(AC1) FAILING SIGNAL 10374 10375 ;0 SW: ET0 10376 ;0 FC: AD AR + EN 10377 ;0 ET2: AR AD EN 10378 10379 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 38 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0237 10380 ;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL 10381 ;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY). 10382 ;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=-1,,-1 10383 ;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES. 10384 ;THE AC IS CHECKED FOR ITS FINAL CONTENTS EQUAL TO -1,,-1 10385 ;IF C(AC0)=-1,,-1, THE TEST PASSES 10386 10387 035000 200 00 0 00 035442 B4600: MOVE [-1] ;PRELOAD AC,E WITH -1,,-1 10388 035001 464 00 0 00 000000 ORCM ;*ORCM SHOULD PUT ALL ONES INTO AC0 10389 035002 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10390 STOP^ 10391 035003 254 04 0 00 035004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10392 035004 324 00 0 00 035005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10393 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10394 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10395 10396 ;***** FAILURE ANALYSIS ***** 10397 ;C(AC0) C(AC1) FAILING SIGNAL 10398 10399 ;0 FC: AD FM - EN 10400 ;0 ET0: AR AD EN 10401 10402 ;********** 10403 10404 ;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL 10405 ;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY). 10406 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1; HENCE, THE RESULT 10407 ;IN THE AC SHOULD BE 0. THE AC IS CHECKED FOR ITS INAL CONTENTS=0. 10408 ;IF C(AC)=0, THE TEST PASSES 10409 10410 035005 201 00 0 00 000000 B4700: MOVEI 0 ;PRELOAD AC WITH 0 10411 035006 464 00 0 00 035442 ORCM [-1] ;*ORCM SHOULD PLACE ALL ZEROS INTO THE AC 10412 035007 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0,,0 10413 STOP^ 10414 035010 254 04 0 00 035011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10415 035011 324 00 0 00 035012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10416 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10417 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10418 10419 ;***** FAILURE ANALYSIS ***** 10420 ;C(AC0) C(AC1) FAILING SIGNAL 10421 10422 ;-E SW: FCE 10423 10424 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 39 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0238 10425 ;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL 10426 ;INCLUSIVE OR OF C(AC) WITH C(E). 10427 ;IN THIS CASE AC=E AND C(AC)=C(E)=0,,0. HENCE THE 10428 ;RESULT IN THE AC SHOULD BE 0,,0. 10429 ;THE AC IS CHECKED FOR 0,,0. IF C(AC)=0,,0, THIS TEST PASSES 10430 10431 035012 201 00 0 00 000000 B5000: MOVEI 0 ;PRELOAD AC,E WITH 0,,0 10432 035013 434 00 0 00 000000 IOR ;*IOR SHOULD PUT 0 INTO AC 10433 035014 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0,,0 10434 STOP^ 10435 035015 254 04 0 00 035016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10436 035016 324 00 0 00 035017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10438 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10439 10440 ;***** FAILURE ANALYSIS ***** 10441 ;C(AC0) C(AC1) FAILING SIGNAL 10442 10443 ;-1,,-1 SW: ET0 10444 ;-1,,-1 ET0: AR AD EN 10445 ;-1,,-1 ET0: AD AR - EN 10446 ;-1,,-1 ET2: AR AD EN 10447 10448 ;********** 10449 10450 ;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL 10451 ;INCLUSIVE OR OF C(AC) WITH C(E). 10452 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE 10453 ;RESULT IN THE AC SHOULD BE -1,,-1. 10454 ;THE AC IS CHECKED FOR -1,,-1 10455 ;IF C(AC) =-1,,-1 THE TEST PASSES. 10456 10457 035017 201 00 0 00 000000 B5100: MOVEI 0 ;PRELOAD AC WITH 0 10458 035020 434 00 0 00 035442 IOR [-1] ;*IOR SHOULD PUT -1,,-1 INTO AC 10459 035021 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC) =-1,,-1 10460 STOP^ 10461 035022 254 04 0 00 035023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10462 035023 324 00 0 00 035024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10463 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10464 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10465 10466 ;***** FAILURE ANALYSIS ***** 10467 ;C(AC0) C(AC1) FAILING SIGNAL 10468 10469 ;E SW: FCE 10470 ;0 FC: AD AR - EN 10471 10472 ;***** FAILURE ANALYSIS ***** 10473 ;C(AC0) C(AC1) FAILING SIGNAL 10474 10475 ;0 FC: AD FM - EN 10476 10477 035024 NB5300:;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 40 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0239 10478 ;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL 10479 ;INCLUSIVE OR OF C(AC) WITH C(E). 10480 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE 10481 ;RESULT IN THE AC SHOULD BE -1,,-1 10482 ;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES 10483 ;IF C(AC)=-1, THE TEST PASSES 10484 10485 035024 474 00 0 00 000000 B5200: SETO ;PRELOAD AC WITH -1,,-1 10486 035025 434 00 0 00 035442 IOR [-1] ;*IOR SHOULD PUT -1,,-1 INTO AC 10487 035026 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 10488 STOP^ 10489 035027 254 04 0 00 035030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10490 035030 324 00 0 00 035031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10491 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10492 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10493 10494 ;********** 10495 10496 ;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL 10497 ;INCLUSIVE OR OF C(AC) WITH C(E). 10498 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE 10499 ;RESULT IN THE AC SHOULD BE -1,,-1 10500 ;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES 10501 ;IF C(AC)=-1,,-1, THE TEST PASSES 10502 10503 035031 474 00 0 00 000000 B5300: SETO ;PRELOAD AC WITH -1,,-1 10504 035032 434 00 0 00 035330 IOR [0] ;*IOR SHOULD PUT -1,,-1 INTO AC 10505 035033 312 00 0 00 035442 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 10506 STOP^ 10507 035034 254 04 0 00 035035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10508 035035 324 00 0 00 035036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10509 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10510 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10511 10512 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 41 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0240 10513 ;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND 10514 ;OF C(AC) AND THE COMPLEMENT OF C(MEMORY). 10515 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT 10516 ;IN THE AC SHOULD BE 0,,-1 10517 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THE TEST PASSES 10518 10519 035036 474 00 0 00 000000 B5500: SETO ;PRELOAD AC WITH ALL ONES 10520 035037 420 00 0 00 035420 ANDCM [XWD -1,0] ;*ANDCM SHOULD PLACE 0,,-1 IN THE AC 10521 035040 312 00 0 00 035455 CAME [0,,-1] ;IF C(AC)=0,,-1, THE TEST PASSES 10522 STOP^ 10523 035041 254 04 0 00 035042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10524 035042 324 00 0 00 035043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10527 10528 ;***** FAILURE ANALYSIS ***** 10529 ;C(AC0) C(AC1) FAILING SIGNAL 10530 10531 ;-E SW: FCE 10532 ;-1,,-1 FC: AD AR - EN 10533 ;-1,,0 ET2: AR AD EN 10534 10535 ;********** 10536 10537 ;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND 10538 ;OF C(AC) AND THE COMPLEMENT OF C(MEMORY). 10539 ;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0. HENCE, 10540 ;THE RESULT IN THE AC SHOULD BE 0. THE AC IS CHECKED FOR 0. 10541 ;IF C(AC)=0, THE TEST PASSES. 10542 10543 035043 474 00 0 00 000000 B5600: SETO ;PRELOAD AC WITH ALL ONES 10544 035044 420 00 0 00 000000 ANDCM ;*ANDCM SHOULD PLACE 0 IN THE AC 10545 035045 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES. 10546 STOP^ 10547 035046 254 04 0 00 035047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10548 035047 324 00 0 00 035050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10551 10552 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 42 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0241 10553 ;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND 10554 ;OF C(AC) AND THE COMPLEMENT OF C(MEMORY). 10555 ;IN THIS CASE C(AC)=-1,,-1, AND C(E)=0. HENCE, THE RESULT IN THE AC 10556 ;SHOULD BE ALL ONES. THE AC IS CHECKED FOR -1,,-1. 10557 ;IF C(AC)=-1,,-1, THE TEST PASSES 10558 10559 035050 474 00 0 00 000000 B5700: SETO ;PRELOAD AC WITH 0 10560 035051 420 00 0 00 035330 ANDCM [0] ;*ANDCM SHOULD PLACE -1,,-1 IN THE AC 10561 035052 312 00 0 00 035442 CAME [-1] ;IF C(AC)=-1,,-1, THE TEST PASSES 10562 STOP^ 10563 035053 254 04 0 00 035054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10564 035054 324 00 0 00 035055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10565 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10566 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10567 10568 ;********** 10569 10570 ;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND 10571 ;OF C(AC) AND THE COMPLEMENT OF C(MEMORY). 10572 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 10573 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. 10574 ;IF C(AC)=0, THE TEST PASSES 10575 10576 035055 201 00 0 00 000000 B6000: MOVEI 0 ;PRELOAD AC WITH 0 10577 035056 420 00 0 00 000000 ANDCM ;*ANDCM SHOULD PLACE 0 IN THE AC 10578 035057 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES. 10579 STOP^ 10580 035060 254 04 0 00 035061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10581 035061 324 00 0 00 035062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10583 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10584 10585 ;***** FAILURE ANALYSIS ***** 10586 ;C(AC0) C(AC1) FAILING SIGNAL 10587 10588 ;-1,,-1 FC: AD FM + EN 10589 10590 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 43 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0242 10591 ;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND 10592 ;OF C(AC) AND THE COMPLEMENT OF C(MEMORY). 10593 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 10594 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. 10595 ;IF C(AC)=0, THE TEST PASSES 10596 10597 035062 400 00 0 00 000000 B6100: SETZ ;PRELOAD AC WITH 0 10598 035063 420 00 0 00 035442 ANDCM [-1] ;*ANDCM SHOULD PLACE 0 IN THE AC 10599 035064 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES 10600 STOP^ 10601 035065 254 04 0 00 035066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10602 035066 324 00 0 00 035067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10604 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10605 10606 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 44 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0243 10607 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10608 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10609 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 10610 ;SHOULD BE 0. THE AC IS CHECKED FOR ZERO. IF C(AC) IS 10611 ;EQUAL TO ZERO, THE TEST PASSES. 10612 10613 035067 200 00 0 00 035420 B6200: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10614 035070 410 00 0 00 035330 ANDCA [0] ;*ANDCA SHOULD PLACE 0 IN THE AC 10615 035071 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES. 10616 STOP^ 10617 035072 254 04 0 00 035073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10618 035073 324 00 0 00 035074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10619 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10620 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10621 10622 ;***** FAILURE ANALYSIS ***** 10623 ;C(AC0) C(AC1) FAILING SIGNAL 10624 10625 ;E SW: FCE 10626 ;0,,-1 FC: AD AR + EN 10627 10628 ;********** 10629 10630 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10631 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10632 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=707070,,707070. HENCE, THE 10633 ;RESULT IN THE AC SHOULD BE 0,,707070. THE AC IS CHECKED 10634 ;FOR 0,,707070. IF C(AC)=0,,707070, THE TEST PASSES. 10635 10636 035074 200 00 0 00 035420 B6300: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10637 035075 410 00 0 00 035567 ANDCA [707070707070] ;*ANDCA SHOULD PLACE 0,,707070 IN THE AC 10638 035076 312 00 0 00 035570 CAME [XWD 0,707070] ;IF C(AC)=0,,707070, THE TEST PASSES 10639 STOP^ 10640 035077 254 04 0 00 035100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10641 035100 324 00 0 00 035101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10644 10645 ;***** FAILURE ANALYSIS ***** 10646 ;C(AC0) C(AC1) FAILING SIGNAL 10647 10648 ;707070,,707070 FC: AD FM - EN 10649 ;707070,,707070 ET2: AR AD EN 10650 10651 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 45 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0244 10652 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10653 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10654 ;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0. HENCE, THE RESULT 10655 ;IN THE AC SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC=0, 10656 ;THE TEST PASSES. 10657 10658 035101 400 00 0 00 000000 B6400: SETZ ;CLEAR THE AC AND E 10659 035102 410 00 0 00 000000 ANDCA ;*ANDCA SHOULD PLACE 0 IN THE AC 10660 035103 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES 10661 STOP^ 10662 035104 254 04 0 00 035105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10663 035105 324 00 0 00 035106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10664 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10665 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10666 10667 ;********** 10668 10669 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10670 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10671 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 10672 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR ALL ONES. 10673 ;IF C(AC)=-1,,-1, THE TEST PASSES. 10674 10675 035106 400 00 0 00 000000 B6500: SETZ ;CLEAR THE AC 10676 035107 410 00 0 00 035442 ANDCA [-1] ;*ANDCA SHOULD PLACE ALL ONES IN THE AC 10677 035110 312 00 0 00 035442 CAME [-1] ;IF C(AC)=ALL ONES, THE TEST PASSES. 10678 STOP^ 10679 035111 254 04 0 00 035112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10680 035112 324 00 0 00 035113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10681 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10682 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10683 10684 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 46 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0245 10685 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10686 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10687 ;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT 10688 ;IN THE AC SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, 10689 ;THE TEST PASSES. 10690 10691 035113 474 00 0 00 000000 B6600: SETO ;PRESET AC TO ALL ONES 10692 035114 410 00 0 00 000000 ANDCA ;*ANDCA SHOULD PLACE 0 IN THE AC 10693 035115 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES 10694 STOP^ 10695 035116 254 04 0 00 035117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10696 035117 324 00 0 00 035120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10697 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10698 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10699 10700 ;********** 10701 10702 ;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10703 ;OF THE COMPLEMENT OF C(AC) AND C(E). 10704 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 10705 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, 10706 ;THE TEST PASSES. 10707 10708 035120 474 00 0 00 000000 B6700: SETO ;PRESET AC TO ALL ONES 10709 035121 410 00 0 00 035330 ANDCA [0] ;*ANDCA SHOULD PLACE 0 IN THE AC 10710 035122 332 00 0 00 000000 SKIPE ;IF C(AC)=0, THE TEST PASSES. 10711 STOP^ 10712 035123 254 04 0 00 035124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10713 035124 324 00 0 00 035125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10714 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10715 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10716 10717 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 47 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0246 10718 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10719 ;OF THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10720 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=0; HENCE, THE RESULT IN THE AC 10721 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, 10722 ;THIS TEST PASSES. 10723 10724 035125 200 00 0 00 035420 B7000: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10725 035126 440 00 0 00 035330 ANDCB [0] ;*ANDCB SHOULD PLACE 0,,-1 IN THE AC 10726 035127 312 00 0 00 035455 CAME [XWD 0,-1] ;PASS IF C(AC)=0,,-1 10727 STOP^ 10728 035130 254 04 0 00 035131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10729 035131 324 00 0 00 035132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10730 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10731 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10732 10733 ;***** FAILURE ANALYSIS ***** 10734 ;C(AC0) C(AC1) FAILING SIGNAL 10735 10736 ;0,,-E SW: FCE 10737 ;-1,,-1 FC: AD FM - EN 10738 ;0 ET2: AR AD EN 10739 10740 ;********** 10741 10742 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION 10743 ;OF THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10744 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,-1; HENCE, THE RESULT IN THE AC 10745 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, 10746 ;THIS TEST PASSES. 10747 10748 035132 200 00 0 00 035420 B7100: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10749 035133 440 00 0 00 035442 ANDCB [-1] ;*ANDCB SHOULD PLACE 0 IN AC 10750 035134 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 10751 STOP^ 10752 035135 254 04 0 00 035136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10753 035136 324 00 0 00 035137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10754 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10755 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10756 10757 ;***** FAILURE ANALYSIS ***** 10758 ;C(AC0) C(AC1) FAILING SIGNAL 10759 10760 ;0,,-1 FC: AD AR - EN 10761 10762 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 48 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0247 10763 10764 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF 10765 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10766 ;IN THIS CASE AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 10767 ;SHOULD BE ALL ONES. THE AC IS CHECKED FOR ALL ONES. IF C(AC)=-1,,-1, 10768 ;THE TEST PASSES. 10769 10770 035137 400 00 0 00 000000 B7200: SETZ ;PRELOAD AC,E WITH ZEROES 10771 035140 440 00 0 00 000000 ANDCB ;*ANDCB SHOULD PLACE ALL ONES IN THE AC 10772 035141 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC) IS ALL ONES 10773 STOP^ 10774 035142 254 04 0 00 035143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10775 035143 324 00 0 00 035144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10778 10779 ;********** 10780 10781 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF 10782 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10783 ;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1. HENCE THE RESULT IN THE AC 10784 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 10785 10786 035144 474 00 0 00 000000 B7300: SETO ;PRELOAD AC,E WITH ONES 10787 035145 440 00 0 00 000000 ANDCB ;*ANDCB SHOULD PLACE ALL ZEROS IN THE AC 10788 035146 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 10789 STOP^ 10790 035147 254 04 0 00 035150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10791 035150 324 00 0 00 035151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10792 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10793 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10794 10795 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 49 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0248 10796 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF 10797 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10798 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 10799 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 10800 10801 035151 400 00 0 00 000000 B7400: SETZ ;PRELOAD AC WITH 0 10802 035152 440 00 0 00 035442 ANDCB [-1] ;*ANDCB SHOULD PLACE 0 IN THE AC 10803 035153 302 00 0 00 000000 CAIE ;PASS IF C(AC)=0 10804 STOP^ 10805 035154 254 04 0 00 035155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10806 035155 324 00 0 00 035156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10808 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10809 10810 ;********** 10811 10812 ;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF 10813 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10814 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 10815 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 10816 10817 035156 474 00 0 00 000000 B7500: SETO ;PRELOAD AC WITH -1,,-1 10818 035157 440 00 0 00 035330 ANDCB [0] ;*ANDCB SHOULD PLACE 0 IN THE AC 10819 035160 302 00 0 00 000000 CAIE ;PASS IF C(AC)=0 10820 STOP^ 10821 035161 254 04 0 00 035162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10822 035162 324 00 0 00 035163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10823 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10824 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10825 10826 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 50 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0249 10827 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10828 ;THE COMPLEMENT OF C(AC) AND C(E). 10829 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 10830 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, 10831 ;THIS TEST FAILS. 10832 10833 035163 200 00 0 00 035420 B7600: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10834 035164 454 00 0 00 035330 ORCA [0] ;*ORCA SHOULD PLACE 0,,-1 IN THE AC 10835 035165 312 00 0 00 035455 CAME [XWD 0,-1] ;PASS IF C(AC)=0,,-1 10836 STOP^ 10837 035166 254 04 0 00 035167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10838 035167 324 00 0 00 035170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10839 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10840 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10841 10842 ;***** FAILURE ANALYSIS ***** 10843 ;C(AC0) C(AC1) FAILING SIGNAL 10844 10845 ;-1,,0 SW: ET0 10846 ;-1,,0 FC: AD AR - EN 10847 ;0 FC: AD FM + EN 10848 ;-1,,-1 ET0: AR AD EN 10849 ;-1,,-1 ET0: AD AR - EN 10850 ;-1,,0 ET2: AR AD EN 10851 10852 ;********** 10853 10854 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10855 ;THE COMPLEMENT OF C(AC) AND C(E). 10856 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=707070,,707070. HENCE, THE RESULT IN THE AC 10857 ;SHOULD BE 707070,,-1. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, 10858 ;THIS TEST FAILS. 10859 10860 035170 200 00 0 00 035420 B10000: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 10861 035171 454 00 0 00 035567 ORCA [707070707070] ;*ORCA SHOULD PLACE 707070,,-1 IN THE AC 10862 035172 312 00 0 00 035571 CAME [XWD 707070,-1] ;PASS IF C(AC)=707070,,-1 10863 STOP^ 10864 035173 254 04 0 00 035174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10865 035174 324 00 0 00 035175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10866 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10867 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10868 10869 ;***** FAILURE ANALYSIS ***** 10870 ;C(AC0) C(AC1) FAILING SIGNAL 10871 10872 ;0,,-1 SW: FCE 10873 10874 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 51 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0250 10875 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10876 ;THE COMPLEMENT OF C(AC) AND C(E). 10877 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 10878 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 10879 10880 035175 400 00 0 00 000000 B10100: SETZ ;PRELOAD AC,E WITH 0 10881 035176 454 00 0 00 000000 ORCA ;*ORCA SHOULD PLACE -1,,-1 IN THE AC 10882 035177 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10883 STOP^ 10884 035200 254 04 0 00 035201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10885 035201 324 00 0 00 035202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10886 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10887 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10888 10889 ;********** 10890 10891 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OF FUNCTION OF 10892 ;THE COMPLEMENT OF C(AC) AND C(E). 10893 ;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 10894 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 10895 10896 035202 474 00 0 00 000000 B10200: SETO ;PRELOAD AC,E WITH 0 10897 035203 454 00 0 00 000000 ORCA ;*ORCA SHOULD PLACE -1,,-1 IN THE AC 10898 035204 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10899 STOP^ 10900 035205 254 04 0 00 035206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10901 035206 324 00 0 00 035207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10902 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10903 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10904 10905 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 52 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0251 10906 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10907 ;THE COMPLEMENT OF C(AC) AND C(E). 10908 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESUTL IN THE AC 10909 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 10910 10911 035207 400 00 0 00 000000 B10300: SETZ ;PRELOAD AC WITH 0 10912 035210 454 00 0 00 035442 ORCA [-1] ;*ORCA SHOULD PLACE -1,,-1 IN THE AC 10913 035211 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10914 STOP^ 10915 035212 254 04 0 00 035213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10916 035213 324 00 0 00 035214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10918 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10919 10920 ;********** 10921 10922 ;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10923 ;THE COMPLEMENT OF C(AC) AND C(E). 10924 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 10925 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 10926 10927 035214 474 00 0 00 000000 B10400: SETO ;PRELOAD AC WITH -1,,-1 10928 035215 454 00 0 00 035330 ORCA [0] ;*ORCA SHOULD PLACE 0 IN THE AC 10929 035216 302 00 0 00 000000 CAIE ;PASS IF C(AC)=0 10930 STOP^ 10931 035217 254 04 0 00 035220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10932 035220 324 00 0 00 035221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10933 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10934 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10935 10936 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 53 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0252 10937 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10938 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E) 10939 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=707070,,707070. HENCE THE RESULT 10940 ;IN THE AC 070707,,-1. THE AC IS CHECKED FOR 070707,,-1. IF C(AC)=070707,,-1, 10941 ;THIS TEST PASSES 10942 10943 035221 200 00 0 00 035420 B10500: MOVE [XWD -1,0] ;PRELOAD THE AC WITH -1,,0 10944 035222 470 00 0 00 035567 ORCB [707070707070] ;*ORCB SHOULD PLACE 070707,,-1 IN THE AC 10945 035223 312 00 0 00 035572 CAME [XWD 070707,-1] ;PASS IF C(AC)=070707,,-1 10946 STOP^ 10947 035224 254 04 0 00 035225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10948 035225 324 00 0 00 035226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10950 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10951 10952 ;***** FAILURE ANALYSIS ***** 10953 ;C(AC0) C(AC1) FAILING SIGNAL 10954 10955 ;-1,,-1 SW: FCE 10956 ;707070,,0 SW: ET0 10957 ;0,,-1 FC: AD AR + EN 10958 ;070707,,070707 FC: AD FM + EN 10959 ;070707,,070707 ET0: AR AD EN 10960 ;-1,,-1 ET0: AD AR - EN 10961 ;707070,,0 ET2: AR AD EN 10962 10963 ;********** 10964 10965 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10966 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E) 10967 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE THE RESULT 10968 ;IN THE AC -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, 10969 ;THIS TEST PASSES 10970 10971 035226 200 00 0 00 035455 B10700: MOVE [XWD 0,-1] ;PRELOAD THE AC WITH 0,,-1 10972 035227 470 00 0 00 035442 ORCB [-1] ;*ORCB SHOULD PLACE -1,,0 IN THE AC 10973 035230 312 00 0 00 035420 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 10974 STOP^ 10975 035231 254 04 0 00 035232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10976 035232 324 00 0 00 035233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10977 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10978 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10979 10980 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 54 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0253 10981 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10982 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10983 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC 10984 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)-1,,-1, THE TEST PASSES 10985 10986 035233 400 00 0 00 000000 B11000: SETZ ;PRELOAD AC WITH 0 10987 035234 470 00 0 00 035330 ORCB [0] ;*ORCB SHOULD PLACE -1,,-1 IN THE AC 10988 035235 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 10989 STOP^ 10990 035236 254 04 0 00 035237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 10991 035237 324 00 0 00 035240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 10992 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 10993 ;IN THE SUBTEST) TO LOOP ON ERROR^ 10994 10995 ;********** 10996 10997 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 10998 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 10999 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 11000 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES 11001 11002 035240 474 00 0 00 000000 B11100: SETO ;PRELOAD AC WITH -1,,-1 11003 035241 470 00 0 00 035442 ORCB [-1] ;*ORCB SHOULD PLACE 0 IN THE AC 11004 035242 302 00 0 00 000000 CAIE ;PASS IF C(AC)=0 11005 STOP^ 11006 035243 254 04 0 00 035244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11007 035244 324 00 0 00 035245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11008 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11009 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11010 11011 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 55 DSKAB1 MAC 28-Mar-78 12:29 TEST OF BOOLEAN INSTRUCTIONS SEQ 0254 11012 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 11013 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E) 11014 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 11015 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES 11016 11017 035245 400 00 0 00 000000 B11200: SETZ ;PRELOAD AC WITH 0 11018 035246 470 00 0 00 035442 ORCB [-1] ;*ORCB SHOULD PLACE -1,,-1 IN THE AC 11019 035247 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 11020 STOP^ 11021 035250 254 04 0 00 035251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11022 035251 324 00 0 00 035252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11024 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11025 11026 ;********** 11027 11028 ;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF 11029 ;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E). 11030 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 11031 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES 11032 11033 035252 474 00 0 00 000000 B11300: SETO ;PRELOAD AC WITH -1,,-1 11034 035253 470 00 0 00 035330 ORCB [0] ;*ORCB SHOULD PLACE -1,,-1 IN THE AC 11035 035254 312 00 0 00 035442 CAME [-1] ;PASS IF C(AC)=-1,,-1 11036 STOP^ 11037 035255 254 04 0 00 035256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11038 035256 324 00 0 00 035257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11039 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11040 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11041 11042 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 56 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVN INSTRUCTION SEQ 0255 11043 SUBTTL TEST OF MOVN INSTRUCTION 11044 11045 ;********** 11046 11047 ;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC 11048 ;IN THIS CASE C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 11049 ;THE AC IS CHECKED FOR 0, THE NEGATIVE OF 0. IF C(AC)=0, THIS TEST PASSES 11050 11051 035257 474 00 0 00 000000 B11500: SETO ;PRELOAD AC WITH -1,,-1 11052 035260 210 00 0 00 035330 MOVN [0] ;*MOVN SHOULD PLACE 0 INTO THE AC 11053 035261 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 11054 STOP^ 11055 035262 254 04 0 00 035263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11056 035263 324 00 0 00 035264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11059 11060 ;***** FAILURE ANALYSIS ***** 11061 ;C(AC0) C(AC1) FAILING SIGNAL 11062 11063 ;E SW: FCE 11064 ;-1,,-1 FC: AD FM + EN 11065 ;-1,,-1 FC: AD CRY 36 11066 11067 ;********** 11068 11069 ;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC. 11070 ;IN THIS CASE C(E)=-1,,0. HENCE, THE RESULT IN THE AC SHOULD BE 1,,0 11071 ;THE AC IS CHECKED FOR 1,,0. IF C(AC)=1,,0, THE TEST PASSES 11072 11073 035264 200 00 0 00 035420 B11600: MOVE [XWD -1,0] ;PRELOAD AC,E WITH -1,,0 11074 035265 210 00 0 00 000000 MOVN ;*MOVN SHOULD PLACE 1,,0 INTO THE AC 11075 035266 312 00 0 00 035356 CAME [XWD 1,0] ;PASS IF C(AC)=1,,0 11076 STOP^ 11077 035267 254 04 0 00 035270 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11078 035270 324 00 0 00 035271 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11079 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11080 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11081 11082 ;***** FAILURE ANALYSIS ***** 11083 ;C(AC0) C(AC1) FAILING SIGNAL 11084 11085 ;0 FC: AD ADD 11086 ;0 FC: AD FM - EN 11087 ;0 FC: AD AR - EN 11088 ;-1,,0 ET2: AR AD EN 11089 11090 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 57 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVN INSTRUCTION SEQ 0256 11091 ;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC. 11092 ;IN THIS CASE C(E) =707070,,707070. HENCE, THE RESULT IN THE AC SHOULD BE 11093 ;070707,,070710. THE AC IS CHECKED FOR 070707,,070710. IF C(AC)= 11094 ;070707,,070710, THE TEST PASSES 11095 11096 035271 400 00 0 00 000000 B11700: SETZ ;PRELOAD AC WITH 0 11097 035272 210 00 0 00 035567 MOVN [707070707070] ;*MOVN SHOULD PLACE 070707,,070710 INTO THE AC 11098 035273 312 00 0 00 035573 CAME [070707070710] ;PASS IF C(AC) 070707,,070710 11099 STOP^ 11100 035274 254 04 0 00 035275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11101 035275 324 00 0 00 035276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11102 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11103 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11104 11105 ;********** 11106 11107 ;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC 11108 ;IN THIS CASE C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0,,1. 11109 ;THE AC IS CHECKED FOR 0,,1, THE NEGATIVE OF -1,,-1. IF C(AC)=1, THIS TEST PASSES 11110 11111 035276 210 00 0 00 035442 B12100: MOVN [-1] ;*MOVN SHOULD PLACE 0,,1 INTO THE AC 11112 035277 302 00 0 00 000001 CAIE 1 ;PASS OF C(AC)=0,,1 11113 STOP^ 11114 035300 254 04 0 00 035301 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11115 035301 324 00 0 00 035302 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11117 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11118 11119 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 58 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVM INSTRUCTION SEQ 0257 11120 SUBTTL TEST OF MOVM INSTRUCTION 11121 11122 ;********** 11123 11124 ;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC. 11125 ;IN THIS CASE, C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 11126 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 11127 11128 035302 474 00 0 00 000000 B12200: SETO ;PRELOAD AC WITH -1,,-1 11129 035303 214 00 0 00 035330 MOVM [0] ;*MOVM SHOULD PLACE 0 INTO THE AC 11130 035304 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 11131 STOP^ 11132 035305 254 04 0 00 035306 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11133 035306 324 00 0 00 035307 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11136 11137 ;***** FAILURE ANALYSIS ***** 11138 ;C(AC0) C(AC1) FAILING SIGNAL 11139 11140 ;E SW: FCE 11141 11142 ;********** 11143 11144 ;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC 11145 ;IN THIS CASE, C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0,,1. 11146 ;THE AC IS CHECKED FOR 0,,1. IF C(AC)=0,,1, THIS TEST PASSES 11147 11148 035307 400 00 0 00 000000 B12300: SETZ ;PRELOAD AC WITH 0 11149 035310 214 00 0 00 035442 MOVM [-1] ;*MOVM SHOULD PLACE 0,,1 INTO THE AC 11150 035311 302 00 0 00 000001 CAIE 1 ;PASS IF C(AC)=0,,1 11151 STOP^ 11152 035312 254 04 0 00 035313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11153 035313 324 00 0 00 035314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11154 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11155 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11156 11157 ;***** FAILURE ANALYSIS ***** 11158 ;C(AC0) C(AC1) FAILING SIGNAL 11159 11160 ;0 FC: AD FM + EN 11161 ;0 FC: AD ADD 11162 ;0 FC: AD CRY 36 11163 ;0 FC: AD AR - EN 11164 ;-1,,-1 ET2: AR AD EN 11165 11166 ;********** DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 59 DSKAB1 MAC 28-Mar-78 12:29 TEST OF MOVM INSTRUCTION SEQ 0258 11167 ;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC 11168 ;IN THIS CASE, C(E)=400000,,0. HENCE, THE RESULT IN THE AC SHOULD BE 11169 ;400000,,0. THE AC IS CHECKED FOR 400000,,0. 11170 ;IF C(AC)=400000,,0, THIS TEST PASSES. 11171 11172 035314 400 00 0 00 000000 B12400: SETZ 11173 035315 214 00 0 00 035377 MOVM [XWD 400000,0] ;*MOVM SHOULD PLACE 400000,,0 INTO THE AC 11174 035316 312 00 0 00 035377 CAME [XWD 400000,0] ;PASS IF C(AC)=400000,,0 11175 STOP^ 11176 035317 254 04 0 00 035320 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11177 035320 324 00 0 00 035321 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11178 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11179 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11180 11181 ;********** 11182 11183 ;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC 11184 ;IN THIS CASE, C(E)=377777,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 11185 ;377777,,-1. THE AC IS CHECKED FOR 377777,,-1. 11186 ;IF C(AC)=377777,,-1, THIS TEST PASSES. 11187 11188 035321 400 00 0 00 000000 B12500: SETZ ;PRELOAD AC WITH 0 11189 035322 214 00 0 00 035456 MOVM [XWD 377777,-1] ;*MOVM SHOULD PLACE 377777,,-1 INTO THE AC 11190 035323 312 00 0 00 035456 CAME [XWD 377777,-1] ;PASS IF C(AC)=377777,,-1 11191 STOP^ 11192 035324 254 04 0 00 035325 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 11193 035325 324 00 0 00 035326 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 11194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 11195 ;IN THE SUBTEST) TO LOOP ON ERROR^ 11196 11197 ;********** 11198 11199 035326 402 00 0 00 035575 ENDIT: SETZM TNUMB# 11200 035327 254 00 0 00 030057 JRST BEGEND DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0259 11201 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 11202 11203 ;PROGRAM LITERALS 11204 11205 XLIST 11206 IFNDEF $LPAPER, 11207 035330 LIT 11208 035330 000000 000000 11209 035331 123456 765432 11210 035332 123456 000000 11211 035333 000000 123456 11212 035334 000000 000001 11213 035335 000000 000002 11214 035336 000000 000004 11215 035337 000000 000010 11216 035340 000000 000020 11217 035341 000000 000040 11218 035342 000000 000100 11219 035343 000000 000200 11220 035344 000000 000400 11221 035345 000000 001000 11222 035346 000000 002000 11223 035347 000000 004000 11224 035350 000000 010000 11225 035351 000000 020000 11226 035352 000000 040000 11227 035353 000000 100000 11228 035354 000000 200000 11229 035355 000000 400000 11230 035356 000001 000000 11231 035357 000002 000000 11232 035360 000004 000000 11233 035361 000010 000000 11234 035362 000020 000000 11235 035363 000040 000000 11236 035364 000100 000000 11237 035365 000200 000000 11238 035366 000400 000000 11239 035367 001000 000000 11240 035370 002000 000000 11241 035371 004000 000000 11242 035372 010000 000000 11243 035373 020000 000000 11244 035374 040000 000000 11245 035375 100000 000000 11246 035376 200000 000000 11247 035377 400000 000000 11248 035400 600000 000000 11249 035401 700000 000000 11250 035402 740000 000000 11251 035403 760000 000000 11252 035404 770000 000000 11253 035405 774000 000000 11254 035406 776000 000000 11255 035407 777000 000000 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0260 11256 035410 777400 000000 11257 035411 777600 000000 11258 035412 777700 000000 11259 035413 777740 000000 11260 035414 777760 000000 11261 035415 777770 000000 11262 035416 777774 000000 11263 035417 777776 000000 11264 035420 777777 000000 11265 035421 777777 400000 11266 035422 777777 600000 11267 035423 777777 700000 11268 035424 777777 740000 11269 035425 777777 760000 11270 035426 777777 770000 11271 035427 777777 774000 11272 035430 777777 776000 11273 035431 777777 777000 11274 035432 777777 777400 11275 035433 777777 777600 11276 035434 777777 777700 11277 035435 777777 777740 11278 035436 777777 777760 11279 035437 777777 777770 11280 035440 777777 777774 11281 035441 777777 777776 11282 035442 777777 777777 11283 035443 777777 777773 11284 035444 777777 777677 11285 035445 777777 775777 11286 035446 777777 737777 11287 035447 777777 377777 11288 035450 777767 777777 11289 035451 777577 777777 11290 035452 773777 777777 11291 035453 677777 777777 11292 035454 577777 777777 11293 035455 000000 777777 11294 035456 377777 777777 11295 035457 000001 000001 11296 035460 000002 000002 11297 035461 000004 000004 11298 035462 000010 000010 11299 035463 000020 000020 11300 035464 000040 000040 11301 035465 000100 000100 11302 035466 000200 000200 11303 035467 000400 000400 11304 035470 001000 001000 11305 035471 002000 002000 11306 035472 004000 004000 11307 035473 010000 010000 11308 035474 020000 020000 11309 035475 040000 040000 11310 035476 100000 100000 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0261 11311 035477 200000 200000 11312 035500 400000 400000 11313 035501 777776 777776 11314 035502 777775 777775 11315 035503 777773 777773 11316 035504 777767 777767 11317 035505 777757 777757 11318 035506 777737 777737 11319 035507 777677 777677 11320 035510 777577 777577 11321 035511 777377 777377 11322 035512 776777 776777 11323 035513 775777 775777 11324 035514 773777 773777 11325 035515 767777 767777 11326 035516 757777 757777 11327 035517 737777 737777 11328 035520 677777 677777 11329 035521 577777 577777 11330 035522 377777 377777 11331 035523 000001 777776 11332 035524 777776 000001 11333 035525 000002 777775 11334 035526 777775 000002 11335 035527 000004 777773 11336 035530 777773 000004 11337 035531 000010 777767 11338 035532 777767 000010 11339 035533 000020 777757 11340 035534 777757 000020 11341 035535 000040 777737 11342 035536 777737 000040 11343 035537 000100 777677 11344 035540 777677 000100 11345 035541 000200 777577 11346 035542 777577 000200 11347 035543 000400 777377 11348 035544 777377 000400 11349 035545 001000 776777 11350 035546 776777 001000 11351 035547 002000 775777 11352 035550 775777 002000 11353 035551 004000 773777 11354 035552 773777 004000 11355 035553 010000 767777 11356 035554 767777 010000 11357 035555 020000 757777 11358 035556 757777 020000 11359 035557 040000 737777 11360 035560 737777 040000 11361 035561 100000 677777 11362 035562 677777 100000 11363 035563 200000 577777 11364 035564 577777 200000 11365 035565 400000 377777 DSKAB DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (2) 0,1 MACRO %53(1020) 13:55 28-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0262 11366 035566 377777 400000 11367 035567 707070 707070 11368 035570 000000 707070 11369 035571 707070 777777 11370 035572 070707 777777 11371 035573 070707 070710 11372 LIST 11373 035574 000000 000000 ENDSLD: 0 11374 11375 IFDEF DEBUG,< 11376 PATCH: BLOCK DEBUG ;PATCHING AREA 11377 > 11378 11379 ;PROGRAM VARIABLES 11380 035575 VAR 11381 11382 IFDEF PGMEND,< 11383 035576 000000 000000 END: 0 11384 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 035577 CPU TIME USED 00:29.195 22P CORE USED A10400 815# A10500 838# SEQ 0263 A10600 859# A10700 881# A11000 933# A11100 2046# A11200 3030# A11300 3931# A11400 4427# A11500 5107# A11600 5126# A11700 5141# A12000 5809# A12100 5823# A12200 5846# A12300 5864# A12400 5882# A13200 2065# A13300 899# A13400 917# A13500 4924# A13600 4941# A13700 4958# A14000 4974# A14100 4991# A14200 5008# A14300 5024# A14400 5041# A14500 5058# A14600 5074# A14700 5091# ABORT 92# AC0 687# ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# B100 5905# B1000 6045# B10000 10860# B10100 10880# B10200 10896# B10300 10911# B10400 10927# B10500 10943# B10700 10971# B1100 6061# B11000 10986# B11100 11002# B11200 11017# B11300 11033# B11500 11051# B11600 11073# SEQ 0264 B11700 11096# B1200 6077# B12100 11111# B12200 11128# B12300 11148# B12400 11172# B12500 11188# B1300 6098# B1400 6119# B1500 6143# B1600 6162# B1700 7090# B200 5926# B2000 7755# B2100 8424# B2200 8803# B2300 9183# B2400 9658# B2500 10138# B2600 10162# B2700 10182# B300 5951# B3000 10199# B3100 10215# B3200 10230# B3300 10251# B3500 10271# B3600 10294# B3700 10308# B400 5972# B4300 10323# B4400 10345# B4500 10363# B4600 10387# B4700 10410# B500 5988# B5000 10431# B5100 10457# B5200 10485# B5300 10503# B5500 10519# B5600 10543# B5700 10559# B600 6008# B6000 10576# B6100 10597# B6200 10613# B6300 10636# B6400 10658# B6500 10675# B6600 10691# B6700 10708# B700 6024# SEQ 0265 B7000 10724# B7100 10748# B7200 10770# B7300 10786# B7400 10801# B7500 10817# B7600 10833# BEGEND 438# 11200 BEGIN 307 308 369# 708 771 11384 BEGIN1 385# 439 BELL 561# BIS 356# CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# CRY1 356# CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 11375 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# SEQ 0266 EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 11383# ENDFIX 684# ENDIT 11199# ENDSLD 11373# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# SEQ 0267 LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# SEQ 0268 LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 SEQ 0269 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NB5300 10477# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# SEQ 0270 PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 11382 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SEQ 0271 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SN 930# 970 970# 1000 1000# 1030 1030# 1060 1060# 1090 1090# 1120 1120# 1150 1150# 1180 1180# 1210 1210# 1240 1240# 1270 1270# 1300 1300# 1330 1330# 1360 1360# 1390 1390# 1420 1420# 1450 1450# 1480 1480# 1510 1510# 1540 1540# 1570 1570# 1600 1600# 1630 1630# 1660 1660# 1690 1690# 1720 1720# 1750 1750# 1780 1780# 1810 1810# 1840 1840# 1870 1870# 1900 1900# 1930 1930# 1960 1960# 1990 1990# 2020 2020# 2062# 2098 2098# 2124 2124# 2150 2150# 2176 2176# 2202 2202# 2228 2228# 2254 2254# 2280 2280# 2306 2306# 2332 2332# 2358 2358# 2384 2384# 2410 2410# 2436 2436# 2462 2462# 2488 2488# 2514 2514# 2540 2540# 2566 2566# 2592 2592# 2618 2618# 2644 2644# 2670 2670# 2696 2696# 2722 2722# 2748 2748# 2774 2774# 2800 2800# 2826 2826# 2852 2852# 2878 2878# 2904 2904# 2930 2930# 2956 2956# 2982 2982# 3008 3008# 3027# 3061 3061# 3086 3086# 3111 3111# 3136 3136# 3161 3161# 3186 3186# 3211 3211# 3236 3236# 3261 3261# 3286 3286# 3311 3311# 3336 3336# 3361 3361# 3386 3386# 3411 3411# 3436 3436# 3461 3461# 3486 3486# 3511 3511# 3536 3536# 3561 3561# 3586 3586# 3611 3611# 3636 3636# 3661 3661# 3686 3686# 3711 3711# 3736 3736# 3761 3761# 3786 3786# 3811 3811# 3836 3836# 3861 3861# 3886 3886# 3911 3911# 3927# 3963 3963# 3989 3989# 4015 4015# 4041 4041# 4067 4067# 4093 4093# 4119 4119# 4145 4145# 4171 4171# 4197 4197# 4223 4223# 4249 4249# 4275 4275# 4301 4301# 4327 4327# 4353 4353# 4379 4379# 4405 4405# 4423# 4459 4459# 4485 4485# 4511 4511# 4537 4537# 4563 4563# 4589 4589# 4615 4615# 4641 4641# 4667 4667# 4693 4693# 4719 4719# 4745 4745# 4771 4771# 4797 4797# 4823 4823# 4849 4849# 4875 4875# 4901 4901# 5138# 5160 5160# 5178 5178# 5196 5196# 5214 5214# 5232 5232# 5250 5250# 5268 5268# 5286 5286# 5304 5304# 5322 5322# 5340 5340# 5358 5358# 5376 5376# 5394 5394# 5412 5412# 5430 5430# 5448 5448# 5466 5466# 5484 5484# 5502 5502# 5520 5520# 5538 5538# 5556 5556# 5574 5574# 5592 5592# 5610 5610# 5628 5628# 5646 5646# 5664 5664# 5682 5682# 5700 5700# 5718 5718# 5736 5736# 5754 5754# 5772 5772# 5790 5790# 6159# 6193 6193# 6220 6220# 6247 6247# 6274 6274# 6301 6301# 6328 6328# 6355 6355# 6382 6382# 6409 6409# 6436 6436# 6463 6463# 6490 6490# 6517 6517# 6544 6544# 6571 6571# 6598 6598# 6625 6625# 6652 6652# 6699 6699# 6721 6721# 6743 6743# 6765 6765# 6787 6787# 6809 6809# 6831 6831# 6853 6853# 6875 6875# 6897 6897# 6919 6919# 6941 6941# 6963 6963# 6985 6985# 7007 7007# 7029 7029# 7051 7051# 7073 7073# 7087# 7109 7109# 7127 7127# 7145 7145# 7163 7163# 7181 7181# 7199 7199# 7217 7217# 7235 7235# 7253 7253# 7271 7271# 7289 7289# 7307 7307# 7325 7325# 7343 7343# 7361 7361# 7379 7379# 7397 7397# 7415 7415# 7433 7433# 7451 7451# 7469 7469# 7487 7487# 7505 7505# 7523 7523# 7541 7541# 7559 7559# 7577 7577# 7595 7595# 7613 7613# 7631 7631# 7649 7649# 7667 7667# 7685 7685# 7703 7703# 7721 7721# 7739 7739# 7752# 7774 7774# 7792 7792# 7810 7810# 7828 7828# 7846 7846# 7864 7864# 7882 7882# 7900 7900# 7918 7918# 7936 7936# 7954 7954# 7972 7972# 7990 7990# 8008 8008# 8026 8026# 8044 8044# 8062 8062# 8080 8080# 8098 8098# 8116 8116# 8134 8134# 8152 8152# 8170 8170# 8188 8188# 8206 8206# 8224 8224# 8242 8242# 8260 8260# 8278 8278# 8296 8296# 8314 8314# 8332 8332# 8350 8350# 8368 8368# 8386 8386# 8404 8404# 8421# 8446 8446# 8466 8466# SEQ 0272 8486 8486# 8506 8506# 8526 8526# 8546 8546# 8566 8566# 8586 8586# 8606 8606# 8626 8626# 8646 8646# 8666 8666# 8686 8686# 8706 8706# 8726 8726# 8746 8746# 8766 8766# 8786 8786# 8800# 8825 8825# 8845 8845# 8865 8865# 8885 8885# 8905 8905# 8925 8925# 8945 8945# 8965 8965# 8985 8985# 9005 9005# 9025 9025# 9045 9045# 9065 9065# 9085 9085# 9105 9105# 9125 9125# 9145 9145# 9165 9165# 9179# 9213 9213# 9238 9238# 9263 9263# 9288 9288# 9313 9313# 9338 9338# 9363 9363# 9388 9388# 9413 9413# 9438 9438# 9463 9463# 9488 9488# 9513 9513# 9538 9538# 9563 9563# 9588 9588# 9613 9613# 9638 9638# 9654# 9688 9688# 9713 9713# 9738 9738# 9763 9763# 9788 9788# 9813 9813# 9838 9838# 9863 9863# 9888 9888# 9913 9913# 9938 9938# 9963 9963# 9988 9988# 10013 10013# 10038 10038# 10063 10063# 10088 10088# 10113 10113# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 11199# 11199 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# YY 3929# 3964 3964# 3965 3966 3966# 3969 3990 3990# 3991 3992 3995 4016 4016# 4017 4018 4021 4042 4042# 4043 4044 4047 4068 4068# 4069 4070 4073 4094 4094# 4095 4096 4099 4120 4120# 4121 4122 4125 4146 4146# 4147 4148 4151 4172 4172# 4173 4174 4177 4198 4198# 4199 4200 4203 4224 4224# 4225 4226 SEQ 0273 4229 4250 4250# 4251 4252 4255 4276 4276# 4277 4278 4281 4302 4302# 4303 4304 4307 4328 4328# 4329 4330 4333 4354 4354# 4355 4356 4359 4380 4380# 4381 4382 4385 4406 4406# 4407 4408 4411 4425# 4460 4460# 4461 4462 4462# 4466 4486 4486# 4487 4488 4492 4512 4512# 4513 4514 4518 4538 4538# 4539 4540 4544 4564 4564# 4565 4566 4570 4590 4590# 4591 4592 4596 4616 4616# 4617 4618 4622 4642 4642# 4643 4644 4648 4668 4668# 4669 4670 4674 4694 4694# 4695 4696 4700 4720 4720# 4721 4722 4726 4746 4746# 4747 4748 4752 4772 4772# 4773 4774 4778 4798 4798# 4799 4800 4804 4824 4824# 4825 4826 4830 4850 4850# 4851 4852 4856 4876 4876# 4877 4878 4882 4902 4902# 4903 4904 4908 9181# 9215 9215# 9217 9217# 9218 9220 9240 9240# 9242 9243 9245 9265 9265# 9267 9268 9270 9290 9290# 9292 9293 9295 9315 9315# 9317 9318 9320 9340 9340# 9342 9343 9345 9365 9365# 9367 9368 9370 9390 9390# 9392 9393 9395 9415 9415# 9417 9418 9420 9440 9440# 9442 9443 9445 9465 9465# 9467 9468 9470 9490 9490# 9492 9493 9495 9515 9515# 9517 9518 9520 9540 9540# 9542 9543 9545 9565 9565# 9567 9568 9570 9590 9590# 9592 9593 9595 9615 9615# 9617 9618 9620 9640 9640# 9642 9643 9645 9656# 9690 9690# 9692 9692# 9693 9695 9715 9715# 9717 9718 9720 9740 9740# 9742 9743 9745 9765 9765# 9767 9768 9770 9790 9790# 9792 9793 9795 9815 9815# 9817 9818 9820 9840 9840# 9842 9843 9845 9865 9865# 9867 9868 9870 9890 9890# 9892 9893 9895 9915 9915# 9917 9918 9920 9940 9940# 9942 9943 9945 9965 9965# 9967 9968 9970 9990 9990# 9992 9993 9995 10015 10015# 10017 10018 10020 10040 10040# 10042 10043 10045 10065 10065# 10067 10068 10070 10090 10090# 10092 10093 10095 10115 10115# 10117 10118 10120 ZZ 931# 971 971# 972 972# 973 975 1001 1001# 1002 1003 1005 1031 1031# 1032 1033 1035 1061 1061# 1062 1063 1065 1091 1091# 1092 1093 1095 1121 1121# 1122 1123 1125 1151 1151# 1152 1153 1155 1181 1181# 1182 1183 1185 1211 1211# 1212 1213 1215 1241 1241# 1242 1243 1245 1271 1271# 1272 1273 1275 1301 1301# 1302 1303 1305 1331 1331# 1332 1333 1335 1361 1361# 1362 1363 1365 1391 1391# 1392 1393 1395 1421 1421# 1422 1423 1425 1451 1451# 1452 1453 1455 1481 1481# 1482 1483 1485 1511 1511# 1512 1513 1515 1541 1541# 1542 1543 1545 1571 1571# 1572 1573 1575 1601 1601# 1602 1603 1605 1631 1631# 1632 1633 1635 1661 1661# 1662 1663 1665 1691 1691# 1692 1693 1695 1721 1721# 1722 1723 1725 1751 1751# 1752 1753 1755 1781 1781# 1782 1783 1785 1811 1811# 1812 1813 1815 1841 1841# 1842 1843 1845 1871 1871# 1872 1873 1875 1901 1901# 1902 1903 1905 1931 1931# 1932 1933 1935 1961 1961# 1962 1963 1965 1991 1991# 1992 1993 1995 2021 2021# 2022 2023 2025 2063# 2099 2099# 2100 2100# 2102 2103 2125 2125# 2126 2128 2129 2151 2151# 2152 2154 2155 2177 2177# 2178 2180 2181 2203 2203# 2204 2206 2207 2229 2229# 2230 2232 2233 2255 2255# 2256 2258 2259 2281 2281# 2282 2284 2285 2307 2307# 2308 2310 2311 2333 2333# 2334 2336 2337 2359 2359# 2360 2362 2363 2385 2385# 2386 2388 2389 2411 2411# 2412 2414 2415 2437 2437# 2438 2440 2441 2463 2463# 2464 2466 2467 2489 2489# 2490 2492 2493 2515 2515# 2516 2518 2519 2541 2541# 2542 2544 2545 2567 2567# 2568 2570 2571 2593 2593# 2594 2596 2597 2619 2619# 2620 2622 2623 2645 2645# 2646 2648 2649 2671 2671# 2672 2674 2675 2697 2697# 2698 2700 2701 2723 2723# 2724 2726 2727 2749 2749# 2750 2752 2753 2775 2775# 2776 2778 2779 2801 2801# 2802 2804 2805 2827 2827# 2828 2830 2831 2853 2853# 2854 2856 2857 2879 2879# 2880 2882 2883 2905 2905# 2906 2908 2909 2931 2931# 2932 2934 2935 2957 2957# 2958 2960 2961 2983 2983# 2984 2986 2987 3009 3009# 3010 3012 3013 3028# 3062 3062# 3063 3063# 3064 3065 3066 3087 3087# 3088 3089 3090 3091 3112 3112# 3113 3114 3115 3116 3137 3137# 3138 3139 3140 3141 3162 3162# 3163 3164 3165 3166 3187 3187# 3188 3189 3190 3191 3212 3212# 3213 3214 3215 3216 3237 3237# 3238 3239 3240 3241 3262 3262# 3263 3264 3265 3266 SEQ 0274 3287 3287# 3288 3289 3290 3291 3312 3312# 3313 3314 3315 3316 3337 3337# 3338 3339 3340 3341 3362 3362# 3363 3364 3365 3366 3387 3387# 3388 3389 3390 3391 3412 3412# 3413 3414 3415 3416 3437 3437# 3438 3439 3440 3441 3462 3462# 3463 3464 3465 3466 3487 3487# 3488 3489 3490 3491 3512 3512# 3513 3514 3515 3516 3537 3537# 3538 3539 3540 3541 3562 3562# 3563 3564 3565 3566 3587 3587# 3588 3589 3590 3591 3612 3612# 3613 3614 3615 3616 3637 3637# 3638 3639 3640 3641 3662 3662# 3663 3664 3665 3666 3687 3687# 3688 3689 3690 3691 3712 3712# 3713 3714 3715 3716 3737 3737# 3738 3739 3740 3741 3762 3762# 3763 3764 3765 3766 3787 3787# 3788 3789 3790 3791 3812 3812# 3813 3814 3815 3816 3837 3837# 3838 3839 3840 3841 3862 3862# 3863 3864 3865 3866 3887 3887# 3888 3889 3890 3891 3912 3912# 3913 3914 3915 3916 3928# 3965 3965# 3967 3967# 3968 3991 3991# 3993 3994 4017 4017# 4019 4020 4043 4043# 4045 4046 4069 4069# 4071 4072 4095 4095# 4097 4098 4121 4121# 4123 4124 4147 4147# 4149 4150 4173 4173# 4175 4176 4199 4199# 4201 4202 4225 4225# 4227 4228 4251 4251# 4253 4254 4277 4277# 4279 4280 4303 4303# 4305 4306 4329 4329# 4331 4332 4355 4355# 4357 4358 4381 4381# 4383 4384 4407 4407# 4409 4410 4424# 4461 4461# 4463 4463# 4464 4487 4487# 4489 4490 4513 4513# 4515 4516 4539 4539# 4541 4542 4565 4565# 4567 4568 4591 4591# 4593 4594 4617 4617# 4619 4620 4643 4643# 4645 4646 4669 4669# 4671 4672 4695 4695# 4697 4698 4721 4721# 4723 4724 4747 4747# 4749 4750 4773 4773# 4775 4776 4799 4799# 4801 4802 4825 4825# 4827 4828 4851 4851# 4853 4854 4877 4877# 4879 4880 4903 4903# 4905 4906 5139# 5161 5161# 5162 5162# 5163 5164 5179 5179# 5180 5181 5182 5197 5197# 5198 5199 5200 5215 5215# 5216 5217 5218 5233 5233# 5234 5235 5236 5251 5251# 5252 5253 5254 5269 5269# 5270 5271 5272 5287 5287# 5288 5289 5290 5305 5305# 5306 5307 5308 5323 5323# 5324 5325 5326 5341 5341# 5342 5343 5344 5359 5359# 5360 5361 5362 5377 5377# 5378 5379 5380 5395 5395# 5396 5397 5398 5413 5413# 5414 5415 5416 5431 5431# 5432 5433 5434 5449 5449# 5450 5451 5452 5467 5467# 5468 5469 5470 5485 5485# 5486 5487 5488 5503 5503# 5504 5505 5506 5521 5521# 5522 5523 5524 5539 5539# 5540 5541 5542 5557 5557# 5558 5559 5560 5575 5575# 5576 5577 5578 5593 5593# 5594 5595 5596 5611 5611# 5612 5613 5614 5629 5629# 5630 5631 5632 5647 5647# 5648 5649 5650 5665 5665# 5666 5667 5668 5683 5683# 5684 5685 5686 5701 5701# 5702 5703 5704 5719 5719# 5720 5721 5722 5737 5737# 5738 5739 5740 5755 5755# 5756 5757 5758 5773 5773# 5774 5775 5776 5791 5791# 5792 5793 5794 6160# 6194 6194# 6195 6195# 6196 6221 6221# 6222 6223 6248 6248# 6249 6250 6275 6275# 6276 6277 6302 6302# 6303 6304 6329 6329# 6330 6331 6356 6356# 6357 6358 6383 6383# 6384 6385 6410 6410# 6411 6412 6437 6437# 6438 6439 6464 6464# 6465 6466 6491 6491# 6492 6493 6518 6518# 6519 6520 6545 6545# 6546 6547 6572 6572# 6573 6574 6599 6599# 6600 6601 6626 6626# 6627 6628 6653 6653# 6654 6655 6671# 6700 6700# 6701 6701# 6702 6722 6722# 6723 6724 6744 6744# 6745 6746 6766 6766# 6767 6768 6788 6788# 6789 6790 6810 6810# 6811 6812 6832 6832# 6833 6834 6854 6854# 6855 6856 6876 6876# 6877 6878 6898 6898# 6899 6900 6920 6920# 6921 6922 6942 6942# 6943 6944 6964 6964# 6965 6966 6986 6986# 6987 6988 7008 7008# 7009 7010 7030 7030# 7031 7032 7052 7052# 7053 7054 7074 7074# 7075 7076 7088# 7110 7110# 7111 7111# 7113 7128 7128# 7129 7131 7146 7146# 7147 7149 7164 7164# 7165 7167 7182 7182# 7183 7185 7200 7200# 7201 7203 7218 7218# 7219 7221 7236 7236# 7237 7239 7254 7254# 7255 7257 7272 7272# 7273 7275 7290 7290# 7291 7293 7308 7308# 7309 7311 7326 7326# 7327 7329 7344 7344# 7345 7347 7362 7362# 7363 7365 7380 7380# 7381 7383 7398 7398# 7399 7401 7416 7416# 7417 7419 7434 7434# 7435 7437 7452 7452# 7453 7455 7470 7470# 7471 7473 7488 7488# 7489 7491 7506 7506# 7507 7509 7524 7524# 7525 7527 7542 7542# 7543 7545 7560 7560# 7561 7563 7578 7578# SEQ 0275 7579 7581 7596 7596# 7597 7599 7614 7614# 7615 7617 7632 7632# 7633 7635 7650 7650# 7651 7653 7668 7668# 7669 7671 7686 7686# 7687 7689 7704 7704# 7705 7707 7722 7722# 7723 7725 7740 7740# 7741 7743 7753# 7775 7775# 7776 7776# 7777 7793 7793# 7794 7795 7811 7811# 7812 7813 7829 7829# 7830 7831 7847 7847# 7848 7849 7865 7865# 7866 7867 7883 7883# 7884 7885 7901 7901# 7902 7903 7919 7919# 7920 7921 7937 7937# 7938 7939 7955 7955# 7956 7957 7973 7973# 7974 7975 7991 7991# 7992 7993 8009 8009# 8010 8011 8027 8027# 8028 8029 8045 8045# 8046 8047 8063 8063# 8064 8065 8081 8081# 8082 8083 8099 8099# 8100 8101 8117 8117# 8118 8119 8135 8135# 8136 8137 8153 8153# 8154 8155 8171 8171# 8172 8173 8189 8189# 8190 8191 8207 8207# 8208 8209 8225 8225# 8226 8227 8243 8243# 8244 8245 8261 8261# 8262 8263 8279 8279# 8280 8281 8297 8297# 8298 8299 8315 8315# 8316 8317 8333 8333# 8334 8335 8351 8351# 8352 8353 8369 8369# 8370 8371 8387 8387# 8388 8389 8405 8405# 8406 8407 8422# 8447 8447# 8448 8448# 8449 8451 8467 8467# 8468 8469 8471 8487 8487# 8488 8489 8491 8507 8507# 8508 8509 8511 8527 8527# 8528 8529 8531 8547 8547# 8548 8549 8551 8567 8567# 8568 8569 8571 8587 8587# 8588 8589 8591 8607 8607# 8608 8609 8611 8627 8627# 8628 8629 8631 8647 8647# 8648 8649 8651 8667 8667# 8668 8669 8671 8687 8687# 8688 8689 8691 8707 8707# 8708 8709 8711 8727 8727# 8728 8729 8731 8747 8747# 8748 8749 8751 8767 8767# 8768 8769 8771 8787 8787# 8788 8789 8791 8801# 8826 8826# 8827 8827# 8828 8830 8846 8846# 8847 8848 8850 8866 8866# 8867 8868 8870 8886 8886# 8887 8888 8890 8906 8906# 8907 8908 8910 8926 8926# 8927 8928 8930 8946 8946# 8947 8948 8950 8966 8966# 8967 8968 8970 8986 8986# 8987 8988 8990 9006 9006# 9007 9008 9010 9026 9026# 9027 9028 9030 9046 9046# 9047 9048 9050 9066 9066# 9067 9068 9070 9086 9086# 9087 9088 9090 9106 9106# 9107 9108 9110 9126 9126# 9127 9128 9130 9146 9146# 9147 9148 9150 9166 9166# 9167 9168 9170 9180# 9214 9214# 9216 9216# 9218 9220 9239 9239# 9241 9243 9245 9264 9264# 9266 9268 9270 9289 9289# 9291 9293 9295 9314 9314# 9316 9318 9320 9339 9339# 9341 9343 9345 9364 9364# 9366 9368 9370 9389 9389# 9391 9393 9395 9414 9414# 9416 9418 9420 9439 9439# 9441 9443 9445 9464 9464# 9466 9468 9470 9489 9489# 9491 9493 9495 9514 9514# 9516 9518 9520 9539 9539# 9541 9543 9545 9564 9564# 9566 9568 9570 9589 9589# 9591 9593 9595 9614 9614# 9616 9618 9620 9639 9639# 9641 9643 9645 9655# 9689 9689# 9691 9691# 9693 9695 9714 9714# 9716 9718 9720 9739 9739# 9741 9743 9745 9764 9764# 9766 9768 9770 9789 9789# 9791 9793 9795 9814 9814# 9816 9818 9820 9839 9839# 9841 9843 9845 9864 9864# 9866 9868 9870 9889 9889# 9891 9893 9895 9914 9914# 9916 9918 9920 9939 9939# 9941 9943 9945 9964 9964# 9966 9968 9970 9989 9989# 9991 9993 9995 10014 10014# 10016 10018 10020 10039 10039# 10041 10043 10045 10064 10064# 10066 10068 10070 10089 10089# 10091 10093 10095 10114 10114# 10116 10118 10120 $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# SEQ 0276 $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# $ITRX1 451# $LPAPE 11206 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# SEQ 0277 $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0278 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 821 844 865 887 904 922 979 1009 1039 1069 1099 1129 1159 1189 1219 1249 1279 1309 1339 1369 1399 1429 1459 1489 1519 1549 1579 1609 1639 1669 1699 1729 1759 1789 1819 1849 1879 1909 1939 1969 1999 2029 2050 2107 2133 2159 2185 2211 2237 2263 2289 2315 2341 2367 2393 2419 2445 2471 2497 2523 2549 2575 2601 2627 2653 2679 2705 2731 2757 2783 2809 2835 2861 2887 2913 2939 2965 2991 3017 3070 3095 3120 3145 3170 3195 3220 3245 3270 3295 3320 3345 3370 3395 3420 3445 3470 3495 3520 3545 3570 3595 3620 3645 3670 3695 3720 3745 3770 3795 3820 3845 3870 3895 3920 3973 3999 4025 4051 4077 4103 4129 4155 4181 4207 4233 4259 4285 4311 4337 4363 4389 4415 4469 4495 4521 4547 4573 4599 4625 4651 4677 4703 4729 4755 4781 4807 4833 4859 4885 4911 4930 4947 4964 4980 4997 5014 5030 5047 5064 5080 5095 5112 5130 5167 5185 5203 5221 5239 5257 5275 5293 5311 5329 5347 5365 5383 5401 5419 5437 5455 5473 5491 5509 5527 5545 5563 5581 5599 5617 5635 5653 5671 5689 5707 5725 5743 5761 5779 5797 5813 5827 5849 5867 5886 5908 5931 5954 5977 5991 6013 6028 6050 6065 6081 6101 6122 6147 6200 6227 6254 6281 6308 6335 6362 6389 6416 6443 6470 6497 6524 6551 6578 6605 6632 6659 6706 6728 6750 6772 6794 6816 6838 6860 6882 6904 6926 6948 6970 6992 7014 7036 7058 7080 7115 7133 7151 7169 7187 7205 7223 7241 7259 7277 7295 7313 7331 7349 7367 7385 7403 7421 7439 7457 7475 7493 7511 7529 7547 7565 7583 7601 7619 7637 7655 7673 7691 7709 7727 7745 7780 7798 7816 7834 7852 7870 7888 7906 7924 7942 7960 7978 7996 8014 8032 8050 8068 8086 8104 8122 8140 8158 8176 8194 8212 8230 8248 8266 8284 8302 8320 8338 8356 8374 8392 8410 8453 8473 8493 8513 8533 8553 8573 8593 8613 8633 8653 8673 8693 8713 8733 8753 8773 8793 8832 8852 8872 8892 8912 8932 8952 8972 8992 9012 9032 9052 9072 9092 9112 9132 9152 9172 9222 9247 9272 9297 9322 9347 9372 9397 9422 SEQ 0279 9447 9472 9497 9522 9547 9572 9597 9622 9647 9697 9722 9747 9772 9797 9822 9847 9872 9897 9922 9947 9972 9997 10022 10047 10072 10097 10122 10141 10165 10185 10203 10219 10234 10255 10275 10297 10311 10327 10349 10367 10391 10414 10435 10461 10489 10507 10523 10547 10563 10580 10601 10617 10640 10662 10679 10695 10712 10728 10752 10774 10790 10805 10821 10837 10864 10884 10900 10915 10931 10947 10975 10990 11006 11021 11037 11055 11077 11100 11114 11132 11152 11176 11192 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# SEQ 0280 PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# SIXBTZ 261# STOP 48# 820 843 864 886 903 921 978 1008 1038 1068 1098 1128 1158 1188 1218 1248 1278 1308 1338 1368 1398 1428 1458 1488 1518 1548 1578 1608 1638 1668 1698 1728 1758 1788 1818 1848 1878 1908 1938 1968 1998 2028 2049 2106 2132 2158 2184 2210 2236 2262 2288 2314 2340 2366 2392 SEQ 0281 2418 2444 2470 2496 2522 2548 2574 2600 2626 2652 2678 2704 2730 2756 2782 2808 2834 2860 2886 2912 2938 2964 2990 3016 3069 3094 3119 3144 3169 3194 3219 3244 3269 3294 3319 3344 3369 3394 3419 3444 3469 3494 3519 3544 3569 3594 3619 3644 3669 3694 3719 3744 3769 3794 3819 3844 3869 3894 3919 3972 3998 4024 4050 4076 4102 4128 4154 4180 4206 4232 4258 4284 4310 4336 4362 4388 4414 4468 4494 4520 4546 4572 4598 4624 4650 4676 4702 4728 4754 4780 4806 4832 4858 4884 4910 4929 4946 4963 4979 4996 5013 5029 5046 5063 5079 5094 5111 5129 5166 5184 5202 5220 5238 5256 5274 5292 5310 5328 5346 5364 5382 5400 5418 5436 5454 5472 5490 5508 5526 5544 5562 5580 5598 5616 5634 5652 5670 5688 5706 5724 5742 5760 5778 5796 5812 5826 5848 5866 5885 5907 5930 5953 5976 5990 6012 6027 6049 6064 6080 6100 6121 6146 6199 6226 6253 6280 6307 6334 6361 6388 6415 6442 6469 6496 6523 6550 6577 6604 6631 6658 6705 6727 6749 6771 6793 6815 6837 6859 6881 6903 6925 6947 6969 6991 7013 7035 7057 7079 7114 7132 7150 7168 7186 7204 7222 7240 7258 7276 7294 7312 7330 7348 7366 7384 7402 7420 7438 7456 7474 7492 7510 7528 7546 7564 7582 7600 7618 7636 7654 7672 7690 7708 7726 7744 7779 7797 7815 7833 7851 7869 7887 7905 7923 7941 7959 7977 7995 8013 8031 8049 8067 8085 8103 8121 8139 8157 8175 8193 8211 8229 8247 8265 8283 8301 8319 8337 8355 8373 8391 8409 8452 8472 8492 8512 8532 8552 8572 8592 8612 8632 8652 8672 8692 8712 8732 8752 8772 8792 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9091 9111 9131 9151 9171 9221 9246 9271 9296 9321 9346 9371 9396 9421 9446 9471 9496 9521 9546 9571 9596 9621 9646 9696 9721 9746 9771 9796 9821 9846 9871 9896 9921 9946 9971 9996 10021 10046 10071 10096 10121 10140 10164 10184 10202 10218 10233 10254 10274 10296 10310 10326 10348 10366 10390 10413 10434 10460 10488 10506 10522 10546 10562 10579 10600 10616 10639 10661 10678 10694 10711 10727 10751 10773 10789 10804 10820 10836 10863 10883 10899 10914 10930 10946 10974 10989 11005 11020 11036 11054 11076 11099 11113 11131 11151 11175 11191 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# SEQ 0282 WRPI 356# WRPUR 356# WRSPB 356# WRTIM 356# WRUBR 356# ADD 816 839 860 882 900 918 974 1004 1034 1064 1094 1124 1154 1184 1214 1244 1274 1304 1334 1364 1394 1424 1454 1484 1514 1544 1574 1604 SEQ 0283 1634 1664 1694 1724 1754 1784 1814 1844 1874 1904 1934 1964 1994 2024 2047 2102 2128 2154 2180 2206 2232 2258 2284 2310 2336 2362 2388 2414 2440 2466 2492 2518 2544 2570 2596 2622 2648 2674 2700 2726 2752 2778 2804 2830 2856 2882 2908 2934 2960 2986 3012 3065 3090 3115 3140 3165 3190 3215 3240 3265 3290 3315 3340 3365 3390 3415 3440 3465 3490 3515 3540 3565 3590 3615 3640 3665 3690 3715 3740 3765 3790 3815 3840 3865 3890 3915 3969 3995 4021 4047 4073 4099 4125 4151 4177 4203 4229 4255 4281 4307 4333 4359 4385 4411 4466 4492 4518 4544 4570 4596 4622 4648 4674 4700 4726 4752 4778 4804 4830 4856 4882 4908 4925 4942 4959 4975 4992 5009 5025 5042 5059 5075 5092 ANDCA 10614 10637 10659 10676 10692 10709 ANDCB 10725 10749 10771 10787 10802 10818 ANDCM 10520 10544 10560 10577 10598 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAIE 10139 10163 10803 10819 10929 11004 11112 11150 CAM 6062 CAMA 5824 CAME 5847 5865 5883 6198 6225 6252 6279 6306 6333 6360 6387 6414 6441 6468 6495 6522 6549 6576 6603 6630 6657 6704 6726 6748 6770 6792 6814 6836 6858 6880 6902 6924 6946 6968 6990 7012 7034 7056 7078 8451 8471 8491 8511 8531 8551 8571 8591 8611 8631 8651 8671 8691 8711 8731 8751 8771 8791 8830 8850 8870 8890 8910 8930 8950 8970 8990 9010 9030 9050 9070 9090 9110 9130 9150 9170 9220 9245 9270 9295 9320 9345 9370 9395 9420 9445 9470 9495 9520 9545 9570 9595 9620 9645 9695 9720 9745 9770 9795 9820 9845 9870 9895 9920 9945 9970 9995 10020 10045 10070 10095 10120 10183 10201 10217 10232 10253 10273 10309 10325 10365 10389 10459 10487 10505 10521 10561 10638 10677 10726 10772 10835 10862 10882 10898 10913 10945 10973 10988 11019 11035 11075 11098 11174 11190 CAMGE 6078 6099 CAML 5906 5927 5952 5973 5989 6009 6025 6046 CAMN 6120 6144 6197 6224 6251 6278 6305 6332 6359 6386 6413 6440 6467 6494 6521 6548 6575 6602 6629 6656 6703 6725 6747 6769 6791 6813 6835 6857 6879 6901 6923 6945 6967 6989 7011 7033 7055 7077 7113 7131 7149 7167 7185 7203 7221 7239 7257 7275 7293 7311 7329 7347 7365 7383 7401 7419 7437 7455 7473 7491 7509 7527 7545 7563 7581 7599 7617 7635 7653 7671 7689 7707 7725 7743 7778 7796 7814 7832 7850 7868 7886 7904 7922 7940 7958 7976 7994 8012 8030 8048 8066 8084 8102 8120 8138 8156 8174 8192 8210 8228 8246 8264 8282 8300 8318 8336 8354 8372 8390 8408 DEFINE 9 48 56 84 252 255 261 335 346 END 11384 EQV 975 976 1005 1006 1035 1036 1065 1066 1095 1096 1125 1126 1155 1156 1185 1186 1215 1216 1245 1246 1275 1276 1305 1306 1335 1336 1365 1366 1395 1396 1425 1426 1455 1456 1485 1486 1515 1516 1545 1546 1575 1576 1605 1606 1635 1636 1665 1666 1695 1696 1725 1726 1755 1756 1785 1786 1815 1816 1845 1846 1875 1876 1905 1906 1935 1936 1965 1966 1995 1996 2025 2026 2103 2104 2129 2130 2155 2156 2181 2182 2207 2208 2233 2234 2259 2260 2285 2286 2311 2312 2337 2338 2363 2364 2389 2390 2415 2416 2441 2442 2467 2468 2493 2494 2519 2520 2545 2546 2571 2572 2597 2598 SEQ 0284 2623 2624 2649 2650 2675 2676 2701 2702 2727 2728 2753 2754 2779 2780 2805 2806 2831 2832 2857 2858 2883 2884 2909 2910 2935 2936 2961 2962 2987 2988 3013 3014 3066 3067 3091 3092 3116 3117 3141 3142 3166 3167 3191 3192 3216 3217 3241 3242 3266 3267 3291 3292 3316 3317 3341 3342 3366 3367 3391 3392 3416 3417 3441 3442 3466 3467 3491 3492 3516 3517 3541 3542 3566 3567 3591 3592 3616 3617 3641 3642 3666 3667 3691 3692 3716 3717 3741 3742 3766 3767 3791 3792 3816 3817 3841 3842 3866 3867 3891 3892 3916 3917 4926 4927 4943 4944 4960 4961 4976 4977 4993 4994 5010 5011 5026 5027 5043 5044 5060 5061 5076 5077 IFDEF 356 407 408 409 410 11375 11382 IFE 972 1002 1032 1062 1092 1122 1152 1182 1212 1242 1272 1302 1332 1362 1392 1422 1452 1482 1512 1542 1572 1602 1632 1662 1692 1722 1752 1782 1812 1842 1872 1902 1932 1962 1992 2022 2100 2126 2152 2178 2204 2230 2256 2282 2308 2334 2360 2386 2412 2438 2464 2490 2516 2542 2568 2594 2620 2646 2672 2698 2724 2750 2776 2802 2828 2854 2880 2906 2932 2958 2984 3010 3063 3088 3113 3138 3163 3188 3213 3238 3263 3288 3313 3338 3363 3388 3413 3438 3463 3488 3513 3538 3563 3588 3613 3638 3663 3688 3713 3738 3763 3788 3813 3838 3863 3888 3913 3966 3967 3992 3993 4018 4019 4044 4045 4070 4071 4096 4097 4122 4123 4148 4149 4174 4175 4200 4201 4226 4227 4252 4253 4278 4279 4304 4305 4330 4331 4356 4357 4382 4383 4408 4409 4462 4463 4488 4489 4514 4515 4540 4541 4566 4567 4592 4593 4618 4619 4644 4645 4670 4671 4696 4697 4722 4723 4748 4749 4774 4775 4800 4801 4826 4827 4852 4853 4878 4879 4904 4905 5162 5180 5198 5216 5234 5252 5270 5288 5306 5324 5342 5360 5378 5396 5414 5432 5450 5468 5486 5504 5522 5540 5558 5576 5594 5612 5630 5648 5666 5684 5702 5720 5738 5756 5774 5792 6195 6222 6249 6276 6303 6330 6357 6384 6411 6438 6465 6492 6519 6546 6573 6600 6627 6654 6701 6723 6745 6767 6789 6811 6833 6855 6877 6899 6921 6943 6965 6987 7009 7031 7053 7075 7111 7129 7147 7165 7183 7201 7219 7237 7255 7273 7291 7309 7327 7345 7363 7381 7399 7417 7435 7453 7471 7489 7507 7525 7543 7561 7579 7597 7615 7633 7651 7669 7687 7705 7723 7741 7776 7794 7812 7830 7848 7866 7884 7902 7920 7938 7956 7974 7992 8010 8028 8046 8064 8082 8100 8118 8136 8154 8172 8190 8208 8226 8244 8262 8280 8298 8316 8334 8352 8370 8388 8406 8448 8468 8488 8508 8528 8548 8568 8588 8608 8628 8648 8668 8688 8708 8728 8748 8768 8788 8827 8847 8867 8887 8907 8927 8947 8967 8987 9007 9027 9047 9067 9087 9107 9127 9147 9167 9216 9217 9241 9242 9266 9267 9291 9292 9316 9317 9341 9342 9366 9367 9391 9392 9416 9417 9441 9442 9466 9467 9491 9492 9516 9517 9541 9542 9566 9567 9591 9592 9616 9617 9641 9642 9691 9692 9716 9717 9741 9742 9766 9767 9791 9792 9816 9817 9841 9842 9866 9867 9891 9892 9916 9917 9941 9942 9966 9967 9991 9992 10016 10017 10041 10042 10066 10067 10091 10092 10116 10117 IFNDEF 307 308 318 407 408 409 410 489 11206 IOR 10432 10458 10486 10504 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 11200 JSP 166 743 776 JUMPA 822 845 866 888 905 923 980 1010 1040 1070 1100 1130 1160 1190 1220 1250 1280 1310 1340 1370 1400 1430 1460 1490 1520 1550 1580 1610 1640 1670 1700 1730 1760 1790 1820 1850 1880 1910 1940 1970 2000 2030 2051 2108 2134 2160 2186 2212 2238 2264 2290 2316 2342 2368 2394 2420 2446 2472 2498 2524 2550 2576 2602 2628 2654 2680 2706 2732 2758 2784 SEQ 0285 2810 2836 2862 2888 2914 2940 2966 2992 3018 3071 3096 3121 3146 3171 3196 3221 3246 3271 3296 3321 3346 3371 3396 3421 3446 3471 3496 3521 3546 3571 3596 3621 3646 3671 3696 3721 3746 3771 3796 3821 3846 3871 3896 3921 3974 4000 4026 4052 4078 4104 4130 4156 4182 4208 4234 4260 4286 4312 4338 4364 4390 4416 4470 4496 4522 4548 4574 4600 4626 4652 4678 4704 4730 4756 4782 4808 4834 4860 4886 4912 4931 4948 4965 4981 4998 5015 5031 5048 5065 5081 5096 5113 5131 5168 5186 5204 5222 5240 5258 5276 5294 5312 5330 5348 5366 5384 5402 5420 5438 5456 5474 5492 5510 5528 5546 5564 5582 5600 5618 5636 5654 5672 5690 5708 5726 5744 5762 5780 5798 5814 5828 5850 5868 5887 5909 5932 5955 5978 5992 6014 6029 6051 6066 6082 6102 6123 6148 6201 6228 6255 6282 6309 6336 6363 6390 6417 6444 6471 6498 6525 6552 6579 6606 6633 6660 6707 6729 6751 6773 6795 6817 6839 6861 6883 6905 6927 6949 6971 6993 7015 7037 7059 7081 7116 7134 7152 7170 7188 7206 7224 7242 7260 7278 7296 7314 7332 7350 7368 7386 7404 7422 7440 7458 7476 7494 7512 7530 7548 7566 7584 7602 7620 7638 7656 7674 7692 7710 7728 7746 7781 7799 7817 7835 7853 7871 7889 7907 7925 7943 7961 7979 7997 8015 8033 8051 8069 8087 8105 8123 8141 8159 8177 8195 8213 8231 8249 8267 8285 8303 8321 8339 8357 8375 8393 8411 8454 8474 8494 8514 8534 8554 8574 8594 8614 8634 8654 8674 8694 8714 8734 8754 8774 8794 8833 8853 8873 8893 8913 8933 8953 8973 8993 9013 9033 9053 9073 9093 9113 9133 9153 9173 9223 9248 9273 9298 9323 9348 9373 9398 9423 9448 9473 9498 9523 9548 9573 9598 9623 9648 9698 9723 9748 9773 9798 9823 9848 9873 9898 9923 9948 9973 9998 10023 10048 10073 10098 10123 10142 10166 10186 10204 10220 10235 10256 10276 10298 10312 10328 10350 10368 10392 10415 10436 10462 10490 10508 10524 10548 10564 10581 10602 10618 10641 10663 10680 10696 10713 10729 10753 10775 10791 10806 10822 10838 10865 10885 10901 10916 10932 10948 10976 10991 11007 11022 11038 11056 11078 11101 11115 11133 11153 11177 11193 LALL 10 LIST 9 318 356 489 11206 11372 LIT 11207 LOC 26 359 683 703 707 710 715 733 738 MOVE 815 838 859 881 899 917 973 1003 1033 1063 1093 1123 1153 1183 1213 1243 1273 1303 1333 1363 1393 1423 1453 1483 1513 1543 1573 1603 1633 1663 1693 1723 1753 1783 1813 1843 1873 1903 1933 1963 1993 2023 2046 2101 2127 2153 2179 2205 2231 2257 2283 2309 2335 2361 2387 2413 2439 2465 2491 2517 2543 2569 2595 2621 2647 2673 2699 2725 2751 2777 2803 2829 2855 2881 2907 2933 2959 2985 3011 3064 3089 3114 3139 3164 3189 3214 3239 3264 3289 3314 3339 3364 3389 3414 3439 3464 3489 3514 3539 3564 3589 3614 3639 3664 3689 3714 3739 3764 3789 3814 3839 3864 3889 3914 3968 3994 4020 4046 4072 4098 4124 4150 4176 4202 4228 4254 4280 4306 4332 4358 4384 4410 4464 4490 4516 4542 4568 4594 4620 4646 4672 4698 4724 4750 4776 4802 4828 4854 4880 4906 4924 4941 4958 4974 4991 5008 5024 5041 5058 5074 5091 5107 5126 5163 5181 5199 5217 5235 5253 5271 5289 5307 5325 5343 5361 5379 5397 5415 5433 5451 5469 5487 5505 5523 5541 5559 5577 5595 5613 5631 5649 5667 5685 5703 5721 5739 5757 5775 5793 5809 5823 5846 5864 5882 5905 5926 5951 5972 5988 6061 6077 6196 6223 6250 6277 6304 6331 6358 6385 6412 6439 6466 6493 6520 6547 6574 6601 6628 6655 6702 6724 6746 6768 6790 6812 6834 6856 6878 6900 6922 6944 6966 6988 7010 7032 7054 7076 7777 7795 7813 7831 7849 7867 7885 7903 7921 7939 7957 7975 7993 8011 8029 8047 8065 8083 8101 8119 8137 8155 8173 8191 8209 8227 8245 8263 8281 8299 8317 8335 8353 8371 8389 8407 10162 10251 10387 10613 10636 10724 10748 10833 10860 10943 10971 SEQ 0286 11073 MOVEI 10182 10199 10215 10230 10271 10323 10345 10363 10410 10431 10457 10576 MOVM 11129 11149 11173 11189 MOVN 11052 11074 11097 11111 MOVS 8449 8469 8489 8509 8529 8549 8569 8589 8609 8629 8649 8669 8689 8709 8729 8749 8769 8789 8828 8848 8868 8888 8908 8928 8948 8968 8988 9008 9028 9048 9068 9088 9108 9128 9148 9168 9218 9243 9268 9293 9318 9343 9368 9393 9418 9443 9468 9493 9518 9543 9568 9593 9618 9643 9693 9718 9743 9768 9793 9818 9843 9868 9893 9918 9943 9968 9993 10018 10043 10068 10093 10118 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 ORCA 10834 10861 10881 10897 10912 10928 ORCB 10944 10972 10987 11003 11018 11034 ORCM 10346 10364 10388 10411 PAGE 988 1018 1048 1078 1108 1138 1168 1198 1228 1258 1288 1318 1348 1378 1408 1438 1468 1498 1528 1558 1588 1618 1648 1678 1708 1738 1768 1798 1828 1858 1888 1918 1948 1978 2008 2038 3024 4422 5137 5804 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 933 2065 3030 3931 4427 5141 6162 6673 7090 7755 8424 8803 9183 9658 SETCA 10200 10216 10231 10252 SETCM 10272 10294 10308 SETO 10324 10485 10503 10519 10543 10559 10691 10708 10786 10817 10896 10927 11002 11033 11051 11128 SETOM 745 752 778 SETZ 6008 6024 6045 6098 6119 6143 7112 7130 7148 7166 7184 7202 7220 7238 7256 7274 7292 7310 7328 7346 7364 7382 7400 7418 7436 7454 7472 7490 7508 7526 7544 7562 7580 7598 7616 7634 7652 7670 7688 7706 7724 7742 10138 10597 10658 10675 10770 10801 10880 10911 10986 11017 11096 11148 11172 11188 SETZM 742 747 775 780 11199 SIXBIT 77 78 574 575 583 584 SKIPA 5884 5929 5975 6011 6026 6048 6063 6079 6145 SKIPE 748 762 768 977 1007 1037 1067 1097 1127 1157 1187 1217 1247 1277 1307 1337 1367 1397 1427 1457 1487 1517 1547 1577 1607 1637 1667 1697 1727 1757 1787 1817 1847 1877 1907 1937 1967 1997 2027 2048 2105 2131 2157 2183 2209 2235 2261 2287 2313 2339 2365 2391 2417 2443 2469 2495 2521 2547 2573 2599 2625 2651 2677 2703 2729 2755 2781 2807 2833 2859 2885 2911 2937 2963 2989 3015 3068 3093 3118 3143 3168 3193 3218 3243 3268 3293 3318 3343 3368 3393 3418 3443 3468 3493 3518 3543 3568 3593 3618 3643 3668 3693 3718 3743 3768 3793 3818 3843 3868 3893 3918 3971 3997 4023 4049 4075 4101 4127 4153 4179 4205 4231 4257 4283 4309 4335 4361 4387 4413 4467 4493 4519 4545 4571 4597 4623 4649 4675 4701 4727 4753 4779 4805 4831 4857 4883 4909 4928 4945 4962 4978 4995 5012 5028 SEQ 0287 5045 5062 5078 5093 5128 5165 5183 5201 5219 5237 5255 5273 5291 5309 5327 5345 5363 5381 5399 5417 5435 5453 5471 5489 5507 5525 5543 5561 5579 5597 5615 5633 5651 5669 5687 5705 5723 5741 5759 5777 5795 5811 10295 10412 10433 10545 10578 10599 10615 10660 10693 10710 10750 10788 11053 11130 SKIPL 783 5110 SKIPN 746 751 759 764 770 779 781 819 842 863 885 902 920 10347 SOS 758 SUB 5108 5127 5164 5182 5200 5218 5236 5254 5272 5290 5308 5326 5344 5362 5380 5398 5416 5434 5452 5470 5488 5506 5524 5542 5560 5578 5596 5614 5632 5650 5668 5686 5704 5722 5740 5758 5776 5794 5810 SUBTTL 30 82 117 319 356 357 685 773 807 4918 5101 5896 8417 10129 10191 11043 11120 11201 TITLE 14 TLNE 744 777 TTCALL 784 VAR 11380 XLIST 8 317 355 488 11205 XWD 859 3968 3969 3994 3995 4020 4021 4046 4047 4072 4073 4098 4099 4124 4125 4150 4151 4176 4177 4202 4203 4228 4229 4254 4255 4280 4281 4306 4307 4332 4333 4358 4359 4384 4385 4410 4411 4464 4490 4516 4542 4568 4594 4620 4646 4672 4698 4724 4750 4776 4802 4828 4854 4880 4906 5108 5951 5952 5972 5973 5988 6046 6196 6223 6250 6277 6304 6331 6358 6385 6412 6439 6466 6493 6520 6547 6574 6601 6628 6655 6702 6724 6746 6768 6790 6812 6834 6856 6878 6900 6922 6944 6966 6988 7010 7032 7054 7076 8449 8451 8469 8471 8489 8491 8509 8511 8529 8531 8549 8551 8569 8571 8589 8591 8609 8611 8629 8631 8649 8651 8669 8671 8689 8691 8709 8711 8729 8731 8749 8751 8769 8771 8789 8791 8828 8830 8848 8850 8868 8870 8888 8890 8908 8910 8928 8930 8948 8950 8968 8970 8988 8990 9008 9010 9028 9030 9048 9050 9068 9070 9088 9090 9108 9110 9128 9130 9148 9150 9168 9170 9218 9220 9243 9245 9268 9270 9293 9295 9318 9320 9343 9345 9368 9370 9393 9395 9418 9420 9443 9445 9468 9470 9493 9495 9518 9520 9543 9545 9568 9570 9593 9595 9618 9620 9643 9645 9693 9695 9718 9720 9743 9745 9768 9770 9793 9795 9818 9820 9843 9845 9868 9870 9893 9895 9918 9920 9943 9945 9968 9970 9993 9995 10018 10020 10043 10045 10068 10070 10093 10095 10118 10120 10520 10613 10636 10638 10724 10726 10748 10833 10835 10860 10862 10943 10945 10971 10973 11073 11075 11173 11174 11189 11190 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0288 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *030662 ADD 0,035331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *030663 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *030665 JUMPA 0,030666 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 E= 000000 030666 ---------- *030666 MOVE 0,035331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *030667 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 000000 000000 FINAL C(AC)= 123456 765432 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *030670 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *030672 JUMPA 0,030673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 E= 000000 030673 ---------- *030673 MOVE 0,035332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 000000 FINAL C(AC)= 123456 000000 ---------- *030674 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 000000 000000 FINAL C(AC)= 123456 000000 ---------- *030675 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 FINAL C(AC)= 123456 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *030677 JUMPA 0,030700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 E= 000000 030700 ---------- *030700 MOVE 0,035333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *030701 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 000000 000000 FINAL C(AC)= 000000 123456 ---------- *030702 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *030704 JUMPA 0,030705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 030705 ---------- *030705 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *030706 ADD 0,035332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 000000 FINAL C(AC)= 123456 000000 ---------- *030707 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 FINAL C(AC)= 123456 000000 ---------- *030711 JUMPA 0,030712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 E= 000000 030712 ---------- *030712 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030713 ADD 0,035333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *030714 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *030716 JUMPA 0,030717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 030717 ---------- *030717 MOVE 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *030720 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 ---------- *030721 EQV 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *030722 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030723 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030725 JUMPA 0,030726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030726 ---------- *030726 MOVE 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *030727 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *030730 EQV 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *030731 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030732 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030734 JUMPA 0,030735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030735 ---------- *030735 MOVE 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *030736 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 ---------- *030737 EQV 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 ---------- *030740 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030741 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030743 JUMPA 0,030744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030744 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *030744 MOVE 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *030745 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000010 ---------- *030746 EQV 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 ---------- *030747 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030750 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *030752 JUMPA 0,030753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030753 ---------- *030753 MOVE 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *030754 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000020 ---------- *030755 EQV 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 ---------- *030756 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *030757 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030761 JUMPA 0,030762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030762 ---------- *030762 MOVE 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *030763 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000040 ---------- *030764 EQV 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *030765 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030766 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030770 JUMPA 0,030771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030771 ---------- *030771 MOVE 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *030772 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *030773 EQV 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 ---------- *030774 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030775 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030777 JUMPA 0,031000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031000 ---------- *031000 MOVE 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *031001 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000200 ---------- *031002 EQV 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 ---------- *031003 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031004 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031006 JUMPA 0,031007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *031007 MOVE 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031010 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000400 ---------- *031011 EQV 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 ---------- *031012 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031013 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *031015 JUMPA 0,031016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031016 ---------- *031016 MOVE 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031017 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 001000 ---------- *031020 EQV 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 ---------- *031021 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *031022 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031024 JUMPA 0,031025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031025 ---------- *031025 MOVE 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031026 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 002000 ---------- *031027 EQV 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *031030 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031031 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031033 JUMPA 0,031034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031034 ---------- *031034 MOVE 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031035 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *031036 EQV 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 ---------- *031037 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031040 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031043 ---------- *031043 MOVE 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *031044 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 010000 ---------- *031045 EQV 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 ---------- *031046 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031047 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031051 JUMPA 0,031052 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031052 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *031052 MOVE 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031053 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 020000 ---------- *031054 EQV 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 ---------- *031055 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031056 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *031060 JUMPA 0,031061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031061 ---------- *031061 MOVE 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031062 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 040000 ---------- *031063 EQV 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 ---------- *031064 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *031065 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031067 JUMPA 0,031070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031070 ---------- *031070 MOVE 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031071 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 100000 ---------- *031072 EQV 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *031073 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031074 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031077 ---------- *031077 MOVE 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031100 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *031101 EQV 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 ---------- *031102 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031103 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031105 JUMPA 0,031106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031106 ---------- *031106 MOVE 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *031107 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 400000 ---------- *031110 EQV 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 ---------- *031111 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031112 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031114 JUMPA 0,031115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031115 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *031115 MOVE 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031116 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000001 000000 ---------- *031117 EQV 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 ---------- *031120 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031121 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *031123 JUMPA 0,031124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031124 ---------- *031124 MOVE 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031125 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000002 000000 ---------- *031126 EQV 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 ---------- *031127 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *031130 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031132 JUMPA 0,031133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031133 ---------- *031133 MOVE 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031134 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000004 000000 ---------- *031135 EQV 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *031136 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031137 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031141 JUMPA 0,031142 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031142 ---------- *031142 MOVE 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031143 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *031144 EQV 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 ---------- *031145 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031146 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031150 JUMPA 0,031151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031151 ---------- *031151 MOVE 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *031152 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000020 000000 ---------- *031153 EQV 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 ---------- *031154 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031155 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031157 JUMPA 0,031160 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031160 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *031160 MOVE 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031161 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000040 000000 ---------- *031162 EQV 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 ---------- *031163 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031164 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *031166 JUMPA 0,031167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031167 ---------- *031167 MOVE 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031170 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000100 000000 ---------- *031171 EQV 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 ---------- *031172 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *031173 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031175 JUMPA 0,031176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031176 ---------- *031176 MOVE 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031177 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000200 000000 ---------- *031200 EQV 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *031201 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031202 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031204 JUMPA 0,031205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031205 ---------- *031205 MOVE 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031206 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *031207 EQV 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 ---------- *031210 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031211 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031213 JUMPA 0,031214 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031214 ---------- *031214 MOVE 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *031215 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 001000 000000 ---------- *031216 EQV 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 ---------- *031217 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031220 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031222 JUMPA 0,031223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031223 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *031223 MOVE 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031224 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 002000 000000 ---------- *031225 EQV 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 ---------- *031226 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031227 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *031231 JUMPA 0,031232 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031232 ---------- *031232 MOVE 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031233 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 004000 000000 ---------- *031234 EQV 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 ---------- *031235 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *031236 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031240 JUMPA 0,031241 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031241 ---------- *031241 MOVE 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031242 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 010000 000000 ---------- *031243 EQV 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *031244 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031245 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031247 JUMPA 0,031250 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031250 ---------- *031250 MOVE 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031251 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *031252 EQV 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 ---------- *031253 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031254 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031256 JUMPA 0,031257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031257 ---------- *031257 MOVE 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *031260 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 040000 000000 ---------- *031261 EQV 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 ---------- *031262 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031263 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031265 JUMPA 0,031266 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031266 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *031266 MOVE 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031267 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 100000 000000 ---------- *031270 EQV 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 ---------- *031271 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031272 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *031274 JUMPA 0,031275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031275 ---------- *031275 MOVE 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031276 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 200000 000000 ---------- *031277 EQV 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 ---------- *031300 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *031301 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031303 JUMPA 0,031304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031304 ---------- *031304 MOVE 0,035377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031305 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 400000 000000 ---------- *031306 EQV 0,035377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *031307 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031310 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031312 JUMPA 0,031313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031313 ---------- *031313 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031314 ADD 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *031315 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031317 JUMPA 0,031320 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031320 ---------- *031320 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031321 ADD 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031322 EQV 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *031323 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031324 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031326 JUMPA 0,031327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031327 ---------- *031327 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031330 ADD 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *031331 EQV 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *031332 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031333 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031335 JUMPA 0,031336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031336 ---------- *031336 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *031337 ADD 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031340 EQV 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 ---------- *031341 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031342 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031344 JUMPA 0,031345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031345 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *031345 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031346 ADD 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031347 EQV 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 ---------- *031350 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031351 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *031353 JUMPA 0,031354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031354 ---------- *031354 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031355 ADD 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031356 EQV 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 ---------- *031357 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *031360 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031362 JUMPA 0,031363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031363 ---------- *031363 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031364 ADD 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031365 EQV 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *031366 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031367 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031371 JUMPA 0,031372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031372 ---------- *031372 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031373 ADD 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *031374 EQV 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 ---------- *031375 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031376 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031400 JUMPA 0,031401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031401 ---------- *031401 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *031402 ADD 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031403 EQV 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 ---------- *031404 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031405 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031407 JUMPA 0,031410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031410 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *031410 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031411 ADD 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031412 EQV 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 ---------- *031413 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031414 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *031416 JUMPA 0,031417 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031417 ---------- *031417 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031420 ADD 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031421 EQV 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 ---------- *031422 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *031423 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031425 JUMPA 0,031426 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031426 ---------- *031426 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031427 ADD 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031430 EQV 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *031431 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031432 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031434 JUMPA 0,031435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031435 ---------- *031435 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031436 ADD 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *031437 EQV 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 ---------- *031440 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031441 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031443 JUMPA 0,031444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031444 ---------- *031444 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *031445 ADD 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031446 EQV 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 ---------- *031447 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031450 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031452 JUMPA 0,031453 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031453 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *031453 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031454 ADD 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031455 EQV 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 ---------- *031456 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031457 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *031461 JUMPA 0,031462 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031462 ---------- *031462 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031463 ADD 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031464 EQV 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 ---------- *031465 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *031466 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031470 JUMPA 0,031471 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031471 ---------- *031471 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031472 ADD 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031473 EQV 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *031474 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031475 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031477 JUMPA 0,031500 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031500 ---------- *031500 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031501 ADD 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *031502 EQV 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 ---------- *031503 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031504 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031506 JUMPA 0,031507 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031507 ---------- *031507 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *031510 ADD 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031511 EQV 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 ---------- *031512 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031513 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031515 JUMPA 0,031516 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031516 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *031516 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031517 ADD 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031520 EQV 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 ---------- *031521 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031522 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *031524 JUMPA 0,031525 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031525 ---------- *031525 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031526 ADD 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031527 EQV 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 ---------- *031530 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *031531 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031533 JUMPA 0,031534 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031534 ---------- *031534 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031535 ADD 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031536 EQV 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *031537 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031540 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031542 JUMPA 0,031543 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031543 ---------- *031543 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031544 ADD 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *031545 EQV 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 ---------- *031546 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031547 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031551 JUMPA 0,031552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031552 ---------- *031552 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *031553 ADD 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031554 EQV 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 ---------- *031555 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031556 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031560 JUMPA 0,031561 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031561 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *031561 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031562 ADD 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031563 EQV 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 ---------- *031564 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031565 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *031567 JUMPA 0,031570 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031570 ---------- *031570 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031571 ADD 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031572 EQV 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 ---------- *031573 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *031574 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031576 JUMPA 0,031577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031577 ---------- *031577 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031600 ADD 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031601 EQV 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *031602 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031603 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031605 JUMPA 0,031606 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031606 ---------- *031606 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031607 ADD 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *031610 EQV 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 ---------- *031611 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031612 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031614 JUMPA 0,031615 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031615 ---------- *031615 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *031616 ADD 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031617 EQV 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 ---------- *031620 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031621 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031623 JUMPA 0,031624 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031624 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *031624 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031625 ADD 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031626 EQV 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 ---------- *031627 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031630 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *031632 JUMPA 0,031633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031633 ---------- *031633 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031634 ADD 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031635 EQV 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 ---------- *031636 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *031637 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031641 JUMPA 0,031642 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031642 ---------- *031642 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031643 ADD 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031644 EQV 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *031645 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031646 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031650 JUMPA 0,031651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031651 ---------- *031651 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031652 ADD 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *031653 EQV 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 ---------- *031654 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031655 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031657 JUMPA 0,031660 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031660 ---------- *031660 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *031661 ADD 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031662 EQV 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 ---------- *031663 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031664 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031666 JUMPA 0,031667 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031667 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *031667 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031670 ADD 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031671 EQV 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 ---------- *031672 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031673 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *031675 JUMPA 0,031676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031676 ---------- *031676 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031677 ADD 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031700 EQV 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 ---------- *031701 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *031702 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031704 JUMPA 0,031705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031705 ---------- *031705 MOVE 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031706 ADD 0,035377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031707 EQV 0,035377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *031710 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031711 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031713 JUMPA 0,031714 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031714 ---------- *031714 MOVE 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031715 ADD 0,035334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *031716 EQV 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *031717 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031720 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031722 JUMPA 0,031723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031723 ---------- *031723 MOVE 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *031724 ADD 0,035335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000004 ---------- *031725 EQV 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 ---------- *031726 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031727 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031731 JUMPA 0,031732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031732 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *031732 MOVE 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031733 ADD 0,035336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000010 ---------- *031734 EQV 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 ---------- *031735 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031736 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *031740 JUMPA 0,031741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031741 ---------- *031741 MOVE 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031742 ADD 0,035337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000020 ---------- *031743 EQV 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 ---------- *031744 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *031745 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031747 JUMPA 0,031750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031750 ---------- *031750 MOVE 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031751 ADD 0,035340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000040 ---------- *031752 EQV 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *031753 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031754 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031756 JUMPA 0,031757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031757 ---------- *031757 MOVE 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031760 ADD 0,035341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *031761 EQV 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 ---------- *031762 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031763 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031765 JUMPA 0,031766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031766 ---------- *031766 MOVE 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *031767 ADD 0,035342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000200 ---------- *031770 EQV 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 ---------- *031771 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031772 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031774 JUMPA 0,031775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *031775 MOVE 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031776 ADD 0,035343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000400 ---------- *031777 EQV 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 ---------- *032000 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032001 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *032003 JUMPA 0,032004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032004 ---------- *032004 MOVE 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032005 ADD 0,035344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 001000 ---------- *032006 EQV 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 ---------- *032007 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *032010 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032012 JUMPA 0,032013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032013 ---------- *032013 MOVE 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032014 ADD 0,035345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 002000 ---------- *032015 EQV 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *032016 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032017 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032021 JUMPA 0,032022 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032022 ---------- *032022 MOVE 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032023 ADD 0,035346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *032024 EQV 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 ---------- *032025 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032026 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032030 JUMPA 0,032031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032031 ---------- *032031 MOVE 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *032032 ADD 0,035347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 010000 ---------- *032033 EQV 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 ---------- *032034 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032035 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032037 JUMPA 0,032040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *032040 MOVE 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032041 ADD 0,035350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 020000 ---------- *032042 EQV 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 ---------- *032043 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032044 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *032046 JUMPA 0,032047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032047 ---------- *032047 MOVE 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032050 ADD 0,035351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 040000 ---------- *032051 EQV 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 ---------- *032052 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *032053 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032055 JUMPA 0,032056 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032056 ---------- *032056 MOVE 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032057 ADD 0,035352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 100000 ---------- *032060 EQV 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *032061 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032062 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032064 JUMPA 0,032065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032065 ---------- *032065 MOVE 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032066 ADD 0,035353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *032067 EQV 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 ---------- *032070 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032071 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032073 JUMPA 0,032074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032074 ---------- *032074 MOVE 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *032075 ADD 0,035354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 400000 ---------- *032076 EQV 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 ---------- *032077 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032100 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032102 JUMPA 0,032103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032103 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *032103 MOVE 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032104 ADD 0,035355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000001 000000 ---------- *032105 EQV 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 ---------- *032106 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032107 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *032111 JUMPA 0,032112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032112 ---------- *032112 MOVE 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *032113 ADD 0,035356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000002 000000 ---------- *032114 EQV 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 ---------- *032115 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 *032116 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032120 JUMPA 0,032121 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032121 ---------- *032121 MOVE 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *032122 ADD 0,035357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000004 000000 ---------- *032123 EQV 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 *032124 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032125 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032127 JUMPA 0,032130 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032130 ---------- *032130 MOVE 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *032131 ADD 0,035360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 *032132 EQV 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 ---------- *032133 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032134 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032136 JUMPA 0,032137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032137 ---------- *032137 MOVE 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 *032140 ADD 0,035361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000020 000000 ---------- *032141 EQV 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 ---------- *032142 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032143 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032145 JUMPA 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032146 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 *032146 MOVE 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *032147 ADD 0,035362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000040 000000 ---------- *032150 EQV 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 ---------- *032151 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032152 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 *032154 JUMPA 0,032155 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032155 ---------- *032155 MOVE 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *032156 ADD 0,035363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000100 000000 ---------- *032157 EQV 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 ---------- *032160 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 *032161 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032163 JUMPA 0,032164 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032164 ---------- *032164 MOVE 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *032165 ADD 0,035364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000200 000000 ---------- *032166 EQV 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 *032167 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032170 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032172 JUMPA 0,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032173 ---------- *032173 MOVE 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *032174 ADD 0,035365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 *032175 EQV 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 ---------- *032176 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032177 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032201 JUMPA 0,032202 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032202 ---------- *032202 MOVE 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 *032203 ADD 0,035366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 001000 000000 ---------- *032204 EQV 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 ---------- *032205 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032206 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032210 JUMPA 0,032211 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032211 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 *032211 MOVE 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *032212 ADD 0,035367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 002000 000000 ---------- *032213 EQV 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 ---------- *032214 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032215 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 *032217 JUMPA 0,032220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032220 ---------- *032220 MOVE 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *032221 ADD 0,035370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 004000 000000 ---------- *032222 EQV 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 ---------- *032223 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 *032224 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032226 JUMPA 0,032227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032227 ---------- *032227 MOVE 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *032230 ADD 0,035371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 010000 000000 ---------- *032231 EQV 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 *032232 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032233 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032235 JUMPA 0,032236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032236 ---------- *032236 MOVE 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *032237 ADD 0,035372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 *032240 EQV 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 ---------- *032241 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032242 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032244 JUMPA 0,032245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032245 ---------- *032245 MOVE 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 *032246 ADD 0,035373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 040000 000000 ---------- *032247 EQV 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 ---------- *032250 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032251 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032253 JUMPA 0,032254 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032254 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 *032254 MOVE 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *032255 ADD 0,035374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 100000 000000 ---------- *032256 EQV 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 ---------- *032257 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032260 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 *032262 JUMPA 0,032263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032263 ---------- *032263 MOVE 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *032264 ADD 0,035375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 200000 000000 ---------- *032265 EQV 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 ---------- *032266 EQV 0,035330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 *032267 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032271 JUMPA 0,032272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032272 ---------- *032272 MOVE 0,035376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *032273 ADD 0,035376 FLAGS - INT/FINAL 000000 500200 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 400000 000000 ---------- *032274 EQV 0,035377 FLAGS - INT/FINAL 500200 500200 INITIAL C(AC)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 *032274 JFCL 0,000000 FLAGS - INT/FINAL 500200 500000 INITIAL E= 000000 000000 ---------- *032274 EQV 0,035377 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 ---------- *032275 EQV 0,035330 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032276 SKIPE 0,000000 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032300 JUMPA 0,032301 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 000000 000000 E= 000000 032301 ---------- *032301 MOVE 0,035377 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 *032302 ADD 0,035377 FLAGS - INT/FINAL 500000 700200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *032303 SKIPE 0,000000 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032303 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- *032303 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032305 JUMPA 0,032306 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032306 ---------- *032306 MOVE 0,035400 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 600000 000000 FINAL C(AC)= 600000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 *032307 ADD 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 600000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 ---------- *032310 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032312 JUMPA 0,032313 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032313 ---------- *032313 MOVE 0,035401 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 700000 000000 FINAL C(AC)= 700000 000000 ---------- *032314 ADD 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 700000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 *032315 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032317 JUMPA 0,032320 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032320 ---------- *032320 MOVE 0,035402 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 740000 000000 FINAL C(AC)= 740000 000000 ---------- *032321 ADD 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 740000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 ---------- *032322 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 *032324 JUMPA 0,032325 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032325 ---------- *032325 MOVE 0,035403 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 760000 000000 FINAL C(AC)= 760000 000000 ---------- *032326 ADD 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 760000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 ---------- *032327 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032331 JUMPA 0,032332 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032332 ---------- *032332 MOVE 0,035404 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 770000 000000 FINAL C(AC)= 770000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 *032333 ADD 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 770000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 ---------- *032334 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032336 JUMPA 0,032337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032337 ---------- *032337 MOVE 0,035405 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 774000 000000 FINAL C(AC)= 774000 000000 ---------- *032340 ADD 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 774000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 *032341 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032343 JUMPA 0,032344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032344 ---------- *032344 MOVE 0,035406 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 776000 000000 FINAL C(AC)= 776000 000000 ---------- *032345 ADD 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 000000 ---------- *032346 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 *032350 JUMPA 0,032351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032351 ---------- *032351 MOVE 0,035407 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777000 000000 FINAL C(AC)= 777000 000000 ---------- *032352 ADD 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 ---------- *032353 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032355 JUMPA 0,032356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032356 ---------- *032356 MOVE 0,035410 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777400 000000 FINAL C(AC)= 777400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 *032357 ADD 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777400 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 ---------- *032360 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032362 JUMPA 0,032363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032363 ---------- *032363 MOVE 0,035411 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777600 000000 FINAL C(AC)= 777600 000000 ---------- *032364 ADD 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777600 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 *032365 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032367 JUMPA 0,032370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032370 ---------- *032370 MOVE 0,035412 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777700 000000 FINAL C(AC)= 777700 000000 ---------- *032371 ADD 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777700 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 ---------- *032372 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 *032374 JUMPA 0,032375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032375 ---------- *032375 MOVE 0,035413 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777740 000000 FINAL C(AC)= 777740 000000 ---------- *032376 ADD 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777740 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000000 ---------- *032377 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032401 JUMPA 0,032402 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032402 ---------- *032402 MOVE 0,035414 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777760 000000 FINAL C(AC)= 777760 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 *032403 ADD 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777760 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 ---------- *032404 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032406 JUMPA 0,032407 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032407 ---------- *032407 MOVE 0,035415 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777770 000000 FINAL C(AC)= 777770 000000 ---------- *032410 ADD 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777770 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 *032411 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032413 JUMPA 0,032414 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032414 ---------- *032414 MOVE 0,035416 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777774 000000 FINAL C(AC)= 777774 000000 ---------- *032415 ADD 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777774 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 ---------- *032416 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 *032420 JUMPA 0,032421 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032421 ---------- *032421 MOVE 0,035417 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777776 000000 FINAL C(AC)= 777776 000000 ---------- *032422 ADD 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 ---------- *032423 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032425 JUMPA 0,032426 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032426 ---------- *032426 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 *032427 ADD 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 ---------- *032430 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032432 JUMPA 0,032433 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032433 ---------- *032433 MOVE 0,035421 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 400000 FINAL C(AC)= 777777 400000 ---------- *032434 ADD 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 *032435 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032437 JUMPA 0,032440 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032440 ---------- *032440 MOVE 0,035422 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 600000 FINAL C(AC)= 777777 600000 ---------- *032441 ADD 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 600000 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 ---------- *032442 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 *032444 JUMPA 0,032445 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032445 ---------- *032445 MOVE 0,035423 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 700000 FINAL C(AC)= 777777 700000 ---------- *032446 ADD 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 700000 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 ---------- *032447 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032451 JUMPA 0,032452 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032452 ---------- *032452 MOVE 0,035424 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 740000 FINAL C(AC)= 777777 740000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 *032453 ADD 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 740000 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 ---------- *032454 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032456 JUMPA 0,032457 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032457 ---------- *032457 MOVE 0,035425 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 760000 FINAL C(AC)= 777777 760000 ---------- *032460 ADD 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 760000 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 *032461 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032463 JUMPA 0,032464 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032464 ---------- *032464 MOVE 0,035426 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 770000 FINAL C(AC)= 777777 770000 ---------- *032465 ADD 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 770000 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 ---------- *032466 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 *032470 JUMPA 0,032471 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032471 ---------- *032471 MOVE 0,035427 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 774000 FINAL C(AC)= 777777 774000 ---------- *032472 ADD 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 774000 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 ---------- *032473 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032475 JUMPA 0,032476 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032476 ---------- *032476 MOVE 0,035430 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 776000 FINAL C(AC)= 777777 776000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 *032477 ADD 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776000 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 ---------- *032500 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032502 JUMPA 0,032503 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032503 ---------- *032503 MOVE 0,035431 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777000 FINAL C(AC)= 777777 777000 ---------- *032504 ADD 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777000 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 *032505 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032507 JUMPA 0,032510 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032510 ---------- *032510 MOVE 0,035432 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777400 FINAL C(AC)= 777777 777400 ---------- *032511 ADD 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777400 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 ---------- *032512 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 *032514 JUMPA 0,032515 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032515 ---------- *032515 MOVE 0,035433 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777600 FINAL C(AC)= 777777 777600 ---------- *032516 ADD 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777600 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 ---------- *032517 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032521 JUMPA 0,032522 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032522 ---------- *032522 MOVE 0,035434 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777700 FINAL C(AC)= 777777 777700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 *032523 ADD 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777700 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 ---------- *032524 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032526 JUMPA 0,032527 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032527 ---------- *032527 MOVE 0,035435 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777740 FINAL C(AC)= 777777 777740 ---------- *032530 ADD 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777740 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 *032531 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032533 JUMPA 0,032534 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032534 ---------- *032534 MOVE 0,035436 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777760 FINAL C(AC)= 777777 777760 ---------- *032535 ADD 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777760 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 ---------- *032536 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 *032540 JUMPA 0,032541 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032541 ---------- *032541 MOVE 0,035437 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777770 FINAL C(AC)= 777777 777770 ---------- *032542 ADD 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777770 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 ---------- *032543 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032545 JUMPA 0,032546 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032546 ---------- *032546 MOVE 0,035440 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777774 FINAL C(AC)= 777777 777774 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 *032547 ADD 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777774 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 ---------- *032550 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032552 JUMPA 0,032553 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032553 ---------- *032553 MOVE 0,035441 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *032554 ADD 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 *032555 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032557 JUMPA 0,032560 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032560 ---------- *032560 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032561 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032562 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 *032564 JUMPA 0,032565 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032565 ---------- *032565 MOVE 0,035443 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 777777 777773 ---------- *032566 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777773 C(E)= 000000 000001 FINAL C(AC)= 777777 777774 ---------- *032567 EQV 0,035440 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777774 C(E)= 777777 777774 FINAL C(AC)= 777777 777777 ---------- *032570 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 *032571 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032573 JUMPA 0,032574 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032574 ---------- *032574 MOVE 0,035444 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 777777 777677 ---------- *032575 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777677 C(E)= 000000 000001 FINAL C(AC)= 777777 777700 ---------- *032576 EQV 0,035434 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777700 C(E)= 777777 777700 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 *032577 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032600 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032602 JUMPA 0,032603 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032603 ---------- *032603 MOVE 0,035445 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 777777 775777 ---------- *032604 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 775777 C(E)= 000000 000001 FINAL C(AC)= 777777 776000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 *032605 EQV 0,035430 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776000 C(E)= 777777 776000 FINAL C(AC)= 777777 777777 ---------- *032606 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032607 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032611 JUMPA 0,032612 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032612 ---------- *032612 MOVE 0,035446 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 777777 737777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 *032613 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 737777 C(E)= 000000 000001 FINAL C(AC)= 777777 740000 ---------- *032614 EQV 0,035424 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 740000 C(E)= 777777 740000 FINAL C(AC)= 777777 777777 ---------- *032615 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032616 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032620 JUMPA 0,032621 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032621 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 *032621 MOVE 0,035447 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 777777 377777 ---------- *032622 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 377777 C(E)= 000000 000001 FINAL C(AC)= 777777 400000 ---------- *032623 EQV 0,035421 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 400000 C(E)= 777777 400000 FINAL C(AC)= 777777 777777 ---------- *032624 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032625 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 *032627 JUMPA 0,032630 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032630 ---------- *032630 MOVE 0,035450 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 777767 777777 ---------- *032631 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777777 C(E)= 000000 000001 FINAL C(AC)= 777770 000000 ---------- *032632 EQV 0,035415 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777770 000000 C(E)= 777770 000000 FINAL C(AC)= 777777 777777 ---------- *032633 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 *032634 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032636 JUMPA 0,032637 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032637 ---------- *032637 MOVE 0,035451 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 777577 777777 ---------- *032640 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777777 C(E)= 000000 000001 FINAL C(AC)= 777600 000000 ---------- *032641 EQV 0,035411 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777600 000000 C(E)= 777600 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 *032642 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032643 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032645 JUMPA 0,032646 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032646 ---------- *032646 MOVE 0,035452 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 773777 777777 ---------- *032647 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 777777 C(E)= 000000 000001 FINAL C(AC)= 774000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 *032650 EQV 0,035405 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 774000 000000 C(E)= 774000 000000 FINAL C(AC)= 777777 777777 ---------- *032651 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032652 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032654 JUMPA 0,032655 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032655 ---------- *032655 MOVE 0,035453 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 677777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0462 *032656 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 777777 C(E)= 000000 000001 FINAL C(AC)= 700000 000000 ---------- *032657 EQV 0,035401 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 700000 000000 C(E)= 700000 000000 FINAL C(AC)= 777777 777777 ---------- *032660 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032661 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032663 JUMPA 0,032664 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032664 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0463 *032664 MOVE 0,035454 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 577777 777777 ---------- *032665 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 777777 C(E)= 000000 000001 FINAL C(AC)= 600000 000000 ---------- *032666 EQV 0,035400 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 600000 000000 C(E)= 600000 000000 FINAL C(AC)= 777777 777777 ---------- *032667 EQV 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032670 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0464 *032672 JUMPA 0,032673 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032673 ---------- *032673 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032674 ADD 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032675 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032677 JUMPA 0,032700 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032700 ---------- *032700 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0465 *032701 SUB 0,035455 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 777777 000001 ---------- *032702 SKIPL 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000001 C(E)= 777777 000001 FINAL C(AC)= 777777 000001 ---------- *032704 JUMPA 0,032705 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000001 E= 000000 032705 ---------- *032705 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032706 SUB 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0466 *032707 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032711 JUMPA 0,032712 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032712 ---------- *032712 MOVE 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032713 SUB 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032714 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0467 *032716 JUMPA 0,032717 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032717 ---------- *032717 MOVE 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032720 SUB 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 ---------- *032721 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032723 JUMPA 0,032724 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032724 ---------- *032724 MOVE 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0468 *032725 SUB 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 ---------- *032726 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032730 JUMPA 0,032731 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032731 ---------- *032731 MOVE 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032732 SUB 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0469 *032733 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032735 JUMPA 0,032736 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032736 ---------- *032736 MOVE 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032737 SUB 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 ---------- *032740 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0470 *032742 JUMPA 0,032743 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032743 ---------- *032743 MOVE 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032744 SUB 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 ---------- *032745 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032747 JUMPA 0,032750 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032750 ---------- *032750 MOVE 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0471 *032751 SUB 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 ---------- *032752 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032754 JUMPA 0,032755 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032755 ---------- *032755 MOVE 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032756 SUB 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0472 *032757 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032761 JUMPA 0,032762 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032762 ---------- *032762 MOVE 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032763 SUB 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 ---------- *032764 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0473 *032766 JUMPA 0,032767 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032767 ---------- *032767 MOVE 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032770 SUB 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 ---------- *032771 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032773 JUMPA 0,032774 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 032774 ---------- *032774 MOVE 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0474 *032775 SUB 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 ---------- *032776 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033000 JUMPA 0,033001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033001 ---------- *033001 MOVE 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033002 SUB 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0475 *033003 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033005 JUMPA 0,033006 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033006 ---------- *033006 MOVE 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033007 SUB 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 ---------- *033010 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0476 *033012 JUMPA 0,033013 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033013 ---------- *033013 MOVE 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033014 SUB 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 ---------- *033015 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033017 JUMPA 0,033020 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033020 ---------- *033020 MOVE 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0477 *033021 SUB 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 ---------- *033022 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033024 JUMPA 0,033025 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033025 ---------- *033025 MOVE 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033026 SUB 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0478 *033027 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033031 JUMPA 0,033032 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033032 ---------- *033032 MOVE 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033033 SUB 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 ---------- *033034 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0479 *033036 JUMPA 0,033037 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033037 ---------- *033037 MOVE 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033040 SUB 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 ---------- *033041 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033043 JUMPA 0,033044 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033044 ---------- *033044 MOVE 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0480 *033045 SUB 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 ---------- *033046 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033050 JUMPA 0,033051 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033051 ---------- *033051 MOVE 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *033052 SUB 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0481 *033053 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033055 JUMPA 0,033056 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033056 ---------- *033056 MOVE 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033057 SUB 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 ---------- *033060 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0482 *033062 JUMPA 0,033063 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033063 ---------- *033063 MOVE 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033064 SUB 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 ---------- *033065 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033067 JUMPA 0,033070 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033070 ---------- *033070 MOVE 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0483 *033071 SUB 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 ---------- *033072 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033074 JUMPA 0,033075 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033075 ---------- *033075 MOVE 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033076 SUB 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0484 *033077 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033101 JUMPA 0,033102 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033102 ---------- *033102 MOVE 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033103 SUB 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 ---------- *033104 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0485 *033106 JUMPA 0,033107 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033107 ---------- *033107 MOVE 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *033110 SUB 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 ---------- *033111 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033113 JUMPA 0,033114 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033114 ---------- *033114 MOVE 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0486 *033115 SUB 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 ---------- *033116 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033120 JUMPA 0,033121 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033121 ---------- *033121 MOVE 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033122 SUB 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0487 *033123 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033125 JUMPA 0,033126 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033126 ---------- *033126 MOVE 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *033127 SUB 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 000000 ---------- *033130 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0488 *033132 JUMPA 0,033133 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033133 ---------- *033133 MOVE 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033134 SUB 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 ---------- *033135 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033137 JUMPA 0,033140 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033140 ---------- *033140 MOVE 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0489 *033141 SUB 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 ---------- *033142 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033144 JUMPA 0,033145 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033145 ---------- *033145 MOVE 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *033146 SUB 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0490 *033147 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033151 JUMPA 0,033152 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033152 ---------- *033152 MOVE 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033153 SUB 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 ---------- *033154 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0491 *033156 JUMPA 0,033157 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033157 ---------- *033157 MOVE 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033160 SUB 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 ---------- *033161 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033163 JUMPA 0,033164 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033164 ---------- *033164 MOVE 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0492 *033165 SUB 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 ---------- *033166 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033170 JUMPA 0,033171 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033171 ---------- *033171 MOVE 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033172 SUB 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0493 *033173 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033175 JUMPA 0,033176 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033176 ---------- *033176 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033177 SUB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033200 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0494 *033202 JUMPA 0,033203 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033203 ---------- *033203 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033204 CAMA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033206 JUMPA 0,033207 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033207 ---------- *033207 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033210 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0495 *033212 JUMPA 0,033213 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033213 ---------- *033213 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033214 CAME 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033216 JUMPA 0,033217 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033217 ---------- *033217 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033220 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0496 *033221 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033223 JUMPA 0,033224 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033224 ---------- *033224 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033225 CAML 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *033227 JUMPA 0,033230 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 033230 ---------- *033230 MOVE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0497 *033231 CAML 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *033232 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033234 JUMPA 0,033235 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033235 ---------- *033235 MOVE 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033236 CAML 0,035456 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 377777 777777 ---------- *033240 JUMPA 0,033241 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 033241 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0498 *033241 MOVE 0,035456 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033242 CAML 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 400000 000000 ---------- *033243 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033245 JUMPA 0,033246 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 E= 000000 033246 ---------- *033246 MOVE 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033247 CAML 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0499 *033251 JUMPA 0,033252 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 033252 ---------- *033252 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *033253 CAML 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *033254 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033256 JUMPA 0,033257 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033257 ---------- *033257 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0500 *033260 CAML 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033261 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033263 JUMPA 0,033264 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033264 ---------- *033264 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033265 CAML 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 ---------- *033266 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0501 *033270 JUMPA 0,033271 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033271 ---------- *033271 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033272 CAM 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *033273 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033275 JUMPA 0,033276 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 033276 ---------- *033276 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0502 *033277 CAMGE 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *033300 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033302 JUMPA 0,033303 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 033303 ---------- *033303 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033304 CAMGE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *033306 JUMPA 0,033307 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033307 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0503 *033307 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033310 CAMN 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *033312 JUMPA 0,033313 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033313 ---------- *033313 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033314 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033315 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0504 *033317 JUMPA 0,033320 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033320 ---------- *033320 MOVE 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033321 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033322 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033324 JUMPA 0,033325 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 033325 ---------- *033325 MOVE 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0505 *033326 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 ---------- *033327 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 ---------- *033331 JUMPA 0,033332 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 E= 000000 033332 ---------- *033332 MOVE 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033333 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 ---------- *033334 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0506 *033336 JUMPA 0,033337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 E= 000000 033337 ---------- *033337 MOVE 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033340 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 ---------- *033341 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 ---------- *033343 JUMPA 0,033344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 E= 000000 033344 ---------- *033344 MOVE 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0507 *033345 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 ---------- *033346 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 ---------- *033350 JUMPA 0,033351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 E= 000000 033351 ---------- *033351 MOVE 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033352 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 ---------- *033353 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 221 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0508 *033355 JUMPA 0,033356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 E= 000000 033356 ---------- *033356 MOVE 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033357 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 ---------- *033360 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 ---------- *033362 JUMPA 0,033363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 E= 000000 033363 ---------- *033363 MOVE 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 222 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0509 *033364 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 ---------- *033365 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 ---------- *033367 JUMPA 0,033370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 E= 000000 033370 ---------- *033370 MOVE 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033371 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 ---------- *033372 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 223 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0510 *033374 JUMPA 0,033375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 E= 000000 033375 ---------- *033375 MOVE 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033376 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 ---------- *033377 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 ---------- *033401 JUMPA 0,033402 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 E= 000000 033402 ---------- *033402 MOVE 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 224 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0511 *033403 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 ---------- *033404 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 ---------- *033406 JUMPA 0,033407 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 E= 000000 033407 ---------- *033407 MOVE 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033410 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 ---------- *033411 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 225 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0512 *033413 JUMPA 0,033414 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 E= 000000 033414 ---------- *033414 MOVE 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033415 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 ---------- *033416 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 ---------- *033420 JUMPA 0,033421 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 E= 000000 033421 ---------- *033421 MOVE 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 226 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0513 *033422 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 ---------- *033423 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 ---------- *033425 JUMPA 0,033426 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 E= 000000 033426 ---------- *033426 MOVE 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033427 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 ---------- *033430 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 227 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0514 *033432 JUMPA 0,033433 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 E= 000000 033433 ---------- *033433 MOVE 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033434 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 ---------- *033435 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 ---------- *033437 JUMPA 0,033440 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 E= 000000 033440 ---------- *033440 MOVE 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 228 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0515 *033441 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 ---------- *033442 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 ---------- *033444 JUMPA 0,033445 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 E= 000000 033445 ---------- *033445 MOVE 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033446 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 ---------- *033447 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 229 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0516 *033451 JUMPA 0,033452 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 E= 000000 033452 ---------- *033452 MOVE 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *033453 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *033454 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *033456 JUMPA 0,033457 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 E= 000000 033457 ---------- *033457 MOVE 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 230 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0517 *033460 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 ---------- *033461 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 ---------- *033463 JUMPA 0,033464 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 E= 000000 033464 ---------- *033464 MOVE 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *033465 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 ---------- *033466 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 231 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0518 *033470 JUMPA 0,033471 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 E= 000000 033471 ---------- *033471 MOVE 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *033472 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 ---------- *033473 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 ---------- *033475 JUMPA 0,033476 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 E= 000000 033476 ---------- *033476 MOVE 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 232 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0519 *033477 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 ---------- *033500 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 ---------- *033502 JUMPA 0,033503 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 E= 000000 033503 ---------- *033503 MOVE 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *033504 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 ---------- *033505 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 233 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0520 *033507 JUMPA 0,033510 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 E= 000000 033510 ---------- *033510 MOVE 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *033511 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 ---------- *033512 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 ---------- *033514 JUMPA 0,033515 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 E= 000000 033515 ---------- *033515 MOVE 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 234 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0521 *033516 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 ---------- *033517 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 ---------- *033521 JUMPA 0,033522 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 E= 000000 033522 ---------- *033522 MOVE 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *033523 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 ---------- *033524 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 235 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0522 *033526 JUMPA 0,033527 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 E= 000000 033527 ---------- *033527 MOVE 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *033530 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 ---------- *033531 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 ---------- *033533 JUMPA 0,033534 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 E= 000000 033534 ---------- *033534 MOVE 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 236 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0523 *033535 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 ---------- *033536 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 ---------- *033540 JUMPA 0,033541 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 E= 000000 033541 ---------- *033541 MOVE 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *033542 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 ---------- *033543 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 237 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0524 *033545 JUMPA 0,033546 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 E= 000000 033546 ---------- *033546 MOVE 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *033547 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 ---------- *033550 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 ---------- *033552 JUMPA 0,033553 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 E= 000000 033553 ---------- *033553 MOVE 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 238 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0525 *033554 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 ---------- *033555 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 ---------- *033557 JUMPA 0,033560 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 E= 000000 033560 ---------- *033560 MOVE 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *033561 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 ---------- *033562 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 239 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0526 *033564 JUMPA 0,033565 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 E= 000000 033565 ---------- *033565 MOVE 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *033566 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 ---------- *033567 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 ---------- *033571 JUMPA 0,033572 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 E= 000000 033572 ---------- *033572 MOVE 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 240 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0527 *033573 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 ---------- *033574 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 ---------- *033576 JUMPA 0,033577 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 E= 000000 033577 ---------- *033577 MOVE 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033600 CAMN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- *033601 CAME 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 241 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0528 *033603 JUMPA 0,033604 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 033604 ---------- *033604 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *033605 CAMN 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 ---------- *033607 JUMPA 0,033610 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033610 ---------- *033610 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033611 CAMN 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 242 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0529 *033613 JUMPA 0,033614 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033614 ---------- *033614 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033615 CAMN 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000004 ---------- *033617 JUMPA 0,033620 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033620 ---------- *033620 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033621 CAMN 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 243 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0530 *033623 JUMPA 0,033624 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033624 ---------- *033624 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033625 CAMN 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000020 ---------- *033627 JUMPA 0,033630 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033630 ---------- *033630 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033631 CAMN 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 244 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0531 *033633 JUMPA 0,033634 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033634 ---------- *033634 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033635 CAMN 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000100 ---------- *033637 JUMPA 0,033640 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033640 ---------- *033640 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033641 CAMN 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 245 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0532 *033643 JUMPA 0,033644 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033644 ---------- *033644 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033645 CAMN 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000400 ---------- *033647 JUMPA 0,033650 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033650 ---------- *033650 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033651 CAMN 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 246 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0533 *033653 JUMPA 0,033654 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033654 ---------- *033654 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033655 CAMN 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 002000 ---------- *033657 JUMPA 0,033660 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033660 ---------- *033660 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033661 CAMN 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 247 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0534 *033663 JUMPA 0,033664 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033664 ---------- *033664 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033665 CAMN 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 010000 ---------- *033667 JUMPA 0,033670 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033670 ---------- *033670 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033671 CAMN 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 248 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0535 *033673 JUMPA 0,033674 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033674 ---------- *033674 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033675 CAMN 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 040000 ---------- *033677 JUMPA 0,033700 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033700 ---------- *033700 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033701 CAMN 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 249 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0536 *033703 JUMPA 0,033704 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033704 ---------- *033704 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033705 CAMN 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 200000 ---------- *033707 JUMPA 0,033710 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033710 ---------- *033710 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033711 CAMN 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 250 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0537 *033713 JUMPA 0,033714 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033714 ---------- *033714 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033715 CAMN 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000000 ---------- *033717 JUMPA 0,033720 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033720 ---------- *033720 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033721 CAMN 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 251 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0538 *033723 JUMPA 0,033724 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033724 ---------- *033724 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033725 CAMN 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000004 000000 ---------- *033727 JUMPA 0,033730 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033730 ---------- *033730 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033731 CAMN 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 252 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0539 *033733 JUMPA 0,033734 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033734 ---------- *033734 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033735 CAMN 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000020 000000 ---------- *033737 JUMPA 0,033740 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033740 ---------- *033740 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033741 CAMN 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 253 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0540 *033743 JUMPA 0,033744 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033744 ---------- *033744 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033745 CAMN 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000100 000000 ---------- *033747 JUMPA 0,033750 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033750 ---------- *033750 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033751 CAMN 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 254 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0541 *033753 JUMPA 0,033754 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033754 ---------- *033754 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033755 CAMN 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000400 000000 ---------- *033757 JUMPA 0,033760 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033760 ---------- *033760 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033761 CAMN 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 255 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0542 *033763 JUMPA 0,033764 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033764 ---------- *033764 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033765 CAMN 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 002000 000000 ---------- *033767 JUMPA 0,033770 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033770 ---------- *033770 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033771 CAMN 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 256 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0543 *033773 JUMPA 0,033774 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033774 ---------- *033774 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033775 CAMN 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 010000 000000 ---------- *033777 JUMPA 0,034000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034000 ---------- *034000 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034001 CAMN 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 257 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0544 *034003 JUMPA 0,034004 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034004 ---------- *034004 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034005 CAMN 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 040000 000000 ---------- *034007 JUMPA 0,034010 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034010 ---------- *034010 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034011 CAMN 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 258 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0545 *034013 JUMPA 0,034014 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034014 ---------- *034014 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034015 CAMN 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 200000 000000 ---------- *034017 JUMPA 0,034020 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034020 ---------- *034020 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034021 CAMN 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 259 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0546 *034023 JUMPA 0,034024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034024 ---------- *034024 MOVE 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034025 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 ---------- *034027 JUMPA 0,034030 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 034030 ---------- *034030 MOVE 0,035335 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034031 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 260 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0547 *034033 JUMPA 0,034034 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 E= 000000 034034 ---------- *034034 MOVE 0,035336 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *034035 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 ---------- *034037 JUMPA 0,034040 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 E= 000000 034040 ---------- *034040 MOVE 0,035337 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034041 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 261 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0548 *034043 JUMPA 0,034044 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 E= 000000 034044 ---------- *034044 MOVE 0,035340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *034045 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 ---------- *034047 JUMPA 0,034050 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 E= 000000 034050 ---------- *034050 MOVE 0,035341 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *034051 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 262 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0549 *034053 JUMPA 0,034054 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 E= 000000 034054 ---------- *034054 MOVE 0,035342 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *034055 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 ---------- *034057 JUMPA 0,034060 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 E= 000000 034060 ---------- *034060 MOVE 0,035343 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *034061 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 263 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0550 *034063 JUMPA 0,034064 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 E= 000000 034064 ---------- *034064 MOVE 0,035344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *034065 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 ---------- *034067 JUMPA 0,034070 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 E= 000000 034070 ---------- *034070 MOVE 0,035345 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000400 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *034071 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 264 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0551 *034073 JUMPA 0,034074 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 E= 000000 034074 ---------- *034074 MOVE 0,035346 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 001000 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *034075 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 ---------- *034077 JUMPA 0,034100 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 E= 000000 034100 ---------- *034100 MOVE 0,035347 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 002000 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *034101 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 265 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0552 *034103 JUMPA 0,034104 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 E= 000000 034104 ---------- *034104 MOVE 0,035350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 004000 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *034105 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 ---------- *034107 JUMPA 0,034110 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 E= 000000 034110 ---------- *034110 MOVE 0,035351 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 010000 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *034111 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 266 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0553 *034113 JUMPA 0,034114 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 E= 000000 034114 ---------- *034114 MOVE 0,035352 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 020000 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *034115 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 ---------- *034117 JUMPA 0,034120 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 E= 000000 034120 ---------- *034120 MOVE 0,035353 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 040000 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *034121 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 267 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0554 *034123 JUMPA 0,034124 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 E= 000000 034124 ---------- *034124 MOVE 0,035354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 100000 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *034125 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 ---------- *034127 JUMPA 0,034130 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 E= 000000 034130 ---------- *034130 MOVE 0,035355 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 200000 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *034131 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 268 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0555 *034133 JUMPA 0,034134 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 E= 000000 034134 ---------- *034134 MOVE 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 400000 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *034135 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 ---------- *034137 JUMPA 0,034140 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 E= 000000 034140 ---------- *034140 MOVE 0,035357 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *034141 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 269 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0556 *034143 JUMPA 0,034144 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 E= 000000 034144 ---------- *034144 MOVE 0,035360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000000 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *034145 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 ---------- *034147 JUMPA 0,034150 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 E= 000000 034150 ---------- *034150 MOVE 0,035361 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000000 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *034151 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 270 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0557 *034153 JUMPA 0,034154 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 E= 000000 034154 ---------- *034154 MOVE 0,035362 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000000 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *034155 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 ---------- *034157 JUMPA 0,034160 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 E= 000000 034160 ---------- *034160 MOVE 0,035363 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000000 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *034161 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 271 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0558 *034163 JUMPA 0,034164 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 E= 000000 034164 ---------- *034164 MOVE 0,035364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000000 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *034165 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 ---------- *034167 JUMPA 0,034170 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 E= 000000 034170 ---------- *034170 MOVE 0,035365 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000000 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *034171 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 272 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0559 *034173 JUMPA 0,034174 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 E= 000000 034174 ---------- *034174 MOVE 0,035366 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000000 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *034175 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 ---------- *034177 JUMPA 0,034200 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 E= 000000 034200 ---------- *034200 MOVE 0,035367 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000000 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *034201 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 273 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0560 *034203 JUMPA 0,034204 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 E= 000000 034204 ---------- *034204 MOVE 0,035370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 000000 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *034205 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 ---------- *034207 JUMPA 0,034210 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 E= 000000 034210 ---------- *034210 MOVE 0,035371 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 000000 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *034211 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 274 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0561 *034213 JUMPA 0,034214 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 E= 000000 034214 ---------- *034214 MOVE 0,035372 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 000000 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *034215 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 ---------- *034217 JUMPA 0,034220 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 E= 000000 034220 ---------- *034220 MOVE 0,035373 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 000000 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *034221 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 275 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0562 *034223 JUMPA 0,034224 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 E= 000000 034224 ---------- *034224 MOVE 0,035374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 000000 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *034225 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 ---------- *034227 JUMPA 0,034230 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 E= 000000 034230 ---------- *034230 MOVE 0,035375 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 000000 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *034231 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 276 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0563 *034233 JUMPA 0,034234 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 E= 000000 034234 ---------- *034234 MOVE 0,035376 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *034235 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 ---------- *034237 JUMPA 0,034240 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 E= 000000 034240 ---------- *034240 MOVE 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *034241 CAMN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 277 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0564 *034243 JUMPA 0,034244 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 034244 ---------- *034244 MOVS 0,035457 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *034245 CAME 0,035457 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *034247 JUMPA 0,034250 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000001 E= 000000 034250 ---------- *034250 MOVS 0,035460 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- *034251 CAME 0,035460 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000002 C(E)= 000002 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 278 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0565 *034253 JUMPA 0,034254 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000002 E= 000000 034254 ---------- *034254 MOVS 0,035461 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 000002 C(E)= 000004 000004 FINAL C(AC)= 000004 000004 ---------- *034255 CAME 0,035461 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000004 C(E)= 000004 000004 ---------- *034257 JUMPA 0,034260 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000004 E= 000000 034260 ---------- *034260 MOVS 0,035462 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 000004 C(E)= 000010 000010 FINAL C(AC)= 000010 000010 ---------- *034261 CAME 0,035462 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000010 C(E)= 000010 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 279 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0566 *034263 JUMPA 0,034264 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000010 E= 000000 034264 ---------- *034264 MOVS 0,035463 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 000010 C(E)= 000020 000020 FINAL C(AC)= 000020 000020 ---------- *034265 CAME 0,035463 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000020 C(E)= 000020 000020 ---------- *034267 JUMPA 0,034270 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000020 E= 000000 034270 ---------- *034270 MOVS 0,035464 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 000020 C(E)= 000040 000040 FINAL C(AC)= 000040 000040 ---------- *034271 CAME 0,035464 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000040 C(E)= 000040 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 280 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0567 *034273 JUMPA 0,034274 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000040 E= 000000 034274 ---------- *034274 MOVS 0,035465 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 000040 C(E)= 000100 000100 FINAL C(AC)= 000100 000100 ---------- *034275 CAME 0,035465 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000100 C(E)= 000100 000100 ---------- *034277 JUMPA 0,034300 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000100 E= 000000 034300 ---------- *034300 MOVS 0,035466 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 000100 C(E)= 000200 000200 FINAL C(AC)= 000200 000200 ---------- *034301 CAME 0,035466 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000200 C(E)= 000200 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 281 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0568 *034303 JUMPA 0,034304 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000200 E= 000000 034304 ---------- *034304 MOVS 0,035467 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 000200 C(E)= 000400 000400 FINAL C(AC)= 000400 000400 ---------- *034305 CAME 0,035467 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000400 C(E)= 000400 000400 ---------- *034307 JUMPA 0,034310 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000400 E= 000000 034310 ---------- *034310 MOVS 0,035470 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 000400 C(E)= 001000 001000 FINAL C(AC)= 001000 001000 ---------- *034311 CAME 0,035470 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 001000 C(E)= 001000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 282 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0569 *034313 JUMPA 0,034314 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 001000 E= 000000 034314 ---------- *034314 MOVS 0,035471 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 001000 C(E)= 002000 002000 FINAL C(AC)= 002000 002000 ---------- *034315 CAME 0,035471 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 002000 C(E)= 002000 002000 ---------- *034317 JUMPA 0,034320 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 002000 E= 000000 034320 ---------- *034320 MOVS 0,035472 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 002000 C(E)= 004000 004000 FINAL C(AC)= 004000 004000 ---------- *034321 CAME 0,035472 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 004000 C(E)= 004000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 283 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0570 *034323 JUMPA 0,034324 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 004000 E= 000000 034324 ---------- *034324 MOVS 0,035473 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 004000 C(E)= 010000 010000 FINAL C(AC)= 010000 010000 ---------- *034325 CAME 0,035473 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 010000 C(E)= 010000 010000 ---------- *034327 JUMPA 0,034330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 010000 E= 000000 034330 ---------- *034330 MOVS 0,035474 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 010000 C(E)= 020000 020000 FINAL C(AC)= 020000 020000 ---------- *034331 CAME 0,035474 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 020000 C(E)= 020000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 284 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0571 *034333 JUMPA 0,034334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 020000 E= 000000 034334 ---------- *034334 MOVS 0,035475 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 020000 C(E)= 040000 040000 FINAL C(AC)= 040000 040000 ---------- *034335 CAME 0,035475 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 040000 C(E)= 040000 040000 ---------- *034337 JUMPA 0,034340 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 040000 E= 000000 034340 ---------- *034340 MOVS 0,035476 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 040000 C(E)= 100000 100000 FINAL C(AC)= 100000 100000 ---------- *034341 CAME 0,035476 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 100000 C(E)= 100000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 285 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0572 *034343 JUMPA 0,034344 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 100000 E= 000000 034344 ---------- *034344 MOVS 0,035477 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 100000 C(E)= 200000 200000 FINAL C(AC)= 200000 200000 ---------- *034345 CAME 0,035477 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 200000 C(E)= 200000 200000 ---------- *034347 JUMPA 0,034350 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 200000 E= 000000 034350 ---------- *034350 MOVS 0,035500 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 200000 C(E)= 400000 400000 FINAL C(AC)= 400000 400000 ---------- *034351 CAME 0,035500 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 400000 C(E)= 400000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 286 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0573 *034353 JUMPA 0,034354 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 400000 E= 000000 034354 ---------- *034354 MOVS 0,035501 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 400000 C(E)= 777776 777776 FINAL C(AC)= 777776 777776 ---------- *034355 CAME 0,035501 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 C(E)= 777776 777776 ---------- *034357 JUMPA 0,034360 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 E= 000000 034360 ---------- *034360 MOVS 0,035502 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 C(E)= 777775 777775 FINAL C(AC)= 777775 777775 ---------- *034361 CAME 0,035502 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777775 C(E)= 777775 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 287 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0574 *034363 JUMPA 0,034364 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777775 E= 000000 034364 ---------- *034364 MOVS 0,035503 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777775 C(E)= 777773 777773 FINAL C(AC)= 777773 777773 ---------- *034365 CAME 0,035503 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777773 C(E)= 777773 777773 ---------- *034367 JUMPA 0,034370 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777773 E= 000000 034370 ---------- *034370 MOVS 0,035504 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777773 C(E)= 777767 777767 FINAL C(AC)= 777767 777767 ---------- *034371 CAME 0,035504 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777767 C(E)= 777767 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 288 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0575 *034373 JUMPA 0,034374 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777767 E= 000000 034374 ---------- *034374 MOVS 0,035505 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777767 C(E)= 777757 777757 FINAL C(AC)= 777757 777757 ---------- *034375 CAME 0,035505 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777757 C(E)= 777757 777757 ---------- *034377 JUMPA 0,034400 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777757 E= 000000 034400 ---------- *034400 MOVS 0,035506 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777757 C(E)= 777737 777737 FINAL C(AC)= 777737 777737 ---------- *034401 CAME 0,035506 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777737 C(E)= 777737 777737 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 289 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0576 *034403 JUMPA 0,034404 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777737 E= 000000 034404 ---------- *034404 MOVS 0,035507 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777737 C(E)= 777677 777677 FINAL C(AC)= 777677 777677 ---------- *034405 CAME 0,035507 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777677 C(E)= 777677 777677 ---------- *034407 JUMPA 0,034410 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777677 E= 000000 034410 ---------- *034410 MOVS 0,035510 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777677 C(E)= 777577 777577 FINAL C(AC)= 777577 777577 ---------- *034411 CAME 0,035510 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777577 C(E)= 777577 777577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 290 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0577 *034413 JUMPA 0,034414 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777577 E= 000000 034414 ---------- *034414 MOVS 0,035511 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777577 C(E)= 777377 777377 FINAL C(AC)= 777377 777377 ---------- *034415 CAME 0,035511 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777377 C(E)= 777377 777377 ---------- *034417 JUMPA 0,034420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777377 E= 000000 034420 ---------- *034420 MOVS 0,035512 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777377 C(E)= 776777 776777 FINAL C(AC)= 776777 776777 ---------- *034421 CAME 0,035512 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 776777 C(E)= 776777 776777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 291 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0578 *034423 JUMPA 0,034424 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 776777 E= 000000 034424 ---------- *034424 MOVS 0,035513 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 776777 C(E)= 775777 775777 FINAL C(AC)= 775777 775777 ---------- *034425 CAME 0,035513 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 775777 C(E)= 775777 775777 ---------- *034427 JUMPA 0,034430 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 775777 E= 000000 034430 ---------- *034430 MOVS 0,035514 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 775777 C(E)= 773777 773777 FINAL C(AC)= 773777 773777 ---------- *034431 CAME 0,035514 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 773777 C(E)= 773777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 292 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0579 *034433 JUMPA 0,034434 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 773777 E= 000000 034434 ---------- *034434 MOVS 0,035515 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 773777 C(E)= 767777 767777 FINAL C(AC)= 767777 767777 ---------- *034435 CAME 0,035515 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 767777 C(E)= 767777 767777 ---------- *034437 JUMPA 0,034440 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 767777 E= 000000 034440 ---------- *034440 MOVS 0,035516 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 767777 C(E)= 757777 757777 FINAL C(AC)= 757777 757777 ---------- *034441 CAME 0,035516 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 757777 C(E)= 757777 757777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 293 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0580 *034443 JUMPA 0,034444 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 757777 E= 000000 034444 ---------- *034444 MOVS 0,035517 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 757777 C(E)= 737777 737777 FINAL C(AC)= 737777 737777 ---------- *034445 CAME 0,035517 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 737777 C(E)= 737777 737777 ---------- *034447 JUMPA 0,034450 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 737777 E= 000000 034450 ---------- *034450 MOVS 0,035520 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 737777 C(E)= 677777 677777 FINAL C(AC)= 677777 677777 ---------- *034451 CAME 0,035520 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 677777 C(E)= 677777 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 294 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0581 *034453 JUMPA 0,034454 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 677777 E= 000000 034454 ---------- *034454 MOVS 0,035521 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 677777 C(E)= 577777 577777 FINAL C(AC)= 577777 577777 ---------- *034455 CAME 0,035521 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 577777 C(E)= 577777 577777 ---------- *034457 JUMPA 0,034460 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 577777 E= 000000 034460 ---------- *034460 MOVS 0,035522 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 577777 C(E)= 377777 377777 FINAL C(AC)= 377777 377777 ---------- *034461 CAME 0,035522 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 377777 C(E)= 377777 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 295 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0582 *034463 JUMPA 0,034464 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 377777 E= 000000 034464 ---------- *034464 MOVS 0,035523 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 377777 C(E)= 000001 777776 FINAL C(AC)= 777776 000001 ---------- *034465 CAME 0,035524 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 000001 C(E)= 777776 000001 ---------- *034467 JUMPA 0,034470 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 000001 E= 000000 034470 ---------- *034470 MOVS 0,035525 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 000001 C(E)= 000002 777775 FINAL C(AC)= 777775 000002 ---------- *034471 CAME 0,035526 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 000002 C(E)= 777775 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 296 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0583 *034473 JUMPA 0,034474 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 000002 E= 000000 034474 ---------- *034474 MOVS 0,035527 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 000002 C(E)= 000004 777773 FINAL C(AC)= 777773 000004 ---------- *034475 CAME 0,035530 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 000004 C(E)= 777773 000004 ---------- *034477 JUMPA 0,034500 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 000004 E= 000000 034500 ---------- *034500 MOVS 0,035531 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 000004 C(E)= 000010 777767 FINAL C(AC)= 777767 000010 ---------- *034501 CAME 0,035532 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 000010 C(E)= 777767 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 297 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0584 *034503 JUMPA 0,034504 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 000010 E= 000000 034504 ---------- *034504 MOVS 0,035533 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 000010 C(E)= 000020 777757 FINAL C(AC)= 777757 000020 ---------- *034505 CAME 0,035534 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 000020 C(E)= 777757 000020 ---------- *034507 JUMPA 0,034510 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 000020 E= 000000 034510 ---------- *034510 MOVS 0,035535 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 000020 C(E)= 000040 777737 FINAL C(AC)= 777737 000040 ---------- *034511 CAME 0,035536 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 000040 C(E)= 777737 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 298 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0585 *034513 JUMPA 0,034514 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 000040 E= 000000 034514 ---------- *034514 MOVS 0,035537 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 000040 C(E)= 000100 777677 FINAL C(AC)= 777677 000100 ---------- *034515 CAME 0,035540 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 000100 C(E)= 777677 000100 ---------- *034517 JUMPA 0,034520 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 000100 E= 000000 034520 ---------- *034520 MOVS 0,035541 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 000100 C(E)= 000200 777577 FINAL C(AC)= 777577 000200 ---------- *034521 CAME 0,035542 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 000200 C(E)= 777577 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 299 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0586 *034523 JUMPA 0,034524 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 000200 E= 000000 034524 ---------- *034524 MOVS 0,035543 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 000200 C(E)= 000400 777377 FINAL C(AC)= 777377 000400 ---------- *034525 CAME 0,035544 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 000400 C(E)= 777377 000400 ---------- *034527 JUMPA 0,034530 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 000400 E= 000000 034530 ---------- *034530 MOVS 0,035545 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 000400 C(E)= 001000 776777 FINAL C(AC)= 776777 001000 ---------- *034531 CAME 0,035546 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 001000 C(E)= 776777 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 300 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0587 *034533 JUMPA 0,034534 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 001000 E= 000000 034534 ---------- *034534 MOVS 0,035547 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 001000 C(E)= 002000 775777 FINAL C(AC)= 775777 002000 ---------- *034535 CAME 0,035550 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 002000 C(E)= 775777 002000 ---------- *034537 JUMPA 0,034540 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 002000 E= 000000 034540 ---------- *034540 MOVS 0,035551 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 002000 C(E)= 004000 773777 FINAL C(AC)= 773777 004000 ---------- *034541 CAME 0,035552 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 004000 C(E)= 773777 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 301 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0588 *034543 JUMPA 0,034544 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 004000 E= 000000 034544 ---------- *034544 MOVS 0,035553 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 004000 C(E)= 010000 767777 FINAL C(AC)= 767777 010000 ---------- *034545 CAME 0,035554 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 010000 C(E)= 767777 010000 ---------- *034547 JUMPA 0,034550 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 010000 E= 000000 034550 ---------- *034550 MOVS 0,035555 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 010000 C(E)= 020000 757777 FINAL C(AC)= 757777 020000 ---------- *034551 CAME 0,035556 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 020000 C(E)= 757777 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 302 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0589 *034553 JUMPA 0,034554 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 020000 E= 000000 034554 ---------- *034554 MOVS 0,035557 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 020000 C(E)= 040000 737777 FINAL C(AC)= 737777 040000 ---------- *034555 CAME 0,035560 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 040000 C(E)= 737777 040000 ---------- *034557 JUMPA 0,034560 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 040000 E= 000000 034560 ---------- *034560 MOVS 0,035561 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 040000 C(E)= 100000 677777 FINAL C(AC)= 677777 100000 ---------- *034561 CAME 0,035562 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 100000 C(E)= 677777 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 303 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0590 *034563 JUMPA 0,034564 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 100000 E= 000000 034564 ---------- *034564 MOVS 0,035563 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 100000 C(E)= 200000 577777 FINAL C(AC)= 577777 200000 ---------- *034565 CAME 0,035564 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 200000 C(E)= 577777 200000 ---------- *034567 JUMPA 0,034570 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 200000 E= 000000 034570 ---------- *034570 MOVS 0,035565 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 200000 C(E)= 400000 377777 FINAL C(AC)= 377777 400000 ---------- *034571 CAME 0,035566 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 400000 C(E)= 377777 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 304 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0591 *034573 JUMPA 0,034574 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 400000 E= 000000 034574 ---------- *034574 MOVS 0,035524 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 400000 C(E)= 777776 000001 FINAL C(AC)= 000001 777776 ---------- *034575 CAME 0,035523 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 777776 C(E)= 000001 777776 ---------- *034577 JUMPA 0,034600 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 777776 E= 000000 034600 ---------- *034600 MOVS 0,035526 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 777776 C(E)= 777775 000002 FINAL C(AC)= 000002 777775 ---------- *034601 CAME 0,035525 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 777775 C(E)= 000002 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 305 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0592 *034603 JUMPA 0,034604 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 777775 E= 000000 034604 ---------- *034604 MOVS 0,035530 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000002 777775 C(E)= 777773 000004 FINAL C(AC)= 000004 777773 ---------- *034605 CAME 0,035527 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 777773 C(E)= 000004 777773 ---------- *034607 JUMPA 0,034610 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 777773 E= 000000 034610 ---------- *034610 MOVS 0,035532 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000004 777773 C(E)= 777767 000010 FINAL C(AC)= 000010 777767 ---------- *034611 CAME 0,035531 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 777767 C(E)= 000010 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 306 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0593 *034613 JUMPA 0,034614 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 777767 E= 000000 034614 ---------- *034614 MOVS 0,035534 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000010 777767 C(E)= 777757 000020 FINAL C(AC)= 000020 777757 ---------- *034615 CAME 0,035533 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 777757 C(E)= 000020 777757 ---------- *034617 JUMPA 0,034620 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 777757 E= 000000 034620 ---------- *034620 MOVS 0,035536 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000020 777757 C(E)= 777737 000040 FINAL C(AC)= 000040 777737 ---------- *034621 CAME 0,035535 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 777737 C(E)= 000040 777737 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 307 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0594 *034623 JUMPA 0,034624 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 777737 E= 000000 034624 ---------- *034624 MOVS 0,035540 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000040 777737 C(E)= 777677 000100 FINAL C(AC)= 000100 777677 ---------- *034625 CAME 0,035537 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 777677 C(E)= 000100 777677 ---------- *034627 JUMPA 0,034630 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 777677 E= 000000 034630 ---------- *034630 MOVS 0,035542 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000100 777677 C(E)= 777577 000200 FINAL C(AC)= 000200 777577 ---------- *034631 CAME 0,035541 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 777577 C(E)= 000200 777577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 308 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0595 *034633 JUMPA 0,034634 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 777577 E= 000000 034634 ---------- *034634 MOVS 0,035544 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000200 777577 C(E)= 777377 000400 FINAL C(AC)= 000400 777377 ---------- *034635 CAME 0,035543 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 777377 C(E)= 000400 777377 ---------- *034637 JUMPA 0,034640 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 777377 E= 000000 034640 ---------- *034640 MOVS 0,035546 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000400 777377 C(E)= 776777 001000 FINAL C(AC)= 001000 776777 ---------- *034641 CAME 0,035545 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 776777 C(E)= 001000 776777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 309 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0596 *034643 JUMPA 0,034644 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 776777 E= 000000 034644 ---------- *034644 MOVS 0,035550 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 001000 776777 C(E)= 775777 002000 FINAL C(AC)= 002000 775777 ---------- *034645 CAME 0,035547 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 775777 C(E)= 002000 775777 ---------- *034647 JUMPA 0,034650 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 775777 E= 000000 034650 ---------- *034650 MOVS 0,035552 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 002000 775777 C(E)= 773777 004000 FINAL C(AC)= 004000 773777 ---------- *034651 CAME 0,035551 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 773777 C(E)= 004000 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 310 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0597 *034653 JUMPA 0,034654 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 773777 E= 000000 034654 ---------- *034654 MOVS 0,035554 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 004000 773777 C(E)= 767777 010000 FINAL C(AC)= 010000 767777 ---------- *034655 CAME 0,035553 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 767777 C(E)= 010000 767777 ---------- *034657 JUMPA 0,034660 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 767777 E= 000000 034660 ---------- *034660 MOVS 0,035556 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 010000 767777 C(E)= 757777 020000 FINAL C(AC)= 020000 757777 ---------- *034661 CAME 0,035555 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 757777 C(E)= 020000 757777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 311 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0598 *034663 JUMPA 0,034664 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 757777 E= 000000 034664 ---------- *034664 MOVS 0,035560 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 020000 757777 C(E)= 737777 040000 FINAL C(AC)= 040000 737777 ---------- *034665 CAME 0,035557 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 737777 C(E)= 040000 737777 ---------- *034667 JUMPA 0,034670 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 737777 E= 000000 034670 ---------- *034670 MOVS 0,035562 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 040000 737777 C(E)= 677777 100000 FINAL C(AC)= 100000 677777 ---------- *034671 CAME 0,035561 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 677777 C(E)= 100000 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 312 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0599 *034673 JUMPA 0,034674 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 677777 E= 000000 034674 ---------- *034674 MOVS 0,035564 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 100000 677777 C(E)= 577777 200000 FINAL C(AC)= 200000 577777 ---------- *034675 CAME 0,035563 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 577777 C(E)= 200000 577777 ---------- *034677 JUMPA 0,034700 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 577777 E= 000000 034700 ---------- *034700 MOVS 0,035566 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 200000 577777 C(E)= 377777 400000 FINAL C(AC)= 400000 377777 ---------- *034701 CAME 0,035565 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 377777 C(E)= 400000 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 313 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0600 *034703 JUMPA 0,034704 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 377777 E= 000000 034704 ---------- *034704 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 377777 C(E)= 400000 377777 FINAL C(AC)= 000000 000000 ---------- *034705 CAIE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *034707 JUMPA 0,034710 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034710 ---------- *034710 MOVE 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034711 CAIE 0,000001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 314 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0601 *034713 JUMPA 0,034714 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 034714 ---------- *034714 MOVEI 0,000001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034715 CAME 0,035334 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *034717 JUMPA 0,034720 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 034720 ---------- *034720 MOVEI 0,777777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034721 SETCA 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 315 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0602 *034722 CAME 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *034724 JUMPA 0,034725 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 034725 ---------- *034725 MOVEI 0,777777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034726 SETCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *034727 CAME 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *034731 JUMPA 0,034732 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 034732 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 316 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0603 *034732 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034733 SETCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034734 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034736 JUMPA 0,034737 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 034737 ---------- *034737 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034740 SETCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 317 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0604 *034741 CAME 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034743 JUMPA 0,034744 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034744 ---------- *034744 MOVEI 0,777777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034745 SETCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *034746 CAME 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *034750 JUMPA 0,034751 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 034751 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 318 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0605 *034751 SETCM 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034752 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034754 JUMPA 0,034755 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 034755 ---------- *034755 SETCM 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034756 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034760 JUMPA 0,034761 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 034761 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 319 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0606 *034761 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034762 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034763 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034765 JUMPA 0,034766 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 034766 ---------- *034766 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034767 ORCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 320 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0607 *034770 SKIPN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034772 JUMPA 0,034773 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 034773 ---------- *034773 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034774 ORCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034775 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034777 JUMPA 0,035000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 321 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0608 *035000 MOVE 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035001 ORCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035002 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035004 JUMPA 0,035005 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035005 ---------- *035005 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035006 ORCM 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 322 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0609 *035007 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035011 JUMPA 0,035012 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035012 ---------- *035012 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035013 IOR 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035014 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 323 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0610 *035016 JUMPA 0,035017 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035017 ---------- *035017 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035020 IOR 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035021 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035023 JUMPA 0,035024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035024 ---------- *035024 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 324 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0611 *035025 IOR 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035026 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035030 JUMPA 0,035031 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035031 ---------- *035031 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035032 IOR 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *035033 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 325 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0612 *035035 JUMPA 0,035036 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035036 ---------- *035036 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035037 ANDCM 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *035040 CAME 0,035455 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *035042 JUMPA 0,035043 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 E= 000000 035043 ---------- *035043 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 326 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0613 *035044 ANDCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035045 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035047 JUMPA 0,035050 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035050 ---------- *035050 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *035051 ANDCM 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 327 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0614 *035052 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035054 JUMPA 0,035055 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035055 ---------- *035055 MOVEI 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035056 ANDCM 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035057 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035061 JUMPA 0,035062 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035062 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 328 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0615 *035062 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035063 ANDCM 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035064 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035066 JUMPA 0,035067 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035067 ---------- *035067 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 329 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0616 *035070 ANDCA 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035071 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035073 JUMPA 0,035074 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035074 ---------- *035074 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035075 ANDCA 0,035567 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 707070 707070 FINAL C(AC)= 000000 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 330 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0617 *035076 CAME 0,035570 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 707070 C(E)= 000000 707070 ---------- *035100 JUMPA 0,035101 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 707070 E= 000000 035101 ---------- *035101 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 707070 C(E)= 000000 707070 FINAL C(AC)= 000000 000000 ---------- *035102 ANDCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035103 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035105 JUMPA 0,035106 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035106 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 331 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0618 *035106 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035107 ANDCA 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035110 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035112 JUMPA 0,035113 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035113 ---------- *035113 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035114 ANDCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 332 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0619 *035115 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035117 JUMPA 0,035120 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035120 ---------- *035120 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *035121 ANDCA 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035122 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 333 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0620 *035124 JUMPA 0,035125 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035125 ---------- *035125 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035126 ANDCB 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *035127 CAME 0,035455 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *035131 JUMPA 0,035132 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 E= 000000 035132 ---------- *035132 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 334 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0621 *035133 ANDCB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035134 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035136 JUMPA 0,035137 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035137 ---------- *035137 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035140 ANDCB 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 335 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0622 *035141 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035143 JUMPA 0,035144 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035144 ---------- *035144 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035145 ANDCB 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035146 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035150 JUMPA 0,035151 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035151 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 336 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0623 *035151 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035152 ANDCB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035153 CAIE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *035155 JUMPA 0,035156 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035156 ---------- *035156 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *035157 ANDCB 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 337 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0624 *035160 CAIE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *035162 JUMPA 0,035163 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035163 ---------- *035163 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035164 ORCA 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *035165 CAME 0,035455 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *035167 JUMPA 0,035170 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 E= 000000 035170 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 338 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0625 *035170 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035171 ORCA 0,035567 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 777777 ---------- *035172 CAME 0,035571 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 707070 777777 C(E)= 707070 777777 ---------- *035174 JUMPA 0,035175 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 707070 777777 E= 000000 035175 ---------- *035175 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 707070 777777 C(E)= 707070 777777 FINAL C(AC)= 000000 000000 ---------- *035176 ORCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 339 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0626 *035177 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035201 JUMPA 0,035202 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035202 ---------- *035202 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035203 ORCA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035204 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035206 JUMPA 0,035207 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035207 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 340 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0627 *035207 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035210 ORCA 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035211 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035213 JUMPA 0,035214 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035214 ---------- *035214 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035215 ORCA 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 341 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0628 *035216 CAIE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *035220 JUMPA 0,035221 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035221 ---------- *035221 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035222 ORCB 0,035567 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 707070 707070 FINAL C(AC)= 070707 777777 ---------- *035223 CAME 0,035572 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 777777 C(E)= 070707 777777 ---------- *035225 JUMPA 0,035226 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 777777 E= 000000 035226 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 342 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0629 *035226 MOVE 0,035455 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *035227 ORCB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- *035230 CAME 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *035232 JUMPA 0,035233 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 E= 000000 035233 ---------- *035233 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *035234 ORCB 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 343 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0630 *035235 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035237 JUMPA 0,035240 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035240 ---------- *035240 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035241 ORCB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *035242 CAIE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *035244 JUMPA 0,035245 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035245 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 344 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0631 *035245 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035246 ORCB 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035247 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035251 JUMPA 0,035252 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035252 ---------- *035252 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035253 ORCB 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 345 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0632 *035254 CAME 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *035256 JUMPA 0,035257 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 035257 ---------- *035257 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *035260 MOVN 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035261 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035263 JUMPA 0,035264 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035264 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 346 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0633 *035264 MOVE 0,035420 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *035265 MOVN 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000001 000000 ---------- *035266 CAME 0,035356 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *035270 JUMPA 0,035271 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 E= 000000 035271 ---------- *035271 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 ---------- *035272 MOVN 0,035567 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 070707 070710 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 347 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0634 *035273 CAME 0,035573 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 070710 C(E)= 070707 070710 ---------- *035275 JUMPA 0,035276 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 070710 E= 000000 035276 ---------- *035276 MOVN 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 070707 070710 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 ---------- *035277 CAIE 0,000001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *035301 JUMPA 0,035302 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 035302 ---------- *035302 SETO 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 348 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0635 *035303 MOVM 0,035330 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035304 SKIPE 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035306 JUMPA 0,035307 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 035307 ---------- *035307 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *035310 MOVM 0,035442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 349 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0636 *035311 CAIE 0,000001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *035313 JUMPA 0,035314 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 E= 000000 035314 ---------- *035314 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *035315 MOVM 0,035377 FLAGS - INT/FINAL 700000 700200 INITIAL C(AC)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *035316 CAME 0,035377 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 400000 000000 ---------- *035316 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 350 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0637 *035316 CAME 0,035377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- *035320 JUMPA 0,035321 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 035321 ---------- *035321 SETZ 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *035322 MOVM 0,035456 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *035323 CAME 0,035456 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 ---------- *035325 JUMPA 0,035326 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 E= 000000 035326 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 351 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0638 *035326 SETZM 0,035575 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *035327 JRST 0,030057 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 377777 777777 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000001 FINAL C(AC)= 377777 777777 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 352 DSKAB 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0639 *030616 JRST 0,030624 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 377777 777777 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777777 C(E)= 777777 777777 FINAL C(AC)= 377777 777777 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAC.txt,v0000444000175100010010000250633512050545160014373 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.13.22.31.18; author Rob; state Exp; branches; next ; desc @Test Program @ 1.1 log @Initial revision @ text @;DSKAC IDENTIFICATION -------------- PRODUCT CODE: AH-E301A-DD DIAGNOSTIC CODE: DSKAC PRODUCT NAME: DSKACA0 DECSYSTEM 2020 BASIC INSTRUCRION 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-DSKAC.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAC.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE THIRD IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS SOME OF THE FOLLOWING INSTRUCTIONS. LOGICAL TEST, HALF WORD AND THE ADDER. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAC.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAC.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAC SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAC TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (3) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 DSKACT MAC 28-Mar-78 12:49 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAC 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 2 DSKACT MAC 28-Mar-78 12:49 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 3 DSKACT MAC 28-Mar-78 12:49 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414300 PAREA3=SIXBIT/DSKAC/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 DSKAC1 MAC 28-Mar-78 12:49 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) [DSKAC] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 063 051 040 798 030656 133 104 123 113 101 799 030657 103 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (3) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 2 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0029 807 SUBTTL TEST OF LOGICAL TEST INSTRUCTIONS 808 809 ;********** 810 811 ;THIS TEST VERIFIES THAT TDN DOES NOT MODIFY THE AC BECAUSE 812 ;TDN IS A NO-OP 813 ;FIRST, THE AC IS PRELOADED WITH 0. THEN, 814 ;TDN IS EXECUTED. THE AC IS THEN CHECKED FOR 815 ;NO MODIFICATION. IF C(AC) IS UNALTERED, THE TEST PASSES 816 030661 400 00 0 00 000000 B12600: SETZ ;PRELOAD AC WITH 0 817 030662 610 00 0 00 033730 TDN [-1] ;*TDN IS A NO-OP 818 030663 310 00 0 00 000000 CAM ;CAM IS A NO-OP. IT IS HERE IN CASE TDN SKIPS 819 030664 302 00 0 00 000000 CAIE ;PASS TEST IF C(AC) IS UNMODIFIED BY TDN 820 STOP^ 821 030665 254 04 0 00 030666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 822 030666 324 00 0 00 030667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 823 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 824 ;IN THE SUBTEST) TO LOOP ON ERROR^ 825 826 ;***** FAILURE ANALYSIS ***** 827 ;C(AC0) C(AC1) FAILING SIGNAL 828 829 ;-1,,-1 FC: AD FM + EN 830 831 ;********** 832 833 ;THIS TEST VERIFIES THAT TSN DOES NOT MODIFY THE AC BECAUSE 834 ;TSN IS A NO-OP 835 ;FIRST, THE AC IS PRELOADED WITH -1. THEN, 836 ;TSN IS EXECUTED. THE AC IS THEN CHECKED FOR 837 ;NO MODIFICATION. IF C(AC) IS UNALTERED, THIS TEST PASSES 838 839 030667 474 00 0 00 000000 B12700: SETO ;PRELOAD AC WITH -1,,-1 840 030670 611 00 0 00 033731 TSN [XWD -1,0] ;*TSN IS A NO-OP 841 030671 310 00 0 00 000000 CAM ;CAM IS A NO-OP. IT IS HERE IN CASE TSN SKIPS 842 030672 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC) IS UNMODIFIED BY TSN 843 STOP^ 844 030673 254 04 0 00 030674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 845 030674 324 00 0 00 030675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 846 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 847 ;IN THE SUBTEST) TO LOOP ON ERROR^ 848 849 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 3 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0030 850 ;THIS TEST VERIFIES THAT TRN DOE NOT MODIFY THE AC BECAUSE 851 ;TRN IS A NO-OP. 852 ;FIRST, THE AC IS PRELOADED WITH 0. THEN, 853 ;TRN IS EXECUTED. THE AC IS THEN CHECKED FOR 854 ;NO MODIFICATION. IF C(AC) IS UNALTERED, THIS TEST PASSES 855 856 030675 400 00 0 00 000000 B13000: SETZ ;PRELOAD AC WITH 0 857 030676 600 00 0 00 123456 TRN 123456 ;*TRN IS A NO-OP 858 030677 310 00 0 00 000000 CAM ;CAM IS A NO-OP. IT IS HERE IN CASE TRN SKIPS 859 030700 302 00 0 00 000000 CAIE ;PASS TEST IF C(AC) IS UNMODIFIED BY TRN 860 STOP^ 861 030701 254 04 0 00 030702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 862 030702 324 00 0 00 030703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 863 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 864 ;IN THE SUBTEST) TO LOOP ON ERROR^ 865 866 ;********** 867 868 ;THIS TEST VERIFIES THAT TLN DOES NOT MODIFY THE AC BECAUSE 869 ;TLN IS A NO-OP. 870 ;FIRST,THE AC IS PRELOADED WITH -1,,-1. THEN, 871 ;TRN IS EXECUTED. THE AC IS THEN CHECKED FOR 872 ;NO MODIFICATION. IF C(AC) IS UNALTERED, THIS TEST PASSES 873 874 030703 474 00 0 00 000000 B13100: SETO ;PRELOAD AC WITH -1,,-1 875 030704 601 00 0 00 123456 TLN 123456 ;*TRN IS A NO-OP 876 030705 310 00 0 00 000000 CAM ;CAM IS A NO-OP. IT IS HERE IN CASE TRN SKIPS 877 030706 312 00 0 00 000000 CAME ;PASS TEST IF C(AC) IS UNMODIFIED BY TRN 878 STOP^ 879 030707 254 04 0 00 030710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 880 030710 324 00 0 00 030711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 883 884 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 4 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0031 885 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC 886 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 887 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 888 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC) -1,,-1, THE TEST PASSES. 889 890 030711 400 00 0 00 000000 B13200: SETZ ;PRELOAD AC WITH 0 891 030712 670 00 0 00 033730 TDO [-1] ;*TDO SHOULD PLACE ALL ONES IN THE AC 892 030713 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO SKIPS 893 030714 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 894 STOP^ 895 030715 254 04 0 00 030716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 896 030716 324 00 0 00 030717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 897 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 898 ;IN THE SUBTEST) TO LOOP ON ERROR^ 899 900 ;***** FAILURE ANALYSIS ***** 901 ;C(AC0) C(AC1) FAILING SIGNAL 902 903 ;E SW: FCE 904 ;0 SW: ET1 905 ;0 ET1: BR AR EN 906 ;0 ET1: AD BR - EN 907 ;0 ET1: AD EQV 908 909 ;********** 910 911 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC 912 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 913 ;IN THIS CASE, AC=E AND C(AC)= C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 914 ;THIS AC IS CHECKED FOR ZERO. IF C(AC) IS ZERO, THE TEST PASSES. 915 916 030717 400 00 0 00 000000 B13300: SETZ ;PRELOAD AC WITH 0 917 030720 670 00 0 00 000000 TDO ;*TDO SHOULD PLACE ALL ZERO IN THE AC 918 030721 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO SKIPS 919 030722 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) ZERO 920 STOP^ 921 030723 254 04 0 00 030724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 922 030724 324 00 0 00 030725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 923 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 924 ;IN THE SUBTEST) TO LOOP ON ERROR^ 925 926 ;***** FAILURE ANALYSIS ***** 927 ;C(AC0) C(AC1) FAILING SIGNAL 928 929 ;-1,,-1 ET1: AD AR + EN 930 931 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 5 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0032 932 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC, 933 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 934 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 935 ;THE AC IS CHECKED FOR ITS CONTENTS ZERO. IF C(AC) IS ZERO, THE TEST PASSES. 936 937 030725 400 00 0 00 000000 B13400: SETZ ;PRELOAD AC WITH 0 938 030726 670 00 0 00 033732 TDO [0] ;*TDO SHOULD PLACE ALL ZERO IN THE AC 939 030727 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO SKIPS 940 030730 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC) IS ZERO 941 STOP^ 942 030731 254 04 0 00 030732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 943 030732 324 00 0 00 030733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 945 ;IN THE SUBTEST) TO LOOP ON ERROR^ 946 947 ;********** 948 949 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC 950 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 951 ;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1. 952 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 953 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 954 955 030733 474 00 0 00 000000 B13600: SETO ;PRELOAD AC WITH -1,,-1 956 030734 670 00 0 00 000000 TDO ;*TDO SHOULD PLACE ALL ONES IN THE AC 957 030735 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO SKIPS 958 030736 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC) -1,,-1 959 STOP^ 960 030737 254 04 0 00 030740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 961 030740 324 00 0 00 030741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 962 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 963 ;IN THE SUBTEST) TO LOOP ON ERROR^ 964 965 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 6 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0033 966 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC 967 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 968 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 969 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 970 971 030741 474 00 0 00 000000 B14000: SETO ;PRELOAD AC WITH -1,,-1 972 030742 670 00 0 00 033732 TDO [0] ;*TDO SHOULD PLACE ALL ONES IN THE AC 973 030743 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO SKIPS 974 030744 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 975 STOP^ 976 030745 254 04 0 00 030746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 977 030746 324 00 0 00 030747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 978 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 979 ;IN THE SUBTEST) TO LOOP ON ERROR^ 980 981 ;***** FAILURE ANALYSIS ***** 982 ;C(AC0) C(AC1) FAILING SIGNAL 983 984 ;0 ET1: AD FM - EN 985 ;0 ET2: AR AD EN 986 987 ;********** 988 989 ;THIS TEST VERIFIES THAT TDZ PLACES ZERO IN THE BITS OF THE AC 990 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 991 ;IN THIS CASE, AC=E AND C(AC)= C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 992 ;THE AC IS CHECKED FOR 0. IF C(AC) 0, THE TEST PASSES. 993 994 030747 400 00 0 00 000000 B14100: SETZ ;PRELOAD AC WITH 0 995 030750 630 00 0 00 000000 TDZ ;*TDZ SHOULD PLACE ALL ZERO IN THE AC 996 030751 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO 997 030752 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 998 STOP^ 999 030753 254 04 0 00 030754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1000 030754 324 00 0 00 030755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1003 1004 ;***** FAILURE ANALYSIS ***** 1005 ;C(AC0) C(AC1) FAILING SIGNAL 1006 1007 ;-1,,-1 FC: AD FM + EN 1008 1009 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 7 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0034 1010 ;THIS TEST VERIFIES THAT TDZ PLACES ZERO IN THE BITS OF THE AC 1011 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1012 ;IN THIS CASE, C(AC)=-1,,-1,,-1 AND C(E)=-1,,0. 1013 ;HENCE, THE RESULT IN THE AC SHOULD BE 0,,-1. 1014 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)= 0,,-1, THE TEST PASSES. 1015 1016 030755 474 00 0 00 000000 B14200: SETO ;PRELOAD AC WITH -1,,-1 1017 030756 630 00 0 00 033731 TDZ [XWD -1,0] ;*TDZ SHOULD PLACE 0,,-1 IN THE AC 1018 030757 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO 1019 030760 312 00 0 00 033733 CAME [0,-1] ;PASS TEST IF C(AC)=0,,-1 1020 STOP^ 1021 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1022 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1023 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1024 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1025 1026 ;***** FAILURE ANALYSIS ***** 1027 ;C(AC0) C(AC1) FAILING SIGNAL 1028 1029 ;-E SW: FCE 1030 ;-1,,-1 FC: AD AR -EN 1031 ;-1,,0 ET2: AR AD EN 1032 1033 ;********** 1034 1035 ;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC 1036 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1037 ;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0. 1038 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 1039 1040 030763 474 00 0 00 000000 B14400: SETO ;PRELOAD AC WITH -1,,-1 1041 030764 630 00 0 00 000000 TDZ ;*TDZ SHOULD PLACE ALL ZERO IN THE AC 1042 030765 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO 1043 030766 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1044 STOP^ 1045 030767 254 04 0 00 030770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1046 030770 324 00 0 00 030771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1047 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1048 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1049 1050 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 8 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0035 1051 ;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC 1052 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1053 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0. 1054 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES. 1055 1056 030771 400 00 0 00 000000 B14500: SETZ ;PRELOAD AC WITH 0 1057 030772 630 00 0 00 033730 TDZ [-1] ;*TDZ SHOULD PLACE ALL ZEROS IN THE AC 1058 030773 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO 1059 030774 332 00 0 00 000000 SKIPE ;PASS TEST IS C(AC)=0 1060 STOP^ 1061 030775 254 04 0 00 030776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1062 030776 324 00 0 00 030777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1063 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1064 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1065 1066 ;********** 1067 1068 ;THIS TEST VERIFIES THAT TDZ PLACES ZEROS IN THE BITS OF THE AC 1069 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1070 ;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1. 1071 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 1072 ;THE AC IS CHECKED -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 1073 1074 030777 474 00 0 00 000000 B14600: SETO ;PRELOAD AC WITH -1,,-1 1075 031000 630 00 0 00 033732 TDZ [0] ;*TDZ SHOULD PLACE ALL ONES IN THE AC 1076 031001 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDO 1077 031002 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 1078 STOP^ 1079 031003 254 04 0 00 031004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1080 031004 324 00 0 00 031005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1081 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1082 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1083 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 9 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0036 1084 ;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC 1085 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1086 ;IN THIS CASE, C(AC)=-1 AND C(E)=0,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,0. 1087 ;THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES 1088 1089 031005 474 00 0 00 000000 B14700: SETO ;PRELOAD AC WITH -1,,-1 1090 031006 650 00 0 00 033733 TDC [XWD 0,-1] ;*TDC SHOULD PLACE -1,,0 INTO THE AC 1091 031007 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDC SKIPS 1092 031010 312 00 0 00 033731 CAME [-1,,0] ;PASS TEST IF C(AC)=-1,,0 1093 STOP^ 1094 031011 254 04 0 00 031012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1095 031012 324 00 0 00 031013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1096 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1097 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1098 1099 ;***** FAILURE ANALYSIS ***** 1100 ;C(AC0) C(AC1) FAILING SIGNAL 1101 1102 ;-E SW: FCE 1103 ;0 FC: AD AR - EN 1104 ;0,,-1 ET2: AR AD EN 1105 1106 ;********** 1107 1108 ;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC 1109 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1110 ;IN THIS CASE, AC=E AND C(AC)= C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 1111 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 1112 1113 031013 400 00 0 00 000000 B15000: SETZ ;PRELOAD AC, E WITH 0 1114 031014 650 00 0 00 000000 TDC ;*TDC SHOULD PLACE 0 INTO THE AC 1115 031015 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDC SKIPS 1116 031016 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1117 STOP^ 1118 031017 254 04 0 00 031020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1119 031020 324 00 0 00 031021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1120 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1121 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1122 1123 ;***** FAILURE ANALYSIS ***** 1124 ;C(AC0) C(AC1) FAILING SIGNAL 1125 1126 ;-1,,-1 FC:AD FM + EN 1127 1128 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 10 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0037 1129 ;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC 1130 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1131 ;IN THIS CASE, AC=E AND C(AC)= C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0. 1132 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST FAILS 1133 1134 031021 474 00 0 00 000000 B15400: SETO ;PRELOAD AC WITH -1,,-1 1135 031022 650 00 0 00 000000 TDC ;*TDC SHOULD PLACE 0 INTO THE AC 1136 031023 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDC SKIPS 1137 031024 332 00 0 00 000000 SKIPE ;PASS TEST IF C(AC)=0 1138 STOP^ 1139 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1140 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1141 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1142 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1143 1144 ;********** 1145 1146 ;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC 1147 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1148 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 1149 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 1150 1151 031027 400 00 0 00 000000 B15500: SETZ ;PRELOAD AC WITH 0 1152 031030 650 00 0 00 033730 TDC [-1] ;*TDC SHOULD PLACE -1,,-1 INTO THE AC 1153 031031 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDC SKIPS 1154 031032 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 1155 STOP^ 1156 031033 254 04 0 00 031034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1157 031034 324 00 0 00 031035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1158 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1159 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1160 1161 ;***** FAILURE ANALYSIS ***** 1162 ;C(AC0) C(AC1) FAILING SIGNAL 1163 1164 ;0 FC: AD EQV 1165 1166 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 11 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0038 1167 ;THIS TEST VERIFIES THAT TDC COMPLEMENTS THE BITS OF THE AC 1168 ;WHICH ARE MASKED BY C(E) AND DOES NOT AFFECT THE UNMASKED BITS OF THE AC. 1169 ;IN THIS CASE, C(AC)=-1 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 1170 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 1171 1172 031035 474 00 0 00 000000 B15600: SETO ;PRELOAD AC WITH -1,,-1 1173 031036 650 00 0 00 033732 TDC [0] ;*TDC SHOULD PLACE -1,,-1 INTO THE AC 1174 031037 300 00 0 00 000000 CAI ;CAI IS A NO-OP. IT IS HERE IN CASE TDC SKIPS 1175 031040 312 00 0 00 033730 CAME [-1] ;PASS TEST IF C(AC)=-1,,-1 1176 STOP^ 1177 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1178 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1179 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1180 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1181 1182 ;********** 1183 1184 ;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT 1185 ;SEQUENTIAL INSTRUCTION. IF TDNA DOES NOT 1186 ;SKIP, THIS TEST FAILS. 1187 1188 031043 400 00 0 00 000000 B15700: SETZ ;PRESET AC, E TO 0 1189 031044 614 00 0 00 000000 TDNA ;*TDNA SHOULD SKIP THE NEXT INSTRUCTION 1190 STOP^ 1191 031045 254 04 0 00 031046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1192 031046 324 00 0 00 031047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1193 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1194 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1195 1196 ;***** FAILURE ANALYSIS ***** 1197 ;C(AC0) C(AC1) FAILING SIGNAL 1198 1199 ;0 SW: ET1 1200 ;0 FC: AB PC EN 1201 ;0 ET1: BR AR EN 1202 ;0 ET1: PC CLOCK 1203 ;0 ET2: MC INST FETCH EN 1204 1205 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 12 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0039 1206 ;THIS TEST VERIFIES THAT TDN NEVER SKIPS 1207 ;NEXT SEQUENTIAL INSTRUCTION. 1208 ;THIS TEST FAILS IF TDN SKIPS. 1209 1210 031047 474 00 0 00 000000 B16000: SETO ;PRESET AC, E TO -1,,-1 1211 031050 610 00 0 00 000000 TDN ;*TDN SHOULD NOT SKIP 1212 031051 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDN PASSES 1213 STOP^ 1214 031052 254 04 0 00 031053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1215 031053 324 00 0 00 031054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1218 1219 ;********** 1220 1221 ;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE 1222 ;NEXT SEQUENTIAL INSTRUCTION. 1223 ;THIS TEST FAILS IF TDN SKIPS. 1224 1225 031054 400 00 0 00 000000 B16100: SETZ ;PRESET AC, E TO 0 1226 031055 610 00 0 00 000000 TDN ;*TDN SHOULD NOT SKIP 1227 031056 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDN PASSES 1228 STOP^ 1229 031057 254 04 0 00 031060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1230 031060 324 00 0 00 031061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1232 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1233 1234 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 13 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0040 1235 ;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1236 ;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED 1237 ;BY C(E), ARE ZERO. 1238 ;IN THIS TEST C(AC) = -1..0 AND C(E) = 707070..707070. 1239 ;HENCE, TDNE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION. 1240 ;IF TDNE SKIPS, THIS TEST FAILS 1241 1242 031061 200 00 0 00 033731 B16200: MOVE [XWD -1,0] ;PRELOAD AC WITH -1..0 1243 031062 612 00 0 00 033734 TDNE [707070707070] ;*TDNE SHOULD NOT SKIP 1244 031063 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDNE PASSES 1245 STOP^ 1246 031064 254 04 0 00 031065 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1247 031065 324 00 0 00 031066 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1248 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1249 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1250 1251 ;***** FAILURE ANALYSIS ***** 1252 ;C(AC0) C(AC1) FAILING SIGNAL 1253 1254 ;-1,,0 SW:FCE 1255 ;-1,,0 SW: PC CHANGE 1256 ;-1,,-1 FC: AD AR + EN 1257 ;E ET2: MC INST FETCH EN 1258 1259 ;********** 1260 1261 ;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1262 ;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED 1263 ;BY C(E), ARE ZERO. 1264 ;IN THIS CASE, AC=E AND C(AC)=0. 1265 ;HENCE, TDNE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 1266 ;IF TDNE DOES NOT SKIP, THIS TEST FAILS. 1267 1268 031066 400 00 0 00 000000 B16300: SETZ ;PRELOAD AC, E WITH 0 1269 031067 612 00 0 00 000000 TDNE ;*TDNE SHOULD SKIP THE NEXT INSTRUCTION 1270 STOP^ 1271 031070 254 04 0 00 031071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1272 031071 324 00 0 00 031072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1273 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1274 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1275 1276 ;***** FAILURE ANALYSIS ***** 1277 ;C(AC0) C(AC1) FAILING SIGNAL 1278 1279 ;0 SW: ET1 1280 ;0 ET1: PC CLOCK 1281 1282 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 14 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0041 1283 ;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1284 ;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED 1285 ;BY C(E) ARE ZERO. 1286 ;IN THIS TEST AC=E AND C(AC)=C(E)=0. HENCE TDNN 1287 ;SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 1288 ;IF TDNN SKIPS, THE TEST FAILS. 1289 1290 031072 400 00 0 00 000000 B16400: SETZ ;PRELOAD AC,E WITH 0 1291 031073 616 00 0 00 000000 TDNN ;*TDNN SHOULD NOT SKIP THE NEXT INSTRUCTION 1292 031074 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDNE PASSES 1293 STOP^ 1294 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1295 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1296 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1297 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1298 1299 ;***** FAILURE ANALYSIS ***** 1300 ;C(AC0) C(AC1) FAILING SIGNAL 1301 1302 ;0 SW: PC CHANGE 1303 ;0 FC: AB PC EN 1304 ;0 ET2: MC INST FETCH EN 1305 1306 ;********** 1307 1308 ;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT 1309 ;SEQUENTIAL INSTRUCTION. IF TDNA DOES NOT 1310 ;SKIP, THIS TEST FAILS. 1311 1312 031077 474 00 0 00 000000 B16500: SETO ;PRESET AC, E TO 0 1313 031100 614 00 0 00 000000 TDNA ;*TDNA SHOULD SKIP THE NEXT INSTRUCTION 1314 STOP^ 1315 031101 254 04 0 00 031102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1316 031102 324 00 0 00 031103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1319 1320 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 15 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0042 1321 ;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1322 ;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), 1323 ;ARE ZERO 1324 ;IN THIS TEST C(AC)=-1,,0 AND C(E)=707070,,707070. HENCE, TDNN 1325 ;SHOULD SKIP THE NEXT INSTRUCTION. IF IT DOES NOT SKIP, THIS TEST FAILS. 1326 1327 031103 200 00 0 00 033731 B16600: MOVE [XWD -1,0] ;PRESET AC TO -1,,0 1328 031104 616 00 0 00 033734 TDNN [707070707070] ;*TDNN SHOULD SKIP THE NEXT INSTRUCTION 1329 STOP^ 1330 031105 254 04 0 00 031106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1331 031106 324 00 0 00 031107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1334 1335 ;***** FAILURE ANALYSIS ***** 1336 ;C(AC0) C(AC1) FAILING SIGNAL 1337 1338 ;-1,,0 SW: FCE 1339 ;-1,,0 SW: ET1 1340 ;-1,,0 ET1: PC CLOCK 1341 1342 ;********** 1343 1344 ;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1345 ;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED 1346 ;BY C(E), ARE ZERO. 1347 ;IN THIS TEST, C(AC)=-1,,-1 AND C(E)=0. HENCE, TDNE SHOULD SKIP 1348 ;THE NEXT SEQUENTIAL INSTRUCTION. 1349 ;IF TDNE DOES NOT SKIP, THIS TEST FAILS 1350 1351 031107 474 00 0 00 000000 B16700: SETO ;PRESET AC TO ALL ONES 1352 031110 612 00 0 00 033732 TDNE [0] ;*TDNE SHOULD SKIP THE NEXT INSTRUCTION 1353 STOP^ 1354 031111 254 04 0 00 031112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1355 031112 324 00 0 00 031113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1356 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1357 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1358 1359 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 16 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0043 1360 ;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1361 ;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED 1362 ;BY C(E), ARE ZERO. 1363 ;IN THIS TEST C(AC)=0 AND C(E)=-1,,-1, HENCE, TDNE SHOULD SKIP 1364 ;THE NEXT SEQUENTIAL INSTRUCTION. 1365 ;IF TDNE DOES NOT SKIP, THIS TEST FAILS 1366 1367 031113 400 00 0 00 000000 B17000: SETZ ;PRESET AC TO 0 1368 031114 612 00 0 00 033730 TDNE [-1] ;*TDNE SHOULD SKIP THE NEXT INSTRUCTION 1369 STOP^ 1370 031115 254 04 0 00 031116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1371 031116 324 00 0 00 031117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1372 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1373 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1374 1375 ;***** FAILURE ANALYSIS ***** 1376 ;C(AC0) C(AC1) FAILING SIGNAL 1377 1378 ;0 FC: AD FM + EN 1379 1380 ;********** 1381 1382 ;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE NEXT SEQUENTIAL INSTRUCTION. 1383 ;THIS TEST FAILS IF TDN SKIPS 1384 1385 031117 474 00 0 00 000000 B17300: SETO ;PRESET AC TO -1,,-1 1386 031120 610 00 0 00 033732 TDN [0] ;*TDN SHOULD NOT SKIP 1387 031121 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDN PASSES 1388 STOP^ 1389 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1390 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1391 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1392 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1393 1394 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 17 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0044 1395 ;THIS TEST VERIFIES THAT TDN NEVER SKIPS THE NEXT SEQUENTIAL INSTRUCTION. 1396 ;THIS TEST FAILS IF TDN SKIPS 1397 1398 031124 400 00 0 00 000000 B17400: SETZ ;PRESET AC TO 0 1399 031125 610 00 0 00 033730 TDN [-1] ;*TDN SHOULD NOT SKIP 1400 031126 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDN PASSES 1401 STOP^ 1402 031127 254 04 0 00 031130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1403 031130 324 00 0 00 031131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1404 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1405 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1406 1407 ;********** 1408 1409 ;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 1410 ;THIS TEST FAILS IF TDNA DOES NOT SKIP 1411 1412 031131 474 00 0 00 000000 B17700: SETO ;PRESET AC TO -1,,-1 1413 031132 614 00 0 00 033732 TDNA [0] ;*TDNA SHOULD SKIP 1414 STOP^ 1415 031133 254 04 0 00 031134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1416 031134 324 00 0 00 031135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1417 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1418 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1419 1420 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 18 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0045 1421 ;THIS TEST VERIFIES THAT TDNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 1422 ;THIS TEST FAILS IF TDNA DOES NOT SKIP 1423 1424 031135 400 00 0 00 000000 B20000: SETZ ;PRESET AC TO 0 1425 031136 614 00 0 00 033730 TDNA [-1] ;*TDNA SHOULD SKIP 1426 STOP^ 1427 031137 254 04 0 00 031140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1428 031140 324 00 0 00 031141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1431 1432 ;********** 1433 1434 ;THIS TEST VERIFIES THAT TDNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1435 ;AND ONLY WHEN ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO. 1436 ;IN THIS TEST AC=E AND C(AC)=C(E)=-1,,-1. HENCE TDNE SHOULD NOT SKIP. 1437 ;IF TDNE SKIPS, THIS TEST FAILS. 1438 1439 031141 474 00 0 00 000000 B20400: SETO ;PRESET AC,E TO -1,,-1 1440 031142 612 00 0 00 000000 TDNE ;*TDNE SHOULD NOT SKIP 1441 031143 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDNE PASSES 1442 STOP^ 1443 031144 254 04 0 00 031145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1444 031145 324 00 0 00 031146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1445 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1446 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1447 1448 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 19 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0046 1449 ;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1450 ;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO. 1451 ;IN THIS TEST, AC=E AND C(AC)=C(E)=-1,,-1. HENCE TDNN SHOULD SKIP 1452 ;IF TDNN DOES NOT SKIP, THIS TEST FAILS 1453 1454 031146 474 00 0 00 000000 B20600: SETO ;PRESET AC,E TO -1,,-1 1455 031147 616 00 0 00 000000 TDNN ;*TDNN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 1456 STOP^ 1457 031150 254 04 0 00 031151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1458 031151 324 00 0 00 031152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1459 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1460 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1461 1462 ;********** 1463 1464 ;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1465 ;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO. 1466 ;IN THIS TEST, C(AC)=0 AND C(E)=-1,,-1. HENCE TDNN SHOULD NOT SKIP 1467 ;IF TDNN SKIPS, THIS TEST FAILS 1468 1469 031152 400 00 0 00 000000 B20700: SETZ ;PRESET AC TO 0 1470 031153 616 00 0 00 033730 TDNN [-1] ;*TDNN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 1471 031154 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDNN PASSES 1472 STOP^ 1473 031155 254 04 0 00 031156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1474 031156 324 00 0 00 031157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1475 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1476 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1477 1478 ;***** FAILURE ANALYSIS ***** 1479 ;C(AC0) C(AC1) FAILING SIGNAL 1480 1481 ;0 FC: AD FM + EN 1482 1483 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 20 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0047 1484 ;THIS TEST VERIFIES THAT TDNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN 1485 ;AND ONLY WHEN NOT ALL OF THE BITS OF THE AC, WHICH ARE MASKED BY C(E), ARE ZERO. 1486 ;IN THIS TEST, C(AC)=-1,,-1 AND C(E)=0. HENCE TDNN SHOULD NOT SKIP 1487 ;IF TDNN SKIPS, THIS TEST FAILS 1488 1489 031157 474 00 0 00 000000 B21000: SETO ;PRESET AC TO -1,,-1 1490 031160 616 00 0 00 033732 TDNN [0] ;*TDNN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 1491 031161 334 00 0 00 000000 SKIPA ;SKIP HALT IF TDNN PASSES 1492 STOP^ 1493 031162 254 04 0 00 031163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1494 031163 324 00 0 00 031164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1497 1498 ;***** FAILURE ANALYSIS ***** 1499 ;C(AC0) C(AC1) FAILING SIGNAL 1500 1501 ;-1,,-1 FC: AD AR + EN 1502 1503 ;********** 1504 1505 ;THIS TEST VERIFIES THAT TDO PLACES ONES IN THE BITS OF THE AC 1506 ;WHICH ARE MASKED BY C(E) AND DOES NOT EFFECT THE UNMASKED BITS OF THE AC. 1507 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC SHOULD BE -1,,0 1508 ;THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES 1509 1510 031164 400 00 0 00 000000 B21100: SETZ ;PRELOAD AC WITH 0 1511 031165 670 00 0 00 033731 TDO [XWD -1,0] ;*TDO SHOULD PLACE -1,,0 INTO THE AC 1512 031166 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1513 STOP^ 1514 031167 254 04 0 00 031170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1515 031170 324 00 0 00 031171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1516 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1517 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1518 1519 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 21 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0048 1520 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1521 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1522 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1523 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, 1524 ;THE RESULT IN THE AC SHOULD BE 0,,-1. THE AC IS 1525 ;CHECKED FOR 0,,-1. THIS TEST PASSES IF C(AC)=0,,-1 1526 1527 031171 400 00 0 00 000000 B21400: SETZ ;PRESET AC WITH 0 1528 031172 671 00 0 00 033731 TSO [XWD -1,0] ;*TSO SHOULD PLACE 0,,-1 INTO THE AC 1529 031173 312 00 0 00 033733 CAME [XWD 0,-1] ;PASS IF C(AC)=0,,-1 1530 STOP^ 1531 031174 254 04 0 00 031175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1532 031175 324 00 0 00 031176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1533 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1534 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1535 1536 ;***** FAILURE ANALYSIS ***** 1537 ;C(AC0) C(AC1) FAILING SIGNAL 1538 1539 ;0 SW: FCE 1540 ;0 SW: ET0 1541 ;0 SW: ET1 1542 ;0 FC: AD FM + EN 1543 ;0 FC: AD AR + EN 1544 ;0 ET0: AR SWAP 1545 ;0 ET0: AD FM + EN 1546 ;0 ET0: AD AR + EN 1547 ;0 ET1: BR AR EN 1548 ;0 ET1: AD BR - EN 1549 ;-1,,-1 ET1: AD AR + EN 1550 ;0 ET1: AD EQV 1551 1552 ;********** 1553 1554 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1555 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1556 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1557 ;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1. HENCE, 1558 ;THE RESULT IN THE AC SHOULD BE -1,,0. THE AC IS 1559 ;CHECKED FOR -1,,0. THIS TEST PASSES IF C(AC)=-1,,0 1560 1561 031176 400 00 0 00 000000 B21500: SETZ ;PRESET AC WITH 0 1562 031177 671 00 0 00 033733 TSO [XWD 0,-1] ;*TSO SHOULD PLACE -1,,0 INTO THE AC 1563 031200 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1564 STOP^ 1565 031201 254 04 0 00 031202 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1566 031202 324 00 0 00 031203 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1567 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1568 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1569 1570 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 22 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0049 1571 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1572 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1573 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1574 ;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1. HENCE, 1575 ;THE RESULT IN THE AC SHOULD BE -1,,0. THE AC IS 1576 ;CHECKED FOR ITS CONTENTS NON-ZERO. THIS TEST PASSES IF C(AC) IS NON-ZERO 1577 1578 031203 400 00 0 00 000000 B21600: SETZ ;PRELOAD AC,E WITH 0 1579 031204 671 00 0 00 000000 TSO ;*TSO SHOULD PLACE 0 INTO THE AC 1580 031205 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 1581 STOP^ 1582 031206 254 04 0 00 031207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1583 031207 324 00 0 00 031210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1584 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1585 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1586 1587 ;********** 1588 1589 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1590 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1591 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1592 ;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1. HENCE, 1593 ;THE RESULT IN THE AC SHOULD BE -1,,-1. THE AC IS 1594 ;CHECKED FOR -1,,-1. THIS TEST PASSES IF C(AC) -1,,-1 1595 1596 031210 474 00 0 00 000000 B21700: SETO ;PRELOAD AC,E WITH -1,,-1 1597 031211 671 00 0 00 000000 TSO ;*TSO SHOULD PLACE -1,,-1 INTO THE AC 1598 031212 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 1599 STOP^ 1600 031213 254 04 0 00 031214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1601 031214 324 00 0 00 031215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1602 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1603 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1604 1605 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 23 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0050 1606 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1607 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1608 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1609 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, 1610 ;THE RESULT IN THE AC SHOULD BE -1,,0. THE AC IS 1611 ;CHECKED FOR -1,,0. THIS TEST PASSES IF C(AC)=-1,,0 1612 1613 031215 200 00 0 00 033731 B22200: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 1614 031216 671 00 0 00 033733 TSO [XWD 0,-1] ;*TSO SHOULD PLACE -1,,0 INTO THE AC 1615 031217 312 00 0 00 033731 CAME [-1,,0] ;PASS IF C(AC)=-1,,0 1616 STOP^ 1617 031220 254 04 0 00 031221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1618 031221 324 00 0 00 031222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1619 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1620 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1621 1622 ;********** 1623 1624 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1625 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1626 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1627 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0. HENCE, 1628 ;THE RESULT IN THE AC SHOULD BE 0,,-1. THE AC IS 1629 ;CHECKED FOR 0,,-1. THIS TEST PASSES IF C(AC)=0,,-1 1630 1631 031222 201 00 0 00 777777 B22300: MOVEI -1 ;PRELOAD AC WITH 0,,-1 1632 031223 671 00 0 00 033732 TSO [0] ;*TSO SHOULD PLACE 0,,-1 INTO THE AC 1633 031224 312 00 0 00 033733 CAME [XWD 0,-1] ;PASS IF C(AC)=0,,-1 1634 STOP^ 1635 031225 254 04 0 00 031226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1636 031226 324 00 0 00 031227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1638 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1639 1640 ;***** FAILURE ANALYSIS ***** 1641 ;C(AC0) C(AC1) FAILING SIGNAL 1642 1643 ;0 ET1: AD FM - EN 1644 ;0 ET2: AR AD EN 1645 1646 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 24 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0051 1647 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1648 ;WHICH ARE MASKED BY BOTH HALVES OF C(E) SWAPPED. 1649 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1650 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0. HENCE, 1651 ;THE RESULT IN THE AC SHOULD BE -1,,0. THE AC IS 1652 ;CHECKED FOR -1,,0. THIS TEST PASSES IF C(AC)=-1,,0 1653 1654 031227 200 00 0 00 033731 B22400: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 1655 031230 671 00 0 00 033732 TSO [0] ;*TSO SHOULD PLACE -1,,0 INTO THE AC 1656 031231 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1657 STOP^ 1658 031232 254 04 0 00 031233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1659 031233 324 00 0 00 031234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1660 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1661 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1662 1663 ;********** 1664 1665 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1666 ;WHICH ARE MARKED BY BOTH HALVES OF C(E) SWAPPED. 1667 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1668 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE, 1669 ;THE RESULT IN THE AC SHOULD BE -1,,-1. THE AC IS 1670 ;CHECKED FOR -1,,-1. THIS TEST PASSES IF C(AC)=-1,,-1 1671 1672 031234 201 00 0 00 777777 B22500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 1673 031235 671 00 0 00 033730 TSO [-1] ;*TSO SHOULD PLACE -1,,-1 INTO THE AC 1674 031236 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 1675 STOP^ 1676 031237 254 04 0 00 031240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1677 031240 324 00 0 00 031241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1678 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1679 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1680 1681 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 25 DSKAC1 MAC 28-Mar-78 12:49 TEST OF LOGICAL TEST INSTRUCTIONS SEQ 0052 1682 ;THIS TEST VERIFIES THAT TSO PLACES ONES IN THE BITS OF THE AC 1683 ;WHICH ARE MARKED BY BOTH HALVES OF C(E) SWAPPED. 1684 ;THE UNMASKED BITS OF THE AC ARE NOT AFFECTED 1685 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1. HENCE, 1686 ;THE RESULT IN THE AC SHOULD BE -1,,-1. THE AC IS 1687 ;CHECKED FOR -1,,-1. THIS TEST PASSES IF C(AC)=-1,,-1 1688 1689 031241 200 00 0 00 033731 B22600: MOVE [XWD -1,0] ;PRELOAD AC WITH -1,,0 1690 031242 671 00 0 00 033730 TSO [-1] ;*TSO SHOULD PLACE -1,,-1 INTO THE AC 1691 031243 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 1692 STOP^ 1693 031244 254 04 0 00 031245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1694 031245 324 00 0 00 031246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1696 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1697 1698 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 26 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0053 1699 SUBTTL TEST OF HWT INSTRUCTIONS 1700 1701 ;********** 1702 1703 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1704 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1705 ;IN THIS CASE AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 1706 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 1707 1708 031246 400 00 0 00 000000 B22700: SETZ ;PRELOAD AC,E WITH 0 1709 031247 500 00 0 00 000000 HLL ;*HLL SHOULD PLACE 0 INTO THE AC 1710 031250 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 1711 STOP^ 1712 031251 254 04 0 00 031252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1713 031252 324 00 0 00 031253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1714 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1715 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1716 1717 ;***** FAILURE ANALYSIS ***** 1718 ;C(AC0) C(AC1) FAILING SIGNAL 1719 1720 ;-1,,0 FC: AD AR + EN 1721 ;0,,-1 FC: AD RT FM + EN 1722 1723 ;********** 1724 1725 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1726 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1727 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 1728 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, 1729 ;THIS TEST PASSES. 1730 1731 031253 474 00 0 00 000000 B23000: SETO ;PRELOAD AC WITH -1,,-1 1732 031254 500 00 0 00 033732 HLL [0] ;*HLL SHOULD PLACE 0,,-1 INTO THE AC 1733 031255 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 1734 STOP^ 1735 031256 254 04 0 00 031257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1736 031257 324 00 0 00 031260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1738 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1739 1740 ;***** FAILURE ANALYSIS ***** 1741 ;C(AC0) C(AC1) FAILING SIGNAL 1742 1743 ;0,,-1 SW: FCE 1744 ;0 ET2: AR AD EN 1745 1746 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 27 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0054 1747 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1748 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1749 ;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1750 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 1751 1752 031260 474 00 0 00 000000 B23200: SETO ;PRELOAD AC,E WITH -1,,-1 1753 031261 500 00 0 00 000000 HLL ;*HLL SHOULD PLACE -1,,-1 INTO THE AC 1754 031262 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 1755 STOP^ 1756 031263 254 04 0 00 031264 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1757 031264 324 00 0 00 031265 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1758 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1759 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1760 1761 ;********** 1762 1763 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1764 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1765 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1766 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, 1767 ;THIS TEST PASSES 1768 1769 031265 400 00 0 00 000000 B23400: SETZ ;PRELOAD AC WITH 0 1770 031266 500 00 0 00 033730 HLL [-1] ;*HLL SHOULD PLACE -1,,0 INTO THE AC 1771 031267 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1772 STOP^ 1773 031270 254 04 0 00 031271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1774 031271 324 00 0 00 031272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1775 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1776 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1777 1778 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 28 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0055 1779 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1780 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1781 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 1782 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, 1783 ;THIS TEST PASSES. 1784 1785 031272 400 00 0 00 000000 B23600: SETZ ;PRELOAD AC WITH 0 1786 031273 500 00 0 00 033731 HLL [XWD -1,0] ;*HLL SHOULD PLACE -1,,0 INTO THE AC 1787 031274 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1788 STOP^ 1789 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1790 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1793 1794 ;********** 1795 1796 ;THIS TEST VERIFIES THAT HLL PLACES THE LEFT HALF OF C(E) INTO 1797 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 1798 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0,,-1. HENCE, THE RESULT IN THE AC 1799 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, 1800 ;THIS TEST PASSES. 1801 1802 031277 474 00 0 00 000000 B23700: SETO ;PRELOAD AC WITH -1,,-1 1803 031300 500 00 0 00 033733 HLL [XWD 0,-1] ;*HLL SHOULD PLACE 0,,-1 INTO THE AC 1804 031301 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 1805 STOP^ 1806 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1807 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1808 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1809 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1810 1811 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 29 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0056 1812 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1813 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1814 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 1815 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 1816 1817 031304 400 00 0 00 000000 B24000: SETZ ;PRELOAD AC,E WITH 0 1818 031305 510 00 0 00 000000 HLLZ ;*HLLZ SHOULD PLACE 0 INTO THE AC 1819 031306 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 1820 STOP^ 1821 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1822 031310 324 00 0 00 031311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1823 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1824 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1825 1826 ;***** FAILURE ANALYSIS ***** 1827 ;C(AC0) C(AC1) FAILING SIGNAL 1828 1829 ;-1,,0 FC: AD LT AR + EN 1830 1831 ;********** 1832 1833 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1834 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1835 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1836 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 1837 ;IF C(AC)=-1,,0, THIS TEST PASSES. 1838 1839 031311 474 00 0 00 000000 B24300: SETO ;PRELOAD AC WITH -1,,-1 1840 031312 510 00 0 00 033730 HLLZ [-1] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1841 031313 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1842 STOP^ 1843 031314 254 04 0 00 031315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1844 031315 324 00 0 00 031316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1846 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1847 1848 ;***** FAILURE ANALYSIS ***** 1849 ;C(AC0) C(AC1) FAILING SIGNAL 1850 1851 ;0 SW: FCE 1852 ;-1,,-1 ET2: AR LT AD EN 1853 1854 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 30 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0057 1855 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1856 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1857 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1858 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO 1859 ;IF C(AC) IS NON-ZERO, THIS TEST PASSES. 1860 1861 031316 400 00 0 00 000000 B24400: SETZ ;PRELOAD AC WITH -1,,-1 1862 031317 510 00 0 00 033730 HLLZ [-1] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1863 031320 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1864 STOP^ 1865 031321 254 04 0 00 031322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1866 031322 324 00 0 00 031323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1867 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1868 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1869 1870 ;********** 1871 1872 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1873 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1874 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 1875 ;SHOULD BE 0. THE AC IS CHECKED FOR ZERO 1876 ;IF C(AC) IS ZERO, THIS TEST PASSES. 1877 1878 031323 474 00 0 00 000000 B24500: SETO ;PRELOAD AC WITH -1,,-1 1879 031324 510 00 0 00 033732 HLLZ [0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1880 031325 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS ZERO. 1881 STOP^ 1882 031326 254 04 0 00 031327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1883 031327 324 00 0 00 031330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1886 1887 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 31 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0058 1888 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1889 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1890 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC 1891 ;SHOULD BE 0. THE AC IS CHECKED FOR ZERO 1892 ;IF C(AC) IS ZERO, THIS TEST PASSES. 1893 1894 031330 400 00 0 00 000000 B24600: SETZ ;PRELOAD AC WITH 0 1895 031331 510 00 0 00 033732 HLLZ [0] ;*HLLZ SHOULD PLACE 0 INTO THE AC 1896 031332 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS ZERO. 1897 STOP^ 1898 031333 254 04 0 00 031334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1899 031334 324 00 0 00 031335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1900 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1901 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1902 1903 ;********** 1904 1905 ;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC. 1906 ;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1. 1907 ;THE RESULT IN THE AC SHOULD BE 0 1908 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 1909 1910 031335 474 00 0 00 000000 B24700: SETO ;PRELOAD AC WITH -1,,-1 1911 031336 511 00 0 00 777777 HLLZI -1 ;*HLLZI SHOULD CLEAR THE AC 1912 031337 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 1913 STOP^ 1914 031340 254 04 0 00 031341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1915 031341 324 00 0 00 031342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1916 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1917 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1918 1919 ;***** FAILURE ANALYSIS ***** 1920 ;C(AC0) C(AC1) FAILING SIGNAL 1921 1922 ;-1,,0 FC: AD LT AR + EN 1923 ;0,,-1 ET2: AR LT AD EN 1924 1925 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 32 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0059 1926 ;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC. 1927 ;IN THIS CASE C(AC)=0 AND E=0,,-1. 1928 ;THE RESULT IN THE AC SHOULD BE 0 1929 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 1930 1931 031342 400 00 0 00 000000 B25000: SETZ ;PRELOAD AC WITH 0 1932 031343 511 00 0 00 777777 HLLZI -1 ;*HLLZI SHOULD CLEAR THE AC 1933 031344 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 1934 STOP^ 1935 031345 254 04 0 00 031346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1936 031346 324 00 0 00 031347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1937 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1938 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1939 1940 ;********** 1941 1942 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1943 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1944 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 1945 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 1946 ;IF C(AC)=-1,,0, THIS TEST PASSES. 1947 1948 031347 474 00 0 00 000000 B25100: SETO ;PRELOAD AC WITH -1,,-1 1949 031350 510 00 0 00 033731 HLLZ [XWD -1,0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1950 031351 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0. 1951 STOP^ 1952 031352 254 04 0 00 031353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1953 031353 324 00 0 00 031354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1956 1957 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 33 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0060 1958 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1959 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1960 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 1961 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 1962 ;IF C(AC)=-1,,0 THIS TEST PASSES. 1963 1964 031354 400 00 0 00 000000 B25200: SETZ ;PRELOAD AC WITH 0 1965 031355 510 00 0 00 033731 HLLZ [XWD -1,0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1966 031356 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1967 STOP^ 1968 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1969 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1970 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1971 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1972 1973 ;********** 1974 1975 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1976 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1977 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1978 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 1979 ;IF C(AC)=-1,,0, THIS TEST PASSES. 1980 1981 031361 201 00 0 00 777777 B25300: MOVEI -1 ;PRELOAD AC WITH -1,,-1 1982 031362 510 00 0 00 033730 HLLZ [-1] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1983 031363 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 1984 STOP^ 1985 031364 254 04 0 00 031365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1986 031365 324 00 0 00 031366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1987 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1988 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1989 1990 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 34 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0061 1991 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 1992 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 1993 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 1994 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 1995 ;IF C(AC)=-1,,0 THIS TEST PASSES. 1996 1997 031366 205 00 0 00 777777 B25400: MOVSI -1 ;PRELOAD AC WITH -1,,0 1998 031367 510 00 0 00 033730 HLLZ [-1] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 1999 031370 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0. 2000 STOP^ 2001 031371 254 04 0 00 031372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2002 031372 324 00 0 00 031373 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2003 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2004 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2005 2006 ;********** 2007 2008 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 2009 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 2010 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2011 ;SHOULD BE 0. THE AC IS CHECKED FOR ZERO. 2012 ;IF C(AC) IS ZERO, THIS TEST PASSES. 2013 2014 031373 201 00 0 00 777777 B25500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2015 031374 510 00 0 00 033732 HLLZ [0] ;*HLLZ SHOULD PLACE 0 INTO THE AC 2016 031375 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS ZERO. 2017 STOP^ 2018 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2019 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2021 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2022 2023 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 35 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0062 2024 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 2025 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 2026 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 2027 ;SHOULD BE 0. THE AC IS CHECKED FOR ZERO. 2028 ;IF C(AC) IS ZERO, THIS TEST PASSES. 2029 2030 031400 205 00 0 00 777777 B25600: MOVSI -1 ;PRELOAD AC WITH -1,,0 2031 031401 510 00 0 00 033732 HLLZ [0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 2032 031402 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS ZERO. 2033 STOP^ 2034 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2035 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2038 2039 ;********** 2040 2041 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 2042 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 2043 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2044 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 2045 ;IF C(AC)=-1,,0, THIS TEST PASSES. 2046 2047 031405 201 00 0 00 777777 B25700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2048 031406 510 00 0 00 033731 HLLZ [XWD -1,0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 2049 031407 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2050 STOP^ 2051 031410 254 04 0 00 031411 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2052 031411 324 00 0 00 031412 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2053 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2054 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2055 2056 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 36 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0063 2057 ;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC. 2058 ;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1. 2059 ;THE RESULT IN THE AC SHOULD BE 0 2060 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 2061 2062 031412 201 00 0 00 777777 B26000: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2063 031413 511 00 0 00 777777 HLLZI -1 ;*HLLZI SHOULD CLEAR THE AC 2064 031414 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2065 STOP^ 2066 031415 254 04 0 00 031416 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2067 031416 324 00 0 00 031417 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2068 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2069 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2070 2071 ;********** 2072 2073 ;THIS TEST VERIFIES THAT HLLZ PLACES THE LEFT HALF OF C(E) INTO 2074 ;THE LEFT HALF OF THE AC AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 2075 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2076 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 2077 ;IF C(AC)=-1,,0, THIS TEST PASSES. 2078 2079 031417 205 00 0 00 777777 B26100: MOVSI -1 ;PRELOAD AC WITH -1,,0 2080 031420 510 00 0 00 033731 HLLZ [XWD -1,0] ;*HLLZ SHOULD PLACE -1,,0 INTO THE AC 2081 031421 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2082 STOP^ 2083 031422 254 04 0 00 031423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2084 031423 324 00 0 00 031424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2085 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2086 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2087 2088 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 37 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0064 2089 ;THIS TEST VERIFIES THAT HLLZI ALWAYS CLEARS THE AC. 2090 ;IN THIS CASE C(AC)=-1,,0 AND E=0,,-1. 2091 ;THE RESULT IN THE AC SHOULD BE 0 2092 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 2093 2094 031424 205 00 0 00 777777 B26200: MOVSI -1 ;PRELOAD AC WITH -1,,0 2095 031425 511 00 0 00 777777 HLLZI -1 ;*HLLZI SHOULD CLEAR THE AC 2096 031426 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2097 STOP^ 2098 031427 254 04 0 00 031430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2099 031430 324 00 0 00 031431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2100 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2101 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2102 2103 ;********** 2104 2105 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2106 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2107 ;IN THIS CASE AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 2108 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2109 2110 031431 400 00 0 00 000000 B26300: SETZ ;PRELOAD AC WITH 0 2111 031432 540 00 0 00 000000 HRR ;*HRR SHOULD PLACE 0 INTO THE AC 2112 031433 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2113 STOP^ 2114 031434 254 04 0 00 031435 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2115 031435 324 00 0 00 031436 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2117 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2118 2119 ;***** FAILURE ANALYSIS ***** 2120 ;C(AC0) C(AC1) FAILING SIGNAL 2121 2122 ;0,,-1 FC: AD RT AR + EN 2123 ;-1,,0 FC: AD LT FM + EN 2124 2125 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 38 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0065 2126 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2127 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2128 ;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2129 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2130 2131 031436 474 00 0 00 000000 B26500: SETO ;PRELOAD AC WITH -1,,-1 2132 031437 540 00 0 00 000000 HRR ;*HRR SHOULD PLACE -1,,-1 INTO THE AC 2133 031440 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2134 STOP^ 2135 031441 254 04 0 00 031442 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2136 031442 324 00 0 00 031443 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2137 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2138 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2139 2140 ;***** FAILURE ANALYSIS ***** 2141 ;C(AC0) C(AC1) FAILING SIGNAL 2142 2143 ;-1,,0 SW: FCE 2144 2145 ;********** 2146 2147 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2148 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2149 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2150 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2151 2152 031443 474 00 0 00 000000 B26600: SETO ;PRELOAD AC WITH -1,,-1 2153 031444 540 00 0 00 033731 HRR [XWD -1,0] ;*HRR SHOULD PLACE -1,,0 INTO THE AC 2154 031445 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2155 STOP^ 2156 031446 254 04 0 00 031447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2157 031447 324 00 0 00 031450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2158 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2159 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2160 2161 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 39 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0066 2162 ;THIS TEST VERIFIES THAT HRRI PLACES E INTO 2163 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED 2164 ;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2165 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2166 2167 031450 474 00 0 00 000000 B26700: SETO ;PRELOAD AC WITH -1,,-1 2168 031451 541 00 0 00 777777 HRRI -1 ;*HRRI SHOULD PLACE -1,,-1 INTO THE AC 2169 031452 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2170 STOP^ 2171 031453 254 04 0 00 031454 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2172 031454 324 00 0 00 031455 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2173 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2174 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2175 2176 ;***** FAILURE ANALYSIS ***** 2177 ;C(AC0) C(AC1) FAILING SIGNAL 2178 2179 ;0,,-1 ET2: AR AD EN 2180 2181 ;********** 2182 2183 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2184 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2185 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2186 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2187 2188 031455 474 00 0 00 000000 B27000: SETO ;PRELOAD AC WITH -1,,-1 2189 031456 540 00 0 00 033732 HRR [0] ;*HRR SHOULD PLACE -1,,0 INTO THE AC 2190 031457 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=0 2191 STOP^ 2192 031460 254 04 0 00 031461 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2193 031461 324 00 0 00 031462 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2195 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2196 2197 ;***** FAILURE ANALYSIS ***** 2198 ;C(AC0) C(AC1) FAILING SIGNAL 2199 2200 ;0 ET2: AR AD EN 2201 2202 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 40 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0067 2203 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2204 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2205 ;IN THIS CASE C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC 2206 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2207 2208 031462 400 00 0 00 000000 B27100: SETZ ;PRELOAD AC WITH 0 2209 031463 540 00 0 00 033732 HRR [0] ;*HRR SHOULD PLACE 0 INTO THE AC 2210 031464 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2211 STOP^ 2212 031465 254 04 0 00 031466 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2213 031466 324 00 0 00 031467 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2216 2217 ;********** 2218 2219 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2220 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2221 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2222 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2223 2224 031467 400 00 0 00 000000 B27200: SETZ ;PRELOAD AC WITH 0 2225 031470 540 00 0 00 033730 HRR [-1] ;*HRR SHOULD PLACE 0,,-1 INTO THE AC 2226 031471 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2227 STOP^ 2228 031472 254 04 0 00 031473 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2229 031473 324 00 0 00 031474 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2230 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2231 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2232 2233 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 41 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0068 2234 ;THIS TEST VERIFIES THAT HRRI PLACES E INTO 2235 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED 2236 ;IN THIS CASE C(AC)=0 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2237 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2238 2239 031474 400 00 0 00 000000 B27300: SETZ ;PRELOAD AC WITH 0 2240 031475 541 00 0 00 777777 HRRI -1 ;*HRRI SHOULD PLACE 0,,-1 INTO THE AC 2241 031476 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2242 STOP^ 2243 031477 254 04 0 00 031500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2244 031500 324 00 0 00 031501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2245 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2246 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2247 2248 ;***** FAILURE ANALYSIS ***** 2249 ;C(AC0) C(AC1) FAILING SIGNAL 2250 2251 ;-1,,-1 FC: AD LT FM + EN 2252 2253 ;********** 2254 2255 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2256 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2257 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2258 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2259 2260 031501 400 00 0 00 000000 B27400: SETZ ;PRELOAD AC WITH 0 2261 031502 540 00 0 00 033731 HRR [XWD -1,0] ;*HRR SHOULD PLACE 0 INTO THE AC 2262 031503 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2263 STOP^ 2264 031504 254 04 0 00 031505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2265 031505 324 00 0 00 031506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2267 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2268 2269 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 42 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0069 2270 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2271 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2272 ;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2273 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2274 2275 031506 201 00 0 00 777777 B27500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2276 031507 540 00 0 00 033731 HRR [XWD -1,0] ;*HRR SHOULD PLACE 0 INTO THE AC 2277 031510 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2278 STOP^ 2279 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2280 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2281 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2282 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2283 2284 ;********** 2285 2286 ;THIS TEST VERIFIES THAT HRRI PLACES E INTO 2287 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED 2288 ;IN THIS CASE C(AC)=-1,,0 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2289 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2290 2291 031513 205 00 0 00 777777 B27600: MOVSI -1 ;PRELOAD AC WITH -1,,0 2292 031514 541 00 0 00 777777 HRRI -1 ;*HRRI SHOULD PLACE -1,,-1 INTO THE AC 2293 031515 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2294 STOP^ 2295 031516 254 04 0 00 031517 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2296 031517 324 00 0 00 031520 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2297 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2298 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2299 2300 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 43 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0070 2301 ;THIS TEST VERIFIES THAT HRRI PLACES E INTO 2302 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED 2303 ;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2304 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2305 2306 031520 201 00 0 00 777777 B27700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2307 031521 541 00 0 00 777777 HRRI -1 ;*HRRI SHOULD PLACE 0,,-1 INTO THE AC 2308 031522 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2309 STOP^ 2310 031523 254 04 0 00 031524 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2311 031524 324 00 0 00 031525 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2312 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2313 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2314 2315 ;********** 2316 2317 ;THIS TEST VERIFIES THAT HRR PLACES THE RIGHT HALF OF C(E) INTO 2318 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2319 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2320 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2321 2322 031525 205 00 0 00 777777 B30000: MOVSI -1 ;PRELOAD AC WITH -1,,0 2323 031526 540 00 0 00 033731 HRR [XWD -1,0] ;*HRR SHOULD PLACE -1,,0 INTO THE AC 2324 031527 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2325 STOP^ 2326 031530 254 04 0 00 031531 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2327 031531 324 00 0 00 031532 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2328 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2329 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2330 2331 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 44 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0071 2332 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2333 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2334 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 2335 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2336 2337 031532 400 00 0 00 000000 B30100: SETZ ;PRELOAD AC,E WITH 0 2338 031533 550 00 0 00 000000 HRRZ ;*HRRZ SHOULD PLACE 0 INTO THE AC 2339 031534 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2340 STOP^ 2341 031535 254 04 0 00 031536 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2342 031536 324 00 0 00 031537 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2345 2346 ;***** FAILURE ANALYSIS ***** 2347 ;C(AC0) C(AC1) FAILING SIGNAL 2348 2349 ;0,,-1 FC: AD RT AR + EN 2350 2351 ;********** 2352 2353 ;THIS TEST VERIFIES THAT HRRZI PLACES E INTO 2354 ;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC 2355 ;IN THIS CASE C(AC)=-1,,-1. HENCE, THE RESULT IN THE AC 2356 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES 2357 2358 031537 474 00 0 00 000000 B30400: SETO ;PRELOAD AC WITH -1,,-1 2359 031540 551 00 0 00 777777 HRRZI -1 ;*HRRZI SHOULD PLACE 0,,-1 INTO THE AC 2360 031541 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2361 STOP^ 2362 031542 254 04 0 00 031543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2363 031543 324 00 0 00 031544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2364 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2365 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2366 2367 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 45 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0072 2368 ;THIS TEST VERIFIES THAT HRRZI PLACES E INTO 2369 ;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC 2370 ;IN THIS CASE C(AC)=-1,,-1. HENCE, THE RESULT IN THE AC 2371 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 2372 2373 031544 474 00 0 00 000000 B30500: SETO ;PRELOAD AC WITH -1,,-1 2374 031545 551 00 0 00 000000 HRRZI 0 ;*HRRZI SHOULD PLACE 0 INTO THE AC 2375 031546 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2376 STOP^ 2377 031547 254 04 0 00 031550 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2378 031550 324 00 0 00 031551 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2379 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2380 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2381 2382 ;***** FAILURE ANALYSIS ***** 2383 ;C(AC0) C(AC1) FAILING SIGNAL 2384 2385 ;0,,-1 FC: AD RT AR + EN 2386 2387 ;********** 2388 2389 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2390 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2391 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2392 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2393 2394 031551 474 00 0 00 000000 B30600: SETO ;PRELOAD AC WITH -1,,-1 2395 031552 550 00 0 00 033731 HRRZ [XWD -1,0] ;*HRRZ SHOULD PLACE 0 INTO THE AC 2396 031553 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2397 STOP^ 2398 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2399 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2400 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2401 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2402 2403 ;***** FAILURE ANALYSIS ***** 2404 ;C(AC0) C(AC1) FAILING SIGNAL 2405 2406 ;E SW: FCE 2407 ;-1,,0 ET2: AR RT AD EN 2408 2409 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 46 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0073 2410 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2411 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2412 ;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2413 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2414 2415 031556 474 00 0 00 000000 B30700: SETO ;PRELOAD AC WITH -1,,-1 2416 031557 550 00 0 00 033730 HRRZ [-1] ;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC 2417 031560 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2418 STOP^ 2419 031561 254 04 0 00 031562 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2420 031562 324 00 0 00 031563 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2421 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2422 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2423 2424 ;********** 2425 2426 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2427 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2428 ;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2429 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2430 2431 031563 201 00 0 00 777777 B31000: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2432 031564 550 00 0 00 033730 HRRZ [-1] ;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC 2433 031565 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2434 STOP^ 2435 031566 254 04 0 00 031567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2436 031567 324 00 0 00 031570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2438 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2439 2440 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 47 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0074 2441 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2442 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2443 ;IN THIS CASE C(AC)=0,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2444 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2445 2446 031570 201 00 0 00 777777 B31100: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2447 031571 550 00 0 00 033732 HRRZ [0] ;*HRRZ SHOULD PLACE 0 INTO THE AC 2448 031572 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 2449 STOP^ 2450 031573 254 04 0 00 031574 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2451 031574 324 00 0 00 031575 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2453 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2454 2455 ;********** 2456 2457 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2458 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2459 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2460 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2461 2462 031575 205 00 0 00 777777 B31200: MOVSI -1 ;PRELOAD AC WITH -1,,0 2463 031576 550 00 0 00 033730 HRRZ [-1] ;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC 2464 031577 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2465 STOP^ 2466 031600 254 04 0 00 031601 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2467 031601 324 00 0 00 031602 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2468 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2469 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2470 2471 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 48 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0075 2472 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2473 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2474 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 2475 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2476 2477 031602 205 00 0 00 777777 B31300: MOVSI -1 ;PRELOAD AC WITH -1,,0 2478 031603 550 00 0 00 033732 HRRZ [0] ;*HRRZ SHOULD PLACE 0 INTO THE AC 2479 031604 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 2480 STOP^ 2481 031605 254 04 0 00 031606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2482 031606 324 00 0 00 031607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2483 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2484 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2485 2486 ;********** 2487 2488 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2489 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2490 ;IN THIS CASE C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2491 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2492 2493 031607 201 00 0 00 777777 B31400: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2494 031610 550 00 0 00 033731 HRRZ [XWD -1,0] ;*HRRZ SHOULD PLACE 0 INTO THE AC 2495 031611 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2496 STOP^ 2497 031612 254 04 0 00 031613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2498 031613 324 00 0 00 031614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2501 2502 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 49 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0076 2503 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2504 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2505 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, THE RESULT IN THE AC 2506 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2507 2508 031614 205 00 0 00 777777 B31500: MOVSI -1 ;PRELOAD AC WITH -1,,0 2509 031615 550 00 0 00 033733 HRRZ [XWD 0,-1] ;*HRRZ SHOULD PLACE 0,,-1 INTO THE AC 2510 031616 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2511 STOP^ 2512 031617 254 04 0 00 031620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2513 031620 324 00 0 00 031621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2514 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2515 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2516 2517 ;********** 2518 2519 ;THIS TEST VERIFIES THAT HRRZI PLACES E INTO 2520 ;THE RIGHT HALF OF THE AC AND CLEARS THE LEFT HALF OF THE AC 2521 ;IN THIS CASE C(AC)=0,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2522 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES 2523 2524 031621 201 00 0 00 777777 B31600: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2525 031622 551 00 0 00 777777 HRRZI -1 ;*HRRZI SHOULD PLACE 0,,-1 INTO THE AC 2526 031623 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,1 2527 STOP^ 2528 031624 254 04 0 00 031625 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2529 031625 324 00 0 00 031626 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2530 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2531 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2532 2533 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 50 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0077 2534 ;THIS TEST VERIFIES THAT HRRZ PLACES THE RIGHT HALF OF C(E) INTO 2535 ;RIGHT HALF OF THE AC AND PLACES ZEROS INTO THE LEFT HALF OF THE AC 2536 ;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2537 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2538 2539 031626 205 00 0 00 777777 B31700: MOVSI -1 ;PRELOAD AC WITH -1,,0 2540 031627 550 00 0 00 033731 HRRZ [XWD -1,0] ;*HRRZ SHOULD PLACE 0 INTO THE AC,0] 2541 031630 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 2542 STOP^ 2543 031631 254 04 0 00 031632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2544 031632 324 00 0 00 031633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2545 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2546 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2547 2548 ;********** 2549 2550 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2551 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2552 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 2553 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2554 2555 031633 400 00 0 00 000000 B32000: SETZ ;PRELOAD AC WITH 0 2556 031634 504 00 0 00 000000 HRL ;*HRL SHOULD PLACE 0 INTO THE AC 2557 031635 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2558 STOP^ 2559 031636 254 04 0 00 031637 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2560 031637 324 00 0 00 031640 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2561 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2562 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2563 2564 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 51 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0078 2565 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2566 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2567 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2568 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2569 2570 031640 474 00 0 00 000000 B32100: SETO ;PRELOAD AC WITH -1,,-1 2571 031641 504 00 0 00 033730 HRL [-1] ;*HRL SHOULD PLACE -1,,-1 INTO THE AC 2572 031642 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2573 STOP^ 2574 031643 254 04 0 00 031644 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2575 031644 324 00 0 00 031645 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2576 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2577 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2578 2579 ;***** FAILURE ANALYSIS ***** 2580 ;C(AC0) C(AC1) FAILING SIGNAL 2581 2582 ;E,,-1 SW: FCE 2583 ;0,,-1 FC: AD RT FM + EN 2584 ;0,,-1 ET2: AR LT AR RT EN 2585 ;-1,,0 ET2: AR RT AD EN 2586 2587 ;********** 2588 2589 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2590 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2591 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2592 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2593 2594 031645 474 00 0 00 000000 B32200: SETO ;PRELOAD AC WITH -1,,-1 2595 031646 504 00 0 00 033732 HRL [0] ;*HRL SHOULD PLACE 0,,-1 INTO THE AC 2596 031647 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2597 STOP^ 2598 031650 254 04 0 00 031651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2599 031651 324 00 0 00 031652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2600 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2601 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2602 2603 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 52 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0079 2604 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2605 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2606 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2607 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2608 2609 031652 474 00 0 00 000000 B32300: SETO ;PRELOAD AC WITH -1,,-1 2610 031653 544 00 0 00 033732 HLR [0] ;*HLR SHOULD PLACE -1,,0 INTO THE AC 2611 031654 312 00 0 00 033731 CAME [-1,,0] ;PASS IF C(AC)=-1,,0 2612 STOP^ 2613 031655 254 04 0 00 031656 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2614 031656 324 00 0 00 031657 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2615 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2616 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2617 2618 ;***** FAILURE ANALYSIS ***** 2619 ;C(AC0) C(AC1) FAILING SIGNAL 2620 2621 ;0 ET2: AR LT AD EN 2622 2623 ;********** 2624 2625 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2626 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2627 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2628 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2629 2630 031657 400 00 0 00 000000 B32600: SETZ ;PRELOAD AC WITH 0 2631 031660 504 00 0 00 033730 HRL [-1] ;*HRL SHOULD PLACE -1,,0 INTO THE AC 2632 031661 312 00 0 00 033731 CAME [-1,,0] ;PASS IF C(AC)=-1,,0 2633 STOP^ 2634 031662 254 04 0 00 031663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2635 031663 324 00 0 00 031664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2637 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2638 2639 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 53 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0080 2640 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2641 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2642 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2643 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2644 2645 031664 400 00 0 00 000000 B32700: SETZ ;PRELOAD AC WITH 0 2646 031665 544 00 0 00 033730 HLR [-1] ;*HLR SHOULD PLACE 0,,-1 INTO THE AC 2647 031666 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2648 STOP^ 2649 031667 254 04 0 00 031670 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2650 031670 324 00 0 00 031671 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2651 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2652 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2653 2654 ;***** FAILURE ANALYSIS ***** 2655 ;C(AC0) C(AC1) FAILING SIGNAL 2656 2657 ;0 SW: FCE 2658 ;-1,,-1 FC: AD LT FM + EN 2659 ;0 ET2: AR RT AR LT EN 2660 2661 ;********** 2662 2663 ;THIS TEST VERIFIES THAT HRLI PLACES E INTO 2664 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 2665 ;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2666 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 2667 2668 031671 400 00 0 00 000000 B33000: SETZ ;PRELOAD AC WITH -1,,-1 2669 031672 505 00 0 00 777777 HRLI -1 ;*HRLI SHOULD PLACE -1,,-1 INTO THE AC 2670 031673 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,-1 2671 STOP^ 2672 031674 254 04 0 00 031675 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2673 031675 324 00 0 00 031676 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2674 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2675 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2676 2677 ;***** FAILURE ANALYSIS ***** 2678 ;C(AC0) C(AC1) FAILING SIGNAL 2679 2680 ;-1,,-1 FC: AD RT FM + EN 2681 ;0 ET2: AR LT AR RT EN 2682 2683 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 54 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0081 2684 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2685 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2686 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2687 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2688 2689 031676 400 00 0 00 000000 B33100: SETZ ;PRELOAD AC WITH -1,,-1 2690 031677 544 00 0 00 033731 HLR [XWD -1,0] ;*HLR SHOULD PLACE -1,,-1 INTO THE AC 2691 031700 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2692 STOP^ 2693 031701 254 04 0 00 031702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2694 031702 324 00 0 00 031703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2696 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2697 2698 ;********** 2699 2700 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2701 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2702 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2703 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2704 2705 031703 400 00 0 00 000000 B33200: SETZ ;PRELOAD AC WITH 0 2706 031704 504 00 0 00 033731 HRL [XWD -1,0] ;*HRL SHOULD PLACE 0 INTO THE AC 2707 031705 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2708 STOP^ 2709 031706 254 04 0 00 031707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2710 031707 324 00 0 00 031710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2711 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2712 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2713 2714 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 55 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0082 2715 ;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF 2716 ;OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2717 ;IN THIS CASE, C(AC)=0 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2718 ;SHOULD BE 0. THE AC IS CHECKED FOR 0 2719 ;IF C(AC)=0, THIS TEST PASSES. 2720 2721 031710 400 00 0 00 000000 B33300: SETZ ;PRELOAD AC WITH 0 2722 031711 545 00 0 00 777777 HLRI -1 ;*HLRI SHOULD PLACE 0 INTO THE AC 2723 031712 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2724 STOP^ 2725 031713 254 04 0 00 031714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2726 031714 324 00 0 00 031715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2727 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2728 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2729 2730 ;***** FAILURE ANALYSIS ***** 2731 ;C(AC0) C(AC1) FAILING SIGNAL 2732 2733 ;-1,,0 FC:AD LT FM + EN 2734 2735 ;********** 2736 2737 ;THIS TEST VERIFIES THAT HRLI PLACES E INTO 2738 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED. 2739 ;IN THIS CASE C(AC)=-1,,-1 AND E=-1,,-1. HENCE, THE RESULT IN THE AC 2740 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 2741 2742 031715 474 00 0 00 000000 B33400: SETO ;PRELOAD AC WITH -1,,-1 2743 031716 505 00 0 00 777777 HRLI -1 ;*HRLI SHOULD PLACE -1,,-1 INTO THE AC 2744 031717 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2745 STOP^ 2746 031720 254 04 0 00 031721 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2747 031721 324 00 0 00 031722 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2748 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2749 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2750 2751 ;***** FAILURE ANALYSIS ***** 2752 ;C(AC0) C(AC1) FAILING SIGNAL 2753 2754 ;-1,,0 ET2: AR RT AD EN 2755 2756 2757 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 56 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0083 2758 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2759 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2760 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2761 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2762 2763 031722 474 00 0 00 000000 B33500: SETO ;PRELOAD AC WITH -1,,-1 2764 031723 544 00 0 00 033731 HLR [XWD -1,0] ;*HLR SHOULD PLACE -1,,-1 INTO THE AC 2765 031724 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2766 STOP^ 2767 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2768 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2769 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2770 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2771 2772 ;********** 2773 2774 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2775 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2776 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 2777 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2778 2779 031727 474 00 0 00 000000 B33600: SETO ;PRELOAD AC WITH -1,,-1 2780 031730 504 00 0 00 033731 HRL [XWD -1,0] ;*HRL SHOULD PLACE 0,,-1 INTO THE AC 2781 031731 312 00 0 00 033733 CAME [XWD 0,-1] ;PASS IF C(AC)=0,,-1 2782 STOP^ 2783 031732 254 04 0 00 031733 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2784 031733 324 00 0 00 031734 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2785 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2786 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2787 2788 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 57 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0084 2789 ;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF 2790 ;OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2791 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 2792 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0 2793 ;IF C(AC)=-1,,0, THIS TEST PASSES. 2794 2795 031734 474 00 0 00 000000 B33700: SETO ;PRELOAD AC WITH -1,,-1 2796 031735 545 00 0 00 777777 HLRI -1 ;*HLRI SHOULD PLACE -1,,0 INTO THE AC 2797 031736 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2798 STOP^ 2799 031737 254 04 0 00 031740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2800 031740 324 00 0 00 031741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2801 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2802 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2803 2804 ;***** FAILURE ANALYSIS ***** 2805 ;C(AC0) C(AC1) FAILING SIGNAL 2806 2807 ;0 ET2: AR LT AD EN 2808 2809 ;********** 2810 2811 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2812 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2813 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0. HENCE, THE RESULT IN THE AC 2814 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2815 2816 031741 201 00 0 00 777777 B34000: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2817 031742 504 00 0 00 033732 HRL [0] ;*HRL SHOULD PLACE 0,,-1 INTO THE AC 2818 031743 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2819 STOP^ 2820 031744 254 04 0 00 031745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2821 031745 324 00 0 00 031746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2822 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2823 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2824 2825 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 58 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0085 2826 ;THIS TEST VERIFIES THAT HLRI ALWAYS CLEARS THE RIGHT HALF 2827 ;OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2828 ;IN THIS CASE, C(AC)=0,,-1 AND E=0. HENCE, THE RESULT IN THE AC 2829 ;SHOULD BE 0. THE AC IS CHECKED FOR 0 2830 ;IF C(AC)=0, THIS TEST PASSES. 2831 2832 031746 201 00 0 00 777777 B34100: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2833 031747 545 00 0 00 000000 HLRI ;*HLRI SHOULD PLACE 0 INTO THE AC 2834 031750 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 2835 STOP^ 2836 031751 254 04 0 00 031752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2837 031752 324 00 0 00 031753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2838 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2839 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2840 2841 ;********** 2842 2843 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2844 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2845 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2846 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2847 2848 031753 201 00 0 00 777777 B34200: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2849 031754 504 00 0 00 033730 HRL [-1] ;*HRL SHOULD PLACE -1,,-1 INTO THE AC 2850 031755 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2851 STOP^ 2852 031756 254 04 0 00 031757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2853 031757 324 00 0 00 031760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2854 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2855 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2856 2857 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 59 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0086 2858 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2859 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2860 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2861 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 2862 2863 031760 201 00 0 00 777777 B34300: MOVEI -1 ;PRELOAD AC WITH 0,,-1 2864 031761 544 00 0 00 033730 HLR [-1] ;*HLR SHOULD PLACE 0,,-1 INTO THE AC 2865 031762 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 2866 STOP^ 2867 031763 254 04 0 00 031764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2868 031764 324 00 0 00 031765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2870 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2871 2872 ;********** 2873 2874 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2875 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2876 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 2877 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 2878 2879 031765 205 00 0 00 777777 B34400: MOVSI -1 ;PRELOAD AC WITH -1,,0 2880 031766 504 00 0 00 033732 HRL [0] ;*HRL SHOULD PLACE 0 INTO THE AC 2881 031767 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 2882 STOP^ 2883 031770 254 04 0 00 031771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2884 031771 324 00 0 00 031772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2885 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2886 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2887 2888 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 60 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0087 2889 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2890 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2891 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0. HENCE, THE RESULT IN THE AC 2892 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2893 2894 031772 205 00 0 00 777777 B34500: MOVSI -1 ;PRELOAD AC WITH -1,,0 2895 031773 544 00 0 00 033732 HLR [0] ;*HLR SHOULD PLACE -1,,0 INTO THE AC 2896 031774 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2897 STOP^ 2898 031775 254 04 0 00 031776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2899 031776 324 00 0 00 031777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2900 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2901 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2902 2903 ;********** 2904 2905 ;THIS TEST VERIFIES THAT HRL PLACES THE RIGHT HALF OF C(E) INTO 2906 ;THE LEFT HALF OF THE AC. THE RIGHT HALF OF THE AC IS UNAFFECTED 2907 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 2908 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 2909 2910 031777 205 00 0 00 777777 B34600: MOVSI -1 ;PRELOAD AC WITH -1,,0 2911 032000 504 00 0 00 033730 HRL [-1] ;*HRL SHOULD PLACE -1,,0 INTO THE AC 2912 032001 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 2913 STOP^ 2914 032002 254 04 0 00 032003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2915 032003 324 00 0 00 032004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2916 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2917 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2918 2919 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 61 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0088 2920 ;THIS TEST VERIFIES THAT HLR PLACES THE LEFT HALF OF C(E) INTO 2921 ;THE RIGHT HALF OF THE AC. THE LEFT HALF OF THE AC IS UNAFFECTED. 2922 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=-1,,-1 HENCE, THE RESULT IN THE AC 2923 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 2924 2925 032004 205 00 0 00 777777 B34700: MOVSI -1 ;PRELOAD AC WITH -1,,0 2926 032005 544 00 0 00 033730 HLR [-1] ;*HLR SHOULD PLACE -1,,-1 INTO THE AC 2927 032006 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 2928 STOP^ 2929 032007 254 04 0 00 032010 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2930 032010 324 00 0 00 032011 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2931 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2932 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2933 2934 ;********** 2935 2936 ;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO 2937 ;THE LEFT HALF OF E. THE RIGHT HALF OF E IS UNAFFECTED. 2938 ;IN THIS CASE, AC=E AND C(AC)= C(E)=0. HENCE, THE RESULT IN E 2939 ;SHOULD BE 0. E IS CHECKED FOR 0. IF C(E)=0, THIS TEXT PASSES. 2940 2941 032011 400 00 0 00 000000 B35000: SETZ ;PRELOAD AC,E WITH 0 2942 032012 502 00 0 00 000000 HLLM ;*HLLM SHOULD PLACE 0 INTO E 2943 032013 332 00 0 00 000000 SKIPE ;PASS IF C(E)=0 2944 STOP^ 2945 032014 254 04 0 00 032015 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2946 032015 324 00 0 00 032016 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2947 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2948 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2949 2950 ;***** FAILURE ANALYSIS ***** 2951 ;C(AC0) C(AC1) FAILING SIGNAL 2952 2953 ;-1,,0 0 FC: AD FM + EN 2954 ;0,,-1 0,,-1 ET0: AD RT BR + EN 2955 ;B35000 0,,-1 ET0: BR AR EN 2956 ;-1,,0 0,,-1 ET0: AD LT AR + EN 2957 2958 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 62 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0089 2959 ;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO 2960 ;THE LEFT HALF OF E. THE RIGHT HALF OF E IS UNAFFECTED. 2961 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN E 2962 ;SHOULD BE 0,,-1. E IS CHECKED FOR 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES. 2963 2964 032016 400 00 0 00 000000 B35500: SETZ ;PRELOAD AC WITH 0 2965 032017 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 2966 032020 502 00 0 00 000001 HLLM 1 ;*HLLM SHOULD PLACE 0,,-1 INTO E 2967 032021 302 01 0 00 777777 CAIE 1,- 1 ;PASS IF C(E) =0,,-1 2968 STOP^ 2969 032022 254 04 0 00 032023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2970 032023 324 00 0 00 032024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2971 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2972 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2973 2974 ;***** FAILURE ANALYSIS ***** 2975 ;C(AC0) C(AC1) FAILING SIGNAL 2976 2977 ;0 -1,,-1 SW: FCE PSE 2978 ;0 0 SW: ET0 2979 ;0 -1,,-1 ET0: AR AD EN 2980 ;0 0 ET2: AR LT AD EN 2981 2982 ;********** 2983 2984 ;THIS TEST VERIFIES THAT HLLM PLACES THE LEFT HALF OF C(AC) INTO 2985 ;THE LEFT HALF OF E. THE RIGHT HALF OF E IS UNAFFECTED. 2986 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN E 2987 ;SHOULD BE -1,,0. E IS CHECKED FOR -1,,0. IF C(E)=-1,,0, THIS TEST PASSES 2988 2989 032024 474 00 0 00 000000 B35600: SETO ;PRELOAD AC WITH -1,,-1 2990 032025 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0 2991 032026 502 00 0 00 000001 HLLM 1 ;*HLLM SHOULD PLACE -1,,0 INTO E 2992 032027 312 01 0 00 033731 CAME 1,[XWD -1,0] ;PASS IF C(E) = -1,,0 2993 STOP^ 2994 032030 254 04 0 00 032031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2995 032031 324 00 0 00 032032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2998 2999 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 63 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0090 3000 ;THIS TEST VERIFIES THAT HRRM PLACES THE RIGHT HALF OF C(AC) INTO 3001 ;THE RIGHT HALF OF E. THE LEFT HALF OF E IS UNAFFECTED. 3002 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN E 3003 ;SHOULD BE -1,,0. E IS CHECKED FOR -1,,0 3004 ;IF C(E) = -1,,0, THIS TEST PASSES. 3005 3006 032032 400 00 0 00 000000 B35700: SETZ ;PRELOAD AC WITH 0 3007 032033 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 3008 032034 542 00 0 00 000001 HRRM 1 ;*HRRM SHOULD PLACE -1,,0 INTO E 3009 032035 312 01 0 00 033731 CAME 1,[XWD -1,0] ;PASS IF C(E) = -1,,0 3010 STOP^ 3011 032036 254 04 0 00 032037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3012 032037 324 00 0 00 032040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3013 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3014 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3015 3016 ;***** FAILURE ANALYSIS ***** 3017 ;C(AC0) C(AC1) FAILING SIGNAL 3018 3019 ;0 -1,,-1 SW: FCE PSE 3020 ;0 0 SW: ET0 3021 ;0 -1,,-1 FC: AD FM + EN 3022 ;-1,,-1 -1,,-1 ET0: AD LT BR + EN 3023 ;0 -1,,-1 ET0: AD RT AR + EN 3024 ;0 0 ET0: BR AR EN 3025 ;0 -1,,-1 ET0: AR AD EN 3026 ;0 0 ET2: AR AD EN 3027 3028 ;********** 3029 3030 ;THIS TEST VERIFIES THAT HRRM PLACES THE RIGHT HALF OF C(AC) INTO 3031 ;THE RIGHT HALF OF E. THE LEFT HALF OF E IS UNAFFECTED. 3032 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN E 3033 ;SHOULD BE 0,,-1. E IS CHECKED FOR = 0,,-1 3034 ;IF C(E) = 0,,-1, THIS TEST PASSES. 3035 3036 032040 474 00 0 00 000000 B36000: SETO ;PRELOAD AC WITH -1,,-1 3037 032041 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0 3038 032042 542 00 0 00 000001 HRRM 1 ;*HRRM SHOULD PLACE 0,,-1 INTO E 3039 032043 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E) = 0,,-1 3040 STOP^ 3041 032044 254 04 0 00 032045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3042 032045 324 00 0 00 032046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3045 3046 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 64 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0091 3047 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3048 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3049 ;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1. HENCE THE RESULT IN THE AC 3050 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3051 3052 032046 474 00 0 00 000000 B36100: SETO ;PRELOAD AC WITH -1,,-1 3053 032047 520 00 0 00 000000 HLLO ;*HLLO SHOULD PLACE -1,,-1 INTO THE AC 3054 032050 312 00 0 00 033730 CAME [-1] ;PASS OF C(AC)=-1,,-1 3055 STOP^ 3056 032051 254 04 0 00 032052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3057 032052 324 00 0 00 032053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3058 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3059 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3060 3061 ;***** FAILURE ANALYSIS ***** 3062 ;C(AC0) C(AC1) FAILING SIGNAL 3063 3064 ;0,,-1 SW: FCE 3065 3066 ;********** 3067 3068 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3069 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3070 ;IN THIS CASE, C(AC)=0 AND C(E)=0,,-1. HENCE THE RESULT IN THE AC 3071 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 3072 3073 032053 400 00 0 00 000000 B36200: SETZ ;PRELOAD AC WITH 0 3074 032054 520 00 0 00 033733 HLLO [XWD 0,-1] ;*HLLO SHOULD PLACE 0,,-1 INTO THE AC 3075 032055 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3076 STOP^ 3077 032056 254 04 0 00 032057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3078 032057 324 00 0 00 032060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3079 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3080 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3081 3082 ;***** FAILURE ANALYSIS ***** 3083 ;C(AC0) C(AC1) FAILING SIGNAL 3084 3085 ;-1,,-1 FC: AD LT AR + EN 3086 3087 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 65 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0092 3088 ;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO 3089 ;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3090 ;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT IN THE AC 3091 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3092 3093 032060 474 00 0 00 000000 B36300: SETO ;PRELOAD AC,E WITH -1,,-1 3094 032061 560 00 0 00 000000 HRRO ;*HRRO SHOULD PLACE -1,,-1 INTO THE AC 3095 032062 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3096 STOP^ 3097 032063 254 04 0 00 032064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3098 032064 324 00 0 00 032065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3099 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3100 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3101 3102 ;***** FAILURE ANALYSIS ***** 3103 ;C(AC0) C(AC1) FAILING SIGNAL 3104 3105 ;-1,,0 SW: FCE 3106 3107 ;********** 3108 3109 ;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO 3110 ;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3111 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 3112 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 3113 3114 032065 400 00 0 00 000000 B36400: SETZ ;PRELOAD AC WITH 0 3115 032066 560 00 0 00 033731 HRRO [XWD -1,0] ;*HRRO SHOULD PLACE -1,,0 INTO THE AC 3116 032067 312 00 0 00 033731 CAME [-1,,0] ;PASS IF C(AC)=-1,,0 3117 STOP^ 3118 032070 254 04 0 00 032071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3119 032071 324 00 0 00 032072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3120 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3121 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3122 3123 ;***** FAILURE ANALYSIS ***** 3124 ;C(AC0) C(AC1) FAILING SIGNAL 3125 3126 ;-1,,-1 FC: AD RT AR + EN 3127 3128 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 66 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0093 3129 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3130 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3131 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE THE RESULT IN THE AC 3132 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 3133 3134 032072 400 00 0 00 000000 B36500: SETZ ;PRELOAD AC WITH 0 3135 032073 520 00 0 00 033732 HLLO [0] ;*HLLO SHOULD PLACE 0,,-1 INTO THE AC 3136 032074 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3137 STOP^ 3138 032075 254 04 0 00 032076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3139 032076 324 00 0 00 032077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3140 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3141 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3142 3143 ;***** FAILURE ANALYSIS ***** 3144 ;C(AC0) C(AC1) FAILING SIGNAL 3145 3146 ;0 ET2: AR LT AD EN 3147 3148 ;********** 3149 3150 ;THIS TEST VERIFIES THAT HRRO PLACES THE RIGHT HALF OF C(E) INTO 3151 ;THE RIGHT HALF OF THE AC AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3152 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC 3153 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 3154 3155 032077 400 00 0 00 000000 B36600: SETZ ;PRELOAD AC WITH 0 3156 032100 560 00 0 00 033732 HRRO [0] ;*HRRO SHOULD PLACE -1,,0 INTO THE AC 3157 032101 312 00 0 00 033731 CAME [-1,,0] ;PASS IF C(AC)=-1,,0 3158 STOP^ 3159 032102 254 04 0 00 032103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3160 032103 324 00 0 00 032104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3161 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3162 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3163 3164 ;***** FAILURE ANALYSIS ***** 3165 ;C(AC0) C(AC1) FAILING SIGNAL 3166 3167 ;0 ET2: AR AD EN 3168 3169 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 67 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0094 3170 ;THIS TEST VERIFIES THAT HLLOI ALWAYS PLACES 0,,-1 INTO THE AC. 3171 ;IN THIS CASE, C(AC)=0 AND E=0. 3172 ;THE RESULT IN THE AC SHOULD BE 0,,-1. 3173 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES 3174 3175 032104 400 00 0 00 000000 B37100: SETZ ;PRELOAD AC WITH 0 3176 032105 521 00 0 00 000000 HLLOI ;*HLLOI SHOULD PLACE 0,,-1 INTO THE AC 3177 032106 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3178 STOP^ 3179 032107 254 04 0 00 032110 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3180 032110 324 00 0 00 032111 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3181 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3182 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3183 3184 ;***** FAILURE ANALYSIS ***** 3185 ;C(AC0) C(AC1) FAILING SIGNAL 3186 3187 ;-1,,-1 FC: AD LT AR + EN 3188 ;0 ET2: AR AD EN 3189 3190 ;********** 3191 3192 ;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC 3193 ;AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3194 ;IN THIS CASE, C(AC)=0 AND E=0. HENCE, THE RESULT IN THE AC 3195 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1, THIS TEST PASSES 3196 3197 032111 400 00 0 00 000000 B37200: SETZ ;PRELOAD AC WITH 0 3198 032112 561 00 0 00 000000 HRROI ;*HRROI SHOULD PLACE -1,,0 INTO THE AC 3199 032113 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 3200 STOP^ 3201 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3202 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3203 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3204 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3205 3206 ;***** FAILURE ANALYSIS ***** 3207 ;C(AC0) C(AC1) FAILING SIGNAL 3208 3209 ;-1,,-1 FC: AD RT AR + EN 3210 ;0 ET2: AR AD EN 3211 3212 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 68 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0095 3213 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3214 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3215 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE THE RESULT IN THE AC 3216 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3217 3218 032116 400 00 0 00 000000 B37300: SETZ ;PRELOAD AC WITH 0 3219 032117 520 00 0 00 033731 HLLO [XWD -1,0] ;*HLLO SHOULD PLACE -1,,-1 INTO THE AC 3220 032120 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3221 STOP^ 3222 032121 254 04 0 00 032122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3223 032122 324 00 0 00 032123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3224 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3225 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3226 3227 ;********** 3228 3229 ;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC 3230 ;AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3231 ;IN THIS CASE, C(AC)=0 AND E=0,,-1. HENCE, THE RESULT IN THE AC 3232 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3233 3234 032123 400 00 0 00 000000 B37400: SETZ ;PRELOAD AC WITH 0 3235 032124 561 00 0 00 777777 HRROI -1 ;*HRRIO SHOULD PLACE -1,,-1 INTO THE AC 3236 032125 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3237 STOP^ 3238 032126 254 04 0 00 032127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3239 032127 324 00 0 00 032130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3240 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3241 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3242 3243 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 69 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0096 3244 ;THIS TEST VERIFIES THAT HLLOI ALWAYS PLACES 0,,-1 INTO THE AC. 3245 ;IN THIS CASE, C(AC)=0 AND E=0. 3246 ;THE RESULT IN THE AC SHOULD BE 0,,-1. 3247 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES 3248 3249 032130 474 00 0 00 000000 B37500: SETO ;PRELOAD AC WITH -1,,-1 3250 032131 521 00 0 00 000000 HLLOI ;*HLLOI SHOULD PLACE 0,,-1 INTO THE AC 3251 032132 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3252 STOP^ 3253 032133 254 04 0 00 032134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3254 032134 324 00 0 00 032135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3255 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3256 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3257 3258 ;********** 3259 3260 ;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC 3261 ;AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3262 ;IN THIS CASE, C(AC)=0 AND E=0. HENCE, THE RESULT IN THE AC 3263 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES 3264 3265 032135 474 00 0 00 000000 B37600: SETO ;PRELOAD AC WITH -1,,-1 3266 032136 561 00 0 00 000000 HRROI ;*HRRIO SHOULD PLACE -1,,0 INTO THE AC 3267 032137 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 3268 STOP^ 3269 032140 254 04 0 00 032141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3270 032141 324 00 0 00 032142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3271 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3272 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3273 3274 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 70 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0097 3275 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3276 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3277 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE THE RESULT IN THE AC 3278 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3279 3280 032142 474 00 0 00 000000 B37700: SETO ;PRELOAD AC WITH -1,,-1 3281 032143 520 00 0 00 033731 HLLO [XWD -1,0] ;*HLLO SHOULD PLACE -1,,-1 INTO THE AC 3282 032144 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3283 STOP^ 3284 032145 254 04 0 00 032146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3285 032146 324 00 0 00 032147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3286 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3287 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3288 3289 ;********** 3290 3291 ;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC 3292 ;AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3293 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1. HENCE, THE RESULT IN THE AC 3294 ;SHOULD BE -1,,-1. THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3295 3296 032147 474 00 0 00 000000 B40000: SETO ;PRELOAD AC WITH -1,,-1 3297 032150 561 00 0 00 777777 HRROI -1 ;*HRRIO SHOULD PLACE -1,,-1 INTO THE AC 3298 032151 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3299 STOP^ 3300 032152 254 04 0 00 032153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3301 032153 324 00 0 00 032154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3302 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3303 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3304 3305 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 71 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0098 3306 ;THIS TEST VERIFIES THAT HRROI PLACES E INTO THE RIGHT HALF OF THE AC 3307 ;AND PLACES ONES INTO THE LEFT HALF OF THE AC. 3308 ;IN THIS CASE, C(AC)=0,,-1 AND E=0. HENCE, THE RESULT IN THE AC 3309 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES 3310 3311 032154 201 00 0 00 777777 B40100: MOVEI -1 ;PRELOAD AC WITH 0,,-1 3312 032155 561 00 0 00 000000 HRROI ;*HRRIO SHOULD PLACE -1,,0 INTO THE AC 3313 032156 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0 3314 STOP^ 3315 032157 254 04 0 00 032160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3316 032160 324 00 0 00 032161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3319 3320 ;********** 3321 3322 ;THIS TEST VERIFIES THAT HLLO PLACES THE LEFT HALF OF C(E) INTO 3323 ;THE LEFT HALF OF THE AC AND PLACES ONES INTO THE RIGHT HALF OF THE AC. 3324 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE THE RESULT IN THE AC 3325 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 3326 3327 032161 205 00 0 00 777777 B40200: MOVSI -1 ;PRELOAD AC WITH -1,,0 3328 032162 520 00 0 00 033733 HLLO [XWD 0,-1] ;*HLLO SHOULD PLACE 0,,-1 INTO THE AC 3329 032163 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3330 STOP^ 3331 032164 254 04 0 00 032165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3332 032165 324 00 0 00 032166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3334 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3335 3336 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 72 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0099 3337 ;THIS TEST VERIFIES THAT HRLZ PLACES THE RIGHT HALF OF C(E) 3338 ;INTO THE LEFT HALF OF THE AC. 3339 ;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 3340 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE FINAL RESULT IN THE AC 3341 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 3342 3343 032166 400 00 0 00 000000 B40300: SETZ ;PRELOAD AC WITH 0 3344 032167 514 00 0 00 000000 HRLZ ;*HRLZ SHOULD PLACE 0 INTO THE AC 3345 032170 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3346 STOP^ 3347 032171 254 04 0 00 032172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3348 032172 324 00 0 00 032173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3349 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3350 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3351 3352 ;********** 3353 3354 ;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E) 3355 ;INTO THE RIGHT HALF OF THE AC 3356 ;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC. 3357 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC 3358 ;SHOULD BE 0. THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 3359 3360 032173 400 00 0 00 000000 B40400: SETZ ;PRELOAD AC WITH 0 3361 032174 554 00 0 00 000000 HLRZ ;*HLRZ SHOULD PLACE 0 INTO THE AC 3362 032175 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3363 STOP^ 3364 032176 254 04 0 00 032177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3365 032177 324 00 0 00 032200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3366 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3367 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3368 3369 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 73 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0100 3370 ;THIS TEST VERIFIES THAT HRLZI PLACES E INTO THE LEFT HALF OF THE AC 3371 ;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 3372 ;IN THIS CASE, C(AC)=0 AND E=0,,-1. HENCE THE RESULT IN THE AC 3373 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0 3374 ;IF C(AC)=-1,,0, THIS TEST PASSES. 3375 3376 032200 400 00 0 00 000000 B40700: SETZ ;PRELOAD AC WITH 0 3377 032201 515 00 0 00 777777 HRLZI -1 ;*HRLZI SHOULD PLACE -1,,0 INTO THE AC 3378 032202 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0. 3379 STOP^ 3380 032203 254 04 0 00 032204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3381 032204 324 00 0 00 032205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3382 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3383 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3384 3385 ;***** FAILURE ANALYSIS ***** 3386 ;C(AC0) C(AC1) FAILING SIGNAL 3387 3388 ;0 ET2: AR LT AR RT EN 3389 3390 ;********** 3391 3392 ;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E) 3393 ;INTO THE RIGHT HALF OF THE AC 3394 ;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC. 3395 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 3396 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 3397 3398 032205 400 00 0 00 000000 B41000: SETZ ;PRELOAD AC WITH 0 3399 032206 554 00 0 00 033731 HLRZ [XWD -1,0] ;*HLRZ SHOULD PLACE 0,,-1 INTO THE AC 3400 032207 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3401 STOP^ 3402 032210 254 04 0 00 032211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3403 032211 324 00 0 00 032212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3404 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3405 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3406 3407 ;***** FAILURE ANALYSIS ***** 3408 ;C(AC0) C(AC1) FAILING SIGNAL 3409 3410 ;0 SW: FCE 3411 ;-1,,0 ET2: AR RT AR LT EN 3412 3413 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 74 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0101 3414 ;THIS TEST VERIFIES THAT HRLZI PLACES E INTO THE LEFT HALF OF THE AC 3415 ;AND PLACES ZEROS INTO THE RIGHT HALF OF THE AC. 3416 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1. HENCE THE RESULT IN THE AC 3417 ;SHOULD BE -1,,0. THE AC IS CHECKED FOR -1,,0. 3418 ;IF C(AC)=-1,,0, THIS TEST PASSES. 3419 3420 032212 474 00 0 00 000000 B41100: SETO ;PRELOAD AC WITH -1,,-1 3421 032213 515 00 0 00 777777 HRLZI -1 ;*HRLZI SHOULD PLACE -1,,0 INTO THE AC 3422 032214 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(AC)=-1,,0. 3423 STOP^ 3424 032215 254 04 0 00 032216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3425 032216 324 00 0 00 032217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3426 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3427 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3428 3429 ;********** 3430 3431 ;THIS TEST VERIFIES THAT HLRZ PLACES THE LEFT HALF OF C(E) 3432 ;INTO THE RIGHT HALF OF THE AC 3433 ;AND PLACES ZEROS INTO THE LEFT HALF OF THE AC. 3434 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC 3435 ;SHOULD BE 0,,-1. THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST PASSES. 3436 3437 032217 474 00 0 00 000000 B41200: SETO ;PRELOAD AC WITH -1,,-1 3438 032220 554 00 0 00 033731 HLRZ [XWD -1,0] ;*HLRZ SHOULD PLACE 0,,-1 INTO THE AC 3439 032221 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC)=0,,-1 3440 STOP^ 3441 032222 254 04 0 00 032223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3442 032223 324 00 0 00 032224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3443 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3444 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3445 3446 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 75 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0102 3447 ;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E) 3448 ;INTO THE LEFT HALF OF THE AC 3449 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3450 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0 3451 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 3452 3453 032224 400 00 0 00 000000 B41500: SETZ ;PRELOAD AC WITH 0 3454 032225 530 00 0 00 000000 HLLE ;*HLLE SHOULD PLACE 0 INTO THE AC 3455 032226 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3456 STOP^ 3457 032227 254 04 0 00 032230 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3458 032230 324 00 0 00 032231 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3459 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3460 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3461 3462 ;***** FAILURE ANALYSIS ***** 3463 ;C(AC0) C(AC1) FAILING SIGNAL 3464 3465 ;-1,,0 FC: AD LT AR + EN 3466 3467 ;********** 3468 3469 ;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E) 3470 ;INTO THE LEFT HALF OF THE AC 3471 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3472 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 3473 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3474 3475 032231 400 00 0 00 000000 B41600: SETZ ;PRELOAD AC WITH 0 3476 032232 530 00 0 00 033730 HLLE [-1] ;*HLLE SHOULD PLACE -1,,-1 INTO THE AC 3477 032233 312 00 0 00 033730 CAME [XWD -1,-1] ;PASS IF C(AC)=-1,,-1 3478 STOP^ 3479 032234 254 04 0 00 032235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3480 032235 324 00 0 00 032236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3481 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3482 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3483 3484 ;***** FAILURE ANALYSIS ***** 3485 ;C(AC0) C(AC1) FAILING SIGNAL 3486 3487 ;0 SW: FCE 3488 ;-1,,-1 ET2: AR LT AD EN 3489 ;-1,,0 ET2: AR0(1): AR RT AD EN 3490 3491 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 76 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0103 3492 ;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E) 3493 ;INTO THE RIGHT HALF OF THE AC. 3494 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC. 3495 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 3496 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3497 3498 032236 400 00 0 00 000000 B42000: SETZ ;PRELOAD AC WITH 0 3499 032237 570 00 0 00 033730 HRRE [-1] ;*HRRE SHOULD PLACE -1,,-1 INTO THE AC 3500 032240 312 00 0 00 033730 CAME [-1,,-1] ;PASS IF C(AC)=-1,,-1 3501 STOP^ 3502 032241 254 04 0 00 032242 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3503 032242 324 00 0 00 032243 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3504 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3505 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3506 3507 ;********** 3508 3509 ;THIS TEST VERIFIES THAT HLLE PLACES THE LEFT HALF OF C(E) 3510 ;INTO THE LEFT HALF OF THE AC 3511 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3512 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 3513 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3514 3515 032243 400 00 0 00 000000 B42200: SETZ ;PRELOAD AC WITH 0 3516 032244 530 00 0 00 033731 HLLE [XWD -1,0] ;*HLLE SHOULD PLACE -1,,-1 INTO THE AC 3517 032245 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3518 STOP^ 3519 032246 254 04 0 00 032247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3520 032247 324 00 0 00 032250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3522 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3523 3524 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 77 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0104 3525 ;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E) 3526 ;INTO THE RIGHT HALF OF THE AC. 3527 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC. 3528 ;IN THIS CASE, AC=E AND C(AC)=C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3529 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 3530 3531 032250 400 00 0 00 000000 B42300: SETZ ;PRELOAD AC,E WITH 0 3532 032251 570 00 0 00 000000 HRRE ;*HRRE SHOULD PLACE 0 INTO THE AC 3533 032252 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3534 STOP^ 3535 032253 254 04 0 00 032254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3536 032254 324 00 0 00 032255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3537 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3538 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3539 3540 ;***** FAILURE ANALYSIS ***** 3541 ;C(AC0) C(AC1) FAILING SIGNAL 3542 3543 ;E SW: FCE 3544 ;-1,,0 ET2: AR RT AD EN 3545 ;0,,-1 ET2: AR18(1): AR LT AD EN 3546 ;0,,-1 FC: AR RT AR + EN 3547 3548 ;********** 3549 3550 ;THIS TEST VERIFIES THAT HRRE PLACES THE RIGHT HALF OF C(E) 3551 ;INTO THE RIGHT HALF OF THE AC. 3552 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC. 3553 ;IN THIS CASE C(AC)=0 AND C(E)=-1,,0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3554 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 3555 3556 032255 400 00 0 00 000000 B42500: SETZ ;PRELOAD AC WITH 0 3557 032256 570 00 0 00 033731 HRRE [XWD -1,0] ;*HRRE SHOULD PLACE 0 INTO THE AC 3558 032257 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3559 STOP^ 3560 032260 254 04 0 00 032261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3561 032261 324 00 0 00 032262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3562 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3563 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3564 3565 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 78 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0105 3566 ;THIS TEST VERIFIES THAT HRREI PLACES E INTO THE RIGHT HALF OF THE AC 3567 ;AND PLACES THE LEFTMOST BIT OF E INTO ALL BITS OF THE LEFT HALF OF THE AC 3568 ;IN THIS CASE, C(AC)=0 AND E=0,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 3569 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES. 3570 3571 032262 400 00 0 00 000000 B42700: SETZ ;PRELOAD AC WITH 0 3572 032263 571 00 0 00 777777 HRREI -1 ;*HRREI SHOULD PLACE -1,,-1 INTO THE AC 3573 032264 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3574 STOP^ 3575 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3576 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3577 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3578 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3579 3580 ;***** FAILURE ANALYSIS ***** 3581 ;C(AC0) C(AC1) FAILING SIGNAL 3582 3583 ;-1,,0 ET2: AR RT AD EN 3584 ;0,,-1 ET2: AR18(1): AR LT AD EN 3585 3586 ;********** 3587 3588 ;THIS TEST VERIFIES THAT HLLEI ALWAYS CLEARS THE AC. 3589 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,-1. 3590 ;THE RESULT IN THE AC SHOULD BE 0 3591 ;THE AC IS CHECKED FOR 0. 3592 ;IF C(AC)=0, THIS TEST PASSES. 3593 3594 032267 474 00 0 00 000000 B43000: SETO ;PRELOAD AC WITH -1,,-1 3595 032270 531 00 0 00 777777 HLLEI -1 ;*HLLEI SHOULD CLEAR THE AC 3596 032271 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3597 STOP^ 3598 032272 254 04 0 00 032273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3599 032273 324 00 0 00 032274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3600 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3601 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3602 3603 ;***** FAILURE ANALYSIS ***** 3604 ;C(AC0) C(AC1) FAILING SIGNAL 3605 3606 ;-1,,0 FC: AD LT AR + EN 3607 ;0,,-1 ET2: AR LT AD EN 3608 3609 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 79 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0106 3610 ;THIS TEST VERIFIES THAT HLLEI ALWAYS CLEARS THE AC. 3611 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,400000. 3612 ;THE RESULT IN THE AC SHOULD BE 0 3613 ;THE AC IS CHECKED FOR 0. 3614 ;IF C(AC) = ZERO, THIS TEST PASSES. 3615 3616 032274 474 00 0 00 000000 B43100: SETO ;PRELOAD AC WITH -1,,-1 3617 032275 531 00 0 00 400000 HLLEI 400000 ;*HLLEI SHOULD CLEAR THE AC 3618 032276 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0. 3619 STOP^ 3620 032277 254 04 0 00 032300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3621 032300 324 00 0 00 032301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3622 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3623 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3624 3625 ;********** 3626 3627 ;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E) 3628 ;INTO THE LEFT HALF OF THE AC 3629 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3630 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3631 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST FAILS 3632 3633 032301 400 00 0 00 000000 B43400: SETZ ;PRELOAD AC WITH 0 3634 032302 534 00 0 00 000000 HRLE ;*HRLE SHOULD PLACE 0 INTO THE AC 3635 032303 332 00 0 00 000000 SKIPE ;FAIL IF C(AC)=0,,-1 3636 STOP^ 3637 032304 254 04 0 00 032305 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3638 032305 324 00 0 00 032306 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3639 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3640 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3641 3642 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 80 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0107 3643 ;THIS TEST VERIFIES THAT HRLEI PLACES E INTO THE LEFT HALF OF THE AC 3644 ;AND PLACES THE LEFTMOST BIT OF E INTO ALL BITS OF THE RIGHT HALF OF THE AC 3645 ;IN THIS CASE, C(AC)=0 AND E=0,,-1. HENCE, THE RESULT IN THE AC SHOULD -1,,-1 3646 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=1,,-1, THIS TEST PASSES. 3647 3648 032306 400 00 0 00 000000 B43500: SETZ ;PRELOAD AC WITH 0 3649 032307 535 00 0 00 777777 HRLEI -1 ;*HRLEI SHOULD PLACE -1,,-1 INTO THE AC 3650 032310 312 00 0 00 033730 CAME [XWD -1,-1] ;PASS IF C(AC)=-1,,-1 3651 STOP^ 3652 032311 254 04 0 00 032312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3653 032312 324 00 0 00 032313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3654 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3655 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3656 3657 ;***** FAILURE ANALYSIS ***** 3658 ;C(AC0) C(AC1) FAILING SIGNAL 3659 3660 ;-1,,0 ET2: AR LT AR RT EN 3661 ;-1,,0 ET2: AR 18(1): AR RT AD EN 3662 3663 ;********** 3664 3665 ;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E) 3666 ;INTO THE LEFT HALF OF THE AC 3667 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3668 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3669 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST FAILS 3670 3671 032313 534 00 0 00 033732 B43600: HRLE [0] ;*HRLE SHOULD PLACE 0 INTO THE AC 3672 032314 332 00 0 00 000000 SKIPE ;FAIL IF C(AC)=0,,-1 3673 STOP^ 3674 032315 254 04 0 00 032316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3675 032316 324 00 0 00 032317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3676 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3677 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3678 3679 ;***** FAILURE ANALYSIS ***** 3680 ;C(AC0) C(AC1) FAILING SIGNAL 3681 3682 ;E,,0 SW: FCE 3683 3684 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 81 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0108 3685 ;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E) 3686 ;INTO THE LEFT HALF OF THE AC 3687 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3688 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3689 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST FAILS 3690 3691 032317 534 00 0 00 033730 B43700: HRLE [-1] ;PRELOAD AC WITH 0 3692 032320 312 00 0 00 033730 CAME [-1] ;*HRLE SHOULD PLACE 0 INTO THE AC 3693 STOP ^;FAIL IF C(AC)=0,,-1 3694 3695 032321 254 04 0 00 032322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3696 032322 324 00 0 00 032323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3697 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3698 ;IN THE SUBTEST) TO LOOP ON ERROR 3699 3700 ;***** FAILURE ANALYSIS ***** 3701 ;C(AC0) C(AC1) FAILING SIGNAL 3702 3703 ;-1,,0 ET2: AR LT AR RT EN 3704 ;-1,,0 ET2: AR18(1): AR RT AD EN 3705 3706 ;********** 3707 3708 ;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E) 3709 ;INTO THE LEFT HALF OF THE AC 3710 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3711 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3712 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST FAILS 3713 3714 032323 534 00 0 00 033731 B44000: HRLE [XWD -1,0] ;PRELOAD AC WITH 0 3715 032324 332 00 0 00 000000 SKIPE ;*HRLE SHOULD PLACE 0 INTO THE AC 3716 STOP ^;FAIL IF C(AC)=0,,-1 3717 3718 032325 254 04 0 00 032326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3719 032326 324 00 0 00 032327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3721 ;IN THE SUBTEST) TO LOOP ON ERROR 3722 3723 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 82 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0109 3724 ;THIS TEST VERIFIES THAT HRLE PLACES THE RIGHT HALF OF C(E) 3725 ;INTO THE LEFT HALF OF THE AC 3726 ;AND PLACES BIT 18 OF C(E) INTO ALL BITS OF THE RIGHT HALF OF THE AC. 3727 ;IN THIS CASE, C(AC)=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3728 ;THE AC IS CHECKED FOR 0,,-1. IF C(AC)=0,,-1, THIS TEST FAILS 3729 3730 032327 534 00 0 00 033733 B44100: HRLE [XWD 0,-1] ;PRELOAD AC WITH 0 3731 032330 312 00 0 00 033730 CAME [-1] ;*HRLE SHOULD PLACE 0 INTO THE AC 3732 STOP ^;FAIL IF C(AC)=0,,-1 3733 3734 032331 254 04 0 00 032332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3735 032332 324 00 0 00 032333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3736 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3737 ;IN THE SUBTEST) TO LOOP ON ERROR 3738 3739 ;********** 3740 3741 ;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E) 3742 ;INTO THE RIGHT HALF OF THE AC 3743 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC 3744 ;IN THIS CASE, C(AC=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3745 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 3746 3747 3748 032333 400 00 0 00 000000 B44200: SETZ ;PRELOAD AC WITH 0 3749 032334 574 00 0 00 000000 HLRE ;*HLRE SHOULD PLACE 0 INTO THE AC 3750 032335 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3751 STOP^ 3752 032336 254 04 0 00 032337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3753 032337 324 00 0 00 032340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3754 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3755 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3756 3757 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 83 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0110 3758 ;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E) 3759 ;INTO THE RIGHT HALF OF THE AC 3760 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC 3761 ;IN THIS CASE, C(AC=0 AND C(E)=0. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3762 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 3763 3764 3765 032340 400 00 0 00 000000 B44300: SETZ ;PRELOAD AC WITH 0 3766 032341 574 00 0 00 033730 HLRE [-1] ;*HLRE SHOULD PLACE -1,,-1 INTO THE AC 3767 032342 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3768 STOP^ 3769 032343 254 04 0 00 032344 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3770 032344 324 00 0 00 032345 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3771 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3772 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3773 3774 ;***** FAILURE ANALYSIS ***** 3775 ;C(AC0) C(AC1) FAILING SIGNAL 3776 3777 ;0 SW: FCE 3778 ;-1,,0 ET2: AR RT AR LT EN 3779 ;0,,-1 ET2: AR0(1): AR LT AD EN 3780 3781 ;********** 3782 3783 ;THIS TEST VERIFIES THAT HLREI CLEARS THE AC 3784 ;IN THIS CASE C(AC)=-1,,-1 AND E=0,,-1 3785 ;THE RESULT IN THE AC SHOULD BE 0 3786 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THEN TEST PASSES 3787 3788 032345 474 00 0 00 000000 B44500: SETO ;PRELOAD AC WITH -1,,-1 3789 032346 575 00 0 00 777777 HLREI -1 ;*HLREI SHOULD CLEAR THE AC 3790 032347 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3791 STOP^ 3792 032350 254 04 0 00 032351 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3793 032351 324 00 0 00 032352 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3794 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3795 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3796 3797 ;***** FAILURE ANALYSIS ***** 3798 ;C(AC0) C(AC1) FAILING SIGNAL 3799 3800 ;0,,1 ET2: AR RT AR LT EN 3801 3802 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 84 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0111 3803 ;THIS TEST VERIFIES THAT HLREI CLEARS THE AC 3804 ;IN THIS CASE C(AC)=0 AND E=0 3805 ;THE RESULT IN THE AC SHOULD BE 0 3806 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THE TEST PASSES 3807 3808 032352 575 00 0 00 000000 B44600: HLREI ;*HLREI SHOULD CLEAR THE AC 3809 032353 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3810 STOP^ 3811 032354 254 04 0 00 032355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3812 032355 324 00 0 00 032356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3813 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3814 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3815 3816 ;********** 3817 3818 ;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E) 3819 ;INTO THE RIGHT HALF OF THE AC 3820 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC 3821 ;IN THIS CASE, C(E)=-1,,0. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 3822 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3823 3824 3825 032356 574 00 0 00 033731 B44700: HLRE [XWD -1,0] ;*HLRE SHOULD PLACE -1,,0 INTO THE AC 3826 032357 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3827 STOP^ 3828 032360 254 04 0 00 032361 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3829 032361 324 00 0 00 032362 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3830 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3831 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3832 3833 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 85 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0112 3834 ;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E) 3835 ;INTO THE RIGHT HALF OF THE AC 3836 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC 3837 ;IN THIS CASE, C(E)=0,,-1. HENCE, THE RESULT IN THE AC SHOULD BE 0. 3838 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES 3839 3840 032362 574 00 0 00 033733 B45000: HLRE [XWD 0,-1] ;*HLRE SHOULD PLACE 0,,-1 INTO THE AC 3841 032363 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 3842 STOP^ 3843 032364 254 04 0 00 032365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3844 032365 324 00 0 00 032366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3846 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3847 3848 ;********** 3849 3850 ;THIS TEST VERIFIES THAT HLRE PLACES THE LEFT HALF OF C(E) 3851 ;INTO THE RIGHT HALF OF THE AC 3852 ;AND PLACES BIT 0 OF C(E) INTO ALL BITS OF THE LEFT HALF OF THE AC 3853 ;IN THIS CASE, C(E)=-1,,-1. HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1. 3854 ;THE AC IS CHECKED FOR -1,,-1. IF C(AC)=-1,,-1, THIS TEST PASSES 3855 3856 032366 574 00 0 00 033730 B45100: HLRE [-1] ;*HLRE SHOULD PLACE -1,,-1 INTO THE AC 3857 032367 312 00 0 00 033730 CAME [-1] ;PASS IF C(AC)=-1,,-1 3858 STOP^ 3859 032370 254 04 0 00 032371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3860 032371 324 00 0 00 032372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3861 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3862 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3863 3864 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 86 DSKAC1 MAC 28-Mar-78 12:49 TEST OF HWT INSTRUCTIONS SEQ 0113 3865 ;THIS TEST VERIFIES THAT HLREM PLACES THE LEFT HALF OF C(AC) 3866 ;INTO THE RIGHT HALF OF E 3867 ;AND PLACES BIT 0 OF C(AC) INTO ALL BITS OF THE LEFT HALF OF E. 3868 ;IN THIS CASE, C(AC)=1,,0 AND C(E)=0. HENCE, THE RESULT IN E SHOULD BE -1,,-1. 3869 ;E IS CHECKED FOR -1,,-1. IF C(E)=-1,,-1, THIS TEST PASSES 3870 3871 032372 400 00 0 00 000000 B45200: SETZ ;PRELOAD E WITH 0 3872 032373 200 01 0 00 033731 MOVE 1,[XWD -1,0] ;PRELOAD AC WITH -1,,0 3873 032374 576 01 0 00 000000 HLREM 1, ;*HLREM SHOULD PLACE -1,,-1 INTO E 3874 032375 312 00 0 00 033730 CAME [-1] ;PASS IF C(E)=-1,,-1 3875 STOP^ 3876 032376 254 04 0 00 032377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3877 032377 324 00 0 00 032400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3878 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3879 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3880 3881 ;***** FAILURE ANALYSIS ***** 3882 ;C(AC0) C(AC1) FAILING SIGNAL 3883 3884 ;0 -1,,0 SW: SCE 3885 ;0 -1,,0 SW: ET0 3886 ;0 -1,,0 ET0: AR AD EN 3887 ;-1,,0 -1,,0 ET2: AR RT AR + EN 3888 ;0,,-1 -1,,0 ET2: AR0(1): AR LT AD EN 3889 3890 ;********** 3891 3892 ;THIS TEST VERIFIES THAT HRLM PLACES THE RIGHT HALF OF C(AC) INTO THE LEFT HALF OF E. 3893 ;THE RIGHT HALF OF E IS UNAFFECTED 3894 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=0. HENCE, THE RESULT IN E SHOULD BE -1,,0. 3895 ;E IS CHECKED FOR -1,,0. IF C(E)=-1,,0, THIS TEST PASSES. 3896 3897 032400 400 00 0 00 000000 B45400: SETZ ;PRELOAD E WITH 0 3898 032401 201 01 0 00 777777 MOVEI 1,-1 ;PRELOAD AC WITH 0,,-1 3899 032402 506 01 0 00 000000 HRLM 1, ;*HRLM SHOULD PLACE -1,,0 INTO E 3900 032403 312 00 0 00 033731 CAME [XWD -1,0] ;PASS IF C(E)=-1,,0 3901 STOP^ 3902 032404 254 04 0 00 032405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3903 032405 324 00 0 00 032406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3904 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3905 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3906 3907 ;***** FAILURE ANALYSIS ***** 3908 ;C(AC0) C(AC1) FAILING SIGNAL 3909 3910 ;0 0,,-1 SW: FCE PSE 3911 ;0,,-1 0,,-1 SW: ET0 3912 ;-1,,-1 0,,-1 ET0: AD RT BR + EN 3913 ;-1,,B45400 0,,-1 ET0: BR AR EN 3914 ;0 0,,-1 ET0: AR AD EN 3915 ;0 0,,-1 ET2: AR LT AR RT EN 3916 3917 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0114 3918 SUBTTL SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 3919 3920 ;********** 3921 3922 045500 SN=45500 3923 000000 XX=0 3924 3925 B45500: REPEAT ^D18,< 3926 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 3927 ;IS THE FLOATING ONE. 3928 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 3929 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 3930 3931 SN=SN+1 3932 XX=XX+XX 3933 IFE XX, 3934 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 3935 ADD [0] ;ADD ZERO TO A FLOATING ONE 3936 CAME [XX] ;CHECK ADDER UPON FAILURE 3937 STOP 3938 3939 ;********** 3940 > 3941 3942 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 3943 ;IS THE FLOATING ONE. 3944 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 3945 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 3946 3947 045501 SN=SN+1 3948 000000 XX=XX+XX 3949 000001 IFE XX, 3950 032406 551 00 0 00 000001 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 3951 032407 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 3952 032410 312 00 0 00 033735 CAME [XX] ;CHECK ADDER UPON FAILURE 3953 STOP^ 3954 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3955 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3957 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3958 3959 ;********** 3960 3961 3962 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 3963 ;IS THE FLOATING ONE. 3964 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 3965 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 3966 3967 045502 SN=SN+1 3968 000002 XX=XX+XX 3969 IFE XX, 3970 032413 551 00 0 00 000002 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 3971 032414 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 3972 032415 312 00 0 00 033736 CAME [XX] ;CHECK ADDER UPON FAILURE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-1 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0115 3973 STOP^ 3974 032416 254 04 0 00 032417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3975 032417 324 00 0 00 032420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3977 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3978 3979 ;********** 3980 3981 3982 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 3983 ;IS THE FLOATING ONE. 3984 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 3985 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 3986 3987 045503 SN=SN+1 3988 000004 XX=XX+XX 3989 IFE XX, 3990 032420 551 00 0 00 000004 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 3991 032421 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 3992 032422 312 00 0 00 033737 CAME [XX] ;CHECK ADDER UPON FAILURE 3993 STOP^ 3994 032423 254 04 0 00 032424 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3995 032424 324 00 0 00 032425 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3998 3999 ;********** 4000 4001 4002 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4003 ;IS THE FLOATING ONE. 4004 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4005 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4006 4007 045504 SN=SN+1 4008 000010 XX=XX+XX 4009 IFE XX, 4010 032425 551 00 0 00 000010 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4011 032426 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4012 032427 312 00 0 00 033740 CAME [XX] ;CHECK ADDER UPON FAILURE 4013 STOP^ 4014 032430 254 04 0 00 032431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4015 032431 324 00 0 00 032432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4018 4019 ;********** 4020 4021 4022 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4023 ;IS THE FLOATING ONE. 4024 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4025 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4026 4027 045505 SN=SN+1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-2 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0116 4028 000020 XX=XX+XX 4029 IFE XX, 4030 032432 551 00 0 00 000020 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4031 032433 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4032 032434 312 00 0 00 033741 CAME [XX] ;CHECK ADDER UPON FAILURE 4033 STOP^ 4034 032435 254 04 0 00 032436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4035 032436 324 00 0 00 032437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4038 4039 ;********** 4040 4041 4042 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4043 ;IS THE FLOATING ONE. 4044 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4045 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4046 4047 045506 SN=SN+1 4048 000040 XX=XX+XX 4049 IFE XX, 4050 032437 551 00 0 00 000040 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4051 032440 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4052 032441 312 00 0 00 033742 CAME [XX] ;CHECK ADDER UPON FAILURE 4053 STOP^ 4054 032442 254 04 0 00 032443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4055 032443 324 00 0 00 032444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4056 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4057 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4058 4059 ;********** 4060 4061 4062 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4063 ;IS THE FLOATING ONE. 4064 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4065 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4066 4067 045507 SN=SN+1 4068 000100 XX=XX+XX 4069 IFE XX, 4070 032444 551 00 0 00 000100 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4071 032445 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4072 032446 312 00 0 00 033743 CAME [XX] ;CHECK ADDER UPON FAILURE 4073 STOP^ 4074 032447 254 04 0 00 032450 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4075 032450 324 00 0 00 032451 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4076 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4077 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4078 4079 ;********** 4080 4081 4082 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-3 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0117 4083 ;IS THE FLOATING ONE. 4084 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4085 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4086 4087 045510 SN=SN+1 4088 000200 XX=XX+XX 4089 IFE XX, 4090 032451 551 00 0 00 000200 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4091 032452 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4092 032453 312 00 0 00 033744 CAME [XX] ;CHECK ADDER UPON FAILURE 4093 STOP^ 4094 032454 254 04 0 00 032455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4095 032455 324 00 0 00 032456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4096 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4097 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4098 4099 ;********** 4100 4101 4102 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4103 ;IS THE FLOATING ONE. 4104 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4105 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4106 4107 045511 SN=SN+1 4108 000400 XX=XX+XX 4109 IFE XX, 4110 032456 551 00 0 00 000400 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4111 032457 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4112 032460 312 00 0 00 033745 CAME [XX] ;CHECK ADDER UPON FAILURE 4113 STOP^ 4114 032461 254 04 0 00 032462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4115 032462 324 00 0 00 032463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4116 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4117 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4118 4119 ;********** 4120 4121 4122 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4123 ;IS THE FLOATING ONE. 4124 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4125 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4126 4127 045512 SN=SN+1 4128 001000 XX=XX+XX 4129 IFE XX, 4130 032463 551 00 0 00 001000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4131 032464 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4132 032465 312 00 0 00 033746 CAME [XX] ;CHECK ADDER UPON FAILURE 4133 STOP^ 4134 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4135 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4136 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4137 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-4 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0118 4138 4139 ;********** 4140 4141 4142 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4143 ;IS THE FLOATING ONE. 4144 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4145 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4146 4147 045513 SN=SN+1 4148 002000 XX=XX+XX 4149 IFE XX, 4150 032470 551 00 0 00 002000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4151 032471 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4152 032472 312 00 0 00 033747 CAME [XX] ;CHECK ADDER UPON FAILURE 4153 STOP^ 4154 032473 254 04 0 00 032474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4155 032474 324 00 0 00 032475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4156 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4157 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4158 4159 ;********** 4160 4161 4162 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4163 ;IS THE FLOATING ONE. 4164 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4165 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4166 4167 045514 SN=SN+1 4168 004000 XX=XX+XX 4169 IFE XX, 4170 032475 551 00 0 00 004000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4171 032476 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4172 032477 312 00 0 00 033750 CAME [XX] ;CHECK ADDER UPON FAILURE 4173 STOP^ 4174 032500 254 04 0 00 032501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4175 032501 324 00 0 00 032502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4176 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4177 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4178 4179 ;********** 4180 4181 4182 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4183 ;IS THE FLOATING ONE. 4184 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4185 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4186 4187 045515 SN=SN+1 4188 010000 XX=XX+XX 4189 IFE XX, 4190 032502 551 00 0 00 010000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4191 032503 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4192 032504 312 00 0 00 033751 CAME [XX] ;CHECK ADDER UPON FAILURE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-5 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0119 4193 STOP^ 4194 032505 254 04 0 00 032506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4195 032506 324 00 0 00 032507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4196 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4197 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4198 4199 ;********** 4200 4201 4202 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4203 ;IS THE FLOATING ONE. 4204 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4205 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4206 4207 045516 SN=SN+1 4208 020000 XX=XX+XX 4209 IFE XX, 4210 032507 551 00 0 00 020000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4211 032510 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4212 032511 312 00 0 00 033752 CAME [XX] ;CHECK ADDER UPON FAILURE 4213 STOP^ 4214 032512 254 04 0 00 032513 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4215 032513 324 00 0 00 032514 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4218 4219 ;********** 4220 4221 4222 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4223 ;IS THE FLOATING ONE. 4224 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4225 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4226 4227 045517 SN=SN+1 4228 040000 XX=XX+XX 4229 IFE XX, 4230 032514 551 00 0 00 040000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4231 032515 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4232 032516 312 00 0 00 033753 CAME [XX] ;CHECK ADDER UPON FAILURE 4233 STOP^ 4234 032517 254 04 0 00 032520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4235 032520 324 00 0 00 032521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4236 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4237 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4238 4239 ;********** 4240 4241 4242 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4243 ;IS THE FLOATING ONE. 4244 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4245 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4246 4247 045520 SN=SN+1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-6 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0120 4248 100000 XX=XX+XX 4249 IFE XX, 4250 032521 551 00 0 00 100000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4251 032522 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4252 032523 312 00 0 00 033754 CAME [XX] ;CHECK ADDER UPON FAILURE 4253 STOP^ 4254 032524 254 04 0 00 032525 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4255 032525 324 00 0 00 032526 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4256 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4257 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4258 4259 ;********** 4260 4261 4262 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4263 ;IS THE FLOATING ONE. 4264 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4265 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4266 4267 045521 SN=SN+1 4268 200000 XX=XX+XX 4269 IFE XX, 4270 032526 551 00 0 00 200000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4271 032527 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4272 032530 312 00 0 00 033755 CAME [XX] ;CHECK ADDER UPON FAILURE 4273 STOP^ 4274 032531 254 04 0 00 032532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4275 032532 324 00 0 00 032533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4276 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4277 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4278 4279 ;********** 4280 4281 4282 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4283 ;IS THE FLOATING ONE. 4284 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4285 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4286 4287 045522 SN=SN+1 4288 400000 XX=XX+XX 4289 IFE XX, 4290 032533 551 00 0 00 400000 HRRZI XX ;PRELOAD AC WITH FLOATING ONE 4291 032534 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4292 032535 312 00 0 00 033756 CAME [XX] ;CHECK ADDER UPON FAILURE 4293 STOP^ 4294 032536 254 04 0 00 032537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4295 032537 324 00 0 00 032540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4296 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4297 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4298 4299 ;********** 4300 4301 PAGE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-7 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0121 4302 000000 XX=0 4303 4304 REPEAT ^D18,< 4305 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4306 ;IS THE FLOATING ONE. 4307 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4308 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4309 4310 SN=SN+1 4311 XX=XX+XX 4312 IFE XX, 4313 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4314 ADD [0] ;ADD ZERO TO A FLOATING ONE 4315 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4316 STOP 4317 4318 ;********** 4319 > 4320 4321 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4322 ;IS THE FLOATING ONE. 4323 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4324 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4325 4326 045523 SN=SN+1 4327 000000 XX=XX+XX 4328 000001 IFE XX, 4329 032540 515 00 0 00 000001 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4330 032541 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4331 032542 312 00 0 00 033757 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4332 STOP ^ 4333 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4334 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4336 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4337 4338 ;********** 4339 4340 4341 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4342 ;IS THE FLOATING ONE. 4343 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4344 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4345 4346 045524 SN=SN+1 4347 000002 XX=XX+XX 4348 IFE XX, 4349 032545 515 00 0 00 000002 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4350 032546 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4351 032547 312 00 0 00 033760 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4352 STOP ^ 4353 032550 254 04 0 00 032551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4354 032551 324 00 0 00 032552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4356 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-8 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0122 4357 4358 ;********** 4359 4360 4361 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4362 ;IS THE FLOATING ONE. 4363 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4364 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4365 4366 045525 SN=SN+1 4367 000004 XX=XX+XX 4368 IFE XX, 4369 032552 515 00 0 00 000004 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4370 032553 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4371 032554 312 00 0 00 033761 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4372 STOP ^ 4373 032555 254 04 0 00 032556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4374 032556 324 00 0 00 032557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4375 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4376 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4377 4378 ;********** 4379 4380 4381 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4382 ;IS THE FLOATING ONE. 4383 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4384 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4385 4386 045526 SN=SN+1 4387 000010 XX=XX+XX 4388 IFE XX, 4389 032557 515 00 0 00 000010 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4390 032560 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4391 032561 312 00 0 00 033762 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4392 STOP ^ 4393 032562 254 04 0 00 032563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4394 032563 324 00 0 00 032564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4395 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4396 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4397 4398 ;********** 4399 4400 4401 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4402 ;IS THE FLOATING ONE. 4403 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4404 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4405 4406 045527 SN=SN+1 4407 000020 XX=XX+XX 4408 IFE XX, 4409 032564 515 00 0 00 000020 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4410 032565 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4411 032566 312 00 0 00 033763 CAME [XX,,0] ;CHECK ADDER UPON FALIRE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-9 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0123 4412 STOP ^ 4413 032567 254 04 0 00 032570 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4414 032570 324 00 0 00 032571 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4416 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4417 4418 ;********** 4419 4420 4421 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4422 ;IS THE FLOATING ONE. 4423 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4424 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4425 4426 045530 SN=SN+1 4427 000040 XX=XX+XX 4428 IFE XX, 4429 032571 515 00 0 00 000040 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4430 032572 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4431 032573 312 00 0 00 033764 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4432 STOP ^ 4433 032574 254 04 0 00 032575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4434 032575 324 00 0 00 032576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4437 4438 ;********** 4439 4440 4441 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4442 ;IS THE FLOATING ONE. 4443 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4444 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4445 4446 045531 SN=SN+1 4447 000100 XX=XX+XX 4448 IFE XX, 4449 032576 515 00 0 00 000100 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4450 032577 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4451 032600 312 00 0 00 033765 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4452 STOP ^ 4453 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4454 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4455 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4456 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4457 4458 ;********** 4459 4460 4461 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4462 ;IS THE FLOATING ONE. 4463 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4464 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4465 4466 045532 SN=SN+1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-10 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0124 4467 000200 XX=XX+XX 4468 IFE XX, 4469 032603 515 00 0 00 000200 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4470 032604 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4471 032605 312 00 0 00 033766 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4472 STOP ^ 4473 032606 254 04 0 00 032607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4474 032607 324 00 0 00 032610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4475 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4476 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4477 4478 ;********** 4479 4480 4481 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4482 ;IS THE FLOATING ONE. 4483 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4484 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4485 4486 045533 SN=SN+1 4487 000400 XX=XX+XX 4488 IFE XX, 4489 032610 515 00 0 00 000400 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4490 032611 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4491 032612 312 00 0 00 033767 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4492 STOP ^ 4493 032613 254 04 0 00 032614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4494 032614 324 00 0 00 032615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4497 4498 ;********** 4499 4500 4501 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4502 ;IS THE FLOATING ONE. 4503 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4504 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4505 4506 045534 SN=SN+1 4507 001000 XX=XX+XX 4508 IFE XX, 4509 032615 515 00 0 00 001000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4510 032616 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4511 032617 312 00 0 00 033770 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4512 STOP ^ 4513 032620 254 04 0 00 032621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4514 032621 324 00 0 00 032622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4515 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4516 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4517 4518 ;********** 4519 4520 4521 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-11 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0125 4522 ;IS THE FLOATING ONE. 4523 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4524 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4525 4526 045535 SN=SN+1 4527 002000 XX=XX+XX 4528 IFE XX, 4529 032622 515 00 0 00 002000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4530 032623 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4531 032624 312 00 0 00 033771 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4532 STOP ^ 4533 032625 254 04 0 00 032626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4534 032626 324 00 0 00 032627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4535 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4536 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4537 4538 ;********** 4539 4540 4541 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4542 ;IS THE FLOATING ONE. 4543 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4544 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4545 4546 045536 SN=SN+1 4547 004000 XX=XX+XX 4548 IFE XX, 4549 032627 515 00 0 00 004000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4550 032630 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4551 032631 312 00 0 00 033772 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4552 STOP ^ 4553 032632 254 04 0 00 032633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4554 032633 324 00 0 00 032634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4557 4558 ;********** 4559 4560 4561 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4562 ;IS THE FLOATING ONE. 4563 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4564 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4565 4566 045537 SN=SN+1 4567 010000 XX=XX+XX 4568 IFE XX, 4569 032634 515 00 0 00 010000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4570 032635 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4571 032636 312 00 0 00 033773 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4572 STOP ^ 4573 032637 254 04 0 00 032640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4574 032640 324 00 0 00 032641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4575 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4576 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-12 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0126 4577 4578 ;********** 4579 4580 4581 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4582 ;IS THE FLOATING ONE. 4583 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4584 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4585 4586 045540 SN=SN+1 4587 020000 XX=XX+XX 4588 IFE XX, 4589 032641 515 00 0 00 020000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4590 032642 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4591 032643 312 00 0 00 033774 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4592 STOP ^ 4593 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4594 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4595 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4596 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4597 4598 ;********** 4599 4600 4601 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4602 ;IS THE FLOATING ONE. 4603 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4604 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4605 4606 045541 SN=SN+1 4607 040000 XX=XX+XX 4608 IFE XX, 4609 032646 515 00 0 00 040000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4610 032647 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4611 032650 312 00 0 00 033775 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4612 STOP ^ 4613 032651 254 04 0 00 032652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4614 032652 324 00 0 00 032653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4615 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4616 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4617 4618 ;********** 4619 4620 4621 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4622 ;IS THE FLOATING ONE. 4623 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4624 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4625 4626 045542 SN=SN+1 4627 100000 XX=XX+XX 4628 IFE XX, 4629 032653 515 00 0 00 100000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4630 032654 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4631 032655 312 00 0 00 033776 CAME [XX,,0] ;CHECK ADDER UPON FALIRE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 87-13 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + 0 SEQ 0127 4632 STOP ^ 4633 032656 254 04 0 00 032657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4634 032657 324 00 0 00 032660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4635 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4636 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4637 4638 ;********** 4639 4640 4641 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4642 ;IS THE FLOATING ONE. 4643 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4644 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4645 4646 045543 SN=SN+1 4647 200000 XX=XX+XX 4648 IFE XX, 4649 032660 515 00 0 00 200000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4650 032661 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4651 032662 312 00 0 00 033777 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4652 STOP ^ 4653 032663 254 04 0 00 032664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4654 032664 324 00 0 00 032665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4656 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4657 4658 ;********** 4659 4660 4661 ;THIS TEST VERIFIES THAT THE RESULT OF A ZERO ADDED TO A FLOATING ONE 4662 ;IS THE FLOATING ONE. 4663 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 4664 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4665 4666 045544 SN=SN+1 4667 400000 XX=XX+XX 4668 IFE XX, 4669 032665 515 00 0 00 400000 HRLZI XX ;PRELOAD AC WITH FLOATING ONE 4670 032666 270 00 0 00 033732 ADD [0] ;ADD ZERO TO A FLOATING ONE 4671 032667 312 00 0 00 034000 CAME [XX,,0] ;CHECK ADDER UPON FALIRE 4672 STOP ^ 4673 032670 254 04 0 00 032671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4674 032671 324 00 0 00 032672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4675 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4676 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4677 4678 ;********** 4679 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0128 4680 SUBTTL SUPPLEMENTARY ADDER TESTS - O + FLT 0 4681 4682 ;********** 4683 4684 045600 SN=45600 4685 B45600: REPEAT ^D18,< 4686 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4687 ;IS THE FLOATING ZERO. 4688 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4689 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4690 4691 SN=SN+1 4692 XX=&777777 4693 IFE , 4694 SETZ ;PRELOAD AC WITH 0 4695 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4696 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4697 STOP 4698 4699 ;********** 4700 > 4701 4702 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4703 ;IS THE FLOATING ZERO. 4704 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4705 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4706 4707 045601 SN=SN+1 4708 000001 XX=&777777 4709 777776 IFE , 4710 032672 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4711 032673 270 00 0 00 034001 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4712 032674 312 00 0 00 034001 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4713 STOP ^ 4714 032675 254 04 0 00 032676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4715 032676 324 00 0 00 032677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4716 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4717 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4718 4719 ;********** 4720 4721 4722 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4723 ;IS THE FLOATING ZERO. 4724 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4725 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4726 4727 045602 SN=SN+1 4728 777775 XX=&777777 4729 IFE , 4730 032677 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4731 032700 270 00 0 00 034002 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4732 032701 312 00 0 00 034002 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4733 STOP ^ 4734 032702 254 04 0 00 032703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-1 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0129 4735 032703 324 00 0 00 032704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4736 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4737 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4738 4739 ;********** 4740 4741 4742 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4743 ;IS THE FLOATING ZERO. 4744 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4745 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4746 4747 045603 SN=SN+1 4748 777773 XX=&777777 4749 IFE , 4750 032704 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4751 032705 270 00 0 00 034003 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4752 032706 312 00 0 00 034003 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4753 STOP ^ 4754 032707 254 04 0 00 032710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4755 032710 324 00 0 00 032711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4756 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4757 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4758 4759 ;********** 4760 4761 4762 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4763 ;IS THE FLOATING ZERO. 4764 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4765 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4766 4767 045604 SN=SN+1 4768 777767 XX=&777777 4769 IFE , 4770 032711 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4771 032712 270 00 0 00 034004 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4772 032713 312 00 0 00 034004 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4773 STOP ^ 4774 032714 254 04 0 00 032715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4775 032715 324 00 0 00 032716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4778 4779 ;********** 4780 4781 4782 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4783 ;IS THE FLOATING ZERO. 4784 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4785 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4786 4787 045605 SN=SN+1 4788 777757 XX=&777777 4789 IFE , DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-2 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0130 4790 032716 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4791 032717 270 00 0 00 034005 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4792 032720 312 00 0 00 034005 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4793 STOP ^ 4794 032721 254 04 0 00 032722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4795 032722 324 00 0 00 032723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4798 4799 ;********** 4800 4801 4802 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4803 ;IS THE FLOATING ZERO. 4804 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4805 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4806 4807 045606 SN=SN+1 4808 777737 XX=&777777 4809 IFE , 4810 032723 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4811 032724 270 00 0 00 034006 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4812 032725 312 00 0 00 034006 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4813 STOP ^ 4814 032726 254 04 0 00 032727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4815 032727 324 00 0 00 032730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4816 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4817 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4818 4819 ;********** 4820 4821 4822 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4823 ;IS THE FLOATING ZERO. 4824 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4825 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4826 4827 045607 SN=SN+1 4828 777677 XX=&777777 4829 IFE , 4830 032730 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4831 032731 270 00 0 00 034007 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4832 032732 312 00 0 00 034007 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4833 STOP ^ 4834 032733 254 04 0 00 032734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4835 032734 324 00 0 00 032735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4837 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4838 4839 ;********** 4840 4841 4842 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4843 ;IS THE FLOATING ZERO. 4844 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-3 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0131 4845 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4846 4847 045610 SN=SN+1 4848 777577 XX=&777777 4849 IFE , 4850 032735 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4851 032736 270 00 0 00 034010 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4852 032737 312 00 0 00 034010 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4853 STOP ^ 4854 032740 254 04 0 00 032741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4855 032741 324 00 0 00 032742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4856 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4857 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4858 4859 ;********** 4860 4861 4862 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4863 ;IS THE FLOATING ZERO. 4864 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4865 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4866 4867 045611 SN=SN+1 4868 777377 XX=&777777 4869 IFE , 4870 032742 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4871 032743 270 00 0 00 034011 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4872 032744 312 00 0 00 034011 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4873 STOP ^ 4874 032745 254 04 0 00 032746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4875 032746 324 00 0 00 032747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4876 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4877 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4878 4879 ;********** 4880 4881 4882 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4883 ;IS THE FLOATING ZERO. 4884 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4885 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4886 4887 045612 SN=SN+1 4888 776777 XX=&777777 4889 IFE , 4890 032747 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4891 032750 270 00 0 00 034012 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4892 032751 312 00 0 00 034012 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4893 STOP ^ 4894 032752 254 04 0 00 032753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4895 032753 324 00 0 00 032754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4896 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4897 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4898 4899 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-4 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0132 4900 4901 4902 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4903 ;IS THE FLOATING ZERO. 4904 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4905 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4906 4907 045613 SN=SN+1 4908 775777 XX=&777777 4909 IFE , 4910 032754 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4911 032755 270 00 0 00 034013 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4912 032756 312 00 0 00 034013 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4913 STOP ^ 4914 032757 254 04 0 00 032760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4915 032760 324 00 0 00 032761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4916 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4917 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4918 4919 ;********** 4920 4921 4922 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4923 ;IS THE FLOATING ZERO. 4924 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4925 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4926 4927 045614 SN=SN+1 4928 773777 XX=&777777 4929 IFE , 4930 032761 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4931 032762 270 00 0 00 034014 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4932 032763 312 00 0 00 034014 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4933 STOP ^ 4934 032764 254 04 0 00 032765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4935 032765 324 00 0 00 032766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4936 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4937 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4938 4939 ;********** 4940 4941 4942 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4943 ;IS THE FLOATING ZERO. 4944 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4945 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4946 4947 045615 SN=SN+1 4948 767777 XX=&777777 4949 IFE , 4950 032766 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4951 032767 270 00 0 00 034015 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4952 032770 312 00 0 00 034015 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4953 STOP ^ 4954 032771 254 04 0 00 032772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-5 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0133 4955 032772 324 00 0 00 032773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4957 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4958 4959 ;********** 4960 4961 4962 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4963 ;IS THE FLOATING ZERO. 4964 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4965 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4966 4967 045616 SN=SN+1 4968 757777 XX=&777777 4969 IFE , 4970 032773 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4971 032774 270 00 0 00 034016 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4972 032775 312 00 0 00 034016 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4973 STOP ^ 4974 032776 254 04 0 00 032777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4975 032777 324 00 0 00 033000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4977 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4978 4979 ;********** 4980 4981 4982 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 4983 ;IS THE FLOATING ZERO. 4984 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 4985 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 4986 4987 045617 SN=SN+1 4988 737777 XX=&777777 4989 IFE , 4990 033000 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 4991 033001 270 00 0 00 034017 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 4992 033002 312 00 0 00 034017 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 4993 STOP ^ 4994 033003 254 04 0 00 033004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4995 033004 324 00 0 00 033005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4998 4999 ;********** 5000 5001 5002 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5003 ;IS THE FLOATING ZERO. 5004 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 5005 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5006 5007 045620 SN=SN+1 5008 677777 XX=&777777 5009 IFE , DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-6 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0134 5010 033005 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5011 033006 270 00 0 00 034020 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 5012 033007 312 00 0 00 034020 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 5013 STOP ^ 5014 033010 254 04 0 00 033011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5015 033011 324 00 0 00 033012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5018 5019 ;********** 5020 5021 5022 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5023 ;IS THE FLOATING ZERO. 5024 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 5025 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5026 5027 045621 SN=SN+1 5028 577777 XX=&777777 5029 IFE , 5030 033012 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5031 033013 270 00 0 00 034021 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 5032 033014 312 00 0 00 034021 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 5033 STOP ^ 5034 033015 254 04 0 00 033016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5035 033016 324 00 0 00 033017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5038 5039 ;********** 5040 5041 5042 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5043 ;IS THE FLOATING ZERO. 5044 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 5045 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5046 5047 045622 SN=SN+1 5048 377777 XX=&777777 5049 IFE , 5050 033017 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5051 033020 270 00 0 00 034022 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ZERO 5052 033021 312 00 0 00 034022 CAME [-1,,XX] ;CHECK ADDER UPON FAILURE 5053 STOP ^ 5054 033022 254 04 0 00 033023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5055 033023 324 00 0 00 033024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5056 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5057 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5058 5059 ;********** 5060 5061 PAGE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-7 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0135 5062 000000 XX=0 5063 5064 REPEAT ^D18,< 5065 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5066 ;IS THE FLOATING ZERO. 5067 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5068 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5069 5070 SN=SN+1 5071 XX=&777777 5072 IFE , 5073 SETZ ;PRELOAD AC WITH 0 5074 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5075 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5076 STOP 5077 5078 ;********** 5079 > 5080 5081 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5082 ;IS THE FLOATING ZERO. 5083 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5084 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5085 5086 045623 SN=SN+1 5087 000001 XX=&777777 5088 777776 IFE , 5089 033024 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5090 033025 270 00 0 00 034023 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5091 033026 312 00 0 00 034023 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5092 STOP ^ 5093 033027 254 04 0 00 033030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5094 033030 324 00 0 00 033031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5096 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5097 5098 ;********** 5099 5100 5101 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5102 ;IS THE FLOATING ZERO. 5103 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5104 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5105 5106 045624 SN=SN+1 5107 777775 XX=&777777 5108 IFE , 5109 033031 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5110 033032 270 00 0 00 034024 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5111 033033 312 00 0 00 034024 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5112 STOP ^ 5113 033034 254 04 0 00 033035 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5114 033035 324 00 0 00 033036 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5116 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-8 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0136 5117 5118 ;********** 5119 5120 5121 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5122 ;IS THE FLOATING ZERO. 5123 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5124 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5125 5126 045625 SN=SN+1 5127 777773 XX=&777777 5128 IFE , 5129 033036 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5130 033037 270 00 0 00 034025 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5131 033040 312 00 0 00 034025 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5132 STOP ^ 5133 033041 254 04 0 00 033042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5134 033042 324 00 0 00 033043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5135 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5136 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5137 5138 ;********** 5139 5140 5141 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5142 ;IS THE FLOATING ZERO. 5143 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5144 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5145 5146 045626 SN=SN+1 5147 777767 XX=&777777 5148 IFE , 5149 033043 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5150 033044 270 00 0 00 034026 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5151 033045 312 00 0 00 034026 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5152 STOP ^ 5153 033046 254 04 0 00 033047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5154 033047 324 00 0 00 033050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5156 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5157 5158 ;********** 5159 5160 5161 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5162 ;IS THE FLOATING ZERO. 5163 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5164 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5165 5166 045627 SN=SN+1 5167 777757 XX=&777777 5168 IFE , 5169 033050 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5170 033051 270 00 0 00 034027 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5171 033052 312 00 0 00 034027 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-9 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0137 5172 STOP ^ 5173 033053 254 04 0 00 033054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5174 033054 324 00 0 00 033055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5175 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5176 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5177 5178 ;********** 5179 5180 5181 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5182 ;IS THE FLOATING ZERO. 5183 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5184 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5185 5186 045630 SN=SN+1 5187 777737 XX=&777777 5188 IFE , 5189 033055 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5190 033056 270 00 0 00 034030 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5191 033057 312 00 0 00 034030 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5192 STOP ^ 5193 033060 254 04 0 00 033061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5194 033061 324 00 0 00 033062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5195 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5196 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5197 5198 ;********** 5199 5200 5201 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5202 ;IS THE FLOATING ZERO. 5203 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5204 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5205 5206 045631 SN=SN+1 5207 777677 XX=&777777 5208 IFE , 5209 033062 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5210 033063 270 00 0 00 034031 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5211 033064 312 00 0 00 034031 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5212 STOP ^ 5213 033065 254 04 0 00 033066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5214 033066 324 00 0 00 033067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5215 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5216 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5217 5218 ;********** 5219 5220 5221 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5222 ;IS THE FLOATING ZERO. 5223 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5224 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5225 5226 045632 SN=SN+1 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-10 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0138 5227 777577 XX=&777777 5228 IFE , 5229 033067 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5230 033070 270 00 0 00 034032 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5231 033071 312 00 0 00 034032 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5232 STOP ^ 5233 033072 254 04 0 00 033073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5234 033073 324 00 0 00 033074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5235 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5236 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5237 5238 ;********** 5239 5240 5241 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5242 ;IS THE FLOATING ZERO. 5243 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5244 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5245 5246 045633 SN=SN+1 5247 777377 XX=&777777 5248 IFE , 5249 033074 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5250 033075 270 00 0 00 034033 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5251 033076 312 00 0 00 034033 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5252 STOP ^ 5253 033077 254 04 0 00 033100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5254 033100 324 00 0 00 033101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5255 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5256 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5257 5258 ;********** 5259 5260 5261 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5262 ;IS THE FLOATING ZERO. 5263 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5264 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5265 5266 045634 SN=SN+1 5267 776777 XX=&777777 5268 IFE , 5269 033101 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5270 033102 270 00 0 00 034034 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5271 033103 312 00 0 00 034034 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5272 STOP ^ 5273 033104 254 04 0 00 033105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5274 033105 324 00 0 00 033106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5275 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5276 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5277 5278 ;********** 5279 5280 5281 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-11 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0139 5282 ;IS THE FLOATING ZERO. 5283 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5284 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5285 5286 045635 SN=SN+1 5287 775777 XX=&777777 5288 IFE , 5289 033106 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5290 033107 270 00 0 00 034035 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5291 033110 312 00 0 00 034035 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5292 STOP ^ 5293 033111 254 04 0 00 033112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5294 033112 324 00 0 00 033113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5297 5298 ;********** 5299 5300 5301 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5302 ;IS THE FLOATING ZERO. 5303 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5304 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5305 5306 045636 SN=SN+1 5307 773777 XX=&777777 5308 IFE , 5309 033113 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5310 033114 270 00 0 00 034036 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5311 033115 312 00 0 00 034036 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5312 STOP ^ 5313 033116 254 04 0 00 033117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5314 033117 324 00 0 00 033120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5315 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5316 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5317 5318 ;********** 5319 5320 5321 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5322 ;IS THE FLOATING ZERO. 5323 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5324 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5325 5326 045637 SN=SN+1 5327 767777 XX=&777777 5328 IFE , 5329 033120 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5330 033121 270 00 0 00 034037 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5331 033122 312 00 0 00 034037 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5332 STOP ^ 5333 033123 254 04 0 00 033124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5334 033124 324 00 0 00 033125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5335 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5336 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-12 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0140 5337 5338 ;********** 5339 5340 5341 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5342 ;IS THE FLOATING ZERO. 5343 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5344 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5345 5346 045640 SN=SN+1 5347 757777 XX=&777777 5348 IFE , 5349 033125 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5350 033126 270 00 0 00 034040 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5351 033127 312 00 0 00 034040 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5352 STOP ^ 5353 033130 254 04 0 00 033131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5354 033131 324 00 0 00 033132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5356 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5357 5358 ;********** 5359 5360 5361 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5362 ;IS THE FLOATING ZERO. 5363 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5364 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5365 5366 045641 SN=SN+1 5367 737777 XX=&777777 5368 IFE , 5369 033132 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5370 033133 270 00 0 00 034041 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5371 033134 312 00 0 00 034041 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5372 STOP ^ 5373 033135 254 04 0 00 033136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5374 033136 324 00 0 00 033137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5375 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5376 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5377 5378 ;********** 5379 5380 5381 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5382 ;IS THE FLOATING ZERO. 5383 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5384 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5385 5386 045642 SN=SN+1 5387 677777 XX=&777777 5388 IFE , 5389 033137 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5390 033140 270 00 0 00 034042 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5391 033141 312 00 0 00 034042 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 88-13 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - O + FLT 0 SEQ 0141 5392 STOP ^ 5393 033142 254 04 0 00 033143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5394 033143 324 00 0 00 033144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5395 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5396 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5397 5398 ;********** 5399 5400 5401 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5402 ;IS THE FLOATING ZERO. 5403 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5404 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5405 5406 045643 SN=SN+1 5407 577777 XX=&777777 5408 IFE , 5409 033144 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5410 033145 270 00 0 00 034043 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5411 033146 312 00 0 00 034043 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5412 STOP ^ 5413 033147 254 04 0 00 033150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5414 033150 324 00 0 00 033151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5416 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5417 5418 ;********** 5419 5420 5421 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO ADDED TO A ZERO 5422 ;IS THE FLOATING ZERO. 5423 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5424 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5425 5426 045644 SN=SN+1 5427 377777 XX=&777777 5428 IFE , 5429 033151 400 00 0 00 000000 SETZ ;PRELOAD AC WITH 0 5430 033152 270 00 0 00 034044 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ZERO 5431 033153 312 00 0 00 034044 CAME [XX,,-1] ;CHECK ADDER UPON FAILURE 5432 STOP ^ 5433 033154 254 04 0 00 033155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5434 033155 324 00 0 00 033156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5437 5438 ;********** 5439 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0142 5440 SUBTTL SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 5441 5442 ;********** 5443 5444 045700 SN=45700 5445 000000 XX=0 5446 5447 B45700: REPEAT ^D17,< 5448 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5449 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5450 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5451 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5452 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5453 5454 SN=SN+1 5455 XX=XX+XX 5456 IFE XX, 5457 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5458 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5459 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5460 STOP 5461 5462 ;********** 5463 > 5464 5465 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5466 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5467 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5468 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5469 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5470 5471 045701 SN=SN+1 5472 000000 XX=XX+XX 5473 000001 IFE XX, 5474 033156 551 00 0 00 000001 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5475 033157 270 00 0 00 033735 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5476 033160 312 00 0 00 033736 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5477 STOP ^ 5478 033161 254 04 0 00 033162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5479 033162 324 00 0 00 033163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5480 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5481 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5482 5483 ;********** 5484 5485 5486 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5487 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5488 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5489 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5490 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5491 5492 045702 SN=SN+1 5493 000002 XX=XX+XX 5494 IFE XX, DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-1 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0143 5495 033163 551 00 0 00 000002 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5496 033164 270 00 0 00 033736 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5497 033165 312 00 0 00 033737 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5498 STOP ^ 5499 033166 254 04 0 00 033167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5500 033167 324 00 0 00 033170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5501 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5502 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5503 5504 ;********** 5505 5506 5507 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5508 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5509 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5510 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5511 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5512 5513 045703 SN=SN+1 5514 000004 XX=XX+XX 5515 IFE XX, 5516 033170 551 00 0 00 000004 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5517 033171 270 00 0 00 033737 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5518 033172 312 00 0 00 033740 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5519 STOP ^ 5520 033173 254 04 0 00 033174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5521 033174 324 00 0 00 033175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5522 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5523 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5524 5525 ;********** 5526 5527 5528 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5529 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5530 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5531 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5532 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5533 5534 045704 SN=SN+1 5535 000010 XX=XX+XX 5536 IFE XX, 5537 033175 551 00 0 00 000010 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5538 033176 270 00 0 00 033740 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5539 033177 312 00 0 00 033741 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5540 STOP ^ 5541 033200 254 04 0 00 033201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5542 033201 324 00 0 00 033202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5543 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5544 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5545 5546 ;********** 5547 5548 5549 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-2 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0144 5550 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5551 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5552 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5553 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5554 5555 045705 SN=SN+1 5556 000020 XX=XX+XX 5557 IFE XX, 5558 033202 551 00 0 00 000020 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5559 033203 270 00 0 00 033741 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5560 033204 312 00 0 00 033742 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5561 STOP ^ 5562 033205 254 04 0 00 033206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5563 033206 324 00 0 00 033207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5566 5567 ;********** 5568 5569 5570 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5571 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5572 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5573 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5574 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5575 5576 045706 SN=SN+1 5577 000040 XX=XX+XX 5578 IFE XX, 5579 033207 551 00 0 00 000040 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5580 033210 270 00 0 00 033742 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5581 033211 312 00 0 00 033743 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5582 STOP ^ 5583 033212 254 04 0 00 033213 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5584 033213 324 00 0 00 033214 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5585 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5586 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5587 5588 ;********** 5589 5590 5591 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5592 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5593 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5594 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5595 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5596 5597 045707 SN=SN+1 5598 000100 XX=XX+XX 5599 IFE XX, 5600 033214 551 00 0 00 000100 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5601 033215 270 00 0 00 033743 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5602 033216 312 00 0 00 033744 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5603 STOP ^ 5604 033217 254 04 0 00 033220 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-3 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0145 5605 033220 324 00 0 00 033221 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5606 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5607 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5608 5609 ;********** 5610 5611 5612 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5613 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5614 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5615 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5616 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5617 5618 045710 SN=SN+1 5619 000200 XX=XX+XX 5620 IFE XX, 5621 033221 551 00 0 00 000200 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5622 033222 270 00 0 00 033744 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5623 033223 312 00 0 00 033745 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5624 STOP ^ 5625 033224 254 04 0 00 033225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5626 033225 324 00 0 00 033226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5627 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5628 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5629 5630 ;********** 5631 5632 5633 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5634 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5635 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5636 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5637 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5638 5639 045711 SN=SN+1 5640 000400 XX=XX+XX 5641 IFE XX, 5642 033226 551 00 0 00 000400 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5643 033227 270 00 0 00 033745 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5644 033230 312 00 0 00 033746 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5645 STOP ^ 5646 033231 254 04 0 00 033232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5647 033232 324 00 0 00 033233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5648 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5649 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5650 5651 ;********** 5652 5653 5654 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5655 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5656 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5657 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5658 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5659 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-4 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0146 5660 045712 SN=SN+1 5661 001000 XX=XX+XX 5662 IFE XX, 5663 033233 551 00 0 00 001000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5664 033234 270 00 0 00 033746 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5665 033235 312 00 0 00 033747 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5666 STOP ^ 5667 033236 254 04 0 00 033237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5668 033237 324 00 0 00 033240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5669 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5670 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5671 5672 ;********** 5673 5674 5675 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5676 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5677 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5678 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5679 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5680 5681 045713 SN=SN+1 5682 002000 XX=XX+XX 5683 IFE XX, 5684 033240 551 00 0 00 002000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5685 033241 270 00 0 00 033747 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5686 033242 312 00 0 00 033750 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5687 STOP ^ 5688 033243 254 04 0 00 033244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5689 033244 324 00 0 00 033245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5690 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5691 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5692 5693 ;********** 5694 5695 5696 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5697 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5698 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5699 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5700 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5701 5702 045714 SN=SN+1 5703 004000 XX=XX+XX 5704 IFE XX, 5705 033245 551 00 0 00 004000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5706 033246 270 00 0 00 033750 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5707 033247 312 00 0 00 033751 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5708 STOP ^ 5709 033250 254 04 0 00 033251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5710 033251 324 00 0 00 033252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5711 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5712 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5713 5714 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-5 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0147 5715 5716 5717 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5718 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5719 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5720 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5721 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5722 5723 045715 SN=SN+1 5724 010000 XX=XX+XX 5725 IFE XX, 5726 033252 551 00 0 00 010000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5727 033253 270 00 0 00 033751 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5728 033254 312 00 0 00 033752 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5729 STOP ^ 5730 033255 254 04 0 00 033256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5731 033256 324 00 0 00 033257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5733 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5734 5735 ;********** 5736 5737 5738 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5739 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5740 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5741 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5742 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5743 5744 045716 SN=SN+1 5745 020000 XX=XX+XX 5746 IFE XX, 5747 033257 551 00 0 00 020000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5748 033260 270 00 0 00 033752 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5749 033261 312 00 0 00 033753 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5750 STOP ^ 5751 033262 254 04 0 00 033263 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5752 033263 324 00 0 00 033264 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5753 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5754 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5755 5756 ;********** 5757 5758 5759 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5760 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5761 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5762 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5763 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5764 5765 045717 SN=SN+1 5766 040000 XX=XX+XX 5767 IFE XX, 5768 033264 551 00 0 00 040000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5769 033265 270 00 0 00 033753 ADD [XX] ;ADD A FLOATING ONE TO ITSELF DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-6 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0148 5770 033266 312 00 0 00 033754 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5771 STOP ^ 5772 033267 254 04 0 00 033270 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5773 033270 324 00 0 00 033271 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5776 5777 ;********** 5778 5779 5780 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5781 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5782 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5783 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5784 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5785 5786 045720 SN=SN+1 5787 100000 XX=XX+XX 5788 IFE XX, 5789 033271 551 00 0 00 100000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5790 033272 270 00 0 00 033754 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5791 033273 312 00 0 00 033755 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5792 STOP ^ 5793 033274 254 04 0 00 033275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5794 033275 324 00 0 00 033276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5795 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5796 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5797 5798 ;********** 5799 5800 5801 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5802 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5803 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5804 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5805 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5806 5807 045721 SN=SN+1 5808 200000 XX=XX+XX 5809 IFE XX, 5810 033276 551 00 0 00 200000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5811 033277 270 00 0 00 033755 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5812 033300 312 00 0 00 033756 CAME [XX+XX] ;CHECK ADDER UPON FAILURE 5813 STOP ^ 5814 033301 254 04 0 00 033302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5815 033302 324 00 0 00 033303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5816 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5817 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5818 5819 ;********** 5820 5821 PAGE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-7 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0149 5822 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5823 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5824 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5825 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5826 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5827 045722 SN=SN+1 5828 400000 XX=XX+XX 5829 033303 551 00 0 00 400000 HRRZI XX ;PRELOAD AC WITH A FLOATING ONE 5830 033304 270 00 0 00 033756 ADD [XX] ;ADD A FLOATING ONE TO ITSELF 5831 033305 312 00 0 00 033757 CAME [1,,0] ;CHECK ADDRESS UPON FAILURE 5832 STOP ^ 5833 033306 254 04 0 00 033307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5834 033307 324 00 0 00 033310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5835 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5836 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5837 5838 ;********** 5839 5840 000000 XX=0 5841 5842 REPEAT ^D17,< 5843 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5844 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5845 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5846 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5847 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5848 5849 SN=SN+1 5850 XX=XX+XX 5851 IFE XX, 5852 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5853 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5854 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5855 STOP 5856 5857 ;********** 5858 > 5859 5860 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5861 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5862 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5863 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5864 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5865 5866 045723 SN=SN+1 5867 000000 XX=XX+XX 5868 000001 IFE XX, 5869 033310 515 00 0 00 000001 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5870 033311 270 00 0 00 033757 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5871 033312 312 00 0 00 033760 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5872 STOP ^ 5873 033313 254 04 0 00 033314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5874 033314 324 00 0 00 033315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5875 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5876 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-8 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0150 5877 5878 ;********** 5879 5880 5881 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5882 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5883 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5884 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5885 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5886 5887 045724 SN=SN+1 5888 000002 XX=XX+XX 5889 IFE XX, 5890 033315 515 00 0 00 000002 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5891 033316 270 00 0 00 033760 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5892 033317 312 00 0 00 033761 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5893 STOP ^ 5894 033320 254 04 0 00 033321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5895 033321 324 00 0 00 033322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5896 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5897 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5898 5899 ;********** 5900 5901 5902 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5903 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5904 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5905 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5906 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5907 5908 045725 SN=SN+1 5909 000004 XX=XX+XX 5910 IFE XX, 5911 033322 515 00 0 00 000004 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5912 033323 270 00 0 00 033761 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5913 033324 312 00 0 00 033762 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5914 STOP ^ 5915 033325 254 04 0 00 033326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5916 033326 324 00 0 00 033327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5918 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5919 5920 ;********** 5921 5922 5923 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5924 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5925 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5926 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5927 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5928 5929 045726 SN=SN+1 5930 000010 XX=XX+XX 5931 IFE XX, DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-9 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0151 5932 033327 515 00 0 00 000010 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5933 033330 270 00 0 00 033762 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5934 033331 312 00 0 00 033763 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5935 STOP ^ 5936 033332 254 04 0 00 033333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5937 033333 324 00 0 00 033334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5938 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5939 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5940 5941 ;********** 5942 5943 5944 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5945 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5946 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5947 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5948 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5949 5950 045727 SN=SN+1 5951 000020 XX=XX+XX 5952 IFE XX, 5953 033334 515 00 0 00 000020 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5954 033335 270 00 0 00 033763 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5955 033336 312 00 0 00 033764 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5956 STOP ^ 5957 033337 254 04 0 00 033340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5958 033340 324 00 0 00 033341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5959 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5960 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5961 5962 ;********** 5963 5964 5965 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 5966 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5967 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5968 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5969 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5970 5971 045730 SN=SN+1 5972 000040 XX=XX+XX 5973 IFE XX, 5974 033341 515 00 0 00 000040 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5975 033342 270 00 0 00 033764 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5976 033343 312 00 0 00 033765 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5977 STOP ^ 5978 033344 254 04 0 00 033345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5979 033345 324 00 0 00 033346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5980 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5981 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5982 5983 ;********** 5984 5985 5986 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-10 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0152 5987 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 5988 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 5989 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 5990 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 5991 5992 045731 SN=SN+1 5993 000100 XX=XX+XX 5994 IFE XX, 5995 033346 515 00 0 00 000100 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 5996 033347 270 00 0 00 033765 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 5997 033350 312 00 0 00 033766 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 5998 STOP ^ 5999 033351 254 04 0 00 033352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6000 033352 324 00 0 00 033353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6003 6004 ;********** 6005 6006 6007 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6008 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6009 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6010 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6011 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6012 6013 045732 SN=SN+1 6014 000200 XX=XX+XX 6015 IFE XX, 6016 033353 515 00 0 00 000200 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6017 033354 270 00 0 00 033766 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6018 033355 312 00 0 00 033767 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6019 STOP ^ 6020 033356 254 04 0 00 033357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6021 033357 324 00 0 00 033360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6022 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6023 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6024 6025 ;********** 6026 6027 6028 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6029 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6030 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6031 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6032 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6033 6034 045733 SN=SN+1 6035 000400 XX=XX+XX 6036 IFE XX, 6037 033360 515 00 0 00 000400 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6038 033361 270 00 0 00 033767 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6039 033362 312 00 0 00 033770 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6040 STOP ^ 6041 033363 254 04 0 00 033364 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-11 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0153 6042 033364 324 00 0 00 033365 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6045 6046 ;********** 6047 6048 6049 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6050 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6051 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6052 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6053 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6054 6055 045734 SN=SN+1 6056 001000 XX=XX+XX 6057 IFE XX, 6058 033365 515 00 0 00 001000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6059 033366 270 00 0 00 033770 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6060 033367 312 00 0 00 033771 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6061 STOP ^ 6062 033370 254 04 0 00 033371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6063 033371 324 00 0 00 033372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6064 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6065 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6066 6067 ;********** 6068 6069 6070 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6071 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6072 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6073 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6074 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6075 6076 045735 SN=SN+1 6077 002000 XX=XX+XX 6078 IFE XX, 6079 033372 515 00 0 00 002000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6080 033373 270 00 0 00 033771 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6081 033374 312 00 0 00 033772 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6082 STOP ^ 6083 033375 254 04 0 00 033376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6084 033376 324 00 0 00 033377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6085 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6086 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6087 6088 ;********** 6089 6090 6091 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6092 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6093 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6094 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6095 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6096 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-12 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0154 6097 045736 SN=SN+1 6098 004000 XX=XX+XX 6099 IFE XX, 6100 033377 515 00 0 00 004000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6101 033400 270 00 0 00 033772 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6102 033401 312 00 0 00 033773 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6103 STOP ^ 6104 033402 254 04 0 00 033403 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6105 033403 324 00 0 00 033404 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6106 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6107 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6108 6109 ;********** 6110 6111 6112 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6113 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6114 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6115 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6116 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6117 6118 045737 SN=SN+1 6119 010000 XX=XX+XX 6120 IFE XX, 6121 033404 515 00 0 00 010000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6122 033405 270 00 0 00 033773 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6123 033406 312 00 0 00 033774 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6124 STOP ^ 6125 033407 254 04 0 00 033410 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6126 033410 324 00 0 00 033411 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6127 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6128 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6129 6130 ;********** 6131 6132 6133 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6134 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6135 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6136 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6137 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6138 6139 045740 SN=SN+1 6140 020000 XX=XX+XX 6141 IFE XX, 6142 033411 515 00 0 00 020000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6143 033412 270 00 0 00 033774 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6144 033413 312 00 0 00 033775 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6145 STOP ^ 6146 033414 254 04 0 00 033415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6147 033415 324 00 0 00 033416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6148 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6149 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6150 6151 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-13 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0155 6152 6153 6154 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6155 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6156 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6157 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6158 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6159 6160 045741 SN=SN+1 6161 040000 XX=XX+XX 6162 IFE XX, 6163 033416 515 00 0 00 040000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6164 033417 270 00 0 00 033775 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6165 033420 312 00 0 00 033776 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6166 STOP ^ 6167 033421 254 04 0 00 033422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6168 033422 324 00 0 00 033423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6171 6172 ;********** 6173 6174 6175 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6176 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6177 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6178 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6179 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6180 6181 045742 SN=SN+1 6182 100000 XX=XX+XX 6183 IFE XX, 6184 033423 515 00 0 00 100000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6185 033424 270 00 0 00 033776 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6186 033425 312 00 0 00 033777 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6187 STOP ^ 6188 033426 254 04 0 00 033427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6189 033427 324 00 0 00 033430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6190 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6191 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6192 6193 ;********** 6194 6195 6196 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6197 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6198 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6199 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6200 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6201 6202 045743 SN=SN+1 6203 200000 XX=XX+XX 6204 IFE XX, 6205 033430 515 00 0 00 200000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6206 033431 270 00 0 00 033777 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 89-14 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 1 + FLT 1 SEQ 0156 6207 033432 312 00 0 00 034000 CAME [XX+XX,,0] ;CHECK ADDER UPON FAILURE 6208 STOP ^ 6209 033433 254 04 0 00 033434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6210 033434 324 00 0 00 033435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6211 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6212 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6213 6214 ;********** 6215 6216 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ONE 6217 ;ADDED TO A FLOATING ONE IS A FLOATING ONE 6218 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ONE. 6219 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ONE THRU ALL 36 BITS OF THE ADDER. 6220 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6221 6222 045744 SN=SN+1 6223 400000 XX=XX+XX 6224 IFE XX, 6225 033435 515 00 0 00 400000 HRLZI XX ;PRELOAD AC WITH A FLOATING ONE 6226 033436 270 00 0 00 034000 ADD [XX,,0] ;ADD A FLOATING ONE TO ITSELF 6227 033437 312 00 0 00 033732 CAME [0,,0] ;CHECK ADDER UPON FAILURE 6228 STOP ^ 6229 033440 254 04 0 00 033441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6230 033441 324 00 0 00 033442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6231 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6232 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6233 6234 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0157 6235 SUBTTL SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT 6236 6237 ;********** 6238 6239 046000 SN=46000 6240 000000 XX=0 6241 6242 B46000: REPEAT ^D17,< 6243 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6244 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6245 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6246 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6247 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6248 6249 SN=SN+1 6250 XX=&777777 6251 IFE , 6252 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6253 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6254 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6255 STOP 6256 6257 ;********** 6258 > 6259 6260 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6261 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6262 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6263 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6264 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6265 6266 046001 SN=SN+1 6267 000001 XX=&777777 6268 777776 IFE , 6269 033442 561 00 0 00 777776 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6270 033443 270 00 0 00 034001 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6271 033444 312 00 0 00 034045 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6272 STOP ^ 6273 033445 254 04 0 00 033446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6274 033446 324 00 0 00 033447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6275 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6276 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6277 6278 ;********** 6279 6280 6281 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6282 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6283 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6284 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6285 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6286 6287 046002 SN=SN+1 6288 777775 XX=&777777 6289 IFE , DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-1 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0158 6290 033447 561 00 0 00 777775 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6291 033450 270 00 0 00 034002 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6292 033451 312 00 0 00 034046 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6293 STOP ^ 6294 033452 254 04 0 00 033453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6295 033453 324 00 0 00 033454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6296 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6297 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6298 6299 ;********** 6300 6301 6302 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6303 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6304 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6305 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6306 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6307 6308 046003 SN=SN+1 6309 777773 XX=&777777 6310 IFE , 6311 033454 561 00 0 00 777773 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6312 033455 270 00 0 00 034003 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6313 033456 312 00 0 00 034047 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6314 STOP ^ 6315 033457 254 04 0 00 033460 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6316 033460 324 00 0 00 033461 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6319 6320 ;********** 6321 6322 6323 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6324 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6325 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6326 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6327 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6328 6329 046004 SN=SN+1 6330 777767 XX=&777777 6331 IFE , 6332 033461 561 00 0 00 777767 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6333 033462 270 00 0 00 034004 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6334 033463 312 00 0 00 034050 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6335 STOP ^ 6336 033464 254 04 0 00 033465 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6337 033465 324 00 0 00 033466 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6338 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6339 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6340 6341 ;********** 6342 6343 6344 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-2 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0159 6345 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6346 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6347 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6348 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6349 6350 046005 SN=SN+1 6351 777757 XX=&777777 6352 IFE , 6353 033466 561 00 0 00 777757 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6354 033467 270 00 0 00 034005 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6355 033470 312 00 0 00 034051 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6356 STOP ^ 6357 033471 254 04 0 00 033472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6358 033472 324 00 0 00 033473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6361 6362 ;********** 6363 6364 6365 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6366 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6367 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6368 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6369 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6370 6371 046006 SN=SN+1 6372 777737 XX=&777777 6373 IFE , 6374 033473 561 00 0 00 777737 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6375 033474 270 00 0 00 034006 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6376 033475 312 00 0 00 034052 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6377 STOP ^ 6378 033476 254 04 0 00 033477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6379 033477 324 00 0 00 033500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6380 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6381 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6382 6383 ;********** 6384 6385 6386 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6387 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6388 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6389 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6390 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6391 6392 046007 SN=SN+1 6393 777677 XX=&777777 6394 IFE , 6395 033500 561 00 0 00 777677 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6396 033501 270 00 0 00 034007 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6397 033502 312 00 0 00 034053 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6398 STOP ^ 6399 033503 254 04 0 00 033504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-3 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0160 6400 033504 324 00 0 00 033505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6401 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6402 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6403 6404 ;********** 6405 6406 6407 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6408 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6409 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6410 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6411 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6412 6413 046010 SN=SN+1 6414 777577 XX=&777777 6415 IFE , 6416 033505 561 00 0 00 777577 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6417 033506 270 00 0 00 034010 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6418 033507 312 00 0 00 034054 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6419 STOP ^ 6420 033510 254 04 0 00 033511 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6421 033511 324 00 0 00 033512 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6422 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6423 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6424 6425 ;********** 6426 6427 6428 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6429 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6430 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6431 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6432 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6433 6434 046011 SN=SN+1 6435 777377 XX=&777777 6436 IFE , 6437 033512 561 00 0 00 777377 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6438 033513 270 00 0 00 034011 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6439 033514 312 00 0 00 034055 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6440 STOP ^ 6441 033515 254 04 0 00 033516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6442 033516 324 00 0 00 033517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6443 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6444 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6445 6446 ;********** 6447 6448 6449 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6450 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6451 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6452 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6453 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6454 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-4 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0161 6455 046012 SN=SN+1 6456 776777 XX=&777777 6457 IFE , 6458 033517 561 00 0 00 776777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6459 033520 270 00 0 00 034012 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6460 033521 312 00 0 00 034056 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6461 STOP ^ 6462 033522 254 04 0 00 033523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6463 033523 324 00 0 00 033524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6464 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6465 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6466 6467 ;********** 6468 6469 6470 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6471 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6472 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6473 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6474 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6475 6476 046013 SN=SN+1 6477 775777 XX=&777777 6478 IFE , 6479 033524 561 00 0 00 775777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6480 033525 270 00 0 00 034013 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6481 033526 312 00 0 00 034057 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6482 STOP ^ 6483 033527 254 04 0 00 033530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6484 033530 324 00 0 00 033531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6485 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6486 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6487 6488 ;********** 6489 6490 6491 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6492 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6493 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6494 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6495 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6496 6497 046014 SN=SN+1 6498 773777 XX=&777777 6499 IFE , 6500 033531 561 00 0 00 773777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6501 033532 270 00 0 00 034014 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6502 033533 312 00 0 00 034060 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6503 STOP ^ 6504 033534 254 04 0 00 033535 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6505 033535 324 00 0 00 033536 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6506 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6507 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6508 6509 ;********** DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-5 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0162 6510 6511 6512 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6513 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6514 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6515 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6516 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6517 6518 046015 SN=SN+1 6519 767777 XX=&777777 6520 IFE , 6521 033536 561 00 0 00 767777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6522 033537 270 00 0 00 034015 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6523 033540 312 00 0 00 034061 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6524 STOP ^ 6525 033541 254 04 0 00 033542 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6526 033542 324 00 0 00 033543 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6528 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6529 6530 ;********** 6531 6532 6533 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6534 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6535 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6536 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6537 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6538 6539 046016 SN=SN+1 6540 757777 XX=&777777 6541 IFE , 6542 033543 561 00 0 00 757777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6543 033544 270 00 0 00 034016 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6544 033545 312 00 0 00 034062 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6545 STOP ^ 6546 033546 254 04 0 00 033547 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6547 033547 324 00 0 00 033550 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6548 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6549 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6550 6551 ;********** 6552 6553 6554 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6555 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6556 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6557 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6558 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6559 6560 046017 SN=SN+1 6561 737777 XX=&777777 6562 IFE , 6563 033550 561 00 0 00 737777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6564 033551 270 00 0 00 034017 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-6 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0163 6565 033552 312 00 0 00 034063 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6566 STOP ^ 6567 033553 254 04 0 00 033554 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6568 033554 324 00 0 00 033555 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6569 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6570 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6571 6572 ;********** 6573 6574 6575 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6576 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6577 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6578 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6579 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6580 6581 046020 SN=SN+1 6582 677777 XX=&777777 6583 IFE , 6584 033555 561 00 0 00 677777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6585 033556 270 00 0 00 034020 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6586 033557 312 00 0 00 034064 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6587 STOP ^ 6588 033560 254 04 0 00 033561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6589 033561 324 00 0 00 033562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6590 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6591 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6592 6593 ;********** 6594 6595 6596 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6597 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6598 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6599 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6600 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6601 6602 046021 SN=SN+1 6603 577777 XX=&777777 6604 IFE , 6605 033562 561 00 0 00 577777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6606 033563 270 00 0 00 034021 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6607 033564 312 00 0 00 034065 CAME [-1,,&777777] ;CHECK ADDER UPON FAILURE 6608 STOP ^ 6609 033565 254 04 0 00 033566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6610 033566 324 00 0 00 033567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6611 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6612 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6613 6614 ;********** 6615 6616 PAGE DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-7 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0164 6617 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6618 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6619 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6620 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6621 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6622 6623 046022 SN=SN+1 6624 377777 XX=&777777 6625 033567 561 00 0 00 377777 HRROI XX ;PRELOAD AC WITH A FLOATING ZERO 6626 033570 270 00 0 00 034022 ADD [-1,,XX] ;ADD A FLOATING ZERO TO ITSELF 6627 033571 312 00 0 00 034066 CAME [-2,,-2] ;CHECK ADDER UPON FAILURE 6628 STOP ^ 6629 033572 254 04 0 00 033573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6630 033573 324 00 0 00 033574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6631 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6632 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6633 6634 ;********** 6635 6636 000000 XX=0 6637 6638 REPEAT ^D18,< 6639 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6640 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6641 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6642 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6643 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6644 6645 SN=SN+1 6646 XX=&777777 6647 IFE , 6648 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6649 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6650 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6651 STOP 6652 6653 ;********** 6654 > 6655 6656 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6657 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6658 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6659 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6660 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6661 6662 046023 SN=SN+1 6663 000001 XX=&777777 6664 777776 IFE , 6665 033574 525 00 0 00 777776 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6666 033575 270 00 0 00 034023 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6667 033576 312 00 0 00 034067 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6668 STOP ^ 6669 033577 254 04 0 00 033600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6670 033600 324 00 0 00 033601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6671 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-8 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0165 6672 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6673 6674 ;********** 6675 6676 6677 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6678 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6679 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6680 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6681 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6682 6683 046024 SN=SN+1 6684 777775 XX=&777777 6685 IFE , 6686 033601 525 00 0 00 777775 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6687 033602 270 00 0 00 034024 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6688 033603 312 00 0 00 034070 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6689 STOP ^ 6690 033604 254 04 0 00 033605 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6691 033605 324 00 0 00 033606 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6692 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6693 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6694 6695 ;********** 6696 6697 6698 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6699 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6700 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6701 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6702 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6703 6704 046025 SN=SN+1 6705 777773 XX=&777777 6706 IFE , 6707 033606 525 00 0 00 777773 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6708 033607 270 00 0 00 034025 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6709 033610 312 00 0 00 034071 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6710 STOP ^ 6711 033611 254 04 0 00 033612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6712 033612 324 00 0 00 033613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6713 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6714 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6715 6716 ;********** 6717 6718 6719 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6720 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6721 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6722 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6723 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6724 6725 046026 SN=SN+1 6726 777767 XX=&777777 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-9 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0166 6727 IFE , 6728 033613 525 00 0 00 777767 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6729 033614 270 00 0 00 034026 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6730 033615 312 00 0 00 034072 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6731 STOP ^ 6732 033616 254 04 0 00 033617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6733 033617 324 00 0 00 033620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6736 6737 ;********** 6738 6739 6740 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6741 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6742 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6743 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6744 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6745 6746 046027 SN=SN+1 6747 777757 XX=&777777 6748 IFE , 6749 033620 525 00 0 00 777757 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6750 033621 270 00 0 00 034027 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6751 033622 312 00 0 00 034073 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6752 STOP ^ 6753 033623 254 04 0 00 033624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6754 033624 324 00 0 00 033625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6755 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6756 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6757 6758 ;********** 6759 6760 6761 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6762 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6763 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6764 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6765 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6766 6767 046030 SN=SN+1 6768 777737 XX=&777777 6769 IFE , 6770 033625 525 00 0 00 777737 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6771 033626 270 00 0 00 034030 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6772 033627 312 00 0 00 034074 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6773 STOP ^ 6774 033630 254 04 0 00 033631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6775 033631 324 00 0 00 033632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6778 6779 ;********** 6780 6781 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-10 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0167 6782 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6783 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6784 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6785 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6786 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6787 6788 046031 SN=SN+1 6789 777677 XX=&777777 6790 IFE , 6791 033632 525 00 0 00 777677 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6792 033633 270 00 0 00 034031 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6793 033634 312 00 0 00 034075 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6794 STOP ^ 6795 033635 254 04 0 00 033636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6796 033636 324 00 0 00 033637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6798 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6799 6800 ;********** 6801 6802 6803 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6804 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6805 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6806 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6807 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6808 6809 046032 SN=SN+1 6810 777577 XX=&777777 6811 IFE , 6812 033637 525 00 0 00 777577 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6813 033640 270 00 0 00 034032 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6814 033641 312 00 0 00 034076 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6815 STOP ^ 6816 033642 254 04 0 00 033643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6817 033643 324 00 0 00 033644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6820 6821 ;********** 6822 6823 6824 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6825 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6826 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6827 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6828 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6829 6830 046033 SN=SN+1 6831 777377 XX=&777777 6832 IFE , 6833 033644 525 00 0 00 777377 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6834 033645 270 00 0 00 034033 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6835 033646 312 00 0 00 034077 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6836 STOP ^ DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-11 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0168 6837 033647 254 04 0 00 033650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6838 033650 324 00 0 00 033651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6839 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6840 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6841 6842 ;********** 6843 6844 6845 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6846 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6847 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6848 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6849 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6850 6851 046034 SN=SN+1 6852 776777 XX=&777777 6853 IFE , 6854 033651 525 00 0 00 776777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6855 033652 270 00 0 00 034034 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6856 033653 312 00 0 00 034100 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6857 STOP ^ 6858 033654 254 04 0 00 033655 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6859 033655 324 00 0 00 033656 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6860 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6861 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6862 6863 ;********** 6864 6865 6866 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6867 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6868 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6869 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6870 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6871 6872 046035 SN=SN+1 6873 775777 XX=&777777 6874 IFE , 6875 033656 525 00 0 00 775777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6876 033657 270 00 0 00 034035 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6877 033660 312 00 0 00 034101 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6878 STOP ^ 6879 033661 254 04 0 00 033662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6880 033662 324 00 0 00 033663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6883 6884 ;********** 6885 6886 6887 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6888 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6889 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6890 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6891 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-12 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0169 6892 6893 046036 SN=SN+1 6894 773777 XX=&777777 6895 IFE , 6896 033663 525 00 0 00 773777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6897 033664 270 00 0 00 034036 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6898 033665 312 00 0 00 034102 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6899 STOP ^ 6900 033666 254 04 0 00 033667 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6901 033667 324 00 0 00 033670 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6902 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6903 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6904 6905 ;********** 6906 6907 6908 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6909 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6910 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6911 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6912 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6913 6914 046037 SN=SN+1 6915 767777 XX=&777777 6916 IFE , 6917 033670 525 00 0 00 767777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6918 033671 270 00 0 00 034037 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6919 033672 312 00 0 00 034103 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6920 STOP ^ 6921 033673 254 04 0 00 033674 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6922 033674 324 00 0 00 033675 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6923 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6924 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6925 6926 ;********** 6927 6928 6929 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6930 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6931 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6932 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6933 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6934 6935 046040 SN=SN+1 6936 757777 XX=&777777 6937 IFE , 6938 033675 525 00 0 00 757777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6939 033676 270 00 0 00 034040 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6940 033677 312 00 0 00 034104 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6941 STOP ^ 6942 033700 254 04 0 00 033701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6943 033701 324 00 0 00 033702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6945 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6946 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-13 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0170 6947 ;********** 6948 6949 6950 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6951 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6952 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6953 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6954 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6955 6956 046041 SN=SN+1 6957 737777 XX=&777777 6958 IFE , 6959 033702 525 00 0 00 737777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6960 033703 270 00 0 00 034041 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6961 033704 312 00 0 00 034105 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6962 STOP ^ 6963 033705 254 04 0 00 033706 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6964 033706 324 00 0 00 033707 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6965 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6966 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6967 6968 ;********** 6969 6970 6971 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6972 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6973 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6974 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6975 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6976 6977 046042 SN=SN+1 6978 677777 XX=&777777 6979 IFE , 6980 033707 525 00 0 00 677777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 6981 033710 270 00 0 00 034042 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 6982 033711 312 00 0 00 034106 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 6983 STOP ^ 6984 033712 254 04 0 00 033713 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6985 033713 324 00 0 00 033714 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6986 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6987 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6988 6989 ;********** 6990 6991 6992 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 6993 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 6994 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 6995 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 6996 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 6997 6998 046043 SN=SN+1 6999 577777 XX=&777777 7000 IFE , 7001 033714 525 00 0 00 577777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 90-14 DSKAC1 MAC 28-Mar-78 12:49 SUPPLEMENTARY ADDER TESTS - FLT 0 + 0FLT SEQ 0171 7002 033715 270 00 0 00 034043 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 7003 033716 312 00 0 00 034107 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 7004 STOP ^ 7005 033717 254 04 0 00 033720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7006 033720 324 00 0 00 033721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7007 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7008 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7009 7010 ;********** 7011 7012 7013 ;THIS TEST VERIFIES THAT THE RESULT OF A FLOATING ZERO 7014 ;ADDED TO A FLOATING ZERO IS A FLOATING ZERO 7015 ;PLACED ONE BIT POSITION LEFT OF THE ORIGINAL FLOATING ZERO. 7016 ;THIS TEST IS REPEATED 36 TIMES TO FLOAT A ZERO THRU ALL 36 BITS OF THE ADDER. 7017 ;THIS TEST IS DESIGNED TO TEST THE ADDER AND RELATED DATA PATHS ONLY. 7018 7019 046044 SN=SN+1 7020 377777 XX=&777777 7021 IFE , 7022 033721 525 00 0 00 377777 HRLOI XX ;PRELOAD AC WITH A FLOATING ZERO 7023 033722 270 00 0 00 034044 ADD [XX,,-1] ;ADD A FLOATING ZERO TO ITSELF 7024 033723 312 00 0 00 034001 CAME [&777777,,-2] ;CHECK ADDER UPON FAILURE 7025 STOP ^ 7026 033724 254 04 0 00 033725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 7027 033725 324 00 0 00 033726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 7028 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 7029 ;IN THE SUBTEST) TO LOOP ON ERROR^ 7030 7031 ;********** 7032 7033 033726 402 00 0 00 034111 ENDIT: SETZM TNUMB# 7034 033727 254 00 0 00 030057 JRST BEGEND DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0172 7035 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 7036 7037 ;PROGRAM LITERALS 7038 7039 XLIST 7040 IFNDEF $LPAPER, 7041 033730 LIT 7042 033730 777777 777777 7043 033731 777777 000000 7044 033732 000000 000000 7045 033733 000000 777777 7046 033734 707070 707070 7047 033735 000000 000001 7048 033736 000000 000002 7049 033737 000000 000004 7050 033740 000000 000010 7051 033741 000000 000020 7052 033742 000000 000040 7053 033743 000000 000100 7054 033744 000000 000200 7055 033745 000000 000400 7056 033746 000000 001000 7057 033747 000000 002000 7058 033750 000000 004000 7059 033751 000000 010000 7060 033752 000000 020000 7061 033753 000000 040000 7062 033754 000000 100000 7063 033755 000000 200000 7064 033756 000000 400000 7065 033757 000001 000000 7066 033760 000002 000000 7067 033761 000004 000000 7068 033762 000010 000000 7069 033763 000020 000000 7070 033764 000040 000000 7071 033765 000100 000000 7072 033766 000200 000000 7073 033767 000400 000000 7074 033770 001000 000000 7075 033771 002000 000000 7076 033772 004000 000000 7077 033773 010000 000000 7078 033774 020000 000000 7079 033775 040000 000000 7080 033776 100000 000000 7081 033777 200000 000000 7082 034000 400000 000000 7083 034001 777777 777776 7084 034002 777777 777775 7085 034003 777777 777773 7086 034004 777777 777767 7087 034005 777777 777757 7088 034006 777777 777737 7089 034007 777777 777677 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0173 7090 034010 777777 777577 7091 034011 777777 777377 7092 034012 777777 776777 7093 034013 777777 775777 7094 034014 777777 773777 7095 034015 777777 767777 7096 034016 777777 757777 7097 034017 777777 737777 7098 034020 777777 677777 7099 034021 777777 577777 7100 034022 777777 377777 7101 034023 777776 777777 7102 034024 777775 777777 7103 034025 777773 777777 7104 034026 777767 777777 7105 034027 777757 777777 7106 034030 777737 777777 7107 034031 777677 777777 7108 034032 777577 777777 7109 034033 777377 777777 7110 034034 776777 777777 7111 034035 775777 777777 7112 034036 773777 777777 7113 034037 767777 777777 7114 034040 757777 777777 7115 034041 737777 777777 7116 034042 677777 777777 7117 034043 577777 777777 7118 034044 377777 777777 7119 034045 777777 777774 7120 034046 777777 777772 7121 034047 777777 777766 7122 034050 777777 777756 7123 034051 777777 777736 7124 034052 777777 777676 7125 034053 777777 777576 7126 034054 777777 777376 7127 034055 777777 776776 7128 034056 777777 775776 7129 034057 777777 773776 7130 034060 777777 767776 7131 034061 777777 757776 7132 034062 777777 737776 7133 034063 777777 677776 7134 034064 777777 577776 7135 034065 777777 377776 7136 034066 777776 777776 7137 034067 777775 777776 7138 034070 777773 777776 7139 034071 777767 777776 7140 034072 777757 777776 7141 034073 777737 777776 7142 034074 777677 777776 7143 034075 777577 777776 7144 034076 777377 777776 DSKAC DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (3) 0,1 MACRO %53(1020) 14:04 28-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0174 7145 034077 776777 777776 7146 034100 775777 777776 7147 034101 773777 777776 7148 034102 767777 777776 7149 034103 757777 777776 7150 034104 737777 777776 7151 034105 677777 777776 7152 034106 577777 777776 7153 034107 377777 777776 7154 LIST 7155 034110 000000 000000 ENDSLD: 0 7156 7157 IFDEF DEBUG,< 7158 PATCH: BLOCK DEBUG ;PATCHING AREA 7159 > 7160 7161 ;PROGRAM VARIABLES 7162 034111 VAR 7163 7164 IFDEF PGMEND,< 7165 034112 000000 000000 END: 0 7166 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 034113 CPU TIME USED 00:19.023 22P CORE USED ABORT 92# AC0 687# SEQ 0175 ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# B12600 816# B12700 839# B13000 856# B13100 874# B13200 890# B13300 916# B13400 937# B13600 955# B14000 971# B14100 994# B14200 1016# B14400 1040# B14500 1056# B14600 1074# B14700 1089# B15000 1113# B15400 1134# B15500 1151# B15600 1172# B15700 1188# B16000 1210# B16100 1225# B16200 1242# B16300 1268# B16400 1290# B16500 1312# B16600 1327# B16700 1351# B17000 1367# B17300 1385# B17400 1398# B17700 1412# B20000 1424# B20400 1439# B20600 1454# B20700 1469# B21000 1489# B21100 1510# B21400 1527# B21500 1561# B21600 1578# B21700 1596# B22200 1613# B22300 1631# B22400 1654# B22500 1672# B22600 1689# SEQ 0176 B22700 1708# B23000 1731# B23200 1752# B23400 1769# B23600 1785# B23700 1802# B24000 1817# B24300 1839# B24400 1861# B24500 1878# B24600 1894# B24700 1910# B25000 1931# B25100 1948# B25200 1964# B25300 1981# B25400 1997# B25500 2014# B25600 2030# B25700 2047# B26000 2062# B26100 2079# B26200 2094# B26300 2110# B26500 2131# B26600 2152# B26700 2167# B27000 2188# B27100 2208# B27200 2224# B27300 2239# B27400 2260# B27500 2275# B27600 2291# B27700 2306# B30000 2322# B30100 2337# B30400 2358# B30500 2373# B30600 2394# B30700 2415# B31000 2431# B31100 2446# B31200 2462# B31300 2477# B31400 2493# B31500 2508# B31600 2524# B31700 2539# B32000 2555# B32100 2570# B32200 2594# B32300 2609# SEQ 0177 B32600 2630# B32700 2645# B33000 2668# B33100 2689# B33200 2705# B33300 2721# B33400 2742# B33500 2763# B33600 2779# B33700 2795# B34000 2816# B34100 2832# B34200 2848# B34300 2863# B34400 2879# B34500 2894# B34600 2910# B34700 2925# B35000 2941# B35500 2964# B35600 2989# B35700 3006# B36000 3036# B36100 3052# B36200 3073# B36300 3093# B36400 3114# B36500 3134# B36600 3155# B37100 3175# B37200 3197# B37300 3218# B37400 3234# B37500 3249# B37600 3265# B37700 3280# B40000 3296# B40100 3311# B40200 3327# B40300 3343# B40400 3360# B40700 3376# B41000 3398# B41100 3420# B41200 3437# B41500 3453# B41600 3475# B42000 3498# B42200 3515# B42300 3531# B42500 3556# B42700 3571# B43000 3594# SEQ 0178 B43100 3616# B43400 3633# B43500 3648# B43600 3671# B43700 3691# B44000 3714# B44100 3730# B44200 3748# B44300 3765# B44500 3788# B44600 3808# B44700 3825# B45000 3840# B45100 3856# B45200 3871# B45400 3897# B45500 3925# B45600 4685# B45700 5447# B46000 6242# BEGEND 438# 7034 BEGIN 307 308 369# 708 771 7166 BEGIN1 385# 439 BELL 561# BIS 356# CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# CRY1 356# CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 7157 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# SEQ 0179 DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 7165# ENDFIX 684# ENDIT 7033# ENDSLD 7155# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# SEQ 0180 JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# SEQ 0181 LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 SEQ 0182 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# SEQ 0183 PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 7164 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# SEQ 0184 REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SN 3922# 3947 3947# 3967 3967# 3987 3987# 4007 4007# 4027 4027# 4047 4047# 4067 4067# 4087 4087# 4107 4107# 4127 4127# 4147 4147# 4167 4167# 4187 4187# 4207 4207# 4227 4227# 4247 4247# 4267 4267# 4287 4287# 4326 4326# 4346 4346# 4366 4366# 4386 4386# 4406 4406# 4426 4426# 4446 4446# 4466 4466# 4486 4486# 4506 4506# 4526 4526# 4546 4546# 4566 4566# 4586 4586# 4606 4606# 4626 4626# 4646 4646# 4666 4666# 4684# 4707 4707# 4727 4727# 4747 4747# 4767 4767# 4787 4787# 4807 4807# 4827 4827# 4847 4847# 4867 4867# 4887 4887# 4907 4907# 4927 4927# 4947 4947# 4967 4967# 4987 4987# 5007 5007# 5027 5027# 5047 5047# 5086 5086# 5106 5106# 5126 5126# 5146 5146# 5166 5166# 5186 5186# 5206 5206# 5226 5226# 5246 5246# 5266 5266# 5286 5286# 5306 5306# 5326 5326# 5346 5346# 5366 5366# 5386 5386# 5406 5406# 5426 5426# 5444# 5471 5471# 5492 5492# 5513 5513# 5534 5534# 5555 5555# 5576 5576# 5597 5597# 5618 5618# 5639 5639# 5660 5660# 5681 5681# 5702 5702# 5723 5723# 5744 5744# 5765 5765# 5786 5786# 5807 5807# 5827 5827# 5866 5866# 5887 5887# 5908 5908# 5929 5929# 5950 5950# 5971 5971# 5992 5992# 6013 6013# 6034 6034# 6055 6055# 6076 6076# 6097 6097# 6118 6118# 6139 6139# 6160 6160# 6181 6181# 6202 6202# 6222 6222# 6239# 6266 6266# 6287 6287# 6308 6308# 6329 6329# 6350 6350# 6371 6371# 6392 6392# 6413 6413# 6434 6434# 6455 6455# 6476 6476# 6497 6497# 6518 6518# 6539 6539# 6560 6560# 6581 6581# 6602 6602# 6623 6623# 6662 6662# 6683 6683# 6704 6704# 6725 6725# 6746 6746# 6767 6767# 6788 6788# 6809 6809# 6830 6830# 6851 6851# 6872 6872# 6893 6893# 6914 6914# 6935 6935# 6956 6956# 6977 6977# 6998 6998# 7019 7019# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# SEQ 0185 STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 7033# 7033 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# XX 3923# 3948 3948# 3949 3949# 3950 3952 3968 3968# 3969 3970 3972 3988 3988# 3989 3990 3992 4008 4008# 4009 4010 4012 4028 4028# 4029 4030 4032 4048 4048# 4049 4050 4052 4068 4068# 4069 4070 4072 4088 4088# 4089 4090 4092 4108 4108# 4109 4110 4112 4128 4128# 4129 4130 4132 4148 4148# 4149 4150 4152 4168 4168# 4169 4170 4172 4188 4188# 4189 4190 4192 4208 4208# 4209 4210 4212 4228 4228# 4229 4230 4232 4248 4248# 4249 4250 4252 4268 4268# 4269 4270 4272 4288 4288# 4289 4290 4292 4302# 4327 4327# 4328 4328# 4329 4331 4347 4347# 4348 4349 4351 4367 4367# 4368 4369 4371 4387 4387# 4388 4389 4391 4407 4407# 4408 4409 4411 4427 4427# 4428 4429 4431 4447 4447# 4448 4449 4451 4467 4467# 4468 4469 4471 4487 4487# 4488 4489 4491 4507 4507# 4508 4509 4511 4527 4527# 4528 4529 4531 4547 4547# 4548 4549 4551 4567 4567# 4568 4569 4571 4587 4587# 4588 4589 4591 4607 4607# 4608 4609 4611 4627 4627# 4628 4629 4631 4647 4647# 4648 4649 4651 4667 4667# 4668 4669 4671 4708 4708# 4709 4709# 4711 4712 4728 4728# 4729 4731 4732 4748 4748# 4749 4751 4752 4768 4768# 4769 4771 4772 4788 4788# 4789 4791 4792 4808 4808# 4809 4811 4812 4828 4828# 4829 4831 4832 4848 4848# 4849 4851 4852 4868 4868# 4869 4871 4872 4888 4888# 4889 4891 4892 4908 4908# 4909 4911 4912 4928 4928# 4929 4931 4932 4948 4948# 4949 4951 4952 4968 4968# 4969 4971 4972 4988 4988# 4989 4991 4992 5008 5008# 5009 5011 5012 5028 5028# 5029 5031 5032 5048 5048# 5049 5051 5052 5062# 5087 5087# 5088 5088# 5090 5091 5107 5107# 5108 5110 5111 5127 5127# 5128 5130 5131 5147 5147# 5148 5150 5151 5167 5167# 5168 5170 5171 5187 5187# 5188 5190 5191 5207 5207# 5208 5210 5211 5227 5227# 5228 5230 5231 5247 5247# 5248 5250 5251 5267 5267# 5268 5270 5271 5287 5287# 5288 5290 5291 5307 5307# 5308 5310 SEQ 0186 5311 5327 5327# 5328 5330 5331 5347 5347# 5348 5350 5351 5367 5367# 5368 5370 5371 5387 5387# 5388 5390 5391 5407 5407# 5408 5410 5411 5427 5427# 5428 5430 5431 5445# 5472 5472# 5473 5473# 5474 5475 5476 5493 5493# 5494 5495 5496 5497 5514 5514# 5515 5516 5517 5518 5535 5535# 5536 5537 5538 5539 5556 5556# 5557 5558 5559 5560 5577 5577# 5578 5579 5580 5581 5598 5598# 5599 5600 5601 5602 5619 5619# 5620 5621 5622 5623 5640 5640# 5641 5642 5643 5644 5661 5661# 5662 5663 5664 5665 5682 5682# 5683 5684 5685 5686 5703 5703# 5704 5705 5706 5707 5724 5724# 5725 5726 5727 5728 5745 5745# 5746 5747 5748 5749 5766 5766# 5767 5768 5769 5770 5787 5787# 5788 5789 5790 5791 5808 5808# 5809 5810 5811 5812 5828 5828# 5829 5830 5840# 5867 5867# 5868 5868# 5869 5870 5871 5888 5888# 5889 5890 5891 5892 5909 5909# 5910 5911 5912 5913 5930 5930# 5931 5932 5933 5934 5951 5951# 5952 5953 5954 5955 5972 5972# 5973 5974 5975 5976 5993 5993# 5994 5995 5996 5997 6014 6014# 6015 6016 6017 6018 6035 6035# 6036 6037 6038 6039 6056 6056# 6057 6058 6059 6060 6077 6077# 6078 6079 6080 6081 6098 6098# 6099 6100 6101 6102 6119 6119# 6120 6121 6122 6123 6140 6140# 6141 6142 6143 6144 6161 6161# 6162 6163 6164 6165 6182 6182# 6183 6184 6185 6186 6203 6203# 6204 6205 6206 6207 6223 6223# 6224 6225 6226 6240# 6267 6267# 6268 6268# 6269 6270 6271 6288 6288# 6289 6290 6291 6292 6309 6309# 6310 6311 6312 6313 6330 6330# 6331 6332 6333 6334 6351 6351# 6352 6353 6354 6355 6372 6372# 6373 6374 6375 6376 6393 6393# 6394 6395 6396 6397 6414 6414# 6415 6416 6417 6418 6435 6435# 6436 6437 6438 6439 6456 6456# 6457 6458 6459 6460 6477 6477# 6478 6479 6480 6481 6498 6498# 6499 6500 6501 6502 6519 6519# 6520 6521 6522 6523 6540 6540# 6541 6542 6543 6544 6561 6561# 6562 6563 6564 6565 6582 6582# 6583 6584 6585 6586 6603 6603# 6604 6605 6606 6607 6624 6624# 6625 6626 6636# 6663 6663# 6664 6664# 6665 6666 6667 6684 6684# 6685 6686 6687 6688 6705 6705# 6706 6707 6708 6709 6726 6726# 6727 6728 6729 6730 6747 6747# 6748 6749 6750 6751 6768 6768# 6769 6770 6771 6772 6789 6789# 6790 6791 6792 6793 6810 6810# 6811 6812 6813 6814 6831 6831# 6832 6833 6834 6835 6852 6852# 6853 6854 6855 6856 6873 6873# 6874 6875 6876 6877 6894 6894# 6895 6896 6897 6898 6915 6915# 6916 6917 6918 6919 6936 6936# 6937 6938 6939 6940 6957 6957# 6958 6959 6960 6961 6978 6978# 6979 6980 6981 6982 6999 6999# 7000 7001 7002 7003 7020 7020# 7021 7022 7023 7024 $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# SEQ 0187 $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# $ITRX1 451# $LPAPE 7040 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# SEQ 0188 $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0189 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 821 844 861 879 895 921 942 960 976 999 1021 1045 1061 1079 1094 1118 1139 1156 1177 1191 1214 1229 1246 1271 1294 1315 1330 1354 1370 1389 1402 1415 1427 1443 1457 1473 1493 1514 1531 1565 1582 1600 1617 1635 1658 1676 1693 1712 1735 1756 1773 1789 1806 1821 1843 1865 1882 1898 1914 1935 1952 1968 1985 2001 2018 2034 2051 2066 2083 2098 2114 2135 2156 2171 2192 2212 2228 2243 2264 2279 2295 2310 2326 2341 2362 2377 2398 2419 2435 2450 2466 2481 2497 2512 2528 2543 2559 2574 2598 2613 2634 2649 2672 2693 2709 2725 2746 2767 2783 2799 2820 2836 2852 2867 2883 2898 2914 2929 2945 2969 2994 3011 3041 3056 3077 3097 3118 3138 3159 3179 3201 3222 3238 3253 3269 3284 3300 3315 3331 3347 3364 3380 3402 3424 3441 3457 3479 3502 3519 3535 3560 3575 3598 3620 3637 3652 3674 3695 3718 3734 3752 3769 3792 3811 3828 3843 3859 3876 3902 3954 3974 3994 4014 4034 4054 4074 4094 4114 4134 4154 4174 4194 4214 4234 4254 4274 4294 4333 4353 4373 4393 4413 4433 4453 4473 4493 4513 4533 4553 4573 4593 4613 4633 4653 4673 4714 4734 4754 4774 4794 4814 4834 4854 4874 4894 4914 4934 4954 4974 4994 5014 5034 5054 5093 5113 5133 5153 5173 5193 5213 5233 5253 5273 5293 5313 5333 5353 5373 5393 5413 5433 5478 5499 5520 5541 5562 5583 5604 5625 5646 5667 5688 5709 5730 5751 5772 5793 5814 5833 5873 5894 5915 5936 5957 5978 5999 6020 6041 6062 6083 6104 6125 6146 6167 6188 6209 6229 6273 6294 6315 6336 6357 6378 6399 6420 6441 6462 6483 6504 6525 6546 6567 6588 6609 6629 6669 6690 6711 6732 6753 6774 6795 6816 6837 6858 6879 6900 6921 6942 6963 6984 7005 7026 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# SEQ 0190 MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# SEQ 0191 PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# SIXBTZ 261# STOP 48# 820 843 860 878 894 920 941 959 975 998 1020 1044 1060 1078 1093 1117 1138 1155 1176 1190 1213 1228 1245 1270 1293 1314 1329 1353 1369 1388 1401 1414 1426 1442 1456 1472 1492 1513 1530 1564 1581 1599 1616 1634 1657 1675 1692 1711 1734 1755 1772 1788 1805 1820 1842 1864 1881 1897 1913 1934 1951 1967 1984 2000 2017 2033 2050 2065 2082 2097 2113 2134 2155 2170 2191 2211 2227 2242 2263 2278 2294 2309 2325 2340 2361 2376 2397 2418 2434 2449 2465 2480 2496 2511 2527 2542 2558 2573 2597 2612 2633 2648 2671 2692 2708 2724 2745 2766 2782 2798 2819 2835 2851 2866 2882 2897 2913 2928 2944 2968 2993 3010 3040 3055 3076 3096 3117 3137 3158 3178 3200 3221 3237 3252 3268 3283 3299 3314 3330 3346 3363 3379 3401 3423 3440 3456 3478 3501 3518 3534 3559 3574 3597 3619 3636 3651 3673 3693 3716 3732 3751 3768 3791 3810 3827 3842 3858 3875 3901 3953 3973 3993 4013 4033 4053 4073 4093 4113 4133 4153 4173 4193 4213 4233 4253 4273 4293 4332 4352 4372 4392 4412 4432 4452 4472 SEQ 0192 4492 4512 4532 4552 4572 4592 4612 4632 4652 4672 4713 4733 4753 4773 4793 4813 4833 4853 4873 4893 4913 4933 4953 4973 4993 5013 5033 5053 5092 5112 5132 5152 5172 5192 5212 5232 5252 5272 5292 5312 5332 5352 5372 5392 5412 5432 5477 5498 5519 5540 5561 5582 5603 5624 5645 5666 5687 5708 5729 5750 5771 5792 5813 5832 5872 5893 5914 5935 5956 5977 5998 6019 6040 6061 6082 6103 6124 6145 6166 6187 6208 6228 6272 6293 6314 6335 6356 6377 6398 6419 6440 6461 6482 6503 6524 6545 6566 6587 6608 6628 6668 6689 6710 6731 6752 6773 6794 6815 6836 6857 6878 6899 6920 6941 6962 6983 7004 7025 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# WRTIM 356# WRUBR 356# ADD 3951 3971 3991 4011 4031 4051 4071 4091 4111 4131 4151 4171 4191 4211 4231 4251 4271 4291 4330 4350 4370 4390 4410 4430 4450 4470 4490 4510 SEQ 0193 4530 4550 4570 4590 4610 4630 4650 4670 4711 4731 4751 4771 4791 4811 4831 4851 4871 4891 4911 4931 4951 4971 4991 5011 5031 5051 5090 5110 5130 5150 5170 5190 5210 5230 5250 5270 5290 5310 5330 5350 5370 5390 5410 5430 5475 5496 5517 5538 5559 5580 5601 5622 5643 5664 5685 5706 5727 5748 5769 5790 5811 5830 5870 5891 5912 5933 5954 5975 5996 6017 6038 6059 6080 6101 6122 6143 6164 6185 6206 6226 6270 6291 6312 6333 6354 6375 6396 6417 6438 6459 6480 6501 6522 6543 6564 6585 6606 6626 6666 6687 6708 6729 6750 6771 6792 6813 6834 6855 6876 6897 6918 6939 6960 6981 7002 7023 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAI 892 918 939 957 973 996 1018 1042 1058 1076 1091 1115 1136 1153 1174 CAIE 819 859 1733 1804 2226 2241 2308 2360 2417 2433 2448 2464 2479 2510 2526 2541 2596 2647 2691 2818 2865 2881 2967 3039 3075 3136 3177 3251 3329 3400 3439 CAM 818 841 858 876 CAME 842 877 893 958 974 1019 1077 1092 1154 1175 1512 1529 1563 1598 1615 1633 1656 1674 1691 1754 1771 1787 1841 1863 1950 1966 1983 1999 2049 2081 2133 2154 2169 2190 2293 2324 2572 2611 2632 2670 2744 2765 2781 2797 2850 2896 2912 2927 2992 3009 3054 3095 3116 3157 3199 3220 3236 3267 3282 3298 3313 3378 3422 3477 3500 3517 3573 3650 3692 3731 3767 3826 3857 3874 3900 3952 3972 3992 4012 4032 4052 4072 4092 4112 4132 4152 4172 4192 4212 4232 4252 4272 4292 4331 4351 4371 4391 4411 4431 4451 4471 4491 4511 4531 4551 4571 4591 4611 4631 4651 4671 4712 4732 4752 4772 4792 4812 4832 4852 4872 4892 4912 4932 4952 4972 4992 5012 5032 5052 5091 5111 5131 5151 5171 5191 5211 5231 5251 5271 5291 5311 5331 5351 5371 5391 5411 5431 5476 5497 5518 5539 5560 5581 5602 5623 5644 5665 5686 5707 5728 5749 5770 5791 5812 5831 5871 5892 5913 5934 5955 5976 5997 6018 6039 6060 6081 6102 6123 6144 6165 6186 6207 6227 6271 6292 6313 6334 6355 6376 6397 6418 6439 6460 6481 6502 6523 6544 6565 6586 6607 6627 6667 6688 6709 6730 6751 6772 6793 6814 6835 6856 6877 6898 6919 6940 6961 6982 7003 7024 DEFINE 9 48 56 84 252 255 261 335 346 END 7166 HLL 1709 1732 1753 1770 1786 1803 HLLE 3454 3476 3516 HLLEI 3595 3617 HLLM 2942 2966 2991 HLLO 3053 3074 3135 3219 3281 3328 HLLOI 3176 3250 HLLZ 1818 1840 1862 1879 1895 1949 1965 1982 1998 2015 2031 2048 2080 HLLZI 1911 1932 2063 2095 HLR 2610 2646 2690 2764 2864 2895 2926 HLRE 3749 3766 3825 3840 3856 HLREI 3789 3808 HLREM 3873 HLRI 2722 2796 2833 HLRZ 3361 3399 3438 SEQ 0194 HRL 2556 2571 2595 2631 2706 2780 2817 2849 2880 2911 HRLE 3634 3671 3691 3714 3730 HRLEI 3649 HRLI 2669 2743 HRLM 3899 HRLOI 6665 6686 6707 6728 6749 6770 6791 6812 6833 6854 6875 6896 6917 6938 6959 6980 7001 7022 HRLZ 3344 HRLZI 3377 3421 4329 4349 4369 4389 4409 4429 4449 4469 4489 4509 4529 4549 4569 4589 4609 4629 4649 4669 5869 5890 5911 5932 5953 5974 5995 6016 6037 6058 6079 6100 6121 6142 6163 6184 6205 6225 HRR 2111 2132 2153 2189 2209 2225 2261 2276 2323 HRRE 3499 3532 3557 HRREI 3572 HRRI 2168 2240 2292 2307 HRRM 3008 3038 HRRO 3094 3115 3156 HRROI 3198 3235 3266 3297 3312 6269 6290 6311 6332 6353 6374 6395 6416 6437 6458 6479 6500 6521 6542 6563 6584 6605 6625 HRRZ 2338 2395 2416 2432 2447 2463 2478 2494 2509 2540 HRRZI 2359 2374 2525 3950 3970 3990 4010 4030 4050 4070 4090 4110 4130 4150 4170 4190 4210 4230 4250 4270 4290 5474 5495 5516 5537 5558 5579 5600 5621 5642 5663 5684 5705 5726 5747 5768 5789 5810 5829 IFDEF 356 407 408 409 410 7157 7164 IFE 3949 3969 3989 4009 4029 4049 4069 4089 4109 4129 4149 4169 4189 4209 4229 4249 4269 4289 4328 4348 4368 4388 4408 4428 4448 4468 4488 4508 4528 4548 4568 4588 4608 4628 4648 4668 4709 4729 4749 4769 4789 4809 4829 4849 4869 4889 4909 4929 4949 4969 4989 5009 5029 5049 5088 5108 5128 5148 5168 5188 5208 5228 5248 5268 5288 5308 5328 5348 5368 5388 5408 5428 5473 5494 5515 5536 5557 5578 5599 5620 5641 5662 5683 5704 5725 5746 5767 5788 5809 5868 5889 5910 5931 5952 5973 5994 6015 6036 6057 6078 6099 6120 6141 6162 6183 6204 6224 6268 6289 6310 6331 6352 6373 6394 6415 6436 6457 6478 6499 6520 6541 6562 6583 6604 6664 6685 6706 6727 6748 6769 6790 6811 6832 6853 6874 6895 6916 6937 6958 6979 7000 7021 IFNDEF 307 308 318 407 408 409 410 489 7040 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 7034 JSP 166 743 776 JUMPA 822 845 862 880 896 922 943 961 977 1000 1022 1046 1062 1080 1095 1119 1140 1157 1178 1192 1215 1230 1247 1272 1295 1316 1331 1355 1371 1390 1403 1416 1428 1444 1458 1474 1494 1515 1532 1566 1583 1601 1618 1636 1659 1677 1694 1713 1736 1757 1774 1790 1807 1822 1844 1866 1883 1899 1915 1936 1953 1969 1986 2002 2019 2035 2052 2067 2084 2099 2115 2136 2157 2172 2193 2213 2229 2244 2265 2280 2296 2311 2327 2342 2363 2378 2399 2420 2436 2451 2467 2482 2498 2513 2529 2544 2560 2575 2599 2614 2635 2650 2673 2694 2710 2726 2747 2768 2784 2800 2821 2837 2853 2868 2884 2899 2915 2930 2946 2970 2995 3012 3042 3057 3078 3098 3119 3139 3160 3180 3202 3223 3239 3254 3270 3285 3301 3316 3332 3348 3365 3381 3403 3425 3442 3458 3480 3503 3520 3536 3561 3576 3599 3621 3638 3653 3675 3696 3719 3735 3753 3770 3793 3812 3829 3844 3860 3877 SEQ 0195 3903 3955 3975 3995 4015 4035 4055 4075 4095 4115 4135 4155 4175 4195 4215 4235 4255 4275 4295 4334 4354 4374 4394 4414 4434 4454 4474 4494 4514 4534 4554 4574 4594 4614 4634 4654 4674 4715 4735 4755 4775 4795 4815 4835 4855 4875 4895 4915 4935 4955 4975 4995 5015 5035 5055 5094 5114 5134 5154 5174 5194 5214 5234 5254 5274 5294 5314 5334 5354 5374 5394 5414 5434 5479 5500 5521 5542 5563 5584 5605 5626 5647 5668 5689 5710 5731 5752 5773 5794 5815 5834 5874 5895 5916 5937 5958 5979 6000 6021 6042 6063 6084 6105 6126 6147 6168 6189 6210 6230 6274 6295 6316 6337 6358 6379 6400 6421 6442 6463 6484 6505 6526 6547 6568 6589 6610 6630 6670 6691 6712 6733 6754 6775 6796 6817 6838 6859 6880 6901 6922 6943 6964 6985 7006 7027 LALL 10 LIST 9 318 356 489 7040 7154 LIT 7041 LOC 26 359 683 703 707 710 715 733 738 MOVE 1242 1327 1613 1654 1689 3872 MOVEI 1631 1672 1981 2014 2047 2062 2275 2306 2431 2446 2493 2524 2816 2832 2848 2863 3311 3898 MOVSI 1997 2030 2079 2094 2291 2322 2462 2477 2508 2539 2879 2894 2910 2925 3327 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 PAGE 4301 5061 5821 6616 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 3925 4304 4685 5064 5447 5842 6242 6638 SETO 839 874 955 971 1016 1040 1074 1089 1134 1172 1210 1312 1351 1385 1412 1439 1454 1489 1596 1731 1752 1802 1839 1878 1910 1948 2131 2152 2167 2188 2358 2373 2394 2415 2570 2594 2609 2742 2763 2779 2795 2965 2989 3007 3036 3052 3093 3249 3265 3280 3296 3420 3437 3594 3616 3788 SETOM 745 752 778 SETZ 816 856 890 916 937 994 1056 1113 1151 1188 1225 1268 1290 1367 1398 1424 1469 1510 1527 1561 1578 1708 1769 1785 1817 1861 1894 1931 1964 2110 2208 2224 2239 2260 2337 2555 2630 2645 2668 2689 2705 2721 2941 2964 2990 3006 3037 3073 3114 3134 3155 3175 3197 3218 3234 3343 3360 3376 3398 3453 3475 3498 3515 3531 3556 3571 3633 3648 3748 3765 3871 3897 4710 4730 4750 4770 4790 4810 4830 4850 4870 4890 4910 4930 4950 4970 4990 5010 5030 5050 5089 5109 5129 5149 5169 5189 5209 5229 5249 5269 5289 5309 5329 5349 5369 5389 5409 5429 SETZM 742 747 775 780 7033 SIXBIT 77 78 574 575 583 584 SKIPA 1212 1227 1244 1292 1387 1400 1441 1471 1491 SKIPE 748 762 768 919 940 997 1043 1059 1116 1137 1580 1710 1819 1880 1896 1912 1933 2016 2032 2064 2096 2112 2210 2262 2277 2339 2375 2396 SEQ 0196 2495 2557 2707 2723 2834 2943 3345 3362 3455 3533 3558 3596 3618 3635 3672 3715 3750 3790 3809 3841 SKIPL 783 SKIPN 746 751 759 764 770 779 781 SOS 758 SUBTTL 30 82 117 319 356 357 685 773 807 1699 3918 4680 5440 6235 7035 TDC 1090 1114 1135 1152 1173 TDN 817 1211 1226 1386 1399 TDNA 1189 1313 1413 1425 TDNE 1243 1269 1352 1368 1440 TDNN 1291 1328 1455 1470 1490 TDO 891 917 938 956 972 1511 TDZ 995 1017 1041 1057 1075 TITLE 14 TLN 875 TLNE 744 777 TRN 857 TSN 840 TSO 1528 1562 1579 1597 1614 1632 1655 1673 1690 TTCALL 784 VAR 7162 XLIST 8 317 355 488 7039 XWD 840 1017 1090 1242 1327 1511 1512 1528 1529 1562 1563 1613 1614 1633 1654 1656 1689 1771 1786 1787 1803 1841 1863 1949 1950 1965 1966 1983 1999 2048 2049 2080 2081 2153 2154 2190 2261 2276 2323 2324 2395 2494 2509 2540 2670 2690 2706 2764 2780 2781 2797 2896 2912 2992 3009 3074 3115 3199 3219 3267 3281 3313 3328 3378 3399 3422 3438 3477 3516 3557 3650 3714 3730 3825 3840 3872 3900 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0197 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0198 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0199 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200 *030662 TDN 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030663 CAM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030664 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030666 JUMPA 0,030667 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030667 ---------- *030667 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030670 TSN 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201 *030671 CAM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030672 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030674 JUMPA 0,030675 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030675 ---------- *030675 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030676 TRN 0,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 123456 FINAL C(AC)= 000000 000000 ---------- *030677 CAM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202 *030700 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030702 JUMPA 0,030703 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030703 ---------- *030703 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030704 TLN 0,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 123456 FINAL C(AC)= 777777 777777 ---------- *030705 CAM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030706 CAME 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203 *030710 JUMPA 0,030711 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030711 ---------- *030711 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030712 TDO 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030713 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *030714 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030716 JUMPA 0,030717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030717 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204 *030717 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030720 TDO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030721 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030722 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030724 JUMPA 0,030725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030725 ---------- *030725 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205 *030726 TDO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030727 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030730 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030732 JUMPA 0,030733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030733 ---------- *030733 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030734 TDO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206 *030735 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *030736 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030740 JUMPA 0,030741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030741 ---------- *030741 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *030742 TDO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030743 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207 *030744 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030746 JUMPA 0,030747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030747 ---------- *030747 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030750 TDZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030751 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030752 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208 *030754 JUMPA 0,030755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030755 ---------- *030755 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030756 TDZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *030757 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000000 ---------- *030760 CAME 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *030762 JUMPA 0,030763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 030763 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209 *030763 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *030764 TDZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030765 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030766 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030770 JUMPA 0,030771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030771 ---------- *030771 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210 *030772 TDZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030773 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *030774 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030776 JUMPA 0,030777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030777 ---------- *030777 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031000 TDZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211 *031001 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *031002 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031004 JUMPA 0,031005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031005 ---------- *031005 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031006 TDC 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031007 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212 *031010 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031012 JUMPA 0,031013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031013 ---------- *031013 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031014 TDC 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031015 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031016 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213 *031020 JUMPA 0,031021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031021 ---------- *031021 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031022 TDC 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031023 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031024 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031026 JUMPA 0,031027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031027 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214 *031027 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031030 TDC 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031031 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *031032 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031034 JUMPA 0,031035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031035 ---------- *031035 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215 *031036 TDC 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031037 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *031040 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031043 ---------- *031043 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031044 TDNA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216 *031046 JUMPA 0,031047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031047 ---------- *031047 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031050 TDN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031051 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031053 JUMPA 0,031054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031054 ---------- *031054 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 *031055 TDN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031056 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031060 JUMPA 0,031061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031061 ---------- *031061 MOVE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031062 TDNE 0,033734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 707070 707070 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 *031063 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031065 JUMPA 0,031066 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031066 ---------- *031066 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031067 TDNE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031071 JUMPA 0,031072 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031072 ---------- *031072 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 *031073 TDNN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031074 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031077 ---------- *031077 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031100 TDNA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 *031102 JUMPA 0,031103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031103 ---------- *031103 MOVE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031104 TDNN 0,033734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 707070 707070 FINAL C(AC)= 777777 000000 ---------- *031106 JUMPA 0,031107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031107 ---------- *031107 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *031110 TDNE 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 *031112 JUMPA 0,031113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031113 ---------- *031113 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031114 TDNE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031116 JUMPA 0,031117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031117 ---------- *031117 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031120 TDN 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 *031121 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031123 JUMPA 0,031124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031124 ---------- *031124 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031125 TDN 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031126 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 *031130 JUMPA 0,031131 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031131 ---------- *031131 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031132 TDNA 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031134 JUMPA 0,031135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031135 ---------- *031135 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031136 TDNA 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 *031140 JUMPA 0,031141 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031141 ---------- *031141 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031142 TDNE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031143 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031145 JUMPA 0,031146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031146 ---------- *031146 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *031147 TDNN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031151 JUMPA 0,031152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031152 ---------- *031152 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031153 TDNN 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031154 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *031156 JUMPA 0,031157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031157 ---------- *031157 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031160 TDNN 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031161 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031163 JUMPA 0,031164 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031164 ---------- *031164 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *031165 TDO 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031166 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031170 JUMPA 0,031171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031171 ---------- *031171 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031172 TSO 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *031173 CAME 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *031175 JUMPA 0,031176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031176 ---------- *031176 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031177 TSO 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031200 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031202 JUMPA 0,031203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031203 ---------- *031203 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *031204 TSO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031205 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031207 JUMPA 0,031210 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031210 ---------- *031210 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031211 TSO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *031212 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031214 JUMPA 0,031215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031215 ---------- *031215 MOVE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031216 TSO 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031217 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031221 JUMPA 0,031222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031222 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *031222 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031223 TSO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *031224 CAME 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *031226 JUMPA 0,031227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031227 ---------- *031227 MOVE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031230 TSO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *031231 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031233 JUMPA 0,031234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031234 ---------- *031234 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031235 TSO 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031236 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031240 JUMPA 0,031241 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031241 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *031241 MOVE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031242 TSO 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031243 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031245 JUMPA 0,031246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031246 ---------- *031246 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031247 HLL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *031250 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031252 JUMPA 0,031253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031253 ---------- *031253 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031254 HLL 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *031255 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031257 JUMPA 0,031260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031260 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *031260 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *031261 HLL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031262 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031264 JUMPA 0,031265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031265 ---------- *031265 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031266 HLL 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *031267 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031271 JUMPA 0,031272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031272 ---------- *031272 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031273 HLL 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031274 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031276 JUMPA 0,031277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031277 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *031277 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *031300 HLL 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031301 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031303 JUMPA 0,031304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031304 ---------- *031304 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031305 HLLZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031306 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031310 JUMPA 0,031311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031311 ---------- *031311 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031312 HLLZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- *031313 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031315 JUMPA 0,031316 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031316 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031316 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031317 HLLZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- *031320 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031322 JUMPA 0,031323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031323 ---------- *031323 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *031324 HLLZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031325 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031327 JUMPA 0,031330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031330 ---------- *031330 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031331 HLLZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031332 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031334 JUMPA 0,031335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031335 ---------- *031335 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031336 HLLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031337 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031341 JUMPA 0,031342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031342 ---------- *031342 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031343 HLLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031344 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031346 JUMPA 0,031347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031347 ---------- *031347 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031350 HLLZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *031351 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031353 JUMPA 0,031354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031354 ---------- *031354 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031355 HLLZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031356 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031360 JUMPA 0,031361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031361 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *031361 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031362 HLLZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- *031363 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031365 JUMPA 0,031366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031366 ---------- *031366 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031367 HLLZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *031370 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031372 JUMPA 0,031373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031373 ---------- *031373 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031374 HLLZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031375 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031377 JUMPA 0,031400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *031400 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031401 HLLZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031402 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031404 JUMPA 0,031405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031405 ---------- *031405 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *031406 HLLZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031407 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031411 JUMPA 0,031412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031412 ---------- *031412 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031413 HLLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031414 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *031416 JUMPA 0,031417 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031417 ---------- *031417 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031420 HLLZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031421 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031423 JUMPA 0,031424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031424 ---------- *031424 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *031425 HLLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031426 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031430 JUMPA 0,031431 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031431 ---------- *031431 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031432 HRR 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *031433 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031435 JUMPA 0,031436 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031436 ---------- *031436 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031437 HRR 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031440 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031442 JUMPA 0,031443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031443 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *031443 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031444 HRR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031445 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031447 JUMPA 0,031450 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031450 ---------- *031450 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *031451 HRRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *031452 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031454 JUMPA 0,031455 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031455 ---------- *031455 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031456 HRR 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *031457 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031461 JUMPA 0,031462 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031462 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *031462 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031463 HRR 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031464 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031466 JUMPA 0,031467 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031467 ---------- *031467 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *031470 HRR 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- *031471 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031473 JUMPA 0,031474 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031474 ---------- *031474 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031475 HRRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031476 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *031500 JUMPA 0,031501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031501 ---------- *031501 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031502 HRR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031503 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031505 JUMPA 0,031506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031506 ---------- *031506 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *031507 HRR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031510 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031512 JUMPA 0,031513 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031513 ---------- *031513 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031514 HRRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *031515 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031517 JUMPA 0,031520 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031520 ---------- *031520 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031521 HRRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031522 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031524 JUMPA 0,031525 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *031525 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031526 HRR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *031527 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031531 JUMPA 0,031532 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031532 ---------- *031532 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031533 HRRZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *031534 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031536 JUMPA 0,031537 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031537 ---------- *031537 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031540 HRRZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031541 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031543 JUMPA 0,031544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031544 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *031544 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *031545 HRRZI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031546 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031550 JUMPA 0,031551 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031551 ---------- *031551 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *031552 HRRZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031553 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031555 JUMPA 0,031556 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031556 ---------- *031556 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031557 HRRZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *031560 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031562 JUMPA 0,031563 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031563 ---------- *031563 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031564 HRRZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- *031565 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031567 JUMPA 0,031570 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031570 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *031570 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031571 HRRZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031572 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031574 JUMPA 0,031575 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031575 ---------- *031575 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031576 HRRZ 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *031577 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031601 JUMPA 0,031602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031602 ---------- *031602 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031603 HRRZ 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031604 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031606 JUMPA 0,031607 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031607 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *031607 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031610 HRRZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031611 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031613 JUMPA 0,031614 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031614 ---------- *031614 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *031615 HRRZ 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031616 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031620 JUMPA 0,031621 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031621 ---------- *031621 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031622 HRRZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031623 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *031625 JUMPA 0,031626 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031626 ---------- *031626 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031627 HRRZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031630 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031632 JUMPA 0,031633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031633 ---------- *031633 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *031634 HRL 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031635 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031637 JUMPA 0,031640 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031640 ---------- *031640 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031641 HRL 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *031642 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031644 JUMPA 0,031645 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031645 ---------- *031645 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031646 HRL 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *031647 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031651 JUMPA 0,031652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031652 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *031652 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *031653 HLR 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *031654 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031656 JUMPA 0,031657 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031657 ---------- *031657 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031660 HRL 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *031661 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031663 JUMPA 0,031664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031664 ---------- *031664 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031665 HLR 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- *031666 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031670 JUMPA 0,031671 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031671 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *031671 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031672 HRLI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031673 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031675 JUMPA 0,031676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031676 ---------- *031676 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031677 HLR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *031700 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031702 JUMPA 0,031703 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031703 ---------- *031703 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031704 HRL 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *031705 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031707 JUMPA 0,031710 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031710 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *031710 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031711 HLRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031712 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031714 JUMPA 0,031715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031715 ---------- *031715 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *031716 HRLI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *031717 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031721 JUMPA 0,031722 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031722 ---------- *031722 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031723 HLR 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *031724 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *031726 JUMPA 0,031727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031727 ---------- *031727 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031730 HRL 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *031731 CAME 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *031733 JUMPA 0,031734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031734 ---------- *031734 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *031735 HLRI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031736 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031740 JUMPA 0,031741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031741 ---------- *031741 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031742 HRL 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *031743 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *031745 JUMPA 0,031746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031746 ---------- *031746 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031747 HLRI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031750 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031752 JUMPA 0,031753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031753 ---------- *031753 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *031754 HRL 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031755 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031757 JUMPA 0,031760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031760 ---------- *031760 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031761 HLR 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 777777 ---------- *031762 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *031764 JUMPA 0,031765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 031765 ---------- *031765 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031766 HRL 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031767 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031771 JUMPA 0,031772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031772 ---------- *031772 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *031773 HLR 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *031774 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031776 JUMPA 0,031777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 031777 ---------- *031777 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032000 HRL 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 000000 ---------- *032001 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *032003 JUMPA 0,032004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032004 ---------- *032004 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032005 HLR 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032006 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032010 JUMPA 0,032011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032011 ---------- *032011 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *032012 HLLM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *032013 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032015 JUMPA 0,032016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032016 ---------- *032016 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032017 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *032020 HLLM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 777777 ---------- *032021 CAIE 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032023 JUMPA 0,032024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032024 ---------- *032024 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032025 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032026 HLLM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(E)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *032027 CAME 1,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032031 JUMPA 0,032032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032032 ---------- *032032 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032033 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032034 HRRM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 777777 000000 ---------- *032035 CAME 1,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *032037 JUMPA 0,032040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032040 ---------- *032040 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032041 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032042 HRRM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(E)= 000000 777777 ---------- *032043 CAIE 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032045 JUMPA 0,032046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032046 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *032046 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032047 HLLO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032050 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032052 JUMPA 0,032053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032053 ---------- *032053 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032054 HLLO 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *032055 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032057 JUMPA 0,032060 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032060 ---------- *032060 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032061 HRRO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032062 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032064 JUMPA 0,032065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032065 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *032065 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032066 HRRO 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *032067 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032071 JUMPA 0,032072 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032072 ---------- *032072 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *032073 HLLO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *032074 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032076 JUMPA 0,032077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032077 ---------- *032077 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032100 HRRO 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *032101 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032103 JUMPA 0,032104 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032104 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *032104 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *032105 HLLOI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 777777 ---------- *032106 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032110 JUMPA 0,032111 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032111 ---------- *032111 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032112 HRROI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *032113 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032115 JUMPA 0,032116 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032116 ---------- *032116 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *032117 HLLO 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032120 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032122 JUMPA 0,032123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032123 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *032123 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032124 HRROI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032125 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032127 JUMPA 0,032130 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032130 ---------- *032130 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032131 HLLOI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *032132 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032134 JUMPA 0,032135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032135 ---------- *032135 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032136 HRROI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *032137 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032141 JUMPA 0,032142 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032142 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *032142 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032143 HLLO 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032144 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032146 JUMPA 0,032147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032147 ---------- *032147 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032150 HRROI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *032151 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032153 JUMPA 0,032154 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032154 ---------- *032154 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *032155 HRROI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *032156 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032160 JUMPA 0,032161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032161 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *032161 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032162 HLLO 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *032163 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032165 JUMPA 0,032166 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032166 ---------- *032166 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032167 HRLZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *032170 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032172 JUMPA 0,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032173 ---------- *032173 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032174 HLRZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032175 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *032177 JUMPA 0,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032200 ---------- *032200 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032201 HRLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032202 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032204 JUMPA 0,032205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032205 ---------- *032205 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *032206 HLRZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *032207 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032211 JUMPA 0,032212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032212 ---------- *032212 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032213 HRLZI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032214 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *032216 JUMPA 0,032217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032217 ---------- *032217 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032220 HLRZ 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 777777 ---------- *032221 CAIE 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032223 JUMPA 0,032224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032224 ---------- *032224 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *032225 HLLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032226 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032230 JUMPA 0,032231 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032231 ---------- *032231 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032232 HLLE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *032233 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032235 JUMPA 0,032236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032236 ---------- *032236 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032237 HRRE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032240 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032242 JUMPA 0,032243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032243 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *032243 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032244 HLLE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032245 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032247 JUMPA 0,032250 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032250 ---------- *032250 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032251 HRRE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *032252 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032254 JUMPA 0,032255 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032255 ---------- *032255 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032256 HRRE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *032257 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *032261 JUMPA 0,032262 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032262 ---------- *032262 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032263 HRREI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032264 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032266 JUMPA 0,032267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032267 ---------- *032267 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *032270 HLLEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032271 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032273 JUMPA 0,032274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032274 ---------- *032274 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032275 HLLEI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 400000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *032276 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032300 JUMPA 0,032301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032301 ---------- *032301 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032302 HRLE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032303 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *032305 JUMPA 0,032306 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032306 ---------- *032306 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032307 HRLEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032310 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032312 JUMPA 0,032313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032313 ---------- *032313 HRLE 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *032314 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032316 JUMPA 0,032317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032317 ---------- *032317 HRLE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032320 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032322 JUMPA 0,032323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032323 ---------- *032323 HRLE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *032324 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032326 JUMPA 0,032327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032327 ---------- *032327 HRLE 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *032330 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032332 JUMPA 0,032333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032333 ---------- *032333 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *032334 HLRE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032335 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032337 JUMPA 0,032340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032340 ---------- *032340 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032341 HLRE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *032342 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032344 JUMPA 0,032345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032345 ---------- *032345 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032346 HLREI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032347 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032351 JUMPA 0,032352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032352 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *032352 HLREI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032353 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032355 JUMPA 0,032356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032356 ---------- *032356 HLRE 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 ---------- *032357 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032361 JUMPA 0,032362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032362 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *032362 HLRE 0,033733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032363 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032365 JUMPA 0,032366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032366 ---------- *032366 HLRE 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032367 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032371 JUMPA 0,032372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032372 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *032372 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032373 MOVE 1,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *032374 HLREM 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *032375 CAME 0,033730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032377 JUMPA 0,032400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032400 ---------- *032400 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *032401 MOVEI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *032402 HRLM 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(E)= 777777 000000 ---------- *032403 CAME 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032405 JUMPA 0,032406 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032406 ---------- *032406 HRRZI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032407 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *032410 CAME 0,033735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032412 JUMPA 0,032413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 032413 ---------- *032413 HRRZI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032414 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000000 FINAL C(AC)= 000000 000002 ---------- *032415 CAME 0,033736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 ---------- *032417 JUMPA 0,032420 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 032420 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *032420 HRRZI 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032421 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 ---------- *032422 CAME 0,033737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 ---------- *032424 JUMPA 0,032425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 032425 ---------- *032425 HRRZI 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032426 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *032427 CAME 0,033740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 ---------- *032431 JUMPA 0,032432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 032432 ---------- *032432 HRRZI 0,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *032433 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000000 FINAL C(AC)= 000000 000020 ---------- *032434 CAME 0,033741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 ---------- *032436 JUMPA 0,032437 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 032437 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *032437 HRRZI 0,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *032440 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000000 FINAL C(AC)= 000000 000040 ---------- *032441 CAME 0,033742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 ---------- *032443 JUMPA 0,032444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 032444 ---------- *032444 HRRZI 0,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *032445 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000000 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *032446 CAME 0,033743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 ---------- *032450 JUMPA 0,032451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 032451 ---------- *032451 HRRZI 0,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *032452 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000000 FINAL C(AC)= 000000 000200 ---------- *032453 CAME 0,033744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 ---------- *032455 JUMPA 0,032456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 032456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *032456 HRRZI 0,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *032457 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000000 FINAL C(AC)= 000000 000400 ---------- *032460 CAME 0,033745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 ---------- *032462 JUMPA 0,032463 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 032463 ---------- *032463 HRRZI 0,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *032464 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 000000 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *032465 CAME 0,033746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 ---------- *032467 JUMPA 0,032470 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 032470 ---------- *032470 HRRZI 0,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *032471 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 000000 FINAL C(AC)= 000000 002000 ---------- *032472 CAME 0,033747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 ---------- *032474 JUMPA 0,032475 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 032475 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *032475 HRRZI 0,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *032476 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 000000 FINAL C(AC)= 000000 004000 ---------- *032477 CAME 0,033750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 ---------- *032501 JUMPA 0,032502 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 032502 ---------- *032502 HRRZI 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *032503 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 000000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *032504 CAME 0,033751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 ---------- *032506 JUMPA 0,032507 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 032507 ---------- *032507 HRRZI 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *032510 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 000000 FINAL C(AC)= 000000 020000 ---------- *032511 CAME 0,033752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 ---------- *032513 JUMPA 0,032514 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 032514 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *032514 HRRZI 0,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *032515 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 000000 FINAL C(AC)= 000000 040000 ---------- *032516 CAME 0,033753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 ---------- *032520 JUMPA 0,032521 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 032521 ---------- *032521 HRRZI 0,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *032522 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 000000 FINAL C(AC)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *032523 CAME 0,033754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 ---------- *032525 JUMPA 0,032526 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 032526 ---------- *032526 HRRZI 0,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *032527 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 000000 FINAL C(AC)= 000000 200000 ---------- *032530 CAME 0,033755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 ---------- *032532 JUMPA 0,032533 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 032533 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *032533 HRRZI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *032534 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 000000 FINAL C(AC)= 000000 400000 ---------- *032535 CAME 0,033756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 ---------- *032537 JUMPA 0,032540 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 032540 ---------- *032540 HRLZI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *032541 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000000 000000 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *032542 CAME 0,033757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *032544 JUMPA 0,032545 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 032545 ---------- *032545 HRLZI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 000002 FINAL C(AC)= 000002 000000 ---------- *032546 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000000 000000 FINAL C(AC)= 000002 000000 ---------- *032547 CAME 0,033760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 ---------- *032551 JUMPA 0,032552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 032552 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *032552 HRLZI 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 000004 FINAL C(AC)= 000004 000000 ---------- *032553 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000000 000000 FINAL C(AC)= 000004 000000 ---------- *032554 CAME 0,033761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 ---------- *032556 JUMPA 0,032557 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 032557 ---------- *032557 HRLZI 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 000010 FINAL C(AC)= 000010 000000 ---------- *032560 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000000 000000 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *032561 CAME 0,033762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 ---------- *032563 JUMPA 0,032564 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 032564 ---------- *032564 HRLZI 0,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 000020 FINAL C(AC)= 000020 000000 ---------- *032565 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000000 000000 FINAL C(AC)= 000020 000000 ---------- *032566 CAME 0,033763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 ---------- *032570 JUMPA 0,032571 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 032571 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *032571 HRLZI 0,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 000040 FINAL C(AC)= 000040 000000 ---------- *032572 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000000 000000 FINAL C(AC)= 000040 000000 ---------- *032573 CAME 0,033764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 ---------- *032575 JUMPA 0,032576 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 032576 ---------- *032576 HRLZI 0,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *032577 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000000 000000 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *032600 CAME 0,033765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 ---------- *032602 JUMPA 0,032603 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 032603 ---------- *032603 HRLZI 0,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 000200 FINAL C(AC)= 000200 000000 ---------- *032604 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000000 000000 FINAL C(AC)= 000200 000000 ---------- *032605 CAME 0,033766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 ---------- *032607 JUMPA 0,032610 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 032610 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *032610 HRLZI 0,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 000400 FINAL C(AC)= 000400 000000 ---------- *032611 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000000 000000 FINAL C(AC)= 000400 000000 ---------- *032612 CAME 0,033767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 ---------- *032614 JUMPA 0,032615 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 032615 ---------- *032615 HRLZI 0,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 001000 FINAL C(AC)= 001000 000000 ---------- *032616 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 000000 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *032617 CAME 0,033770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 ---------- *032621 JUMPA 0,032622 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 032622 ---------- *032622 HRLZI 0,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 002000 FINAL C(AC)= 002000 000000 ---------- *032623 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 000000 000000 FINAL C(AC)= 002000 000000 ---------- *032624 CAME 0,033771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 ---------- *032626 JUMPA 0,032627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 032627 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *032627 HRLZI 0,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 004000 FINAL C(AC)= 004000 000000 ---------- *032630 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 000000 000000 FINAL C(AC)= 004000 000000 ---------- *032631 CAME 0,033772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 ---------- *032633 JUMPA 0,032634 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 032634 ---------- *032634 HRLZI 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 010000 FINAL C(AC)= 010000 000000 ---------- *032635 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 000000 000000 FINAL C(AC)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *032636 CAME 0,033773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 ---------- *032640 JUMPA 0,032641 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 032641 ---------- *032641 HRLZI 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *032642 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 000000 000000 FINAL C(AC)= 020000 000000 ---------- *032643 CAME 0,033774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 ---------- *032645 JUMPA 0,032646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 032646 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *032646 HRLZI 0,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *032647 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 000000 000000 FINAL C(AC)= 040000 000000 ---------- *032650 CAME 0,033775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 ---------- *032652 JUMPA 0,032653 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 032653 ---------- *032653 HRLZI 0,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *032654 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 000000 000000 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *032655 CAME 0,033776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 ---------- *032657 JUMPA 0,032660 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 032660 ---------- *032660 HRLZI 0,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *032661 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 200000 000000 ---------- *032662 CAME 0,033777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 ---------- *032664 JUMPA 0,032665 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 032665 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *032665 HRLZI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *032666 ADD 0,033732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 000000 000000 FINAL C(AC)= 400000 000000 ---------- *032667 CAME 0,034000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- *032671 JUMPA 0,032672 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 032672 ---------- *032672 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *032673 ADD 0,034001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *032674 CAME 0,034001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *032676 JUMPA 0,032677 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 032677 ---------- *032677 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 ---------- *032700 ADD 0,034002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 777777 777775 ---------- *032701 CAME 0,034002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 ---------- *032703 JUMPA 0,032704 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 032704 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *032704 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 FINAL C(AC)= 000000 000000 ---------- *032705 ADD 0,034003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 777777 777773 ---------- *032706 CAME 0,034003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 777777 777773 ---------- *032710 JUMPA 0,032711 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 032711 ---------- *032711 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 777777 777773 FINAL C(AC)= 000000 000000 ---------- *032712 ADD 0,034004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 777777 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *032713 CAME 0,034004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(E)= 777777 777767 ---------- *032715 JUMPA 0,032716 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 032716 ---------- *032716 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(E)= 777777 777767 FINAL C(AC)= 000000 000000 ---------- *032717 ADD 0,034005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 777777 777757 ---------- *032720 CAME 0,034005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(E)= 777777 777757 ---------- *032722 JUMPA 0,032723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 E= 000000 032723 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *032723 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(E)= 777777 777757 FINAL C(AC)= 000000 000000 ---------- *032724 ADD 0,034006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 777777 777737 ---------- *032725 CAME 0,034006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(E)= 777777 777737 ---------- *032727 JUMPA 0,032730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 E= 000000 032730 ---------- *032730 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(E)= 777777 777737 FINAL C(AC)= 000000 000000 ---------- *032731 ADD 0,034007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 777777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *032732 CAME 0,034007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(E)= 777777 777677 ---------- *032734 JUMPA 0,032735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 E= 000000 032735 ---------- *032735 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(E)= 777777 777677 FINAL C(AC)= 000000 000000 ---------- *032736 ADD 0,034010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 777777 777577 ---------- *032737 CAME 0,034010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(E)= 777777 777577 ---------- *032741 JUMPA 0,032742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 E= 000000 032742 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *032742 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(E)= 777777 777577 FINAL C(AC)= 000000 000000 ---------- *032743 ADD 0,034011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 777777 777377 ---------- *032744 CAME 0,034011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(E)= 777777 777377 ---------- *032746 JUMPA 0,032747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 E= 000000 032747 ---------- *032747 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(E)= 777777 777377 FINAL C(AC)= 000000 000000 ---------- *032750 ADD 0,034012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 777777 776777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *032751 CAME 0,034012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 777777 776777 ---------- *032753 JUMPA 0,032754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 E= 000000 032754 ---------- *032754 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 777777 776777 FINAL C(AC)= 000000 000000 ---------- *032755 ADD 0,034013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 777777 775777 ---------- *032756 CAME 0,034013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(E)= 777777 775777 ---------- *032760 JUMPA 0,032761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 E= 000000 032761 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *032761 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(E)= 777777 775777 FINAL C(AC)= 000000 000000 ---------- *032762 ADD 0,034014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 777777 773777 ---------- *032763 CAME 0,034014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(E)= 777777 773777 ---------- *032765 JUMPA 0,032766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 E= 000000 032766 ---------- *032766 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(E)= 777777 773777 FINAL C(AC)= 000000 000000 ---------- *032767 ADD 0,034015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 777777 767777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *032770 CAME 0,034015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(E)= 777777 767777 ---------- *032772 JUMPA 0,032773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 E= 000000 032773 ---------- *032773 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(E)= 777777 767777 FINAL C(AC)= 000000 000000 ---------- *032774 ADD 0,034016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 777777 757777 ---------- *032775 CAME 0,034016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(E)= 777777 757777 ---------- *032777 JUMPA 0,033000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 E= 000000 033000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *033000 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(E)= 777777 757777 FINAL C(AC)= 000000 000000 ---------- *033001 ADD 0,034017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 777777 737777 ---------- *033002 CAME 0,034017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(E)= 777777 737777 ---------- *033004 JUMPA 0,033005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 E= 000000 033005 ---------- *033005 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(E)= 777777 737777 FINAL C(AC)= 000000 000000 ---------- *033006 ADD 0,034020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 777777 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *033007 CAME 0,034020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(E)= 777777 677777 ---------- *033011 JUMPA 0,033012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 E= 000000 033012 ---------- *033012 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(E)= 777777 677777 FINAL C(AC)= 000000 000000 ---------- *033013 ADD 0,034021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 777777 577777 ---------- *033014 CAME 0,034021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(E)= 777777 577777 ---------- *033016 JUMPA 0,033017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 E= 000000 033017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *033017 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(E)= 777777 577777 FINAL C(AC)= 000000 000000 ---------- *033020 ADD 0,034022 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 777777 377777 ---------- *033021 CAME 0,034022 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(E)= 777777 377777 ---------- *033023 JUMPA 0,033024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 E= 000000 033024 ---------- *033024 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(E)= 777777 377777 FINAL C(AC)= 000000 000000 ---------- *033025 ADD 0,034023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 777776 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *033026 CAME 0,034023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(E)= 777776 777777 ---------- *033030 JUMPA 0,033031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 033031 ---------- *033031 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(E)= 777776 777777 FINAL C(AC)= 000000 000000 ---------- *033032 ADD 0,034024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 777775 777777 ---------- *033033 CAME 0,034024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(E)= 777775 777777 ---------- *033035 JUMPA 0,033036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 E= 000000 033036 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *033036 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(E)= 777775 777777 FINAL C(AC)= 000000 000000 ---------- *033037 ADD 0,034025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 777773 777777 ---------- *033040 CAME 0,034025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(E)= 777773 777777 ---------- *033042 JUMPA 0,033043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 E= 000000 033043 ---------- *033043 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(E)= 777773 777777 FINAL C(AC)= 000000 000000 ---------- *033044 ADD 0,034026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 777767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *033045 CAME 0,034026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(E)= 777767 777777 ---------- *033047 JUMPA 0,033050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 E= 000000 033050 ---------- *033050 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(E)= 777767 777777 FINAL C(AC)= 000000 000000 ---------- *033051 ADD 0,034027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 777757 777777 ---------- *033052 CAME 0,034027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(E)= 777757 777777 ---------- *033054 JUMPA 0,033055 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 E= 000000 033055 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *033055 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(E)= 777757 777777 FINAL C(AC)= 000000 000000 ---------- *033056 ADD 0,034030 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 777737 777777 ---------- *033057 CAME 0,034030 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(E)= 777737 777777 ---------- *033061 JUMPA 0,033062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 E= 000000 033062 ---------- *033062 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(E)= 777737 777777 FINAL C(AC)= 000000 000000 ---------- *033063 ADD 0,034031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 777677 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *033064 CAME 0,034031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(E)= 777677 777777 ---------- *033066 JUMPA 0,033067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 E= 000000 033067 ---------- *033067 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(E)= 777677 777777 FINAL C(AC)= 000000 000000 ---------- *033070 ADD 0,034032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 777577 777777 ---------- *033071 CAME 0,034032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(E)= 777577 777777 ---------- *033073 JUMPA 0,033074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 E= 000000 033074 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *033074 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(E)= 777577 777777 FINAL C(AC)= 000000 000000 ---------- *033075 ADD 0,034033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 777377 777777 ---------- *033076 CAME 0,034033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(E)= 777377 777777 ---------- *033100 JUMPA 0,033101 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 E= 000000 033101 ---------- *033101 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(E)= 777377 777777 FINAL C(AC)= 000000 000000 ---------- *033102 ADD 0,034034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 776777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *033103 CAME 0,034034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(E)= 776777 777777 ---------- *033105 JUMPA 0,033106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 E= 000000 033106 ---------- *033106 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(E)= 776777 777777 FINAL C(AC)= 000000 000000 ---------- *033107 ADD 0,034035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 775777 777777 ---------- *033110 CAME 0,034035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(E)= 775777 777777 ---------- *033112 JUMPA 0,033113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 E= 000000 033113 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *033113 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(E)= 775777 777777 FINAL C(AC)= 000000 000000 ---------- *033114 ADD 0,034036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 773777 777777 ---------- *033115 CAME 0,034036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(E)= 773777 777777 ---------- *033117 JUMPA 0,033120 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 E= 000000 033120 ---------- *033120 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(E)= 773777 777777 FINAL C(AC)= 000000 000000 ---------- *033121 ADD 0,034037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 767777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *033122 CAME 0,034037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(E)= 767777 777777 ---------- *033124 JUMPA 0,033125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 E= 000000 033125 ---------- *033125 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(E)= 767777 777777 FINAL C(AC)= 000000 000000 ---------- *033126 ADD 0,034040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 757777 777777 ---------- *033127 CAME 0,034040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(E)= 757777 777777 ---------- *033131 JUMPA 0,033132 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 E= 000000 033132 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *033132 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(E)= 757777 777777 FINAL C(AC)= 000000 000000 ---------- *033133 ADD 0,034041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 737777 777777 ---------- *033134 CAME 0,034041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(E)= 737777 777777 ---------- *033136 JUMPA 0,033137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 E= 000000 033137 ---------- *033137 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(E)= 737777 777777 FINAL C(AC)= 000000 000000 ---------- *033140 ADD 0,034042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 677777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *033141 CAME 0,034042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(E)= 677777 777777 ---------- *033143 JUMPA 0,033144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 033144 ---------- *033144 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(E)= 677777 777777 FINAL C(AC)= 000000 000000 ---------- *033145 ADD 0,034043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 577777 777777 ---------- *033146 CAME 0,034043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(E)= 577777 777777 ---------- *033150 JUMPA 0,033151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 033151 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *033151 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(E)= 577777 777777 FINAL C(AC)= 000000 000000 ---------- *033152 ADD 0,034044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033153 CAME 0,034044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 ---------- *033155 JUMPA 0,033156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033156 ---------- *033156 HRRZI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033157 ADD 0,033735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *033160 CAME 0,033736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 ---------- *033162 JUMPA 0,033163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 033163 ---------- *033163 HRRZI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033164 ADD 0,033736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000004 ---------- *033165 CAME 0,033737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 ---------- *033167 JUMPA 0,033170 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 033170 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *033170 HRRZI 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *033171 ADD 0,033737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(AC)= 000000 000010 ---------- *033172 CAME 0,033740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 ---------- *033174 JUMPA 0,033175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 033175 ---------- *033175 HRRZI 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *033176 ADD 0,033740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *033177 CAME 0,033741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 ---------- *033201 JUMPA 0,033202 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 033202 ---------- *033202 HRRZI 0,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *033203 ADD 0,033741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 000000 000020 FINAL C(AC)= 000000 000040 ---------- *033204 CAME 0,033742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 ---------- *033206 JUMPA 0,033207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 033207 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *033207 HRRZI 0,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *033210 ADD 0,033742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 000000 000040 FINAL C(AC)= 000000 000100 ---------- *033211 CAME 0,033743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 ---------- *033213 JUMPA 0,033214 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 033214 ---------- *033214 HRRZI 0,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *033215 ADD 0,033743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *033216 CAME 0,033744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 ---------- *033220 JUMPA 0,033221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 033221 ---------- *033221 HRRZI 0,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *033222 ADD 0,033744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 000000 000400 ---------- *033223 CAME 0,033745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 ---------- *033225 JUMPA 0,033226 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 033226 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *033226 HRRZI 0,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *033227 ADD 0,033745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 000000 000400 FINAL C(AC)= 000000 001000 ---------- *033230 CAME 0,033746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 ---------- *033232 JUMPA 0,033233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 033233 ---------- *033233 HRRZI 0,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *033234 ADD 0,033746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 000000 001000 FINAL C(AC)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *033235 CAME 0,033747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 ---------- *033237 JUMPA 0,033240 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 033240 ---------- *033240 HRRZI 0,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *033241 ADD 0,033747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 000000 002000 FINAL C(AC)= 000000 004000 ---------- *033242 CAME 0,033750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 ---------- *033244 JUMPA 0,033245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 033245 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *033245 HRRZI 0,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *033246 ADD 0,033750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 000000 004000 FINAL C(AC)= 000000 010000 ---------- *033247 CAME 0,033751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 ---------- *033251 JUMPA 0,033252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 033252 ---------- *033252 HRRZI 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *033253 ADD 0,033751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 000000 010000 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *033254 CAME 0,033752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 ---------- *033256 JUMPA 0,033257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 033257 ---------- *033257 HRRZI 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *033260 ADD 0,033752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 000000 020000 FINAL C(AC)= 000000 040000 ---------- *033261 CAME 0,033753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 ---------- *033263 JUMPA 0,033264 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 033264 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *033264 HRRZI 0,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *033265 ADD 0,033753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 000000 040000 FINAL C(AC)= 000000 100000 ---------- *033266 CAME 0,033754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 ---------- *033270 JUMPA 0,033271 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 033271 ---------- *033271 HRRZI 0,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *033272 ADD 0,033754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 000000 100000 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *033273 CAME 0,033755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 ---------- *033275 JUMPA 0,033276 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 033276 ---------- *033276 HRRZI 0,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *033277 ADD 0,033755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 000000 200000 FINAL C(AC)= 000000 400000 ---------- *033300 CAME 0,033756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 ---------- *033302 JUMPA 0,033303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 033303 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *033303 HRRZI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *033304 ADD 0,033756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 000000 400000 FINAL C(AC)= 000001 000000 ---------- *033305 CAME 0,033757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *033307 JUMPA 0,033310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 033310 ---------- *033310 HRLZI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *033311 ADD 0,033757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *033312 CAME 0,033760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 ---------- *033314 JUMPA 0,033315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 033315 ---------- *033315 HRLZI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 000002 FINAL C(AC)= 000002 000000 ---------- *033316 ADD 0,033760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 FINAL C(AC)= 000004 000000 ---------- *033317 CAME 0,033761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 ---------- *033321 JUMPA 0,033322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 033322 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *033322 HRLZI 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 000004 FINAL C(AC)= 000004 000000 ---------- *033323 ADD 0,033761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 FINAL C(AC)= 000010 000000 ---------- *033324 CAME 0,033762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 ---------- *033326 JUMPA 0,033327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 033327 ---------- *033327 HRLZI 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 000010 FINAL C(AC)= 000010 000000 ---------- *033330 ADD 0,033762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *033331 CAME 0,033763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 ---------- *033333 JUMPA 0,033334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 033334 ---------- *033334 HRLZI 0,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 000020 FINAL C(AC)= 000020 000000 ---------- *033335 ADD 0,033763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 FINAL C(AC)= 000040 000000 ---------- *033336 CAME 0,033764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 ---------- *033340 JUMPA 0,033341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 033341 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *033341 HRLZI 0,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 000040 FINAL C(AC)= 000040 000000 ---------- *033342 ADD 0,033764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 FINAL C(AC)= 000100 000000 ---------- *033343 CAME 0,033765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 ---------- *033345 JUMPA 0,033346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 033346 ---------- *033346 HRLZI 0,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *033347 ADD 0,033765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 FINAL C(AC)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *033350 CAME 0,033766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 ---------- *033352 JUMPA 0,033353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 033353 ---------- *033353 HRLZI 0,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 000200 FINAL C(AC)= 000200 000000 ---------- *033354 ADD 0,033766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 FINAL C(AC)= 000400 000000 ---------- *033355 CAME 0,033767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 ---------- *033357 JUMPA 0,033360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 033360 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *033360 HRLZI 0,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 000400 FINAL C(AC)= 000400 000000 ---------- *033361 ADD 0,033767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 FINAL C(AC)= 001000 000000 ---------- *033362 CAME 0,033770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 ---------- *033364 JUMPA 0,033365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 033365 ---------- *033365 HRLZI 0,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 001000 FINAL C(AC)= 001000 000000 ---------- *033366 ADD 0,033770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *033367 CAME 0,033771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 ---------- *033371 JUMPA 0,033372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 033372 ---------- *033372 HRLZI 0,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 002000 FINAL C(AC)= 002000 000000 ---------- *033373 ADD 0,033771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 FINAL C(AC)= 004000 000000 ---------- *033374 CAME 0,033772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 ---------- *033376 JUMPA 0,033377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 033377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *033377 HRLZI 0,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 004000 FINAL C(AC)= 004000 000000 ---------- *033400 ADD 0,033772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 FINAL C(AC)= 010000 000000 ---------- *033401 CAME 0,033773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 ---------- *033403 JUMPA 0,033404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 033404 ---------- *033404 HRLZI 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 010000 FINAL C(AC)= 010000 000000 ---------- *033405 ADD 0,033773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *033406 CAME 0,033774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 ---------- *033410 JUMPA 0,033411 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 033411 ---------- *033411 HRLZI 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *033412 ADD 0,033774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 FINAL C(AC)= 040000 000000 ---------- *033413 CAME 0,033775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 ---------- *033415 JUMPA 0,033416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 033416 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *033416 HRLZI 0,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *033417 ADD 0,033775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 FINAL C(AC)= 100000 000000 ---------- *033420 CAME 0,033776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 ---------- *033422 JUMPA 0,033423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 033423 ---------- *033423 HRLZI 0,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *033424 ADD 0,033776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *033425 CAME 0,033777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 ---------- *033427 JUMPA 0,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 033430 ---------- *033430 HRLZI 0,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *033431 ADD 0,033777 FLAGS - INT/FINAL 000000 500200 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 400000 000000 ---------- *033432 CAME 0,034000 FLAGS - INT/FINAL 500200 500200 INITIAL C(AC)= 400000 000000 ---------- *033432 JFCL 0,000000 FLAGS - INT/FINAL 500200 500000 INITIAL E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *033432 CAME 0,034000 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- *033434 JUMPA 0,033435 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 400000 000000 E= 000000 033435 ---------- *033435 HRLZI 0,400000 FLAGS - INT/FINAL 500000 500000 INITIAL C(AC)= 400000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *033436 ADD 0,034000 FLAGS - INT/FINAL 500000 700200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *033437 CAME 0,033732 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 000000 000000 ---------- *033437 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *033437 CAME 0,033732 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033441 JUMPA 0,033442 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 033442 ---------- *033442 HRROI 0,777776 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *033443 ADD 0,034001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 FINAL C(AC)= 777777 777774 ---------- *033444 CAME 0,034045 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777774 C(E)= 777777 777774 ---------- *033446 JUMPA 0,033447 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777774 E= 000000 033447 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *033447 HRROI 0,777775 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777774 E= 000000 777775 FINAL C(AC)= 777777 777775 ---------- *033450 ADD 0,034002 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 FINAL C(AC)= 777777 777772 ---------- *033451 CAME 0,034046 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777772 C(E)= 777777 777772 ---------- *033453 JUMPA 0,033454 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777772 E= 000000 033454 ---------- *033454 HRROI 0,777773 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777772 E= 000000 777773 FINAL C(AC)= 777777 777773 ---------- *033455 ADD 0,034003 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777773 C(E)= 777777 777773 FINAL C(AC)= 777777 777766 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *033456 CAME 0,034047 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777766 C(E)= 777777 777766 ---------- *033460 JUMPA 0,033461 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777766 E= 000000 033461 ---------- *033461 HRROI 0,777767 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777766 E= 000000 777767 FINAL C(AC)= 777777 777767 ---------- *033462 ADD 0,034004 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777767 C(E)= 777777 777767 FINAL C(AC)= 777777 777756 ---------- *033463 CAME 0,034050 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777756 C(E)= 777777 777756 ---------- *033465 JUMPA 0,033466 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777756 E= 000000 033466 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *033466 HRROI 0,777757 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777756 E= 000000 777757 FINAL C(AC)= 777777 777757 ---------- *033467 ADD 0,034005 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777757 C(E)= 777777 777757 FINAL C(AC)= 777777 777736 ---------- *033470 CAME 0,034051 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777736 C(E)= 777777 777736 ---------- *033472 JUMPA 0,033473 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777736 E= 000000 033473 ---------- *033473 HRROI 0,777737 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777736 E= 000000 777737 FINAL C(AC)= 777777 777737 ---------- *033474 ADD 0,034006 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777737 C(E)= 777777 777737 FINAL C(AC)= 777777 777676 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *033475 CAME 0,034052 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777676 C(E)= 777777 777676 ---------- *033477 JUMPA 0,033500 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777676 E= 000000 033500 ---------- *033500 HRROI 0,777677 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777676 E= 000000 777677 FINAL C(AC)= 777777 777677 ---------- *033501 ADD 0,034007 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777677 C(E)= 777777 777677 FINAL C(AC)= 777777 777576 ---------- *033502 CAME 0,034053 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777576 C(E)= 777777 777576 ---------- *033504 JUMPA 0,033505 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777576 E= 000000 033505 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *033505 HRROI 0,777577 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777576 E= 000000 777577 FINAL C(AC)= 777777 777577 ---------- *033506 ADD 0,034010 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777577 C(E)= 777777 777577 FINAL C(AC)= 777777 777376 ---------- *033507 CAME 0,034054 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777376 C(E)= 777777 777376 ---------- *033511 JUMPA 0,033512 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777376 E= 000000 033512 ---------- *033512 HRROI 0,777377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777376 E= 000000 777377 FINAL C(AC)= 777777 777377 ---------- *033513 ADD 0,034011 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777377 C(E)= 777777 777377 FINAL C(AC)= 777777 776776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *033514 CAME 0,034055 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776776 C(E)= 777777 776776 ---------- *033516 JUMPA 0,033517 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776776 E= 000000 033517 ---------- *033517 HRROI 0,776777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776776 E= 000000 776777 FINAL C(AC)= 777777 776777 ---------- *033520 ADD 0,034012 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 776777 C(E)= 777777 776777 FINAL C(AC)= 777777 775776 ---------- *033521 CAME 0,034056 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 775776 C(E)= 777777 775776 ---------- *033523 JUMPA 0,033524 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 775776 E= 000000 033524 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *033524 HRROI 0,775777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 775776 E= 000000 775777 FINAL C(AC)= 777777 775777 ---------- *033525 ADD 0,034013 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 775777 C(E)= 777777 775777 FINAL C(AC)= 777777 773776 ---------- *033526 CAME 0,034057 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 773776 C(E)= 777777 773776 ---------- *033530 JUMPA 0,033531 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 773776 E= 000000 033531 ---------- *033531 HRROI 0,773777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 773776 E= 000000 773777 FINAL C(AC)= 777777 773777 ---------- *033532 ADD 0,034014 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 773777 C(E)= 777777 773777 FINAL C(AC)= 777777 767776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *033533 CAME 0,034060 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 767776 C(E)= 777777 767776 ---------- *033535 JUMPA 0,033536 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 767776 E= 000000 033536 ---------- *033536 HRROI 0,767777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 767776 E= 000000 767777 FINAL C(AC)= 777777 767777 ---------- *033537 ADD 0,034015 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 767777 C(E)= 777777 767777 FINAL C(AC)= 777777 757776 ---------- *033540 CAME 0,034061 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 757776 C(E)= 777777 757776 ---------- *033542 JUMPA 0,033543 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 757776 E= 000000 033543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *033543 HRROI 0,757777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 757776 E= 000000 757777 FINAL C(AC)= 777777 757777 ---------- *033544 ADD 0,034016 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 757777 C(E)= 777777 757777 FINAL C(AC)= 777777 737776 ---------- *033545 CAME 0,034062 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 737776 C(E)= 777777 737776 ---------- *033547 JUMPA 0,033550 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 737776 E= 000000 033550 ---------- *033550 HRROI 0,737777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 737776 E= 000000 737777 FINAL C(AC)= 777777 737777 ---------- *033551 ADD 0,034017 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 737777 C(E)= 777777 737777 FINAL C(AC)= 777777 677776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *033552 CAME 0,034063 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 677776 C(E)= 777777 677776 ---------- *033554 JUMPA 0,033555 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 677776 E= 000000 033555 ---------- *033555 HRROI 0,677777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 677776 E= 000000 677777 FINAL C(AC)= 777777 677777 ---------- *033556 ADD 0,034020 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 677777 C(E)= 777777 677777 FINAL C(AC)= 777777 577776 ---------- *033557 CAME 0,034064 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 577776 C(E)= 777777 577776 ---------- *033561 JUMPA 0,033562 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 577776 E= 000000 033562 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *033562 HRROI 0,577777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 577776 E= 000000 577777 FINAL C(AC)= 777777 577777 ---------- *033563 ADD 0,034021 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 577777 C(E)= 777777 577777 FINAL C(AC)= 777777 377776 ---------- *033564 CAME 0,034065 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 377776 C(E)= 777777 377776 ---------- *033566 JUMPA 0,033567 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 377776 E= 000000 033567 ---------- *033567 HRROI 0,377777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 377776 E= 000000 377777 FINAL C(AC)= 777777 377777 ---------- *033570 ADD 0,034022 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 377777 C(E)= 777777 377777 FINAL C(AC)= 777776 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *033571 CAME 0,034066 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 C(E)= 777776 777776 ---------- *033573 JUMPA 0,033574 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 E= 000000 033574 ---------- *033574 HRLOI 0,777776 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777776 E= 000000 777776 FINAL C(AC)= 777776 777777 ---------- *033575 ADD 0,034023 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777776 777777 C(E)= 777776 777777 FINAL C(AC)= 777775 777776 ---------- *033576 CAME 0,034067 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777776 C(E)= 777775 777776 ---------- *033600 JUMPA 0,033601 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777776 E= 000000 033601 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *033601 HRLOI 0,777775 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777776 E= 000000 777775 FINAL C(AC)= 777775 777777 ---------- *033602 ADD 0,034024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777775 777777 C(E)= 777775 777777 FINAL C(AC)= 777773 777776 ---------- *033603 CAME 0,034070 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777776 C(E)= 777773 777776 ---------- *033605 JUMPA 0,033606 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777776 E= 000000 033606 ---------- *033606 HRLOI 0,777773 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777776 E= 000000 777773 FINAL C(AC)= 777773 777777 ---------- *033607 ADD 0,034025 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777773 777777 C(E)= 777773 777777 FINAL C(AC)= 777767 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *033610 CAME 0,034071 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777776 C(E)= 777767 777776 ---------- *033612 JUMPA 0,033613 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777776 E= 000000 033613 ---------- *033613 HRLOI 0,777767 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777776 E= 000000 777767 FINAL C(AC)= 777767 777777 ---------- *033614 ADD 0,034026 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777767 777777 C(E)= 777767 777777 FINAL C(AC)= 777757 777776 ---------- *033615 CAME 0,034072 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777776 C(E)= 777757 777776 ---------- *033617 JUMPA 0,033620 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777776 E= 000000 033620 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 *033620 HRLOI 0,777757 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777776 E= 000000 777757 FINAL C(AC)= 777757 777777 ---------- *033621 ADD 0,034027 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777757 777777 C(E)= 777757 777777 FINAL C(AC)= 777737 777776 ---------- *033622 CAME 0,034073 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777776 C(E)= 777737 777776 ---------- *033624 JUMPA 0,033625 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777776 E= 000000 033625 ---------- *033625 HRLOI 0,777737 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777776 E= 000000 777737 FINAL C(AC)= 777737 777777 ---------- *033626 ADD 0,034030 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777737 777777 C(E)= 777737 777777 FINAL C(AC)= 777677 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 *033627 CAME 0,034074 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777776 C(E)= 777677 777776 ---------- *033631 JUMPA 0,033632 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777776 E= 000000 033632 ---------- *033632 HRLOI 0,777677 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777776 E= 000000 777677 FINAL C(AC)= 777677 777777 ---------- *033633 ADD 0,034031 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777677 777777 C(E)= 777677 777777 FINAL C(AC)= 777577 777776 ---------- *033634 CAME 0,034075 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777776 C(E)= 777577 777776 ---------- *033636 JUMPA 0,033637 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777776 E= 000000 033637 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 *033637 HRLOI 0,777577 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777776 E= 000000 777577 FINAL C(AC)= 777577 777777 ---------- *033640 ADD 0,034032 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777577 777777 C(E)= 777577 777777 FINAL C(AC)= 777377 777776 ---------- *033641 CAME 0,034076 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777776 C(E)= 777377 777776 ---------- *033643 JUMPA 0,033644 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777776 E= 000000 033644 ---------- *033644 HRLOI 0,777377 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777776 E= 000000 777377 FINAL C(AC)= 777377 777777 ---------- *033645 ADD 0,034033 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777377 777777 C(E)= 777377 777777 FINAL C(AC)= 776777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 *033646 CAME 0,034077 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 777776 C(E)= 776777 777776 ---------- *033650 JUMPA 0,033651 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 777776 E= 000000 033651 ---------- *033651 HRLOI 0,776777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 777776 E= 000000 776777 FINAL C(AC)= 776777 777777 ---------- *033652 ADD 0,034034 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 776777 777777 C(E)= 776777 777777 FINAL C(AC)= 775777 777776 ---------- *033653 CAME 0,034100 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 777776 C(E)= 775777 777776 ---------- *033655 JUMPA 0,033656 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 777776 E= 000000 033656 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 *033656 HRLOI 0,775777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 777776 E= 000000 775777 FINAL C(AC)= 775777 777777 ---------- *033657 ADD 0,034035 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 775777 777777 C(E)= 775777 777777 FINAL C(AC)= 773777 777776 ---------- *033660 CAME 0,034101 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 777776 C(E)= 773777 777776 ---------- *033662 JUMPA 0,033663 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 777776 E= 000000 033663 ---------- *033663 HRLOI 0,773777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 777776 E= 000000 773777 FINAL C(AC)= 773777 777777 ---------- *033664 ADD 0,034036 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 773777 777777 C(E)= 773777 777777 FINAL C(AC)= 767777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 *033665 CAME 0,034102 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 777776 C(E)= 767777 777776 ---------- *033667 JUMPA 0,033670 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 777776 E= 000000 033670 ---------- *033670 HRLOI 0,767777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 777776 E= 000000 767777 FINAL C(AC)= 767777 777777 ---------- *033671 ADD 0,034037 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 767777 777777 C(E)= 767777 777777 FINAL C(AC)= 757777 777776 ---------- *033672 CAME 0,034103 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 777776 C(E)= 757777 777776 ---------- *033674 JUMPA 0,033675 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 777776 E= 000000 033675 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 *033675 HRLOI 0,757777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 777776 E= 000000 757777 FINAL C(AC)= 757777 777777 ---------- *033676 ADD 0,034040 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 757777 777777 C(E)= 757777 777777 FINAL C(AC)= 737777 777776 ---------- *033677 CAME 0,034104 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 777776 C(E)= 737777 777776 ---------- *033701 JUMPA 0,033702 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 777776 E= 000000 033702 ---------- *033702 HRLOI 0,737777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 777776 E= 000000 737777 FINAL C(AC)= 737777 777777 ---------- *033703 ADD 0,034041 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 737777 777777 C(E)= 737777 777777 FINAL C(AC)= 677777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 *033704 CAME 0,034105 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 777776 C(E)= 677777 777776 ---------- *033706 JUMPA 0,033707 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 777776 E= 000000 033707 ---------- *033707 HRLOI 0,677777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 777776 E= 000000 677777 FINAL C(AC)= 677777 777777 ---------- *033710 ADD 0,034042 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 677777 777777 C(E)= 677777 777777 FINAL C(AC)= 577777 777776 ---------- *033711 CAME 0,034106 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 777776 C(E)= 577777 777776 ---------- *033713 JUMPA 0,033714 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 777776 E= 000000 033714 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 *033714 HRLOI 0,577777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 577777 777776 E= 000000 577777 FINAL C(AC)= 577777 777777 ---------- *033715 ADD 0,034043 FLAGS - INT/FINAL 700000 700200 INITIAL C(AC)= 577777 777777 C(E)= 577777 777777 FINAL C(AC)= 377777 777776 ---------- *033716 CAME 0,034107 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 377777 777776 ---------- *033716 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- *033716 CAME 0,034107 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777776 C(E)= 377777 777776 ---------- *033720 JUMPA 0,033721 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777776 E= 000000 033721 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 *033721 HRLOI 0,377777 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 377777 777776 E= 000000 377777 FINAL C(AC)= 377777 777777 ---------- *033722 ADD 0,034044 FLAGS - INT/FINAL 700000 700200 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 777777 777776 ---------- *033723 CAME 0,034001 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 777777 777776 ---------- *033723 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- *033723 CAME 0,034001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *033725 JUMPA 0,033726 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 E= 000000 033726 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 *033726 SETZM 0,034111 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *033727 JRST 0,030057 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(AC)= 777777 777776 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000001 FINAL C(AC)= 777777 777776 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAC 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 *030616 JRST 0,030624 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(AC)= 777777 777776 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777777 FINAL C(AC)= 777777 777776 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAD.txt,v0000444000175100010010000266762212050545162014405 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.13.22.31.32; author Rob; state Exp; branches; next ; desc @Test Program @ 1.1 log @Initial revision @ text @;DSKAD IDENTIFICATION -------------- PRODUCT CODE: AH-E303A-DD DIAGNOSTIC CODE: DSKAD PRODUCT NAME: DSKADA0 DECSYSTEM 2020 BASIC 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-DSKAD.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAD.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE FOURTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS REGISTER ADDRESSING, JFCL, AR FLAGS, ASO, SOS, JRST, AOBJX, JSP, XCT, INDIRECT AND INDEXED ADDRESSING. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAD.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAD.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAD SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAD TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (4) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 DSKADT MAC 28-Mar-78 13:50 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAD 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 2 DSKADT MAC 28-Mar-78 13:50 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 3 DSKADT MAC 28-Mar-78 13:50 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414400 PAREA3=SIXBIT/DSKAD/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 DSKAD1 MAC 28-Mar-78 13:50 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) [DSKAD] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 064 051 040 798 030656 133 104 123 113 101 799 030657 104 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (4) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0029 807 SUBTTL TEST OF AC HARDWARE AND INDEX REGISTERS 808 809 ;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT 810 ; IT IS THE TESTED INSTRUCTION. 811 812 813 ;********** 814 815 ;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE 816 ;IN THIS CASE, AC1 IS PRELOADED WITH 1. 817 ;C(AC1) IS THEN CHECKED FOR A1. THIS TEST PASSES IF C(AC1)=1. 818 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY 819 820 030661 400 00 0 00 000000 C100: SETZ ;CLEAR AC0 821 030662 201 01 0 00 000001 MOVEI 1,1 ;PRELOAD AC1 UMTH 1 822 030663 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC1)=1 823 STOP^ 824 030664 254 04 0 00 030665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 825 030665 324 00 0 00 030666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 827 ;IN THE SUBTEST) TO LOOP ON ERROR^ 828 829 ;********** 830 831 ;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE. 832 ;IN THIS CASE, AC2 IS PRELOADED WITH 2. 833 ;C(AC2) IS THEN CHECKED FOR 2. THIS TEST PASSES IF C(AC2)=2. 834 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY 835 836 030666 201 02 0 00 000002 C200: MOVEI 2,2 ;PRELOAD AC2 WITH 2 837 030667 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(AC2)=2 838 STOP^ 839 030670 254 04 0 00 030671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 840 030671 324 00 0 00 030672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 841 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 842 ;IN THE SUBTEST) TO LOOP ON ERROR^ 843 844 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0030 845 ;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE. 846 ;IN THIS CASE, AC4 IS PRELOADED WITH 4. 847 ;C(AC4) IS THEN CHECKED FOR 4. THIS TEST PASSES IF C(AC4)=4. 848 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY 849 850 030672 201 04 0 00 000004 C300: MOVEI 4,4 ;PRELOAD AC4 WITH 4 851 030673 302 04 0 00 000004 CAIE 4,4 ;PASS IF C(AC4)=4 852 STOP^ 853 030674 254 04 0 00 030675 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 854 030675 324 00 0 00 030676 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 855 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 856 ;IN THE SUBTEST) TO LOOP ON ERROR^ 857 858 ;********** 859 860 ;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE. 861 ;IN THIS CASE, AC10 IS PRELOADED WITH 10. 862 ;C(AC10) IS THEN CHECKED FOR 10. THIS TEST PASSES IF C(AC10)=10. 863 ;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY 864 865 030676 201 10 0 00 000010 C400: MOVEI 10,10 ;PRELOAD AC10 WITH 10 866 030677 302 10 0 00 000010 CAIE 10,10 ;PASS IF C(AC10)=10 867 STOP^ 868 030700 254 04 0 00 030701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 869 030701 324 00 0 00 030702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 870 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 871 ;IN THE SUBTEST) TO LOOP ON ERROR^ 872 873 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0031 874 000500 SN=500 875 777777 777777 ZZ=-1 876 877 ;THIS TEST VERIFIES THAT ALL ACS EXIST 878 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 879 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 880 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 881 882 C500: REPEAT ^D16, 883 < ZZ=ZZ+1 884 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR> 885 000000 ZZ=ZZ+1 886 030702 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 887 000001 ZZ=ZZ+1 888 030703 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 889 000002 ZZ=ZZ+1 890 030704 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 891 000003 ZZ=ZZ+1 892 030705 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 893 000004 ZZ=ZZ+1 894 030706 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 895 000005 ZZ=ZZ+1 896 030707 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 897 000006 ZZ=ZZ+1 898 030710 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 899 000007 ZZ=ZZ+1 900 030711 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 901 000010 ZZ=ZZ+1 902 030712 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 903 000011 ZZ=ZZ+1 904 030713 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 905 000012 ZZ=ZZ+1 906 030714 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 907 000013 ZZ=ZZ+1 908 030715 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 909 000014 ZZ=ZZ+1 910 030716 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 911 000015 ZZ=ZZ+1 912 030717 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 913 000016 ZZ=ZZ+1 914 030720 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 915 000017 ZZ=ZZ+1 916 030721 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD EACH AC WITH ITS ADDR 917 PAGE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0032 918 000020 ZZ=20 919 920 REPEAT ^D16,< 921 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 922 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 923 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 924 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 925 926 SN=SN+1 927 ZZ=ZZ-1 928 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 929 STOP 930 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 931 932 ;********** 933 > 934 935 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 936 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 937 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 938 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 939 940 000501 SN=SN+1 941 000017 ZZ=ZZ-1 942 030722 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 943 STOP^ 944 030723 254 04 0 00 030724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 945 030724 324 00 0 00 030725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 946 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 947 ;IN THE SUBTEST) TO LOOP ON ERROR^ 948 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 949 950 ;********** 951 952 953 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 954 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 955 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 956 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 957 958 000502 SN=SN+1 959 000016 ZZ=ZZ-1 960 030725 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 961 STOP^ 962 030726 254 04 0 00 030727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 963 030727 324 00 0 00 030730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 964 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 965 ;IN THE SUBTEST) TO LOOP ON ERROR^ 966 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 967 968 ;********** 969 970 971 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 972 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0033 973 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 974 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 975 976 000503 SN=SN+1 977 000015 ZZ=ZZ-1 978 030730 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 979 STOP^ 980 030731 254 04 0 00 030732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 981 030732 324 00 0 00 030733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 982 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 983 ;IN THE SUBTEST) TO LOOP ON ERROR^ 984 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 985 986 ;********** 987 988 989 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 990 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 991 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 992 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 993 994 000504 SN=SN+1 995 000014 ZZ=ZZ-1 996 030733 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 997 STOP^ 998 030734 254 04 0 00 030735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 999 030735 324 00 0 00 030736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1000 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1001 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1002 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1003 1004 ;********** 1005 1006 1007 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1008 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1009 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1010 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1011 1012 000505 SN=SN+1 1013 000013 ZZ=ZZ-1 1014 030736 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1015 STOP^ 1016 030737 254 04 0 00 030740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1017 030740 324 00 0 00 030741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1018 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1019 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1020 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1021 1022 ;********** 1023 1024 1025 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1026 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1027 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0034 1028 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1029 1030 000506 SN=SN+1 1031 000012 ZZ=ZZ-1 1032 030741 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1033 STOP^ 1034 030742 254 04 0 00 030743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1035 030743 324 00 0 00 030744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1038 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1039 1040 ;********** 1041 1042 1043 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1044 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1045 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1046 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1047 1048 000507 SN=SN+1 1049 000011 ZZ=ZZ-1 1050 030744 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1051 STOP^ 1052 030745 254 04 0 00 030746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1053 030746 324 00 0 00 030747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1054 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1055 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1056 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1057 1058 ;********** 1059 1060 1061 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1062 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1063 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1064 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1065 1066 000510 SN=SN+1 1067 000010 ZZ=ZZ-1 1068 030747 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1069 STOP^ 1070 030750 254 04 0 00 030751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1071 030751 324 00 0 00 030752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1073 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1074 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1075 1076 ;********** 1077 1078 1079 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1080 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1081 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1082 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0035 1083 1084 000511 SN=SN+1 1085 000007 ZZ=ZZ-1 1086 030752 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1087 STOP^ 1088 030753 254 04 0 00 030754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1089 030754 324 00 0 00 030755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1090 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1091 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1092 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1093 1094 ;********** 1095 1096 1097 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1098 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1099 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1100 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1101 1102 000512 SN=SN+1 1103 000006 ZZ=ZZ-1 1104 030755 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1105 STOP^ 1106 030756 254 04 0 00 030757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1107 030757 324 00 0 00 030760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1108 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1109 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1110 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1111 1112 ;********** 1113 1114 1115 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1116 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1117 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1118 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1119 1120 000513 SN=SN+1 1121 000005 ZZ=ZZ-1 1122 030760 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1123 STOP^ 1124 030761 254 04 0 00 030762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1125 030762 324 00 0 00 030763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1126 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1127 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1128 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1129 1130 ;********** 1131 1132 1133 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1134 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1135 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1136 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1137 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0036 1138 000514 SN=SN+1 1139 000004 ZZ=ZZ-1 1140 030763 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1141 STOP^ 1142 030764 254 04 0 00 030765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1143 030765 324 00 0 00 030766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1145 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1146 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1147 1148 ;********** 1149 1150 1151 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1152 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1153 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1154 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1155 1156 000515 SN=SN+1 1157 000003 ZZ=ZZ-1 1158 030766 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1159 STOP^ 1160 030767 254 04 0 00 030770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1161 030770 324 00 0 00 030771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1162 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1163 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1164 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1165 1166 ;********** 1167 1168 1169 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1170 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1171 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1172 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1173 1174 000516 SN=SN+1 1175 000002 ZZ=ZZ-1 1176 030771 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1177 STOP^ 1178 030772 254 04 0 00 030773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1179 030773 324 00 0 00 030774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1180 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1181 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1182 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1183 1184 ;********** 1185 1186 1187 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1188 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1189 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1190 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1191 1192 000517 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 4-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0037 1193 000001 ZZ=ZZ-1 1194 030774 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1195 STOP^ 1196 030775 254 04 0 00 030776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1197 030776 324 00 0 00 030777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1199 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1200 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1201 1202 ;********** 1203 1204 1205 ;THIS TEST VERIFIES THAT ALL ACS EXIST. 1206 ;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS; 1207 ;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1208 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS 1209 1210 000520 SN=SN+1 1211 000000 ZZ=ZZ-1 1212 030777 302 00 0 00 000000 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1213 STOP^ 1214 031000 254 04 0 00 031001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1215 031001 324 00 0 00 031002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1218 ;IN CASE OF FAILURE, LOOP TO C500 ADDRESS 1219 1220 ;********** 1221 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0038 1222 000600 SN=600 1223 000000 ZZ=0 1224 1225 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1226 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1227 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH 1228 ;AC IS CHECKED FOR ITS ADDRESS. IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1229 1230 C600: REPEAT ^D15, 1231 < ZZ=ZZ+1 1232 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1233 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY.> 1234 000001 ZZ=ZZ+1 1235 031002 201 00 0 00 000001 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1236 031003 202 00 0 00 000001 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1237 000002 ZZ=ZZ+1 1238 031004 201 00 0 00 000002 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1239 031005 202 00 0 00 000002 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1240 000003 ZZ=ZZ+1 1241 031006 201 00 0 00 000003 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1242 031007 202 00 0 00 000003 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1243 000004 ZZ=ZZ+1 1244 031010 201 00 0 00 000004 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1245 031011 202 00 0 00 000004 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1246 000005 ZZ=ZZ+1 1247 031012 201 00 0 00 000005 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1248 031013 202 00 0 00 000005 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1249 000006 ZZ=ZZ+1 1250 031014 201 00 0 00 000006 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1251 031015 202 00 0 00 000006 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1252 000007 ZZ=ZZ+1 1253 031016 201 00 0 00 000007 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1254 031017 202 00 0 00 000007 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1255 000010 ZZ=ZZ+1 1256 031020 201 00 0 00 000010 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1257 031021 202 00 0 00 000010 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1258 000011 ZZ=ZZ+1 1259 031022 201 00 0 00 000011 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1260 031023 202 00 0 00 000011 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1261 000012 ZZ=ZZ+1 1262 031024 201 00 0 00 000012 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1263 031025 202 00 0 00 000012 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1264 000013 ZZ=ZZ+1 1265 031026 201 00 0 00 000013 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1266 031027 202 00 0 00 000013 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1267 000014 ZZ=ZZ+1 1268 031030 201 00 0 00 000014 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1269 031031 202 00 0 00 000014 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1270 000015 ZZ=ZZ+1 1271 031032 201 00 0 00 000015 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1272 031033 202 00 0 00 000015 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1273 000016 ZZ=ZZ+1 1274 031034 201 00 0 00 000016 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1275 031035 202 00 0 00 000016 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1276 000017 ZZ=ZZ+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0039 1277 031036 201 00 0 00 000017 MOVEI ZZ ;PRELOAD EACH AC WITH ITS ADDRESS 1278 031037 202 00 0 00 000017 MOVEM ZZ ;BY REFERENCING EACH AC AS MEMORY. 1279 1280 000020 ZZ=20 1281 1282 REPEAT ^D15,< 1283 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1284 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1285 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1286 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1287 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1288 1289 SN=SN+1 1290 ZZ=ZZ-1 1291 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1292 STOP 1293 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1294 1295 ;********** 1296 > 1297 1298 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1299 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1300 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1301 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1302 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1303 1304 000601 SN=SN+1 1305 000017 ZZ=ZZ-1 1306 031040 302 17 0 00 000017 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1307 STOP^ 1308 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1309 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1310 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1311 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1312 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1313 1314 ;********** 1315 1316 1317 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1318 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1319 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1320 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1321 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1322 1323 000602 SN=SN+1 1324 000016 ZZ=ZZ-1 1325 031043 302 16 0 00 000016 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1326 STOP^ 1327 031044 254 04 0 00 031045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1328 031045 324 00 0 00 031046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1329 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1330 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1331 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0040 1332 1333 ;********** 1334 1335 1336 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1337 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1338 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1339 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1340 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1341 1342 000603 SN=SN+1 1343 000015 ZZ=ZZ-1 1344 031046 302 15 0 00 000015 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1345 STOP^ 1346 031047 254 04 0 00 031050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1347 031050 324 00 0 00 031051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1348 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1349 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1350 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1351 1352 ;********** 1353 1354 1355 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1356 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1357 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1358 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1359 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1360 1361 000604 SN=SN+1 1362 000014 ZZ=ZZ-1 1363 031051 302 14 0 00 000014 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1364 STOP^ 1365 031052 254 04 0 00 031053 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1366 031053 324 00 0 00 031054 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1367 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1368 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1369 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1370 1371 ;********** 1372 1373 1374 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1375 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1376 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1377 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1378 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1379 1380 000605 SN=SN+1 1381 000013 ZZ=ZZ-1 1382 031054 302 13 0 00 000013 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1383 STOP^ 1384 031055 254 04 0 00 031056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1385 031056 324 00 0 00 031057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1386 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0041 1387 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1388 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1389 1390 ;********** 1391 1392 1393 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1394 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1395 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1396 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1397 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1398 1399 000606 SN=SN+1 1400 000012 ZZ=ZZ-1 1401 031057 302 12 0 00 000012 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1402 STOP^ 1403 031060 254 04 0 00 031061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1404 031061 324 00 0 00 031062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1406 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1407 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1408 1409 ;********** 1410 1411 1412 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1413 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1414 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1415 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1416 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1417 1418 000607 SN=SN+1 1419 000011 ZZ=ZZ-1 1420 031062 302 11 0 00 000011 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1421 STOP^ 1422 031063 254 04 0 00 031064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1423 031064 324 00 0 00 031065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1424 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1425 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1426 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1427 1428 ;********** 1429 1430 1431 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1432 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1433 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1434 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1435 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1436 1437 000610 SN=SN+1 1438 000010 ZZ=ZZ-1 1439 031065 302 10 0 00 000010 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1440 STOP^ 1441 031066 254 04 0 00 031067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0042 1442 031067 324 00 0 00 031070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1443 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1444 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1445 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1446 1447 ;********** 1448 1449 1450 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1451 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1452 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1453 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1454 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1455 1456 000611 SN=SN+1 1457 000007 ZZ=ZZ-1 1458 031070 302 07 0 00 000007 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1459 STOP^ 1460 031071 254 04 0 00 031072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1461 031072 324 00 0 00 031073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1462 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1463 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1464 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1465 1466 ;********** 1467 1468 1469 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1470 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1471 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1472 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1473 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1474 1475 000612 SN=SN+1 1476 000006 ZZ=ZZ-1 1477 031073 302 06 0 00 000006 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1478 STOP^ 1479 031074 254 04 0 00 031075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1480 031075 324 00 0 00 031076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1481 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1482 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1483 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1484 1485 ;********** 1486 1487 1488 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1489 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1490 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1491 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1492 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1493 1494 000613 SN=SN+1 1495 000005 ZZ=ZZ-1 1496 031076 302 05 0 00 000005 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0043 1497 STOP^ 1498 031077 254 04 0 00 031100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1499 031100 324 00 0 00 031101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1501 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1502 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1503 1504 ;********** 1505 1506 1507 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1508 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1509 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1510 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1511 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1512 1513 000614 SN=SN+1 1514 000004 ZZ=ZZ-1 1515 031101 302 04 0 00 000004 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1516 STOP^ 1517 031102 254 04 0 00 031103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1518 031103 324 00 0 00 031104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1519 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1520 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1521 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1522 1523 ;********** 1524 1525 1526 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1527 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1528 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1529 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1530 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1531 1532 000615 SN=SN+1 1533 000003 ZZ=ZZ-1 1534 031104 302 03 0 00 000003 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1535 STOP^ 1536 031105 254 04 0 00 031106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1537 031106 324 00 0 00 031107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1538 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1539 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1540 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1541 1542 ;********** 1543 1544 1545 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1546 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1547 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1548 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1549 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1550 1551 000616 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 5-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0044 1552 000002 ZZ=ZZ-1 1553 031107 302 02 0 00 000002 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1554 STOP^ 1555 031110 254 04 0 00 031111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1556 031111 324 00 0 00 031112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1558 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1559 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1560 1561 ;********** 1562 1563 1564 ;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS 1565 ;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE 1566 ;SAME HARDWARE. EACH AC IS PRELOADED WITH ITS ADDRESS 1567 ;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS. 1568 ;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS. 1569 1570 000617 SN=SN+1 1571 000001 ZZ=ZZ-1 1572 031112 302 01 0 00 000001 CAIE ZZ,ZZ ;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS 1573 STOP^ 1574 031113 254 04 0 00 031114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1575 031114 324 00 0 00 031115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1576 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1577 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1578 ;IN CASE OF FAILURE, LOOP TO C600 ADDRESS 1579 1580 ;********** 1581 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0045 1582 000700 SN=700 1583 000000 ZZ=0 1584 1585 C700: REPEAT ^D15,< 1586 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1587 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1588 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1589 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1590 1591 SN=SN+1 1592 ZZ=ZZ+1 1593 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1594 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1595 STOP 1596 1597 ;********** 1598 > 1599 1600 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1601 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1602 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1603 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1604 1605 000701 SN=SN+1 1606 000001 ZZ=ZZ+1 1607 031115 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1608 031116 302 01 0 01 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1609 STOP^ 1610 031117 254 04 0 00 031120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1611 031120 324 00 0 00 031121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1612 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1613 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1614 1615 ;********** 1616 1617 1618 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1619 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1620 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1621 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1622 1623 000702 SN=SN+1 1624 000002 ZZ=ZZ+1 1625 031121 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1626 031122 302 02 0 02 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1627 STOP^ 1628 031123 254 04 0 00 031124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1629 031124 324 00 0 00 031125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1630 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1631 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1632 1633 ;********** 1634 1635 1636 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0046 1637 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1638 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1639 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1640 1641 000703 SN=SN+1 1642 000003 ZZ=ZZ+1 1643 031125 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1644 031126 302 03 0 03 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1645 STOP^ 1646 031127 254 04 0 00 031130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1647 031130 324 00 0 00 031131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1648 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1649 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1650 1651 ;********** 1652 1653 1654 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1655 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1656 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1657 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1658 1659 000704 SN=SN+1 1660 000004 ZZ=ZZ+1 1661 031131 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1662 031132 302 04 0 04 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1663 STOP^ 1664 031133 254 04 0 00 031134 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1665 031134 324 00 0 00 031135 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1666 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1667 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1668 1669 ;********** 1670 1671 1672 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1673 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1674 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1675 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1676 1677 000705 SN=SN+1 1678 000005 ZZ=ZZ+1 1679 031135 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1680 031136 302 05 0 05 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1681 STOP^ 1682 031137 254 04 0 00 031140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1683 031140 324 00 0 00 031141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1686 1687 ;********** 1688 1689 1690 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1691 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0047 1692 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1693 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1694 1695 000706 SN=SN+1 1696 000006 ZZ=ZZ+1 1697 031141 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1698 031142 302 06 0 06 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1699 STOP^ 1700 031143 254 04 0 00 031144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1701 031144 324 00 0 00 031145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1702 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1703 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1704 1705 ;********** 1706 1707 1708 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1709 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1710 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1711 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1712 1713 000707 SN=SN+1 1714 000007 ZZ=ZZ+1 1715 031145 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1716 031146 302 07 0 07 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1717 STOP^ 1718 031147 254 04 0 00 031150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1719 031150 324 00 0 00 031151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1721 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1722 1723 ;********** 1724 1725 1726 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1727 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1728 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1729 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1730 1731 000710 SN=SN+1 1732 000010 ZZ=ZZ+1 1733 031151 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1734 031152 302 10 0 10 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1735 STOP^ 1736 031153 254 04 0 00 031154 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1737 031154 324 00 0 00 031155 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1739 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1740 1741 ;********** 1742 1743 1744 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1745 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1746 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0048 1747 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1748 1749 000711 SN=SN+1 1750 000011 ZZ=ZZ+1 1751 031155 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1752 031156 302 11 0 11 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1753 STOP^ 1754 031157 254 04 0 00 031160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1755 031160 324 00 0 00 031161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1756 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1757 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1758 1759 ;********** 1760 1761 1762 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1763 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1764 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1765 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1766 1767 000712 SN=SN+1 1768 000012 ZZ=ZZ+1 1769 031161 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1770 031162 302 12 0 12 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1771 STOP^ 1772 031163 254 04 0 00 031164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1773 031164 324 00 0 00 031165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1774 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1775 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1776 1777 ;********** 1778 1779 1780 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1781 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1782 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1783 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1784 1785 000713 SN=SN+1 1786 000013 ZZ=ZZ+1 1787 031165 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1788 031166 302 13 0 13 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1789 STOP^ 1790 031167 254 04 0 00 031170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1791 031170 324 00 0 00 031171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1792 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1793 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1794 1795 ;********** 1796 1797 1798 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1799 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1800 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1801 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0049 1802 1803 000714 SN=SN+1 1804 000014 ZZ=ZZ+1 1805 031171 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1806 031172 302 14 0 14 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1807 STOP^ 1808 031173 254 04 0 00 031174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1809 031174 324 00 0 00 031175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1811 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1812 1813 ;********** 1814 1815 1816 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1817 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1818 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1819 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1820 1821 000715 SN=SN+1 1822 000015 ZZ=ZZ+1 1823 031175 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1824 031176 302 15 0 15 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1825 STOP^ 1826 031177 254 04 0 00 031200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1827 031200 324 00 0 00 031201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1828 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1829 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1830 1831 ;********** 1832 1833 1834 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1835 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1836 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1837 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1838 1839 000716 SN=SN+1 1840 000016 ZZ=ZZ+1 1841 031201 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1842 031202 302 16 0 16 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1843 STOP^ 1844 031203 254 04 0 00 031204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1845 031204 324 00 0 00 031205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1846 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1847 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1848 1849 ;********** 1850 1851 1852 ;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE. 1853 ;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN, 1854 ;IT IS REFERENCED AS AN INDEX REGISTER. IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES. 1855 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER. 1856 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 6-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0050 1857 000717 SN=SN+1 1858 000017 ZZ=ZZ+1 1859 031205 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD INDEX REGISTER WITH ITS ADDRESS 1860 031206 302 17 0 17 000000 CAIE ZZ,(ZZ) ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1861 STOP^ 1862 031207 254 04 0 00 031210 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1863 031210 324 00 0 00 031211 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1865 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1866 1867 ;********** 1868 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0051 1869 001000 SN=1000 1870 000000 ZZ=0 1871 1872 C1000: REPEAT ^D15,< 1873 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1874 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1875 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1876 . 1877 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 1878 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1879 1880 SN=SN+1 1881 ZZ=ZZ+1 1882 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1883 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1884 CAME ZZ,(ZZ) ;IN BOTH HALVES 1885 STOP 1886 1887 ;********** 1888 > 1889 1890 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1891 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1892 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1893 . 1894 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 1895 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1896 1897 001001 SN=SN+1 1898 000001 ZZ=ZZ+1 1899 031211 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1900 031212 505 01 0 00 000001 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1901 031213 312 01 0 01 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 1902 STOP^ 1903 031214 254 04 0 00 031215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1904 031215 324 00 0 00 031216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1907 1908 ;********** 1909 1910 1911 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1912 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1913 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1914 . 1915 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 1916 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1917 1918 001002 SN=SN+1 1919 000002 ZZ=ZZ+1 1920 031216 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1921 031217 505 02 0 00 000002 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1922 031220 312 02 0 02 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 1923 STOP^ DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0052 1924 031221 254 04 0 00 031222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1925 031222 324 00 0 00 031223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1926 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1927 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1928 1929 ;********** 1930 1931 1932 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1933 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1934 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1935 . 1936 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 1937 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1938 1939 001003 SN=SN+1 1940 000003 ZZ=ZZ+1 1941 031223 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1942 031224 505 03 0 00 000003 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1943 031225 312 03 0 03 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 1944 STOP^ 1945 031226 254 04 0 00 031227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1946 031227 324 00 0 00 031230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1947 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1948 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1949 1950 ;********** 1951 1952 1953 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1954 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1955 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1956 . 1957 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 1958 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1959 1960 001004 SN=SN+1 1961 000004 ZZ=ZZ+1 1962 031230 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1963 031231 505 04 0 00 000004 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1964 031232 312 04 0 04 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 1965 STOP^ 1966 031233 254 04 0 00 031234 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1967 031234 324 00 0 00 031235 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1968 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1969 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1970 1971 ;********** 1972 1973 1974 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1975 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1976 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1977 . 1978 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0053 1979 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 1980 1981 001005 SN=SN+1 1982 000005 ZZ=ZZ+1 1983 031235 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 1984 031236 505 05 0 00 000005 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 1985 031237 312 05 0 05 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 1986 STOP^ 1987 031240 254 04 0 00 031241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1988 031241 324 00 0 00 031242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1989 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1990 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1991 1992 ;********** 1993 1994 1995 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 1996 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 1997 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 1998 . 1999 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2000 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2001 2002 001006 SN=SN+1 2003 000006 ZZ=ZZ+1 2004 031242 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2005 031243 505 06 0 00 000006 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2006 031244 312 06 0 06 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2007 STOP^ 2008 031245 254 04 0 00 031246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2009 031246 324 00 0 00 031247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2010 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2011 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2012 2013 ;********** 2014 2015 2016 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2017 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2018 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2019 . 2020 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2021 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2022 2023 001007 SN=SN+1 2024 000007 ZZ=ZZ+1 2025 031247 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2026 031250 505 07 0 00 000007 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2027 031251 312 07 0 07 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2028 STOP^ 2029 031252 254 04 0 00 031253 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2030 031253 324 00 0 00 031254 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2031 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2032 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2033 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0054 2034 ;********** 2035 2036 2037 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2038 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2039 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2040 . 2041 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2042 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2043 2044 001010 SN=SN+1 2045 000010 ZZ=ZZ+1 2046 031254 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2047 031255 505 10 0 00 000010 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2048 031256 312 10 0 10 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2049 STOP^ 2050 031257 254 04 0 00 031260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2051 031260 324 00 0 00 031261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2052 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2053 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2054 2055 ;********** 2056 2057 2058 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2059 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2060 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2061 . 2062 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2063 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2064 2065 001011 SN=SN+1 2066 000011 ZZ=ZZ+1 2067 031261 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2068 031262 505 11 0 00 000011 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2069 031263 312 11 0 11 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2070 STOP^ 2071 031264 254 04 0 00 031265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2072 031265 324 00 0 00 031266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2073 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2074 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2075 2076 ;********** 2077 2078 2079 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2080 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2081 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2082 . 2083 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2084 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2085 2086 001012 SN=SN+1 2087 000012 ZZ=ZZ+1 2088 031266 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0055 2089 031267 505 12 0 00 000012 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2090 031270 312 12 0 12 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2091 STOP^ 2092 031271 254 04 0 00 031272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2093 031272 324 00 0 00 031273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2094 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2095 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2096 2097 ;********** 2098 2099 2100 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2101 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2102 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2103 . 2104 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2105 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2106 2107 001013 SN=SN+1 2108 000013 ZZ=ZZ+1 2109 031273 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2110 031274 505 13 0 00 000013 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2111 031275 312 13 0 13 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2112 STOP^ 2113 031276 254 04 0 00 031277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2114 031277 324 00 0 00 031300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2116 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2117 2118 ;********** 2119 2120 2121 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2122 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2123 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2124 . 2125 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2126 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2127 2128 001014 SN=SN+1 2129 000014 ZZ=ZZ+1 2130 031300 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2131 031301 505 14 0 00 000014 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2132 031302 312 14 0 14 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2133 STOP^ 2134 031303 254 04 0 00 031304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2135 031304 324 00 0 00 031305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2136 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2137 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2138 2139 ;********** 2140 2141 2142 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2143 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0056 2144 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2145 . 2146 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2147 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2148 2149 001015 SN=SN+1 2150 000015 ZZ=ZZ+1 2151 031305 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2152 031306 505 15 0 00 000015 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2153 031307 312 15 0 15 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2154 STOP^ 2155 031310 254 04 0 00 031311 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2156 031311 324 00 0 00 031312 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2157 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2158 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2159 2160 ;********** 2161 2162 2163 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2164 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2165 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2166 . 2167 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2168 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2169 2170 001016 SN=SN+1 2171 000016 ZZ=ZZ+1 2172 031312 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2173 031313 505 16 0 00 000016 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2174 031314 312 16 0 16 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2175 STOP^ 2176 031315 254 04 0 00 031316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2177 031316 324 00 0 00 031317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2178 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2179 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2180 2181 ;********** 2182 2183 2184 ;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY. 2185 ;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS. 2186 ;THEN, THE INDEX REGISTER IS REFERENCED. IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES 2187 . 2188 ;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES. 2189 ;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER 2190 2191 001017 SN=SN+1 2192 000017 ZZ=ZZ+1 2193 031317 201 17 0 00 000017 MOVEI ZZ,ZZ ;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS 2194 031320 505 17 0 00 000017 HRLI ZZ,ZZ ;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS 2195 031321 312 17 0 17 000000 CAME ZZ,(ZZ) ;IN BOTH HALVES 2196 STOP^ 2197 031322 254 04 0 00 031323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2198 031323 324 00 0 00 031324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 7-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AC HARDWARE AND INDEX REGISTERS SEQ 0057 2199 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2200 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2201 2202 ;********** 2203 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0058 2204 SUBTTL TEST OF INDEX REGISTER ADDRESSING 2205 2206 ;********** 2207 2208 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2209 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2210 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2211 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0, 2212 ;THE FINAL RESULT IN AC3 SHOULD BE 0. IF C(AC3)=0, THIS TEST PASSES. 2213 2214 031324 476 00 0 00 000003 C1100: SETOM 3 ;PRELOAD AC3 WITH -1,,1 2215 031325 402 00 0 00 000001 SETZM 1 ;PRELOAD AC1 WITH 0 2216 031326 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2 WITH 1 2217 031327 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2218 031330 332 00 0 00 000003 SKIPE 3 ;TEST INDEXING 2219 STOP^ 2220 031331 254 04 0 00 031332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2221 031332 324 00 0 00 031333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2224 2225 ;********** 2226 2227 001200 SN=1200 2228 000000 ZZ=0 2229 2230 C1200: REPEAT ^D18,< 2231 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2232 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2233 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2234 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2235 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2236 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2237 2238 SN=SN+1 2239 ZZ=ZZ+ZZ 2240 IFE ZZ, 2241 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2242 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2243 MOVEI 2,1 ;SETUP INDEX REGISTER 2244 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2245 CAIE 3,ZZ ;TEST INDEXING 2246 STOP 2247 2248 ;********** 2249 > 2250 2251 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2252 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2253 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2254 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2255 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2256 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2257 2258 001201 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0059 2259 000000 ZZ=ZZ+ZZ 2260 000001 IFE ZZ, 2261 031333 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2262 031334 201 01 0 00 000001 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2263 031335 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2264 031336 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2265 031337 302 03 0 00 000001 CAIE 3,ZZ ;TEST INDEXING 2266 STOP^ 2267 031340 254 04 0 00 031341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2268 031341 324 00 0 00 031342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2269 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2270 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2271 2272 ;********** 2273 2274 2275 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2276 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2277 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2278 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2279 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2280 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2281 2282 001202 SN=SN+1 2283 000002 ZZ=ZZ+ZZ 2284 IFE ZZ, 2285 031342 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2286 031343 201 01 0 00 000002 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2287 031344 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2288 031345 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2289 031346 302 03 0 00 000002 CAIE 3,ZZ ;TEST INDEXING 2290 STOP^ 2291 031347 254 04 0 00 031350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2292 031350 324 00 0 00 031351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2293 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2294 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2295 2296 ;********** 2297 2298 2299 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2300 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2301 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2302 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2303 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2304 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2305 2306 001203 SN=SN+1 2307 000004 ZZ=ZZ+ZZ 2308 IFE ZZ, 2309 031351 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2310 031352 201 01 0 00 000004 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2311 031353 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2312 031354 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2313 031355 302 03 0 00 000004 CAIE 3,ZZ ;TEST INDEXING DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0060 2314 STOP^ 2315 031356 254 04 0 00 031357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2316 031357 324 00 0 00 031360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2319 2320 ;********** 2321 2322 2323 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2324 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2325 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2326 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2327 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2328 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2329 2330 001204 SN=SN+1 2331 000010 ZZ=ZZ+ZZ 2332 IFE ZZ, 2333 031360 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2334 031361 201 01 0 00 000010 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2335 031362 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2336 031363 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2337 031364 302 03 0 00 000010 CAIE 3,ZZ ;TEST INDEXING 2338 STOP^ 2339 031365 254 04 0 00 031366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2340 031366 324 00 0 00 031367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2341 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2342 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2343 2344 ;********** 2345 2346 2347 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2348 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2349 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2350 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2351 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2352 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2353 2354 001205 SN=SN+1 2355 000020 ZZ=ZZ+ZZ 2356 IFE ZZ, 2357 031367 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2358 031370 201 01 0 00 000020 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2359 031371 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2360 031372 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2361 031373 302 03 0 00 000020 CAIE 3,ZZ ;TEST INDEXING 2362 STOP^ 2363 031374 254 04 0 00 031375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2364 031375 324 00 0 00 031376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2365 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2366 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2367 2368 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0061 2369 2370 2371 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2372 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2373 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2374 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2375 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2376 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2377 2378 001206 SN=SN+1 2379 000040 ZZ=ZZ+ZZ 2380 IFE ZZ, 2381 031376 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2382 031377 201 01 0 00 000040 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2383 031400 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2384 031401 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2385 031402 302 03 0 00 000040 CAIE 3,ZZ ;TEST INDEXING 2386 STOP^ 2387 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2388 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2389 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2390 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2391 2392 ;********** 2393 2394 2395 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2396 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2397 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2398 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2399 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2400 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2401 2402 001207 SN=SN+1 2403 000100 ZZ=ZZ+ZZ 2404 IFE ZZ, 2405 031405 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2406 031406 201 01 0 00 000100 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2407 031407 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2408 031410 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2409 031411 302 03 0 00 000100 CAIE 3,ZZ ;TEST INDEXING 2410 STOP^ 2411 031412 254 04 0 00 031413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2412 031413 324 00 0 00 031414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2413 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2414 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2415 2416 ;********** 2417 2418 2419 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2420 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2421 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2422 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2423 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0062 2424 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2425 2426 001210 SN=SN+1 2427 000200 ZZ=ZZ+ZZ 2428 IFE ZZ, 2429 031414 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2430 031415 201 01 0 00 000200 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2431 031416 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2432 031417 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2433 031420 302 03 0 00 000200 CAIE 3,ZZ ;TEST INDEXING 2434 STOP^ 2435 031421 254 04 0 00 031422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2436 031422 324 00 0 00 031423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2438 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2439 2440 ;********** 2441 2442 2443 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2444 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2445 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2446 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2447 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2448 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2449 2450 001211 SN=SN+1 2451 000400 ZZ=ZZ+ZZ 2452 IFE ZZ, 2453 031423 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2454 031424 201 01 0 00 000400 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2455 031425 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2456 031426 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2457 031427 302 03 0 00 000400 CAIE 3,ZZ ;TEST INDEXING 2458 STOP^ 2459 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2460 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2463 2464 ;********** 2465 2466 2467 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2468 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2469 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2470 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2471 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2472 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2473 2474 001212 SN=SN+1 2475 001000 ZZ=ZZ+ZZ 2476 IFE ZZ, 2477 031432 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2478 031433 201 01 0 00 001000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0063 2479 031434 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2480 031435 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2481 031436 302 03 0 00 001000 CAIE 3,ZZ ;TEST INDEXING 2482 STOP^ 2483 031437 254 04 0 00 031440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2484 031440 324 00 0 00 031441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2485 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2486 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2487 2488 ;********** 2489 2490 2491 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2492 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2493 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2494 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2495 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2496 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2497 2498 001213 SN=SN+1 2499 002000 ZZ=ZZ+ZZ 2500 IFE ZZ, 2501 031441 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2502 031442 201 01 0 00 002000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2503 031443 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2504 031444 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2505 031445 302 03 0 00 002000 CAIE 3,ZZ ;TEST INDEXING 2506 STOP^ 2507 031446 254 04 0 00 031447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2508 031447 324 00 0 00 031450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2509 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2510 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2511 2512 ;********** 2513 2514 2515 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2516 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2517 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2518 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2519 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2520 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2521 2522 001214 SN=SN+1 2523 004000 ZZ=ZZ+ZZ 2524 IFE ZZ, 2525 031450 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2526 031451 201 01 0 00 004000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2527 031452 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2528 031453 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2529 031454 302 03 0 00 004000 CAIE 3,ZZ ;TEST INDEXING 2530 STOP^ 2531 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2532 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2533 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0064 2534 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2535 2536 ;********** 2537 2538 2539 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2540 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2541 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2542 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2543 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2544 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2545 2546 001215 SN=SN+1 2547 010000 ZZ=ZZ+ZZ 2548 IFE ZZ, 2549 031457 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2550 031460 201 01 0 00 010000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2551 031461 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2552 031462 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2553 031463 302 03 0 00 010000 CAIE 3,ZZ ;TEST INDEXING 2554 STOP^ 2555 031464 254 04 0 00 031465 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2556 031465 324 00 0 00 031466 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2557 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2558 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2559 2560 ;********** 2561 2562 2563 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2564 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2565 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2566 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2567 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2568 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2569 2570 001216 SN=SN+1 2571 020000 ZZ=ZZ+ZZ 2572 IFE ZZ, 2573 031466 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2574 031467 201 01 0 00 020000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2575 031470 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2576 031471 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2577 031472 302 03 0 00 020000 CAIE 3,ZZ ;TEST INDEXING 2578 STOP^ 2579 031473 254 04 0 00 031474 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2580 031474 324 00 0 00 031475 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2581 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2582 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2583 2584 ;********** 2585 2586 2587 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2588 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0065 2589 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2590 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2591 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2592 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2593 2594 001217 SN=SN+1 2595 040000 ZZ=ZZ+ZZ 2596 IFE ZZ, 2597 031475 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2598 031476 201 01 0 00 040000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2599 031477 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2600 031500 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2601 031501 302 03 0 00 040000 CAIE 3,ZZ ;TEST INDEXING 2602 STOP^ 2603 031502 254 04 0 00 031503 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2604 031503 324 00 0 00 031504 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2605 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2606 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2607 2608 ;********** 2609 2610 2611 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2612 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2613 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2614 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2615 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2616 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2617 2618 001220 SN=SN+1 2619 100000 ZZ=ZZ+ZZ 2620 IFE ZZ, 2621 031504 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2622 031505 201 01 0 00 100000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2623 031506 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2624 031507 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2625 031510 302 03 0 00 100000 CAIE 3,ZZ ;TEST INDEXING 2626 STOP^ 2627 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2628 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2629 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2630 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2631 2632 ;********** 2633 2634 2635 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2636 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2637 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2638 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2639 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2640 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2641 2642 001221 SN=SN+1 2643 200000 ZZ=ZZ+ZZ DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 8-8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0066 2644 IFE ZZ, 2645 031513 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2646 031514 201 01 0 00 200000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2647 031515 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2648 031516 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2649 031517 302 03 0 00 200000 CAIE 3,ZZ ;TEST INDEXING 2650 STOP^ 2651 031520 254 04 0 00 031521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2652 031521 324 00 0 00 031522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2653 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2654 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2655 2656 ;********** 2657 2658 2659 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2660 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2661 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2662 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2663 ;FLOATING 1. THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2664 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2665 2666 001222 SN=SN+1 2667 400000 ZZ=ZZ+ZZ 2668 IFE ZZ, 2669 031522 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2670 031523 201 01 0 00 400000 MOVEI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2671 031524 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2672 031525 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2673 031526 302 03 0 00 400000 CAIE 3,ZZ ;TEST INDEXING 2674 STOP^ 2675 031527 254 04 0 00 031530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2676 031530 324 00 0 00 031531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2678 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2679 2680 ;********** 2681 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0067 2682 001300 SN=1300 2683 000000 ZZ=0 2684 2685 C1300: REPEAT ^D18,< 2686 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2687 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2688 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2689 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2690 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2691 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2692 2693 SN=SN+1 2694 ZZ=ZZ+ZZ 2695 IFE ZZ, 2696 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2697 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2698 MOVEI 2,1 ;SETUP INDEX REGISTER 2699 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2700 CAME 3,[ZZ,,0] ;TEST INDEXING 2701 STOP 2702 2703 ;********** 2704 > 2705 2706 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2707 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2708 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2709 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2710 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2711 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2712 2713 001301 SN=SN+1 2714 000000 ZZ=ZZ+ZZ 2715 000001 IFE ZZ, 2716 031531 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2717 031532 205 01 0 00 000001 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2718 031533 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2719 031534 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2720 031535 312 03 0 00 034362 CAME 3,[ZZ,,0] ;TEST INDEXING 2721 STOP^ 2722 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2723 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2724 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2725 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2726 2727 ;********** 2728 2729 2730 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2731 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2732 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2733 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2734 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2735 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2736 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0068 2737 001302 SN=SN+1 2738 000002 ZZ=ZZ+ZZ 2739 IFE ZZ, 2740 031540 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2741 031541 205 01 0 00 000002 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2742 031542 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2743 031543 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2744 031544 312 03 0 00 034363 CAME 3,[ZZ,,0] ;TEST INDEXING 2745 STOP^ 2746 031545 254 04 0 00 031546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2747 031546 324 00 0 00 031547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2748 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2749 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2750 2751 ;********** 2752 2753 2754 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2755 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2756 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2757 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2758 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2759 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2760 2761 001303 SN=SN+1 2762 000004 ZZ=ZZ+ZZ 2763 IFE ZZ, 2764 031547 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2765 031550 205 01 0 00 000004 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2766 031551 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2767 031552 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2768 031553 312 03 0 00 034364 CAME 3,[ZZ,,0] ;TEST INDEXING 2769 STOP^ 2770 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2771 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2774 2775 ;********** 2776 2777 2778 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2779 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2780 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2781 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2782 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2783 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2784 2785 001304 SN=SN+1 2786 000010 ZZ=ZZ+ZZ 2787 IFE ZZ, 2788 031556 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2789 031557 205 01 0 00 000010 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2790 031560 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2791 031561 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0069 2792 031562 312 03 0 00 034365 CAME 3,[ZZ,,0] ;TEST INDEXING 2793 STOP^ 2794 031563 254 04 0 00 031564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2795 031564 324 00 0 00 031565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2798 2799 ;********** 2800 2801 2802 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2803 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2804 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2805 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2806 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2807 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2808 2809 001305 SN=SN+1 2810 000020 ZZ=ZZ+ZZ 2811 IFE ZZ, 2812 031565 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2813 031566 205 01 0 00 000020 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2814 031567 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2815 031570 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2816 031571 312 03 0 00 034366 CAME 3,[ZZ,,0] ;TEST INDEXING 2817 STOP^ 2818 031572 254 04 0 00 031573 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2819 031573 324 00 0 00 031574 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2820 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2821 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2822 2823 ;********** 2824 2825 2826 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2827 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2828 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2829 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2830 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2831 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2832 2833 001306 SN=SN+1 2834 000040 ZZ=ZZ+ZZ 2835 IFE ZZ, 2836 031574 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2837 031575 205 01 0 00 000040 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2838 031576 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2839 031577 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2840 031600 312 03 0 00 034367 CAME 3,[ZZ,,0] ;TEST INDEXING 2841 STOP^ 2842 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2843 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2844 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2845 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2846 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0070 2847 ;********** 2848 2849 2850 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2851 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2852 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2853 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2854 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2855 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2856 2857 001307 SN=SN+1 2858 000100 ZZ=ZZ+ZZ 2859 IFE ZZ, 2860 031603 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2861 031604 205 01 0 00 000100 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2862 031605 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2863 031606 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2864 031607 312 03 0 00 034370 CAME 3,[ZZ,,0] ;TEST INDEXING 2865 STOP^ 2866 031610 254 04 0 00 031611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2867 031611 324 00 0 00 031612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2869 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2870 2871 ;********** 2872 2873 2874 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2875 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2876 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2877 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2878 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2879 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2880 2881 001310 SN=SN+1 2882 000200 ZZ=ZZ+ZZ 2883 IFE ZZ, 2884 031612 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2885 031613 205 01 0 00 000200 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2886 031614 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2887 031615 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2888 031616 312 03 0 00 034371 CAME 3,[ZZ,,0] ;TEST INDEXING 2889 STOP^ 2890 031617 254 04 0 00 031620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2891 031620 324 00 0 00 031621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2892 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2893 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2894 2895 ;********** 2896 2897 2898 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2899 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2900 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2901 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0071 2902 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2903 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2904 2905 001311 SN=SN+1 2906 000400 ZZ=ZZ+ZZ 2907 IFE ZZ, 2908 031621 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2909 031622 205 01 0 00 000400 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2910 031623 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2911 031624 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2912 031625 312 03 0 00 034372 CAME 3,[ZZ,,0] ;TEST INDEXING 2913 STOP^ 2914 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2915 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2916 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2917 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2918 2919 ;********** 2920 2921 2922 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2923 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2924 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2925 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2926 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2927 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2928 2929 001312 SN=SN+1 2930 001000 ZZ=ZZ+ZZ 2931 IFE ZZ, 2932 031630 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2933 031631 205 01 0 00 001000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2934 031632 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2935 031633 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2936 031634 312 03 0 00 034373 CAME 3,[ZZ,,0] ;TEST INDEXING 2937 STOP^ 2938 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2939 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2940 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2941 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2942 2943 ;********** 2944 2945 2946 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2947 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2948 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2949 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2950 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2951 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2952 2953 001313 SN=SN+1 2954 002000 ZZ=ZZ+ZZ 2955 IFE ZZ, 2956 031637 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0072 2957 031640 205 01 0 00 002000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2958 031641 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2959 031642 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2960 031643 312 03 0 00 034374 CAME 3,[ZZ,,0] ;TEST INDEXING 2961 STOP^ 2962 031644 254 04 0 00 031645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2963 031645 324 00 0 00 031646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2964 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2965 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2966 2967 ;********** 2968 2969 2970 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2971 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2972 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2973 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2974 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2975 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 2976 2977 001314 SN=SN+1 2978 004000 ZZ=ZZ+ZZ 2979 IFE ZZ, 2980 031646 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 2981 031647 205 01 0 00 004000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 2982 031650 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 2983 031651 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 2984 031652 312 03 0 00 034375 CAME 3,[ZZ,,0] ;TEST INDEXING 2985 STOP^ 2986 031653 254 04 0 00 031654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2987 031654 324 00 0 00 031655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2988 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2989 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2990 2991 ;********** 2992 2993 2994 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 2995 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 2996 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 2997 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 2998 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 2999 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3000 3001 001315 SN=SN+1 3002 010000 ZZ=ZZ+ZZ 3003 IFE ZZ, 3004 031655 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3005 031656 205 01 0 00 010000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3006 031657 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3007 031660 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3008 031661 312 03 0 00 034376 CAME 3,[ZZ,,0] ;TEST INDEXING 3009 STOP^ 3010 031662 254 04 0 00 031663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3011 031663 324 00 0 00 031664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0073 3012 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3013 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3014 3015 ;********** 3016 3017 3018 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3019 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3020 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3021 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3022 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 3023 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3024 3025 001316 SN=SN+1 3026 020000 ZZ=ZZ+ZZ 3027 IFE ZZ, 3028 031664 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3029 031665 205 01 0 00 020000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3030 031666 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3031 031667 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3032 031670 312 03 0 00 034377 CAME 3,[ZZ,,0] ;TEST INDEXING 3033 STOP^ 3034 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3035 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3036 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3037 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3038 3039 ;********** 3040 3041 3042 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3043 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3044 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3045 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3046 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 3047 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3048 3049 001317 SN=SN+1 3050 040000 ZZ=ZZ+ZZ 3051 IFE ZZ, 3052 031673 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3053 031674 205 01 0 00 040000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3054 031675 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3055 031676 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3056 031677 312 03 0 00 034400 CAME 3,[ZZ,,0] ;TEST INDEXING 3057 STOP^ 3058 031700 254 04 0 00 031701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3059 031701 324 00 0 00 031702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3060 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3061 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3062 3063 ;********** 3064 3065 3066 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0074 3067 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3068 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3069 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3070 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 3071 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3072 3073 001320 SN=SN+1 3074 100000 ZZ=ZZ+ZZ 3075 IFE ZZ, 3076 031702 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3077 031703 205 01 0 00 100000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3078 031704 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3079 031705 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3080 031706 312 03 0 00 034401 CAME 3,[ZZ,,0] ;TEST INDEXING 3081 STOP^ 3082 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3083 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3084 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3085 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3086 3087 ;********** 3088 3089 3090 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3091 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3092 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3093 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3094 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 3095 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3096 3097 001321 SN=SN+1 3098 200000 ZZ=ZZ+ZZ 3099 IFE ZZ, 3100 031711 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3101 031712 205 01 0 00 200000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3102 031713 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3103 031714 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3104 031715 312 03 0 00 034402 CAME 3,[ZZ,,0] ;TEST INDEXING 3105 STOP^ 3106 031716 254 04 0 00 031717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3107 031717 324 00 0 00 031720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3108 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3109 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3110 3111 ;********** 3112 3113 3114 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3115 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3116 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3117 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3118 ;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1. 3119 ;IF C(AC3)=A FLOATING 1, THIS TEST PASSES. 3120 3121 001322 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 9-8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0075 3122 400000 ZZ=ZZ+ZZ 3123 IFE ZZ, 3124 031720 476 00 0 00 000003 SETOM 3 ;PRELOAD AC3 WITH -1,,-1 3125 031721 205 01 0 00 400000 MOVSI 1,ZZ ;PRELOAD AC1 WITH FLOATING 1 3126 031722 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3127 031723 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3128 031724 312 03 0 00 034403 CAME 3,[ZZ,,0] ;TEST INDEXING 3129 STOP^ 3130 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3131 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3133 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3134 3135 ;********** 3136 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0076 3137 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3138 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3139 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3140 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1, 3141 ;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1. IF C(AC3)=-1,,-1, THIS TEST PASSES. 3142 3143 031727 402 00 0 00 000003 C1400: SETZM 3 ;PRELOAD AC3 WITH 0 3144 031730 476 00 0 00 000001 SETOM 1 ;PRELOAD AC1 WITH -1,,-1 3145 031731 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3146 031732 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3147 031733 312 03 0 00 034404 CAME 3,[-1,,-1] ;TEST INDEXING 3148 STOP^ 3149 031734 254 04 0 00 031735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3150 031735 324 00 0 00 031736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3151 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3152 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3153 3154 ;********** 3155 3156 001500 SN=1500 3157 000000 ZZ=0 3158 3159 C1500: REPEAT ^D18,< 3160 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3161 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3162 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3163 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3164 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3165 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3166 3167 SN=SN+1 3168 ZZ=&777777 3169 IFE , 3170 SETZM 3 ;PRELOAD AC3 WITH 0 3171 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3172 MOVEI 2,1 ;SETUP INDEX REGISTER 3173 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3174 CAME 3,[-1,,ZZ] ;TEST INDEXING 3175 STOP 3176 3177 ;********** 3178 > 3179 3180 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3181 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3182 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3183 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3184 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3185 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3186 3187 001501 SN=SN+1 3188 000001 ZZ=&777777 3189 777776 IFE , 3190 031736 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3191 031737 561 01 0 00 777776 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0077 3192 031740 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3193 031741 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3194 031742 312 03 0 00 034405 CAME 3,[-1,,ZZ] ;TEST INDEXING 3195 STOP^ 3196 031743 254 04 0 00 031744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3197 031744 324 00 0 00 031745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3199 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3200 3201 ;********** 3202 3203 3204 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3205 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3206 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3207 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3208 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3209 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3210 3211 001502 SN=SN+1 3212 777775 ZZ=&777777 3213 IFE , 3214 031745 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3215 031746 561 01 0 00 777775 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3216 031747 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3217 031750 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3218 031751 312 03 0 00 034406 CAME 3,[-1,,ZZ] ;TEST INDEXING 3219 STOP^ 3220 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3221 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3224 3225 ;********** 3226 3227 3228 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3229 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3230 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3231 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3232 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3233 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3234 3235 001503 SN=SN+1 3236 777773 ZZ=&777777 3237 IFE , 3238 031754 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3239 031755 561 01 0 00 777773 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3240 031756 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3241 031757 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3242 031760 312 03 0 00 034407 CAME 3,[-1,,ZZ] ;TEST INDEXING 3243 STOP^ 3244 031761 254 04 0 00 031762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3245 031762 324 00 0 00 031763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3246 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0078 3247 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3248 3249 ;********** 3250 3251 3252 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3253 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3254 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3255 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3256 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3257 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3258 3259 001504 SN=SN+1 3260 777767 ZZ=&777777 3261 IFE , 3262 031763 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3263 031764 561 01 0 00 777767 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3264 031765 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3265 031766 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3266 031767 312 03 0 00 034410 CAME 3,[-1,,ZZ] ;TEST INDEXING 3267 STOP^ 3268 031770 254 04 0 00 031771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3269 031771 324 00 0 00 031772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3270 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3271 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3272 3273 ;********** 3274 3275 3276 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3277 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3278 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3279 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3280 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3281 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3282 3283 001505 SN=SN+1 3284 777757 ZZ=&777777 3285 IFE , 3286 031772 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3287 031773 561 01 0 00 777757 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3288 031774 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3289 031775 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3290 031776 312 03 0 00 034411 CAME 3,[-1,,ZZ] ;TEST INDEXING 3291 STOP^ 3292 031777 254 04 0 00 032000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3293 032000 324 00 0 00 032001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3294 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3295 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3296 3297 ;********** 3298 3299 3300 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3301 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0079 3302 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3303 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3304 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3305 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3306 3307 001506 SN=SN+1 3308 777737 ZZ=&777777 3309 IFE , 3310 032001 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3311 032002 561 01 0 00 777737 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3312 032003 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3313 032004 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3314 032005 312 03 0 00 034412 CAME 3,[-1,,ZZ] ;TEST INDEXING 3315 STOP^ 3316 032006 254 04 0 00 032007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3317 032007 324 00 0 00 032010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3318 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3319 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3320 3321 ;********** 3322 3323 3324 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3325 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3326 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3327 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3328 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3329 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3330 3331 001507 SN=SN+1 3332 777677 ZZ=&777777 3333 IFE , 3334 032010 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3335 032011 561 01 0 00 777677 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3336 032012 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3337 032013 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3338 032014 312 03 0 00 034413 CAME 3,[-1,,ZZ] ;TEST INDEXING 3339 STOP^ 3340 032015 254 04 0 00 032016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3341 032016 324 00 0 00 032017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3342 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3343 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3344 3345 ;********** 3346 3347 3348 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3349 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3350 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3351 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3352 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3353 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3354 3355 001510 SN=SN+1 3356 777577 ZZ=&777777 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0080 3357 IFE , 3358 032017 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3359 032020 561 01 0 00 777577 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3360 032021 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3361 032022 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3362 032023 312 03 0 00 034414 CAME 3,[-1,,ZZ] ;TEST INDEXING 3363 STOP^ 3364 032024 254 04 0 00 032025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3365 032025 324 00 0 00 032026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3366 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3367 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3368 3369 ;********** 3370 3371 3372 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3373 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3374 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3375 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3376 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3377 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3378 3379 001511 SN=SN+1 3380 777377 ZZ=&777777 3381 IFE , 3382 032026 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3383 032027 561 01 0 00 777377 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3384 032030 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3385 032031 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3386 032032 312 03 0 00 034415 CAME 3,[-1,,ZZ] ;TEST INDEXING 3387 STOP^ 3388 032033 254 04 0 00 032034 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3389 032034 324 00 0 00 032035 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3392 3393 ;********** 3394 3395 3396 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3397 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3398 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3399 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3400 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3401 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3402 3403 001512 SN=SN+1 3404 776777 ZZ=&777777 3405 IFE , 3406 032035 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3407 032036 561 01 0 00 776777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3408 032037 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3409 032040 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3410 032041 312 03 0 00 034416 CAME 3,[-1,,ZZ] ;TEST INDEXING 3411 STOP^ DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0081 3412 032042 254 04 0 00 032043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3413 032043 324 00 0 00 032044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3414 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3415 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3416 3417 ;********** 3418 3419 3420 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3421 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3422 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3423 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3424 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3425 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3426 3427 001513 SN=SN+1 3428 775777 ZZ=&777777 3429 IFE , 3430 032044 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3431 032045 561 01 0 00 775777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3432 032046 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3433 032047 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3434 032050 312 03 0 00 034417 CAME 3,[-1,,ZZ] ;TEST INDEXING 3435 STOP^ 3436 032051 254 04 0 00 032052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3437 032052 324 00 0 00 032053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3438 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3439 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3440 3441 ;********** 3442 3443 3444 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3445 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3446 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3447 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3448 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3449 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3450 3451 001514 SN=SN+1 3452 773777 ZZ=&777777 3453 IFE , 3454 032053 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3455 032054 561 01 0 00 773777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3456 032055 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3457 032056 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3458 032057 312 03 0 00 034420 CAME 3,[-1,,ZZ] ;TEST INDEXING 3459 STOP^ 3460 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3461 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3462 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3463 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3464 3465 ;********** 3466 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0082 3467 3468 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3469 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3470 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3471 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3472 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3473 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3474 3475 001515 SN=SN+1 3476 767777 ZZ=&777777 3477 IFE , 3478 032062 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3479 032063 561 01 0 00 767777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3480 032064 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3481 032065 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3482 032066 312 03 0 00 034421 CAME 3,[-1,,ZZ] ;TEST INDEXING 3483 STOP^ 3484 032067 254 04 0 00 032070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3485 032070 324 00 0 00 032071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3486 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3487 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3488 3489 ;********** 3490 3491 3492 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3493 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3494 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3495 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3496 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3497 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3498 3499 001516 SN=SN+1 3500 757777 ZZ=&777777 3501 IFE , 3502 032071 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3503 032072 561 01 0 00 757777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3504 032073 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3505 032074 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3506 032075 312 03 0 00 034422 CAME 3,[-1,,ZZ] ;TEST INDEXING 3507 STOP^ 3508 032076 254 04 0 00 032077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3509 032077 324 00 0 00 032100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3510 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3511 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3512 3513 ;********** 3514 3515 3516 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3517 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3518 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3519 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3520 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3521 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0083 3522 3523 001517 SN=SN+1 3524 737777 ZZ=&777777 3525 IFE , 3526 032100 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3527 032101 561 01 0 00 737777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3528 032102 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3529 032103 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3530 032104 312 03 0 00 034423 CAME 3,[-1,,ZZ] ;TEST INDEXING 3531 STOP^ 3532 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3533 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3534 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3535 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3536 3537 ;********** 3538 3539 3540 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3541 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3542 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3543 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3544 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3545 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3546 3547 001520 SN=SN+1 3548 677777 ZZ=&777777 3549 IFE , 3550 032107 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3551 032110 561 01 0 00 677777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3552 032111 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3553 032112 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3554 032113 312 03 0 00 034424 CAME 3,[-1,,ZZ] ;TEST INDEXING 3555 STOP^ 3556 032114 254 04 0 00 032115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3557 032115 324 00 0 00 032116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3558 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3559 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3560 3561 ;********** 3562 3563 3564 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3565 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3566 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3567 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3568 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3569 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3570 3571 001521 SN=SN+1 3572 577777 ZZ=&777777 3573 IFE , 3574 032116 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3575 032117 561 01 0 00 577777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3576 032120 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 10-8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0084 3577 032121 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3578 032122 312 03 0 00 034425 CAME 3,[-1,,ZZ] ;TEST INDEXING 3579 STOP^ 3580 032123 254 04 0 00 032124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3581 032124 324 00 0 00 032125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3582 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3583 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3584 3585 ;********** 3586 3587 3588 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3589 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3590 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3591 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3592 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3593 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3594 3595 001522 SN=SN+1 3596 377777 ZZ=&777777 3597 IFE , 3598 032125 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3599 032126 561 01 0 00 377777 HRROI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3600 032127 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3601 032130 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3602 032131 312 03 0 00 034426 CAME 3,[-1,,ZZ] ;TEST INDEXING 3603 STOP^ 3604 032132 254 04 0 00 032133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3605 032133 324 00 0 00 032134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3606 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3607 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3608 3609 ;********** 3610 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0085 3611 001600 SN=1600 3612 000000 ZZ=0 3613 3614 C1600: REPEAT ^D18,< 3615 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3616 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3617 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3618 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3619 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3620 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3621 3622 SN=SN+1 3623 ZZ=&777777 3624 IFE , 3625 SETZM 3 ;PRELOAD AC3 WITH 0 3626 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3627 MOVEI 2,1 ;SETUP INDEX REGISTER 3628 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3629 CAME 3,[ZZ,,-1] ;TEST INDEXING 3630 STOP 3631 3632 ;********** 3633 > 3634 3635 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3636 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3637 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3638 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3639 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3640 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3641 3642 001601 SN=SN+1 3643 000001 ZZ=&777777 3644 777776 IFE , 3645 032134 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3646 032135 525 01 0 00 777776 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3647 032136 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3648 032137 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3649 032140 312 03 0 00 034427 CAME 3,[ZZ,,-1] ;TEST INDEXING 3650 STOP^ 3651 032141 254 04 0 00 032142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3652 032142 324 00 0 00 032143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3653 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3654 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3655 3656 ;********** 3657 3658 3659 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3660 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3661 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3662 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3663 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3664 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3665 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0086 3666 001602 SN=SN+1 3667 777775 ZZ=&777777 3668 IFE , 3669 032143 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3670 032144 525 01 0 00 777775 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3671 032145 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3672 032146 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3673 032147 312 03 0 00 034430 CAME 3,[ZZ,,-1] ;TEST INDEXING 3674 STOP^ 3675 032150 254 04 0 00 032151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3676 032151 324 00 0 00 032152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3678 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3679 3680 ;********** 3681 3682 3683 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3684 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3685 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3686 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3687 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3688 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3689 3690 001603 SN=SN+1 3691 777773 ZZ=&777777 3692 IFE , 3693 032152 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3694 032153 525 01 0 00 777773 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3695 032154 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3696 032155 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3697 032156 312 03 0 00 034431 CAME 3,[ZZ,,-1] ;TEST INDEXING 3698 STOP^ 3699 032157 254 04 0 00 032160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3700 032160 324 00 0 00 032161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3703 3704 ;********** 3705 3706 3707 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3708 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3709 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3710 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3711 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3712 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3713 3714 001604 SN=SN+1 3715 777767 ZZ=&777777 3716 IFE , 3717 032161 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3718 032162 525 01 0 00 777767 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3719 032163 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3720 032164 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0087 3721 032165 312 03 0 00 034432 CAME 3,[ZZ,,-1] ;TEST INDEXING 3722 STOP^ 3723 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3724 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3725 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3726 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3727 3728 ;********** 3729 3730 3731 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3732 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3733 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3734 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3735 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3736 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3737 3738 001605 SN=SN+1 3739 777757 ZZ=&777777 3740 IFE , 3741 032170 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3742 032171 525 01 0 00 777757 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3743 032172 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3744 032173 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3745 032174 312 03 0 00 034433 CAME 3,[ZZ,,-1] ;TEST INDEXING 3746 STOP^ 3747 032175 254 04 0 00 032176 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3748 032176 324 00 0 00 032177 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3749 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3750 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3751 3752 ;********** 3753 3754 3755 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3756 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3757 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3758 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3759 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3760 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3761 3762 001606 SN=SN+1 3763 777737 ZZ=&777777 3764 IFE , 3765 032177 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3766 032200 525 01 0 00 777737 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3767 032201 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3768 032202 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3769 032203 312 03 0 00 034434 CAME 3,[ZZ,,-1] ;TEST INDEXING 3770 STOP^ 3771 032204 254 04 0 00 032205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3772 032205 324 00 0 00 032206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3773 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3774 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3775 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0088 3776 ;********** 3777 3778 3779 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3780 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3781 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3782 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3783 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3784 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3785 3786 001607 SN=SN+1 3787 777677 ZZ=&777777 3788 IFE , 3789 032206 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3790 032207 525 01 0 00 777677 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3791 032210 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3792 032211 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3793 032212 312 03 0 00 034435 CAME 3,[ZZ,,-1] ;TEST INDEXING 3794 STOP^ 3795 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3796 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3798 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3799 3800 ;********** 3801 3802 3803 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3804 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3805 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3806 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3807 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3808 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3809 3810 001610 SN=SN+1 3811 777577 ZZ=&777777 3812 IFE , 3813 032215 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3814 032216 525 01 0 00 777577 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3815 032217 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3816 032220 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3817 032221 312 03 0 00 034436 CAME 3,[ZZ,,-1] ;TEST INDEXING 3818 STOP^ 3819 032222 254 04 0 00 032223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3820 032223 324 00 0 00 032224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3821 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3822 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3823 3824 ;********** 3825 3826 3827 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3828 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3829 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3830 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0089 3831 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3832 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3833 3834 001611 SN=SN+1 3835 777377 ZZ=&777777 3836 IFE , 3837 032224 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3838 032225 525 01 0 00 777377 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3839 032226 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3840 032227 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3841 032230 312 03 0 00 034437 CAME 3,[ZZ,,-1] ;TEST INDEXING 3842 STOP^ 3843 032231 254 04 0 00 032232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3844 032232 324 00 0 00 032233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3846 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3847 3848 ;********** 3849 3850 3851 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3852 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3853 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3854 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3855 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3856 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3857 3858 001612 SN=SN+1 3859 776777 ZZ=&777777 3860 IFE , 3861 032233 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3862 032234 525 01 0 00 776777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3863 032235 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3864 032236 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3865 032237 312 03 0 00 034440 CAME 3,[ZZ,,-1] ;TEST INDEXING 3866 STOP^ 3867 032240 254 04 0 00 032241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3868 032241 324 00 0 00 032242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3869 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3870 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3871 3872 ;********** 3873 3874 3875 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3876 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3877 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3878 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3879 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3880 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3881 3882 001613 SN=SN+1 3883 775777 ZZ=&777777 3884 IFE , 3885 032242 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0090 3886 032243 525 01 0 00 775777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3887 032244 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3888 032245 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3889 032246 312 03 0 00 034441 CAME 3,[ZZ,,-1] ;TEST INDEXING 3890 STOP^ 3891 032247 254 04 0 00 032250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3892 032250 324 00 0 00 032251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3893 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3894 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3895 3896 ;********** 3897 3898 3899 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3900 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3901 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3902 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3903 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3904 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3905 3906 001614 SN=SN+1 3907 773777 ZZ=&777777 3908 IFE , 3909 032251 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3910 032252 525 01 0 00 773777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3911 032253 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3912 032254 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3913 032255 312 03 0 00 034442 CAME 3,[ZZ,,-1] ;TEST INDEXING 3914 STOP^ 3915 032256 254 04 0 00 032257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3916 032257 324 00 0 00 032260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3918 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3919 3920 ;********** 3921 3922 3923 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3924 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3925 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3926 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3927 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3928 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3929 3930 001615 SN=SN+1 3931 767777 ZZ=&777777 3932 IFE , 3933 032260 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3934 032261 525 01 0 00 767777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3935 032262 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3936 032263 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3937 032264 312 03 0 00 034443 CAME 3,[ZZ,,-1] ;TEST INDEXING 3938 STOP^ 3939 032265 254 04 0 00 032266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3940 032266 324 00 0 00 032267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0091 3941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3943 3944 ;********** 3945 3946 3947 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3948 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3949 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3950 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3951 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3952 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3953 3954 001616 SN=SN+1 3955 757777 ZZ=&777777 3956 IFE , 3957 032267 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3958 032270 525 01 0 00 757777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3959 032271 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3960 032272 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3961 032273 312 03 0 00 034444 CAME 3,[ZZ,,-1] ;TEST INDEXING 3962 STOP^ 3963 032274 254 04 0 00 032275 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3964 032275 324 00 0 00 032276 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3965 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3966 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3967 3968 ;********** 3969 3970 3971 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 3972 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3973 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3974 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3975 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 3976 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 3977 3978 001617 SN=SN+1 3979 737777 ZZ=&777777 3980 IFE , 3981 032276 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 3982 032277 525 01 0 00 737777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 3983 032300 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 3984 032301 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 3985 032302 312 03 0 00 034445 CAME 3,[ZZ,,-1] ;TEST INDEXING 3986 STOP^ 3987 032303 254 04 0 00 032304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3988 032304 324 00 0 00 032305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3989 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3990 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3991 3992 ;********** 3993 3994 3995 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0092 3996 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 3997 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 3998 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 3999 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 4000 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 4001 4002 001620 SN=SN+1 4003 677777 ZZ=&777777 4004 IFE , 4005 032305 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 4006 032306 525 01 0 00 677777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 4007 032307 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 4008 032310 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 4009 032311 312 03 0 00 034446 CAME 3,[ZZ,,-1] ;TEST INDEXING 4010 STOP^ 4011 032312 254 04 0 00 032313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4012 032313 324 00 0 00 032314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4013 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4014 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4015 4016 ;********** 4017 4018 4019 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 4020 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 4021 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 4022 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 4023 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 4024 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 4025 4026 001621 SN=SN+1 4027 577777 ZZ=&777777 4028 IFE , 4029 032314 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 4030 032315 525 01 0 00 577777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 4031 032316 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 4032 032317 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 4033 032320 312 03 0 00 034447 CAME 3,[ZZ,,-1] ;TEST INDEXING 4034 STOP^ 4035 032321 254 04 0 00 032322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4036 032322 324 00 0 00 032323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4038 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4039 4040 ;********** 4041 4042 4043 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 4044 ;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED. THE MOVE INSTRUCTION 4045 ;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3. 4046 ;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 4047 ;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0. 4048 ;IF C(AC3)=A FLOATING 0, THIS TEST PASSES. 4049 4050 001622 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 11-8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0093 4051 377777 ZZ=&777777 4052 IFE , 4053 032323 402 00 0 00 000003 SETZM 3 ;PRELOAD AC3 WITH 0 4054 032324 525 01 0 00 377777 HRLOI 1,ZZ ;PRELOAD AC1 WITH FLOATING 0 4055 032325 201 02 0 00 000001 MOVEI 2,1 ;SETUP INDEX REGISTER 4056 032326 200 03 0 02 000000 MOVE 3,(2) ;*FWT FROM INDEXED LOCATION 4057 032327 312 03 0 00 034450 CAME 3,[ZZ,,-1] ;TEST INDEXING 4058 STOP^ 4059 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4060 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4061 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4062 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4063 4064 ;********** 4065 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0094 4066 ;VERIFY INDEXING WHERE 'E' IS NON-ZERO 4067 4068 001700 SN=1700 4069 777777 777777 ZZ=-1 4070 777777 777770 XX=-10 4071 4072 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 4073 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, 4074 ;WHERE ZZ+1 IS THE INDEX REG. THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ. 4075 ;CAIE IS USED TO TEST THE INDEXING OPERATION. 4076 ;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES. 4077 ;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ. 4078 4079 C1700: REPEAT ^D15, 4080 4090 001701 SN=SN+1 4091 000000 ZZ=ZZ+1 4092 777777 777773 XX=XX+3 4093 032332 201 01 0 00 000005 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4094 032333 201 00 0 00 000000 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4095 032334 302 00 0 01 777773 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4096 STOP^ 4097 032335 254 04 0 00 032336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4098 032336 324 00 0 00 032337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4099 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4100 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4101 4102 ;********** 4103 4104 001702 SN=SN+1 4105 000001 ZZ=ZZ+1 4106 777777 777776 XX=XX+3 4107 032337 201 02 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4108 032340 201 01 0 00 000001 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4109 032341 302 01 0 02 777776 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4110 STOP^ 4111 032342 254 04 0 00 032343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4112 032343 324 00 0 00 032344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4113 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4114 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4115 4116 ;********** 4117 4118 001703 SN=SN+1 4119 000002 ZZ=ZZ+1 4120 000001 XX=XX+3 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0095 4121 032344 201 03 0 00 000001 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4122 032345 201 02 0 00 000002 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4123 032346 302 02 0 03 000001 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4124 STOP^ 4125 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4126 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4127 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4128 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4129 4130 ;********** 4131 4132 001704 SN=SN+1 4133 000003 ZZ=ZZ+1 4134 000004 XX=XX+3 4135 032351 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4136 032352 201 03 0 00 000003 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4137 032353 302 03 0 04 000004 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4138 STOP^ 4139 032354 254 04 0 00 032355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4140 032355 324 00 0 00 032356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4141 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4142 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4143 4144 ;********** 4145 4146 001705 SN=SN+1 4147 000004 ZZ=ZZ+1 4148 000007 XX=XX+3 4149 032356 201 05 0 00 777775 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4150 032357 201 04 0 00 000004 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4151 032360 302 04 0 05 000007 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4152 STOP^ 4153 032361 254 04 0 00 032362 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4154 032362 324 00 0 00 032363 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4156 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4157 4158 ;********** 4159 4160 001706 SN=SN+1 4161 000005 ZZ=ZZ+1 4162 000012 XX=XX+3 4163 032363 201 06 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4164 032364 201 05 0 00 000005 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4165 032365 302 05 0 06 000012 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4166 STOP^ 4167 032366 254 04 0 00 032367 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4168 032367 324 00 0 00 032370 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4171 4172 ;********** 4173 4174 001707 SN=SN+1 4175 000006 ZZ=ZZ+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-2 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0096 4176 000015 XX=XX+3 4177 032370 201 07 0 00 777771 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4178 032371 201 06 0 00 000006 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4179 032372 302 06 0 07 000015 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4180 STOP^ 4181 032373 254 04 0 00 032374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4182 032374 324 00 0 00 032375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4183 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4184 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4185 4186 ;********** 4187 4188 001710 SN=SN+1 4189 000007 ZZ=ZZ+1 4190 000020 XX=XX+3 4191 032375 201 10 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4192 032376 201 07 0 00 000007 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4193 032377 302 07 0 10 000020 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4194 STOP^ 4195 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4196 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4197 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4198 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4199 4200 ;********** 4201 4202 001711 SN=SN+1 4203 000010 ZZ=ZZ+1 4204 000023 XX=XX+3 4205 032402 201 11 0 00 777765 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4206 032403 201 10 0 00 000010 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4207 032404 302 10 0 11 000023 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4208 STOP^ 4209 032405 254 04 0 00 032406 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4210 032406 324 00 0 00 032407 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4211 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4212 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4213 4214 ;********** 4215 4216 001712 SN=SN+1 4217 000011 ZZ=ZZ+1 4218 000026 XX=XX+3 4219 032407 201 12 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4220 032410 201 11 0 00 000011 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4221 032411 302 11 0 12 000026 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4222 STOP^ 4223 032412 254 04 0 00 032413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4224 032413 324 00 0 00 032414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4225 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4226 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4227 4228 ;********** 4229 4230 001713 SN=SN+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-3 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0097 4231 000012 ZZ=ZZ+1 4232 000031 XX=XX+3 4233 032414 201 13 0 00 777761 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4234 032415 201 12 0 00 000012 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4235 032416 302 12 0 13 000031 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4236 STOP^ 4237 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4238 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4239 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4240 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4241 4242 ;********** 4243 4244 001714 SN=SN+1 4245 000013 ZZ=ZZ+1 4246 000034 XX=XX+3 4247 032421 201 14 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4248 032422 201 13 0 00 000013 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4249 032423 302 13 0 14 000034 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4250 STOP^ 4251 032424 254 04 0 00 032425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4252 032425 324 00 0 00 032426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4253 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4254 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4255 4256 ;********** 4257 4258 001715 SN=SN+1 4259 000014 ZZ=ZZ+1 4260 000037 XX=XX+3 4261 032426 201 15 0 00 777755 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4262 032427 201 14 0 00 000014 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4263 032430 302 14 0 15 000037 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4264 STOP^ 4265 032431 254 04 0 00 032432 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4266 032432 324 00 0 00 032433 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4267 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4268 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4269 4270 ;********** 4271 4272 001716 SN=SN+1 4273 000015 ZZ=ZZ+1 4274 000042 XX=XX+3 4275 032433 201 16 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4276 032434 201 15 0 00 000015 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4277 032435 302 15 0 16 000042 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4278 STOP^ 4279 032436 254 04 0 00 032437 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4280 032437 324 00 0 00 032440 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4281 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4282 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4283 4284 ;********** 4285 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-4 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0098 4286 001717 SN=SN+1 4287 000016 ZZ=ZZ+1 4288 000045 XX=XX+3 4289 032440 201 17 0 00 777751 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4290 032441 201 16 0 00 000016 MOVEI ZZ,ZZ ;PRELOAD AC WITH 0,,ZZ 4291 032442 302 16 0 17 000045 CAIE ZZ,XX(ZZ+1) ;*TEST INDEXING 4292 STOP^ 4293 032443 254 04 0 00 032444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4294 032444 324 00 0 00 032445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4297 4298 ;********** 4299 4300 PAGE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-5 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0099 4301 002000 SN=2000 4302 777777 777777 ZZ=-1 4303 777777 777760 XX=-20 4304 4305 ;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY. 4306 ;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX, 4307 ;WHERE ZZ+1 IS THE INDEX REG. INDEXING IS TESTED BY LOADING 4308 ;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ. 4309 ;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES. 4310 4311 C2000: REPEAT ^D15, 4312 4322 002001 SN=SN+1 4323 000000 ZZ=ZZ+1 4324 777777 777765 XX=XX+5 4325 032445 201 01 0 00 000013 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4326 032446 201 00 0 01 777765 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4327 032447 302 00 0 00 000000 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4328 STOP^ 4329 032450 254 04 0 00 032451 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4330 032451 324 00 0 00 032452 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4331 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4332 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4333 4334 ;********** 4335 4336 002002 SN=SN+1 4337 000001 ZZ=ZZ+1 4338 777777 777772 XX=XX+5 4339 032452 201 02 0 00 000007 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4340 032453 201 01 0 02 777772 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4341 032454 302 01 0 00 000001 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4342 STOP^ 4343 032455 254 04 0 00 032456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4344 032456 324 00 0 00 032457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4345 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4346 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4347 4348 ;********** 4349 4350 002003 SN=SN+1 4351 000002 ZZ=ZZ+1 4352 777777 777777 XX=XX+5 4353 032457 201 03 0 00 000003 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4354 032460 201 02 0 03 777777 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4355 032461 302 02 0 00 000002 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-6 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0100 4356 STOP^ 4357 032462 254 04 0 00 032463 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4358 032463 324 00 0 00 032464 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4359 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4360 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4361 4362 ;********** 4363 4364 002004 SN=SN+1 4365 000003 ZZ=ZZ+1 4366 000004 XX=XX+5 4367 032464 201 04 0 00 777777 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4368 032465 201 03 0 04 000004 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4369 032466 302 03 0 00 000003 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4370 STOP^ 4371 032467 254 04 0 00 032470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4372 032470 324 00 0 00 032471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4373 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4374 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4375 4376 ;********** 4377 4378 002005 SN=SN+1 4379 000004 ZZ=ZZ+1 4380 000011 XX=XX+5 4381 032471 201 05 0 00 777773 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4382 032472 201 04 0 05 000011 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4383 032473 302 04 0 00 000004 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4384 STOP^ 4385 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4386 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4387 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4388 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4389 4390 ;********** 4391 4392 002006 SN=SN+1 4393 000005 ZZ=ZZ+1 4394 000016 XX=XX+5 4395 032476 201 06 0 00 777767 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4396 032477 201 05 0 06 000016 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4397 032500 302 05 0 00 000005 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4398 STOP^ 4399 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4400 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4401 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4402 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4403 4404 ;********** 4405 4406 002007 SN=SN+1 4407 000006 ZZ=ZZ+1 4408 000023 XX=XX+5 4409 032503 201 07 0 00 777763 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4410 032504 201 06 0 07 000023 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-7 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0101 4411 032505 302 06 0 00 000006 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4412 STOP^ 4413 032506 254 04 0 00 032507 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4414 032507 324 00 0 00 032510 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4416 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4417 4418 ;********** 4419 4420 002010 SN=SN+1 4421 000007 ZZ=ZZ+1 4422 000030 XX=XX+5 4423 032510 201 10 0 00 777757 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4424 032511 201 07 0 10 000030 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4425 032512 302 07 0 00 000007 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4426 STOP^ 4427 032513 254 04 0 00 032514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4428 032514 324 00 0 00 032515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4431 4432 ;********** 4433 4434 002011 SN=SN+1 4435 000010 ZZ=ZZ+1 4436 000035 XX=XX+5 4437 032515 201 11 0 00 777753 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4438 032516 201 10 0 11 000035 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4439 032517 302 10 0 00 000010 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4440 STOP^ 4441 032520 254 04 0 00 032521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4442 032521 324 00 0 00 032522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4443 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4444 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4445 4446 ;********** 4447 4448 002012 SN=SN+1 4449 000011 ZZ=ZZ+1 4450 000042 XX=XX+5 4451 032522 201 12 0 00 777747 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4452 032523 201 11 0 12 000042 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4453 032524 302 11 0 00 000011 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4454 STOP^ 4455 032525 254 04 0 00 032526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4456 032526 324 00 0 00 032527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4457 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4458 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4459 4460 ;********** 4461 4462 002013 SN=SN+1 4463 000012 ZZ=ZZ+1 4464 000047 XX=XX+5 4465 032527 201 13 0 00 777743 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-8 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0102 4466 032530 201 12 0 13 000047 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4467 032531 302 12 0 00 000012 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4468 STOP^ 4469 032532 254 04 0 00 032533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4470 032533 324 00 0 00 032534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4473 4474 ;********** 4475 4476 002014 SN=SN+1 4477 000013 ZZ=ZZ+1 4478 000054 XX=XX+5 4479 032534 201 14 0 00 777737 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4480 032535 201 13 0 14 000054 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4481 032536 302 13 0 00 000013 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4482 STOP^ 4483 032537 254 04 0 00 032540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4484 032540 324 00 0 00 032541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4485 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4486 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4487 4488 ;********** 4489 4490 002015 SN=SN+1 4491 000014 ZZ=ZZ+1 4492 000061 XX=XX+5 4493 032541 201 15 0 00 777733 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4494 032542 201 14 0 15 000061 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4495 032543 302 14 0 00 000014 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4496 STOP^ 4497 032544 254 04 0 00 032545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4498 032545 324 00 0 00 032546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4501 4502 ;********** 4503 4504 002016 SN=SN+1 4505 000015 ZZ=ZZ+1 4506 000066 XX=XX+5 4507 032546 201 16 0 00 777727 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4508 032547 201 15 0 16 000066 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4509 032550 302 15 0 00 000015 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4510 STOP^ 4511 032551 254 04 0 00 032552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4512 032552 324 00 0 00 032553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4513 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4514 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4515 4516 ;********** 4517 4518 002017 SN=SN+1 4519 000016 ZZ=ZZ+1 4520 000073 XX=XX+5 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 12-9 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INDEX REGISTER ADDRESSING SEQ 0103 4521 032553 201 17 0 00 777723 MOVEI ZZ+1,ZZ-XX ;SETUP INDEX REGISTER 4522 032554 201 16 0 17 000073 MOVEI ZZ,XX(ZZ+1) ;*TEST INDEXING 4523 032555 302 16 0 00 000016 CAIE ZZ,ZZ ;PASS IF C(AC)=0,,ADDRESS OF AC 4524 STOP^ 4525 032556 254 04 0 00 032557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4526 032557 324 00 0 00 032560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4528 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4529 4530 ;********** 4531 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 13 DSKAD1 MAC 28-Mar-78 13:50 TEST OF EXCH INSTRUCTION SEQ 0104 4532 SUBTTL TEST OF EXCH INSTRUCTION 4533 4534 ;********** 4535 4536 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND 4537 ;MOVES C(AC) INTO E. 4538 ;IN THIS CASE, AC=E=0 AND C(AC)=C(E). HENCE, THE FINAL RESULT 4539 ;IN AC0 SHOULD BE 0. IF C(AC)=0, THE TEST PASSES. 4540 4541 032560 400 00 0 00 000000 C2100: SETZ ;PRELOAD AC,E WITH 0 4542 032561 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 0 INTO AC0 4543 032562 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 4544 STOP^ 4545 032563 254 04 0 00 032564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4546 032564 324 00 0 00 032565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4548 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4549 4550 ;********** 4551 4552 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND 4553 ;MOVES C(AC) INTO E. 4554 ;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E). HENCE, THE FINAL RESULT 4555 ;IN AC0 SHOULD BE -1,,-1. IF C(AC)=-1,,-1, THE TEST PASSES. 4556 4557 032565 474 00 0 00 000000 C2200: SETO ;PRELOAD AC,E WITH -1,,-1 4558 032566 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE -1,,-1 INTO AC0 4559 032567 312 00 0 00 034404 CAME [-1] ;PASS IF C(AC0)=-1,,-1 4560 STOP^ 4561 032570 254 04 0 00 032571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4562 032571 324 00 0 00 032572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4563 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4564 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4565 4566 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 14 DSKAD1 MAC 28-Mar-78 13:50 TEST OF EXCH INSTRUCTION SEQ 0105 4567 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND 4568 ;MOVES C(AC) INTO E. 4569 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1. HENCE, THE FINAL RESULT 4570 ;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0, 4571 ;IF THESE RESULTS OCCUR, THE TEST PASSES. 4572 4573 032572 205 00 0 00 777777 C2400: MOVSI -1 ;PRELOAD AC WITH -1,,0 4574 032573 201 01 0 00 777777 MOVEI 1,-1 ;PRELOAD E WITH 0,,-1 4575 032574 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E 4576 032575 312 01 0 00 034451 CAME 1,[-1,,0] ;PASS IF C(E)=-1,,0 4577 STOP^ 4578 032576 254 04 0 00 032577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4579 032577 324 00 0 00 032600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4580 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4581 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4582 032600 312 00 0 00 034452 C2410: CAME 0,[0,,-1] ;PASS IF C(AC)=0,,-1 4583 STOP^ 4584 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4585 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4586 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4587 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4588 4589 ;********** 4590 4591 ;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND 4592 ;MOVES C(AC) INTO E. 4593 ;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0. HENCE, THE FINAL RESULT 4594 ;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1. 4595 ;IF THESE RESULTS OCCUR, THE TEST PASSES. 4596 4597 032603 201 00 0 00 777777 C2700: MOVEI -1 ;PRELOAD AC WITH 0,,-1 4598 032604 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD E WITH -1,,0 4599 032605 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E 4600 032606 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 4601 STOP^ 4602 032607 254 04 0 00 032610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4603 032610 324 00 0 00 032611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4604 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4605 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4606 032611 312 00 0 00 034451 C2710: CAME ,[XWD -1,0] ;PASS IF C(AC)=-1,,0 4607 STOP^ 4608 032612 254 04 0 00 032613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4609 032613 324 00 0 00 032614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4610 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4611 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4612 4613 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 15 DSKAD1 MAC 28-Mar-78 13:50 TEST OF EXCH INSTRUCTION SEQ 0106 4614 ;THIS TEST IS A RELIABILITY CHECK OF EXCH. 4615 ;FIRST, AC, E ARE PRELOADED WITH 252525,,252525. THERE, EXCH IS 4616 ;EXECUTED 7 TIMES. THE AC IS THEN CHECKED FOR 252525,,252525. 4617 ;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES. 4618 ;IN THIS TEST AC=E=AC0 4619 4620 032614 200 00 0 00 034453 C3000: MOVE [252525252525] ;PRELOAD AC,E WITH 252525,,252525 4621 REPEAT 7, 4622 < EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0> 4623 032615 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4624 032616 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4625 032617 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4626 032620 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4627 032621 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4628 032622 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4629 032623 250 00 0 00 000000 EXCH ;*EXCH SHOULD PLACE 252525,,252525 INTO AC0 4630 032624 312 00 0 00 034453 CAME [252525252525] ;PASS IF C(AC0)=252525,,252525 4631 STOP^ 4632 032625 254 04 0 00 032626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4633 032626 324 00 0 00 032627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4634 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4635 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4636 4637 ;********** 4638 PAGE DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 15-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF EXCH INSTRUCTION SEQ 0107 4639 ;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC. 4640 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. EXCH IS EXECUTED 7 TIMES; THEN, 4641 ;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0. IF EITHER OF THESE 4642 ;RESULTS ARE NOT FOUND, THIS TEST FAILS. 4643 4644 032627 400 00 0 00 000000 C3100: SETZ ;PRELOAD AC WITH 0 4645 032630 474 01 0 00 000000 SETO 1,0 ;PRELOAD E WITH -1,,-1 4646 REPEAT 7, 4647 < EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E)> 4648 032631 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4649 032632 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4650 032633 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4651 032634 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4652 032635 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4653 032636 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4654 032637 250 00 0 00 000001 EXCH 1 ;*EXCH SHOULD EXCHANGE C(AC) AND C(E) 4655 032640 312 00 0 00 034404 CAME [-1] ;PASS IF C(AC)=-1,,-1 4656 STOP^ 4657 032641 254 04 0 00 032642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4658 032642 324 00 0 00 032643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4659 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4660 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4661 032643 312 01 0 00 034454 C3110: CAME 1,[0] ;PASS IF C(E)=0 4662 STOP^ 4663 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4664 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4665 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4666 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4667 4668 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 16 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MOVEM INSTRUCTION SEQ 0108 4669 SUBTTL TEST OF MOVEM INSTRUCTION 4670 4671 ;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC) 4672 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0. HENCE, THE RESULT IN AC AND E SHOULD 4673 ;BE -1,,-1. IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES 4674 4675 032646 474 00 0 00 000000 C3200: SETO ;PRELOAD AC WITH -1,,-1 4676 032647 400 01 0 00 000000 SETZ 1,0 ;PRELOAD E WITH 0 4677 032650 202 00 0 00 000001 MOVEM 1 ;*MOVEM SHOULD PLACE -1,,-1 INTO E 4678 032651 312 01 0 00 034404 CAME 1,[-1] ;PASS IF C(E)=-1,,-1 4679 STOP^ 4680 032652 254 04 0 00 032653 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4681 032653 324 00 0 00 032654 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4682 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4683 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4684 032654 312 00 0 00 034404 C3210: CAME 0,[-1] ;PASS IF C(AC)=-1,,-1 4685 STOP^ 4686 032655 254 04 0 00 032656 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4687 032656 324 00 0 00 032657 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4688 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4689 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4690 4691 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 17 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0109 4692 SUBTTL TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS 4693 4694 ;********** 4695 4696 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION 4697 ;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS 4698 4699 032657 200 00 0 00 034455 C3300: MOVE [HALT .+3] ;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST 4700 032660 255 17 0 00 032661 JFCL 17,.+1 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION 4701 032661 304 00 0 00 000000 CAIA ;SKIP HALT INSTRUCTION IF JFCL PASSES 4702 STOP^ 4703 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4704 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4705 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4706 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4707 4708 ;********** 4709 4710 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG. 4711 ;ADDI IS USED TO SET CRY0. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0. 4712 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL. 4713 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0 4714 4715 032664 200 00 0 00 034404 C3400: MOVE [-1] ;PRELOAD AC WITH -1,,-1 4716 032665 271 00 0 00 000001 ADDI 1 ;SET CRY0 FLAG 4717 032666 255 17 0 00 032667 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS 4718 032667 255 04 0 00 032671 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION 4719 032670 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY0 WAS CLEARED 4720 STOP^ 4721 032671 254 04 0 00 032672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4722 032672 324 00 0 00 032673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4723 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4724 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4725 4726 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 18 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0110 4727 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG. 4728 ;ADDI IS USED TO SET CRY1. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1. 4729 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL. 4730 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1 4731 4732 032673 200 00 0 00 034404 C3500: MOVE [-1] ;PRELOAD AC WITH -1,,-1 4733 032674 271 00 0 00 000001 ADDI 1 ;SET CRY1 FLAG 4734 032675 255 17 0 00 032676 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS 4735 032676 255 02 0 00 032700 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION 4736 032677 334 00 0 00 000000 SKIPA ;SKIP HALT IF CRY1 WAS CLEARED 4737 STOP^ 4738 032700 254 04 0 00 032701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4739 032701 324 00 0 00 032702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4740 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4741 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4742 4743 ;********** 4744 4745 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG. 4746 ;ADDI IS USED TO SET AROV. THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV. 4747 ;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL. 4748 ;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV 4749 4750 032702 205 00 0 00 400000 C3600: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 4751 032703 270 00 0 00 034403 ADD [XWD 400000,0] ;SET AROV FLAG 4752 032704 255 17 0 00 032705 JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS 4753 032705 255 10 0 00 032707 JFCL 10,.+2 ;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION 4754 032706 334 00 0 00 000000 SKIPA ;SKIP HALT IF AROV WAS CLEARED 4755 STOP^ 4756 032707 254 04 0 00 032710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4757 032710 324 00 0 00 032711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4758 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4759 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4760 4761 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 19 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0111 4762 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. 4763 ;IN THIS TEST, ADD IS USED TO SET CRY0. THEN JFCL 0,.+2 IS EXECUTED. 4764 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES 4765 4766 032711 205 00 0 00 400000 C3700: MOVSI 400000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER 4767 032712 270 00 0 00 034404 ADD [-1] ;SET CRY0 FLAG 4768 032713 255 00 0 00 032715 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION 4769 032714 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP 4770 STOP^ 4771 032715 254 04 0 00 032716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4772 032716 324 00 0 00 032717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4773 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4774 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4775 4776 ;********** 4777 4778 ;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP. 4779 ;IN THIS TEST, ADD IS USED TO SET CRY1. THEN JFCL 0,.+2 IS EXECUTED. 4780 ;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES 4781 4782 032717 205 00 0 00 200000 C4000: MOVSI 200000 ;PRELOAD AC WITH MOST NEGATIVE NUMBER 4783 032720 270 00 0 00 034402 ADD [XWD 200000,0] ;SET CRY1 FLAG 4784 032721 255 00 0 00 032723 JFCL .+2 ;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION 4785 032722 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT SKIP 4786 STOP^ 4787 032723 254 04 0 00 032724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4788 032724 324 00 0 00 032725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4789 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4790 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4791 4792 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 20 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0112 4793 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND 4794 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. 4795 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP 4796 ;BECAUSE A FLAG WAS SET BY ADDI 4797 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 4798 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET 4799 4800 032725 200 00 0 00 034404 C4100: MOVE [-1] ;PRELOAD AC WITH ALL ONES 4801 032726 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0/1 FLAGS 4802 032727 255 17 0 00 032731 JFCL 17,.+2 ;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET 4803 STOP^ 4804 032730 254 04 0 00 032731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4805 032731 324 00 0 00 032732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4806 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4807 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4808 4809 ;********** 4810 4811 ;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS. 4812 ;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED. 4813 ;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET. IF JFCL DOES NOT JUMP, 4814 ;THE FLAGS WERE CLEARED BY CAI. HENCE, CAI FAILED 4815 4816 032732 200 00 0 00 034404 C4200: MOVE [-1] ;PRELOAD AC WITH -1,,-1 4817 032733 271 00 0 00 000001 ADDI 1 ;SET CYR0/1 FLAGS 4818 032734 300 17 0 00 000017 CAI 17,17 ;*CAI SHOULD NOT CLEAR FLAGS 4819 032735 255 17 0 00 032737 JFCL 17,.+2 ;PASS IF CAI CLEARED FLAGS 4820 STOP^ 4821 032736 254 04 0 00 032737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4822 032737 324 00 0 00 032740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4823 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4824 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4825 4826 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 21 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0113 4827 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND 4828 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. 4829 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN JFCL SHOULD SKIP 4830 ;BECAUSE A FLAG WAS SET BY ADDI 4831 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 4832 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET 4833 4834 032740 200 00 0 00 034404 C4300: MOVE [-1] ;PRELOAD AC WITH ALL ONES 4835 032741 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY1 FLAGS 4836 032742 255 02 0 00 032744 JFCL 2,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET 4837 STOP^ 4838 032743 254 04 0 00 032744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4839 032744 324 00 0 00 032745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4841 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4842 4843 ;********** 4844 4845 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND 4846 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. 4847 ;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1. THEN, JFCL SHOULD SKIP 4848 ;BECAUSE A FLAG WAS SET BY ADDI 4849 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 4850 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET 4851 4852 032745 200 00 0 00 034404 C4400: MOVE [-1] ;PRELOAD AC WITH ALL ONES 4853 032746 271 00 0 00 000001 ADDI 1 ;*ADDI SHOULD SET CRY0 FLAG 4854 032747 255 04 0 00 032751 JFCL 4,.+2 ;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET 4855 STOP^ 4856 032750 254 04 0 00 032751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4857 032751 324 00 0 00 032752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4858 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4859 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4860 4861 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 22 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0114 4862 ;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND 4863 ;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET. 4864 ;BECAUSE A FLAG WAS SET BY ADD 4865 ;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 4866 ;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET 4867 4868 032752 205 00 0 00 400000 C4500: MOVSI 400000 ;PRELOAD AC WITH ALL ONES 4869 032753 270 00 0 00 034403 ADD [XWD 400000,0] ;*ADD SHOULD SET AROV FLAG 4870 032754 255 10 0 00 032756 JFCL 10,.+2 ;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET 4871 STOP^ 4872 032755 254 04 0 00 032756 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4873 032756 324 00 0 00 032757 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4874 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4875 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4876 4877 ;********** 4878 4879 ;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV). 4880 ;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV. THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE 4881 ;WHETHER FOV WAS CLEARED. IF FOV WAS CLEAR, THIS TEST PASSES 4882 4883 032757 255 17 0 00 032760 C4600: JFCL 17,.+1 ;*CLEAR ARITHMETIC FLAGS 4884 032760 255 01 0 00 032762 JFCL 1,.+2 ;PASS IF FOV WAS CLEARED 4885 032761 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED 4886 STOP^ 4887 032762 254 04 0 00 032763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4888 032763 324 00 0 00 032764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4889 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4890 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4891 4892 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 23 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0115 4893 ;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0. 4894 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED 4895 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0. 4896 ;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0. 4897 4898 032764 200 00 0 00 034404 C4700: MOVE [-1] ;RELOAD AC WITH -1,,-1 4899 032765 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 4900 032766 255 13 0 00 032767 JFCL 13,.+1 ;*JFCL 13, SHOULD NOT RESET CRY0 4901 032767 255 04 0 00 032771 JFCL 4,.+2 ;FAIL IF CRY 0 WAS RESET 4902 STOP^ 4903 032770 254 04 0 00 032771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4904 032771 324 00 0 00 032772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4907 4908 ;********** 4909 4910 ;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1. 4911 ;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED 4912 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1. 4913 ;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1. 4914 4915 032772 200 00 0 00 034404 C5000: MOVE [-1] ;PRELOAD AC WITH -1,,-1 4916 032773 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 4917 032774 255 15 0 00 032775 JFCL 15,.+1 ;*JFCL15, SHOULD NOT RESET CRY0 4918 032775 255 02 0 00 032777 JFCL 2,.+2 ;FAIL IF CRY1 WAS RESET 4919 STOP^ 4920 032776 254 04 0 00 032777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4921 032777 324 00 0 00 033000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4922 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4923 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4924 4925 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 24 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0116 4926 ;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV. 4927 ;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED 4928 ;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV. 4929 ;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV. 4930 4931 033000 205 00 0 00 400000 C5100: MOVSI 400000 ;PRELOAD AC WITH -1,,-1 4932 033001 270 00 0 00 034403 ADD [XWD 400000,0] ;SET AROV 4933 033002 255 07 0 00 033003 JFCL 7,.+1 ;*JFCL 17, SHOULD NOT RESET AROV 4934 033003 255 10 0 00 033005 JFCL 10,.+2 ;FAIL IF AROV WAS RESET 4935 STOP^ 4936 033004 254 04 0 00 033005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4937 033005 324 00 0 00 033006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4938 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4939 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4940 4941 ;********** 4942 4943 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV. 4944 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. 4945 ;AROV IS THEN CHECKED. IF AROV IS SET, THIS TEST FAILS. 4946 4947 033006 255 17 0 00 033007 C5200: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS 4948 033007 400 00 0 00 000000 SETZ ;PRELOAD AC,E WITH 0 4949 033010 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET AROV 4950 033011 255 10 0 00 033013 JFCL 10,.+2 ;PASS IF AROV WAS RESET 4951 033012 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED 4952 STOP^ 4953 033013 254 04 0 00 033014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4954 033014 324 00 0 00 033015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4955 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4956 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4957 4958 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 25 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0117 4959 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0. 4960 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. 4961 ;CRY0 IS THEN CHECKED. IF CRY0 IS SET, THIS TEST FAILS. 4962 4963 4964 033015 400 00 0 00 000000 C5300: SETZ ;RESET ARITHMETIC FLAGS 4965 033016 255 17 0 00 033017 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 4966 033017 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY0 4967 033020 255 04 0 00 033022 JFCL 4,.+2 ;PASS IF CRY0 WAS RESET 4968 033021 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED 4969 STOP^ 4970 033022 254 04 0 00 033023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4971 033023 324 00 0 00 033024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4972 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4973 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4974 4975 ;********** 4976 4977 ;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1. 4978 ;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD. 4979 ;CRY1 IS THEN CHECKED. IF CRY1 IS SET, THIS TEST FAILS. 4980 4981 033024 400 00 0 00 000000 C5400: SETZ ;RESET ARITHMETIC FLAGS 4982 033025 255 17 0 00 033026 JFCL 17,.+1 ;PRELOAD AC,E WITH 0 4983 033026 270 00 0 00 000000 ADD ;*ADD SHOULD NOT SET CRY1 4984 033027 255 02 0 00 033031 JFCL 2,.+2 ;PASS IF CRY1 WAS RESET 4985 033030 334 00 0 00 000000 SKIPA ;SKIP HALT IF ADD PASSED 4986 STOP^ 4987 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4988 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4989 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4990 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4991 4992 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 26 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0118 4993 ;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT 4994 ;THE ARITHMETIC FLAGS. FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI 4995 ;AND CAM ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, 4996 ;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS 4997 4998 033033 255 17 0 00 033034 C5500: JFCL 17,.+1 ;CLEAR ALL FLAGS 4999 033034 400 00 0 00 000000 SETZ ;CLEAR AC,0 5000 033035 300 00 0 00 000000 CAI ;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG 5001 033036 310 00 0 00 034404 CAM [-1] ;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG 5002 033037 255 17 0 00 033041 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET 5003 033040 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED 5004 STOP^ 5005 033041 254 04 0 00 033042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5006 033042 324 00 0 00 033043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5007 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5008 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5009 5010 ;********** 5011 5012 ;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT 5013 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0] 5014 ;AND XOR [-1] ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, 5015 ;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS 5016 5017 033043 255 17 0 00 033044 C5600: JFCL 17,.+1 ;CLEAR ALL FLAGS 5018 033044 474 00 0 00 000000 SETO ;CLEAR AC,0 5019 033045 430 00 0 00 034454 XOR [0] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG 5020 033046 430 00 0 00 034404 XOR [-1] ;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG 5021 033047 255 17 0 00 033051 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET 5022 033050 334 00 0 00 000000 SKIPA ;SKIP HALT IF TEST PASSED 5023 STOP^ 5024 033051 254 04 0 00 033052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5025 033052 324 00 0 00 033053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5027 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5028 5029 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 27 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0119 5030 ;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT 5031 ;THE ARITHMETIC FLAGS. FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN 5032 ;AND AOBJP ARE EXECUTED. THE FLAGS ARE THEN CHECKED. IF ANY OF THE FLAGS ARE SET, 5033 ;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS 5034 5035 033053 474 00 0 00 000000 C5700: SETO ;CLEAR ALL FLAGS 5036 033054 255 17 0 00 033055 JFCL 17,.+1 ;CLEAR AC,0 5037 033055 253 00 0 00 033056 AOBJN .+1 ;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC 5038 033056 252 00 0 00 033057 AOBJP .+1 ;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG 5039 033057 255 17 0 00 033061 JFCL 17,.+2 ;FAIL IF ANY FLAG WAS SET 5040 033060 334 00 0 00 000000 SKIPA ;SKIP HALT IF TST PASSED 5041 STOP^ 5042 033061 254 04 0 00 033062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5043 033062 324 00 0 00 033063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5046 5047 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 28 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS SEQ 0120 5048 ;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS. 5049 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED. 5050 ;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. 5051 5052 033063 255 17 0 00 033064 C5701: JFCL 17,.+1 ;CLEAR ALL FLAGS 5053 033064 330 00 0 00 034404 SKIP 0,[-1] ;*SKIP SHOULD NOT SET ANY FLAGS 5054 033065 255 17 0 00 033067 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET 5055 033066 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET 5056 STOP^ 5057 033067 254 04 0 00 033070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5058 033070 324 00 0 00 033071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5059 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5060 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5061 5062 ;********** 5063 5064 ;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS. 5065 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED. 5066 ;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS. 5067 5068 033071 255 17 0 00 033072 C5702: JFCL 17,.+1 ;CLEAR ALL FLAGS 5069 033072 320 00 0 00 034404 JUMP 0,[-1] ;*JUMP SHOULD NOT SET ANY FLAGS 5070 033073 255 17 0 00 033075 JFCL 17,.+2 ;FAIL IF ANY FLAG IS SET 5071 033074 334 00 0 00 000000 SKIPA ;PASS IF NO FLAG IS SET 5072 STOP^ 5073 033075 254 04 0 00 033076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5074 033076 324 00 0 00 033077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5075 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5076 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5077 5078 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 29 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0121 5079 SUBTTL TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS 5080 5081 ;********** 5082 5083 ;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS. 5084 ;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED 5085 ;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY 5086 ;OF THESE FLAGS ARE SET, THIS TEST FAILS 5087 5088 033077 255 17 0 00 033100 C6000: JFCL 17,.+1 ;RESET ALL FLAGS 5089 033100 254 00 0 00 033101 JRST .+1 ;*JRST SHOULD NOT SET ANY FLAGS 5090 033101 255 16 0 00 033103 JFCL 16,.+2 ;PASS IF NO FLAGS ARE SET 5091 033102 334 00 0 00 000000 SKIPA ;SKIP HALT IF JRST PASSES 5092 STOP^ 5093 033103 254 04 0 00 033104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5094 033104 324 00 0 00 033105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5096 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5097 5098 ;********** 5099 5100 ;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS. 5101 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED. 5102 ;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY 5103 ;OF THESE FLAGS ARE SET, THIS TEST FAILS 5104 5105 033105 255 17 0 00 033106 C6100: JFCL 17,.+1 ;RESET ALL FLAGS 5106 033106 200 02 0 00 000002 MOVE 2,2 ;*MOVE SHOULD NOT SET ANY FLAGS 5107 033107 255 17 0 00 033111 JFCL 17,.+2 ;PASS IF NO FLAGS ARE SET 5108 033110 334 00 0 00 000000 SKIPA ;SKIP HALT IF MOVE PASSED 5109 STOP^ 5110 033111 254 04 0 00 033112 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5111 033112 324 00 0 00 033113 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5112 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5113 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5114 5115 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 30 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0122 5116 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5117 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG. 5118 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0. 5119 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0. CRY0 IS THEN CHECKED. IF 5120 ;CRY0 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5121 5122 033113 255 17 0 00 033114 C6200: JFCL 17,.+1 ;CLEAR ALL FLAGS 5123 SFLAG CRY0 ^;SET CRY0 FLAG 5124 5125 033114 205 01 0 00 200000 MOVSI 1,CRY0 5126 033115 255 17 0 00 033116 JFCL 17,.+1 ;RESET ALL FLAGS 5127 033116 254 02 0 01 033117 JRST 2,.+1(1) ;SET CRY0 FLAG 5128 033117 255 04 0 00 033121 JFCL 4,.+2 ;PASS IF CRY0 IS SET 5129 STOP^ 5130 033120 254 04 0 00 033121 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5131 033121 324 00 0 00 033122 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5132 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5133 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5134 5135 ;********** 5136 5137 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG 5138 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) 5139 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI; 5140 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF CRY1 WAS CLEARED, THE 5141 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5142 5143 033122 200 00 0 00 034404 C6300: MOVE [-1] ;PRELOAD AC0 WITH -1,,-1 5144 033123 271 00 0 00 000001 ADDI 1 ;SET CRY0/1 FLAGS 5145 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS 5146 5147 033124 205 01 0 00 000000 MOVSI 1,0 5148 033125 255 17 0 00 033126 JFCL 17,.+1 ;RESET ALL FLAGS 5149 033126 254 02 0 01 033127 JRST 2,.+1(1) ;SET 0 FLAG 5150 033127 255 02 0 00 033131 JFCL 2,.+2 ;PASS IF CRY1 IS RESET 5151 033130 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED 5152 STOP^ 5153 033131 254 04 0 00 033132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5154 033132 324 00 0 00 033133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5155 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5156 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5157 5158 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 31 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0123 5159 5160 ;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG 5161 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAIN 0. HENCE, JRST 2,.+1(1) 5162 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0/1, FLAGS ARE SET BY ADD 5163 ;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. IF AROV WAS CLEARED, THE 5164 ;TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5165 5166 033133 205 00 0 00 400000 C6400: MOVSI 400000 ;PRELOAD AC0 WITH -1,,-1 5167 033134 270 00 0 00 034404 ADD [-1] ;SET CRY0 AND AROV FLAGS 5168 SFLAG 0 ^;RESET ALL ARITHMETIC FLAGS 5169 5170 033135 205 01 0 00 000000 MOVSI 1,0 5171 033136 255 17 0 00 033137 JFCL 17,.+1 ;RESET ALL FLAGS 5172 033137 254 02 0 01 033140 JRST 2,.+1(1) ;SET 0 FLAG 5173 033140 255 10 0 00 033142 JFCL 10,.+2 ;PASS IF AROV IS RESET 5174 033141 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED 5175 STOP^ 5176 033142 254 04 0 00 033143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5177 033143 324 00 0 00 033144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5178 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5179 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5180 5181 ;********** 5182 5183 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5184 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE AROV FLAG. 5185 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV. 5186 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV. AROV IS THEN CHECKED. IF 5187 ;AROV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5188 5189 033144 C6500: SFLAG AROV ^;SET AROV FLAG 5190 5191 033144 205 01 0 00 400000 MOVSI 1,AROV 5192 033145 255 17 0 00 033146 JFCL 17,.+1 ;RESET ALL FLAGS 5193 033146 254 02 0 01 033147 JRST 2,.+1(1) ;SET AROV FLAG 5194 033147 255 10 0 00 033151 JFCL 10,.+2 ;PASS IF AROV WAS SET 5195 STOP^ 5196 033150 254 04 0 00 033151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5197 033151 324 00 0 00 033152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5199 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5200 5201 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 32 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0124 5202 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5203 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG. 5204 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1. 5205 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1. CRY1 IS THEN CHECKED. IF 5206 ;CRY1 IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5207 5208 033152 C6600: SFLAG CRY1 ^;SET CRY1 FLAG 5209 5210 033152 205 01 0 00 100000 MOVSI 1,CRY1 5211 033153 255 17 0 00 033154 JFCL 17,.+1 ;RESET ALL FLAGS 5212 033154 254 02 0 01 033155 JRST 2,.+1(1) ;SET CRY1 FLAG 5213 033155 255 02 0 00 033157 JFCL 2,.+2 ;PASS IF CRY1 WAS SET 5214 STOP^ 5215 033156 254 04 0 00 033157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5216 033157 324 00 0 00 033160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5217 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5218 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5219 5220 ;********** 5221 5222 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5223 ;SPECIFIED IN AC1. IN THIS CASE, AC1 SPECIFIES THE FOV FLAG. 5224 ;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV. 5225 ;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV. FOV IS THEN CHECKED. IF 5226 ;FOV IS SET, THIS TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5227 5228 033160 C6700: SFLAG FOV ^;SET FOV FLAG 5229 5230 033160 205 01 0 00 040000 MOVSI 1,FOV 5231 033161 255 17 0 00 033162 JFCL 17,.+1 ;RESET ALL FLAGS 5232 033162 254 02 0 01 033163 JRST 2,.+1(1) ;SET FOV FLAG 5233 033163 255 01 0 00 033165 JFCL 1,.+2 ;PASS IF FOV WAS SET 5234 STOP^ 5235 033164 254 04 0 00 033165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5236 033165 324 00 0 00 033166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5238 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5239 5240 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 33 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0125 5241 ;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP. 5242 ;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0, 5243 ;IS EXECUTED. IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES 5244 5245 033166 C7000: SFLAG FOV ^;SET FOV FLAG 5246 5247 033166 205 01 0 00 040000 MOVSI 1,FOV 5248 033167 255 17 0 00 033170 JFCL 17,.+1 ;RESET ALL FLAGS 5249 033170 254 02 0 01 033171 JRST 2,.+1(1) ;SET FOV FLAG 5250 033171 255 00 0 00 033173 JFCL ,.+2 ;*JFCL SHOULD NOT JUMP 5251 033172 334 00 0 00 000000 SKIPA ;PASS IF JFCL DID NOT JUMP 5252 STOP^ 5253 033173 254 04 0 00 033174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5254 033174 324 00 0 00 033175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5255 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5256 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5257 5258 ;********** 5259 5260 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5261 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) 5262 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1) 5263 ;WITH C(AC1)=CRY0. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. 5264 ;IF CRY0 WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5265 5266 033175 C7100: SFLAG CRY0 ^;SET CRY0 FLAGS 5267 5268 033175 205 01 0 00 200000 MOVSI 1,CRY0 5269 033176 255 17 0 00 033177 JFCL 17,.+1 ;RESET ALL FLAGS 5270 033177 254 02 0 01 033200 JRST 2,.+1(1) ;SET CRY0 FLAG 5271 033200 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS 5272 033201 254 02 0 01 033202 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS 5273 033202 255 04 0 00 033204 JFCL 4,.+2 ;PASS IF CRY0 FLAG WAS RESET 5274 033203 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED 5275 STOP^ 5276 033204 254 04 0 00 033205 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5277 033205 324 00 0 00 033206 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5278 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5279 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5280 5281 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 34 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS SEQ 0126 5282 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5283 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) 5284 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1) 5285 ;WITH C(AC1)=FOV. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0. 5286 ;IF FOV WAS CLEARED, THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5287 5288 033206 C7200: SFLAG FOV ^;SET FOV FLAG 5289 5290 033206 205 01 0 00 040000 MOVSI 1,FOV 5291 033207 255 17 0 00 033210 JFCL 17,.+1 ;RESET ALL FLAGS 5292 033210 254 02 0 01 033211 JRST 2,.+1(1) ;SET FOV FLAG 5293 033211 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITHMETIC FLAGS, 5294 033212 254 02 0 01 033213 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS 5295 033213 255 01 0 00 033215 JFCL 1,.+2 ;PASS IF FOV FLAG WAS RESET 5296 033214 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PSSED 5297 STOP^ 5298 033215 254 04 0 00 033216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5299 033216 324 00 0 00 033217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5300 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5301 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5302 5303 ;********** 5304 5305 ;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG 5306 ;SPECIFIED IN AC1. IN THIS CASE, AC1 CONTAINS 0. HENCE, JRST 2,.+1(1) 5307 ;SHOULD RESET THE ARITHMETIC FLAGS. FIRST, THE ARITHMETIC FLAGS ARE RESET BY 5308 ;JFCL 17,.+1. THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1. 5309 ;IF ALL THE ARITHMETIC FLAGS WERE CLEARED, 5310 ;THE TEST PASSES. OTHERWISE, JRST 2,.+1 IS FAULTY 5311 5312 033217 255 17 0 00 033220 C7300: JFCL 17,.+1 ;CLEAR FLAGS 5313 033220 400 01 0 00 000000 SETZ 1, ;SETUP MASK TO CLEAR ARITMETIC FLAGS 5314 033221 254 02 0 01 033222 JRST 2,.+1(1) ;*RESET ARITHMETIC FLAGS 5315 033222 255 17 0 00 033224 JFCL 17,.+2 ;PASS IF ALL FLAGS ARE RESET 5316 033223 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF TEST PASSED 5317 STOP^ 5318 033224 254 04 0 00 033225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5319 033225 324 00 0 00 033226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5320 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5321 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5322 5323 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 35 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JSP INSTRUCTION SEQ 0127 5324 SUBTTL TEST OF JSP INSTRUCTION 5325 5326 ;********** 5327 5328 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC. 5329 ;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED. THE AC IS THEN 5330 ;CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC)=0, IT INDICATES 5331 ;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED. HENCE, THIS TEST FAILS. 5332 5333 033226 403 00 0 00 000001 C7400: SETZB 1 ;CLEAR AC AND SETUP MASK TO RESET FLAGS 5334 033227 254 02 0 01 033230 JRST 2,.+1(1) ;RESET FLAGS 5335 033230 265 00 0 00 033231 JSP .+1 ;*JSP SHOULD STORE FLAGS AND PC IN THE AC 5336 033231 336 00 0 00 000000 SKIPN ;PASS IF C(AC) IS NON-ZERO 5337 STOP ^;IT DID NOT STORE ANY FLAGS OR PC 5338 5339 033232 254 04 0 00 033233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5340 033233 324 00 0 00 033234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5341 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5342 ;IN THE SUBTEST) TO LOOP ON ERROR 5343 5344 ;********** 5345 5346 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC. 5347 ;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED. THE RIGHT HALF OF 5348 ;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO. IF C(AC RIGHT HALF) 5349 ;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES. 5350 5351 033234 400 00 0 00 000000 C7500: SETZ ;CLEAN AC 5352 033235 265 00 0 00 033236 JSP .+1 ;*JSP SHOULD STORE THE PC IN THE AC 5353 033236 606 00 0 00 777777 TRNN -1 ;PASS IF C(AC) IN NON-ZERO 5354 STOP^ 5355 033237 254 04 0 00 033240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5356 033240 324 00 0 00 033241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5358 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5359 5360 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 36 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JSP INSTRUCTION SEQ 0128 5361 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. 5362 ;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED. 5363 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE 5364 ;WHETHER THE FLAGS WERE SAVED. IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES 5365 5366 033241 402 00 0 00 000000 C7600: SETZM 0 ;CLEAR AC 5367 033242 205 01 0 00 740000 MOVSI 1,740000 ;SET UP MASK TO SET FLAGS 5368 033243 254 02 0 01 033244 JRST 2,.+1(1) ;SET SOME ARITHMETIC FLAGS 5369 033244 265 00 0 00 033245 JSP .+1 ;*JSP SHOULD STORE FLAGS IN THE AC 5370 033245 607 00 0 00 777777 TLNN -1 ;PASS IF C(AC) IS NON-ZERO 5371 STOP^ 5372 033246 254 04 0 00 033247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5373 033247 324 00 0 00 033250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5374 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5375 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5376 5377 ;********** 5378 5379 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. 5380 ;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED. 5381 ;THEN, THE AROV FLAG BIT OF 5382 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE 5383 ;WHETHER THE AROV FLAG WAS SAVED. IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES 5384 5385 033250 402 00 0 00 000000 C7700: SETZM 0 ;CLEAR THE AC 5386 SFLAG AROV ^;SET AROV FLAG 5387 5388 033251 205 01 0 00 400000 MOVSI 1,AROV 5389 033252 255 17 0 00 033253 JFCL 17,.+1 ;RESET ALL FLAGS 5390 033253 254 02 0 01 033254 JRST 2,.+1(1) ;SET AROV FLAG 5391 033254 265 00 0 00 033255 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT 5392 033255 607 00 0 00 400000 TLNN AROV ;PASS IF AROV WAS SAVED 5393 STOP^ 5394 033256 254 04 0 00 033257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5395 033257 324 00 0 00 033260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5396 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5397 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5398 5399 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 37 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JSP INSTRUCTION SEQ 0129 5400 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. 5401 ;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED. 5402 ;THEN, THE CRY0 FLAG BIT OF 5403 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE 5404 ;WHETHER THE CRY0 FLAG WAS SAVED. IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES 5405 5406 033260 402 00 0 00 000000 C10000: SETZM 0 ;CLEAR THE AC 5407 SFLAG CRY0 ^;SET CRY0 FLAG 5408 5409 033261 205 01 0 00 200000 MOVSI 1,CRY0 5410 033262 255 17 0 00 033263 JFCL 17,.+1 ;RESET ALL FLAGS 5411 033263 254 02 0 01 033264 JRST 2,.+1(1) ;SET CRY0 FLAG 5412 033264 265 00 0 00 033265 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT 5413 033265 607 00 0 00 200000 TLNN CRY0 ;PASS IF CRY0 WAS SAVED 5414 STOP^ 5415 033266 254 04 0 00 033267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5416 033267 324 00 0 00 033270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5417 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5418 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5419 5420 ;********** 5421 5422 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. 5423 ;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED. 5424 ;THEN, THE CRY1 FLAG BIT OF 5425 ;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE 5426 ;WHETHER THE FLAG WAS SAVED. IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES 5427 5428 033270 400 00 0 00 000000 C10100: SETZ ;CLEAR AC 5429 SFLAG CRY1 ^;SET CRY1 FLAG 5430 5431 033271 205 01 0 00 100000 MOVSI 1,CRY1 5432 033272 255 17 0 00 033273 JFCL 17,.+1 ;RESET ALL FLAGS 5433 033273 254 02 0 01 033274 JRST 2,.+1(1) ;SET CRY1 FLAG 5434 033274 265 00 0 00 033275 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT 5435 033275 607 00 0 00 100000 TLNN CRY1 ;PASS IF AROV WAS SAVED 5436 STOP^ 5437 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5438 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5439 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5440 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5441 5442 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 38 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JSP INSTRUCTION SEQ 0130 5443 ;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC. 5444 ;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED. 5445 ;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR 5446 ;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED. 5447 ;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES 5448 5449 033300 400 00 0 00 000000 C10200: SETZ ;CLEAR THE AC 5450 SFLAG FOV ^;SET FOV FLAG 5451 5452 033301 205 01 0 00 040000 MOVSI 1,FOV 5453 033302 255 17 0 00 033303 JFCL 17,.+1 ;RESET ALL FLAGS 5454 033303 254 02 0 01 033304 JRST 2,.+1(1) ;SET FOV FLAG 5455 033304 265 00 0 00 033305 JSP .+1 ;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT 5456 033305 607 00 0 00 040000 TLNN FOV ;PASS IF FOV WAS SAVED 5457 STOP^ 5458 033306 254 04 0 00 033307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5459 033307 324 00 0 00 033310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5460 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5461 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5462 5463 ;********** 5464 5465 ;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST. 5466 ;I.E. RESET FLAGS WILL NOT BE SET IN THE AC. ONLY FLAGS THAT ARE 5467 ;CLEARABLE BY JRSTF WILL BE CHECKED HERE. FIRST ALL CLEARABLE 5468 ;FLAGS ARE RESET BY JRSTF; THEN JSP IS EXECUTED. THE AC IS THEN CHECKED. 5469 ;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS. 5470 5471 033310 C10300: SFLAG 0 ^;CLEAR ALL CLEARABLE FLAGS 5472 5473 033310 205 01 0 00 000000 MOVSI 1,0 5474 033311 255 17 0 00 033312 JFCL 17,.+1 ;RESET ALL FLAGS 5475 033312 254 02 0 01 033313 JRST 2,.+1(1) ;SET 0 FLAG 5476 033313 265 00 0 00 033314 JSP .+1 ;*JSP SHOULD NOT STORE CLEARABLE FALGS 5477 033314 603 00 0 00 761777 TLNE 761777 ;FAIL IF ANY CLEARABLE FLAG IS SET 5478 STOP^ 5479 033315 254 04 0 00 033316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5480 033316 324 00 0 00 033317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5481 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5482 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5483 5484 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 39 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JSP INSTRUCTION SEQ 0131 5485 ;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS. 5486 ;IN THIS TEST, JSP .+2 IS EXECUTED. IF JSP JUMPS, THE TEST PASSES; 5487 ;OTHERWISE, THIS TEST HALTS 5488 5489 033317 265 00 0 00 033321 C10400: JSP .+2 ;*JSP SHOULD ALWAYS JUMP 5490 STOP^ 5491 033320 254 04 0 00 033321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5492 033321 324 00 0 00 033322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5493 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5494 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5495 5496 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 40 DSKAD1 MAC 28-Mar-78 13:50 TEST JRST INSTRUCTION SEQ 0132 5497 SUBTTL TEST JRST INSTRUCTION 5498 5499 ;********** 5500 5501 ;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS. 5502 ;IN THIS TEST, JRST .+2 IS EXECUTED. IF JRST JUMPS, THE TEST PASSES; 5503 ;OTHERWISE, THIS TEST HALTS 5504 5505 033322 254 00 0 00 033324 C10500: JRST .+2 ;*JRST 0, SHOULD ALWAYS JUMP 5506 STOP^ 5507 033323 254 04 0 00 033324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5508 033324 324 00 0 00 033325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5509 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5510 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5511 5512 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 41 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOBJX INSTRUCTIONS SEQ 0133 5513 SUBTTL TEST OF AOBJX INSTRUCTIONS 5514 5515 ;********** 5516 5517 ;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. 5518 ;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED 5519 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. 5520 5521 033325 400 00 0 00 000000 C11200: SETZ ;CLEAR THE AC 5522 033326 253 00 0 00 033327 AOBJN .+1 ;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC 5523 033327 312 00 0 00 034456 CAME [XWD 1,1] ;PASS IF C(AC)=1,,1 5524 STOP^ 5525 033330 254 04 0 00 033331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5526 033331 324 00 0 00 033332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5528 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5529 5530 ;********** 5531 5532 ;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC. 5533 ;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED 5534 ;FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. 5535 5536 033332 200 00 0 00 034457 C11300: MOVE [XWD 377777,377777] ;PRELOAD AC WITH 377777,,377777 5537 033333 252 00 0 00 033334 AOBJP .+1 ;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC 5538 033334 312 00 0 00 034460 CAME [XWD 400000,400000] ;PASS IF C(AC)=400000,400000 5539 STOP^ 5540 033335 254 04 0 00 033336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5541 033336 324 00 0 00 033337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5542 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5543 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5544 5545 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 42 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOBJX INSTRUCTIONS SEQ 0134 5546 ;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE 5547 ;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED. AOBJN SHOULD NOT JUMP 5548 ;BECAUSE C(AC) IS POSITIVE. IF AOBJN JUMPS, THIS TEST FAILS 5549 5550 033337 400 00 0 00 000000 C11400: SETZ ;CLEAR THE AC 5551 033340 253 00 0 00 033342 AOBJN .+2 ;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE 5552 033341 334 00 0 00 000000 SKIPA ;PASS IF AOBJN DOES NOT JUMP 5553 STOP^ 5554 033342 254 04 0 00 033343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5555 033343 324 00 0 00 033344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5556 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5557 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5558 5559 ;********** 5560 5561 ;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE 5562 ;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED. AOBJP SHOULD JUMP 5563 ;BECAUSE C(AC) IS POSITIVE. IF AOBJP DOES NOT JUMP, THIS TEST FAILS 5564 5565 033344 400 00 0 00 000000 C11500: SETZ ;CLEAR THE AC 5566 033345 252 00 0 00 033347 AOBJP .+2 ;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE 5567 STOP^ 5568 033346 254 04 0 00 033347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5569 033347 324 00 0 00 033350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5570 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5571 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5572 5573 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 43 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOBJX INSTRUCTIONS SEQ 0135 5574 ;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE 5575 ;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED. AOBJN SHOULD JUMP 5576 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJN DOES NOT JUMP, THIS TEST FAILS 5577 5578 033350 200 00 0 00 034460 C11600: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 5579 033351 253 00 0 00 033353 AOBJN .+2 ;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE 5580 STOP^ 5581 033352 254 04 0 00 033353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5582 033353 324 00 0 00 033354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5583 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5584 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5585 5586 ;********** 5587 5588 ;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE. FIRST, 5589 ;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED. AOBJP SHOULD NOT JUMP 5590 ;BECAUSE C(AC) IS NEGATIVE. IF AOBJP JUMPS, THIS TEST FAILS 5591 5592 033354 200 00 0 00 034460 C11700: MOVE [XWD 400000,400000] ;PRELOAD AC WITH 400000,,400000 5593 033355 252 00 0 00 033357 AOBJP .+2 ;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE 5594 033356 334 00 0 00 000000 SKIPA ;PASS IF AOBJP DOES NOT JUMP 5595 STOP^ 5596 033357 254 04 0 00 033360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5597 033360 324 00 0 00 033361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5598 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5599 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5600 5601 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 44 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOBJX INSTRUCTIONS SEQ 0136 5602 ;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN. 5603 ;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE 5604 ;TO BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO 5605 ;CARRY WAS GENERATED, THIS TEST PASSES 5606 5607 033361 474 00 0 00 000000 C12000: SETO ;PRELOAD AC WITH -1,, -1 5608 033362 253 00 0 00 033363 AOBJN .+1 ;*AOBJN SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17 5609 033363 332 00 0 00 000000 SKIPE ;PASS IF C(AC)=0 (NO CARRY WAS GENERATED) 5610 STOP^ 5611 033364 254 04 0 00 033365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5612 033365 324 00 0 00 033366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5613 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5614 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5615 5616 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 45 DSKAD1 MAC 28-Mar-78 13:50 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0137 5617 SUBTTL TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX 5618 5619 ;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0. 5620 ;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS. 5621 ;THE ARITHMETIC FLAGS ARE CHECKED. 5622 ; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES. 5623 5624 033366 255 17 0 00 033367 C12100: JFCL 17,.+1 ;CLEAR FLAGS 5625 033367 211 00 0 00 000000 MOVNI 0 ;* MOVNI 0 SHOULD SET CRY0/1 5626 033370 255 04 0 00 033372 JCRY0 .+2 ;PASS IF CRY0 IS SET 5627 STOP^ 5628 033371 254 04 0 00 033372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5629 033372 324 00 0 00 033373 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5630 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5631 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5632 033373 255 02 0 00 033375 JCRY1 .+2 ;PASS IF CRY1 IS SET 5633 STOP^ 5634 033374 254 04 0 00 033375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5635 033375 324 00 0 00 033376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5637 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5638 033376 255 10 0 00 033400 JOV .+2 ;PASS IF AROV RESET 5639 033377 334 00 0 00 000000 SKIPA 5640 STOP^ 5641 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5642 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5643 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5644 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5645 033402 255 01 0 00 033404 JFOV .+2 ;PASS IF FOV RESET 5646 033403 334 00 0 00 000000 SKIPA 5647 STOP^ 5648 033404 254 04 0 00 033405 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5649 033405 324 00 0 00 033406 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5650 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5651 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5652 5653 ;********** 5654 5655 ;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1. 5656 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED. 5657 ;THE ARITHMETIC FLAGS ARE CHECKED. 5658 ;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS. 5659 5660 033406 255 17 0 00 033407 C12200: JFCL 17,.+1 ;CLEAR FLAGS 5661 033407 210 00 0 00 034404 MOVN [-1] ;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS 5662 033410 255 17 0 00 033412 JFCL 17,.+2 ;FAIL IF AN ARITHMETIC FLAG IS SET 5663 033411 334 00 0 00 000000 SKIPA ;SKIP HALT INSTRUCTION IF MOVN PASSED. 5664 STOP^ 5665 033412 254 04 0 00 033413 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5666 033413 324 00 0 00 033414 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5667 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5668 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5669 5670 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 46 DSKAD1 MAC 28-Mar-78 13:50 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0138 5671 ;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND 5672 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 5673 ;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED. 5674 ;THE ARITHMETIC FLAGS ARE CHECKED. 5675 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. 5676 5677 033414 255 17 0 00 033415 C12300: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS 5678 033415 210 00 0 00 034403 MOVN [XWD 400000,0] ;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY 5679 033416 255 10 0 00 033420 JOV .+2 ;PASS IF AROV IS SET 5680 STOP^ 5681 033417 254 04 0 00 033420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5682 033420 324 00 0 00 033421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5683 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5684 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5685 033421 255 02 0 00 033423 JCRY1 .+2 ;PASS IF CRY0 IS SET 5686 STOP^ 5687 033422 254 04 0 00 033423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5688 033423 324 00 0 00 033424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5690 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5691 033424 255 04 0 00 033426 JCRY0 .+2 ;PASS IF CRY0 IS RESET 5692 033425 334 00 0 00 000000 SKIPA 5693 STOP^ 5694 033426 254 04 0 00 033427 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5695 033427 324 00 0 00 033430 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5698 033430 255 01 0 00 033432 JFOV .+2 ;PASS IF FOV IS RESET 5699 033431 334 00 0 00 000000 SKIPA 5700 STOP^ 5701 033432 254 04 0 00 033433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5702 033433 324 00 0 00 033434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5703 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5704 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5705 5706 ;********** 5707 5708 ;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND 5709 ;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0 5710 ;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED. 5711 ;THE ARITHMETIC FLAGS ARE CHECKED. 5712 ;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES. 5713 5714 033434 255 17 0 00 033435 C12301: JFCL 17,.+1 ;CLEAR ARITHMETIC FLAGS 5715 033435 214 00 0 00 034403 MOVM [XWD 400000,0] ;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY 5716 033436 255 10 0 00 033440 JOV .+2 ;PASS IF AROV IS SET 5717 STOP^ 5718 033437 254 04 0 00 033440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5719 033440 324 00 0 00 033441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5721 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5722 033441 255 02 0 00 033443 JCRY1 .+2 ;PASS IF CRY0 IS SET 5723 STOP^ 5724 033442 254 04 0 00 033443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5725 033443 324 00 0 00 033444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 46-1 DSKAD1 MAC 28-Mar-78 13:50 TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX SEQ 0139 5726 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5727 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5728 033444 255 04 0 00 033446 JCRY0 .+2 ;PASS IF CRY0 IS RESET 5729 033445 334 00 0 00 000000 SKIPA 5730 STOP^ 5731 033446 254 04 0 00 033447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5732 033447 324 00 0 00 033450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5733 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5734 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5735 033450 255 01 0 00 033452 JFOV .+2 ;PASS IF FOV IS RESET 5736 033451 334 00 0 00 000000 SKIPA 5737 STOP^ 5738 033452 254 04 0 00 033453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5739 033453 324 00 0 00 033454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5740 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5741 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5742 5743 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 47 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0140 5744 SUBTTL TEST OF AOS AND SOS INSTRUCTIONS 5745 5746 ;********** 5747 5748 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. 5749 ;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1. 5750 ;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS 5751 5752 033454 400 00 0 00 000000 C12600: SETZ ;CLEAR E 5753 033455 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP 5754 033456 302 00 0 00 000001 CAIE 1 ;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP 5755 STOP^ 5756 033457 254 04 0 00 033460 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5757 033460 324 00 0 00 033461 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5758 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5759 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5760 5761 ;********** 5762 5763 ;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP. 5764 ;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0. 5765 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS 5766 5767 033461 474 00 0 00 000000 C12700: SETO ;PRELOAD E WITH -1,,-1 5768 033462 350 00 0 00 000000 AOS ;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP 5769 033463 302 00 0 00 000000 CAIE ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP 5770 STOP^ 5771 033464 254 04 0 00 033465 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5772 033465 324 00 0 00 033466 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5773 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5774 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5775 5776 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 48 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0141 5777 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. 5778 ;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1. 5779 ;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS 5780 5781 033466 400 00 0 00 000000 C13100: SETZ ;CLEAR E 5782 033467 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP 5783 033470 312 00 0 00 034404 CAME [-1] ;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP 5784 STOP^ 5785 033471 254 04 0 00 033472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5786 033472 324 00 0 00 033473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5787 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5788 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5789 5790 ;********** 5791 5792 ;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP. 5793 ;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0. 5794 ;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS 5795 5796 033473 201 00 0 00 000001 C13200: MOVEI 1 ;PRELOAD E WITH 1 5797 033474 370 00 0 00 000000 SOS ;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP 5798 033475 302 00 0 00 000000 CAIE 0 ;PASS IF C(E)=0 AND SOS DID NOT SKIP 5799 STOP^ 5800 033476 254 04 0 00 033477 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5801 033477 324 00 0 00 033500 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5802 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5803 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5804 5805 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 49 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0142 5806 ;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER 5807 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN 5808 ;SOS IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET 5809 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. 5810 5811 033500 255 17 0 00 033501 C13300: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS 5812 033501 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 5813 033502 370 00 0 00 000000 SOS ;*SOS SHOULD SET CRY0/1 5814 033503 255 04 0 00 033505 JCRY0 .+2 ;PASS IF CRY0 IS SET 5815 STOP^ 5816 033504 254 04 0 00 033505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5817 033505 324 00 0 00 033506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5818 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5819 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5820 033506 255 02 0 00 033510 JCRY1 .+2 ;PASS IF CRY1 IS SET 5821 STOP^ 5822 033507 254 04 0 00 033510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5823 033510 324 00 0 00 033511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5824 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5825 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5826 033511 255 10 0 00 033513 JOV .+2 ;PASS IF AROV IS RESET 5827 033512 334 00 0 00 000000 SKIPA 5828 STOP^ 5829 033513 254 04 0 00 033514 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5830 033514 324 00 0 00 033515 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5831 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5832 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5833 033515 255 01 0 00 033517 JFOV .+2 ;PASS IF FOV IS RESET 5834 033516 334 00 0 00 000000 SKIPA 5835 STOP^ 5836 033517 254 04 0 00 033520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5837 033520 324 00 0 00 033521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5838 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5839 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5840 5841 ;********** 5842 5843 ;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 5844 ;FIRST THE FLAGS ARE RESET; THEN 5845 ;AOS IS EXECUTED. THE FLAGS ARE CHECKED. 5846 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. 5847 5848 033521 255 17 0 00 033522 C13400: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS 5849 033522 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 5850 033523 350 00 0 00 000000 AOS ;*AOS SHOULD SET CRY0 AND CRY1 5851 033524 255 04 0 00 033526 JCRY0 .+2 ;PASS IF CRY0 IS SET 5852 STOP^ 5853 033525 254 04 0 00 033526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5854 033526 324 00 0 00 033527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5855 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5856 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5857 033527 255 02 0 00 033531 JCRY1 .+2 ;PASS IF CRY1 IS SET 5858 STOP^ 5859 033530 254 04 0 00 033531 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5860 033531 324 00 0 00 033532 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 49-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOS AND SOS INSTRUCTIONS SEQ 0143 5861 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5862 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5863 033532 255 10 0 00 033534 JOV .+2 ;PASS IF AROV IS RESET 5864 033533 334 00 0 00 000000 SKIPA 5865 STOP^ 5866 033534 254 04 0 00 033535 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5867 033535 324 00 0 00 033536 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5868 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5869 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5870 033536 255 01 0 00 033540 JFOV .+2 ;PASS IF FOV IS RESET 5871 033537 334 00 0 00 000000 SKIPA 5872 STOP^ 5873 033540 254 04 0 00 033541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5874 033541 324 00 0 00 033542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5875 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5876 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5877 5878 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 50 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0144 5879 SUBTTL TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS 5880 5881 ;********** 5882 5883 ;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG. 5884 ;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV. 5885 ;IF FOV WAS CLEARED, THIS TEST PASSES. 5886 5887 033542 C13600: SFLAG FOV ^;SET FOV FLAG 5888 5889 033542 205 01 0 00 040000 MOVSI 1,FOV 5890 033543 255 17 0 00 033544 JFCL 17,.+1 ;RESET ALL FLAGS 5891 033544 254 02 0 01 033545 JRST 2,.+1(1) ;SET FOV FLAG 5892 033545 255 01 0 00 033546 JFCL 1,.+1 ;*JFCL SHOULD RESET FOV 5893 033546 255 01 0 00 033550 JFCL 1,.+2 ;PASS IF FOV IS RESET 5894 033547 334 00 0 00 000000 SKIPA ;SKIP HALT IF JFCL 1,.+1 PASSED 5895 STOP^ 5896 033550 254 04 0 00 033551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5897 033551 324 00 0 00 033552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5898 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5899 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5900 5901 ;********** 5902 5903 ;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC. 5904 ;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED 5905 ;FOR FXU. IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED. 5906 5907 033552 C13700: SFLAG FXU ^;*SET FXU FLAG 5908 5909 033552 205 01 0 00 000100 MOVSI 1,FXU 5910 033553 255 17 0 00 033554 JFCL 17,.+1 ;RESET ALL FLAGS 5911 033554 254 02 0 01 033555 JRST 2,.+1(1) ;SET FXU FLAG 5912 033555 265 00 0 00 033556 JSP .+1 ;*STORE FXU FLAG IN AC 5913 033556 607 00 0 00 000100 TLNN FXU ;PASS IF FXU IS SET IN THE AC 5914 STOP^ 5915 033557 254 04 0 00 033560 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5916 033560 324 00 0 00 033561 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5918 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5919 5920 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 51 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0145 5921 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC. 5922 ;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,. NEXT, JSP IS EXECUTED; AND 5923 ;THE AC IS CHECKED FOR FXU RESET. IF FXU IS RESET IN THE AC, THIS TEST PASSES; 5924 ;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY. 5925 5926 033561 C14000: SFLAG FXU ^;SET FXU FLAG 5927 5928 033561 205 01 0 00 000100 MOVSI 1,FXU 5929 033562 255 17 0 00 033563 JFCL 17,.+1 ;RESET ALL FLAGS 5930 033563 254 02 0 01 033564 JRST 2,.+1(1) ;SET FXU FLAG 5931 SFLAG ^;*RESET FXU FLAG 5932 5933 033564 205 01 0 00 000000 MOVSI 1, 5934 033565 255 17 0 00 033566 JFCL 17,.+1 ;RESET ALL FLAGS 5935 033566 254 02 0 01 033567 JRST 2,.+1(1) ;SET FLAG 5936 033567 265 00 0 00 033570 JSP .+1 ;*STORE FXU FLAG IN THE AC 5937 033570 603 00 0 00 000100 TLNE FXU ;PASS IF FXU IS RESET IN THE AC 5938 STOP^ 5939 033571 254 04 0 00 033572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5940 033572 324 00 0 00 033573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5941 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5942 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5943 5944 ;********** 5945 5946 ;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC. 5947 ;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED. THE AC IS CHECKED 5948 ;FOR DCK. IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED. 5949 5950 033573 C14100: SFLAG DCK ^;*SET DCK FLAG 5951 5952 033573 205 01 0 00 000040 MOVSI 1,DCK 5953 033574 255 17 0 00 033575 JFCL 17,.+1 ;RESET ALL FLAGS 5954 033575 254 02 0 01 033576 JRST 2,.+1(1) ;SET DCK FLAG 5955 033576 265 00 0 00 033577 JSP .+1 ;*STORE FXU FLAG IN AC 5956 033577 607 00 0 00 000040 TLNN DCK ;PASS IF FXU IS SET IN THE AC 5957 STOP^ 5958 033600 254 04 0 00 033601 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5959 033601 324 00 0 00 033602 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5960 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5961 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5962 5963 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 52 DSKAD1 MAC 28-Mar-78 13:50 TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS SEQ 0146 5964 ;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC. 5965 ;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,. NEXT, JSP IS EXPECTED; AND 5966 ;THE AC IS CHECKED FOR DCK RESET. IF DCK IS RESET IN THE AC, THIS TEST PASSES; 5967 ;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY. 5968 5969 033602 C14200: SFLAG DCK ^;SET DCK FLAG 5970 5971 033602 205 01 0 00 000040 MOVSI 1,DCK 5972 033603 255 17 0 00 033604 JFCL 17,.+1 ;RESET ALL FLAGS 5973 033604 254 02 0 01 033605 JRST 2,.+1(1) ;SET DCK FLAG 5974 SFLAG ^;*RESET DCK FLAG 5975 5976 033605 205 01 0 00 000000 MOVSI 1, 5977 033606 255 17 0 00 033607 JFCL 17,.+1 ;RESET ALL FLAGS 5978 033607 254 02 0 01 033610 JRST 2,.+1(1) ;SET FLAG 5979 033610 265 00 0 00 033611 JSP .+1 ;*STORE DCK FLAG IN THE AC 5980 033611 603 00 0 00 000040 TLNE DCK ;PASS IF DCK IS RESET IN THE AC 5981 STOP^ 5982 033612 254 04 0 00 033613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5983 033613 324 00 0 00 033614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5984 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5985 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5986 5987 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 53 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JUMPX INSTRUCTIONS SEQ 0147 5988 SUBTTL TEST OF JUMPX INSTRUCTIONS 5989 5990 ;********** 5991 5992 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 5993 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS -1,,-1. HENCE, 5994 ;JUMPL SHOULD JUMP. IF JUMPL JUMPS, THIS TEST PASSES. 5995 5996 033614 474 00 0 00 000000 C14500: SETO ;PRELOAD AC WITH -1,,-1 5997 033615 321 00 0 00 033617 JUMPL .+2 ;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE 5998 STOP^ 5999 033616 254 04 0 00 033617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6000 033617 324 00 0 00 033620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6003 6004 ;********** 6005 6006 ;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6007 ;C(AC) IS NEGATIVE. IN THIS TEST, THE AC CONTAINS 0. HENCE, 6008 ;JUMPL SHOULD NOT JUMP. IF JUMPL DOES NOT JUMP, THIS TEST PASSES. 6009 6010 033620 400 00 0 00 000000 C14600: SETZ ;PRELOAD AC WITH 0 6011 033621 321 00 0 00 033623 JUMPL .+2 ;*JUMPL SHOULD NOT JUMP 6012 033622 334 00 0 00 000000 SKIPA ;PASS IF JUMPL DOES NOT JUMP 6013 STOP^ 6014 033623 254 04 0 00 033624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6015 033624 324 00 0 00 033625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6018 6019 ;********** 6020 6021 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6022 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 0. HENCE, 6023 ;JUMPE SHOULD JUMP. IF JUMPE JUMPS, THIS TEST PASSES. 6024 6025 033625 400 00 0 00 000000 C14700: SETZ ;PRELOAD AC WITH 0 6026 033626 322 00 0 00 033630 JUMPE .+2 ;*JUMPE SHOULD JUMP 6027 STOP^ 6028 033627 254 04 0 00 033630 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6029 033630 324 00 0 00 033631 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6031 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6032 6033 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 54 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JUMPX INSTRUCTIONS SEQ 0148 6034 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6035 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 1. HENCE, 6036 ;JUMPN SHOULD JUMP. IF JUMPN JUMPS, THIS TEST PASSES. 6037 6038 033631 201 00 0 00 000001 C15000: MOVEI 1 ;PRELOAD AC WITH 1 6039 033632 326 00 0 00 033634 JUMPN .+2 ;*JUMPN SHOULD JUMP 6040 STOP^ 6041 033633 254 04 0 00 033634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6042 033634 324 00 0 00 033635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6045 6046 ;********** 6047 6048 ;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6049 ;C(AC)=0. IN THIS TEST, THE AC CONTAINS 2. HENCE, 6050 ;JUMPL SHOULD NOT JUMP. IF JUMPE DOES NOT JUMP, THIS TEST PASSES. 6051 6052 033635 201 00 0 00 000002 C15100: MOVEI 2 ;PRELOAD AC WITH 2 6053 033636 322 00 0 00 033640 JUMPE .+2 ;*JUMPE SHOULD NOT JUMP 6054 033637 334 00 0 00 000000 SKIPA ;PASS IF JUMPE DID NOT JUMP 6055 STOP^ 6056 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6057 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6058 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6059 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6060 6061 ;********** 6062 6063 ;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6064 ;C(AC) IS NON-ZERO. IN THIS TEST, THE AC CONTAINS 0. HENCE, 6065 ;JUMPN SHOULD NOT JUMP. IF JUMPN DOES NOT JUMP, THIS TEST PASSES. 6066 6067 033642 400 00 0 00 000000 C15200: SETZ ;PRELOAD AC WITH 0 6068 033643 326 00 0 00 033645 JUMPN .+2 ;*JUMPN SHOULD NOT JUMP 6069 033644 334 00 0 00 000000 SKIPA ;PASS IF JUMPN DID NOT JUMP 6070 STOP^ 6071 033645 254 04 0 00 033646 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6072 033646 324 00 0 00 033647 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6073 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6074 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6075 6076 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 55 DSKAD1 MAC 28-Mar-78 13:50 TEST OF JUMPX INSTRUCTIONS SEQ 0149 6077 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6078 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS 1. HENCE, 6079 ;JUMPG SHOULD JUMP. IF JUMPG JUMPS, THIS TEST PASSES. 6080 6081 033647 201 00 0 00 000001 C15300: MOVEI 1 ;PRELOAD AC WITH 1 6082 033650 327 00 0 00 033652 JUMPG .+2 ;*JUMPG SHOULD JUMP 6083 STOP^ 6084 033651 254 04 0 00 033652 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6085 033652 324 00 0 00 033653 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6086 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6087 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6088 6089 ;********** 6090 6091 ;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT. IT WILL JUMP IF AND ONLY IF 6092 ;C(AC) IS GREATER THAN 0. IN THIS TEST, THE AC CONTAINS -1,,0. HENCE, 6093 ;JUMPG SHOULD NOT JUMP. IF JUMPG DOES NOT JUMP, THIS TEST PASSES. 6094 6095 033653 205 00 0 00 777777 C15400: MOVSI -1 ;PRELOAD AC WITH -1,,0 6096 033654 327 00 0 00 033656 JUMPG .+2 ;*JUMPG SHOULD NOT JUMP 6097 033655 334 00 0 00 000000 SKIPA ;PASS IF JUMPG DID NOT JUMP 6098 STOP^ 6099 033656 254 04 0 00 033657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6100 033657 324 00 0 00 033660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6101 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6102 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6103 6104 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 56 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0150 6105 SUBTTL TEST OF AOJ AND SOJ INSTRUCTIONS 6106 6107 ;********** 6108 6109 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. 6110 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED. NEXT, THE 6111 ;AC IS CHECKED FOR 1. IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS. 6112 6113 033660 400 00 0 00 000000 C15500: SETZ ;PRELOAD AC WITH 0 6114 033661 340 00 0 00 033663 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP 6115 033662 302 00 0 00 000001 CAIE 1 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP 6116 STOP^ 6117 033663 254 04 0 00 033664 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6118 033664 324 00 0 00 033665 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6119 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6120 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6121 6122 ;********** 6123 6124 ;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP. 6125 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED. NEXT, THE 6126 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS. 6127 6128 033665 474 00 0 00 000000 C15600: SETO ;PRELOAD AC WITH 0 6129 033666 340 00 0 00 033670 AOJ .+2 ;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP 6130 033667 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=1 AND AOJ DID NOT JUMP 6131 STOP^ 6132 033670 254 04 0 00 033671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6133 033671 324 00 0 00 033672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6136 6137 ;********** 6138 6139 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. 6140 ;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED. NEXT, THE 6141 ;AC IS CHECKED FOR -1,,-1. IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS. 6142 6143 033672 400 00 0 00 000000 C15700: SETZ ;PRELOAD AC WITH 0 6144 033673 360 00 0 00 033675 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP 6145 033674 312 00 0 00 034404 CAME [-1] ;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP 6146 STOP^ 6147 033675 254 04 0 00 033676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6148 033676 324 00 0 00 033677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6149 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6150 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6151 6152 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 57 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0151 6153 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. 6154 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED. NEXT, THE 6155 ;AC IS CHECKED FOR -1,,-2. IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS. 6156 6157 033677 474 00 0 00 000000 C16000: SETO ;PRELOAD AC WITH -1,,-1 6158 033700 360 00 0 00 033702 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP 6159 033701 312 00 0 00 034405 CAME [-2] ;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP 6160 STOP^ 6161 033702 254 04 0 00 033703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6162 033703 324 00 0 00 033704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6163 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6164 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6165 6166 ;********** 6167 6168 ;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP. 6169 ;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED. NEXT, THE 6170 ;AC IS CHECKED FOR 0. IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS. 6171 6172 033704 201 00 0 00 000001 C16100: MOVEI 1 ;PRELOAD AC WITH 1 6173 033705 360 00 0 00 033707 SOJ .+2 ;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP 6174 033706 302 00 0 00 000000 CAIE 0 ;PASS IF C(AC)=0 AND SOJ DID NOT JUMP 6175 STOP^ 6176 033707 254 04 0 00 033710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6177 033710 324 00 0 00 033711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6178 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6179 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6180 6181 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 58 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0152 6182 ;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC). 6183 ;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. 6184 ;AC, IS REPEATED 7 TIMES. THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0. 6185 ;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED. 6186 6187 000017 C16200: AC=17 6188 033711 400 17 0 00 000000 SETZ AC, ;PRELOAD AC WITH 0 6189 REPEAT ^D10,< 6190 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6191 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC> 6192 6193 033712 360 17 0 00 033712 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6194 033713 340 17 0 00 033713 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6195 6196 033714 360 17 0 00 033714 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6197 033715 340 17 0 00 033715 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6198 6199 033716 360 17 0 00 033716 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6200 033717 340 17 0 00 033717 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6201 6202 033720 360 17 0 00 033720 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6203 033721 340 17 0 00 033721 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6204 6205 033722 360 17 0 00 033722 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6206 033723 340 17 0 00 033723 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6207 6208 033724 360 17 0 00 033724 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6209 033725 340 17 0 00 033725 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6210 6211 033726 360 17 0 00 033726 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6212 033727 340 17 0 00 033727 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6213 6214 033730 360 17 0 00 033730 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6215 033731 340 17 0 00 033731 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6216 6217 033732 360 17 0 00 033732 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6218 033733 340 17 0 00 033733 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6219 6220 033734 360 17 0 00 033734 SOJ AC,. ;*SOJ SHOULD SUBTRACT 1 FROM THE AC 6221 033735 340 17 0 00 033735 AOJ AC,. ;*AOJ SHOULD ADD 1 TO THE AC 6222 033736 332 00 0 00 000017 SKIPE AC ;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0 6223 STOP^ 6224 033737 254 04 0 00 033740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6225 033740 324 00 0 00 033741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6226 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6227 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6228 6229 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 59 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0153 6230 ;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER 6231 ;THAN 400000,,0. IN THIS CASE, C(E)=1. FIRST THE FLAGS ARE RESET; THEN 6232 ;SOJ IS EXECUTED. THE FLAGS ARE CHECKED. IF CRY0 AND CRY1 ARE SET 6233 ;AND AROV AND FOV ARE RESET, THIS TEST PASSES. 6234 6235 033741 255 17 0 00 033742 C16201: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS 6236 033742 201 00 0 00 000001 MOVEI 1 ;PRELOAD E WITH 1 6237 033743 360 00 0 00 000000 SOJ ;*SOJ SHOULD SET CRY0/1 6238 033744 255 04 0 00 033746 JCRY0 .+2 ;PASS IF CRY0 IS SET 6239 STOP^ 6240 033745 254 04 0 00 033746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6241 033746 324 00 0 00 033747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6242 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6243 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6244 033747 255 02 0 00 033751 JCRY1 .+2 ;PASS IF CRY1 IS SET 6245 STOP^ 6246 033750 254 04 0 00 033751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6247 033751 324 00 0 00 033752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6248 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6249 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6250 033752 255 10 0 00 033754 JOV .+2 ;PASS IF AROV IS RESET 6251 033753 334 00 0 00 000000 SKIPA 6252 STOP^ 6253 033754 254 04 0 00 033755 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6254 033755 324 00 0 00 033756 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6255 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6256 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6257 033756 255 01 0 00 033760 JFOV .+2 ;PASS IF FOV IS RESET 6258 033757 334 00 0 00 000000 SKIPA 6259 STOP^ 6260 033760 254 04 0 00 033761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6261 033761 324 00 0 00 033762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6262 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6263 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6264 6265 ;********** 6266 6267 ;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1 6268 ;FIRST THE FLAGS ARE RESET; THEN 6269 ;AOJ IS EXECUTED. THE FLAGS ARE CHECKED. 6270 ;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES. 6271 6272 033762 255 17 0 00 033763 C16202: JFCL 17,.+1 ;RESET ARITHMETIC FLAGS 6273 033763 474 00 0 00 000000 SETO ;PRELOAD E WITH 1 6274 033764 340 00 0 00 000000 AOJ ;*AOJ SHOULD SET CRY0 AND CRY1 6275 033765 255 04 0 00 033767 JCRY0 .+2 ;PASS IF CRY0 IS SET 6276 STOP^ 6277 033766 254 04 0 00 033767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6278 033767 324 00 0 00 033770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6279 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6280 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6281 033770 255 02 0 00 033772 JCRY1 .+2 ;PASS IF CRY1 IS SET 6282 STOP^ 6283 033771 254 04 0 00 033772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6284 033772 324 00 0 00 033773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 59-1 DSKAD1 MAC 28-Mar-78 13:50 TEST OF AOJ AND SOJ INSTRUCTIONS SEQ 0154 6285 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6286 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6287 033773 255 10 0 00 033775 JOV .+2 ;PASS IF AROV IS RESET 6288 033774 334 00 0 00 000000 SKIPA 6289 STOP^ 6290 033775 254 04 0 00 033776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6291 033776 324 00 0 00 033777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6292 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6293 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6294 033777 255 01 0 00 034001 JFOV .+2 ;PASS IF FOV IS RESET 6295 034000 334 00 0 00 000000 SKIPA 6296 STOP^ 6297 034001 254 04 0 00 034002 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6298 034002 324 00 0 00 034003 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6299 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6300 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6301 6302 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 60 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0155 6303 SUBTTL TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS 6304 6305 ;********** 6306 6307 ;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC) 6308 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN ADDM IS EXECUTED. 6309 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED 6310 6311 034003 477 00 0 00 000001 C16400: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 6312 034004 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD NOT AFFECT C(AC) 6313 034005 312 00 0 00 034404 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY ADDM 6314 STOP^ 6315 034006 254 04 0 00 034007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6316 034007 324 00 0 00 034010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6317 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6318 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6319 6320 ;********** 6321 6322 ;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC) 6323 ;THE AC IS PRELOADED WITH 0,,-1. THEN HRRM IS EXECUTED. 6324 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED 6325 6326 034010 201 00 0 00 777777 C16500: MOVEI -1 ;PRELOAD AC WITH 0,,-1 6327 034011 572 00 0 00 000001 HRREM 1 ;*HRRM SHOULD NOT AFFECT C(AC) 6328 034012 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY HRRM 6329 STOP^ 6330 034013 254 04 0 00 034014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6331 034014 324 00 0 00 034015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6334 6335 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 61 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0156 6336 ;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC) 6337 ;THE AC IS PRELOADED WITH 0,,-1. THEN MOVSM IS EXECUTED. 6338 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED 6339 6340 034015 201 00 0 00 777777 C16600: MOVEI -1 ;PRELOAD AC WITH 0,,-1 6341 034016 206 00 0 00 000001 MOVSM 1 ;*MOVSM SHOULD NOT AFFECT C(AC) 6342 034017 302 00 0 00 777777 CAIE -1 ;PASS IF C(AC) IS UNMODIFIED BY MOVSM 6343 STOP^ 6344 034020 254 04 0 00 034021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6345 034021 324 00 0 00 034022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6346 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6347 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6348 6349 ;********** 6350 6351 ;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC) 6352 ;BOTH AC AND E ARE PRELOADED WITH -1,,-1. THEN XORM IS EXECUTED. 6353 ;THIS TEST PASSES IF C(AC) ARE UNCHANGED 6354 6355 034022 477 00 0 00 000001 C16700: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 6356 034023 432 00 0 00 000001 XORM 1 ;*XORM SHOULD NOT AFFECT C(AC) 6357 034024 312 00 0 00 034404 CAME [-1] ;PASS IF C(AC) IS UNMODIFIED BY XORM 6358 STOP^ 6359 034025 254 04 0 00 034026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6360 034026 324 00 0 00 034027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6363 6364 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 62 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0157 6365 ;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE 6366 ;RESULT IN BOTH AC AND E. IN THIS TEST, BOTH AC AND E ARE PRELOADED 6367 ;WITH -1,,-1, THEN, ADDB IS EXECUTED. C(AC) IS THEN COMPARED TO C(E); 6368 ;AND C(AC) IS THEN COMPARED TO -2. IF BOTH OF THESE COMPARISONS SUCCEED, THIS 6369 ;TEST PASSES; OTHERWISE, ADDB FAILED 6370 6371 034027 477 00 0 00 000001 C17000: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 6372 034030 273 00 0 00 000001 ADDB 1 ;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT 6373 ;INTO BOTH AC AND E 6374 034031 312 00 0 00 000001 CAME 1 ;PASS IF C(AC)=C(E) 6375 STOP^ 6376 034032 254 04 0 00 034033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6377 034033 324 00 0 00 034034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6378 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6379 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6380 034034 312 00 0 00 034405 CAME [-2] ;PASS IF C(AC)=-2 6381 STOP^ 6382 034035 254 04 0 00 034036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6383 034036 324 00 0 00 034037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6386 6387 ;********** 6388 6389 ;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E 6390 ;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED. 6391 ;E IS THEN CHECKED FOR -2. IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED 6392 6393 034037 477 00 0 00 000001 C17100: SETOB 1 ;PRELOAD AC, E WITH -1,,-1 6394 034040 272 00 0 00 000001 ADDM 1 ;*ADDM SHOULD ADD C(AC) TO C(E) 6395 034041 312 01 0 00 034405 CAME 1,[-2] ;PASS IF C(E)=-2 6396 STOP^ 6397 034042 254 04 0 00 034043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6398 034043 324 00 0 00 034044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6400 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6401 6402 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 63 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0158 6403 ;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E 6404 ;BUT DOES NOT AFFECT THE LEFT HALF OF E. IN THIS CASE, 6405 ;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED. THE RESULT 6406 ;IN E SHOULD BE 0,,-1. IF C(E)=0,,-1, THIS TEST PASSES 6407 6408 034044 402 00 0 00 000001 C17200: SETZM 1 ;PRELOAD E WITH 0 6409 034045 523 00 0 00 000001 HLLOS 1 ;*HLLOS SHOULD PLACE 0,,-1 INTO E 6410 034046 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 6411 STOP^ 6412 034047 254 04 0 00 034050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6413 034050 324 00 0 00 034051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6414 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6415 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6416 6417 ;********** 6418 6419 ;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND 6420 ;PLACES THE RESULT IN E. IN THIS CASE, E IS PRELOADED WITH 6421 ;-1,,0; THEN, MOVSS IS EXECUTED. THE RESULT IN E SHOULD BE 0,,-1. 6422 ;IF C(E)=0,,-1, THIS TEST PASSES 6423 6424 034051 205 01 0 00 777777 C17300: MOVSI 1,-1 ;PRELOAD E WITH -1,,0 6425 034052 207 00 0 00 000001 MOVSS 1 ;*MOVSS SHOULD PLACE 0,,-1 INTO E 6426 034053 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 6427 STOP^ 6428 034054 254 04 0 00 034055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6429 034055 324 00 0 00 034056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6430 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6431 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6432 6433 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 64 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0159 6434 ;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP 6435 ;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED. NEXT, E IS CHECKED FOR 0. 6436 ;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS 6437 6438 034056 477 00 0 00 000001 C17400: SETOB 1 ;PRELOAD E WITH -1,,-1 6439 034057 350 00 0 00 000001 AOS 1 ;*AOS SHOULD ADD TO C(E) AND NOT SKIP 6440 034060 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP 6441 STOP^ 6442 034061 254 04 0 00 034062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6443 034062 324 00 0 00 034063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6444 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6445 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6446 6447 ;********** 6448 6449 ;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES 6450 ;NOT MODIFY E-RIGHT. IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED 6451 ;WITH -1,,-1. THEN, HRLM IS EXECUTED. E IS THEN CHECKED FOR 0,,-1. IF 6452 ;C(E)=0,,-1, THIS TEST PASSES 6453 6454 034063 400 00 0 00 000000 C17500: SETZ ;PRELOAD AC WITH 0 6455 034064 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 6456 034065 506 00 0 00 000001 HRLM 1 ;*HRLM SHOULD PLACE 0,,-1 INTO E 6457 034066 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(E)=0,,-1 6458 STOP^ 6459 034067 254 04 0 00 034070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6460 034070 324 00 0 00 034071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6463 6464 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 65 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0160 6465 ;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E 6466 ;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1. 6467 ;HRRS IS EXECUTED; THEN E IS CHECKED. IF C(E) DOES 6468 ;NOT CHANGE, THIS TEST PASSES 6469 6470 034071 474 00 0 00 000000 C17600: SETO ;PRELOAD AC WITH -1,,-1 6471 034072 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0,,0 6472 034073 543 00 0 00 000001 HRRS 1 ;*HRRS SHOULD PLACE 0,,0 INTO E 6473 034074 332 00 0 00 000001 SKIPE 1 6474 STOP^ 6475 034075 254 04 0 00 034076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6476 034076 324 00 0 00 034077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6479 6480 ;********** 6481 6482 ;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES 6483 ;ZEROS INTO E-LEFT. IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0. HRRZM 6484 ;IS EXECUTED AND AC1 IS CHECKED FOR 0. IF AC1=0, THIS TEST PASSES. 6485 6486 034077 474 00 0 00 000000 C17700: SETO ;PRELOAD AC0 WITH -1,,-1 6487 034100 205 01 0 00 777777 MOVSI 1,-1 ;PRELOAD AC1 WITH -1,,0 6488 034101 552 01 0 00 000001 HRRZM 1,1 ;*HRRZM SHOULD PLACE 0 INTO AC1 6489 034102 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC1)=0 6490 STOP^ 6491 034103 254 04 0 00 034104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6492 034104 324 00 0 00 034105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6493 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6494 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6495 6496 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 66 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0161 6497 ;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0). 6498 ;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED. IF AC0 IS MODIFIED 6499 ;OR JFCL SKIPS, THIS TEST FAILS 6500 6501 034105 400 00 0 00 000000 C20000: SETZ ;CLEAR AC0 6502 034106 255 17 0 00 034107 JFCL 17,.+1 ;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0). 6503 034107 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP 6504 STOP^ 6505 034110 254 04 0 00 034111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6506 034111 324 00 0 00 034112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6507 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6508 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6509 6510 ;********** 6511 6512 ;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION 6513 ;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E 6514 ;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS 6515 ;EXECUTED. IF THE RESULT IN E IS 0, THE TEST PASSES 6516 6517 034112 477 00 0 00 000001 C20100: SETOB 1 ;PRELOAD AC,E WITH -1,,-1 6518 034113 432 00 0 00 000001 XORM 1 ;*XORM SHOULD PLACE 0 INTO E 6519 034114 302 01 0 00 000000 CAIE 1,0 ;PASS IF C(E)=0 6520 STOP^ 6521 034115 254 04 0 00 034116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6522 034116 324 00 0 00 034117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6523 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6524 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6525 6526 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 67 DSKAD1 MAC 28-Mar-78 13:50 TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS SEQ 0162 6527 ;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E. 6528 ;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED 6529 ;FOR 0. IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS 6530 6531 034117 403 00 0 00 000001 C20200: SETZB 1 ;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E 6532 034120 316 00 0 00 034454 CAMN [0] ;FAIL IF C(AC) IS NON-ZERO 6533 034121 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NON-ZERO 6534 STOP^ 6535 034122 254 04 0 00 034123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6536 034123 324 00 0 00 034124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6537 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6538 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6539 6540 ;********** 6541 6542 ;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E. 6543 ;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0; 6544 ;THEN, SETAB IS EXECUTED. BOTH AC AND E ARE CHECKED FOR -1,,-1 6545 ;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS. 6546 6547 034124 400 01 0 00 000000 C20300: SETZ 1, ;PRELOAD E WITH 0 6548 034125 474 00 0 00 000000 SETO ;PRELOAD AC WITH -1,,-1 6549 034126 427 00 0 00 000001 SETAB 1 ;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E 6550 034127 316 00 0 00 034404 CAMN [-1] ;FAIL IF C(AC) IS NOT -1,-1 6551 034130 312 00 0 00 000001 CAME 1 ;FAIL IF C(E) IS NOT -1,,-1 6552 STOP^ 6553 034131 254 04 0 00 034132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6554 034132 324 00 0 00 034133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6557 6558 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 68 DSKAD1 MAC 28-Mar-78 13:50 XCT INSTRUCTION - BASIC TESTS SEQ 0163 6559 SUBTTL XCT INSTRUCTION - BASIC TESTS 6560 6561 ;********** 6562 6563 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) 6564 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION 6565 ;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO 6566 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT. 6567 ;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT 6568 6569 034133 403 00 0 00 000001 C20400: SETZB 1 ;CLEAR AC0 AND AC1 6570 034134 256 00 0 00 034461 XCT [MOVEI 1,.+2] ;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION 6571 034135 334 00 0 00 000000 SKIPA 6572 STOP^ 6573 034136 254 04 0 00 034137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6574 034137 324 00 0 00 034140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6575 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6576 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6577 6578 ;********** 6579 6580 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E) 6581 ;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION. 6582 ;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR 6583 ;0,,1 (THE EXPECTED RESULT). IF C(AC)=0,,1, THIS TEST PASSES 6584 6585 034140 403 00 0 00 000001 C20500: SETZB 1 ;CLEAR AC 6586 034141 256 00 0 00 034462 XCT [MOVEI 1,1] ;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC 6587 034142 302 01 0 00 000001 CAIE 1,1 ;PASS IF C(AC)=1 6588 STOP^ 6589 034143 254 04 0 00 034144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6590 034144 324 00 0 00 034145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6591 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6592 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6593 6594 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 69 DSKAD1 MAC 28-Mar-78 13:50 XCT INSTRUCTION - BASIC TESTS SEQ 0164 6595 ;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE 6596 ;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO 6597 ;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT. 6598 ;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI. AFTER EXECUTING THE MOVEI, 6599 ;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT). IF C(AC)=0,,-1, THIS TEST PASSES 6600 6601 034145 403 00 0 00 000001 C20600: SETZB 1 ;CLEAR AC 6602 034146 256 00 0 00 034467 XCT [XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI 6603 ;SHOULD PLACE 0,,-1 INTO AC 6604 034147 302 01 0 00 777777 CAIE 1,-1 ;PASS IF C(AC)=0,,-1 6605 STOP^ 6606 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6607 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6608 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6609 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6610 6611 ;********** 6612 6613 ;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE 6614 ;EXECUTED INSTRUCTION. IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER 6615 ;THE XCT INSTRUCTION IS EXECUTED. AC0 SHOULD NOT BE MODIFIED. 6616 6617 034152 403 00 0 00 000001 C20700: SETZB 1 ;CLEAR AC0,AC1 6618 034153 256 00 0 00 034470 XCT [MOVE 1,[-1]] ;*XCT SHOULD NOT MODIFY AC0 6619 034154 332 00 0 00 000000 SKIPE ;PASS IF AC0 WAS NOT MODIFIED 6620 STOP^ 6621 034155 254 04 0 00 034156 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6622 034156 324 00 0 00 034157 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6623 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6624 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6625 6626 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 70 DSKAD1 MAC 28-Mar-78 13:50 XCT INSTRUCTION - BASIC TESTS SEQ 0165 6627 ;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE 6628 ;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT 6629 6630 034157 256 00 0 00 034471 C21000: XCT [SKIPA] ;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2 6631 STOP^ 6632 034160 254 04 0 00 034161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6633 034161 324 00 0 00 034162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6634 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6635 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6636 6637 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 71 DSKAD1 MAC 28-Mar-78 13:50 INDIRECT ADDRESSING - BASIC TESTS SEQ 0166 6638 SUBTTL INDIRECT ADDRESSING - BASIC TESTS 6639 6640 ;********** 6641 6642 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @@E 6643 ;ARE WITHIN THE AC RANGE. 6644 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. 6645 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0, 6646 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS 6647 6648 034162 476 00 0 00 000001 C21100: SETOM 1 ;PRELOAD AC WITH -1,,-1 6649 034163 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS 6650 034164 402 00 0 00 000003 SETZM 3 ;PRELOAD INDIRECT ADDRESS WITH 0 6651 034165 200 01 1 00 000007 MOVE 1,@@7 ;*FWT FROM INDIRECT ADDRESSS SHOULD 6652 ;PLACE 0 INTO THE AC 6653 034166 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC)=0 6654 STOP^ 6655 034167 254 04 0 00 034170 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6656 034170 324 00 0 00 034171 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6658 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6659 6660 ;********** 6661 6662 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @@E 6663 ;ARE WITHIN THE AC RANGE. 6664 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. 6665 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1, 6666 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS 6667 6668 034171 402 00 0 00 000001 C21200: SETZM 1 ;PRELOAD AC WITH -1,,-1 6669 034172 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS 6670 034173 476 00 0 00 000003 SETOM 3 ;PRELOAD INDIRECT ADDRESS WITH -1,,-1 6671 034174 200 01 1 00 000007 MOVE 1,@@7 ;*FWT FROM INDIRECT ADDRESS SHOULD 6672 ;PLACE -1,,-1 INTO THE AC 6673 034175 312 01 0 00 034404 CAME 1,[-1,,-1] ;PASS IF C(AC)=-1,,-1 6674 STOP^ 6675 034176 254 04 0 00 034177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6676 034177 324 00 0 00 034200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6677 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6678 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6679 6680 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 72 DSKAD1 MAC 28-Mar-78 13:50 INDIRECT ADDRESSING - BASIC TESTS SEQ 0167 6681 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @@E 6682 ;ARE WITHIN THE AC RANGE. 6683 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. 6684 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, 6685 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS 6686 6687 034200 402 00 0 00 000001 C21300: SETZM 1 ;PRELOAD AC WITH 0 6688 034201 201 07 0 00 000003 MOVEI 7,3 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS 6689 034202 200 03 0 00 034472 MOVE 3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070 6690 034203 200 01 1 00 000007 MOVE 1,@@7 ;*FWT FROM INDIRECT ADDRESS SHOULD 6691 ;PLACE 707070,,707070 INTO THE AC 6692 034204 312 01 0 00 034472 CAME 1,[707070,,707070] ;PASS IF C(AC)=707070,,707070 6693 STOP^ 6694 034205 254 04 0 00 034206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6695 034206 324 00 0 00 034207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6698 6699 ;********** 6700 6701 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE 6702 ;AND @@E IS BEYOND THE AC RANGE. 6703 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. 6704 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070, 6705 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS 6706 6707 034207 254 00 0 00 034211 C21400: JRST .+2 6708 034210 707070 707070 XWD 707070,707070 ;INDIRECT ADDRESS AND ITS DATA 6709 034211 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 6710 034212 201 07 0 00 034210 MOVEI 7,C21400+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS 6711 034213 200 01 1 00 000007 MOVE 1,@@7 ;*FWT FROM INDIRECT ADDRESS SHOULD 6712 ;PLACE 707070,,707070 INTO AC 6713 034214 312 01 0 00 034210 CAME 1,C21400+1 ;PASS IF C(AC)=707070,,707070 6714 STOP^ 6715 034215 254 04 0 00 034216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6716 034216 324 00 0 00 034217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6717 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6718 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6719 6720 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 73 DSKAD1 MAC 28-Mar-78 13:50 INDIRECT ADDRESSING - BASIC TESTS SEQ 0168 6721 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @@E 6722 ;ARE BEYOND THE AC RANGE. 6723 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE. 6724 ;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020, 6725 ;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS 6726 6727 034217 254 00 0 00 034222 C21500: JRST .+3 6728 034220 000000 034221 .+1 ;DIRECT ADDRESS AND ITS DATA 6729 034221 202020 202020 XWD 202020,202020 ;INDIRECT ADDRESS AND ITS DATA 6730 034222 402 00 0 00 000001 SETZM 1 ;PRELOAD AC WITH 0 6731 034223 200 01 1 00 034220 MOVE 1,@@C21500+1 ;*FWT FROM INDIRECT ADDRESS SHOULD 6732 ;PLACE 202020,,202020 INTO AC 6733 034224 312 01 0 00 034221 CAME 1,C21500+2 ;PASS IF C(AC)=202020,,202020 6734 STOP^ 6735 034225 254 04 0 00 034226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6736 034226 324 00 0 00 034227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6738 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6739 6740 ;********** 6741 6742 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @@E 6743 ;ARE BEYOND THE AC RANGE. 6744 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. 6745 6746 034227 254 00 0 00 034232 C21600: JRST .+3 6747 034230 000000 034231 .+1 ;DIRECT ADDRESS AND ITS DATA 6748 034231 272727 272727 XWD 272727,272727 ;INDIRECT ADDRESS AND ITS DATA 6749 034232 200 01 0 00 034231 MOVE 1,C21600+2 ;PRELOAD AC 6750 034233 312 01 1 00 034230 CAME 1,@@C21600+1 ;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE 6751 STOP^ 6752 034234 254 04 0 00 034235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6753 034235 324 00 0 00 034236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6754 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6755 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6756 6757 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 74 DSKAD1 MAC 28-Mar-78 13:50 INDIRECT ADDRESSING - BASIC TESTS SEQ 0169 6758 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE 6759 ;AND @@E IS BEYOND THE AC RANGE. 6760 ;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME. 6761 6762 034236 254 00 0 00 034240 C21700: JRST .+2 6763 034237 252525 252525 XWD 252525,252525 ;INDIRECT ADDRESS AND ITS DATA 6764 034240 201 07 0 00 034237 MOVEI 7,C21700+1 ;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS 6765 034241 200 01 0 00 034237 MOVE 1,C21700+1 ;SETUP AC 6766 034242 312 01 1 00 000007 CAME 1,@@7 ;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE 6767 STOP^ 6768 034243 254 04 0 00 034244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6769 034244 324 00 0 00 034245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6770 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6771 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6772 6773 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 75 DSKAD1 MAC 28-Mar-78 13:50 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0170 6774 SUBTTL TEST INDIRECT ADDRESSING WITH INDEXING 6775 6776 ;SETUP INDEX REGISTERS 6777 6778 034245 201 01 0 00 777774 MOVEI 1,-4 6779 034246 201 03 0 00 000002 MOVEI 3,2 6780 034247 201 04 0 00 000010 MOVEI 4,10 6781 034250 201 05 0 00 000001 MOVEI 5,1 6782 034251 201 06 0 00 000005 MOVEI 6,5 6783 034252 201 07 0 00 000007 MOVEI 7,7 6784 034253 201 10 0 00 000004 MOVEI 10,4 6785 034254 201 11 0 00 777772 MOVEI 11,-6 6786 034255 201 12 0 00 000005 MOVEI 12,5 6787 034256 201 13 0 00 000002 MOVEI 13,2 6788 6789 034257 254 00 0 00 034310 JRST C22000 ;RESUME TEST 6790 6791 ;INDIRECT ADDRESSING/INDEXING TEST TABLE 6792 6793 ;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; 6794 6795 ;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY ! 6796 6797 ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; 6798 6799 034260 000003 034263 E217: E217A(3) 6800 034261 000020 034266 E220: @@E220A 6801 034262 220220 220220 E220B: 220220,,220220 6802 034263 000020 034270 E217A: @@E221A ;E221-4 6803 034264 221221 221221 E221B: 221221,,221221 6804 034265 217217 217217 E222A: 217217,,217217 ;E217A+2 6805 034266 000000 034262 E220A: E220B 6806 034267 000000 034267 E221: E221 6807 034270 000000 034264 E221A: E221B 6808 034271 000000 034267 E222: E221 6809 034272 223223 223223 E223A: 223223,,223223 6810 034273 000004 034273 E224A: E224A(4) ;E223-6 6811 034274 222222 222222 222222,,222222 ;E222A+7 6812 034275 000000 034275 E225: E225 6813 034276 000007 034265 E222A(7) ;E222+5 6814 034277 000020 034302 @@E225A ;E225+2 6815 034300 225225 225225 E225B: 225225,,225225 6816 034301 000000 034301 E223: E223 6817 034302 000000 034300 E225A: E225B 6818 034303 224224 224224 224224,,224224 ;E224A+10 6819 034304 226226 226226 E226B: 226226,,226226 6820 034305 000000 034272 E223A ;E223+4 6821 034306 000025 034306 E226A: @@E226A(5) ;E223+5 6822 034307 000000 034304 E226B ;E226A+1 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 76 DSKAD1 MAC 28-Mar-78 13:50 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0171 6823 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6824 LY. 6825 ;IN THIS CASE, MOVE 2,@@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2. 6826 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217 6827 6828 034310 476 00 0 00 000002 C22000: SETOM 2 ;INITIALIZE AC 6829 034311 200 02 1 00 034260 MOVE 2,@@E217 ;TEST INDIRECT ADDRESSING WITH INDEXING 6830 034312 312 02 0 00 034265 CAME 2,E217A+2 ;PASS IF C(AC)=217217,,217217 6831 STOP^ 6832 034313 254 04 0 00 034314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6833 034314 324 00 0 00 034315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6835 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6836 6837 ;********** 6838 6839 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6840 LY. 6841 ;IN THIS CASE, MOVE 2,@@E220 IS TESTED WHERE C(E220)=@@E220A AND C(E220A)=E220B. 6842 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220 6843 6844 034315 402 00 0 00 000002 C22100: SETZM 2 ;INITIALIZE AC 6845 034316 200 02 1 00 034261 MOVE 2,@@E220 ;TEST INDIRECT ADDRESSING WITH INDEXING 6846 034317 312 02 0 00 034262 CAME 2,E220B ;PASS IF C(AC)=220220,,220220 6847 STOP^ 6848 034320 254 04 0 00 034321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6849 034321 324 00 0 00 034322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6850 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6851 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6852 6853 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 77 DSKAD1 MAC 28-Mar-78 13:50 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0172 6854 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6855 LY. 6856 ;IN THIS CASE,E221(1) 2,@@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A 6857 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@@E221A=20,,E221A 6858 6859 034322 476 00 0 00 000002 C22200: SETOM 2 ;INITIALIZE AC 6860 034323 200 02 0 01 034267 MOVE 2,E221(1) ;TEST INDIRECT ADDRESSING WITH INDEXING 6861 034324 312 02 0 00 034263 CAME 2,E217A ;PASS IF C(AC)=@@E221A=20,,E221A 6862 STOP^ 6863 034325 254 04 0 00 034326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6864 034326 324 00 0 00 034327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6865 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6866 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6867 6868 ;********** 6869 6870 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6871 LY. 6872 ;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5 6873 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A 6874 6875 034327 402 00 0 00 000002 C22300: SETZM 2 ;INITIALIZE AC 6876 034330 200 02 0 06 034271 MOVE 2,E222(6) ;TEST INDIRECT ADDRESSING WITH INDEXING 6877 034331 312 02 0 00 034276 CAME 2,E222+5 ;PASS IF C(AC)=E222A(7)=7,,E222A 6878 STOP^ 6879 034332 254 04 0 00 034333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6880 034333 324 00 0 00 034334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6883 6884 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 78 DSKAD1 MAC 28-Mar-78 13:50 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0173 6885 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6886 LY. 6887 ;IN THIS CASE, MOVE 2,@@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A 6888 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223 6889 6890 034334 476 00 0 00 000002 C22400: SETOM 2 ;INITIALIZE AC 6891 034335 200 02 1 10 034301 MOVE 2,@@E223(10) ;TEST INDIRECT ADDRESSING WITH INDEXING 6892 034336 312 02 0 00 034272 CAME 2,E223A ;PASS IF C(AC)=223223,,223223 6893 STOP^ 6894 034337 254 04 0 00 034340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6895 034340 324 00 0 00 034341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6896 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6897 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6898 6899 ;********** 6900 6901 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6902 LY. 6903 ;IN THIS CASE, MOVE 2,@@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10 6904 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224 6905 6906 034341 402 00 0 00 000002 C22500: SETZM 2 ;INITIALIZE AC 6907 034342 200 02 1 11 034301 MOVE 2,@@E223(11) ;TEST INDIRECT ADDRESSING WITH INDEXING 6908 034343 312 02 0 00 034303 CAME 2,E224A+10 ;PASS IF C(AC)=224224,,224224 6909 STOP^ 6910 034344 254 04 0 00 034345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6911 034345 324 00 0 00 034346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6912 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6913 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6914 6915 ;********** DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 79 DSKAD1 MAC 28-Mar-78 13:50 TEST INDIRECT ADDRESSING WITH INDEXING SEQ 0174 6916 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6917 LY. 6918 ;IN THIS CASE, MOVE 2,@@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@@E225A 6919 ;AND C(E225A)=E225B 6920 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225 6921 6922 034346 476 00 0 00 000002 C22600: SETOM 2 ;INITIALIZE AC 6923 034347 200 02 1 13 034275 MOVE 2,@@E225(13) ;TEST INDIRECT ADDRESSING WITH INDEXING 6924 034350 312 02 0 00 034300 CAME 2,E225B ;PASS IF C(AC)=225225,,225225 6925 STOP^ 6926 034351 254 04 0 00 034352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6927 034352 324 00 0 00 034353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6930 6931 ;********** 6932 6933 ;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT 6934 LY. 6935 ;IN THIS CASE, MOVE 2,@@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@@E226A(5), 6936 ;C(5)=1 AND C(E226A+1)=E226B 6937 ;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226 6938 6939 034353 402 00 0 00 000002 C22700: SETZM 2 ;INITIALIZE AC 6940 034354 200 02 1 12 034301 MOVE 2,@@E223(12) ;TEST INDIRECT ADDRESSING WITH INDEXING 6941 034355 312 02 0 00 034304 CAME 2,E226B ;PASS IF C(AC)=226226,,226226 6942 STOP^ 6943 034356 254 04 0 00 034357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 6944 034357 324 00 0 00 034360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 6945 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 6946 ;IN THE SUBTEST) TO LOOP ON ERROR^ 6947 6948 ;********** 6949 034360 402 00 0 00 034474 ENDIT: SETZM TNUMB# 6950 034361 254 00 0 00 030057 JRST BEGEND DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0175 6951 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 6952 6953 ;PROGRAM LITERALS 6954 6955 XLIST 6956 IFNDEF $LPAPER, 6957 034362 LIT 6958 034362 000001 000000 6959 034363 000002 000000 6960 034364 000004 000000 6961 034365 000010 000000 6962 034366 000020 000000 6963 034367 000040 000000 6964 034370 000100 000000 6965 034371 000200 000000 6966 034372 000400 000000 6967 034373 001000 000000 6968 034374 002000 000000 6969 034375 004000 000000 6970 034376 010000 000000 6971 034377 020000 000000 6972 034400 040000 000000 6973 034401 100000 000000 6974 034402 200000 000000 6975 034403 400000 000000 6976 034404 777777 777777 6977 034405 777777 777776 6978 034406 777777 777775 6979 034407 777777 777773 6980 034410 777777 777767 6981 034411 777777 777757 6982 034412 777777 777737 6983 034413 777777 777677 6984 034414 777777 777577 6985 034415 777777 777377 6986 034416 777777 776777 6987 034417 777777 775777 6988 034420 777777 773777 6989 034421 777777 767777 6990 034422 777777 757777 6991 034423 777777 737777 6992 034424 777777 677777 6993 034425 777777 577777 6994 034426 777777 377777 6995 034427 777776 777777 6996 034430 777775 777777 6997 034431 777773 777777 6998 034432 777767 777777 6999 034433 777757 777777 7000 034434 777737 777777 7001 034435 777677 777777 7002 034436 777577 777777 7003 034437 777377 777777 7004 034440 776777 777777 7005 034441 775777 777777 DSKAD DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (4) 0,1 MACRO %53(1020) 14:08 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0176 7006 034442 773777 777777 7007 034443 767777 777777 7008 034444 757777 777777 7009 034445 737777 777777 7010 034446 677777 777777 7011 034447 577777 777777 7012 034450 377777 777777 7013 034451 777777 000000 7014 034452 000000 777777 7015 034453 252525 252525 7016 034454 000000 000000 7017 034455 254 04 0 00 032662 7018 034456 000001 000001 7019 034457 377777 377777 7020 034460 400000 400000 7021 034461 201 01 0 00 034136 7022 034462 201 01 0 00 000001 7023 034463 201 01 0 00 777777 7024 034464 256 00 0 00 034463 7025 034465 256 00 0 00 034464 7026 034466 256 00 0 00 034465 7027 034467 256 00 0 00 034466 7028 034470 200 01 0 00 034404 7029 034471 334 00 0 00 000000 7030 034472 707070 707070 7031 LIST 7032 034473 000000 000000 ENDSLD: 0 7033 7034 IFDEF DEBUG,< 7035 PATCH: BLOCK DEBUG ;PATCHING AREA 7036 > 7037 7038 ;PROGRAM VARIABLES 7039 034474 VAR 7040 7041 IFDEF PGMEND,< 7042 034475 000000 000000 END: 0 7043 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 034476 CPU TIME USED 00:20.167 22P CORE USED ABORT 92# AC 6187# 6188 6193 6194 6196 6197 6199 6200 6202 6203 6205 6206 6208 6209 SEQ 0177 6211 6212 6214 6215 6217 6218 6220 6221 6222 AC0 687# ALTMGO 442# AROV 356# 5191 5388 5392 AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 6950 BEGIN 307 308 369# 708 771 7043 BEGIN1 385# 439 BELL 561# BIS 356# C100 820# C1000 1872# C10000 5406# C10100 5428# C10200 5449# C10300 5471# C10400 5489# C10500 5505# C1100 2214# C11200 5521# C11300 5536# C11400 5550# C11500 5565# C11600 5578# C11700 5592# C1200 2230# C12000 5607# C12100 5624# C12200 5660# C12300 5677# C12301 5714# C12600 5752# C12700 5767# C1300 2685# C13100 5781# C13200 5796# C13300 5811# C13400 5848# C13600 5887# C13700 5907# C1400 3143# C14000 5926# C14100 5950# C14200 5969# C14500 5996# C14600 6010# C14700 6025# C1500 3159# C15000 6038# C15100 6052# SEQ 0178 C15200 6067# C15300 6081# C15400 6095# C15500 6113# C15600 6128# C15700 6143# C1600 3614# C16000 6157# C16100 6172# C16200 6187# C16201 6235# C16202 6272# C16400 6311# C16500 6326# C16600 6340# C16700 6355# C1700 4079# C17000 6371# C17100 6393# C17200 6408# C17300 6424# C17400 6438# C17500 6454# C17600 6470# C17700 6486# C200 836# C2000 4311# C20000 6501# C20100 6517# C20200 6531# C20300 6547# C20400 6569# C20500 6585# C20600 6601# C20700 6617# C2100 4541# C21000 6630# C21100 6648# C21200 6668# C21300 6687# C21400 6707# 6710 6713 C21500 6727# 6731 6733 C21600 6746# 6749 6750 C21700 6762# 6764 6765 C2200 4557# C22000 6789 6828# C22100 6844# C22200 6859# C22300 6875# C22400 6890# C22500 6906# C22600 6922# C22700 6939# SEQ 0179 C2400 4573# C2410 4582# C2700 4597# C2710 4606# C300 850# C3000 4620# C3100 4644# C3110 4661# C3200 4675# C3210 4684# C3300 4699# C3400 4715# C3500 4732# C3600 4750# C3700 4766# C400 865# C4000 4782# C4100 4800# C4200 4816# C4300 4834# C4400 4852# C4500 4868# C4600 4883# C4700 4898# C500 882# C5000 4915# C5100 4931# C5200 4947# C5300 4964# C5400 4981# C5500 4998# C5600 5017# C5700 5035# C5701 5052# C5702 5068# C600 1230# C6000 5088# C6100 5105# C6200 5122# C6300 5143# C6400 5166# C6500 5189# C6600 5208# C6700 5228# C700 1585# C7000 5245# C7100 5266# C7200 5288# C7300 5312# C7400 5333# C7500 5351# C7600 5366# C7700 5385# SEQ 0180 CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# 5125 5268 5409 5413 CRY1 356# 5210 5431 5435 CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# 5952 5956 5971 5980 DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 7034 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 E217 6799# 6829 E217A 6799 6802# 6830 6861 E220 6800# 6845 E220A 6800 6805# E220B 6801# 6805 6846 E221 6806# 6806 6808 6860 E221A 6802 6807# E221B 6803# 6807 E222 6808# 6876 6877 E222A 6804# 6813 E223 6816# 6816 6891 6907 6940 E223A 6809# 6820 6892 E224A 6810# 6810 6908 E225 6812# 6812 6923 E225A 6814 6817# E225B 6815# 6817 6924 E226A 6821# 6821 E226B 6819# 6822 6941 EBIT0 356# EBIT1 356# SEQ 0181 EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 7042# ENDFIX 684# ENDIT 6949# ENDSLD 7032# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# 5230 5247 5290 5452 5456 5889 FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# 5909 5913 5928 5937 HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# SEQ 0182 KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# SEQ 0183 LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 SEQ 0184 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 SEQ 0185 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 7041 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SEQ 0186 SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SN 874# 940 940# 958 958# 976 976# 994 994# 1012 1012# 1030 1030# 1048 1048# 1066 1066# 1084 1084# 1102 1102# 1120 1120# 1138 1138# 1156 1156# 1174 1174# 1192 1192# 1210 1210# 1222# 1304 1304# 1323 1323# 1342 1342# 1361 1361# 1380 1380# 1399 1399# 1418 1418# 1437 1437# 1456 1456# 1475 1475# 1494 1494# 1513 1513# 1532 1532# 1551 1551# 1570 1570# 1582# 1605 1605# 1623 1623# 1641 1641# 1659 1659# 1677 1677# 1695 1695# 1713 1713# 1731 1731# 1749 1749# 1767 1767# 1785 1785# 1803 1803# 1821 1821# 1839 1839# 1857 1857# 1869# 1897 1897# 1918 1918# 1939 1939# 1960 1960# 1981 1981# 2002 2002# 2023 2023# 2044 2044# 2065 2065# 2086 2086# 2107 2107# 2128 2128# 2149 2149# 2170 2170# 2191 2191# 2227# 2258 2258# 2282 2282# 2306 2306# 2330 2330# 2354 2354# 2378 2378# 2402 2402# 2426 2426# 2450 2450# 2474 2474# 2498 2498# 2522 2522# 2546 2546# 2570 2570# 2594 2594# 2618 2618# 2642 2642# 2666 2666# 2682# 2713 2713# 2737 2737# 2761 2761# 2785 2785# 2809 2809# 2833 2833# 2857 2857# 2881 2881# 2905 2905# 2929 2929# 2953 2953# 2977 2977# 3001 3001# 3025 3025# 3049 3049# 3073 3073# 3097 3097# 3121 3121# 3156# 3187 3187# 3211 3211# 3235 3235# 3259 3259# 3283 3283# 3307 3307# 3331 3331# 3355 3355# 3379 3379# 3403 3403# 3427 3427# 3451 3451# 3475 3475# 3499 3499# 3523 3523# 3547 3547# 3571 3571# 3595 3595# 3611# 3642 3642# 3666 3666# 3690 3690# 3714 3714# 3738 3738# 3762 3762# 3786 3786# 3810 3810# 3834 3834# 3858 3858# 3882 3882# 3906 3906# 3930 3930# 3954 3954# 3978 3978# 4002 4002# 4026 4026# 4050 4050# 4068# 4090 4090# 4104 4104# 4118 4118# 4132 4132# 4146 4146# 4160 4160# 4174 4174# 4188 4188# 4202 4202# 4216 4216# 4230 4230# 4244 4244# 4258 4258# 4272 4272# 4286 4286# 4301# 4322 4322# 4336 4336# 4350 4350# 4364 4364# 4378 4378# 4392 4392# 4406 4406# 4420 4420# 4434 4434# 4448 4448# 4462 4462# 4476 4476# 4490 4490# 4504 4504# 4518 4518# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SEQ 0187 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 6949# 6949 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# XX 4070# 4092 4092# 4093 4095 4106 4106# 4107 4109 4120 4120# 4121 4123 4134 4134# 4135 4137 4148 4148# 4149 4151 4162 4162# 4163 4165 4176 4176# 4177 4179 4190 4190# 4191 4193 4204 4204# 4205 4207 4218 4218# 4219 4221 4232 4232# 4233 4235 4246 4246# 4247 4249 4260 4260# 4261 4263 4274 4274# 4275 4277 4288 4288# 4289 4291 4303# 4324 4324# 4325 4326 4338 4338# 4339 4340 4352 4352# 4353 4354 4366 4366# 4367 4368 4380 4380# 4381 4382 4394 4394# 4395 4396 4408 4408# 4409 4410 4422 4422# 4423 4424 4436 4436# 4437 4438 4450 4450# 4451 4452 4464 4464# 4465 4466 4478 4478# 4479 4480 4492 4492# 4493 4494 4506 4506# 4507 4508 4520 4520# 4521 4522 ZZ 875# 885 885# 886 887 887# 888 889 889# 890 891 891# 892 893 893# 894 895 895# 896 897 897# 898 899 899# 900 901 901# 902 903 903# 904 905 905# 906 907 907# 908 909 909# 910 911 911# 912 913 913# 914 915 915# 916 918# 941 941# 942 959 959# 960 977 977# 978 995 995# 996 1013 1013# 1014 1031 1031# 1032 1049 1049# 1050 1067 1067# 1068 1085 1085# 1086 1103 1103# 1104 1121 1121# 1122 1139 1139# 1140 1157 1157# 1158 1175 1175# 1176 1193 1193# 1194 1211 1211# 1212 1223# 1234 1234# 1235 1236 1237 1237# 1238 1239 1240 1240# 1241 1242 1243 1243# 1244 1245 1246 1246# 1247 1248 1249 1249# 1250 1251 1252 1252# 1253 1254 1255 1255# 1256 1257 1258 1258# 1259 1260 1261 1261# 1262 1263 1264 1264# 1265 1266 1267 1267# 1268 1269 1270 1270# 1271 1272 1273 1273# 1274 1275 1276 1276# 1277 1278 1280# 1305 1305# 1306 1324 1324# 1325 1343 1343# 1344 1362 1362# 1363 1381 1381# 1382 1400 1400# 1401 1419 1419# 1420 1438 1438# 1439 1457 1457# 1458 1476 1476# 1477 1495 1495# 1496 1514 1514# 1515 1533 1533# 1534 1552 1552# 1553 1571 1571# 1572 1583# 1606 1606# 1607 1608 1624 1624# 1625 1626 1642 1642# 1643 1644 1660 1660# 1661 1662 1678 1678# 1679 1680 1696 1696# 1697 1698 1714 1714# 1715 1716 1732 1732# 1733 1734 1750 1750# 1751 1752 1768 1768# 1769 1770 1786 1786# 1787 1788 1804 1804# 1805 1806 1822 1822# 1823 1824 1840 1840# 1841 1842 1858 1858# 1859 1860 SEQ 0188 1870# 1898 1898# 1899 1900 1901 1919 1919# 1920 1921 1922 1940 1940# 1941 1942 1943 1961 1961# 1962 1963 1964 1982 1982# 1983 1984 1985 2003 2003# 2004 2005 2006 2024 2024# 2025 2026 2027 2045 2045# 2046 2047 2048 2066 2066# 2067 2068 2069 2087 2087# 2088 2089 2090 2108 2108# 2109 2110 2111 2129 2129# 2130 2131 2132 2150 2150# 2151 2152 2153 2171 2171# 2172 2173 2174 2192 2192# 2193 2194 2195 2228# 2259 2259# 2260 2260# 2262 2265 2283 2283# 2284 2286 2289 2307 2307# 2308 2310 2313 2331 2331# 2332 2334 2337 2355 2355# 2356 2358 2361 2379 2379# 2380 2382 2385 2403 2403# 2404 2406 2409 2427 2427# 2428 2430 2433 2451 2451# 2452 2454 2457 2475 2475# 2476 2478 2481 2499 2499# 2500 2502 2505 2523 2523# 2524 2526 2529 2547 2547# 2548 2550 2553 2571 2571# 2572 2574 2577 2595 2595# 2596 2598 2601 2619 2619# 2620 2622 2625 2643 2643# 2644 2646 2649 2667 2667# 2668 2670 2673 2683# 2714 2714# 2715 2715# 2717 2720 2738 2738# 2739 2741 2744 2762 2762# 2763 2765 2768 2786 2786# 2787 2789 2792 2810 2810# 2811 2813 2816 2834 2834# 2835 2837 2840 2858 2858# 2859 2861 2864 2882 2882# 2883 2885 2888 2906 2906# 2907 2909 2912 2930 2930# 2931 2933 2936 2954 2954# 2955 2957 2960 2978 2978# 2979 2981 2984 3002 3002# 3003 3005 3008 3026 3026# 3027 3029 3032 3050 3050# 3051 3053 3056 3074 3074# 3075 3077 3080 3098 3098# 3099 3101 3104 3122 3122# 3123 3125 3128 3157# 3188 3188# 3189 3189# 3191 3194 3212 3212# 3213 3215 3218 3236 3236# 3237 3239 3242 3260 3260# 3261 3263 3266 3284 3284# 3285 3287 3290 3308 3308# 3309 3311 3314 3332 3332# 3333 3335 3338 3356 3356# 3357 3359 3362 3380 3380# 3381 3383 3386 3404 3404# 3405 3407 3410 3428 3428# 3429 3431 3434 3452 3452# 3453 3455 3458 3476 3476# 3477 3479 3482 3500 3500# 3501 3503 3506 3524 3524# 3525 3527 3530 3548 3548# 3549 3551 3554 3572 3572# 3573 3575 3578 3596 3596# 3597 3599 3602 3612# 3643 3643# 3644 3644# 3646 3649 3667 3667# 3668 3670 3673 3691 3691# 3692 3694 3697 3715 3715# 3716 3718 3721 3739 3739# 3740 3742 3745 3763 3763# 3764 3766 3769 3787 3787# 3788 3790 3793 3811 3811# 3812 3814 3817 3835 3835# 3836 3838 3841 3859 3859# 3860 3862 3865 3883 3883# 3884 3886 3889 3907 3907# 3908 3910 3913 3931 3931# 3932 3934 3937 3955 3955# 3956 3958 3961 3979 3979# 3980 3982 3985 4003 4003# 4004 4006 4009 4027 4027# 4028 4030 4033 4051 4051# 4052 4054 4057 4069# 4091 4091# 4093 4094 4095 4105 4105# 4107 4108 4109 4119 4119# 4121 4122 4123 4133 4133# 4135 4136 4137 4147 4147# 4149 4150 4151 4161 4161# 4163 4164 4165 4175 4175# 4177 4178 4179 4189 4189# 4191 4192 4193 4203 4203# 4205 4206 4207 4217 4217# 4219 4220 4221 4231 4231# 4233 4234 4235 4245 4245# 4247 4248 4249 4259 4259# 4261 4262 4263 4273 4273# 4275 4276 4277 4287 4287# 4289 4290 4291 4302# 4323 4323# 4325 4326 4327 4337 4337# 4339 4340 4341 4351 4351# 4353 4354 4355 4365 4365# 4367 4368 4369 4379 4379# 4381 4382 4383 4393 4393# 4395 4396 4397 4407 4407# 4409 4410 4411 4421 4421# 4423 4424 4425 4435 4435# 4437 4438 4439 4449 4449# 4451 4452 4453 4463 4463# 4465 4466 4467 4477 4477# 4479 4480 4481 4491 4491# 4493 4494 4495 4505 4505# 4507 4508 4509 4519 4519# 4521 4522 4523 $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# SEQ 0189 $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# $ITRX1 451# $LPAPE 6956 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# SEQ 0190 $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0191 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 824 839 853 868 944 962 980 998 1016 1034 1052 1070 1088 1106 1124 1142 1160 1178 1196 1214 1308 1327 1346 1365 1384 1403 1422 1441 1460 1479 1498 1517 1536 1555 1574 1610 1628 1646 1664 1682 1700 1718 1736 1754 1772 1790 1808 1826 1844 1862 1903 1924 1945 1966 1987 2008 2029 2050 2071 2092 2113 2134 2155 2176 2197 2220 2267 2291 2315 2339 2363 2387 2411 2435 2459 2483 2507 2531 2555 2579 2603 2627 2651 2675 2722 2746 2770 2794 2818 2842 2866 2890 2914 2938 2962 2986 3010 3034 3058 3082 3106 3130 3149 3196 3220 3244 3268 3292 3316 3340 3364 3388 3412 3436 3460 3484 3508 3532 3556 3580 3604 3651 3675 3699 3723 3747 3771 3795 3819 3843 3867 3891 3915 3939 3963 3987 4011 4035 4059 4097 4111 4125 4139 4153 4167 4181 4195 4209 4223 4237 4251 4265 4279 4293 4329 4343 4357 4371 4385 4399 4413 4427 4441 4455 4469 4483 4497 4511 4525 4545 4561 4578 4584 4602 4608 4632 4657 4663 4680 4686 4699 4703 4721 4738 4756 4771 4787 4804 4821 4838 4856 4872 4887 4903 4920 4936 4953 4970 4987 5005 5024 5042 5057 5073 5093 5110 5130 5153 5176 5196 5215 5235 5253 5276 5298 5318 5339 5355 5372 5394 5415 5437 5458 5479 5491 5507 5525 5540 5554 5568 5581 5596 5611 5628 5634 5641 5648 5665 5681 5687 5694 5701 5718 5724 5731 5738 5756 5771 5785 5800 5816 5822 5829 5836 5853 5859 5866 5873 5896 5915 5939 5958 5982 5999 6014 6028 6041 6056 6071 6084 6099 6117 6132 6147 6161 6176 6224 6240 6246 6253 6260 6277 6283 6290 6297 6315 6330 6344 6359 6376 6382 6397 6412 6428 6442 6459 6475 6491 6505 6521 6535 6553 6573 6589 6606 6621 6632 6655 6675 6694 6715 6735 6752 6768 6832 6848 6863 6879 6894 6910 6926 6943 JEN 160# JRSTF 159# MAPADR 295# SEQ 0192 MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# SEQ 0193 PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# 5123 5145 5168 5189 5208 5228 5245 5266 5288 5386 5407 5429 5450 5471 5887 5907 5926 5931 5950 5969 5974 SIXBTZ 261# STOP 48# 823 838 852 867 943 961 979 997 1015 1033 1051 1069 1087 1105 1123 1141 1159 1177 1195 1213 1307 1326 1345 1364 1383 1402 1421 1440 1459 1478 1497 1516 1535 1554 1573 1609 1627 1645 1663 1681 1699 1717 1735 1753 1771 1789 1807 1825 1843 1861 1902 1923 1944 1965 1986 2007 2028 2049 2070 2091 2112 2133 2154 2175 2196 2219 2266 2290 2314 2338 2362 2386 2410 2434 2458 2482 2506 2530 2554 2578 2602 2626 2650 2674 2721 2745 2769 2793 2817 2841 2865 2889 2913 2937 2961 2985 3009 3033 3057 3081 3105 3129 3148 3195 3219 3243 3267 3291 3315 3339 3363 3387 3411 3435 3459 3483 3507 3531 3555 3579 3603 3650 3674 3698 3722 3746 3770 3794 3818 3842 3866 3890 3914 3938 3962 3986 4010 4034 4058 4096 4110 4124 4138 4152 4166 4180 4194 4208 4222 4236 4250 4264 4278 4292 4328 4342 4356 4370 4384 4398 4412 4426 4440 4454 4468 4482 4496 SEQ 0194 4510 4524 4544 4560 4577 4583 4601 4607 4631 4656 4662 4679 4685 4702 4720 4737 4755 4770 4786 4803 4820 4837 4855 4871 4886 4902 4919 4935 4952 4969 4986 5004 5023 5041 5056 5072 5092 5109 5129 5152 5175 5195 5214 5234 5252 5275 5297 5317 5337 5354 5371 5393 5414 5436 5457 5478 5490 5506 5524 5539 5553 5567 5580 5595 5610 5627 5633 5640 5647 5664 5680 5686 5693 5700 5717 5723 5730 5737 5755 5770 5784 5799 5815 5821 5828 5835 5852 5858 5865 5872 5895 5914 5938 5957 5981 5998 6013 6027 6040 6055 6070 6083 6098 6116 6131 6146 6160 6175 6223 6239 6245 6252 6259 6276 6282 6289 6296 6314 6329 6343 6358 6375 6381 6396 6411 6427 6441 6458 6474 6490 6504 6520 6534 6552 6572 6588 6605 6620 6631 6654 6674 6693 6714 6734 6751 6767 6831 6847 6862 6878 6893 6909 6925 6942 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# WRTIM 356# WRUBR 356# ADD 4751 4767 4783 4869 4932 4949 4966 4983 5167 ADDB 6372 SEQ 0195 ADDI 4716 4733 4801 4817 4835 4853 4899 4916 5144 ADDM 6312 6394 AOBJN 5037 5522 5551 5579 5608 AOBJP 5038 5537 5566 5593 AOJ 6114 6129 6194 6197 6200 6203 6206 6209 6212 6215 6218 6221 6274 AOS 444 757 5753 5768 5850 6439 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAI 4818 5000 CAIA 4701 CAIE 822 837 851 866 942 960 978 996 1014 1032 1050 1068 1086 1104 1122 1140 1158 1176 1194 1212 1306 1325 1344 1363 1382 1401 1420 1439 1458 1477 1496 1515 1534 1553 1572 1608 1626 1644 1662 1680 1698 1716 1734 1752 1770 1788 1806 1824 1842 1860 2265 2289 2313 2337 2361 2385 2409 2433 2457 2481 2505 2529 2553 2577 2601 2625 2649 2673 4095 4109 4123 4137 4151 4165 4179 4193 4207 4221 4235 4249 4263 4277 4291 4327 4341 4355 4369 4383 4397 4411 4425 4439 4453 4467 4481 4495 4509 4523 4600 5754 5769 5798 6115 6130 6174 6328 6342 6410 6426 6440 6457 6519 6587 6604 CAM 5001 CAME 1901 1922 1943 1964 1985 2006 2027 2048 2069 2090 2111 2132 2153 2174 2195 2720 2744 2768 2792 2816 2840 2864 2888 2912 2936 2960 2984 3008 3032 3056 3080 3104 3128 3147 3194 3218 3242 3266 3290 3314 3338 3362 3386 3410 3434 3458 3482 3506 3530 3554 3578 3602 3649 3673 3697 3721 3745 3769 3793 3817 3841 3865 3889 3913 3937 3961 3985 4009 4033 4057 4559 4576 4582 4606 4630 4655 4661 4678 4684 5523 5538 5783 6145 6159 6313 6357 6374 6380 6395 6533 6551 6673 6692 6713 6733 6750 6766 6830 6846 6861 6877 6892 6908 6924 6941 CAMN 6532 6550 DEFINE 9 48 56 84 252 255 261 335 346 END 7043 EXCH 4542 4558 4575 4599 4623 4624 4625 4626 4627 4628 4629 4648 4649 4650 4651 4652 4653 4654 HLLOS 6409 HRLI 1900 1921 1942 1963 1984 2005 2026 2047 2068 2089 2110 2131 2152 2173 2194 HRLM 6456 HRLOI 3646 3670 3694 3718 3742 3766 3790 3814 3838 3862 3886 3910 3934 3958 3982 4006 4030 4054 HRREM 6327 HRROI 3191 3215 3239 3263 3287 3311 3335 3359 3383 3407 3431 3455 3479 3503 3527 3551 3575 3599 HRRS 6472 HRRZM 6488 IFDEF 356 407 408 409 410 7034 7041 IFE 2260 2284 2308 2332 2356 2380 2404 2428 2452 2476 2500 2524 2548 2572 2596 2620 2644 2668 2715 2739 2763 2787 2811 2835 2859 2883 2907 2931 2955 2979 3003 3027 3051 3075 3099 3123 3189 3213 3237 3261 3285 3309 3333 3357 3381 3405 3429 3453 3477 3501 3525 3549 3573 3597 3644 3668 3692 3716 3740 3764 3788 3812 3836 3860 3884 3908 3932 3956 3980 4004 SEQ 0196 4028 4052 IFNDEF 307 308 318 407 408 409 410 489 6956 JCRY0 5626 5691 5728 5814 5851 6238 6275 JCRY1 5632 5685 5722 5820 5857 6244 6281 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 4700 4717 4718 4734 4735 4752 4753 4768 4784 4802 4819 4836 4854 4870 4883 4884 4900 4901 4917 4918 4933 4934 4947 4950 4965 4967 4982 4984 4998 5002 5017 5021 5036 5039 5052 5054 5068 5070 5088 5090 5105 5107 5122 5126 5128 5148 5150 5171 5173 5192 5194 5211 5213 5231 5233 5248 5250 5269 5273 5291 5295 5312 5315 5389 5410 5432 5453 5474 5624 5660 5662 5677 5714 5811 5848 5890 5892 5893 5910 5929 5934 5953 5972 5977 6235 6272 6502 JFOV 5645 5698 5735 5833 5870 6257 6294 JOV 5638 5679 5716 5826 5863 6250 6287 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 5089 5127 5149 5172 5193 5212 5232 5249 5270 5272 5292 5294 5314 5334 5368 5390 5411 5433 5454 5475 5505 5891 5911 5930 5935 5954 5973 5978 6707 6727 6746 6762 6789 6950 JSP 166 743 776 5335 5352 5369 5391 5412 5434 5455 5476 5489 5912 5936 5955 5979 JUMP 5069 JUMPA 825 840 854 869 945 963 981 999 1017 1035 1053 1071 1089 1107 1125 1143 1161 1179 1197 1215 1309 1328 1347 1366 1385 1404 1423 1442 1461 1480 1499 1518 1537 1556 1575 1611 1629 1647 1665 1683 1701 1719 1737 1755 1773 1791 1809 1827 1845 1863 1904 1925 1946 1967 1988 2009 2030 2051 2072 2093 2114 2135 2156 2177 2198 2221 2268 2292 2316 2340 2364 2388 2412 2436 2460 2484 2508 2532 2556 2580 2604 2628 2652 2676 2723 2747 2771 2795 2819 2843 2867 2891 2915 2939 2963 2987 3011 3035 3059 3083 3107 3131 3150 3197 3221 3245 3269 3293 3317 3341 3365 3389 3413 3437 3461 3485 3509 3533 3557 3581 3605 3652 3676 3700 3724 3748 3772 3796 3820 3844 3868 3892 3916 3940 3964 3988 4012 4036 4060 4098 4112 4126 4140 4154 4168 4182 4196 4210 4224 4238 4252 4266 4280 4294 4330 4344 4358 4372 4386 4400 4414 4428 4442 4456 4470 4484 4498 4512 4526 4546 4562 4579 4585 4603 4609 4633 4658 4664 4681 4687 4704 4722 4739 4757 4772 4788 4805 4822 4839 4857 4873 4888 4904 4921 4937 4954 4971 4988 5006 5025 5043 5058 5074 5094 5111 5131 5154 5177 5197 5216 5236 5254 5277 5299 5319 5340 5356 5373 5395 5416 5438 5459 5480 5492 5508 5526 5541 5555 5569 5582 5597 5612 5629 5635 5642 5649 5666 5682 5688 5695 5702 5719 5725 5732 5739 5757 5772 5786 5801 5817 5823 5830 5837 5854 5860 5867 5874 5897 5916 5940 5959 5983 6000 6015 6029 6042 6057 6072 6085 6100 6118 6133 6148 6162 6177 6225 6241 6247 6254 6261 6278 6284 6291 6298 6316 6331 6345 6360 6377 6383 6398 6413 6429 6443 6460 6476 6492 6506 6522 6536 6554 6574 6590 6607 6622 6633 6656 6676 6695 6716 6736 6753 6769 6833 6849 6864 6880 6895 6911 6927 6944 JUMPE 6026 6053 JUMPG 6082 6096 JUMPL 5997 6011 JUMPN 6039 6068 LALL 10 LIST 9 318 356 489 6956 7031 LIT 6957 LOC 26 359 683 703 707 710 715 733 738 SEQ 0197 MOVE 2217 2264 2288 2312 2336 2360 2384 2408 2432 2456 2480 2504 2528 2552 2576 2600 2624 2648 2672 2719 2743 2767 2791 2815 2839 2863 2887 2911 2935 2959 2983 3007 3031 3055 3079 3103 3127 3146 3193 3217 3241 3265 3289 3313 3337 3361 3385 3409 3433 3457 3481 3505 3529 3553 3577 3601 3648 3672 3696 3720 3744 3768 3792 3816 3840 3864 3888 3912 3936 3960 3984 4008 4032 4056 4620 4699 4715 4732 4800 4816 4834 4852 4898 4915 5106 5143 5536 5578 5592 6618 6651 6671 6689 6690 6711 6731 6749 6765 6829 6845 6860 6876 6891 6907 6923 6940 MOVEI 821 836 850 865 886 888 890 892 894 896 898 900 902 904 906 908 910 912 914 916 1235 1238 1241 1244 1247 1250 1253 1256 1259 1262 1265 1268 1271 1274 1277 1607 1625 1643 1661 1679 1697 1715 1733 1751 1769 1787 1805 1823 1841 1859 1899 1920 1941 1962 1983 2004 2025 2046 2067 2088 2109 2130 2151 2172 2193 2216 2262 2263 2286 2287 2310 2311 2334 2335 2358 2359 2382 2383 2406 2407 2430 2431 2454 2455 2478 2479 2502 2503 2526 2527 2550 2551 2574 2575 2598 2599 2622 2623 2646 2647 2670 2671 2718 2742 2766 2790 2814 2838 2862 2886 2910 2934 2958 2982 3006 3030 3054 3078 3102 3126 3145 3192 3216 3240 3264 3288 3312 3336 3360 3384 3408 3432 3456 3480 3504 3528 3552 3576 3600 3647 3671 3695 3719 3743 3767 3791 3815 3839 3863 3887 3911 3935 3959 3983 4007 4031 4055 4093 4094 4107 4108 4121 4122 4135 4136 4149 4150 4163 4164 4177 4178 4191 4192 4205 4206 4219 4220 4233 4234 4247 4248 4261 4262 4275 4276 4289 4290 4325 4326 4339 4340 4353 4354 4367 4368 4381 4382 4395 4396 4409 4410 4423 4424 4437 4438 4451 4452 4465 4466 4479 4480 4493 4494 4507 4508 4521 4522 4574 4597 5796 5812 6038 6052 6081 6172 6236 6326 6340 6570 6586 6602 6649 6669 6688 6710 6764 6778 6779 6780 6781 6782 6783 6784 6785 6786 6787 MOVEM 1236 1239 1242 1245 1248 1251 1254 1257 1260 1263 1266 1269 1272 1275 1278 4677 MOVM 5715 MOVN 5661 5678 MOVNI 5625 MOVSI 2717 2741 2765 2789 2813 2837 2861 2885 2909 2933 2957 2981 3005 3029 3053 3077 3101 3125 4573 4598 4750 4766 4782 4868 4931 5125 5147 5166 5170 5191 5210 5230 5247 5268 5290 5367 5388 5409 5431 5452 5473 5889 5909 5928 5933 5952 5971 5976 6095 6424 6487 MOVSM 6341 MOVSS 6425 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 PAGE 917 4300 4638 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 882 920 1230 1282 1585 1872 2230 2685 3159 3614 4079 4311 4621 4646 6189 SEQ 0198 SETAB 6549 SETO 4557 4645 4675 5018 5035 5607 5767 5849 5996 6128 6157 6273 6455 6470 6486 6548 SETOB 6311 6355 6371 6393 6438 6517 SETOM 745 752 778 2214 2261 2285 2309 2333 2357 2381 2405 2429 2453 2477 2501 2525 2549 2573 2597 2621 2645 2669 2716 2740 2764 2788 2812 2836 2860 2884 2908 2932 2956 2980 3004 3028 3052 3076 3100 3124 3144 6648 6670 6828 6859 6890 6922 SETZ 820 4541 4644 4676 4948 4964 4981 4999 5271 5293 5313 5351 5428 5449 5521 5550 5565 5752 5781 6010 6025 6067 6113 6143 6188 6454 6471 6501 6547 SETZB 5333 6531 6569 6585 6601 6617 SETZM 742 747 775 780 2215 3143 3190 3214 3238 3262 3286 3310 3334 3358 3382 3406 3430 3454 3478 3502 3526 3550 3574 3598 3645 3669 3693 3717 3741 3765 3789 3813 3837 3861 3885 3909 3933 3957 3981 4005 4029 4053 5366 5385 5406 6408 6650 6668 6687 6709 6730 6844 6875 6906 6939 6949 SIXBIT 77 78 574 575 583 584 SKIP 5053 SKIPA 4719 4736 4754 4769 4785 4885 4951 4968 4985 5003 5022 5040 5055 5071 5091 5108 5151 5174 5251 5274 5296 5316 5552 5594 5639 5646 5663 5692 5699 5729 5736 5827 5834 5864 5871 5894 6012 6054 6069 6097 6251 6258 6288 6295 6571 6630 SKIPE 748 762 768 2218 4543 5609 6222 6473 6489 6503 6619 6653 SKIPL 783 SKIPN 746 751 759 764 770 779 781 5336 SOJ 6144 6158 6173 6193 6196 6199 6202 6205 6208 6211 6214 6217 6220 6237 SOS 758 5782 5797 5813 SUBTTL 30 82 117 319 356 357 685 773 807 2204 4532 4669 4692 5079 5324 5497 5513 5617 5744 5879 5988 6105 6303 6559 6638 6774 6951 TITLE 14 TLNE 744 777 5477 5937 5980 TLNN 5370 5392 5413 5435 5456 5913 5956 TRNN 5353 TTCALL 784 VAR 7039 XCT 6570 6586 6602 6618 6630 XLIST 8 317 355 488 6955 XOR 5019 5020 XORM 6356 6518 XWD 4606 4751 4783 4869 4932 5523 5536 5538 5578 5592 5678 5715 6708 6729 6748 6763 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0199 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202 *030662 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *030663 CAIE 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *030665 JUMPA 0,030666 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030666 ---------- *030666 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *030667 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *030671 JUMPA 0,030672 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030672 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203 *030672 MOVEI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *030673 CAIE 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- *030675 JUMPA 0,030676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030676 ---------- *030676 MOVEI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *030677 CAIE 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- *030701 JUMPA 0,030702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030702 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204 *030702 MOVEI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030703 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *030704 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *030705 MOVEI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *030706 MOVEI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205 *030707 MOVEI 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *030710 MOVEI 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- *030711 MOVEI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *030712 MOVEI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *030713 MOVEI 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206 *030714 MOVEI 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *030715 MOVEI 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *030716 MOVEI 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *030717 MOVEI 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *030720 MOVEI 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207 *030721 MOVEI 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *030722 CAIE 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 ---------- *030724 JUMPA 0,030725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030725 ---------- *030725 CAIE 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *030727 JUMPA 0,030730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030730 ---------- *030730 CAIE 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208 *030732 JUMPA 0,030733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030733 ---------- *030733 CAIE 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 ---------- *030735 JUMPA 0,030736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030736 ---------- *030736 CAIE 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 ---------- *030740 JUMPA 0,030741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030741 ---------- *030741 CAIE 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 ---------- *030743 JUMPA 0,030744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030744 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209 *030744 CAIE 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 ---------- *030746 JUMPA 0,030747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030747 ---------- *030747 CAIE 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- *030751 JUMPA 0,030752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030752 ---------- *030752 CAIE 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 ---------- *030754 JUMPA 0,030755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030755 ---------- *030755 CAIE 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210 *030757 JUMPA 0,030760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030760 ---------- *030760 CAIE 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 ---------- *030762 JUMPA 0,030763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030763 ---------- *030763 CAIE 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- *030765 JUMPA 0,030766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030766 ---------- *030766 CAIE 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *030770 JUMPA 0,030771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030771 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211 *030771 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *030773 JUMPA 0,030774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030774 ---------- *030774 CAIE 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *030776 JUMPA 0,030777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030777 ---------- *030777 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031001 JUMPA 0,031002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031002 ---------- *031002 MOVEI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212 *031003 MOVEM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(E)= 000000 000001 ---------- *031004 MOVEI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031005 MOVEM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(E)= 000000 000002 ---------- *031006 MOVEI 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031007 MOVEM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 000000 000003 FINAL C(E)= 000000 000003 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213 *031010 MOVEI 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031011 MOVEM 0,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000000 000004 FINAL C(E)= 000000 000004 ---------- *031012 MOVEI 0,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *031013 MOVEM 0,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(E)= 000000 000005 FINAL C(E)= 000000 000005 ---------- *031014 MOVEI 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214 *031015 MOVEM 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 C(E)= 000000 000006 FINAL C(E)= 000000 000006 ---------- *031016 MOVEI 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *031017 MOVEM 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000007 FINAL C(E)= 000000 000007 ---------- *031020 MOVEI 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031021 MOVEM 0,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000000 000010 FINAL C(E)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215 *031022 MOVEI 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- *031023 MOVEM 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 C(E)= 000000 000011 FINAL C(E)= 000000 000011 ---------- *031024 MOVEI 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *031025 MOVEM 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 C(E)= 000000 000012 FINAL C(E)= 000000 000012 ---------- *031026 MOVEI 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216 *031027 MOVEM 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000000 000013 FINAL C(E)= 000000 000013 ---------- *031030 MOVEI 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *031031 MOVEM 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 C(E)= 000000 000014 FINAL C(E)= 000000 000014 ---------- *031032 MOVEI 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *031033 MOVEM 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 C(E)= 000000 000015 FINAL C(E)= 000000 000015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 *031034 MOVEI 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- *031035 MOVEM 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 C(E)= 000000 000016 FINAL C(E)= 000000 000016 ---------- *031036 MOVEI 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *031037 MOVEM 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000017 FINAL C(E)= 000000 000017 ---------- *031040 CAIE 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031043 ---------- *031043 CAIE 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *031045 JUMPA 0,031046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031046 ---------- *031046 CAIE 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 ---------- *031050 JUMPA 0,031051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031051 ---------- *031051 CAIE 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 ---------- *031053 JUMPA 0,031054 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031054 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 *031054 CAIE 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 ---------- *031056 JUMPA 0,031057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031057 ---------- *031057 CAIE 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 ---------- *031061 JUMPA 0,031062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031062 ---------- *031062 CAIE 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 ---------- *031064 JUMPA 0,031065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031065 ---------- *031065 CAIE 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 *031067 JUMPA 0,031070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031070 ---------- *031070 CAIE 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 ---------- *031072 JUMPA 0,031073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031073 ---------- *031073 CAIE 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 ---------- *031075 JUMPA 0,031076 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031076 ---------- *031076 CAIE 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 ---------- *031100 JUMPA 0,031101 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031101 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 *031101 CAIE 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- *031103 JUMPA 0,031104 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031104 ---------- *031104 CAIE 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *031106 JUMPA 0,031107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031107 ---------- *031107 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031111 JUMPA 0,031112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031112 ---------- *031112 CAIE 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 *031114 JUMPA 0,031115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031115 ---------- *031115 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031116 CAIE 1,000000(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031120 JUMPA 0,031121 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031121 ---------- *031121 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031122 CAIE 2,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 *031124 JUMPA 0,031125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031125 ---------- *031125 MOVEI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031126 CAIE 3,000000(3) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *031130 JUMPA 0,031131 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031131 ---------- *031131 MOVEI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031132 CAIE 4,000000(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 *031134 JUMPA 0,031135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031135 ---------- *031135 MOVEI 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *031136 CAIE 5,000000(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 ---------- *031140 JUMPA 0,031141 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031141 ---------- *031141 MOVEI 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- *031142 CAIE 6,000000(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *031144 JUMPA 0,031145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031145 ---------- *031145 MOVEI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *031146 CAIE 7,000000(7) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 ---------- *031150 JUMPA 0,031151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031151 ---------- *031151 MOVEI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031152 CAIE 10,000000(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *031154 JUMPA 0,031155 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031155 ---------- *031155 MOVEI 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- *031156 CAIE 11,000000(11) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 ---------- *031160 JUMPA 0,031161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031161 ---------- *031161 MOVEI 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *031162 CAIE 12,000000(12) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *031164 JUMPA 0,031165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031165 ---------- *031165 MOVEI 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *031166 CAIE 13,000000(13) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 ---------- *031170 JUMPA 0,031171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031171 ---------- *031171 MOVEI 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *031172 CAIE 14,000000(14) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *031174 JUMPA 0,031175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031175 ---------- *031175 MOVEI 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *031176 CAIE 15,000000(15) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 ---------- *031200 JUMPA 0,031201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031201 ---------- *031201 MOVEI 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- *031202 CAIE 16,000000(16) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *031204 JUMPA 0,031205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031205 ---------- *031205 MOVEI 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *031206 CAIE 17,000000(17) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 ---------- *031210 JUMPA 0,031211 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031211 ---------- *031211 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031212 HRLI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000001 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *031213 CAME 1,000000(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *031215 JUMPA 0,031216 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031216 ---------- *031216 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031217 HRLI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 FINAL C(AC)= 000002 000002 ---------- *031220 CAME 2,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 000002 000002 ---------- *031222 JUMPA 0,031223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031223 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *031223 MOVEI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031224 HRLI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000003 000003 ---------- *031225 CAME 3,000000(3) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000003 000003 C(E)= 000003 000003 ---------- *031227 JUMPA 0,031230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031230 ---------- *031230 MOVEI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031231 HRLI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 FINAL C(AC)= 000004 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *031232 CAME 4,000000(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 C(E)= 000004 000004 ---------- *031234 JUMPA 0,031235 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031235 ---------- *031235 MOVEI 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *031236 HRLI 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 FINAL C(AC)= 000005 000005 ---------- *031237 CAME 5,000000(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000005 000005 C(E)= 000005 000005 ---------- *031241 JUMPA 0,031242 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031242 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *031242 MOVEI 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- *031243 HRLI 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 FINAL C(AC)= 000006 000006 ---------- *031244 CAME 6,000000(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 000006 C(E)= 000006 000006 ---------- *031246 JUMPA 0,031247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031247 ---------- *031247 MOVEI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *031250 HRLI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 FINAL C(AC)= 000007 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *031251 CAME 7,000000(7) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000007 000007 C(E)= 000007 000007 ---------- *031253 JUMPA 0,031254 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031254 ---------- *031254 MOVEI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031255 HRLI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 FINAL C(AC)= 000010 000010 ---------- *031256 CAME 10,000000(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000010 C(E)= 000010 000010 ---------- *031260 JUMPA 0,031261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031261 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *031261 MOVEI 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- *031262 HRLI 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 FINAL C(AC)= 000011 000011 ---------- *031263 CAME 11,000000(11) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000011 000011 C(E)= 000011 000011 ---------- *031265 JUMPA 0,031266 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031266 ---------- *031266 MOVEI 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *031267 HRLI 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 FINAL C(AC)= 000012 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *031270 CAME 12,000000(12) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000012 000012 C(E)= 000012 000012 ---------- *031272 JUMPA 0,031273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031273 ---------- *031273 MOVEI 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *031274 HRLI 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 FINAL C(AC)= 000013 000013 ---------- *031275 CAME 13,000000(13) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000013 000013 C(E)= 000013 000013 ---------- *031277 JUMPA 0,031300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031300 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *031300 MOVEI 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *031301 HRLI 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 FINAL C(AC)= 000014 000014 ---------- *031302 CAME 14,000000(14) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000014 000014 C(E)= 000014 000014 ---------- *031304 JUMPA 0,031305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031305 ---------- *031305 MOVEI 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *031306 HRLI 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 FINAL C(AC)= 000015 000015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031307 CAME 15,000000(15) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000015 000015 C(E)= 000015 000015 ---------- *031311 JUMPA 0,031312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031312 ---------- *031312 MOVEI 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- *031313 HRLI 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 FINAL C(AC)= 000016 000016 ---------- *031314 CAME 16,000000(16) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000016 000016 C(E)= 000016 000016 ---------- *031316 JUMPA 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031317 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031317 MOVEI 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *031320 HRLI 17,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 FINAL C(AC)= 000017 000017 ---------- *031321 CAME 17,000000(17) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000017 000017 C(E)= 000017 000017 ---------- *031323 JUMPA 0,031324 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031324 ---------- *031324 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000003 000003 FINAL C(E)= 777777 777777 ---------- *031325 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000001 000001 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031326 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031327 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031330 SKIPE 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000000 FINAL C(AC)= 000000 000017 ---------- *031332 JUMPA 0,031333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031333 ---------- *031333 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031334 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031335 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031336 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031337 CAIE 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031341 JUMPA 0,031342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031342 ---------- *031342 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000001 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031343 MOVEI 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031344 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031345 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031346 CAIE 3,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031350 JUMPA 0,031351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031351 ---------- *031351 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000002 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *031352 MOVEI 1,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031353 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031354 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *031355 CAIE 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- *031357 JUMPA 0,031360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031360 ---------- *031360 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000004 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *031361 MOVEI 1,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031362 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031363 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031364 CAIE 3,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- *031366 JUMPA 0,031367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031367 ---------- *031367 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000010 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *031370 MOVEI 1,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031371 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031372 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000020 FINAL C(AC)= 000000 000020 ---------- *031373 CAIE 3,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 000020 ---------- *031375 JUMPA 0,031376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031376 ---------- *031376 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000020 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *031377 MOVEI 1,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031400 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031401 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000040 FINAL C(AC)= 000000 000040 ---------- *031402 CAIE 3,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 000040 ---------- *031404 JUMPA 0,031405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031405 ---------- *031405 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000040 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *031406 MOVEI 1,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031407 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031410 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031411 CAIE 3,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 000100 ---------- *031413 JUMPA 0,031414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031414 ---------- *031414 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000100 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *031415 MOVEI 1,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031416 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031417 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000200 FINAL C(AC)= 000000 000200 ---------- *031420 CAIE 3,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 000200 ---------- *031422 JUMPA 0,031423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031423 ---------- *031423 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000200 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *031424 MOVEI 1,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031425 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031426 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000400 FINAL C(AC)= 000000 000400 ---------- *031427 CAIE 3,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 000400 ---------- *031431 JUMPA 0,031432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031432 ---------- *031432 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 000400 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *031433 MOVEI 1,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031434 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031435 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 001000 FINAL C(AC)= 000000 001000 ---------- *031436 CAIE 3,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 001000 ---------- *031440 JUMPA 0,031441 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031441 ---------- *031441 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 001000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *031442 MOVEI 1,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031443 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031444 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 002000 FINAL C(AC)= 000000 002000 ---------- *031445 CAIE 3,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 002000 ---------- *031447 JUMPA 0,031450 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031450 ---------- *031450 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 002000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *031451 MOVEI 1,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031452 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031453 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 004000 FINAL C(AC)= 000000 004000 ---------- *031454 CAIE 3,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 004000 ---------- *031456 JUMPA 0,031457 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031457 ---------- *031457 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 004000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *031460 MOVEI 1,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031461 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031462 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 010000 FINAL C(AC)= 000000 010000 ---------- *031463 CAIE 3,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 010000 ---------- *031465 JUMPA 0,031466 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031466 ---------- *031466 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 010000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *031467 MOVEI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031470 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031471 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 020000 FINAL C(AC)= 000000 020000 ---------- *031472 CAIE 3,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 020000 ---------- *031474 JUMPA 0,031475 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031475 ---------- *031475 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 020000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *031476 MOVEI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031477 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031500 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 040000 FINAL C(AC)= 000000 040000 ---------- *031501 CAIE 3,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 040000 ---------- *031503 JUMPA 0,031504 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031504 ---------- *031504 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 040000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *031505 MOVEI 1,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031506 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031507 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 100000 FINAL C(AC)= 000000 100000 ---------- *031510 CAIE 3,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 100000 ---------- *031512 JUMPA 0,031513 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031513 ---------- *031513 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 100000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *031514 MOVEI 1,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031515 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031516 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 200000 FINAL C(AC)= 000000 200000 ---------- *031517 CAIE 3,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 200000 ---------- *031521 JUMPA 0,031522 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031522 ---------- *031522 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 200000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *031523 MOVEI 1,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031524 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031525 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 400000 FINAL C(AC)= 000000 400000 ---------- *031526 CAIE 3,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 400000 ---------- *031530 JUMPA 0,031531 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031531 ---------- *031531 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000000 400000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *031532 MOVSI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *031533 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031534 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000001 000000 FINAL C(AC)= 000001 000000 ---------- *031535 CAME 3,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *031537 JUMPA 0,031540 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031540 ---------- *031540 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000001 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *031541 MOVSI 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 000002 FINAL C(AC)= 000002 000000 ---------- *031542 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031543 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000002 000000 FINAL C(AC)= 000002 000000 ---------- *031544 CAME 3,034363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 000002 000000 ---------- *031546 JUMPA 0,031547 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031547 ---------- *031547 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000002 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *031550 MOVSI 1,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 000004 FINAL C(AC)= 000004 000000 ---------- *031551 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031552 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000004 000000 FINAL C(AC)= 000004 000000 ---------- *031553 CAME 3,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 000004 000000 ---------- *031555 JUMPA 0,031556 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031556 ---------- *031556 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000004 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *031557 MOVSI 1,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 000010 FINAL C(AC)= 000010 000000 ---------- *031560 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031561 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000010 000000 FINAL C(AC)= 000010 000000 ---------- *031562 CAME 3,034365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 000010 000000 ---------- *031564 JUMPA 0,031565 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031565 ---------- *031565 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000010 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *031566 MOVSI 1,000020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 000020 FINAL C(AC)= 000020 000000 ---------- *031567 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031570 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000020 000000 FINAL C(AC)= 000020 000000 ---------- *031571 CAME 3,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 000020 000000 ---------- *031573 JUMPA 0,031574 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031574 ---------- *031574 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000020 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *031575 MOVSI 1,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 000040 FINAL C(AC)= 000040 000000 ---------- *031576 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031577 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000040 000000 FINAL C(AC)= 000040 000000 ---------- *031600 CAME 3,034367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 000040 000000 ---------- *031602 JUMPA 0,031603 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031603 ---------- *031603 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000040 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *031604 MOVSI 1,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *031605 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031606 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000100 000000 FINAL C(AC)= 000100 000000 ---------- *031607 CAME 3,034370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000100 000000 ---------- *031611 JUMPA 0,031612 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031612 ---------- *031612 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000100 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *031613 MOVSI 1,000200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 000200 FINAL C(AC)= 000200 000000 ---------- *031614 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031615 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000200 000000 FINAL C(AC)= 000200 000000 ---------- *031616 CAME 3,034371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 000200 000000 ---------- *031620 JUMPA 0,031621 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031621 ---------- *031621 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000200 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *031622 MOVSI 1,000400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 000400 FINAL C(AC)= 000400 000000 ---------- *031623 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031624 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000400 000000 FINAL C(AC)= 000400 000000 ---------- *031625 CAME 3,034372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 000400 000000 ---------- *031627 JUMPA 0,031630 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031630 ---------- *031630 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000400 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *031631 MOVSI 1,001000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 001000 FINAL C(AC)= 001000 000000 ---------- *031632 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031633 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 001000 000000 FINAL C(AC)= 001000 000000 ---------- *031634 CAME 3,034373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 001000 000000 ---------- *031636 JUMPA 0,031637 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031637 ---------- *031637 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 001000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *031640 MOVSI 1,002000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 002000 FINAL C(AC)= 002000 000000 ---------- *031641 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031642 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 002000 000000 FINAL C(AC)= 002000 000000 ---------- *031643 CAME 3,034374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 002000 000000 ---------- *031645 JUMPA 0,031646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031646 ---------- *031646 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 002000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *031647 MOVSI 1,004000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 004000 FINAL C(AC)= 004000 000000 ---------- *031650 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031651 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 004000 000000 FINAL C(AC)= 004000 000000 ---------- *031652 CAME 3,034375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 004000 000000 ---------- *031654 JUMPA 0,031655 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031655 ---------- *031655 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 004000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *031656 MOVSI 1,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 010000 FINAL C(AC)= 010000 000000 ---------- *031657 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031660 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 010000 000000 FINAL C(AC)= 010000 000000 ---------- *031661 CAME 3,034376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 010000 000000 ---------- *031663 JUMPA 0,031664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031664 ---------- *031664 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 010000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *031665 MOVSI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031666 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031667 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 020000 000000 FINAL C(AC)= 020000 000000 ---------- *031670 CAME 3,034377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 020000 000000 ---------- *031672 JUMPA 0,031673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031673 ---------- *031673 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 020000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *031674 MOVSI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *031675 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031676 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 040000 000000 FINAL C(AC)= 040000 000000 ---------- *031677 CAME 3,034400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 040000 000000 ---------- *031701 JUMPA 0,031702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031702 ---------- *031702 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 040000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *031703 MOVSI 1,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *031704 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031705 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 100000 000000 FINAL C(AC)= 100000 000000 ---------- *031706 CAME 3,034401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 100000 000000 ---------- *031710 JUMPA 0,031711 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031711 ---------- *031711 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 100000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *031712 MOVSI 1,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *031713 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031714 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *031715 CAME 3,034402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 ---------- *031717 JUMPA 0,031720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031720 ---------- *031720 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 200000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *031721 MOVSI 1,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *031722 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031723 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *031724 CAME 3,034403 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 ---------- *031726 JUMPA 0,031727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031727 ---------- *031727 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 400000 000000 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *031730 SETOM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 400000 000000 FINAL C(E)= 777777 777777 ---------- *031731 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031732 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031733 CAME 3,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031735 JUMPA 0,031736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031736 ---------- *031736 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *031737 HRROI 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *031740 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031741 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *031742 CAME 3,034405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *031744 JUMPA 0,031745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031745 ---------- *031745 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777776 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *031746 HRROI 1,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 777775 FINAL C(AC)= 777777 777775 ---------- *031747 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031750 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 777777 777775 ---------- *031751 CAME 3,034406 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 ---------- *031753 JUMPA 0,031754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031754 ---------- *031754 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777775 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *031755 HRROI 1,777773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777773 FINAL C(AC)= 777777 777773 ---------- *031756 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031757 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 777777 777773 ---------- *031760 CAME 3,034407 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 777777 777773 ---------- *031762 JUMPA 0,031763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031763 ---------- *031763 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777773 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *031764 HRROI 1,777767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777767 FINAL C(AC)= 777777 777767 ---------- *031765 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031766 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 777777 777767 ---------- *031767 CAME 3,034410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(E)= 777777 777767 ---------- *031771 JUMPA 0,031772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 031772 ---------- *031772 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777767 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *031773 HRROI 1,777757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 777757 FINAL C(AC)= 777777 777757 ---------- *031774 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031775 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 777777 777757 ---------- *031776 CAME 3,034411 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(E)= 777777 777757 ---------- *032000 JUMPA 0,032001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032001 ---------- *032001 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777757 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *032002 HRROI 1,777737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 E= 000000 777737 FINAL C(AC)= 777777 777737 ---------- *032003 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032004 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 777777 777737 ---------- *032005 CAME 3,034412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(E)= 777777 777737 ---------- *032007 JUMPA 0,032010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032010 ---------- *032010 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777737 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *032011 HRROI 1,777677 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 E= 000000 777677 FINAL C(AC)= 777777 777677 ---------- *032012 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032013 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 777777 777677 ---------- *032014 CAME 3,034413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(E)= 777777 777677 ---------- *032016 JUMPA 0,032017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032017 ---------- *032017 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777677 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *032020 HRROI 1,777577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 E= 000000 777577 FINAL C(AC)= 777777 777577 ---------- *032021 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032022 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 777777 777577 ---------- *032023 CAME 3,034414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(E)= 777777 777577 ---------- *032025 JUMPA 0,032026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032026 ---------- *032026 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777577 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *032027 HRROI 1,777377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 E= 000000 777377 FINAL C(AC)= 777777 777377 ---------- *032030 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032031 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 777777 777377 ---------- *032032 CAME 3,034415 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(E)= 777777 777377 ---------- *032034 JUMPA 0,032035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032035 ---------- *032035 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 777377 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *032036 HRROI 1,776777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 E= 000000 776777 FINAL C(AC)= 777777 776777 ---------- *032037 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032040 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 777777 776777 ---------- *032041 CAME 3,034416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 777777 776777 ---------- *032043 JUMPA 0,032044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032044 ---------- *032044 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 776777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *032045 HRROI 1,775777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 E= 000000 775777 FINAL C(AC)= 777777 775777 ---------- *032046 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032047 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 777777 775777 ---------- *032050 CAME 3,034417 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(E)= 777777 775777 ---------- *032052 JUMPA 0,032053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032053 ---------- *032053 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 775777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *032054 HRROI 1,773777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 E= 000000 773777 FINAL C(AC)= 777777 773777 ---------- *032055 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032056 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 777777 773777 ---------- *032057 CAME 3,034420 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(E)= 777777 773777 ---------- *032061 JUMPA 0,032062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032062 ---------- *032062 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 773777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *032063 HRROI 1,767777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 E= 000000 767777 FINAL C(AC)= 777777 767777 ---------- *032064 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032065 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 777777 767777 ---------- *032066 CAME 3,034421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(E)= 777777 767777 ---------- *032070 JUMPA 0,032071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032071 ---------- *032071 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 767777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *032072 HRROI 1,757777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 E= 000000 757777 FINAL C(AC)= 777777 757777 ---------- *032073 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032074 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 777777 757777 ---------- *032075 CAME 3,034422 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(E)= 777777 757777 ---------- *032077 JUMPA 0,032100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032100 ---------- *032100 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 757777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *032101 HRROI 1,737777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 E= 000000 737777 FINAL C(AC)= 777777 737777 ---------- *032102 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032103 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 777777 737777 ---------- *032104 CAME 3,034423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(E)= 777777 737777 ---------- *032106 JUMPA 0,032107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032107 ---------- *032107 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 737777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *032110 HRROI 1,677777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 E= 000000 677777 FINAL C(AC)= 777777 677777 ---------- *032111 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032112 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 777777 677777 ---------- *032113 CAME 3,034424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(E)= 777777 677777 ---------- *032115 JUMPA 0,032116 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032116 ---------- *032116 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 677777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *032117 HRROI 1,577777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 E= 000000 577777 FINAL C(AC)= 777777 577777 ---------- *032120 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032121 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 777777 577777 ---------- *032122 CAME 3,034425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(E)= 777777 577777 ---------- *032124 JUMPA 0,032125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032125 ---------- *032125 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 577777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *032126 HRROI 1,377777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 E= 000000 377777 FINAL C(AC)= 777777 377777 ---------- *032127 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032130 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 777777 377777 ---------- *032131 CAME 3,034426 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(E)= 777777 377777 ---------- *032133 JUMPA 0,032134 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032134 ---------- *032134 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777777 377777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *032135 HRLOI 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 E= 000000 777776 FINAL C(AC)= 777776 777777 ---------- *032136 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032137 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 777776 777777 ---------- *032140 CAME 3,034427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(E)= 777776 777777 ---------- *032142 JUMPA 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032143 ---------- *032143 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777776 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *032144 HRLOI 1,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 777775 FINAL C(AC)= 777775 777777 ---------- *032145 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032146 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 777775 777777 ---------- *032147 CAME 3,034430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(E)= 777775 777777 ---------- *032151 JUMPA 0,032152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032152 ---------- *032152 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777775 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *032153 HRLOI 1,777773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 E= 000000 777773 FINAL C(AC)= 777773 777777 ---------- *032154 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032155 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 777773 777777 ---------- *032156 CAME 3,034431 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(E)= 777773 777777 ---------- *032160 JUMPA 0,032161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032161 ---------- *032161 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777773 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *032162 HRLOI 1,777767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 E= 000000 777767 FINAL C(AC)= 777767 777777 ---------- *032163 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032164 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 777767 777777 ---------- *032165 CAME 3,034432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(E)= 777767 777777 ---------- *032167 JUMPA 0,032170 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032170 ---------- *032170 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777767 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *032171 HRLOI 1,777757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 E= 000000 777757 FINAL C(AC)= 777757 777777 ---------- *032172 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032173 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 777757 777777 ---------- *032174 CAME 3,034433 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(E)= 777757 777777 ---------- *032176 JUMPA 0,032177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032177 ---------- *032177 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777757 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *032200 HRLOI 1,777737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 E= 000000 777737 FINAL C(AC)= 777737 777777 ---------- *032201 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032202 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 777737 777777 ---------- *032203 CAME 3,034434 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(E)= 777737 777777 ---------- *032205 JUMPA 0,032206 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032206 ---------- *032206 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777737 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *032207 HRLOI 1,777677 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 E= 000000 777677 FINAL C(AC)= 777677 777777 ---------- *032210 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032211 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 777677 777777 ---------- *032212 CAME 3,034435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(E)= 777677 777777 ---------- *032214 JUMPA 0,032215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032215 ---------- *032215 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777677 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *032216 HRLOI 1,777577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 E= 000000 777577 FINAL C(AC)= 777577 777777 ---------- *032217 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032220 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 777577 777777 ---------- *032221 CAME 3,034436 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(E)= 777577 777777 ---------- *032223 JUMPA 0,032224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032224 ---------- *032224 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777577 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *032225 HRLOI 1,777377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 E= 000000 777377 FINAL C(AC)= 777377 777777 ---------- *032226 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032227 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 777377 777777 ---------- *032230 CAME 3,034437 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(E)= 777377 777777 ---------- *032232 JUMPA 0,032233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032233 ---------- *032233 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 777377 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *032234 HRLOI 1,776777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 E= 000000 776777 FINAL C(AC)= 776777 777777 ---------- *032235 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032236 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 776777 777777 ---------- *032237 CAME 3,034440 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(E)= 776777 777777 ---------- *032241 JUMPA 0,032242 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032242 ---------- *032242 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 776777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *032243 HRLOI 1,775777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 E= 000000 775777 FINAL C(AC)= 775777 777777 ---------- *032244 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032245 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 775777 777777 ---------- *032246 CAME 3,034441 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(E)= 775777 777777 ---------- *032250 JUMPA 0,032251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032251 ---------- *032251 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 775777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *032252 HRLOI 1,773777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 E= 000000 773777 FINAL C(AC)= 773777 777777 ---------- *032253 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032254 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 773777 777777 ---------- *032255 CAME 3,034442 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(E)= 773777 777777 ---------- *032257 JUMPA 0,032260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032260 ---------- *032260 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 773777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *032261 HRLOI 1,767777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 E= 000000 767777 FINAL C(AC)= 767777 777777 ---------- *032262 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032263 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 767777 777777 ---------- *032264 CAME 3,034443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(E)= 767777 777777 ---------- *032266 JUMPA 0,032267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032267 ---------- *032267 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 767777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *032270 HRLOI 1,757777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 E= 000000 757777 FINAL C(AC)= 757777 777777 ---------- *032271 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032272 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 757777 777777 ---------- *032273 CAME 3,034444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(E)= 757777 777777 ---------- *032275 JUMPA 0,032276 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032276 ---------- *032276 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 757777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *032277 HRLOI 1,737777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 E= 000000 737777 FINAL C(AC)= 737777 777777 ---------- *032300 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032301 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 737777 777777 ---------- *032302 CAME 3,034445 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(E)= 737777 777777 ---------- *032304 JUMPA 0,032305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032305 ---------- *032305 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 737777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *032306 HRLOI 1,677777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 E= 000000 677777 FINAL C(AC)= 677777 777777 ---------- *032307 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032310 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 677777 777777 ---------- *032311 CAME 3,034446 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(E)= 677777 777777 ---------- *032313 JUMPA 0,032314 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032314 ---------- *032314 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 677777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *032315 HRLOI 1,577777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 577777 FINAL C(AC)= 577777 777777 ---------- *032316 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032317 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 577777 777777 ---------- *032320 CAME 3,034447 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(E)= 577777 777777 ---------- *032322 JUMPA 0,032323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032323 ---------- *032323 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 577777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *032324 HRLOI 1,377777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 377777 FINAL C(AC)= 377777 777777 ---------- *032325 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032326 MOVE 3,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *032327 CAME 3,034450 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 ---------- *032331 JUMPA 0,032332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 032332 ---------- *032332 MOVEI 1,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *032333 MOVEI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032334 CAIE 0,777773(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032336 JUMPA 0,032337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032337 ---------- *032337 MOVEI 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *032340 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032341 CAIE 1,777776(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *032343 JUMPA 0,032344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032344 ---------- *032344 MOVEI 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032345 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032346 CAIE 2,000001(3) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *032350 JUMPA 0,032351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032351 ---------- *032351 MOVEI 4,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *032352 MOVEI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *032353 CAIE 3,000004(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *032355 JUMPA 0,032356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032356 ---------- *032356 MOVEI 5,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000005 000005 E= 000000 777775 FINAL C(AC)= 000000 777775 ---------- *032357 MOVEI 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032360 CAIE 4,000007(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *032362 JUMPA 0,032363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032363 ---------- *032363 MOVEI 6,777773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 000006 E= 000000 777773 FINAL C(AC)= 000000 777773 ---------- *032364 MOVEI 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777775 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *032365 CAIE 5,000012(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 ---------- *032367 JUMPA 0,032370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032370 ---------- *032370 MOVEI 7,777771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000007 000007 E= 000000 777771 FINAL C(AC)= 000000 777771 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *032371 MOVEI 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777773 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- *032372 CAIE 6,000015(7) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 ---------- *032374 JUMPA 0,032375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032375 ---------- *032375 MOVEI 10,777767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000010 E= 000000 777767 FINAL C(AC)= 000000 777767 ---------- *032376 MOVEI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777771 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *032377 CAIE 7,000020(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *032401 JUMPA 0,032402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032402 ---------- *032402 MOVEI 11,777765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000011 000011 E= 000000 777765 FINAL C(AC)= 000000 777765 ---------- *032403 MOVEI 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777767 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032404 CAIE 10,000023(11) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- *032406 JUMPA 0,032407 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032407 ---------- *032407 MOVEI 12,777763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000012 000012 E= 000000 777763 FINAL C(AC)= 000000 777763 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *032410 MOVEI 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777765 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- *032411 CAIE 11,000026(12) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 ---------- *032413 JUMPA 0,032414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032414 ---------- *032414 MOVEI 13,777761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000013 000013 E= 000000 777761 FINAL C(AC)= 000000 777761 ---------- *032415 MOVEI 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777763 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *032416 CAIE 12,000031(13) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *032420 JUMPA 0,032421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032421 ---------- *032421 MOVEI 14,777757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000014 000014 E= 000000 777757 FINAL C(AC)= 000000 777757 ---------- *032422 MOVEI 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777761 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *032423 CAIE 13,000034(14) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 ---------- *032425 JUMPA 0,032426 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032426 ---------- *032426 MOVEI 15,777755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000015 000015 E= 000000 777755 FINAL C(AC)= 000000 777755 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *032427 MOVEI 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777757 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *032430 CAIE 14,000037(15) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 ---------- *032432 JUMPA 0,032433 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032433 ---------- *032433 MOVEI 16,777753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000016 000016 E= 000000 777753 FINAL C(AC)= 000000 777753 ---------- *032434 MOVEI 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777755 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *032435 CAIE 15,000042(16) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *032437 JUMPA 0,032440 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032440 ---------- *032440 MOVEI 17,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000017 000017 E= 000000 777751 FINAL C(AC)= 000000 777751 ---------- *032441 MOVEI 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777753 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- *032442 CAIE 16,000045(17) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *032444 JUMPA 0,032445 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032445 ---------- *032445 MOVEI 1,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *032446 MOVEI 0,777765(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032447 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032451 JUMPA 0,032452 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032452 ---------- *032452 MOVEI 2,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *032453 MOVEI 1,777772(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032454 CAIE 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *032456 JUMPA 0,032457 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032457 ---------- *032457 MOVEI 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *032460 MOVEI 2,777777(3) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032461 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *032463 JUMPA 0,032464 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032464 ---------- *032464 MOVEI 4,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *032465 MOVEI 3,000004(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *032466 CAIE 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *032470 JUMPA 0,032471 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032471 ---------- *032471 MOVEI 5,777773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 777773 FINAL C(AC)= 000000 777773 ---------- *032472 MOVEI 4,000011(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- *032473 CAIE 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *032475 JUMPA 0,032476 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032476 ---------- *032476 MOVEI 6,777767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 777767 FINAL C(AC)= 000000 777767 ---------- *032477 MOVEI 5,000016(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777773 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *032500 CAIE 5,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000005 ---------- *032502 JUMPA 0,032503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032503 ---------- *032503 MOVEI 7,777763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 777763 FINAL C(AC)= 000000 777763 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *032504 MOVEI 6,000023(7) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777767 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- *032505 CAIE 6,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000006 ---------- *032507 JUMPA 0,032510 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032510 ---------- *032510 MOVEI 10,777757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777757 FINAL C(AC)= 000000 777757 ---------- *032511 MOVEI 7,000030(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777763 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *032512 CAIE 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *032514 JUMPA 0,032515 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032515 ---------- *032515 MOVEI 11,777753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 777753 FINAL C(AC)= 000000 777753 ---------- *032516 MOVEI 10,000035(11) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777757 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *032517 CAIE 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000010 ---------- *032521 JUMPA 0,032522 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032522 ---------- *032522 MOVEI 12,777747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 777747 FINAL C(AC)= 000000 777747 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *032523 MOVEI 11,000042(12) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777753 E= 000000 000011 FINAL C(AC)= 000000 000011 ---------- *032524 CAIE 11,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 000011 ---------- *032526 JUMPA 0,032527 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032527 ---------- *032527 MOVEI 13,777743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 777743 FINAL C(AC)= 000000 777743 ---------- *032530 MOVEI 12,000047(13) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777747 E= 000000 000012 FINAL C(AC)= 000000 000012 ---------- *032531 CAIE 12,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *032533 JUMPA 0,032534 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032534 ---------- *032534 MOVEI 14,777737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 777737 FINAL C(AC)= 000000 777737 ---------- *032535 MOVEI 13,000054(14) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777743 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *032536 CAIE 13,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000013 ---------- *032540 JUMPA 0,032541 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032541 ---------- *032541 MOVEI 15,777733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 777733 FINAL C(AC)= 000000 777733 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *032542 MOVEI 14,000061(15) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777737 E= 000000 000014 FINAL C(AC)= 000000 000014 ---------- *032543 CAIE 14,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 E= 000000 000014 ---------- *032545 JUMPA 0,032546 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032546 ---------- *032546 MOVEI 16,777727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 777727 FINAL C(AC)= 000000 777727 ---------- *032547 MOVEI 15,000066(16) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777733 E= 000000 000015 FINAL C(AC)= 000000 000015 ---------- *032550 CAIE 15,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 E= 000000 000015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *032552 JUMPA 0,032553 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032553 ---------- *032553 MOVEI 17,777723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777751 E= 000000 777723 FINAL C(AC)= 000000 777723 ---------- *032554 MOVEI 16,000073(17) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777727 E= 000000 000016 FINAL C(AC)= 000000 000016 ---------- *032555 CAIE 16,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *032557 JUMPA 0,032560 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032560 ---------- *032560 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *032561 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032562 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032564 JUMPA 0,032565 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032565 ---------- *032565 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032566 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *032567 CAME 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032571 JUMPA 0,032572 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032572 ---------- *032572 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032573 MOVEI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *032574 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 C(E)= 777777 000000 ---------- *032575 CAME 1,034451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *032577 JUMPA 0,032600 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032600 ---------- *032600 CAME 0,034452 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 777777 ---------- *032602 JUMPA 0,032603 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 032603 ---------- *032603 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *032604 MOVSI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *032605 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 C(E)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *032606 CAIE 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *032610 JUMPA 0,032611 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032611 ---------- *032611 CAME 0,034451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032613 JUMPA 0,032614 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 032614 ---------- *032614 MOVE 0,034453 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *032615 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *032616 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032617 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032620 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032621 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032622 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *032623 EXCH 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032624 CAME 0,034453 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *032626 JUMPA 0,032627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 032627 ---------- *032627 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 000000 000000 ---------- *032630 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032631 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *032632 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *032633 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *032634 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *032635 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *032636 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *032637 EXCH 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *032640 CAME 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032642 JUMPA 0,032643 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032643 ---------- *032643 CAME 1,034454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032645 JUMPA 0,032646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032646 ---------- *032646 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *032647 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032650 MOVEM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *032651 CAME 1,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032653 JUMPA 0,032654 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032654 ---------- *032654 CAME 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032656 JUMPA 0,032657 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032657 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *032657 MOVE 0,034455 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 254200 032662 FINAL C(AC)= 254200 032662 ---------- *032660 JFCL 17,032661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032661 ---------- *032661 CAIA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 032662 E= 000000 000000 ---------- *032663 JUMPA 0,032664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 032662 E= 000000 032664 ---------- *032664 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 032662 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032665 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *032666 JFCL 17,032667 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 032667 ---------- *032667 JFCL 4,032671 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032671 ---------- *032670 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032672 JUMPA 0,032673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032673 ---------- *032673 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032674 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *032675 JFCL 17,032676 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 032676 ---------- *032676 JFCL 2,032700 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032700 ---------- *032677 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032701 JUMPA 0,032702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032702 ---------- *032702 MOVSI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *032703 ADD 0,034403 FLAGS - INT/FINAL 000000 600200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *032704 JFCL 17,032705 FLAGS - INT/FINAL 600200 600200 INITIAL C(AC)= 000000 000000 ---------- *032704 JFCL 0,000000 FLAGS - INT/FINAL 600200 600000 INITIAL E= 000000 000000 ---------- *032704 JFCL 17,032705 FLAGS - INT/FINAL 600000 000000 INITIAL E= 000000 032705 ---------- *032705 JFCL 10,032707 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032707 ---------- *032706 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032710 JUMPA 0,032711 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032711 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *032711 MOVSI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *032712 ADD 0,034404 FLAGS - INT/FINAL 000000 600200 INITIAL C(AC)= 400000 000000 C(E)= 777777 777777 FINAL C(AC)= 377777 777777 ---------- *032713 JFCL 0,032715 FLAGS - INT/FINAL 600200 600200 INITIAL C(AC)= 377777 777777 ---------- *032713 JFCL 0,000000 FLAGS - INT/FINAL 600200 600000 INITIAL E= 000000 000000 ---------- *032713 JFCL 0,032715 FLAGS - INT/FINAL 600000 600000 INITIAL E= 000000 032715 ---------- *032714 SKIPA 0,000000 FLAGS - INT/FINAL 600000 600000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *032716 JUMPA 0,032717 FLAGS - INT/FINAL 600000 600000 INITIAL C(AC)= 377777 777777 E= 000000 032717 ---------- *032717 MOVSI 0,200000 FLAGS - INT/FINAL 600000 600000 INITIAL C(AC)= 377777 777777 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *032720 ADD 0,034402 FLAGS - INT/FINAL 600000 700200 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 400000 000000 ---------- *032721 JFCL 0,032723 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 400000 000000 ---------- *032721 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- *032721 JFCL 0,032723 FLAGS - INT/FINAL 700000 700000 INITIAL E= 000000 032723 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *032722 SKIPA 0,000000 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *032724 JUMPA 0,032725 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 E= 000000 032725 ---------- *032725 MOVE 0,034404 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 400000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032726 ADDI 0,000001 FLAGS - INT/FINAL 700000 700000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032727 JFCL 17,032731 FLAGS - INT/FINAL 700000 000000 INITIAL E= 000000 032731 ---------- *032731 JUMPA 0,032732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032732 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *032732 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032733 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032734 CAI 17,000017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777723 E= 000000 000017 ---------- *032735 JFCL 17,032737 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 032737 ---------- *032737 JUMPA 0,032740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032740 ---------- *032740 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *032741 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032742 JFCL 2,032744 FLAGS - INT/FINAL 300000 200000 INITIAL E= 000000 032744 ---------- *032744 JUMPA 0,032745 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 032745 ---------- *032745 MOVE 0,034404 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032746 ADDI 0,000001 FLAGS - INT/FINAL 200000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032747 JFCL 4,032751 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 032751 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *032751 JUMPA 0,032752 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 032752 ---------- *032752 MOVSI 0,400000 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *032753 ADD 0,034403 FLAGS - INT/FINAL 100000 700200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *032754 JFCL 10,032756 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 000000 000000 ---------- *032754 JFCL 0,000000 FLAGS - INT/FINAL 700200 700000 INITIAL E= 000000 000000 ---------- *032754 JFCL 10,032756 FLAGS - INT/FINAL 700000 300000 INITIAL E= 000000 032756 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *032756 JUMPA 0,032757 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032757 ---------- *032757 JFCL 17,032760 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 032760 ---------- *032760 JFCL 1,032762 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032762 ---------- *032761 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032763 JUMPA 0,032764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032764 ---------- *032764 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *032765 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032766 JFCL 13,032767 FLAGS - INT/FINAL 300000 200000 INITIAL E= 000000 032767 ---------- *032767 JFCL 4,032771 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 032771 ---------- *032771 JUMPA 0,032772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032772 ---------- *032772 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032773 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *032774 JFCL 15,032775 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 032775 ---------- *032775 JFCL 2,032777 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 032777 ---------- *032777 JUMPA 0,033000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033000 ---------- *033000 MOVSI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *033001 ADD 0,034403 FLAGS - INT/FINAL 000000 600200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- *033002 JFCL 7,033003 FLAGS - INT/FINAL 600200 600200 INITIAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *033002 JFCL 0,000000 FLAGS - INT/FINAL 600200 600000 INITIAL E= 000000 000000 ---------- *033002 JFCL 7,033003 FLAGS - INT/FINAL 600000 400000 INITIAL E= 000000 033003 ---------- *033003 JFCL 10,033005 FLAGS - INT/FINAL 400000 000000 INITIAL E= 000000 033005 ---------- *033005 JUMPA 0,033006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033006 ---------- *033006 JFCL 17,033007 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033007 ---------- *033007 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *033010 ADD 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033011 JFCL 10,033013 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033013 ---------- *033012 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033014 JUMPA 0,033015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033015 ---------- *033015 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033016 JFCL 17,033017 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *033017 ADD 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033020 JFCL 4,033022 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033022 ---------- *033021 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033023 JUMPA 0,033024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033024 ---------- *033024 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033025 JFCL 17,033026 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033026 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *033026 ADD 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033027 JFCL 2,033031 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033031 ---------- *033030 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033032 JUMPA 0,033033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033033 ---------- *033033 JFCL 17,033034 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033034 ---------- *033034 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *033035 CAI 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *033036 CAM 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *033037 JFCL 17,033041 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033041 ---------- *033040 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033042 JUMPA 0,033043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033043 ---------- *033043 JFCL 17,033044 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033044 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *033044 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *033045 XOR 0,034454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *033046 XOR 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033047 JFCL 17,033051 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033051 ---------- *033050 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *033052 JUMPA 0,033053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033053 ---------- *033053 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *033054 JFCL 17,033055 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033055 ---------- *033055 AOBJN 0,033056 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 033056 FINAL C(AC)= 000000 000000 ---------- *033056 AOBJP 0,033057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033057 FINAL C(AC)= 000001 000001 ---------- *033057 JFCL 17,033061 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033061 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *033060 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *033062 JUMPA 0,033063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033063 ---------- *033063 JFCL 17,033064 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033064 ---------- *033064 SKIP 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 777777 777777 FINAL C(AC)= 000001 000001 ---------- *033065 JFCL 17,033067 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033067 ---------- *033066 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *033070 JUMPA 0,033071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033071 ---------- *033071 JFCL 17,033072 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033072 ---------- *033072 JUMP 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 034404 ---------- *033073 JFCL 17,033075 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033075 ---------- *033074 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *033076 JUMPA 0,033077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033077 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *033077 JFCL 17,033100 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033100 ---------- *033100 JRST 0,033101 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033101 ---------- *033101 JFCL 16,033103 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033103 ---------- *033102 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *033104 JUMPA 0,033105 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033105 ---------- *033105 JFCL 17,033106 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033106 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *033106 MOVE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033107 JFCL 17,033111 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033111 ---------- *033110 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *033112 JUMPA 0,033113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033113 ---------- *033113 JFCL 17,033114 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033114 ---------- *033114 MOVSI 1,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *033115 JFCL 17,033116 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033116 ---------- *033116 JRST 2,033117(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 033117 ---------- *033117 JFCL 4,033121 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 033121 ---------- *033121 JUMPA 0,033122 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033122 ---------- *033122 MOVE 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033123 ADDI 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *033124 MOVSI 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 200000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033125 JFCL 17,033126 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 033126 ---------- *033126 JRST 2,033127(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033127 ---------- *033127 JFCL 2,033131 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033131 ---------- *033130 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033132 JUMPA 0,033133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033133 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *033133 MOVSI 0,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- *033134 ADD 0,034404 FLAGS - INT/FINAL 000000 600200 INITIAL C(AC)= 400000 000000 C(E)= 777777 777777 FINAL C(AC)= 377777 777777 ---------- *033135 MOVSI 1,000000 FLAGS - INT/FINAL 600200 600200 INITIAL C(AC)= 377777 777777 FINAL C(AC)= 000000 000000 ---------- *033135 JFCL 0,000000 FLAGS - INT/FINAL 600200 600000 INITIAL E= 000000 000000 ---------- *033135 MOVSI 1,000000 FLAGS - INT/FINAL 600000 600000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *033136 JFCL 17,033137 FLAGS - INT/FINAL 600000 000000 INITIAL E= 000000 033137 ---------- *033137 JRST 2,033140(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033140 ---------- *033140 JFCL 10,033142 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033142 ---------- *033141 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033143 JUMPA 0,033144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033144 ---------- *033144 MOVSI 1,400000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *033145 JFCL 17,033146 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033146 ---------- *033146 JRST 2,033147(1) FLAGS - INT/FINAL 000000 400000 INITIAL E= 000000 033147 ---------- *033147 JFCL 10,033151 FLAGS - INT/FINAL 400000 000000 INITIAL E= 000000 033151 ---------- *033151 JUMPA 0,033152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033152 ---------- *033152 MOVSI 1,100000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *033153 JFCL 17,033154 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033154 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *033154 JRST 2,033155(1) FLAGS - INT/FINAL 000000 100000 INITIAL E= 000000 033155 ---------- *033155 JFCL 2,033157 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033157 ---------- *033157 JUMPA 0,033160 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033160 ---------- *033160 MOVSI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *033161 JFCL 17,033162 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033162 ---------- *033162 JRST 2,033163(1) FLAGS - INT/FINAL 000000 040000 INITIAL E= 000000 033163 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *033163 JFCL 1,033165 FLAGS - INT/FINAL 040000 000000 INITIAL E= 000000 033165 ---------- *033165 JUMPA 0,033166 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033166 ---------- *033166 MOVSI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *033167 JFCL 17,033170 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033170 ---------- *033170 JRST 2,033171(1) FLAGS - INT/FINAL 000000 040000 INITIAL E= 000000 033171 ---------- *033171 JFCL 0,033173 FLAGS - INT/FINAL 040000 040000 INITIAL E= 000000 033173 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *033172 SKIPA 0,000000 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033174 JUMPA 0,033175 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 377777 777777 E= 000000 033175 ---------- *033175 MOVSI 1,200000 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 040000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *033176 JFCL 17,033177 FLAGS - INT/FINAL 040000 000000 INITIAL E= 000000 033177 ---------- *033177 JRST 2,033200(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 033200 ---------- *033200 SETZ 1,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 C(E)= 377777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *033201 JRST 2,033202(1) FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 033202 ---------- *033202 JFCL 4,033204 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033204 ---------- *033203 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033205 JUMPA 0,033206 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033206 ---------- *033206 MOVSI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *033207 JFCL 17,033210 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033210 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *033210 JRST 2,033211(1) FLAGS - INT/FINAL 000000 040000 INITIAL E= 000000 033211 ---------- *033211 SETZ 1,000000 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 040000 000000 C(E)= 377777 777777 FINAL C(AC)= 000000 000000 ---------- *033212 JRST 2,033213(1) FLAGS - INT/FINAL 040000 000000 INITIAL E= 000000 033213 ---------- *033213 JFCL 1,033215 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033215 ---------- *033214 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033216 JUMPA 0,033217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033217 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *033217 JFCL 17,033220 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033220 ---------- *033220 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 000000 000000 ---------- *033221 JRST 2,033222(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033222 ---------- *033222 JFCL 17,033224 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033224 ---------- *033223 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777777 ---------- *033225 JUMPA 0,033226 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 033226 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *033226 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033227 JRST 2,033230(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033230 ---------- *033230 JSP 0,033231 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033231 FINAL C(AC)= 000000 033231 ---------- *033231 SKIPN 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033231 C(E)= 000000 033231 FINAL C(AC)= 000000 033231 ---------- *033233 JUMPA 0,033234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033231 E= 000000 033234 ---------- *033234 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033231 C(E)= 000000 033231 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *033235 JSP 0,033236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033236 FINAL C(AC)= 000000 033236 ---------- *033236 TRNN 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033236 E= 000000 777777 FINAL C(AC)= 000000 033236 ---------- *033240 JUMPA 0,033241 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033236 E= 000000 033241 ---------- *033241 SETZM 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033236 C(E)= 000000 033236 FINAL C(E)= 000000 000000 ---------- *033242 MOVSI 1,740000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 740000 FINAL C(AC)= 740000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *033243 JRST 2,033244(1) FLAGS - INT/FINAL 000000 740000 INITIAL E= 000000 033244 ---------- *033244 JSP 0,033245 FLAGS - INT/FINAL 740000 740000 INITIAL C(AC)= 000000 000000 E= 000000 033245 FINAL C(AC)= 740000 033245 ---------- *033245 TLNN 0,777777 FLAGS - INT/FINAL 740000 740000 INITIAL C(AC)= 740000 033245 E= 000000 777777 FINAL C(AC)= 740000 033245 ---------- *033247 JUMPA 0,033250 FLAGS - INT/FINAL 740000 740000 INITIAL C(AC)= 740000 033245 E= 000000 033250 ---------- *033250 SETZM 0,000000 FLAGS - INT/FINAL 740000 740000 INITIAL C(AC)= 740000 033245 C(E)= 740000 033245 FINAL C(E)= 000000 000000 ---------- *033251 MOVSI 1,400000 FLAGS - INT/FINAL 740000 740000 INITIAL C(AC)= 740000 000000 E= 000000 400000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *033252 JFCL 17,033253 FLAGS - INT/FINAL 740000 000000 INITIAL E= 000000 033253 ---------- *033253 JRST 2,033254(1) FLAGS - INT/FINAL 000000 400000 INITIAL E= 000000 033254 ---------- *033254 JSP 0,033255 FLAGS - INT/FINAL 400000 400000 INITIAL C(AC)= 000000 000000 E= 000000 033255 FINAL C(AC)= 400000 033255 ---------- *033255 TLNN 0,400000 FLAGS - INT/FINAL 400000 400000 INITIAL C(AC)= 400000 033255 E= 000000 400000 FINAL C(AC)= 400000 033255 ---------- *033257 JUMPA 0,033260 FLAGS - INT/FINAL 400000 400000 INITIAL C(AC)= 400000 033255 E= 000000 033260 ---------- *033260 SETZM 0,000000 FLAGS - INT/FINAL 400000 400000 INITIAL C(AC)= 400000 033255 C(E)= 400000 033255 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *033261 MOVSI 1,200000 FLAGS - INT/FINAL 400000 400000 INITIAL C(AC)= 400000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *033262 JFCL 17,033263 FLAGS - INT/FINAL 400000 000000 INITIAL E= 000000 033263 ---------- *033263 JRST 2,033264(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 033264 ---------- *033264 JSP 0,033265 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 033265 FINAL C(AC)= 200000 033265 ---------- *033265 TLNN 0,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 033265 E= 000000 200000 FINAL C(AC)= 200000 033265 ---------- *033267 JUMPA 0,033270 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 033265 E= 000000 033270 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *033270 SETZ 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 033265 C(E)= 200000 033265 FINAL C(AC)= 000000 000000 ---------- *033271 MOVSI 1,100000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 100000 FINAL C(AC)= 100000 000000 ---------- *033272 JFCL 17,033273 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 033273 ---------- *033273 JRST 2,033274(1) FLAGS - INT/FINAL 000000 100000 INITIAL E= 000000 033274 ---------- *033274 JSP 0,033275 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033275 FINAL C(AC)= 100000 033275 ---------- *033275 TLNN 0,100000 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 100000 033275 E= 000000 100000 FINAL C(AC)= 100000 033275 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *033277 JUMPA 0,033300 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 100000 033275 E= 000000 033300 ---------- *033300 SETZ 0,000000 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 100000 033275 C(E)= 100000 033275 FINAL C(AC)= 000000 000000 ---------- *033301 MOVSI 1,040000 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 100000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- *033302 JFCL 17,033303 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033303 ---------- *033303 JRST 2,033304(1) FLAGS - INT/FINAL 000000 040000 INITIAL E= 000000 033304 ---------- *033304 JSP 0,033305 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 000000 000000 E= 000000 033305 FINAL C(AC)= 040000 033305 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *033305 TLNN 0,040000 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 040000 033305 E= 000000 040000 FINAL C(AC)= 040000 033305 ---------- *033307 JUMPA 0,033310 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 040000 033305 E= 000000 033310 ---------- *033310 MOVSI 1,000000 FLAGS - INT/FINAL 040000 040000 INITIAL C(AC)= 040000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033311 JFCL 17,033312 FLAGS - INT/FINAL 040000 000000 INITIAL E= 000000 033312 ---------- *033312 JRST 2,033313(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033313 ---------- *033313 JSP 0,033314 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 033305 E= 000000 033314 FINAL C(AC)= 000000 033314 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *033314 TLNE 0,761777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033314 E= 000000 761777 FINAL C(AC)= 000000 033314 ---------- *033316 JUMPA 0,033317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033314 E= 000000 033317 ---------- *033317 JSP 0,033321 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033314 E= 000000 033321 FINAL C(AC)= 000000 033320 ---------- *033321 JUMPA 0,033322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033320 E= 000000 033322 ---------- *033322 JRST 0,033324 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033324 ---------- *033324 JUMPA 0,033325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033320 E= 000000 033325 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *033325 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033320 C(E)= 000000 033320 FINAL C(AC)= 000000 000000 ---------- *033326 AOBJN 0,033327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033327 FINAL C(AC)= 000001 000001 ---------- *033327 CAME 0,034456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *033331 JUMPA 0,033332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033332 ---------- *033332 MOVE 0,034457 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 377777 377777 FINAL C(AC)= 377777 377777 ---------- *033333 AOBJP 0,033334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 377777 E= 000000 033334 FINAL C(AC)= 400000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *033334 CAME 0,034460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 400000 C(E)= 400000 400000 ---------- *033336 JUMPA 0,033337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 400000 E= 000000 033337 ---------- *033337 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 400000 C(E)= 400000 400000 FINAL C(AC)= 000000 000000 ---------- *033340 AOBJN 0,033342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033342 FINAL C(AC)= 000001 000001 ---------- *033341 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *033343 JUMPA 0,033344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033344 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *033344 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 ---------- *033345 AOBJP 0,033347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033347 FINAL C(AC)= 000001 000001 ---------- *033347 JUMPA 0,033350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 033350 ---------- *033350 MOVE 0,034460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 400000 400000 FINAL C(AC)= 400000 400000 ---------- *033351 AOBJN 0,033353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 400000 E= 000000 033353 FINAL C(AC)= 400001 400001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *033353 JUMPA 0,033354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400001 400001 E= 000000 033354 ---------- *033354 MOVE 0,034460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400001 400001 C(E)= 400000 400000 FINAL C(AC)= 400000 400000 ---------- *033355 AOBJP 0,033357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 400000 E= 000000 033357 FINAL C(AC)= 400001 400001 ---------- *033356 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400001 400001 C(E)= 400001 400001 FINAL C(AC)= 400001 400001 ---------- *033360 JUMPA 0,033361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400001 400001 E= 000000 033361 ---------- *033361 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400001 400001 C(E)= 400001 400001 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *033362 AOBJN 0,033363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 033363 FINAL C(AC)= 000000 000000 ---------- *033363 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033365 JUMPA 0,033366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033366 ---------- *033366 JFCL 17,033367 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033367 ---------- *033367 MOVNI 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033370 JFCL 4,033372 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 033372 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *033372 JUMPA 0,033373 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033373 ---------- *033373 JFCL 2,033375 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033375 ---------- *033375 JUMPA 0,033376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033376 ---------- *033376 JFCL 10,033400 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033400 ---------- *033377 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033401 JUMPA 0,033402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033402 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *033402 JFCL 1,033404 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033404 ---------- *033403 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033405 JUMPA 0,033406 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033406 ---------- *033406 JFCL 17,033407 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033407 ---------- *033407 MOVN 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 ---------- *033410 JFCL 17,033412 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033412 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *033411 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033413 JUMPA 0,033414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033414 ---------- *033414 JFCL 17,033415 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033415 ---------- *033415 MOVN 0,034403 FLAGS - INT/FINAL 000000 500200 INITIAL C(AC)= 000000 000001 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033416 JFCL 10,033420 FLAGS - INT/FINAL 500200 500200 INITIAL C(AC)= 400000 000000 ---------- *033416 JFCL 0,000000 FLAGS - INT/FINAL 500200 500000 INITIAL E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *033416 JFCL 10,033420 FLAGS - INT/FINAL 500000 100000 INITIAL E= 000000 033420 ---------- *033420 JUMPA 0,033421 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 400000 000000 E= 000000 033421 ---------- *033421 JFCL 2,033423 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033423 ---------- *033423 JUMPA 0,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033424 ---------- *033424 JFCL 4,033426 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033426 ---------- *033425 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *033427 JUMPA 0,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033430 ---------- *033430 JFCL 1,033432 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033432 ---------- *033431 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033433 JUMPA 0,033434 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033434 ---------- *033434 JFCL 17,033435 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033435 ---------- *033435 MOVM 0,034403 FLAGS - INT/FINAL 000000 500200 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *033436 JFCL 10,033440 FLAGS - INT/FINAL 500200 500200 INITIAL C(AC)= 400000 000000 ---------- *033436 JFCL 0,000000 FLAGS - INT/FINAL 500200 500000 INITIAL E= 000000 000000 ---------- *033436 JFCL 10,033440 FLAGS - INT/FINAL 500000 100000 INITIAL E= 000000 033440 ---------- *033440 JUMPA 0,033441 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 400000 000000 E= 000000 033441 ---------- *033441 JFCL 2,033443 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033443 ---------- *033443 JUMPA 0,033444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033444 ---------- *033444 JFCL 4,033446 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033446 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *033445 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033447 JUMPA 0,033450 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033450 ---------- *033450 JFCL 1,033452 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033452 ---------- *033451 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 ---------- *033453 JUMPA 0,033454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 033454 ---------- *033454 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *033455 AOS 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033456 CAIE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *033460 JUMPA 0,033461 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033461 ---------- *033461 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- *033462 AOS 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033463 CAIE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *033465 JUMPA 0,033466 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033466 ---------- *033466 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033467 SOS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033470 CAME 0,034404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033472 JUMPA 0,033473 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033473 ---------- *033473 MOVEI 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *033474 SOS 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033475 CAIE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *033477 JUMPA 0,033500 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033500 ---------- *033500 JFCL 17,033501 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 033501 ---------- *033501 MOVEI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033502 SOS 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *033503 JFCL 4,033505 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 033505 ---------- *033505 JUMPA 0,033506 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033506 ---------- *033506 JFCL 2,033510 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033510 ---------- *033510 JUMPA 0,033511 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033511 ---------- *033511 JFCL 10,033513 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033513 ---------- *033512 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *033514 JUMPA 0,033515 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033515 ---------- *033515 JFCL 1,033517 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033517 ---------- *033516 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033520 JUMPA 0,033521 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033521 ---------- *033521 JFCL 17,033522 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033522 ---------- *033522 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *033523 AOS 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033524 JFCL 4,033526 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 033526 ---------- *033526 JUMPA 0,033527 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033527 ---------- *033527 JFCL 2,033531 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033531 ---------- *033531 JUMPA 0,033532 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033532 ---------- *033532 JFCL 10,033534 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033534 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0405 *033533 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033535 JUMPA 0,033536 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033536 ---------- *033536 JFCL 1,033540 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033540 ---------- *033537 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033541 JUMPA 0,033542 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033542 ---------- *033542 MOVSI 1,040000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 040000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0406 *033543 JFCL 17,033544 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033544 ---------- *033544 JRST 2,033545(1) FLAGS - INT/FINAL 000000 040000 INITIAL E= 000000 033545 ---------- *033545 JFCL 1,033546 FLAGS - INT/FINAL 040000 000000 INITIAL E= 000000 033546 ---------- *033546 JFCL 1,033550 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033550 ---------- *033547 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033551 JUMPA 0,033552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033552 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0407 *033552 MOVSI 1,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *033553 JFCL 17,033554 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033554 ---------- *033554 JRST 2,033555(1) FLAGS - INT/FINAL 000000 000100 INITIAL E= 000000 033555 ---------- *033555 JSP 0,033556 FLAGS - INT/FINAL 000100 000100 INITIAL C(AC)= 000000 000000 E= 000000 033556 FINAL C(AC)= 000100 033556 ---------- *033556 TLNN 0,000100 FLAGS - INT/FINAL 000100 000100 INITIAL C(AC)= 000100 033556 E= 000000 000100 FINAL C(AC)= 000100 033556 ---------- *033560 JUMPA 0,033561 FLAGS - INT/FINAL 000100 000100 INITIAL C(AC)= 000100 033556 E= 000000 033561 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0408 *033561 MOVSI 1,000100 FLAGS - INT/FINAL 000100 000100 INITIAL C(AC)= 000100 000000 E= 000000 000100 FINAL C(AC)= 000100 000000 ---------- *033562 JFCL 17,033563 FLAGS - INT/FINAL 000100 000100 INITIAL E= 000000 033563 ---------- *033563 JRST 2,033564(1) FLAGS - INT/FINAL 000100 000100 INITIAL E= 000000 033564 ---------- *033564 MOVSI 1,000000 FLAGS - INT/FINAL 000100 000100 INITIAL C(AC)= 000100 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033565 JFCL 17,033566 FLAGS - INT/FINAL 000100 000100 INITIAL E= 000000 033566 ---------- *033566 JRST 2,033567(1) FLAGS - INT/FINAL 000100 000000 INITIAL E= 000000 033567 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0409 *033567 JSP 0,033570 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 033556 E= 000000 033570 FINAL C(AC)= 000000 033570 ---------- *033570 TLNE 0,000100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033570 E= 000000 000100 FINAL C(AC)= 000000 033570 ---------- *033572 JUMPA 0,033573 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033570 E= 000000 033573 ---------- *033573 MOVSI 1,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000040 FINAL C(AC)= 000040 000000 ---------- *033574 JFCL 17,033575 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033575 ---------- *033575 JRST 2,033576(1) FLAGS - INT/FINAL 000000 000040 INITIAL E= 000000 033576 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0410 *033576 JSP 0,033577 FLAGS - INT/FINAL 000040 000040 INITIAL C(AC)= 000000 033570 E= 000000 033577 FINAL C(AC)= 000040 033577 ---------- *033577 TLNN 0,000040 FLAGS - INT/FINAL 000040 000040 INITIAL C(AC)= 000040 033577 E= 000000 000040 FINAL C(AC)= 000040 033577 ---------- *033601 JUMPA 0,033602 FLAGS - INT/FINAL 000040 000040 INITIAL C(AC)= 000040 033577 E= 000000 033602 ---------- *033602 MOVSI 1,000040 FLAGS - INT/FINAL 000040 000040 INITIAL C(AC)= 000040 000000 E= 000000 000040 FINAL C(AC)= 000040 000000 ---------- *033603 JFCL 17,033604 FLAGS - INT/FINAL 000040 000040 INITIAL E= 000000 033604 ---------- *033604 JRST 2,033605(1) FLAGS - INT/FINAL 000040 000040 INITIAL E= 000000 033605 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0411 *033605 MOVSI 1,000000 FLAGS - INT/FINAL 000040 000040 INITIAL C(AC)= 000040 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033606 JFCL 17,033607 FLAGS - INT/FINAL 000040 000040 INITIAL E= 000000 033607 ---------- *033607 JRST 2,033610(1) FLAGS - INT/FINAL 000040 000000 INITIAL E= 000000 033610 ---------- *033610 JSP 0,033611 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 033577 E= 000000 033611 FINAL C(AC)= 000000 033611 ---------- *033611 TLNE 0,000040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033611 E= 000000 000040 FINAL C(AC)= 000000 033611 ---------- *033613 JUMPA 0,033614 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033611 E= 000000 033614 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0412 *033614 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033611 C(E)= 000000 033611 FINAL C(AC)= 777777 777777 ---------- *033615 JUMPL 0,033617 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 033617 ---------- *033617 JUMPA 0,033620 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 033620 ---------- *033620 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *033621 JUMPL 0,033623 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033623 ---------- *033622 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0413 *033624 JUMPA 0,033625 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033625 ---------- *033625 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033626 JUMPE 0,033630 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033630 ---------- *033630 JUMPA 0,033631 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033631 ---------- *033631 MOVEI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033632 JUMPN 0,033634 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033634 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0414 *033634 JUMPA 0,033635 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033635 ---------- *033635 MOVEI 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033636 JUMPE 0,033640 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 033640 ---------- *033637 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033641 JUMPA 0,033642 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 033642 ---------- *033642 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0415 *033643 JUMPN 0,033645 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033645 ---------- *033644 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033646 JUMPA 0,033647 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033647 ---------- *033647 MOVEI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033650 JUMPG 0,033652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033652 ---------- *033652 JUMPA 0,033653 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033653 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0416 *033653 MOVSI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *033654 JUMPG 0,033656 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 033656 ---------- *033655 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 777777 000000 ---------- *033657 JUMPA 0,033660 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 E= 000000 033660 ---------- *033660 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(AC)= 000000 000000 ---------- *033661 AOJ 0,033663 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033663 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0417 *033662 CAIE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *033664 JUMPA 0,033665 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033665 ---------- *033665 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 ---------- *033666 AOJ 0,033670 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033670 FINAL C(AC)= 000000 000000 ---------- *033667 CAIE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *033671 JUMPA 0,033672 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033672 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0418 *033672 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033673 SOJ 0,033675 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033675 FINAL C(AC)= 777777 777777 ---------- *033674 CAME 0,034404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033676 JUMPA 0,033677 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033677 ---------- *033677 SETO 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *033700 SOJ 0,033702 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033702 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 221 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0419 *033701 CAME 0,034405 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *033703 JUMPA 0,033704 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 033704 ---------- *033704 MOVEI 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033705 SOJ 0,033707 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 033707 FINAL C(AC)= 000000 000000 ---------- *033706 CAIE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *033710 JUMPA 0,033711 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033711 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 222 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0420 *033711 SETZ 17,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777723 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033712 SOJ 17,033712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033712 FINAL C(AC)= 777777 777777 ---------- *033713 AOJ 17,033713 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033713 FINAL C(AC)= 000000 000000 ---------- *033714 SOJ 17,033714 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033714 FINAL C(AC)= 777777 777777 ---------- *033715 AOJ 17,033715 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033715 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 223 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0421 *033716 SOJ 17,033716 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033716 FINAL C(AC)= 777777 777777 ---------- *033717 AOJ 17,033717 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033717 FINAL C(AC)= 000000 000000 ---------- *033720 SOJ 17,033720 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033720 FINAL C(AC)= 777777 777777 ---------- *033721 AOJ 17,033721 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033721 FINAL C(AC)= 000000 000000 ---------- *033722 SOJ 17,033722 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033722 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 224 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0422 *033723 AOJ 17,033723 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033723 FINAL C(AC)= 000000 000000 ---------- *033724 SOJ 17,033724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033724 FINAL C(AC)= 777777 777777 ---------- *033725 AOJ 17,033725 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033725 FINAL C(AC)= 000000 000000 ---------- *033726 SOJ 17,033726 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033726 FINAL C(AC)= 777777 777777 ---------- *033727 AOJ 17,033727 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033727 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 225 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0423 *033730 SOJ 17,033730 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033730 FINAL C(AC)= 777777 777777 ---------- *033731 AOJ 17,033731 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033731 FINAL C(AC)= 000000 000000 ---------- *033732 SOJ 17,033732 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033732 FINAL C(AC)= 777777 777777 ---------- *033733 AOJ 17,033733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033733 FINAL C(AC)= 000000 000000 ---------- *033734 SOJ 17,033734 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033734 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 226 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0424 *033735 AOJ 17,033735 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 033735 FINAL C(AC)= 000000 000000 ---------- *033736 SKIPE 0,000017 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033740 JUMPA 0,033741 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 033741 ---------- *033741 JFCL 17,033742 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 033742 ---------- *033742 MOVEI 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033743 SOJ 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 227 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0425 *033744 JFCL 4,033746 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 033746 ---------- *033746 JUMPA 0,033747 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033747 ---------- *033747 JFCL 2,033751 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033751 ---------- *033751 JUMPA 0,033752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033752 ---------- *033752 JFCL 10,033754 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033754 ---------- *033753 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 228 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0426 *033755 JUMPA 0,033756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033756 ---------- *033756 JFCL 1,033760 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033760 ---------- *033757 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033761 JUMPA 0,033762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033762 ---------- *033762 JFCL 17,033763 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033763 ---------- *033763 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 229 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0427 *033764 AOJ 0,000000 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033765 JFCL 4,033767 FLAGS - INT/FINAL 300000 100000 INITIAL E= 000000 033767 ---------- *033767 JUMPA 0,033770 FLAGS - INT/FINAL 100000 100000 INITIAL C(AC)= 000000 000000 E= 000000 033770 ---------- *033770 JFCL 2,033772 FLAGS - INT/FINAL 100000 000000 INITIAL E= 000000 033772 ---------- *033772 JUMPA 0,033773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033773 ---------- *033773 JFCL 10,033775 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 033775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 230 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0428 *033774 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033776 JUMPA 0,033777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 033777 ---------- *033777 JFCL 1,034001 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034001 ---------- *034000 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034002 JUMPA 0,034003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034003 ---------- *034003 SETOB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 231 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0429 *034004 ADDM 0,000001 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 777777 777776 ---------- *034005 CAME 0,034404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034007 JUMPA 0,034010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034010 ---------- *034010 MOVEI 0,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034011 HRREM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777776 FINAL C(E)= 777777 777777 ---------- *034012 CAIE 0,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 232 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0430 *034014 JUMPA 0,034015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 034015 ---------- *034015 MOVEI 0,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034016 MOVSM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(E)= 777777 000000 ---------- *034017 CAIE 0,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *034021 JUMPA 0,034022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 034022 ---------- *034022 SETOB 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 233 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0431 *034023 XORM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- *034024 CAME 0,034404 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034026 JUMPA 0,034027 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034027 ---------- *034027 SETOB 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034030 ADDB 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *034031 CAME 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 234 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0432 *034033 JUMPA 0,034034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 034034 ---------- *034034 CAME 0,034405 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *034036 JUMPA 0,034037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 034037 ---------- *034037 SETOB 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034040 ADDM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 777777 777776 ---------- *034041 CAME 1,034405 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 235 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0433 *034043 JUMPA 0,034044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034044 ---------- *034044 SETZM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777776 FINAL C(E)= 000000 000000 ---------- *034045 HLLOS 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 000000 777777 ---------- *034046 CAIE 1,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *034050 JUMPA 0,034051 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034051 ---------- *034051 MOVSI 1,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 236 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0434 *034052 MOVSS 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 000000 FINAL C(AC)= 777777 777777 C(E)= 000000 777777 ---------- *034053 CAIE 1,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *034055 JUMPA 0,034056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034056 ---------- *034056 SETOB 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 777777 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034057 AOS 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *034060 CAIE 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 237 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0435 *034062 JUMPA 0,034063 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034063 ---------- *034063 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034064 SETO 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034065 HRLM 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 777777 ---------- *034066 CAIE 1,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *034070 JUMPA 0,034071 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 034071 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 238 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0436 *034071 SETO 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034072 SETZ 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034073 HRRS 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *034074 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034076 JUMPA 0,034077 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034077 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 239 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0437 *034077 SETO 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034100 MOVSI 1,777777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *034101 HRRZM 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 FINAL C(E)= 000000 000000 ---------- *034102 SKIPE 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034104 JUMPA 0,034105 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 034105 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 240 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0438 *034105 SETZ 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *034106 JFCL 17,034107 FLAGS - INT/FINAL 300000 000000 INITIAL E= 000000 034107 ---------- *034107 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034111 JUMPA 0,034112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034112 ---------- *034112 SETOB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034113 XORM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 241 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0439 *034114 CAIE 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *034116 JUMPA 0,034117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 034117 ---------- *034117 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034120 CAMN 0,034454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034121 CAME 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034123 JUMPA 0,034124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034124 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 242 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0440 *034124 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034125 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *034126 SETAB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034127 CAMN 0,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034130 CAME 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034132 JUMPA 0,034133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 034133 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 243 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0441 *034133 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034134 XCT 0,034461 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034461 FINAL C(E)= 201040 034136 ---------- *034134 MOVEI 1,034136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034136 FINAL C(AC)= 000000 034136 ---------- *034135 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034137 JUMPA 0,034140 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034140 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 244 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0442 *034140 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 034136 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034141 XCT 0,034462 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034462 FINAL C(E)= 201040 000001 ---------- *034141 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034142 CAIE 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *034144 JUMPA 0,034145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034145 ---------- *034145 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 245 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0443 *034146 XCT 0,034467 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034467 FINAL C(E)= 256000 034466 ---------- *034146 XCT 0,034466 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034466 FINAL C(E)= 256000 034465 ---------- *034146 XCT 0,034465 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034465 FINAL C(E)= 256000 034464 ---------- *034146 XCT 0,034464 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034464 FINAL C(E)= 256000 034463 ---------- *034146 XCT 0,034463 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034463 FINAL C(E)= 201040 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 246 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0444 *034146 MOVEI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *034147 CAIE 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *034151 JUMPA 0,034152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034152 ---------- *034152 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *034153 XCT 0,034470 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034470 FINAL C(E)= 200040 034404 ---------- *034153 MOVE 1,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 247 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0445 *034154 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034156 JUMPA 0,034157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034157 ---------- *034157 XCT 0,034471 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034471 FINAL C(E)= 334000 000000 ---------- *034157 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034161 JUMPA 0,034162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034162 ---------- *034162 SETOM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 248 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0446 *034163 MOVEI 7,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *034164 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000003 FINAL C(E)= 000000 000000 ---------- *034165 MOVE 1,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034166 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *034170 JUMPA 0,034171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034171 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 249 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0447 *034171 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *034172 MOVEI 7,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *034173 SETOM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *034174 MOVE 1,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034175 CAME 1,034404 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 250 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0448 *034177 JUMPA 0,034200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034200 ---------- *034200 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- *034201 MOVEI 7,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *034202 MOVE 3,034472 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *034203 MOVE 1,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 251 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0449 *034204 CAME 1,034472 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *034206 JUMPA 0,034207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034207 ---------- *034207 JRST 0,034211 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034211 ---------- *034211 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(E)= 000000 000000 ---------- *034212 MOVEI 7,034210 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 034210 FINAL C(AC)= 000000 034210 ---------- *034213 MOVE 1,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 252 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0450 *034214 CAME 1,034210 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *034216 JUMPA 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034217 ---------- *034217 JRST 0,034222 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034222 ---------- *034222 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(E)= 000000 000000 ---------- *034223 MOVE 1,@@034220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 202020 202020 FINAL C(AC)= 202020 202020 ---------- *034224 CAME 1,034221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202020 202020 C(E)= 202020 202020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 253 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0451 *034226 JUMPA 0,034227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034227 ---------- *034227 JRST 0,034232 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034232 ---------- *034232 MOVE 1,034231 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202020 202020 C(E)= 272727 272727 FINAL C(AC)= 272727 272727 ---------- *034233 CAME 1,@@034230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 272727 272727 C(E)= 272727 272727 ---------- *034235 JUMPA 0,034236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034236 ---------- *034236 JRST 0,034240 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034240 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 254 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0452 *034240 MOVEI 7,034237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 034210 E= 000000 034237 FINAL C(AC)= 000000 034237 ---------- *034241 MOVE 1,034237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 272727 272727 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *034242 CAME 1,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *034244 JUMPA 0,034245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034245 ---------- *034245 MOVEI 1,777774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 777774 FINAL C(AC)= 000000 777774 ---------- *034246 MOVEI 3,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 255 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0453 *034247 MOVEI 4,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *034250 MOVEI 5,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *034251 MOVEI 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *034252 MOVEI 7,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 034237 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *034253 MOVEI 10,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 256 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0454 *034254 MOVEI 11,777772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 E= 000000 777772 FINAL C(AC)= 000000 777772 ---------- *034255 MOVEI 12,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *034256 MOVEI 13,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *034257 JRST 0,034310 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 034310 ---------- *034310 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000002 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 257 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0455 *034311 MOVE 2,@@034260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 217217 217217 FINAL C(AC)= 217217 217217 ---------- *034312 CAME 2,034265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 217217 217217 C(E)= 217217 217217 ---------- *034314 JUMPA 0,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034315 ---------- *034315 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 217217 217217 FINAL C(E)= 000000 000000 ---------- *034316 MOVE 2,@@034261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 220220 220220 FINAL C(AC)= 220220 220220 ---------- *034317 CAME 2,034262 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 220220 220220 C(E)= 220220 220220 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 258 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0456 *034321 JUMPA 0,034322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034322 ---------- *034322 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 220220 220220 FINAL C(E)= 777777 777777 ---------- *034323 MOVE 2,034267(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000020 034270 FINAL C(AC)= 000020 034270 ---------- *034324 CAME 2,034263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 034270 C(E)= 000020 034270 ---------- *034326 JUMPA 0,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034327 ---------- *034327 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000020 034270 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 259 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0457 *034330 MOVE 2,034271(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000007 034265 FINAL C(AC)= 000007 034265 ---------- *034331 CAME 2,034276 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000007 034265 C(E)= 000007 034265 ---------- *034333 JUMPA 0,034334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034334 ---------- *034334 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000007 034265 FINAL C(E)= 777777 777777 ---------- *034335 MOVE 2,@@034301(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 223223 223223 FINAL C(AC)= 223223 223223 ---------- *034336 CAME 2,034272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 223223 223223 C(E)= 223223 223223 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 260 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0458 *034340 JUMPA 0,034341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034341 ---------- *034341 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 223223 223223 FINAL C(E)= 000000 000000 ---------- *034342 MOVE 2,@@034301(11) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 224224 224224 FINAL C(AC)= 224224 224224 ---------- *034343 CAME 2,034303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 224224 224224 C(E)= 224224 224224 ---------- *034345 JUMPA 0,034346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034346 ---------- *034346 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 224224 224224 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 261 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0459 *034347 MOVE 2,@@034275(13) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 225225 225225 FINAL C(AC)= 225225 225225 ---------- *034350 CAME 2,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 225225 225225 C(E)= 225225 225225 ---------- *034352 JUMPA 0,034353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034353 ---------- *034353 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 225225 225225 FINAL C(E)= 000000 000000 ---------- *034354 MOVE 2,@@034301(12) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 226226 226226 FINAL C(AC)= 226226 226226 ---------- *034355 CAME 2,034304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 226226 226226 C(E)= 226226 226226 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 262 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0460 *034357 JUMPA 0,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 034360 ---------- *034360 SETZM 0,034474 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *034361 JRST 0,030057 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 263 DSKAD 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0461 *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAE.txt,v0000444000175100010010000202104312050545166014367 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.13.22.31.39; author Rob; state Exp; branches; next ; desc @Test Program @ 1.1 log @Initial revision @ text @;DSKAE IDENTIFICATION -------------- PRODUCT CODE: AH-E305A-DD DIAGNOSTIC CODE: DSKAE PRODUCT NAME: DSKAEA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (5) 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-DSKAE.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAE.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIFTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS THE FWT, ADD/SUB, PC CHANGE AND COMPARE INSTRUCTIONS. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAE.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAE.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAE SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAE TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (5) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 DSKAET MAC 28-Mar-78 13:59 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAE 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 2 DSKAET MAC 28-Mar-78 13:59 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 3 DSKAET MAC 28-Mar-78 13:59 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414500 PAREA3=SIXBIT/DSKAE/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414500 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 DSKAE1 MAC 28-Mar-78 13:59 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) [DSKAE] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 065 051 040 798 030656 133 104 123 113 101 799 030657 105 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (5) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 2 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSR INSTRUCTION SEQ 0029 807 SUBTTL TEST OF JSR INSTRUCTION 808 809 ;********** 810 811 ;THIS TEST VERIFIES THAT JSR STORES THE FLAGS AND PC IN LOCATION E. 812 ;IN THIS CASE, E IS CLEARED, CRY0 IS SET AND JSR IS EXECUTED. 813 ;NEXT, E IS CHECKED FOR ITS CONTENTS NON-ZERO. IF C(E) IS NON-ZERO, 814 ;THIS TEST PASSES. 815 816 030661 C23000: SFLAG CRY0 ^;SET CRY0 FLAG 817 818 030661 205 01 0 00 200000 MOVSI 1,CRY0 819 030662 255 17 0 00 030663 JFCL 17,.+1 ;RESET ALL FLAGS 820 030663 254 02 0 01 030664 JRST 2,.+1(1) ;SET CRY0 FLAG 821 030664 402 00 0 00 030666 SETZM .+2 ;PRELOAD E WITH 0 822 030665 264 00 0 00 030666 JSR .+1 ;*JSR SHOULD PLACE FLAGS AND PC INTO AC 823 030666 000000 000000 0 ;E: PRESET TO 0, SHOULD RECEIVE FLAGS AND PC FROM JSR 824 030667 336 00 0 00 030666 SKIPN .-1 ;PASS IF C(E) IS NON-ZERO. 825 STOP^ 826 030670 254 04 0 00 030671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 827 030671 324 00 0 00 030672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 828 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 829 ;IN THE SUBTEST) TO LOOP ON ERROR^ 830 831 ;********** 832 833 ;THIS TEST VERIFIES THAT JSR IGNORES THE AC FIELD; 834 ;HENCE, IT DOES NOT MODIFY THE SPECIFIED AC. 835 ;IN THIS CASE, CRY0 IS SET. THE AC IS PRELOADED WITH -1,,-1 AND JSR IS EXECUTED. 836 ;THE AC IS THEN CHECKED. IF C(AC)=-1,,-1, THIS TEST PASSES. 837 838 030672 C23100: SFLAG CRY0 ^;SET CRY0 839 840 030672 205 01 0 00 200000 MOVSI 1,CRY0 841 030673 255 17 0 00 030674 JFCL 17,.+1 ;RESET ALL FLAGS 842 030674 254 02 0 01 030675 JRST 2,.+1(1) ;SET CRY0 FLAG 843 030675 474 01 0 00 000000 SETO 1, ;PRELOAD AC WITH -1,,-1 844 030676 264 01 0 00 030677 JSR 1,.+1 ;*JSR SHOULD NOT MODIFY THE AC 845 030677 000000 000000 0 ;STORE PC + FLAGS HERE 846 030700 312 01 0 00 033412 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 847 STOP^ 848 030701 254 04 0 00 030702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 849 030702 324 00 0 00 030703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 850 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 851 ;IN THE SUBTEST) TO LOOP ON ERROR^ 852 853 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 3 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSR INSTRUCTION SEQ 0030 854 ;THIS TEST VERIFIES THAT JSR STORES THE FLAGS IN E-LEFT HALF. 855 ;IN THIS TEST, CRY0 IS SET, E IS CLEARED AND JSR IS EXECUTED. 856 ;NEXT, C(E-LEFT) ARE PLACED INTO AC0 AND AC0 IS CHECKED FOR ITS CONTENTS NON-ZERO. 857 ;IF C(AC0) ARE NON-ZERO, THIS TEST PASSES. 858 859 030703 C23200: SFLAG CRY0 ^;SET CRY0 860 861 030703 205 01 0 00 200000 MOVSI 1,CRY0 862 030704 255 17 0 00 030705 JFCL 17,.+1 ;RESET ALL FLAGS 863 030705 254 02 0 01 030706 JRST 2,.+1(1) ;SET CRY0 FLAG 864 030706 402 00 0 00 030710 SETZM .+2 ;CLEAR E 865 030707 264 00 0 00 030710 JSR .+1 ;*JSR SHOULD STORE FLAGS IN E 866 030710 000000 000000 0 ;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST) 867 030711 510 00 0 00 030710 HLLZ .-1 ;PUT FLAGS INTO AC0 868 030712 336 00 0 00 000000 SKIPN ;PASS IF C(AC0) NON-ZERO 869 STOP^ 870 030713 254 04 0 00 030714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 871 030714 324 00 0 00 030715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 872 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 873 ;IN THE SUBTEST) TO LOOP ON ERROR^ 874 875 ;********** 876 877 ;THIS TEST VERIFIES THAT JSR TRANSFERS CONTROL TO E+1. 878 ;IN THIS CASE, CRY0 IS SET AND E AND AC0 CLEARED; THEN, JSR IS EXECUTED. 879 ;IF JSR RESUMES CONTROL AT E INSTEAD OF E+1, AC0 WILL BE MODIFIED; 880 ;HENCE, THE TEST WILL FAIL WHEN AC0 IS CHECKED FOR 0 BECAUSE 881 ;C(E) IS DECODED AS A MOVE INSTRUCTION. 882 883 030715 C23300: SFLAG CRY0 ^;SET CRY0 884 885 030715 205 01 0 00 200000 MOVSI 1,CRY0 886 030716 255 17 0 00 030717 JFCL 17,.+1 ;RESET ALL FLAGS 887 030717 254 02 0 01 030720 JRST 2,.+1(1) ;SET CRY0 FLAG 888 030720 403 00 0 00 030722 SETZB .+2 ;CLEAR AC0 AND E 889 030721 264 00 0 00 030722 JSR .+1 ;*JSR SHOULD RESUME CONTROL AT E+1 890 030722 000000 000000 0 ;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST) 891 030723 332 00 0 00 000000 SKIPE 0 ;PASS IF C(AC0)=0 892 STOP^ 893 030724 254 04 0 00 030725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 894 030725 324 00 0 00 030726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 895 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 896 ;IN THE SUBTEST) TO LOOP ON ERROR^ 897 898 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 4 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSR INSTRUCTION SEQ 0031 899 ;THIS TEST VERIFIES THAT JSR JUMPS TO E+1 900 ;IN THIS CASE, AC0 IS CLEARED AND CRY0 IS SET; THEN, JSR .+2 IS EXECUTED. 901 ;IF JSR DID NOT JUMP, ONES ARE LOADED WITH AC0; AND THE TEST FAILS. 902 ;OTHERWISE, AC0 REMAINS CLEAR AND THE TEST PASSES 903 904 030726 C23400: SFLAG CRY0 ^;SET CRY0 905 906 030726 205 01 0 00 200000 MOVSI 1,CRY0 907 030727 255 17 0 00 030730 JFCL 17,.+1 ;RESET ALL FLAGS 908 030730 254 02 0 01 030731 JRST 2,.+1(1) ;SET CRY0 FLAG 909 030731 400 00 0 00 000000 SETZ ;CLEAR AC0 910 030732 264 00 0 00 030734 JSR .+2 ;*JSR SHOULD JUMP 911 030733 474 00 0 00 000000 SETO ;LOAD AC0 WITH ONES IF JSR FAILED TO JUMP 912 030734 000000 000000 0 ;STORE FLAGS HERE 913 030735 332 00 0 00 000000 SKIPE ;PASS IF JSR JUMPED CORRECTLY 914 STOP^ 915 030736 254 04 0 00 030737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 916 030737 324 00 0 00 030740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 917 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 918 ;IN THE SUBTEST) TO LOOP ON ERROR^ 919 920 ;********** 921 922 ;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF. THE PC 923 ;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION. 924 ;THIS TEST WILL FAIL IF JSR STORES E INSTEAD OF PC IN E - RIGHT HALF. 925 ;IN CASE OF FAILURE, AR PC EN AT ET2 WAS FAULTY. 926 927 030740 C23500: SFLAG 0 ^;CLEAR ALL FLAGS 928 929 030740 205 01 0 00 000000 MOVSI 1,0 930 030741 255 17 0 00 030742 JFCL 17,.+1 ;RESET ALL FLAGS 931 030742 254 02 0 01 030743 JRST 2,.+1(1) ;SET 0 FLAG 932 030743 264 00 0 00 030745 JSR .+2 ;*JSR SHOULD STORE PC+1 IN E - RIGHT 933 030744 254 04 0 00 030744 HALT . ;JSR SHOULD SKIP OVER THIS HALT 934 030745 000000 000000 0 ;STORE FLAGS AND PC HERE 935 030746 550 00 0 00 030745 HRRZ .-1 ;PUT STORED CONTENTS OF E - RIGHT INTO AC0 936 030747 306 00 0 00 030745 CAIN .-2 ;FAIL IF C(AC0)=E 937 STOP^ 938 030750 254 04 0 00 030751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 939 030751 324 00 0 00 030752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 940 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 941 ;IN THE SUBTEST) TO LOOP ON ERROR^ 942 943 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 5 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSR INSTRUCTION SEQ 0032 944 ;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF. THE PC 945 ;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION. 946 ;THIS TEST WILL PASS IF JSR STORES PC IN E - RIGHT HALF. 947 948 030752 264 00 0 00 030754 C23600: JSR .+2 ;*JSR SHOULD STORE PC+1 IN E - RIGHT 949 030753 254 04 0 00 030753 HALT . ;JSR SHOULD SKIP OVER THIS HALT 950 030754 000000 000000 0 ;STORE FLAGS AND PC HERE 951 030755 550 00 0 00 030754 HRRZ .-1 ;PUT STORED CONTENTS OF E - RIGHT INTO AC0 952 030756 302 00 0 00 030753 CAIE C23600+1 ;PASS IF C(AC0)=C23600+1 [PC] 953 STOP^ 954 030757 254 04 0 00 030760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 955 030760 324 00 0 00 030761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 956 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 957 ;IN THE SUBTEST) TO LOOP ON ERROR^ 958 959 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 6 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0033 960 SUBTTL TEST OF JSA INSTRUCTION 961 962 ;********** 963 964 ;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1. 965 ;IN THIS TEST, AC1 IS CLEARED AND A CAM 0,0 IS LOADED 966 ;INTO THE AC OF THE JSA INSTRUCTION. 967 ;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH ONES. AC1 IS CHECKED FOR ZEROS. 968 ;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP. 969 970 030761 400 01 0 00 000000 C23700: SETZ 1, ;CLEAR AC1 971 030762 200 00 0 00 033413 MOVE [CAM] ;LOAD CAM INTO AC0 972 030763 266 00 0 00 030765 JSA .+2 ;*JSA SHOULD JUMP TO E+1 973 030764 474 00 0 00 000001 SETO 1 ;JSA SHOULD JUMP OVER THIS INSTRUCTION 974 030765 000000 000000 0 ;PASS IF JSA JUMPED 975 030766 332 00 0 00 000001 SKIPE 1 976 STOP^ 977 030767 254 04 0 00 030770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 978 030770 324 00 0 00 030771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 980 ;IN THE SUBTEST) TO LOOP ON ERROR^ 981 982 ;********** 983 984 ;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1. 985 ;IN THIS TEST, AC1 IS CLEARED AND A MOVEI 1,1234 IS LOADED 986 ;INTO THE AC OF THE JSA INSTRUCTION. 987 ;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH 0,,1234. AC1 IS CHECKED FOR ZEROS. 988 ;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP. 989 990 030771 400 01 0 00 000000 C24000: SETZ 1, ;CLEAR AC1 991 030772 200 00 0 00 033414 MOVE [MOVEI 1,1234] ;LOAD MOVEI 1,1234 INTO AC 992 030773 266 00 0 00 030774 JSA .+1 ;*JSA SHOULD JUMP TO E+1 993 030774 000000 000000 0 ;JSA SHOULD JUMP OVER THIS LOCATION 994 030775 306 01 0 00 001234 CAIN 1,1234 ;FAIL IF JSA DID NOT JUMP OVER PREVIOUS INSTRUCTION 995 STOP^ 996 030776 254 04 0 00 030777 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 997 030777 324 00 0 00 031000 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 998 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 999 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1000 1001 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 7 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0034 1002 ;THIS TEST VERIFIES THAT JSA LOADS PC OF LOC OF JSA+1 INTO AC RIGHT. 1003 ;THIS TEST WILL FAIL IF JSA LOADS E INTO AC RIGHT INSTEAD OF PC. 1004 1005 031000 266 00 0 00 031002 C24100: JSA .+2 ;*JSA SHOULD LOAD PC INTO AC RIGHT 1006 031001 254 04 0 00 031001 HALT . ;JSA SHOULD JUMP OVER THIS LOCATION 1007 031002 000000 000000 0 ;JSA SHOULD JUMP OVER THIS LOCATION 1008 031003 552 00 0 00 000001 HRRZM 1 ;PUT C(AC-RIGHT) INTO AC1 1009 031004 306 01 0 00 031002 CAIN 1,.-2 ;FAIL IF E WAS LOADED INTO AC-RIGHT INSTEAD OF PC 1010 STOP^ 1011 031005 254 04 0 00 031006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1012 031006 324 00 0 00 031007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1013 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1014 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1015 1016 ;********** 1017 1018 ;THIS TEST VERIFIES THAT JSA PLACES C(AC) INTO E 1019 ;THIS TEST WILL FAIL IF EITHER 0,,E OR 0,,PC IS LOADED 1020 ;INTO E INSTEAD OF C(AC) 1021 1022 031007 403 00 0 00 031011 C24200: SETZB .+2 ;CLEAR AC,E 1023 031010 266 00 0 00 031011 JSA .+1 ;*JSA SHOULD LOAD C(AC) [ZEROS] INTO E 1024 031011 000000 000000 0 ;JSA SHOULD PLACE ZEROS HERE 1025 031012 200 01 0 00 031011 MOVE 1,.-1 ;SAVE C(AC) 1026 031013 306 01 0 00 031011 CAIN 1,.-2 ;FAIL IF JSA LOADED 0,,E OR 0,,PC INTO E 1027 STOP^ 1028 031014 254 04 0 00 031015 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1029 031015 324 00 0 00 031016 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1030 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1031 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1032 1033 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 8 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0035 1034 ;THIS TEST VERIFIES THAT JSA PLACES PC INTO AC-RIGHT 1035 ;THIS TEST WILL FAIL IF PC IS NOT LOADED INTO AC-RIGHT 1036 1037 031016 201 00 0 00 777777 C24300: MOVEI -1 ;PRELOAD AC WITH 0,,-1 1038 031017 266 00 0 00 031020 JSA .+1 ;*JSA SHOULD PLACE E,,PC INTO THE AC 1039 031020 000000 000000 0 ;JSA SHOULD PLACE C(AC) HERE 1040 031021 606 00 0 00 777777 TRNN -1 ;FAIL IF AR LT AR RT EN FAILED 1041 STOP^ 1042 031022 254 04 0 00 031023 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1043 031023 324 00 0 00 031024 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1046 1047 ;********** 1048 1049 ;THIS TEST VERIFIES THAT JSA PLACES THE PC OF THE LOCATION OF JSA+1 IN AC-RIGHT 1050 ;THIS TEST FAILS IF A PC WAS NOT LOADED INTO AC RIGHT 1051 1052 031024 400 00 0 00 000000 C24400: SETZ ;CLEAR AC 1053 031025 266 00 0 00 031026 JSA .+1 ;*JSA SHOULD LOAD PC INTO AC - RIGHT 1054 031026 000000 000000 0 ;JSA SHOULD PLACE C(AC) HERE 1055 031027 606 00 0 00 777777 TRNN -1 ;PASS IF AC - RIGHT IS NON-ZERO 1056 STOP^ 1057 031030 254 04 0 00 031031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1058 031031 324 00 0 00 031032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1059 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1060 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1061 1062 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 9 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0036 1063 ;THIS TEST VERIFIES THAT JSA PLACES IN AC-LEFT 1064 ;THIS TEST FAILS IF JSA LOADS PC INSTEAD OF E INTO AC-LEFT 1065 1066 031032 266 00 0 00 031034 C24500: JSA .+2 ;*JSA SHOULD LOAD E INTO AC-LEFT 1067 031033 254 04 0 00 031033 HALT . ;JSA SHOULD JUMP OVER THIS INSTRUCTION 1068 031034 000000 000000 0 ;E: 1069 031035 556 00 0 00 000001 HLRZM 1 ;SAVE C(AC - LEFT) 1070 031036 306 01 0 00 031033 CAIN 1,.-3 ;FAIL IF JSA LOADED PC INSTEAD OF E INTO AC-LEFT 1071 STOP^ 1072 031037 254 04 0 00 031040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1073 031040 324 00 0 00 031041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1074 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1075 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1076 1077 ;********** 1078 1079 ;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC 1080 ;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, JSA IS EXECUTED. 1081 ;THE AC IS CHECKED FOR E,,PC. IF C(AC)=E,,PC, THIS TEST PASSES 1082 1083 031041 474 00 0 00 000000 C24600: SETO ;PRELOAD AC WITH -1,,-1 1084 031042 266 00 0 00 031044 JSA .+2 ;*JSA SHOULD PLACE E,,PC INTO THE AC 1085 031043 254 04 0 00 031043 HALT . ;JSA SHOULD JUMP OVER HERE, PC: 1086 031044 000000 000000 0 ;JSA SHOULD STORE C(AC) HERE, E: 1087 031045 312 00 0 00 033415 CAME [XWD .-1,.-2] ;PASS IF C(AC)=E,,PC 1088 STOP^ 1089 031046 254 04 0 00 031047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1090 031047 324 00 0 00 031050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1091 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1092 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1093 1094 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 10 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0037 1095 ;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC 1096 ;FIRST, THE AC IS PRELOADED WITH 0 JSA IS EXECUTED. 1097 ;THE AC IS CHECKED FOR E,,PC. IF C(AC)=E,,PC, THIS TEST PASSES 1098 1099 031050 400 00 0 00 000000 C24700: SETZ ;PRELOAD AC WITH 0 1100 031051 266 00 0 00 031053 JSA .+2 ;*JSA SHOULD PLACE E,,PC INTO THE AC 1101 031052 254 04 0 00 031052 HALT . ;JSA SHOULD JUMP OVER HERE, PC: 1102 031053 000000 000000 0 ;JSA SHOULD STORE C(AC) HERE, E: 1103 031054 312 00 0 00 033416 CAME [XWD .-1,.-2] ;PASS IF C(AC)=E,,PC 1104 STOP^ 1105 031055 254 04 0 00 031056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1106 031056 324 00 0 00 031057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1108 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1109 1110 ;********** 1111 1112 ;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E. 1113 ;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES; 1114 ;THEN JSA IS EXECUTED. E IS CHECKED FOR ZEROS. IF C(E)=0, 1115 ;THIS TEST PASSES. 1116 1117 031057 400 00 0 00 000000 C25000: SETZ ;CLEAR AC 1118 031060 476 00 0 00 031062 SETOM .+2 ;PRELOAD E WITH -1,,-1 1119 031061 266 00 0 00 031062 JSA .+1 ;*JSA SHOULD PLACE C(AC) INTO E 1120 031062 000000 000000 0 ;E: SHOULD GET C(AC) FROM JSA 1121 031063 332 00 0 00 031062 SKIPE .-1 ;PASS IF C(E)=0 1122 STOP^ 1123 031064 254 04 0 00 031065 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1124 031065 324 00 0 00 031066 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1125 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1126 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1127 1128 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 11 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0038 1129 ;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E. 1130 ;AC IS FIRST PRELOADED WITH -1,,-1 AND E IS CLEARED; 1131 ;THEN, JSA IS EXECUTED. E IS CHECKED FOR -1,,-1. IF C(E)=-1,,-1, 1132 ;THIS TEST PASSES. 1133 1134 031066 477 00 0 00 000001 C25100: SETOB 1 ;PRELOAD AC -1,,-1 1135 031067 402 00 0 00 031071 SETZM .+2 ;PRELOAD E WITH 0 1136 031070 266 00 0 00 031071 JSA .+1 ;*JSA SHOULD PLACE C(AC) INTO E 1137 031071 000000 000000 0 ;E: SHOULD GET C(AC) FROM JSA 1138 031072 312 01 0 00 031071 CAME 1,.-1 ;PASS IF C(E)=-1,,-1 1139 STOP^ 1140 031073 254 04 0 00 031074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1141 031074 324 00 0 00 031075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1142 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1143 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1144 1145 ;********** 1146 1147 ;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E. 1148 ;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES; 1149 ;THEN JSA IS EXECUTED. E IS CHECKED FOR ZEROS. IF C(E)=0, 1150 ;THIS TEST PASSES. 1151 1152 031075 201 00 0 00 777777 C25200: MOVEI -1 ;PRELOAD AC WITH 0,,-1 1153 031076 266 00 0 00 031077 JSA .+1 ;*JSA SHOULD PLACE C(AC) INTO E 1154 031077 000000 000000 0 ;E: SHOULD GET C(AC) FROM JSA 1155 031100 200 01 0 00 031077 MOVE 1,.-1 ;PASS IF C(E)=0,,-1 1156 031101 302 01 0 00 777777 CAIE 1,-1 1157 STOP^ 1158 031102 254 04 0 00 031103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1159 031103 324 00 0 00 031104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1160 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1161 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1162 1163 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 12 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JSA INSTRUCTION SEQ 0039 1164 ;THIS TEST VERIFIES THAT JSA DOES NOT MODIFY AC+1 1165 ;IN THIS TEST, AC+1 IS PRELOADED WITH -1,,-1; THEN JSA IS EXECUTED 1166 ;AC+1 IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, -1,,-1. 1167 ;IF C(AC+1)=-1,,-1, THIS TEST PASSES 1168 1169 031104 476 00 0 00 000001 C25300: SETOM 1 ;PRELOAD AC+1 WITH -1,,-1 1170 031105 266 00 0 00 031106 JSA .+1 ;*JSA SHOULD NOT MODIFY AC+1 1171 031106 310 00 0 00 000000 CAM ;JSA SHOULD JUMP OVER THIS, E:PC: 1172 031107 312 01 0 00 033412 CAME 1,[-1] ;PASS IF AC+1 WAS NOT MODIFIED BY JSA 1173 STOP^ 1174 031110 254 04 0 00 031111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1175 031111 324 00 0 00 031112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1176 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1177 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1178 1179 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 13 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JRA INSTRUCTION SEQ 0040 1180 SUBTTL TEST OF JRA INSTRUCTION 1181 1182 ;********** 1183 1184 ;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E 1185 ;THIS TEST FAILS IF JRA DOES NOT JUMP TO E. 1186 1187 031112 200 00 0 00 033417 C25400: MOVE [JRST .+4] ;PRELOAD AC0 WITH JRST .+4 1188 031113 205 01 0 00 031115 MOVSI 1,.+2 ;PRELOAD AC WITH E,,0 1189 031114 267 01 0 00 031115 JRA 1,.+1 ;*JRA SHOULD JUMP TO NEXT INSTRUCTION 1190 031115 334 00 0 00 000000 SKIPA ;PASS IF JRA JUMPS TO E 1191 STOP^ 1192 031116 254 04 0 00 031117 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1193 031117 324 00 0 00 031120 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1195 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1196 1197 ;********** 1198 1199 ;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E 1200 ;THIS TEST FAILS IF JRA DOES NOT JUMP TO E. 1201 1202 031120 205 00 0 00 031123 C25500: MOVSI .+3 ;PRELOAD AC WITH E+1 1203 031121 267 00 0 00 031122 JRA .+1 ;*JRA SHOULD JUMP TO NEXT SEQUENTIAL INSTRUCTION 1204 031122 334 00 0 00 000000 SKIPA ;PASS IF JRA JUMPS TO E 1205 STOP^ 1206 031123 254 04 0 00 031124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1207 031124 324 00 0 00 031125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1208 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1209 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1210 1211 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 14 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JRA INSTRUCTION SEQ 0041 1212 ;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E 1213 ;THIS TEST FAILS IF JRA DOES NOT JUMP TO E. 1214 1215 031125 403 00 0 00 000001 C25600: SETZB 1 ;PRELOAD AC0, AC1 WITH ZEROS 1216 031126 267 00 0 00 031130 JRA .+2 ;*JRA SHOULD JUMP OVER NEXT SEQUENTIAL INSTRUCTION 1217 031127 474 01 0 00 000000 SETO 1, ;LOAD AC1 WITH ONES IF JRA DOES NOT JUMP 1218 031130 332 00 0 00 000001 SKIPE 1 ;PASS IF JRA JUMPED 1219 STOP^ 1220 031131 254 04 0 00 031132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1221 031132 324 00 0 00 031133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1224 1225 ;********** 1226 1227 ;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC AND JUMPS TO E 1228 ;THIS TEST FAILS IF JRA JUMPS TO E+1 OR DOES NOT LOAD THE AC CORRECTLY. 1229 1230 031133 400 00 0 00 000000 C25700: SETZ ;CLEAR AC 1231 031134 267 00 0 00 031135 JRA .+1 ;*JRA SHOULD PLACE 0 INTO THE AC AND JUMP .+1 1232 031135 332 00 0 00 000000 SKIPE ;PASS IF AC WAS LOADED CORRECTLY 1233 ;AND JRA JUMPED CORRECTLY. 1234 STOP^ 1235 031136 254 04 0 00 031137 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1236 031137 324 00 0 00 031140 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1238 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1239 1240 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 15 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JRA INSTRUCTION SEQ 0042 1241 ;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC 1242 ;FIRST, THE AC IS PRELOADED WITH 1,,2 AND AC1 AND AC2 ARE 1243 ;INITIALIZED WITH THEIR RESPECTIVE ADDRESSES; JRA IS EXECUTED, AND 1244 ;THE AC IS CHECKED FOR 0,,1, THE ORIGINAL C(C(AC-LEFT)). IF C(AC)=0,,1, 1245 ;THIS TEST PASSES 1246 1247 031140 200 00 0 00 033420 C26200: MOVE [XWD 1,2] ;PRELOAD AC WITH 1,,2 1248 031141 201 01 0 00 000001 MOVEI 1,1 ;INITIALIZE AC1 WITH 0,,1 1249 031142 201 02 0 00 000002 MOVEI 2,2 ;INITIALIZE AC2 WITH 0,,2 1250 031143 267 00 0 00 031144 JRA .+1 ;*JRA SHOULD PLACE 0,,1 INTO THE AC 1251 031144 302 00 0 00 000001 CAIE 1 ;PASS IF C(AC)=0,,1 1252 STOP^ 1253 031145 254 04 0 00 031146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1254 031146 324 00 0 00 031147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1255 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1256 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1257 1258 ;********** 1259 1260 ;THIS TEST VERIFIES THAT JRA CAN RESTORE AC0 FROM AC0 WHEN AC0 IS THE 1261 ;SPECIFIED AC AND C(AC0-LEFT)=0. 1262 ;FIRST, AC0 IS PRELOADED AND JRA IS EXECUTED. THEN, AC0 IS CHECKED FOR 1263 ;ITS INITIAL CONTENTS. IF THE RESULT IN AC0, IS CORRECT, THIS TEST PASSES. 1264 1265 031147 551 00 0 00 033421 C26300: HRRZI [135531,,246642] ;PRELOAD AC0 WITH 0,, LITERAL ADDRESS 1266 031150 267 00 0 00 031151 JRA .+1 ;*JRA SHOULD PLACE C(AC0) INTO AC0 1267 031151 302 00 0 00 033421 CAIE [135531,,246642] ;PASS IF JRA PLACED C(AC0) INTO AC0 1268 STOP^ 1269 031152 254 04 0 00 031153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1270 031153 324 00 0 00 031154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1271 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1272 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1273 1274 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 16 DSKAE1 MAC 28-Mar-78 13:59 TEST OF JRA INSTRUCTION SEQ 0043 1275 ;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE 1276 ;SPECIFIED AC. 1277 ;FIRST, AC0 IS PRELOADED WITH [LITERAL ADDRESS ,,0] AND JRA IS EXECUTED. THEN, 1278 ;AC0 IS CHECKED FOR THE SPECIFIED LITERAL, 135246,,246135. IF 1279 ;C(AC0)=135246,,246135, THE TEST PASSES. 1280 1281 031154 515 00 0 00 033422 C26400: HRLZI [135246,,246135] ;PRELOAD AC0 WITH [LITERAL ADDRESS ,,0] 1282 031155 267 00 0 00 031156 JRA .+1 ;*JRA SHOULD PLACE 135246,,246135 INTO AC0 1283 031156 312 00 0 00 033422 CAME [135246,,246135];PASS IF C(AC0)=135246,,246135 1284 STOP^ 1285 031157 254 04 0 00 031160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1286 031160 324 00 0 00 031161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1287 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1288 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1289 1290 ;********** 1291 1292 ;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE 1293 ;SPECIFIED AC. 1294 ;FIRST, AC0 IS PRELOADED WITH [-1,, ADDRESS OF JCA INSTRUCTION] AND JRA IS EXECUTED. 1295 ;THEN, AC0 IS CHECKED FOR THE JRA INSTRUCTION. IF 1296 ;C(AC0)= THE JRA INSTRUCTION, THE TEST PASSES. 1297 1298 031161 525 00 0 00 031162 C26500: HRLOI .+1 ;PRELOAD AC WITH -1,, ADDRESS OF JRA INSTRUCTION 1299 031162 267 00 0 00 031163 JRA .+1 ;*JRA SHOULD PLACE ITSELF INTO AC0 1300 031163 312 00 0 00 031162 CAME .-1 ;PASS IF AC CONTAINS JRA INSTRUCTION 1301 STOP^ 1302 031164 254 04 0 00 031165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1303 031165 324 00 0 00 031166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1306 1307 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 17 DSKAE1 MAC 28-Mar-78 13:59 TESTS OF BIS FLAG SEQ 0044 1308 SUBTTL TESTS OF BIS FLAG 1309 1310 ;********** 1311 1312 ;THIS TEST VERIFIES THAT JRST 2, CAN CLEAR BIS 1313 ;FIRST, BIS IS SET VIA JRST 2, ;THEN, BIS IS CLEARED VIA JRST 2,. 1314 ;THE FLAGS ARE SAVED AND BIS IS CHECKED. THIS TEST PASSES IF BIS IS RESET; 1315 ;OTHERWISE JRST 2, FAILED TO RESET BIS. 1316 1317 031166 C26600: SFLAG BIS ^;SET BIS FLAG 1318 1319 031166 205 01 0 00 020000 MOVSI 1,BIS 1320 031167 255 17 0 00 031170 JFCL 17,.+1 ;RESET ALL FLAGS 1321 031170 254 02 0 01 031171 JRST 2,.+1(1) ;SET BIS FLAG 1322 SFLAG ^;*RESET BIS FLAG 1323 1324 031171 205 01 0 00 000000 MOVSI 1, 1325 031172 255 17 0 00 031173 JFCL 17,.+1 ;RESET ALL FLAGS 1326 031173 254 02 0 01 031174 JRST 2,.+1(1) ;SET FLAG 1327 031174 265 00 0 00 031175 JSP .+1 ;SAVE FLAGS 1328 031175 603 00 0 00 020037 TLNE BIS+37 ;PASS IF BIS FLAG IS RESET 1329 STOP^ 1330 031176 254 04 0 00 031177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1331 031177 324 00 0 00 031200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1334 1335 ;********** 1336 1337 ;THIS TEST VERIFIES THAT JRST 2, CAN SET BIS. 1338 ;FIRST, BIS IS SET VIA JRST 2, AND THE FLAGS ARE SAVED. 1339 ;BIS IS THEN CHECKED. IF BIS IS SET, THIS TEST PASSES. 1340 1341 031200 C26700: SFLAG BIS ^;*SET BIS FLAG VIA JRST 1342 1343 031200 205 01 0 00 020000 MOVSI 1,BIS 1344 031201 255 17 0 00 031202 JFCL 17,.+1 ;RESET ALL FLAGS 1345 031202 254 02 0 01 031203 JRST 2,.+1(1) ;SET BIS FLAG 1346 031203 265 00 0 00 031204 JSP .+1 ;SAVE FLAGS 1347 031204 607 00 0 00 020000 TLNN BIS ;PASS IF BIS FLAG IS SET 1348 STOP^ 1349 031205 254 04 0 00 031206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1350 031206 324 00 0 00 031207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1353 1354 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 18 DSKAE1 MAC 28-Mar-78 13:59 TESTS OF BIS FLAG SEQ 0045 1355 ;THIS TEST VERIFIES THAT JSR ALWAYS RESETS BIS. 1356 ;FIRST BIS IS SET; THEN JSR IS EXECUTED. THE FLAGS ARE 1357 ;THEN SAVED AND CHECKED. IF BIS WAS RESET VIA JSR, THIS TEST PASSES. 1358 1359 031207 C27000: SFLAG BIS ^;SET BIS 1360 1361 031207 205 01 0 00 020000 MOVSI 1,BIS 1362 031210 255 17 0 00 031211 JFCL 17,.+1 ;RESET ALL FLAGS 1363 031211 254 02 0 01 031212 JRST 2,.+1(1) ;SET BIS FLAG 1364 031212 264 00 0 00 031213 JSR .+1 ;*JSR SHOULD RESET BIS 1365 031213 000000 000000 0 ;JSR SAVES FLAGS HERE 1366 031214 265 00 0 00 031215 JSP .+1 ;SAVE FLAGS 1367 031215 603 00 0 00 020000 TLNE BIS ;PASS IF BIS FLAG IS RESET 1368 STOP^ 1369 031216 254 04 0 00 031217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1370 031217 324 00 0 00 031220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1371 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1372 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1373 1374 ;********** 1375 1376 ;THIS TEST VERIFIES THAT JSP ALWAYS RESETS BIS. 1377 ;FIRST BIS IS SET; THEN JSP IS EXECUTED. THE FLAGS ARE 1378 ;THEN SAVED AND CHECKED. IF BIS WAS RESET VIA JSP, THIS TEST PASSES. 1379 1380 031220 C27001: SFLAG BIS ^;SET BIS 1381 1382 031220 205 01 0 00 020000 MOVSI 1,BIS 1383 031221 255 17 0 00 031222 JFCL 17,.+1 ;RESET ALL FLAGS 1384 031222 254 02 0 01 031223 JRST 2,.+1(1) ;SET BIS FLAG 1385 031223 265 00 0 00 031224 JSP .+1 ;*JSP SHOULD RESET BIS 1386 031224 265 00 0 00 031225 JSP .+1 ;SAVE FLAGS 1387 031225 603 00 0 00 020000 TLNE BIS ;PASS IF BIS FLAG IS RESET 1388 STOP^ 1389 031226 254 04 0 00 031227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1390 031227 324 00 0 00 031230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1391 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1392 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1393 1394 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 19 DSKAE1 MAC 28-Mar-78 13:59 TESTS OF BIS FLAG SEQ 0046 1395 ;THIS TEST VERIFIES THAT THE BITS IN POSITIONS 8, 9 AND 10 ARE CLEARABLE. 1396 ;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; 1397 ;THEN, BITS 8, 9 AND 10 OF THE PC-WORD IS EXAMINED. 1398 ;IF ANY OF THESE BITS ARE SET, THIS TEST FAILS BECAUSE THEY SHOULD BE CLEAR. 1399 1400 031230 C27100: SFLAG ^;CLEAR ARITHMETIC FLAGS 1401 1402 031230 205 01 0 00 000000 MOVSI 1, 1403 031231 255 17 0 00 031232 JFCL 17,.+1 ;RESET ALL FLAGS 1404 031232 254 02 0 01 031233 JRST 2,.+1(1) ;SET FLAG 1405 031233 265 00 0 00 031234 JSP .+1 ;SAVE FLAGS 1406 031234 603 00 0 00 001600 TLNE 1600 ;PASS IF THESE BITS ARE CLEAR 1407 STOP^ 1408 031235 254 04 0 00 031236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1409 031236 324 00 0 00 031237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1410 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1411 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1412 1413 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 20 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0047 1414 SUBTTL TEST OF MSCL FWT INSTRUCTIONS 1415 1416 ;********** 1417 1418 ;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES 1419 ;NOT MODIFY C(AC). 1420 ;IN THIS CASE, C(AC)=252525,,252525 ANS C(E)=707070,,707070. 1421 ;HENCE, THE RESULT IN E SHOULD BE 252525,,252525. 1422 ;THE AC IS CHECKED FOR 252525,,252525. IF ANY OTHER NUMBER IS 1423 ;FOUND IN THE AC, IT WAS CLOBBERED BY MOVEM, AND THIS TEST FAILS. 1424 ;E IS CHECKED FOR 252525,,252525. IF ANY OTHER NUMBER IS FOUND 1425 ;IN E, IT WAS UPDATED INCORRECTLY BY MOVEM. 1426 1427 031237 200 00 0 00 033423 C50000: MOVE [252525,,252525] ;PRELOAD AC WITH 252525,,252525 1428 031240 200 01 0 00 033424 MOVE 1,[707070,,707070] ;PRELOAD E WITH 707070,,707070 1429 031241 202 00 0 00 000001 MOVEM 0,1 ;*MOVEM SHOULD PLACE 252525,,252525 1430 ;INTO E AND NOT AFFECT THE AC 1431 031242 312 00 0 00 033423 CAME 0,[252525,,252525] ;PASS IF C(AC) IS NOT CLOBBERED 1432 STOP^ 1433 031243 254 04 0 00 031244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1434 031244 324 00 0 00 031245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1437 031245 312 01 0 00 033423 CAME 1,[252525,,252525] ;PASS IF E WAS UPDATED CORRECTLY 1438 STOP^ 1439 031246 254 04 0 00 031247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1440 031247 324 00 0 00 031250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1441 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1442 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1443 1444 ;********** 1445 1446 ;THIS TEST VERIFIES THAT MOVES PLACES C(E) INTO THE AC IF AC IS NON-ZERO. 1447 ;IN THIS CASE, C(AC)=707070,,707070 AND C(E)=123456,,123456. HENCE, BOTH 1448 ;THE AC AND E SHOULD CONTAIN 123456,,123456 AFTER MOVES IS EXECUTED. 1449 ;BOTH AC AND E ARE CHECKED FOR 123456,,123456. IF EITHER AC OR E 1450 ;CONTAIN A DIFFERENT RESULT, THIS TEST FAILS 1451 1452 031250 200 02 0 00 033424 C50100: MOVE 2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 1453 031251 200 01 0 00 033425 MOVE 1,[123456,,123456] ;PRELOAD E WITH 123456,,123456 1454 031252 203 02 0 00 000001 MOVES 2,1 ;*MOVES SHOULD PLACE 123456,,123456 1455 ;INTO BOTH AC AND E 1456 031253 312 02 0 00 033425 CAME 2,[123456,,123456] ;PASS IF C(AC)=123456,,123456 1457 STOP^ 1458 031254 254 04 0 00 031255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1459 031255 324 00 0 00 031256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1460 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1461 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1462 031256 312 01 0 00 033425 CAME 1,[123456,,123456] ;PASS IF C(E)=123456,,123456 1463 STOP^ 1464 031257 254 04 0 00 031260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1465 031260 324 00 0 00 031261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1466 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1467 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1468 DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 20-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0048 1469 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 21 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0049 1470 ;THIS TEST VERIFIES THAT MOVES IS A NO-OP IF AC=0 1471 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=707070,,707070 1472 ;AFTER MOVES IS EXECUTED, AC AND E ARE CHECKED FOR THEIR ORIGINAL DATA. 1473 ;IF EITHER C(AC) OR C(E) CHANGED AS A RESULT OF MOVES, THIS TEST FAILS. 1474 1475 031261 200 01 0 00 033424 C50110: MOVE 1,[707070,,707070] ;PRELOAD E WITH 707070,,707070 1476 031262 474 00 0 00 000000 SETO ;PRELOAD AC WITH -1,,-1 1477 031263 203 00 0 00 000001 MOVES 0,1 ;*MOVES SHOULD FUNCTION AS A NO-OP 1478 031264 312 00 0 00 033412 CAME 0,[-1,,-1] ;PASS IF C(AC) WAS NOT MODIFIED 1479 STOP^ 1480 031265 254 04 0 00 031266 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1481 031266 324 00 0 00 031267 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1483 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1484 031267 312 01 0 00 033424 CAME 1,[707070,,707070] ;PASS IF C(E) WAS NOT MODIFIED 1485 STOP^ 1486 031270 254 04 0 00 031271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1487 031271 324 00 0 00 031272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1488 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1489 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1490 1491 ;********** 1492 1493 ;THIS TEST VERIFIES THAT MOVSI LOADS THE WORD E,0 INTO THE AC. 1494 ;IN THIS CASE, C(AC)=707070,,707070 AND E=0,,-1. 1495 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,0. 1496 ;THE AC IS CHECKED FOR -1,,0. IF C(AC)=-1,,0, THIS TEST PASSES. 1497 1498 031272 200 01 0 00 033424 C50200: MOVE 1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 1499 031273 205 01 0 00 777777 MOVSI 1,-1 ;*MOVSI SHOULD PLACE -1,,0 INTO THE AC 1500 031274 312 01 0 00 033426 CAME 1,[-1,,0] ;PASS IF C(AC)=1,,0 1501 STOP^ 1502 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1503 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1504 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1505 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1506 1507 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 22 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0050 1508 ;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC) 1509 ;INTO E. IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3. 1510 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT 1511 ;IN E SHOULD BE 0,,1 1512 1513 031277 474 01 0 00 000000 C50300: SETO 1, ;PRELOAD AC WITH -1,,-1 1514 031300 200 02 0 00 033427 MOVE 2,[-1,,-3] ;PRELOAD E WITH -1,,-3 1515 031301 212 01 0 00 000002 MOVNM 1,2 ;*MOVNM SHOULD PLACE 0,,1 INTO E 1516 ;AND NOT AFFTECT C(AC) 1517 031302 312 01 0 00 033412 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 1518 STOP^ 1519 031303 254 04 0 00 031304 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1520 031304 324 00 0 00 031305 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1521 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1522 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1523 031305 302 02 0 00 000001 CAIE 2,1 ;PASS IF C(E)=0,,1 1524 STOP^ 1525 031306 254 04 0 00 031307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1526 031307 324 00 0 00 031310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1527 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1528 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1529 1530 ;********** 1531 1532 ;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC) 1533 ;INTO E. IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3. 1534 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT 1535 ;IN E SHOULD BE 0,,1 1536 1537 031310 474 01 0 00 000000 C50301: SETO 1, ;PRELOAD AC WITH -1,,-1 1538 031311 200 02 0 00 033427 MOVE 2,[-1,,-3] ;PRELOAD E WITH -1,,-3 1539 031312 202 02 0 00 031324 MOVEM 2,E50301 1540 031313 212 01 0 00 031324 MOVNM 1,E50301 ;*MOVNM SHOULD PLACE 0,,1 INTO E 1541 ;AND NOT AFFTECT C(AC) 1542 031314 312 01 0 00 033412 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 1543 STOP^ 1544 031315 254 04 0 00 031316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1545 031316 324 00 0 00 031317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1546 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1547 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1548 031317 200 02 0 00 031324 MOVE 2,E50301 1549 031320 302 02 0 00 000001 CAIE 2,1 ;PASS IF C(E)=0,,1 1550 STOP^ 1551 031321 254 04 0 00 031322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1552 031322 324 00 0 00 031323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1553 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1554 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1555 1556 031323 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 1557 031324 000000 000000 E50301: 0 ;TESTED MEMORY LOCATION 1558 1559 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 23 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0051 1560 ;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E 1561 ;AND INTO THE AC IF THE AC IS NON-ZERO. IN THIS CASE, AC=0, 1562 ;C(AC)=0 AND C(E)=0,,1 1563 ;HENCE, THE RESULT IN THE AC SHOULD BE 0 1564 ;AND THE RESULT IN E SHOULD BE -1,,-1 1565 1566 031325 400 00 0 00 000000 C50400: SETZ ;CLEAR AC 1567 031326 201 02 0 00 000001 MOVEI 2,1 ;PRELOAD E WITH 0,,1 1568 031327 213 00 0 00 000002 MOVNS 0,2 ;*MOVNS SHOULD PLACE -1,,-1 INTO E 1569 ;AND SHOULD NOT AFFECT THE AC 1570 031330 332 00 0 00 000000 SKIPE ;PASS IF THE AC IS UNALTERED 1571 STOP^ 1572 031331 254 04 0 00 031332 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1573 031332 324 00 0 00 031333 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1574 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1575 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1576 031333 312 02 0 00 033412 CAME 2,[-1] ;PASS IF C(E)=-1,,-1 1577 STOP^ 1578 031334 254 04 0 00 031335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1579 031335 324 00 0 00 031336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1580 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1581 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1582 1583 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 24 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0052 1584 ;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E 1585 ;AND INTO THE AC IF THE AC IS NON-ZO. IN THIS CASE, AC=0, 1586 ;C(AC)=0 AND C(E)=0,,1 1587 ;HENCE, THE RESULT IN THE AC SHOULD BE 0 1588 ;AND THE RESULT IN E SHOULD BE -1,,-1 1589 1590 031336 400 00 0 00 000000 C50401: SETZ ;CLEAR AC 1591 031337 201 02 0 00 000001 MOVEI 2,1 ;PRELOAD E WITH 0,,1 1592 031340 202 02 0 00 031352 MOVEM 2,E50401 1593 031341 213 00 0 00 031352 MOVNS 0,E50401 ;*MOVNS SHOULD PLACE -1,,-1 INTO E 1594 ;AND SHOULD NOT AFFECT THE AC 1595 031342 332 00 0 00 000000 SKIPE ;PASS IF THE AC IS UNALTERED 1596 STOP^ 1597 031343 254 04 0 00 031344 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1598 031344 324 00 0 00 031345 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1599 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1600 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1601 031345 200 02 0 00 031352 MOVE 2,E50401 1602 031346 312 02 0 00 033412 CAME 2,[-1] ;PASS IF C(E)=-1,,-1 1603 STOP^ 1604 031347 254 04 0 00 031350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1605 031350 324 00 0 00 031351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1606 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1607 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1608 1609 031351 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 1610 031352 000000 000000 E50401: 0 ;TESTED MEMORY LOCATION 1611 1612 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 25 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0053 1613 ;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E 1614 ;AND INTO THE AC IF THE AC IS NON-ZERO. IN THIS CASE, AC=1, 1615 ;C(AC=0 AND C(E)=3 1616 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,3 1617 ;AND THE RESULT IN E SHOULD BE -1,,3. 1618 1619 031353 400 01 0 00 000000 C50410: SETZ 1, ;CLEAR AC 1620 031354 201 02 0 00 000003 MOVEI 2,3 ;PRELOAD WITH 0,,3 1621 031355 213 01 0 00 000002 MOVNS 1,2 ;*MOVNS SHOULD PLACE -1,,-3 INTO E 1622 ;AND -1,,-3 INTO THE AC 1623 031356 312 01 0 00 033427 CAME 1,[-1,,-3] ;PASS IF C(AC)=-1,,-3 1624 STOP^ 1625 031357 254 04 0 00 031360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1626 031360 324 00 0 00 031361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1627 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1628 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1629 031361 312 02 0 00 033427 CAME 2,[-1,,-3] ;PASS IF C(E)=-1,,-3 1630 STOP^ 1631 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1632 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1633 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1634 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1635 1636 ;********** 1637 1638 ;THIS TEST VERIFIES THAT MOVMI MOVES THE WORD 0,,E INTO THE AC. 1639 ;IN THIS CASE, C(AC)=0 AND E=0,,-2. HENCE, THE RESULT IN THE AC 1640 ;SHOULD BE 0,,-2. 1641 1642 031364 400 01 0 00 000000 C50500: SETZ 1, ;CLEAR AC 1643 031365 215 01 0 00 777776 MOVMI 1,-2 ;*MOVMI SHOULD PLACE 0,,-2 INTO AC 1644 031366 302 01 0 00 777776 CAIE 1,-2 ;PASS IF C(AC)=0,,-2 1645 STOP^ 1646 031367 254 04 0 00 031370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1647 031370 324 00 0 00 031371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1648 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1649 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1650 1651 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 26 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0054 1652 ;THIS TEST VERIFIES THAT MOVM MOVES THE MAGNITUDE OF C(E) NTO THE AC. 1653 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-2. HENCE, THE RESULT IN THE AC 1654 ;SHOULD BE 0,,2. 1655 1656 031371 400 01 0 00 000000 C50501: SETZ 1, ;CLEAR AC 1657 031372 200 03 0 00 033430 MOVE 3,[-2] ;PRELOAD E WITH -1,,-2 1658 031373 214 01 0 00 000003 MOVM 1,3 ;*MOVM SHOULD PLACE 0,,2 INTO AC 1659 031374 302 01 0 00 000002 CAIE 1,2 ;PASS IF C(AC)=0,,2 1660 STOP^ 1661 031375 254 04 0 00 031376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1662 031376 324 00 0 00 031377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1663 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1664 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1665 1666 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 27 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0055 1667 ;THIS TEST VERIFIES THAT MOVMM PLACES THE MAGNITUDE OF C(AC) 1668 ;INTO E. IN THIS CASE, C(AC)=-1,,-2 AND C(E)=0. HENCE, THE 1669 ;RESULT IN E SHOULD BE 0,,2 AND C(AC) SHOULD REMAIN UNCHANGED. 1670 1671 031377 200 01 0 00 033430 C50600: MOVE 1,[-1,,-2] ;PRELOAD AC WITH -1,,-2 1672 031400 400 02 0 00 000000 SETZ 2, ;CLEAR E 1673 031401 216 01 0 00 000002 MOVMM 1,2 ;*MOVMM SHOULD PLACE 0,,2 INTO E 1674 ;AND SHOULD NOT CHANGE C(AC) 1675 031402 312 01 0 00 033430 CAME 1,[-1,,-2] ;PASS IF C(AC) IS NOT ALTERED 1676 STOP^ 1677 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1678 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1679 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1680 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1681 031405 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(E)=0,,2 1682 STOP^ 1683 031406 254 04 0 00 031407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1684 031407 324 00 0 00 031410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1685 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1686 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1687 1688 ;********** 1689 1690 ;THIS TEST VERIFIES THAT MONMS PLACES THE MAGNITUDE OF C(E) INTO E 1691 ;AND INTO THE AC IF THE AC IS NON-ZERO. IN THIS CASE, AC=0, C(AC)=0 1692 ;AND C(E)=-1,,-2. 1693 ;HENCE, THE RESULT IN THE AC SHOULD BE 0 AND THE RESULT IN 1694 ;E SHOULD BE 0,,2. 1695 1696 031410 400 00 0 00 000000 C50700: SETZ ;CLEAR AC 1697 031411 200 02 0 00 033430 MOVE 2,[-1,,-2] ;PRELOAD E WITH -1,,-1 1698 031412 217 00 0 00 000002 MOVMS 0,2 ;*MOVMS SHOULD PLACE 0,,1 INTO E 1699 ;AND SHOULD NOT CHANGE C(AC) 1700 031413 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS UNALTERED 1701 STOP^ 1702 031414 254 04 0 00 031415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1703 031415 324 00 0 00 031416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1704 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1705 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1706 031416 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(E)=0,,2 1707 STOP^ 1708 031417 254 04 0 00 031420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1709 031420 324 00 0 00 031421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1710 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1711 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1712 1713 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 28 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL FWT INSTRUCTIONS SEQ 0056 1714 ;THIS TEST VERIFIES THAT MOVMS PLACES THE MAGNITUDE OF C(E) INTO E 1715 ;AND INTO THE AC IF THE AC IS NON-ZERO. IN THIS CASE, AC=1, C(AC)=-1,,-1 1716 ;AND C(E)=-1,,-2. 1717 ;HENCE, THE RESULT IN THE AC SHOULD BE 0,,2 AND THE RESULT 1718 ;IN E SHOULD BE 0,,2. 1719 1720 031421 474 01 0 00 000000 C50710: SETO 1, ;PRELOAD AC WITH -1,,-1 1721 031422 200 02 0 00 033430 MOVE 2,[-1,,-2] ;PRELOAD E WITH -1,,-2 1722 031423 217 01 0 00 000002 MOVMS 1,2 ;*MOVMS SHOULD PLACE 0,,2 INTO E 1723 ;AND SHOULD PLACE 0,,2 INTO THE AC 1724 031424 302 01 0 00 000002 CAIE 1,2 ;PASS IF C(AC)=0,,2 1725 STOP^ 1726 031425 254 04 0 00 031426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1727 031426 324 00 0 00 031427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1728 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1729 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1730 031427 302 02 0 00 000002 CAIE 2,2 ;PASS IF C(E)=0,,2 1731 STOP^ 1732 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1733 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1736 1737 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 29 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL ADD/SUB INSTRUCTIONS SEQ 0057 1738 SUBTTL TEST OF MSCL ADD/SUB INSTRUCTIONS 1739 1740 ;********** 1741 1742 ;THIS TEST VERIFIES THAT SUBI SUBTRACTS THE WORD 0,,E FROM C(AC) 1743 ;AND PLACES THE RESULT INTO THE AC. IN THIS CASE, C(AC)=70 AND 1744 ;E=0,,2. HENCE, THE RESULT IN THE AC SHOULD BE 66. 1745 1746 031432 201 01 0 00 000070 C51000: MOVEI 1,70 ;PRELOAD AC WITH 70 1747 031433 275 01 0 00 000002 SUBI 1,2 ;*SUBI SHOULD PLACE 66 INTO AC 1748 031434 302 01 0 00 000066 CAIE 1,66 ;PASS IF C(AC)=66 1749 STOP^ 1750 031435 254 04 0 00 031436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1751 031436 324 00 0 00 031437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1753 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1754 1755 ;********** 1756 1757 ;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND 1758 ;PLACES THE RESULT INTO E. THE AC IS UNAFFECTED. IN THIS CASE, 1759 ;C(AC)=100 AND C(E)=37. HENCE, THE RESULTS IN AC AND 1760 ;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY. 1761 1762 031437 201 01 0 00 000100 C51100: MOVEI 1,100 ;PRELOAD AC WITH 0,,100 1763 031440 201 02 0 00 000037 MOVEI 2,37 ;PRELOAD E WITH 0,,37 1764 031441 276 01 0 00 000002 SUBM 1,2 ;*SUBM SHOULD PLACE 1765 ;0,,41 INTO E AND NOT CHANGE C(AC) 1766 031442 302 01 0 00 000100 CAIE 1,100 ;PASS IF C(AC) IS UNCHANGED 1767 STOP^ 1768 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1769 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1770 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1771 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1772 031445 302 02 0 00 000041 CAIE 2,41 ;PASS IF C(E)=0,,41 1773 STOP^ 1774 031446 254 04 0 00 031447 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1775 031447 324 00 0 00 031450 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1778 1779 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 30 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL ADD/SUB INSTRUCTIONS SEQ 0058 1780 ;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND 1781 ;PLACES THE RESULT INTO E. THE AC IS UNAFFECTED. IN THIS CASE, 1782 ;C(AC)=100 AND C(E)=37. HENCE, THE RESULTS IN AC AND 1783 ;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY. 1784 1785 031450 201 01 0 00 000100 C51101: MOVEI 1,100 ;PRELOAD AC WITH 0,,100 1786 031451 201 02 0 00 000037 MOVEI 2,37 ;PRELOAD E WITH 0,,37 1787 031452 202 02 0 00 031464 MOVEM 2,E51101 1788 031453 276 01 0 00 031464 SUBM 1,E51101 ;*SUBM SHOULD PLACE 1789 ;0,,41 INTO E AND NOT CHANGE C(AC) 1790 031454 302 01 0 00 000100 CAIE 1,100 ;PASS IF C(AC) IS UNCHANGED 1791 STOP^ 1792 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1793 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1794 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1795 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1796 031457 200 02 0 00 031464 MOVE 2,E51101 1797 031460 302 02 0 00 000041 CAIE 2,41 ;PASS IF C(E)=0,,41 1798 STOP^ 1799 031461 254 04 0 00 031462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1800 031462 324 00 0 00 031463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1801 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1802 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1803 1804 031463 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 1805 031464 000000 000000 E51101: 0 ;TEST WORD MEMORY 1806 1807 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 31 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL ADD/SUB INSTRUCTIONS SEQ 0059 1808 ;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND 1809 ;PLACES THE RESULT INTO BOTH AC AND E. IN THIS CASE, 1810 ;C(AC)=0,,100 AND C(E)=0,,37. HENCE, THE RESULT IN BOTH 1811 ;AC AND E SHOULD BE 0,,41. 1812 1813 031465 201 01 0 00 000100 C51200: MOVEI 1,100 ;PRELOAD AC WITH 0,,100 1814 031466 201 02 0 00 000037 MOVEI 2,37 ;PRELOAD E WITH O,,37 1815 031467 277 01 0 00 000002 SUBB 1,2 ;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC AND E 1816 031470 302 01 0 00 000041 CAIE 1,41 ;PASS IF C(AC)=0,,41 1817 STOP^ 1818 031471 254 04 0 00 031472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1819 031472 324 00 0 00 031473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1820 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1821 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1822 031473 302 02 0 00 000041 CAIE 2,41 ;PASS IF C(E)=0,,41 1823 STOP^ 1824 031474 254 04 0 00 031475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1825 031475 324 00 0 00 031476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1827 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1828 1829 ;********** 1830 1831 ;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND 1832 ;PLACES THE RESULT INTO BOTH AC AND E. IN THIS CASE, 1833 ;C(AC)=0,,100 AND C(E)=0,,37. HENCE, THE RESULT IN BOTH 1834 ;AC AND E SHOULD BE 0,,41. 1835 1836 031476 201 01 0 00 000100 C51201: MOVEI 1,100 ;PRELOAD AC WITH 0,,100 1837 031477 201 02 0 00 000037 MOVEI 2,37 ;PRELOAD E WITH O,,37 1838 031500 202 02 0 00 031512 MOVEM 2,E51201 1839 031501 277 01 0 00 031512 SUBB 1,E51201 ;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC AND E 1840 031502 302 01 0 00 000041 CAIE 1,41 ;PASS IF C(AC)=0,,41 1841 STOP^ 1842 031503 254 04 0 00 031504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1843 031504 324 00 0 00 031505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1844 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1845 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1846 031505 200 02 0 00 031512 MOVE 2,E51201 1847 031506 302 02 0 00 000041 CAIE 2,41 ;PASS IF C(E)=0,,41 1848 STOP^ 1849 031507 254 04 0 00 031510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1850 031510 324 00 0 00 031511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1851 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1852 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1853 1854 031511 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 1855 031512 000000 000000 E51201: 0 ;TEST WORD MEMORY 1856 1857 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 32 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0060 1858 SUBTTL TEST OF MSCL CAIX INSTRUCTIONS 1859 1860 ;********** 1861 1862 ;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND 1863 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E. 1864 ;IN THIS CASE, C(AC)=0,,1 AND E=0,,2 1865 ;HENCE, CAIL SHOULD SKIP THE NEXT INSTRUCTION. 1866 ;IF CAIL SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 1867 1868 031513 201 01 0 00 000001 C51300: MOVEI 1,1 ;PRELOAD AC WITH 0,,1 1869 031514 301 01 0 00 000002 CAIL 1,2 ;*CAIL SHOULD SKIP THE NEXT INSTRUCTION 1870 STOP^ 1871 031515 254 04 0 00 031516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1872 031516 324 00 0 00 031517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1873 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1874 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1875 1876 ;********** 1877 1878 ;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND 1879 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E. 1880 ;IN THIS CASE, C(AC)=0,,2 AND E=0,,2. 1881 ;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION. 1882 ;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES. 1883 1884 031517 201 01 0 00 000002 C51310: MOVEI 1,2 ;PRELOAD AC WITH 0,,2 1885 031520 301 01 0 00 000002 CAIL 1,2 ;*CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION 1886 031521 334 00 0 00 000000 SKIPA ;PASS IF CAIL DOES NOT SKIP 1887 STOP^ 1888 031522 254 04 0 00 031523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1889 031523 324 00 0 00 031524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1890 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1891 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1892 1893 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 33 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0061 1894 ;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND 1895 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E 1896 ;IN THIS CASE, C(AC)=0,,3 AND E=0,,2 1897 ;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION. 1898 ;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES. 1899 1900 031524 201 01 0 00 000003 C51320: MOVEI 1,3 ;PRELOAD AC WITH 0,,3 1901 031525 301 01 0 00 000002 CAIL 1,2 ;*CAIL SHOULD SKIP THE NEXT INSTRUCTION 1902 031526 334 00 0 00 000000 SKIPA ;PASS IF CAIL DOES NOT SKIP 1903 STOP^ 1904 031527 254 04 0 00 031530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1905 031530 324 00 0 00 031531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1908 1909 ;********** 1910 1911 ;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND 1912 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E 1913 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0 1914 ;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION 1915 ;IF CAILE SKIPS THE NEXT INSTRUCTION, THE TEST PASSES 1916 1917 031531 474 01 0 00 000000 C51400: SETO 1, ;PRELOAD AC WITH -1,,-1 1918 031532 303 01 0 00 000000 CAILE 1,0 ;*CAILE SHOULD SKIP THE NEXT INSTRUCTION 1919 STOP^ 1920 031533 254 04 0 00 031534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1921 031534 324 00 0 00 031535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1922 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1923 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1924 1925 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 34 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0062 1926 ;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND 1927 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E 1928 ;IN THIS CASE, C(AC)=0 AND E=0 1929 ;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION. 1930 ;IF CAILE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 1931 1932 031535 400 01 0 00 000000 C51410: SETZ 1, ;PRELOAD AC WITH 0 1933 031536 303 01 0 00 000000 CAILE 1,0 ;*CAILE SHOULD SKIP THE NEXT INSTRUCTION. 1934 STOP^ 1935 031537 254 04 0 00 031540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1936 031540 324 00 0 00 031541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1937 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1938 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1939 1940 ;********** 1941 1942 ;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND 1943 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E 1944 ;IN THIS CASE, C(AC)=0,,1 AND E=0 1945 ;HENCE, CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION. 1946 ;IF CAILE DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES 1947 1948 031541 201 01 0 00 000001 C51420: MOVEI 1,1 ;PRELOAD AC WITH 0,,1 1949 031542 303 01 0 00 000000 CAILE 1,0 ;*CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION 1950 031543 334 00 0 00 000000 SKIPA ;PASS IF CAILE DOES NOT SKIP 1951 STOP^ 1952 031544 254 04 0 00 031545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1953 031545 324 00 0 00 031546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1956 1957 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 35 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0063 1958 ;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS 1959 ;SKIPS THE NEXT INSTRUCTION 1960 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0 1961 ;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION 1962 ;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 1963 1964 031546 474 01 0 00 000000 C51500: SETO 1, ;PRELOAD AC WITH -1,,-1 1965 031547 304 01 0 00 000000 CAIA 1,0 ;*CAIA SHOULD SKIP THE NEXT INSTRUCTION 1966 STOP^ 1967 031550 254 04 0 00 031551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1968 031551 324 00 0 00 031552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1971 1972 ;********** 1973 1974 ;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS 1975 ;SKIPS THE NEXT INSTRUCTION 1976 ;IN THIS CASE, C(AC)=0 AND E=0 1977 ;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION. 1978 ;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 1979 1980 031552 400 01 0 00 000000 C51510: SETZ 1, ;PRELOAD AC WITH 0 1981 031553 304 01 0 00 000000 CAIA 1,0 ;*CAIA SHOULD SKIP THE NEXT INSTRUCTION 1982 STOP^ 1983 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1984 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1985 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1986 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1987 1988 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 36 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0064 1989 ;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS 1990 ;SKIPS THE NEXT INSTRUCTION 1991 ;IN THIS CASE, C(AC)=0,,1 AND E=0 1992 ;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION. 1993 ;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 1994 1995 031556 201 01 0 00 000001 C51520: MOVEI 1,1 ;PRELOAD AC WITH 0,,1 1996 031557 304 01 0 00 000000 CAIA 1,0 ;*CAIA SHOULD SKIP THE NEXT INSTRUCTION 1997 STOP^ 1998 031560 254 04 0 00 031561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1999 031561 324 00 0 00 031562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2000 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2001 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2002 2003 ;********** 2004 2005 ;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND 2006 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E. 2007 ;IN THIS CASE, C(AC)=0,,5 AND E=0,,6 2008 ;HENCE, CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION. 2009 ;IF CAIGE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES 2010 2011 031562 201 02 0 00 000005 C51600: MOVEI 2,5 ;PRELOAD AC WITH 0,,5 2012 031563 305 02 0 00 000006 CAIGE 2,6 ;*CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION 2013 031564 334 00 0 00 000000 SKIPA ;PASS IF CAIGE DOES NOT SKIP 2014 STOP^ 2015 031565 254 04 0 00 031566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2016 031566 324 00 0 00 031567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2017 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2018 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2019 2020 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 37 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0065 2021 ;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND 2022 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E 2023 ;IN THIS CASE, C(AC)=0,,6 AND E=0,,6 2024 ;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION. 2025 ;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 2026 2027 031567 201 02 0 00 000006 C51610: MOVEI 2,6 ;PRELOAD AC WITH 0,,6 2028 031570 305 00 0 00 000000 CAIGE ;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION 2029 STOP^ 2030 031571 254 04 0 00 031572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2031 031572 324 00 0 00 031573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2032 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2033 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2034 2035 ;********** 2036 2037 ;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND 2038 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E. 2039 ;IN THIS CASE, C(AC)=0,,7 AND E=0,,6 2040 ;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION. 2041 ;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 2042 2043 031573 201 02 0 00 000007 C51620: MOVEI 2,7 ;PRELOAD AC WITH 0,,7 2044 031574 305 02 0 00 000006 CAIGE 2,6 ;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION 2045 STOP^ 2046 031575 254 04 0 00 031576 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2047 031576 324 00 0 00 031577 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2048 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2049 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2050 2051 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 38 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0066 2052 ;THIS TEST VERIRIES THAT CAIN COMPARES C(AC) WITH E AND 2053 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E. 2054 ;IN THIS CASE, C(AC)=0 AND E=0,,1 2055 ;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION. 2056 ;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 2057 2058 031577 400 06 0 00 000000 C51700: SETZ 6, ;PRELOAD AC WITH 0 2059 031600 306 06 0 00 000001 CAIN 6,1 ;*CAIN SHOULD SKIP THE NEXT INSTRUCTION 2060 STOP^ 2061 031601 254 04 0 00 031602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2062 031602 324 00 0 00 031603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2063 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2064 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2065 2066 ;********** 2067 2068 ;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND 2069 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E. 2070 ;IN THIS CASE, C(AC)=0,,1 AND E=0,,1 2071 ;HENCE, CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION. 2072 ;IF CAIN DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES 2073 2074 031603 200 06 0 00 000001 C51710: MOVE 6,1 ;PRELOAD AC WITH 0,,1 2075 031604 306 06 0 00 000001 CAIN 6,1 ;*CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION 2076 031605 334 00 0 00 000000 SKIPA ;PASS IF CAIN SKIPS 2077 STOP^ 2078 031606 254 04 0 00 031607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2079 031607 324 00 0 00 031610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2080 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2081 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2082 2083 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 39 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0067 2084 ;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND 2085 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E. 2086 ;IN THIS CASE, C(AC)=0,,2 AND E=0,,1 2087 ;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION. 2088 ;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 2089 2090 031610 201 06 0 00 000002 C51720: MOVEI 6,2 ;PRELOAD AC WITH 2091 031611 306 06 0 00 000001 CAIN 6,1 ;*CAIN SHOULD SKIP THE NEXT INSTRUCTION 2092 STOP^ 2093 031612 254 04 0 00 031613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2094 031613 324 00 0 00 031614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2096 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2097 2098 ;********** 2099 2100 ;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND 2101 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E. 2102 ;IN THIS CASE, C(AC)=0,,2 AND E=0,,3. 2103 ;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION. 2104 ;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES 2105 2106 031614 201 11 0 00 000002 C52000: MOVEI 11,2 ;PRELOAD AC WITH 0,,2 2107 031615 307 11 0 00 000003 CAIG 11,3 ;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION 2108 031616 334 00 0 00 000000 SKIPA ;PASS IF CAIG DID NOT SKIP 2109 STOP^ 2110 031617 254 04 0 00 031620 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2111 031620 324 00 0 00 031621 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2112 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2113 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2114 2115 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 40 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAIX INSTRUCTIONS SEQ 0068 2116 ;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND 2117 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E. 2118 ;IN THIS CASE, C(AC)=0,,3 AND E=0,,3. 2119 ;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION. 2120 ;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES. 2121 2122 031621 201 11 0 00 000003 C52010: MOVEI 11,3 ;PRELOAD AC WITH 0,,3 2123 031622 307 11 0 00 000003 CAIG 11,3 ;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION 2124 031623 334 00 0 00 000000 SKIPA ;PASS IF CAIG DID NOT SKIP 2125 STOP^ 2126 031624 254 04 0 00 031625 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2127 031625 324 00 0 00 031626 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2128 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2129 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2130 2131 ;********** 2132 2133 ;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND 2134 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E. 2135 ;IN THIS CASE, C(AC)=0,,4 AND E=0,,3. 2136 ;HENCE, CAIG SHOULD SKIP THE NEXT INSTRUCTION. 2137 ;IF CAIG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 2138 2139 031626 201 11 0 00 000004 C52020: MOVEI 11,4 ;PRELOAD AC WITH 0,,4 2140 031627 307 11 0 00 000003 CAIG 11,3 ;*CAIG SHOULD SKIP THE NEXT INSTRUCTION 2141 STOP^ 2142 031630 254 04 0 00 031631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2143 031631 324 00 0 00 031632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2145 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2146 2147 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 41 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAMX INSTRUCTIONS SEQ 0069 2148 SUBTTL TEST OF MSCL CAMX INSTRUCTIONS 2149 2150 ;********** 2151 2152 ;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND 2153 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAT OR EQUAL TO C(E). 2154 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0 2155 ;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION. 2156 ;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 2157 2158 031632 474 01 0 00 000000 C52100: SETO 1, ;PRELOAD AC WITH -1,,-1 2159 031633 400 02 0 00 000000 SETZ 2, ;PRELOAD E WITH 0 2160 031634 313 01 0 00 000002 CAMLE 1,2 ;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION 2161 STOP^ 2162 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2163 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2166 2167 ;********** 2168 2169 ;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND 2170 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E). 2171 ;IN THIS CASE, C(AC)=0 AND C(E)=0 2172 ;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION. 2173 ;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES 2174 2175 031637 400 01 0 00 000000 C52110: SETZ 1, ;CLEAR AC 2176 031640 313 01 0 00 033431 CAMLE 1,[0] ;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION 2177 STOP^ 2178 031641 254 04 0 00 031642 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2179 031642 324 00 0 00 031643 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2180 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2181 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2182 2183 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 42 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAMX INSTRUCTIONS SEQ 0070 2184 ;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND 2185 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E). 2186 ;IN THIS CASE, C(AC)=0,,1 AND C(E)=0 2187 ;HENCE, CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION. 2188 ;IF CAMLE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES. 2189 2190 031643 201 01 0 00 000001 C52120: MOVEI 1,1 ;PRELOAD AC WITH 0,,1 2191 031644 400 02 0 00 000000 SETZ 2, ;PRELOAD E WITH 0 2192 031645 313 01 0 00 000002 CAMLE 1,2 ;*CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION 2193 031646 334 00 0 00 000000 SKIPA ;PASS IF CAMLE DOES NOT SKIP 2194 STOP^ 2195 031647 254 04 0 00 031650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2196 031650 324 00 0 00 031651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2197 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2198 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2199 2200 ;********** 2201 2202 ;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND 2203 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E). 2204 ;IN THIS CASE, C(AC)=-1,,-2 AND C(E)=-1,,-2. 2205 ;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION. 2206 ;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES. 2207 2208 031651 561 10 0 00 777776 C52200: HRROI 10,-2 ;PRELOAD AC WITH -1,,-2 2209 031652 317 10 0 00 033412 CAMG 10,[-1,,-1] ;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION. 2210 031653 334 00 0 00 000000 SKIPA ;PASS IF CAMG DOES NOT SKIP 2211 STOP^ 2212 031654 254 04 0 00 031655 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2213 031655 324 00 0 00 031656 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2216 2217 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 43 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL CAMX INSTRUCTIONS SEQ 0071 2218 ;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND 2219 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E). 2220 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1. 2221 ;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION. 2222 ;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES. 2223 031656 474 10 0 00 000000 C52210: SETO 10, ;PRELOAD AC WITH -1,,-1. 2224 031657 317 10 0 00 033412 CAMG 10,[-1,,-1] ;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION 2225 031660 334 00 0 00 000000 SKIPA ;PASS IF CAMG DOES NOT SKIP 2226 STOP^ 2227 031661 254 04 0 00 031662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2228 031662 324 00 0 00 031663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2229 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2230 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2231 2232 ;********** 2233 2234 ;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND 2235 ;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E). 2236 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1. 2237 ;HENCE, CAMG SHOULD SKIP THE NEXT INSTRUCTION. 2238 ;IF CAMG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES. 2239 2240 031663 400 10 0 00 000000 C52220: SETZ 10, ;PRELOAD AC WITH 0 2241 031664 317 10 0 00 033412 CAMG 10,[-1,,-1] ;*CAMG SHOULD SKIP THE NEXT INSTRUCTION 2242 STOP^ 2243 031665 254 04 0 00 031666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2244 031666 324 00 0 00 031667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2245 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2246 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2247 2248 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 44 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL JUMPX INSTRUCTIONS SEQ 0072 2249 SUBTTL TEST OF MSCL JUMPX INSTRUCTIONS 2250 2251 ;********** 2252 2253 ;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND 2254 ;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR 2255 ;EQUAL TO 0. IN THIS CASE, C(AC)=-1,,-1. HENCE, JUMPLE SHOULD JUMP. 2256 2257 031667 474 17 0 00 000000 C52300: SETO 17, ;PRELOAD AC WITH -1,,-1 2258 031670 323 17 0 00 031672 JUMPLE 17,.+2 ;*JUMPLE SHOULD JUMP 2259 STOP^ 2260 031671 254 04 0 00 031672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2261 031672 324 00 0 00 031673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2262 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2263 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2264 2265 ;********** 2266 2267 ;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND 2268 ;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR 2269 ;EQUAL TO 0. IN THIS CASE, C(AC)=0. HENCE, JUMPLE SHOULD JUMP. 2270 2271 031673 400 17 0 00 000000 C52310: SETZ 17, ;PRELOAD AC WITH 0 2272 031674 323 17 0 00 031676 JUMPLE 17,.+2 ;*JUMPLE SHOULD JUMP 2273 STOP^ 2274 031675 254 04 0 00 031676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2275 031676 324 00 0 00 031677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2276 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2277 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2278 2279 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 45 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL JUMPX INSTRUCTIONS SEQ 0073 2280 ;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND JUMPS 2281 ;TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 2282 ;0. IN THIS CASE, C(AC)=0,,1. HENCE, JUMPLE SHOULD NOT JUMP. 2283 2284 031677 201 17 0 00 000001 C52320: MOVEI 17,1 ;PRELOAD AC WITH 0,,1 2285 031700 320 17 0 00 031702 JUMP 17,.+2 ;*JUMPLE SHOULD NOT JUMP 2286 031701 334 00 0 00 000000 SKIPA ;PASS IF JUMPLE DOES NOT JUMP 2287 STOP^ 2288 031702 254 04 0 00 031703 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2289 031703 324 00 0 00 031704 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2290 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2291 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2292 2293 ;********** 2294 2295 ;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO 2296 ;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0. 2297 ;IN THIS CASE, C(AC)=-1,,-1. HENCE, JUMPGE SHOULD NOT JUMP. 2298 2299 031704 474 16 0 00 000000 C52400: SETO 16, ;PRELOAD AC WITH -1,,-1 2300 031705 325 16 0 00 031707 JUMPGE 16,.+2 ;*JUMPGE SHOULD NOT JUMP 2301 031706 334 00 0 00 000000 SKIPA ;PASS IF JUMPGE DOES NOT JUMP 2302 STOP^ 2303 031707 254 04 0 00 031710 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2304 031710 324 00 0 00 031711 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2305 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2306 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2307 2308 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 46 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL JUMPX INSTRUCTIONS SEQ 0074 2309 ;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH O AND JUMPS TO 2310 ;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0. 2311 ;IN THIS CASE, C(AC)=0. HENCE, JUMPGE SHOULD JUMP. 2312 2313 031711 400 16 0 00 000000 C52410: SETZ 16, ;PRELOAD AC WITH 0 2314 031712 325 16 0 00 031714 JUMPGE 16,.+2 ;*JUMPGE SHOULD JUMP 2315 STOP^ 2316 031713 254 04 0 00 031714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2317 031714 324 00 0 00 031715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2318 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2319 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2320 2321 ;********** 2322 2323 ;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO 2324 ;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0. 2325 ;IN THIS CASE, C(AC)=0,,1. HENCE, JUMPGE SHOULD JUMP. 2326 2327 031715 201 16 0 00 000001 C52420: MOVEI 16,1 ;PRELOAD AC WITH 0,,1 2328 031716 325 16 0 00 031720 JUMPGE 16,.+2 ;*JUMPGE SHOULD JUMP 2329 STOP^ 2330 031717 254 04 0 00 031720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2331 031720 324 00 0 00 031721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2334 2335 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 47 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0075 2336 SUBTTL TEST OF MSCL AOJX INSTRUCTIONS 2337 2338 ;********** 2339 2340 ;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND PLACES 2341 ;THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS COMPARED 2342 ;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) 2343 ;IS LESS THAN 0. IN THIS CASE, C(AC)=-1,,-2 BEFORE INCREMENTING. 2344 ;HENCE, AOJL SHOULD JUMP. 2345 2346 031721 561 15 0 00 777776 C52500: HRROI 15,-2 ;PRELOAD AC WITH -1,,-2 2347 031722 341 15 0 00 031724 AOJL 15,.+2 ;*AOJL SHOULD ADD 0,,1 TO C(AC) AND JUMP 2348 STOP^ 2349 031723 254 04 0 00 031724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2350 031724 324 00 0 00 031725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2353 031725 312 15 0 00 033412 CAME 15,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2354 STOP^ 2355 031726 254 04 0 00 031727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2356 031727 324 00 0 00 031730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2358 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2359 2360 ;********** 2361 2362 ;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND 2363 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2364 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2365 ;SPECIFIED BY E IF C(AC) IS LESS THAN 0. 2366 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2367 ;HENCE, AOJ SHOULD NOT JUMP 2368 2369 031730 474 15 0 00 000000 C52510: SETO 15, ;PRELOAD AC WITH 2370 031731 341 15 0 00 031733 AOJL 15,.+2 ;*AOJL SHOULD ADD 0,,1 TO C(AC) 2371 ;AND NOT JUMP 2372 031732 334 00 0 00 000000 SKIPA ;PASS IF AOJL DID NOT JUMP 2373 STOP^ 2374 031733 254 04 0 00 031734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2375 031734 324 00 0 00 031735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2376 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2377 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2378 031735 302 15 0 00 000000 CAIE 15,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2379 STOP^ 2380 031736 254 04 0 00 031737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2381 031737 324 00 0 00 031740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2382 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2383 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2384 2385 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 48 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0076 2386 ;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND 2387 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2388 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2389 ;SPECIFIED BY E IF C(AC) IS 0 BEFORE INCREMENTING 2390 ;HENCE, AOJL SHOULD NOT JUMP 2391 2392 031740 400 15 0 00 000000 C52520: SETZ 15, ;PRELOAD AC WITH 0 2393 031741 341 15 0 00 031743 AOJL 15,.+2 ;*AOJL SHOULD ADD 0,,1 TO C(AC) 2394 ;AND NOT JUMP 2395 031742 334 00 0 00 000000 SKIPA ;PASS IF AOJL DID NOT JUMP 2396 STOP^ 2397 031743 254 04 0 00 031744 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2398 031744 324 00 0 00 031745 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2400 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2401 031745 302 15 0 00 000001 CAIE 15,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2402 STOP^ 2403 031746 254 04 0 00 031747 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2404 031747 324 00 0 00 031750 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2406 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2407 2408 ;********** 2409 2410 ;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND 2411 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2412 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2413 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0 2414 ;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING 2415 ;HENCE, AOJE SHOULD NOT JUMP 2416 2417 031750 561 14 0 00 777776 C52600: HRROI 14,-2 ;PRELOAD AC WITH -1,,-2 2418 031751 342 14 0 00 031753 AOJE 14,.+2 ;*AOJE SHOULD ADD 0,,1 TO C(AC) 2419 ;AND NOT JUMP 2420 031752 334 00 0 00 000000 SKIPA ;PASS IF AOJE DID NOT JUMP 2421 STOP^ 2422 031753 254 04 0 00 031754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2423 031754 324 00 0 00 031755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2424 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2425 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2426 031755 312 14 0 00 033412 CAME 14,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2427 STOP^ 2428 031756 254 04 0 00 031757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2429 031757 324 00 0 00 031760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2430 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2431 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2432 2433 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 49 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0077 2434 ;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND 2435 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2436 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2437 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0. 2438 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING. 2439 ;HENCE, AOJE SHOULD JUMP 2440 2441 031760 474 14 0 00 000000 C52610: SETO 14, ;PRELOAD AC WITH -1,,-1 2442 031761 342 14 0 00 031763 AOJE 14,.+2 ;*AOJ SHOULD ADD 0,,1 TO C(AC) 2443 ;AND JUMP 2444 STOP^ 2445 031762 254 04 0 00 031763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2446 031763 324 00 0 00 031764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2447 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2448 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2449 031764 302 14 0 00 000000 CAIE 14,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2450 STOP^ 2451 031765 254 04 0 00 031766 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2452 031766 324 00 0 00 031767 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2453 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2454 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2455 2456 ;********** 2457 2458 ;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND 2459 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2460 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2461 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0. 2462 ;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING 2463 ;HENCE, AOJE SHOULD NOT JUMP 2464 2465 031767 400 14 0 00 000000 C52620: SETZ 14, ;PRELOAD AC WITH 0 2466 031770 342 14 0 00 031772 AOJE 14,.+2 ;*AOJE SHOULD ADD 0,11 TO C(AC) 2467 ;AND NOT JUMP 2468 031771 334 00 0 00 000000 SKIPA ;PASS IF AOJE DID NOT JUMP 2469 STOP^ 2470 031772 254 04 0 00 031773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2471 031773 324 00 0 00 031774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2472 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2473 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2474 031774 302 14 0 00 000001 CAIE 14,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2475 STOP^ 2476 031775 254 04 0 00 031776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2477 031776 324 00 0 00 031777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2478 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2479 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2480 2481 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 50 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0078 2482 ;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND 2483 ;PLACES THE RESULT BACK INTO TLE$EC. THE RESULT IN THE AC IS 2484 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2485 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0. 2486 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2487 ;HENCE, AOJLE SHOULD 2488 2489 031777 561 13 0 00 777776 C52700: HRROI 13,-2 ;PRELOAD AC WITH -1,,-2 2490 032000 343 13 0 00 032002 AOJLE 13,.+2 ;*AOJLE SHOULD ADD 0,,1 TO C(AC) 2491 ;AND JUMP 2492 STOP^ 2493 032001 254 04 0 00 032002 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2494 032002 324 00 0 00 032003 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2497 032003 312 13 0 00 033412 CAME 13,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2498 STOP^ 2499 032004 254 04 0 00 032005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2500 032005 324 00 0 00 032006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2501 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2502 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2503 2504 ;********** 2505 2506 ;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND 2507 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2508 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2509 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0 2510 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2511 ;HENCE, AOJLE SHOULD JUMP. 2512 2513 032006 474 13 0 00 000000 C52710: SETO 13, ;PRELOAD AC WITH -1,,-1 2514 032007 343 13 0 00 032011 AOJLE 13,.+2 ;*AOJLE SHOULD ADD 0,,1 TO C(AC) 2515 ;AND JUMP 2516 STOP^ 2517 032010 254 04 0 00 032011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2518 032011 324 00 0 00 032012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2519 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2520 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2521 032012 302 13 0 00 000000 CAIE 13,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2522 STOP^ 2523 032013 254 04 0 00 032014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2524 032014 324 00 0 00 032015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2527 2528 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 51 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0079 2529 ;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND 2530 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2531 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2532 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0. 2533 ;IN THIS CASE, C(AC) IS 0 2534 ;HENCE, AOJLE SHOULD NOT JUMP. 2535 2536 032015 400 13 0 00 000000 C52720: SETZ 13, ;PRELOAD AC WITH 0 2537 032016 343 13 0 00 032020 AOJLE 13,.+2 ;*AOJLE SHOULD ADD 0,,1 TO C(AC) 2538 ;AND NOT JUMP 2539 032017 334 00 0 00 000000 SKIPA ;PASS IF AOJLE DID NOT JUMP 2540 STOP^ 2541 032020 254 04 0 00 032021 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2542 032021 324 00 0 00 032022 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2543 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2544 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2545 032022 302 13 0 00 000001 CAIE 13,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2546 STOP^ 2547 032023 254 04 0 00 032024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2548 032024 324 00 0 00 032025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2551 2552 ;********** 2553 2554 ;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND 2555 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2556 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 2557 ;SPECIFIED BY E. 2558 ;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING 2559 ;HENCE, AOJA SHOULD JUMP 2560 2561 032025 561 12 0 00 777776 C53000: HRROI 12,-2 ;PRELOAD AC WITH -1,,-2 2562 032026 344 12 0 00 032030 AOJA 12,.+2 ;*AOJA SHOULD ADD 0,,1 TO C(AC) 2563 ;AND JUMP 2564 STOP^ 2565 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2566 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2567 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2568 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2569 032031 312 12 0 00 033412 CAME 12,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2570 STOP^ 2571 032032 254 04 0 00 032033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2572 032033 324 00 0 00 032034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2573 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2574 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2575 2576 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 52 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0080 2577 ;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND 2578 ;PLACES THE RESULT BACK INTO AC. THE RESULT IN THE AC IS 2579 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 2580 ;SPECIFIED BY E. 2581 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2582 ;HENCE, AOJA SHOULD JUMP 2583 2584 032034 474 12 0 00 000000 C53010: SETO 12, ;PRELOAD AC WITH -1,,-1 2585 032035 344 12 0 00 032037 AOJA 12,.+2 ;*AOJA SHOULD ADD 0,,1 TO C(AC) 2586 ;AND JUMP 2587 STOP^ 2588 032036 254 04 0 00 032037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2589 032037 324 00 0 00 032040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2590 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2591 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2592 032040 302 12 0 00 000000 CAIE 12,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2593 STOP^ 2594 032041 254 04 0 00 032042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2595 032042 324 00 0 00 032043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2596 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2597 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2598 2599 ;********** 2600 2601 ;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND 2602 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2603 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 2604 ;SPECIFIED BY E. 2605 ;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING 2606 ;HENCE, AOJA SHOULD JUMP 2607 2608 032043 400 12 0 00 000000 C53020: SETZ 12, ;PRELOAD AC WITH 0 2609 032044 344 12 0 00 032046 AOJA 12,.+2 ;*AOJA SHOULD ADD 0,,1 TO C(AC) 2610 ;AND JUMP 2611 STOP^ 2612 032045 254 04 0 00 032046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2613 032046 324 00 0 00 032047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2614 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2615 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2616 032047 302 12 0 00 000001 CAIE 12,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2617 STOP^ 2618 032050 254 04 0 00 032051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2619 032051 324 00 0 00 032052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2620 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2621 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2622 2623 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 53 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0081 2624 ;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND 2625 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2626 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2627 ;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0 2628 ;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING 2629 ;HENCE, AOJGE SHOULD NOT JUMP 2630 2631 032052 561 11 0 00 777776 C53100: HRROI 11,-2 ;PRELOAD AC WITH -1,,-2 2632 032053 345 11 0 00 032055 AOJGE 11,.+2 ;*AOJGE SHOULD ADD 0,,1 TO C(AC) 2633 ;AND NOT JUMP 2634 032054 334 00 0 00 000000 SKIPA ;PASS IF AOJGE DID NOT JUMP 2635 STOP^ 2636 032055 254 04 0 00 032056 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2637 032056 324 00 0 00 032057 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2638 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2639 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2640 032057 312 11 0 00 033412 CAME 11,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2641 STOP^ 2642 032060 254 04 0 00 032061 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2643 032061 324 00 0 00 032062 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2646 2647 ;********** 2648 2649 ;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND 2650 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2651 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2652 ;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0. 2653 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2654 ;HENCE, AOJ SHOULD JUMP 2655 2656 032062 474 11 0 00 000000 C53110: SETO 11, ;PRELOAD AC WITH -1,,-1 2657 032063 345 11 0 00 032065 AOJGE 11,.+2 ;*AOJGE SHOULD ADD 0,,1 TO C(AC) 2658 ;AND JUMP 2659 STOP^ 2660 032064 254 04 0 00 032065 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2661 032065 324 00 0 00 032066 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2662 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2663 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2664 032066 302 11 0 00 000000 CAIE 11,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2665 STOP^ 2666 032067 254 04 0 00 032070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2667 032070 324 00 0 00 032071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2668 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2669 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2670 2671 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 54 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0082 2672 ;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND 2673 ;PLACES THE RESULT BACK INTO AC. THE RESULT IN THE AC IS 2674 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2675 ;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0 2676 ;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING 2677 ;HENCE, AOJGE SHOULD JUMP 2678 2679 032071 400 11 0 00 000000 C53120: SETZ 11, ;PRELOAD AC WITH 0 2680 032072 345 11 0 00 032074 AOJGE 11,.+2 ;*AOJGE SHOULD ADD 0,,1 TO C(AC) 2681 ;AND JUMP 2682 STOP^ 2683 032073 254 04 0 00 032074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2684 032074 324 00 0 00 032075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2685 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2686 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2687 032075 302 11 0 00 000001 CAIE 11,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2688 STOP^ 2689 032076 254 04 0 00 032077 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2690 032077 324 00 0 00 032100 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2691 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2692 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2693 2694 ;********** 2695 2696 ;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND 2697 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2698 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2699 ;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0. 2700 ;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING 2701 ;HENCE, AOJN SHOULD JUMP 2702 2703 032100 561 10 0 00 777776 C53200: HRROI 10,-2 ;PRELOAD AC WITH -1,,-2 2704 032101 346 10 0 00 032103 AOJN 10,.+2 ;*AOJN SHOULD ADD 0,,1 TO C(AC) 2705 ;AND JUMP 2706 STOP^ 2707 032102 254 04 0 00 032103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2708 032103 324 00 0 00 032104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2711 032104 312 10 0 00 033412 CAME 10,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2712 STOP^ 2713 032105 254 04 0 00 032106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2714 032106 324 00 0 00 032107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2716 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2717 2718 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 55 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0083 2719 ;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND 2720 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2721 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2722 ;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0. 2723 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2724 ;HENCE, AOJ SHOULD NOT JUMP. 2725 2726 032107 474 10 0 00 000000 C53210: SETO 10, ;PRELOAD AC WITH -1,,-1 2727 032110 346 10 0 00 032112 AOJN 10,.+2 ;*AOJN SHOULD ADD 0,,1 TO C(AC) 2728 ;AND NOT JUMP 2729 032111 334 00 0 00 000000 SKIPA ;PASS IF AOJN DID NOT JUMP 2730 STOP^ 2731 032112 254 04 0 00 032113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2732 032113 324 00 0 00 032114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2733 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2734 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2735 032114 302 10 0 00 000000 CAIE 10,0 ;PASS IF C(AC) INCREMENTED CORRRECTLY 2736 STOP^ 2737 032115 254 04 0 00 032116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2738 032116 324 00 0 00 032117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2739 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2740 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2741 2742 ;********** 2743 2744 ;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND 2745 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2746 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2747 ;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0. 2748 ;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING 2749 ;HENCE, AOJN SHOULD JUMP. 2750 2751 032117 400 10 0 00 000000 C53220: SETZ 10, ;PRELOAD AC WITH 0 2752 032120 346 10 0 00 032122 AOJN 10,.+2 ;*AOJN SHOULD ADD 0,,1 TO C(AC) 2753 ;AND JUMP 2754 STOP^ 2755 032121 254 04 0 00 032122 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2756 032122 324 00 0 00 032123 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2758 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2759 032123 302 10 0 00 000001 CAIE 10,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2760 STOP^ 2761 032124 254 04 0 00 032125 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2762 032125 324 00 0 00 032126 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2763 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2764 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2765 2766 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 56 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0084 2767 ;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND 2768 ;PLACES THE RESULT BACK INTO THE AC. THE REAULT IN THE AC IS 2769 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2770 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0 2771 ;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INC 2772 ;HENCE, AOJG SHOULD NOT JUMP 2773 2774 032126 561 07 0 00 777776 C53300: HRROI 7,-2 ;PRELOAD AC WITH -1,,-2 2775 032127 347 07 0 00 032131 AOJG 7,.+2 ;*AOJG SHOULD ADD 0,11 TO C(AC) 2776 ;AND NOT JUMP 2777 032130 334 00 0 00 000000 SKIPA ;PASS IF AOJG DID NOT JUMP 2778 STOP^ 2779 032131 254 04 0 00 032132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2780 032132 324 00 0 00 032133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2781 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2782 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2783 032133 312 07 0 00 033412 CAME 7,[-1] ;PASS IF C(AC) INCREMENTED CORRECTLY 2784 STOP^ 2785 032134 254 04 0 00 032135 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2786 032135 324 00 0 00 032136 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2787 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2788 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2789 2790 ;********** 2791 2792 ;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND 2793 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2794 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2795 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0. 2796 ;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING 2797 ;HENCE, AOJG SHOULD NOT JUMP. 2798 2799 032136 474 07 0 00 000000 C53310: SETO 7, ;PRELOAD AC WITH -1,,-1 2800 032137 347 07 0 00 032141 AOJG 7,.+2 ;*AOJG SHOULD ADD 0,,1 TO C(AC) 2801 ;AND NOT JUMP 2802 032140 334 00 0 00 000000 SKIPA ;PASS IF AOJG DID NOT JUMP 2803 STOP^ 2804 032141 254 04 0 00 032142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2805 032142 324 00 0 00 032143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2806 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2807 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2808 032143 302 07 0 00 000000 CAIE 7,0 ;PASS IF C(AC) INCREMENTED CORRECTLY 2809 STOP^ 2810 032144 254 04 0 00 032145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2811 032145 324 00 0 00 032146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2812 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2813 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2814 2815 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 57 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOJX INSTRUCTIONS SEQ 0085 2816 ;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND 2817 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 2818 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 2819 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0. 2820 ;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING 2821 ;HENCE, AOJG SHOULD JUMP 2822 2823 032146 400 07 0 00 000000 C53320: SETZ 7, ;PRELOAD AC WITH 0 2824 032147 347 07 0 00 032151 AOJG 7,.+2 ;*AOJG SHOULD ADD 0,,1 TO C(AC) 2825 ;AND JUMP 2826 STOP^ 2827 032150 254 04 0 00 032151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2828 032151 324 00 0 00 032152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2829 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2830 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2831 032152 302 07 0 00 000001 CAIE 7,1 ;PASS IF C(AC) INCREMENTED CORRECTLY 2832 STOP^ 2833 032153 254 04 0 00 032154 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2834 032154 324 00 0 00 032155 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2835 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2836 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2837 2838 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 58 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0086 2839 SUBTTL TEST OF MSCL AOSX INSTRUCTIONS 2840 2841 ;********** 2842 2843 ;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES 2844 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 2845 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0 2846 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 2847 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2 2848 ;BEFORE INCREMENTING. HENCE, AOSL SHOULD SKIP ; AND THE 2849 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 2850 ;RESPECTIVELY. 2851 2852 032155 200 06 0 00 033424 C53400: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 2853 032156 561 07 0 00 777776 HRROI 7,-2 ;PRELOAD E WITH -1,,-2 2854 032157 351 06 0 00 000007 AOSL 6,7 ;*AOSL SHOULD ADD 0,,1 TO C(E), 2855 ;UPDATE AC AND SKIP 2856 STOP^ 2857 032160 254 04 0 00 032161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2858 032161 324 00 0 00 032162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2859 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2860 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2861 032162 312 07 0 00 033412 CAME 7,[-1] ;PASS IF E INCREMENTED CORRECTLY 2862 STOP^ 2863 032163 254 04 0 00 032164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2864 032164 324 00 0 00 032165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2865 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2866 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2867 032165 312 06 0 00 033412 CAME 6,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 2868 STOP^ 2869 032166 254 04 0 00 032167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2870 032167 324 00 0 00 032170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2871 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2872 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2873 2874 ;********** 2875 2876 ;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES 2877 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 2878 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0 2879 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 2880 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2 2881 ;BEFORE INCREMENTING. HENCE, AOSL SHOULD SKIP ; AND THE 2882 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 2883 ;RESPECTIVELY. 2884 2885 032170 200 06 0 00 033424 C53401: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 2886 032171 561 07 0 00 777776 HRROI 7,-2 ;PRELOAD E WITH -1,,-2 2887 032172 202 07 0 00 032206 MOVEM 7,E53401 2888 032173 351 06 0 00 032206 AOSL 6,E53401 ;*AOSL SHOULD ADD 0,,1 TO C(E), 2889 ;UPDATE AC AND SKIP 2890 STOP^ 2891 032174 254 04 0 00 032175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2892 032175 324 00 0 00 032176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2893 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 58-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0087 2894 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2895 032176 200 07 0 00 032206 MOVE 7,E53401 2896 032177 312 07 0 00 033412 CAME 7,[-1] ;PASS IF E INCREMENTED CORRECTLY 2897 STOP^ 2898 032200 254 04 0 00 032201 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2899 032201 324 00 0 00 032202 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2900 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2901 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2902 032202 312 06 0 00 033412 CAME 6,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 2903 STOP^ 2904 032203 254 04 0 00 032204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2905 032204 324 00 0 00 032205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2906 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2907 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2908 2909 032205 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 2910 032206 000000 000000 E53401: 0 ;TEST WORD MEMORY 2911 2912 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 59 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0088 2913 ;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES 2914 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 2915 ;THE NEXT INSTRUCTION IF C(E) ISLESS THAN 0 2916 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 2917 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-1 2918 ;BEFORE INCREMENTING. HENCE, AOSL SHOULD NOT SKIP; AND THE 2919 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 2920 ;RESPECTIVELY. 2921 2922 032207 200 06 0 00 033424 C53410: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 2923 032210 474 07 0 00 000000 SETO 7, ;PRELOAD E WITH -1,,-1 2924 032211 351 06 0 00 000007 AOSL 6,7 ;*AOSL SHOULD ADD 00,1 TO C(E) 2925 ;UPDATE AC AND NOT SKIP 2926 032212 334 00 0 00 000000 SKIPA ;PASS IF AOSL DID NOT SKIP 2927 STOP^ 2928 032213 254 04 0 00 032214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2929 032214 324 00 0 00 032215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2930 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2931 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2932 032215 312 07 0 00 033431 CAME 7,[0] ;PASS IF E INCREMENTED CORRECTLY 2933 STOP^ 2934 032216 254 04 0 00 032217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2935 032217 324 00 0 00 032220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2936 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2937 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2938 032220 312 06 0 00 033431 CAME 6,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 2939 STOP^ 2940 032221 254 04 0 00 032222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2941 032222 324 00 0 00 032223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2942 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2943 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2944 2945 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 60 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0089 2946 ;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES 2947 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 2948 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0. 2949 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 2950 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0 2951 ;BEFORE INCREMENTING. HENCE, AOSL SHOULD NOT SKIP; AND THE 2952 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 2953 ;RESPECTIVELY 2954 2955 032223 200 06 0 00 033424 C53420: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 2956 032224 400 07 0 00 000000 SETZ 7, ;PRELOAD E WITH 0 2957 032225 351 06 0 00 000007 AOSL 6,7 ;*AOSL SHOULD ADD 0,,1 TO C(E). 2958 ;UPDATE AC AND NOT SKIP 2959 032226 334 00 0 00 000000 SKIPA ;PASS IF AOSL DID NOT SKIP 2960 STOP^ 2961 032227 254 04 0 00 032230 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2962 032230 324 00 0 00 032231 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2963 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2964 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2965 032231 312 07 0 00 033432 CAME 7,[1] ;PASS IF E INCREMENTED CORRECTLY 2966 STOP^ 2967 032232 254 04 0 00 032233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2968 032233 324 00 0 00 032234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2971 032234 312 06 0 00 033432 CAME 6,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 2972 STOP^ 2973 032235 254 04 0 00 032236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2974 032236 324 00 0 00 032237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2975 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2976 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2977 2978 ;********** 2979 2980 ;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES 2981 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 2982 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0. 2983 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 2984 ;IN THIS CASE, AC=5, C(AC)=707070,,707070AND C(E)=-1,,-2 2985 ;BEFORE INCREMENTING. HENCE, AOSE SHOULD NOT SKIP; AND THE 2986 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 2987 ;RESPECTIVELY. 2988 2989 032237 200 05 0 00 033424 C53500: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 2990 032240 561 06 0 00 777776 HRROI 6,-2 ;PRELOAD E WITH -1,,-2 2991 032241 352 05 0 00 000006 AOSE 5,6 ;*AOSE SHOULD ADD 0,,1 TO C(E), 2992 ;UPDATE AC AND NOT SKIP 2993 032242 334 00 0 00 000000 SKIPA ;PASS IF AOSE DID NOT SKIP 2994 STOP^ 2995 032243 254 04 0 00 032244 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2996 032244 324 00 0 00 032245 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2997 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2998 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2999 032245 312 06 0 00 033412 CAME 6,[-1] ;PASS IF E INCREMENTED CORRECTLY 3000 STOP^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 60-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0090 3001 032246 254 04 0 00 032247 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3002 032247 324 00 0 00 032250 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3003 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3004 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3005 032250 312 05 0 00 033412 CAME 5,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3006 STOP^ 3007 032251 254 04 0 00 032252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3008 032252 324 00 0 00 032253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3009 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3010 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3011 3012 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 61 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0091 3013 ;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES 3014 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3015 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0 3016 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3017 ;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=-1,,-1 3018 ;BEFORE INCREMENTING. HENCE, AOSE SHOULD SKIP; AND THE 3019 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 3020 ;RESPECTIVELY. 3021 3022 032253 200 05 0 00 033424 C53510: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3023 032254 474 06 0 00 000000 SETO 6, ;PRELOAD E WITH -1,,-1 3024 032255 352 05 0 00 000006 AOSE 5,6 ;*AOSE SHOULD ADD 0,,1 TO C(E), 3025 ;UPDATE AC AND SKIP 3026 STOP^ 3027 032256 254 04 0 00 032257 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3028 032257 324 00 0 00 032260 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3029 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3030 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3031 032260 312 06 0 00 033431 CAME 6,[0] ;PASS IF E INCREMENTED CORRECTLY 3032 STOP^ 3033 032261 254 04 0 00 032262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3034 032262 324 00 0 00 032263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3035 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3036 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3037 032263 312 05 0 00 033431 CAME 5,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3038 STOP^ 3039 032264 254 04 0 00 032265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3040 032265 324 00 0 00 032266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3041 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3042 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3043 3044 ;********** 3045 3046 ;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES 3047 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3048 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0 3049 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3050 ;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(AC)=0 3051 ;BEFORE INCREMENTING. HENCE, AOSE SHOULD NOT SKIP; AND THE 3052 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 3053 ;RESPECTIVELY. 3054 3055 032266 200 05 0 00 033424 C53520: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3056 032267 400 06 0 00 000000 SETZ 6, ;PRELOAD E WITH 0 3057 032270 352 05 0 00 000006 AOSE 5,6 ;*AOSE SHOULD ADD 0,,1 TO C(E), 3058 ;UPDATE AC AND NOT SKIP 3059 032271 334 00 0 00 000000 SKIPA ;PASS IF AOSE DID NOT SKIP 3060 STOP^ 3061 032272 254 04 0 00 032273 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3062 032273 324 00 0 00 032274 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3063 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3064 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3065 032274 312 06 0 00 033432 CAME 6,[1] ;PASS IF E INCREMENTED CORRECTLY 3066 STOP^ 3067 032275 254 04 0 00 032276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 61-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0092 3068 032276 324 00 0 00 032277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3069 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3070 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3071 032277 312 05 0 00 033432 CAME 5,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3072 STOP^ 3073 032300 254 04 0 00 032301 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3074 032301 324 00 0 00 032302 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3075 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3076 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3077 3078 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 62 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0093 3079 ;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES 3080 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3081 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO0 3082 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3083 ;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-2 3084 ;BEFORE INCREMENTING. HENCE, AOSLE SHOULD SKIP; AND THE 3085 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 3086 ;RESPECTIVELY. 3087 3088 032302 200 04 0 00 033424 C53600: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3089 032303 561 05 0 00 777776 HRROI 5,-2 ;PRELOAD E WITH -1,,-2 3090 032304 353 04 0 00 000005 AOSLE 4,5 ;*AOSLE SHOULD ADD 0,,1 TO C(E), 3091 ;UPDATE AC AND SKIP ZERO 3092 STOP^ 3093 032305 254 04 0 00 032306 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3094 032306 324 00 0 00 032307 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3095 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3096 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3097 032307 312 05 0 00 033412 CAME 5,[-1] ;PASS IF E INCREMENTED CORRECTLY 3098 STOP^ 3099 032310 254 04 0 00 032311 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3100 032311 324 00 0 00 032312 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3101 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3102 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3103 032312 312 04 0 00 033412 CAME 4,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3104 STOP^ 3105 032313 254 04 0 00 032314 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3106 032314 324 00 0 00 032315 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3108 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3109 3110 ;********** 3111 3112 ;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES 3113 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3114 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0. 3115 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3116 ;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-1 3117 ;BEFORE INCREMENTING. HENCE, AOSLE SHOULD SKIP; AND THE 3118 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 3119 ;RESPECTIVELY. 3120 3121 032315 200 04 0 00 033424 C53610: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3122 032316 476 05 0 00 000000 SETOM 5, ;PRELOAD E WITH -1,,-1 3123 032317 353 04 0 00 000005 AOSLE 4,5 ;*AOSLE SHOULD ADD 0,,1 TO C(E) 3124 ;UPDATE AC AND SKIP 3125 STOP^ 3126 032320 254 04 0 00 032321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3127 032321 324 00 0 00 032322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3128 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3129 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3130 032322 312 05 0 00 033431 CAME 5,[0] ;PASS IF E INCREMENTED CORRECTLY 3131 STOP^ 3132 032323 254 04 0 00 032324 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3133 032324 324 00 0 00 032325 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 62-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0094 3134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3136 032325 312 04 0 00 033431 CAME 4,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3137 STOP^ 3138 032326 254 04 0 00 032327 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3139 032327 324 00 0 00 032330 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3140 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3141 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3142 3143 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 63 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0095 3144 ;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES 3145 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3146 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0 3147 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3148 ;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0 3149 ;BEFORE INCREMENTING. HENCE, AOSLE SHOULD NOT SKIP ; AND THE 3150 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 3151 ;RESPECTIVELY. 3152 3153 032330 200 04 0 00 033424 C53620: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3154 032331 400 00 0 00 000005 SETZ 5 ;PRELOAD E WITH 0 3155 032332 353 04 0 00 000005 AOSLE 4,5 ;*AOSLE SHOULD ADD 0,,1 TO C(E) 3156 ;UPDATE AC AND NOT SKIP 3157 032333 334 00 0 00 000000 SKIPA ;PASS IF AOSLE DID NOT SKIP 3158 STOP^ 3159 032334 254 04 0 00 032335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3160 032335 324 00 0 00 032336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3161 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3162 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3163 032336 312 05 0 00 033432 CAME 5,[1] ;PASS IF E INCREMENTED CORRECTLY 3164 STOP^ 3165 032337 254 04 0 00 032340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3166 032340 324 00 0 00 032341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3167 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3168 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3169 032341 312 04 0 00 033432 CAME 4,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3170 STOP^ 3171 032342 254 04 0 00 032343 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3172 032343 324 00 0 00 032344 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3173 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3174 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3175 3176 ;********** 3177 3178 ;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES 3179 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 3180 ;THE NEXT INSTRUCTION. 3181 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3182 ;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-2 3183 ;BEFORE INCREMENTING. HENCE, AOSA SHOULD SKIP ; AND THE 3184 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 3185 ;RESPECTIVELY. 3186 3187 032344 200 03 0 00 033424 C53700: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3188 032345 561 04 0 00 777776 HRROI 4,-2 ;PRELOAD E WITH -1,,-2 3189 032346 354 03 0 00 000004 AOSA 3,4 ;*AOSA SHOULD ADD 0,,1 TO C(E), 3190 ;UPDATE AC AND SKIP 3191 STOP^ 3192 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3193 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3195 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3196 032351 312 04 0 00 033412 CAME 4,[-1] ;PASS IF E INCREMENTED CORRECTLY 3197 STOP^ 3198 032352 254 04 0 00 032353 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 63-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0096 3199 032353 324 00 0 00 032354 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3200 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3201 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3202 032354 312 03 0 00 033412 CAME 3,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3203 STOP^ 3204 032355 254 04 0 00 032356 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3205 032356 324 00 0 00 032357 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3206 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3207 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3208 3209 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 64 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0097 3210 ;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES 3211 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 3212 ;THE NEXT INSTRUCTION. 3213 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3214 ;;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-1 3215 ;BEFORE INCREMENTING. HENCE, AOSA SHOULD SKIP AND THE 3216 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 3217 ;RESPECTIVELY 3218 3219 032357 200 03 0 00 033424 C53710: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3220 032360 474 04 0 00 000000 SETO 4, ;PRELOAD E WITH -1,,-1 3221 032361 354 03 0 00 000004 AOSA 3,4 ;*AOSA SHOULD ADD 0,,1 TO C(E), 3222 ;UPDATE AC AND SKIP 3223 STOP^ 3224 032362 254 04 0 00 032363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3225 032363 324 00 0 00 032364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3226 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3227 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3228 032364 312 04 0 00 033431 CAME 4,[0] ;PASS IF E INCREMENTED CORRECTLY 3229 STOP^ 3230 032365 254 04 0 00 032366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3231 032366 324 00 0 00 032367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3232 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3233 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3234 032367 312 03 0 00 033431 CAME 3,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3235 STOP^ 3236 032370 254 04 0 00 032371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3237 032371 324 00 0 00 032372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3238 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3239 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3240 3241 ;********** 3242 3243 ;THIS TEST VERIFIES THAT AOS INCREMENTS C(E) BY 0,,1 AND PLACES 3244 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 3245 ;THE NEXT INSTRUCTION. 3246 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3247 ;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0 3248 ;BEFORE INCREMENTING. HENCE, AOSA SHOULD SKIP ; AND THE 3249 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 3250 ;RESPECTIVELY 3251 3252 032372 200 03 0 00 033424 C53720: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3253 032373 400 04 0 00 000000 SETZ 4, ;PRELOAD E WITH 0 3254 032374 354 03 0 00 000004 AOSA 3,4 ;*AOSA SHOULD ADD 0,,1 TO C(E), 3255 ;UPDATE AC AND SKIP 3256 STOP^ 3257 032375 254 04 0 00 032376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3258 032376 324 00 0 00 032377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3259 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3260 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3261 032377 312 04 0 00 033432 CAME 4,[1] ;PASS IF E INCREMENTED CORRECTLY 3262 STOP^ 3263 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3264 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 64-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0098 3265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3266 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3267 032402 312 03 0 00 033432 CAME 3,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3268 STOP^ 3269 032403 254 04 0 00 032404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3270 032404 324 00 0 00 032405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3271 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3272 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3273 3274 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 65 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0099 3275 ;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES 3276 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3277 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0 3278 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3279 ;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-2 3280 ;BEFORE INCREMENTING. HENCE, AOSGE SHOULD NOT SKIP; AND THE 3281 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 3282 ;RESPECTIVELY 3283 3284 032405 200 02 0 00 033424 C54000: MOVE 2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3285 032406 561 03 0 00 777776 HRROI 3,-2 ;PRELOAD E WITH -1,,-2 3286 032407 355 02 0 00 000003 AOSGE 2,3 ;*AOSGE SHOULD ADD 0,,1 TO C(E), 3287 ;UPDATE AC AND NOT SKIP 3288 032410 334 00 0 00 000000 SKIPA ;PASS IF AOSGE DID NOT SKIP 3289 STOP^ 3290 032411 254 04 0 00 032412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3291 032412 324 00 0 00 032413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3292 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3293 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3294 032413 312 03 0 00 033412 CAME 3,[-1] ;PASS IF E INCREMENTED CORRECTLY 3295 STOP^ 3296 032414 254 04 0 00 032415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3297 032415 324 00 0 00 032416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3298 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3299 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3300 032416 312 02 0 00 033412 CAME 2,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3301 STOP^ 3302 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3303 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3306 3307 ;********** 3308 3309 ;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES 3310 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3311 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0 3312 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3313 ;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-1 3314 ;BEFORE INCREMENTING. HENCE, AOSGE SHOULD SKIP; AND THE 3315 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 3316 ;RESPECTIVELY 3317 3318 032421 200 02 0 00 033424 C54010: MOVE 2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3319 032422 474 03 0 00 000000 SETO 3, ;PRELOAD E WITH 0 3320 032423 355 02 0 00 000003 AOSGE 2,3 ;*AOSGE SHOULD ADD 0,,1 TO C(E), 3321 ;UPDATE AC AND SKIP 3322 STOP^ 3323 032424 254 04 0 00 032425 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3324 032425 324 00 0 00 032426 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3325 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3326 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3327 032426 312 03 0 00 033431 CAME 3,[0] ;PASS IF E INCREMENTED CORRECTLY 3328 STOP^ 3329 032427 254 04 0 00 032430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 65-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0100 3330 032430 324 00 0 00 032431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3331 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3332 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3333 032431 312 02 0 00 033431 CAME 2,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3334 STOP^ 3335 032432 254 04 0 00 032433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3336 032433 324 00 0 00 032434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3339 3340 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 66 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0101 3341 ;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES 3342 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3343 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0 3344 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3345 ;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=0 3346 ;BEFORE INCREMENTING. HENCE, AOSGE SHOULD SKIP; AND THE 3347 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 3348 ;RESPECTIVELY 3349 3350 032434 200 02 0 00 033424 C54020: MOVE 2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3351 032435 400 03 0 00 000000 SETZ 3, ;PRELOAD E WITH 0 3352 032436 355 02 0 00 000003 AOSGE 2,3 ;*AOSGE SHOULD ADD 0,,1 TO C(E), 3353 ;UPDATE AC AND SKIP 3354 STOP^ 3355 032437 254 04 0 00 032440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3356 032440 324 00 0 00 032441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3358 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3359 032441 312 03 0 00 033432 CAME 3,[1] ;PASS IF E INCREMENTED CORRECTLY 3360 STOP^ 3361 032442 254 04 0 00 032443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3362 032443 324 00 0 00 032444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3363 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3364 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3365 032444 312 02 0 00 033432 CAME 2,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3366 STOP^ 3367 032445 254 04 0 00 032446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3368 032446 324 00 0 00 032447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3371 3372 ;********** 3373 3374 ;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES 3375 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3376 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO. 3377 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3378 ;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-2 3379 ;BEFORE INCREMENTING. HENCE, AOSN SHOULD NOT SKIP; AND THE 3380 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 3381 ;RESPECTIVELY 3382 3383 032447 200 01 0 00 033424 C54100: MOVE 1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3384 032450 561 02 0 00 777776 HRROI 2,-2 ;PRELOAD E WITH -1,,-2 3385 032451 356 01 0 00 000002 AOSN 1,2 ;*AOSN SHOULD ADD 0,,1 TO C(E), 3386 ;UPDATE AC AND SKIP 3387 STOP^ 3388 032452 254 04 0 00 032453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3389 032453 324 00 0 00 032454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3392 032454 312 02 0 00 033412 CAME 2,[-1] ;PASS IF E INCREMENTED CORRECTLY 3393 STOP^ 3394 032455 254 04 0 00 032456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3395 032456 324 00 0 00 032457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 66-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0102 3396 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3397 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3398 032457 312 01 0 00 033412 CAME 1,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3399 STOP^ 3400 032460 254 04 0 00 032461 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3401 032461 324 00 0 00 032462 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3402 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3403 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3404 3405 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 67 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0103 3406 ;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES 3407 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3408 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO 3409 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3410 ;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-1 3411 ;BEFORE INCREMENTING. HENCE, AOSN SHOULD NOT SKIP; AND THE 3412 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 3413 ;RESPECTIVELY 3414 3415 032462 200 01 0 00 033424 C54110: MOVE 1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3416 032463 474 02 0 00 000000 SETO 2, ;PRELOAD E WITH -1,,-1 3417 032464 356 01 0 00 000002 AOSN 1,2 ;*AOSN SHOULD ADD 0,,1 TO C(E), 3418 ;UPDATE AC AND NOT SKIP 3419 032465 334 00 0 00 000000 SKIPA ;PASS IF AOSN DID NOT SKIP 3420 STOP^ 3421 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3422 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3423 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3424 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3425 032470 312 02 0 00 033431 CAME 2,[0] ;PASS IF E INCREMENTED CORRECTLY 3426 STOP^ 3427 032471 254 04 0 00 032472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3428 032472 324 00 0 00 032473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3431 032473 312 01 0 00 033431 CAME 1,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3432 STOP^ 3433 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3434 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3437 3438 ;********** 3439 3440 ;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES 3441 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3442 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO 3443 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3444 ;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=0 3445 ;BEFORE INCREMENTING. HENCE, AOSN SHOULD SKIP; AND THE 3446 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 3447 ;RESPECTIVELY 3448 3449 032476 200 01 0 00 033424 C54120: MOVE 1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3450 032477 400 02 0 00 000000 SETZ 2, ;PRELOAD E WITH 0 3451 032500 356 01 0 00 000002 AOSN 1,2 ;*AOSN SHOULD ADD 0,,1 TO C(E), 3452 ;UPDATE AC AND SKIP 3453 STOP^ 3454 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3455 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3456 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3457 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3458 032503 312 02 0 00 033432 CAME 2,[1] ;PASS IF E INCREMENTED CORRECTLY 3459 STOP^ 3460 032504 254 04 0 00 032505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 67-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0104 3461 032505 324 00 0 00 032506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3462 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3463 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3464 032506 312 01 0 00 033432 CAME 1,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 3465 STOP^ 3466 032507 254 04 0 00 032510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3467 032510 324 00 0 00 032511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3468 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3469 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3470 3471 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 68 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0105 3472 ;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES 3473 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3474 ;THE NEST INSTRUCTION IF C(E) IS GREATER THAN 0 3475 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3476 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-2 3477 ;BEFORE INCREMENTING. HENCE, AOSG SHOULD NOT SKIP; AND THE 3478 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1 3479 ;RESPECTIVELY 3480 3481 032511 200 00 0 00 033424 C54200: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3482 032512 561 01 0 00 777776 HRROI 1,-2 ;PRELOAD E WITH -1,,-2 3483 032513 357 00 0 00 000001 AOSG 0,1 ;*AOSG SHOULD ADD 0,,1 TO C(E), 3484 ;AND NOT SKIP 3485 032514 334 00 0 00 000000 SKIPA ;PASS IF AOSG DID NOT SKIP 3486 STOP^ 3487 032515 254 04 0 00 032516 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3488 032516 324 00 0 00 032517 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3489 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3490 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3491 032517 312 01 0 00 033412 CAME 1,[-1] ;PASS IF E INCREMENTED CORRECTLY 3492 STOP^ 3493 032520 254 04 0 00 032521 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3494 032521 324 00 0 00 032522 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3495 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3496 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3497 032522 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 3498 STOP^ 3499 032523 254 04 0 00 032524 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3500 032524 324 00 0 00 032525 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3501 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3502 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3503 3504 ;********** 3505 3506 ;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES 3507 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3508 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0 3509 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3510 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-1 3511 ;BEFORE INCREMENTING. HENCE, AOSG SHOULD NOT SKIP; AND THE 3512 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0 3513 ;RESPECTIVELY 3514 3515 032525 200 00 0 00 033424 C54210: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3516 032526 474 01 0 00 000000 SETO 1, ;PRELOAD E WITH -1,,-1 3517 032527 357 00 0 00 000001 AOSG 0,1 ;*AOSG SHOULD ADD 0,,1 TO C(E), 3518 ;AND NOT SKIP 3519 032530 334 00 0 00 000000 SKIPA ;PASS IF AOSG DID NOT SKIP 3520 STOP^ 3521 032531 254 04 0 00 032532 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3522 032532 324 00 0 00 032533 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3523 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3524 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3525 032533 312 01 0 00 033431 CAME 1,[0] ;PASS IF E INCREMENTED CORRECTLY 3526 STOP^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 68-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0106 3527 032534 254 04 0 00 032535 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3528 032535 324 00 0 00 032536 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3529 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3530 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3531 032536 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 3532 STOP^ 3533 032537 254 04 0 00 032540 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3534 032540 324 00 0 00 032541 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3535 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3536 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3537 3538 ;*********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 69 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL AOSX INSTRUCTIONS SEQ 0107 3539 ;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES 3540 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 3541 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0 3542 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 3543 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0 3544 ;BEFORE INCREMENTING. HENCE, AOSG SHOULD SKIP; AND THE 3545 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1 3546 ;RESPECTIVELY 3547 3548 032541 200 00 0 00 033424 C54220: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 3549 032542 400 01 0 00 000000 SETZ 1, ;PRELOAD E WITH 0 3550 032543 357 00 0 00 000001 AOSG 0,1 ;*AOSG SHOULD ADD 0,,1 TO C(E), 3551 ;AND SKIP 3552 STOP^ 3553 032544 254 04 0 00 032545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3554 032545 324 00 0 00 032546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3557 032546 312 01 0 00 033432 CAME 1,[1] ;PASS IF E INCREMENTED CORRECTLY 3558 STOP^ 3559 032547 254 04 0 00 032550 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3560 032550 324 00 0 00 032551 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3561 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3562 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3563 032551 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 3564 STOP^ 3565 032552 254 04 0 00 032553 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3566 032553 324 00 0 00 032554 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3567 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3568 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3569 3570 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 70 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0108 3571 SUBTTL TEST OF MSCL SOJX INSTRUCTIONS 3572 3573 ;********** 3574 3575 ;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND 3576 ;PLACES THE RESTULT BACK INTO THE AC. THE RESULT IN THE AC IS 3577 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3578 ;SPECIFIED BY E IF C(AC) IS LESS THAN 0. 3579 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE, SOJL 3580 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1 3581 3582 032554 201 17 0 00 000000 C54300: MOVEI 17,0 ;PRELOAD AC WITH 0 3583 032555 361 17 0 00 032557 SOJL 17,.+2 ;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC) 3584 ;AND JUMP 3585 STOP^ 3586 032556 254 04 0 00 032557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3587 032557 324 00 0 00 032560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3588 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3589 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3590 032560 312 17 0 00 033412 CAME 17,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3591 STOP^ 3592 032561 254 04 0 00 032562 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3593 032562 324 00 0 00 032563 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3594 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3595 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3596 3597 ;*********** 3598 3599 ;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND 3600 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3601 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3602 ;SPECIFIED BY E IF C(AC) IS LESS THAN 0. 3603 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJL 3604 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0. 3605 3606 032563 201 17 0 00 000001 C54310: MOVEI 17,1 ;PRELOAD AC WITH 0,,1 3607 032564 361 17 0 00 032566 SOJL 17,.+2 ;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC) 3608 032565 334 00 0 00 000000 SKIPA ;PASS IF SOJL DID NOT JUMP 3609 STOP^ 3610 032566 254 04 0 00 032567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3611 032567 324 00 0 00 032570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3612 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3613 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3614 032570 312 17 0 00 033431 CAME 17,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3615 STOP^ 3616 032571 254 04 0 00 032572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3617 032572 324 00 0 00 032573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3618 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3619 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3620 3621 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 71 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0109 3622 ;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND 3623 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3624 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3625 ;SPECIFIED BY E IF C(AC) IS LESS THAN 0 3626 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJ 3627 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1 3628 3629 032573 201 17 0 00 000002 C54320: MOVEI 17,2 ;PRELOAD AC WITH 0,,2 3630 032574 361 17 0 00 032576 SOJL 17,.+2 ;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC) 3631 ;AND NOT JUMP. 3632 032575 334 00 0 00 000000 SKIPA ;PASS IF SOJL DID NOT JUMP 3633 STOP^ 3634 032576 254 04 0 00 032577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3635 032577 324 00 0 00 032600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3637 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3638 032600 312 17 0 00 033432 CAME 17,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3639 STOP^ 3640 032601 254 04 0 00 032602 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3641 032602 324 00 0 00 032603 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3644 3645 ;********** 3646 3647 ;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND 3648 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3649 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3650 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0. 3651 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE, SOJE 3652 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1 3653 3654 032603 201 16 0 00 000000 C54400: MOVEI 16,0 ;PRELOAD AC WITH 0 3655 032604 362 16 0 00 032606 SOJE 16,.+2 ;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC) 3656 ;AND NOT JUMP. 3657 032605 334 00 0 00 000000 SKIPA ;PASS IF SOJE DID NOT JUMP 3658 STOP^ 3659 032606 254 04 0 00 032607 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3660 032607 324 00 0 00 032610 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3661 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3662 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3663 032610 312 16 0 00 033412 CAME 16,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3664 STOP^ 3665 032611 254 04 0 00 032612 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3666 032612 324 00 0 00 032613 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3667 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3668 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3669 3670 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 72 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0110 3671 ;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND 3672 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3673 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3674 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0 3675 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJ 3676 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0 3677 3678 032613 201 16 0 00 000001 C54410: MOVEI 16,1 ;PRELOAD AC WITH 0,,1 3679 032614 362 16 0 00 032616 SOJE 16,.+2 ;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC) 3680 ;AND JUMP 3681 STOP^ 3682 032615 254 04 0 00 032616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3683 032616 324 00 0 00 032617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3684 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3685 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3686 032617 312 16 0 00 033431 CAME 16,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3687 STOP^ 3688 032620 254 04 0 00 032621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3689 032621 324 00 0 00 032622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3690 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3691 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3692 3693 ;********** 3694 3695 ;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND 3696 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3697 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3698 ;SPECIFIED BY E IF C(AC) IS EQUAL TO 0. 3699 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJE 3700 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1 3701 3702 032622 201 16 0 00 000002 C54420: MOVEI 16,2 ;PRELOAD AC WITH 0,,2 3703 032623 362 16 0 00 032625 SOJE 16,.+2 ;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC) 3704 ;AND NOT JUMP. 3705 032624 334 00 0 00 000000 SKIPA ;PASS IF SOJE DID NOT JUMP 3706 STOP^ 3707 032625 254 04 0 00 032626 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3708 032626 324 00 0 00 032627 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3709 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3710 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3711 032627 312 16 0 00 033432 CAME 16,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3712 STOP^ 3713 032630 254 04 0 00 032631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3714 032631 324 00 0 00 032632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3715 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3716 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3717 3718 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 73 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0111 3719 ;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND 3720 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3721 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3722 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0 3723 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE, SOJLE 3724 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1 3725 3726 032632 201 15 0 00 000000 C54500: MOVEI 15,0 ;PRELOAD AC WITH 0 3727 032633 363 15 0 00 032635 SOJLE 15,.+2 ;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC) 3728 ;AND JUMP 3729 STOP^ 3730 032634 254 04 0 00 032635 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3731 032635 324 00 0 00 032636 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3732 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3733 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3734 032636 312 15 0 00 033412 CAME 15,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3735 STOP^ 3736 032637 254 04 0 00 032640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3737 032640 324 00 0 00 032641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3738 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3739 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3740 3741 ;********** 3742 3743 ;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND 3744 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3745 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3746 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUALTO 0. 3747 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJLE 3748 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0 3749 3750 032641 201 15 0 00 000001 C54510: MOVEI 15,1 ;PRELOAD AC WITH 0,,1 3751 032642 363 15 0 00 032644 SOJLE 15,.+2 ;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC) 3752 ;AND JUMP 3753 STOP^ 3754 032643 254 04 0 00 032644 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3755 032644 324 00 0 00 032645 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3756 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3757 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3758 032645 312 15 0 00 033431 CAME 15,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3759 STOP^ 3760 032646 254 04 0 00 032647 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3761 032647 324 00 0 00 032650 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3762 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3763 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3764 3765 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 74 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0112 3766 ;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND 3767 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3768 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3769 ;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0. 3770 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJLE 3771 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1 3772 3773 032650 201 15 0 00 000002 C54520: MOVEI 15,2 ;PRELOAD AC WITH 0,,2 3774 032651 363 15 0 00 032653 SOJLE 15,.+2 ;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC) 3775 ;AND NOT JUMP 3776 032652 334 00 0 00 000000 SKIPA ;PASS IF SOJLE DID NOT JUMP 3777 STOP^ 3778 032653 254 04 0 00 032654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3779 032654 324 00 0 00 032655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3780 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3781 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3782 032655 312 15 0 00 033432 CAME 15,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3783 STOP^ 3784 032656 254 04 0 00 032657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3785 032657 324 00 0 00 032660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3786 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3787 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3788 3789 ;********** 3790 3791 ;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND 3792 ;PLACES THE RESULT INTO THE AC. THE RESULT IN THE AC IS 3793 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 3794 ;SPECIFIED BY E 3795 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE, SOJA 3796 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1 3797 3798 032660 201 14 0 00 000000 C54600: MOVEI 14,0 ;PRELOAD AC WITH 0 3799 032661 364 14 0 00 032663 SOJA 14,.+2 ;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC) 3800 ;AND JUMP 3801 STOP^ 3802 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3803 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3804 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3805 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3806 032664 312 14 0 00 033412 CAME 14,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3807 STOP^ 3808 032665 254 04 0 00 032666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3809 032666 324 00 0 00 032667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3810 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3811 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3812 3813 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 75 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0113 3814 ;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND 3815 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3816 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 3817 ;SPECIFIED BY E 3818 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJA 3819 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0 3820 3821 032667 201 14 0 00 000001 C54610: MOVEI 14,1 ;PRELOAD AC WITH 0,,1 3822 032670 364 14 0 00 032672 SOJA 14,.+2 ;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC) 3823 ;AND JUMP 3824 STOP^ 3825 032671 254 04 0 00 032672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3826 032672 324 00 0 00 032673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3827 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3828 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3829 032673 312 14 0 00 033431 CAME 14,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3830 STOP^ 3831 032674 254 04 0 00 032675 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3832 032675 324 00 0 00 032676 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3835 3836 ;********** 3837 3838 ;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND 3839 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3840 ;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION 3841 ;SPECIFIED BY E 3842 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJA 3843 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1 3844 3845 032676 201 14 0 00 000002 C54620: MOVEI 14,2 ;PRELOAD AC WITH 0,,2 3846 032677 364 14 0 00 032701 SOJA 14,.+2 ;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC) 3847 ;AND JUMP 3848 STOP^ 3849 032700 254 04 0 00 032701 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3850 032701 324 00 0 00 032702 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3851 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3852 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3853 032702 312 14 0 00 033432 CAME 14,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3854 STOP^ 3855 032703 254 04 0 00 032704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3856 032704 324 00 0 00 032705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3858 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3859 3860 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 76 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0114 3861 ;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND 3862 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3863 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3864 ;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0 3865 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE, SOJGE 3866 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1 3867 3868 032705 201 13 0 00 000000 C54700: MOVEI 13,0 ;PRELOAD A C WITH 0 3869 032706 365 13 0 00 032710 SOJGE 13,.+2 ;*SOJGE SHOULD SUBTRACT 0,,1 FROM C(AC) 3870 ;AND NOT JUMP 3871 032707 334 00 0 00 000000 SKIPA ;PASS IF SOJGE DID NOT JUMP 3872 STOP^ 3873 032710 254 04 0 00 032711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3874 032711 324 00 0 00 032712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3875 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3876 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3877 032712 312 13 0 00 033412 CAME 13,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3878 STOP^ 3879 032713 254 04 0 00 032714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3880 032714 324 00 0 00 032715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3883 3884 ;********** 3885 3886 ;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND 3887 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3888 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3889 ;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0 3890 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJGE 3891 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0 3892 3893 032715 201 13 0 00 000001 C54710: MOVEI 13,1 ;PRELOAD AC WITH 0,,1 3894 032716 365 13 0 00 032720 SOJGE 13,.+2 ;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC) 3895 ;AND JUMP 3896 STOP^ 3897 032717 254 04 0 00 032720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3898 032720 324 00 0 00 032721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3899 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3900 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3901 032721 312 13 0 00 033431 CAME 13,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3902 STOP^ 3903 032722 254 04 0 00 032723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3904 032723 324 00 0 00 032724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3907 3908 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 77 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0115 3909 ;THIS TEST VERIRIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND PLACES THE 3910 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS COMPARED 3911 ;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC IS 3912 ;GREATER THAN OR EQUAL TO 0. IN THIS CASE, C(AC = 0,,2 BEFORE 3913 ;DECREMENTING. HENCE, SOJGE SHOULD JUMP AND THE RESULT IN THE AC SHOULD 3914 ;BE 0,,1. 3915 3916 032724 201 13 0 00 000002 C54720: MOVEI 13,2 ;PRELOAD AC WITH 0,,2 3917 032725 365 13 0 00 032727 SOJGE 13,.+2 ;*SOJGE SHOULD SUBTRACT0,,1 FROM C(AC) 3918 ;AND JUMP. 3919 STOP^ 3920 032726 254 04 0 00 032727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3921 032727 324 00 0 00 032730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3922 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3923 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3924 032730 312 13 0 00 033432 CAME 13,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3925 STOP^ 3926 032731 254 04 0 00 032732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3927 032732 324 00 0 00 032733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3928 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3929 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3930 3931 ;********** 3932 3933 ;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND 3934 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3935 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3936 ;SPECIFIED BY E IF C(AC) IS NON-ZERO. 3937 ;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING. HENCE,SOJN 3938 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1. 3939 3940 032733 201 12 0 00 000000 C55000: MOVEI 12,0 ;PRELOAD AC WITH 0 3941 032734 366 12 0 00 032736 SOJN 12,.+2 ;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC) 3942 ;AND JUMP. 3943 STOP^ 3944 032735 254 04 0 00 032736 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3945 032736 324 00 0 00 032737 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3946 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3947 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3948 032737 312 12 0 00 033412 CAME 12,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3949 STOP^ 3950 032740 254 04 0 00 032741 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3951 032741 324 00 0 00 032742 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3952 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3953 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3954 3955 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 78 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0116 3956 ;THIS TEST VERIRIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND 3957 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3958 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED 3959 ;BY E IF C(AC) IS NON-ZERO. 3960 ;IN THIS CASE, C(AC) = 0,,1 BEFORE DECREMENTING. HENCE, SOJN 3961 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0. 3962 3963 032742 201 12 0 00 000001 C55010: MOVEI 12,1 ;PRELOAD AC WITH 0,,1 3964 032743 366 12 0 00 032745 SOJN 12,.+2 ;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC) 3965 ;AND NOT JUMP. 3966 032744 334 00 0 00 000000 SKIPA ;PASS IF SOJN DID NOT JUMP 3967 STOP^ 3968 032745 254 04 0 00 032746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3969 032746 324 00 0 00 032747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3970 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3971 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3972 032747 312 12 0 00 033431 CAME 12,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 3973 STOP^ 3974 032750 254 04 0 00 032751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3975 032751 324 00 0 00 032752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3977 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3978 3979 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 79 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0117 3980 ;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND 3981 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 3982 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 3983 ;SPECIFIED BY E IF C(AC) IS NON-ZERO. 3984 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJN 3985 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1. 3986 3987 032752 201 12 0 00 000002 C55020: MOVEI 12,2 ;PRELOAD AC WITH 0,,2 3988 032753 366 12 0 00 032755 SOJN 12,.+2 ;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC) 3989 ;AND JUMP. 3990 STOP^ 3991 032754 254 04 0 00 032755 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3992 032755 324 00 0 00 032756 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3994 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3995 032756 312 12 0 00 033432 CAME 12,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 3996 STOP^ 3997 032757 254 04 0 00 032760 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3998 032760 324 00 0 00 032761 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4001 4002 ;********** 4003 4004 ;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND 4005 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 4006 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 4007 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0. 4008 ;IN THIS CASE, C(AC) = 0 BEFORE DECREMENTING. HENCE, SOJG 4009 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1. 4010 4011 032761 201 11 0 00 000000 C55100: MOVEI 11,0 ;PRELOAD AC WITH 0 4012 032762 367 11 0 00 032764 SOJG 11,.+2 ;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC) 4013 ;AND NOT JUMP. 4014 032763 334 00 0 00 000000 SKIPA ;PASS IF SOJG DID NOT JUMP 4015 STOP^ 4016 032764 254 04 0 00 032765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4017 032765 324 00 0 00 032766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4018 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4019 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4020 032766 312 11 0 00 033412 CAME 11,[-1] ;PASS IF C(AC) DECREMENTED CORRECTLY 4021 STOP^ 4022 032767 254 04 0 00 032770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4023 032770 324 00 0 00 032771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4024 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4025 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4026 4027 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 80 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOJX INSTRUCTIONS SEQ 0118 4028 ;THIS TEST VERIRIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND 4029 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 4030 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 4031 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0. 4032 ;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING. HENCE, SOJG 4033 ;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0. 4034 4035 032771 201 11 0 00 000001 C55110: MOVEI 11,1 ;PRELOAD AC WITH 0,,1 4036 032772 367 11 0 00 032774 SOJG 11,.+2 ;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC) 4037 ;AND NOT JUMP. 4038 032773 334 00 0 00 000000 SKIPA ;PASS IF SOJG DID NOT JUMP 4039 STOP^ 4040 032774 254 04 0 00 032775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4041 032775 324 00 0 00 032776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4042 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4043 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4044 032776 312 11 0 00 033431 CAME 11,[0] ;PASS IF C(AC) DECREMENTED CORRECTLY 4045 STOP^ 4046 032777 254 04 0 00 033000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4047 033000 324 00 0 00 033001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4048 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4049 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4050 4051 ;********** 4052 4053 ;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND 4054 ;PLACES THE RESULT BACK INTO THE AC. THE RESULT IN THE AC IS 4055 ;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 4056 ;SPECIFIED BY E IF C(AC) IS GREATER THAN 0. 4057 ;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING. HENCE, SOJG 4058 ;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1. 4059 4060 033001 201 11 0 00 000002 C55120: MOVEI 11,2 ;PRELOAD AC WITH 0,,2 4061 033002 367 11 0 00 033004 SOJG 11,.+2 ;*SOJG SHOULD SUBTRACT O,,1 FROM C(AC) 4062 ;AND JUMP. 4063 STOP^ 4064 033003 254 04 0 00 033004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4065 033004 324 00 0 00 033005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4067 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4068 033005 312 11 0 00 033432 CAME 11,[1] ;PASS IF C(AC) DECREMENTED CORRECTLY 4069 STOP^ 4070 033006 254 04 0 00 033007 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4071 033007 324 00 0 00 033010 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4072 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4073 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4074 4075 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 81 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0119 4076 SUBTTL TEST OF MSCL SOSX INSTRUCTIONS 4077 4078 ;********** 4079 4080 ;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES 4081 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4082 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0. 4083 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4084 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0 4085 ;BEFORE INCREMENTING. HENCE, SOSL SHOULD SKIP; AND THE 4086 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1 4087 ;RESPECTIVELY. 4088 4089 033010 200 00 0 00 033424 C55200: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4090 033011 201 01 0 00 000000 MOVEI 1,0 ;PRELOAD E WITH 0 4091 033012 371 00 0 00 000001 SOSL 0,1 ;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E) 4092 ;AND SKIP 4093 STOP^ 4094 033013 254 04 0 00 033014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4095 033014 324 00 0 00 033015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4096 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4097 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4098 033015 312 01 0 00 033412 CAME 1,[-1] ;PASS IF E DECREMENTED CORRECTLY 4099 STOP^ 4100 033016 254 04 0 00 033017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4101 033017 324 00 0 00 033020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4102 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4103 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4104 033020 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 4105 STOP^ 4106 033021 254 04 0 00 033022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4107 033022 324 00 0 00 033023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4108 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4109 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4110 4111 ;********** 4112 4113 ;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES 4114 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4115 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0. 4116 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4117 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1 4118 ;BEFORE INCREMENTING. HENCE, SOSL SHOULD NOT SKIP; AND THE 4119 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0 4120 ;RESPECTIVELY. 4121 4122 033023 200 00 0 00 033424 C55210: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4123 033024 201 01 0 00 000001 MOVEI 1,1 ;PRELOAD E WITH 0,,1 4124 033025 371 00 0 00 000001 SOSL 0,1 ;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E), 4125 ;AND NOT SKIP. 4126 033026 334 00 0 00 000000 SKIPA ;PASS IF SOSL DID NOT SKIP 4127 STOP^ 4128 033027 254 04 0 00 033030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4129 033030 324 00 0 00 033031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 81-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0120 4131 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4132 033031 312 01 0 00 033431 CAME 1,[0] ;PASS IF E DECREMENTED CORRECTLY 4133 STOP^ 4134 033032 254 04 0 00 033033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4135 033033 324 00 0 00 033034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4136 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4137 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4138 033034 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 4139 STOP^ 4140 033035 254 04 0 00 033036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4141 033036 324 00 0 00 033037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4142 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4143 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4144 4145 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 82 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0121 4146 ;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES 4147 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4148 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0. 4149 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4150 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1 4151 ;BEFORE INCREMENTING. HENCE, SOSL SHOULD NOT SKIP; AND THE 4152 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0 4153 ;RESPECTIVELY. 4154 4155 033037 200 00 0 00 033424 C55211: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4156 033040 201 01 0 00 000001 MOVEI 1,1 ;PRELOAD E WITH 0,,1 4157 033041 202 01 0 00 033056 MOVEM 1,E55211 4158 033042 371 00 0 00 033056 SOSL 0,E55211 ;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E), 4159 ;AND NOT SKIP. 4160 033043 334 00 0 00 000000 SKIPA ;PASS IF SOSL DID NOT SKIP 4161 STOP^ 4162 033044 254 04 0 00 033045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4163 033045 324 00 0 00 033046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4164 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4165 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4166 033046 200 01 0 00 033056 MOVE 1,E55211 4167 033047 312 01 0 00 033431 CAME 1,[0] ;PASS IF E DECREMENTED CORRECTLY 4168 STOP^ 4169 033050 254 04 0 00 033051 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4170 033051 324 00 0 00 033052 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4171 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4172 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4173 033052 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED 4174 STOP^ 4175 033053 254 04 0 00 033054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4176 033054 324 00 0 00 033055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4177 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4178 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4179 4180 033055 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 4181 033056 000000 000000 E55211: 0 ;TEST WORD MEMORY 4182 4183 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 83 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0122 4184 ;THIS TEST VERIFIES THAT SOS DECREMENTS C(E) BY 0,,1 AND PLACES 4185 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4186 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0. 4187 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4188 ;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E) 0,,2 4189 ;BEFORE INCREMENTING. HENCE, SOSL SHOULD NOT SKIP; AND THE 4190 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1 4191 ;RESPECTIVELY. 4192 4193 033057 200 00 0 00 033424 C55220: MOVE 0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4194 033060 201 01 0 00 000002 MOVEI 1,2 ;PRELOAD E WITH 0,,2 4195 033061 371 00 0 00 000001 SOSL 0,1 ;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E), 4196 ;AND NOT SKIP 4197 4198 033062 334 00 0 00 000000 SKIPA ;PASS IF SOSL DID NOT SKIP 4199 STOP^ 4200 033063 254 04 0 00 033064 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4201 033064 324 00 0 00 033065 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4203 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4204 033065 312 01 0 00 033432 CAME 1,[1] ;PASS IF E DECREMENTED CORRECTLY 4205 STOP^ 4206 033066 254 04 0 00 033067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4207 033067 324 00 0 00 033070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4208 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4209 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4210 033070 312 00 0 00 033424 CAME 0,[707070,,707070] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4211 STOP^ 4212 033071 254 04 0 00 033072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4213 033072 324 00 0 00 033073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4216 4217 ;********** 4218 4219 ;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES 4220 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4221 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0 4222 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4223 ;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0 4224 ;BEFORE INCREMENTING. HENCE, SOSE SHOULD NOT SKIP ; AND THE 4225 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4226 ;RESPECTIVELY. 4227 4228 033073 200 10 0 00 033424 C55300: MOVE 10,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4229 033074 201 11 0 00 000000 MOVEI 11,0 ;PRELOAD E WITH 0 4230 033075 372 10 0 00 000011 SOSE 10,11 ;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E), 4231 ;UPDATE AC AND NOT SKIP 4232 4233 033076 334 00 0 00 000000 SKIPA ;PASS IF SOSE DID NOT SKIP 4234 STOP^ 4235 033077 254 04 0 00 033100 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4236 033100 324 00 0 00 033101 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4238 ;IN THE SUBTEST) TO LOOP ON ERROR^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 83-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0123 4239 033101 312 11 0 00 033412 CAME 11,[-1] ;PASS IF E DECREMENTED CORRECTLY 4240 STOP^ 4241 033102 254 04 0 00 033103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4242 033103 324 00 0 00 033104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4244 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4245 033104 312 10 0 00 033412 CAME 10,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4246 STOP^ 4247 033105 254 04 0 00 033106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4248 033106 324 00 0 00 033107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4249 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4250 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4251 4252 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 84 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0124 4253 ;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES 4254 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4255 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0 4256 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4257 ;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,1 4258 ;BEFORE INCREMENTING. HENCE, SOSE SHOULD SKIP ; AND THE 4259 ;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0 4260 ;RESPECTIVELY. 4261 4262 033107 200 10 0 00 033424 C55310: MOVE 10,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4263 033110 201 11 0 00 000001 MOVEI 11,1 ;PRELOAD E WITH 0,,1 4264 033111 372 10 0 00 000011 SOSE 10,11 ;*SOS SHOULD SUBTRACT 0,,1 FROM C(E) 4265 ;UPDATE AC AND SKIP 4266 STOP^ 4267 033112 254 04 0 00 033113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4268 033113 324 00 0 00 033114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4269 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4270 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4271 033114 312 11 0 00 033431 CAME 11,[0] ;PASS IF E DECREMENTED CORRECTLY 4272 STOP^ 4273 033115 254 04 0 00 033116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4274 033116 324 00 0 00 033117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4275 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4276 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4277 033117 312 10 0 00 033431 CAME 10,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4278 STOP^ 4279 033120 254 04 0 00 033121 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4280 033121 324 00 0 00 033122 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4281 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4282 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4283 4284 ;********** 4285 4286 ;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,11 AND PLACES 4287 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4288 ;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0. 4289 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4290 ;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,2 4291 ;BEFORE INCREMENTING. HENCE, SOSE SHOULD NOT SKIP ; AND THE 4292 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 4293 ;RESPECTIVELY. 4294 4295 033122 200 10 0 00 033424 C55320: MOVE 10,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4296 033123 201 11 0 00 000002 MOVEI 11,2 ;PRELOAD E WITH 0,,2 4297 033124 372 10 0 00 000011 SOSE 10,11 ;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E), 4298 ;UPDATE AC AND NOT SKIP 4299 4300 033125 334 00 0 00 000000 SKIPA ;PASS IF SOSE DID NOT SKIP 4301 STOP^ 4302 033126 254 04 0 00 033127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4303 033127 324 00 0 00 033130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4306 033130 312 11 0 00 033432 CAME 11,[1] ;PASS IF E DECREMENTED CORRECTLY 4307 STOP^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 84-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0125 4308 033131 254 04 0 00 033132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4309 033132 324 00 0 00 033133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4310 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4311 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4312 033133 312 10 0 00 033432 CAME 10,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4313 STOP^ 4314 033134 254 04 0 00 033135 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4315 033135 324 00 0 00 033136 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4316 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4317 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4318 4319 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 85 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0126 4320 ;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES 4321 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4322 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0. 4323 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4324 ;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0 4325 ;BEFORE INCREMENTING. HENCE, SOSLE SHOULD SKIP ; AND THE 4326 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4327 ;RESPECTIVELY. 4328 4329 033136 200 07 0 00 033424 C55400: MOVE 7,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4330 033137 201 10 0 00 000000 MOVEI 10,0 ;PRELOAD E WITH 0 4331 033140 373 07 0 00 000010 SOSLE 7,10 ;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E), 4332 ;UPDATE AC AND SKIP 4333 STOP^ 4334 033141 254 04 0 00 033142 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4335 033142 324 00 0 00 033143 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4336 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4337 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4338 033143 312 10 0 00 033412 CAME 10,[-1] ;PASS IF E DECREMENTED CORRECTLY 4339 STOP^ 4340 033144 254 04 0 00 033145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4341 033145 324 00 0 00 033146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4342 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4343 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4344 033146 312 07 0 00 033412 CAME 7,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4345 STOP^ 4346 033147 254 04 0 00 033150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4347 033150 324 00 0 00 033151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4348 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4349 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4350 4351 ;********** 4352 4353 ;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES 4354 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4355 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0. 4356 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4357 ;IN THIS CASE, AC=7, C(AC)=070707,,070707 AND C(E)=0,,1 4358 ;BEFORE INCREMENTING. HENCE, SOSLE SHOULD SKIP ; AND THE 4359 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 4360 ;RESPECTIVELY. 4361 4362 033151 200 07 0 00 033424 C55410: MOVE 7,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4363 033152 201 10 0 00 000001 MOVEI 10,1 ;PRELOAD E WITH 0,,1 4364 033153 373 07 0 00 000010 SOSLE 7,10 ;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E), 4365 ;UPDATE AC AND SKIP 4366 STOP^ 4367 033154 254 04 0 00 033155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4368 033155 324 00 0 00 033156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4371 033156 312 10 0 00 033431 CAME 10,[0] ;PASS IF E DECREMENTED CORRECTLY 4372 STOP^ 4373 033157 254 04 0 00 033160 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4374 033160 324 00 0 00 033161 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 85-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0127 4375 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4376 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4377 033161 312 07 0 00 033431 CAME 7,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4378 STOP^ 4379 033162 254 04 0 00 033163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4380 033163 324 00 0 00 033164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4381 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4382 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4383 4384 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 86 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0128 4385 ;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES 4386 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4387 ;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0. 4388 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4389 ;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0,,2 4390 ;BEFORE INCREMENTING. HENCE, SOSLE SHOULD NOT SKIP; AND THE 4391 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 4392 ;RESPECTIVELY. 4393 4394 033164 200 07 0 00 033424 C55420: MOVE 7,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4395 033165 201 10 0 00 000002 MOVEI 10,2 ;PRELOAD E WITH 0,,2 4396 033166 373 07 0 00 000010 SOSLE 7,10 ;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E), 4397 ;UPDATE AC AND NOT SKIP 4398 033167 334 00 0 00 000000 SKIPA ;PASS IF SOSLE DID NOT SKIP 4399 STOP^ 4400 033170 254 04 0 00 033171 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4401 033171 324 00 0 00 033172 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4402 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4403 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4404 033172 312 10 0 00 033432 CAME 10,[1] ;PASS IF E DECREMENTED CORRECTLY 4405 STOP^ 4406 033173 254 04 0 00 033174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4407 033174 324 00 0 00 033175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4409 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4410 033175 312 07 0 00 033432 CAME 7,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4411 STOP^ 4412 033176 254 04 0 00 033177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4413 033177 324 00 0 00 033200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4414 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4415 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4416 4417 ;********** 4418 4419 ;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES 4420 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 4421 ;THE NEXT INSTRUCTION. 4422 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4423 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0 4424 ;BEFORE INCREMENTING. HENCE, SOSA SHOULD SKIP ; AND THE 4425 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4426 ;RESPECTIVELY. 4427 4428 033200 200 06 0 00 033424 C55500: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4429 033201 201 07 0 00 000000 MOVEI 7,0 ;PRELOAD E WITH 0 4430 033202 374 06 0 00 000007 SOSA 6,7 ;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E), 4431 ;UPDATE AC AND SKIP 4432 STOP^ 4433 033203 254 04 0 00 033204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4434 033204 324 00 0 00 033205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4435 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4436 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4437 033205 312 07 0 00 033412 CAME 7,[-1] ;PASS IF E DECREMENTED CORRECTLY 4438 STOP^ 4439 033206 254 04 0 00 033207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 86-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0129 4440 033207 324 00 0 00 033210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4441 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4442 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4443 033210 312 06 0 00 033412 CAME 6,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4444 STOP^ 4445 033211 254 04 0 00 033212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4446 033212 324 00 0 00 033213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4447 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4448 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4449 4450 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 87 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0130 4451 ;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES 4452 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 4453 ;THE NEXT INSTRUCTION. 4454 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THEAC. 4455 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,1 4456 ;BEFORE INCREMENTING. HENCE, SOSA SHOULD BE 0 AND 0 4457 ;RESPECTIVELY. 4458 4459 033213 200 06 0 00 033424 C55510: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4460 033214 201 07 0 00 000001 MOVEI 7,1 ;PRELOAD E WITH 0,,1 4461 033215 374 06 0 00 000007 SOSA 6,7 ;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E), 4462 ;UPDATE AC AND SKIP 4463 STOP^ 4464 033216 254 04 0 00 033217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4465 033217 324 00 0 00 033220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4466 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4467 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4468 033220 312 07 0 00 033431 CAME 7,[0] ;PASS IF E DECREMENTED CORRECTLY 4469 STOP^ 4470 033221 254 04 0 00 033222 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4471 033222 324 00 0 00 033223 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4472 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4473 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4474 033223 312 06 0 00 033431 CAME 6,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4475 STOP^ 4476 033224 254 04 0 00 033225 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4477 033225 324 00 0 00 033226 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4478 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4479 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4480 4481 ;********** 4482 4483 ;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES 4484 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS 4485 ;THE NEXT INSTRUCTION. 4486 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4487 ;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,2 4488 ;BEFORE INCREMENTING. HENCE, SOSA SHOULD SKIP ; AND THE 4489 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 4490 ;RESPECTIVELY. 4491 4492 033226 200 06 0 00 033424 C55520: MOVE 6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4493 033227 201 07 0 00 000002 MOVEI 7,2 ;PRELOAD E WITH 0,,2 4494 033230 374 06 0 00 000007 SOSA 6,7 ;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E), 4495 ;UPDATE AC AND SKIP 4496 STOP^ 4497 033231 254 04 0 00 033232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4498 033232 324 00 0 00 033233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4499 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4500 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4501 033233 312 07 0 00 033432 CAME 7,[1] ;PASS IF E DECREMENTED CORRECTLY 4502 STOP^ 4503 033234 254 04 0 00 033235 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4504 033235 324 00 0 00 033236 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4505 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 87-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0131 4506 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4507 033236 312 06 0 00 033432 CAME 6,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4508 STOP^ 4509 033237 254 04 0 00 033240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4510 033240 324 00 0 00 033241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4511 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4512 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4513 4514 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 88 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0132 4515 ;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES 4516 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4517 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0. 4518 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4519 ;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0 4520 ;BEFORE INCREMENTING. HENCE, SOSGE SHOULD NOT SKIP ; AND THE 4521 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4522 ;RESPECTIVELY. 4523 4524 033241 200 05 0 00 033424 C55600: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4525 033242 201 06 0 00 000000 MOVEI 6,0 ;PRELOAD E WITH 0 4526 033243 375 05 0 00 000006 SOSGE 5,6 ;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E), 4527 ;UPDATE AC AND NOT SKIP 4528 033244 334 00 0 00 000000 SKIPA ;PASS IF SOSGE DID NOT SKIP 4529 STOP^ 4530 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4531 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4533 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4534 033247 312 06 0 00 033412 CAME 6,[-1] ;PASS IF E DECREMENTED CORRECTLY 4535 STOP^ 4536 033250 254 04 0 00 033251 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4537 033251 324 00 0 00 033252 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4538 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4539 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4540 033252 312 05 0 00 033412 CAME 5,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4541 STOP^ 4542 033253 254 04 0 00 033254 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4543 033254 324 00 0 00 033255 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4544 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4545 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4546 4547 ;********** 4548 4549 ;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES 4550 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4551 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0. 4552 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4553 ;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,1 4554 ;BEFORE INCREMENTING. HENCE, SOSGE SHOULD SKIP ; AND THE 4555 ;FINAL RESULTS IN ACAND E SHOULD BE 0 AND 0 4556 ;RESPECTIVELY. 4557 4558 033255 200 05 0 00 033424 C55610: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4559 033256 201 06 0 00 000001 MOVEI 6,1 ;PRELOAD E WITH 0,,1 4560 033257 375 05 0 00 000006 SOSGE 5,6 ;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E), 4561 ;UPDATE AC AND SKIP 4562 STOP^ 4563 033260 254 04 0 00 033261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4564 033261 324 00 0 00 033262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4565 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4566 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4567 033262 312 06 0 00 033431 CAME 6,[0] ;PASS IF E DECREMENTED CORRECTLY 4568 STOP^ 4569 033263 254 04 0 00 033264 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 88-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0133 4570 033264 324 00 0 00 033265 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4571 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4572 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4573 033265 312 05 0 00 033431 CAME 5,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4574 STOP^ 4575 033266 254 04 0 00 033267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4576 033267 324 00 0 00 033270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4577 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4578 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4579 4580 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 89 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0134 4581 ;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES 4582 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4583 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0 4584 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4585 ;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,2 4586 ;BEFORE INCREMENTING. HENCE, SOSGE SHOULD SKIP ; AND THE 4587 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 4588 ;RESPECTIVELY. 4589 4590 033270 200 05 0 00 033424 C55620: MOVE 5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4591 033271 201 06 0 00 000002 MOVEI 6,2 ;PRELOAD E WITH 0,,2 4592 033272 375 05 0 00 000006 SOSGE 5,6 ;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E), 4593 ;UPDATE AC AND SKIP 4594 STOP^ 4595 033273 254 04 0 00 033274 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4596 033274 324 00 0 00 033275 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4597 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4598 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4599 033275 312 06 0 00 033432 CAME 6,[1] ;PASS IF E DECREMENTED CORRECTLY 4600 STOP^ 4601 033276 254 04 0 00 033277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4602 033277 324 00 0 00 033300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4603 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4604 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4605 033300 312 05 0 00 033432 CAME 5,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4606 STOP^ 4607 033301 254 04 0 00 033302 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4608 033302 324 00 0 00 033303 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4609 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4610 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4611 4612 ;********** 4613 4614 ;THIS TEST VERIFIES SOSN DECREMENTS C(E) BY 0,,1 AND PLACES 4615 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4616 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO 4617 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4618 ;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0 4619 ;BEFORE INCREMENTING. HENCE, SOSN SHOULD SKIP ; AND THE 4620 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4621 ;RESPECTIVELY. 4622 4623 033303 200 04 0 00 033424 C55700: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4624 033304 201 05 0 00 000000 MOVEI 5,0 ;PRELOAD E WITH 0 4625 033305 376 04 0 00 000005 SOSN 4,5 ;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E), 4626 ;UPDATE AC AND SKIP 4627 STOP^ 4628 033306 254 04 0 00 033307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4629 033307 324 00 0 00 033310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4630 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4631 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4632 033310 312 05 0 00 033412 CAME 5,[-1] ;PASS IF E DECREMENTED CORRECTLY 4633 STOP^ 4634 033311 254 04 0 00 033312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4635 033312 324 00 0 00 033313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 89-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0135 4636 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4637 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4638 033313 312 04 0 00 033412 CAME 4,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4639 STOP^ 4640 033314 254 04 0 00 033315 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4641 033315 324 00 0 00 033316 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4644 4645 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 90 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0136 4646 ;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES 4647 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4648 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO 4649 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC 4650 ;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,1 4651 ;BEFORE INCREMENTING. HENCE, SOSN SHOULD NOT SKIP ; AND THE 4652 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 4653 ;RESPECTIVELY. 4654 4655 033316 200 04 0 00 033424 C55710: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4656 033317 201 05 0 00 000001 MOVEI 5,1 ;PRELOAD E WITH 0,,1 4657 033320 376 04 0 00 000005 SOSN 4,5 ;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E), 4658 ;UPDATE AC AND NOT SKIP 4659 033321 334 00 0 00 000000 SKIPA ;PASS IF SOSN DID NOT SKIP 4660 STOP^ 4661 033322 254 04 0 00 033323 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4662 033323 324 00 0 00 033324 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4663 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4664 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4665 033324 312 05 0 00 033431 CAME 5,[0] ;PASS IF E DECREMENTED CORRECTLY 4666 STOP^ 4667 033325 254 04 0 00 033326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4668 033326 324 00 0 00 033327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4669 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4670 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4671 033327 312 04 0 00 033431 CAME 4,[0] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4672 STOP^ 4673 033330 254 04 0 00 033331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4674 033331 324 00 0 00 033332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4675 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4676 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4677 4678 ;********** 4679 4680 ;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES 4681 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4682 ;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO 4683 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4684 ;INtTHIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,2 4685 ;BEFORE INCREMENTING. HENCE, SOSN SHOULD SKIP ; AND THE 4686 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1 4687 ;RESPECTIVELY 4688 4689 033332 200 04 0 00 033424 C55720: MOVE 4,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4690 033333 201 05 0 00 000002 MOVEI 5,2 ;PRELOAD E WITH 0,,2 4691 033334 376 04 0 00 000005 SOSN 4,5 ;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E), 4692 ;UPDATE AC AND SKIP 4693 STOP^ 4694 033335 254 04 0 00 033336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4695 033336 324 00 0 00 033337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4698 033337 312 05 0 00 033432 CAME 5,[1] ;PASS IF E DECREMENTED CORRECTLY 4699 STOP^ 4700 033340 254 04 0 00 033341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 90-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0137 4701 033341 324 00 0 00 033342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4702 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4703 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4704 033342 312 04 0 00 033432 CAME 4,[1] ;PASS IF ACWAS UPDATED IF AC NON-ZERO 4705 STOP^ 4706 033343 254 04 0 00 033344 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4707 033344 324 00 0 00 033345 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4708 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4709 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4710 4711 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 91 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0138 4712 ;THIS TEST VERIFIESTHAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES 4713 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4714 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0 4715 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4716 ;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0 4717 ;BEFORE INCREMENTING. HENCE, SOSG SHOULD NOT SKIP ; AND THE 4718 ;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1 4719 ;RESPECTIVELY. 4720 4721 033345 200 03 0 00 033424 C56000: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4722 033346 201 04 0 00 000000 MOVEI 4,0 ;PRELOAD E WITH 0 4723 033347 377 03 0 00 000004 SOSG 3,4 ;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E), 4724 ;UPDATE AC AND NOT SKIP 4725 033350 334 00 0 00 000000 SKIPA ;PASS IF SOSG DID NOT SKIP 4726 STOP^ 4727 033351 254 04 0 00 033352 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4728 033352 324 00 0 00 033353 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4729 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4730 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4731 033353 312 04 0 00 033412 CAME 4,[-1] ;PASS IF E DECREMENTED CORRECTLY 4732 STOP^ 4733 033354 254 04 0 00 033355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4734 033355 324 00 0 00 033356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4735 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4736 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4737 033356 312 03 0 00 033412 CAME 3,[-1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4738 STOP^ 4739 033357 254 04 0 00 033360 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4740 033360 324 00 0 00 033361 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4741 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4742 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4743 4744 ;********** 4745 4746 ;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES 4747 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4748 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0. 4749 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4750 ;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,1 4751 ;BEFORE INCREMENTING. HENCE, SOSG SHOULD NOT SKIP ; AND THE 4752 ;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0 4753 ;RESPECTIVELY. 4754 4755 033361 200 03 0 00 033424 C56010: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4756 033362 201 04 0 00 000001 MOVEI 4,1 ;PRELOAD E WITH 0,,1 4757 033363 377 03 0 00 000004 SOSG 3,4 ;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E), 4758 ;UPDATE AC AND NOT SKIP 4759 033364 334 00 0 00 000000 SKIPA ;PASS IF SOSG DID NOT SKIP 4760 STOP^ 4761 033365 254 04 0 00 033366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4762 033366 324 00 0 00 033367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4763 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4764 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4765 033367 312 04 0 00 033431 CAME 4,[0] ;PASS IF E DECREMENTED CORRECTLY 4766 STOP^ DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 91-1 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0139 4767 033370 254 04 0 00 033371 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4768 033371 324 00 0 00 033372 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4769 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4770 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4771 033372 312 03 0 00 033431 CAME 3,[0] ;PASS IF AC WAS UPDATED IS AC NON-ZERO 4772 STOP^ 4773 033373 254 04 0 00 033374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4774 033374 324 00 0 00 033375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4775 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4776 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4777 4778 ;********** DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 92 DSKAE1 MAC 28-Mar-78 13:59 TEST OF MSCL SOSX INSTRUCTIONS SEQ 0140 4779 ;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES 4780 ;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS 4781 ;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0 4782 ;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC. 4783 ;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,2 4784 ;BEFORE INCREMENTING. HENCE, SOSG SHOULD SKIP ; AND THE 4785 ;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 011, 4786 ;RESPECTIVELY. 4787 4788 033375 200 03 0 00 033424 C56020: MOVE 3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070 4789 033376 201 04 0 00 000002 MOVEI 4,2 ;PRELOAD E WITH 0,,2 4790 033377 377 03 0 00 000004 SOSG 3,4 ;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E), 4791 ;UPDATE AC AND SKIP 4792 STOP^ 4793 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4794 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4795 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4796 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4797 033402 312 04 0 00 033432 CAME 4,[1] ;PASS IF E DECREMENTED CORRECTLY 4798 STOP^ 4799 033403 254 04 0 00 033404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4800 033404 324 00 0 00 033405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4801 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4802 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4803 033405 312 03 0 00 033432 CAME 3,[1] ;PASS IF AC WAS UPDATED IF AC NON-ZERO 4804 STOP^ 4805 033406 254 04 0 00 033407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4806 033407 324 00 0 00 033410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4807 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4808 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4809 4810 ;********** 4811 033410 402 00 0 00 033434 ENDIT: SETZM TNUMB# 4812 033411 254 00 0 00 030057 JRST BEGEND DSKAE DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (5) 0,1 MACRO %53(1020) 14:13 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0141 4813 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 4814 4815 ;PROGRAM LITERALS 4816 4817 XLIST 4818 IFNDEF $LPAPER, 4819 033412 LIT 4820 033412 777777 777777 4821 033413 310 00 0 00 000000 4822 033414 201 01 0 00 001234 4823 033415 031044 031043 4824 033416 031053 031052 4825 033417 254 00 0 00 031116 4826 033420 000001 000002 4827 033421 135531 246642 4828 033422 135246 246135 4829 033423 252525 252525 4830 033424 707070 707070 4831 033425 123456 123456 4832 033426 777777 000000 4833 033427 777777 777775 4834 033430 777777 777776 4835 033431 000000 000000 4836 033432 000000 000001 4837 LIST 4838 033433 000000 000000 ENDSLD: 0 4839 4840 IFDEF DEBUG,< 4841 PATCH: BLOCK DEBUG ;PATCHING AREA 4842 > 4843 4844 ;PROGRAM VARIABLES 4845 033434 VAR 4846 4847 IFDEF PGMEND,< 4848 033435 000000 000000 END: 0 4849 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 033436 CPU TIME USED 00:15.180 20P CORE USED ABORT 92# AC0 687# SEQ 0142 ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 4812 BEGIN 307 308 369# 708 771 4849 BEGIN1 385# 439 BELL 561# BIS 356# 1319 1328 1343 1347 1361 1367 1382 1387 C23000 816# C23100 838# C23200 859# C23300 883# C23400 904# C23500 927# C23600 948# 952 C23700 970# C24000 990# C24100 1005# C24200 1022# C24300 1037# C24400 1052# C24500 1066# C24600 1083# C24700 1099# C25000 1117# C25100 1134# C25200 1152# C25300 1169# C25400 1187# C25500 1202# C25600 1215# C25700 1230# C26200 1247# C26300 1265# C26400 1281# C26500 1298# C26600 1317# C26700 1341# C27000 1359# C27001 1380# C27100 1400# C50000 1427# C50100 1452# C50110 1475# C50200 1498# C50300 1513# C50301 1537# C50400 1566# C50401 1590# C50410 1619# SEQ 0143 C50500 1642# C50501 1656# C50600 1671# C50700 1696# C50710 1720# C51000 1746# C51100 1762# C51101 1785# C51200 1813# C51201 1836# C51300 1868# C51310 1884# C51320 1900# C51400 1917# C51410 1932# C51420 1948# C51500 1964# C51510 1980# C51520 1995# C51600 2011# C51610 2027# C51620 2043# C51700 2058# C51710 2074# C51720 2090# C52000 2106# C52010 2122# C52020 2139# C52100 2158# C52110 2175# C52120 2190# C52200 2208# C52210 2223# C52220 2240# C52300 2257# C52310 2271# C52320 2284# C52400 2299# C52410 2313# C52420 2327# C52500 2346# C52510 2369# C52520 2392# C52600 2417# C52610 2441# C52620 2465# C52700 2489# C52710 2513# C52720 2536# C53000 2561# C53010 2584# C53020 2608# C53100 2631# SEQ 0144 C53110 2656# C53120 2679# C53200 2703# C53210 2726# C53220 2751# C53300 2774# C53310 2799# C53320 2823# C53400 2852# C53401 2885# C53410 2922# C53420 2955# C53500 2989# C53510 3022# C53520 3055# C53600 3088# C53610 3121# C53620 3153# C53700 3187# C53710 3219# C53720 3252# C54000 3284# C54010 3318# C54020 3350# C54100 3383# C54110 3415# C54120 3449# C54200 3481# C54210 3515# C54220 3548# C54300 3582# C54310 3606# C54320 3629# C54400 3654# C54410 3678# C54420 3702# C54500 3726# C54510 3750# C54520 3773# C54600 3798# C54610 3821# C54620 3845# C54700 3868# C54710 3893# C54720 3916# C55000 3940# C55010 3963# C55020 3987# C55100 4011# C55110 4035# C55120 4060# C55200 4089# C55210 4122# SEQ 0145 C55211 4155# C55220 4193# C55300 4228# C55310 4262# C55320 4295# C55400 4329# C55410 4362# C55420 4394# C55500 4428# C55510 4459# C55520 4492# C55600 4524# C55610 4558# C55620 4590# C55700 4623# C55710 4655# C55720 4689# C56000 4721# C56010 4755# C56020 4788# CCA 356# CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# 818 840 861 885 906 CRY1 356# CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 4840 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 SEQ 0146 E50301 1539 1540 1548 1557# E50401 1592 1593 1601 1610# E51101 1787 1788 1796 1805# E51201 1838 1839 1846 1855# E53401 2887 2888 2895 2910# E55211 4157 4158 4166 4181# EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 4848# ENDFIX 684# ENDIT 4811# ENDSLD 4838# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# SEQ 0147 JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# SEQ 0148 LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 SEQ 0149 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# SEQ 0150 PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 4847 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# SEQ 0151 REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 4811# 4811 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# SEQ 0152 USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# SEQ 0153 $ITRHL 450# $ITRX1 451# $LPAPE 4818 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# SEQ 0154 .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0155 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 826 848 870 893 915 933 938 949 954 977 996 1006 1011 1028 1042 1057 1067 1072 1085 1089 1101 1105 1123 1140 1158 1174 1192 1206 1220 1235 1253 1269 1285 1302 1330 1349 1369 1389 1408 1433 1439 1458 1464 1480 1486 1502 1519 1525 1544 1551 1572 1578 1597 1604 1625 1631 1646 1661 1677 1683 1702 1708 1726 1732 1750 1768 1774 1792 1799 1818 1824 1842 1849 1871 1888 1904 1920 1935 1952 1967 1983 1998 2015 2030 2046 2061 2078 2093 2110 2126 2142 2162 2178 2195 2212 2227 2243 2260 2274 2288 2303 2316 2330 2349 2355 2374 2380 2397 2403 2422 2428 2445 2451 2470 2476 2493 2499 2517 2523 2541 2547 2565 2571 2588 2594 2612 2618 2636 2642 2660 2666 2683 2689 2707 2713 2731 2737 2755 2761 2779 2785 2804 2810 2827 2833 2857 2863 2869 2891 2898 2904 2928 2934 2940 2961 2967 2973 2995 3001 3007 3027 3033 3039 3061 3067 3073 3093 3099 3105 3126 3132 3138 3159 3165 3171 3192 3198 3204 3224 3230 3236 3257 3263 3269 3290 3296 3302 3323 3329 3335 3355 3361 3367 3388 3394 3400 3421 3427 3433 3454 3460 3466 3487 3493 3499 3521 3527 3533 3553 3559 3565 3586 3592 3610 3616 3634 3640 3659 3665 3682 3688 3707 3713 3730 3736 3754 3760 3778 3784 3802 3808 3825 3831 3849 3855 3873 3879 3897 3903 3920 3926 3944 3950 3968 3974 3991 3997 4016 4022 4040 4046 4064 4070 4094 4100 4106 4128 4134 4140 4162 4169 4175 4200 4206 4212 4235 4241 4247 4267 4273 4279 4302 4308 4314 4334 4340 4346 4367 4373 4379 4400 4406 4412 4433 4439 4445 4464 4470 4476 4497 4503 4509 4530 4536 4542 4563 4569 4575 4595 4601 4607 4628 4634 4640 4661 4667 4673 4694 4700 4706 4727 4733 4739 4761 4767 4773 4793 4799 4805 JEN 160# JRSTF 159# MAPADR 295# SEQ 0156 MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# SEQ 0157 PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# 816 838 859 883 904 927 1317 1322 1341 1359 1380 1400 SIXBTZ 261# STOP 48# 825 847 869 892 914 937 953 976 995 1010 1027 1041 1056 1071 1088 1104 1122 1139 1157 1173 1191 1205 1219 1234 1252 1268 1284 1301 1329 1348 1368 1388 1407 1432 1438 1457 1463 1479 1485 1501 1518 1524 1543 1550 1571 1577 1596 1603 1624 1630 1645 1660 1676 1682 1701 1707 1725 1731 1749 1767 1773 1791 1798 1817 1823 1841 1848 1870 1887 1903 1919 1934 1951 1966 1982 1997 2014 2029 2045 2060 2077 2092 2109 2125 2141 2161 2177 2194 2211 2226 2242 2259 2273 2287 2302 2315 2329 2348 2354 2373 2379 2396 2402 2421 2427 2444 2450 2469 2475 2492 2498 2516 2522 2540 2546 2564 2570 2587 2593 2611 2617 2635 2641 2659 2665 2682 2688 2706 2712 2730 2736 2754 2760 2778 2784 2803 2809 2826 2832 2856 2862 2868 2890 2897 2903 2927 2933 2939 2960 2966 2972 2994 3000 3006 3026 3032 3038 3060 3066 3072 3092 3098 3104 3125 3131 3137 3158 3164 3170 3191 3197 3203 3223 3229 3235 3256 3262 3268 3289 3295 3301 SEQ 0158 3322 3328 3334 3354 3360 3366 3387 3393 3399 3420 3426 3432 3453 3459 3465 3486 3492 3498 3520 3526 3532 3552 3558 3564 3585 3591 3609 3615 3633 3639 3658 3664 3681 3687 3706 3712 3729 3735 3753 3759 3777 3783 3801 3807 3824 3830 3848 3854 3872 3878 3896 3902 3919 3925 3943 3949 3967 3973 3990 3996 4015 4021 4039 4045 4063 4069 4093 4099 4105 4127 4133 4139 4161 4168 4174 4199 4205 4211 4234 4240 4246 4266 4272 4278 4301 4307 4313 4333 4339 4345 4366 4372 4378 4399 4405 4411 4432 4438 4444 4463 4469 4475 4496 4502 4508 4529 4535 4541 4562 4568 4574 4594 4600 4606 4627 4633 4639 4660 4666 4672 4693 4699 4705 4726 4732 4738 4760 4766 4772 4792 4798 4804 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# WRTIM 356# WRUBR 356# AOJA 2562 2585 2609 AOJE 2418 2442 2466 SEQ 0159 AOJG 2775 2800 2824 AOJGE 2632 2657 2680 AOJL 2347 2370 2393 AOJLE 2490 2514 2537 AOJN 2704 2727 2752 AOS 444 757 AOSA 3189 3221 3254 AOSE 2991 3024 3057 AOSG 3483 3517 3550 AOSGE 3286 3320 3352 AOSL 2854 2888 2924 2957 AOSLE 3090 3123 3155 AOSN 3385 3417 3451 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAIA 1965 1981 1996 CAIE 952 1156 1251 1267 1523 1549 1644 1659 1681 1706 1724 1730 1748 1766 1772 1790 1797 1816 1822 1840 1847 2378 2401 2449 2474 2521 2545 2592 2616 2664 2687 2735 2759 2808 2831 CAIG 2107 2123 2140 CAIGE 2012 2028 2044 CAIL 1869 1885 1901 CAILE 1918 1933 1949 CAIN 936 994 1009 1026 1070 2059 2075 2091 CAM 971 1171 CAME 846 1087 1103 1138 1172 1283 1300 1431 1437 1456 1462 1478 1484 1500 1517 1542 1576 1602 1623 1629 1675 2353 2426 2497 2569 2640 2711 2783 2861 2867 2896 2902 2932 2938 2965 2971 2999 3005 3031 3037 3065 3071 3097 3103 3130 3136 3163 3169 3196 3202 3228 3234 3261 3267 3294 3300 3327 3333 3359 3365 3392 3398 3425 3431 3458 3464 3491 3497 3525 3531 3557 3563 3590 3614 3638 3663 3686 3711 3734 3758 3782 3806 3829 3853 3877 3901 3924 3948 3972 3995 4020 4044 4068 4098 4104 4132 4138 4167 4173 4204 4210 4239 4245 4271 4277 4306 4312 4338 4344 4371 4377 4404 4410 4437 4443 4468 4474 4501 4507 4534 4540 4567 4573 4599 4605 4632 4638 4665 4671 4698 4704 4731 4737 4765 4771 4797 4803 CAMG 2209 2224 2241 CAMLE 2160 2176 2192 DEFINE 9 48 56 84 252 255 261 335 346 END 4849 HLLZ 867 HLRZM 1069 HRLOI 1298 HRLZI 1281 HRROI 2208 2346 2417 2489 2561 2631 2703 2774 2853 2886 2990 3089 3188 3285 3384 3482 HRRZ 935 951 HRRZI 1265 HRRZM 1008 IFDEF 356 407 408 409 410 4840 4847 IFNDEF 307 308 318 407 408 409 410 489 4818 SEQ 0160 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 819 841 862 886 907 930 1320 1325 1344 1362 1383 1403 JRA 1189 1203 1216 1231 1250 1266 1282 1299 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 820 842 863 887 908 931 1187 1321 1326 1345 1363 1384 1404 4812 JSA 972 992 1005 1023 1038 1053 1066 1084 1100 1119 1136 1153 1170 JSP 166 743 776 1327 1346 1366 1385 1386 1405 JSR 822 844 865 889 910 932 948 1364 JUMP 2285 JUMPA 827 849 871 894 916 939 955 978 997 1012 1029 1043 1058 1073 1090 1106 1124 1141 1159 1175 1193 1207 1221 1236 1254 1270 1286 1303 1331 1350 1370 1390 1409 1434 1440 1459 1465 1481 1487 1503 1520 1526 1545 1552 1573 1579 1598 1605 1626 1632 1647 1662 1678 1684 1703 1709 1727 1733 1751 1769 1775 1793 1800 1819 1825 1843 1850 1872 1889 1905 1921 1936 1953 1968 1984 1999 2016 2031 2047 2062 2079 2094 2111 2127 2143 2163 2179 2196 2213 2228 2244 2261 2275 2289 2304 2317 2331 2350 2356 2375 2381 2398 2404 2423 2429 2446 2452 2471 2477 2494 2500 2518 2524 2542 2548 2566 2572 2589 2595 2613 2619 2637 2643 2661 2667 2684 2690 2708 2714 2732 2738 2756 2762 2780 2786 2805 2811 2828 2834 2858 2864 2870 2892 2899 2905 2929 2935 2941 2962 2968 2974 2996 3002 3008 3028 3034 3040 3062 3068 3074 3094 3100 3106 3127 3133 3139 3160 3166 3172 3193 3199 3205 3225 3231 3237 3258 3264 3270 3291 3297 3303 3324 3330 3336 3356 3362 3368 3389 3395 3401 3422 3428 3434 3455 3461 3467 3488 3494 3500 3522 3528 3534 3554 3560 3566 3587 3593 3611 3617 3635 3641 3660 3666 3683 3689 3708 3714 3731 3737 3755 3761 3779 3785 3803 3809 3826 3832 3850 3856 3874 3880 3898 3904 3921 3927 3945 3951 3969 3975 3992 3998 4017 4023 4041 4047 4065 4071 4095 4101 4107 4129 4135 4141 4163 4170 4176 4201 4207 4213 4236 4242 4248 4268 4274 4280 4303 4309 4315 4335 4341 4347 4368 4374 4380 4401 4407 4413 4434 4440 4446 4465 4471 4477 4498 4504 4510 4531 4537 4543 4564 4570 4576 4596 4602 4608 4629 4635 4641 4662 4668 4674 4695 4701 4707 4728 4734 4740 4762 4768 4774 4794 4800 4806 JUMPGE 2300 2314 2328 JUMPLE 2258 2272 LALL 10 LIST 9 318 356 489 4818 4837 LIT 4819 LOC 26 359 683 703 707 710 715 733 738 MOVE 971 991 1025 1155 1187 1247 1427 1428 1452 1453 1475 1498 1514 1538 1548 1601 1657 1671 1697 1721 1796 1846 2074 2852 2885 2895 2922 2955 2989 3022 3055 3088 3121 3153 3187 3219 3252 3284 3318 3350 3383 3415 3449 3481 3515 3548 4089 4122 4155 4166 4193 4228 4262 4295 4329 4362 4394 4428 4459 4492 4524 4558 4590 4623 4655 4689 4721 4755 4788 MOVEI 991 1037 1152 1248 1249 1567 1591 1620 1746 1762 1763 1785 1786 1813 1814 1836 1837 1868 1884 1900 1948 1995 2011 2027 2043 2090 2106 2122 2139 2190 2284 2327 3582 3606 3629 3654 3678 3702 3726 3750 3773 3798 3821 3845 3868 3893 3916 3940 3963 3987 4011 4035 4060 4090 4123 4156 4194 4229 4263 4296 4330 4363 4395 4429 4460 4493 4525 4559 4591 4624 4656 4690 4722 4756 4789 MOVEM 1429 1539 1592 1787 1838 2887 4157 MOVES 1454 1477 SEQ 0161 MOVM 1658 MOVMI 1643 MOVMM 1673 MOVMS 1698 1722 MOVNM 1515 1540 MOVNS 1568 1593 1621 MOVSI 818 840 861 885 906 929 1188 1202 1319 1324 1343 1361 1382 1402 1499 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 POP 156 POPJ 154 PUSH 155 PUSHJ 153 SETO 843 911 973 1083 1217 1476 1513 1537 1720 1917 1964 2158 2223 2257 2299 2369 2441 2513 2584 2656 2726 2799 2923 3023 3220 3319 3416 3516 SETOB 1134 SETOM 745 752 778 1118 1169 3122 SETZ 909 970 990 1052 1099 1117 1230 1566 1590 1619 1642 1656 1672 1696 1932 1980 2058 2159 2175 2191 2240 2271 2313 2392 2465 2536 2608 2679 2751 2823 2956 3056 3154 3253 3351 3450 3549 SETZB 888 1022 1215 SETZM 742 747 775 780 821 864 1135 4811 SIXBIT 77 78 574 575 583 584 SKIPA 1190 1204 1556 1609 1804 1854 1886 1902 1950 2013 2076 2108 2124 2193 2210 2225 2286 2301 2372 2395 2420 2468 2539 2634 2729 2777 2802 2909 2926 2959 2993 3059 3157 3288 3419 3485 3519 3608 3632 3657 3705 3776 3871 3966 4014 4038 4126 4160 4180 4198 4233 4300 4398 4528 4659 4725 4759 SKIPE 748 762 768 891 913 975 1121 1218 1232 1570 1595 1700 SKIPL 783 SKIPN 746 751 759 764 770 779 781 824 868 SOJA 3799 3822 3846 SOJE 3655 3679 3703 SOJG 4012 4036 4061 SOJGE 3869 3894 3917 SOJL 3583 3607 3630 SOJLE 3727 3751 3774 SOJN 3941 3964 3988 SOS 758 SOSA 4430 4461 4494 SOSE 4230 4264 4297 SOSG 4723 4757 4790 SOSGE 4526 4560 4592 SOSL 4091 4124 4158 4195 SOSLE 4331 4364 4396 SEQ 0162 SOSN 4625 4657 4691 SUBB 1815 1839 SUBI 1747 SUBM 1764 1788 SUBTTL 30 82 117 319 356 357 685 773 807 960 1180 1308 1414 1738 1858 2148 2249 2336 2839 3571 4076 4813 TITLE 14 TLNE 744 777 1328 1367 1387 1406 TLNN 1347 TRNN 1040 1055 TTCALL 784 VAR 4845 XLIST 8 317 355 488 4817 XWD 1087 1103 1247 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0163 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0164 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0165 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 MOVSI 1,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0166 *030662 JFCL 17,030663 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030663 ---------- *030663 JRST 2,030664(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030664 ---------- *030664 SETZM 0,030666 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030665 JSR 0,030666 FLAGS - INT/FINAL 200000 200000 INITIAL C(E)= 000000 000000 FINAL C(E)= 200000 030666 ---------- *030667 SKIPN 0,030666 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 C(E)= 200000 030666 FINAL C(AC)= 000000 030633 ---------- *030671 JUMPA 0,030672 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 E= 000000 030672 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0167 *030672 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030673 JFCL 17,030674 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030674 ---------- *030674 JRST 2,030675(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030675 ---------- *030675 SETO 1,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *030676 JSR 1,030677 FLAGS - INT/FINAL 200000 200000 INITIAL C(E)= 000000 000000 FINAL C(E)= 200000 030677 ---------- *030700 CAME 1,033412 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0168 *030702 JUMPA 0,030703 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 E= 000000 030703 ---------- *030703 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 777777 777777 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030704 JFCL 17,030705 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030705 ---------- *030705 JRST 2,030706(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030706 ---------- *030706 SETZM 0,030710 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030707 JSR 0,030710 FLAGS - INT/FINAL 200000 200000 INITIAL C(E)= 000000 000000 FINAL C(E)= 200000 030710 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0169 *030711 HLLZ 0,030710 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 030633 C(E)= 200000 030710 FINAL C(AC)= 200000 000000 ---------- *030712 SKIPN 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 C(E)= 200000 000000 FINAL C(AC)= 200000 000000 ---------- *030714 JUMPA 0,030715 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 030715 ---------- *030715 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030716 JFCL 17,030717 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030717 ---------- *030717 JRST 2,030720(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030720 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0170 *030720 SETZB 0,030722 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030721 JSR 0,030722 FLAGS - INT/FINAL 200000 200000 INITIAL C(E)= 000000 000000 FINAL C(E)= 200000 030722 ---------- *030723 SKIPE 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030725 JUMPA 0,030726 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 030726 ---------- *030726 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0171 *030727 JFCL 17,030730 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030730 ---------- *030730 JRST 2,030731(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030731 ---------- *030731 SETZ 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030732 JSR 0,030734 FLAGS - INT/FINAL 200000 200000 INITIAL C(E)= 000000 000000 FINAL C(E)= 200000 030733 ---------- *030735 SKIPE 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030737 JUMPA 0,030740 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 030740 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0172 *030740 MOVSI 1,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030741 JFCL 17,030742 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030742 ---------- *030742 JRST 2,030743(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030743 ---------- *030743 JSR 0,030745 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000000 000000 FINAL C(E)= 000000 030744 ---------- *030746 HRRZ 0,030745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030744 FINAL C(AC)= 000000 030744 ---------- *030747 CAIN 0,030745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030744 E= 000000 030745 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0173 *030751 JUMPA 0,030752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030744 E= 000000 030752 ---------- *030752 JSR 0,030754 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000000 000000 FINAL C(E)= 000000 030753 ---------- *030755 HRRZ 0,030754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030744 C(E)= 000000 030753 FINAL C(AC)= 000000 030753 ---------- *030756 CAIE 0,030753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030753 E= 000000 030753 ---------- *030760 JUMPA 0,030761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030753 E= 000000 030761 ---------- *030761 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030753 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0174 *030762 MOVE 0,033413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030753 C(E)= 310000 000000 FINAL C(AC)= 310000 000000 ---------- *030763 JSA 0,030765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 310000 000000 C(E)= 000000 000000 FINAL C(AC)= 030765 030764 C(E)= 310000 000000 ---------- *030766 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030765 030764 C(E)= 000000 000000 FINAL C(AC)= 030765 030764 ---------- *030770 JUMPA 0,030771 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030765 030764 E= 000000 030771 ---------- *030771 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 030765 030764 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0175 *030772 MOVE 0,033414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030765 030764 C(E)= 201040 001234 FINAL C(AC)= 201040 001234 ---------- *030773 JSA 0,030774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201040 001234 C(E)= 000000 000000 FINAL C(AC)= 030774 030774 C(E)= 201040 001234 ---------- *030775 CAIN 1,001234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 001234 ---------- *030777 JUMPA 0,031000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030774 030774 E= 000000 031000 ---------- *031000 JSA 0,031002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030774 030774 C(E)= 000000 000000 FINAL C(AC)= 031002 031001 C(E)= 030774 030774 ---------- *031003 HRRZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031002 031001 C(E)= 000000 000000 FINAL C(E)= 000000 031001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0176 *031004 CAIN 1,031002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031001 E= 000000 031002 ---------- *031006 JUMPA 0,031007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031002 031001 E= 000000 031007 ---------- *031007 SETZB 0,031011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031002 031001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031010 JSA 0,031011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 031011 031011 C(E)= 000000 000000 ---------- *031012 MOVE 1,031011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031013 CAIN 1,031011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031011 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0177 *031015 JUMPA 0,031016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031011 031011 E= 000000 031016 ---------- *031016 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031011 031011 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031017 JSA 0,031020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 031020 031020 C(E)= 000000 777777 ---------- *031021 TRNN 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031020 031020 E= 000000 777777 FINAL C(AC)= 031020 031020 ---------- *031023 JUMPA 0,031024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031020 031020 E= 000000 031024 ---------- *031024 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031020 031020 C(E)= 031020 031020 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0178 *031025 JSA 0,031026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 031026 031026 C(E)= 000000 000000 ---------- *031027 TRNN 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031026 031026 E= 000000 777777 FINAL C(AC)= 031026 031026 ---------- *031031 JUMPA 0,031032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031026 031026 E= 000000 031032 ---------- *031032 JSA 0,031034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031026 031026 C(E)= 000000 000000 FINAL C(AC)= 031034 031033 C(E)= 031026 031026 ---------- *031035 HLRZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031034 031033 C(E)= 000000 000000 FINAL C(E)= 000000 031034 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0179 *031036 CAIN 1,031033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031034 E= 000000 031033 ---------- *031040 JUMPA 0,031041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031034 031033 E= 000000 031041 ---------- *031041 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031034 031033 C(E)= 031034 031033 FINAL C(AC)= 777777 777777 ---------- *031042 JSA 0,031044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 031044 031043 C(E)= 777777 777777 ---------- *031045 CAME 0,033415 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031044 031043 C(E)= 031044 031043 ---------- *031047 JUMPA 0,031050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031044 031043 E= 000000 031050 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0180 *031050 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031044 031043 C(E)= 031044 031043 FINAL C(AC)= 000000 000000 ---------- *031051 JSA 0,031053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 031053 031052 C(E)= 000000 000000 ---------- *031054 CAME 0,033416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031053 031052 C(E)= 031053 031052 ---------- *031056 JUMPA 0,031057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031053 031052 E= 000000 031057 ---------- *031057 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031053 031052 C(E)= 031053 031052 FINAL C(AC)= 000000 000000 ---------- *031060 SETOM 0,031062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0181 *031061 JSA 0,031062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 031062 031062 C(E)= 000000 000000 ---------- *031063 SKIPE 0,031062 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031062 031062 C(E)= 000000 000000 FINAL C(AC)= 031062 031062 ---------- *031065 JUMPA 0,031066 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031062 031062 E= 000000 031066 ---------- *031066 SETOB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031062 031062 C(E)= 000000 031034 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031067 SETZM 0,031071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0182 *031070 JSA 0,031071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 031071 031071 C(E)= 777777 777777 ---------- *031072 CAME 1,031071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031074 JUMPA 0,031075 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031071 031071 E= 000000 031075 ---------- *031075 MOVEI 0,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031071 031071 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031076 JSA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 000000 000000 FINAL C(AC)= 031077 031077 C(E)= 000000 777777 ---------- *031100 MOVE 1,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0183 *031101 CAIE 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031103 JUMPA 0,031104 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031077 031077 E= 000000 031104 ---------- *031104 SETOM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031077 031077 C(E)= 000000 777777 FINAL C(E)= 777777 777777 ---------- *031105 JSA 0,031106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031077 031077 C(E)= 310000 000000 FINAL C(AC)= 031106 031106 C(E)= 031077 031077 ---------- *031107 CAME 1,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031111 JUMPA 0,031112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031106 031106 E= 000000 031112 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0184 *031112 MOVE 0,033417 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031106 031106 C(E)= 254000 031116 FINAL C(AC)= 254000 031116 ---------- *031113 MOVSI 1,031115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031115 FINAL C(AC)= 031115 000000 ---------- *031114 JRA 1,031115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031115 000000 C(C(ACL))= 334000 000000 FINAL C(AC)= 334000 000000 ---------- *031115 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254000 031116 C(E)= 254000 031116 FINAL C(AC)= 254000 031116 ---------- *031117 JUMPA 0,031120 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254000 031116 E= 000000 031120 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0185 *031120 MOVSI 0,031123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254000 031116 E= 000000 031123 FINAL C(AC)= 031123 000000 ---------- *031121 JRA 0,031122 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031123 000000 C(C(ACL))= 254200 031124 FINAL C(AC)= 254200 031124 ---------- *031122 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 031124 C(E)= 254200 031124 FINAL C(AC)= 254200 031124 ---------- *031124 JUMPA 0,031125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 031124 E= 000000 031125 ---------- *031125 SETZB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 254200 031124 C(E)= 334000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0186 *031126 JRA 0,031130 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACL))= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031130 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031132 JUMPA 0,031133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031133 ---------- *031133 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031134 JRA 0,031135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACL))= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0187 *031135 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031137 JUMPA 0,031140 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031140 ---------- *031140 MOVE 0,033420 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000002 FINAL C(AC)= 000001 000002 ---------- *031141 MOVEI 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031142 MOVEI 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0188 *031143 JRA 0,031144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000002 C(C(ACL))= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031144 CAIE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031146 JUMPA 0,031147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 031147 ---------- *031147 HRRZI 0,033421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 033421 FINAL C(AC)= 000000 033421 ---------- *031150 JRA 0,031151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033421 C(C(ACL))= 000000 033421 FINAL C(AC)= 000000 033421 ---------- *031151 CAIE 0,033421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033421 E= 000000 033421 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0189 *031153 JUMPA 0,031154 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033421 E= 000000 031154 ---------- *031154 HRLZI 0,033422 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 033421 E= 000000 033422 FINAL C(AC)= 033422 000000 ---------- *031155 JRA 0,031156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 033422 000000 C(C(ACL))= 135246 246135 FINAL C(AC)= 135246 246135 ---------- *031156 CAME 0,033422 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 135246 246135 C(E)= 135246 246135 ---------- *031160 JUMPA 0,031161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 135246 246135 E= 000000 031161 ---------- *031161 HRLOI 0,031162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 135246 246135 E= 000000 031162 FINAL C(AC)= 031162 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0190 *031162 JRA 0,031163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 031162 777777 C(C(ACL))= 267000 031163 FINAL C(AC)= 267000 031163 ---------- *031163 CAME 0,031162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 267000 031163 C(E)= 267000 031163 ---------- *031165 JUMPA 0,031166 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 267000 031163 E= 000000 031166 ---------- *031166 MOVSI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031167 JFCL 17,031170 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031170 ---------- *031170 JRST 2,031171(1) FLAGS - INT/FINAL 000000 020000 INITIAL E= 000000 031171 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0191 *031171 MOVSI 1,000000 FLAGS - INT/FINAL 020000 020000 INITIAL C(AC)= 020000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031172 JFCL 17,031173 FLAGS - INT/FINAL 020000 020000 INITIAL E= 000000 031173 ---------- *031173 JRST 2,031174(1) FLAGS - INT/FINAL 020000 000000 INITIAL E= 000000 031174 ---------- *031174 JSP 0,031175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 267000 031163 E= 000000 031175 FINAL C(AC)= 000000 031175 ---------- *031175 TLNE 0,020037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031175 E= 000000 020037 FINAL C(AC)= 000000 031175 ---------- *031177 JUMPA 0,031200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031175 E= 000000 031200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0192 *031200 MOVSI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031201 JFCL 17,031202 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031202 ---------- *031202 JRST 2,031203(1) FLAGS - INT/FINAL 000000 020000 INITIAL E= 000000 031203 ---------- *031203 JSP 0,031204 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 000000 031175 E= 000000 031204 FINAL C(AC)= 020000 031204 ---------- *031204 TLNN 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 031204 E= 000000 020000 FINAL C(AC)= 020000 031204 ---------- *031206 JUMPA 0,031207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 031204 E= 000000 031207 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0193 *031207 MOVSI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031210 JFCL 17,031211 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031211 ---------- *031211 JRST 2,031212(1) FLAGS - INT/FINAL 000000 020000 INITIAL E= 000000 031212 ---------- *031212 JSR 0,031213 FLAGS - INT/FINAL 020000 000000 INITIAL C(E)= 000000 000000 FINAL C(E)= 020000 031213 ---------- *031214 JSP 0,031215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 031204 E= 000000 031215 FINAL C(AC)= 000000 031215 ---------- *031215 TLNE 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031215 E= 000000 020000 FINAL C(AC)= 000000 031215 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0194 *031217 JUMPA 0,031220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031215 E= 000000 031220 ---------- *031220 MOVSI 1,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031221 JFCL 17,031222 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031222 ---------- *031222 JRST 2,031223(1) FLAGS - INT/FINAL 000000 020000 INITIAL E= 000000 031223 ---------- *031223 JSP 0,031224 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 000000 031215 E= 000000 031224 FINAL C(AC)= 020000 031224 ---------- *031224 JSP 0,031225 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 031224 E= 000000 031225 FINAL C(AC)= 000000 031225 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0195 *031225 TLNE 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031225 E= 000000 020000 FINAL C(AC)= 000000 031225 ---------- *031227 JUMPA 0,031230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031225 E= 000000 031230 ---------- *031230 MOVSI 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031231 JFCL 17,031232 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031232 ---------- *031232 JRST 2,031233(1) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031233 ---------- *031233 JSP 0,031234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031225 E= 000000 031234 FINAL C(AC)= 000000 031234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0196 *031234 TLNE 0,001600 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031234 E= 000000 001600 FINAL C(AC)= 000000 031234 ---------- *031236 JUMPA 0,031237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031234 E= 000000 031237 ---------- *031237 MOVE 0,033423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031234 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031240 MOVE 1,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *031241 MOVEM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 707070 707070 FINAL C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0197 *031242 CAME 0,033423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *031244 JUMPA 0,031245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031245 ---------- *031245 CAME 1,033423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *031247 JUMPA 0,031250 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031250 ---------- *031250 MOVE 2,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *031251 MOVE 1,033425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 123456 123456 FINAL C(AC)= 123456 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0198 *031252 MOVES 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 123456 123456 FINAL C(AC)= 123456 123456 C(E)= 123456 123456 ---------- *031253 CAME 2,033425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 123456 ---------- *031255 JUMPA 0,031256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031256 ---------- *031256 CAME 1,033425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 123456 ---------- *031260 JUMPA 0,031261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031261 ---------- *031261 MOVE 1,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0199 *031262 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 FINAL C(AC)= 777777 777777 ---------- *031263 MOVES 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 777777 777777 C(E)= 707070 707070 ---------- *031264 CAME 0,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031266 JUMPA 0,031267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031267 ---------- *031267 CAME 1,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *031271 JUMPA 0,031272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031272 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200 *031272 MOVE 1,033424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *031273 MOVSI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031274 CAME 1,033426 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *031276 JUMPA 0,031277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031277 ---------- *031277 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031300 MOVE 2,033427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 777777 777775 FINAL C(AC)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201 *031301 MOVNM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777775 FINAL C(E)= 000000 000001 ---------- *031302 CAME 1,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031304 JUMPA 0,031305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031305 ---------- *031305 CAIE 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031307 JUMPA 0,031310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031310 ---------- *031310 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202 *031311 MOVE 2,033427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 777777 777775 FINAL C(AC)= 777777 777775 ---------- *031312 MOVEM 2,031324 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 000000 000000 FINAL C(E)= 777777 777775 ---------- *031313 MOVNM 1,031324 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777775 FINAL C(E)= 000000 000001 ---------- *031314 CAME 1,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031316 JUMPA 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031317 ---------- *031317 MOVE 2,031324 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203 *031320 CAIE 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031322 JUMPA 0,031323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031323 ---------- *031323 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031325 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031326 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031327 MOVNS 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204 *031330 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031332 JUMPA 0,031333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031333 ---------- *031333 CAME 2,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031335 JUMPA 0,031336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031336 ---------- *031336 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031337 MOVEI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205 *031340 MOVEM 2,031352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(E)= 000000 000001 ---------- *031341 MOVNS 0,031352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *031342 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031344 JUMPA 0,031345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031345 ---------- *031345 MOVE 2,031352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206 *031346 CAME 2,033412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031350 JUMPA 0,031351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031351 ---------- *031351 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031353 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031354 MOVEI 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031355 MOVNS 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000003 FINAL C(AC)= 777777 777775 C(E)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207 *031356 CAME 1,033427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 ---------- *031360 JUMPA 0,031361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031361 ---------- *031361 CAME 2,033427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 777777 777775 ---------- *031363 JUMPA 0,031364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031364 ---------- *031364 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031365 MOVMI 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208 *031366 CAIE 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777776 E= 000000 777776 ---------- *031370 JUMPA 0,031371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031371 ---------- *031371 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777776 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031372 MOVE 3,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *031373 MOVM 1,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 000000 000002 ---------- *031374 CAIE 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209 *031376 JUMPA 0,031377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031377 ---------- *031377 MOVE 1,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *031400 SETZ 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031401 MOVMM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(E)= 000000 000002 ---------- *031402 CAME 1,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777776 ---------- *031404 JUMPA 0,031405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031405 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210 *031405 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031407 JUMPA 0,031410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031410 ---------- *031410 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031411 MOVE 2,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *031412 MOVMS 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(E)= 000000 000002 ---------- *031413 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211 *031415 JUMPA 0,031416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031416 ---------- *031416 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031420 JUMPA 0,031421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031421 ---------- *031421 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031422 MOVE 2,033430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 ---------- *031423 MOVMS 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777776 FINAL C(AC)= 000000 000002 C(E)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212 *031424 CAIE 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031426 JUMPA 0,031427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031427 ---------- *031427 CAIE 2,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- *031431 JUMPA 0,031432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031432 ---------- *031432 MOVEI 1,000070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000070 FINAL C(AC)= 000000 000070 ---------- *031433 SUBI 1,000002 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000070 E= 000000 000002 FINAL C(AC)= 000000 000066 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213 *031434 CAIE 1,000066 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000066 E= 000000 000066 ---------- *031436 JUMPA 0,031437 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031437 ---------- *031437 MOVEI 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000066 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031440 MOVEI 2,000037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000037 FINAL C(AC)= 000000 000037 ---------- *031441 SUBM 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000037 FINAL C(E)= 000000 000041 ---------- *031442 CAIE 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214 *031444 JUMPA 0,031445 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031445 ---------- *031445 CAIE 2,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- *031447 JUMPA 0,031450 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031450 ---------- *031450 MOVEI 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031451 MOVEI 2,000037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000037 FINAL C(AC)= 000000 000037 ---------- *031452 MOVEM 2,031464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000037 C(E)= 000000 000000 FINAL C(E)= 000000 000037 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215 *031453 SUBM 1,031464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000037 FINAL C(E)= 000000 000041 ---------- *031454 CAIE 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 000100 ---------- *031456 JUMPA 0,031457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031457 ---------- *031457 MOVE 2,031464 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000037 C(E)= 000000 000041 FINAL C(AC)= 000000 000041 ---------- *031460 CAIE 2,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- *031462 JUMPA 0,031463 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031463 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216 *031463 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031465 MOVEI 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031466 MOVEI 2,000037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000037 FINAL C(AC)= 000000 000037 ---------- *031467 SUBB 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000037 FINAL C(AC)= 000000 000041 C(E)= 000000 000041 ---------- *031470 CAIE 1,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 *031472 JUMPA 0,031473 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031473 ---------- *031473 CAIE 2,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- *031475 JUMPA 0,031476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031476 ---------- *031476 MOVEI 1,000100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000100 FINAL C(AC)= 000000 000100 ---------- *031477 MOVEI 2,000037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000037 FINAL C(AC)= 000000 000037 ---------- *031500 MOVEM 2,031512 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000037 C(E)= 000000 000000 FINAL C(E)= 000000 000037 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 *031501 SUBB 1,031512 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000100 C(E)= 000000 000037 FINAL C(AC)= 000000 000041 C(E)= 000000 000041 ---------- *031502 CAIE 1,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- *031504 JUMPA 0,031505 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031505 ---------- *031505 MOVE 2,031512 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000037 C(E)= 000000 000041 FINAL C(AC)= 000000 000041 ---------- *031506 CAIE 2,000041 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000041 ---------- *031510 JUMPA 0,031511 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031511 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 *031511 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031513 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031514 CAIL 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000002 ---------- *031516 JUMPA 0,031517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031517 ---------- *031517 MOVEI 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031520 CAIL 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 *031521 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031523 JUMPA 0,031524 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031524 ---------- *031524 MOVEI 1,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031525 CAIL 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000003 E= 000000 000002 ---------- *031526 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031530 JUMPA 0,031531 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031531 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 *031531 SETO 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000003 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031532 CAILE 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- *031534 JUMPA 0,031535 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031535 ---------- *031535 SETZ 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031536 CAILE 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031540 JUMPA 0,031541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031541 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 *031541 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031542 CAILE 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 ---------- *031543 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031545 JUMPA 0,031546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031546 ---------- *031546 SETO 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031547 CAIA 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 *031551 JUMPA 0,031552 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031552 ---------- *031552 SETZ 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031553 CAIA 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031555 JUMPA 0,031556 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031556 ---------- *031556 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031557 CAIA 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 *031561 JUMPA 0,031562 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031562 ---------- *031562 MOVEI 2,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000041 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *031563 CAIGE 2,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000005 E= 000000 000006 ---------- *031564 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031566 JUMPA 0,031567 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031567 ---------- *031567 MOVEI 2,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000005 E= 000000 000006 FINAL C(AC)= 000000 000006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *031570 CAIGE 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031572 JUMPA 0,031573 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031573 ---------- *031573 MOVEI 2,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000006 E= 000000 000007 FINAL C(AC)= 000000 000007 ---------- *031574 CAIGE 2,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000007 E= 000000 000006 ---------- *031576 JUMPA 0,031577 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031577 ---------- *031577 SETZ 6,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *031600 CAIN 6,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 ---------- *031602 JUMPA 0,031603 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031603 ---------- *031603 MOVE 6,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031604 CAIN 6,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031605 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031607 JUMPA 0,031610 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031610 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *031610 MOVEI 6,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031611 CAIN 6,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000001 ---------- *031613 JUMPA 0,031614 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031614 ---------- *031614 MOVEI 11,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *031615 CAIG 11,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000003 ---------- *031616 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *031620 JUMPA 0,031621 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031621 ---------- *031621 MOVEI 11,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031622 CAIG 11,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- *031623 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031625 JUMPA 0,031626 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031626 ---------- *031626 MOVEI 11,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000003 E= 000000 000004 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *031627 CAIG 11,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 000003 ---------- *031631 JUMPA 0,031632 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031632 ---------- *031632 SETO 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031633 SETZ 2,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031634 CAMLE 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 ---------- *031636 JUMPA 0,031637 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031637 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *031637 SETZ 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031640 CAMLE 1,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031642 JUMPA 0,031643 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031643 ---------- *031643 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031644 SETZ 2,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031645 CAMLE 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *031646 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031650 JUMPA 0,031651 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031651 ---------- *031651 HRROI 10,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *031652 CAMG 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777777 ---------- *031653 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031655 JUMPA 0,031656 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031656 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *031656 SETO 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031657 CAMG 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031660 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031662 JUMPA 0,031663 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031663 ---------- *031663 SETZ 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031664 CAMG 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *031666 JUMPA 0,031667 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031667 ---------- *031667 SETO 17,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031670 JUMPLE 17,031672 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031672 ---------- *031672 JUMPA 0,031673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031673 ---------- *031673 SETZ 17,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031674 JUMPLE 17,031676 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031676 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *031676 JUMPA 0,031677 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031677 ---------- *031677 MOVEI 17,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031700 JUMP 17,031702 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 031702 ---------- *031701 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031703 JUMPA 0,031704 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031704 ---------- *031704 SETO 16,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *031705 JUMPGE 16,031707 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031707 ---------- *031706 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031710 JUMPA 0,031711 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031711 ---------- *031711 SETZ 16,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031712 JUMPGE 16,031714 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031714 ---------- *031714 JUMPA 0,031715 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031715 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *031715 MOVEI 16,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031716 JUMPGE 16,031720 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 031720 ---------- *031720 JUMPA 0,031721 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031721 ---------- *031721 HRROI 15,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *031722 AOJL 15,031724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 031724 FINAL C(AC)= 777777 777777 ---------- *031724 JUMPA 0,031725 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031725 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *031725 CAME 15,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031727 JUMPA 0,031730 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031730 ---------- *031730 SETO 15,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031731 AOJL 15,031733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031733 FINAL C(AC)= 000000 000000 ---------- *031732 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031734 JUMPA 0,031735 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031735 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031735 CAIE 15,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *031737 JUMPA 0,031740 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031740 ---------- *031740 SETZ 15,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031741 AOJL 15,031743 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031743 FINAL C(AC)= 000000 000001 ---------- *031742 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031744 JUMPA 0,031745 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031745 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031745 CAIE 15,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *031747 JUMPA 0,031750 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031750 ---------- *031750 HRROI 14,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *031751 AOJE 14,031753 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 031753 FINAL C(AC)= 777777 777777 ---------- *031752 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031754 JUMPA 0,031755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031755 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031755 CAME 14,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031757 JUMPA 0,031760 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031760 ---------- *031760 SETO 14,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *031761 AOJE 14,031763 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 031763 FINAL C(AC)= 000000 000000 ---------- *031763 JUMPA 0,031764 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031764 ---------- *031764 CAIE 14,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031766 JUMPA 0,031767 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031767 ---------- *031767 SETZ 14,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031770 AOJE 14,031772 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031772 FINAL C(AC)= 000000 000001 ---------- *031771 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031773 JUMPA 0,031774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031774 ---------- *031774 CAIE 14,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031776 JUMPA 0,031777 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 031777 ---------- *031777 HRROI 13,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032000 AOJLE 13,032002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 032002 FINAL C(AC)= 777777 777777 ---------- *032002 JUMPA 0,032003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032003 ---------- *032003 CAME 13,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032005 JUMPA 0,032006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *032006 SETO 13,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032007 AOJLE 13,032011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032011 FINAL C(AC)= 000000 000000 ---------- *032011 JUMPA 0,032012 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032012 ---------- *032012 CAIE 13,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032014 JUMPA 0,032015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032015 ---------- *032015 SETZ 13,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *032016 AOJLE 13,032020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032020 FINAL C(AC)= 000000 000001 ---------- *032017 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032021 JUMPA 0,032022 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032022 ---------- *032022 CAIE 13,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *032024 JUMPA 0,032025 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032025 ---------- *032025 HRROI 12,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *032026 AOJA 12,032030 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 032030 FINAL C(AC)= 777777 777777 ---------- *032030 JUMPA 0,032031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032031 ---------- *032031 CAME 12,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032033 JUMPA 0,032034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032034 ---------- *032034 SETO 12,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032035 AOJA 12,032037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032037 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *032037 JUMPA 0,032040 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032040 ---------- *032040 CAIE 12,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032042 JUMPA 0,032043 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032043 ---------- *032043 SETZ 12,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032044 AOJA 12,032046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032046 FINAL C(AC)= 000000 000001 ---------- *032046 JUMPA 0,032047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032047 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *032047 CAIE 12,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *032051 JUMPA 0,032052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032052 ---------- *032052 HRROI 11,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000004 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032053 AOJGE 11,032055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 032055 FINAL C(AC)= 777777 777777 ---------- *032054 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032056 JUMPA 0,032057 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032057 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *032057 CAME 11,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032061 JUMPA 0,032062 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032062 ---------- *032062 SETO 11,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032063 AOJGE 11,032065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032065 FINAL C(AC)= 000000 000000 ---------- *032065 JUMPA 0,032066 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032066 ---------- *032066 CAIE 11,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *032070 JUMPA 0,032071 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032071 ---------- *032071 SETZ 11,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032072 AOJGE 11,032074 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032074 FINAL C(AC)= 000000 000001 ---------- *032074 JUMPA 0,032075 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032075 ---------- *032075 CAIE 11,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *032077 JUMPA 0,032100 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *032100 HRROI 10,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032101 AOJN 10,032103 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 032103 FINAL C(AC)= 777777 777777 ---------- *032103 JUMPA 0,032104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032104 ---------- *032104 CAME 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032106 JUMPA 0,032107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032107 ---------- *032107 SETO 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *032110 AOJN 10,032112 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032112 FINAL C(AC)= 000000 000000 ---------- *032111 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032113 JUMPA 0,032114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032114 ---------- *032114 CAIE 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032116 JUMPA 0,032117 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032117 ---------- *032117 SETZ 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *032120 AOJN 10,032122 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032122 FINAL C(AC)= 000000 000001 ---------- *032122 JUMPA 0,032123 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032123 ---------- *032123 CAIE 10,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *032125 JUMPA 0,032126 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032126 ---------- *032126 HRROI 7,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032127 AOJG 7,032131 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 E= 000000 032131 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *032130 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032132 JUMPA 0,032133 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032133 ---------- *032133 CAME 7,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032135 JUMPA 0,032136 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032136 ---------- *032136 SETO 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032137 AOJG 7,032141 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032141 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *032140 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032142 JUMPA 0,032143 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032143 ---------- *032143 CAIE 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032145 JUMPA 0,032146 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032146 ---------- *032146 SETZ 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032147 AOJG 7,032151 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032151 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *032151 JUMPA 0,032152 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032152 ---------- *032152 CAIE 7,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000001 ---------- *032154 JUMPA 0,032155 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032155 ---------- *032155 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032156 HRROI 7,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032157 AOSL 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *032161 JUMPA 0,032162 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032162 ---------- *032162 CAME 7,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032164 JUMPA 0,032165 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032165 ---------- *032165 CAME 6,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032167 JUMPA 0,032170 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032170 ---------- *032170 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *032171 HRROI 7,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032172 MOVEM 7,032206 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 000000 000000 FINAL C(E)= 777777 777776 ---------- *032173 AOSL 6,032206 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032175 JUMPA 0,032176 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032176 ---------- *032176 MOVE 7,032206 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *032177 CAME 7,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032201 JUMPA 0,032202 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032202 ---------- *032202 CAME 6,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032204 JUMPA 0,032205 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032205 ---------- *032205 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032207 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *032210 SETO 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032211 AOSL 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032212 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032214 JUMPA 0,032215 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032215 ---------- *032215 CAME 7,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032217 JUMPA 0,032220 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032220 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *032220 CAME 6,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032222 JUMPA 0,032223 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032223 ---------- *032223 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032224 SETZ 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032225 AOSL 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032226 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *032230 JUMPA 0,032231 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032231 ---------- *032231 CAME 7,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032233 JUMPA 0,032234 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032234 ---------- *032234 CAME 6,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032236 JUMPA 0,032237 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032237 ---------- *032237 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *032240 HRROI 6,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032241 AOSE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032242 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032244 JUMPA 0,032245 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032245 ---------- *032245 CAME 6,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032247 JUMPA 0,032250 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032250 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *032250 CAME 5,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032252 JUMPA 0,032253 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032253 ---------- *032253 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032254 SETO 6,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032255 AOSE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032257 JUMPA 0,032260 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032260 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *032260 CAME 6,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032262 JUMPA 0,032263 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032263 ---------- *032263 CAME 5,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032265 JUMPA 0,032266 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032266 ---------- *032266 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032267 SETZ 6,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *032270 AOSE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032271 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032273 JUMPA 0,032274 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032274 ---------- *032274 CAME 6,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032276 JUMPA 0,032277 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032277 ---------- *032277 CAME 5,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *032301 JUMPA 0,032302 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032302 ---------- *032302 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032303 HRROI 5,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032304 AOSLE 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032306 JUMPA 0,032307 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032307 ---------- *032307 CAME 5,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *032311 JUMPA 0,032312 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032312 ---------- *032312 CAME 4,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032314 JUMPA 0,032315 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032315 ---------- *032315 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032316 SETOM 5,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *032317 AOSLE 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *032321 JUMPA 0,032322 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032322 ---------- *032322 CAME 5,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032324 JUMPA 0,032325 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032325 ---------- *032325 CAME 4,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032327 JUMPA 0,032330 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 032330 ---------- *032330 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *032331 SETZ 0,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032332 AOSLE 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032333 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032335 JUMPA 0,032336 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032336 ---------- *032336 CAME 5,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032340 JUMPA 0,032341 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032341 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *032341 CAME 4,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032343 JUMPA 0,032344 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032344 ---------- *032344 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777776 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032345 HRROI 4,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032346 AOSA 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032350 JUMPA 0,032351 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032351 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *032351 CAME 4,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032353 JUMPA 0,032354 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032354 ---------- *032354 CAME 3,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032356 JUMPA 0,032357 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032357 ---------- *032357 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032360 SETO 4,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *032361 AOSA 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032363 JUMPA 0,032364 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032364 ---------- *032364 CAME 4,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032366 JUMPA 0,032367 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032367 ---------- *032367 CAME 3,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032371 JUMPA 0,032372 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032372 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *032372 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032373 SETZ 4,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032374 AOSA 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032376 JUMPA 0,032377 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032377 ---------- *032377 CAME 4,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032401 JUMPA 0,032402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032402 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *032402 CAME 3,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032404 JUMPA 0,032405 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032405 ---------- *032405 MOVE 2,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032406 HRROI 3,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032407 AOSGE 2,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032410 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *032412 JUMPA 0,032413 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032413 ---------- *032413 CAME 3,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032415 JUMPA 0,032416 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032416 ---------- *032416 CAME 2,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032420 JUMPA 0,032421 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032421 ---------- *032421 MOVE 2,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *032422 SETO 3,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032423 AOSGE 2,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032425 JUMPA 0,032426 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032426 ---------- *032426 CAME 3,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032430 JUMPA 0,032431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032431 ---------- *032431 CAME 2,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *032433 JUMPA 0,032434 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032434 ---------- *032434 MOVE 2,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032435 SETZ 3,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032436 AOSGE 2,000003 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032440 JUMPA 0,032441 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032441 ---------- *032441 CAME 3,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *032443 JUMPA 0,032444 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032444 ---------- *032444 CAME 2,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032446 JUMPA 0,032447 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032447 ---------- *032447 MOVE 1,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032450 HRROI 2,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *032451 AOSN 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *032453 JUMPA 0,032454 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032454 ---------- *032454 CAME 2,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032456 JUMPA 0,032457 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032457 ---------- *032457 CAME 1,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032461 JUMPA 0,032462 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032462 ---------- *032462 MOVE 1,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *032463 SETO 2,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032464 AOSN 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032465 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032467 JUMPA 0,032470 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032470 ---------- *032470 CAME 2,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032472 JUMPA 0,032473 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032473 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *032473 CAME 1,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032475 JUMPA 0,032476 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032476 ---------- *032476 MOVE 1,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032477 SETZ 2,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032500 AOSN 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032502 JUMPA 0,032503 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032503 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *032503 CAME 2,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032505 JUMPA 0,032506 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032506 ---------- *032506 CAME 1,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032510 JUMPA 0,032511 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032511 ---------- *032511 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032512 HRROI 1,777776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *032513 AOSG 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777776 FINAL C(AC)= 707070 707070 C(E)= 777777 777777 ---------- *032514 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032516 JUMPA 0,032517 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032517 ---------- *032517 CAME 1,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032521 JUMPA 0,032522 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032522 ---------- *032522 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *032524 JUMPA 0,032525 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032525 ---------- *032525 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032526 SETO 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 777777 777777 ---------- *032527 AOSG 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 707070 707070 C(E)= 000000 000000 ---------- *032530 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *032532 JUMPA 0,032533 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032533 ---------- *032533 CAME 1,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032535 JUMPA 0,032536 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032536 ---------- *032536 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *032540 JUMPA 0,032541 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032541 ---------- *032541 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *032542 SETZ 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 000000 000000 ---------- *032543 AOSG 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 707070 707070 C(E)= 000000 000001 ---------- *032545 JUMPA 0,032546 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032546 ---------- *032546 CAME 1,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032550 JUMPA 0,032551 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032551 ---------- *032551 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *032553 JUMPA 0,032554 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032554 ---------- *032554 MOVEI 17,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032555 SOJL 17,032557 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032557 FINAL C(AC)= 777777 777777 ---------- *032557 JUMPA 0,032560 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032560 ---------- *032560 CAME 17,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032562 JUMPA 0,032563 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032563 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *032563 MOVEI 17,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032564 SOJL 17,032566 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032566 FINAL C(AC)= 000000 000000 ---------- *032565 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032567 JUMPA 0,032570 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032570 ---------- *032570 CAME 17,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032572 JUMPA 0,032573 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032573 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *032573 MOVEI 17,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032574 SOJL 17,032576 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032576 FINAL C(AC)= 000000 000001 ---------- *032575 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032577 JUMPA 0,032600 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032600 ---------- *032600 CAME 17,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032602 JUMPA 0,032603 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032603 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *032603 MOVEI 16,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032604 SOJE 16,032606 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032606 FINAL C(AC)= 777777 777777 ---------- *032605 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032607 JUMPA 0,032610 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032610 ---------- *032610 CAME 16,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032612 JUMPA 0,032613 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032613 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *032613 MOVEI 16,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032614 SOJE 16,032616 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032616 FINAL C(AC)= 000000 000000 ---------- *032616 JUMPA 0,032617 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032617 ---------- *032617 CAME 16,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032621 JUMPA 0,032622 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032622 ---------- *032622 MOVEI 16,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *032623 SOJE 16,032625 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032625 FINAL C(AC)= 000000 000001 ---------- *032624 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032626 JUMPA 0,032627 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032627 ---------- *032627 CAME 16,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032631 JUMPA 0,032632 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032632 ---------- *032632 MOVEI 15,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *032633 SOJLE 15,032635 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032635 FINAL C(AC)= 777777 777777 ---------- *032635 JUMPA 0,032636 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032636 ---------- *032636 CAME 15,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032640 JUMPA 0,032641 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032641 ---------- *032641 MOVEI 15,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032642 SOJLE 15,032644 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032644 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *032644 JUMPA 0,032645 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032645 ---------- *032645 CAME 15,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032647 JUMPA 0,032650 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032650 ---------- *032650 MOVEI 15,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032651 SOJLE 15,032653 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032653 FINAL C(AC)= 000000 000001 ---------- *032652 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *032654 JUMPA 0,032655 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032655 ---------- *032655 CAME 15,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032657 JUMPA 0,032660 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032660 ---------- *032660 MOVEI 14,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032661 SOJA 14,032663 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032663 FINAL C(AC)= 777777 777777 ---------- *032663 JUMPA 0,032664 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032664 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *032664 CAME 14,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032666 JUMPA 0,032667 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032667 ---------- *032667 MOVEI 14,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032670 SOJA 14,032672 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032672 FINAL C(AC)= 000000 000000 ---------- *032672 JUMPA 0,032673 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032673 ---------- *032673 CAME 14,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *032675 JUMPA 0,032676 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032676 ---------- *032676 MOVEI 14,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032677 SOJA 14,032701 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032701 FINAL C(AC)= 000000 000001 ---------- *032701 JUMPA 0,032702 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032702 ---------- *032702 CAME 14,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032704 JUMPA 0,032705 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032705 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *032705 MOVEI 13,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032706 SOJGE 13,032710 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032710 FINAL C(AC)= 777777 777777 ---------- *032707 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032711 JUMPA 0,032712 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032712 ---------- *032712 CAME 13,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032714 JUMPA 0,032715 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032715 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *032715 MOVEI 13,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032716 SOJGE 13,032720 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032720 FINAL C(AC)= 000000 000000 ---------- *032720 JUMPA 0,032721 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032721 ---------- *032721 CAME 13,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032723 JUMPA 0,032724 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032724 ---------- *032724 MOVEI 13,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *032725 SOJGE 13,032727 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032727 FINAL C(AC)= 000000 000001 ---------- *032727 JUMPA 0,032730 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032730 ---------- *032730 CAME 13,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032732 JUMPA 0,032733 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032733 ---------- *032733 MOVEI 12,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032734 SOJN 12,032736 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032736 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *032736 JUMPA 0,032737 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032737 ---------- *032737 CAME 12,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032741 JUMPA 0,032742 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032742 ---------- *032742 MOVEI 12,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032743 SOJN 12,032745 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032745 FINAL C(AC)= 000000 000000 ---------- *032744 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *032746 JUMPA 0,032747 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032747 ---------- *032747 CAME 12,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032751 JUMPA 0,032752 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032752 ---------- *032752 MOVEI 12,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *032753 SOJN 12,032755 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 032755 FINAL C(AC)= 000000 000001 ---------- *032755 JUMPA 0,032756 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032756 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *032756 CAME 12,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *032760 JUMPA 0,032761 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032761 ---------- *032761 MOVEI 11,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032762 SOJG 11,032764 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 032764 FINAL C(AC)= 777777 777777 ---------- *032763 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032765 JUMPA 0,032766 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032766 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *032766 CAME 11,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032770 JUMPA 0,032771 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032771 ---------- *032771 MOVEI 11,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032772 SOJG 11,032774 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 032774 FINAL C(AC)= 000000 000000 ---------- *032773 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *032775 JUMPA 0,032776 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 032776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *032776 CAME 11,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033000 JUMPA 0,033001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033001 ---------- *033001 MOVEI 11,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033002 SOJG 11,033004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000002 E= 000000 033004 FINAL C(AC)= 000000 000001 ---------- *033004 JUMPA 0,033005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033005 ---------- *033005 CAME 11,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *033007 JUMPA 0,033010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033010 ---------- *033010 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033011 MOVEI 1,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033012 SOSL 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 707070 707070 C(E)= 777777 777777 ---------- *033014 JUMPA 0,033015 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033015 ---------- *033015 CAME 1,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *033017 JUMPA 0,033020 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033020 ---------- *033020 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *033022 JUMPA 0,033023 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033023 ---------- *033023 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033024 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033025 SOSL 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 707070 707070 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *033026 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033030 JUMPA 0,033031 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033031 ---------- *033031 CAME 1,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033033 JUMPA 0,033034 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033034 ---------- *033034 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *033036 JUMPA 0,033037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033037 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *033037 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033040 MOVEI 1,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033041 MOVEM 1,033056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(E)= 000000 000001 ---------- *033042 SOSL 0,033056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 707070 707070 C(E)= 000000 000000 ---------- *033043 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *033045 JUMPA 0,033046 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033046 ---------- *033046 MOVE 1,033056 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033047 CAME 1,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033051 JUMPA 0,033052 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033052 ---------- *033052 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *033054 JUMPA 0,033055 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033055 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *033055 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033057 MOVE 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033060 MOVEI 1,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033061 SOSL 0,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 707070 707070 C(E)= 000000 000001 ---------- *033062 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *033064 JUMPA 0,033065 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033065 ---------- *033065 CAME 1,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033067 JUMPA 0,033070 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033070 ---------- *033070 CAME 0,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *033072 JUMPA 0,033073 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033073 ---------- *033073 MOVE 10,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *033074 MOVEI 11,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033075 SOSE 10,000011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033076 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033100 JUMPA 0,033101 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033101 ---------- *033101 CAME 11,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033103 JUMPA 0,033104 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033104 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *033104 CAME 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033106 JUMPA 0,033107 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033107 ---------- *033107 MOVE 10,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033110 MOVEI 11,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033111 SOSE 10,000011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033113 JUMPA 0,033114 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033114 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *033114 CAME 11,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033116 JUMPA 0,033117 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033117 ---------- *033117 CAME 10,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033121 JUMPA 0,033122 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033122 ---------- *033122 MOVE 10,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033123 MOVEI 11,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *033124 SOSE 10,000011 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033125 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033127 JUMPA 0,033130 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033130 ---------- *033130 CAME 11,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033132 JUMPA 0,033133 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033133 ---------- *033133 CAME 10,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *033135 JUMPA 0,033136 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033136 ---------- *033136 MOVE 7,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033137 MOVEI 10,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033140 SOSLE 7,000010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033142 JUMPA 0,033143 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033143 ---------- *033143 CAME 10,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *033145 JUMPA 0,033146 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033146 ---------- *033146 CAME 7,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033150 JUMPA 0,033151 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033151 ---------- *033151 MOVE 7,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033152 MOVEI 10,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033153 SOSLE 7,000010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *033155 JUMPA 0,033156 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033156 ---------- *033156 CAME 10,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033160 JUMPA 0,033161 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033161 ---------- *033161 CAME 7,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033163 JUMPA 0,033164 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033164 ---------- *033164 MOVE 7,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *033165 MOVEI 10,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033166 SOSLE 7,000010 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033167 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033171 JUMPA 0,033172 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033172 ---------- *033172 CAME 10,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033174 JUMPA 0,033175 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033175 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *033175 CAME 7,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033177 JUMPA 0,033200 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033200 ---------- *033200 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033201 MOVEI 7,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033202 SOSA 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033204 JUMPA 0,033205 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033205 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *033205 CAME 7,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033207 JUMPA 0,033210 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033210 ---------- *033210 CAME 6,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033212 JUMPA 0,033213 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033213 ---------- *033213 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033214 MOVEI 7,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *033215 SOSA 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033217 JUMPA 0,033220 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033220 ---------- *033220 CAME 7,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033222 JUMPA 0,033223 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033223 ---------- *033223 CAME 6,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033225 JUMPA 0,033226 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033226 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *033226 MOVE 6,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033227 MOVEI 7,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033230 SOSA 6,000007 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033232 JUMPA 0,033233 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033233 ---------- *033233 CAME 7,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033235 JUMPA 0,033236 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033236 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *033236 CAME 6,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033240 JUMPA 0,033241 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033241 ---------- *033241 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033242 MOVEI 6,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033243 SOSGE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033244 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *033246 JUMPA 0,033247 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033247 ---------- *033247 CAME 6,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033251 JUMPA 0,033252 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033252 ---------- *033252 CAME 5,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033254 JUMPA 0,033255 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033255 ---------- *033255 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *033256 MOVEI 6,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033257 SOSGE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033261 JUMPA 0,033262 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033262 ---------- *033262 CAME 6,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033264 JUMPA 0,033265 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033265 ---------- *033265 CAME 5,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *033267 JUMPA 0,033270 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033270 ---------- *033270 MOVE 5,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033271 MOVEI 6,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033272 SOSGE 5,000006 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033274 JUMPA 0,033275 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033275 ---------- *033275 CAME 6,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *033277 JUMPA 0,033300 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033300 ---------- *033300 CAME 5,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033302 JUMPA 0,033303 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033303 ---------- *033303 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033304 MOVEI 5,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *033305 SOSN 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *033307 JUMPA 0,033310 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033310 ---------- *033310 CAME 5,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033312 JUMPA 0,033313 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033313 ---------- *033313 CAME 4,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033315 JUMPA 0,033316 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033316 ---------- *033316 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *033317 MOVEI 5,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033320 SOSN 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033321 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033323 JUMPA 0,033324 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033324 ---------- *033324 CAME 5,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033326 JUMPA 0,033327 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033327 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *033327 CAME 4,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033331 JUMPA 0,033332 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033332 ---------- *033332 MOVE 4,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033333 MOVEI 5,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033334 SOSN 4,000005 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033336 JUMPA 0,033337 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033337 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *033337 CAME 5,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033341 JUMPA 0,033342 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033342 ---------- *033342 CAME 4,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033344 JUMPA 0,033345 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033345 ---------- *033345 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033346 MOVEI 4,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *033347 SOSG 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033350 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033352 JUMPA 0,033353 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033353 ---------- *033353 CAME 4,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033355 JUMPA 0,033356 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033356 ---------- *033356 CAME 3,033412 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *033360 JUMPA 0,033361 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033361 ---------- *033361 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- *033362 MOVEI 4,000001 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *033363 SOSG 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033364 SKIPA 0,000000 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *033366 JUMPA 0,033367 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033367 ---------- *033367 CAME 4,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033371 JUMPA 0,033372 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033372 ---------- *033372 CAME 3,033431 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033374 JUMPA 0,033375 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033375 ---------- *033375 MOVE 3,033424 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 C(E)= 707070 707070 FINAL C(AC)= 707070 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *033376 MOVEI 4,000002 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 000000 000002 ---------- *033377 SOSG 3,000004 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033401 JUMPA 0,033402 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033402 ---------- *033402 CAME 4,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- *033404 JUMPA 0,033405 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033405 ---------- *033405 CAME 3,033432 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000001 C(E)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *033407 JUMPA 0,033410 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 E= 000000 033410 ---------- *033410 SETZM 0,033434 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *033411 JRST 0,030057 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 707070 707070 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000001 FINAL C(AC)= 707070 707070 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAE 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 707070 707070 ---------- *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 000000 000000 FINAL C(AC)= 707070 707070 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 707070 707070 C(E)= 777777 777777 FINAL C(AC)= 707070 707070 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKCG.txt,v0000444000175100010010000166705412051211416014401 0ustar RobNonehead 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;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 000000 000000 KLFLG: 0 ;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/mem/RCS/MAINDEC-10-DSKAF.txt,v0000444000175100010010000241337412051211474014375 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAF IDENTIFICATION -------------- PRODUCT CODE: AH-E307A-DD DIAGNOSTIC CODE: DSKAF PRODUCT NAME: DSKAFA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (6) 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-DSKAF.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAF.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE SIXTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS THE BOOLE, HWT AND TEST INSTRUCTIONS. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAF.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAF.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAF SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAF TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (6) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 DSKAFT MAC 28-Mar-78 14:15 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAF 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 2 DSKAFT MAC 28-Mar-78 14:15 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 USRASB==1 36 000001 PGMEND==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 3 DSKAFT MAC 28-Mar-78 14:15 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 414600 PAREA3=SIXBIT/DSKAF/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 IFNDEF EROLD, 343 344 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 345 346 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 347 SALL 348 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 349 CORECT,,ACTUAL 350 [SIXBIT\D'_\],,ERR] 351 XALL> 352 353 >;END OF EROLD CONDITIONAL 354 355 XLIST 356 LIST DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 357 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 358 359 030000 LOC 30000 360 361 S^;*********************************************************************^ 362 ;*PROGRAM STARTING ADDRESSES 363 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 364 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 365 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 366 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 367 S^;*********************************************************************^ 368 369 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 370 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 371 372 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 373 374 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 375 376 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 377 378 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 379 380 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 381 382 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 383 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 384 385 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 386 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 387 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 388 389 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 390 030014 254000 030660 START2: SADR8 ; " 391 030015 254000 030660 START3: SADR9 ; " 392 030016 254000 030660 START4: SADR10 ; " 393 030017 254000 030660 START5: SADR11 ; " DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 394 S^;*********************************************************************^ 395 ;*PROGRAM FIXED PARAMETER AREA 396 S^;*********************************************************************^ 397 398 030020 446353 414600 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 399 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 400 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 401 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 402 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 403 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 404 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 405 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 406 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 407 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 408 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 409 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 410 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 411 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 412 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 413 414 S^;*********************************************************************^ 415 ;*PROGRAM VARIABLE PARAMETER AREA 416 S^;*********************************************************************^ 417 418 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 419 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 420 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 421 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 422 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 423 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 424 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 425 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 426 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 427 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 428 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 429 030052 000000 000000 ERRPC: 0 ;ERROR PC 430 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 431 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 432 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 433 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 434 S^;*********************************************************************^ 435 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 436 S^;*********************************************************************^ 437 438 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 439 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 440 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 441 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 442 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 443 030064 CPOPJ1: ;SKIP RETURN 444 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 445 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 446 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 447 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 448 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 449 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 450 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 451 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 452 030073 255 00 0 00 000000 $USRHL: JFCL ; " 453 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 454 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 455 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 456 030077 255 00 0 00 000000 RESRT2: JFCL ; " 457 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 458 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 459 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 460 461 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 462 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 463 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 464 465 S^;*********************************************************************^ 466 ;*PROCESSOR CONTROL STORAGE 467 S^;*********************************************************************^ 468 469 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 470 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 471 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 472 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 473 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 474 475 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 476 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 477 478 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 479 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 480 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 481 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 482 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 483 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 484 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 485 S^;*********************************************************************^ 486 ;*UUO DISPATCH TABLE 487 S^;*********************************************************************^ 488 XLIST 489 LIST 490 030124 030070 030070 UUODIS: LUUO1,,$UUOER 491 030125 030070 030070 LUUO3,,LUUO2 492 030126 030070 030070 LUUO5,,LUUO4 493 030127 030070 030070 LUUO7,,LUUO6 494 030130 030070 030070 LUUO11,,LUUO10 495 030131 030070 030070 LUUO13,,LUUO12 496 030132 030070 030070 LUUO15,,LUUO14 497 030133 030070 030070 LUUO17,,LUUO16 498 030134 030070 030070 LUUO21,,LUUO20 499 030135 030070 030070 LUUO23,,LUUO22 500 030136 030070 030070 LUUO25,,LUUO24 501 030137 030070 030070 LUUO27,,LUUO26 502 030140 030070 030070 LUUO31,,LUUO30 503 030141 030070 030070 LUUO33,,LUUO32 504 505 S^;*********************************************************************^ 506 ;*MEMORY MANAGMENT STORAGE 507 S^;*********************************************************************^ 508 509 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 510 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 511 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 512 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 513 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 514 515 S^;*********************************************************************^ 516 ;*PRINT CONTROL STORAGE 517 S^;*********************************************************************^ 518 519 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 520 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 521 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 522 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 523 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 524 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 525 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 526 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 527 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 528 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 529 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 530 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 531 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 532 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 533 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 534 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 535 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 536 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 537 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 538 S^;*********************************************************************^ 539 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 540 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 541 ;* MOVEI NAME 542 ;* PNTA ;OR PNTAF 543 S^;*********************************************************************^ 544 545 030242 CRLF: ASCII/ 546 030242 015 012 000 000 000 / 547 030243 CRLF2: ASCII/ 548 549 030243 015 012 015 012 000 / 550 030244 054 000 000 000 000 COMMA: ASCII/,/ 551 030245 056 000 000 000 000 PERIOD: ASCII/./ 552 030246 040 000 000 000 000 SPACE: ASCII/ / 553 030247 011 000 000 000 000 TAB: ASCII/ / 554 030250 MINUS: 555 030250 055 000 000 000 000 HYPEN: ASCII/-/ 556 030251 053 000 000 000 000 PLUS: ASCII/+/ 557 030252 052 000 000 000 000 AST: ASCII/*/ 558 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 559 030254 050 000 000 000 000 LFP: ASCII/(/ 560 030255 051 000 000 000 000 RTP: ASCII/)/ 561 030256 007 0000000000 BELL: BYTE (7) 007 562 030257 077 000 000 000 000 QUEST: ASCII/?/ 563 030260 057 000 000 000 000 SLASH: ASCII!/! 564 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 565 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 566 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 567 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 568 569 S^;*********************************************************************^ 570 ;*USER MODE OUTPUT FILE INFORMATION 571 S^;*********************************************************************^ 572 573 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 574 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 575 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 576 030272 BLOCK 2 577 578 S^;*********************************************************************^ 579 ;*DISK UPDATE MODE FILE INFORMATION 580 S^;*********************************************************************^ 581 582 030274 $IBUF: BLOCK 3 583 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 584 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 585 030301 BLOCK 2 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 586 S^;*********************************************************************^ 587 ;*PUSHDOWN LIST CONTROL INFORMATION 588 S^;*********************************************************************^ 589 590 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 591 030304 PLISTS: BLOCK 200 592 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 593 594 S^;*********************************************************************^ 595 ;*POWER LINE CLOCK FREQUENCY FLAG 596 S^;*********************************************************************^ 597 598 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 599 600 S^;*********************************************************************^ 601 ;*KL10 CACHE CONTROL FLAGS 602 S^;*********************************************************************^ 603 604 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 605 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 606 607 S^;*********************************************************************^ 608 ;*NUMBER INPUT DIGIT FLAG 609 S^;*********************************************************************^ 610 611 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 612 613 S^;*********************************************************************^ 614 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 615 S^;*********************************************************************^ 616 617 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 618 619 S^;*********************************************************************^ 620 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 621 S^;*********************************************************************^ 622 623 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 624 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 625 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 626 627 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 DSKAF1 MAC 28-Mar-78 14:15 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) [DSKAF] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 066 051 040 798 030656 133 104 123 113 101 799 030657 106 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (6) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 2 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0029 807 SUBTTL TEST OF MSCL BOOLEAN INSTRUCTIONS 808 809 ;********** 810 811 ;THIS TEST VERIFIES THAT SETZI CLEARS THE AC AND DOES NOT AFFECT E. 812 ;FIRST, AC AND E ARE PRELOADED WITH -1,,-1, THEN, SETZI IS EXECUTED. 813 ;AC IS THEN CHECKED FOR 0 AND E IS CHECKED FOR -1,,-1 814 815 030661 474 01 0 00 000000 C56100: SETO 1, ;PRELOAD AC WITH -1,,-1 816 030662 474 02 0 00 000000 SETO 2, ;PRELOAD E WITH -1,,-1 817 030663 401 01 0 00 000002 SETZI 1,2 ;*SETZI SHOULD CLEAR THE AC 818 030664 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC)=0 819 STOP^ 820 030665 254 04 0 00 030666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 821 030666 324 00 0 00 030667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 822 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 823 ;IN THE SUBTEST) TO LOOP ON ERROR^ 824 030667 312 02 0 00 034217 CAME 2,[-1] ;PASS IF C(E)=-1,,-1 825 STOP^ 826 030670 254 04 0 00 030671 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 827 030671 324 00 0 00 030672 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 828 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 829 ;IN THE SUBTEST) TO LOOP ON ERROR^ 830 831 ;********** 832 833 ;THIS TEST VERIFIES THAT SETZM CLEARS C(E) AND DOES NOT AFFECT C(AC) 834 ;FIRST, AC AND E ARE PRELOADED WITH -1,,-1; THEN SETZM IS EXECUTED. 835 ;AC IS THEN CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0. 836 837 030672 474 01 0 00 000000 C56200: SETO 1, ;PRELOAD AC WITH -1,,-1 838 030673 474 02 0 00 000000 SETO 2, ;PRELOAD E WITH -1,,-1 839 030674 402 01 0 00 000002 SETZM 1,2 ;*SETZM SHOULD CLEAR E 840 030675 312 01 0 00 034217 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 841 STOP^ 842 030676 254 04 0 00 030677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 843 030677 324 00 0 00 030700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 844 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 845 ;IN THE SUBTEST) TO LOOP ON ERROR^ 846 030700 332 00 0 00 000002 SKIPE 2 ;PASS IF C(E)=0 847 STOP^ 848 030701 254 04 0 00 030702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 849 030702 324 00 0 00 030703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 850 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 851 ;IN THE SUBTEST) TO LOOP ON ERROR^ 852 853 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 3 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0030 854 ;THIS TEST VERIFIES THAT SETOI PLACES ALL ONES INTO THE AC. 855 ;FIRST, THE AC AND E ARE CLEARED; THEN, SETOI IS EXECUTED. 856 ;AC AND E ARE CHECKED FOR -1,,-1 AND 0 RESPECTIVELY 857 858 030703 403 01 0 00 000002 C56300: SETZB 1,2 ;CLEAR AC,E 859 030704 475 01 0 00 000002 SETOI 1,2 ;*SETOI SHOULD PLACE -1,,-1 INTO THE AC 860 030705 312 01 0 00 034217 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 861 STOP^ 862 030706 254 04 0 00 030707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 863 030707 324 00 0 00 030710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 865 ;IN THE SUBTEST) TO LOOP ON ERROR^ 866 030710 332 00 0 00 000002 SKIPE 2 ;PASS IF C(E)=0 867 STOP^ 868 030711 254 04 0 00 030712 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 869 030712 324 00 0 00 030713 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 870 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 871 ;IN THE SUBTEST) TO LOOP ON ERROR^ 872 873 ;********** 874 875 ;THIS TEST VERIFIES THAT SETOM PLACES ALL ONES INTO E 876 ;FIRST, THE AC AND E ARE CLEARED, THEN SETOM IS EXECUTED. 877 ;AC AND E ARE THEN CHECKED FOR 0 AND -1,,-1 RESPECTIVELY. 878 879 030713 403 01 0 00 000002 C56400: SETZB 1,2 ;CLEAR AC,E 880 030714 476 01 0 00 000002 SETOM 1,2 ;*SETOM SHOULD PLACE -1,,-1 INTO E 881 030715 332 00 0 00 000001 SKIPE 1 ;PASS IF C(AC)=0 882 STOP^ 883 030716 254 04 0 00 030717 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 884 030717 324 00 0 00 030720 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 885 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 886 ;IN THE SUBTEST) TO LOOP ON ERROR^ 887 030720 312 02 0 00 034217 CAME 2,[-1] ;PASS IF C(E)=-1,,-1 888 STOP^ 889 030721 254 04 0 00 030722 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 890 030722 324 00 0 00 030723 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 891 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 892 ;IN THE SUBTEST) TO LOOP ON ERROR^ 893 894 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 4 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0031 895 ;THIS TEST VERIFIES THAT SETOB PLACES ALL ONES INTO BOTH AC AND E. 896 ;FIRST, BOTH AC AND E ARE CLEARED; THEN, SETOB IS EXECUTED. 897 ;AC AND E ARE BOTH CHECKED FOR -1,,-1 898 899 030723 403 01 0 00 000002 C56500: SETZB 1,2 ;CLEAR AC,E 900 030724 477 01 0 00 000002 SETOB 1,2 ;*SETOB SHOULD PUT -1,,-1 INTO BOTH AC AND E 901 030725 312 01 0 00 034217 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 902 STOP^ 903 030726 254 04 0 00 030727 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 904 030727 324 00 0 00 030730 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 907 030730 312 02 0 00 034217 CAME 2,[-1] ;PASS IF C(E)=-1,,-1 908 STOP^ 909 030731 254 04 0 00 030732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 910 030732 324 00 0 00 030733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 911 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 912 ;IN THE SUBTEST) TO LOOP ON ERROR^ 913 914 ;********** 915 916 ;THIS TEST VERIFIES THAT ANDI PLACES THE LOGICAL AND FUNCTION 917 ;OF C(AC) AND 0,,E INTO THE AC. 918 ;IN THIS CASE, C(AC)=777000,,707070 AND E=0,,123123. 919 ;HENCE, THE RESULT IN THE AC SHOULD BE 0,,103103 920 921 030733 200 01 0 00 034220 C56600: MOVE 1,[777000,,707070] ;PRELOAD AC WITH 777000,,707070 922 030734 405 01 0 00 123123 ANDI 1,123123 ;*ANDI SHOULD PLACE 0,,103103 INTO THE AC 923 030735 302 01 0 00 103020 CAIE 1,103020 ;PASS IF C(AC)=103103 924 STOP^ 925 030736 254 04 0 00 030737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 926 030737 324 00 0 00 030740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 927 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 928 ;IN THE SUBTEST) TO LOOP ON ERROR^ 929 930 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 5 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0032 931 ;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF 932 ;C(AC) AND C(E) INTO E. 933 ;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456. 934 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND 935 ;123000,,00456 RESPECTIVELY 936 937 030740 200 01 0 00 034221 C56700: MOVE 1,[777000,,777] ;PRELOAD E WITH 777000,,000777 938 030741 200 02 0 00 034222 MOVE 2,[123456,,123456] ;PRELOAD AC WITH 123456,,123456 939 030742 406 02 0 00 000001 ANDM 2,1 ;*ANDM SHOULD PLACE 123000,,000456 INTO E 940 030743 312 02 0 00 034222 CAME 2,[123456,,123456] ;PASS IF C(AC) NOT MODIFIED 941 STOP^ 942 030744 254 04 0 00 030745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 943 030745 324 00 0 00 030746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 944 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 945 ;IN THE SUBTEST) TO LOOP ON ERROR^ 946 030746 312 01 0 00 034223 CAME 1,[123000,,000456] ;PASS IF C(E)=123000,,000456 947 STOP^ 948 030747 254 04 0 00 030750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 949 030750 324 00 0 00 030751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 950 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 951 ;IN THE SUBTEST) TO LOOP ON ERROR^ 952 953 ;********** 954 955 ;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF 956 ;C(AC) AND C(E) INTO E. 957 ;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456. 958 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND 959 ;123000,,00456 RESPECTIVELY 960 961 030751 200 01 0 00 034221 C56701: MOVE 1,[777000,,777] ;PRELOAD E WITH 777000,,000777 962 030752 202 01 0 00 030765 MOVEM 1,E56701 963 030753 200 02 0 00 034222 MOVE 2,[123456,,123456] ;PRELOAD AC WITH 123456,,123456 964 030754 406 02 0 00 030765 ANDM 2,E56701 ;*ANDM SHOULD PLACE 123000,,000456 INTO E 965 030755 312 02 0 00 034222 CAME 2,[123456,,123456] ;PASS IF C(AC) NOT MODIFIED 966 STOP^ 967 030756 254 04 0 00 030757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 968 030757 324 00 0 00 030760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 971 030760 200 01 0 00 030765 MOVE 1,E56701 972 030761 312 01 0 00 034223 CAME 1,[123000,,000456] ;PASS IF C(E)=123000,,000456 973 STOP^ 974 030762 254 04 0 00 030763 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 975 030763 324 00 0 00 030764 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 977 ;IN THE SUBTEST) TO LOOP ON ERROR^ 978 979 030764 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 980 030765 000000 000000 E56701: 0 ;TEST WORD MEMORY 981 982 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 6 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0033 983 ;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF 984 ;C(AC) AND C(E) INTO BOTH AC AND E 985 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1 986 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0, 987 988 030766 561 03 0 00 000000 C57000: HRROI 3,0 ;PRELOAD AC WITH -1,,0 989 030767 525 06 0 00 121212 HRLOI 6,121212 ;PRELOAD E WITH 121212,,-1 990 030770 407 03 0 00 000006 ANDB 3,6 ;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E 991 030771 312 03 0 00 034224 CAME 3,[121212,,0] ;PASS IF C(AC)=121212,,0 992 STOP^ 993 030772 254 04 0 00 030773 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 994 030773 324 00 0 00 030774 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 995 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 996 ;IN THE SUBTEST) TO LOOP ON ERROR^ 997 030774 312 06 0 00 034224 CAME 6,[121212,,0] ;PASS IF C(E)=121212,,0 998 STOP^ 999 030775 254 04 0 00 030776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1000 030776 324 00 0 00 030777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1001 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1002 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1003 1004 ;********** 1005 1006 ;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF 1007 ;C(AC) AND C(E) INTO BOTH AC AND E 1008 ;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1 1009 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0, 1010 1011 030777 561 03 0 00 000000 C57001: HRROI 3,0 ;PRELOAD AC WITH -1,,0 1012 031000 525 06 0 00 121212 HRLOI 6,121212 ;PRELOAD E WITH 121212,,-1 1013 031001 202 06 0 00 031013 MOVEM 6,E57001 1014 031002 407 03 0 00 031013 ANDB 3,E57001 ;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E 1015 031003 312 03 0 00 034224 CAME 3,[121212,,0] ;PASS IF C(AC)=121212,,0 1016 STOP^ 1017 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1018 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1019 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1020 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1021 031006 200 06 0 00 031013 MOVE 6,E57001 1022 031007 312 06 0 00 034224 CAME 6,[121212,,0] ;PASS IF C(E)=121212,,0 1023 STOP^ 1024 031010 254 04 0 00 031011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1025 031011 324 00 0 00 031012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1027 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1028 1029 031012 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 1030 031013 000000 000000 E57001: 0 ;TEST WORD MEMORY 1031 1032 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 7 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0034 1033 ;THIS TEST VERIFIES THAT ANDCAI PLACES THE LOGICAL AND FUNCTION 1034 ;OF THE WORD 0,E AND THE COMPLEMENT OF C(AC) INTO THE AC 1035 ;IN THIS CASE, C(AC)=777,000,,707070 AND E=0,135246 1036 ;HENCE, THE RESULT IN THE AC SHOULD BE 0,,030206 1037 1038 031014 200 05 0 00 034220 C57100: MOVE 5,[777000,,707070] ;PRELOAD AC WITH 777000,,707070 1039 031015 411 05 0 00 135246 ANDCAI 5,135246 ;*ANDCAI SHOULD PLACE 0,,30206 INTO THE AC 1040 031016 302 05 0 00 030206 CAIE 5,030206 ;PASS IF C(AC)=030206 1041 STOP^ 1042 031017 254 04 0 00 031020 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1043 031020 324 00 0 00 031021 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1046 1047 ;********** 1048 1049 ;THIS TEST VERIFIES THAT ANDCAM PLACES THE LOGICAL AND FUNCTION OF 1050 ;C(E) AND THE COMPLEMENT OF C(AC) INTO E. 1051 ;IN THIS CASE, C(AC)=000767,,-1 AND C(E)=777350,,-2 1052 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 000767,,-1 AND 1053 ;777010,,0 RESPECTIVELY. 1054 1055 031021 525 04 0 00 000767 C57200: HRLOI 4,767 ;PRELOAD AC WITH 000767,,-1 1056 031022 200 06 0 00 034225 MOVE 6,[777350,,-2] ;PRELOAD E WITH 777350,,-2 1057 031023 412 04 0 00 000006 ANDCAM 4,6 ;*ANDCAM SHOULD PLACE 777010,,0 1058 ;INTO E 1059 031024 312 04 0 00 034226 CAME 4,[767,,-1] ;PASS IF C(AC) IS UNCHANGED 1060 STOP^ 1061 031025 254 04 0 00 031026 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1062 031026 324 00 0 00 031027 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1063 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1064 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1065 031027 312 06 0 00 034227 CAME 6,[777010,,0] ;PASS IF C(E)=777010,,0 1066 STOP^ 1067 031030 254 04 0 00 031031 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1068 031031 324 00 0 00 031032 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1069 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1070 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1071 1072 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 8 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0035 1073 ;THIS TEST VERIFIES THAT ANDCAB PLACES THE LOGICAN AND FUNCTION OF 1074 ;C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E. 1075 ;IN THIS CASE, C(AC)=000777,,770077 AND C(E)=123456,246123 1076 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 123000,,006100 1077 1078 031032 200 01 0 00 034230 C57300: MOVE 1,[000777,,770077] ;PRELOAD AC WITH 000777,770077 1079 031033 200 02 0 00 034231 MOVE 2,[123456,,246123] ;PRELOAD E WITH 123456,246123 1080 031034 413 01 0 00 000002 ANDCAB 1,2 ;*ANDCAB SHOULD PLACE 123000,006100 1081 ;INTO BOTH AC AND E 1082 031035 312 01 0 00 034232 CAME 1,[123000,,006100] ;PASS IF C(AC)=123000,006100 1083 STOP^ 1084 031036 254 04 0 00 031037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1085 031037 324 00 0 00 031040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1086 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1087 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1088 031040 312 02 0 00 034232 CAME 2,[123000,,006100] ;PASS IF C(E)=123000,006100 1089 STOP^ 1090 031041 254 04 0 00 031042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1091 031042 324 00 0 00 031043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1092 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1093 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1094 1095 ;********** 1096 1097 ;THIS TEST VERIFIES THAT SETMI MOVES THE WORD 0,,E INTO THE AC 1098 ;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,123456. HENCE, THE RESULT 1099 ;IN THE AC SHOULD BE 0,,123456 1100 1101 031043 474 05 0 00 000000 C57400: SETO 5, ;PRELOAD AC WITH -1,,-1 1102 031044 415 05 0 00 123456 SETMI 5,123456 ;*SETMI SHOULD PLACE 0,,123456 INTO THE AC 1103 031045 302 05 0 00 123456 CAIE 5,123456 ;PASS IF C(AC)=0,123456 1104 STOP^ 1105 031046 254 04 0 00 031047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1106 031047 324 00 0 00 031050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1107 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1108 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1109 1110 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 9 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0036 1111 ;THIS TEST VERIFIES THAT SETMM IS A NO-OP. HENCE, IT SHOULD 1112 ;NOT MODIFY AC OR E. 1113 ;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1; AND NEITHER SHOULD NOT BE CHANGED 1114 1115 031050 400 16 0 00 000000 C57500: SETZ 16, ;CLEAR C(AC) 1116 031051 474 17 0 00 000000 SETO 17, ;PRELOAD E WITH -1,,-1 1117 031052 416 16 0 00 000017 SETMM 16,17 ;*SETMM IS A NO-OP 1118 031053 332 00 0 00 000016 SKIPE 16 ;PASS IF C(AC) UNCHANGED 1119 STOP^ 1120 031054 254 04 0 00 031055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1121 031055 324 00 0 00 031056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1122 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1123 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1124 031056 312 17 0 00 034217 CAME 17,[-1] ;PASS IF C(E) UNCHANGED 1125 STOP^ 1126 031057 254 04 0 00 031060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1127 031060 324 00 0 00 031061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1128 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1129 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1130 1131 ;********** 1132 1133 ;THIS TEST VERIFIES THAT SETMB PLACES C(E) INTO THE AC 1134 ;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=100,,-200 HENCE, THE RESULT 1135 ;IN BOTH AC AND E SHOULD BE 000100,,-200. 1136 1137 031061 474 00 0 00 000000 C57600: SETO 0, ;CLEAR AC 1138 031062 200 01 0 00 034233 MOVE 1,[100,,-200] ;PRELOAD E WITH 100,,-200 1139 031063 417 00 0 00 000001 SETMB 0,1 ;*SETMB SHOULD PLACE 100,,-200 INTO THE AC 1140 031064 312 00 0 00 034233 CAME 0,[100,,-200] ;PASS IF C(AC)=100,,-200 1141 STOP^ 1142 031065 254 04 0 00 031066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1143 031066 324 00 0 00 031067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1144 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1145 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1146 031067 312 01 0 00 034233 CAME 1,[100,,-200] ;PASS IF C(E)=100,,-200 1147 STOP^ 1148 031070 254 04 0 00 031071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1149 031071 324 00 0 00 031072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1150 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1151 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1152 1153 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 10 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0037 1154 ;THIS TEST VERIFIES THAT ANDCMI PLACES THE LOGICAL AND FUNCTION 1155 ;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC. 1156 ;IN THIS CASE, C(AC)=123456,,246135 AND E=0,,717273. 1157 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,040104. 1158 1159 031072 200 15 0 00 034234 C57700: MOVE 15,[123456,,246135] ;PRELOAD AC WITH 123456,,246135 1160 031073 421 15 0 00 717273 ANDCMI 15,717273 ;*ANDCMI SHOULD PLACE 123456,,040104 1161 ;INTO THE AC 1162 031074 312 15 0 00 034235 CAME 15,[123456,,040104] ;PASS IF C(AC)=123456,,040104 1163 STOP^ 1164 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1165 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1166 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1167 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1168 1169 ;********** 1170 1171 ;THIS TEST VERIFIES THAT ANDCMM PLACES THE LOGICAL AND FUNCTION OF 1172 ;C(AC) AND THE COMPLEMENT OF C(E) INTO E. 1173 ;IN THIS CASE,C(AC)=12321,,456654 AND C(E)= 770077,,007770 1174 ;HENCE, THE RESULT IN E SHOULD BE 003300,,450004 1175 1176 031077 200 14 0 00 034236 C60000: MOVE 14,[123321,,456654] ;PRELOAD AC WITH 123321,,456654 1177 031100 200 15 0 00 034237 MOVE 15,[770077,,007770] ;PRELOAD E WITH 77007770 1178 031101 422 14 0 00 000015 ANDCMM 14,15 ;*ANDCMM SHOULD PLACE 003300,,450004 INTO THE AC 1179 031102 312 14 0 00 034236 CAME 14,[123321,,456654] ;PASS IF C(AC) UNCHANGED 1180 STOP^ 1181 031103 254 04 0 00 031104 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1182 031104 324 00 0 00 031105 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1183 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1184 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1185 031105 312 15 0 00 034240 CAME 15,[3300,,450004] ;PASS IF C(E) = 003300,,450004 1186 STOP^ 1187 031106 254 04 0 00 031107 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1188 031107 324 00 0 00 031110 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1189 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1190 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1191 1192 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 11 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0038 1193 ;THIS TEST VERIFIES THAT ANDCMB PLACES THE LOGICAL AND FUNCTION OF 1194 ;C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E. 1195 ;IN THIS CASE, C(AC)123456,,663322 AND C(E) = 777000,,700770 1196 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000456,,063002 1197 1198 031110 200 13 0 00 034241 C60100: MOVE 13,[123456,,663322] ;PRELOAD AC WITH 123456,,663322 1199 031111 200 14 0 00 034242 MOVE 14,[777000,,700770] ;PRELOAD E WITH 777000,,700770 1200 031112 423 13 0 00 000014 ANDCMB 13,14 ;*ANDCMB SHOULD PLACE 000456,,063002 1201 ;INTO BOTH AC AND E 1202 031113 312 13 0 00 034243 CAME 13,[456,,63002] ;PASS IF C(AC)=000456,,063002 1203 STOP^ 1204 031114 254 04 0 00 031115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1205 031115 324 00 0 00 031116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1206 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1207 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1208 031116 312 14 0 00 034243 CAME 14,[456,,63002] ;PASS IF C(E)=000456,,063002 1209 STOP^ 1210 031117 254 04 0 00 031120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1211 031120 324 00 0 00 031121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1212 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1213 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1214 1215 ;********** 1216 1217 1218 ;THIS TEST VERIFIES THAT SETA IS A NO-OP. IT AFFECTS NEITHER 1219 ;AC OR E. IN THIS CASE, C(AC)=123456,,777776 AND C(E)=010203,,123450. 1220 ;SETA SHOULD NOT MODIFY C(AC) OR C(E) 1221 1222 031121 200 12 0 00 034244 C60200: MOVE 12,[123456,,777776] ;PRELOAD AC WITH 123456,,-2 1223 031122 200 13 0 00 034245 MOVE 13,[010203,,123450] ;PRELOAD E WITH 010203,,123450 1224 031123 424 12 0 00 000013 SETA 12,13 ;*SETA IS A NO-OP 1225 031124 312 12 0 00 034244 CAME 12,[123456,,-2] ;PASS IF C(AC) UNCHANGED 1226 STOP^ 1227 031125 254 04 0 00 031126 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1228 031126 324 00 0 00 031127 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1229 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1230 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1231 031127 312 13 0 00 034245 CAME 13,[010203,,123450] ;PASS IF C(E) UNCHANGED 1232 STOP^ 1233 031130 254 04 0 00 031131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1234 031131 324 00 0 00 031132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1235 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1236 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1237 1238 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 12 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0039 1239 ;THIS TEST VERIFIES THAT SETAI IS A NO-OP. IT DOES NOT AFFECT THE AC. 1240 ;IN THIS CASE, C(AC)=123456,,777776 AND E=0,,123450 1241 ;SETA SHOULD NOT MODIFY C(AC) 1242 1243 031132 200 12 0 00 034244 C60300: MOVE 12,[123456,,777776] ;PRELOAD AC WITH 123456,,-2 1244 031133 425 12 0 00 123450 SETAI 12,123450 ;*SETAI IS A NO-OP 1245 031134 312 12 0 00 034244 CAME 12,[123456,,-2] ;PASS IF C(AC) UNCHANGED 1246 STOP^ 1247 031135 254 04 0 00 031136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1248 031136 324 00 0 00 031137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1249 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1250 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1251 1252 ;********** 1253 1254 ;THIS TEST VERIFIES THAT SETAM PLACES C(AC) INTO E. 1255 ;IN THIS CASE, C(AC)=123456,,0 AND C(E)=-1,,-1. HENCE, THE 1256 ;RESULT IN E SHOULD BE 123456,,0 1257 1258 031137 515 11 0 00 123456 C60400: HRLZI 11,123456 ;PRELOAD AC WITH 123456,,0 1259 031140 474 12 0 00 000000 SETO 12, ;PRELOAD E WITH -1,,-1 1260 031141 426 11 0 00 000012 SETAM 11,12 ;SETAM SHOULD PLACE 123456,,0 INTO E 1261 031142 312 11 0 00 034246 CAME 11,[123456,,0] ;PASS IF C(AC) UNCHANGED 1262 STOP^ 1263 031143 254 04 0 00 031144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1264 031144 324 00 0 00 031145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1265 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1266 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1267 031145 312 12 0 00 034246 CAME 12,[123456,,0] ;PASS IF C(E)=123456,,0 1268 STOP^ 1269 031146 254 04 0 00 031147 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1270 031147 324 00 0 00 031150 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1271 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1272 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1273 1274 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 13 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0040 1275 ;THIS TEST VERIFIES THAT XORI PLACES THE LOGICAL EXCLUSIVE OR FUNCTION 1276 ;OF C(AC) AND THE WORD 0,,E INTO THE AC. 1277 ;IN THIS CASE, C(AC)=000777,,123456 AND E=0,,434431 1278 ;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,517067. 1279 1280 031150 200 10 0 00 034247 C60500: MOVE 10,[777,,123456] ;PRELOAD AC WITH 000777,,123456 1281 031151 431 10 0 00 434431 XORI 10,434431 ;*XORI SHOULD PLACE 000777,,517067 INTO THE AC 1282 031152 312 10 0 00 034250 CAME 10,[777,,517067] ;PASS IF C(AC)=000777,,517067 1283 STOP^ 1284 031153 254 04 0 00 031154 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1285 031154 324 00 0 00 031155 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1286 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1287 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1288 1289 ;********** 1290 1291 ;THIS TEST VERIFIES THAT XORB PLACES THE LOGICAL EXCLUSIVE OR FUNCTION 1292 ;OF C(AC) AND C(E) INTO BOTH AC AND E. 1293 ;IN THIS CASE, C(AC)=707077,,555666 AND C(E)=123456,,765432 1294 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 624421,,230254 1295 1296 031155 200 07 0 00 034251 C60600: MOVE 7,[707077,,555666] ;PRELOAD AC WITH 707077,,555666 1297 031156 200 10 0 00 034252 MOVE 10,[123456,,765432] ;PRELOAD E WITH 123456,,765432 1298 031157 433 07 0 00 000010 XORB 7,10 ;*XORB SHOULD PLACE 624421,,230254 1299 ;INTO BOTH AC AND E 1300 031160 312 07 0 00 034253 CAME 7,[624421,,230254] ;PASS IF C(AC)=624421,,230254 1301 STOP^ 1302 031161 254 04 0 00 031162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1303 031162 324 00 0 00 031163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1304 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1305 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1306 031163 312 10 0 00 034253 CAME 10,[624421,,230254] ;PASS IF C(E)=624421,,230254 1307 STOP^ 1308 031164 254 04 0 00 031165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1309 031165 324 00 0 00 031166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1310 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1311 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1312 1313 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 14 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0041 1314 ;THIS TEST VERIFIES THAT IORI PLACES THE INCLUSIVE OR FUNCTION 1315 ;OF C(AC) AND THE WORD 0,,E INTO THE AC. 1316 ;IN THIS CASE, C(AC)=707070,,123456 AND E=0,,765567 1317 ;HENCE, THE RESULT IN THE AC SHOULD BE 707070,,767577 1318 1319 031166 200 06 0 00 034254 C60700: MOVE 6,[707070,,123456] ;PRELOAD AC WITH 707070,,123456 1320 031167 435 06 0 00 765567 IORI 6,765567 ;*IORI SHOULD PLACE 707070,,767577 INTO THE AC 1321 031170 312 06 0 00 034255 CAME 6,[707070,,767577] ;PASS IF C(AC)=707070,,767577 1322 STOP^ 1323 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1324 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1325 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1326 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1327 1328 ;********** 1329 1330 ;THIS TEST VERIFIES THAT IORM PLACES THE INCLUSIVE OR FUNCTION 1331 ;OF C(AC) AND C(E) INTO E. 1332 ;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470 1333 ;HENCE, THE RESULT IN E SHOULD BE 777457,,777676 1334 1335 031173 200 05 0 00 034256 C61000: MOVE 5,[123456,,777666] ;PRELOAD AC WITH 123456,777666 1336 031174 200 06 0 00 034257 MOVE 6,[777001,,123470] ;PRELOAD E WITH 777001,,123470 1337 031175 436 05 0 00 000006 IORM 5,6 ;*IORM SHOULD PLACE 1338 ;777457,777676 INTO E 1339 031176 312 05 0 00 034256 CAME 5,[123456,,777666] ;PASS IF C(AC) UNMODIFIED 1340 STOP^ 1341 031177 254 04 0 00 031200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1342 031200 324 00 0 00 031201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1345 031201 312 06 0 00 034260 CAME 6,[777457,,777676] ;PASS IF C(E)=777457,777676 1346 STOP^ 1347 031202 254 04 0 00 031203 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1348 031203 324 00 0 00 031204 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1349 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1350 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1351 1352 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 15 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0042 1353 ;THIS TEST VERIFIES THAT IORB PLACES THE INCLUSIVE OR FUNCTION 1354 ;OF C(AC) AND C(E) INTO E. 1355 ;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470 1356 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 777457,,777676 1357 1358 031204 200 05 0 00 034256 C61100: MOVE 5,[123456,,777666] ;PRELOAD AC WITH 123456,777666 1359 031205 200 06 0 00 034257 MOVE 6,[777001,,123470] ;PRELOAD E WITH 777001,,123470 1360 031206 437 05 0 00 000006 IORB 5,6 ;*IORB SHOULD PLACE 1361 ;777457,,777676 INTO 1362 031207 312 05 0 00 034260 CAME 5,[777457,,777676] ;PASS IF C(AC)=777457,,777676 1363 STOP^ 1364 031210 254 04 0 00 031211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1365 031211 324 00 0 00 031212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1366 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1367 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1368 031212 312 06 0 00 034260 CAME 6,[777457,,777676] ;PASS IF C(E)=777457,,777676 1369 STOP^ 1370 031213 254 04 0 00 031214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1371 031214 324 00 0 00 031215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1372 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1373 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1374 1375 ;********** 1376 1377 ;THIS TEST VERIFIES THAT ANDCBI PLACES THE LOGICAL AND FUNCTION 1378 ;OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC 1379 ;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,706050. 1380 ;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,050321. 1381 1382 031215 200 04 0 00 034261 C61200: MOVE 4,[777000,,123456] ;PRELOAD AC WITH 777000,,123456 1383 031216 441 04 0 00 706050 ANDCBI 4,706050 ;*ANDCBI SHOULD PLACE 000777,,050321 1384 ;INTO THE AC 1385 031217 312 04 0 00 034262 CAME 4,[777,,50321] ;PASS IF C(AC)=000777,,050321 1386 STOP^ 1387 031220 254 04 0 00 031221 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1388 031221 324 00 0 00 031222 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1389 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1390 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1391 1392 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 16 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0043 1393 ;THIS TEST VERIFIES THAT ANDCBM PLACES THE LOGICAL AND FUNCTION 1394 ;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO 1395 ;IN THE CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477 1396 ;HENCE, THE RESULT IN E SHOULD BE 000570,,004200 1397 1398 031222 200 03 0 00 034263 C61300: MOVE 3,[777007,,771100] ;PRELOAD AC WITH 777007,,771100 1399 031223 200 04 0 00 034264 MOVE 4,[63202,,123477] ;PRELOAD E WITH 063202,,123477 1400 031224 442 03 0 00 000004 ANDCBM 3,4 ;*ANDCBM SHOULD PLACE 1401 ;000570,,004200 INTO E. 1402 031225 312 03 0 00 034263 CAME 3,[777007,,771100] ;PASS IF C(AC) IS UNCHANGED 1403 STOP^ 1404 031226 254 04 0 00 031227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1405 031227 324 00 0 00 031230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1406 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1407 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1408 031230 312 04 0 00 034265 CAME 4,[570,,4200] ;PASS IF C(E)=000570,,004200 1409 STOP^ 1410 031231 254 04 0 00 031232 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1411 031232 324 00 0 00 031233 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1412 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1413 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1414 1415 ;********** 1416 1417 ;THIS TEST VERIFIES THAT ANDCBB PLACES THE LOGICAL AND FUNCTION 1418 ;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E 1419 ;IN THIS CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477 1420 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000570,,004200 1421 1422 031233 200 03 0 00 034263 C61400: MOVE 3,[777007,,771100] ;PRELOAD WITH 777007,,771100 1423 031234 200 04 0 00 034264 MOVE 4,[63202,,123477] ;PRELOAD E WITH 063202,,123477 1424 031235 443 03 0 00 000004 ANDCBB 3,4 ;*ANDCBB SHOULD PLACE 1425 ;000570,,004200 INTO BOTH AC AND E 1426 031236 312 03 0 00 034265 CAME 3,[570,,4200] ;PASS IF C(AC)=000570,,004200 1427 STOP^ 1428 031237 254 04 0 00 031240 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1429 031240 324 00 0 00 031241 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1430 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1431 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1432 031241 312 04 0 00 034265 CAME 4,[570,,4200] ;PASS IF C(E)=000570,,004200 1433 STOP^ 1434 031242 254 04 0 00 031243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1435 031243 324 00 0 00 031244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1436 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1437 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1438 1439 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 17 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0044 1440 ;THIS TEST VERIFIES THAT EQVI PLACES THE LOGICAL EQUIVALENCE FUNCTION 1441 ;OF C(AC) AND THE WORD 0,,E INTO THE AC 1442 ;IN THIS CASE, C(AC)=707070,,123426 AND E=0,,123363 1443 ;HENCE, THE RESULT IN THE AC SHOULD BE 070707,,777032 1444 1445 031244 200 02 0 00 034266 C61500: MOVE 2,[707070,,123426] ;PRELOAD AC WITH 707070,,123426 1446 031245 445 02 0 00 123363 EQVI 2,123363 ;*EQVI SHOULD PLACE 1447 ;070707,,777032 INTO THE AC 1448 031246 312 02 0 00 034267 CAME 2,[70707,,777032] ;PASS IF C(AC)=070707,,777032 1449 STOP^ 1450 031247 254 04 0 00 031250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1451 031250 324 00 0 00 031251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1453 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1454 1455 ;********** 1456 1457 ;THIS TEST VERIFIES THAT EQVM PLACES THE LOGICAL EQUIVALENCE FUNCTION 1458 ;OF C(AC) AND C(E) INTO E. 1459 ;IN THIS CASE, C(AC)= 123456,,123457 AND C(E) = 707633,,121212 1460 ;HENCE, THE RESULT IN E SHOULD BE 153512,,775132 1461 1462 031251 200 01 0 00 034270 C61600: MOVE 1,[123456,,123457] ;PRELOAD AC WITH 123456,,123457 1463 031252 200 02 0 00 034271 MOVE 2,[707633,,121212] ;PRELOAD AC WITH 707633,,121212 1464 031253 446 01 0 00 000002 EQVM 1,2 ;*EQVM SHOULD PLACE 153512,,775132 INTO E. 1465 031254 312 01 0 00 034270 CAME 1,[123456,,123457] ;PASS IF C(AC) UNCHANGED 1466 STOP^ 1467 031255 254 04 0 00 031256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1468 031256 324 00 0 00 031257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1469 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1470 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1471 031257 312 02 0 00 034272 CAME 2,[153512,,775132];PASS IF C(E) = 153512,,775132 1472 STOP^ 1473 031260 254 04 0 00 031261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1474 031261 324 00 0 00 031262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1475 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1476 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1477 1478 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 18 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0045 1479 ;THIS TEST VERIFIES THAT EQVB PLACES THE LOGICAL EQUIVALENCE FUNCTION 1480 ;OF C(AC)AND C(E) INTO BOTH AC AND E. 1481 ;IN THIS CASE, C(AC) = 123456,,123457 AND C(E) = 707633,,121212 1482 ;HENSE, THE RSULT IN BOTH AC AND E SHOULD BE 153512,,775132 1483 1484 031262 200 01 0 00 034270 C61700: MOVE 1,[123456,,123457] ;PRELOAD AC WITH 123456,,12345 1485 031263 200 02 0 00 034271 MOVE 2,[707633,,121212] ;PRELOAD AC WITH 707633,,121212 1486 031264 447 01 0 00 000002 EQVB 1,2 ;*EQVB SHOULD PLACE 153512,,775132 1487 ;INTO BOTHE AC AND E. 1488 031265 312 01 0 00 034272 CAME 1,[153512,,775132] ;PASS IC C(AC)=153512,,775132 1489 STOP^ 1490 031266 254 04 0 00 031267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1491 031267 324 00 0 00 031270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1492 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1493 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1494 031270 312 02 0 00 034272 CAME 2,[153512,,775132] ;PASS IF C(E)=153512,,775132 1495 STOP^ 1496 031271 254 04 0 00 031272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1497 031272 324 00 0 00 031273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1498 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1499 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1500 1501 ;********** 1502 1503 ;THIS TEST VERIFIES THAT SETCAI PLACES THE COMPLEMENT OF C(AC) 1504 ;INTO THE AC. 1505 ;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070 1506 ;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,654321 1507 1508 031273 200 00 0 00 034261 C62000: MOVE 0,[777000,,123456] ;PRELOAD AC WITH 777000,,123456 1509 031274 451 00 0 00 707070 SETCAI 0,707070 ;*SETCAI SHOULD PLACE 000777,,654321 1510 ;INTO THE AC 1511 031275 312 00 0 00 034273 CAME 0,[777,,654321] ;PASS IF C(AC)=000777,,654321 1512 STOP^ 1513 031276 254 04 0 00 031277 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1514 031277 324 00 0 00 031300 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1515 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1516 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1517 1518 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 19 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0046 1519 ;THIS TEST VERIFIES THAT SETCAM PLACES THE COMPLEMENT OF C(AC) 1520 ;INTO E. 1521 ;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1. 1522 ;HENCE, THE RESULT IN E SHOULD BE 654321,,012345 1523 1524 031300 200 17 0 00 034252 C62100: MOVE 17,[123456,,765432] ;PRELOAD AC WITH 123456,,765432 1525 031301 474 00 0 00 000000 SETO 0, ;PRELOAD E WITH -1,,-1 1526 031302 452 17 0 00 000000 SETCAM 17,0 ;*SETCAM SHOULD PLACE 1527 ;654321,,012345 INTO E 1528 031303 312 17 0 00 034252 CAME 17,[123456,,765432] ;PASS IF C(AC) IS UNCHANGED 1529 STOP^ 1530 031304 254 04 0 00 031305 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1531 031305 324 00 0 00 031306 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1532 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1533 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1534 031306 312 00 0 00 034274 CAME 0,[654321,,12345] ;PASS IF C(E)=654321,,012345 1535 STOP^ 1536 031307 254 04 0 00 031310 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1537 031310 324 00 0 00 031311 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1538 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1539 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1540 1541 ;********** 1542 1543 ;THIS TEST VERIFIES THAT SETCAB PLACES THE COMPLEMENT OF C(AC) 1544 ;INTO BOTH AC AND E. 1545 ;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1. 1546 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345 1547 1548 031311 200 17 0 00 034252 C62200: MOVE 17,[123456,,765432] ;PRELOAD AC WITH 123456,,76543 1549 031312 474 00 0 00 000000 SETO 0, ;PRELOAD E WITH -1,,-1 1550 031313 453 17 0 00 000000 SETCAB 17,0 ;*SETCAB SHOULD PLACE 1551 ;654321,,012345 INTO BOTH AC AND E 1552 031314 312 17 0 00 034274 CAME 17,[654321,,12345] ;PASS IF C(AC)=654321,,012345 1553 STOP^ 1554 031315 254 04 0 00 031316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1555 031316 324 00 0 00 031317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1556 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1557 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1558 031317 312 00 0 00 034274 CAME 0,[654321,,12345] ;PASS IF C(E)=654321,,012345 1559 STOP^ 1560 031320 254 04 0 00 031321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1561 031321 324 00 0 00 031322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1562 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1563 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1564 1565 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 20 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0047 1566 ;THIS TEST VERIFIES THAT ORCAI PLACES THE INCLUSIVE OR FUNCTION 1567 ;OF THE WORD 0,,E AND THE COMPLEMENT OF C(AC) INTO THE AC. 1568 ;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401 1569 ;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,775701 1570 1571 031322 200 16 0 00 034275 C62300: MOVE 16,[777000,,123477] ;PRELOAD AC WITH 777000,,123477 1572 031323 455 16 0 00 765401 ORCAI 16,765401 ;*ORCAI SHOULD PLACE 000777,,767477 1573 ;INTO THE AC 1574 031324 312 16 0 00 034276 CAME 16,[777,,775701] ;PASS IF C(AC)=000777,,775701 1575 STOP^ 1576 031325 254 04 0 00 031326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1577 031326 324 00 0 00 031327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1578 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1579 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1580 1581 ;********** 1582 1583 ;THIS TEST VERIFIES THAT ORCAM PLACES THE INCLUSIVE OR FUNCTION 1584 ;OF C(E) AND THE COMPLEMENT OF C(AC) INTO 1585 ;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072 1586 ;HENCE, THE RESULT IN E SHOULD BE 707777,,757372 1587 1588 031327 200 15 0 00 034275 C62400: MOVE 15,[777000,,123477] ;PRELOAD AC WITH 777000,,123477 1589 031330 200 16 0 00 034277 MOVE 16,[707070,,707072] ;PRELOAD E WITH 707070,,707072 1590 031331 456 15 0 00 000016 ORCAM 15,16 ;*ORCAM SHOULD PLACE 707777,,757372 1591 ;INTO E 1592 031332 312 15 0 00 034275 CAME 15,[777000,,123477] ;PASS IF C(AC) IS UNCHANGED 1593 STOP^ 1594 031333 254 04 0 00 031334 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1595 031334 324 00 0 00 031335 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1596 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1597 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1598 031335 312 16 0 00 034300 CAME 16,[707777,,757372] ;PASS IF C(E)=707777,,757372 1599 STOP^ 1600 031336 254 04 0 00 031337 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1601 031337 324 00 0 00 031340 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1602 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1603 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1604 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 21 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0048 1605 ;********** 1606 ;THIS TEST VERIFIES THAT ORCAB PLACES THE INCLUSIVE OR FUNCTION 1607 ;OF C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E. 1608 ;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072 1609 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372 1610 1611 031340 200 15 0 00 034275 C62500: MOVE 15,[777000,,123477] ;PRELOAD AC WITH 777000,,123477 1612 031341 200 16 0 00 034277 MOVE 16,[707070,,707072] ;PRELOAD E WITH 707070,,707072 1613 031342 457 15 0 00 000016 ORCAB 15,16 ;*ORCAB SHOULD PLACE 707777,,757372 1614 ;INTO BOTHE AC AND E 1615 031343 312 15 0 00 034300 CAME 15,[707777,,757372] ;PASS IF C(AC)=707777,,757372 1616 STOP^ 1617 031344 254 04 0 00 031345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1618 031345 324 00 0 00 031346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1619 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1620 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1621 031346 312 16 0 00 034300 CAME 16,[707777,,757372] ;PASS IF C(E)=707777,,757372 1622 STOP^ 1623 031347 254 04 0 00 031350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1624 031350 324 00 0 00 031351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1625 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1626 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1627 1628 ;********** 1629 1630 ;THIS TEST VERIFIES THAT SETCMI PLACES THE COMPLEMENT OF THE 1631 ;WORD 0,,E INTO THE AC 1632 ;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070 1633 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,070707 1634 1635 031351 200 00 0 00 034261 C62600: MOVE 0,[777000,,123456] ;PRELOAD AC WITH 777000,,123456 1636 031352 461 00 0 00 707070 SETCMI 0,707070 ;*SETCMI SHOULD PLACE -1,,070707 1637 ;INTO THE AC 1638 031353 312 00 0 00 034301 CAME 0,[-1,,070707] ;PASS IF C(AC)=-1,,070707 1639 STOP^ 1640 031354 254 04 0 00 031355 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1641 031355 324 00 0 00 031356 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1642 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1643 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1644 1645 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 22 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0049 1646 ;THIS TEST VERIFIES THAT SETCMM PLACES THE COMPLEMENT OF C(E) 1647 ;INTO E. 1648 ;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1. 1649 ;HENCE, THE RESULT IN E SHOULD BE 654321,,012345 1650 1651 031356 200 17 0 00 034252 C62700: MOVE 17,[123456,,765432] ;PRELOAD E WITH 123456,,76543 1652 031357 474 00 0 00 000000 SETO 0, ;PRELOAD AC WITH -1,,-1 1653 031360 462 00 0 00 000017 SETCMM 0,17 ;*SETCMM SHOULD PLACE 1654 ;654321,012345 INTO E 1655 031361 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 1656 STOP^ 1657 031362 254 04 0 00 031363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1658 031363 324 00 0 00 031364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1659 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1660 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1661 031364 312 17 0 00 034274 CAME 17,[654321,,12345] ;PASS IF C(E)=654321,,012345 1662 STOP^ 1663 031365 254 04 0 00 031366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1664 031366 324 00 0 00 031367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1665 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1666 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1667 1668 ;********** 1669 1670 ;THIS TEST VERIFIES THAT SETCMB PLACES THE COMPLEMENT OF C(E) 1671 ;INTO BOTH AC AND E. 1672 ;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1. 1673 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345 1674 1675 031367 200 17 0 00 034252 C63000: MOVE 17,[123456,,765432] ;PRELOAD E WITH 123456,,76543 1676 031370 474 00 0 00 000000 SETO 0, ;PRELOAD AC WITH -1,,-1 1677 031371 463 00 0 00 000017 SETCMB 0,17 ;*SETCMB SHOULD PLACE 1678 ;654321,,012345 INTO BOTH AC AND E 1679 031372 312 00 0 00 034274 CAME 0,[654321,,12345] ;PASS IF C(AC)=654321,,012345 1680 STOP^ 1681 031373 254 04 0 00 031374 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1682 031374 324 00 0 00 031375 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1683 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1684 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1685 031375 312 17 0 00 034274 CAME 17,[654321,,12345] ;PASS IF C(E)=654321,,012345 1686 STOP^ 1687 031376 254 04 0 00 031377 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1688 031377 324 00 0 00 031400 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1690 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1691 1692 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 23 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0050 1693 ;THIS TEST VERIFIES THAT ORCMI PLACES THE INCLUSIVE OR FUNCTION 1694 ;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC. 1695 ;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401 1696 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,133777 1697 1698 031400 200 16 0 00 034275 C63100: MOVE 16,[777000,,123477] ;PRELOAD AC WITH 777000,,123477 1699 031401 465 16 0 00 765401 ORCMI 16,765401 ;*ORCMI SHOULD PLACE -1,,133777 1700 ;INTO THE AC 1701 031402 312 16 0 00 034302 CAME 16,[-1,,133777] ;PASS IF C(AC)=-1,,133777 1702 STOP^ 1703 031403 254 04 0 00 031404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1704 031404 324 00 0 00 031405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1705 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1706 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1707 1708 ;********** 1709 1710 ;THIS TEST VERIFIES THAT ORCMM PLACES THE INCLUSIVE OR FUNCTION 1711 ;OF C(AC) AND THE COMPLEMENT OC C(E) INTO 1712 ;IN THIS CASE, C(E)=777000,,123477 AND C (AC)=707070,,707072 1713 ;HENCE, THE RESULT IN E SHOULD BE 707777,,757372 1714 1715 031405 200 15 0 00 034275 C63200: MOVE 15,[777000,,123477] ;PRELOAD E WITH 777000,,123477 1716 031406 200 16 0 00 034277 MOVE 16,[707070,,707072] ;PRELOAD AC WITH 707070,,707072 1717 031407 466 16 0 00 000015 ORCMM 16,15 ;*ORCMM SHOULD PLACE 707777,,757372 1718 ;INTO E 1719 031410 312 16 0 00 034277 CAME 16,[707070,,707072] ;PASS IF C(AC) IS UNCHANGED 1720 STOP^ 1721 031411 254 04 0 00 031412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1722 031412 324 00 0 00 031413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1723 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1724 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1725 031413 312 15 0 00 034300 CAME 15,[707777,,757372] ;PASS IF C(E)=707777,,757372 1726 STOP^ 1727 031414 254 04 0 00 031415 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1728 031415 324 00 0 00 031416 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1729 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1730 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1731 1732 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 24 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0051 1733 ;THIS TEST VERIFIES THAT ORCMB PLACES THE INCLUSIVE OR FUNCTION 1734 ;OF C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E. 1735 ;IN THIS CASE, C(E)=777000,,123477 AND C(AC)=707070,,707072 1736 ;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372 1737 1738 031416 200 15 0 00 034275 C63300: MOVE 15,[777000,,123477] ;PRELOAD E WITH 777000,,123477 1739 031417 200 16 0 00 034277 MOVE 16,[707070,,707072] ;PRELOAD AC WITH 707070,,707072 1740 031420 467 16 0 00 000015 ORCMB 16,15 ;*ORCMB SHOULD PLACE 707777,,757372 1741 ;INTO BOTH AC AND E 1742 031421 312 16 0 00 034300 CAME 16,[707777,,757372] ;PASS IF C(AC)=707777,,757372 1743 STOP^ 1744 031422 254 04 0 00 031423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1745 031423 324 00 0 00 031424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1746 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1747 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1748 031424 312 15 0 00 034300 CAME 15,[707777,,757372] ;PASS OF C(E)=707777,,757372 1749 STOP^ 1750 031425 254 04 0 00 031426 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1751 031426 324 00 0 00 031427 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1752 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1753 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1754 1755 ;********** 1756 1757 ;THIS TEST VERIFIES THAT ORCBI PLACES THE LOGICAL INCLUSIVE OR 1758 ;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC. 1759 ;IN THIS CASE, C(AC)=707070,,070706 AND E=0,,770011. 1760 ;HENCE, THE RESULT IN THE AC SHOULD BE -1,,707777 1761 1762 031427 200 15 0 00 034303 C63400: MOVE 15,[707070,,070706] ;PRELOAD AC WITH 707070,,070706 1763 031430 471 15 0 00 770011 ORCBI 15,770011 ;*ORCBI SHOULD PLACE -1,,707777 INTO THE AC 1764 031431 312 15 0 00 034304 CAME 15,[-1,,707777] ;PASS IF C(AC)=-1,707777 1765 STOP^ 1766 031432 254 04 0 00 031433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1767 031433 324 00 0 00 031434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1768 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1769 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1770 1771 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 25 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL BOOLEAN INSTRUCTIONS SEQ 0052 1772 ;THIS TEST VERIFIES THAT ORCBM PLACES THE LOGICAL INCLUSIVE OR 1773 ;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO 1774 ;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,123324 1775 ;HENCE, THE RESULT IN E SHOULD BE 654777,,657753 1776 1777 031434 200 14 0 00 034305 C63500: MOVE 14,[123456,,770077] ;PRELOAD AC WITH 123456,,770077 1778 031435 200 15 0 00 034306 MOVE 15,[777001,,123324] ;PRELOAD E WITH 777001,,123324 1779 031436 472 14 0 00 000015 ORCBM 14,15 ;*ORCBM SHOULD PLACE 654777,,657753 1780 ;INTO E 1781 031437 312 14 0 00 034305 CAME 14,[123456,,770077] ;PASS IF C(AC) IS UNCHANGED 1782 STOP^ 1783 031440 254 04 0 00 031441 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1784 031441 324 00 0 00 031442 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1785 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1786 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1787 031442 312 15 0 00 034307 CAME 15,[654777,,657753] ;PASS IF C(E)=654777,,657753 1788 STOP^ 1789 031443 254 04 0 00 031444 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1790 031444 324 00 0 00 031445 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1793 1794 ;********** 1795 1796 ;THIS TEST VERIFIES THAT ORCBB PLACES THE LOGICAL INCLUSIVE OR 1797 ;FUNCTIONOF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E 1798 ;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,657753 1799 1800 031445 200 14 0 00 034305 C63600: MOVE 14,[123456,,770077] ;PRELOAD AC WITH 123456,,770077 1801 031446 200 15 0 00 034306 MOVE 15,[777001,,123324] ;PRELOAD E WITH 777001,,123324 1802 031447 473 14 0 00 000015 ORCBB 14,15 ;*ORCBB SHOULD PLACE 654777,,657753 1803 ;INTO BOTH AC AND E 1804 031450 312 14 0 00 034307 CAME 14,[654777,,657753] ;PASS IF C(AC)=654777,,657753 1805 STOP^ 1806 031451 254 04 0 00 031452 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1807 031452 324 00 0 00 031453 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1808 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1809 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1810 031453 312 15 0 00 034307 CAME 15,[654777,,657753] ;PASS IF C(E)=654777,,657753 1811 STOP^ 1812 031454 254 04 0 00 031455 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1813 031455 324 00 0 00 031456 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1814 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1815 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1816 1817 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 26 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0053 1818 SUBTTL TEST OF MSCL HWT INSTRUCTIONS 1819 1820 ;********** 1821 1822 ;THIS TEST VERIFIES THAT HLLI CLEARS AC LEFT 1823 ;IN THIS CASE, C(AC)=707070,,123456 AND E=777000 1824 ;HENCE, THE RESULT IN THE AC SHOULD BE 0,,123456 1825 1826 031456 200 17 0 00 034254 C63700: MOVE 17,[707070,,123456] ;PRELOAD AC WITH 707070,,123456 1827 031457 501 17 0 00 777000 HLLI 17,777000 ;*HLLI SHOULD PLACE 0,,123456 INTO THHE AC 1828 031460 302 17 0 00 123456 CAIE 17,123456 ;PASS IF C(AC)=0,,123456 1829 STOP^ 1830 031461 254 04 0 00 031462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1831 031462 324 00 0 00 031463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1832 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1833 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1834 1835 ;********** 1836 1837 ;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO 1838 ;AND IS A NO-OP IF AC=0 1839 ;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,765432 1840 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 1841 ;AND 123456,,765432 RESPECTIVELY 1842 1843 031463 474 00 0 00 000000 C64000: SETO 0 ;PRELOAD AC WITH -1,,-1 1844 031464 200 02 0 00 034252 MOVE 2,[123456,,765432] ;PRELOAD E WITH 123456,,765432 1845 031465 503 00 0 00 000002 HLLS 0,2 ;*HLLS SHOULD NOT AFFECT AC OR E 1846 031466 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 1847 STOP^ 1848 031467 254 04 0 00 031470 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1849 031470 324 00 0 00 031471 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1850 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1851 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1852 031471 312 02 0 00 034252 CAME 2,[123456,,765432] ;PASS IF C(C) IS UNCHANGED 1853 STOP^ 1854 031472 254 04 0 00 031473 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1855 031473 324 00 0 00 031474 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1856 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1857 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1858 1859 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 27 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0054 1860 ;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO? 1861 ;AND IS A NO-OP IF AC=0 1862 ;IN THIS CASE, AC=1, C(AC)=1,,-1 AND C(E)=123456,,765432 1863 ;HENCE, THE RESULTS IN AC AND E WHOULD BE 123456,,765432 1864 ;AND 123456,,765432 RESPECTVIELY 1865 1866 031474 474 01 0 00 000000 C64010: SETO 1, ;PRELOAD AC WITH -1,,-1 1867 031475 200 02 0 00 034252 MOVE 2,[123456,,765432] ;PRELOAD E WITH 123456,,765432 1868 031476 503 01 0 00 000002 HLLS 1,2 ;*HLLS SHOULD PLACE 123456,,765432 INTO THE AC 1869 031477 312 01 0 00 034252 CAME 1,[123456,,765432] ;PASS IF C(AC)=123456,,765432 1870 STOP^ 1871 031500 254 04 0 00 031501 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1872 031501 324 00 0 00 031502 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1873 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1874 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1875 031502 312 02 0 00 034252 CAME 2,[123456,,765432] ;PASS IF C(C) IS UNCHANGED 1876 STOP^ 1877 031503 254 04 0 00 031504 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1878 031504 324 00 0 00 031505 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1879 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1880 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1881 1882 ;********** 1883 1884 ;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT 1885 ;DOES NOT AFFECT E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E 1886 ;IS ALSO PLACED INTO THE AC. 1887 ;IN THIS CASE, AC=0, C(AC)=1,,-1 AND C(E)=123456,707070 1888 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1 1889 ;AND 707070,,707070. 1890 1891 031505 474 00 0 00 000000 C64100: SETO 0, ;PRELOAD AC WITH -1,,-1 1892 031506 200 03 0 00 034310 MOVE 3,[123456,,707070] ;PRELOAD E WITH 123456,,707070 1893 031507 507 00 0 00 000003 HRLS 0,3 ;*HRLS SHOULD PLACE 707070,,707070 1894 ;INTO E. 1895 031510 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 1896 STOP^ 1897 031511 254 04 0 00 031512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1898 031512 324 00 0 00 031513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1899 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1900 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1901 031513 312 03 0 00 034311 CAME 3,[707070,,707070] ;PASS IF C(E)=707070,,707070 1902 STOP^ 1903 031514 254 04 0 00 031515 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1904 031515 324 00 0 00 031516 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1907 1908 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 28 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0055 1909 ;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT 1910 ;DOES NOT AFFECT E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E 1911 ;IS ALSO PLACED INTO THE AC. 1912 ;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070 1913 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707070,,707070 1914 ;AND 707070,,707070. 1915 1916 031516 474 01 0 00 000000 C64110: SETO 1, ;PRELOAD AC WITH -1,,-1 1917 031517 200 03 0 00 034310 MOVE 3,[123456,,707070] ;PRELOAD E WITH 123456,,707070 1918 031520 507 01 0 00 000003 HRLS 1,3 ;*HRLS SHOULD PLACE 707070,,707070 1919 ;INTO BOTH AC AND E. 1920 031521 312 01 0 00 034311 CAME 1,[707070,,707070] ;PASS IF C(AC)=707070,,707070 1921 STOP^ 1922 031522 254 04 0 00 031523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1923 031523 324 00 0 00 031524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1924 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1925 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1926 031524 312 03 0 00 034311 CAME 3,[707070,,707070] ;PASS IF C(E)=707070,,707070 1927 STOP^ 1928 031525 254 04 0 00 031526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1929 031526 324 00 0 00 031527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1930 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1931 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1932 1933 ;********** 1934 1935 ;THIS TEST VERIFIES THAN HLLZM PLACES C(AC-LEFT) INTO E-LEFT AND 1936 ;PLACES 0 INTO E-RIGHT 1937 ;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,717171 1938 ;HENCE, THE RESULT IN E SHOULD BE 123456,,0 1939 1940 031527 200 01 0 00 034312 C64200: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 1941 031530 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 1942 031531 512 01 0 00 000002 HLLZM 1,2 ;*HLLZM SHOULD PLACE 123456,,0 INTO E 1943 031532 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 1944 STOP^ 1945 031533 254 04 0 00 031534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1946 031534 324 00 0 00 031535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1947 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1948 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1949 031535 312 02 0 00 034246 CAME 2,[123456,,0] ;PASS IF C(E)=123456,,0 1950 STOP^ 1951 031536 254 04 0 00 031537 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1952 031537 324 00 0 00 031540 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1953 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1954 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1955 1956 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 29 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0056 1957 ;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T 1958 ;AFFECT THE LEFT HALF OF E. IF AC IS NON-ZERO, THE RESULT IN E IS 1959 ;ALSO PLACED INTO THE AC. 1960 ;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707070 1961 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 1962 ;AND 123456,,0 RESPECTIVELY 1963 1964 031540 474 00 0 00 000000 C64300: SETO 0, ;PRELOAD AC WITH -1,,-1 1965 031541 200 17 0 00 034310 MOVE 17,[123456,,707070] ;PRELOAD E WITH 123456,,707070 1966 031542 513 00 0 00 000017 HLLZS 0,17 ;*HLLZS SHOULD PLACE 123456,,0 INTO E. 1967 031543 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 1968 STOP^ 1969 031544 254 04 0 00 031545 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1970 031545 324 00 0 00 031546 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1971 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1972 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1973 031546 312 17 0 00 034246 CAME 17,[123456,,0] ;PASS IF C(E)=123456,,0 1974 STOP^ 1975 031547 254 04 0 00 031550 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1976 031550 324 00 0 00 031551 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1977 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1978 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1979 1980 1981 ;********** 1982 1983 ;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T 1984 ;AFFECT THE LEFT HALF OF E. IF AC IS NON-ZERO, THE RESULT IN E IS 1985 ;ALSO PLACED INTO THE AC. 1986 ;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070 1987 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 123456,,0 1988 ;AND 123456,,0 RESPECTIVELY. 1989 1990 031551 474 01 0 00 000000 C64310: SETO 1, ;PRELOAD AC WITH -1,,-1 1991 031552 200 17 0 00 034310 MOVE 17,[123456,,707070] ;PRELOAD E WITH 123456,,707070 1992 031553 513 01 0 00 000017 HLLZS 1,17 ;*HLLZS SHOULD PLACE 123456,,0 INTO 1993 ;BOTH AC AND E 1994 031554 312 01 0 00 034246 CAME 1,[123456,,0] ;PASS IF C(AC)=123456,,0 1995 STOP^ 1996 031555 254 04 0 00 031556 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1997 031556 324 00 0 00 031557 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1998 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1999 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2000 031557 312 17 0 00 034246 CAME 17,[123456,,0] ;PASS IF C(E)=123456,,0 2001 STOP^ 2002 031560 254 04 0 00 031561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2003 031561 324 00 0 00 031562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2004 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2005 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2006 2007 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 30 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0057 2008 ;THIS TEST VERIFIES THAT HRLZM PLACES C(AC-RIGHT) INTO E-LEFT AND 2009 ;PLACES O INTO E-RIGHT. 2010 ;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171 2011 ;HENCE, THE RESULT IN E SHOULD BE 123422,,0 2012 2013 031562 200 01 0 00 034312 C64400: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 2014 031563 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 2015 031564 516 01 0 00 000002 HRLZM 1,2 ;*HRLZM SHOULD PLACE 123422,,0 INTO E 2016 031565 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 2017 STOP^ 2018 031566 254 04 0 00 031567 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2019 031567 324 00 0 00 031570 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2020 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2021 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2022 031570 312 02 0 00 034314 CAME 2,[123422,,0] ;PASS IF C(E)=123422,,0 2023 STOP^ 2024 031571 254 04 0 00 031572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2025 031572 324 00 0 00 031573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2027 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2028 2029 ;********** 2030 2031 ;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND 2032 ;CLEARS E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO 2033 ;PLACED INTO THE AC. 2034 ;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707076 2035 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1 2036 ;AND 707076,,0 2037 2038 031573 474 00 0 00 000000 C64500: SETO 0, ;PRELOAD AC WITH -1,,-1 2039 031574 200 16 0 00 034315 MOVE 16,[123456,,707076] ;PRELOAD E WITH 123456,,707076 2040 031575 517 00 0 00 000016 HRLZS 0,16 ;*HRLZS SHOULD PLACE 707076,,0 2041 ;INTO E. 2042 031576 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 2043 STOP^ 2044 031577 254 04 0 00 031600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2045 031600 324 00 0 00 031601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2046 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2047 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2048 031601 312 16 0 00 034316 CAME 16,[707076,,0] ;PASS IF C(AC)=707076,,0 2049 STOP^ 2050 031602 254 04 0 00 031603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2051 031603 324 00 0 00 031604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2052 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2053 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2054 2055 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 31 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0058 2056 ;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND 2057 ;CLEARS E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO 2058 ;PLACED INTO THE AC. 2059 ;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707076 2060 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,0 2061 ;AND 707076,,0 2062 2063 031604 474 01 0 00 000000 C64510: SETO 1, ;PRELOAD AC WITH -1,,-1 2064 031605 200 16 0 00 034315 MOVE 16,[123456,,707076] ;PRELOAD E WITH 123456,,707076 2065 031606 517 01 0 00 000016 HRLZS 1,16 ;*HRLZS SHOULD PLACE 707076,,0 2066 ;INTO BOTH AC AND E. 2067 031607 312 01 0 00 034316 CAME 1,[707076,,0] ;PASS IF C(AC)=707076,,0 2068 STOP^ 2069 031610 254 04 0 00 031611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2070 031611 324 00 0 00 031612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2071 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2072 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2073 031612 312 16 0 00 034316 CAME 16,[707076,,0] ;PASS IF C(AC)=707076,,0 2074 STOP^ 2075 031613 254 04 0 00 031614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2076 031614 324 00 0 00 031615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2077 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2078 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2079 2080 ;********** 2081 2082 ;THIS TEST VERIFIES THAT HLLOM PLACES C(AC-LEFT) INTO E-LEFT AND 2083 ;PLACES -1 INTO E-RIGHT. 2084 ;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171 2085 ;HENCE, THE RESULT IN E SHOULD BE 123456,,-1. 2086 2087 031615 200 01 0 00 034312 C64600: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 2088 031616 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 2089 031617 522 01 0 00 000002 HLLOM 1,2 ;*HLLOM SHOULD PLACE 123456,,-1 INTO E 2090 031620 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 2091 STOP^ 2092 031621 254 04 0 00 031622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2093 031622 324 00 0 00 031623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2094 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2095 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2096 031623 312 02 0 00 034317 CAME 2,[123456,,-1] ;PASS IF C(E)=123456,,-1 2097 STOP^ 2098 031624 254 04 0 00 031625 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2099 031625 324 00 0 00 031626 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2100 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2101 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2102 2103 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 32 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0059 2104 ;THIS TEST VERIFIES THAT HRLO, C(E-RIGHT) INTO AC=LEFT AND 2105 ;PLACES -1 INTO AC-RIGHT. IN THIS CASE, C(AC)=123456,,135724 AND 2106 ;C(E)=765432,,246135. HENCE, THE RESULT IN THE AC SHOULD BE 246135,,-1 2107 2108 031626 200 15 0 00 034320 C64700: MOVE 15,[123456,,135724] ;PRELOAD AC WITH 123456,,135724 2109 031627 200 16 0 00 034321 MOVE 16,[765432,,246135] ;PRELOAD E WITH 765432,,246135 2110 031630 524 15 0 00 000016 HRLO 15,16 ;*HRLO SHOULD PLACE 246135,,-1 INTO AC 2111 031631 312 15 0 00 034322 CAME 15,[246135,,-1] ;PASS IF C(AC)=246135,,-1 2112 STOP^ 2113 031632 254 04 0 00 031633 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2114 031633 324 00 0 00 031634 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2116 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2117 031634 312 16 0 00 034321 CAME 16,[765432,,246135] ;PASS IF C(E) UNCHANGED 2118 STOP^ 2119 031635 254 04 0 00 031636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2120 031636 324 00 0 00 031637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2121 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2122 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2123 2124 ;********** 2125 2126 ;THIS TEST VERIFIES THAT HRLOI PLACES 0,,E INTO AC-LEFT AND 2127 ;PLACES ONES INTO AC-RIGHT. IN THIS CASE, C(AC)=0 AND E=0,,123456. 2128 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,-1 2129 2130 031637 400 14 0 00 000000 C65000: SETZ 14, ;CLEAR AC 2131 031640 525 14 0 00 123456 HRLOI 14,123456 ;*HRLOI SHOULD PLACE 123456,,-1 INTO THE AC 2132 031641 312 14 0 00 034317 CAME 14,[123456,,-1] ;PASS IF C(AC)=123456,,-1 2133 STOP^ 2134 031642 254 04 0 00 031643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2135 031643 324 00 0 00 031644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2136 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2137 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2138 2139 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 33 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0060 2140 ;THIS TEST VERIFIES THAT HRLOM PLACES C(AC-RIGHT) INTO E-LEFT 2141 ;AND PLACES -1 INTO E-RIGHT. IN THIS CASE, C(E)=0 AND C(AC)=123123,,456765 2142 ;HENCE, THE RESULT IN E SHOULD BE 456765,,-1. 2143 2144 031644 402 00 0 00 000014 C65100: SETZM 14 ;CLEAR E 2145 031645 200 13 0 00 034323 MOVE 13,[123123,,456765] ;PRELOAD AC WITH 123123,,456765 2146 031646 526 13 0 00 000014 HRLOM 13,14 ;*HRLOM SHOULD PLACE 456765,,-1 INTO E 2147 031647 312 13 0 00 034323 CAME 13,[123123,,456765] ;PASS IF C(AC) UNCHANGED 2148 2149 STOP^ 2150 031650 254 04 0 00 031651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2151 031651 324 00 0 00 031652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2152 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2153 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2154 031652 312 14 0 00 034324 CAME 14,[456765,,-1] ;PASS IF C(E)=456765,,-1 2155 STOP^ 2156 031653 254 04 0 00 031654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2157 031654 324 00 0 00 031655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2158 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2159 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2160 2161 ;********** 2162 2163 2164 ;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND 2165 ;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALOS 2166 ;PLACED INTO THE AC. 2167 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,707076 2168 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 0 2169 ;AND 707076,,0 2170 2171 031655 400 00 0 00 000000 C65200: SETZ 0, ;PRELOAD AC WITH 0 2172 031656 200 16 0 00 034315 MOVE 16,[123456,,707076] ;PRELOAD E WITH 123456,,707076 2173 031657 527 00 0 00 000016 HRLOS 0,16 ;*HRLZS SHOULD PLACE 707076,,-1 2174 ;INTO E. 2175 031660 312 00 0 00 034325 CAME 0,[0] ;PASS IF C(AC) UNCHANGED 2176 STOP^ 2177 031661 254 04 0 00 031662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2178 031662 324 00 0 00 031663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2179 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2180 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2181 031663 312 16 0 00 034326 CAME 16,[707076,,-1] ;PASS IF C(AC)=707076,,-1 2182 STOP^ 2183 031664 254 04 0 00 031665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2184 031665 324 00 0 00 031666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2185 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2186 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2187 2188 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 34 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0061 2189 ;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND 2190 ;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO 2191 ;PLACED INTO THE AC. 2192 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,707076 2193 ;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,-1 2194 ;AND 707076,,-1 2195 2196 031666 400 01 0 00 000000 C65210: SETZ 1, ;PRELOAD AC WITH 0 2197 031667 200 16 0 00 034315 MOVE 16,[123456,,707076] ;PRELOAD E WITH 123456,,707076 2198 031670 527 01 0 00 000016 HRLOS 1,16 ;*HRLZS SHOULD PLACE 707076,,-1 2199 ;INTO BOTH AC AND E 2200 031671 312 01 0 00 034326 CAME 1,[707076,,-1] ;PASS IF C(AC)=707076,,-1 2201 STOP^ 2202 031672 254 04 0 00 031673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2203 031673 324 00 0 00 031674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2204 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2205 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2206 031674 312 16 0 00 034326 CAME 16,[707076,,-1] ;PASS IF C(AC)=707076,,-1 2207 STOP^ 2208 031675 254 04 0 00 031676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2209 031676 324 00 0 00 031677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2210 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2211 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2212 2213 ;********** 2214 2215 ;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-LEFT) INTO E-LEFT 2216 ;AND PLACES BIT 0 OF THE AC INTO BITS 18 THRU 35 OF E. IN THIS CASE, 2217 ;C(AC)=123456,,707076 AND C(E)=-1,,-1. HENCE, THE RESULT IN E 2218 ;SHOULD BE 123456,,0. 2219 2220 031677 200 12 0 00 034315 C65300: MOVE 12,[123456,,707076] ;PRELOAD AC WITH 123456,,707076 2221 031700 476 00 0 00 000013 SETOM 13 ;PRELOAD E WITH -1,,-1 2222 031701 532 12 0 00 000013 HLLEM 12,13 ;*HLLEM SHOULD PLACE 123456,,0 INTO E 2223 031702 312 12 0 00 034315 CAME 12,[123456,,707076] ;PASS IF C(AC) UNCHANGED 2224 STOP^ 2225 031703 254 04 0 00 031704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2226 031704 324 00 0 00 031705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2227 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2228 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2229 031705 312 13 0 00 034246 CAME 13,[123456,,0] ;PASS IF C(E)=123456,,0 2230 STOP^ 2231 031706 254 04 0 00 031707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2232 031707 324 00 0 00 031710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2233 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2234 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2235 2236 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 35 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0062 2237 ;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND 2238 ;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E. IF AC IS NON-ZERO 2239 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2240 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=765432,,0. 2241 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0 2242 ;AND 765432,,-1 RESPECTIVELY. 2243 2244 031710 400 00 0 00 000000 C65400: SETZ 0, ;CLEAR AC 2245 031711 515 02 0 00 765432 HRLZI 2,765432 ;PRELOAD E WITH 765432,,0 2246 031712 533 00 0 00 000002 HLLES 0,2 ;*HLLES SHOULD PLACE 765432,,-1 2247 ;INTO E 2248 031713 312 00 0 00 034325 CAME 0,[0] ;PASS IF C(AC) UNCHANGED 2249 STOP^ 2250 031714 254 04 0 00 031715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2251 031715 324 00 0 00 031716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2252 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2253 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2254 031716 312 02 0 00 034327 CAME 2,[765432,,-1] ;PASS IF C(E)=765432,,-1 2255 STOP^ 2256 031717 254 04 0 00 031720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2257 031720 324 00 0 00 031721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2258 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2259 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2260 2261 ;********** 2262 2263 ;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND 2264 ;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E. IF AC IS NON-ZERO, 2265 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2266 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=765432,,0 2267 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1 2268 ;AND 765432,,-1 RESPECTIVELY 2269 2270 031721 400 01 0 00 000000 C65410: SETZ 1, ;CLEAR AC 2271 031722 515 02 0 00 765432 HRLZI 2,765432 ;PRELOAD E WITH 765432,,0 2272 031723 533 01 0 00 000002 HLLES 1,2 ;*HLLES SHOULD PLACE 765432,,-1 2273 ;INTO BOTH AC AND E 2274 031724 312 01 0 00 034327 CAME 1,[765432,,-1] ;PASS IF C(AC)=765432,,-1 2275 STOP^ 2276 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2277 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2278 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2279 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2280 031727 312 02 0 00 034327 CAME 2,[765432,,-1] ;PASS IF C(E)=765432,,-1 2281 STOP^ 2282 031730 254 04 0 00 031731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2283 031731 324 00 0 00 031732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2284 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2285 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2286 2287 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 36 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0063 2288 ;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-RIGHT) INTO E-LEFT 2289 ;AND PLACES BIT 18 OF THE AC INTO BITS 18 THRU 35 OF E. IN THIS CASE, 2290 ;C(AC)=365432,123456 AND C(E)=-1,,-1. HENCE, THE RESULT IN E 2291 ;SHOULD BE 365432,,0. 2292 2293 031732 200 12 0 00 034330 C65500: MOVE 12,[365432,,123456] ;PRELOAD AC WITH 365432,,123456 2294 031733 476 00 0 00 000013 SETOM 13 ;PRELOAD E WITH -1,,-1 2295 031734 532 12 0 00 000013 HLLEM 12,13 ;*HLLEM SHOULD PLACE 365432,,0 INTO E 2296 031735 312 12 0 00 034330 CAME 12,[365432,,123456] ;PASS IF C(AC) UNCHANGED 2297 STOP^ 2298 031736 254 04 0 00 031737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2299 031737 324 00 0 00 031740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2300 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2301 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2302 031740 312 13 0 00 034331 CAME 13,[365432,,0] ;PASS IF C(E)=365432,,0 2303 STOP^ 2304 031741 254 04 0 00 031742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2305 031742 324 00 0 00 031743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2306 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2307 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2308 2309 ;********** 2310 2311 ;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND 2312 ;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E. IF AC IS NON-ZERO, 2313 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2314 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=0,,765432 2315 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0 2316 ;AND 765432,,-1 RESPECTIVELY 2317 2318 031743 400 00 0 00 000000 C65600: SETZ 0, ;CLEAR AC 2319 031744 551 02 0 00 765432 HRRZI 2,765432 ;PRELOAD E WITH 0,,765432 2320 031745 537 00 0 00 000002 HRLES 0,2 ;*HLLES SHOULD PLACE 765432,,-1 2321 ;INTO 2322 031746 312 00 0 00 034325 CAME 0,[0] ;PASS IF C(AC) UNCHANGED 2323 STOP^ 2324 031747 254 04 0 00 031750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2325 031750 324 00 0 00 031751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2326 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2327 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2328 031751 312 02 0 00 034327 CAME 2,[765432,,-1] ;PASS IF C(E)=765432,,-1 2329 STOP^ 2330 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2331 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2332 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2333 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2334 2335 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 37 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0064 2336 ;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND 2337 ;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E. IF AC IS NON-ZERO, 2338 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2339 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=0,,765432 2340 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1 2341 ;AND 765432,,-1 RESPECTIVELY. 2342 2343 031754 400 01 0 00 000000 C65610: SETZ 1, ;CLEAR AC 2344 031755 551 02 0 00 765432 HRRZI 2,765432 ;PRELOAD E WITH 0,765432 2345 031756 537 01 0 00 000002 HRLES 1,2 ;*HLLES SHOULD PLACE 765432,,-1 2346 ;INTO BOTH AC AND E 2347 031757 312 01 0 00 034327 CAME 1,[765432,,-1] ;PASS IF C(AC)=765442,,-1 2348 STOP^ 2349 031760 254 04 0 00 031761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2350 031761 324 00 0 00 031762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2353 031762 312 02 0 00 034327 CAME 2,[765432,,-1] ;PASS IF C(E)=765432,,-1 2354 STOP^ 2355 031763 254 04 0 00 031764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2356 031764 324 00 0 00 031765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2358 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2359 2360 2361 ;********** 2362 2363 ;THIS TEST VERIFIES THAT HLRM SHOULD PLACE C(AC-LEFT) INTO E-RIGHT 2364 ;AND NOT AFFECT E-LEFT. IN THIS CASE, C(AC)=123456,,701234 2365 ;AND C(E)=0. HENCE, THE RESULT IN E SHOULD BE 0,,123456 2366 2367 031765 200 11 0 00 034332 C65700: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2368 031766 402 00 0 00 000012 SETZM 12 ;CLEAR E 2369 031767 546 11 0 00 000012 HLRM 11,12 ;*HLRM SHOULD PLACE 0,,123456 INTO E 2370 031770 312 11 0 00 034332 CAME 11,[123456,,701234] ;PASS IF C(AC) UNCHANGE 2371 STOP^ 2372 031771 254 04 0 00 031772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2373 031772 324 00 0 00 031773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2374 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2375 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2376 031773 302 12 0 00 123456 CAIE 12,123456 ;PASS IF C(E)=0,,123456 2377 STOP^ 2378 031774 254 04 0 00 031775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2379 031775 324 00 0 00 031776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2380 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2381 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2382 2383 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 38 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0065 2384 ;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND 2385 ;DOES NOT AFFECT E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2386 ;IS ALSO PLACED INTO THE AC. 2387 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123123,,246135 2388 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0 2389 ;AND 123123,,123123 RESPECTIVELY. 2390 2391 031776 400 00 0 00 000000 C66000: SETZ 0, ;CLEAR AC 2392 031777 200 12 0 00 034333 MOVE 12,[123123,,246135] ;PRELOAD E WITH 123123,,246135 2393 032000 547 00 0 00 000012 HLRS 0,12 ;*HLRS SHOULD PLACE 123123,,123123 2394 ;INTO E. 2395 032001 312 00 0 00 034325 CAME 0,[0] ;PASS IF C(AC) UNCHANGED 2396 STOP^ 2397 032002 254 04 0 00 032003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2398 032003 324 00 0 00 032004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2399 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2400 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2401 032004 312 12 0 00 034334 CAME 12,[123123,,123123] ;PASS IF C(E)=123123,,123123 2402 STOP^ 2403 032005 254 04 0 00 032006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2404 032006 324 00 0 00 032007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2405 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2406 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2407 2408 2409 ;********** 2410 2411 ;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND 2412 ;DOES NOT AFFECT E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2413 ;IS ALSO PLACED INTO THE AC. 2414 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123123,,246135 2415 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 123123,,123123 2416 ;AND 123123,,123123 RESPECTIVELY. 2417 2418 032007 400 01 0 00 000000 C66010: SETZ 1, ;CLEAR AC 2419 032010 200 12 0 00 034333 MOVE 12,[123123,,246135] ;PRELOAD E WITH 123123,,246135 2420 032011 547 01 0 00 000012 HLRS 1,12 ;*HLRS SHOULD PLACE 123123,,123123 2421 ;INTO BOTH AC AND E. 2422 032012 312 01 0 00 034334 CAME 1,[123123,,123123] ;PASS IF C(AC)=123123,,123123 2423 STOP^ 2424 032013 254 04 0 00 032014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2425 032014 324 00 0 00 032015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2426 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2427 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2428 032015 312 12 0 00 034334 CAME 12,[123123,,123123] ;PASS IF C(E)=123123,,123123 2429 STOP^ 2430 032016 254 04 0 00 032017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2431 032017 324 00 0 00 032020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2432 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2433 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2434 2435 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 39 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0066 2436 ;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT 2437 ;AFFECT THE RIGHT HALF OF E. IF AC IS NON-ZERO, THE RESULT IN E IS 2438 ;ALSO PLACED INTO THE AC. 2439 ;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234 2440 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,701234 2441 ;RESPECTIVELY. 2442 2443 032020 474 00 0 00 000000 C66100: SETO 0 ;PRELOAD AC WITH -1,,-1 2444 032021 200 17 0 00 034332 MOVE 17,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2445 032022 553 00 0 00 000017 HRRZS 0,17 ;HRRZS SHOULD PLACE 0,,701234 INTO E 2446 032023 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) UNCHANGED 2447 STOP^ 2448 032024 254 04 0 00 032025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2449 032025 324 00 0 00 032026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2450 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2451 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2452 032026 302 17 0 00 701234 CAIE 17,701234 ;PASS IF C(E) = 0,,701234 2453 STOP^ 2454 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2455 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2456 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2457 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2458 2459 ;********** 2460 2461 ;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT 2462 ;AFFECT THE RIGHT HALF OF E. IF AC IS NON-ZERO, THE RESULT IN E IS 2463 ;ALSO PLACED INTO THE AC. 2464 ;IN THIS CASE, AC = 1, C(AC) = -1,,-1 AND C(E) = 123456,,701234 2465 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,701234 AND 0,,701234 2466 ;RESPECTIVELY. 2467 2468 032031 474 01 0 00 000000 C66110: SETO 1, ;PRELOAD AC WITH -1,,-1 2469 032032 200 17 0 00 034332 MOVE 17,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2470 032033 553 01 0 00 000017 HRRZS 1,17 ;HRRZS SHOULD PLACE 0,,701234 INTO 2471 ;BOTH AC AND E 2472 032034 302 01 0 00 701234 CAIE 1,701234 ;PASS IF C(AC) = 0,,701234 2473 STOP^ 2474 032035 254 04 0 00 032036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2475 032036 324 00 0 00 032037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2476 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2477 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2478 032037 302 17 0 00 701234 CAIE 17,701234 ;PASS IF C(E) = 0,,701234 2479 STOP^ 2480 032040 254 04 0 00 032041 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2481 032041 324 00 0 00 032042 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2482 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2483 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2484 2485 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 40 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0067 2486 ;THIS TEST VERIFIES THAT HLRZI CLEARS THE AC 2487 ;IN THIS CASE, C(AC) = -1,,-1 AND E = 0,,-1. HENCE, THE 2488 ;RESULT IN THE AC SHOULD BE 0. 2489 2490 032042 474 00 0 00 000007 C66200: SETO 7 ;PRELOAD AC WITH -1,,-1 2491 032043 555 07 0 00 777777 HLRZI 7,-1 ;*HLRZI SHOULD CLEAR THE AC 2492 032044 332 00 0 00 000007 SKIPE 7 ;PASS IF C(AC) = 0 2493 STOP^ 2494 032045 254 04 0 00 032046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2495 032046 324 00 0 00 032047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2496 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2497 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2498 2499 ;********** 2500 2501 ;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND 2502 ;PLACES 0 INTO E-LEFT. 2503 ;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171 2504 ;HENCE, THE RESULT IN E SHOULD BE 0,,123456. 2505 2506 032047 200 01 0 00 034312 C66300: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 2507 032050 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 2508 032051 556 01 0 00 000002 HLRZM 1,2 ;*HLRZM SHOULD PLACE 0,,123456 INTO E. 2509 032052 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 2510 STOP^ 2511 032053 254 04 0 00 032054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2512 032054 324 00 0 00 032055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2513 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2514 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2515 032055 302 02 0 00 123456 CAIE 2,123456 ;PASS IF C(E) = 0,,123456 2516 STOP^ 2517 032056 254 04 0 00 032057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2518 032057 324 00 0 00 032060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2519 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2520 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2521 2522 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 41 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0068 2523 ;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND 2524 ;PLACES 0 INTO E-LEFT. 2525 ;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171 2526 ;HENCE, THE RESULT IN E SHOULD BE 0,,123456. 2527 2528 032060 200 01 0 00 034312 C66301: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 2529 032061 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 2530 032062 202 02 0 00 032074 MOVEM 2,E66301 2531 032063 556 01 0 00 032074 HLRZM 1,E66301 ;*HLRZM SHOULD PLACE 0,,123456 INTO E. 2532 032064 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 2533 STOP^ 2534 032065 254 04 0 00 032066 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2535 032066 324 00 0 00 032067 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2536 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2537 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2538 032067 200 02 0 00 032074 MOVE 2,E66301 2539 032070 302 02 0 00 123456 CAIE 2,123456 ;PASS IF C(E) = 0,,123456 2540 STOP^ 2541 032071 254 04 0 00 032072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2542 032072 324 00 0 00 032073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2543 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2544 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2545 2546 032073 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 2547 032074 000000 000000 E66301: 0 ;TEST WORD MEMORY 2548 2549 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 42 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0069 2550 ;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND 2551 ;PLACES 0 INTO E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E IS 2552 ;ALSO PLACED INTO THE AC. 2553 ;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234. 2554 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,123456 2555 ;RESPECTIVELY. 2556 2557 032075 474 00 0 00 000000 C66400: SETO 0, ;PRELOAD AC WITH -1,,-1 2558 032076 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2559 032077 557 00 0 00 000007 HLRZS 0,7 ;*HLRZS SHOULD PLACE 0,,123456 INTO E 2560 032100 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) IS UNCHANGED 2561 STOP^ 2562 032101 254 04 0 00 032102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2563 032102 324 00 0 00 032103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2566 032103 302 07 0 00 123456 CAIE 7,123456 ;PASS IF C(E) = 0,,123456 2567 STOP^ 2568 032104 254 04 0 00 032105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2569 032105 324 00 0 00 032106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2570 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2571 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2572 2573 ;********** 2574 2575 ;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND 2576 ;PLACES 0 INTO E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2577 ;IS ALSO PLACED INTO THE AC. 2578 ;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234. 2579 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456 2580 ;RESPECTIVELY. 2581 2582 032106 474 06 0 00 000000 C66410: SETO 6, ;PRELOAD AC WITH -1,,-1 2583 032107 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2584 032110 557 06 0 00 000007 HLRZS 6,7 ;*HLRZS SHOULD PLACE 0,,123456 INTO 2585 ;BOTH AC AND E 2586 032111 302 06 0 00 123456 CAIE 6,123456 ;PASS IF C(AC) = 0,,123456 2587 STOP^ 2588 032112 254 04 0 00 032113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2589 032113 324 00 0 00 032114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2590 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2591 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2592 032114 302 07 0 00 123456 CAIE 7,123456 ;PASS IF C(E) = 0,,123456 2593 STOP^ 2594 032115 254 04 0 00 032116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2595 032116 324 00 0 00 032117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2596 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2597 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2598 2599 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 43 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0070 2600 ;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND 2601 ;PLACES 0 INTO E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2602 ;IS ALSO PLACED INTO THE AC. 2603 ;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234. 2604 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456 2605 ;RESPECTIVELY. 2606 2607 032117 474 06 0 00 000000 C66411: SETO 6, ;PRELOAD AC WITH -1,,-1 2608 032120 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2609 032121 202 07 0 00 032133 MOVEM 7,E66411 2610 032122 557 06 0 00 032133 HLRZS 6,E66411 ;*HLRZS SHOULD PLACE 0,,123456 INTO 2611 ;BOTH AC AND E 2612 032123 302 06 0 00 123456 CAIE 6,123456 ;PASS IF C(AC) = 0,,123456 2613 STOP^ 2614 032124 254 04 0 00 032125 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2615 032125 324 00 0 00 032126 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2616 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2617 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2618 032126 200 07 0 00 032133 MOVE 7,E66411 2619 032127 302 07 0 00 123456 CAIE 7,123456 ;PASS IF C(E) = 0,,123456 2620 STOP^ 2621 032130 254 04 0 00 032131 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2622 032131 324 00 0 00 032132 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2623 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2624 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2625 2626 032132 334 00 0 00 000000 SKIPA ;GO TO NEXT TEST 2627 032133 000000 000000 E66411: 0 ;TEST WORD MEMORY 2628 2629 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 44 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0071 2630 ;THIS TEST VERIFIES THAT HRROM PLACES C(AC-RIGHT) INTO E-RIGHT AND 2631 ;PLACES -1 INTO E-LEFT. IN THIS CASE, C(AC) = 123456,,701234 AND 2632 ;C(E) = 0. HENCE, THE RESULT IN E SHOULD BE -1,,601234. 2633 2634 032134 200 05 0 00 034332 C66500: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2635 032135 402 00 0 00 000006 SETZM 6 ;CLEAR E 2636 032136 562 05 0 00 000006 HRROM 5,6 ;*HRROM SHOULD PLACE -1,,701234 INTO E 2637 032137 312 05 0 00 034332 CAME 5,[123456,,701234] ;PASS IF C(AC) UNCHANGED 2638 STOP^ 2639 032140 254 04 0 00 032141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2640 032141 324 00 0 00 032142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2641 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2642 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2643 032142 312 06 0 00 034335 CAME 6,[-1,,701234] ;PASS IF C(E) = -1,,701234 2644 STOP^ 2645 032143 254 04 0 00 032144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2646 032144 324 00 0 00 032145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2647 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2648 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2649 2650 2651 ;********** 2652 2653 ;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT 2654 ;AFFECT THE RIGHT HALF OF E. IF AC IS NON-ZERO THE RESULT IN E IS 2655 ;ALSO PLACED INTO THE AC. 2656 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234 2657 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0 2658 ;AND -1,,701234 RESPECTIVELY. 2659 2660 032145 400 00 0 00 000000 C66600: SETZ 0 ;PRELOAD AC WITH 0 2661 032146 200 17 0 00 034332 MOVE 17,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2662 032147 563 00 0 00 000017 HRROS 0,17 ;HRROS SHOULD PLACE -1,,701234 INTO E 2663 032150 312 00 0 00 034325 CAME 0,[0] ;PASS IF C(AC) IS UNCHANGED 2664 STOP^ 2665 032151 254 04 0 00 032152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2666 032152 324 00 0 00 032153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2667 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2668 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2669 032153 312 17 0 00 034335 CAME 17,[-1,,701234] ;PASS IF C(E)=-1,,701234 2670 STOP^ 2671 032154 254 04 0 00 032155 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2672 032155 324 00 0 00 032156 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2673 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2674 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2675 2676 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 45 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0072 2677 ;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT 2678 ;AFFECT THE RIGHT HALF OF E. IF AC IS NON-ZERO THE RESULT IN E IS 2679 ;ALSO PLACED INTO THE AC. 2680 ;IN THIS CASE, AC=16, C(AC)=0 AND C(E)=123456,,701234 2681 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234 2682 ;AND -1,,701234 RESPECTIVELY. 2683 2684 032156 400 16 0 00 000000 C66610: SETZ 16, ;PRELOAD AC WITH 0 2685 032157 200 17 0 00 034332 MOVE 17,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2686 032160 563 16 0 00 000017 HRROS 16,17 ;*HRROS SHOULD PLACE -1,,701234 INTO 2687 ;BOTH AC AND E 2688 032161 312 16 0 00 034335 CAME 16,[-1,,701234] ;PASS IF C(AC)=-1,,701234 2689 STOP^ 2690 032162 254 04 0 00 032163 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2691 032163 324 00 0 00 032164 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2692 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2693 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2694 032164 312 17 0 00 034335 CAME 17,[-1,,701234] ;PASS IF C(E)=-1,,701234 2695 STOP^ 2696 032165 254 04 0 00 032166 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2697 032166 324 00 0 00 032167 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2698 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2699 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2700 2701 ;********** 2702 2703 ;THIS TEST VERIFIES THAT HLRO PLACES C(E-LEFT) INTO AC-RIGHT AND 2704 ;PLACES -1 INTO AC-LEFT. IN THIS CASE, C(AC)=0 2705 ;C(E)=765432,,107654. HENCE, THE RESULT IN THE AC SHOULD BE -1,,765432. 2706 2707 032167 400 04 0 00 000000 C66700: SETZ 4, ;CLEAR AC 2708 032170 200 05 0 00 034336 MOVE 5,[765432,,107654] ;PRELOAD E WITH 765432,,107654 2709 032171 564 04 0 00 000005 HLRO 4,5 ;*HLRO SHOULD PLACE -1,,765432 INTO THE AC 2710 032172 312 04 0 00 034337 CAME 4,[-1,,765432] ;PASS IF C(AC)=-1,,765432 2711 STOP^ 2712 032173 254 04 0 00 032174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2713 032174 324 00 0 00 032175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2714 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2715 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2716 032175 312 05 0 00 034336 CAME 5,[765432,,107654] ;PASS IF C(E) IS UNCHANGED 2717 STOP^ 2718 032176 254 04 0 00 032177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2719 032177 324 00 0 00 032200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2720 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2721 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2722 2723 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 46 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0073 2724 ;THIS TEST VERIFIES THAT HLROI PLACES -1,,0 INTO THE AC. 2725 ;IN THIS CASE, C(AC)=123456,,765432 AND E=070707. HENCE, THE 2726 ;RESULT IN THE AC SHOULD BE -1,,0 2727 2728 032200 200 03 0 00 034252 C67000: MOVE 3,[123456,,765432] ;PRELOAD AC WITH 123456,,765432 2729 032201 565 03 0 00 070707 HLROI 3,070707 ;*HLROI SHOULD PLACE -1,,0 INTO THE AC 2730 032202 312 03 0 00 034340 CAME 3,[-1,,0] ;PASS IF C(AC)=-1,,0 2731 STOP^ 2732 032203 254 04 0 00 032204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2733 032204 324 00 0 00 032205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2734 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2735 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2736 2737 ;********** 2738 2739 ;THIS TEST VERIFIES THAT HLROM PLACES C(AC-LEFT) INTO E RIGHT AND 2740 ;PLACES -1 INTO E-LEFT 2741 ;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171 2742 ;HENCE, THE RESULT IN E SHOULD BE -1,,123456 2743 2744 032205 200 01 0 00 034312 C67100: MOVE 1,[123456,,123422] ;PRELOAD AC WITH 123456,,123422 2745 032206 200 02 0 00 034313 MOVE 2,[707070,,717171] ;PRELOAD AC WITH 707070,,717171 2746 032207 566 01 0 00 000002 HLROM 1,2 ;*HLROM SHOULD PLACE -1,,123456 INTO E 2747 032210 312 01 0 00 034312 CAME 1,[123456,,123422] ;PASS IF C(AC) UNCHANGED 2748 STOP^ 2749 032211 254 04 0 00 032212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2750 032212 324 00 0 00 032213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2751 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2752 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2753 032213 312 02 0 00 034341 CAME 2,[-1,,123456] ;PASS IF C(E)=-1,,123456 2754 STOP^ 2755 032214 254 04 0 00 032215 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2756 032215 324 00 0 00 032216 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2757 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2758 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2759 2760 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 47 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0074 2761 ;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND 2762 ;PLACES -1 INTO E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2763 ;IS ALSO PLACED INTO THE AC. 2764 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234. 2765 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0 2766 ;AND -1,,123456 RESPECTIVELY 2767 2768 032216 400 00 0 00 000000 C67200: SETZ 0 ;PRELOAD AC WITH 0 2769 032217 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2770 032220 567 00 0 00 000007 HLROS 0,7 ;*HLROS SHOULD PLACE -1,,123456 INTO E 2771 ; 2772 032221 302 00 0 00 000000 CAIE 0,0 ;PASS IF C(AC) IS UNCHANGED 2773 STOP^ 2774 032222 254 04 0 00 032223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2775 032223 324 00 0 00 032224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2776 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2777 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2778 032224 312 07 0 00 034341 CAME 7,[-1,,123456] ;PASS IF C(E)=-1,,123456 2779 STOP^ 2780 032225 254 04 0 00 032226 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2781 032226 324 00 0 00 032227 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2782 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2783 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2784 2785 ;********** 2786 2787 ;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND 2788 ;PLACES -1 INTO E-LEFT. IF AC IS NON-ZERO, THE RESULT IN E 2789 ;IS ALSO PLACED INTO THE AC. 2790 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234. 2791 ;HENCE, THE RESULT IN AC AND E SHOULD BE -1,,123456 2792 ;AND -1,,123456 RESPECTIVELY. 2793 2794 032227 400 01 0 00 000000 C67210: SETZ 1, ;PRELOAD AC WITH 0 2795 032230 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2796 032231 567 01 0 00 000007 HLROS 1,7 ;*HLROS SHOULD PLACE -1,,123456 INTO 2797 ;BOTH AC AND E 2798 032232 312 01 0 00 034341 CAME 1,[-1,,123456] ;PASS IF C(AC)=-1,,123456 2799 STOP^ 2800 032233 254 04 0 00 032234 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2801 032234 324 00 0 00 032235 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2802 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2803 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2804 032235 312 07 0 00 034341 CAME 7,[-1,,123456] ;PASS IF C(E)=-1,,123456 2805 STOP^ 2806 032236 254 04 0 00 032237 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2807 032237 324 00 0 00 032240 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2808 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2809 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2810 2811 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 48 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0075 2812 ;THIS TEST VERIFIES THAT HRRES PLACES C(E-RIGHT) INTO E-RIGHT 2813 ;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E. IF AC IS NON-ZERO, 2814 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2815 ;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234 2816 ;HENCE, THE RESULT IN AC AND E SHOULD BE 0 2817 ;AND -1,,701234 RESPECTIVELY. 2818 2819 032240 400 00 0 00 000000 C67300: SETZ 0, ;PRELOAD AC WITH 0 2820 032241 200 03 0 00 034332 MOVE 3,[123456,,701234] ;PRELOAD WITH 123456,,701234 2821 032242 573 00 0 00 000003 HRRES 0,3 ;HRRES SHOULD PLACE -1,,701234 INTO E 2822 2823 032243 332 00 0 00 000000 SKIPE ;PASS IF C(AC) IS UNCHANGED 2824 STOP^ 2825 032244 254 04 0 00 032245 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2826 032245 324 00 0 00 032246 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2827 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2828 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2829 032246 312 03 0 00 034335 CAME 3,[-1,,701234] ;PASS IF C(E)=-1,,701234 2830 STOP^ 2831 032247 254 04 0 00 032250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2832 032250 324 00 0 00 032251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2833 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2834 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2835 2836 ;********** 2837 2838 ;THIS TEST VERIFIES THAT HRRES, PLACES C(E-RIGHT) INTO E-RIGHT 2839 ;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E. IF AC IS NON-ZERO, 2840 ;THE RESULT IN E IS ALSO PLACED INTO THE AC. 2841 ;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234. 2842 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234 2843 ;AND -1,,701234 RESPECTIVELY. 2844 2845 032251 400 01 0 00 000000 C67310: SETZ 1, ;PRELOAD AC WITH 0 2846 032252 200 03 0 00 034332 MOVE 3,[123456,,701234] ;PRELOAD WITH 123456,,701234 2847 032253 573 01 0 00 000003 HRRES 1,3 ;HRRES SHOULD PLACE -1,,701234 INTO 2848 ;BOTH AC AND E 2849 032254 312 01 0 00 034335 CAME 1,[-1,,701234] ;PASS IF C(AC)=-1,,701234 2850 STOP^ 2851 032255 254 04 0 00 032256 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2852 032256 324 00 0 00 032257 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2853 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2854 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2855 032257 312 03 0 00 034335 CAME 3,[-1,,701234] ;PASS IF C(E)=-1,,701234 2856 STOP^ 2857 032260 254 04 0 00 032261 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2858 032261 324 00 0 00 032262 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2859 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2860 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2861 2862 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 49 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL HWT INSTRUCTIONS SEQ 0076 2863 ;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT 2864 ;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E. IF AC IS 2865 ;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC. 2866 ;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E) 123456,,701234 2867 ;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 2868 ;AND 0,,123456 RESPECTIVELY. 2869 2870 032262 474 00 0 00 000000 C67400: SETO 0, ;PRELOAD AC WITH -1,,-1 2871 032263 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2872 032264 577 00 0 00 000007 HLRES 0,7 ;*HLRES SHOULD PLACE 0,,123456 INTO E 2873 2874 032265 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC) IS UNCHANGED 2875 STOP^ 2876 032266 254 04 0 00 032267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2877 032267 324 00 0 00 032270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2878 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2879 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2880 032270 302 07 0 00 123456 CAIE 7,123456 ;PASS IF C(E)=0,,123456 2881 STOP^ 2882 032271 254 04 0 00 032272 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2883 032272 324 00 0 00 032273 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2886 2887 ;********** 2888 2889 ;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT 2890 ;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E. IF AC IS 2891 ;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC. 2892 ;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E) 123456,,701234. 2893 ;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 2894 ;AND 0,,123456 RESPECTIVELY. 2895 2896 032273 474 01 0 00 000000 C67410: SETO 1, ;PRELOAD AC WITH -1,,-1 2897 032274 200 07 0 00 034332 MOVE 7,[123456,,701234] ;PRELOAD E WITH 123456,,701234 2898 032275 577 01 0 00 000007 HLRES 1,7 ;*HLRES SHOULD PLACE 0,,123456 INTO 2899 ;BOTH AC AND E 2900 032276 302 01 0 00 123456 CAIE 1,123456 ;PASS IF C(AC)=0,,123456 2901 STOP^ 2902 032277 254 04 0 00 032300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2903 032300 324 00 0 00 032301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2904 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2905 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2906 032301 302 07 0 00 123456 CAIE 7,123456 ;PASS IF C(E)=0,,123456 2907 STOP^ 2908 032302 254 04 0 00 032303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2909 032303 324 00 0 00 032304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2910 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2911 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2912 2913 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 50 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0077 2914 SUBTTL TEST OF MSCL LOGICAL TEST INSTRUCTIONS 2915 2916 ;********** 2917 2918 ;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 2919 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 2920 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 2921 ;HENCE, TRNE SHOULD SKIP THE NEXT INSTRUCTION. THE AC IS ALSO 2922 ;CHECKED FOR NO MODIFICATION. 2923 2924 032304 200 17 0 00 034332 C67500: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2925 032305 602 17 0 00 000003 TRNE 17,3 ;*TRNE SHOULD SKIP THE NEXT INSTRUCTION 2926 STOP^ 2927 032306 254 04 0 00 032307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2928 032307 324 00 0 00 032310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2929 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2930 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2931 032310 312 17 0 00 034332 CAME 17,[123456,,701234] ;PASS IF C AC) UNCHANGED 2932 STOP^ 2933 032311 254 04 0 00 032312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2934 032312 324 00 0 00 032313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2935 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2936 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2937 2938 ;********** 2939 2940 ;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 2941 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 2942 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 2943 ;HENCE, TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION. THE AC IS ALSO 2944 ;CHECKED FOR NO MODIFICATION. 2945 2946 032313 200 16 0 00 034332 C67510: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2947 032314 602 16 0 00 000300 TRNE 16,300 ;*TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION 2948 032315 334 00 0 00 000000 SKIPA ;PASS IF TRNE DID NOT SKIP 2949 STOP^ 2950 032316 254 04 0 00 032317 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2951 032317 324 00 0 00 032320 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2952 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2953 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2954 032320 312 16 0 00 034332 CAME 16,[123456,,701234] ;PASS IF C(AC) UNCHANGED 2955 STOP^ 2956 032321 254 04 0 00 032322 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2957 032322 324 00 0 00 032323 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2958 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2959 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2960 2961 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 51 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0078 2962 ;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 2963 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 2964 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 2965 ;HENCE, TLNE SHOULD SKIP THE NEXT INSTRUCTION, THE AC IS ALSO 2966 ;CHECKED FOR NO MODIFICATION. 2967 2968 032323 200 15 0 00 034332 C67600: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2969 032324 603 15 0 00 000300 TLNE 15,300 ;*TLNE CHOULD SKIP 2970 STOP^ 2971 032325 254 04 0 00 032326 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2972 032326 324 00 0 00 032327 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2973 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2974 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2975 032327 312 15 0 00 034332 CAME 15,[123456,,701234] ;PASS IF C(AC) IS UNCHANGED 2976 STOP^ 2977 032330 254 04 0 00 032331 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2978 032331 324 00 0 00 032332 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2979 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2980 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2981 2982 ;********** 2983 2984 ;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 2985 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO 2986 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 2987 ;HENCE, TLNE SHOULD NOT SKIP THE NEXT INSTRUCTION, THE AC IS ALSO 2988 ;CHECKED FOR NO MODIFICATION 2989 2990 032332 200 14 0 00 034332 C67610: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 2991 032333 603 14 0 00 000003 TLNE 14,3 ;*TLNE SHOULD NOT SKIP 2992 032334 334 00 0 00 000000 SKIPA ;PASS IF TLNE DID NOT SKIP 2993 STOP^ 2994 032335 254 04 0 00 032336 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2995 032336 324 00 0 00 032337 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2996 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2997 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2998 032337 312 14 0 00 034332 CAME 14,[123456,,701234] ;PASS IF C(AC) UNCHANGED 2999 STOP^ 3000 032340 254 04 0 00 032341 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3001 032341 324 00 0 00 032342 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3002 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3003 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3004 3005 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 52 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0079 3006 ;THIS TEST VERIFIES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL 3007 ;INSTRUCTION. HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E 3008 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3009 ;HENCE, TRNA SHOULD SKIP THENEXT INSTRUCTION AND NOT ALTER C(AC). 3010 3011 032342 200 13 0 00 034332 C67700: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3012 032343 604 13 0 00 000003 TRNA 13,3 ;*TRNA SHOULD ALWAYS SKIP 3013 STOP^ 3014 032344 254 04 0 00 032345 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3015 032345 324 00 0 00 032346 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3018 032346 312 13 0 00 034332 CAME 13,[123456,,701234] ;PASS IFC(AC) UNCHANGED 3019 STOP^ 3020 032347 254 04 0 00 032350 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3021 032350 324 00 0 00 032351 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3022 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3023 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3024 3025 ;********** 3026 3027 ;THIS TEST VERIFhES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL 3028 ;INSTRUCTION. HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E. 3029 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 3030 ;HENCE, TRNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3031 3032 032351 200 12 0 00 034332 C67710: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3033 032352 604 12 0 00 000300 TRNA 12,300 ;*TRNA SHOQLD ALWAYS SKIP 3034 STOP^ 3035 032353 254 04 0 00 032354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3036 032354 324 00 0 00 032355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3037 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3038 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3039 032355 312 12 0 00 034332 CAME 12,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3040 STOP^ 3041 032356 254 04 0 00 032357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3042 032357 324 00 0 00 032360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3043 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3044 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3045 3046 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 53 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0080 3047 ;THIS TEST VERIFIaS THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL 3048 ;INSTRUCTION. HENCE, TLNA IS INDEPENDENt OF BOTH C(AC) AND E. 3049 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3050 ;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3051 3052 032360 200 11 0 00 034332 C70000: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3053 032361 605 11 0 00 000003 TLNA 11,3 ;*TLNA SHOULD ALWAYS SKIP 3054 STOP^ 3055 032362 254 04 0 00 032363 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3056 032363 324 00 0 00 032364 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3057 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3058 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3059 032364 312 11 0 00 034332 CAME 11,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3060 STOP^ 3061 032365 254 04 0 00 032366 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3062 032366 324 00 0 00 032367 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3063 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3064 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3065 3066 ;********** 3067 3068 ;THIS TEST VERIFIES THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL 3069 ;INSTRUCTION. HENCE, TLNA IS INDEPENDENT OF BOTH C(AC) AND E. 3070 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3071 ;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3072 3073 032367 200 10 0 00 034332 C70010: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3074 032370 605 10 0 00 000300 TLNA 10,300 ;*TLNA SHOULD ALWAYS SKIP 3075 STOP^ 3076 032371 254 04 0 00 032372 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3077 032372 324 00 0 00 032373 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3078 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3079 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3080 032373 312 10 0 00 034332 CAME 10,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3081 STOP^ 3082 032374 254 04 0 00 032375 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3083 032375 324 00 0 00 032376 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3084 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3085 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3086 3087 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 54 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0081 3088 ;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3089 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN 3090 ;E ARE ZERO. IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3091 ;HENCE, TRNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3092 3093 032376 200 07 0 00 034332 C70100: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3094 032377 606 07 0 00 000300 TRNN 7,300 ;*TRNN SHOULD SKIP 3095 SToP^ 3096 032400 254 04 0 00 032401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3097 032401 324 00 0 00 032402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3098 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3099 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3100 032402 312 07 0 00 034332 CAME 7,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3101 STOP^ 3102 032403 254 04 0 00 032404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3103 032404 324 00 0 00 032405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3104 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3105 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3106 3107 ;********** 3108 3109 ;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3110 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN 3111 ;E ARE ZERO. IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3112 ;HENCE, TRNN SHoULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3113 3114 032405 200 06 0 00 034332 C70110: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3115 032406 606 06 0 00 000003 TRNN 6,3 ;*TRNN SHOULD NOT SKIP 3116 032407 334 00 0 00 000000 SKIPA ;PASS IF TRNN DID NOT SKIP 3117 STOP^ 3118 032410 254 04 0 00 032411 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3119 032411 324 00 0 00 032412 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3120 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3121 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3122 032412 312 06 0 00 034332 CAME 6,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3123 STOP^ 3124 032413 254 04 0 00 032414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3125 032414 324 00 0 00 032415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3126 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3127 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3128 3129 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 55 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0082 3130 ;THIS TEST VERIFIES THAT TLNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3131 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3132 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3133 ;HENCE, TLNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3134 3135 032415 200 05 0 00 034332 C70200: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3136 032416 607 05 0 00 000003 TLNN 5,3 ;*TLNN SHOULD SKIP 3137 STOP^ 3138 032417 254 04 0 00 032420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3139 032420 324 00 0 00 032421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3140 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3141 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3142 032421 312 05 0 00 034332 CAME 5,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3143 STOP^ 3144 032422 254 04 0 00 032423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3145 032423 324 00 0 00 032424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3146 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3147 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3148 3149 ;********** 3150 3151 ;THIS TEST VERIFIES thAT TLNN SkIPS THE NEXT SEQUENTIAL INSTRUcTION 3152 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3153 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3154 ;HENCE, TLNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC). 3155 3156 032424 200 04 0 00 034332 C70210: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3157 032425 607 04 0 00 000300 TLNN 4,300 ;*TLNN SHOULD NOT SKIP 3158 032426 334 00 0 00 000000 SKIPA ;PASS IF TLNN DOES NOT SKIP 3159 STOP^ 3160 032427 254 04 0 00 032430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3161 032430 324 00 0 00 032431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3162 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3163 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3164 032431 312 04 0 00 034332 CAME 4,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3165 STOP^ 3166 032432 254 04 0 00 032433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3167 032433 324 00 0 00 032434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3168 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3169 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3170 3171 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 56 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0083 3172 ;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3173 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH 3174 ;BOTH HALVES SNAPPED ARE ZERO. NEITHER AC NOR E ARE AFFECTED. 3175 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 3176 ;HENCE, TSNE SHOULD SKIP THE NEXT INSTRUCtION AND 3177 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED. 3178 3179 032434 200 03 0 00 034332 C70300: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3180 032435 200 04 0 00 034342 MOVE 4,[76543,,654321] ;PRELOAD E WITH 076543,,654321 3181 032436 613 03 0 00 000004 TSNE 3,4 ;*TSNE SHOULD SKIP 3182 STOP^ 3183 032437 254 04 0 00 032440 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3184 032440 324 00 0 00 032441 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3185 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3186 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3187 032441 312 03 0 00 034332 CAME 3,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3188 STOP^ 3189 032442 254 04 0 00 032443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3190 032443 324 00 0 00 032444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3191 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3192 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3193 032444 312 04 0 00 034342 CAME 4,[76543,,654321] ;PASS IF C(E) UNCHANGED 3194 STOP^ 3195 032445 254 04 0 00 032446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3196 032446 324 00 0 00 032447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3197 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3198 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3199 3200 ;********** 3201 3202 ;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3203 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH 3204 ;BOTH HALVES SNAPPED ARE ZERO. NEITHER AC NOR E ARE AFFECTED. 3205 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323 3206 ;HENCE, TSNE SHOULD NOT SKIP THE NEXT INSTRUCTION AND 3207 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED. 3208 3209 032447 200 02 0 00 034332 C70310: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3210 032450 200 03 0 00 034343 MOVE 3,[76543,,654323] ;PRELOAD E WITH 076543,,654323 3211 032451 613 02 0 00 000003 TSNE 2,3 ;*TSNE SHOULD NOT SKIP 3212 032452 334 00 0 00 000000 SKIPA ;PASS IF TSOE DId NOT SKIP 3213 STOP^ 3214 032453 254 04 0 00 032454 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3215 032454 324 00 0 00 032455 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3216 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3217 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3218 032455 312 02 0 00 034332 CAME 2,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3219 STOP^ 3220 032456 254 04 0 00 032457 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3221 032457 324 00 0 00 032460 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3222 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3223 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3224 032460 312 03 0 00 034343 CAME 3,[76543,,654323] ;PASS IF C(E) UNCHANGED 3225 STOP^ 3226 032461 254 04 0 00 032462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 56-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0084 3227 032462 324 00 0 00 032463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3228 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3229 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3230 3231 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 57 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0085 3232 ;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3233 ;NEITHER AC NOR E ARE AFFECTED. 3234 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 3235 ;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND 3236 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED 3237 3238 032463 200 01 0 00 034332 C70400: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3239 032464 200 02 0 00 034342 MOVE 2,[76543,,654321] ;PRELOAD E WITH 076543,,654321 3240 032465 615 01 0 00 000002 TSNA 1,2 ;*TSNA SHOULD SKIP 3241 STOP^ 3242 032466 254 04 0 00 032467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3243 032467 324 00 0 00 032470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3244 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3245 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3246 032470 312 01 0 00 034332 CAME 1,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3247 STOP^ 3248 032471 254 04 0 00 032472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3249 032472 324 00 0 00 032473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3250 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3251 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3252 032473 312 02 0 00 034342 CAME 2,[76543,,654321] ;PASS IF C(E) UNCHANGED 3253 STOP^ 3254 032474 254 04 0 00 032475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3255 032475 324 00 0 00 032476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3256 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3257 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3258 3259 ;********** 3260 3261 ;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3262 ;NEITHER AC NOR E ARE EFFECTED. 3263 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323 3264 ;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND 3265 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED 3266 3267 032476 200 00 0 00 034332 C70410: MOVE 0,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3268 032477 200 01 0 00 034343 MOVE 1,[76543,,654323] ;PRELOAD E WITH 076543,,654323 3269 032500 615 00 0 00 000001 TSNA 0,1 ;*TSNA SHOULD SKIP 3270 STOP^ 3271 032501 254 04 0 00 032502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3272 032502 324 00 0 00 032503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3273 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3274 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3275 032503 312 01 0 00 034343 CAME 1,[76543,,654323] ;PASS IF C(E) UNCHANGED 3276 STOP^ 3277 032504 254 04 0 00 032505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3278 032505 324 00 0 00 032506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3279 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3280 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3281 3282 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 58 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0086 3283 ;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3284 ;IF AND ONLY IF NOT ALL HITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH 3285 ;BOTH HALVES SWAPPED ARE ZERO. NEITHER AC NOR E ARE AFFECTED. 3286 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076547,,654321 3287 ;HENCE, TSNN SHOULD SKIP THE NEXT INSTRUCTION AND 3288 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED 3289 3290 032506 200 17 0 00 034332 C70500: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3291 032507 200 00 0 00 034344 MOVE 0,[76547,,654321] ;PRELOAD E WITH 076547,,654321 3292 032510 617 17 0 00 000000 TSNN 17,0 ;*TSNN SHOULD SKIP 3293 STOP^ 3294 032511 254 04 0 00 032512 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3295 032512 324 00 0 00 032513 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3296 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3297 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3298 032513 312 17 0 00 034332 CAME 17,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3299 STOP^ 3300 032514 254 04 0 00 032515 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3301 032515 324 00 0 00 032516 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3302 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3303 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3304 032516 312 00 0 00 034344 CAME 0,[76547,,654321] ;PASS IF C(E) UNCHANGED 3305 STOP^ 3306 032517 254 04 0 00 032520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3307 032520 324 00 0 00 032521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3308 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3309 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3310 3311 ;********** 3312 3313 ;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3314 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH 3315 ;BOTH HALVES SWAPPED ARE ZERO. NEITHER AC NOR E ARE AFFECTED. 3316 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 3317 ;HENCE, TSNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND 3318 ;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED 3319 3320 032521 200 16 0 00 034332 C70510: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3321 032522 200 17 0 00 034342 MOVE 17,[76543,,654321] ;PRELOAD E WITH 076543,,654321 3322 032523 617 16 0 00 000017 TSNN 16,17 ;*TSNN SHOULD NOT SKIP 3323 032524 334 00 0 00 000000 SKIPA ;PASS IF TSNN DID NOT SKIP 3324 STOP^ 3325 032525 254 04 0 00 032526 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3326 032526 324 00 0 00 032527 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3327 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3328 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3329 032527 312 16 0 00 034332 CAME 16,[123456,,701234] ;PASS IF C(AC) UNCHANGED 3330 STOP^ 3331 032530 254 04 0 00 032531 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3332 032531 324 00 0 00 032532 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3334 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3335 032532 312 17 0 00 034342 CAME 17,[76543,,654321] ;PASS IF C(E) UNCHANGED 3336 STOP^ 3337 032533 254 04 0 00 032534 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 58-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0087 3338 032534 324 00 0 00 032535 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3339 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3340 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3341 3342 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 59 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0088 3343 ;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH 3344 ;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP. 3345 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 3346 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701234 3347 3348 032535 200 15 0 00 034332 C70600: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234] 3349 032536 620 12 0 00 000003 TRZ 12,3 ;*TRZ SHOULD PLACE 123456,,701234 INTO 3350 ;THE AC AND NOT SKIP 3351 032537 334 00 0 00 000000 SKIPA ;PASS IF TRZ DOES NOT SKIP 3352 STOP^ 3353 032540 254 04 0 00 032541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3354 032541 324 00 0 00 032542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3356 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3357 032542 312 15 0 00 034332 CAME 15,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3358 STOP^ 3359 032543 254 04 0 00 032544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3360 032544 324 00 0 00 032545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3363 3364 ;********** 3365 3366 ;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH 3367 ;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP. 3368 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 3369 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701034 3370 3371 032545 200 14 0 00 034332 C70610: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3372 032546 620 14 0 00 000300 TRZ 14,300 ;*TRZ SHOULD PLACE 123456,,701234 INTO 3373 ;THE ACAND NOT SKIP 3374 032547 334 00 0 00 000000 SKIPA ;PASS IF TRX DOES NOT SKIP 3375 STOP^ 3376 032550 254 04 0 00 032551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3377 032551 324 00 0 00 032552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3378 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3379 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3380 032552 312 14 0 00 034345 CAME 14,[123456,,701034] ;PASS IF C(AC)=123456,,701034 3381 STOP^ 3382 032553 254 04 0 00 032554 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3383 032554 324 00 0 00 032555 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3386 3387 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 60 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0089 3388 ;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH 3389 ;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP. 3390 ;IN THIS CACE, C(AC)=123456,,701234 AND E=300 3391 ;HENCE, THE RESULT IN THE AC SHOUL BE 123456,,701234 3392 3393 032555 200 13 0 00 034332 C70700: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3394 032556 621 13 0 00 000300 TLZ 13,300 ;*TLZ SHOULD PLACE 123456,,701234 INTO 3395 ;THE AC AND NOT SKIP 3396 032557 334 00 0 00 000000 SKIPA ;PASS IF TLZ DOES NOT SKIP 3397 STOP^ 3398 032560 254 04 0 00 032561 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3399 032561 324 00 0 00 032562 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3400 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3401 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3402 032562 312 13 0 00 034332 CAME 13,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3403 STOP^ 3404 032563 254 04 0 00 032564 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3405 032564 324 00 0 00 032565 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3406 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3407 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3408 3409 ;********** 3410 3411 ;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH 3412 ;CORRSPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP. 3413 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 3414 ;HENCE, THE RESULT IN THE AC SHOULD BE 123454,,701234 3415 3416 032565 200 12 0 00 034332 C70710: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3417 032566 621 12 0 00 000003 TLZ 12,3 ;*TLZ SHOULD PLACE 123454,,701234 INTO 3418 ;THE AC AND NOT SKIP 3419 032567 334 00 0 00 000000 SKIPA ;PASS IF TLZ DOES NOT SKIP 3420 STOP^ 3421 032570 254 04 0 00 032571 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3422 032571 324 00 0 00 032572 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3423 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3424 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3425 032572 312 12 0 00 034346 CAME 12,[123454,,701234] ;PASS IF C(AC)=123454,701234 3426 STOP^ 3427 032573 254 04 0 00 032574 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3428 032574 324 00 0 00 032575 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3431 3432 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 61 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0090 3433 ;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3434 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 3435 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3436 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 3437 ;HENCE, TRZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 3438 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701234 3439 3440 032575 200 11 0 00 034332 C71000: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3441 032576 622 11 0 00 000003 TRZE 11,3 ;*TRZE SHOULD SKIP AND 3442 ;PLACE 123456,,701234 INTO THE AC 3443 STOP^ 3444 032577 254 04 0 00 032600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3445 032600 324 00 0 00 032601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3446 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3447 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3448 032601 312 11 0 00 034332 CAME 11,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3449 STOP^ 3450 032602 254 04 0 00 032603 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3451 032603 324 00 0 00 032604 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3453 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3454 3455 ;********** 3456 3457 ;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3458 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRSPONDING TO 1'S IN E ARE ZERO. 3459 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3460 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 3461 ;HENCE, TRZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 3462 ;AND THE RESULT IN THE AC SHOUDL BE 123456,,701034 3463 3464 032604 200 10 0 00 034332 C71010: MOVE 10,[123456,,701234] ;PRELOAD AC WIT@@ 123456,,701234 3465 032605 622 10 0 00 000300 TRZE 10,300 ;*TRZE SHOULD PLACE 123456,,701034 INTO 3466 ;THE AC AND NOT SKIP 3467 032606 334 00 0 00 000000 SKIPA ;PASS IF TRZE DOES NOT SKIP 3468 STOP^ 3469 032607 254 04 0 00 032610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3470 032610 324 00 0 00 032611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3473 032611 312 10 0 00 034345 CAME 10,[123456,,701034] ;PASS IF C(AC)=123456,,701034 3474 STOP^ 3475 032612 254 04 0 00 032613 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3476 032613 324 00 0 00 032614 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3479 3480 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 62 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0091 3481 ;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3482 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3483 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3484 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 3485 ;HENCE, TLZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 3486 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701234 3487 3488 032614 200 07 0 00 034332 C71100: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3489 032615 623 07 0 00 000300 TLZE 7,300 ;*TLZE SHOULD SKIP AND 3490 ;PLACE 123456,,701234 INTO THE AC 3491 STOP^ 3492 032616 254 04 0 00 032617 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3493 032617 324 00 0 00 032620 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3494 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3495 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3496 032620 312 07 0 00 034332 CAME 7,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3497 STOP^ 3498 032621 254 04 0 00 032622 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3499 032622 324 00 0 00 032623 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3501 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3502 3503 ;********** 3504 3505 ;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3506 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3507 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3508 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 3509 ;HENCE, TLZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 3510 ;AND THE RESULT IN THE AC SHOULD BE 123454,,701234 3511 3512 032623 200 06 0 00 034332 C71110: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3513 032624 623 06 0 00 000003 TLZE 6,3 ;*TLZE SHOULD PLACE 123454,,701234 INTO 3514 ;THE AC AND NOT SKIP 3515 032625 334 00 0 00 000000 SKIPA ;PASS IF TLZE DOES NOT SKIP 3516 STOP^ 3517 032626 254 04 0 00 032627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3518 032627 324 00 0 00 032630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3519 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3520 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3521 032630 312 06 0 00 034346 CAME 6,[123454,,701234] ;PASS IF C(AC)=123454,,701234 3522 STOP^ 3523 032631 254 04 0 00 032632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3524 032632 324 00 0 00 032633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3527 3528 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 63 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0092 3529 ;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3530 ;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO. 3531 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3532 ;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 3533 ;THE AC SHOULD BE 123456,,701234 3534 3535 032633 200 05 0 00 034332 C71200: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3536 032634 624 05 0 00 000003 TRZA 5,3 ;*TRZA SHOULD SKIP AND 3537 ;PLACE 123456,,701234 INTO THE AC 3538 STOP^ 3539 032635 254 04 0 00 032636 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3540 032636 324 00 0 00 032637 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3541 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3542 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3543 032637 312 05 0 00 034332 CAME 5,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3544 STOP^ 3545 032640 254 04 0 00 032641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3546 032641 324 00 0 00 032642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3547 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3548 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3549 3550 ;********** 3551 3552 ;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3553 ;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO. 3554 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3555 ;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 3556 ;THE AC SHOULD BE 123456,,701234. 3557 3558 032642 200 04 0 00 034332 C71210: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3559 032643 624 04 0 00 000300 TRZA 4,300 ;*TRZA SHOULD SKIP AND 3560 ;PLACE 123456,,701034 INTO THE AC 3561 STOP^ 3562 032644 254 04 0 00 032645 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3563 032645 324 00 0 00 032646 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3564 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3565 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3566 032646 312 04 0 00 034345 CAME 4,[123456,,701034] ;PASS IF C(AC)=123456,,701034 3567 STOP^ 3568 032647 254 04 0 00 032650 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3569 032650 324 00 0 00 032651 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3570 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3571 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3572 3573 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 64 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0093 3574 ;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRQCTION 3575 ;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO. 3576 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3577 ;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 3578 ;THE AC SHOULD BE 123454,,701234. 3579 3580 032651 200 03 0 00 034332 C71300: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3581 032652 625 03 0 00 000003 TLZA 3,3 ;*TLZA SHOULD SKIP AND 3582 ;PLACE 123454,,701234 INTO THE AC 3583 STOP^ 3584 032653 254 04 0 00 032654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3585 032654 324 00 0 00 032655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3586 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3587 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3588 032655 312 03 0 00 034346 CAME 3,[123454,,701234] ;PASS IF C(AC)=123454,,701234 3589 STOP^ 3590 032656 254 04 0 00 032657 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3591 032657 324 00 0 00 032660 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3592 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3593 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3594 3595 ;********** 3596 3597 ;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3598 ;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO. 3599 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3600 ;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 3601 ;THE AC SHOULD BE 123456,,701234. 3602 3603 032660 200 02 0 00 034332 C71310: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3604 032661 625 02 0 00 000300 TLZA 2,300 ;*TLZA SHOULD SKIP AND 3605 ;PLACE 123456,,701234 INTO THE AC 3606 STOP^ 3607 032662 254 04 0 00 032663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3608 032663 324 00 0 00 032664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3609 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3610 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3611 032664 312 02 0 00 034332 CAME 2,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3612 STOP^ 3613 032665 254 04 0 00 032666 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3614 032666 324 00 0 00 032667 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3615 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3616 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3617 3618 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 65 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0094 3619 ;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3620 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 3621 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3622 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3623 ;HENCE, TRZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 3624 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701034. 3625 3626 032667 200 01 0 00 034332 C71400: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3627 032670 626 01 0 00 000300 TRZN 1,300 ;*TRZN SHOULD SKIP AND 3628 ;PLACE 123456,,701034 INTO THE AC 3629 STOP^ 3630 032671 254 04 0 00 032672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3631 032672 324 00 0 00 032673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3632 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3633 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3634 032673 312 01 0 00 034345 CAME 1,[123456,,701034] ;PASS IF C(AC)=123456,,701034 3635 STOP^ 3636 032674 254 04 0 00 032675 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3637 032675 324 00 0 00 032676 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3638 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3639 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3640 3641 ;********** 3642 3643 ;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3644 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 3645 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3646 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3647 ;HENCE, TRZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 3648 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701234. 3649 3650 032676 200 00 0 00 034332 C71410: MOVE 0,[123456,,701234] ;PRELOAD AC WATH 123456,,701234 3651 032677 626 00 0 00 000003 TRZN 0,3 ;*TRZN SHOULD PLACE 123456,,701234 INTO 3652 ;THE AC AND NOT SKIP 3653 032700 334 00 0 00 000000 SKIPA ;PASS IF TRZN DOES NOT SKIP 3654 STOP^ 3655 032701 254 04 0 00 032702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3656 032702 324 00 0 00 032703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3657 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3658 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3659 032703 312 00 0 00 034332 CAME 0,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3660 STOP^ 3661 032704 254 04 0 00 032705 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3662 032705 324 00 0 00 032706 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3663 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3664 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3665 3666 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 66 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0095 3667 ;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3668 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3669 ;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS. 3670 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 3671 ;HENCE, TLZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 3672 ;AND THE RESULT IN THE AC SHOULD BE 123454,,701234. 3673 3674 032706 200 17 0 00 034332 C71500: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3675 032707 627 17 0 00 000003 TLZN 17,3 ;TLZN SHOULD SKIP AND 3676 ;PLACE 123454,,701234 INTO THE AC 3677 STOP^ 3678 032710 254 04 0 00 032711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3679 032711 324 00 0 00 032712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3680 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3681 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3682 032712 312 17 0 00 034346 CAME 17,[123454,,701234] ;PASS IF C(AC)=123454,,701234 3683 STOP^ 3684 032713 254 04 0 00 032714 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3685 032714 324 00 0 00 032715 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3686 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3687 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3688 3689 ;********** 3690 3691 ;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3692 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 3693 ;THESE MASKED AC BIPS ARE THEN CHANGED TO ZEROS. 3694 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 3695 ;HENCE, TLZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 3696 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701234. 3697 3698 032715 200 16 0 00 034332 C71510: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3699 032716 627 16 0 00 000300 TLZN 16,300 ;*TLZN SHOULD PLACE 123456,,701234 INTO 3700 ;THE AC AND NOT SKIP 3701 032717 334 00 0 00 000000 SKIPA ;PASS IF TLZN DOES NOT SKIP 3702 STOP^ 3703 032720 254 04 0 00 032721 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3704 032721 324 00 0 00 032722 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3705 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3706 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3707 032722 312 16 0 00 034332 CAME 16,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3708 STOP^ 3709 032723 254 04 0 00 032724 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3710 032724 324 00 0 00 032725 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3711 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3712 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3713 3714 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 67 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0096 3715 ;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH 3716 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES 3717 ;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED. 3718 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321. 3719 ;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 123456,,701234. 3720 3721 032725 200 15 0 00 034332 C71600: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3722 032726 200 16 0 00 034342 MOVE 16,[076543,,654321] ;PRELOAD E WITH 076543,,654321 3723 032727 631 15 0 00 000016 TSZ 15,16 ;*TSZ SHOULD NOT SKIP AND 3724 ;PLACE 123456,,701234 INTO THE AC 3725 032730 334 00 0 00 000000 SKIPA ;PASS IF TSZ DID NOT SKIP 3726 STOP^ 3727 032731 254 04 0 00 032732 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3728 032732 324 00 0 00 032733 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3729 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3730 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3731 032733 312 15 0 00 034332 CAME 15,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3732 STOP^ 3733 032734 254 04 0 00 032735 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3734 032735 324 00 0 00 032736 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3735 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3736 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3737 032736 312 16 0 00 034342 CAME 16,[76543,,654321] ;PASS IF C(E) UNCHANCED 3738 STOP^ 3739 032737 254 04 0 00 032740 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3740 032740 324 00 0 00 032741 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3741 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3742 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3743 3744 ;********** 3745 3746 ;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH 3747 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES 3748 ;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED. 3749 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070. 3750 ;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 020406,,501210. 3751 3752 032741 200 14 0 00 034332 C71610: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3753 032742 200 15 0 00 034347 MOVE 15,[252525,,707070] ;PRELOAD E WITH 252525,,707070 3754 032743 631 14 0 00 000015 TSZ 14,15 ;*TSZ SHOULD NOT SKIP AND 3755 ;PLACE 020406,,501210 INTO THE AC 3756 032744 334 00 0 00 000000 SKIPA ;PASS IF TSZ DID NOT SKIP 3757 STOP^ 3758 032745 254 04 0 00 032746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3759 032746 324 00 0 00 032747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3760 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3761 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3762 032747 312 14 0 00 034350 CAME 14,[020406,,501210] ;PASS IF C(AC)=020406,,501210 3763 STOP^ 3764 032750 254 04 0 00 032751 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3765 032751 324 00 0 00 032752 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3766 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3767 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3768 032752 312 15 0 00 034347 CAME 15,[252525,,707070] ;PASS IF C(E) UNCHANGED 3769 STOP^ DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 67-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0097 3770 032753 254 04 0 00 032754 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3771 032754 324 00 0 00 032755 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3774 3775 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 68 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0098 3776 ;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3777 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 3778 ;C(E). 3779 ;AC BITS ARE THEN CHANGED TO ZERO. 3780 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543. 3781 ;HENCE, TDZE SHOULD SKIP AND THE RESULT IN THE AC 3782 ;SHOULD BE 123456,,701234. C(E) IS NOT AFFECTED. 3783 3784 032755 200 13 0 00 034332 C71700: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3785 032756 200 14 0 00 034351 MOVE 14,[654321,,076543] ;PRELOAD E WITH 654321,,076543 3786 032757 632 13 0 00 000014 TDZE 13,14 ;*TDZE SHOULD SKIP AND 3787 ;PLACE 123456,,701234 INTO THE AC 3788 STOP^ 3789 032760 254 04 0 00 032761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3790 032761 324 00 0 00 032762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3791 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3792 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3793 032762 312 13 0 00 034332 CAME 13,[123456,,701234] ;PASS IF C(AC)=123456,,701234] 3794 STOP^ 3795 032763 254 04 0 00 032764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3796 032764 324 00 0 00 032765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3797 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3798 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3799 032765 312 14 0 00 034351 CAME 14,[654321,,076543] ;PASS IF C(E) UNCHANGED 3800 STOP^ 3801 032766 254 04 0 00 032767 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3802 032767 324 00 0 00 032770 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3803 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3804 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3805 3806 ;********** 3807 3808 ;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3809 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 3810 ;C(E) ARE ZERO. THESE MASKED 3811 ;AC BITS ARE THEN CHANGED TO ZERO. 3812 ;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 754321,,076543 3813 ;HENCE, TDZE SHOULD NOT SKIP AND THE RESULT IN AC 3814 ;SHOULD BE 023456,,701234 C(E) IS NOT AFFECTED 3815 3816 032770 200 12 0 00 034332 C71710: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3817 032771 200 13 0 00 034352 MOVE 13,[754321,,076543] ;PRELOAD E WITH 754321,,076543 3818 032772 632 12 0 00 000013 TDZE 12,13 ;*TDZE SHOULD NOT SKIP AND 3819 ;PLACE 023456,,701234 INTO THE AC 3820 032773 334 00 0 00 000000 SKIPA ;PASS IF TDZE DOES NOT SKIP 3821 STOP^ 3822 032774 254 04 0 00 032775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3823 032775 324 00 0 00 032776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3824 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3825 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3826 032776 312 12 0 00 034353 CAME 12,[023456,,701234] ;PASS IF C(AC)= 023456,,701234 3827 STOP^ 3828 032777 254 04 0 00 033000 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3829 033000 324 00 0 00 033001 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3830 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 68-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0099 3831 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3832 033001 312 13 0 00 034352 CAME 13,[754321,,076543] ;PASS IF C(E) UNCHANGED 3833 STOP^ 3834 033002 254 04 0 00 033003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3835 033003 324 00 0 00 033004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3837 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3838 3839 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 69 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0100 3840 ;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3841 ;IF AND ONLY IF ALL BITS IN THE AC CORRECPONDING TO 1'S IN 3842 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 3843 ;AC BITS ARE THEN CHANGED TO ZERO. 3844 ;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,654321 3845 ;HENCE, TSZE SHOULD SKIP AND THE RESULT IN AC 3846 ;SHOULD BE 123456,,701234 C(E) IS NOT AFFECTED 3847 3848 033004 200 11 0 00 034332 C72000: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3849 033005 200 12 0 00 034342 MOVE 12,[076543,,654321] ;PRELOAD E WITH 076543,,654321 3850 033006 633 11 0 00 000012 TSZE 11,12 ;*TSZE SHOULD SKIP AND 3851 ;PLACE 123456,,701234 INTO THE AC 3852 STOP^ 3853 033007 254 04 0 00 033010 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3854 033010 324 00 0 00 033011 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3855 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3856 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3857 033011 312 11 0 00 034332 CAME 11,[123456,,701234] ;PASS IF C(AC)= 123456,,701234 3858 STOP^ 3859 033012 254 04 0 00 033013 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3860 033013 324 00 0 00 033014 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3861 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3862 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3863 033014 312 12 0 00 034342 CAME 12,[76543,,654321] ;PASS IF C(E) UNCHANGED 3864 STOP^ 3865 033015 254 04 0 00 033016 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3866 033016 324 00 0 00 033017 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3867 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3868 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3869 3870 ;********** 3871 3872 ;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 3873 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 3874 ;C (E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 3875 ;AC BITS ARE THEN CHANGED TO ZERO 3876 ;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,657321 3877 ;HENCE, TSZE SHOULD NOT SKIP AND THE RESULT IN AC 3878 ;SHOULD BE 120456,,701234 C(E) IS NOT AFFECTED 3879 3880 033017 200 10 0 00 034332 C72010: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3881 033020 200 11 0 00 034354 MOVE 11,[76543,,657321] ;PRELOAD E WITH 076543,,654321 3882 033021 633 10 0 00 000011 TSZE 10,11 ;*TSZE SHOULD NOT SKIP AND 3883 ;PLACE 120456,,701234 INTO THE AC 3884 033022 334 00 0 00 000000 SKIPA ;PASS IF TSZE DID NOT SKIP 3885 STOP^ 3886 033023 254 04 0 00 033024 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3887 033024 324 00 0 00 033025 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3888 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3889 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3890 033025 312 10 0 00 034355 CAME 10,[120456,,701234] ;PASS IF C(AC)= 120456,,701234 3891 STOP^ 3892 033026 254 04 0 00 033027 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3893 033027 324 00 0 00 033030 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3894 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 69-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0101 3895 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3896 033030 312 11 0 00 034354 CAME 11,[76543,,657321] ;PASS IF C(E) UNCHANGED 3897 STOP^ 3898 033031 254 04 0 00 033032 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3899 033032 324 00 0 00 033033 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3900 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3901 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3902 3903 3904 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 70 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0102 3905 ;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH 3906 ;CORRESPOND TO 1'S IN C(E) AND ALWAYS 3907 ;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED 3908 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543 3909 ;HENCE, TD2A SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234 3910 3911 033033 200 07 0 00 034332 C72100: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3912 033034 200 10 0 00 034351 MOVE 10,[654321,,076543] ;PRELOAD E WITH 654321,,076543 3913 033035 634 07 0 00 000010 TDZA 7,10 ;*TDZA SHOULD SKIP AND 3914 ;PLACE 123456,,701234 INTO THE AC 3915 STOP^ 3916 033036 254 04 0 00 033037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3917 033037 324 00 0 00 033040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3918 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3919 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3920 033040 312 07 0 00 034332 CAME 7,[123456,,701234] ;PASS IF C(AC)= 123456,,701234 3921 STOP^ 3922 033041 254 04 0 00 033042 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3923 033042 324 00 0 00 033043 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3924 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3925 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3926 033043 312 10 0 00 034351 CAME 10,[654321,,076543] ;PASS IF C(AC)=123456,,701234 3927 STOP^ 3928 033044 254 04 0 00 033045 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3929 033045 324 00 0 00 033046 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3930 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3931 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3932 033046 312 10 0 00 034351 CAME 10,[654321,,076543] ;PASS IF C(E) UNCHANGED 3933 STOP^ 3934 033047 254 04 0 00 033050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3935 033050 324 00 0 00 033051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3936 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3937 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3938 3939 ;********** 3940 3941 ;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH 3942 ;CORRESPOND TO 1'S IN C(E) AND ALWAYS 3943 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 3944 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070 3945 ;HENCE, TDZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 121052,,000204 3946 3947 033051 200 06 0 00 034332 C72110: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3948 033052 200 07 0 00 034347 MOVE 7,[252525,,707070] ;PRELOAD E WITH 252525,,707070 3949 033053 634 06 0 00 000007 TDZA 6,7 ;*TDZA SHOULD SKIP AND 3950 ;PLACE 121052,,000204 INTO THE AC 3951 STOP^ 3952 033054 254 04 0 00 033055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3953 033055 324 00 0 00 033056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3956 033056 312 06 0 00 034356 CAME 6,[121052,,000204] ;PASS IF C(AC)=121052,,000204 3957 STOP^ 3958 033057 254 04 0 00 033060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3959 033060 324 00 0 00 033061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 70-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0103 3960 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3961 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3962 033061 312 07 0 00 034347 CAME 7,[252525,,707070] ;PASS IF C(E) UNCHANGED 3963 STOP^ 3964 033062 254 04 0 00 033063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3965 033063 324 00 0 00 033064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3966 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3967 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3968 3969 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 71 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0104 3970 ;THIS TEST VERIFIES TH`T TSZA CLEARS AHL BITS OF THE AC WHICH 3971 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 3972 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED. 3973 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 3974 ;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234 3975 3976 033064 200 05 0 00 034332 C72200: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 3977 033065 200 06 0 00 034342 MOVE 6,[076543,,654321] ;PRELOAD E WITH 076543,,654321 3978 033066 635 05 0 00 000006 TSZA 5,6 ;*TSZA SHOULD SKIP AND 3979 ;PLACE 123456,,701234 INTO THE AC 3980 STOP^ 3981 033067 254 04 0 00 033070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3982 033070 324 00 0 00 033071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3983 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3984 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3985 033071 312 05 0 00 034332 CAME 5,[123456,,701234] ;PASS IF C(AC)=123456,,701234 3986 STOP^ 3987 033072 254 04 0 00 033073 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3988 033073 324 00 0 00 033074 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3989 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3990 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3991 033074 312 06 0 00 034342 CAME 6,[076543,,654321] ;PASS IF C(E) UNCHANGED 3992 STOP^ 3993 033075 254 04 0 00 033076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 3994 033076 324 00 0 00 033077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 3995 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 3996 ;IN THE SUBTEST) TO LOOP ON ERROR^ 3997 3998 ;********** 3999 4000 ;THIS TEST VERIFIES THAT TSZA CLEARS ALL BITS OF THE AC WHICH 4001 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 4002 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED. 4003 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456 4004 ;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0 4005 4006 033077 200 04 0 00 034332 C72210: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4007 033100 200 05 0 00 034357 MOVE 5,[701234,,123456] ;PRELOAD E WITH 701234,,123456 4008 033101 635 04 0 00 000005 TSZA 4,5 ;*TSZA SHOULD SKIP AND 4009 ;PLACE 0 INTO THE AC 4010 STOP^ 4011 033102 254 04 0 00 033103 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4012 033103 324 00 0 00 033104 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4013 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4014 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4015 033104 312 04 0 00 034325 CAME 4,[0] ;PASS IF C(AC)=0 4016 STOP^ 4017 033105 254 04 0 00 033106 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4018 033106 324 00 0 00 033107 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4019 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4020 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4021 033107 312 05 0 00 034357 CAME 5,[701234,,123456] ;PASS IF C(E) UNCHANGED 4022 SToP^ 4023 033110 254 04 0 00 033111 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4024 033111 324 00 0 00 033112 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 71-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0105 4025 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4026 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4027 4028 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 72 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0106 4029 ;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4030 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4031 ;C(E) ARE ZERO. THESE MASKED 4032 ;AC BITS ARE THEN CHANGEDTO ZERO. 4033 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547 4034 ;HENCE, TDZN SHOULD SKIP AND THE RESULT IN THE AC 4035 ;SHOULD BE 123456(,701230. C(E) IS NOT AFFECTED. 4036 4037 033112 200 03 0 00 034332 C72300: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4038 033113 200 04 0 00 034360 MOVE 4,[654321,,76547] ;PRELOAD E WITH 654321,,076547 4039 033114 636 03 0 00 000004 TDZN 3,4 ;*TDZN SHoULD SKIP AND 4040 ;PLACE 123456,,701230 INTO THE AC 4041 STOP^ 4042 033115 254 04 0 00 033116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4043 033116 324 00 0 00 033117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4046 033117 312 03 0 00 034361 CAME 3,[123456,,701230] ;PASS IF C(AC)=123456,,701230 4047 STOP^ 4048 033120 254 04 0 00 033121 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4049 033121 324 00 0 00 033122 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4050 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4051 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4052 033122 312 04 0 00 034360 CAME 4,[654321,,076547] ;PASS IF C(E) UNCHANGED 4053 STOP^ 4054 033123 254 04 0 00 033124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4055 033124 324 00 0 00 033125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4056 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4057 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4058 4059 ;********** 4060 4061 ;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4062 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4063 ;C(E) ARE ZERO. THESE MASKED 4064 ;AC BITS ARE THEN CHANGED TO ZERO. 4065 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 4066 ;HENCE, TDZN SHOULD NOT SKIP AND THE RESULT IN THE AC 4067 ;SHOULD BE 123456,,701234. C(E) IS NOT AFFECTED. 4068 4069 033125 200 02 0 00 034332 C72310: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4070 033126 200 03 0 00 034351 MOVE 3,[654321,,076543] ;PRELOAD E WITH 654321,,076543 4071 033127 636 02 0 00 000003 TDZN 2,3 ;*TDZN SHOULD NOT SKIP AND 4072 ;PLACE 123456,,701234 INTO THE AC 4073 033130 334 00 0 00 000000 SKIPA ;PASS IF TDZN DOES NOT SKIP 4074 STOP^ 4075 033131 254 04 0 00 033132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4076 033132 324 00 0 00 033133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4077 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4078 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4079 033133 312 02 0 00 034332 CAME 2,[123456,,701234] ;PASS IF C(AC)=123456,,701234 4080 STOP^ 4081 033134 254 04 0 00 033135 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4082 033135 324 00 0 00 033136 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 72-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0107 4084 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4085 033136 312 03 0 00 034351 CAME 3,[654321,,076543] ;PASS IF C(E) UNCHANGED 4086 STOP^ 4087 033137 254 04 0 00 033140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4088 033140 324 00 0 00 033141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4089 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4090 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4091 4092 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 73 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0108 4093 ;THIS TEST VERIFIES THaT TSZN SKIPS THE NEXT SEQQENPIAL INSTRUCTION 4094 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4095 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4096 ;AC BITS ARE THEN CHANGED TO ZERO. 4097 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321. 4098 ;HENCE, TSZN SHOULD SKIP AND THE RESULT IN THE AC 4099 ;SHOULD BE 123456,,700234. C(E) IS NOT AFFECTED. 4100 4101 033141 200 01 0 00 034332 C72400: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4102 033142 200 02 0 00 034362 MOVE 2,[077543,,654321] ;PRELOAD E WITH 077543,,654321 4103 033143 637 01 0 00 000002 TSZN 1,2 ;*TSZN SHOULD SKIP AND 4104 ;PLACE 123456,,700234 INTO THE AC 4105 STOP^ 4106 033144 254 04 0 00 033145 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4107 033145 324 00 0 00 033146 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4108 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4109 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4110 033146 312 01 0 00 034363 CAME 1,[123456,,700234] ;PASS IF C(AC)=123456,,700234 4111 STOP^ 4112 033147 254 04 0 00 033150 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4113 033150 324 00 0 00 033151 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4114 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4115 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4116 033151 312 02 0 00 034362 CAME 2,[77543,,654321] ;PASS IF C(E) UNCHANGED 4117 STOP^ 4118 033152 254 04 0 00 033153 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4119 033153 324 00 0 00 033154 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4120 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4121 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4122 4123 ;********** 4124 4125 ;THIS TEST VERIFIES THAT TSZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4126 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4127 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4128 ;AC BITS ARE THEN CHANGED TO ZERO. 4129 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321.- 4130 ;HENCE, TSZN SHOULD NOT SKIP AND THE RESULT IN THE AC 4131 ;SHOULD BE 123456,,701234. C(E) IS NOT AFFECTED. 4132 4133 033154 200 00 0 00 034332 C72410: MOVE 0,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4134 033155 200 01 0 00 034342 MOVE 1,[76543,,654321] ;PRElOAD E WITH 076543,,654321 4135 033156 637 00 0 00 000001 TSZN 0,1 ;*TSZN SHOULD NOT SKIP AND 4136 ;PLACE 123456,,701234 INTO THE AC 4137 033157 334 00 0 00 000000 SKIPA ;PASS IF TSZN DOES NOT SKIP 4138 STOP^ 4139 033160 254 04 0 00 033161 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4140 033161 324 00 0 00 033162 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4141 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4142 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4143 033162 312 00 0 00 034332 CAME 0,[123456,,701234] ;PASS IF C(AC)=123456,,701234] 4144 STOP^ 4145 033163 254 04 0 00 033164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4146 033164 324 00 0 00 033165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4147 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 73-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0109 4148 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4149 033165 312 01 0 00 034342 CAME 1,[76543,,654321] ;PASS IF C(E) UNCHANGED 4150 STOP^ 4151 033166 254 04 0 00 033167 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4152 033167 324 00 0 00 033170 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4153 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4154 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4155 4156 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 74 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0110 4157 ;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH 4158 ;CORRESPOND TO 1'S IN E AND DOES NOT SKIP. 4159 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 4160 ;HENCE, THE RESULT IN THE AC SHOUHD BE 123456,,701237 4161 4162 033170 200 17 0 00 034332 C72500: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4163 033171 640 17 0 00 000003 TRC 17,3 ;*TRC SHOULD NOT SKIP AND 4164 ;PLACE 123456,,701237 INTO THE AC 4165 033172 334 00 0 00 000000 SKIPA ;PASS IF TRC DID NOT SKIP 4166 STOP^ 4167 033173 254 04 0 00 033174 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4168 033174 324 00 0 00 033175 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4169 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4170 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4171 033175 312 17 0 00 034364 CAME 17,[123456,,701237] ;PASS IF C(AC)=123456,,701237 4172 STOP^ 4173 033176 254 04 0 00 033177 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4174 033177 324 00 0 00 033200 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4175 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4176 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4177 4178 ;********** 4179 4180 ;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH 4181 ;CORRESPOND TO 1'S IN E AND DOES NOT SKIP. 4182 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 4183 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701134 4184 4185 033200 200 16 0 00 034332 C72510: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4186 033201 640 16 0 00 000300 TRC 16,300 ;*TRC SHOULD NOT SKIP AND 4187 ;PLACE 123456,,701134 INTO THE AC 4188 033202 334 00 0 00 000000 SKIPA ;PASS IF TRC DID NOT SKIP 4189 STOP^ 4190 033203 254 04 0 00 033204 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4191 033204 324 00 0 00 033205 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4192 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4193 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4194 033205 312 16 0 00 034365 CAME 16,[123456,,701134] ;PASS IF C(AC)=123456,,701134 4195 STOP^ 4196 033206 254 04 0 00 033207 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4197 033207 324 00 0 00 033210 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4198 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4199 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4200 4201 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 75 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0111 4202 ;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH 4203 ;CORRESPOND TO 1'S IN E AND DOES NOT SKIP. 4204 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 4205 ;HENCE, ThE RESULT IN THE AC SHOULD BE 123756,,701234. 4206 4207 033210 200 15 0 00 034332 C72600: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4208 033211 641 15 0 00 000300 TLC 15,300 ;*TLC SHOULD NOT SKIP AND 4209 ;PLACE 123756,,701234 INTO THE AC 4210 033212 334 00 0 00 000000 SKIPA ;PASS IF TLC DID NOT SKIP 4211 STOP^ 4212 033213 254 04 0 00 033214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4213 033214 324 00 0 00 033215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4214 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4215 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4216 033215 312 15 0 00 034366 CAME 15,[123756,,701234] ;PASS IF A(AC)=123756,,701234 4217 STOP^ 4218 033216 254 04 0 00 033217 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4219 033217 324 00 0 00 033220 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4220 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4221 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4222 4223 ;********** 4224 4225 ;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH 4226 ;CORRESPOND TO 1'S IN E AND DOES NOT SKIP. 4227 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 4228 ;HENCE, THE RESULT IN THE AC SHOULD BE 123455,,701234. 4229 4230 033220 200 14 0 00 034332 C72610: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4231 033221 641 14 0 00 000003 TLC 14,3 ;*TLC SHOULD NOT SKIP AND 4232 ;PLACE 123455,,701234 INTO THE AC 4233 033222 334 00 0 00 000000 SKIPA ;PASS IF TLC DID NOT SKIP 4234 STOP^ 4235 033223 254 04 0 00 033224 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4236 033224 324 00 0 00 033225 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4237 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4238 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4239 033225 312 14 0 00 034367 CAME 14,[123455,,701234] ;PASS IF C(AC)=123455,,701234 4240 STOP^ 4241 033226 254 04 0 00 033227 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4242 033227 324 00 0 00 033230 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4244 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4245 4246 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 76 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0112 4247 ;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4248 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 4249 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED. 4250 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 4251 ;HENCE, TRCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 4252 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701237. 4253 4254 033230 200 13 0 00 034332 C72700: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4255 033231 642 13 0 00 000003 TRCE 13,3 ;*TRCE SHOULD SKIP AND 4256 ;PLACE 123456,,701237 INTO ThE AC 4257 STOP^ 4258 033232 254 04 0 00 033233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4259 033233 324 00 0 00 033234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4260 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4261 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4262 033234 312 13 0 00 034364 CAME 13,[123456,,701237] ;PASS IF C(AC)=123456,,701237 4263 STOP^ 4264 033235 254 04 0 00 033236 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4265 033236 324 00 0 00 033237 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4266 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4267 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4268 4269 ;********** 4270 4271 ;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4272 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 4273 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED. 4274 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 4275 ;HENCE, TRCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 4276 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701134 4277 4278 033237 200 12 0 00 034332 C72710: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4279 033240 642 12 0 00 000300 TRCE 12,300 ;*TRCE SHOULD NOT SKIP AND 4280 ;PLACE 123456,,701134 INTO THE AC 4281 033241 334 00 0 00 000000 SKIPA ;PASS IF TRCE DID NOT SKIP 4282 STOP^ 4283 033242 254 04 0 00 033243 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4284 033243 324 00 0 00 033244 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4285 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4286 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4287 033244 312 12 0 00 034365 CAME 12,[123456,,701134] ;PASS IF C(AC)=123456,,701134 4288 STOP^ 4289 033245 254 04 0 00 033246 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4290 033246 324 00 0 00 033247 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4291 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4292 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4293 4294 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 77 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0113 4295 ;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4296 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 4297 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED. 4298 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300. 4299 ;HENCE, TLCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 4300 ;AND THE RESULT IN THE AC SHOULD BE 123756,,701234. 4301 4302 033247 200 11 0 00 034332 C73000: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4303 033250 643 11 0 00 000300 TLCE 11,300 ;*TLCE SHOULD SKIP AND 4304 ;PLACE 123756,,701234 INTO THE AC 4305 STOP^ 4306 033251 254 04 0 00 033252 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4307 033252 324 00 0 00 033253 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4308 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4309 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4310 033253 312 11 0 00 034366 CAME 11,[123756,,701234] ;PASS IF C(AC)=123756,,701234 4311 STOP^ 4312 033254 254 04 0 00 033255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4313 033255 324 00 0 00 033256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4315 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4316 4317 ;********** 4318 4319 ;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4320 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 4321 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED. 4322 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 4323 ;HENCE, TLCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 4324 ;AND THE RESULT IN THE AC SHOULD BE 123455,,701234. 4325 4326 033256 200 10 0 00 034332 C73010: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4327 033257 643 10 0 00 000003 TLCE 10,3 ;*TLCE SHOULD NOT SKIP AND 4328 ;PLACE 123455,,701234 INTO THE AC 4329 033260 334 00 0 00 000000 SKIPA ;PASS IF TLCE DID NOT SKIP 4330 STOP^ 4331 033261 254 04 0 00 033262 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4332 033262 324 00 0 00 033263 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4333 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4334 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4335 033263 312 10 0 00 034367 CAME 10,[123455,,701234] ;PASS IF C(AC)=123455,,701234] 4336 STOP^ 4337 033264 254 04 0 00 033265 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4338 033265 324 00 0 00 033266 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4339 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4340 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4341 4342 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 78 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0114 4343 ;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4344 ;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E. 4345 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3. 4346 ;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 4347 ;THE AC SHOULD BE 123456,,701237. 4348 4349 033266 200 07 0 00 034332 C73100: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4350 033267 644 07 0 00 000003 TRCA 7,3 ;*TRCA SHOULD SKIP AND 4351 ;PLACE 123456,,701237 INTO THE AC 4352 STOP^ 4353 033270 254 04 0 00 033271 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4354 033271 324 00 0 00 033272 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4355 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4356 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4357 033272 312 07 0 00 034364 CAME 7,[123456,,701237] ;PASS IF C(AC)=123456,,701237 4358 STOP^ 4359 033273 254 04 0 00 033274 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4360 033274 324 00 0 00 033275 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4363 4364 ;********** 4365 4366 ;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4367 ;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E 4368 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 4369 ;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 4370 ;THE AC SHOULD BE 123456,,701134 4371 4372 033275 200 06 0 00 034332 C73110: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4373 033276 644 06 0 00 000300 TRCA 6,300 ;*TRCA SHOULD SKIP AND 4374 ;PLACE 123456,,701134 INTO THE AC 4375 STOP^ 4376 033277 254 04 0 00 033300 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4377 033300 324 00 0 00 033301 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4378 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4379 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4380 033301 312 06 0 00 034365 CAME 6,[123456,,701134] ;PASS IF C(AC)=123456,,701134 4381 STOP^ 4382 033302 254 04 0 00 033303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4383 033303 324 00 0 00 033304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4386 4387 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 79 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0115 4388 ;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4389 ;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E 4390 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 4391 ;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 4392 ;THE AC SHOULD 123456,,701234 4393 4394 033304 200 05 0 00 034332 C73200: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4395 033305 645 05 0 00 000003 TLCA 5,3 ;*TLCA SHOULD SKIP AND 4396 ;PLACE 12345,,701234 INTO THE AC 4397 STOP^ 4398 033306 254 04 0 00 033307 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4399 033307 324 00 0 00 033310 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4400 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4401 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4402 033310 312 05 0 00 034367 CAME 5,[123455,,701234] ;PASS IF C(AC)=123455,,701234 4403 STOP^ 4404 033311 254 04 0 00 033312 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4405 033312 324 00 0 00 033313 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4406 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4407 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4408 4409 ;********** 4410 4411 ;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4412 ;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E 4413 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 4414 ;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 4415 ;THE AC SHOULD BE 123756,,701234 4416 4417 033313 200 04 0 00 034332 C73210: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4418 033314 645 04 0 00 000300 TLCA 4,300 ;*TLCA SHOULD SKIP AND 4419 ;PLACE 123756,,701234 INTO THE AC 4420 STOP^ 4421 033315 254 04 0 00 033316 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4422 033316 324 00 0 00 033317 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4423 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4424 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4425 033317 312 04 0 00 034366 CAME 4,[123756,,701234] ;PASS IF C(AC)=123756,,701234 4426 STOP^ 4427 033320 254 04 0 00 033321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4428 033321 324 00 0 00 033322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4431 4432 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 80 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0116 4433 ;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4434 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 4435 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED 4436 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 4437 ;HENCE, TRCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 4438 ;AND RESULT IN THE AC SHOULD BE 123456,,701134 4439 4440 033322 200 03 0 00 034332 C73300: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4441 033323 646 03 0 00 000300 TRCN 3,300 ;*SHOULD SKIP AND 4442 ;PLACE 123456,,701134 INTO THE AC 4443 STOP^ 4444 033324 254 04 0 00 033325 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4445 033325 324 00 0 00 033326 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4446 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4447 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4448 033326 312 03 0 00 034365 CAME 3,[123456,,701134] ;PASS IF C(AC)=123456,,701134 4449 STOP^ 4450 033327 254 04 0 00 033330 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4451 033330 324 00 0 00 033331 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4452 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4453 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4454 4455 ;********** 4456 4457 ;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4458 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 4459 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED 4460 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 4461 ;HENCE, TRCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 4462 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701237 4463 4464 033331 200 02 0 00 034332 C73310: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4465 033332 646 02 0 00 000003 TRCN 2,3 ;*TRCN SHOULD NOT SKIP AND 4466 ;PLACE 123456,,701237 INTO THE AC 4467 033333 334 00 0 00 000000 SKIPA ;PASS IF TRCN DID NOT SKIP 4468 STOP^ 4469 033334 254 04 0 00 033335 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4470 033335 324 00 0 00 033336 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4471 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4472 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4473 033336 312 02 0 00 034364 CAME 2,[123456,,701237] ;PASS IF C(AC)=123456,,701237 4474 STOP^ 4475 033337 254 04 0 00 033340 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4476 033340 324 00 0 00 033341 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4477 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4478 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4479 4480 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 81 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0117 4481 ;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4482 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 4483 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED 4484 ;IN THE CASE, C(AC)=123456,,701234 AND E=3 4485 ;HENCE, TLCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 4486 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701234 4487 4488 033341 200 01 0 00 034332 C73400: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4489 033342 647 01 0 00 000003 TLCN 1,3 ;*TLCN SHOULD SKIP AND 4490 ;PLACE 123455,701234 INTO THE AC 4491 STOP^ 4492 033343 254 04 0 00 033344 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4493 033344 324 00 0 00 033345 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4494 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4495 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4496 033345 312 01 0 00 034367 CAME 1,[123455,,701234] ;PASS IF C(AC)=123455,,701234 4497 STOP^ 4498 033346 254 04 0 00 033347 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4499 033347 324 00 0 00 033350 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4500 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4501 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4502 4503 ;********** 4504 4505 ;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4506 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZER. 4507 ;THESE MASKED AC BITS ARE THEN COMPLEMENTED 4508 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 4509 ;HENCE, TLCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 4510 ;AND THE RESULT IN THE AC SHOULD BE 123756,,701234 4511 4512 033350 200 00 0 00 034332 C73410: MOVE 0,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4513 033351 647 00 0 00 000300 TLCN 0,300 ;*TLCN SHOULD NOT SKIP AND 4514 ;PLACE 123756,,701234 INTO THE AC 4515 033352 334 00 0 00 000000 SKIPA ;PASS IF TLCN DID NOT SKIP 4516 STOP^ 4517 033353 254 04 0 00 033354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4518 033354 324 00 0 00 033355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4519 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4520 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4521 033355 312 00 0 00 034366 CAME 0,[123756,,701234] ;PASS IF C(AC)=123756,,701234 4522 STOP^ 4523 033356 254 04 0 00 033357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4524 033357 324 00 0 00 033360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4527 4528 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 82 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0118 4529 ;THIS TEST VERIFIES THAT TSL COMPLEMENTS ALL BITS OF THE AC WHICH 4530 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES 4531 ;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 4532 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)6543,,654321 4533 ;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE -1,,-1 4534 4535 033360 200 17 0 00 034332 C73500: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4536 033361 200 00 0 00 034342 MOVE 0,[076543,,654321] ;PRELOAD E WITH 076543,,654321 4537 033362 651 17 0 00 000000 TSC 17,0 ;*TSC SHOULD NOT SKIP AND 4538 ;PLACE -1,,-1 INTO THE AC 4539 033363 334 00 0 00 000000 SKIPA ;PASS IF TSC DOES NOT SKIP 4540 STOP^ 4541 033364 254 04 0 00 033365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4542 033365 324 00 0 00 033366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4543 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4544 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4545 033366 312 17 0 00 034217 CAME 17,[-1] ;PASS IF C(AC)=-1,,-1 4546 STOP^ 4547 033367 254 04 0 00 033370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4548 033370 324 00 0 00 033371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4551 033371 312 00 0 00 034342 CAME 0,[076543,,654321] ;PASS IF C(E) UNCHANGED 4552 STOP^ 4553 033372 254 04 0 00 033373 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4554 033373 324 00 0 00 033374 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4557 4558 ;********** 4559 4560 ;THIS TEST VERIFIES THAT TSC COMPLEMENTS ALL BITS OF THE AC WHICH 4561 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES 4562 ;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 4563 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070 4564 ;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE 624426,,553711 4565 4566 033374 200 16 0 00 034332 C73510: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4567 033375 200 17 0 00 034347 MOVE 17,[252525,,707070] ;PRELOAD E WITH 252525,,707070 4568 033376 651 16 0 00 000017 TSC 16,17 ;*TSC SHOULD NOT SKIP AND 4569 ;PLACE 624426,,553711 INTO THE AC 4570 033377 334 00 0 00 000000 SKIPA ;PASS IF TSC DOES NOT SKIP 4571 STOP^ 4572 033400 254 04 0 00 033401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4573 033401 324 00 0 00 033402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4574 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4575 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4576 033402 312 16 0 00 034370 CAME 16,[624426,,553711] ;PASS IF C(AC)=624426,,553711 4577 STOP^ 4578 033403 254 04 0 00 033404 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4579 033404 324 00 0 00 033405 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4580 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4581 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4582 033405 312 17 0 00 034347 CAME 17,[252525,,707070] ;PASS IF C(E) UNCHANGED 4583 STOP^ DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 82-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0119 4584 033406 254 04 0 00 033407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4585 033407 324 00 0 00 033410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4586 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4587 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4588 4589 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 83 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0120 4590 ;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4591 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4592 ;C(E) ARE ZERO. THESE MASKED 4593 ;AC BITS ARE THEN COMPLEMENTED 4594 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 4595 ;HENCE, TDCE SHOULD SKIP AND THE RESULT IN AC 4596 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 4597 4598 033410 200 15 0 00 034332 C73600: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4599 033411 200 16 0 00 034351 MOVE 16,[654321,,076543] ;PRELOAD E WITH 654321,,076543 4600 033412 652 15 0 00 000016 TDCE 15,16 ;*TDCE SHOULD SKIP AND 4601 ;PLACE -1,,-1 INTO THE AC 4602 STOP^ 4603 033413 254 04 0 00 033414 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4604 033414 324 00 0 00 033415 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4605 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4606 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4607 033415 312 15 0 00 034217 CAME 15,[-1] ;PASS IF C(AC)=-1,,-1 4608 STOP^ 4609 033416 254 04 0 00 033417 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4610 033417 324 00 0 00 033420 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4611 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4612 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4613 033420 312 16 0 00 034351 CAME 16,[654321,,076543] ;PASS IF C(E) UNCHANGED 4614 STOP^ 4615 033421 254 04 0 00 033422 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4616 033422 324 00 0 00 033423 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4617 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4618 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4619 4620 ;********** 4621 4622 ;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4623 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4624 ;C(E) ARE ZERO. THESE MASKED 4625 ;AC BITS ARE THEN COMPLEMENTED 4626 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E) 754321,,076543 4627 ;HENCE, TDCE SHOULD NOT SKIP AND THE RESULT IN AC 4628 ;SHOULD BE 677777,,-1 C(E) IS NOT AFFECTED. 4629 4630 033423 200 14 0 00 034332 C73610: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4631 033424 200 15 0 00 034352 MOVE 15,[754321,,076543] ;PRELOAD E WITH 754321,,076543 4632 033425 652 14 0 00 000015 TDCE 14,15 ;*TDCE SHOULD NOT SKIP AND 4633 ;PLACE 677777,,-1 INTO THE AC 4634 033426 334 00 0 00 000000 SKIPA ;PASS IF TDCE DOES NOT SKIP 4635 STOP^ 4636 033427 254 04 0 00 033430 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4637 033430 324 00 0 00 033431 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4638 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4639 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4640 033431 312 14 0 00 034371 CAME 14,[677777,,-1] ;PASS IF C(AC)=677777,,-1 4641 STOP^ 4642 033432 254 04 0 00 033433 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4643 033433 324 00 0 00 033434 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4644 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 83-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0121 4645 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4646 033434 312 15 0 00 034352 CAME 15,[754321,,076543] ;PASS IF C(E) UNCHANGED 4647 STOP^ 4648 033435 254 04 0 00 033436 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4649 033436 324 00 0 00 033437 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4650 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4651 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4652 4653 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 84 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0122 4654 ;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4655 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4656 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4657 ;AC BITS ARE THEN COMPLEMENTED 4658 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 4659 ;HENCE, TSCE SHOULD SKIP AND THE RESULT IN THE AC 4660 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 4661 4662 033437 200 13 0 00 034332 C73700: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4663 033440 200 14 0 00 034342 MOVE 14,[76543,,654321] ;PRELOAD E WITH 076543,,654321 4664 033441 653 13 0 00 000014 TSCE 13,14 ;*TSCE SHOULD SKIP AND 4665 ;PLACE -1,,-1 INTO THE AC 4666 STOP^ 4667 033442 254 04 0 00 033443 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4668 033443 324 00 0 00 033444 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4669 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4670 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4671 033444 312 13 0 00 034217 CAME 13,[-1] ;PASS IF C(E) UNCHANGED 4672 STOP^ 4673 033445 254 04 0 00 033446 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4674 033446 324 00 0 00 033447 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4675 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4676 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4677 4678 ;********** 4679 4680 ;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4681 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4682 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4683 ;AC BITS ARE THEN COMPLEMENTED 4684 ;IN THIS CASE, C(AC)=123456,701234 AND C(E)=076543,,657321 4685 ;HENCE, TSCE SHOULD NOT SKIP AND THE RESULT IN THE AC 4686 ;SHOULD BE 774777,,-1. C(E) IS NOT AFFECTED. 4687 4688 033447 200 12 0 00 034332 C73710: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4689 033450 200 13 0 00 034354 MOVE 13,[76543,,657321] ;PRELOAD E WITH 076543,,657321 4690 033451 653 12 0 00 000013 TSCE 12,13 ;*TSCE HOULD NOT SKIP AND 4691 ;PLACE 774777,,-1 INTO THE AC 4692 033452 334 00 0 00 000000 SKIPA ;PASS IF TSCE DOES NOT SKIP 4693 STOP^ 4694 033453 254 04 0 00 033454 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4695 033454 324 00 0 00 033455 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4696 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4697 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4698 033455 312 12 0 00 034372 CAME 12,[774777,,-1] ;PASS IF C(AC)=774777,,-1 4699 STOP^ 4700 033456 254 04 0 00 033457 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4701 033457 324 00 0 00 033460 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4702 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4703 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4704 033460 312 13 0 00 034354 CAME 13,[76543,,657321] ;PASS IF C(E) UNCHANGED 4705 STOP^ 4706 033461 254 04 0 00 033462 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4707 033462 324 00 0 00 033463 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4708 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 84-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0123 4709 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4710 4711 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 85 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0124 4712 ;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH 4713 ;CORRESPOND TO 1'S IN C(E) AND ALWAYS 4714 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 4715 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 4716 ;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1 4717 4718 033463 200 11 0 00 034332 C74000: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4719 033464 200 12 0 00 034351 MOVE 12,[654321,,076543] ;PRELOAD E WITH 654321,,076543 4720 033465 654 11 0 00 000012 TDCA 11,12 ;*TDCA SHOULD SKIP AND 4721 ;PLACE -1,,-1 INTO THE AC 4722 STOP^ 4723 033466 254 04 0 00 033467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4724 033467 324 00 0 00 033470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4725 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4726 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4727 033470 312 11 0 00 034217 CAME 11,[-1] ;PASS IF C(AC)=-1,,-1 4728 STOP^ 4729 033471 254 04 0 00 033472 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4730 033472 324 00 0 00 033473 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4731 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4732 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4733 033473 312 12 0 00 034351 CAME 12,[654321,,76543] ;PASS IF C(E) UNCHANGED 4734 STOP^ 4735 033474 254 04 0 00 033475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4736 033475 324 00 0 00 033476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4737 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4738 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4739 4740 ;********** 4741 4742 ;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH 4743 ;CORRESPOND TO 1'S IN C(E) AND SLWAYS 4744 ;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED 4745 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070 4746 ;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 371173,,006244 4747 4748 033476 200 10 0 00 034332 C74100: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4749 033477 200 11 0 00 034347 MOVE 11,[252525,,707070] ;PRELOAD E WITH 252525,,707070 4750 033500 654 10 0 00 000011 TDCA 10,11 ;*TDCA SHOULD SKP AND 4751 ;PLACE 371173,,006244 INTO THE AC 4752 STOP^ 4753 033501 254 04 0 00 033502 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4754 033502 324 00 0 00 033503 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4755 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4756 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4757 033503 312 10 0 00 034373 CAME 10,[371173,,6244] ;PASS IF C(AC)=371173,,006244 4758 STOP^ 4759 033504 254 04 0 00 033505 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4760 033505 324 00 0 00 033506 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4761 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4762 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4763 033506 312 11 0 00 034347 CAME 11,[252525,,707070] ;PASS IF C(E) UNCHANGED 4764 STOP^ 4765 033507 254 04 0 00 033510 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4766 033510 324 00 0 00 033511 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 85-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0125 4767 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4768 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4769 4770 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 86 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0126 4771 ;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH 4772 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 4773 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 4774 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 4775 ;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1 4776 4777 033511 200 07 0 00 034332 C74200: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4778 033512 200 10 0 00 034342 MOVE 10,[076543,,654321] ;PRELOAD E WITH 076543,,654321 4779 033513 655 07 0 00 000010 TSCA 7,10 ;*TSCA CHOULD SKIP AND 4780 ;PLACE -1,,-1 INTO THE AC 4781 STOP^ 4782 033514 254 04 0 00 033515 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4783 033515 324 00 0 00 033516 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4784 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4785 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4786 033516 312 07 0 00 034217 CAME 7,[-1] ;PASS IF C(AC)=-1,,-1 4787 STOP^ 4788 033517 254 04 0 00 033520 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4789 033520 324 00 0 00 033521 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4790 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4791 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4792 033521 312 10 0 00 034342 CAME 10,[076543,,654321] ;PASS IF C(E) UNCHANGED 4793 STOP^ 4794 033522 254 04 0 00 033523 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4795 033523 324 00 0 00 033524 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4796 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4797 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4798 4799 ;********** 4800 4801 ;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH 4802 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 4803 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 4804 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456 4805 ;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0 4806 4807 033524 200 06 0 00 034332 C74210: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4808 033525 200 07 0 00 034357 MOVE 7,[701234,,123456] ;PRELOAD E WITH 701234,,123456 4809 033526 655 06 0 00 000007 TSCA 6,7 ;*TSCA SHOULD SKIP AND 4810 ;PLACE 0 INTO THE AC 4811 STOP^ 4812 033527 254 04 0 00 033530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4813 033530 324 00 0 00 033531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4814 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4815 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4816 033531 312 06 0 00 034325 CAME 6,[0] ;PASS IF C(AC)=0 4817 STOP^ 4818 033532 254 04 0 00 033533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4819 033533 324 00 0 00 033534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4820 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4821 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4822 033534 312 07 0 00 034357 CAME 7,[701234,,123456] ;PASS IF C(E) UNCHANGED 4823 STOP^ 4824 033535 254 04 0 00 033536 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4825 033536 324 00 0 00 033537 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 86-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0127 4826 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4827 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4828 4829 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 87 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0128 4830 ;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4831 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4832 ;C(E) ARE ZERO. THESE MASKED 4833 ;AC BITS ARE THEN COMPLEMENTED 4834 ;IN THE CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547 4835 ;HENCE, TDCN SHOULD SKIP AND THE RESULT IN AC 4836 ;SHOULD BE -1,,777773 C(E) IS NOT AFFECTED 4837 4838 033537 200 05 0 00 034332 C74300: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4839 033540 200 06 0 00 034360 MOVE 6,[654321,,76547] ;PRELOAD E WITH 654321,,076547 4840 033541 656 05 0 00 000006 TDCN 5,6 ;*TDCN SHOULD SKIP AND 4841 ;PLACE -1,,777773 INTO THE AC 4842 STOP^ 4843 033542 254 04 0 00 033543 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4844 033543 324 00 0 00 033544 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4845 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4846 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4847 033544 312 05 0 00 034374 CAME 5,[-1,,777773] ;PASS IF C(AC)=-1,777773 4848 STOP^ 4849 033545 254 04 0 00 033546 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4850 033546 324 00 0 00 033547 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4851 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4852 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4853 033547 312 06 0 00 034360 CAME 6,[654321,,76547] ;PASS IF C(E) UNCHANGED 4854 STOP^ 4855 033550 254 04 0 00 033551 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4856 033551 324 00 0 00 033552 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4857 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4858 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4859 4860 ;********** 4861 4862 ;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4863 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4864 ;C(E) ARE ZERO. THESE MASKED 4865 ;AC BITS ARE THEN COMPLEMENTED 4866 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 4867 ;HENCE, TDCN SHOULD NOT SKIP AND THE REUSLT IN AC 4868 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 4869 4870 033552 200 04 0 00 034332 C74310: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4871 033553 200 05 0 00 034351 MOVE 5,[654321,,76543] ;PRELOAD E WITH 654321,,076543 4872 033554 656 04 0 00 000005 TDCN 4,5 ;*TDCN SHOULD NOT SKIP AND 4873 ;PLACE -1,,-1 INTO THE AC 4874 033555 334 00 0 00 000000 SKIPA ;PASS IF TDCN DOES NOT SKIP 4875 STOP^ 4876 033556 254 04 0 00 033557 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4877 033557 324 00 0 00 033560 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4878 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4879 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4880 033560 312 04 0 00 034217 CAME 4,[-1] ;PASS IF C(AC)=-1,,-1 4881 STOP^ 4882 033561 254 04 0 00 033562 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4883 033562 324 00 0 00 033563 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4884 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 87-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0129 4885 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4886 033563 312 05 0 00 034351 CAME 5,[654321,,76543] ;PASS IF C(E) UNCHANGED 4887 STOP^ 4888 033564 254 04 0 00 033565 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4889 033565 324 00 0 00 033566 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4890 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4891 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4892 4893 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 88 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0130 4894 ;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4895 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4896 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4897 ;AC BITS ARE THEN COMPLEMENTED 4898 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321 4899 ;HENCE, TSCN SHOULD SKIP AND THE RESULT IN AC 4900 ;SHOULD BE -1,,776777. C(E) IS NOT AFFECTED 4901 4902 033566 200 03 0 00 034332 C74400: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4903 033567 200 04 0 00 034362 MOVE 4,[77543,,654321] ;PRELOAD E WITH 077543,,654321 4904 033570 657 03 0 00 000004 TSCN 3,4 ;*TSCN SHOULD SKIP AND 4905 ;PLACE -1,,776777 INTO THE AC 4906 STOP^ 4907 033571 254 04 0 00 033572 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4908 033572 324 00 0 00 033573 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4909 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4910 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4911 033573 312 03 0 00 034375 CAME 3,[-1,,776777] ;PASS IF C(AC)=-1,776777 4912 STOP^ 4913 033574 254 04 0 00 033575 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4914 033575 324 00 0 00 033576 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4915 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4916 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4917 033576 312 04 0 00 034362 CAME 4,[77543,,654321] ;PASS IF C(E) UNCHANGED 4918 STOP^ 4919 033577 254 04 0 00 033600 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4920 033600 324 00 0 00 033601 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4921 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4922 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4923 4924 ;********** 4925 4926 ;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION 4927 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 4928 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 4929 ;AC BITS ARE THEN COMPLEMENTD 4930 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 4931 ;HENCE, TSCN SHOULD NOT SKIP AND THE RESULT IN AC 4932 ;SHOULD BE -1,,-1. C(E) IS NOT AFFECTED. 4933 4934 033601 200 02 0 00 034332 C74410: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4935 033602 200 03 0 00 034342 MOVE 3,[76543,,654321] ;PRELOAD E WITH 076543,,654321 4936 033603 657 02 0 00 000003 TSCN 2,3 ;*TSCN SHOULD NOT SKIP AND 4937 ;PLACE -1,,-1 INTO THE AC 4938 033604 334 00 0 00 000000 SKIPA ;PASS IF TSCN DOES NOT SKIP 4939 STOP^ 4940 033605 254 04 0 00 033606 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4941 033606 324 00 0 00 033607 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4942 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4943 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4944 033607 312 02 0 00 034217 CAME 2,[-1] ;PASS IF C(AC)=-1,,-1 4945 STOP^ 4946 033610 254 04 0 00 033611 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4947 033611 324 00 0 00 033612 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4948 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 88-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0131 4949 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4950 033612 312 03 0 00 034342 CAME 3,[76543,,654321] ;PASS IF C(E) UNCHANGED 4951 STOP^ 4952 033613 254 04 0 00 033614 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4953 033614 324 00 0 00 033615 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4954 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4955 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4956 4957 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 89 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0132 4958 ;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH 4959 ;CORRESPOND TO 1'S IN E TO ONES AND DOES ANT SKIP 4960 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 4961 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701237 4962 4963 033615 200 01 0 00 034332 C74500: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4964 033616 660 01 0 00 000003 TRO 1,3 ;*TRO SHOULD NOT SKIP AND 4965 ;PLACE 123456,,701237 INTO THE AC 4966 033617 334 00 0 00 000000 SKIPA ;PASS IF TRO DID NOT SKIP 4967 STOP^ 4968 033620 254 04 0 00 033621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4969 033621 324 00 0 00 033622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4970 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4971 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4972 033622 312 01 0 00 034364 CAME 1,[123456,,701237] ;PASS IF C(AC)=123456,,701237 4973 STOP^ 4974 033623 254 04 0 00 033624 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4975 033624 324 00 0 00 033625 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4976 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4977 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4978 4979 ;********** 4980 4981 ;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH 4982 ;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP 4983 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 4984 ;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701224 4985 4986 033625 200 00 0 00 034332 C74510: MOVE 0,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 4987 033626 660 00 0 00 000300 TRO 0,300 ;*TRO SHOULD NOT SKIP AND 4988 ;PLACE 123456,,701334 INTO THE AC 4989 033627 334 00 0 00 000000 SKIPA ;PASS IF TRO DID NOT SKIP 4990 STOP^ 4991 033630 254 04 0 00 033631 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4992 033631 324 00 0 00 033632 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4993 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 4994 ;IN THE SUBTEST) TO LOOP ON ERROR^ 4995 033632 312 00 0 00 034376 CAME 0,[123456,,701334] ;PASS IF C(AC)=123456,,701334 4996 STOP^ 4997 033633 254 04 0 00 033634 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 4998 033634 324 00 0 00 033635 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 4999 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5000 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5001 5002 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 90 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0133 5003 ;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH 5004 ;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP 5005 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5006 ;HENCE, THE RESULT IN THE AC SHOULD BE 123756,,701234 5007 5008 033635 200 17 0 00 034332 C74600: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5009 033636 661 17 0 00 000300 TLO 17,300 ;*TLO SHOULD NOT SKIP AND 5010 ;PLACE 123756,,701234 INTO THE AC 5011 033637 334 00 0 00 000000 SKIPA ;PASS IF TLO DID NOT SKIP 5012 STOP^ 5013 033640 254 04 0 00 033641 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5014 033641 324 00 0 00 033642 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5015 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5016 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5017 033642 312 17 0 00 034366 CAME 17,[123756,,701234] ;PASS IF C(AC)=123456,,701234 5018 STOP^ 5019 033643 254 04 0 00 033644 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5020 033644 324 00 0 00 033645 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5021 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5022 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5023 5024 ;********** 5025 5026 ;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH 5027 ;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP 5028 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5029 ;HENCE, THE RESULT IN THE AC SHOULD BE 123457,,701234 5030 5031 033645 200 16 0 00 034377 C74610: MOVE 16,[123456,,70234] ;PRELOAD AC WITH 123456,,701234 5032 033646 661 16 0 00 000003 TLO 16,3 ;*TLO SHOULD NOT SKIP AND 5033 ;PLACE 123457,,701234 INTO THE AC 5034 033647 334 00 0 00 000000 SKIPA ;PASS IF DID NOT SKIP 5035 STOP^ 5036 033650 254 04 0 00 033651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5037 033651 324 00 0 00 033652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5038 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5039 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5040 033652 312 16 0 00 034400 CAME 16,[123457,,70234] ;PASS IF C(AC)=123457,,701234 5041 STOP^ 5042 033653 254 04 0 00 033654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5043 033654 324 00 0 00 033655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5046 5047 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 91 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0134 5048 ;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5049 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 5050 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5051 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5052 ;HENCE, TROE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 5053 ;AND RESULT IN THE AC SHOUD BE 123456,,701237 5054 5055 033655 200 15 0 00 034332 C74700: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5056 033656 662 15 0 00 000003 TROE 15,3 ;TROE SHOULD SKIP AND 5057 ;PLACE 123456,,701237 IN TO THE AC 5058 STOP^ 5059 033657 254 04 0 00 033660 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5060 033660 324 00 0 00 033661 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5061 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5062 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5063 033661 312 15 0 00 034364 CAME 15,[123456,,701237] ;PASS IF C(AC)=123456,,701237 5064 STOP^ 5065 033662 254 04 0 00 033663 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5066 033663 324 00 0 00 033664 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5067 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5068 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5069 5070 ;********** 5071 5072 ;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5073 ;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 5074 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5075 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5076 ;HENCE, TROE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 5077 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701334 5078 5079 033664 200 14 0 00 034332 C74710: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5080 033665 662 14 0 00 000300 TROE 14,300 ;*TROE SHOULD NOT SKIP AND 5081 ;PLACE 123456,,701224 INTO THE AC 5082 033666 334 00 0 00 000000 SKIPA ;PASS IF DID NOT SKIP 5083 STOP^ 5084 033667 254 04 0 00 033670 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5085 033670 324 00 0 00 033671 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5086 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5087 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5088 033671 312 14 0 00 034376 CAME 14,[123456,,701334] ;PASS IF C(AC)=123456,,701334 5089 STOP^ 5090 033672 254 04 0 00 033673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5091 033673 324 00 0 00 033674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5092 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5093 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5094 5095 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 92 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0135 5096 ;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5097 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 5098 ;THESE MASKED AC BITS ARE TEN CHANGED TO ONES 5099 ;IN THES CASE, C(AC)=123456,,701234 AND E=300 5100 ;HENCE, TLOE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 5101 ;AND THE RESULT IN THE AC SHOULD BE 123756,,701234 5102 5103 033674 200 13 0 00 034332 C75000: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5104 033675 663 13 0 00 000300 TLOE 13,300 ;*TLOE SOULD SKIP AND 5105 ;PLAND 123756,,701234 INTO THE AC 5106 STOP^ 5107 033676 254 04 0 00 033677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5108 033677 324 00 0 00 033700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5111 033700 312 13 0 00 034366 CAME 13,[123756,,701234] ;PASS IF C(AC)=123456,,701234 5112 STOP^ 5113 033701 254 04 0 00 033702 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5114 033702 324 00 0 00 033703 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5115 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5116 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5117 5118 ;******** 5119 5120 ;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5121 ;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 5122 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5123 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5124 ;HENCE, TLOE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 5125 ;AND THE RESULT IN THE AC SHOULD BE 123457,,701234 5126 5127 033703 200 12 0 00 034332 C75010: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5128 033704 663 12 0 00 000003 TLOE 12,3 ;*TLOE SHOULD NOT SKIP AND 5129 ;PLACE 123457,,701234 INTO THE AC 5130 033705 334 00 0 00 000000 SKIPA ;PASS IF TLOE DID NOT SKIP 5131 STOP^ 5132 033706 254 04 0 00 033707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5133 033707 324 00 0 00 033710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5136 033710 312 12 0 00 034401 CAME 12,[123457,,701234] ;PASS IF C(AC)=123457,,701234 5137 STOP^ 5138 033711 254 04 0 00 033712 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5139 033712 324 00 0 00 033713 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5140 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5141 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5142 5143 ;******* DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 93 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0136 5144 ;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION 5145 ;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES 5146 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5147 ;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 5148 ;THE AC SHOULD BE 123456,,701237 5149 5150 033713 200 11 0 00 034332 C75100: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5151 033714 664 11 0 00 000003 TROA 11,3 ;*TROA SHOULD SKIP AND 5152 ;PLACE 123456,,701237 5153 STOP^ 5154 033715 254 04 0 00 033716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5155 033716 324 00 0 00 033717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5156 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5157 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5158 033717 312 11 0 00 034364 CAME 11,[123456,,701237] ;PASS IF C(AC)=123456,,701237 5159 STOP^ 5160 033720 254 04 0 00 033721 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5161 033721 324 00 0 00 033722 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5162 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5163 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5164 5165 ;********** 5166 5167 ;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTAIL INSTRUCTION 5168 ;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES 5169 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5170 ;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 5171 ;THE AC SHOULD BE 123456,,701334 5172 5173 033722 200 10 0 00 034332 C75110: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5174 033723 664 10 0 00 000300 TROA 10,300 ;*TROA SHOULD SKIP AND 5175 ;PLACE 123456,,701334 INTO THE AC 5176 STOP^ 5177 033724 254 04 0 00 033725 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5178 033725 324 00 0 00 033726 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5179 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5180 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5181 033726 312 10 0 00 034376 CAME 10,[123456,,701334] ;PASS IF C (AC)=123456,,701334 5182 STOP^ 5183 033727 254 04 0 00 033730 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5184 033730 324 00 0 00 033731 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5185 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5186 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5187 5188 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 94 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0137 5189 ;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION 5190 ;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND 1'S IN E TO ONES 5191 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5192 ;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND RESULT IN 5193 ;THE AC SHOULD BE 123457,,701234 5194 5195 033731 200 07 0 00 034332 C75200: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5196 033732 665 07 0 00 000003 TLOA 7,3 ;*TLOA SHOULD SKIP AND 5197 ;PLACE 123457,,701234 INTO THE AC 5198 STOP^ 5199 033733 254 04 0 00 033734 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5200 033734 324 00 0 00 033735 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5201 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5202 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5203 033735 312 07 0 00 034401 CAME 7,[123457,,701234] ;PASS IF C(AC)=123457,,701234] 5204 STOP^ 5205 033736 254 04 0 00 033737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5206 033737 324 00 0 00 033740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5207 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5208 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5209 5210 ;********** 5211 5212 ;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5213 ;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ONES 5214 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5215 ;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN 5216 ;THE AC SHOULD BE 123756,,701234 5217 5218 033740 200 06 0 00 034332 C75210: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5219 033741 665 06 0 00 000300 TLOA 6,300 ;*TLOA SHOULD SKIP AND 5220 ;PLACE 123756,,701234 INTO THE AC 5221 STOP^ 5222 033742 254 04 0 00 033743 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5223 033743 324 00 0 00 033744 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5224 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5225 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5226 033744 312 06 0 00 034366 CAME 6,[123756,,701234] ;PASS IF C(AC)=123756,,701234 5227 STOP^ 5228 033745 254 04 0 00 033746 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5229 033746 324 00 0 00 033747 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5230 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5231 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5232 5233 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 95 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0138 5234 ;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5235 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 5236 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5237 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5238 ;HENCE, TRON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 5239 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701334 5240 5241 033747 200 05 0 00 034332 C75300: MOVE 5,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5242 033750 666 05 0 00 000300 TRON 5,300 ;*TRON SHOULD SKIP AND 5243 ;PLACE 123456,,701334 INTO THE AC 5244 STOP^ 5245 033751 254 04 0 00 033752 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5246 033752 324 00 0 00 033753 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5247 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5248 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5249 033753 312 05 0 00 034376 CAME 5,[123456,,701334] ;PASS IF C(AC)=123456,,701334 5250 STOP^ 5251 033754 254 04 0 00 033755 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5252 033755 324 00 0 00 033756 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5253 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5254 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5255 5256 ;********** 5257 5258 ;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTUCTION 5259 ;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO. 5260 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5261 ;IN THIS CASE, C(AC)=123456,,701234 AND E=3 5262 ;HENCE, TRON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 5263 ;AND THE RESULT IN THE AC SHOULD BE 123456,,701237 5264 5265 033756 200 04 0 00 034332 C75310: MOVE 4,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5266 033757 666 04 0 00 000003 TRON 4,3 ;*TRON SHOULD NOT SKIP AND 5267 ;PLACE 123456,,701237 INTO THE AC 5268 033760 334 00 0 00 000000 SKIPA ;PASS IF TRON DID NOT SKIP 5269 STOP^ 5270 033761 254 04 0 00 033762 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5271 033762 324 00 0 00 033763 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5272 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5273 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5274 033763 312 04 0 00 034364 CAME 4,[123456,,701237] ;PASS IF C(AC)=123456,701237 5275 STOP^ 5276 033764 254 04 0 00 033765 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5277 033765 324 00 0 00 033766 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5278 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5279 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5280 5281 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 96 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0139 5282 ;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5283 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 5284 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5285 ;IN THIS CASE, C(AC)-123456,,701234 AND E=3 5286 ;HENCE, TLON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION 5287 ;AND THE RESULT IN THE AC SHOULD BE 123457,,701234 5288 5289 033766 200 03 0 00 034332 C75400: MOVE 3,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5290 033767 667 03 0 00 000003 TLON 3,3 ;*TLON SHOULD SKIP AND 5291 ;PLACE 123457,,701234 INTO THE AC 5292 STOP^ 5293 033770 254 04 0 00 033771 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5294 033771 324 00 0 00 033772 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5295 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5296 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5297 033772 312 03 0 00 034401 CAME 3,[123457,,701234] ;PASS IF C(AC)=123457,,701234 5298 STOP^ 5299 033773 254 04 0 00 033774 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5300 033774 324 00 0 00 033775 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5301 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5302 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5303 5304 ;******* 5305 5306 ;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5307 ;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO. 5308 ;THESE MASKED AC BITS ARE THEN CHANGED TO ONES 5309 ;IN THIS CASE, C(AC)=123456,,701234 AND E=300 5310 ;HENCE, TLON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION 5311 ;AND THE RESULT IN THE AC SHOULD BE 123756,,701234 5312 5313 033775 200 02 0 00 034332 C75410: MOVE 2,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5314 033776 667 02 0 00 000300 TLON 2,300 ;*TLON SHOULD NOT SKIP AND 5315 ;PLACE 123756,,701234 INTO THE AC 5316 033777 334 00 0 00 000000 SKIPA ;PASS IF TLON DID NOT SKIP 5317 STOP^ 5318 034000 254 04 0 00 034001 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5319 034001 324 00 0 00 034002 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5320 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5321 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5322 034002 312 02 0 00 034366 CAME 2,[123756,,701234] ;PASS IF C(AC)=123756,,701234 5323 STOP^ 5324 034003 254 04 0 00 034004 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5325 034004 324 00 0 00 034005 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5326 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5327 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5328 5329 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 97 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0140 5330 ;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5331 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5332 ;C(E)ARE ZERO. THESE MASKED 5333 ;AC BITS ARE THEN CHANGED TO ONES 5334 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 5335 ;HENCE, TDOE SHOULD SKIP AND THE RESULT IN AC 5336 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 5337 5338 034005 200 01 0 00 034332 C75500: MOVE 1,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5339 034006 200 02 0 00 034351 MOVE 2,[654321,,076543] ;PRELOAD E WITH 654321,,076543 5340 034007 672 01 0 00 000002 TDOE 1,2 ;*TDOE SHOULD SKIP AND 5341 ;PLACE -1,,-1 INTO THE AC 5342 STOP^ 5343 034010 254 04 0 00 034011 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5344 034011 324 00 0 00 034012 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5345 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5346 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5347 034012 312 01 0 00 034217 CAME 1,[-1] ;PASS IF C(AC)=-1,,-1 5348 STOP^ 5349 034013 254 04 0 00 034014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5350 034014 324 00 0 00 034015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5351 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5352 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5353 034015 312 02 0 00 034351 CAME 2,[654321,,76543] ;PASS IF C(E) UNCHANGED 5354 STOP^ 5355 034016 254 04 0 00 034017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5356 034017 324 00 0 00 034020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5357 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5358 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5359 5360 ;********** 5361 5362 ;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTAIL INSTRUCTION 5363 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5364 ;C(E) ARE ZERO. THESE MASKED 5365 ;AC BITS ARE THEN CHANGED TO ONES 5366 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=754321,,076543 5367 ;HENCE, TDOE SHOULD NOT SKIP AND THE RESULT IN AC 5368 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTD 5369 5370 034020 200 00 0 00 034332 C75510: MOVE 0,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5371 034021 200 01 0 00 034352 MOVE 1,[754321,,76543] ;PRELOAD E WITH 754321,,076543 5372 034022 672 00 0 00 000001 TDOE 0,1 ;*TDOE SHOULD NOT SKIP AND 5373 ;PLACE -1,,-1 INTO THE AC 5374 034023 334 00 0 00 000000 SKIPA ;PASS IF TDOE DOES NOT SKIP 5375 STOP^ 5376 034024 254 04 0 00 034025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5377 034025 324 00 0 00 034026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5378 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5379 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5380 034026 312 00 0 00 034217 CAME 0,[-1] ;PASS IF C(AC)=-1,,-1 5381 STOP^ 5382 034027 254 04 0 00 034030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5383 034030 324 00 0 00 034031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 97-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0141 5385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5386 034031 312 01 0 00 034352 CAME 1,[754321,,76543] ;PASS IF C(E) UNCHANGED 5387 STOP^ 5388 034032 254 04 0 00 034033 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5389 034033 324 00 0 00 034034 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5392 5393 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 98 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0142 5394 ;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5395 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5396 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 5397 ;AC BITS ARE THEN CHANGED TO ONES. 5398 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 5399 ;HENCE, TSOE SHOULD SKIP AND THE RESULT IN AC 5400 ;SHOULD BE -1,,-1. C(E) IS NOT AFFECTED 5401 5402 034034 200 17 0 00 034332 C75600: MOVE 17,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5403 034035 200 00 0 00 034342 MOVE 0,[76543,,654321] ;PRELOAD E WITH 076543,,654321 5404 034036 673 17 0 00 000000 TSOE 17,0 ;*TSOE SHOULD SKIP AND 5405 ;PLACE -1,,-1 INTO THE AC 5406 STOP^ 5407 034037 254 04 0 00 034040 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5408 034040 324 00 0 00 034041 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5409 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5410 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5411 034041 312 17 0 00 034217 CAME 17,[-1] ;PASS IF C(AC)=-1,,-1 5412 STOP^ 5413 034042 254 04 0 00 034043 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5414 034043 324 00 0 00 034044 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5416 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5417 034044 312 00 0 00 034342 CAME 0,[76543,,654321] ;PASS IF C(E) UNCHANGED 5418 STOP^ 5419 034045 254 04 0 00 034046 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5420 034046 324 00 0 00 034047 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5421 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5422 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5423 5424 ;********** 5425 5426 ;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5427 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5428 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 5429 ;AC BITS ARE THEN CHANGED TO ONES. 5430 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,657321 5431 ;HENCE, TSOE SHOULD NOT SKIP AND THE RESULT IN THE AC 5432 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED. 5433 5434 034047 200 16 0 00 034332 C75610: MOVE 16,[123456,,701234] ;PRELOAD AC WITH 123456,701234 5435 034050 200 17 0 00 034354 MOVE 17,[76543,,657321] ;PRELOAD E WITH 076543,,657321 5436 034051 673 16 0 00 000017 TSOE 16,17 ;*TSOE SHOULD NOT SKIP AND 5437 ;*TSOE SHOULD NOT SKIP AND 5438 ;PLACE -1,,-1 INTO THE AC 5439 034052 334 00 0 00 000000 SKIPA ;PASS IF SKIP 5440 STOP^ 5441 034053 254 04 0 00 034054 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5442 034054 324 00 0 00 034055 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5443 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5444 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5445 034055 312 16 0 00 034217 CAME 16,[-1] ;PASS IF C(AC)=-1,,-1 5446 STOP^ 5447 034056 254 04 0 00 034057 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5448 034057 324 00 0 00 034060 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 98-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0143 5449 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5450 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5451 034060 312 17 0 00 034354 CAME 17,[76543,,657321] ;PASS IF C(E) UNCHANGED 5452 STOP^ 5453 034061 254 04 0 00 034062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5454 034062 324 00 0 00 034063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5455 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5456 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5457 5458 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 99 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0144 5459 ;THIS TEST VERIFIES THAT TDOA PLACES ONES INTO ALL BITS OF THE AC WHICH 5460 ;CORRRESPOND TO 1'S IN C(E) AND ALWAYS 5461 ;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED 5462 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543 5463 ;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1 5464 5465 034063 200 15 0 00 034332 C75700: MOVE 15,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5466 034064 200 16 0 00 034351 MOVE 16,[654321,,076543] ;PRELOAD E WITH 654321,,076543 5467 034065 674 15 0 00 000016 TDOA 15,16 ;*TDOA SHOULD SKIP AND 5468 ;PLACE -1,,-1 INTO THE AC 5469 STOP^ 5470 034066 254 04 0 00 034067 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5471 034067 324 00 0 00 034070 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5472 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5473 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5474 034070 312 15 0 00 034217 CAME 15,[-1] ;PASS IF C(AC)=-1,,-1 5475 STOP^ 5476 034071 254 04 0 00 034072 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5477 034072 324 00 0 00 034073 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5478 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5479 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5480 034073 312 16 0 00 034351 CAME 16,[654321,,076543] ;PASS IF C(E) UNCHANGED 5481 STOP^ 5482 034074 254 04 0 00 034075 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5483 034075 324 00 0 00 034076 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5486 5487 ;********** 5488 5489 ;THIS TEST VERIFIES THAT TDOA PLACE ONES ALL BIT OF THE AC WHICH 5490 ;CORRESPOND TO 1'S IN C(E) AND ALWAYS 5491 ;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED 5492 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070 5493 ;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 373577,,707274 5494 5495 034076 200 14 0 00 034332 C75710: MOVE 14,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5496 034077 200 15 0 00 034347 MOVE 15,[252525,,707070] ;PRELOAD E WITH 252525,,707070 5497 034100 674 14 0 00 000015 TDOA 14,15 ;*TDOA SHOULD SKIP AND 5498 ;PLACE 373577,707274 ONTO THE AC 5499 STOP^ 5500 034101 254 04 0 00 034102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5501 034102 324 00 0 00 034103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5502 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5503 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5504 034103 312 14 0 00 034402 CAME 14,[373577,,707274] ;PASS IF C(AC)=373577,,707274 5505 STOP^ 5506 034104 254 04 0 00 034105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5507 034105 324 00 0 00 034106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5508 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5509 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5510 034106 312 15 0 00 034347 CAME 15,[252525,,707070] ;PASS IF C(E) UNCHANGED 5511 STOP^ 5512 034107 254 04 0 00 034110 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5513 034110 324 00 0 00 034111 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 99-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0145 5514 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5515 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5516 5517 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 100 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0146 5518 ;THIS TEST VERIFIES THAT TSOA PLACE ONES INTO ALL BITS OF THE AC WHICH 5519 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 5520 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 5521 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 5522 ;HENCE, TSOA SHOULD SLAWAYS SKIP AND C(AC) SHOULD BE -1,,-1 5523 5524 034111 200 13 0 00 034332 C76000: MOVE 13,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5525 034112 200 14 0 00 034403 MOVE 14,[176543,,654321] ;PRELOAD E WITH 076543,,654321 5526 034113 675 13 0 00 000014 TSOA 13,14 ;*TSOA SHOULD SKIP AND 5527 ;PLACE -1,,-1 ONTO THE AC 5528 STOP^ 5529 034114 254 04 0 00 034115 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5530 034115 324 00 0 00 034116 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5531 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5532 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5533 034116 312 13 0 00 034217 CAME 13,[-1] ;PASS IF C(AC)=-1,,-1 5534 STOP^ 5535 034117 254 04 0 00 034120 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5536 034120 324 00 0 00 034121 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5537 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5538 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5539 034121 312 14 0 00 034403 CAME 14,[176543,,654321] ;PASS IF C(E) UNCHANGED 5540 STOP^ 5541 034122 254 04 0 00 034123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5542 034123 324 00 0 00 034124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5543 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5544 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5545 5546 ;********** 5547 5548 ;THIS TEST VERIFIES THAT TSOA PLACES ONES INTO ALL BITS OF THE AC WHICH 5549 ;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS 5550 ;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED 5551 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456 5552 ;HENCE, TSOA SHOULD SLWAYS SKIP AND C(AC) SHOULD BE 123456,,701234 5553 5554 034124 200 12 0 00 034332 C76010: MOVE 12,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5555 034125 200 13 0 00 034357 MOVE 13,[701234,,123456] ;PRELOAD E WITH 701234,123456 5556 034126 675 12 0 00 000013 TSOA 12,13 ;*TSOA SHOULD SKIP AND 5557 ;PLACE 123456,,701234 INTO THE AC 5558 STOP^ 5559 034127 254 04 0 00 034130 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5560 034130 324 00 0 00 034131 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5561 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5562 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5563 034131 312 12 0 00 034332 CAME 12,[123456,,701234] ;PASS IF C(AC)=123456,,701234 5564 STOP^ 5565 034132 254 04 0 00 034133 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5566 034133 324 00 0 00 034134 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5567 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5568 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5569 034134 312 13 0 00 034357 CAME 13,[701234,,123456] ;PASS IF C(E) UNCHANGED 5570 STOP^ 5571 034135 254 04 0 00 034136 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5572 034136 324 00 0 00 034137 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 100-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0147 5573 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5574 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5575 5576 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 101 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0148 5577 ;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5578 ;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5579 ;C(E) ARE ZERO. THESE MASKED 5580 ;AC BITS ARE THEN CHANGED TO ONES 5581 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547 5582 ;HENCE, TDON SHOULD SKIP AND THE RESULT IN AC 5583 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 5584 5585 034137 200 11 0 00 034332 C76100: MOVE 11,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5586 034140 200 12 0 00 034360 MOVE 12,[654321,,076547] ;PRELOAD E WITH 654321,,076547 5587 034141 676 11 0 00 000012 TDON 11,12 ;*TDON SHOULD SKIP AND 5588 ;PLACE -1,,-1 INTO THE AC 5589 STOP^ 5590 034142 254 04 0 00 034143 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5591 034143 324 00 0 00 034144 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5592 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5593 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5594 034144 312 11 0 00 034217 CAME 11,[-1] ;PASS IF C(AC)=-1,,-1 5595 STOP^ 5596 034145 254 04 0 00 034146 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5597 034146 324 00 0 00 034147 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5598 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5599 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5600 034147 312 12 0 00 034360 CAME 12,[654321,,076547] ;PASS IF C(E) UNCHANGED 5601 STOP^ 5602 034150 254 04 0 00 034151 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5603 034151 324 00 0 00 034152 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5604 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5605 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5606 5607 ;********** 5608 5609 ;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5610 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5611 ;C(E) ARE ZERO. THESE MASKED 5612 ;AC BITS ARE THEN CHANGED TO ONES. 5613 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 5614 ;THENC, TDON SHOULD NOT SKIP AND THE RESULT IN TH AC 5615 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 5616 5617 034152 200 10 0 00 034332 C76110: MOVE 10,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5618 034153 200 11 0 00 034351 MOVE 11,[654321,,076543] ;PRELOAD E WITH 654321,,076543 5619 034154 676 10 0 00 000011 TDON 10,11 ;*TDON SHOULD NOT SKIP AND 5620 ;PLACE -1,,-1 INTO THE AC 5621 034155 334 00 0 00 000000 SKIPA ;PASS IF TDON DOES NOT SKIP 5622 STOP ^ 5623 034156 254 04 0 00 034157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5624 034157 324 00 0 00 034160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5625 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5626 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5627 034160 312 10 0 00 034217 CAME 10,[-1] ;PASS IF C(AC)=-1,,-1 5628 STOP^ 5629 034161 254 04 0 00 034162 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5630 034162 324 00 0 00 034163 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5631 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 101-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0149 5632 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5633 034163 312 11 0 00 034351 CAME 11,[654321,,076543] ;PASS IF C(E) UNCHANGED 5634 STOP^ 5635 034164 254 04 0 00 034165 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5636 034165 324 00 0 00 034166 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5637 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5638 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5639 5640 ;********** DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 102 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0150 5641 ;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5642 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5643 ;C(E) WITH BOTH HALVE SWAPPED ARE ZERO. THESE MASKED 5644 ;AC BITS ARE THEN CHANGED TO ONES 5645 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321 5646 ;HENCE, TSON SHOULD SKIP AND THE RESULT IN AC 5647 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 5648 5649 034166 200 07 0 00 034332 C76200: MOVE 7,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5650 034167 200 10 0 00 034362 MOVE 10,[77543,,654321] ;PRELOAD E WITH 077543,,654321] 5651 034170 677 07 0 00 000010 TSON 7,10 ;*TSON HOULD SKIP AND 5652 ;PLACE -1,,-1 INTO THE AC 5653 STOP^ 5654 034171 254 04 0 00 034172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5655 034172 324 00 0 00 034173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5656 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5657 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5658 034173 312 07 0 00 034217 CAME 7,[-1] ;PASS IF C(AC)=-1,,-1 5659 STOP^ 5660 034174 254 04 0 00 034175 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5661 034175 324 00 0 00 034176 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5662 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5663 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5664 034176 312 10 0 00 034362 CAME 10,[77543,,654321] ;PASS IF C(E) UNCHANGED 5665 STOP^ 5666 034177 254 04 0 00 034200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5667 034200 324 00 0 00 034201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5668 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5669 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5670 5671 ;********** 5672 5673 ;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION 5674 ;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN 5675 ;C(E) WITH BOTH HALVES SWAPPED ARE ZERO. THESE MASKED 5676 ;AC BITS ARE THEN CHANGED TO ONES. 5677 ;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321 5678 ;HENCE, TSON SHOULD NOT SKIP AND THE RESULT IN AC 5679 ;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED 5680 5681 034201 200 06 0 00 034332 C76210: MOVE 6,[123456,,701234] ;PRELOAD AC WITH 123456,,701234 5682 034202 200 07 0 00 034342 MOVE 7,[76543,,654321] ;PRELOAD E WITH 076543MM654321 5683 034203 677 06 0 00 000007 TSON 6,7 ;*TSON SHOULD NOT SKIP AND 5684 ;PLACE -1,,-1 INTO THE AC 5685 034204 334 00 0 00 000000 SKIPA ;PASS IF TSON DOES NOT SKIP 5686 STOP^ 5687 034205 254 04 0 00 034206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5688 034206 324 00 0 00 034207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5689 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5690 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5691 034207 312 06 0 00 034217 CAME 6,[-1] ;PASS IF C(AC)-=1,,-1 5692 STOP^ 5693 034210 254 04 0 00 034211 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5694 034211 324 00 0 00 034212 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 102-1 DSKAF1 MAC 28-Mar-78 14:15 TEST OF MSCL LOGICAL TEST INSTRUCTIONS SEQ 0151 5696 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5697 034212 312 07 0 00 034342 CAME 7,[76543,,654321] ;PASS IF C(E) UNCHANGED 5698 STOP^ 5699 034213 254 04 0 00 034214 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 5700 034214 324 00 0 00 034215 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 5701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 5702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 5703 5704 ;********** 5705 034215 402 00 0 00 034405 ENDIT: SETZM TNUMB# 5706 034216 254 00 0 00 030057 JRST BEGEND DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0152 5707 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 5708 5709 ;PROGRAM LITERALS 5710 5711 XLIST 5712 IFNDEF $LPAPER, 5713 034217 LIT 5714 034217 777777 777777 5715 034220 777000 707070 5716 034221 777000 000777 5717 034222 123456 123456 5718 034223 123000 000456 5719 034224 121212 000000 5720 034225 777350 777776 5721 034226 000767 777777 5722 034227 777010 000000 5723 034230 000777 770077 5724 034231 123456 246123 5725 034232 123000 006100 5726 034233 000100 777600 5727 034234 123456 246135 5728 034235 123456 040104 5729 034236 123321 456654 5730 034237 770077 007770 5731 034240 003300 450004 5732 034241 123456 663322 5733 034242 777000 700770 5734 034243 000456 063002 5735 034244 123456 777776 5736 034245 010203 123450 5737 034246 123456 000000 5738 034247 000777 123456 5739 034250 000777 517067 5740 034251 707077 555666 5741 034252 123456 765432 5742 034253 624421 230254 5743 034254 707070 123456 5744 034255 707070 767577 5745 034256 123456 777666 5746 034257 777001 123470 5747 034260 777457 777676 5748 034261 777000 123456 5749 034262 000777 050321 5750 034263 777007 771100 5751 034264 063202 123477 5752 034265 000570 004200 5753 034266 707070 123426 5754 034267 070707 777032 5755 034270 123456 123457 5756 034271 707633 121212 5757 034272 153512 775132 5758 034273 000777 654321 5759 034274 654321 012345 5760 034275 777000 123477 5761 034276 000777 775701 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0153 5762 034277 707070 707072 5763 034300 707777 757372 5764 034301 777777 070707 5765 034302 777777 133777 5766 034303 707070 070706 5767 034304 777777 707777 5768 034305 123456 770077 5769 034306 777001 123324 5770 034307 654777 657753 5771 034310 123456 707070 5772 034311 707070 707070 5773 034312 123456 123422 5774 034313 707070 717171 5775 034314 123422 000000 5776 034315 123456 707076 5777 034316 707076 000000 5778 034317 123456 777777 5779 034320 123456 135724 5780 034321 765432 246135 5781 034322 246135 777777 5782 034323 123123 456765 5783 034324 456765 777777 5784 034325 000000 000000 5785 034326 707076 777777 5786 034327 765432 777777 5787 034330 365432 123456 5788 034331 365432 000000 5789 034332 123456 701234 5790 034333 123123 246135 5791 034334 123123 123123 5792 034335 777777 701234 5793 034336 765432 107654 5794 034337 777777 765432 5795 034340 777777 000000 5796 034341 777777 123456 5797 034342 076543 654321 5798 034343 076543 654323 5799 034344 076547 654321 5800 034345 123456 701034 5801 034346 123454 701234 5802 034347 252525 707070 5803 034350 020406 501210 5804 034351 654321 076543 5805 034352 754321 076543 5806 034353 023456 701234 5807 034354 076543 657321 5808 034355 120456 701234 5809 034356 121052 000204 5810 034357 701234 123456 5811 034360 654321 076547 5812 034361 123456 701230 5813 034362 077543 654321 5814 034363 123456 700234 5815 034364 123456 701237 5816 034365 123456 701134 DSKAF DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (6) 0,1 MACRO %53(1020) 14:20 28-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0154 5817 034366 123756 701234 5818 034367 123455 701234 5819 034370 624426 553711 5820 034371 677777 777777 5821 034372 774777 777777 5822 034373 371173 006244 5823 034374 777777 777773 5824 034375 777777 776777 5825 034376 123456 701334 5826 034377 123456 070234 5827 034400 123457 070234 5828 034401 123457 701234 5829 034402 373577 707274 5830 034403 176543 654321 5831 LIST 5832 034404 000000 000000 ENDSLD: 0 5833 5834 IFDEF DEBUG,< 5835 PATCH: BLOCK DEBUG ;PATCHING AREA 5836 > 5837 5838 ;PROGRAM VARIABLES 5839 034405 VAR 5840 5841 IFDEF PGMEND,< 5842 034406 000000 000000 END: 0 5843 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 034407 CPU TIME USED 00:19.792 22P CORE USED ABORT 92# AC0 687# SEQ 0155 ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 5706 BEGIN 307 308 369# 708 771 5843 BEGIN1 385# 439 BELL 561# BIS 356# C56100 815# C56200 837# C56300 858# C56400 879# C56500 899# C56600 921# C56700 937# C56701 961# C57000 988# C57001 1011# C57100 1038# C57200 1055# C57300 1078# C57400 1101# C57500 1115# C57600 1137# C57700 1159# C60000 1176# C60100 1198# C60200 1222# C60300 1243# C60400 1258# C60500 1280# C60600 1296# C60700 1319# C61000 1335# C61100 1358# C61200 1382# C61300 1398# C61400 1422# C61500 1445# C61600 1462# C61700 1484# C62000 1508# C62100 1524# C62200 1548# C62300 1571# C62400 1588# C62500 1611# C62600 1635# C62700 1651# C63000 1675# SEQ 0156 C63100 1698# C63200 1715# C63300 1738# C63400 1762# C63500 1777# C63600 1800# C63700 1826# C64000 1843# C64010 1866# C64100 1891# C64110 1916# C64200 1940# C64300 1964# C64310 1990# C64400 2013# C64500 2038# C64510 2063# C64600 2087# C64700 2108# C65000 2130# C65100 2144# C65200 2171# C65210 2196# C65300 2220# C65400 2244# C65410 2270# C65500 2293# C65600 2318# C65610 2343# C65700 2367# C66000 2391# C66010 2418# C66100 2443# C66110 2468# C66200 2490# C66300 2506# C66301 2528# C66400 2557# C66410 2582# C66411 2607# C66500 2634# C66600 2660# C66610 2684# C66700 2707# C67000 2728# C67100 2744# C67200 2768# C67210 2794# C67300 2819# C67310 2845# C67400 2870# C67410 2896# C67500 2924# SEQ 0157 C67510 2946# C67600 2968# C67610 2990# C67700 3011# C67710 3032# C70000 3052# C70010 3073# C70100 3093# C70110 3114# C70200 3135# C70210 3156# C70300 3179# C70310 3209# C70400 3238# C70410 3267# C70500 3290# C70510 3320# C70600 3348# C70610 3371# C70700 3393# C70710 3416# C71000 3440# C71010 3464# C71100 3488# C71110 3512# C71200 3535# C71210 3558# C71300 3580# C71310 3603# C71400 3626# C71410 3650# C71500 3674# C71510 3698# C71600 3721# C71610 3752# C71700 3784# C71710 3816# C72000 3848# C72010 3880# C72100 3911# C72110 3947# C72200 3976# C72210 4006# C72300 4037# C72310 4069# C72400 4101# C72410 4133# C72500 4162# C72510 4185# C72600 4207# C72610 4230# C72700 4254# C72710 4278# SEQ 0158 C73000 4302# C73010 4326# C73100 4349# C73110 4372# C73200 4394# C73210 4417# C73300 4440# C73310 4464# C73400 4488# C73410 4512# C73500 4535# C73510 4566# C73600 4598# C73610 4630# C73700 4662# C73710 4688# C74000 4718# C74100 4748# C74200 4777# C74210 4807# C74300 4838# C74310 4870# C74400 4902# C74410 4934# C74500 4963# C74510 4986# C74600 5008# C74610 5031# C74700 5055# C74710 5079# C75000 5103# C75010 5127# C75100 5150# C75110 5173# C75200 5195# C75210 5218# C75300 5241# C75310 5265# C75400 5289# C75410 5313# C75500 5338# C75510 5370# C75600 5402# C75610 5434# C75700 5465# C75710 5495# C76000 5524# C76010 5554# C76100 5585# C76110 5617# C76200 5649# C76210 5681# CCA 356# SEQ 0159 CHAIN 112# CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# CRY1 356# CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 5834 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 E56701 962 964 971 980# E57001 1013 1014 1021 1030# E66301 2530 2531 2538 2547# E66411 2609 2610 2618 2627# EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 5842# SEQ 0160 ENDFIX 684# ENDIT 5705# ENDSLD 5832# ERMORE 458# EROLD 318 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# SEQ 0161 LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# SEQ 0162 LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 SEQ 0163 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 5841 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# SEQ 0164 PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SEQ 0165 SM10 667# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 5705# 5705 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# SEQ 0166 $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# $ITRX1 451# $LPAPE 5712 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# SEQ 0167 $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0168 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 820 826 842 848 862 868 883 889 903 909 925 942 948 967 974 993 999 1017 1024 1042 1061 1067 1084 1090 1105 1120 1126 1142 1148 1164 1181 1187 1204 1210 1227 1233 1247 1263 1269 1284 1302 1308 1323 1341 1347 1364 1370 1387 1404 1410 1428 1434 1450 1467 1473 1490 1496 1513 1530 1536 1554 1560 1576 1594 1600 1617 1623 1640 1657 1663 1681 1687 1703 1721 1727 1744 1750 1766 1783 1789 1806 1812 1830 1848 1854 1871 1877 1897 1903 1922 1928 1945 1951 1969 1975 1996 2002 2018 2024 2044 2050 2069 2075 2092 2098 2113 2119 2134 2150 2156 2177 2183 2202 2208 2225 2231 2250 2256 2276 2282 2298 2304 2324 2330 2349 2355 2372 2378 2397 2403 2424 2430 2448 2454 2474 2480 2494 2511 2517 2534 2541 2562 2568 2588 2594 2614 2621 2639 2645 2665 2671 2690 2696 2712 2718 2732 2749 2755 2774 2780 2800 2806 2825 2831 2851 2857 2876 2882 2902 2908 2927 2933 2950 2956 2971 2977 2994 3000 3014 3020 3035 3041 3055 3061 3076 3082 3096 3102 3118 3124 3138 3144 3160 3166 3183 3189 3195 3214 3220 3226 3242 3248 3254 3271 3277 3294 3300 3306 3325 3331 3337 3353 3359 3376 3382 3398 3404 3421 3427 3444 3450 3469 3475 3492 3498 3517 3523 3539 3545 3562 3568 3584 3590 3607 3613 3630 3636 3655 3661 3678 3684 3703 3709 3727 3733 3739 3758 3764 3770 3789 3795 3801 3822 3828 3834 3853 3859 3865 3886 3892 3898 3916 3922 3928 3934 3952 3958 3964 3981 3987 3993 4011 4017 4023 4042 4048 4054 4075 4081 4087 4106 4112 4118 4139 4145 4151 4167 4173 4190 4196 4212 4218 4235 4241 4258 4264 4283 4289 4306 4312 4331 4337 4353 4359 4376 4382 4398 4404 4421 4427 4444 4450 4469 4475 4492 4498 4517 4523 4541 4547 4553 4572 4578 4584 4603 4609 4615 4636 4642 4648 4667 4673 4694 4700 4706 4723 4729 4735 4753 4759 4765 4782 4788 4794 4812 4818 4824 4843 4849 4855 4876 4882 4888 4907 4913 4919 4940 4946 4952 4968 4974 4991 4997 5013 5019 5036 5042 5059 5065 5084 SEQ 0169 5090 5107 5113 5132 5138 5154 5160 5177 5183 5199 5205 5222 5228 5245 5251 5270 5276 5293 5299 5318 5324 5343 5349 5355 5376 5382 5388 5407 5413 5419 5441 5447 5453 5470 5476 5482 5500 5506 5512 5529 5535 5541 5559 5565 5571 5590 5596 5602 5623 5629 5635 5654 5660 5666 5687 5693 5699 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# SEQ 0170 PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# SIXBTZ 261# STOP 48# 819 825 841 847 861 867 882 888 902 908 924 941 947 966 973 992 998 1016 1023 1041 1060 1066 1083 1089 1104 1119 1125 1141 1147 1163 1180 1186 1203 1209 1226 1232 1246 1262 1268 1283 1301 1307 1322 1340 1346 1363 1369 1386 1403 1409 1427 1433 1449 1466 1472 1489 1495 1512 1529 1535 1553 1559 1575 1593 1599 1616 1622 1639 1656 SEQ 0171 1662 1680 1686 1702 1720 1726 1743 1749 1765 1782 1788 1805 1811 1829 1847 1853 1870 1876 1896 1902 1921 1927 1944 1950 1968 1974 1995 2001 2017 2023 2043 2049 2068 2074 2091 2097 2112 2118 2133 2149 2155 2176 2182 2201 2207 2224 2230 2249 2255 2275 2281 2297 2303 2323 2329 2348 2354 2371 2377 2396 2402 2423 2429 2447 2453 2473 2479 2493 2510 2516 2533 2540 2561 2567 2587 2593 2613 2620 2638 2644 2664 2670 2689 2695 2711 2717 2731 2748 2754 2773 2779 2799 2805 2824 2830 2850 2856 2875 2881 2901 2907 2926 2932 2949 2955 2970 2976 2993 2999 3013 3019 3034 3040 3054 3060 3075 3081 3095 3101 3117 3123 3137 3143 3159 3165 3182 3188 3194 3213 3219 3225 3241 3247 3253 3270 3276 3293 3299 3305 3324 3330 3336 3352 3358 3375 3381 3397 3403 3420 3426 3443 3449 3468 3474 3491 3497 3516 3522 3538 3544 3561 3567 3583 3589 3606 3612 3629 3635 3654 3660 3677 3683 3702 3708 3726 3732 3738 3757 3763 3769 3788 3794 3800 3821 3827 3833 3852 3858 3864 3885 3891 3897 3915 3921 3927 3933 3951 3957 3963 3980 3986 3992 4010 4016 4022 4041 4047 4053 4074 4080 4086 4105 4111 4117 4138 4144 4150 4166 4172 4189 4195 4211 4217 4234 4240 4257 4263 4282 4288 4305 4311 4330 4336 4352 4358 4375 4381 4397 4403 4420 4426 4443 4449 4468 4474 4491 4497 4516 4522 4540 4546 4552 4571 4577 4583 4602 4608 4614 4635 4641 4647 4666 4672 4693 4699 4705 4722 4728 4734 4752 4758 4764 4781 4787 4793 4811 4817 4823 4842 4848 4854 4875 4881 4887 4906 4912 4918 4939 4945 4951 4967 4973 4990 4996 5012 5018 5035 5041 5058 5064 5083 5089 5106 5112 5131 5137 5153 5159 5176 5182 5198 5204 5221 5227 5244 5250 5269 5275 5292 5298 5317 5323 5342 5348 5354 5375 5381 5387 5406 5412 5418 5440 5446 5452 5469 5475 5481 5499 5505 5511 5528 5534 5540 5558 5564 5570 5589 5595 5601 5622 5628 5634 5653 5659 5665 5686 5692 5698 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# SEQ 0172 WRTIM 356# WRUBR 356# ANDB 990 1014 ANDCAB 1080 SEQ 0173 ANDCAI 1039 ANDCAM 1057 ANDCBB 1424 ANDCBI 1383 ANDCBM 1400 ANDCMB 1200 ANDCMI 1160 ANDCMM 1178 ANDI 922 ANDM 939 964 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAIE 923 1040 1103 1828 2376 2452 2472 2478 2515 2539 2566 2586 2592 2612 2619 2772 2880 2900 2906 CAME 824 840 860 887 901 907 940 946 965 972 991 997 1015 1022 1059 1065 1082 1088 1124 1140 1146 1162 1179 1185 1202 1208 1225 1231 1245 1261 1267 1282 1300 1306 1321 1339 1345 1362 1368 1385 1402 1408 1426 1432 1448 1465 1471 1488 1494 1511 1528 1534 1552 1558 1574 1592 1598 1615 1621 1638 1655 1661 1679 1685 1701 1719 1725 1742 1748 1764 1781 1787 1804 1810 1846 1852 1869 1875 1895 1901 1920 1926 1943 1949 1967 1973 1994 2000 2016 2022 2042 2048 2067 2073 2090 2096 2111 2117 2132 2147 2154 2175 2181 2200 2206 2223 2229 2248 2254 2274 2280 2296 2302 2322 2328 2347 2353 2370 2395 2401 2422 2428 2446 2509 2532 2560 2637 2643 2663 2669 2688 2694 2710 2716 2730 2747 2753 2778 2798 2804 2829 2849 2855 2874 2931 2954 2975 2998 3018 3039 3059 3080 3100 3122 3142 3164 3187 3193 3218 3224 3246 3252 3275 3298 3304 3329 3335 3357 3380 3402 3425 3448 3473 3496 3521 3543 3566 3588 3611 3634 3659 3682 3707 3731 3737 3762 3768 3793 3799 3826 3832 3857 3863 3890 3896 3920 3926 3932 3956 3962 3985 3991 4015 4021 4046 4052 4079 4085 4110 4116 4143 4149 4171 4194 4216 4239 4262 4287 4310 4335 4357 4380 4402 4425 4448 4473 4496 4521 4545 4551 4576 4582 4607 4613 4640 4646 4671 4698 4704 4727 4733 4757 4763 4786 4792 4816 4822 4847 4853 4880 4886 4911 4917 4944 4950 4972 4995 5017 5040 5063 5088 5111 5136 5158 5181 5203 5226 5249 5274 5297 5322 5347 5353 5380 5386 5411 5417 5445 5451 5474 5480 5504 5510 5533 5539 5563 5569 5594 5600 5627 5633 5658 5664 5691 5697 DEFINE 9 48 56 84 252 255 261 335 346 END 5843 EQVB 1486 EQVI 1446 EQVM 1464 HLLEM 2222 2295 HLLES 2246 2272 HLLI 1827 HLLOM 2089 HLLS 1845 1868 HLLZM 1942 HLLZS 1966 1992 HLRES 2872 2898 SEQ 0174 HLRM 2369 HLRO 2709 HLROI 2729 HLROM 2746 HLROS 2770 2796 HLRS 2393 2420 HLRZI 2491 HLRZM 2508 2531 HLRZS 2559 2584 2610 HRLES 2320 2345 HRLO 2110 HRLOI 989 1012 1055 2131 HRLOM 2146 HRLOS 2173 2198 HRLS 1893 1918 HRLZI 1258 2245 2271 HRLZM 2015 HRLZS 2040 2065 HRRES 2821 2847 HRROI 988 1011 HRROM 2636 HRROS 2662 2686 HRRZI 2319 2344 HRRZS 2445 2470 IFDEF 356 407 408 409 410 5834 5841 IFNDEF 307 308 318 407 408 409 410 489 5712 IORB 1360 IORI 1320 IORM 1337 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 5706 JSP 166 743 776 JUMPA 821 827 843 849 863 869 884 890 904 910 926 943 949 968 975 994 1000 1018 1025 1043 1062 1068 1085 1091 1106 1121 1127 1143 1149 1165 1182 1188 1205 1211 1228 1234 1248 1264 1270 1285 1303 1309 1324 1342 1348 1365 1371 1388 1405 1411 1429 1435 1451 1468 1474 1491 1497 1514 1531 1537 1555 1561 1577 1595 1601 1618 1624 1641 1658 1664 1682 1688 1704 1722 1728 1745 1751 1767 1784 1790 1807 1813 1831 1849 1855 1872 1878 1898 1904 1923 1929 1946 1952 1970 1976 1997 2003 2019 2025 2045 2051 2070 2076 2093 2099 2114 2120 2135 2151 2157 2178 2184 2203 2209 2226 2232 2251 2257 2277 2283 2299 2305 2325 2331 2350 2356 2373 2379 2398 2404 2425 2431 2449 2455 2475 2481 2495 2512 2518 2535 2542 2563 2569 2589 2595 2615 2622 2640 2646 2666 2672 2691 2697 2713 2719 2733 2750 2756 2775 2781 2801 2807 2826 2832 2852 2858 2877 2883 2903 2909 2928 2934 2951 2957 2972 2978 2995 3001 3015 3021 3036 3042 3056 3062 3077 3083 3097 3103 3119 3125 3139 3145 3161 3167 3184 3190 3196 3215 3221 3227 3243 3249 3255 3272 3278 3295 3301 3307 3326 3332 3338 3354 3360 3377 3383 3399 3405 3422 3428 3445 3451 3470 3476 3493 3499 3518 3524 3540 3546 3563 3569 3585 3591 3608 3614 3631 3637 3656 3662 3679 3685 3704 3710 3728 3734 3740 3759 3765 3771 3790 3796 3802 3823 3829 3835 3854 3860 3866 3887 3893 3899 3917 3923 3929 3935 3953 SEQ 0175 3959 3965 3982 3988 3994 4012 4018 4024 4043 4049 4055 4076 4082 4088 4107 4113 4119 4140 4146 4152 4168 4174 4191 4197 4213 4219 4236 4242 4259 4265 4284 4290 4307 4313 4332 4338 4354 4360 4377 4383 4399 4405 4422 4428 4445 4451 4470 4476 4493 4499 4518 4524 4542 4548 4554 4573 4579 4585 4604 4610 4616 4637 4643 4649 4668 4674 4695 4701 4707 4724 4730 4736 4754 4760 4766 4783 4789 4795 4813 4819 4825 4844 4850 4856 4877 4883 4889 4908 4914 4920 4941 4947 4953 4969 4975 4992 4998 5014 5020 5037 5043 5060 5066 5085 5091 5108 5114 5133 5139 5155 5161 5178 5184 5200 5206 5223 5229 5246 5252 5271 5277 5294 5300 5319 5325 5344 5350 5356 5377 5383 5389 5408 5414 5420 5442 5448 5454 5471 5477 5483 5501 5507 5513 5530 5536 5542 5560 5566 5572 5591 5597 5603 5624 5630 5636 5655 5661 5667 5688 5694 5700 LALL 10 LIST 9 318 356 489 5712 5831 LIT 5713 LOC 26 359 683 703 707 710 715 733 738 MOVE 921 937 938 961 963 971 1021 1038 1056 1078 1079 1138 1159 1176 1177 1198 1199 1222 1223 1243 1280 1296 1297 1319 1335 1336 1358 1359 1382 1398 1399 1422 1423 1445 1462 1463 1484 1485 1508 1524 1548 1571 1588 1589 1611 1612 1635 1651 1675 1698 1715 1716 1738 1739 1762 1777 1778 1800 1801 1826 1844 1867 1892 1917 1940 1941 1965 1991 2013 2014 2039 2064 2087 2088 2108 2109 2145 2172 2197 2220 2293 2367 2392 2419 2444 2469 2506 2507 2528 2529 2538 2558 2583 2608 2618 2634 2661 2685 2708 2728 2744 2745 2769 2795 2820 2846 2871 2897 2924 2946 2968 2990 3011 3032 3052 3073 3093 3114 3135 3156 3179 3180 3209 3210 3238 3239 3267 3268 3290 3291 3320 3321 3348 3371 3393 3416 3440 3464 3488 3512 3535 3558 3580 3603 3626 3650 3674 3698 3721 3722 3752 3753 3784 3785 3816 3817 3848 3849 3880 3881 3911 3912 3947 3948 3976 3977 4006 4007 4037 4038 4069 4070 4101 4102 4133 4134 4162 4185 4207 4230 4254 4278 4302 4326 4349 4372 4394 4417 4440 4464 4488 4512 4535 4536 4566 4567 4598 4599 4630 4631 4662 4663 4688 4689 4718 4719 4748 4749 4777 4778 4807 4808 4838 4839 4870 4871 4902 4903 4934 4935 4963 4986 5008 5031 5055 5079 5103 5127 5150 5173 5195 5218 5241 5265 5289 5313 5338 5339 5370 5371 5402 5403 5434 5435 5465 5466 5495 5496 5524 5525 5554 5555 5585 5586 5617 5618 5649 5650 5681 5682 MOVEM 962 1013 2530 2609 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 ORCAB 1613 ORCAI 1572 ORCAM 1590 ORCBB 1802 ORCBI 1763 ORCBM 1779 ORCMB 1740 ORCMI 1699 SEQ 0176 ORCMM 1717 POP 156 POPJ 154 PUSH 155 PUSHJ 153 SETA 1224 SETAI 1244 SETAM 1260 SETCAB 1550 SETCAI 1509 SETCAM 1526 SETCMB 1677 SETCMI 1636 SETCMM 1653 SETMB 1139 SETMI 1102 SETMM 1117 SETO 815 816 837 838 1101 1116 1137 1259 1525 1549 1652 1676 1843 1866 1891 1916 1964 1990 2038 2063 2443 2468 2490 2557 2582 2607 2870 2896 SETOB 900 SETOI 859 SETOM 745 752 778 880 2221 2294 SETZ 1115 2130 2171 2196 2244 2270 2318 2343 2391 2418 2660 2684 2707 2768 2794 2819 2845 SETZB 858 879 899 SETZI 817 SETZM 742 747 775 780 839 2144 2368 2635 5705 SIXBIT 77 78 574 575 583 584 SKIPA 979 1029 2546 2626 2948 2992 3116 3158 3212 3323 3351 3374 3396 3419 3467 3515 3653 3701 3725 3756 3820 3884 4073 4137 4165 4188 4210 4233 4281 4329 4467 4515 4539 4570 4634 4692 4874 4938 4966 4989 5011 5034 5082 5130 5268 5316 5374 5439 5621 5685 SKIPE 748 762 768 818 846 866 881 1118 2492 2823 SKIPL 783 SKIPN 746 751 759 764 770 779 781 SOS 758 SUBTTL 30 82 117 319 356 357 685 773 807 1818 2914 5707 TDCA 4720 4750 TDCE 4600 4632 TDCN 4840 4872 TDOA 5467 5497 TDOE 5340 5372 TDON 5587 5619 TDZA 3913 3949 TDZE 3786 3818 TDZN 4039 4071 TITLE 14 TLC 4208 4231 TLCA 4395 4418 TLCE 4303 4327 TLCN 4489 4513 TLNA 3053 3074 TLNE 744 777 2969 2991 SEQ 0177 TLNN 3136 3157 TLO 5009 5032 TLOA 5196 5219 TLOE 5104 5128 TLON 5290 5314 TLZ 3394 3417 TLZA 3581 3604 TLZE 3489 3513 TLZN 3675 3699 TRC 4163 4186 TRCA 4350 4373 TRCE 4255 4279 TRCN 4441 4465 TRNA 3012 3033 TRNE 2925 2947 TRNN 3094 3115 TRO 4964 4987 TROA 5151 5174 TROE 5056 5080 TRON 5242 5266 TRZ 3349 3372 TRZA 3536 3559 TRZE 3441 3465 TRZN 3627 3651 TSC 4537 4568 TSCA 4779 4809 TSCE 4664 4690 TSCN 4904 4936 TSNA 3240 3269 TSNE 3181 3211 TSNN 3292 3322 TSOA 5526 5556 TSOE 5404 5436 TSON 5651 5683 TSZ 3723 3754 TSZA 3978 4008 TSZE 3850 3882 TSZN 4103 4135 TTCALL 784 VAR 5839 XLIST 8 317 355 488 5711 XORB 1298 XORI 1281 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0178 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0179 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0180 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0181 *030662 SETO 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *030663 SETZI 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000002 FINAL C(AC)= 000000 000000 ---------- *030664 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030666 JUMPA 0,030667 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030667 ---------- *030667 CAME 2,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030671 JUMPA 0,030672 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030672 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0182 *030672 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *030673 SETO 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *030674 SETZM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- *030675 CAME 1,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030677 JUMPA 0,030700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030700 ---------- *030700 SKIPE 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0183 *030702 JUMPA 0,030703 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030703 ---------- *030703 SETZB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030704 SETOI 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000002 FINAL C(AC)= 777777 777777 ---------- *030705 CAME 1,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030707 JUMPA 0,030710 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030710 ---------- *030710 SKIPE 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0184 *030712 JUMPA 0,030713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030713 ---------- *030713 SETZB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030714 SETOM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *030715 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030717 JUMPA 0,030720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030720 ---------- *030720 CAME 2,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0185 *030722 JUMPA 0,030723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030723 ---------- *030723 SETZB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030724 SETOB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030725 CAME 1,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030727 JUMPA 0,030730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030730 ---------- *030730 CAME 2,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0186 *030732 JUMPA 0,030733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030733 ---------- *030733 MOVE 1,034220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777000 707070 FINAL C(AC)= 777000 707070 ---------- *030734 ANDI 1,123123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 707070 E= 000000 123123 FINAL C(AC)= 000000 103020 ---------- *030735 CAIE 1,103020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 103020 E= 000000 103020 ---------- *030737 JUMPA 0,030740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030740 ---------- *030740 MOVE 1,034221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 103020 C(E)= 777000 000777 FINAL C(AC)= 777000 000777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0187 *030741 MOVE 2,034222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 123456 FINAL C(AC)= 123456 123456 ---------- *030742 ANDM 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 777000 000777 FINAL C(E)= 123000 000456 ---------- *030743 CAME 2,034222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 123456 ---------- *030745 JUMPA 0,030746 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030746 ---------- *030746 CAME 1,034223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 000456 C(E)= 123000 000456 ---------- *030750 JUMPA 0,030751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030751 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0188 *030751 MOVE 1,034221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 000456 C(E)= 777000 000777 FINAL C(AC)= 777000 000777 ---------- *030752 MOVEM 1,030765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000777 C(E)= 000000 000000 FINAL C(E)= 777000 000777 ---------- *030753 MOVE 2,034222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 123456 FINAL C(AC)= 123456 123456 ---------- *030754 ANDM 2,030765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 777000 000777 FINAL C(E)= 123000 000456 ---------- *030755 CAME 2,034222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0189 *030757 JUMPA 0,030760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030760 ---------- *030760 MOVE 1,030765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000777 C(E)= 123000 000456 FINAL C(AC)= 123000 000456 ---------- *030761 CAME 1,034223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 000456 C(E)= 123000 000456 ---------- *030763 JUMPA 0,030764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030764 ---------- *030764 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030766 HRROI 3,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0190 *030767 HRLOI 6,121212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 121212 FINAL C(AC)= 121212 777777 ---------- *030770 ANDB 3,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 121212 777777 FINAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- *030771 CAME 3,034224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- *030773 JUMPA 0,030774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030774 ---------- *030774 CAME 6,034224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- *030776 JUMPA 0,030777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0191 *030777 HRROI 3,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 E= 000000 000000 FINAL C(AC)= 777777 000000 ---------- *031000 HRLOI 6,121212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 E= 000000 121212 FINAL C(AC)= 121212 777777 ---------- *031001 MOVEM 6,031013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 777777 C(E)= 000000 000000 FINAL C(E)= 121212 777777 ---------- *031002 ANDB 3,031013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 121212 777777 FINAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- *031003 CAME 3,034224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0192 *031005 JUMPA 0,031006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031006 ---------- *031006 MOVE 6,031013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 777777 C(E)= 121212 000000 FINAL C(AC)= 121212 000000 ---------- *031007 CAME 6,034224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 121212 000000 ---------- *031011 JUMPA 0,031012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031012 ---------- *031012 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *031014 MOVE 5,034220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777000 707070 FINAL C(AC)= 777000 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0193 *031015 ANDCAI 5,135246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 707070 E= 000000 135246 FINAL C(AC)= 000000 030206 ---------- *031016 CAIE 5,030206 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030206 E= 000000 030206 ---------- *031020 JUMPA 0,031021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031021 ---------- *031021 HRLOI 4,000767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000767 FINAL C(AC)= 000767 777777 ---------- *031022 MOVE 6,034225 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 777350 777776 FINAL C(AC)= 777350 777776 ---------- *031023 ANDCAM 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000767 777777 C(E)= 777350 777776 FINAL C(E)= 777010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0194 *031024 CAME 4,034226 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000767 777777 C(E)= 000767 777777 ---------- *031026 JUMPA 0,031027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031027 ---------- *031027 CAME 6,034227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777010 000000 C(E)= 777010 000000 ---------- *031031 JUMPA 0,031032 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031032 ---------- *031032 MOVE 1,034230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 000456 C(E)= 000777 770077 FINAL C(AC)= 000777 770077 ---------- *031033 MOVE 2,034231 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123456 C(E)= 123456 246123 FINAL C(AC)= 123456 246123 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0195 *031034 ANDCAB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 770077 C(E)= 123456 246123 FINAL C(AC)= 123000 006100 C(E)= 123000 006100 ---------- *031035 CAME 1,034232 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 006100 C(E)= 123000 006100 ---------- *031037 JUMPA 0,031040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031040 ---------- *031040 CAME 2,034232 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 006100 C(E)= 123000 006100 ---------- *031042 JUMPA 0,031043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031043 ---------- *031043 SETO 5,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030206 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0196 *031044 SETMI 5,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *031045 CAIE 5,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *031047 JUMPA 0,031050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031050 ---------- *031050 SETZ 16,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 000000 000000 ---------- *031051 SETO 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *031052 SETMM 16,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0197 *031053 SKIPE 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *031055 JUMPA 0,031056 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031056 ---------- *031056 CAME 17,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031060 JUMPA 0,031061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 031061 ---------- *031061 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 777777 777777 ---------- *031062 MOVE 1,034233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 006100 C(E)= 000100 777600 FINAL C(AC)= 000100 777600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0198 *031063 SETMB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000100 777600 FINAL C(AC)= 000100 777600 C(E)= 000100 777600 ---------- *031064 CAME 0,034233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 C(E)= 000100 777600 ---------- *031066 JUMPA 0,031067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031067 ---------- *031067 CAME 1,034233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 C(E)= 000100 777600 ---------- *031071 JUMPA 0,031072 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031072 ---------- *031072 MOVE 15,034234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 246135 FINAL C(AC)= 123456 246135 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0199 *031073 ANDCMI 15,717273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 246135 E= 000000 717273 FINAL C(AC)= 123456 040104 ---------- *031074 CAME 15,034235 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 040104 C(E)= 123456 040104 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031077 ---------- *031077 MOVE 14,034236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123321 456654 FINAL C(AC)= 123321 456654 ---------- *031100 MOVE 15,034237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 040104 C(E)= 770077 007770 FINAL C(AC)= 770077 007770 ---------- *031101 ANDCMM 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123321 456654 C(E)= 770077 007770 FINAL C(E)= 003300 450004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0200 *031102 CAME 14,034236 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123321 456654 C(E)= 123321 456654 ---------- *031104 JUMPA 0,031105 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031105 ---------- *031105 CAME 15,034240 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 003300 450004 C(E)= 003300 450004 ---------- *031107 JUMPA 0,031110 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031110 ---------- *031110 MOVE 13,034241 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 663322 FINAL C(AC)= 123456 663322 ---------- *031111 MOVE 14,034242 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123321 456654 C(E)= 777000 700770 FINAL C(AC)= 777000 700770 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0201 *031112 ANDCMB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 663322 C(E)= 777000 700770 FINAL C(AC)= 000456 063002 C(E)= 000456 063002 ---------- *031113 CAME 13,034243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000456 063002 C(E)= 000456 063002 ---------- *031115 JUMPA 0,031116 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031116 ---------- *031116 CAME 14,034243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000456 063002 C(E)= 000456 063002 ---------- *031120 JUMPA 0,031121 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031121 ---------- *031121 MOVE 12,034244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 777776 FINAL C(AC)= 123456 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0202 *031122 MOVE 13,034245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000456 063002 C(E)= 010203 123450 FINAL C(AC)= 010203 123450 ---------- *031123 SETA 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 C(E)= 010203 123450 FINAL C(AC)= 123456 777776 ---------- *031124 CAME 12,034244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 C(E)= 123456 777776 ---------- *031126 JUMPA 0,031127 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031127 ---------- *031127 CAME 13,034245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010203 123450 C(E)= 010203 123450 ---------- *031131 JUMPA 0,031132 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031132 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0203 *031132 MOVE 12,034244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 C(E)= 123456 777776 FINAL C(AC)= 123456 777776 ---------- *031133 SETAI 12,123450 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 E= 000000 123450 FINAL C(AC)= 123456 777776 ---------- *031134 CAME 12,034244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 C(E)= 123456 777776 ---------- *031136 JUMPA 0,031137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031137 ---------- *031137 HRLZI 11,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 123456 FINAL C(AC)= 123456 000000 ---------- *031140 SETO 12,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777776 C(E)= 000100 777600 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0204 *031141 SETAM 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 777777 777777 FINAL C(E)= 123456 000000 ---------- *031142 CAME 11,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031144 JUMPA 0,031145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031145 ---------- *031145 CAME 12,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031147 JUMPA 0,031150 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031150 ---------- *031150 MOVE 10,034247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000777 123456 FINAL C(AC)= 000777 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0205 *031151 XORI 10,434431 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 123456 E= 000000 434431 FINAL C(AC)= 000777 517067 ---------- *031152 CAME 10,034250 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 517067 C(E)= 000777 517067 ---------- *031154 JUMPA 0,031155 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031155 ---------- *031155 MOVE 7,034251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 707077 555666 FINAL C(AC)= 707077 555666 ---------- *031156 MOVE 10,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 517067 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031157 XORB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707077 555666 C(E)= 123456 765432 FINAL C(AC)= 624421 230254 C(E)= 624421 230254 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0206 *031160 CAME 7,034253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624421 230254 C(E)= 624421 230254 ---------- *031162 JUMPA 0,031163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031163 ---------- *031163 CAME 10,034253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624421 230254 C(E)= 624421 230254 ---------- *031165 JUMPA 0,031166 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031166 ---------- *031166 MOVE 6,034254 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777010 000000 C(E)= 707070 123456 FINAL C(AC)= 707070 123456 ---------- *031167 IORI 6,765567 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 123456 E= 000000 765567 FINAL C(AC)= 707070 767577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0207 *031170 CAME 6,034255 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 767577 C(E)= 707070 767577 ---------- *031172 JUMPA 0,031173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031173 ---------- *031173 MOVE 5,034256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 777666 FINAL C(AC)= 123456 777666 ---------- *031174 MOVE 6,034257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 767577 C(E)= 777001 123470 FINAL C(AC)= 777001 123470 ---------- *031175 IORM 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777666 C(E)= 777001 123470 FINAL C(E)= 777457 777676 ---------- *031176 CAME 5,034256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777666 C(E)= 123456 777666 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0208 *031200 JUMPA 0,031201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031201 ---------- *031201 CAME 6,034260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 777457 777676 ---------- *031203 JUMPA 0,031204 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031204 ---------- *031204 MOVE 5,034256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777666 C(E)= 123456 777666 FINAL C(AC)= 123456 777666 ---------- *031205 MOVE 6,034257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 777001 123470 FINAL C(AC)= 777001 123470 ---------- *031206 IORB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777666 C(E)= 777001 123470 FINAL C(AC)= 777457 777676 C(E)= 777457 777676 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0209 *031207 CAME 5,034260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 777457 777676 ---------- *031211 JUMPA 0,031212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031212 ---------- *031212 CAME 6,034260 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 777457 777676 ---------- *031214 JUMPA 0,031215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031215 ---------- *031215 MOVE 4,034261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000767 777777 C(E)= 777000 123456 FINAL C(AC)= 777000 123456 ---------- *031216 ANDCBI 4,706050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123456 E= 000000 706050 FINAL C(AC)= 000777 050321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0210 *031217 CAME 4,034262 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 050321 C(E)= 000777 050321 ---------- *031221 JUMPA 0,031222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031222 ---------- *031222 MOVE 3,034263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121212 000000 C(E)= 777007 771100 FINAL C(AC)= 777007 771100 ---------- *031223 MOVE 4,034264 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 050321 C(E)= 063202 123477 FINAL C(AC)= 063202 123477 ---------- *031224 ANDCBM 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777007 771100 C(E)= 063202 123477 FINAL C(E)= 000570 004200 ---------- *031225 CAME 3,034263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777007 771100 C(E)= 777007 771100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0211 *031227 JUMPA 0,031230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031230 ---------- *031230 CAME 4,034265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 000570 004200 ---------- *031232 JUMPA 0,031233 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031233 ---------- *031233 MOVE 3,034263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777007 771100 C(E)= 777007 771100 FINAL C(AC)= 777007 771100 ---------- *031234 MOVE 4,034264 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 063202 123477 FINAL C(AC)= 063202 123477 ---------- *031235 ANDCBB 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777007 771100 C(E)= 063202 123477 FINAL C(AC)= 000570 004200 C(E)= 000570 004200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0212 *031236 CAME 3,034265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 000570 004200 ---------- *031240 JUMPA 0,031241 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031241 ---------- *031241 CAME 4,034265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 000570 004200 ---------- *031243 JUMPA 0,031244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031244 ---------- *031244 MOVE 2,034266 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123000 006100 C(E)= 707070 123426 FINAL C(AC)= 707070 123426 ---------- *031245 EQVI 2,123363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 123426 E= 000000 123363 FINAL C(AC)= 070707 777032 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0213 *031246 CAME 2,034267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 070707 777032 C(E)= 070707 777032 ---------- *031250 JUMPA 0,031251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031251 ---------- *031251 MOVE 1,034270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 C(E)= 123456 123457 FINAL C(AC)= 123456 123457 ---------- *031252 MOVE 2,034271 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 070707 777032 C(E)= 707633 121212 FINAL C(AC)= 707633 121212 ---------- *031253 EQVM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123457 C(E)= 707633 121212 FINAL C(E)= 153512 775132 ---------- *031254 CAME 1,034270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123457 C(E)= 123456 123457 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0214 *031256 JUMPA 0,031257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031257 ---------- *031257 CAME 2,034272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 153512 775132 ---------- *031261 JUMPA 0,031262 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031262 ---------- *031262 MOVE 1,034270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123457 C(E)= 123456 123457 FINAL C(AC)= 123456 123457 ---------- *031263 MOVE 2,034271 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 707633 121212 FINAL C(AC)= 707633 121212 ---------- *031264 EQVB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123457 C(E)= 707633 121212 FINAL C(AC)= 153512 775132 C(E)= 153512 775132 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0215 *031265 CAME 1,034272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 153512 775132 ---------- *031267 JUMPA 0,031270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031270 ---------- *031270 CAME 2,034272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 153512 775132 ---------- *031272 JUMPA 0,031273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 E= 000000 031273 ---------- *031273 MOVE 0,034261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 777600 C(E)= 777000 123456 FINAL C(AC)= 777000 123456 ---------- *031274 SETCAI 0,707070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123456 E= 000000 707070 FINAL C(AC)= 000777 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0216 *031275 CAME 0,034273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 654321 C(E)= 000777 654321 ---------- *031277 JUMPA 0,031300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 654321 E= 000000 031300 ---------- *031300 MOVE 17,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031301 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 654321 C(E)= 000777 654321 FINAL C(AC)= 777777 777777 ---------- *031302 SETCAM 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 777777 777777 FINAL C(E)= 654321 012345 ---------- *031303 CAME 17,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0217 *031305 JUMPA 0,031306 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031306 ---------- *031306 CAME 0,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031310 JUMPA 0,031311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031311 ---------- *031311 MOVE 17,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031312 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 FINAL C(AC)= 777777 777777 ---------- *031313 SETCAB 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 777777 777777 FINAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0218 *031314 CAME 17,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031316 JUMPA 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031317 ---------- *031317 CAME 0,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031321 JUMPA 0,031322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031322 ---------- *031322 MOVE 16,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031323 ORCAI 16,765401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 E= 000000 765401 FINAL C(AC)= 000777 775701 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0219 *031324 CAME 16,034276 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 775701 C(E)= 000777 775701 ---------- *031326 JUMPA 0,031327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031327 ---------- *031327 MOVE 15,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 003300 450004 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031330 MOVE 16,034277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 775701 C(E)= 707070 707072 FINAL C(AC)= 707070 707072 ---------- *031331 ORCAM 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 C(E)= 707070 707072 FINAL C(E)= 707777 757372 ---------- *031332 CAME 15,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 C(E)= 777000 123477 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0220 *031334 JUMPA 0,031335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031335 ---------- *031335 CAME 16,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031337 JUMPA 0,031340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031340 ---------- *031340 MOVE 15,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031341 MOVE 16,034277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707070 707072 FINAL C(AC)= 707070 707072 ---------- *031342 ORCAB 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 C(E)= 707070 707072 FINAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0221 *031343 CAME 15,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031345 JUMPA 0,031346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031346 ---------- *031346 CAME 16,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031350 JUMPA 0,031351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031351 ---------- *031351 MOVE 0,034261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 777000 123456 FINAL C(AC)= 777000 123456 ---------- *031352 SETCMI 0,707070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123456 E= 000000 707070 FINAL C(AC)= 777777 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0222 *031353 CAME 0,034301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 070707 C(E)= 777777 070707 ---------- *031355 JUMPA 0,031356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 070707 E= 000000 031356 ---------- *031356 MOVE 17,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031357 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 070707 C(E)= 777777 070707 FINAL C(AC)= 777777 777777 ---------- *031360 SETCMM 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 765432 FINAL C(E)= 654321 012345 ---------- *031361 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0223 *031363 JUMPA 0,031364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031364 ---------- *031364 CAME 17,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031366 JUMPA 0,031367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031367 ---------- *031367 MOVE 17,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031370 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031371 SETCMB 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 765432 FINAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0224 *031372 CAME 0,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031374 JUMPA 0,031375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031375 ---------- *031375 CAME 17,034274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 ---------- *031377 JUMPA 0,031400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031400 ---------- *031400 MOVE 16,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031401 ORCMI 16,765401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 123477 E= 000000 765401 FINAL C(AC)= 777777 133777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0225 *031402 CAME 16,034302 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 133777 C(E)= 777777 133777 ---------- *031404 JUMPA 0,031405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031405 ---------- *031405 MOVE 15,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031406 MOVE 16,034277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 133777 C(E)= 707070 707072 FINAL C(AC)= 707070 707072 ---------- *031407 ORCMM 16,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707072 C(E)= 777000 123477 FINAL C(E)= 707777 757372 ---------- *031410 CAME 16,034277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707072 C(E)= 707070 707072 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0226 *031412 JUMPA 0,031413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031413 ---------- *031413 CAME 15,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031415 JUMPA 0,031416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031416 ---------- *031416 MOVE 15,034275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 777000 123477 FINAL C(AC)= 777000 123477 ---------- *031417 MOVE 16,034277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707072 C(E)= 707070 707072 FINAL C(AC)= 707070 707072 ---------- *031420 ORCMB 16,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707072 C(E)= 777000 123477 FINAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0227 *031421 CAME 16,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031423 JUMPA 0,031424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031424 ---------- *031424 CAME 15,034300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707777 757372 ---------- *031426 JUMPA 0,031427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031427 ---------- *031427 MOVE 15,034303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 707070 070706 FINAL C(AC)= 707070 070706 ---------- *031430 ORCBI 15,770011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 070706 E= 000000 770011 FINAL C(AC)= 777777 707777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0228 *031431 CAME 15,034304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 707777 C(E)= 777777 707777 ---------- *031433 JUMPA 0,031434 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031434 ---------- *031434 MOVE 14,034305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000456 063002 C(E)= 123456 770077 FINAL C(AC)= 123456 770077 ---------- *031435 MOVE 15,034306 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 707777 C(E)= 777001 123324 FINAL C(AC)= 777001 123324 ---------- *031436 ORCBM 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 770077 C(E)= 777001 123324 FINAL C(E)= 654777 657753 ---------- *031437 CAME 14,034305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 770077 C(E)= 123456 770077 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0229 *031441 JUMPA 0,031442 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031442 ---------- *031442 CAME 15,034307 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 654777 657753 ---------- *031444 JUMPA 0,031445 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031445 ---------- *031445 MOVE 14,034305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 770077 C(E)= 123456 770077 FINAL C(AC)= 123456 770077 ---------- *031446 MOVE 15,034306 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 777001 123324 FINAL C(AC)= 777001 123324 ---------- *031447 ORCBB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 770077 C(E)= 777001 123324 FINAL C(AC)= 654777 657753 C(E)= 654777 657753 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0230 *031450 CAME 14,034307 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 654777 657753 ---------- *031452 JUMPA 0,031453 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031453 ---------- *031453 CAME 15,034307 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 654777 657753 ---------- *031455 JUMPA 0,031456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031456 ---------- *031456 MOVE 17,034254 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 707070 123456 FINAL C(AC)= 707070 123456 ---------- *031457 HLLI 17,777000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 123456 E= 000000 777000 FINAL C(AC)= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0231 *031460 CAIE 17,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *031462 JUMPA 0,031463 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 E= 000000 031463 ---------- *031463 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 012345 C(E)= 654321 012345 FINAL C(AC)= 777777 777777 ---------- *031464 MOVE 2,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031465 HLLS 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 765432 FINAL C(AC)= 777777 777777 C(E)= 123456 765432 ---------- *031466 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0232 *031470 JUMPA 0,031471 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031471 ---------- *031471 CAME 2,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 ---------- *031473 JUMPA 0,031474 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031474 ---------- *031474 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 153512 775132 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031475 MOVE 2,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *031476 HLLS 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 C(E)= 123456 765432 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0233 *031477 CAME 1,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 ---------- *031501 JUMPA 0,031502 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031502 ---------- *031502 CAME 2,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 123456 765432 ---------- *031504 JUMPA 0,031505 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031505 ---------- *031505 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031506 MOVE 3,034310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 123456 707070 FINAL C(AC)= 123456 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0234 *031507 HRLS 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707070 FINAL C(AC)= 777777 777777 C(E)= 707070 707070 ---------- *031510 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031512 JUMPA 0,031513 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031513 ---------- *031513 CAME 3,034311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *031515 JUMPA 0,031516 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031516 ---------- *031516 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0235 *031517 MOVE 3,034310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 123456 707070 FINAL C(AC)= 123456 707070 ---------- *031520 HRLS 1,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707070 FINAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *031521 CAME 1,034311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *031523 JUMPA 0,031524 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031524 ---------- *031524 CAME 3,034311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 707070 707070 ---------- *031526 JUMPA 0,031527 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031527 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0236 *031527 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *031530 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *031531 HLLZM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 123456 000000 ---------- *031532 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- *031534 JUMPA 0,031535 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031535 ---------- *031535 CAME 2,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0237 *031537 JUMPA 0,031540 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031540 ---------- *031540 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031541 MOVE 17,034310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 707070 FINAL C(AC)= 123456 707070 ---------- *031542 HLLZS 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707070 FINAL C(AC)= 777777 777777 C(E)= 123456 000000 ---------- *031543 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031545 JUMPA 0,031546 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031546 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0238 *031546 CAME 17,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031550 JUMPA 0,031551 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031551 ---------- *031551 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031552 MOVE 17,034310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 707070 FINAL C(AC)= 123456 707070 ---------- *031553 HLLZS 1,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707070 FINAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031554 CAME 1,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0239 *031556 JUMPA 0,031557 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031557 ---------- *031557 CAME 17,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031561 JUMPA 0,031562 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031562 ---------- *031562 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *031563 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *031564 HRLZM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 123422 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0240 *031565 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- *031567 JUMPA 0,031570 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031570 ---------- *031570 CAME 2,034314 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123422 000000 C(E)= 123422 000000 ---------- *031572 JUMPA 0,031573 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031573 ---------- *031573 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031574 MOVE 16,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707777 757372 C(E)= 123456 707076 FINAL C(AC)= 123456 707076 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0241 *031575 HRLZS 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707076 FINAL C(AC)= 777777 777777 C(E)= 707076 000000 ---------- *031576 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031600 JUMPA 0,031601 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031601 ---------- *031601 CAME 16,034316 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 707076 000000 ---------- *031603 JUMPA 0,031604 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031604 ---------- *031604 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0242 *031605 MOVE 16,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 123456 707076 FINAL C(AC)= 123456 707076 ---------- *031606 HRLZS 1,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 707076 FINAL C(AC)= 707076 000000 C(E)= 707076 000000 ---------- *031607 CAME 1,034316 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 707076 000000 ---------- *031611 JUMPA 0,031612 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031612 ---------- *031612 CAME 16,034316 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 707076 000000 ---------- *031614 JUMPA 0,031615 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031615 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0243 *031615 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *031616 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123422 000000 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *031617 HLLOM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 123456 777777 ---------- *031620 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- *031622 JUMPA 0,031623 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031623 ---------- *031623 CAME 2,034317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777777 C(E)= 123456 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0244 *031625 JUMPA 0,031626 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031626 ---------- *031626 MOVE 15,034320 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 123456 135724 FINAL C(AC)= 123456 135724 ---------- *031627 MOVE 16,034321 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 000000 C(E)= 765432 246135 FINAL C(AC)= 765432 246135 ---------- *031630 HRLO 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 135724 C(E)= 765432 246135 FINAL C(AC)= 246135 777777 ---------- *031631 CAME 15,034322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 246135 777777 C(E)= 246135 777777 ---------- *031633 JUMPA 0,031634 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031634 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0245 *031634 CAME 16,034321 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 246135 C(E)= 765432 246135 ---------- *031636 JUMPA 0,031637 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031637 ---------- *031637 SETZ 14,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654777 657753 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031640 HRLOI 14,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 123456 FINAL C(AC)= 123456 777777 ---------- *031641 CAME 14,034317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777777 C(E)= 123456 777777 ---------- *031643 JUMPA 0,031644 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031644 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0246 *031644 SETZM 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 777777 FINAL C(E)= 000000 000000 ---------- *031645 MOVE 13,034323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010203 123450 C(E)= 123123 456765 FINAL C(AC)= 123123 456765 ---------- *031646 HRLOM 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 456765 C(E)= 000000 000000 FINAL C(E)= 456765 777777 ---------- *031647 CAME 13,034323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 456765 C(E)= 123123 456765 ---------- *031651 JUMPA 0,031652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031652 ---------- *031652 CAME 14,034324 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 456765 777777 C(E)= 456765 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0247 *031654 JUMPA 0,031655 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031655 ---------- *031655 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031656 MOVE 16,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 246135 C(E)= 123456 707076 FINAL C(AC)= 123456 707076 ---------- *031657 HRLOS 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 707076 FINAL C(AC)= 000000 000000 C(E)= 707076 777777 ---------- *031660 CAME 0,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031662 JUMPA 0,031663 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031663 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0248 *031663 CAME 16,034326 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 707076 777777 ---------- *031665 JUMPA 0,031666 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031666 ---------- *031666 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031667 MOVE 16,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 123456 707076 FINAL C(AC)= 123456 707076 ---------- *031670 HRLOS 1,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 707076 FINAL C(AC)= 707076 777777 C(E)= 707076 777777 ---------- *031671 CAME 1,034326 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 707076 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0249 *031673 JUMPA 0,031674 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031674 ---------- *031674 CAME 16,034326 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 707076 777777 ---------- *031676 JUMPA 0,031677 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031677 ---------- *031677 MOVE 12,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 707076 FINAL C(AC)= 123456 707076 ---------- *031700 SETOM 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123123 456765 FINAL C(E)= 777777 777777 ---------- *031701 HLLEM 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 707076 C(E)= 777777 777777 FINAL C(E)= 123456 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0250 *031702 CAME 12,034315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 707076 C(E)= 123456 707076 ---------- *031704 JUMPA 0,031705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031705 ---------- *031705 CAME 13,034246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 000000 ---------- *031707 JUMPA 0,031710 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031710 ---------- *031710 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031711 HRLZI 2,765432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 777777 E= 000000 765432 FINAL C(AC)= 765432 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0251 *031712 HLLES 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 765432 000000 FINAL C(AC)= 000000 000000 C(E)= 765432 777777 ---------- *031713 CAME 0,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031715 JUMPA 0,031716 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031716 ---------- *031716 CAME 2,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031720 JUMPA 0,031721 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031721 ---------- *031721 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0252 *031722 HRLZI 2,765432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 E= 000000 765432 FINAL C(AC)= 765432 000000 ---------- *031723 HLLES 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 765432 000000 FINAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031724 CAME 1,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031726 JUMPA 0,031727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031727 ---------- *031727 CAME 2,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031731 JUMPA 0,031732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031732 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0253 *031732 MOVE 12,034330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 707076 C(E)= 365432 123456 FINAL C(AC)= 365432 123456 ---------- *031733 SETOM 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 000000 FINAL C(E)= 777777 777777 ---------- *031734 HLLEM 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 365432 123456 C(E)= 777777 777777 FINAL C(E)= 365432 000000 ---------- *031735 CAME 12,034330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 365432 123456 C(E)= 365432 123456 ---------- *031737 JUMPA 0,031740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031740 ---------- *031740 CAME 13,034331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 365432 000000 C(E)= 365432 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0254 *031742 JUMPA 0,031743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031743 ---------- *031743 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031744 HRRZI 2,765432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 E= 000000 765432 FINAL C(AC)= 000000 765432 ---------- *031745 HRLES 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 765432 FINAL C(AC)= 000000 000000 C(E)= 765432 777777 ---------- *031746 CAME 0,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031750 JUMPA 0,031751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031751 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0255 *031751 CAME 2,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031753 JUMPA 0,031754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031754 ---------- *031754 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031755 HRRZI 2,765432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 E= 000000 765432 FINAL C(AC)= 000000 765432 ---------- *031756 HRLES 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 765432 FINAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031757 CAME 1,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0256 *031761 JUMPA 0,031762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031762 ---------- *031762 CAME 2,034327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 765432 777777 ---------- *031764 JUMPA 0,031765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031765 ---------- *031765 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *031766 SETZM 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 365432 123456 FINAL C(E)= 000000 000000 ---------- *031767 HLRM 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 000000 000000 FINAL C(E)= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0257 *031770 CAME 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *031772 JUMPA 0,031773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031773 ---------- *031773 CAIE 12,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *031775 JUMPA 0,031776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031776 ---------- *031776 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031777 MOVE 12,034333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123123 246135 FINAL C(AC)= 123123 246135 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0258 *032000 HLRS 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123123 246135 FINAL C(AC)= 000000 000000 C(E)= 123123 123123 ---------- *032001 CAME 0,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032003 JUMPA 0,032004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032004 ---------- *032004 CAME 12,034334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 123123 123123 ---------- *032006 JUMPA 0,032007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032007 ---------- *032007 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0259 *032010 MOVE 12,034333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 123123 246135 FINAL C(AC)= 123123 246135 ---------- *032011 HLRS 1,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123123 246135 FINAL C(AC)= 123123 123123 C(E)= 123123 123123 ---------- *032012 CAME 1,034334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 123123 123123 ---------- *032014 JUMPA 0,032015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032015 ---------- *032015 CAME 12,034334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 123123 123123 ---------- *032017 JUMPA 0,032020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0260 *032020 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032021 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 000000 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032022 HRRZS 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 777777 777777 C(E)= 000000 701234 ---------- *032023 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032025 JUMPA 0,032026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032026 ---------- *032026 CAIE 17,701234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 E= 000000 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0261 *032030 JUMPA 0,032031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032031 ---------- *032031 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032032 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032033 HRRZS 1,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 000000 701234 C(E)= 000000 701234 ---------- *032034 CAIE 1,701234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 E= 000000 701234 ---------- *032036 JUMPA 0,032037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032037 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0262 *032037 CAIE 17,701234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 E= 000000 701234 ---------- *032041 JUMPA 0,032042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032042 ---------- *032042 SETO 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 624421 230254 FINAL C(AC)= 777777 777777 ---------- *032043 HLRZI 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624421 230254 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *032044 SKIPE 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032046 JUMPA 0,032047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032047 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0263 *032047 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *032050 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 777777 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *032051 HLRZM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 000000 123456 ---------- *032052 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- *032054 JUMPA 0,032055 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032055 ---------- *032055 CAIE 2,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0264 *032057 JUMPA 0,032060 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032060 ---------- *032060 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *032061 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *032062 MOVEM 2,032074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 717171 C(E)= 000000 000000 FINAL C(E)= 707070 717171 ---------- *032063 HLRZM 1,032074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0265 *032064 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- *032066 JUMPA 0,032067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032067 ---------- *032067 MOVE 2,032074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 717171 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *032070 CAIE 2,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032072 JUMPA 0,032073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032073 ---------- *032073 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0266 *032075 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032076 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032077 HLRZS 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 777777 777777 C(E)= 000000 123456 ---------- *032100 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032102 JUMPA 0,032103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032103 ---------- *032103 CAIE 7,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0267 *032105 JUMPA 0,032106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032106 ---------- *032106 SETO 6,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032107 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032110 HLRZS 6,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 000000 123456 C(E)= 000000 123456 ---------- *032111 CAIE 6,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032113 JUMPA 0,032114 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032114 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0268 *032114 CAIE 7,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032116 JUMPA 0,032117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032117 ---------- *032117 SETO 6,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032120 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032121 MOVEM 7,032133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 000000 000000 FINAL C(E)= 123456 701234 ---------- *032122 HLRZS 6,032133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 000000 123456 C(E)= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0269 *032123 CAIE 6,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032125 JUMPA 0,032126 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032126 ---------- *032126 MOVE 7,032133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 000000 123456 FINAL C(AC)= 000000 123456 ---------- *032127 CAIE 7,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032131 JUMPA 0,032132 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032132 ---------- *032132 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0270 *032134 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777457 777676 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032135 SETZM 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 123456 FINAL C(E)= 000000 000000 ---------- *032136 HRROM 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 000000 000000 FINAL C(E)= 777777 701234 ---------- *032137 CAME 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032141 JUMPA 0,032142 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032142 ---------- *032142 CAME 6,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0271 *032144 JUMPA 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032145 ---------- *032145 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *032146 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032147 HRROS 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 000000 000000 C(E)= 777777 701234 ---------- *032150 CAME 0,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032152 JUMPA 0,032153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032153 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0272 *032153 CAME 17,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032155 JUMPA 0,032156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032156 ---------- *032156 SETZ 16,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707076 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032157 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032160 HRROS 16,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032161 CAME 16,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0273 *032163 JUMPA 0,032164 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032164 ---------- *032164 CAME 17,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032166 JUMPA 0,032167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032167 ---------- *032167 SETZ 4,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000570 004200 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032170 MOVE 5,034336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 765432 107654 FINAL C(AC)= 765432 107654 ---------- *032171 HLRO 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 765432 107654 FINAL C(AC)= 777777 765432 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0274 *032172 CAME 4,034337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 765432 C(E)= 777777 765432 ---------- *032174 JUMPA 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032175 ---------- *032175 CAME 5,034336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 107654 C(E)= 765432 107654 ---------- *032177 JUMPA 0,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032200 ---------- *032200 MOVE 3,034252 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(E)= 123456 765432 FINAL C(AC)= 123456 765432 ---------- *032201 HLROI 3,070707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 765432 E= 000000 070707 FINAL C(AC)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0275 *032202 CAME 3,034340 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 777777 000000 ---------- *032204 JUMPA 0,032205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032205 ---------- *032205 MOVE 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 FINAL C(AC)= 123456 123422 ---------- *032206 MOVE 2,034313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 707070 717171 FINAL C(AC)= 707070 717171 ---------- *032207 HLROM 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 707070 717171 FINAL C(E)= 777777 123456 ---------- *032210 CAME 1,034312 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 123456 123422 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0276 *032212 JUMPA 0,032213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032213 ---------- *032213 CAME 2,034341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 777777 123456 ---------- *032215 JUMPA 0,032216 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032216 ---------- *032216 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032217 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032220 HLROS 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 000000 000000 C(E)= 777777 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 100 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0277 *032221 CAIE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 ---------- *032223 JUMPA 0,032224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032224 ---------- *032224 CAME 7,034341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 777777 123456 ---------- *032226 JUMPA 0,032227 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032227 ---------- *032227 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 123422 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032230 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 101 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0278 *032231 HLROS 1,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 777777 123456 C(E)= 777777 123456 ---------- *032232 CAME 1,034341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 777777 123456 ---------- *032234 JUMPA 0,032235 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032235 ---------- *032235 CAME 7,034341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 777777 123456 ---------- *032237 JUMPA 0,032240 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032240 ---------- *032240 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 102 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0279 *032241 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032242 HRRES 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 000000 000000 C(E)= 777777 701234 ---------- *032243 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032245 JUMPA 0,032246 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032246 ---------- *032246 CAME 3,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032250 JUMPA 0,032251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032251 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 103 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0280 *032251 SETZ 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *032252 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032253 HRRES 1,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 123456 701234 FINAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032254 CAME 1,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- *032256 JUMPA 0,032257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032257 ---------- *032257 CAME 3,034335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 104 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0281 *032261 JUMPA 0,032262 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 032262 ---------- *032262 SETO 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *032263 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032264 HLRES 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 777777 777777 C(E)= 000000 123456 ---------- *032265 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *032267 JUMPA 0,032270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032270 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 105 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0282 *032270 CAIE 7,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032272 JUMPA 0,032273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032273 ---------- *032273 SETO 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032274 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032275 HLRES 1,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 000000 123456 C(E)= 000000 123456 ---------- *032276 CAIE 1,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 106 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0283 *032300 JUMPA 0,032301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032301 ---------- *032301 CAIE 7,123456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 E= 000000 123456 ---------- *032303 JUMPA 0,032304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032304 ---------- *032304 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032305 TRNE 17,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032307 JUMPA 0,032310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032310 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 107 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0284 *032310 CAME 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032312 JUMPA 0,032313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032313 ---------- *032313 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032314 TRNE 16,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032315 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032317 JUMPA 0,032320 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032320 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 108 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0285 *032320 CAME 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032322 JUMPA 0,032323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032323 ---------- *032323 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 246135 777777 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032324 TLNE 15,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032326 JUMPA 0,032327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032327 ---------- *032327 CAME 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 109 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0286 *032331 JUMPA 0,032332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032332 ---------- *032332 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 456765 777777 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032333 TLNE 14,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032334 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032336 JUMPA 0,032337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032337 ---------- *032337 CAME 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 110 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0287 *032341 JUMPA 0,032342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032342 ---------- *032342 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 365432 000000 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032343 TRNA 13,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032345 JUMPA 0,032346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032346 ---------- *032346 CAME 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032350 JUMPA 0,032351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032351 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 111 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0288 *032351 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123123 123123 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032352 TRNA 12,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032354 JUMPA 0,032355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032355 ---------- *032355 CAME 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032357 JUMPA 0,032360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032360 ---------- *032360 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 112 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0289 *032361 TLNA 11,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032363 JUMPA 0,032364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032364 ---------- *032364 CAME 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032366 JUMPA 0,032367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032367 ---------- *032367 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624421 230254 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032370 TLNA 10,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 113 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0290 *032372 JUMPA 0,032373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032373 ---------- *032373 CAME 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032375 JUMPA 0,032376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032376 ---------- *032376 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032377 TRNN 7,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032401 JUMPA 0,032402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032402 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 114 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0291 *032402 CAME 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032404 JUMPA 0,032405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032405 ---------- *032405 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032406 TRNN 6,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032407 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032411 JUMPA 0,032412 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032412 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 115 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0292 *032412 CAME 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032414 JUMPA 0,032415 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032415 ---------- *032415 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 765432 107654 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032416 TLNN 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032420 JUMPA 0,032421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032421 ---------- *032421 CAME 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 116 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0293 *032423 JUMPA 0,032424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032424 ---------- *032424 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 765432 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032425 TLNN 4,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032426 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032430 JUMPA 0,032431 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032431 ---------- *032431 CAME 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 117 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0294 *032433 JUMPA 0,032434 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032434 ---------- *032434 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032435 MOVE 4,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *032436 TSNE 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *032440 JUMPA 0,032441 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032441 ---------- *032441 CAME 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 118 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0295 *032443 JUMPA 0,032444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032444 ---------- *032444 CAME 4,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *032446 JUMPA 0,032447 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032447 ---------- *032447 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032450 MOVE 3,034343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654323 FINAL C(AC)= 076543 654323 ---------- *032451 TSNE 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654323 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 119 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0296 *032452 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032454 JUMPA 0,032455 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032455 ---------- *032455 CAME 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032457 JUMPA 0,032460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032460 ---------- *032460 CAME 3,034343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654323 C(E)= 076543 654323 ---------- *032462 JUMPA 0,032463 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032463 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 120 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0297 *032463 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032464 MOVE 2,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *032465 TSNA 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *032467 JUMPA 0,032470 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032470 ---------- *032470 CAME 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032472 JUMPA 0,032473 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032473 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 121 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0298 *032473 CAME 2,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *032475 JUMPA 0,032476 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 032476 ---------- *032476 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032477 MOVE 1,034343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654323 FINAL C(AC)= 076543 654323 ---------- *032500 TSNA 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654323 FINAL C(AC)= 123456 701234 ---------- *032502 JUMPA 0,032503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032503 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 122 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0299 *032503 CAME 1,034343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654323 C(E)= 076543 654323 ---------- *032505 JUMPA 0,032506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032506 ---------- *032506 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032507 MOVE 0,034344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032510 TSNN 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076547 654321 FINAL C(AC)= 123456 701234 ---------- *032512 JUMPA 0,032513 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032513 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 123 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0300 *032513 CAME 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032515 JUMPA 0,032516 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032516 ---------- *032516 CAME 0,034344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 ---------- *032520 JUMPA 0,032521 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032521 ---------- *032521 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032522 MOVE 17,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 124 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0301 *032523 TSNN 16,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *032524 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032526 JUMPA 0,032527 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032527 ---------- *032527 CAME 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032531 JUMPA 0,032532 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032532 ---------- *032532 CAME 17,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 125 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0302 *032534 JUMPA 0,032535 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032535 ---------- *032535 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032536 TRZ 12,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032537 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032541 JUMPA 0,032542 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032542 ---------- *032542 CAME 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 126 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0303 *032544 JUMPA 0,032545 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032545 ---------- *032545 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032546 TRZ 14,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701034 ---------- *032547 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032551 JUMPA 0,032552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032552 ---------- *032552 CAME 14,034345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701034 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 127 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0304 *032554 JUMPA 0,032555 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032555 ---------- *032555 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032556 TLZ 13,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032557 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032561 JUMPA 0,032562 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032562 ---------- *032562 CAME 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 128 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0305 *032564 JUMPA 0,032565 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032565 ---------- *032565 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032566 TLZ 12,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123454 701234 ---------- *032567 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032571 JUMPA 0,032572 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032572 ---------- *032572 CAME 12,034346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123454 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 129 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0306 *032574 JUMPA 0,032575 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032575 ---------- *032575 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032576 TRZE 11,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032600 JUMPA 0,032601 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032601 ---------- *032601 CAME 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032603 JUMPA 0,032604 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032604 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 130 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0307 *032604 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032605 TRZE 10,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701034 ---------- *032606 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032610 JUMPA 0,032611 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032611 ---------- *032611 CAME 10,034345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701034 ---------- *032613 JUMPA 0,032614 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032614 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 131 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0308 *032614 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032615 TLZE 7,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032617 JUMPA 0,032620 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032620 ---------- *032620 CAME 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032622 JUMPA 0,032623 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032623 ---------- *032623 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 132 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0309 *032624 TLZE 6,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123454 701234 ---------- *032625 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 076547 654321 FINAL C(AC)= 076547 654321 ---------- *032627 JUMPA 0,032630 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032630 ---------- *032630 CAME 6,034346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123454 701234 ---------- *032632 JUMPA 0,032633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032633 ---------- *032633 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 133 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0310 *032634 TRZA 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032636 JUMPA 0,032637 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032637 ---------- *032637 CAME 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032641 JUMPA 0,032642 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032642 ---------- *032642 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032643 TRZA 4,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701034 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 134 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0311 *032645 JUMPA 0,032646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032646 ---------- *032646 CAME 4,034345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701034 ---------- *032650 JUMPA 0,032651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032651 ---------- *032651 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654323 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032652 TLZA 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123454 701234 ---------- *032654 JUMPA 0,032655 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032655 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 135 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0312 *032655 CAME 3,034346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123454 701234 ---------- *032657 JUMPA 0,032660 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032660 ---------- *032660 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032661 TLZA 2,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032663 JUMPA 0,032664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032664 ---------- *032664 CAME 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 136 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0313 *032666 JUMPA 0,032667 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032667 ---------- *032667 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654323 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032670 TRZN 1,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701034 ---------- *032672 JUMPA 0,032673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032673 ---------- *032673 CAME 1,034345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701034 ---------- *032675 JUMPA 0,032676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 E= 000000 032676 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 137 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0314 *032676 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076547 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032677 TRZN 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701234 ---------- *032700 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032702 JUMPA 0,032703 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032703 ---------- *032703 CAME 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032705 JUMPA 0,032706 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032706 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 138 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0315 *032706 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032707 TLZN 17,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123454 701234 ---------- *032711 JUMPA 0,032712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032712 ---------- *032712 CAME 17,034346 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123454 701234 ---------- *032714 JUMPA 0,032715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032715 ---------- *032715 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 139 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0316 *032716 TLZN 16,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701234 ---------- *032717 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032721 JUMPA 0,032722 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032722 ---------- *032722 CAME 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032724 JUMPA 0,032725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032725 ---------- *032725 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 140 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0317 *032726 MOVE 16,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *032727 TSZ 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *032730 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032732 JUMPA 0,032733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032733 ---------- *032733 CAME 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032735 JUMPA 0,032736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032736 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 141 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0318 *032736 CAME 16,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *032740 JUMPA 0,032741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032741 ---------- *032741 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032742 MOVE 15,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 252525 707070 ---------- *032743 TSZ 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 020406 501210 ---------- *032744 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 142 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0319 *032746 JUMPA 0,032747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032747 ---------- *032747 CAME 14,034350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020406 501210 C(E)= 020406 501210 ---------- *032751 JUMPA 0,032752 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032752 ---------- *032752 CAME 15,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 252525 707070 ---------- *032754 JUMPA 0,032755 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032755 ---------- *032755 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 143 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0320 *032756 MOVE 14,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020406 501210 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *032757 TDZE 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 123456 701234 ---------- *032761 JUMPA 0,032762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032762 ---------- *032762 CAME 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *032764 JUMPA 0,032765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032765 ---------- *032765 CAME 14,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 144 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0321 *032767 JUMPA 0,032770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032770 ---------- *032770 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *032771 MOVE 13,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 754321 076543 FINAL C(AC)= 754321 076543 ---------- *032772 TDZE 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 754321 076543 FINAL C(AC)= 023456 701234 ---------- *032773 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 145 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0322 *032775 JUMPA 0,032776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 032776 ---------- *032776 CAME 12,034353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023456 701234 C(E)= 023456 701234 ---------- *033000 JUMPA 0,033001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033001 ---------- *033001 CAME 13,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 754321 076543 C(E)= 754321 076543 ---------- *033003 JUMPA 0,033004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033004 ---------- *033004 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 146 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0323 *033005 MOVE 12,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023456 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033006 TSZE 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *033010 JUMPA 0,033011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033011 ---------- *033011 CAME 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *033013 JUMPA 0,033014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033014 ---------- *033014 CAME 12,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 147 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0324 *033016 JUMPA 0,033017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033017 ---------- *033017 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033020 MOVE 11,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 657321 FINAL C(AC)= 076543 657321 ---------- *033021 TSZE 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 657321 FINAL C(AC)= 120456 701234 ---------- *033022 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 148 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0325 *033024 JUMPA 0,033025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033025 ---------- *033025 CAME 10,034355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 120456 701234 C(E)= 120456 701234 ---------- *033027 JUMPA 0,033030 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033030 ---------- *033030 CAME 11,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 657321 C(E)= 076543 657321 ---------- *033032 JUMPA 0,033033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033033 ---------- *033033 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 149 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0326 *033034 MOVE 10,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 120456 701234 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *033035 TDZA 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 123456 701234 ---------- *033037 JUMPA 0,033040 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033040 ---------- *033040 CAME 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *033042 JUMPA 0,033043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033043 ---------- *033043 CAME 10,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 150 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0327 *033045 JUMPA 0,033046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033046 ---------- *033046 CAME 10,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *033050 JUMPA 0,033051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033051 ---------- *033051 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033052 MOVE 7,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 252525 707070 ---------- *033053 TDZA 6,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 121052 000204 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 151 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0328 *033055 JUMPA 0,033056 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033056 ---------- *033056 CAME 6,034356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121052 000204 C(E)= 121052 000204 ---------- *033060 JUMPA 0,033061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033061 ---------- *033061 CAME 7,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 252525 707070 ---------- *033063 JUMPA 0,033064 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033064 ---------- *033064 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 152 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0329 *033065 MOVE 6,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 121052 000204 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033066 TSZA 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *033070 JUMPA 0,033071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033071 ---------- *033071 CAME 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *033073 JUMPA 0,033074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033074 ---------- *033074 CAME 6,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 153 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0330 *033076 JUMPA 0,033077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033077 ---------- *033077 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033100 MOVE 5,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 701234 123456 FINAL C(AC)= 701234 123456 ---------- *033101 TSZA 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 701234 123456 FINAL C(AC)= 000000 000000 ---------- *033103 JUMPA 0,033104 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033104 ---------- *033104 CAME 4,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 154 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0331 *033106 JUMPA 0,033107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033107 ---------- *033107 CAME 5,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 701234 123456 C(E)= 701234 123456 ---------- *033111 JUMPA 0,033112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033112 ---------- *033112 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033113 MOVE 4,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 654321 076547 FINAL C(AC)= 654321 076547 ---------- *033114 TDZN 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076547 FINAL C(AC)= 123456 701230 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 155 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0332 *033116 JUMPA 0,033117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033117 ---------- *033117 CAME 3,034361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701230 C(E)= 123456 701230 ---------- *033121 JUMPA 0,033122 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033122 ---------- *033122 CAME 4,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076547 C(E)= 654321 076547 ---------- *033124 JUMPA 0,033125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033125 ---------- *033125 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 156 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0333 *033126 MOVE 3,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701230 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *033127 TDZN 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 123456 701234 ---------- *033130 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033132 JUMPA 0,033133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033133 ---------- *033133 CAME 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *033135 JUMPA 0,033136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033136 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 157 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0334 *033136 CAME 3,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *033140 JUMPA 0,033141 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033141 ---------- *033141 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701034 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033142 MOVE 2,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 077543 654321 FINAL C(AC)= 077543 654321 ---------- *033143 TSZN 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 077543 654321 FINAL C(AC)= 123456 700234 ---------- *033145 JUMPA 0,033146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033146 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 158 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0335 *033146 CAME 1,034363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 700234 C(E)= 123456 700234 ---------- *033150 JUMPA 0,033151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033151 ---------- *033151 CAME 2,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077543 654321 C(E)= 077543 654321 ---------- *033153 JUMPA 0,033154 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033154 ---------- *033154 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033155 MOVE 1,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 700234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 159 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0336 *033156 TSZN 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 123456 701234 ---------- *033157 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033161 JUMPA 0,033162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033162 ---------- *033162 CAME 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *033164 JUMPA 0,033165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033165 ---------- *033165 CAME 1,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 160 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0337 *033167 JUMPA 0,033170 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033170 ---------- *033170 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123454 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033171 TRC 17,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033172 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033174 JUMPA 0,033175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033175 ---------- *033175 CAME 17,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 161 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0338 *033177 JUMPA 0,033200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033200 ---------- *033200 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033201 TRC 16,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701134 ---------- *033202 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033204 JUMPA 0,033205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033205 ---------- *033205 CAME 16,034365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701134 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 162 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0339 *033207 JUMPA 0,033210 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033210 ---------- *033210 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033211 TLC 15,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033212 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033214 JUMPA 0,033215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033215 ---------- *033215 CAME 15,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 163 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0340 *033217 JUMPA 0,033220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033220 ---------- *033220 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033221 TLC 14,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123455 701234 ---------- *033222 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033224 JUMPA 0,033225 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033225 ---------- *033225 CAME 14,034367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123455 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 164 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0341 *033227 JUMPA 0,033230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033230 ---------- *033230 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 754321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033231 TRCE 13,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033233 JUMPA 0,033234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033234 ---------- *033234 CAME 13,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033236 JUMPA 0,033237 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033237 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 165 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0342 *033237 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033240 TRCE 12,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701134 ---------- *033241 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033243 JUMPA 0,033244 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033244 ---------- *033244 CAME 12,034365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701134 ---------- *033246 JUMPA 0,033247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033247 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 166 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0343 *033247 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 657321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033250 TLCE 11,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033252 JUMPA 0,033253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033253 ---------- *033253 CAME 11,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *033255 JUMPA 0,033256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033256 ---------- *033256 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 167 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0344 *033257 TLCE 10,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123455 701234 ---------- *033260 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033262 JUMPA 0,033263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033263 ---------- *033263 CAME 10,034367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123455 701234 ---------- *033265 JUMPA 0,033266 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033266 ---------- *033266 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 168 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0345 *033267 TRCA 7,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033271 JUMPA 0,033272 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033272 ---------- *033272 CAME 7,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033274 JUMPA 0,033275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033275 ---------- *033275 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033276 TRCA 6,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701134 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 169 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0346 *033300 JUMPA 0,033301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033301 ---------- *033301 CAME 6,034365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701134 ---------- *033303 JUMPA 0,033304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033304 ---------- *033304 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 701234 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033305 TLCA 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123455 701234 ---------- *033307 JUMPA 0,033310 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033310 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 170 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0347 *033310 CAME 5,034367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123455 701234 ---------- *033312 JUMPA 0,033313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033313 ---------- *033313 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076547 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033314 TLCA 4,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033316 JUMPA 0,033317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033317 ---------- *033317 CAME 4,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 171 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0348 *033321 JUMPA 0,033322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033322 ---------- *033322 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033323 TRCN 3,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701134 ---------- *033325 JUMPA 0,033326 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033326 ---------- *033326 CAME 3,034365 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701134 ---------- *033330 JUMPA 0,033331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033331 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 172 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0349 *033331 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033332 TRCN 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033333 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033335 JUMPA 0,033336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033336 ---------- *033336 CAME 2,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033340 JUMPA 0,033341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033341 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 173 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0350 *033341 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033342 TLCN 1,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123455 701234 ---------- *033344 JUMPA 0,033345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033345 ---------- *033345 CAME 1,034367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123455 701234 ---------- *033347 JUMPA 0,033350 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 033350 ---------- *033350 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 174 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0351 *033351 TLCN 0,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033352 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 FINAL C(AC)= 123756 701234 ---------- *033354 JUMPA 0,033355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 E= 000000 033355 ---------- *033355 CAME 0,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *033357 JUMPA 0,033360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 E= 000000 033360 ---------- *033360 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 175 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0352 *033361 MOVE 0,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033362 TSC 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- *033363 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033365 JUMPA 0,033366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033366 ---------- *033366 CAME 17,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033370 JUMPA 0,033371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033371 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 176 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0353 *033371 CAME 0,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *033373 JUMPA 0,033374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033374 ---------- *033374 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033375 MOVE 17,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 707070 FINAL C(AC)= 252525 707070 ---------- *033376 TSC 16,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 624426 553711 ---------- *033377 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 177 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0354 *033401 JUMPA 0,033402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033402 ---------- *033402 CAME 16,034370 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624426 553711 C(E)= 624426 553711 ---------- *033404 JUMPA 0,033405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033405 ---------- *033405 CAME 17,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 252525 707070 ---------- *033407 JUMPA 0,033410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033410 ---------- *033410 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 178 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0355 *033411 MOVE 16,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 624426 553711 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *033412 TDCE 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *033414 JUMPA 0,033415 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033415 ---------- *033415 CAME 15,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033417 JUMPA 0,033420 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033420 ---------- *033420 CAME 16,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 179 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0356 *033422 JUMPA 0,033423 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033423 ---------- *033423 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033424 MOVE 15,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 754321 076543 FINAL C(AC)= 754321 076543 ---------- *033425 TDCE 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 754321 076543 FINAL C(AC)= 677777 777777 ---------- *033426 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 180 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0357 *033430 JUMPA 0,033431 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033431 ---------- *033431 CAME 14,034371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(E)= 677777 777777 ---------- *033433 JUMPA 0,033434 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033434 ---------- *033434 CAME 15,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 754321 076543 C(E)= 754321 076543 ---------- *033436 JUMPA 0,033437 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033437 ---------- *033437 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 181 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0358 *033440 MOVE 14,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033441 TSCE 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- *033443 JUMPA 0,033444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033444 ---------- *033444 CAME 13,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033446 JUMPA 0,033447 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033447 ---------- *033447 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 182 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0359 *033450 MOVE 13,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 076543 657321 FINAL C(AC)= 076543 657321 ---------- *033451 TSCE 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 657321 FINAL C(AC)= 774777 777777 ---------- *033452 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033454 JUMPA 0,033455 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033455 ---------- *033455 CAME 12,034372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 774777 777777 C(E)= 774777 777777 ---------- *033457 JUMPA 0,033460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033460 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 183 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0360 *033460 CAME 13,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 657321 C(E)= 076543 657321 ---------- *033462 JUMPA 0,033463 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033463 ---------- *033463 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033464 MOVE 12,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 774777 777777 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *033465 TDCA 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *033467 JUMPA 0,033470 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033470 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 184 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0361 *033470 CAME 11,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033472 JUMPA 0,033473 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033473 ---------- *033473 CAME 12,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *033475 JUMPA 0,033476 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033476 ---------- *033476 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033477 MOVE 11,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 707070 FINAL C(AC)= 252525 707070 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 185 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0362 *033500 TDCA 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 371173 006244 ---------- *033502 JUMPA 0,033503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033503 ---------- *033503 CAME 10,034373 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 371173 006244 C(E)= 371173 006244 ---------- *033505 JUMPA 0,033506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033506 ---------- *033506 CAME 11,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 252525 707070 ---------- *033510 JUMPA 0,033511 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033511 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 186 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0363 *033511 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033512 MOVE 10,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 371173 006244 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033513 TSCA 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- *033515 JUMPA 0,033516 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033516 ---------- *033516 CAME 7,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033520 JUMPA 0,033521 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033521 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 187 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0364 *033521 CAME 10,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *033523 JUMPA 0,033524 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033524 ---------- *033524 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033525 MOVE 7,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 701234 123456 FINAL C(AC)= 701234 123456 ---------- *033526 TSCA 6,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 701234 123456 FINAL C(AC)= 000000 000000 ---------- *033530 JUMPA 0,033531 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033531 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 188 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0365 *033531 CAME 6,034325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *033533 JUMPA 0,033534 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033534 ---------- *033534 CAME 7,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 701234 123456 C(E)= 701234 123456 ---------- *033536 JUMPA 0,033537 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033537 ---------- *033537 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033540 MOVE 6,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 654321 076547 FINAL C(AC)= 654321 076547 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 189 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0366 *033541 TDCN 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076547 FINAL C(AC)= 777777 777773 ---------- *033543 JUMPA 0,033544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033544 ---------- *033544 CAME 5,034374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 777777 777773 ---------- *033546 JUMPA 0,033547 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033547 ---------- *033547 CAME 6,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076547 C(E)= 654321 076547 ---------- *033551 JUMPA 0,033552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033552 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 190 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0367 *033552 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033553 MOVE 5,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *033554 TDCN 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *033555 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033557 JUMPA 0,033560 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033560 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 191 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0368 *033560 CAME 4,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033562 JUMPA 0,033563 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033563 ---------- *033563 CAME 5,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *033565 JUMPA 0,033566 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033566 ---------- *033566 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701134 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033567 MOVE 4,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 077543 654321 FINAL C(AC)= 077543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 192 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0369 *033570 TSCN 3,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 077543 654321 FINAL C(AC)= 777777 776777 ---------- *033572 JUMPA 0,033573 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033573 ---------- *033573 CAME 3,034375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 777777 776777 ---------- *033575 JUMPA 0,033576 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033576 ---------- *033576 CAME 4,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077543 654321 C(E)= 077543 654321 ---------- *033600 JUMPA 0,033601 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033601 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 193 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0370 *033601 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033602 MOVE 3,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033603 TSCN 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- *033604 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033606 JUMPA 0,033607 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033607 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 194 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0371 *033607 CAME 2,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *033611 JUMPA 0,033612 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033612 ---------- *033612 CAME 3,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *033614 JUMPA 0,033615 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033615 ---------- *033615 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123455 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033616 TRO 1,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 195 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0372 *033617 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *033621 JUMPA 0,033622 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033622 ---------- *033622 CAME 1,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033624 JUMPA 0,033625 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 033625 ---------- *033625 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033626 TRO 0,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701334 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 196 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0373 *033627 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- *033631 JUMPA 0,033632 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033632 ---------- *033632 CAME 0,034376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 ---------- *033634 JUMPA 0,033635 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033635 ---------- *033635 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033636 TLO 17,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 197 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0374 *033637 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- *033641 JUMPA 0,033642 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033642 ---------- *033642 CAME 17,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *033644 JUMPA 0,033645 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033645 ---------- *033645 MOVE 16,034377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 070234 FINAL C(AC)= 123456 070234 ---------- *033646 TLO 16,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 070234 E= 000000 000003 FINAL C(AC)= 123457 070234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 198 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0375 *033647 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- *033651 JUMPA 0,033652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033652 ---------- *033652 CAME 16,034400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 070234 C(E)= 123457 070234 ---------- *033654 JUMPA 0,033655 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033655 ---------- *033655 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 754321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033656 TROE 15,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 199 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0376 *033660 JUMPA 0,033661 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033661 ---------- *033661 CAME 15,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033663 JUMPA 0,033664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033664 ---------- *033664 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033665 TROE 14,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701334 ---------- *033666 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 200 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0377 *033670 JUMPA 0,033671 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033671 ---------- *033671 CAME 14,034376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 ---------- *033673 JUMPA 0,033674 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033674 ---------- *033674 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 657321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033675 TLOE 13,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033677 JUMPA 0,033700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 201 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0378 *033700 CAME 13,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *033702 JUMPA 0,033703 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033703 ---------- *033703 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033704 TLOE 12,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123457 701234 ---------- *033705 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- *033707 JUMPA 0,033710 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033710 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 202 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0379 *033710 CAME 12,034401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 701234 C(E)= 123457 701234 ---------- *033712 JUMPA 0,033713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033713 ---------- *033713 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033714 TROA 11,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033716 JUMPA 0,033717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033717 ---------- *033717 CAME 11,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 203 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0380 *033721 JUMPA 0,033722 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033722 ---------- *033722 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033723 TROA 10,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701334 ---------- *033725 JUMPA 0,033726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033726 ---------- *033726 CAME 10,034376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 ---------- *033730 JUMPA 0,033731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033731 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 204 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0381 *033731 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 701234 123456 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033732 TLOA 7,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123457 701234 ---------- *033734 JUMPA 0,033735 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033735 ---------- *033735 CAME 7,034401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 701234 C(E)= 123457 701234 ---------- *033737 JUMPA 0,033740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033740 ---------- *033740 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076547 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 205 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0382 *033741 TLOA 6,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033743 JUMPA 0,033744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033744 ---------- *033744 CAME 6,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *033746 JUMPA 0,033747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033747 ---------- *033747 MOVE 5,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033750 TRON 5,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123456 701334 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 206 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0383 *033752 JUMPA 0,033753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033753 ---------- *033753 CAME 5,034376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 ---------- *033755 JUMPA 0,033756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033756 ---------- *033756 MOVE 4,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033757 TRON 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123456 701237 ---------- *033760 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 207 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0384 *033762 JUMPA 0,033763 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033763 ---------- *033763 CAME 4,034364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701237 ---------- *033765 JUMPA 0,033766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033766 ---------- *033766 MOVE 3,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033767 TLON 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000003 FINAL C(AC)= 123457 701234 ---------- *033771 JUMPA 0,033772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033772 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 208 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0385 *033772 CAME 3,034401 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 701234 C(E)= 123457 701234 ---------- *033774 JUMPA 0,033775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 033775 ---------- *033775 MOVE 2,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *033776 TLON 2,000300 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 E= 000000 000300 FINAL C(AC)= 123756 701234 ---------- *033777 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701334 FINAL C(AC)= 123456 701334 ---------- *034001 JUMPA 0,034002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 034002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 209 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0386 *034002 CAME 2,034366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123756 701234 ---------- *034004 JUMPA 0,034005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 034005 ---------- *034005 MOVE 1,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034006 MOVE 2,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *034007 TDOE 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *034011 JUMPA 0,034012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 034012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 210 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0387 *034012 CAME 1,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034014 JUMPA 0,034015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 034015 ---------- *034015 CAME 2,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *034017 JUMPA 0,034020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 E= 000000 034020 ---------- *034020 MOVE 0,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034021 MOVE 1,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 754321 076543 FINAL C(AC)= 754321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 211 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0388 *034022 TDOE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 754321 076543 FINAL C(AC)= 777777 777777 ---------- *034023 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *034025 JUMPA 0,034026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 034026 ---------- *034026 CAME 0,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034030 JUMPA 0,034031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 034031 ---------- *034031 CAME 1,034352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 754321 076543 C(E)= 754321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 212 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0389 *034033 JUMPA 0,034034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 034034 ---------- *034034 MOVE 17,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034035 MOVE 0,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *034036 TSOE 17,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- *034040 JUMPA 0,034041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034041 ---------- *034041 CAME 17,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 213 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0390 *034043 JUMPA 0,034044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034044 ---------- *034044 CAME 0,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *034046 JUMPA 0,034047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034047 ---------- *034047 MOVE 16,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 070234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034050 MOVE 17,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 076543 657321 FINAL C(AC)= 076543 657321 ---------- *034051 TSOE 16,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 657321 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 214 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0391 *034052 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *034054 JUMPA 0,034055 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034055 ---------- *034055 CAME 16,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034057 JUMPA 0,034060 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034060 ---------- *034060 CAME 17,034354 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 657321 C(E)= 076543 657321 ---------- *034062 JUMPA 0,034063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034063 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 215 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0392 *034063 MOVE 15,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034064 MOVE 16,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- *034065 TDOA 15,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *034067 JUMPA 0,034070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034070 ---------- *034070 CAME 15,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034072 JUMPA 0,034073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034073 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 216 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0393 *034073 CAME 16,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- *034075 JUMPA 0,034076 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034076 ---------- *034076 MOVE 14,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034077 MOVE 15,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 707070 FINAL C(AC)= 252525 707070 ---------- *034100 TDOA 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 252525 707070 FINAL C(AC)= 373577 707274 ---------- *034102 JUMPA 0,034103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034103 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 217 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0394 *034103 CAME 14,034402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 373577 707274 C(E)= 373577 707274 ---------- *034105 JUMPA 0,034106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034106 ---------- *034106 CAME 15,034347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 707070 C(E)= 252525 707070 ---------- *034110 JUMPA 0,034111 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034111 ---------- *034111 MOVE 13,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034112 MOVE 14,034403 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 373577 707274 C(E)= 176543 654321 FINAL C(AC)= 176543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 218 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0395 *034113 TSOA 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 176543 654321 FINAL C(AC)= 777777 777777 ---------- *034115 JUMPA 0,034116 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034116 ---------- *034116 CAME 13,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034120 JUMPA 0,034121 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034121 ---------- *034121 CAME 14,034403 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 176543 654321 C(E)= 176543 654321 ---------- *034123 JUMPA 0,034124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034124 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 219 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0396 *034124 MOVE 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034125 MOVE 13,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 701234 123456 FINAL C(AC)= 701234 123456 ---------- *034126 TSOA 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 701234 123456 FINAL C(AC)= 123456 701234 ---------- *034130 JUMPA 0,034131 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034131 ---------- *034131 CAME 12,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 123456 701234 ---------- *034133 JUMPA 0,034134 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034134 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 220 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0397 *034134 CAME 13,034357 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 701234 123456 C(E)= 701234 123456 ---------- *034136 JUMPA 0,034137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034137 ---------- *034137 MOVE 11,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701237 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034140 MOVE 12,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076547 FINAL C(AC)= 654321 076547 ---------- *034141 TDON 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076547 FINAL C(AC)= 777777 777777 ---------- *034143 JUMPA 0,034144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034144 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 221 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0398 *034144 CAME 11,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034146 JUMPA 0,034147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034147 ---------- *034147 CAME 12,034360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076547 C(E)= 654321 076547 ---------- *034151 JUMPA 0,034152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034152 ---------- *034152 MOVE 10,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701334 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034153 MOVE 11,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 654321 076543 FINAL C(AC)= 654321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 222 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0399 *034154 TDON 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 654321 076543 FINAL C(AC)= 777777 777777 ---------- *034155 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *034157 JUMPA 0,034160 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034160 ---------- *034160 CAME 10,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034162 JUMPA 0,034163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034163 ---------- *034163 CAME 11,034351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 654321 076543 C(E)= 654321 076543 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 223 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0400 *034165 JUMPA 0,034166 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034166 ---------- *034166 MOVE 7,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123457 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034167 MOVE 10,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 077543 654321 FINAL C(AC)= 077543 654321 ---------- *034170 TSON 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 077543 654321 FINAL C(AC)= 777777 777777 ---------- *034172 JUMPA 0,034173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034173 ---------- *034173 CAME 7,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 224 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0401 *034175 JUMPA 0,034176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034176 ---------- *034176 CAME 10,034362 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077543 654321 C(E)= 077543 654321 ---------- *034200 JUMPA 0,034201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034201 ---------- *034201 MOVE 6,034332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123756 701234 C(E)= 123456 701234 FINAL C(AC)= 123456 701234 ---------- *034202 MOVE 7,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *034203 TSON 6,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 123456 701234 C(E)= 076543 654321 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 225 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0402 *034204 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 FINAL C(AC)= 076543 654321 ---------- *034206 JUMPA 0,034207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034207 ---------- *034207 CAME 6,034217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *034211 JUMPA 0,034212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034212 ---------- *034212 CAME 7,034342 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 076543 654321 ---------- *034214 JUMPA 0,034215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 E= 000000 034215 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 226 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0403 *034215 SETZM 0,034405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *034216 JRST 0,030057 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076543 654321 C(E)= 000000 000000 FINAL C(AC)= 076543 654321 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 076543 654321 C(E)= 000000 000001 FINAL C(AC)= 076543 654321 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 076543 654321 C(E)= 000000 000000 FINAL C(AC)= 076543 654321 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 227 DSKAF 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0404 *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 076543 654321 C(E)= 000000 000000 FINAL C(AC)= 076543 654321 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 076543 654321 C(E)= 777777 777777 FINAL C(AC)= 076543 654321 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAG.txt,v0000444000175100010010000100060212051211500014345 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAG IDENTIFICATION -------------- PRODUCT CODE: AH-E309A-DD DIAGNOSTIC CODE: DSKAG PRODUCT NAME: DSKAGA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (7) 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-DSKAG.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAG.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE SEVENTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS THE PUSH, POP, XCT, AND BASIC SHIFT/ROTATE INSTRUCTIONS. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAG.TXT PAGE 4 SEQ 0005 S^;*********************************************************************^ 628 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 629 S^;*********************************************************************^ 630 631 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 632 S^;*********************************************************************^ 633 ;*USER MODE MONITOR TYPE FLAG 634 S^;*********************************************************************^ 635 636 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 637 638 S^;*********************************************************************^ 639 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 640 S^;*********************************************************************^ 641 642 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 643 644 S^;*********************************************************************^ 645 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 646 S^;*********************************************************************^ 647 648 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 649 650 S^;*********************************************************************^ 651 ;*"SWITCH" CALL USAGE CONTROL 652 S^;*********************************************************************^ 653 654 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 655 656 S^;*********************************************************************^ 657 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 658 S^;*********************************************************************^ 659 660 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 661 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 662 663 S^;*********************************************************************^ 664 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 665 S^;*********************************************************************^ 666 667 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 668 669 S^;*********************************************************************^ 670 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 671 S^;*********************************************************************^ 672 673 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 674 675 S^;*********************************************************************^ 676 ;*SPECIAL FUTURE EXPANSION ROOM 677 S^;*********************************************************************^ 678 679 S^;*********************************************************************^ 680 ;*END OF FIXED STORAGE 681 S^;*********************************************************************^ 682 683 030577 LOC 30577 684 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 685 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 686 687 000000 AC0= 0 688 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 689 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 690 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 691 692 ;KS-10 EPT COMMUNICATION AREA 693 694 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 695 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 696 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 697 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 698 DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 699 ;SPECIAL "FIXED" REASSIGNMENTS 700 701 030600 $$LOC=. ;SAVE CURRENT LOCATION 702 703 030000 LOC 30000 704 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 705 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 706 707 000440 LOC 440 708 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 709 710 030057 LOC 30057 711 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 712 713 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 714 715 000420 LOC 420 716 000420 254 04 0 00 000420 $$420: HALT . 717 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 718 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 719 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 720 000424 000000 000000 $$424: 0 ;MMUO 721 000425 000000 000000 $$425: 0 ;MMUO PC 722 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 723 000427 254 04 0 00 000427 $$427: HALT . 724 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 725 000431 000000 000427 $$431: 427 726 000432 000000 000427 $$432: 427 727 000433 000000 000427 $$433: 427 728 000434 000000 000427 $$434: 427 729 000435 000000 000427 $$435: 427 730 000436 000000 000427 $$436: 427 731 000437 000000 000427 $$437: 427 732 733 000500 LOC 500 734 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 735 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 736 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 737 000503 254 04 0 00 000503 $$503: HALT . DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0027 738 030600 LOC $$LOC ;RESET CURRENT LOCATION 739 740 ;SPECIAL STARTUP SEQUENCE 741 742 030600 402 00 0 00 030037 $$START:SETZM USER 743 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 744 030602 603 00 0 00 010000 TLNE 0,USERF 745 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 746 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 747 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 748 030606 332 00 0 00 030037 SKIPE USER 749 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 750 751 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 752 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 753 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 754 755 ;SPECIAL "BEGEND" ROUTINE 756 757 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 758 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 759 030615 336 00 0 00 030037 $SPB1: SKIPN USER 760 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 761 762 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 763 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 764 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 765 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 766 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 767 768 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 769 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 770 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 771 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 772 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 1 DSKAG1 MAC 28-Mar-78 14:22 DIAGNOSTIC SECTION SEQ 0028 773 SUBTTL DIAGNOSTIC SECTION 774 775 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 776 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 777 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 778 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 779 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 780 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 781 030637 336 00 0 00 030037 SKIPN USER 782 030640 254 00 0 00 030660 JRST STARTA 783 030641 331 00 0 00 030043 SKIPL MONCTL 784 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 785 030643 254 00 0 00 030660 JRST STARTA 786 787 030644 PGMNAM: ASCIZ/ 788 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) [DSKAG] 789 030645 123 131 123 124 105 790 030646 115 055 062 060 062 791 030647 060 040 102 101 123 792 030650 111 103 040 111 116 793 030651 123 124 122 125 103 794 030652 124 111 117 116 040 795 030653 104 111 101 107 116 796 030654 117 123 124 111 103 797 030655 040 050 067 051 040 798 030656 133 104 123 113 101 799 030657 107 135 015 012 000 / 800 801 ;BASIC INSTRUCTION TEST (7) 802 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 803 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 804 ;IN THE FIELD. 805 806 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 2 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSH INSTRUCTION SEQ 0029 807 SUBTTL TEST OF PUSH INSTRUCTION 808 809 ;********** 810 811 ;THIS TEST VERIFIES THAT PUSH DECODES CORRECTLY. 812 ;IF PUSH DECODES AS PUSHJ, THIS TEST FAILS. 813 814 030661 400 02 0 00 000000 C27200: SETZ 2, ;CLEAR AC 815 030662 261 02 0 00 030664 PUSH 2,.+2 ;*PUSH SHOULD NOT JUMP 816 030663 334 00 0 00 000000 SKIPA ;PASS IF PUSH DID NOT JUMP 817 STOP^ 818 030664 254 04 0 00 030665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 819 030665 324 00 0 00 030666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 820 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 821 ;IN THE SUBTEST) TO LOOP ON ERROR^ 822 823 ;********** 824 825 ;THIS TEST VERIFIES THAT PUSH DOES NOT MODIFY C(E). 826 ;CLEAR E AND AC; THEN, EXECUTE PUSH. 827 ;CHECK E FOR ORIGINAL CONTENTS ,0. 828 ;PASS IF C(E)=0. 829 830 030666 403 00 0 00 000002 C27300: SETZB 2 ;CLEAR AC,E 831 030667 261 02 0 00 000000 PUSH 2, ;*PUSH SHOULD NOT ALTER C(E) 832 030670 332 00 0 00 000000 SKIPE ;PASS IF C(E)=0,,0 833 STOP^ 834 030671 254 04 0 00 030672 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 835 030672 324 00 0 00 030673 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 836 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 837 ;IN THE SUBTEST) TO LOOP ON ERROR^ 838 839 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 3 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSH INSTRUCTION SEQ 0030 840 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC. 841 ;FIRST THE AC IS CLEARED; THEN PUSH IS EXECUTED. 842 ;THE AC IS CHECKED FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. 843 844 030673 400 02 0 00 000000 C27400: SETZ 2, ;CLEAR AC 845 030674 261 02 0 00 030675 PUSH 2,.+1 ;*PUSH SHOULD ADD 1,,1 TO C(AC) 846 030675 312 02 0 00 032143 CAME 2,[XWD 1,1] ;PASS IF C(AC)=1,,1 847 STOP^ 848 030676 254 04 0 00 030677 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 849 030677 324 00 0 00 030700 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 850 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 851 ;IN THE SUBTEST) TO LOOP ON ERROR^ 852 853 ;********** 854 855 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)). 856 ;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED. 857 ;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR THE INITIAL VALUE, 0. 858 ;IF C(AC0)=0, THIS TEST PASSES 859 860 030700 403 00 0 00 000002 C27500: SETZB 2 ;CLEAR AC AND AC0 861 030701 261 02 0 00 032144 PUSH 2,[16541320] ;*PUSH SHOULD NOT MODIFY C(AC0) 862 030702 332 00 0 00 000000 SKIPE ;PASS IF C(AC0)=0 863 STOP^ 864 030703 254 04 0 00 030704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 865 030704 324 00 0 00 030705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 866 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 867 ;IN THE SUBTEST) TO LOOP ON ERROR^ 868 869 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 4 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSH INSTRUCTION SEQ 0031 870 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC BEFORE MODIFYING C(C(AC-RIGHT)). 871 ;FIRST, THE AC AND AC0 ARE ZEROED; THEN PUSH IS EXECUTED. 872 ;C(C(AC-RIGHT)) [BEFORE AC UPDATING] (AC0) IS CHECKED FOR 873 ;IF C(AC0)IS NOT EQUAL TO E, THIS TEST PASSES 874 875 030705 403 01 0 00 000002 C27600: SETZB 1,2 ;CLEAR AC AND AC0 876 030706 261 02 0 00 030707 PUSH 2,.+1 ;*PUSH SHOULD NOT MODIFY C(AC0) 877 030707 306 00 0 00 030707 CAIN . ;FAIL IF C(AC0)=E 878 STOP^ 879 030710 254 04 0 00 030711 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 880 030711 324 00 0 00 030712 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 883 884 ;********** 885 886 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO 887 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE, AC AND THE LOCATION SPECIFIED 888 ;BY UPDATING C(AC-RIGHT) ARE CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1. 889 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE 890 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES. 891 892 030712 403 01 0 00 000002 C27700: SETZB 1,2 ;CLEAR AC, C(AC-RIGHT) 893 030713 261 02 0 00 032145 PUSH 2,[-1] ;*PUSH SHOULD PLACE -1,,-1 INTO AC1 894 030714 312 01 0 00 032145 CAME 1,[-1] ;PASS IF C(1)=-1,,-1 895 STOP^ 896 030715 254 04 0 00 030716 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 897 030716 324 00 0 00 030717 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 898 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 899 ;IN THE SUBTEST) TO LOOP ON ERROR^ 900 901 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 5 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSH INSTRUCTION SEQ 0032 902 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO 903 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE, AC 904 ;IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=0. 905 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR 0, THE 906 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=0, THIS TEST PASSES. 907 908 030717 402 00 0 00 000002 C30000: SETZM 2 ;CLEAR AC 909 030720 261 02 0 00 032146 PUSH 2,[0] ;*PUSH SHOULD PLACE 0 INTO AC1 910 030721 332 00 0 00 000001 SKIPE 1 ;PASS IF C(1)=0 911 STOP^ 912 030722 254 04 0 00 030723 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 913 030723 324 00 0 00 030724 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 914 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 915 ;IN THE SUBTEST) TO LOOP ON ERROR^ 916 917 ;********** 918 919 ;THIS TEST VERIFIES THAT PUSH ADDS 1,,1 TO THE AC; THEN, MOVES C(E) INTO 920 ;THE LOCATION SPECIFIED BY C(AC-RIGHT). IN THIS CASE, 921 ;AC IS PRELOADED WITH 0,,-1, AND THE LOCATION SPECIFIED 922 ;BY UPDATING C(AC-RIGHT) IS CLEARED; THEN, PUSH IS EXECUTED WITH C(E)=-1,,-1. 923 ;THE LOCATION SPECIFIED BY C(AC-RIGHT) IS THEN CHECKED FOR -1,,-1, THE 924 ;ORIGINAL C(E). IF C(C(AC-RIGHT))=-1,,-1, THIS TEST PASSES. 925 926 030724 201 02 0 00 777777 C30100: MOVEI 2,-1 ;PRELOAD AC WITH 0,,-1 927 030725 400 00 0 00 000000 SETZ ;CLEAR AC, C(AC-RIGHT) 928 030726 261 02 0 00 032145 PUSH 2,[-1] ;*PUSH SHOULD PLACE -1,,-1 INTO AC0 929 030727 312 00 0 00 032145 CAME [-1] ;PASS IF C(0)=-1,,-1 930 STOP^ 931 030730 254 04 0 00 030731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 932 030731 324 00 0 00 030732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 933 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 934 ;IN THE SUBTEST) TO LOOP ON ERROR^ 935 936 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 6 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSH INSTRUCTION SEQ 0033 937 ;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON PUSH. 938 ;THE AC IS PRELOADED WITH 0,,-1; THEN PUSH IS EXECUTED. PUSH SHOULD ADD ONE 939 ;TO BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO 940 ;CARRY WAS GENERATED, THIS TEST PASSES 941 942 030732 201 02 0 00 777777 C30101: MOVEI 2,-1 ;PRELOAD AC WITH 0,, -1 943 030733 261 02 0 00 000000 PUSH 2,0 ;*PUSH SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17 944 030734 312 02 0 00 032147 CAME 2,[1,,0] ;PASS IF C(AC)=1,,0 (NO CARRY WAS GENERATED) 945 STOP^ 946 030735 254 04 0 00 030736 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 947 030736 324 00 0 00 030737 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 948 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 949 ;IN THE SUBTEST) TO LOOP ON ERROR^ 950 951 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 7 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0034 952 SUBTTL TEST OF PUSHJ INSTRUCTION 953 954 ;********** 955 956 ;THIS TEST VERIFIES THAT PUSHJ TRANSFERS CONTROL TO THE LOCATION ADDRESSED BY E. 957 ;IF PUSHJ DOES NOT JUMP, THIS TEST FAILS 958 959 030737 C30200: SFLAG CRY0 ^;SETS CRY0 FLAG 960 961 030737 205 01 0 00 200000 MOVSI 1,CRY0 962 030740 255 17 0 00 030741 JFCL 17,.+1 ;RESET ALL FLAGS 963 030741 254 02 0 01 030742 JRST 2,.+1(1) ;SET CRY0 FLAG 964 030742 400 00 0 00 000000 SETZ ;CLEAR AC 965 030743 260 00 0 00 030745 PUSHJ .+2 ;*PUSHJ SHOULD JUMP TO LOCATION E 966 STOP^ 967 030744 254 04 0 00 030745 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 968 030745 324 00 0 00 030746 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 969 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 970 ;IN THE SUBTEST) TO LOOP ON ERROR^ 971 972 ;********** 973 974 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT MODIFY C(PC) WHERE PC IS ONE GREATER 975 ;THAN THE LOCATION OF THE PUSHJ INSTRUCTION. 976 ;IF PUSHJ MODIFIES C(PC), THIS TEST FAILS 977 978 030746 C30300: SFLAG CRY0 ^;SET CRY0 979 980 030746 205 01 0 00 200000 MOVSI 1,CRY0 981 030747 255 17 0 00 030750 JFCL 17,.+1 ;RESET ALL FLAGS 982 030750 254 02 0 01 030751 JRST 2,.+1(1) ;SET CRY0 FLAG 983 030751 403 01 0 00 030753 SETZB 1,.+2 ;CLEAR C(AC-RIGHT) AND C(PC) 984 030752 260 00 0 00 030755 PUSHJ .+3 ;*PUSHJ SHOULD NOT MODIFY C(PC) 985 030753 000000 000000 0 ;THIS LOCATION SHOULD NOT BE MODIFIED BY PUSHJ 986 030754 310 00 0 00 000000 CAM ;PUSHJ SHOULD JUMP OVER THIS LOCATION 987 030755 332 00 0 00 030753 SKIPE .-2 ;PASS IF PUSHJ DID NOT MODIFY C(PC) 988 STOP^ 989 030756 254 04 0 00 030757 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 990 030757 324 00 0 00 030760 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 991 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 992 ;IN THE SUBTEST) TO LOOP ON ERROR^ 993 994 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 8 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0035 995 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN E 996 ;IF PUSHJ STORED IN E, THIS TEST FAILS 997 998 030760 C30400: SFLAG CRY0 ^;SET CRY0 999 1000 030760 205 01 0 00 200000 MOVSI 1,CRY0 1001 030761 255 17 0 00 030762 JFCL 17,.+1 ;RESET ALL FLAGS 1002 030762 254 02 0 01 030763 JRST 2,.+1(1) ;SET CRY0 FLAG 1003 030763 403 00 0 00 000001 SETZB 1 ;CLEAR AC AND C(AC-RIGHT 1004 030764 260 00 0 00 030765 PUSHJ .+1 ;*PUSHJ SHOULD NOT STORE IN E 1005 030765 200 02 0 00 030765 MOVE 2,. ;SAVE C(E) 1006 030766 312 02 0 00 030765 CAME 2,.-1 ;FAIL IF PUSHJ STORED IN E 1007 STOP^ 1008 030767 254 04 0 00 030770 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1009 030770 324 00 0 00 030771 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1010 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1011 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1012 1013 ;********** 1014 1015 ;THIS TEST VERIFIES THAT PUSHJ DOES NOT STORE IN LOC 0 1016 ;PUSHJ SHOULD STORE PC IN C(AC-RIGHT) - LOCATION 2. 1017 ;IF PUSHJ STORES IN LOCATION 0, THIS TEST FAILS 1018 1019 030771 201 02 0 00 000001 C30500: MOVEI 2,1 ;PRELOAD AC WITH 0,,1 1020 030772 400 00 0 00 000000 SETZ 0 ;CLEAR 0 1021 030773 260 02 0 00 030774 PUSHJ 2,.+1 ;*PUSHJ SHOULD NOT STORE IN LOCATION 0 1022 030774 332 00 0 00 000000 SKIPE ;FAIL IF PUSHJ STORED IN LOCATION 0 1023 STOP^ 1024 030775 254 04 0 00 030776 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1025 030776 324 00 0 00 030777 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1026 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1027 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1028 1029 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 9 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0036 1030 ;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN THE LOCATION SPECIFIED 1031 ;BY C(AC-RIGHT) AFTER INCREMENTING AC. 1032 ;IN THIS TEST, AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED. 1033 ;C(C(AC-RIGHT))IS THEN COMPARED TO ZERO. IF C(C(AC-RIGHT)) IS NON-ZERO, 1034 ;A PC WAS STORED AND THIS TEST PASSES. 1035 1036 030777 403 00 0 00 000001 C30600: SETZB 1 ;CLEAR AC, C(AC-RIGHT) 1037 031000 260 00 0 00 031002 PUSHJ .+2 ;*PUSHJ SHOULD STORE PC IN RIGHT HALF OF C(AC-RIGHT) 1038 031001 254 04 0 00 031001 HALT . ;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION 1039 031002 405 01 0 00 777777 ANDI 1,-1 ;SAVE C(C(AC-RIGHT)) 1040 031003 306 01 0 00 031002 CAIN 1,.-1 ;FAIL IF PC WAS NOT STORED IN C(AC-RIGHT) 1041 STOP^ 1042 031004 254 04 0 00 031005 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1043 031005 324 00 0 00 031006 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1044 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1045 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1046 1047 ;********** 1048 1049 ;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC 1050 ;THE AC IS CLEARED AND PUSHJ IS EXECUTED 1051 ;AC IS CHECKED FOR 1,,1 IF C(AC)=1,,1, THIS TEST PASSES 1052 1053 031006 400 00 0 00 000000 C31000: SETZ ;CLEAR AC 1054 031007 260 00 0 00 031010 PUSHJ .+1 ;*PUSHJ SHOULD PLACE 1,,1 INTO THE AC 1055 031010 312 00 0 00 032143 CAME [1,,1] ;PASS IF C(AC)=1,,1 1056 STOP^ 1057 031011 254 04 0 00 031012 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1058 031012 324 00 0 00 031013 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1059 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1060 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1061 1062 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 10 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0037 1063 ;THIS TEST VERIFIES THAT PUSHJ STORES THE FLAGS IN LEFT HALF OF C(AC-RIGHT) 1064 ;FIRST, CRY0 IS SET AND AC AND C(AC-RIGHT) ARE CLEARED; THEN, PUSHJ IS EXECUTED. 1065 ;C(C(AC-RIGHT)) IS THEN CHECKED FOR CRY0. IF CRY0 IS SET, THIS TEST PASSES. 1066 1067 031013 C31100: SFLAG CRY0 ^;SET CRY0 1068 1069 031013 205 01 0 00 200000 MOVSI 1,CRY0 1070 031014 255 17 0 00 031015 JFCL 17,.+1 ;RESET ALL FLAGS 1071 031015 254 02 0 01 031016 JRST 2,.+1(1) ;SET CRY0 FLAG 1072 031016 403 00 0 00 000001 SETZB 1 ;CLEAR AC AND C(AC-RIGHT) 1073 031017 260 00 0 00 031020 PUSHJ .+1 ;*PUSHJ SHOULD STORE FLAGS IN LEFT HALF OF C(AC-RIGHT) 1074 031020 607 01 0 00 200000 TLNN 1,CRY0 ;PASS IF CRY0 STORED CORRECTLY 1075 STOP^ 1076 031021 254 04 0 00 031022 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1077 031022 324 00 0 00 031023 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1078 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1079 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1080 1081 ;********** 1082 1083 ;THIS TEST VERIFIES THAT PUSHJ ADDS 1,,1 TO THE AC 1084 ;THE AC IS PRELOADED WITH 0,,1 AND PUSHJ IS EXECUTED 1085 ;AC IS CHECKED FOR 1,,2 IF C(AC)=1,,2, THIS TEST PASSES 1086 1087 031023 201 01 0 00 000001 C31400: MOVEI 1,1 ;PRELOAD AC WITH 0,,1 1088 031024 260 01 0 00 031026 PUSHJ 1,.+2 ;*PUSHJ SHOULD PLACE 1,,2 INTO THE AC 1089 031025 254 04 0 00 000000 HALT ;PUSHJ SHOULD JUMP OVER THIS INSTRUCTION 1090 031026 312 01 0 00 032150 CAME 1,[XWD 1,2] ;PASS IF AC WAS INCREMENTED CORRECTLY 1091 STOP^ 1092 031027 254 04 0 00 031030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1093 031030 324 00 0 00 031031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1094 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1095 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1096 1097 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 11 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0038 1098 ;THIS TEST VERIFIES THAT PUSHJ STORES THE PC IN RIGHT HALF OF C(AC-RIGHT) 1099 ;THIS TEST PASSES IF THE PC WAS STORED CORRECTLY. 1100 1101 031031 201 01 0 00 000001 C31500: MOVEI 1,1 ;PLACE 0,,1 INTO AC 1102 031032 260 01 0 00 031034 PUSHJ 1,.+2 ;*PUSHJ SHOULD STORE .+1 INTO RIGHT HALF OF C(AC-RIGHT) 1103 031033 254 04 0 00 000000 HALT ;PUSHJ SHOULD JUMP OVER THIS PC 1104 031034 405 02 0 00 777777 ANDI 2,-1 ;SAVE RIGHT HALF OF C(AC-RIGHT) 1105 031035 302 02 0 00 031033 CAIE 2,.-2 ;PASS IF PC STORED CORRECTLY 1106 STOP^ 1107 031036 254 04 0 00 031037 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1108 031037 324 00 0 00 031040 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1109 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1110 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1111 1112 ;********** 1113 1114 ;THIS TEST VERIFIES THAT PUSHJ ALWAYS RESETS BIS. 1115 ;FIRST BIS IS SET; THEN PUSHJ IS EXECUTED. THE FLAGS ARE 1116 ;THEN SAVED AND CHECKED. IF BIS WAS RESET VIA PUSHJ, THIS TEST PASSES. 1117 1118 031040 C31501: SFLAG BIS ^;SET BIS 1119 1120 031040 205 01 0 00 020000 MOVSI 1,BIS 1121 031041 255 17 0 00 031042 JFCL 17,.+1 ;RESET ALL FLAGS 1122 031042 254 02 0 01 031043 JRST 2,.+1(1) ;SET BIS FLAG 1123 031043 400 00 0 00 000000 SETZ ;CLEAR AC 1124 031044 260 00 0 00 031045 PUSHJ .+1 ;*PUSHJ SHOULD RESET BIS 1125 031045 265 00 0 00 031046 JSP .+1 ;SAVE FLAGS 1126 031046 603 00 0 00 020000 TLNE BIS ;PASS IF BIS FLAG IS RESET 1127 STOP^ 1128 031047 254 04 0 00 031050 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1129 031050 324 00 0 00 031051 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1130 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1131 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1132 1133 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 12 DSKAG1 MAC 28-Mar-78 14:22 TEST OF PUSHJ INSTRUCTION SEQ 0039 1134 ;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON PUSHJ. 1135 ;THE AC IS PRELOADED WITH 0,,-1; THEN PUSHJ IS EXECUTED. PUSHJ SHOULD ADD ONE 1136 ;TO BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO 1137 ;CARRY WAS GENERATED, THIS TEST PASSES 1138 1139 031051 201 02 0 00 777777 C31502: MOVEI 2,-1 ;PRELOAD AC WITH 0,,-1 1140 031052 260 02 0 00 031053 PUSHJ 2,.+1 ;*PUSHJ SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17 1141 031053 312 02 0 00 032147 CAME 2,[1,,0] ;PASS IF C(AC)=1,,0 (NO CARRY WAS GENERATED) 1142 STOP^ 1143 031054 254 04 0 00 031055 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1144 031055 324 00 0 00 031056 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1145 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1146 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1147 1148 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 13 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POP INSTRUCTION SEQ 0040 1149 SUBTTL TEST OF POP INSTRUCTION 1150 1151 ;********** 1152 1153 ;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC 1154 ;THE AC IS PRELOADED WITH 1,,1; THEN, POP IS EXECUTED. 1155 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 1156 1157 031056 200 00 0 00 032143 C31600: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1 1158 031057 262 00 0 00 000001 POP 1 ;*POP SHOULD SUBTRACT 1,,1 FROM THE AC 1159 031060 332 00 0 00 000000 SKIPE ;PASS IF AC WAS DECREMENTED CORRECTLY 1160 STOP^ 1161 031061 254 04 0 00 031062 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1162 031062 324 00 0 00 031063 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1163 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1164 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1165 1166 ;********** 1167 1168 ;THIS TEST VERIFIES THAT POP SUBTRACTS 1,,1 FROM THE AC 1169 ;THE AC IS PRELOADED WITH 2,,2; THEN, POP IS EXECUTED. 1170 ;THE AC IS CHECKED FOR 1,,1. IF C(AC)=1,,1, THIS TEST PASSES. 1171 1172 031063 200 00 0 00 032151 C31700: MOVE [XWD 2,2] ;PRELOAD AC WITH E,,E WHERE E=2 1173 031064 201 02 0 00 000005 MOVEI 2,5 ;PRELOAD 2 WITH 0,,5 1174 031065 262 00 0 00 000002 POP 2 ;*POP SHOULD SUBTRACT 1,,1 FROM THE AC 1175 031066 312 00 0 00 032143 CAME [1,,1] ;PASS IF AC WAS DECREMENTED CORRECTLY 1176 STOP^ 1177 031067 254 04 0 00 031070 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1178 031070 324 00 0 00 031071 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1179 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1180 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1181 1182 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 14 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POP INSTRUCTION SEQ 0041 1183 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E 1184 ;IN THIS CASE, AC=0 AND AC IS PRELOADED WITH 2,,2; E=2 AND IS PRELOADED WITH 0. 1185 ;POP IS THEN EXECUTED. POP SHOULD PLACE 0 INTO E. IF C(E)=0, THIS TEST PASSES. 1186 1187 031071 200 00 0 00 032151 C32300: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2 1188 031072 402 00 0 00 000002 SETZM 2 ;CLEAR E AND C(AC-RIGHT) 1189 031073 262 00 0 00 000002 POP 2 ;*POP SHOULD PLACE 0 INTO E 1190 031074 332 00 0 00 000002 SKIPE 2 ;PASS IF C(E)=0 1191 STOP^ 1192 031075 254 04 0 00 031076 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1193 031076 324 00 0 00 031077 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1194 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1195 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1196 1197 ;********** 1198 1199 ;THIS TEST VERIFIES THAT POP DOES NOT MODIFY C(C(AC-RIGHT)-1). 1200 ;THIS TEST FAILS IF C(C(AC-RIGHT)-1) IS MODIFIED BY POP. 1201 1202 031077 200 00 0 00 032151 C32400: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2 1203 031100 201 02 0 00 000017 MOVEI 2,17 ;PRELOAD 2 WITH 0,,17 1204 031101 402 00 0 00 000001 SETZM 1 ;CLEAR C(C(AC-RIGHT)-1) 1205 031102 262 00 0 00 000002 POP 2 ;*POP SHOULD NOT MODIFY C(C(AC-RIGHT)-1) 1206 031103 332 00 0 00 000001 SKIPE 1 ;PASS IF C(C(AC-RIGHT)-1) WAS UNALTERED 1207 STOP^ 1208 031104 254 04 0 00 031105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1209 031105 324 00 0 00 031106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1210 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1211 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1212 1213 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 15 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POP INSTRUCTION SEQ 0042 1214 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E. 1215 ;IN THIS CASE, AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,3. 1216 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR 0,,3 [C(C(AC-RIGHT))] . 1217 ;IF C(E)=0,,3, THIS TEST PASSES. 1218 1219 031106 200 00 0 00 032151 C32500: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2 1220 031107 201 02 0 00 000003 MOVEI 2,3 ;PRELOAD C(AC-RIGHT) WITH 0,,3 1221 031110 402 00 0 00 000003 SETZM 3 ;CLEAR E 1222 031111 262 00 0 00 000003 POP 3 ;*POP SHOULD PLACE 0,,3 INTO E 1223 031112 302 03 0 00 000003 CAIE 3,3 ;PASS IF C(E)=0,,3 1224 STOP^ 1225 031113 254 04 0 00 031114 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1226 031114 324 00 0 00 031115 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1227 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1228 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1229 1230 ;********** 1231 1232 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E. IN THIS CASE, 1233 ;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH 0,,17. 1234 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR 0,,17 [C(C(AC-RIGHT))] . 1235 ;IF C(E)=0,,17, THIS TEST PASSES. 1236 1237 031115 402 00 0 00 000002 C32600: SETZM 2 ;CLEAR E 1238 031116 200 00 0 00 032151 MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2 1239 031117 201 02 0 00 000017 MOVEI 2,17 ;PRELOAD C(AC-RIGHT) WITH 0,,17 1240 031120 262 00 0 00 000002 POP 2 ;*POP SHOULD PLACE 0,,17 INTO E 1241 031121 302 02 0 00 000017 CAIE 2,17 ;PASS IF C(E)=0,,17 1242 STOP^ 1243 031122 254 04 0 00 031123 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1244 031123 324 00 0 00 031124 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1245 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1246 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1247 1248 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 16 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POP INSTRUCTION SEQ 0043 1249 ;THIS TEST VERIFIES THAT POP STORES C(C(AC-RIGHT)) INTO E. IN THIS CASE, 1250 ;AC IS PRELOADED WITH 2,,2 AND AC2 [C(AC-RIGHT)] IS PRELOADED WITH -1,,-1. 1251 ;E IS CLEARED AND POP IS EXECUTED. E IS THEN CHECKED FOR -1,,-1 [C(C(AC-RIGHT))] . 1252 ;IF C(E)=0,,3, THIS TEST PASSES. 1253 1254 031124 200 00 0 00 032151 C33100: MOVE [XWD 2,2] ;PRELOAD AC WITH 2,,2 1255 031125 476 00 0 00 000002 SETOM 2 ;PRELOAD C(AC-RIGHT) WITH -1,,-1 1256 031126 402 00 0 00 000003 SETZM 3 ;CLEAR E 1257 031127 262 00 0 00 000003 POP 3 ;*POP SHOULD PLACE -1,,-1 INTO E 1258 031130 312 03 0 00 032145 CAME 3,[-1] ;PASS IF C(E)=-1,,-1 1259 STOP^ 1260 031131 254 04 0 00 031132 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1261 031132 324 00 0 00 031133 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1262 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1263 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1264 1265 ;********** 1266 1267 ;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC. 1268 ;IN THIS CASE, THE AC IS PRELOADED WITH 1,,17; E=1 AND E IS PRELOADED WITH 0; 1269 ;C(AC-RIGHT) IS PRELOADED WITH -1,,-1; AND POP IS EXECUTED. POP SHOULD PLACE -1,,-1 1270 ;INTO E AND 0,,16 INTO AC. IF AC AND E ARE UPDATED CORRECTLY, THIS TEST PASSES. 1271 1272 031133 200 00 0 00 032152 C33300: MOVE [XWD 1,17] ;PRELOAD AC WITH 1,,17 1273 031134 402 00 0 00 000001 SETZM 1 ;PRELOAD E WITH 0 1274 031135 476 00 0 00 000017 SETOM 17 ;PRELOAD C(AC-RIGHT) WITH 1,,1 1275 031136 262 00 0 00 000001 POP 1 ;*POP SHOULD PLACE -1,,-1 INTO E AND 0,,16 INTO AC 1276 031137 312 01 0 00 032145 CAME 1,[-1] ;PASS IF C(E)=-1,,-1 1277 STOP^ 1278 031140 254 04 0 00 031141 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1279 031141 324 00 0 00 031142 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1280 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1281 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1282 031142 302 00 0 00 000016 C33310: CAIE 16 ;PASS IF C(AC)=0,,16 1283 STOP^ 1284 031143 254 04 0 00 031144 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1285 031144 324 00 0 00 031145 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1286 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1287 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1288 1289 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 17 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POP INSTRUCTION SEQ 0044 1290 ;THIS TEST VERIFIES THAT POP PLACES C(C(AC-RIGHT)) INTO E AND ADDS 1,,1 TO AC 1291 ;IN THIS CASE, THE AC IS PRELOADED WITH -1,,0; E=17 1292 ;C(AC-RIGHT) IS PRELOADED WITH 0; AND POP IS EXECUTED. POP SHOULD PLACE 0 1293 ;INTO E. IF AC IS UPDATED CORRECTLY, THIS TEST PASSES. 1294 1295 031145 205 01 0 00 777777 C33400: MOVSI 1,-1 ;PRELOAD AC WITH -1,,0 1296 031146 400 00 0 00 000000 SETZ ;CLEAR C(AC-RIGHT) 1297 031147 262 01 0 00 000017 POP 1,17 ;*POP SHOULD PLACE 0 INTO E 1298 031150 332 00 0 00 000017 SKIPE 17 ;PASS IF C(E)=0 1299 STOP^ 1300 031151 254 04 0 00 031152 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1301 031152 324 00 0 00 031153 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1302 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1303 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1304 1305 ;********** 1306 1307 ;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON POP. 1308 ;THE AC IS PRELOADED WITH 1,,0; THEN POP IS EXECUTED. POP SHOULD SUBTRACT ONE 1309 ;FROM BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO 1310 ;CARRY WAS GENERATED, THIS TEST PASSES 1311 1312 031153 515 02 0 00 000001 C33401: HRLZI 2,1 ;PRELOAD AC WITH 1,,0 1313 031154 262 02 0 00 000000 POP 2,0 ;*POP SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17 1314 031155 302 02 0 00 777777 CAIE 2,-1 ;PASS IF C(AC)=0,,-1 (NO CARRY WAS GENERATED) 1315 STOP^ 1316 031156 254 04 0 00 031157 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1317 031157 324 00 0 00 031160 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1318 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1319 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1320 1321 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 18 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POPJ INSTRUCTION SEQ 0045 1322 SUBTTL TEST OF POPJ INSTRUCTION 1323 1324 ;********** 1325 1326 ;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF 1327 ;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC. 1328 ;THIS TEST PASSES IF POPJ JUMPS CORRECTLY. 1329 1330 031160 200 00 0 00 032143 C33500: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1 1331 031161 201 01 0 00 031164 MOVEI 1,.+3 ;PRELOAD C(AC-RIGHT) WITH .+3 1332 031162 263 00 0 00 031164 POPJ .+2 ;*POPJ SHOULD JUMP TO LOCATION 1333 ;ADDRESSED BY C(C(AC-RIGHT)) 1334 STOP^ 1335 031163 254 04 0 00 031164 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1336 031164 324 00 0 00 031165 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1339 1340 ;********** 1341 1342 ;THIS TEST VERIFIES THAT POPJ SUBTRACTS 1,,1 FROM THE AC 1343 ;THIS AC IS PRELOADED WITH 1,,1; THEN,POPJ IS EXECUTED. 1344 ;THE AC IS CHECKED FOR 0. IF C(AC)=0, THIS TEST PASSES. 1345 1346 031165 200 00 0 00 032143 C33600: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1 1347 031166 201 01 0 00 031170 MOVEI 1,.+2 ;PRELOAD C(AC-NIGHT)WITH .+2 1348 031167 263 00 0 00 031170 POPJ .+1 ;*POPJ SHOULD SUBTRACT 1,,1 FROM AC 1349 031170 312 00 0 00 032146 CAME [0] ;PASS IF C(AC)=0 1350 STOP^ 1351 031171 254 04 0 00 031172 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1352 031172 324 00 0 00 031173 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1353 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1354 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1355 1356 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 19 DSKAG1 MAC 28-Mar-78 14:22 TEST OF POPJ INSTRUCTION SEQ 0046 1357 ;THIS TEST VERIFIES THAT POPJ JUMPS TO THE LOCATION ADDRESSED BY RIGHT HALF OF 1358 ;C(C(AC-RIGHT)) BEFORE POPJ DECREMENTED THE AC. 1359 ;THIS TEST PASSES IF POPJ JUMPS CORRECTLY. 1360 1361 031173 200 00 0 00 032143 C33700: MOVE [XWD 1,1] ;PRELOAD AC WITH 1,,1 1362 031174 201 01 0 00 031176 MOVEI 1,.+2 ;PRELOAD C(AC-RIGHT) WITH C33700+3 1363 1364 031175 263 00 0 00 031177 POPJ .+2 ;*POPJ SHOULD JUMP TO C33700+3 1365 031176 334 00 0 00 000000 SKIPA ;PASS IF POPJ JUMPED CORRECTLY 1366 STOP^ 1367 031177 254 04 0 00 031200 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1368 031200 324 00 0 00 031201 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1369 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1370 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1371 1372 ;********** 1373 1374 ;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON POPJ. 1375 ;THE AC IS PRELOADED WITH 1,,0; THEN POPJ IS EXECUTED. POPJ SHOULD SUBTRACT ONE 1376 ;FROM BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO 1377 ;CARRY WAS GENERATED, THIS TEST PASSES 1378 1379 031201 515 02 0 00 000001 C33701: HRLZI 2,1 ;PRELOAD AC WITH 1,,0 1380 031202 201 00 0 00 031204 MOVEI 0,.+2 ;PRELOAD C(AC-RIGHT) WITH C33701+3 1381 031203 263 02 0 00 000000 POPJ 2,0 ;*POPJ SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17 1382 031204 302 02 0 00 777777 CAIE 2,-1 ;PASS IF C(AC)=0,,-1 (NO CARRY WAS GENERATED) 1383 STOP^ 1384 031205 254 04 0 00 031206 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1385 031206 324 00 0 00 031207 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1386 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1387 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1388 1389 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 20 DSKAG1 MAC 28-Mar-78 14:22 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0047 1390 SUBTTL XCT INSTRUCTION - ADDITIONAL TESTS 1391 1392 ;********** 1393 1394 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE 1395 ;TO THE LOCATION OF THE XCT. 1396 1397 031207 477 00 0 00 000001 C34000: SETOB 1 1398 031210 256 00 0 00 032153 XCT [CAME 0,1] ;*CAME SHOULD SKIP TO C34000+3 1399 STOP^ 1400 031211 254 04 0 00 031212 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1401 031212 324 00 0 00 031213 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1402 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1403 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1404 1405 ;********** 1406 1407 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE 1408 ;TO THE LOCATION OF THE XCT. 1409 1410 031213 477 00 0 00 000001 C34100: SETOB 1 1411 031214 256 00 0 00 032155 XCT [XCT[XCT[CAME 0,1]]] ;*CAME SHOULD SKIP TO C34100+3 1412 STOP^ 1413 031215 254 04 0 00 031216 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1414 031216 324 00 0 00 031217 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1415 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1416 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1417 1418 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 21 DSKAG1 MAC 28-Mar-78 14:22 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0048 1419 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS 1420 ;SPECIFIED BY THE JUMP. 1421 1422 031217 256 00 0 00 032156 C34200: XCT [JRST .+4] ;*JRST SHOULD JUMP TO C34200+4 1423 1424 031220 254 04 0 00 000000 HALT ;JRST SHOULD JUMP OVER THIS LOCATION 1425 031221 254 04 0 00 000000 HALT ;JRST SHOULD JUMP OVER THIS LOCATION 1426 STOP^ 1427 031222 254 04 0 00 031223 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1428 031223 324 00 0 00 031224 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1429 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1430 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1431 1432 ;********** 1433 1434 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS 1435 ;SPECIFIED BY THE JUMP AND THAT WHEN THE PC IS SAVED IT CONTAINS AN 1436 ;ADDRESS ONE GREATER THAN THE LOCATION OF FIRST XCT OF THE CHAIN. 1437 1438 031224 402 00 0 00 000003 C34300: SETZM 3 ;CLEAR AC OF JSP 1439 031225 256 00 0 00 032161 XCT [XCT[XCT[JSP 3,.+3]]] ;*JSP SHOULD JUMP TO C34300+4 AND 1440 031226 254 04 0 00 000000 HALT ;THE SAVED PC SHOULD BE C 34300+2 1441 031227 254 04 0 00 000000 HALT ;PASS IF JSP JUMPED CORRECTLY 1442 031230 620 03 0 00 031226 TRZ 3,.-2 ;AND SAVED PC=C34300+2 1443 031231 602 03 0 00 777777 TRNE 3,-1 1444 STOP^ 1445 031232 254 04 0 00 031233 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1446 031233 324 00 0 00 031234 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1447 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1448 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1449 1450 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 22 DSKAG1 MAC 28-Mar-78 14:22 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0049 1451 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE 1452 ;TO THE LOCATION OF THE XCT. 1453 ;IN THIS CASE, NO SKIP SHOULD OCCUR ;HENCE, THE INSTRUCTION 1454 ;FOLLOWING XCT SHOULD BE EXECUTED AFTER 'CAME' IS EXECUTED. 1455 1456 031234 403 00 0 00 000000 C34400: SETZB 0 ;SET-UP AC,E SO THAT 1457 031235 476 00 0 00 000001 SETOM 1 ;CAME WILL NOT SKIP 1458 031236 256 00 0 00 032153 XCT [CAME 0,1] ;*CAME SHOULD CAUSE EXECUTION 1459 ;OF INSTRUCTION FOLLOWING XCT 1460 031237 254 00 0 00 031241 JRST .+2 ;PASS IF THIS INSTRUCTION IS EXECUTED 1461 STOP^ 1462 031240 254 04 0 00 031241 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1463 031241 324 00 0 00 031242 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1464 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1465 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1466 1467 ;********** 1468 1469 ;THIS TEST VERIFIES INDEXING FOR XCT OF AN ADD INSTRUCTION 1470 ;C(4)=10, AND C(6)=3, SO THE RESULT IN 6 (THE AC) SHOULD BE 16 1471 ;C(11)=13 1472 1473 031242 201 04 0 00 000010 C34500: MOVEI 4,10 ;PRELOAD INDEX REG WITH 10 1474 031243 201 11 0 00 000013 MOVEI 11,13 ;PRELOAD EFFECTIVE ADDRESS WITH 13 1475 031244 201 06 0 00 000003 MOVEI 6,3 ;PRELOAD AC WITH 3 1476 031245 256 00 0 00 032162 XCT [ADD 6,1(4)] ;*ADD SHOULD PLACE 16 IN AC 1477 031246 302 06 0 00 000016 CAIE 6,16 ;PASS IF C(AC)=16 1478 STOP^ 1479 031247 254 04 0 00 031250 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1480 031250 324 00 0 00 031251 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1481 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1482 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1483 1484 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 23 DSKAG1 MAC 28-Mar-78 14:22 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0050 1485 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE 1486 ;TO THE LOCATION OF THE XCT 1487 ;IN THIS CASE, NO SKIP SHOULD OCCUR ;HENCE, THE INSTRUCTION 1488 ;FOLLOWING XCT SHOULD BE EXECUTED AFTER CAME IS EXECUTED. 1489 1490 031251 402 00 0 00 000002 C34600: SETZM 2 ;SETUP E SO THAT SKIPL WILL NOT SKIP 1491 031252 256 00 0 00 032163 XCT [SKIPL 1,2] ;*SKIPL SHOULD CAUSE INSTRUCTION 1492 ;OF FOLLOWING INSTRUCTION 1493 031253 254 00 0 00 031255 JRST .+2 ;PASS IF THIS INSTRUCTION IS EXECUTED. 1494 STOP^ 1495 031254 254 04 0 00 031255 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1496 031255 324 00 0 00 031256 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1497 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1498 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1499 031256 332 00 0 00 000001 C34610: SKIPE 1 ;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL 1500 ;PLACED 0 INTO AC1 1501 STOP^ 1502 031257 254 04 0 00 031260 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1503 031260 324 00 0 00 031261 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1504 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1505 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1506 1507 ;********** 1508 1509 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A SKIP INSTRUCTION, THE SKIP IS RELATIVE 1510 ;TO THE LOCATION OF THE XCT. 1511 1512 031261 476 00 0 00 000006 C34700: SETOM 6 ;SETUP E SO THAT SKIPL WILL SKIP 1513 031262 256 00 0 00 032164 XCT [SKIPL 3,6] ;*SKIPL SHOULD SKIP TO C34700+3 1514 STOP^ 1515 031263 254 04 0 00 031264 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1516 031264 324 00 0 00 031265 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1517 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1518 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1519 031265 331 00 0 00 000003 C34710: SKIPL 3 ;*SKIPE SHOULD SKIP BECAUSE XCT OF SKIPL 1520 ;PLACED 0 INTO AC1 1521 STOP^ 1522 031266 254 04 0 00 031267 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1523 031267 324 00 0 00 031270 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1524 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1525 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1526 1527 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 24 DSKAG1 MAC 28-Mar-78 14:22 XCT INSTRUCTION - ADDITIONAL TESTS SEQ 0051 1528 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS 1529 ;SPECIFIED BY THE JUMP. 1530 ;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN 1531 1532 031270 200 03 0 00 032165 C35000: MOVE 3,[-2,,5] ;SETUP AC SO THAT AOBJN WILL JUMP 1533 031271 256 00 0 00 032166 XCT [AOBJN 3,.+3] ;*JUMP SHOULD BE TO C35000+4 1534 031272 254 04 0 00 000000 HALT ;JUMP OVER THIS INSTRUCTION 1535 031273 254 04 0 00 000000 HALT ;JUMP OVER THIS INSTRUCTION 1536 031274 312 03 0 00 032167 CAME 3,[-1,,6] ;PASS IF C(AC)=-1,,6 AND AOBJN JUMPED 1537 STOP^ 1538 031275 254 04 0 00 031276 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1539 031276 324 00 0 00 031277 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1540 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1541 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1542 1543 ;********** 1544 1545 ;THIS TEST VERIFIES THAT IF AN XCT EXECUTES A JUMP, PROGRAM FLOW IS ALTERED AS 1546 ;SPECIFIED BY THE JUMP. 1547 ;THIS TEST ALSO VERIFIES CORRECT UPDATING OF THE AC FOR AOBJN 1548 1549 031277 200 03 0 00 032167 C35100: MOVE 3,[-1,,6] ;SETUP AC SO THAT AOBJN WILL NOT JUMP 1550 031300 256 00 0 00 032170 XCT [AOBJN 3,.+2] ;*AOBJN SHOULD NOT JUMP 1551 031301 312 03 0 00 032171 CAME 3,[0,,7] ;PASS IF AOBJN DID NOT JUMP AND C(AC)=0,,7 1552 STOP^ 1553 031302 254 04 0 00 031303 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1554 031303 324 00 0 00 031304 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1557 1558 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 25 DSKAG1 MAC 28-Mar-78 14:22 TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING SEQ 0052 1559 SUBTTL TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING 1560 1561 ;********** 1562 1563 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION 1564 ;FROM AN INDIRECTLY ADDRESSED LOCATION 1565 1566 031304 403 00 0 00 000002 C35200: SETZB 2 1567 031305 254 00 0 00 031310 JRST .+3 1568 031306 000000 031307 .+1 1569 031307 476 00 0 00 000002 SETOM 2 ;THIS INSTRUCTION SHOULD BE EXECUTED 1570 031310 256 00 1 00 031306 XCT @@.-2 1571 031311 312 02 0 00 032145 CAME 2,[-1,,-1] ;PASS IF 'SETOM 2' WAS EXECUTED 1572 STOP^ 1573 031312 254 04 0 00 031313 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1574 031313 324 00 0 00 031314 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1575 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1576 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1577 1578 ;********** 1579 1580 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION 1581 ;FROM AN INDEXED LOCATION 1582 1583 031314 201 04 0 00 031315 C35300: MOVEI 4,.+1 1584 031315 254 00 0 00 031317 JRST .+2 1585 031316 302 04 0 00 031315 CAIE 4,.-1 ;THIS INSTRUCTION SHOULD BE EXECUTED 1586 031317 256 00 0 04 000001 XCT 1(4) 1587 STOP ^;PASS IF 'CAIE 4,,-1' WAS EXECUTED 1588 1589 031320 254 04 0 00 031321 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1590 031321 324 00 0 00 031322 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1591 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1592 ;IN THE SUBTEST) TO LOOP ON ERROR 1593 1594 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 26 DSKAG1 MAC 28-Mar-78 14:22 TEST XCT INSTRUCTION WITH INDIRECT ADDRESSING AND INDEXING SEQ 0053 1595 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INSTRUCTION 1596 ;FROM AN INDIRECTLY ADDRESSED AND INDEXED LOCATION 1597 1598 031322 402 00 0 00 000005 C35400: SETZM 5 1599 031323 201 03 0 00 031326 MOVEI 3,.+3 1600 031324 254 00 0 00 031326 JRST .+2 1601 031325 201 05 0 00 031330 MOVEI 5,.+3 1602 031326 256 00 1 03 777777 XCT @@-1(3) 1603 031327 254 00 0 00 031331 JRST .+2 1604 031330 476 00 0 00 000005 SETOM 5 ;THIS INSTRUCTION SHOULD BE EXECUTED 1605 031331 312 05 0 00 032145 CAME 5,[-1,,-1] ;PASS IF 'SETOM 5' WAS EXECUTED 1606 STOP^ 1607 031332 254 04 0 00 031333 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1608 031333 324 00 0 00 031334 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1609 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1610 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1611 1612 ;********** 1613 1614 ;THIS TEST VERIFIES THAT XCT WILL EXECUTE AN INDIRECTLY ADDRESSED 1615 ;AND INDEXED INSTRUCTION 1616 1617 031334 402 00 0 00 000003 C35500: SETZM 3 1618 031335 201 10 0 00 000003 MOVEI 10,3 1619 031336 254 00 0 00 031343 JRST .+5 1620 031337 254 04 0 00 000000 HALT 1621 031340 254 04 0 00 000000 HALT 1622 031341 200 03 1 10 031337 MOVE 3,@@.-2(10) ;THIS INSTRUCTION SHOULD BE EXECUTED 1623 031342 254 04 0 00 032172 HALT [0,,707070] 1624 031343 256 00 0 00 031341 XCT .-2 1625 031344 302 03 0 00 707070 CAIE 3,707070 ;PASS IF 'MOVE 3,@@.-2(10)' WAS EXECUTED 1626 STOP^ 1627 031345 254 04 0 00 031346 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1628 031346 324 00 0 00 031347 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1629 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1630 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1631 1632 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 27 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0054 1633 SUBTTL TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER 1634 1635 ;********** 1636 1637 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1638 ;IN THIS CASE, 0,,0 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1639 ;SO THAT FINAL C(AC)=0,,0. 1640 ;C(AC+1) SHOULD NOT BE AFFECTED. 1641 1642 031347 200 00 0 00 032146 C35600: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0 1643 031350 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1644 031351 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 0,,0 RIGHT 3 BIT POSITIONS 1645 031352 312 00 0 00 032146 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0 1646 STOP^ 1647 031353 254 04 0 00 031354 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1648 031354 324 00 0 00 031355 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1649 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1650 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1651 031355 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1652 STOP^ 1653 031356 254 04 0 00 031357 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1654 031357 324 00 0 00 031360 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1655 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1656 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1657 1658 ;********** 1659 1660 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1661 ;IN THIS CASE, -1,,-1 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1662 ;SO THAT FINAL C(AC)=-1,,-1. 1663 ;C(AC+1) SHOULD NOT BE AFFECTED. 1664 1665 031360 200 00 0 00 032145 C35700: MOVE 0,[-1,,-1] ;PRELOAD AC WITH 0,,0 1666 031361 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1667 031362 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE -1,,-1 RIGHT 3 BIT POSITIONS 1668 031363 312 00 0 00 032145 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1 1669 STOP^ 1670 031364 254 04 0 00 031365 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1671 031365 324 00 0 00 031366 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1672 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1673 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1674 031366 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1675 STOP^ 1676 031367 254 04 0 00 031370 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1677 031370 324 00 0 00 031371 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1678 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1679 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1680 1681 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 28 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0055 1682 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1683 ;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1684 ;SO THAT FINAL C(AC)=525252,,525252. 1685 ;C(AC+1) SHOULD NOT BE AFFECTED. 1686 1687 031371 200 00 0 00 032174 C36000: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 1688 031372 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1689 031373 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 252525,,252525 1690 ;RIGHT 3 BIT POSITIONS 1691 031374 312 00 0 00 032175 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252 1692 STOP^ 1693 031375 254 04 0 00 031376 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1694 031376 324 00 0 00 031377 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1695 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1696 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1697 031377 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1698 STOP^ 1699 031400 254 04 0 00 031401 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1700 031401 324 00 0 00 031402 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1701 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1702 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1703 1704 ;********** 1705 1706 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1707 ;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1708 ;SO THAT FINAL C(AC)=252525,,252525. 1709 ;C(AC+1) SHOULD NOT BE AFFECTED. 1710 1711 031402 200 00 0 00 032175 C36100: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 1712 031403 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1713 031404 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 525252,,525252 1714 ;RIGHT 3 BIT POSITIONS 1715 031405 312 00 0 00 032174 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525 1716 STOP^ 1717 031406 254 04 0 00 031407 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1718 031407 324 00 0 00 031410 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1719 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1720 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1721 031410 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1722 STOP^ 1723 031411 254 04 0 00 031412 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1724 031412 324 00 0 00 031413 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1725 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1726 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1727 1728 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 29 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0056 1729 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1730 ;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1731 ;SO THAT FINAL C(AC)=023070,,360370. 1732 ;C(AC+1) SHOULD NOT BE AFFECTED. 1733 1734 031413 200 00 0 00 032176 C36200: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 1735 031414 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1736 031415 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 230703,,603700 1737 ;RIGHT 3 BIT POSITIONS 1738 031416 312 00 0 00 032177 CAME 0,[023070,,360370] ;PASS IF C(AC)=023070,,360370 1739 STOP^ 1740 031417 254 04 0 00 031420 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1741 031420 324 00 0 00 031421 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1742 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1743 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1744 031421 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1745 STOP^ 1746 031422 254 04 0 00 031423 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1747 031423 324 00 0 00 031424 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1748 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1749 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1750 1751 ;********** 1752 1753 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1754 ;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED RIGHT 3 BIT POSITIONS 1755 ;SO THAT FINAL C(AC)=200760,,360706. 1756 ;C(AC+1) SHOULD NOT BE AFFECTED. 1757 1758 031424 200 00 0 00 032200 C36300: MOVE 0,[007603,,607062] ;PRELOAD AC WITH 007603,,607062 1759 031425 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1760 031426 241 00 0 00 777775 ROT 0,-3 ;*ROT SHOULD ROTATE 007603,,607062 1761 ;RIGHT 3 BIT POSITIONS 1762 031427 312 00 0 00 032201 CAME 0,[200760,,360706] ;PASS IF C(AC)=200760,,360706 1763 STOP^ 1764 031430 254 04 0 00 031431 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1765 031431 324 00 0 00 031432 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1766 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1767 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1768 031432 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1769 STOP^ 1770 031433 254 04 0 00 031434 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1771 031434 324 00 0 00 031435 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1772 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1773 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1774 1775 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 30 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0057 1776 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1777 ;IN THIS CASE, 0,,0 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1778 ;SO THAT FINAL C(AC)=0,,0. 1779 ;C(AC+1) SHOULD NOT BE AFFECTED. 1780 1781 031435 200 02 0 00 032146 C36400: MOVE 2,[0,,0] ;PRELOAD AC WITH 0,,0 1782 031436 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1783 031437 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 0,,0 LEFT 15 BIT POSITIONS 1784 031440 312 02 0 00 032146 CAME 2,[0,,0] ;PASS IF C(AC)=0,,0 1785 STOP^ 1786 031441 254 04 0 00 031442 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1787 031442 324 00 0 00 031443 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1788 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1789 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1790 031443 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1791 STOP^ 1792 031444 254 04 0 00 031445 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1793 031445 324 00 0 00 031446 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1794 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1795 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1796 1797 ;********** 1798 1799 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1800 ;IN THIS CASE, -1,,-1 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1801 ;SO THAT FINAL C(AC)=-1,,-1. 1802 ;C(AC+1) SHOULD NOT BE AFFECTED. 1803 1804 031446 200 02 0 00 032145 C36500: MOVE 2,[-1,,-1] ;PRELOAD AC WITH -1,,-1 1805 031447 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1806 031450 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE -1,,-1 LEFT 15 BIT POSITIONS 1807 031451 312 02 0 00 032145 CAME 2,[-1,,-1] ;PASS IF C(AC)=-1,,-1 1808 STOP^ 1809 031452 254 04 0 00 031453 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1810 031453 324 00 0 00 031454 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1811 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1812 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1813 031454 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1814 STOP^ 1815 031455 254 04 0 00 031456 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1816 031456 324 00 0 00 031457 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1817 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1818 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1819 1820 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 31 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0058 1821 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1822 ;IN THIS CASE, 252525,,252525 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1823 ;SO THAT FINAL C(AC)=525252,,525252. 1824 ;C(AC+1) SHOULD NOT BE AFFECTED. 1825 1826 031457 200 02 0 00 032174 C36600: MOVE 2,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 1827 031460 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1828 031461 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 252525,,252525 1829 ;LEFT 15 BIT POSITIONS 1830 031462 312 02 0 00 032175 CAME 2,[525252,,525252] ;PASS IF C(AC)=525252,,525252 1831 STOP^ 1832 031463 254 04 0 00 031464 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1833 031464 324 00 0 00 031465 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1834 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1835 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1836 031465 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1837 STOP^ 1838 031466 254 04 0 00 031467 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1839 031467 324 00 0 00 031470 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1840 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1841 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1842 1843 ;********** 1844 1845 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1846 ;IN THIS CASE, 525252,,525252 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1847 ;SO THAT FINAL C(AC)=252525,,252525. 1848 ;C(AC+1) SHOULD NOT BE AFFECTED. 1849 1850 031470 200 02 0 00 032175 C36700: MOVE 2,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 1851 031471 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1852 031472 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 525252,,525252 1853 ;LEFT 15 BIT POSITIONS 1854 031473 312 02 0 00 032174 CAME 2,[252525,,252525] ;PASS IF C(AC)=252525,,252525 1855 STOP^ 1856 031474 254 04 0 00 031475 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1857 031475 324 00 0 00 031476 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1858 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1859 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1860 031476 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1861 STOP^ 1862 031477 254 04 0 00 031500 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1863 031500 324 00 0 00 031501 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1864 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1865 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1866 1867 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 32 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0059 1868 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1869 ;IN THIS CASE, 230703,,603700 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1870 ;SO THAT FINAL C(AC)074076,,004616. 1871 ;C(AC+1) SHOULD NOT BE AFFECTED. 1872 1873 031501 200 02 0 00 032176 C37000: MOVE 2,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 1874 031502 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1875 031503 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 230703,,603700 1876 ;LEFT 15 BIT POSITIONS 1877 031504 312 02 0 00 032202 CAME 2,[074076,,004616] ;PASS IF C(AC)074076,,004616 1878 STOP^ 1879 031505 254 04 0 00 031506 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1880 031506 324 00 0 00 031507 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1881 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1882 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1883 031507 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1884 STOP^ 1885 031510 254 04 0 00 031511 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1886 031511 324 00 0 00 031512 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1887 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1888 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1889 1890 ;********** 1891 1892 ;THIS TEST VERIFIES THAT A ROT INSTRUCTION FUNCTIONS CORRECTLY. 1893 ;IN THIS CASE, 007603,,607062 SHOULD BE ROTATED LEFT 15 BIT POSITIONS 1894 ;SO THAT FINAL C(AC)074161,,440174. 1895 ;C(AC+1) SHOULD NOT BE AFFECTED. 1896 1897 031512 200 02 0 00 032200 C37100: MOVE 2,[007603,,607062] ;PRELOAD AC WITH 007603,,607062 1898 031513 200 03 0 00 032173 MOVE 3,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 1899 031514 241 02 0 00 000015 ROT 2,15 ;*ROT SHOULD ROTATE 007603,,607062 1900 ;LEFT 15 BIT POSITIONS 1901 031515 312 02 0 00 032203 CAME 2,[074161,,440174] ;PASS IF C(AC)074161,,440174 1902 STOP^ 1903 031516 254 04 0 00 031517 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1904 031517 324 00 0 00 031520 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1905 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1906 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1907 031520 312 03 0 00 032173 CAME 3,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 1908 STOP^ 1909 031521 254 04 0 00 031522 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1910 031522 324 00 0 00 031523 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1911 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1912 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1913 1914 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 33 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0060 1915 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 1916 ;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 1917 ;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0 1918 1919 031523 200 00 0 00 032146 C37200: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0 1920 031524 200 01 0 00 032146 MOVE 1,[0,,0] ;PRELOAD AC+1 WITH 0,,0 1921 031525 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 3 BIT POSITIONS 1922 031526 312 00 0 00 032146 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0 1923 STOP^ 1924 031527 254 04 0 00 031530 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1925 031530 324 00 0 00 031531 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1926 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1927 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1928 031531 312 01 0 00 032146 CAME 1,[0,,0] ;PASS IF C(AC+1)=0,,0 1929 STOP^ 1930 031532 254 04 0 00 031533 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1931 031533 324 00 0 00 031534 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1932 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1933 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1934 1935 ;********** 1936 1937 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 1938 ;IN THIS CASE, -1,,-1 -1,,-1 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 1939 ;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1 1940 1941 031534 200 00 0 00 032145 C37300: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1 1942 031535 200 01 0 00 032145 MOVE 1,[-1,,-1] ;PRELOAD AC+1 WITH -1,,-1 1943 031536 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE -1,,-1 1944 ;-1,,-1 LEFT 3 BIT POSITIONS 1945 031537 312 00 0 00 032145 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1 1946 STOP^ 1947 031540 254 04 0 00 031541 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1948 031541 324 00 0 00 031542 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1949 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1950 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1951 031542 312 00 0 00 032145 CAME 0,[-1,,-1] ;PASS IF C(AC+1)=-1,,-1 1952 STOP^ 1953 031543 254 04 0 00 031544 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1954 031544 324 00 0 00 031545 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1955 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1956 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1957 1958 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 34 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0061 1959 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 1960 ;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 1961 ;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252 1962 1963 031545 200 00 0 00 032174 C37400: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 1964 031546 200 01 0 00 032174 MOVE 1,[252525,,252525] ;PRELOAD AC+1 WITH 252525,,252525 1965 031547 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 252525,,252525 1966 ;252525,,252525 LEFT 3 BIT POSITIONS 1967 031550 312 00 0 00 032175 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252 1968 STOP^ 1969 031551 254 04 0 00 031552 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1970 031552 324 00 0 00 031553 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1971 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1972 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1973 031553 312 01 0 00 032175 CAME 1,[525252,,525252] ;PASS IF C(AC+1)=525252,,525252 1974 STOP^ 1975 031554 254 04 0 00 031555 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1976 031555 324 00 0 00 031556 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1977 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1978 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1979 1980 ;********** 1981 1982 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 1983 ;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 1984 ;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525 1985 1986 031556 200 00 0 00 032175 C37500: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 1987 031557 200 01 0 00 032175 MOVE 1,[525252,,525252] ;PRELOAD AC+1 WITH 525252,,525252 1988 031560 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 525252,,525252 1989 ;525252,,525252 LEFT 3 BIT POSITIONS 1990 031561 312 00 0 00 032174 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525 1991 STOP^ 1992 031562 254 04 0 00 031563 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1993 031563 324 00 0 00 031564 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 1994 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 1995 ;IN THE SUBTEST) TO LOOP ON ERROR^ 1996 031564 312 01 0 00 032174 CAME 1,[252525,,252525] ;PASS IF C(AC+1)=252525,,252525 1997 STOP^ 1998 031565 254 04 0 00 031566 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 1999 031566 324 00 0 00 031567 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2000 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2001 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2002 2003 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 35 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0062 2004 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2005 ;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 2006 ;SO THAT FINAL C(AC)=307036,,37007 AND FINAL C(AC+1)=700376,,003772 2007 2008 031567 200 00 0 00 032176 C37600: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 2009 031570 200 01 0 00 032204 MOVE 1,[770037,,600377] ;PRELOAD AC+1 WITH 770037,,600377 2010 031571 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 230703,,603700 2011 ;770037,,600377 LEFT 3 BIT POSITIONS 2012 031572 312 00 0 00 032205 CAME 0,[307036,,037007] ;PASS IF C(AC)=307036,,37007 2013 STOP^ 2014 031573 254 04 0 00 031574 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2015 031574 324 00 0 00 031575 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2016 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2017 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2018 031575 312 01 0 00 032206 CAME 1,[700376,,003772] ;PASS IF C(AC+1)=700376,,003772 2019 STOP^ 2020 031576 254 04 0 00 031577 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2021 031577 324 00 0 00 031600 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2022 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2023 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2024 2025 ;********** 2026 2027 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2028 ;IN THIS CASE, 776003,,760077 007603,,607062 SHOULD BE ROTATED LEFT 3 BIT POSITIONS 2029 ;SO THAT FINAL C(AC)=760037,,600770 AND FINAL C(AC+1)=076036,,070627 2030 2031 031600 200 00 0 00 032207 C37700: MOVE 0,[776003,,760077] ;PRELOAD AC WITH 776003,,760077 2032 031601 200 01 0 00 032200 MOVE 1,[007603,,607062] ;PRELOAD AC+1 WITH 007603,,607062 2033 031602 245 00 0 00 000003 ROTC 0,3 ;*ROTC SHOULD ROTATE 776003,,760077 2034 ;007603,,607062 LEFT 3 BIT POSITIONS 2035 031603 312 00 0 00 032210 CAME 0,[760037,,600770] ;PASS IF C(AC)=076036,,070627 2036 STOP^ 2037 031604 254 04 0 00 031605 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2038 031605 324 00 0 00 031606 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2039 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2040 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2041 031606 312 01 0 00 032211 CAME 1,[076036,,070627] ;PASS IF C(AC+1)=760037,,600770 2042 STOP^ 2043 031607 254 04 0 00 031610 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2044 031610 324 00 0 00 031611 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2045 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2046 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2047 2048 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 36 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0063 2049 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2050 ;IN THIS CASE, 0,,0 0,,0 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2051 ;SO THAT FINAL C(AC)=0,,0 AND FINAL C(AC+1)=0,,0 2052 2053 031611 200 00 0 00 032146 C40000: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0 2054 031612 200 01 0 00 032146 MOVE 1,[0,,0] ;PRELOAD AC+1 WITH 0,,0 2055 031613 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 0,,0 0,,0 LEFT 7 BIT POSITIONS 2056 031614 312 00 0 00 032146 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0 2057 STOP^ 2058 031615 254 04 0 00 031616 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2059 031616 324 00 0 00 031617 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2060 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2061 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2062 031617 312 01 0 00 032146 CAME 1,[0,,0] ;PASS IF C(AC+1)=0,,0 2063 STOP^ 2064 031620 254 04 0 00 031621 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2065 031621 324 00 0 00 031622 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2066 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2067 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2068 2069 ;********** 2070 2071 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2072 ;IN THIS CASE, -1,,-1 -1,,-1 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2073 ;SO THAT FINAL C(AC)=-1,,-1 AND FINAL C(AC+1)=-1,,-1 2074 2075 031622 200 00 0 00 032145 C40100: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1 2076 031623 200 01 0 00 032145 MOVE 1,[-1,,-1] ;PRELOAD AC+1 WITH -1,,-1 2077 031624 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE -1,,-1 2078 ;-1,,-1 LEFT 7 BIT POSITIONS 2079 031625 312 00 0 00 032145 CAME 0,[-1,,-1] ;PASS IF C(AC)=-1,,-1 2080 STOP^ 2081 031626 254 04 0 00 031627 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2082 031627 324 00 0 00 031630 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2083 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2084 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2085 031630 312 01 0 00 032145 CAME 1,[-1,,-1] ;PASS IF C(AC+1)=-1,,-1 2086 STOP^ 2087 031631 254 04 0 00 031632 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2088 031632 324 00 0 00 031633 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2089 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2090 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2091 2092 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 37 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0064 2093 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2094 ;IN THIS CASE, 252525,,252525 252525,,252525 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2095 ;SO THAT FINAL C(AC)=525252,,525252 AND FINAL C(AC+1)=525252,,525252 2096 2097 031633 200 00 0 00 032174 C40200: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 2098 031634 200 01 0 00 032174 MOVE 1,[252525,,252525] ;PRELOAD AC+1 WITH 252525,,252525 2099 031635 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 252525,,252525 2100 ;252525,,252525 LEFT 7 BIT POSITIONS 2101 031636 312 00 0 00 032175 CAME 0,[525252,,525252] ;PASS IF C(AC)=525252,,525252 2102 STOP^ 2103 031637 254 04 0 00 031640 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2104 031640 324 00 0 00 031641 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2105 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2106 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2107 031641 312 01 0 00 032175 CAME 1,[525252,,525252] ;PASS IF C(AC+1)=525252,,525252 2108 STOP^ 2109 031642 254 04 0 00 031643 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2110 031643 324 00 0 00 031644 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2111 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2112 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2113 2114 ;********** 2115 2116 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2117 ;IN THIS CASE, 525252,,525252 525252,,525252 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2118 ;SO THAT FINAL C(AC)=252525,,252525 AND FINAL C(AC+1)=252525,,252525 2119 2120 031644 200 00 0 00 032175 C40300: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 2121 031645 200 01 0 00 032175 MOVE 1,[525252,,525252] ;PRELOAD AC+1 WITH 525252,,525252 2122 031646 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 525252,,525252 2123 ;525252,,525252 LEFT 7 BIT POSITIONS 2124 031647 312 00 0 00 032174 CAME 0,[252525,,252525] ;PASS IF C(AC)=252525,,252525 2125 STOP^ 2126 031650 254 04 0 00 031651 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2127 031651 324 00 0 00 031652 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2128 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2129 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2130 031652 312 01 0 00 032174 CAME 1,[252525,,252525] ;PASS IF C(AC+1)=252525,,252525 2131 STOP^ 2132 031653 254 04 0 00 031654 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2133 031654 324 00 0 00 031655 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2134 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2135 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2136 2137 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 38 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0065 2138 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2139 ;IN THIS CASE, 230703,,603700 770037,,600377 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2140 ;SO THAT FINAL C(AC)=160740,,760176 AND FINAL C(AC+1)=007740,,077646 2141 2142 031655 200 00 0 00 032176 C40400: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 2143 031656 200 01 0 00 032204 MOVE 1,[770037,,600377] ;PRELOAD AC+1 WITH 770037,,600377 2144 031657 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 230703,,603700 2145 ;770037,,600377 LEFT 7 BIT POSITIONS 2146 031660 312 00 0 00 032212 CAME 0,[160740,,760176] ;PASS IF C(AC)=160740,,760176 2147 STOP^ 2148 031661 254 04 0 00 031662 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2149 031662 324 00 0 00 031663 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2150 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2151 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2152 031663 312 01 0 00 032213 CAME 1,[007740,,077646] ;PASS IF C(AC+1)=007740,,077646 2153 STOP^ 2154 031664 254 04 0 00 031665 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2155 031665 324 00 0 00 031666 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2156 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2157 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2158 2159 ;********** 2160 2161 ;THIS TEST VERIFIES THAT A ROTC INSTRUCTION FUNCTIONS CORRECTLY. 2162 ;IN THIS CASE, 776003,,760077 007603,,607063 SHOULD BE ROTATED LEFT 7 BIT POSITIONS 2163 ;SO THAT FINAL C(AC)=400774,,017610 AND FINAL C(AC+1)=740741,,614577 2164 2165 031666 200 00 0 00 032207 C40500: MOVE 0,[776003,,760077] ;PRELOAD AC WITH 776003,,760077 2166 031667 200 01 0 00 032200 MOVE 1,[007603,,607062] ;PRELOAD AC+1 WITH 007603,,607062 2167 031670 245 00 0 00 000007 ROTC 0,7 ;*ROTC SHOULD ROTATE 776003,,760077 2168 ;007603,,607062 LEFT 7 BIT POSITIONS 2169 031671 312 00 0 00 032214 CAME 0,[400774,,017601] ;PASS IF C(AC)=400774,,017601 2170 STOP^ 2171 031672 254 04 0 00 031673 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2172 031673 324 00 0 00 031674 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2173 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2174 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2175 031674 312 01 0 00 032215 CAME 1,[740741,,614577] ;PASS IF C(AC+1)=740741,,614577 2176 STOP^ 2177 031675 254 04 0 00 031676 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2178 031676 324 00 0 00 031677 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2179 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2180 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2181 2182 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 39 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0066 2183 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2184 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2185 ;SO THAT FINAL C(AC)=0,,0. 2186 ;C(AC+1) SHOULD NOT BE AFFECTED 2187 2188 031677 200 00 0 00 032146 C40600: MOVE 0,[0,,0] ;PRELOAD AC WITH 0,,0 2189 031700 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2190 031701 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 0,,0 2191 ;RIGHT 33 OCTAL BIT POSITIONS 2192 031702 312 00 0 00 032146 CAME 0,[0,,0] ;PASS IF C(AC)=0,,0 2193 STOP^ 2194 031703 254 04 0 00 031704 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2195 031704 324 00 0 00 031705 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2196 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2197 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2198 031705 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2199 STOP^ 2200 031706 254 04 0 00 031707 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2201 031707 324 00 0 00 031710 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2202 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2203 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2204 2205 ;********** 2206 2207 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2208 ;IN -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2209 ;SO THAT FINAL C(AC)=0,,777. 2210 ;C(AC+1) SHOULD NOT BE AFFECTED 2211 2212 031710 200 00 0 00 032145 C40700: MOVE 0,[-1,,-1] ;PRELOAD AC WITH -1,,-1 2213 031711 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2214 031712 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1 2215 ;RIGHT 33 OCTAL BIT POSITIONS 2216 031713 312 00 0 00 032216 CAME 0,[0,777] ;PASS IF C(AC)=0,,777 2217 STOP^ 2218 031714 254 04 0 00 031715 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2219 031715 324 00 0 00 031716 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2220 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2221 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2222 031716 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2223 STOP^ 2224 031717 254 04 0 00 031720 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2225 031720 324 00 0 00 031721 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2226 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2227 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2228 2229 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 40 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0067 2230 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2231 ;IN 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2232 ;SO THAT FINAL C(AC)=0,,252. 2233 ;C(AC+1) SHOULD NOT BE AFFECTED 2234 2235 031721 200 00 0 00 032174 C41000: MOVE 0,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 2236 031722 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2237 031723 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525 2238 ;RIGHT 33 OCTAL BIT POSITIONS 2239 031724 312 00 0 00 032217 CAME 0,[0,,252] ;PASS IF C(AC)=0,,252 2240 STOP^ 2241 031725 254 04 0 00 031726 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2242 031726 324 00 0 00 031727 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2243 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2244 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2245 031727 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2246 STOP^ 2247 031730 254 04 0 00 031731 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2248 031731 324 00 0 00 031732 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2249 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2250 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2251 2252 ;********** 2253 2254 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2255 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2256 ;SO THAT FINAL C(AC)=0,,525. 2257 ;C(AC+1) SHOULD NOT BE AFFECTED 2258 2259 031732 200 00 0 00 032175 C41100: MOVE 0,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 2260 031733 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2261 031734 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252 2262 ;RIGHT 33 OCTAL BIT POSITIONS 2263 031735 312 00 0 00 032220 CAME 0,[0,,525] ;PASS IF C(AC)=0,,525 2264 STOP^ 2265 031736 254 04 0 00 031737 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2266 031737 324 00 0 00 031740 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2267 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2268 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2269 031740 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2270 STOP^ 2271 031741 254 04 0 00 031742 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2272 031742 324 00 0 00 031743 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2273 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2274 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2275 2276 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 41 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0068 2277 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2278 ;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2279 ;SO THAT FINAL C(AC)=0,,230. 2280 ;C(AC+1) SHOULD NOT BE AFFECTED 2281 2282 031743 200 00 0 00 032176 C41200: MOVE 0,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 2283 031744 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2284 031745 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700 2285 ;RIGHT 33 OCTAL BIT POSITIONS 2286 031746 312 00 0 00 032221 CAME 0,[0,,230] ;PASS IF C(AC)=230703,,603700 2287 STOP^ 2288 031747 254 04 0 00 031750 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2289 031750 324 00 0 00 031751 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2290 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2291 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2292 031751 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2293 STOP^ 2294 031752 254 04 0 00 031753 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2295 031753 324 00 0 00 031754 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2296 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2297 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2298 2299 ;********** 2300 2301 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2302 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2303 ;SO THAT FINAL C(AC)=0,,7. 2304 ;C(AC+1) SHOULD NOT BE AFFECTED 2305 2306 031754 200 00 0 00 032200 C41300: MOVE 0,[007603,,607062] ;PRELOAD AC WITH 007603,,607062 2307 031755 200 01 0 00 032173 MOVE 1,[172737,,405060] ;PRELOAD AC+1 WITH 172737,,405060 2308 031756 242 00 0 00 777745 LSH 0,-33 ;*LSH SHOULD LOGICALLY SHIFT 007603,,6070062 2309 ;RIGHT 33 OCTAL BIT POSITIONS 2310 031757 312 00 0 00 032171 CAME 0,[0,,7] ;PASS IF C(AC)=0,,7 2311 STOP^ 2312 031760 254 04 0 00 031761 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2313 031761 324 00 0 00 031762 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2314 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2315 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2316 031762 312 01 0 00 032173 CAME 1,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2317 STOP^ 2318 031763 254 04 0 00 031764 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2319 031764 324 00 0 00 031765 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2320 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2321 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2322 2323 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 42 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0069 2324 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2325 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2326 ;SO THAT FINAL C(AC)=0,,0. 2327 ;C(AC+1) SHOULD NOT BE AFFECTED 2328 2329 031765 200 01 0 00 032146 C41400: MOVE 1,[0,,0] ;PRELOAD AC WITH 0,,0 2330 031766 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2331 031767 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 0,,0 2332 ;RIGHT 27 OCTAL BIT POSITIONS 2333 031770 312 01 0 00 032146 CAME 1,[0,,0] ;PASS IF C(AC)=0,,0 2334 STOP^ 2335 031771 254 04 0 00 031772 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2336 031772 324 00 0 00 031773 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2337 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2338 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2339 031773 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2340 STOP^ 2341 031774 254 04 0 00 031775 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2342 031775 324 00 0 00 031776 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2343 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2344 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2345 2346 ;********** 2347 2348 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2349 ;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2350 ;SO THAT FINAL C(AC)=0,,17777. 2351 ;C(AC+1) SHOULD NOT BE AFFECTED 2352 2353 031776 200 01 0 00 032145 C41500: MOVE 1,[-1,,-1] ;PRELOAD AC WITH -1,,-1 2354 031777 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2355 032000 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1 2356 ;RIGHT 27 OCTAL BIT POSITIONS 2357 032001 312 01 0 00 032222 CAME 1,[0,,17777] ;PASS IF C(AC)=0,17777 2358 STOP^ 2359 032002 254 04 0 00 032003 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2360 032003 324 00 0 00 032004 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2361 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2362 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2363 032004 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2364 STOP^ 2365 032005 254 04 0 00 032006 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2366 032006 324 00 0 00 032007 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2367 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2368 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2369 2370 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 43 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0070 2371 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2372 ;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2373 ;SO THAT FINAL C(AC)=0,,5252. 2374 ;C(AC+1) SHOULD NOT BE AFFECTED 2375 2376 032007 200 01 0 00 032174 C41600: MOVE 1,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 2377 032010 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2378 032011 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525 2379 ;RIGHT 27 OCTAL BIT POSITIONS 2380 032012 312 01 0 00 032223 CAME 1,[0,,5252] ;PASS IF C(AC)=0,,5252 2381 STOP^ 2382 032013 254 04 0 00 032014 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2383 032014 324 00 0 00 032015 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2384 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2385 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2386 032015 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2387 STOP^ 2388 032016 254 04 0 00 032017 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2389 032017 324 00 0 00 032020 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2390 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2391 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2392 2393 ;********** 2394 2395 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2396 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2397 ;SO THAT FINAL C(AC)=0,,12525. 2398 ;C(AC+1) SHOULD NOT BE AFFECTED 2399 2400 032020 200 01 0 00 032175 C41700: MOVE 1,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 2401 032021 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2402 032022 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252 2403 ;RIGHT 27 OCTAL BIT POSITIONS 2404 032023 312 01 0 00 032224 CAME 1,[0,,12525] ;PASS IF C(AC)=0,,12525 2405 STOP^ 2406 032024 254 04 0 00 032025 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2407 032025 324 00 0 00 032026 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2408 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2409 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2410 032026 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2411 STOP^ 2412 032027 254 04 0 00 032030 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2413 032030 324 00 0 00 032031 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2414 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2415 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2416 2417 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 44 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0071 2418 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2419 ;IN THIS CASE, 230703,602700 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2420 ;SO THAT FINAL C(AC)=0,,4616. 2421 ;C(AC+1) SHOULD NOT BE AFFECTED 2422 2423 032031 200 01 0 00 032176 C42000: MOVE 1,[230703,,603700] ;PRELOAD AC WITH 230703,603700 2424 032032 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2425 032033 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700 2426 ;RIGHT 27 OCTAL BIT POSITIONS 2427 032034 312 01 0 00 032225 CAME 1,[0,,4616] ;PASS IF C(AC)=0,,4616 2428 STOP^ 2429 032035 254 04 0 00 032036 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2430 032036 324 00 0 00 032037 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2431 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2432 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2433 032037 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2434 STOP^ 2435 032040 254 04 0 00 032041 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2436 032041 324 00 0 00 032042 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2437 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2438 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2439 2440 ;********** 2441 2442 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2443 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 27 OCTAL BIT POSITIONS 2444 ;SO THAT FINAL C(AC)=0,,174. 2445 ;C(AC+1) SHOULD NOT BE AFFECTED 2446 2447 032042 200 01 0 00 032200 C42100: MOVE 1,[007603,,607062] ;PRELOAD AC WITH 007603,,607062 2448 032043 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2449 032044 242 01 0 00 777751 LSH 1,-27 ;*LSH SHOULD LOGICALLY SHIFT 007603,,607062 2450 ;RIGHT 27 OCTAL BIT POSITIONS 2451 032045 312 01 0 00 032226 CAME 1,[0,,174] ;PASS IF C(AC)=0,,174 2452 STOP^ 2453 032046 254 04 0 00 032047 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2454 032047 324 00 0 00 032050 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2455 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2456 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2457 032050 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2458 STOP^ 2459 032051 254 04 0 00 032052 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2460 032052 324 00 0 00 032053 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2461 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2462 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2463 2464 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 45 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0072 2465 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2466 ;IN THIS CASE, 0,,0 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2467 ;SO THAT FINAL C(AC)=0,,0. 2468 ;C(AC+1) SHOULD NOT BE AFFECTED 2469 2470 032053 200 01 0 00 032146 C42200: MOVE 1,[0,0] ;PRELOAD AC WITH 0,,0 2471 032054 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2472 032055 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 0,,0 2473 ;RIGHT 33 OCTAL BIT POSITIONS 2474 032056 312 01 0 00 032146 CAME 1,[0,,0] ;PASS IF C(AC)=0,,0 2475 STOP^ 2476 032057 254 04 0 00 032060 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2477 032060 324 00 0 00 032061 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2478 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2479 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2480 032061 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2481 STOP^ 2482 032062 254 04 0 00 032063 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2483 032063 324 00 0 00 032064 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2484 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2485 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2486 2487 ;********** 2488 2489 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2490 ;IN THIS CASE, -1,,-1 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2491 ;SO THAT FINAL C(AC)=0,,777. 2492 ;C(AC+1) SHOULD NOT BE AFFECTED 2493 2494 032064 200 01 0 00 032145 C42300: MOVE 1,[-1,,-1] ;PRELOAD AC WITH -1,,-1 2495 032065 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2496 032066 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT -1,,-1 2497 ;RIGHT 33 OCTAL BIT POSITIONS 2498 032067 312 01 0 00 032216 CAME 1,[0,,777] ;PASS IF C(AC)=0,,777 2499 STOP^ 2500 032070 254 04 0 00 032071 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2501 032071 324 00 0 00 032072 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2502 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2503 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2504 032072 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2505 STOP^ 2506 032073 254 04 0 00 032074 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2507 032074 324 00 0 00 032075 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2508 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2509 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2510 2511 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 46 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0073 2512 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2513 ;IN THIS CASE, 252525,,252525 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2514 ;SO THAT FINAL C(AC)=0,,252. 2515 ;C(AC+1) SHOULD NOT BE AFFECTED 2516 2517 032075 200 01 0 00 032174 C42400: MOVE 1,[252525,,252525] ;PRELOAD AC WITH 252525,,252525 2518 032076 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2519 032077 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 252525,,252525 2520 ;RIGHT 33 OCTAL BIT POSITIONS 2521 032100 312 01 0 00 032217 CAME 1,[0,,252] ;PASS IF C(AC)=0,,252 2522 STOP^ 2523 032101 254 04 0 00 032102 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2524 032102 324 00 0 00 032103 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2525 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2526 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2527 032103 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2528 STOP^ 2529 032104 254 04 0 00 032105 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2530 032105 324 00 0 00 032106 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2531 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2532 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2533 2534 ;********** 2535 2536 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2537 ;IN THIS CASE, 525252,,525252 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2538 ;SO THAT FINAL C(AC)=0,,525. 2539 ;C(AC+1) SHOULD NOT BE AFFECTED 2540 2541 032106 200 01 0 00 032175 C42500: MOVE 1,[525252,,525252] ;PRELOAD AC WITH 525252,,525252 2542 032107 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2543 032110 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 525252,,525252 2544 ;RIGHT 33 OCTAL BIT POSITIONS 2545 032111 312 01 0 00 032220 CAME 1,[0,,525] ;PASS IF C(AC)=0,525 2546 STOP^ 2547 032112 254 04 0 00 032113 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2548 032113 324 00 0 00 032114 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2549 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2550 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2551 032114 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2552 STOP^ 2553 032115 254 04 0 00 032116 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2554 032116 324 00 0 00 032117 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2555 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2556 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2557 2558 ;********** DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 47 DSKAG1 MAC 28-Mar-78 14:22 TEST OF SHIFT/ROTATE INSTRUCTIONS USED IN THE ERROR HANDLER SEQ 0074 2559 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2560 ;IN THIS CASE, 230703,,603700 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2561 ;SO THAT FINAL C(AC)=0,,230. 2562 ;C(AC+1) SHOULD NOT BE AFFECTED 2563 2564 032117 200 01 0 00 032176 C42600: MOVE 1,[230703,,603700] ;PRELOAD AC WITH 230703,,603700 2565 032120 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2566 032121 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 230703,,603700 2567 ;RIGHT 33 OCTAL BIT POSITIONS 2568 032122 312 01 0 00 032221 CAME 1,[0,,230] ;PASS IF C(AC)=0,,230 2569 STOP^ 2570 032123 254 04 0 00 032124 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2571 032124 324 00 0 00 032125 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2572 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2573 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2574 032125 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2575 STOP^ 2576 032126 254 04 0 00 032127 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2577 032127 324 00 0 00 032130 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2578 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2579 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2580 2581 ;********** 2582 2583 ;THIS TEST VERIFIES THAT THE LSH INSTRUCTION FUNCTIONS CORRECTLY 2584 ;IN THIS CASE, 007603,,607062 SHOULD BE LOGICALLY SHIFTED RIGHT 33 OCTAL BIT POSITIONS 2585 ;SO THAT FINAL C(AC)=0,,7. 2586 ;C(AC+1) SHOULD NOT BE AFFECTED 2587 2588 032130 200 01 0 00 032200 C42700: MOVE 1,[007603,,607062] ;PRELOAD AC WITH 007603,,607062 2589 032131 200 02 0 00 032173 MOVE 2,[172737,,405060] ;PRELOAD C(AC+1) WITH 172737,,405060 2590 032132 242 01 0 00 777745 LSH 1,-33 ;*LSH SHOULD LOGICALLY SHIFT 007603,,607062 2591 ;RIGHT 33 OCTAL BIT POSITIONS 2592 032133 312 01 0 00 032171 CAME 1,[0,,7] ;PASS IF C(AC)=0,,7 2593 STOP^ 2594 032134 254 04 0 00 032135 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2595 032135 324 00 0 00 032136 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2596 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2597 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2598 032136 312 02 0 00 032173 CAME 2,[172737,,405060] ;PASS IF C(AC+1) NOT AFFECTED 2599 STOP^ 2600 032137 254 04 0 00 032140 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 2601 032140 324 00 0 00 032141 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 2602 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 2603 ;IN THE SUBTEST) TO LOOP ON ERROR^ 2604 2605 ;********** 2606 032141 402 00 0 00 032230 ENDIT: SETZM TNUMB# 2607 032142 254 00 0 00 030057 JRST BEGEND DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0075 2608 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 2609 2610 ;PROGRAM LITERALS 2611 2612 XLIST 2613 IFNDEF $LPAPER, 2614 032143 LIT 2615 032143 000001 000001 2616 032144 000016 541320 2617 032145 777777 777777 2618 032146 000000 000000 2619 032147 000001 000000 2620 032150 000001 000002 2621 032151 000002 000002 2622 032152 000001 000017 2623 032153 312 00 0 00 000001 2624 032154 256 00 0 00 032153 2625 032155 256 00 0 00 032154 2626 032156 254 00 0 00 031223 2627 032157 265 03 0 00 031230 2628 032160 256 00 0 00 032157 2629 032161 256 00 0 00 032160 2630 032162 270 06 0 04 000001 2631 032163 331 01 0 00 000002 2632 032164 331 03 0 00 000006 2633 032165 777776 000005 2634 032166 253 03 0 00 031274 2635 032167 777777 000006 2636 032170 253 03 0 00 031302 2637 032171 000000 000007 2638 032172 000000 707070 2639 032173 172737 405060 2640 032174 252525 252525 2641 032175 525252 525252 2642 032176 230703 603700 2643 032177 023070 360370 2644 032200 007603 607062 2645 032201 200760 360706 2646 032202 074076 004616 2647 032203 074161 440174 2648 032204 770037 600377 2649 032205 307036 037007 2650 032206 700376 003772 2651 032207 776003 760077 2652 032210 760037 600770 2653 032211 076036 070627 2654 032212 160740 760176 2655 032213 007740 077646 2656 032214 400774 017601 2657 032215 740741 614577 2658 032216 000000 000777 2659 032217 000000 000252 2660 032220 000000 000525 2661 032221 000000 000230 2662 032222 000000 017777 DSKAG DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (7) 0,1 MACRO %53(1020) 14:29 28-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0076 2663 032223 000000 005252 2664 032224 000000 012525 2665 032225 000000 004616 2666 032226 000000 000174 2667 LIST 2668 032227 000000 000000 ENDSLD: 0 2669 2670 IFDEF DEBUG,< 2671 PATCH: BLOCK DEBUG ;PATCHING AREA 2672 > 2673 2674 ;PROGRAM VARIABLES 2675 032230 VAR 2676 2677 IFDEF PGMEND,< 2678 032231 000000 000000 END: 0 2679 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 032232 CPU TIME USED 00:09.171 20P CORE USED ABORT 92# AC0 687# SEQ 0077 ALTMGO 442# AROV 356# AROVTP 356# AROVU 356# AST 557# ATSIN 558# BEGEND 438# 2607 BEGIN 307 308 369# 708 771 2679 BEGIN1 385# 439 BELL 561# BIS 356# 1120 1126 C27200 814# C27300 830# C27400 844# C27500 860# C27600 875# C27700 892# C30000 908# C30100 926# C30101 942# C30200 959# C30300 978# C30400 998# C30500 1019# C30600 1036# C31000 1053# C31100 1067# C31400 1087# C31500 1101# C31501 1118# C31502 1139# C31600 1157# C31700 1172# C32300 1187# C32400 1202# C32500 1219# C32600 1237# C33100 1254# C33300 1272# C33310 1282# C33400 1295# C33401 1312# C33500 1330# C33600 1346# C33700 1361# C33701 1379# C34000 1397# C34100 1410# C34200 1422# C34300 1438# C34400 1456# C34500 1473# C34600 1490# SEQ 0078 C34610 1499# C34700 1512# C34710 1519# C35000 1532# C35100 1549# C35200 1566# C35300 1583# C35400 1598# C35500 1617# C35600 1642# C35700 1665# C36000 1687# C36100 1711# C36200 1734# C36300 1758# C36400 1781# C36500 1804# C36600 1826# C36700 1850# C37000 1873# C37100 1897# C37200 1919# C37300 1941# C37400 1963# C37500 1986# C37600 2008# C37700 2031# C40000 2053# C40100 2075# C40200 2097# C40300 2120# C40400 2142# C40500 2165# C40600 2188# C40700 2212# C41000 2235# C41100 2259# C41200 2282# C41300 2306# C41400 2329# C41500 2353# C41600 2376# C41700 2400# C42000 2423# C42100 2447# C42200 2470# C42300 2494# C42400 2517# C42500 2541# C42600 2564# C42700 2588# CCA 356# CHAIN 112# SEQ 0079 CHNOFF 356# CHNON 356# CLKU 356# CLOCKF 424# CNTLC 441# CNTRP 356# COMMA 550# CONSW 425# CPOPJ 445# CPOPJ1 443# CRLF 242 243 545# CRLF2 246 247 547# CRY0 356# 961 980 1000 1069 1074 CRY1 356# CSHFLG 604# CSHMEM 605# CTRP 356# CYCL60 598# DCK 356# DDT 689# DDTLNK 126# 383 DDTSRT 383# DEBUG 2670 DECVER 5# 12 27 404 DF22F 509# DIAGMN 372# DIAGNO 688# DIAMON 690# DING 98# DOLLAR 564# DSKUPD 409 EBIT0 356# EBIT1 356# EBIT10 356# EBIT11 356# EBIT12 356# EBIT13 356# EBIT14 356# EBIT15 356# EBIT2 356# EBIT3 356# EBIT4 356# EBIT5 356# EBIT6 356# EBIT7 356# EBIT8 356# EBIT9 356# END 2678# ENDFIX 684# ENDIT 2606# ENDSLD 2668# ERMORE 458# EROLD 318 SEQ 0080 ERRPC 429# ERRTLS 430# ERSTOP 101# EXCASB 34# 407 EXIOT 356# FOV 356# FOVU 356# FRDLNK 124# FSELNK 123# FXU 356# HYPEN 555# INHCSH 109# INHPAG 106# IOCLR 356# ITERAT 81# 402 ITRCH1 462# ITRCNT 402# 752 758 762 768 JOB41 356# JOBAPR 356# JOBCNI 356# JOBDDT 356# JOBFF 356# JOBOPC 356# JOBREL 356# JOBREN 356# JOBSA 356# JOBSYM 356# JOBTPC 356# JOBUSY 356# JOBUUO 356# JOBVER 356# KAIFLG 419# KLFLG 420# KNTRP 356# KTRP 356# LACLK 356# LACLKE 356# LAPRAL 356# LAPRP1 356# LAPRP2 356# LAPRP3 356# LAPRP4 356# LAPRP5 356# LAPRP6 356# LAPRP7 356# LCHNOF 356# LCHNON 356# LCNTXT 356# LCNXER 356# LCPAER 356# LCPSFT 356# LCPWRF 356# LDATAF 356# SEQ 0081 LDLNK 125# 372 374 LDNXER 356# LDPAER 356# LDPSFT 356# LDPWRF 356# LEBXMH 356# LEBXML 356# LENXER 356# LEPAER 356# LEPSFT 356# LEPWRF 356# LEUPFW 356# LEXCMP 356# LFLGCL 356# LFLGDS 356# LFLGEN 356# LFLGST 356# LFP 559# LINSTF 356# LINT 356# LIOCLR 356# LLACBL 356# LLDUSB 356# LMBXMH 356# LMBXML 356# LNXMEN 356# LNXMER 356# LOOPER 100# LPAREN 356# LPARER 356# LPFWPC 356# LPGFTR 356# LPICH1 356# LPICH2 356# LPICH3 356# LPICH4 356# LPICH5 356# LPICH6 356# LPICH7 356# LPICHA 356# LPICLR 356# LPIIP1 356# LPIIP2 356# LPIIP3 356# LPIIP4 356# LPIIP5 356# LPIIP6 356# LPIIP7 356# LPIOFF 356# LPION 356# LPRCH1 356# LPRCH2 356# LPRCH3 356# SEQ 0082 LPRCH4 356# LPRCH5 356# LPRCH6 356# LPRCH7 356# LPRFMH 356# LPRFML 356# LPSFT 356# LPSFTE 356# LPWRFE 356# LPWRFL 356# LREQSE 356# LRQCLR 356# LSECMO 356# LSMODE 356# LSNXER 356# LSPAER 356# LSPSFT 356# LSPWRF 356# LTBASH 356# LTBASL 356# LTRPAE 356# LTRPEN 356# LUSCMP 356# LUUO 356# LUUO1 489 490 LUUO10 489 494 LUUO11 489 494 LUUO12 489 495 LUUO13 489 495 LUUO14 489 496 LUUO15 489 496 LUUO16 489 497 LUUO17 489 497 LUUO2 489 491 LUUO20 489 498 LUUO21 489 498 LUUO22 489 499 LUUO23 489 499 LUUO24 489 500 LUUO25 489 500 LUUO26 489 501 LUUO27 489 501 LUUO3 489 491 LUUO30 489 502 LUUO31 489 502 LUUO32 489 503 LUUO33 489 503 LUUO4 489 492 LUUO5 489 492 LUUO6 489 493 LUUO7 489 493 LUUOI 356# LWRITE 356# SEQ 0083 MAPNEW 510# MARGIN 432# MCNVER 4# 12 27 404 MEMLOW 512# MEMMAP 410 MEMSIZ 513# MEMTOT 511# MINUS 554# MODDVC 108# MODDVL 307 307# 405 MODDVU 308 308# 406 MODLNK 127# 369 MONCTL 422# 783 MONFLG 421# 746 779 MONTEN 423# 751 764 770 MONTYP 636# MPVU 356# MUUO 356# MUUOPC 356# NOPNT 96# NXMU 356# OPRSEL 110# OPTIME 524# P 153 154 155 156 356# 444 PAG 356# PALERS 102# PAREA0 74# PAREA1 75# 400 PAREA2 76# 401 PAREA3 77# 398 PAREA4 78# 399 PAREA5 79# 411 PAREA6 80# 412 PAREA7 411# PAREA8 412# PARU 356# PASCNT 426# 757 PDISF 521# PDLOVU 356# PDOVTP 356# PERIOD 551# PFSTRT 378# PGMEND 36# 2677 PGMNAM 403 784 787# PICHN1 356# PICHN2 356# PICHN3 356# PICHN4 356# PICHN5 356# PICHN6 356# PICHN7 356# PICHNA 356# PICLR 356# SEQ 0084 PIOFF 356# PION 356# PLIST 590# 590 PLISTE 590 592# PLISTS 591# PLUS 556# PNTENB 520# PNTEXT 399# PNTFLG 519# PNTINH 522# PNTLPT 97# PNTNAM 398# PNTRP 356# PNTSPC 523# PTRP 356# PVPAGI 617# QUEST 562# RADIX 565# RADLSC 567# RADLSP 566# RANDBS 400# REENTR 380# RELIAB 104# REPT 356# REPT1 356# REPTU 478# REQSET 356# RESRT1 455# RESRT2 456# RETURN 387# 766 772 RSTART 93# RTP 560# RUNFLG 427# SADR1 62# 376 SADR10 71# 392 SADR11 72# 393 SADR2 63# 378 SADR3 64# 380 SADR4 65# SADR5 66# 441 SADR6 67# 442 SADR7 68# 389 SADR8 69# 390 SADR9 70# 391 SBINIT 166 386# SCOPE 479# SFSTRT 376# SLASH 563# SM10 667# SNTRP 356# SPACE 552# SRTDDT 382# START 370 749 753 775# SEQ 0085 START1 389# START2 390# START3 391# START4 392# START5 393# STARTA 62 63 64 65 66 67 68 69 70 71 72 385 763 769 782 785 806# STRP 356# SUBLNK 128# 386 SWPTAB 673# SWTEXR 401# SYSEXR 374# TAB 553# TESTPC 428# TICKS 431# TN0 356# TN1 356# TNUMB 2606# 2606 TOTALS 94# TRP3TP 356# TTNBRF 611# TTYFIL 527# TTYSPD 528# TXTINH 105# UBAVEC 356# USER 418# 742 745 747 748 759 775# 775 778 780 781 USERF 40# 356# 744 777 USRASB 35# 408 USRCRF 537# USRLFF 536# UUODIS 490# UUOEXT 446# UUORTN 447# UUOSKP 444# $$420 716# $$421 717# $$422 718# $$423 719# $$424 720# $$425 721# $$426 722# $$427 723# $$430 724# $$431 725# $$432 726# $$433 727# $$434 728# $$435 729# $$436 730# $$437 731# $$500 734# $$501 735# $$502 736# SEQ 0086 $$503 737# $$BEGI 704# $$LOC 701# 738 $$MUUO 642# $$OUTE 648# $$STAR 704 705 742# $$TAX1 660# $$TAX2 661# $$TOGG 654# $$UUO 631# $ACC0 469# $BEGEN 711# $BEND1 439# $BEND2 440# $CHRIN 530# $CRLF 532# $DDT 695# $DEVCH 356# $DSKUP 409# $DVOFF 526# $EMODE 407# $FFF 534# $IBUF 582# $INEXT 584# $INNM 583# $ITRHL 450# $ITRX1 451# $LPAPE 2613 $MMAP 410# $MODVL 405# $MODVU 406# $OBUF 573# $ONETM 433# $OUTEX 575# $OUTNM 574# $PAPER 356 $PARER 457# $PNAME 403# $PSHER 461# $PVER 404# $RSRTX 453# $RSRTY 454# $SPAG1 473# $SPB1 759# $SPBEN 711 757# $SPBEX 760 768# $SPBUS 762# $START 370# $STD 694# 708# $STKIL 751# $STL 696# $STM 697# $SVAPR 471# SEQ 0087 $SVPAG 472# $SVPI 470# $SVUPC 476# $SVUUO 475# $TABF 533# $TTCHR 529# $TWCNT 525# $TYPNB 531# $UMODE 408# $UORTX 448# $USRHL 452# $UUOER 449# 490 $VTF 535# %ACTFL 482# %ACTUL 483# %COREC 481# %CORFL 480# %DISCR 484# %ERHI1 623# %ERHI2 624# %ERHI3 625# .JB41 356# .JBAPR 356# .JBCNI 356# .JBDDT 356# .JBFF 356# .JBOPC 356# .JBREL 356# .JBREN 356# .JBSA 356# .JBSYM 356# .JBTPC 356# .JBUSY 356# .JBUUO 356# .JBVER 356# APRID 356# BCIO 356# SEQ 0088 BCIOB 356# BSIO 356# BSIOB 356# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRPT 356# CWRTBI 279# DROPDV 239# ENDUUO 285# 438 EOPUUO 286# 440 ERLOOP 326# ERLP1 327# ERLP2 328# ERRHLT 173# ERROR 335# ERROR1 346# ERUUO 325# EXIT 765 FATAL 172# FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 459 716 718 719 723 737 771 818 834 848 864 879 896 912 931 946 967 989 1008 1024 1038 1042 1057 1076 1089 1092 1103 1107 1128 1143 1161 1177 1192 1208 1225 1243 1260 1278 1284 1300 1316 1335 1351 1367 1384 1400 1413 1424 1425 1427 1440 1441 1445 1462 1479 1495 1502 1515 1522 1534 1535 1538 1553 1573 1589 1607 1620 1621 1623 1627 1647 1653 1670 1676 1693 1699 1717 1723 1740 1746 1764 1770 1786 1792 1809 1815 1832 1838 1856 1862 1879 1885 1903 1909 1924 1930 1947 1953 1969 1975 1992 1998 2014 2020 2037 2043 2058 2064 2081 2087 2103 2109 2126 2132 2148 2154 2171 2177 2194 2200 2218 2224 2241 2247 2265 2271 2288 2294 2312 2318 2335 2341 2359 2365 2382 2388 2406 2412 2429 2435 2453 2459 2476 2482 2500 2506 2523 2529 2547 2553 2570 2576 2594 2600 JEN 160# JRSTF 159# MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# SEQ 0089 PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# PNTCHR 206# PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# SEQ 0090 PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 356# RDCSB 356# RDCSTM 356# RDEBR 356# RDHSB 356# RDINT 356# RDIO 356# RDIOB 356# RDPI 356# RDPUR 356# RDSPB 356# RDTIM 356# RDUBR 356# REPTUO 329# RTN 154# 446 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 321 323 356 361 367 394 396 414 416 434 436 465 467 485 487 505 507 515 517 538 543 569 571 578 580 586 588 594 596 600 602 607 609 613 615 619 621 627 629 632 634 638 640 644 646 650 652 656 658 663 665 669 671 675 677 679 681 SFLAG 56# 959 978 998 1067 1118 SIXBTZ 261# STOP 48# 817 833 847 863 878 895 911 930 945 966 988 1007 1023 1041 1056 1075 1091 1106 1127 1142 1160 1176 1191 1207 1224 1242 1259 1277 1283 1299 1315 1334 1350 1366 1383 1399 1412 1426 1444 1461 1478 1494 1501 1514 1521 1537 1552 1572 1587 1606 1626 1646 1652 1669 1675 1692 1698 1716 1722 1739 1745 1763 1769 1785 1791 1808 1814 1831 1837 1855 1861 1878 1884 1902 1908 1923 1929 1946 1952 1968 1974 1991 1997 2013 2019 2036 2042 2057 2063 2080 2086 2102 2108 2125 2131 2147 2153 2170 2176 2193 2199 2217 2223 2240 2246 2264 2270 2287 2293 2311 2317 2334 2340 2358 2364 2381 2387 2405 2411 2428 2434 2452 2458 2475 2481 2499 2505 2522 2528 2546 2552 2569 2575 2593 2599 SWITCH 267# TIOE 356# TIOEB 356# TION 356# TIONB 356# TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# SEQ 0091 TTYINP 190# WRAPR 356# WRCSB 356# WRCSTM 356# WREBR 356# WRHSB 356# WRINT 356# WRIO 356# WRIOB 356# WRPI 356# WRPUR 356# WRSPB 356# WRTIM 356# WRUBR 356# ADD 1476 ANDI 1039 1104 SEQ 0092 AOBJN 1533 1550 AOS 444 757 ASCII 545 547 550 551 552 553 555 556 557 558 559 560 562 563 564 ASCIZ 787 BLOCK 513 573 576 582 585 591 BYTE 561 CAIE 1105 1223 1241 1282 1314 1382 1477 1585 1625 CAIN 877 1040 CAM 986 CAME 846 894 929 944 1006 1055 1090 1141 1175 1258 1276 1349 1398 1411 1458 1536 1551 1571 1605 1645 1651 1668 1674 1691 1697 1715 1721 1738 1744 1762 1768 1784 1790 1807 1813 1830 1836 1854 1860 1877 1883 1901 1907 1922 1928 1945 1951 1967 1973 1990 1996 2012 2018 2035 2041 2056 2062 2079 2085 2101 2107 2124 2130 2146 2152 2169 2175 2192 2198 2216 2222 2239 2245 2263 2269 2286 2292 2310 2316 2333 2339 2357 2363 2380 2386 2404 2410 2427 2433 2451 2457 2474 2480 2498 2504 2521 2527 2545 2551 2568 2574 2592 2598 DEFINE 9 48 56 84 252 255 261 335 346 END 2679 HRLZI 1312 1379 IFDEF 356 407 408 409 410 2670 2677 IFNDEF 307 308 318 407 408 409 410 489 2613 JFCL 447 448 449 450 451 452 453 454 455 456 457 458 717 962 981 1001 1070 1121 JRST 66 67 68 69 70 71 72 157 158 159 160 369 370 372 374 376 378 380 383 385 386 439 704 705 708 711 749 753 760 763 766 769 772 782 785 806 963 982 1002 1071 1122 1422 1460 1493 1567 1584 1600 1603 1619 2607 JSP 166 743 776 1125 1439 JUMPA 819 835 849 865 880 897 913 932 947 968 990 1009 1025 1043 1058 1077 1093 1108 1129 1144 1162 1178 1193 1209 1226 1244 1261 1279 1285 1301 1317 1336 1352 1368 1385 1401 1414 1428 1446 1463 1480 1496 1503 1516 1523 1539 1554 1574 1590 1608 1628 1648 1654 1671 1677 1694 1700 1718 1724 1741 1747 1765 1771 1787 1793 1810 1816 1833 1839 1857 1863 1880 1886 1904 1910 1925 1931 1948 1954 1970 1976 1993 1999 2015 2021 2038 2044 2059 2065 2082 2088 2104 2110 2127 2133 2149 2155 2172 2178 2195 2201 2219 2225 2242 2248 2266 2272 2289 2295 2313 2319 2336 2342 2360 2366 2383 2389 2407 2413 2430 2436 2454 2460 2477 2483 2501 2507 2524 2530 2548 2554 2571 2577 2595 2601 LALL 10 LIST 9 318 356 489 2613 2667 LIT 2614 LOC 26 359 683 703 707 710 715 733 738 LSH 2190 2214 2237 2261 2284 2308 2331 2355 2378 2402 2425 2449 2472 2496 2519 2543 2566 2590 MOVE 1005 1157 1172 1187 1202 1219 1238 1254 1272 1330 1346 1361 1532 1549 1622 1642 1643 1665 1666 1687 1688 1711 1712 1734 1735 1758 1759 1781 1782 1804 1805 1826 1827 1850 1851 1873 1874 1897 1898 1919 1920 1941 1942 1963 1964 1986 1987 2008 2009 2031 2032 2053 2054 2075 2076 2097 2098 2120 2121 2142 2143 2165 2166 2188 2189 2212 2213 2235 2236 2259 2260 2282 2283 2306 2307 2329 2330 2353 2354 2376 2377 2400 2401 2423 2424 2447 2448 2470 2471 2494 2495 2517 2518 2541 2542 2564 2565 2588 SEQ 0093 2589 MOVEI 926 942 1019 1087 1101 1139 1173 1203 1220 1239 1331 1347 1362 1380 1473 1474 1475 1583 1599 1601 1618 MOVSI 961 980 1000 1069 1120 1295 NOSYM 29 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 325 326 327 328 329 356 POP 156 1158 1174 1189 1205 1222 1240 1257 1275 1297 1313 POPJ 154 1332 1348 1364 1381 PUSH 155 815 831 845 861 876 893 909 928 943 PUSHJ 153 965 984 1004 1021 1037 1054 1073 1088 1102 1124 1140 ROT 1644 1667 1689 1713 1736 1760 1783 1806 1828 1852 1875 1899 ROTC 1921 1943 1965 1988 2010 2033 2055 2077 2099 2122 2144 2167 SETOB 1397 1410 SETOM 745 752 778 1255 1274 1457 1512 1569 1604 SETZ 814 844 927 964 1020 1053 1123 1296 SETZB 830 860 875 892 983 1003 1036 1072 1456 1566 SETZM 742 747 775 780 908 1188 1204 1221 1237 1256 1273 1438 1490 1598 1617 2606 SIXBIT 77 78 574 575 583 584 SKIPA 816 1365 SKIPE 748 762 768 832 862 910 987 1022 1159 1190 1206 1298 1499 SKIPL 783 1491 1513 1519 SKIPN 746 751 759 764 770 779 781 SOS 758 SUBTTL 30 82 117 319 356 357 685 773 807 952 1149 1322 1390 1559 1633 2608 TITLE 14 TLNE 744 777 1126 TLNN 1074 TRNE 1443 TRZ 1442 TTCALL 784 VAR 2675 XCT 1398 1411 1422 1439 1458 1476 1491 1513 1533 1550 1570 1586 1602 1624 XLIST 8 317 355 488 2612 XWD 846 1090 1157 1172 1187 1202 1219 1238 1254 1272 1330 1346 1361 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 1 SEQ 0094 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 *030001 JRST 0,030600 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030600 ---------- *030600 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030601 JSP 0,030602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030602 FINAL C(AC)= 000000 030602 ---------- *030602 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 010000 FINAL C(AC)= 000000 030602 ---------- *030604 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 2 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0095 *030606 SKIPE 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(AC)= 000000 030602 ---------- *030610 SKIPN 0,030044 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 777777 777777 FINAL C(AC)= 000000 030602 ---------- *030612 JRST 0,030631 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030631 ---------- *030631 SETZM 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *030632 JSP 0,030633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030602 E= 000000 030633 FINAL C(AC)= 000000 030633 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 3 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0096 *030633 TLNE 0,010000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 010000 FINAL C(AC)= 000000 030633 ---------- *030635 SKIPN 0,030042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 777777 777777 FINAL C(AC)= 000000 030633 ---------- *030637 SKIPN 0,030037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 000000 FINAL C(AC)= 000000 030633 ---------- *030640 JRST 0,030660 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030660 ---------- *030660 JRST 0,030661 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030661 ---------- *030661 SETZ 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 030633 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 4 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0097 *030662 PUSH 2,030664 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 C(E)= 254200 030665 FINAL C(AC)= 000001 000001 C(C(ACR))= 254200 030665 ---------- *030663 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000000 030633 FINAL C(AC)= 000000 030633 ---------- *030665 JUMPA 0,030666 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 E= 000000 030666 ---------- *030666 SETZB 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 030633 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030667 PUSH 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 254200 030665 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 5 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0098 *030670 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030672 JUMPA 0,030673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030673 ---------- *030673 SETZ 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030674 PUSH 2,030675 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 C(E)= 312100 032143 FINAL C(AC)= 000001 000001 C(C(ACR))= 312100 032143 ---------- *030675 CAME 2,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *030677 JUMPA 0,030700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 6 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0099 *030700 SETZB 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030701 PUSH 2,032144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 312100 032143 C(E)= 000016 541320 FINAL C(AC)= 000001 000001 C(C(ACR))= 000016 541320 ---------- *030702 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030704 JUMPA 0,030705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030705 ---------- *030705 SETZB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000016 541320 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 7 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0100 *030706 PUSH 2,030707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 C(E)= 306000 030707 FINAL C(AC)= 000001 000001 C(C(ACR))= 306000 030707 ---------- *030707 CAIN 0,030707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030707 ---------- *030711 JUMPA 0,030712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030712 ---------- *030712 SETZB 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 306000 030707 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030713 PUSH 2,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000001 000001 C(C(ACR))= 777777 777777 ---------- *030714 CAME 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 8 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0101 *030716 JUMPA 0,030717 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030717 ---------- *030717 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000001 FINAL C(E)= 000000 000000 ---------- *030720 PUSH 2,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 000000 000000 ---------- *030721 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030723 JUMPA 0,030724 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 030724 ---------- *030724 MOVEI 2,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 9 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0102 *030725 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030726 PUSH 2,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(C(ACR+1))= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000001 000000 C(C(ACR))= 777777 777777 ---------- *030727 CAME 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *030731 JUMPA 0,030732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030732 ---------- *030732 MOVEI 2,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *030733 PUSH 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(C(ACR+1))= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000001 000000 C(C(ACR))= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 10 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0103 *030734 CAME 2,032147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *030736 JUMPA 0,030737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 030737 ---------- *030737 MOVSI 1,200000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030740 JFCL 17,030741 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030741 ---------- *030741 JRST 2,030742(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030742 ---------- *030742 SETZ 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 11 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0104 *030743 PUSHJ 0,030745 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 200000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 200000 030744 ---------- *030745 JUMPA 0,030746 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 030746 ---------- *030746 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 030744 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030747 JFCL 17,030750 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030750 ---------- *030750 JRST 2,030751(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030751 ---------- *030751 SETZB 1,030753 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 12 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0105 *030752 PUSHJ 0,030755 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 C(C(ACR+1))= 000001 000000 FINAL C(AC)= 000002 000002 C(C(ACR))= 200000 030753 ---------- *030755 SKIPE 0,030753 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000002 000002 C(E)= 000000 000000 FINAL C(AC)= 000002 000002 ---------- *030757 JUMPA 0,030760 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000002 000002 E= 000000 030760 ---------- *030760 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *030761 JFCL 17,030762 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 030762 ---------- *030762 JRST 2,030763(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 030763 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 13 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0106 *030763 SETZB 0,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000002 000002 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *030764 PUSHJ 0,030765 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 200000 030765 ---------- *030765 MOVE 2,030765 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 030753 C(E)= 200100 030765 FINAL C(AC)= 200100 030765 ---------- *030766 CAME 2,030765 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200100 030765 C(E)= 200100 030765 ---------- *030770 JUMPA 0,030771 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 030771 ---------- *030771 MOVEI 2,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200100 030765 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 14 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0107 *030772 SETZ 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 ---------- *030773 PUSHJ 2,030774 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000001 C(C(ACR+1))= 000000 000001 FINAL C(AC)= 200000 030774 C(C(ACR))= 332000 000000 ---------- *030774 SKIPE 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030776 JUMPA 0,030777 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 E= 000000 030777 ---------- *030777 SETZB 0,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(E)= 200000 030765 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 15 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0108 *031000 PUSHJ 0,031002 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 200000 031001 ---------- *031002 ANDI 1,777777 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 031001 E= 000000 777777 FINAL C(AC)= 000000 031001 ---------- *031003 CAIN 1,031002 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 031001 E= 000000 031002 ---------- *031005 JUMPA 0,031006 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 031006 ---------- *031006 SETZ 0,000000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 ---------- *031007 PUSHJ 0,031010 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 031001 FINAL C(AC)= 000001 000001 C(C(ACR))= 200000 031010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 16 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0109 *031010 CAME 0,032143 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *031012 JUMPA 0,031013 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 031013 ---------- *031013 MOVSI 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 031010 E= 000000 200000 FINAL C(AC)= 200000 000000 ---------- *031014 JFCL 17,031015 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 031015 ---------- *031015 JRST 2,031016(1) FLAGS - INT/FINAL 000000 200000 INITIAL E= 000000 031016 ---------- *031016 SETZB 0,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 17 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0110 *031017 PUSHJ 0,031020 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 000000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 200000 031020 ---------- *031020 TLNN 1,200000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 031020 E= 000000 200000 FINAL C(AC)= 200000 031020 ---------- *031022 JUMPA 0,031023 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 031023 ---------- *031023 MOVEI 1,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 031020 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031024 PUSHJ 1,031026 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000001 C(C(ACR+1))= 200000 030774 FINAL C(AC)= 000001 000002 C(C(ACR))= 200000 031025 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 18 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0111 *031026 CAME 1,032150 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000002 C(E)= 000001 000002 ---------- *031030 JUMPA 0,031031 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 031031 ---------- *031031 MOVEI 1,000001 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000002 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *031032 PUSHJ 1,031034 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 000001 C(C(ACR+1))= 200000 031025 FINAL C(AC)= 000001 000002 C(C(ACR))= 200000 031033 ---------- *031034 ANDI 2,777777 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 200000 031033 E= 000000 777777 FINAL C(AC)= 000000 031033 ---------- *031035 CAIE 2,031033 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000000 031033 E= 000000 031033 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 19 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0112 *031037 JUMPA 0,031040 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000001 E= 000000 031040 ---------- *031040 MOVSI 1,020000 FLAGS - INT/FINAL 200000 200000 INITIAL C(AC)= 000001 000002 E= 000000 020000 FINAL C(AC)= 020000 000000 ---------- *031041 JFCL 17,031042 FLAGS - INT/FINAL 200000 000000 INITIAL E= 000000 031042 ---------- *031042 JRST 2,031043(1) FLAGS - INT/FINAL 000000 020000 INITIAL E= 000000 031043 ---------- *031043 SETZ 0,000000 FLAGS - INT/FINAL 020000 020000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 FINAL C(AC)= 000000 000000 ---------- *031044 PUSHJ 0,031045 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 000000 000000 C(C(ACR+1))= 020000 000000 FINAL C(AC)= 000001 000001 C(C(ACR))= 020000 031045 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 20 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0113 *031045 JSP 0,031046 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031046 FINAL C(AC)= 000000 031046 ---------- *031046 TLNE 0,020000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031046 E= 000000 020000 FINAL C(AC)= 000000 031046 ---------- *031050 JUMPA 0,031051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031046 E= 000000 031051 ---------- *031051 MOVEI 2,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031033 E= 000000 777777 FINAL C(AC)= 000000 777777 ---------- *031052 PUSHJ 2,031053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(C(ACR+1))= 000000 000000 FINAL C(AC)= 000001 000000 C(C(ACR))= 000000 031053 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 21 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0114 *031053 CAME 2,032147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 000001 000000 ---------- *031055 JUMPA 0,031056 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031053 E= 000000 031056 ---------- *031056 MOVE 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031053 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *031057 POP 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(C(ACR))= 020000 031045 C(E)= 020000 031045 FINAL C(AC)= 000000 000000 C(E)= 020000 031045 ---------- *031060 SKIPE 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031062 JUMPA 0,031063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031063 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 22 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0115 *031063 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- *031064 MOVEI 2,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 000005 FINAL C(AC)= 000000 000005 ---------- *031065 POP 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 000000 000005 C(E)= 000000 000005 FINAL C(AC)= 000001 000001 C(E)= 000000 000005 ---------- *031066 CAME 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000001 ---------- *031070 JUMPA 0,031071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031071 ---------- *031071 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 23 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0116 *031072 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 000000 000005 FINAL C(E)= 000000 000000 ---------- *031073 POP 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 C(E)= 000000 000000 ---------- *031074 SKIPE 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 ---------- *031076 JUMPA 0,031077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031077 ---------- *031077 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 24 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0117 *031100 MOVEI 2,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *031101 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 020000 031045 FINAL C(E)= 000000 000000 ---------- *031102 POP 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 000000 000017 C(E)= 000000 000017 FINAL C(AC)= 000001 000001 C(E)= 000000 000017 ---------- *031103 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 ---------- *031105 JUMPA 0,031106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031106 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 25 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0118 *031106 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- *031107 MOVEI 2,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- *031110 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *031111 POP 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 000000 000003 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 C(E)= 000000 000003 ---------- *031112 CAIE 3,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 E= 000000 000003 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 26 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0119 *031114 JUMPA 0,031115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031115 ---------- *031115 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000000 000003 FINAL C(E)= 000000 000000 ---------- *031116 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- *031117 MOVEI 2,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000017 FINAL C(AC)= 000000 000017 ---------- *031120 POP 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 000000 000017 C(E)= 000000 000017 FINAL C(AC)= 000001 000001 C(E)= 000000 000017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 27 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0120 *031121 CAIE 2,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 E= 000000 000017 ---------- *031123 JUMPA 0,031124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031124 ---------- *031124 MOVE 0,032151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000002 000002 FINAL C(AC)= 000002 000002 ---------- *031125 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 000000 000017 FINAL C(E)= 777777 777777 ---------- *031126 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(E)= 000000 000003 FINAL C(E)= 000000 000000 ---------- *031127 POP 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000002 C(C(ACR))= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000001 000001 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 28 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0121 *031130 CAME 3,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031132 JUMPA 0,031133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 031133 ---------- *031133 MOVE 0,032152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(E)= 000001 000017 FINAL C(AC)= 000001 000017 ---------- *031134 SETZM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000017 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *031135 SETOM 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000017 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *031136 POP 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000017 C(C(ACR))= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000016 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 29 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0122 *031137 CAME 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031141 JUMPA 0,031142 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 031142 ---------- *031142 CAIE 0,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *031144 JUMPA 0,031145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 031145 ---------- *031145 MOVSI 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 000000 ---------- *031146 SETZ 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 C(E)= 000000 000016 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 30 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0123 *031147 POP 1,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(C(ACR))= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777776 777777 C(E)= 000000 000000 ---------- *031150 SKIPE 0,000017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031152 JUMPA 0,031153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031153 ---------- *031153 HRLZI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- *031154 POP 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(C(ACR))= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 777777 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 31 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0124 *031155 CAIE 2,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031157 JUMPA 0,031160 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031160 ---------- *031160 MOVE 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *031161 MOVEI 1,031164 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 031164 FINAL C(AC)= 000000 031164 ---------- *031162 POPJ 0,031164 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(C(ACR))= 000000 031164 FINAL C(AC)= 000000 000000 ---------- *031164 JUMPA 0,031165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031165 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 32 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0125 *031165 MOVE 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- *031166 MOVEI 1,031170 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031164 E= 000000 031170 FINAL C(AC)= 000000 031170 ---------- *031167 POPJ 0,031170 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(C(ACR))= 000000 031170 FINAL C(AC)= 000000 000000 ---------- *031170 CAME 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031172 JUMPA 0,031173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031173 ---------- *031173 MOVE 0,032143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000001 000001 FINAL C(AC)= 000001 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 33 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0126 *031174 MOVEI 1,031176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031170 E= 000000 031176 FINAL C(AC)= 000000 031176 ---------- *031175 POPJ 0,031177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 C(C(ACR))= 000000 031176 FINAL C(AC)= 000000 000000 ---------- *031176 SKIPA 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031200 JUMPA 0,031201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031201 ---------- *031201 HRLZI 2,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 34 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0127 *031202 MOVEI 0,031204 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031204 FINAL C(AC)= 000000 031204 ---------- *031203 POPJ 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(C(ACR))= 000000 031204 FINAL C(AC)= 000000 777777 ---------- *031204 CAIE 2,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 E= 000000 777777 ---------- *031206 JUMPA 0,031207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031204 E= 000000 031207 ---------- *031207 SETOB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031204 C(E)= 000000 031176 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031210 XCT 0,032153 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032153 FINAL C(E)= 312000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 35 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0128 *031210 CAME 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031212 JUMPA 0,031213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031213 ---------- *031213 SETOB 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031214 XCT 0,032155 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032155 FINAL C(E)= 256000 032154 ---------- *031214 XCT 0,032154 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032154 FINAL C(E)= 256000 032153 ---------- *031214 XCT 0,032153 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032153 FINAL C(E)= 312000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 36 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0129 *031214 CAME 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031216 JUMPA 0,031217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031217 ---------- *031217 XCT 0,032156 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032156 FINAL C(E)= 254000 031223 ---------- *031217 JRST 0,031223 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031223 ---------- *031223 JUMPA 0,031224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031224 ---------- *031224 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 37 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0130 *031225 XCT 0,032161 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032161 FINAL C(E)= 256000 032160 ---------- *031225 XCT 0,032160 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032160 FINAL C(E)= 256000 032157 ---------- *031225 XCT 0,032157 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032157 FINAL C(E)= 265140 031230 ---------- *031225 JSP 3,031230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031230 FINAL C(AC)= 000000 031226 ---------- *031230 TRZ 3,031226 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031226 E= 000000 031226 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 38 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0131 *031231 TRNE 3,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- *031233 JUMPA 0,031234 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031234 ---------- *031234 SETZB 0,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031235 SETOM 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(E)= 777777 777777 ---------- *031236 XCT 0,032153 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032153 FINAL C(E)= 312000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 39 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0132 *031236 CAME 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 ---------- *031237 JRST 0,031241 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031241 ---------- *031241 JUMPA 0,031242 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031242 ---------- *031242 MOVEI 4,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000010 FINAL C(AC)= 000000 000010 ---------- *031243 MOVEI 11,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000013 FINAL C(AC)= 000000 000013 ---------- *031244 MOVEI 6,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 40 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0133 *031245 XCT 0,032162 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032162 FINAL C(E)= 270304 000001 ---------- *031245 ADD 6,000001(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 000000 000013 FINAL C(AC)= 000000 000016 ---------- *031246 CAIE 6,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 E= 000000 000016 ---------- *031250 JUMPA 0,031251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031251 ---------- *031251 SETZM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 777777 FINAL C(E)= 000000 000000 ---------- *031252 XCT 0,032163 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032163 FINAL C(E)= 331040 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 41 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0134 *031252 SKIPL 1,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031253 JRST 0,031255 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031255 ---------- *031255 JUMPA 0,031256 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031256 ---------- *031256 SKIPE 0,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031260 JUMPA 0,031261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031261 ---------- *031261 SETOM 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000016 FINAL C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 42 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0135 *031262 XCT 0,032164 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032164 FINAL C(E)= 331140 000006 ---------- *031262 SKIPL 3,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031264 JUMPA 0,031265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031265 ---------- *031265 SKIPL 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 ---------- *031267 JUMPA 0,031270 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031270 ---------- *031270 MOVE 3,032165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777776 000005 FINAL C(AC)= 777776 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 43 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0136 *031271 XCT 0,032166 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032166 FINAL C(E)= 253140 031274 ---------- *031271 AOBJN 3,031274 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 000005 E= 000000 031274 FINAL C(AC)= 777777 000006 ---------- *031274 CAME 3,032167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000006 C(E)= 777777 000006 ---------- *031276 JUMPA 0,031277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031277 ---------- *031277 MOVE 3,032167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000006 C(E)= 777777 000006 FINAL C(AC)= 777777 000006 ---------- *031300 XCT 0,032170 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 032170 FINAL C(E)= 253140 031302 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 44 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0137 *031300 AOBJN 3,031302 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000006 E= 000000 031302 FINAL C(AC)= 000000 000007 ---------- *031301 CAME 3,032171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000007 ---------- *031303 JUMPA 0,031304 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031304 ---------- *031304 SETZB 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031305 JRST 0,031310 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031310 ---------- *031310 XCT 0,@@031306 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031307 FINAL C(E)= 476000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 45 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0138 *031310 SETOM 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *031311 CAME 2,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031313 JUMPA 0,031314 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031314 ---------- *031314 MOVEI 4,031315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 031315 FINAL C(AC)= 000000 031315 ---------- *031315 JRST 0,031317 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031317 ---------- *031317 XCT 0,000001(4) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031316 FINAL C(E)= 302200 031315 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 46 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0139 *031317 CAIE 4,031315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 031315 E= 000000 031315 ---------- *031321 JUMPA 0,031322 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031322 ---------- *031322 SETZM 0,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- *031323 MOVEI 3,031326 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 031326 FINAL C(AC)= 000000 031326 ---------- *031324 JRST 0,031326 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031326 ---------- *031326 XCT 0,@@777777(3) FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031330 FINAL C(E)= 476000 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 47 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0140 *031326 SETOM 0,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(E)= 777777 777777 ---------- *031327 JRST 0,031331 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031331 ---------- *031331 CAME 5,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031333 JUMPA 0,031334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031334 ---------- *031334 SETZM 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 031326 FINAL C(E)= 000000 000000 ---------- *031335 MOVEI 10,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000003 FINAL C(AC)= 000000 000003 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 48 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0141 *031336 JRST 0,031343 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031343 ---------- *031343 XCT 0,031341 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 031341 FINAL C(E)= 200170 031337 ---------- *031343 MOVE 3,@@031337(10) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 707070 FINAL C(AC)= 000000 707070 ---------- *031344 CAIE 3,707070 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 707070 E= 000000 707070 ---------- *031346 JUMPA 0,031347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031347 ---------- *031347 MOVE 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 49 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0142 *031350 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031351 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777775 FINAL C(AC)= 000000 000000 ---------- *031352 CAME 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031354 JUMPA 0,031355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031355 ---------- *031355 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031357 JUMPA 0,031360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031360 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 50 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0143 *031360 MOVE 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031361 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031362 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777775 FINAL C(AC)= 777777 777777 ---------- *031363 CAME 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031365 JUMPA 0,031366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031366 ---------- *031366 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 51 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0144 *031370 JUMPA 0,031371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031371 ---------- *031371 MOVE 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031372 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031373 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 777775 FINAL C(AC)= 525252 525252 ---------- *031374 CAME 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031376 JUMPA 0,031377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 52 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0145 *031377 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031401 JUMPA 0,031402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031402 ---------- *031402 MOVE 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031403 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031404 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 777775 FINAL C(AC)= 252525 252525 ---------- *031405 CAME 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 53 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0146 *031407 JUMPA 0,031410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031410 ---------- *031410 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031412 JUMPA 0,031413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031413 ---------- *031413 MOVE 0,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *031414 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031415 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 E= 000000 777775 FINAL C(AC)= 023070 360370 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 54 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0147 *031416 CAME 0,032177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023070 360370 C(E)= 023070 360370 ---------- *031420 JUMPA 0,031421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023070 360370 E= 000000 031421 ---------- *031421 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031423 JUMPA 0,031424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023070 360370 E= 000000 031424 ---------- *031424 MOVE 0,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 023070 360370 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- *031425 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 55 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0148 *031426 ROT 0,777775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007603 607062 E= 000000 777775 FINAL C(AC)= 200760 360706 ---------- *031427 CAME 0,032201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 C(E)= 200760 360706 ---------- *031431 JUMPA 0,031432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031432 ---------- *031432 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031434 JUMPA 0,031435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031435 ---------- *031435 MOVE 2,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 56 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0149 *031436 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 707070 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031437 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000015 FINAL C(AC)= 000000 000000 ---------- *031440 CAME 2,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031442 JUMPA 0,031443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031443 ---------- *031443 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031445 JUMPA 0,031446 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031446 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 57 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0150 *031446 MOVE 2,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031447 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031450 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000015 FINAL C(AC)= 777777 777777 ---------- *031451 CAME 2,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031453 JUMPA 0,031454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031454 ---------- *031454 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 58 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0151 *031456 JUMPA 0,031457 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031457 ---------- *031457 MOVE 2,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031460 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031461 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 000015 FINAL C(AC)= 525252 525252 ---------- *031462 CAME 2,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031464 JUMPA 0,031465 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031465 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 59 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0152 *031465 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031467 JUMPA 0,031470 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031470 ---------- *031470 MOVE 2,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031471 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031472 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 000015 FINAL C(AC)= 252525 252525 ---------- *031473 CAME 2,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 60 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0153 *031475 JUMPA 0,031476 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031476 ---------- *031476 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031500 JUMPA 0,031501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031501 ---------- *031501 MOVE 2,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *031502 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031503 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 E= 000000 000015 FINAL C(AC)= 074076 004616 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 61 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0154 *031504 CAME 2,032202 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 074076 004616 C(E)= 074076 004616 ---------- *031506 JUMPA 0,031507 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031507 ---------- *031507 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031511 JUMPA 0,031512 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031512 ---------- *031512 MOVE 2,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 074076 004616 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- *031513 MOVE 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 62 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0155 *031514 ROT 2,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007603 607062 E= 000000 000015 FINAL C(AC)= 074161 440174 ---------- *031515 CAME 2,032203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 074161 440174 C(E)= 074161 440174 ---------- *031517 JUMPA 0,031520 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031520 ---------- *031520 CAME 3,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031522 JUMPA 0,031523 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 E= 000000 031523 ---------- *031523 MOVE 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200760 360706 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 63 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0156 *031524 MOVE 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031525 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000003 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031526 CAME 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031530 JUMPA 0,031531 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031531 ---------- *031531 CAME 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031533 JUMPA 0,031534 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031534 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 64 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0157 *031534 MOVE 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031535 MOVE 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031536 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000003 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *031537 CAME 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031541 JUMPA 0,031542 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031542 ---------- *031542 CAME 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 65 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0158 *031544 JUMPA 0,031545 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031545 ---------- *031545 MOVE 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031546 MOVE 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031547 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 000003 FINAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 ---------- *031550 CAME 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031552 JUMPA 0,031553 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031553 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 66 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0159 *031553 CAME 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031555 JUMPA 0,031556 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031556 ---------- *031556 MOVE 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031557 MOVE 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031560 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 000003 FINAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 ---------- *031561 CAME 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 67 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0160 *031563 JUMPA 0,031564 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031564 ---------- *031564 CAME 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *031566 JUMPA 0,031567 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031567 ---------- *031567 MOVE 0,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *031570 MOVE 1,032204 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 770037 600377 FINAL C(AC)= 770037 600377 ---------- *031571 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000003 FINAL C(AC)= 307036 037007 C(AC+1)= 700376 003772 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 68 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0161 *031572 CAME 0,032205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 307036 037007 C(E)= 307036 037007 ---------- *031574 JUMPA 0,031575 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 307036 037007 E= 000000 031575 ---------- *031575 CAME 1,032206 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 700376 003772 C(E)= 700376 003772 ---------- *031577 JUMPA 0,031600 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 307036 037007 E= 000000 031600 ---------- *031600 MOVE 0,032207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 307036 037007 C(E)= 776003 760077 FINAL C(AC)= 776003 760077 ---------- *031601 MOVE 1,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 700376 003772 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 69 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0162 *031602 ROTC 0,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776003 760077 C(AC+1)= 007603 607062 E= 000000 000003 FINAL C(AC)= 760037 600770 C(AC+1)= 076036 070627 ---------- *031603 CAME 0,032210 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 760037 600770 C(E)= 760037 600770 ---------- *031605 JUMPA 0,031606 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 760037 600770 E= 000000 031606 ---------- *031606 CAME 1,032211 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076036 070627 C(E)= 076036 070627 ---------- *031610 JUMPA 0,031611 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 760037 600770 E= 000000 031611 ---------- *031611 MOVE 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 760037 600770 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 70 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0163 *031612 MOVE 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 076036 070627 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *031613 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000007 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031614 CAME 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031616 JUMPA 0,031617 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031617 ---------- *031617 CAME 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031621 JUMPA 0,031622 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031622 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 71 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0164 *031622 MOVE 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031623 MOVE 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031624 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000007 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *031625 CAME 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- *031627 JUMPA 0,031630 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031630 ---------- *031630 CAME 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 72 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0165 *031632 JUMPA 0,031633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 031633 ---------- *031633 MOVE 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031634 MOVE 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031635 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 000007 FINAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 ---------- *031636 CAME 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031640 JUMPA 0,031641 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031641 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 73 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0166 *031641 CAME 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 ---------- *031643 JUMPA 0,031644 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 031644 ---------- *031644 MOVE 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031645 MOVE 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031646 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 000007 FINAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 ---------- *031647 CAME 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 74 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0167 *031651 JUMPA 0,031652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031652 ---------- *031652 CAME 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 252525 252525 ---------- *031654 JUMPA 0,031655 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 031655 ---------- *031655 MOVE 0,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *031656 MOVE 1,032204 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(E)= 770037 600377 FINAL C(AC)= 770037 600377 ---------- *031657 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000007 FINAL C(AC)= 160740 760176 C(AC+1)= 007740 077646 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 75 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0168 *031660 CAME 0,032212 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 160740 760176 C(E)= 160740 760176 ---------- *031662 JUMPA 0,031663 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 160740 760176 E= 000000 031663 ---------- *031663 CAME 1,032213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007740 077646 C(E)= 007740 077646 ---------- *031665 JUMPA 0,031666 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 160740 760176 E= 000000 031666 ---------- *031666 MOVE 0,032207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 160740 760176 C(E)= 776003 760077 FINAL C(AC)= 776003 760077 ---------- *031667 MOVE 1,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007740 077646 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 76 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0169 *031670 ROTC 0,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776003 760077 C(AC+1)= 007603 607062 E= 000000 000007 FINAL C(AC)= 400774 017601 C(AC+1)= 740741 614577 ---------- *031671 CAME 0,032214 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400774 017601 C(E)= 400774 017601 ---------- *031673 JUMPA 0,031674 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400774 017601 E= 000000 031674 ---------- *031674 CAME 1,032215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 740741 614577 C(E)= 740741 614577 ---------- *031676 JUMPA 0,031677 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400774 017601 E= 000000 031677 ---------- *031677 MOVE 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400774 017601 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 77 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0170 *031700 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 740741 614577 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031701 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777745 FINAL C(AC)= 000000 000000 ---------- *031702 CAME 0,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031704 JUMPA 0,031705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031705 ---------- *031705 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031707 JUMPA 0,031710 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 031710 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 78 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0171 *031710 MOVE 0,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031711 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031712 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777745 FINAL C(AC)= 000000 000777 ---------- *031713 CAME 0,032216 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 000777 ---------- *031715 JUMPA 0,031716 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 E= 000000 031716 ---------- *031716 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 79 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0172 *031720 JUMPA 0,031721 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 E= 000000 031721 ---------- *031721 MOVE 0,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *031722 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031723 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 777745 FINAL C(AC)= 000000 000252 ---------- *031724 CAME 0,032217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 C(E)= 000000 000252 ---------- *031726 JUMPA 0,031727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 E= 000000 031727 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 80 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0173 *031727 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031731 JUMPA 0,031732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 E= 000000 031732 ---------- *031732 MOVE 0,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *031733 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031734 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 777745 FINAL C(AC)= 000000 000525 ---------- *031735 CAME 0,032220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 C(E)= 000000 000525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 81 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0174 *031737 JUMPA 0,031740 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 E= 000000 031740 ---------- *031740 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031742 JUMPA 0,031743 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 E= 000000 031743 ---------- *031743 MOVE 0,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *031744 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031745 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 E= 000000 777745 FINAL C(AC)= 000000 000230 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 82 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0175 *031746 CAME 0,032221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 C(E)= 000000 000230 ---------- *031750 JUMPA 0,031751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 E= 000000 031751 ---------- *031751 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031753 JUMPA 0,031754 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 E= 000000 031754 ---------- *031754 MOVE 0,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- *031755 MOVE 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 83 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0176 *031756 LSH 0,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007603 607062 E= 000000 777745 FINAL C(AC)= 000000 000007 ---------- *031757 CAME 0,032171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000007 ---------- *031761 JUMPA 0,031762 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 031762 ---------- *031762 CAME 1,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031764 JUMPA 0,031765 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 031765 ---------- *031765 MOVE 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 84 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0177 *031766 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 074161 440174 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *031767 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777751 FINAL C(AC)= 000000 000000 ---------- *031770 CAME 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *031772 JUMPA 0,031773 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 031773 ---------- *031773 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *031775 JUMPA 0,031776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 031776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 85 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0178 *031776 MOVE 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *031777 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032000 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777751 FINAL C(AC)= 000000 017777 ---------- *032001 CAME 1,032222 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 017777 C(E)= 000000 017777 ---------- *032003 JUMPA 0,032004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032004 ---------- *032004 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 86 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0179 *032006 JUMPA 0,032007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032007 ---------- *032007 MOVE 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 017777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *032010 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032011 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 777751 FINAL C(AC)= 000000 005252 ---------- *032012 CAME 1,032223 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 005252 C(E)= 000000 005252 ---------- *032014 JUMPA 0,032015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032015 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 87 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0180 *032015 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032017 JUMPA 0,032020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032020 ---------- *032020 MOVE 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 005252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *032021 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032022 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 777751 FINAL C(AC)= 000000 012525 ---------- *032023 CAME 1,032224 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 012525 C(E)= 000000 012525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 88 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0181 *032025 JUMPA 0,032026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032026 ---------- *032026 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032030 JUMPA 0,032031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032031 ---------- *032031 MOVE 1,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 012525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *032032 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032033 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 E= 000000 777751 FINAL C(AC)= 000000 004616 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 89 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0182 *032034 CAME 1,032225 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004616 C(E)= 000000 004616 ---------- *032036 JUMPA 0,032037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032037 ---------- *032037 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032041 JUMPA 0,032042 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032042 ---------- *032042 MOVE 1,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004616 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- *032043 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 90 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0183 *032044 LSH 1,777751 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007603 607062 E= 000000 777751 FINAL C(AC)= 000000 000174 ---------- *032045 CAME 1,032226 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000174 C(E)= 000000 000174 ---------- *032047 JUMPA 0,032050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032050 ---------- *032050 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032052 JUMPA 0,032053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032053 ---------- *032053 MOVE 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000174 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 91 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0184 *032054 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032055 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777745 FINAL C(AC)= 000000 000000 ---------- *032056 CAME 1,032146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000000 000000 ---------- *032060 JUMPA 0,032061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032061 ---------- *032061 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032063 JUMPA 0,032064 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032064 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 92 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0185 *032064 MOVE 1,032145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 ---------- *032065 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032066 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777745 FINAL C(AC)= 000000 000777 ---------- *032067 CAME 1,032216 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 000000 000777 ---------- *032071 JUMPA 0,032072 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032072 ---------- *032072 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 93 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0186 *032074 JUMPA 0,032075 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032075 ---------- *032075 MOVE 1,032174 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000777 C(E)= 252525 252525 FINAL C(AC)= 252525 252525 ---------- *032076 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032077 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 E= 000000 777745 FINAL C(AC)= 000000 000252 ---------- *032100 CAME 1,032217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 C(E)= 000000 000252 ---------- *032102 JUMPA 0,032103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032103 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 94 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0187 *032103 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032105 JUMPA 0,032106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032106 ---------- *032106 MOVE 1,032175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000252 C(E)= 525252 525252 FINAL C(AC)= 525252 525252 ---------- *032107 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032110 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 E= 000000 777745 FINAL C(AC)= 000000 000525 ---------- *032111 CAME 1,032220 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 C(E)= 000000 000525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 95 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0188 *032113 JUMPA 0,032114 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032114 ---------- *032114 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032116 JUMPA 0,032117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032117 ---------- *032117 MOVE 1,032176 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000525 C(E)= 230703 603700 FINAL C(AC)= 230703 603700 ---------- *032120 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- *032121 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 E= 000000 777745 FINAL C(AC)= 000000 000230 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 96 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0189 *032122 CAME 1,032221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 C(E)= 000000 000230 ---------- *032124 JUMPA 0,032125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032125 ---------- *032125 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032127 JUMPA 0,032130 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032130 ---------- *032130 MOVE 1,032200 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000230 C(E)= 007603 607062 FINAL C(AC)= 007603 607062 ---------- *032131 MOVE 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 FINAL C(AC)= 172737 405060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 97 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0190 *032132 LSH 1,777745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 007603 607062 E= 000000 777745 FINAL C(AC)= 000000 000007 ---------- *032133 CAME 1,032171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000007 ---------- *032135 JUMPA 0,032136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032136 ---------- *032136 CAME 2,032173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172737 405060 C(E)= 172737 405060 ---------- *032140 JUMPA 0,032141 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 E= 000000 032141 ---------- *032141 SETZM 0,032230 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000000 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 98 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0191 *032142 JRST 0,030057 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030057 ---------- *030057 JRST 0,030613 FLAGS - INT/FINAL 000000 000000 INITIAL E= 000000 030613 ---------- *030613 AOS 0,030047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000000 FINAL C(AC)= 000000 000007 C(E)= 000000 000001 ---------- *030614 SOS 0,030024 FLAGS - INT/FINAL 000000 300000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000001 FINAL C(AC)= 000000 000007 C(E)= 000000 000000 ---------- *030615 SKIPN 0,030037 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000000 FINAL C(AC)= 000000 000007 ---------- *030616 JRST 0,030624 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 030624 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 28-MAR-78 PAGE 99 DSKAG 000000 000000 000000 000000 000000 000000 030000 777777 SEQ 0192 *030624 SKIPE 0,030024 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000007 C(E)= 000000 000000 FINAL C(AC)= 000000 000007 ---------- *030626 SKIPN 0,030044 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 000000 000007 C(E)= 777777 777777 FINAL C(AC)= 000000 000007 ---------- *030630 JRST 0,@@030012 FLAGS - INT/FINAL 300000 300000 INITIAL E= 000000 431110 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAH.txt,v0000444000175100010010000177572112051211504014377 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAH IDENTIFICATION -------------- PRODUCT CODE: AH-E311A-DD DIAGNOSTIC CODE: DSKAH PRODUCT NAME: DSKAHA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (8) 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-DSKAH.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 ERRORS 5.0 ITERATION COUNTER 6.0 CYCLE TIME 7.0 OPERATIONAL VARIATIONS 8.0 MISCELLANEOUS 9.0 LISTING MAINDEC-10-DSKAH.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 KS-10 BASIC INSTRUCTION DIAGNOSTIC IS THE EIGTH IN A SERIES OF DECSYSTEM 2020 KS-10 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC TESTS THE PI SYSTEM, INTERRUPTS, LUUO'S AND INPUT/OUTPUT. THE DIAGNOSTIC TESTS THE BASIC FUNCTIONALITY OF THE PROCESSOR AND MICRO-CODE. 2.0 REQUIREMENTS 2.1 EQUIPMENT A PDP-10 SM10 WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS CONSOLE FUNCTIONS WORKING PROPERLY PREVIOUS PROCESSOR DIAGNOSTICS MAINDEC-10-DSKAH.TXT PAGE 4 SEQ 0005 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE LOAD VIA CONSOLE PROCESSOR 3.2 STARTING PROCEDURE STAND-ALONE STARTING ADDRESS IS 30000. IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE. (SEE LISTING). 3.3 OPERATING PROCEDURE ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED OR AN ERROR OCCURS. 4.0 ERRORS ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS. THE LISTING SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR. A NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT. THIS MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE FAILING INSTRUCTION. 5.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM CAN BE DETERMINED BY EXAMINING 30047 "PASCNT". 6.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-DSKAH.TXT PAGE 5 SEQ 0006 7.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO- VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO- VIDE 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 PRO- GRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON- ITOR CONTROL FLAG WORD. B. USER MODE THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS CORRECTLY. USER MODE STARTING ADDRESS IS 30000. C. SYSTEM EXERCISER STARTING ADDRESS IS 30003. NO DATA SWITCHES ARE USED BY THIS PROGRAM. 8.0 MISCELLANEOUS NONE 9.0 LISTING HISTORY FILE FOR DSKAH SEQ 0007 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAH TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (8) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 DSKAHT MAC 31-Mar-78 10:59 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0008 1 ;DSKAH 2 3 4 000000 MCNVER==0 5 000001 DECVER==1 6 7 8 XLIST 9 LIST 10 LALL 11 12 NAME \MCNVER,\DECVER^ 13 14 TITLE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 15 ^ 16 17 ;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE 18 ;AND TO DETECT (SOLID) FAILURES IN THE FIELD. 19 20 ;COPYRIGHT 1978 21 ;DIGITAL EQUIPMENT CORPORATION 22 ;MARLBORO, MASS. 01752 23 24 ;JOHN R. KIRCHOFF 25 26 000137 LOC 137 27 000137 000000 000001 MCNVER,,DECVER 28 29 NOSYM DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2 DSKAHT MAC 31-Mar-78 10:59 DIAGNOSTIC PARAMETERS SEQ 0009 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;PARAMETER DEFINITIONS 33 34 000001 EXCASB==1 35 000001 PGMEND==1 36 000001 EROLD==1 37 38 ;FLAG DEFINITIONS 39 40 010000 USERF=10000 ;USER MODE FLAG 41 42 43 ;MACROS 44 45 ; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1) 46 ; TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION 47 48 DEFINE STOP (A)< 49 HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE 50 JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO 51 ;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION 52 ;IN THE SUBTEST) TO LOOP ON ERROR> 53 54 ; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET SELECTED FLAG 55 56 DEFINE SFLAG (A)< 57 MOVSI 1,A 58 JFCL 17,.+1 ;RESET ALL FLAGS 59 JRST 2,.+1(1) ;SET A FLAG> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3 DSKAHT MAC 31-Mar-78 10:59 DIAGNOSTIC PARAMETERS SEQ 0010 60 ;SPECIAL FEATURE PARAMETERS 61 62 030660 SADR1=STARTA 63 030660 SADR2=STARTA 64 030660 SADR3=STARTA 65 030660 SADR4=STARTA 66 254000 030660 SADR5=JRST STARTA 67 254000 030660 SADR6=JRST STARTA 68 254000 030660 SADR7=JRST STARTA 69 254000 030660 SADR8=JRST STARTA 70 254000 030660 SADR9=JRST STARTA 71 254000 030660 SADR10=JRST STARTA 72 254000 030660 SADR11=JRST STARTA 73 74 000000 PAREA0=0 75 000000 PAREA1=0 76 000000 PAREA2=0 77 446353 415000 PAREA3=SIXBIT/DSKAH/ 78 645560 000000 PAREA4=SIXBIT/TMP/ 79 000000 PAREA5=0 80 000000 PAREA6=0 81 000001 ITERAT==1 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0011 82 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 83 84 DEFINE S,<;*********************************************************************> 85 86 S^;*********************************************************************^ 87 ;*DATA SWITCHES 88 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 89 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 90 S^;*********************************************************************^ 91 92 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 93 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 94 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 95 96 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 97 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 98 010000 DING== 010000 ;RING BELL ON ERROR 99 100 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 101 002000 ERSTOP==002000 ;HALT ON TEST ERROR 102 001000 PALERS==001000 ;PRINT ALL ERRORS 103 104 000400 RELIAB==000400 ;RELIABILITY MODE 105 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 106 000100 INHPAG==000100 ;INHIBIT PAGING 107 108 000040 MODDVC==000040 ;MODIFY DEVICE CODE 109 000020 INHCSH==000020 ;INHIBIT CACHE 110 000010 OPRSEL==000010 ;OPERATOR SELECTION 111 112 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 113 114 ;SWITCH 16 RESERVED 115 116 ;SWITCH 17 RESERVED !!! DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0012 117 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 118 119 S^;*********************************************************************^ 120 ;*SPECIAL SUBPROGRAM LINKAGES 121 S^;*********************************************************************^ 122 123 027772 FSELNK= 27772 ;FILE SELECT LINK 124 027773 FRDLNK= 27773 ;FILE READ LINK 125 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 126 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 127 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 128 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 129 130 S^;*********************************************************************^ 131 ;*SPECIAL SUBROUTINE FATAL HALTS 132 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 133 S^;*********************************************************************^ 134 135 ;ADDRESS TAG REASON 136 ;--------------------- 137 138 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 139 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 140 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 141 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 142 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 143 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 144 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 145 ; 1017 EOPERR ;END OF PROGRAM ERROR 146 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 147 148 S^;*********************************************************************^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0013 149 S^;*********************************************************************^ 150 ;OPERATOR DEFINITIONS (NON-UUO'S) 151 S^;*********************************************************************^ 152 153 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 154 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 155 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 156 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 157 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 158 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 159 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 160 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 161 162 S^;*********************************************************************^ 163 ;*SUBROUTINE INITIALIZATION CALL 164 S^;*********************************************************************^ 165 166 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 167 168 S^;*********************************************************************^ 169 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 170 S^;*********************************************************************^ 171 172 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 173 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 174 175 S^;*********************************************************************^ 176 ;*TERMINAL INPUT UUO'S 177 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 178 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 179 S^;*********************************************************************^ 180 181 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 182 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 183 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 184 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 185 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 186 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 187 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 188 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 189 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 190 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 191 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0014 192 ;*TERMINAL OUTPUT UUO'S. 193 194 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 195 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 196 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 197 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 198 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 199 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 200 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 201 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 202 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 203 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 204 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 205 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 206 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 207 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 208 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 209 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 210 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 211 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 212 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 213 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 214 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 215 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 216 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 217 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 218 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 219 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 220 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 221 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 222 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 223 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 224 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 225 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 226 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 227 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 228 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 229 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 230 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 231 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 232 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 233 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 234 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 235 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0015 236 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 237 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 238 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 239 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 240 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 241 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 242 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 243 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 244 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 245 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 246 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 247 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 248 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 249 250 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 251 252 DEFINE PMSG (ARG),< 253 PSIXM [SIXBIT\ARG'_\]> 254 255 DEFINE PMSGF (ARG),< 256 PSIXMF [SIXBIT\ARG'_\]> 257 258 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 259 ;* CONSERVES CORE OVER ASCIZ 260 261 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 262 263 ;*CONSOLE SWITCH INPUT UUO. 264 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 265 ;* USER MODE. 266 267 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 268 269 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 270 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 271 272 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 273 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 274 275 ;*KS-10 CACHE OPERATION UUO'S 276 277 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 278 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 279 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0016 280 ;*END OF PASS/PROGRAM UUOS 281 282 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 283 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 284 285 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 286 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 287 288 ;*MEMORY MANAGEMENT UUO'S 289 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 290 ;*ADDRESS CONVERSION, ETC... 291 292 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 293 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 294 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 295 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 296 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 297 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 298 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 299 300 ;*DEVICE CODE MODIFICATION UUO 301 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 302 ;*IOT'S TO A DIFFERENT DEVICE CODE. 303 304 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 305 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 306 307 030000 IFNDEF MODDVL, 308 030000 IFNDEF MODDVU, 309 310 ;*"DIAMON" FILE SELECTION AND READ UUOS 311 312 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 313 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 314 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 315 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 316 317 XLIST 318 LIST DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0017 319 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 320 321 030000 LOC 30000 322 323 S^;*********************************************************************^ 324 ;*PROGRAM STARTING ADDRESSES 325 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 326 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 327 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 328 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 329 S^;*********************************************************************^ 330 331 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 332 030001 254 00 0 00 030631 $START: JRST START ;MODE CHECK STARTING ADDRESS 333 334 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 335 336 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 337 338 030004 254 00 0 00 030660 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 339 340 030005 254 00 0 00 030660 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 341 342 030006 254 00 0 00 030660 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 343 344 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 345 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 346 347 030010 254 00 0 00 030660 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 348 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 349 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 350 351 030013 254000 030660 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 352 030014 254000 030660 START2: SADR8 ; " 353 030015 254000 030660 START3: SADR9 ; " 354 030016 254000 030660 START4: SADR10 ; " 355 030017 254000 030660 START5: SADR11 ; " DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0018 356 S^;*********************************************************************^ 357 ;*PROGRAM FIXED PARAMETER AREA 358 S^;*********************************************************************^ 359 360 030020 446353 415000 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 361 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 362 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 363 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 364 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 365 030025 000000 030644 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 366 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 367 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 368 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 369 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 370 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 371 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 372 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 373 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 374 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 375 376 S^;*********************************************************************^ 377 ;*PROGRAM VARIABLE PARAMETER AREA 378 S^;*********************************************************************^ 379 380 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 381 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 382 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 383 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 384 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 385 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 386 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 387 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 388 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 389 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 390 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 391 030052 000000 000000 ERRPC: 0 ;ERROR PC 392 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 393 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 394 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 395 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0019 396 S^;*********************************************************************^ 397 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 398 S^;*********************************************************************^ 399 400 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 401 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 402 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 403 030062 254000 030660 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 404 030063 254000 030660 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 405 030064 CPOPJ1: ;SKIP RETURN 406 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 407 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 408 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 409 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 410 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 411 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 412 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 413 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 414 030073 255 00 0 00 000000 $USRHL: JFCL ; " 415 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 416 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 417 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 418 030077 255 00 0 00 000000 RESRT2: JFCL ; " 419 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 420 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 421 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 422 423 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 424 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 425 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 426 427 S^;*********************************************************************^ 428 ;*PROCESSOR CONTROL STORAGE 429 S^;*********************************************************************^ 430 431 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 432 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 433 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 434 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 435 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 436 437 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 438 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 439 440 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 441 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 442 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 443 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 444 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 445 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 446 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0020 447 S^;*********************************************************************^ 448 ;*UUO DISPATCH TABLE 449 S^;*********************************************************************^ 450 XLIST 451 LIST 452 030124 030070 030070 UUODIS: LUUO1,,$UUOER 453 030125 030070 030070 LUUO3,,LUUO2 454 030126 030070 030070 LUUO5,,LUUO4 455 030127 030070 030070 LUUO7,,LUUO6 456 030130 030070 030070 LUUO11,,LUUO10 457 030131 030070 030070 LUUO13,,LUUO12 458 030132 030070 030070 LUUO15,,LUUO14 459 030133 030070 030070 LUUO17,,LUUO16 460 030134 030070 030070 LUUO21,,LUUO20 461 030135 030070 030070 LUUO23,,LUUO22 462 030136 030070 030070 LUUO25,,LUUO24 463 030137 030070 030070 LUUO27,,LUUO26 464 030140 030070 030070 LUUO31,,LUUO30 465 030141 030070 030070 LUUO33,,LUUO32 466 467 S^;*********************************************************************^ 468 ;*MEMORY MANAGMENT STORAGE 469 S^;*********************************************************************^ 470 471 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 472 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 473 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 474 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 475 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 476 477 S^;*********************************************************************^ 478 ;*PRINT CONTROL STORAGE 479 S^;*********************************************************************^ 480 481 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 482 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 483 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 484 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 485 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 486 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 487 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 488 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 489 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 490 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 491 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 492 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 493 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 494 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 495 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 496 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 497 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 498 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 499 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0021 500 S^;*********************************************************************^ 501 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 502 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 503 ;* MOVEI NAME 504 ;* PNTA ;OR PNTAF 505 S^;*********************************************************************^ 506 507 030242 CRLF: ASCII/ 508 030242 015 012 000 000 000 / 509 030243 CRLF2: ASCII/ 510 511 030243 015 012 015 012 000 / 512 030244 054 000 000 000 000 COMMA: ASCII/,/ 513 030245 056 000 000 000 000 PERIOD: ASCII/./ 514 030246 040 000 000 000 000 SPACE: ASCII/ / 515 030247 011 000 000 000 000 TAB: ASCII/ / 516 030250 MINUS: 517 030250 055 000 000 000 000 HYPEN: ASCII/-/ 518 030251 053 000 000 000 000 PLUS: ASCII/+/ 519 030252 052 000 000 000 000 AST: ASCII/*/ 520 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 521 030254 050 000 000 000 000 LFP: ASCII/(/ 522 030255 051 000 000 000 000 RTP: ASCII/)/ 523 030256 007 0000000000 BELL: BYTE (7) 007 524 030257 077 000 000 000 000 QUEST: ASCII/?/ 525 030260 057 000 000 000 000 SLASH: ASCII!/! 526 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 527 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 528 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 529 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 530 531 S^;*********************************************************************^ 532 ;*USER MODE OUTPUT FILE INFORMATION 533 S^;*********************************************************************^ 534 535 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 536 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 537 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 538 030272 BLOCK 2 539 540 S^;*********************************************************************^ 541 ;*DISK UPDATE MODE FILE INFORMATION 542 S^;*********************************************************************^ 543 544 030274 $IBUF: BLOCK 3 545 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 546 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 547 030301 BLOCK 2 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0022 548 S^;*********************************************************************^ 549 ;*PUSHDOWN LIST CONTROL INFORMATION 550 S^;*********************************************************************^ 551 552 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 553 030304 PLISTS: BLOCK 200 554 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 555 556 S^;*********************************************************************^ 557 ;*POWER LINE CLOCK FREQUENCY FLAG 558 S^;*********************************************************************^ 559 560 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 561 562 S^;*********************************************************************^ 563 ;*KL10 CACHE CONTROL FLAGS 564 S^;*********************************************************************^ 565 566 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 567 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 568 569 S^;*********************************************************************^ 570 ;*NUMBER INPUT DIGIT FLAG 571 S^;*********************************************************************^ 572 573 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 574 575 S^;*********************************************************************^ 576 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 577 S^;*********************************************************************^ 578 579 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 580 581 S^;*********************************************************************^ 582 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 583 S^;*********************************************************************^ 584 585 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 586 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 587 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 588 589 S^;*********************************************************************^ 590 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 591 S^;*********************************************************************^ 592 593 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 594 S^;*********************************************************************^ 595 ;*USER MODE MONITOR TYPE FLAG 596 S^;*********************************************************************^ 597 598 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 599 600 S^;*********************************************************************^ 601 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 602 S^;*********************************************************************^ 603 604 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 605 606 S^;*********************************************************************^ 607 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 608 S^;*********************************************************************^ 609 610 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 611 612 S^;*********************************************************************^ 613 ;*"SWITCH" CALL USAGE CONTROL 614 S^;*********************************************************************^ 615 616 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 617 618 S^;*********************************************************************^ 619 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 620 S^;*********************************************************************^ 621 622 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 623 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 624 625 S^;*********************************************************************^ 626 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 627 S^;*********************************************************************^ 628 629 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 630 631 S^;*********************************************************************^ 632 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 633 S^;*********************************************************************^ 634 635 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 636 637 S^;*********************************************************************^ 638 ;*SPECIAL FUTURE EXPANSION ROOM 639 S^;*********************************************************************^ 640 641 S^;*********************************************************************^ 642 ;*END OF FIXED STORAGE 643 S^;*********************************************************************^ 644 645 030577 LOC 30577 646 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0024 647 SUBTTL *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 648 649 000000 AC0= 0 650 030000 DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS 651 010000 DDT= 10000 ;PDP-10 DDT START ADDRESS 652 020000 DIAMON= 20000 ;PDP-10 DIAGNOSTIC LOADER START ADDRESS 653 654 ;KS-10 EPT COMMUNICATION AREA 655 656 000440 $STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS 657 000441 $DDT= 441 ;PDP-10 DDT START ADDRESS 658 000442 $STL= 442 ;PDP-10 LOADER START ADDRESS 659 000443 $STM= 443 ;PDP-10 MONITOR START ADDRESS 660 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0025 661 ;SPECIAL "FIXED" REASSIGNMENTS 662 663 030600 $$LOC=. ;SAVE CURRENT LOCATION 664 665 030000 LOC 30000 666 030000 254 00 0 00 030600 $$BEGIN:JRST $$START ;SETUP SPECIAL START 667 030001 254 00 0 00 030600 JRST $$START ;"DIAMON" CHAIN START ADDRESS 668 669 000440 LOC 440 670 000440 254 00 0 00 030000 $STD: JRST BEGIN ;SETUP FOR "STD" 671 672 030057 LOC 30057 673 030057 254 00 0 00 030613 $BEGEND:JRST $SPBEND ;SETUP SPECIAL "BEGEND" 674 675 ;SPECIAL MUUO, TRAP & PAGE FAIL SETUP 676 677 000420 LOC 420 678 000420 254 04 0 00 000420 $$420: HALT . 679 000421 255 00 0 00 000000 $$421: JFCL ;OVERFLOW 680 000422 254 04 0 00 000422 $$422: HALT . ;PUSHDOWN OVERFLOW 681 000423 254 04 0 00 000423 $$423: HALT . ;TRAP 3 682 000424 000000 000000 $$424: 0 ;MMUO 683 000425 000000 000000 $$425: 0 ;MMUO PC 684 000426 000000 000000 $$426: 0 ;KS-10 PROCESS CONTEXT 685 000427 254 04 0 00 000427 $$427: HALT . 686 000430 000000 000427 $$430: 427 ;MMUO NEW PC'S 687 000431 000000 000427 $$431: 427 688 000432 000000 000427 $$432: 427 689 000433 000000 000427 $$433: 427 690 000434 000000 000427 $$434: 427 691 000435 000000 000427 $$435: 427 692 000436 000000 000427 $$436: 427 693 000437 000000 000427 $$437: 427 694 695 000500 LOC 500 696 000500 000000 000000 $$500: 0 ;KS-10 PAGE FAIL WORD 697 000501 000000 000000 $$501: 0 ;KS-10 PAGE FAIL PC 698 000502 000000 000503 $$502: 503 ;KS-10 PAGE FAIL NEW PC 699 000503 254 04 0 00 000503 $$503: HALT . DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3 SPCCPU KSM 28-Mar-78 11:24 *SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, MARCH 1978 SEQ 0026 700 030600 LOC $$LOC ;RESET CURRENT LOCATION 701 702 ;SPECIAL STARTUP SEQUENCE 703 704 030600 402 00 0 00 030037 $$START:SETZM USER 705 030601 265 00 0 00 030602 JSP 0,.+1 ;IN USER MODE ? 706 030602 603 00 0 00 010000 TLNE 0,USERF 707 030603 476 00 0 00 030037 SETOM USER ;YES, SET CONTROL WORD 708 030604 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 709 030605 402 00 0 00 030037 SETZM USER ;YES, RUN AS EXEC 710 030606 332 00 0 00 030037 SKIPE USER 711 030607 254 00 0 00 030631 JRST START ;USER MODE, DON'T NEED CPU TYPE 712 713 030610 336 00 0 00 030044 $STKIL: SKIPN MONTEN ;LOADED BY "DIAMON" ? 714 030611 476 00 0 00 030024 SETOM ITRCNT ;NO, RUN FOREVER 715 030612 254 00 0 00 030631 JRST START ;KS-10, NO ADDITIONAL SETUP 716 717 ;SPECIAL "BEGEND" ROUTINE 718 719 030613 350 00 0 00 030047 $SPBEND:AOS PASCNT ;INCREMENT PASS COUNT 720 030614 370 00 0 00 030024 SOS ITRCNT ;DECREMENT ITERATION COUNT 721 030615 336 00 0 00 030037 $SPB1: SKIPN USER 722 030616 254 00 0 00 030624 JRST $SPBEX ;EXEC MODE 723 724 030617 332 00 0 00 030024 $SPBUS: SKIPE ITRCNT ;USER MODE, COMPLETED ? 725 030620 254 00 0 00 030660 JRST STARTA ;NO, KEEP RUNNING 726 030621 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 727 030622 047 00 0 00 000012 EXIT ;NO, RETURN TO MONITOR 728 030623 254 00 1 00 030012 JRST @@RETURN ;YES, RETURN TO "DIAMON" 729 730 030624 332 00 0 00 030024 $SPBEX: SKIPE ITRCNT 731 030625 254 00 0 00 030660 JRST STARTA ;NOT COMPLETED YET 732 030626 336 00 0 00 030044 SKIPN MONTEN ;DONE, LOADED BY "DIAMON" ? 733 030627 254 04 0 00 030000 HALT BEGIN ;NO, HALT AT BEGINNING 734 030630 254 00 1 00 030012 JRST @@RETURN ;DONE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 DSKAH1 MAC 31-Mar-78 11:13 DIAGNOSTIC SECTION SEQ 0027 735 SUBTTL DIAGNOSTIC SECTION 736 737 030631 402 00 0 00 030037 START: SETZM USER# ;CLEAR USER CONTROL WORD 738 030632 265 00 0 00 030633 JSP 0,.+1 ;GET FLAGS 739 030633 603 00 0 00 010000 TLNE USERF ;IN USER MODE? 740 030634 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 741 030635 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE? 742 030636 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 743 030637 336 00 0 00 030037 SKIPN USER 744 030640 254 00 0 00 030660 JRST STARTA 745 030641 331 00 0 00 030043 SKIPL MONCTL 746 030642 051 03 0 00 030644 TTCALL 3,PGMNAM 747 030643 254 00 0 00 030660 JRST STARTA 748 749 030644 PGMNAM: ASCIZ/ 750 030644 015 012 104 105 103 DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) [DSKAH] 751 030645 123 131 123 124 105 752 030646 115 055 062 060 062 753 030647 060 040 102 101 123 754 030650 111 103 040 111 116 755 030651 123 124 122 125 103 756 030652 124 111 117 116 040 757 030653 104 111 101 107 116 758 030654 117 123 124 111 103 759 030655 040 050 070 051 040 760 030656 133 104 123 113 101 761 030657 110 135 015 012 000 / 762 763 ;BASIC INSTRUCTION TEST (8) 764 ;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF 765 ;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES 766 ;IN THE FIELD. 767 768 769 030660 254 00 0 00 030661 STARTA: JRST .+1 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 2 DSKAH1 MAC 31-Mar-78 11:13 PI/IOT/APR DIAGNOSTIC SECTION SEQ 0028 770 SUBTTL PI/IOT/APR DIAGNOSTIC SECTION 771 772 030661 402 00 0 00 030037 BEGIOT: SETZM USER ;CLEAR USER CONTROL WORD 773 030662 265 00 0 00 030663 JSP 0,.+1 ;GET FLAGS 774 030663 603 00 0 00 010000 TLNE USERF ;IN USER MODE ? 775 030664 476 00 0 00 030037 SETOM USER ;YES, SET USER CONTROL WORD 776 030665 336 00 0 00 030042 SKIPN MONFLG ;SPECIAL USER MODE ? 777 030666 402 00 0 00 030037 SETZM USER ;YES, CLEAR USER CONTROL WORD 778 030667 336 00 0 00 030037 SKIPN USER 779 030670 254 00 0 00 030672 JRST IOT0 ;RUN IOT TEST ONLY IN EXEC MODE 780 781 030671 254 00 0 00 030057 JRST BEGEND ;OTHERWISE START OVER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 3 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0029 782 SUBTTL MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS 783 784 LALL 785 786 ;OPERATOR DEFINITIONS 787 788 264000 040047 OPDEF TRPPI [JSR TRAPPI] ;FILL INTERRUPT LOCATIONS 789 264000 040032 OPDEF HALTPI [JSR HALTPI] ;FILL INT. LOC. WITH HALTS 790 264000 040021 OPDEF CLRTRP [JSR TRPCLR] ;CLEAR TRAPS 791 792 700200 261600 OPDEF CLRAPR [CONO APR,LIOCLR!LCNXER!LCPAER!LCPWRF!LDNXER!LDPAER!LDPWRF] 793 700600 031577 OPDEF CLRPI [CONO PI,LRQCLR!PICLR!CHNOFF!PIOFF!177] 794 795 ;MACROS 796 797 DEFINE BLURB < 798 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 799 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 800 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 801 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 802 > 803 DEFINE BLURB1 < 804 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 805 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 806 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 807 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 808 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 809 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 810 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 811 > DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 4 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0030 812 DEFINE WATINT< 813 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 814 SOJG 13,. ;AND WAIT> 815 816 DEFINE STOP2< 817 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 818 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.> 819 820 DEFINE TSET< 821 %X=. ;DEFINE %X TO SAVE 822 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 823 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT> 824 825 DEFINE TGET< 826 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 827 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 828 STOP2> 829 830 DEFINE TBOTH< 831 TGET 832 TSET> 833 834 DEFINE PINO (A,%NO)< 835 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 836 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 837 838 TSET 839 %NO: CLRBTH 840 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 841 WATINT 842 CONSZ PI,A ;CHECK WHY INT. IN PROGRESS IS SET. 843 STOP 844 TGET> 845 846 DEFINE PIYES (A,B,%YES)< 847 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 848 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 849 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 850 851 TSET 852 %YES: CLRBTH 853 CONO PI,REQSET+A ;SET CHANNEL REQUEST BUT NOT ACTIVE 854 WATINT 855 CONSZ PI,B ;CHECK WHY INT. IN PROGRESS IS SET. 856 STOP 857 TGET> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 5 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0031 858 DEFINE PIHCLR (A,B,%HCLR)< 859 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 860 861 TSET 862 %HCLR: CLRBTH 863 CONO PI,REQSET+PION+A ;CAUSE INT. TO SET HOLD 864 WATINT 865 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 866 CONSZ PI,B ;HOLD FLOP FAILED TO CLEAR. 867 STOP 868 TGET> 869 870 DEFINE PIONOF (A,%ONOF)< 871 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 872 ;AND THAT AN INTERUPT DOES NOT OCCUR 873 874 BLURB1 875 876 TSET 877 %ONOF: CLRBTH 878 CONO PI,REQSET+A ;SET REQ. BUT NOT ACTIVE 879 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 880 CONO PI,PICLR+A ;PI RESET FAILED TO CLEAR PIR FLAG. 881 WATINT 882 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 883 STOP 884 TGET> 885 886 DEFINE PIDIS (A,B,%PICHK)< 887 ;CHECK THAT A JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 888 889 TSET 890 %PICHK: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 891 MOVEM A ;INTO A 892 CONO PI,CHNON+PION+REQSET+B ;TURN ON PI AND REQEST ON CH B 893 WATINT 894 JRST .+4 895 0 896 CONO PI,CHNON+PION+LRQCLR+B ;TURN OF INTERRUPT REQUEST 897 JEN @@.-2 ;DISMISS THE INTERRUPT 898 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 899 STOP 900 TGET 901 CLRBTH> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 6 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0032 902 DEFINE PITEST (A,%PITST)< 903 ;TEST SETTING OF CHANNEL FLOP 904 905 TSET 906 %PITST: CLRBTH 907 CONO PI,CHNON+A ;PION FAILED TO SET 908 CONSO PI,A 909 STOP 910 TBOTH 911 CLRBTH 912 ;TEST CLEARING OF CHANNEL FLOP 913 CONO PI,CHNON+A ;CHECK PIO CLR 914 CONO PI,CHNOFF+A ;TURN OFF CHANNELS 915 CONSZ PI,A ;CHECK WHY FLOP NOT CLEAR 916 STOP 917 TBOTH 918 CLRBTH 919 ;CHECK RESETING OF PI SYSTEM 920 CONO PI,CHNON+A ;CHECK THAT PI RESET CLEARS 921 CONO PI,PICLR ;PI SYSTEM 922 CONSZ PI,A 923 STOP 924 TBOTH 925 CLRBTH 926 ;TEST THAT CONO ONLY SETS PION 927 CONO PI,CHNON ;TEST PIO SET 928 CONSZ PI,A ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 929 STOP 930 TBOTH 931 CLRBTH 932 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 933 CONO PI,CHNON+A ;TEST PIO CLR 934 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 935 CONSO PI,A ;BE SET 936 STOP 937 TGET> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 7 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0033 938 DEFINE EXECUT< 939 ;FILL THE INTERRUPT LOCATIONS WITH "MOVEI'S" 940 MOVE 1,[MOVEI 42] ;STORE A MOVEI IN 941 MOVEM 1,(1) ;INTO 42-60 942 CAME 1,[MOVEI 57] 943 AOJA 1,.-2 ;LOOP> 944 945 DEFINE STOP< 946 HALT .+1 ;INSTRUCTION FAILED REPLACE 947 JRST .+1 ;WITH JRST BACK> 948 949 DEFINE STOP1< 950 HALT .+1 ;UUO FAILED TO STORE MA BITS 951 JRST .+1 ;INTO RIGHT HALF OF 40> 952 953 DEFINE XUUO (X,Y,%XUO)< 954 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 955 ;ARE CORRECT. 956 957 MLUUO==X ;THE UUO TO BE EXECUTED 958 TSET 959 %XUO: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 960 MOVEM 0,41 ;IN TO 41 961 X ;EXECUTE A UUO 962 HALT .+1 ;UUO DID NOT TRAP TO FORTY 963 MOVEI 2,.-1 ;GET UUO PC 964 ANDI 1,-1 ;MASK FLAGS OUT 965 CAME 1,2 ;PC CORRECT ? 966 HALT .+1 ;PC OF UUO NOT = TO PC STORED 967 MOVE 0,40 ;GET UUO ! 968 CAME 0,[X!0] ;CORRECT UUO STORED IN 40? 969 SKIPA ;NO 970 JRST Y ;TESTS OK ! 971 STOP1 972 TGET> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 8 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0034 973 DEFINE XUUOA (X,%UUPC,%XUPC0,%XUPC1)< 974 975 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 976 977 EFIELD==X ;"E" WE ARE TESTING FOR 978 TSET 979 %UUPC: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 980 MOVEM 41 ;INTO 41 981 1B8!X ;EXECUTE A UUO 982 %XUPC0: HALT .+1 ;UUO DIDN'T TRAP TO 40 983 MOVE 0,40 ;GET UUO 984 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 985 CAIE X ;MA BITS CORRECT? 986 %XUPC1: STOP1 987 TGET> 988 989 DEFINE CLRBTH< 990 CLRAPR 991 CLRPI> 992 993 DEFINE CLRBT1< 994 CLRAPR 995 CLRPI> 996 997 DEFINE TRAP (A,B)< 998 MOVE [A] ;SET TRAP INSTRUCTION 999 MOVEM B ;INTO TRAP LOCATION> 1000 1001 DEFINE STUCK< 1002 WATINT 1003 JRST . ;LOOP ON SELF> 1004 1005 DEFINE SBWAIT (A,%CLKUP)< 1006 %CLKUP: CONO APR,LEPSFT!LSPSFT!A 1007 STUCK> ;WAIT FOR ERRORS 1008 1009 DEFINE TRPCHK (%TPC)< 1010 %TPC: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 1011 JRST .+3 ;DONT IF STAND ALONE 1012 JRSTF @@.+1 ;AND RESTORE THEM 1013 USERF,.+1 ;NEW PC AND FLAGS> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 9 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0035 1014 DEFINE XCHN2 (A,B,C)< 1015 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 1016 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 1017 ;IF ERROR OCCURS CHECK "PIN" PRINT 1018 1019 TRPCHK 1020 CLRBTH 1021 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 1022 MOVE [JSR A] ;SET UP FOR CORRECT 1023 MOVEM B ;INTERRUPT TRAP 1024 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 1025 CONO PI,REQSET!C ;REQUEST INTERRUPT ON TWO CHANNELS 1026 STUCK> 1027 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 10 DSKAH1 MAC 31-Mar-78 11:13 MACRO'S OPDEFS AND SPECIAL FLAG DEFINITIONS SEQ 0036 1028 DEFINE FMUUO (A,%FMTST,%NOFM),< 1029 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 1030 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 1031 ;CORRECT PC. 1032 1033 AC=A ;TESTED AC 1034 1035 TSET 1036 MOVE A,[XWD 1000,0] ;SET UP UUO INTO AC A TO EXECUTE 1037 MOVE 13,[JSP 11,%FMTST] ;SET UP UUO TRAP INSTRUCTION 1038 MOVEM 13,41 ;INTO LOCATION 41 1039 MOVE A+1,[JRST %NOFM] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 1040 JRST A ;GO EXECUTE UUO 1041 %NOFM: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 1042 JRST .+1 ;LOOP TO %FMUUO IF ERROR 1043 %FMTST: ANDI 11,-1 ;MASK FLAGS 1044 CAIE 11,A+1 ;PC STORED SHOULD = A +1 1045 STOP 1046 TGET> 1047 1048 DEFINE INDPI (A,B,%XX),< 1049 ;GET OURSELVES INTO A TIGHT INDIRECT LOOP. 1050 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 1051 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 1052 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 1053 1054 TSET 1055 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 1056 MOVEM 10,COUNTX# ;STORE IT 1057 MOVE 10,[JSR %XX] ;INTERRUPT TRAP INSTRUCTION 1058 MOVEM 10,A ;STORE FOR INTERRUPT REQUEST 1059 CLRBT1 1060 CONO PI,2377 ;TURN ON PI AND CHANNELS 1061 CONO APR,LEPSFT!LSPSFT!B ;ENABLE AND SET ERRORS,ENABLE CH B 1062 JRST @@. ;LOOP 1063 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 1064 %XX: 0 1065 TGET 1066 MOVE 1,%XX ;GET STORED PC 1067 ANDI 1,-1 ;MASK PC BITS 1068 CAIE 1,%XX-2 ;WAS CORRECT PC STORED? 1069 STOP 1070 SOSE COUNTX ;LOOP TEST 1071 JEN @@1 ;DISMISS INTERRUPT 1072 CLRBTH> DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 11 DSKAH1 MAC 31-Mar-78 11:13 IOT TESTING SEQ 0037 1073 SUBTTL IOT TESTING 1074 1075 ;IF IOT HANGS - CHECK ARRT AND ARLT CLR 1076 ;AND OR AR SIGN SMEAR.. 1077 1078 ;TEST THE IOT'S 1079 030672 IOTXXX: 1080 1081 030672 IOTXX: 1082 030672 700 20 00 00 261600 IOT0: CLRAPR ;CLEAR APR 1083 030673 700 14 0 00 031577 CLRPI ;CLEAR PI 1084 030674 7 000 20 0 00 060160 CONO APR,60160 ;DISABLE SOFT,CLK,8080 1085 030675 264 00 0 00 040216 JSR TRPSET ;FILL THE TRAP LOCATIONS 1086 1087 030676 200 01 0 00 040236 IOT2: MOVE 1,[123456654321] ;CHECK CONI STOR THE CONTENTS OF "E" NOT SET OR 1088 030677 7 000 24 0 00 000001 CONI 1 ;SAC INH NOT SET - CONTENTS OF LOC 1 1089 030700 316 01 0 00 040236 CAMN 1,[123456654321] ;NOT MODIFIED 1090 STOP^ 1091 030701 254 04 0 00 030702 HALT .+1 ;INSTRUCTION FAILED REPLACE 1092 030702 254 00 0 00 030703 JRST .+1 ;WITH JRST BACK^ 1093 1094 030703 474 00 0 00 000000 IOT3: SETO ;CHECK SAC INH FOR 1095 030704 7 000 24 0 00 000001 CONI 1 ;CONI LOC 0 1096 030705 312 00 0 00 040237 CAME [-1] ;MODIFIED 1097 STOP^ 1098 030706 254 04 0 00 030707 HALT .+1 ;INSTRUCTION FAILED REPLACE 1099 030707 254 00 0 00 030710 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 12 DSKAH1 MAC 31-Mar-78 11:13 IOT TESTING SEQ 0038 1100 1101 TSET^ 1102 030710 %X=. ;DEFINE %X TO SAVE 1103 030710 201 00 0 00 030710 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1104 030711 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1105 030712 400 00 0 00 000000 IOT6: SETZ ;CONSZ FAILED TO SKIP 1106 030713 7 000 30 0 00 000000 CONSZ ;CHECK PC CLOCK ENABLE AND AD=0 ON IOT CONSZ 1107 STOP^ 1108 030714 254 04 0 00 030715 HALT .+1 ;INSTRUCTION FAILED REPLACE 1109 030715 254 00 0 00 030716 JRST .+1 ;WITH JRST BACK^ 1110 1111 030716 7 004 20 0 00 010000 IOT14: CONO PI,10000 ;CLR PI SYSTEM 1112 030717 7 000 20 0 00 000077 CONO 77 ;SET SOME CPA BITS 1113 030720 7 000 24 0 00 000000 CONI 0 ;IF FAILED EITHER CONO FAILED 1114 030721 336 00 0 00 000000 SKIPN 0 ;IO SET OR CONI FAILED READ 1115 STOP^ 1116 030722 254 04 0 00 030723 HALT .+1 ;INSTRUCTION FAILED REPLACE 1117 030723 254 00 0 00 030724 JRST .+1 ;WITH JRST BACK^ 1118 ;OR ARRT OR ARLT EN OR AR SIGN 1119 ;SMEAR OR CPA SELECT NOT ASSERTED DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 13 DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0039 1120 SUBTTL TEST APR FLAGS 1121 1122 030724 7 000 20 0 00 000000 IOT15: CONO ;APR CLOCK PIA FAILED EITHER 1123 030725 7 000 20 0 00 000001 CONO 1 ;TO SET OR BE READ 1124 030726 7 000 24 0 00 000000 CONI ;CHECK APR PIA 35 CLOCK 1125 030727 606 00 0 00 000001 TRNN 1 1126 STOP^ 1127 030730 254 04 0 00 030731 HALT .+1 ;INSTRUCTION FAILED REPLACE 1128 030731 254 00 0 00 030732 JRST .+1 ;WITH JRST BACK^ 1129 1130 030732 7 000 20 0 00 000000 IOT15A: CONO ;APR CLOCK PIA FAILED EITHER 1131 030733 7 000 20 0 00 000002 CONO 2 ;TO SET OR BE READ 1132 030734 7 000 24 0 00 000000 CONI ;CHECK APR PIA 34 CLOCK 1133 030735 606 00 0 00 000002 TRNN 2 1134 STOP^ 1135 030736 254 04 0 00 030737 HALT .+1 ;INSTRUCTION FAILED REPLACE 1136 030737 254 00 0 00 030740 JRST .+1 ;WITH JRST BACK^ 1137 1138 030740 7 000 20 0 00 000000 IOT16: CONO ;APR CLOCK PIA FAILED EITHER 1139 030741 7 000 20 0 00 000004 CONO 4 ;TO SET OR BE READ 1140 030742 7 000 24 0 00 000000 CONI ;CHECK APR PIA 33 CLOCK 1141 030743 606 00 0 00 000004 TRNN 4 ; 1142 STOP^ 1143 030744 254 04 0 00 030745 HALT .+1 ;INSTRUCTION FAILED REPLACE 1144 030745 254 00 0 00 030746 JRST .+1 ;WITH JRST BACK^ 1145 1146 030746 700 04 0 00 261600 IOT17: CLRAPR ;APR ERROR PIA FAILED EITHER 1147 030747 7 000 20 0 00 011000 CONO APR,LSPWRF ;TO SET OR BE READ 1148 030750 7 000 24 0 00 000000 CONI ;CHECK APR PIA 31 ERROR 1149 030751 606 00 0 00 001000 TRNN LPWRFL 1150 STOP^ 1151 030752 254 04 0 00 030753 HALT .+1 ;INSTRUCTION FAILED REPLACE 1152 030753 254 00 0 00 030754 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 14 DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0040 1153 030754 700 04 0 00 261600 IOT18: CLRAPR 1154 030755 7 000 20 0 00 010200 CONO APR,LSPAER 1155 030756 7 000 24 0 00 000000 CONI APR, 1156 030757 606 00 0 00 000200 TRNN LPARER 1157 STOP^ 1158 030760 254 04 0 00 030761 HALT .+1 ;INSTRUCTION FAILED REPLACE 1159 030761 254 00 0 00 030762 JRST .+1 ;WITH JRST BACK^ 1160 030762 700 04 0 00 261600 CLRAPR 1161 030763 7 000 20 0 00 010400 CONO APR,LSNXER 1162 030764 7 000 24 0 00 000000 CONI APR, 1163 030765 606 00 0 00 000400 TRNN LNXMER 1164 STOP^ 1165 030766 254 04 0 00 030767 HALT .+1 ;INSTRUCTION FAILED REPLACE 1166 030767 254 00 0 00 030770 JRST .+1 ;WITH JRST BACK^ 1167 030770 700 04 0 00 261600 CLRAPR 1168 030771 7 000 20 0 00 010100 CONO APR,LSPSFT 1169 030772 7 000 24 0 00 000000 CONI APR, 1170 030773 606 00 0 00 000100 TRNN LPSFTER 1171 STOP^ 1172 030774 254 04 0 00 030775 HALT .+1 ;INSTRUCTION FAILED REPLACE 1173 030775 254 00 0 00 030776 JRST .+1 ;WITH JRST BACK^ 1174 030776 700 04 0 00 261600 CLRAPR 1175 1176 030777 7 000 20 0 00 000001 IOT18A: CONO 1 1177 031000 7 000 20 0 00 000000 CONO 1178 031001 7 000 24 0 00 000000 CONI 1179 031002 602 00 0 00 000001 TRNE 1 1180 STOP^ 1181 031003 254 04 0 00 031004 HALT .+1 ;INSTRUCTION FAILED REPLACE 1182 031004 254 00 0 00 031005 JRST .+1 ;WITH JRST BACK^ 1183 031005 7 000 20 0 00 000002 IOT19: CONO 2 ;APR PIA 34 CLOCK 1184 031006 7 000 20 0 00 000000 CONO ;FAILED TO CLEAR 1185 031007 7 000 24 0 00 000000 CONI 1186 031010 602 00 0 00 000002 TRNE 2 1187 STOP^ 1188 031011 254 04 0 00 031012 HALT .+1 ;INSTRUCTION FAILED REPLACE 1189 031012 254 00 0 00 031013 JRST .+1 ;WITH JRST BACK^ 1190 1191 031013 7 000 20 0 00 000004 IOT20: CONO 4 ;APR PIA 33 CLOCK 1192 031014 7 000 20 0 00 000000 CONO ;FAILED TO CLEAR 1193 031015 7 000 24 0 00 000000 CONI 1194 031016 602 00 0 00 000004 TRNE 4 1195 STOP^ 1196 031017 254 04 0 00 031020 HALT .+1 ;INSTRUCTION FAILED REPLACE 1197 031020 254 00 0 00 031021 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 15 DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0041 1198 031021 7 000 20 0 00 011000 IOT22: CONO APR,LSPWRF ;APR PIA 31 ERROR 1199 031022 7 000 20 0 00 021000 CONO APR,LCPWRF ;FAILED TO CLEAR 1200 031023 7 000 24 0 00 000000 CONI 1201 031024 602 00 0 00 001000 TRNE LPWRFL 1202 STOP^ 1203 031025 254 04 0 00 031026 HALT .+1 ;INSTRUCTION FAILED REPLACE 1204 031026 254 00 0 00 031027 JRST .+1 ;WITH JRST BACK^ 1205 1206 031027 7 000 20 0 00 010200 CONO APR,LSPAER 1207 031030 7 000 20 0 00 020200 CONO APR,LCPAER 1208 031031 7 000 24 0 00 000000 CONI 1209 031032 602 00 0 00 000200 TRNE LPARER 1210 STOP^ 1211 031033 254 04 0 00 031034 HALT .+1 ;INSTRUCTION FAILED REPLACE 1212 031034 254 00 0 00 031035 JRST .+1 ;WITH JRST BACK^ 1213 031035 7 000 20 0 00 010400 CONO APR,LSNXER 1214 031036 7 000 20 0 00 020400 CONO APR,LCNXER 1215 031037 7 000 24 0 00 000000 CONI 1216 031040 602 00 0 00 000400 TRNE LNXMER 1217 STOP^ 1218 031041 254 04 0 00 031042 HALT .+1 ;INSTRUCTION FAILED REPLACE 1219 031042 254 00 0 00 031043 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 16 DSKAH1 MAC 31-Mar-78 11:13 TEST APR FLAGS SEQ 0042 1220 TBOTH^ 1221 TGET^ 1222 031043 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1223 031044 302 00 0 00 030710 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1224 STOP2^^ 1225 031045 254 04 0 00 031046 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1226 031046 254 00 0 00 031047 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1227 TSET^^ 1228 031047 %X=. ;DEFINE %X TO SAVE 1229 031047 201 00 0 00 031047 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1230 031050 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1231 031051 7 000 20 0 00 000007 IOT24: CONO 7 ;SET SOME FLAGS 1232 031052 7 000 34 0 00 000000 CONSO ;CONSO FAILED CK PC CLOCK ENABLE 1233 031053 334 00 0 00 000000 SKIPA ;INH 1234 STOP^ 1235 031054 254 04 0 00 031055 HALT .+1 ;INSTRUCTION FAILED REPLACE 1236 031055 254 00 0 00 031056 JRST .+1 ;WITH JRST BACK^ 1237 1238 TBOTH^ 1239 TGET^ 1240 031056 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1241 031057 302 00 0 00 031047 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1242 STOP2^^ 1243 031060 254 04 0 00 031061 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1244 031061 254 00 0 00 031062 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1245 TSET^^ 1246 031062 %X=. ;DEFINE %X TO SAVE 1247 031062 201 00 0 00 031062 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1248 031063 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1249 031064 7 000 20 0 00 000007 IOT25: CONO 7 ;SET SOME FLAGS 1250 031065 7 000 24 0 00 000000 CONI 1251 031066 606 00 0 00 000007 TRNN 7 ;CONSO FAILED CH PC CLOCK ENABLE 1252 STOP^ 1253 031067 254 04 0 00 031070 HALT .+1 ;INSTRUCTION FAILED REPLACE 1254 031070 254 00 0 00 031071 JRST .+1 ;WITH JRST BACK^ 1255 1256 TBOTH^ 1257 TGET^ 1258 031071 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1259 031072 302 00 0 00 031062 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1260 STOP2^^ 1261 031073 254 04 0 00 031074 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1262 031074 254 00 0 00 031075 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1263 TSET^^ 1264 031075 %X=. ;DEFINE %X TO SAVE 1265 031075 201 00 0 00 031075 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1266 031076 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1267 031077 7 000 20 0 00 000007 IOT26: CONO 7 ;CONSZ FAILED 1268 031100 7 000 24 0 00 000000 CONI 1269 031101 602 00 0 00 000007 TRNE 7 ;CK PC CLOCK ENABLE IF AD=0 1270 031102 334 00 0 00 000000 SKIPA ;AND IOT TIME 1271 STOP^ 1272 031103 254 04 0 00 031104 HALT .+1 ;INSTRUCTION FAILED REPLACE 1273 031104 254 00 0 00 031105 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 17 DSKAH1 MAC 31-Mar-78 11:13 TEST PI FLAGS SEQ 0043 1274 SUBTTL TEST PI FLAGS 1275 1276 031105 7 000 20 0 00 000007 IOT33B: CONO 7 ;CONO PI MODIFIED 1277 031106 7 004 20 0 00 000000 CONO PI,0 ;CPU AS A DEVICE 1278 031107 7 000 24 0 00 000000 CONI 1279 031110 606 00 0 00 000007 TRNN 7 ;CPA SELECT IS CONFUSED 1280 STOP^ 1281 031111 254 04 0 00 031112 HALT .+1 ;INSTRUCTION FAILED REPLACE 1282 031112 254 00 0 00 031113 JRST .+1 ;WITH JRST BACK^ 1283 031113 7 000 20 0 00 000000 CONO 0 ;RESET BITS 1284 1285 031114 7 004 20 0 00 000200 IOT34: CONO PI,200 ;CHK WHY PI ON 1286 031115 7 004 24 0 00 000000 CONI PI, ;FLOP NOT SET 1287 031116 606 00 0 00 000200 TRNN 200 1288 STOP^ 1289 031117 254 04 0 00 031120 HALT .+1 ;INSTRUCTION FAILED REPLACE 1290 031120 254 00 0 00 031121 JRST .+1 ;WITH JRST BACK^ 1291 1292 031121 7 004 20 0 00 000200 IOT35: CONO PI,200 ;CHK WHY PI ON 1293 031122 7 004 20 0 00 000400 CONO PI,400 ;NOT CLEARED 1294 031123 7 004 24 0 00 000000 CONI PI, ; 1295 031124 602 00 0 00 000200 TRNE 200 1296 STOP^ 1297 031125 254 04 0 00 031126 HALT .+1 ;INSTRUCTION FAILED REPLACE 1298 031126 254 00 0 00 031127 JRST .+1 ;WITH JRST BACK^ 1299 1300 031127 IOT36: DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 18 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0044 1301 SUBTTL BASIC PI SYSTEM TESTING 1302 1303 ;BEGIN TESTING THE PI SYSTEM 1304 BLURB^ 1305 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 1306 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 1307 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 1308 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 1309 ^ 1310 ;AND THE PROGRAM WILL HALT POINTING TO THE INTERUPTED ADRESS. 1311 031127 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 1312 1313 1314 031130 7 004 20 0 00 002001 IOT38: CONO PI,2001 ;PI CHANNEL 7 1315 031131 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1316 031132 606 00 0 00 000001 TRNN 1 ; 1317 STOP^ 1318 031133 254 04 0 00 031134 HALT .+1 ;INSTRUCTION FAILED REPLACE 1319 031134 254 00 0 00 031135 JRST .+1 ;WITH JRST BACK^ 1320 1321 031135 7 004 20 0 00 002001 IOT39: CONO PI,2001 ;PI CHANNEL 7 1322 031136 7 004 20 0 00 001001 CONO PI,1001 ;FAILED TO CLEAR 1323 031137 7 004 24 0 00 000000 CONI PI, 1324 031140 602 00 0 00 000001 TRNE 1 1325 STOP^ 1326 031141 254 04 0 00 031142 HALT .+1 ;INSTRUCTION FAILED REPLACE 1327 031142 254 00 0 00 031143 JRST .+1 ;WITH JRST BACK^ 1328 1329 031143 7 004 20 0 00 002002 IOT40: CONO PI,2002 ;PI CHANNEL 6 1330 031144 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1331 031145 606 00 0 00 000002 TRNN 2 1332 STOP^ 1333 031146 254 04 0 00 031147 HALT .+1 ;INSTRUCTION FAILED REPLACE 1334 031147 254 00 0 00 031150 JRST .+1 ;WITH JRST BACK^ 1335 1336 031150 7 004 20 0 00 002002 IOT41: CONO PI,2002 ;PI CHANNEL 6 1337 031151 7 004 20 0 00 001002 CONO PI,1002 ;FAILED TO CLEAR 1338 031152 7 004 24 0 00 000000 CONI PI, 1339 031153 602 00 0 00 000002 TRNE 2 1340 STOP^ 1341 031154 254 04 0 00 031155 HALT .+1 ;INSTRUCTION FAILED REPLACE 1342 031155 254 00 0 00 031156 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 19 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0045 1343 031156 7 004 20 0 00 002004 IOT42: CONO PI,2004 ;PI CHANNEL 5 1344 031157 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1345 031160 606 00 0 00 000004 TRNN 4 1346 STOP^ 1347 031161 254 04 0 00 031162 HALT .+1 ;INSTRUCTION FAILED REPLACE 1348 031162 254 00 0 00 031163 JRST .+1 ;WITH JRST BACK^ 1349 1350 031163 7 004 20 0 00 002004 IOT43: CONO PI,2004 ;PI CHANNEL 5 1351 031164 7 004 20 0 00 001004 CONO PI,1004 ;FAILED TO CLEAR 1352 031165 7 004 24 0 00 000000 CONI PI, 1353 031166 602 00 0 00 000004 TRNE 4 1354 STOP^ 1355 031167 254 04 0 00 031170 HALT .+1 ;INSTRUCTION FAILED REPLACE 1356 031170 254 00 0 00 031171 JRST .+1 ;WITH JRST BACK^ 1357 1358 031171 7 004 20 0 00 002010 IOT44: CONO PI,2010 ;PI CHANNEL 4 1359 031172 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1360 031173 606 00 0 00 000010 TRNN 10 1361 STOP^ 1362 031174 254 04 0 00 031175 HALT .+1 ;INSTRUCTION FAILED REPLACE 1363 031175 254 00 0 00 031176 JRST .+1 ;WITH JRST BACK^ 1364 1365 031176 7 004 20 0 00 002010 IOT45: CONO PI,2010 ;PI CHAN 4 1366 031177 7 004 20 0 00 001010 CONO PI,1010 ;FAILED TO CLEAR 1367 031200 7 004 24 0 00 000000 CONI PI, 1368 031201 602 00 0 00 000010 TRNE 10 1369 STOP^ 1370 031202 254 04 0 00 031203 HALT .+1 ;INSTRUCTION FAILED REPLACE 1371 031203 254 00 0 00 031204 JRST .+1 ;WITH JRST BACK^ 1372 1373 031204 7 004 20 0 00 002020 IOT46: CONO PI,2020 ;PI CHAN 3 1374 031205 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1375 031206 606 00 0 00 000020 TRNN 20 1376 STOP^ 1377 031207 254 04 0 00 031210 HALT .+1 ;INSTRUCTION FAILED REPLACE 1378 031210 254 00 0 00 031211 JRST .+1 ;WITH JRST BACK^ 1379 1380 031211 7 004 20 0 00 002020 IOT47: CONO PI,2020 ;PI CHAN 3 1381 031212 7 004 20 0 00 001020 CONO PI,1020 ;FAILED TO CLEAR 1382 031213 7 004 24 0 00 000000 CONI PI, 1383 031214 602 00 0 00 000010 TRNE 10 1384 STOP^ 1385 031215 254 04 0 00 031216 HALT .+1 ;INSTRUCTION FAILED REPLACE 1386 031216 254 00 0 00 031217 JRST .+1 ;WITH JRST BACK^ 1387 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 20 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0046 1388 031217 7 004 20 0 00 002040 IOT48: CONO PI,2040 ;PI CHAN 2 1389 031220 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1390 031221 606 00 0 00 000040 TRNN 40 1391 STOP^ 1392 031222 254 04 0 00 031223 HALT .+1 ;INSTRUCTION FAILED REPLACE 1393 031223 254 00 0 00 031224 JRST .+1 ;WITH JRST BACK^ 1394 1395 031224 7 004 20 0 00 002040 IOT49: CONO PI,2040 ;PI CHAN 2 1396 031225 7 004 20 0 00 001040 CONO PI,1040 ;FAILED TO CLR 1397 031226 7 004 24 0 00 000000 CONI PI, 1398 031227 602 00 0 00 000040 TRNE 40 1399 STOP^ 1400 031230 254 04 0 00 031231 HALT .+1 ;INSTRUCTION FAILED REPLACE 1401 031231 254 00 0 00 031232 JRST .+1 ;WITH JRST BACK^ 1402 1403 031232 7 004 20 0 00 002100 IOT50: CONO PI,2100 ;PI CHAN 1 1404 031233 7 004 24 0 00 000000 CONI PI, ;FAILED TO SET 1405 031234 606 00 0 00 000100 TRNN 100 1406 STOP^ 1407 031235 254 04 0 00 031236 HALT .+1 ;INSTRUCTION FAILED REPLACE 1408 031236 254 00 0 00 031237 JRST .+1 ;WITH JRST BACK^ 1409 1410 031237 7 004 20 0 00 002100 IOT51: CONO PI,2100 ;PI CHAN 1 1411 031240 7 004 20 0 00 001100 CONO PI,1100 ;FAILED TO CLEAR 1412 031241 7 004 24 0 00 000000 CONI PI, 1413 031242 602 00 0 00 000100 TRNE 100 1414 STOP^ 1415 031243 254 04 0 00 031244 HALT .+1 ;INSTRUCTION FAILED REPLACE 1416 031244 254 00 0 00 031245 JRST .+1 ;WITH JRST BACK^ 1417 1418 031245 255 00 0 00 000000 IOTXYZ: JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0047 1419 040000 X=40000 1420 BLURB^ 1421 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 1422 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 1423 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 1424 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 1425 ^ 1426 031246 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 1427 PIOT00: REPEAT 7, 1428 < PINO X 1429 X=X_-1> 1430 PINO X^ 1431 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1432 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1433 1434 TSET^ 1435 031247 %X=. ;DEFINE %X TO SAVE 1436 031247 201 00 0 00 031247 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1437 031250 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1438 031251 ..0001: CLRBTH^ 1439 031251 700 04 0 00 261600 CLRAPR 1440 031252 700 14 0 00 031577 CLRPI^ 1441 031253 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1442 WATINT^ 1443 031254 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1444 031255 367 13 0 00 031255 SOJG 13,. ;AND WAIT^ 1445 031256 7 004 30 0 00 040000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1446 STOP^ 1447 031257 254 04 0 00 031260 HALT .+1 ;INSTRUCTION FAILED REPLACE 1448 031260 254 00 0 00 031261 JRST .+1 ;WITH JRST BACK^ 1449 TGET^^ 1450 031261 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1451 031262 302 00 0 00 031247 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1452 STOP2^^ 1453 031263 254 04 0 00 031264 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1454 031264 254 00 0 00 031265 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1455 020000 X=X_-1 1456 PINO X^ 1457 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1458 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1459 1460 TSET^ 1461 031265 %X=. ;DEFINE %X TO SAVE 1462 031265 201 00 0 00 031265 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1463 031266 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1464 031267 ..0002: CLRBTH^ 1465 031267 700 04 0 00 261600 CLRAPR 1466 031270 700 14 0 00 031577 CLRPI^ 1467 031271 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1468 WATINT^ 1469 031272 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1470 031273 367 13 0 00 031273 SOJG 13,. ;AND WAIT^ 1471 031274 7 004 30 0 00 020000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1472 STOP^ 1473 031275 254 04 0 00 031276 HALT .+1 ;INSTRUCTION FAILED REPLACE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-1 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0048 1474 031276 254 00 0 00 031277 JRST .+1 ;WITH JRST BACK^ 1475 TGET^^ 1476 031277 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1477 031300 302 00 0 00 031265 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1478 STOP2^^ 1479 031301 254 04 0 00 031302 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1480 031302 254 00 0 00 031303 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1481 010000 X=X_-1 1482 PINO X^ 1483 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1484 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1485 1486 TSET^ 1487 031303 %X=. ;DEFINE %X TO SAVE 1488 031303 201 00 0 00 031303 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1489 031304 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1490 031305 ..0003: CLRBTH^ 1491 031305 700 04 0 00 261600 CLRAPR 1492 031306 700 14 0 00 031577 CLRPI^ 1493 031307 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1494 WATINT^ 1495 031310 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1496 031311 367 13 0 00 031311 SOJG 13,. ;AND WAIT^ 1497 031312 7 004 30 0 00 010000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1498 STOP^ 1499 031313 254 04 0 00 031314 HALT .+1 ;INSTRUCTION FAILED REPLACE 1500 031314 254 00 0 00 031315 JRST .+1 ;WITH JRST BACK^ 1501 TGET^^ 1502 031315 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1503 031316 302 00 0 00 031303 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1504 STOP2^^ 1505 031317 254 04 0 00 031320 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1506 031320 254 00 0 00 031321 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1507 004000 X=X_-1 1508 PINO X^ 1509 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1510 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1511 1512 TSET^ 1513 031321 %X=. ;DEFINE %X TO SAVE 1514 031321 201 00 0 00 031321 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1515 031322 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1516 031323 ..0004: CLRBTH^ 1517 031323 700 04 0 00 261600 CLRAPR 1518 031324 700 14 0 00 031577 CLRPI^ 1519 031325 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1520 WATINT^ 1521 031326 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1522 031327 367 13 0 00 031327 SOJG 13,. ;AND WAIT^ 1523 031330 7 004 30 0 00 004000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1524 STOP^ 1525 031331 254 04 0 00 031332 HALT .+1 ;INSTRUCTION FAILED REPLACE 1526 031332 254 00 0 00 031333 JRST .+1 ;WITH JRST BACK^ 1527 TGET^^ 1528 031333 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-2 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0049 1529 031334 302 00 0 00 031321 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1530 STOP2^^ 1531 031335 254 04 0 00 031336 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1532 031336 254 00 0 00 031337 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1533 002000 X=X_-1 1534 PINO X^ 1535 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1536 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1537 1538 TSET^ 1539 031337 %X=. ;DEFINE %X TO SAVE 1540 031337 201 00 0 00 031337 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1541 031340 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1542 031341 ..0005: CLRBTH^ 1543 031341 700 04 0 00 261600 CLRAPR 1544 031342 700 14 0 00 031577 CLRPI^ 1545 031343 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1546 WATINT^ 1547 031344 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1548 031345 367 13 0 00 031345 SOJG 13,. ;AND WAIT^ 1549 031346 7 004 30 0 00 002000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1550 STOP^ 1551 031347 254 04 0 00 031350 HALT .+1 ;INSTRUCTION FAILED REPLACE 1552 031350 254 00 0 00 031351 JRST .+1 ;WITH JRST BACK^ 1553 TGET^^ 1554 031351 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1555 031352 302 00 0 00 031337 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1556 STOP2^^ 1557 031353 254 04 0 00 031354 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1558 031354 254 00 0 00 031355 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1559 001000 X=X_-1 1560 PINO X^ 1561 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1562 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1563 1564 TSET^ 1565 031355 %X=. ;DEFINE %X TO SAVE 1566 031355 201 00 0 00 031355 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1567 031356 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1568 031357 ..0006: CLRBTH^ 1569 031357 700 04 0 00 261600 CLRAPR 1570 031360 700 14 0 00 031577 CLRPI^ 1571 031361 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1572 WATINT^ 1573 031362 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1574 031363 367 13 0 00 031363 SOJG 13,. ;AND WAIT^ 1575 031364 7 004 30 0 00 001000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1576 STOP^ 1577 031365 254 04 0 00 031366 HALT .+1 ;INSTRUCTION FAILED REPLACE 1578 031366 254 00 0 00 031367 JRST .+1 ;WITH JRST BACK^ 1579 TGET^^ 1580 031367 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1581 031370 302 00 0 00 031355 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1582 STOP2^^ 1583 031371 254 04 0 00 031372 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 21-3 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0050 1584 031372 254 00 0 00 031373 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1585 000400 X=X_-1 1586 PINO X^ 1587 ;ENABLE THE PI SYSTEM. AND EXPECT NO INTERRUPTS. THEN TEST THAT THE 1588 ;HOLD FLOP FOR EACH CHANNEL IS NOT SET. 1589 1590 TSET^ 1591 031373 %X=. ;DEFINE %X TO SAVE 1592 031373 201 00 0 00 031373 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1593 031374 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1594 031375 ..0007: CLRBTH^ 1595 031375 700 04 0 00 261600 CLRAPR 1596 031376 700 14 0 00 031577 CLRPI^ 1597 031377 7 004 20 0 00 000200 CONO PI,PION ;ENABLE PI AND ,EXPECT NO INTERRUPTS 1598 WATINT^ 1599 031400 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1600 031401 367 13 0 00 031401 SOJG 13,. ;AND WAIT^ 1601 031402 7 004 30 0 00 000400 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1602 STOP^ 1603 031403 254 04 0 00 031404 HALT .+1 ;INSTRUCTION FAILED REPLACE 1604 031404 254 00 0 00 031405 JRST .+1 ;WITH JRST BACK^ 1605 TGET^^ 1606 031405 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1607 031406 302 00 0 00 031373 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1608 STOP2^^ 1609 031407 254 04 0 00 031410 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1610 031410 254 00 0 00 031411 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1611 000200 X=X_-1 1612 031411 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0051 1613 BLURB^ 1614 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 1615 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 1616 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 1617 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 1618 ^ 1619 1620 031412 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 1621 040000 X=40000 1622 000100 Y=100 1623 031413 PIOT01: 1624 REPEAT 7,< 1625 PIYES Y,X 1626 X=X_-1 1627 Y=Y_-1 1628 > 1629 1630 PIYES Y,X^ 1631 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1632 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1633 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1634 1635 TSET^ 1636 031413 %X=. ;DEFINE %X TO SAVE 1637 031413 201 00 0 00 031413 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1638 031414 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1639 031415 ..0010: CLRBTH^ 1640 031415 700 04 0 00 261600 CLRAPR 1641 031416 700 14 0 00 031577 CLRPI^ 1642 031417 7 004 20 0 00 004100 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1643 WATINT^ 1644 031420 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1645 031421 367 13 0 00 031421 SOJG 13,. ;AND WAIT^ 1646 031422 7 004 30 0 00 040000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1647 STOP^ 1648 031423 254 04 0 00 031424 HALT .+1 ;INSTRUCTION FAILED REPLACE 1649 031424 254 00 0 00 031425 JRST .+1 ;WITH JRST BACK^ 1650 TGET^^ 1651 031425 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1652 031426 302 00 0 00 031413 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1653 STOP2^^ 1654 031427 254 04 0 00 031430 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1655 031430 254 00 0 00 031431 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1656 020000 X=X_-1 1657 000040 Y=Y_-1 1658 1659 1660 PIYES Y,X^ 1661 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1662 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1663 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1664 1665 TSET^ 1666 031431 %X=. ;DEFINE %X TO SAVE 1667 031431 201 00 0 00 031431 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-1 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0052 1668 031432 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1669 031433 ..0011: CLRBTH^ 1670 031433 700 04 0 00 261600 CLRAPR 1671 031434 700 14 0 00 031577 CLRPI^ 1672 031435 7 004 20 0 00 004040 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1673 WATINT^ 1674 031436 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1675 031437 367 13 0 00 031437 SOJG 13,. ;AND WAIT^ 1676 031440 7 004 30 0 00 020000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1677 STOP^ 1678 031441 254 04 0 00 031442 HALT .+1 ;INSTRUCTION FAILED REPLACE 1679 031442 254 00 0 00 031443 JRST .+1 ;WITH JRST BACK^ 1680 TGET^^ 1681 031443 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1682 031444 302 00 0 00 031431 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1683 STOP2^^ 1684 031445 254 04 0 00 031446 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1685 031446 254 00 0 00 031447 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1686 010000 X=X_-1 1687 000020 Y=Y_-1 1688 1689 1690 PIYES Y,X^ 1691 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1692 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1693 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1694 1695 TSET^ 1696 031447 %X=. ;DEFINE %X TO SAVE 1697 031447 201 00 0 00 031447 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1698 031450 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1699 031451 ..0012: CLRBTH^ 1700 031451 700 04 0 00 261600 CLRAPR 1701 031452 700 14 0 00 031577 CLRPI^ 1702 031453 7 004 20 0 00 004020 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1703 WATINT^ 1704 031454 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1705 031455 367 13 0 00 031455 SOJG 13,. ;AND WAIT^ 1706 031456 7 004 30 0 00 010000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1707 STOP^ 1708 031457 254 04 0 00 031460 HALT .+1 ;INSTRUCTION FAILED REPLACE 1709 031460 254 00 0 00 031461 JRST .+1 ;WITH JRST BACK^ 1710 TGET^^ 1711 031461 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1712 031462 302 00 0 00 031447 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1713 STOP2^^ 1714 031463 254 04 0 00 031464 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1715 031464 254 00 0 00 031465 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1716 004000 X=X_-1 1717 000010 Y=Y_-1 1718 1719 1720 PIYES Y,X^ 1721 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1722 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-2 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0053 1723 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1724 1725 TSET^ 1726 031465 %X=. ;DEFINE %X TO SAVE 1727 031465 201 00 0 00 031465 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1728 031466 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1729 031467 ..0013: CLRBTH^ 1730 031467 700 04 0 00 261600 CLRAPR 1731 031470 700 14 0 00 031577 CLRPI^ 1732 031471 7 004 20 0 00 004010 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1733 WATINT^ 1734 031472 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1735 031473 367 13 0 00 031473 SOJG 13,. ;AND WAIT^ 1736 031474 7 004 30 0 00 004000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1737 STOP^ 1738 031475 254 04 0 00 031476 HALT .+1 ;INSTRUCTION FAILED REPLACE 1739 031476 254 00 0 00 031477 JRST .+1 ;WITH JRST BACK^ 1740 TGET^^ 1741 031477 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1742 031500 302 00 0 00 031465 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1743 STOP2^^ 1744 031501 254 04 0 00 031502 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1745 031502 254 00 0 00 031503 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1746 002000 X=X_-1 1747 000004 Y=Y_-1 1748 1749 1750 PIYES Y,X^ 1751 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1752 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1753 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1754 1755 TSET^ 1756 031503 %X=. ;DEFINE %X TO SAVE 1757 031503 201 00 0 00 031503 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1758 031504 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1759 031505 ..0014: CLRBTH^ 1760 031505 700 04 0 00 261600 CLRAPR 1761 031506 700 14 0 00 031577 CLRPI^ 1762 031507 7 004 20 0 00 004004 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1763 WATINT^ 1764 031510 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1765 031511 367 13 0 00 031511 SOJG 13,. ;AND WAIT^ 1766 031512 7 004 30 0 00 002000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1767 STOP^ 1768 031513 254 04 0 00 031514 HALT .+1 ;INSTRUCTION FAILED REPLACE 1769 031514 254 00 0 00 031515 JRST .+1 ;WITH JRST BACK^ 1770 TGET^^ 1771 031515 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1772 031516 302 00 0 00 031503 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1773 STOP2^^ 1774 031517 254 04 0 00 031520 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1775 031520 254 00 0 00 031521 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1776 001000 X=X_-1 1777 000002 Y=Y_-1 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-3 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0054 1778 1779 1780 PIYES Y,X^ 1781 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1782 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1783 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1784 1785 TSET^ 1786 031521 %X=. ;DEFINE %X TO SAVE 1787 031521 201 00 0 00 031521 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1788 031522 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1789 031523 ..0015: CLRBTH^ 1790 031523 700 04 0 00 261600 CLRAPR 1791 031524 700 14 0 00 031577 CLRPI^ 1792 031525 7 004 20 0 00 004002 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1793 WATINT^ 1794 031526 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1795 031527 367 13 0 00 031527 SOJG 13,. ;AND WAIT^ 1796 031530 7 004 30 0 00 001000 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1797 STOP^ 1798 031531 254 04 0 00 031532 HALT .+1 ;INSTRUCTION FAILED REPLACE 1799 031532 254 00 0 00 031533 JRST .+1 ;WITH JRST BACK^ 1800 TGET^^ 1801 031533 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1802 031534 302 00 0 00 031521 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1803 STOP2^^ 1804 031535 254 04 0 00 031536 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1805 031536 254 00 0 00 031537 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1806 000400 X=X_-1 1807 000001 Y=Y_-1 1808 1809 1810 PIYES Y,X^ 1811 ;SET REQUESTS FOR EACH CHANNEL BUT DO NOT SET PI ACTIVE. 1812 ;INTERRUPTS SHOULD NOT OCCUR, AND THE INTERRUPT IN PROGRESS 1813 ;FLAG SHOULD NOT BE SET FOR THE CHANNEL BEING TESTED 1814 1815 TSET^ 1816 031537 %X=. ;DEFINE %X TO SAVE 1817 031537 201 00 0 00 031537 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1818 031540 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1819 031541 ..0016: CLRBTH^ 1820 031541 700 04 0 00 261600 CLRAPR 1821 031542 700 14 0 00 031577 CLRPI^ 1822 031543 7 004 20 0 00 004001 CONO PI,REQSET+Y ;SET CHANNEL REQUEST BUT NOT ACTIVE 1823 WATINT^ 1824 031544 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1825 031545 367 13 0 00 031545 SOJG 13,. ;AND WAIT^ 1826 031546 7 004 30 0 00 000400 CONSZ PI,X ;CHECK WHY INT. IN PROGRESS IS SET. 1827 STOP^ 1828 031547 254 04 0 00 031550 HALT .+1 ;INSTRUCTION FAILED REPLACE 1829 031550 254 00 0 00 031551 JRST .+1 ;WITH JRST BACK^ 1830 TGET^^ 1831 031551 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1832 031552 302 00 0 00 031537 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 22-4 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0055 1833 STOP2^^ 1834 031553 254 04 0 00 031554 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1835 031554 254 00 0 00 031555 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1836 000200 X=X_-1 1837 000000 Y=Y_-1 1838 1839 031555 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0056 1840 BLURB^ 1841 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 1842 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 1843 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 1844 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 1845 ^ 1846 1847 031556 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 1848 000100 X=100 1849 031557 PIOT02: 1850 REPEAT 7,< 1851 PIONOF X 1852 X=X_-1 1853 > 1854 1855 PIONOF X^ 1856 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 1857 ;AND THAT AN INTERUPT DOES NOT OCCUR 1858 1859 BLURB1^ 1860 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 1861 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 1862 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 1863 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 1864 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 1865 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 1866 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 1867 ^ 1868 1869 TSET^ 1870 031557 %X=. ;DEFINE %X TO SAVE 1871 031557 201 00 0 00 031557 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1872 031560 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1873 031561 ..0017: CLRBTH^ 1874 031561 700 04 0 00 261600 CLRAPR 1875 031562 700 14 0 00 031577 CLRPI^ 1876 031563 7 004 20 0 00 004100 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 1877 031564 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 1878 031565 7 004 20 0 00 010100 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 1879 WATINT^ 1880 031566 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1881 031567 367 13 0 00 031567 SOJG 13,. ;AND WAIT^ 1882 031570 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 1883 STOP^ 1884 031571 254 04 0 00 031572 HALT .+1 ;INSTRUCTION FAILED REPLACE 1885 031572 254 00 0 00 031573 JRST .+1 ;WITH JRST BACK^ 1886 TGET^^ 1887 031573 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1888 031574 302 00 0 00 031557 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1889 STOP2^^ 1890 031575 254 04 0 00 031576 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1891 031576 254 00 0 00 031577 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1892 000040 X=X_-1 1893 1894 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-1 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0057 1895 PIONOF X^ 1896 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 1897 ;AND THAT AN INTERUPT DOES NOT OCCUR 1898 1899 BLURB1^ 1900 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 1901 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 1902 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 1903 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 1904 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 1905 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 1906 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 1907 ^ 1908 1909 TSET^ 1910 031577 %X=. ;DEFINE %X TO SAVE 1911 031577 201 00 0 00 031577 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1912 031600 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1913 031601 ..0020: CLRBTH^ 1914 031601 700 04 0 00 261600 CLRAPR 1915 031602 700 14 0 00 031577 CLRPI^ 1916 031603 7 004 20 0 00 004040 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 1917 031604 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 1918 031605 7 004 20 0 00 010040 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 1919 WATINT^ 1920 031606 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1921 031607 367 13 0 00 031607 SOJG 13,. ;AND WAIT^ 1922 031610 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 1923 STOP^ 1924 031611 254 04 0 00 031612 HALT .+1 ;INSTRUCTION FAILED REPLACE 1925 031612 254 00 0 00 031613 JRST .+1 ;WITH JRST BACK^ 1926 TGET^^ 1927 031613 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1928 031614 302 00 0 00 031577 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1929 STOP2^^ 1930 031615 254 04 0 00 031616 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1931 031616 254 00 0 00 031617 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1932 000020 X=X_-1 1933 1934 1935 PIONOF X^ 1936 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 1937 ;AND THAT AN INTERUPT DOES NOT OCCUR 1938 1939 BLURB1^ 1940 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 1941 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 1942 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 1943 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 1944 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 1945 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 1946 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 1947 ^ 1948 1949 TSET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-2 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0058 1950 031617 %X=. ;DEFINE %X TO SAVE 1951 031617 201 00 0 00 031617 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1952 031620 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1953 031621 ..0021: CLRBTH^ 1954 031621 700 04 0 00 261600 CLRAPR 1955 031622 700 14 0 00 031577 CLRPI^ 1956 031623 7 004 20 0 00 004020 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 1957 031624 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 1958 031625 7 004 20 0 00 010020 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 1959 WATINT^ 1960 031626 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 1961 031627 367 13 0 00 031627 SOJG 13,. ;AND WAIT^ 1962 031630 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 1963 STOP^ 1964 031631 254 04 0 00 031632 HALT .+1 ;INSTRUCTION FAILED REPLACE 1965 031632 254 00 0 00 031633 JRST .+1 ;WITH JRST BACK^ 1966 TGET^^ 1967 031633 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 1968 031634 302 00 0 00 031617 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 1969 STOP2^^ 1970 031635 254 04 0 00 031636 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 1971 031636 254 00 0 00 031637 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 1972 000010 X=X_-1 1973 1974 1975 PIONOF X^ 1976 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 1977 ;AND THAT AN INTERUPT DOES NOT OCCUR 1978 1979 BLURB1^ 1980 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 1981 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 1982 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 1983 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 1984 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 1985 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 1986 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 1987 ^ 1988 1989 TSET^ 1990 031637 %X=. ;DEFINE %X TO SAVE 1991 031637 201 00 0 00 031637 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 1992 031640 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 1993 031641 ..0022: CLRBTH^ 1994 031641 700 04 0 00 261600 CLRAPR 1995 031642 700 14 0 00 031577 CLRPI^ 1996 031643 7 004 20 0 00 004010 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 1997 031644 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 1998 031645 7 004 20 0 00 010010 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 1999 WATINT^ 2000 031646 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 2001 031647 367 13 0 00 031647 SOJG 13,. ;AND WAIT^ 2002 031650 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 2003 STOP^ 2004 031651 254 04 0 00 031652 HALT .+1 ;INSTRUCTION FAILED REPLACE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-3 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0059 2005 031652 254 00 0 00 031653 JRST .+1 ;WITH JRST BACK^ 2006 TGET^^ 2007 031653 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2008 031654 302 00 0 00 031637 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2009 STOP2^^ 2010 031655 254 04 0 00 031656 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2011 031656 254 00 0 00 031657 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2012 000004 X=X_-1 2013 2014 2015 PIONOF X^ 2016 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 2017 ;AND THAT AN INTERUPT DOES NOT OCCUR 2018 2019 BLURB1^ 2020 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 2021 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 2022 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 2023 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 2024 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 2025 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 2026 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 2027 ^ 2028 2029 TSET^ 2030 031657 %X=. ;DEFINE %X TO SAVE 2031 031657 201 00 0 00 031657 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2032 031660 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2033 031661 ..0023: CLRBTH^ 2034 031661 700 04 0 00 261600 CLRAPR 2035 031662 700 14 0 00 031577 CLRPI^ 2036 031663 7 004 20 0 00 004004 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 2037 031664 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 2038 031665 7 004 20 0 00 010004 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 2039 WATINT^ 2040 031666 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 2041 031667 367 13 0 00 031667 SOJG 13,. ;AND WAIT^ 2042 031670 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 2043 STOP^ 2044 031671 254 04 0 00 031672 HALT .+1 ;INSTRUCTION FAILED REPLACE 2045 031672 254 00 0 00 031673 JRST .+1 ;WITH JRST BACK^ 2046 TGET^^ 2047 031673 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2048 031674 302 00 0 00 031657 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2049 STOP2^^ 2050 031675 254 04 0 00 031676 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2051 031676 254 00 0 00 031677 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2052 000002 X=X_-1 2053 2054 2055 PIONOF X^ 2056 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 2057 ;AND THAT AN INTERUPT DOES NOT OCCUR 2058 2059 BLURB1^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-4 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0060 2060 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 2061 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 2062 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 2063 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 2064 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 2065 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 2066 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 2067 ^ 2068 2069 TSET^ 2070 031677 %X=. ;DEFINE %X TO SAVE 2071 031677 201 00 0 00 031677 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2072 031700 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2073 031701 ..0024: CLRBTH^ 2074 031701 700 04 0 00 261600 CLRAPR 2075 031702 700 14 0 00 031577 CLRPI^ 2076 031703 7 004 20 0 00 004002 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 2077 031704 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 2078 031705 7 004 20 0 00 010002 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 2079 WATINT^ 2080 031706 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 2081 031707 367 13 0 00 031707 SOJG 13,. ;AND WAIT^ 2082 031710 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 2083 STOP^ 2084 031711 254 04 0 00 031712 HALT .+1 ;INSTRUCTION FAILED REPLACE 2085 031712 254 00 0 00 031713 JRST .+1 ;WITH JRST BACK^ 2086 TGET^^ 2087 031713 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2088 031714 302 00 0 00 031677 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2089 STOP2^^ 2090 031715 254 04 0 00 031716 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2091 031716 254 00 0 00 031717 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2092 000001 X=X_-1 2093 2094 2095 PIONOF X^ 2096 ;CHECK THAT PICLR CLEARS THE REQUEST FLOP 2097 ;AND THAT AN INTERUPT DOES NOT OCCUR 2098 2099 BLURB1^ 2100 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH EXECUTES A HALT 2101 ;POINTING TO THE CHANNEL WHICH CAUSED THE REQUEST. 2102 ;OR THE CHANNEL WHICH CAUSED THE INCORRECT INTERRUPT. THE PARTICULAR 2103 ;INTERRUPT TRAP ADRESS FOR THE INTERRUPT LEVEL BEING TESTED MAY NOT 2104 ;ALWAYS HAVE A JSR TO A HALT IN CASE WE ARE TESTING FOR REAL 2105 ;INTERRUPTS ON THAT CHANNEL. IN THIS CASE ONLY THE TRAP FOR THAT 2106 ;PARTICULAR CHANNEL WILL BE LEGAL. ALL OTHERS WILL HALT. 2107 ^ 2108 2109 TSET^ 2110 031717 %X=. ;DEFINE %X TO SAVE 2111 031717 201 00 0 00 031717 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2112 031720 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2113 031721 ..0025: CLRBTH^ 2114 031721 700 04 0 00 261600 CLRAPR DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 23-5 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0061 2115 031722 700 14 0 00 031577 CLRPI^ 2116 031723 7 004 20 0 00 004001 CONO PI,REQSET+X ;SET REQ. BUT NOT ACTIVE 2117 031724 400 00 0 00 000000 SETZ ;THEN CLEAR REQUEST THEN SET ACTIVE 2118 031725 7 004 20 0 00 010001 CONO PI,PICLR+X ;PI RESET FAILED TO CLEAR PIR FLAG. 2119 WATINT^ 2120 031726 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 2121 031727 367 13 0 00 031727 SOJG 13,. ;AND WAIT^ 2122 031730 332 00 0 00 000000 SKIPE ;MOVEI EXEC OUT OF INTERRUPT CH.? 2123 STOP^ 2124 031731 254 04 0 00 031732 HALT .+1 ;INSTRUCTION FAILED REPLACE 2125 031732 254 00 0 00 031733 JRST .+1 ;WITH JRST BACK^ 2126 TGET^^ 2127 031733 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2128 031734 302 00 0 00 031717 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2129 STOP2^^ 2130 031735 254 04 0 00 031736 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2131 031736 254 00 0 00 031737 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2132 000000 X=X_-1 2133 2134 031737 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0062 2135 BLURB^ 2136 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 2137 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 2138 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 2139 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 2140 ^ 2141 ;TEST THE SETTING AND CLEARING OF THE PI FLOPS WITHOUT CREATING INTERRUPTS 2142 ;THE TEST WILL HALT IF AN INTERRUPT OCCURS AND THE CHANNEL NUMBER OF THE 2143 ;INTERRUPT WILL BE STORED IN AC0 2144 2145 2146 031740 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 2147 2148 031741 BIGPI1: PITEST 100^ 2149 ;TEST SETTING OF CHANNEL FLOP 2150 2151 TSET^ 2152 031741 %X=. ;DEFINE %X TO SAVE 2153 031741 201 00 0 00 031741 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2154 031742 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2155 031743 ..0026: CLRBTH^ 2156 031743 700 04 0 00 261600 CLRAPR 2157 031744 700 14 0 00 031577 CLRPI^ 2158 031745 7 004 20 0 00 002100 CONO PI,CHNON+100 ;PION FAILED TO SET 2159 031746 7 004 34 0 00 000100 CONSO PI,100 2160 STOP^ 2161 031747 254 04 0 00 031750 HALT .+1 ;INSTRUCTION FAILED REPLACE 2162 031750 254 00 0 00 031751 JRST .+1 ;WITH JRST BACK^ 2163 TBOTH^ 2164 TGET^ 2165 031751 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2166 031752 302 00 0 00 031741 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2167 STOP2^^ 2168 031753 254 04 0 00 031754 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2169 031754 254 00 0 00 031755 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2170 TSET^^ 2171 031755 %X=. ;DEFINE %X TO SAVE 2172 031755 201 00 0 00 031755 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2173 031756 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2174 CLRBTH^ 2175 031757 700 04 0 00 261600 CLRAPR 2176 031760 700 14 0 00 031577 CLRPI^ 2177 ;TEST CLEARING OF CHANNEL FLOP 2178 031761 7 004 20 0 00 002100 CONO PI,CHNON+100 ;CHECK PIO CLR 2179 031762 7 004 20 0 00 001100 CONO PI,CHNOFF+100 ;TURN OFF CHANNELS 2180 031763 7 004 30 0 00 000100 CONSZ PI,100 ;CHECK WHY FLOP NOT CLEAR 2181 STOP^ 2182 031764 254 04 0 00 031765 HALT .+1 ;INSTRUCTION FAILED REPLACE 2183 031765 254 00 0 00 031766 JRST .+1 ;WITH JRST BACK^ 2184 TBOTH^ 2185 TGET^ 2186 031766 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2187 031767 302 00 0 00 031755 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2188 STOP2^^ 2189 031770 254 04 0 00 031771 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-1 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0063 2190 031771 254 00 0 00 031772 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2191 TSET^^ 2192 031772 %X=. ;DEFINE %X TO SAVE 2193 031772 201 00 0 00 031772 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2194 031773 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2195 CLRBTH^ 2196 031774 700 04 0 00 261600 CLRAPR 2197 031775 700 14 0 00 031577 CLRPI^ 2198 ;CHECK RESETING OF PI SYSTEM 2199 031776 7 004 20 0 00 002100 CONO PI,CHNON+100 ;CHECK THAT PI RESET CLEARS 2200 031777 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2201 032000 7 004 30 0 00 000100 CONSZ PI,100 2202 STOP^ 2203 032001 254 04 0 00 032002 HALT .+1 ;INSTRUCTION FAILED REPLACE 2204 032002 254 00 0 00 032003 JRST .+1 ;WITH JRST BACK^ 2205 TBOTH^ 2206 TGET^ 2207 032003 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2208 032004 302 00 0 00 031772 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2209 STOP2^^ 2210 032005 254 04 0 00 032006 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2211 032006 254 00 0 00 032007 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2212 TSET^^ 2213 032007 %X=. ;DEFINE %X TO SAVE 2214 032007 201 00 0 00 032007 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2215 032010 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2216 CLRBTH^ 2217 032011 700 04 0 00 261600 CLRAPR 2218 032012 700 14 0 00 031577 CLRPI^ 2219 ;TEST THAT CONO ONLY SETS PION 2220 032013 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2221 032014 7 004 30 0 00 000100 CONSZ PI,100 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2222 STOP^ 2223 032015 254 04 0 00 032016 HALT .+1 ;INSTRUCTION FAILED REPLACE 2224 032016 254 00 0 00 032017 JRST .+1 ;WITH JRST BACK^ 2225 TBOTH^ 2226 TGET^ 2227 032017 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2228 032020 302 00 0 00 032007 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2229 STOP2^^ 2230 032021 254 04 0 00 032022 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2231 032022 254 00 0 00 032023 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2232 TSET^^ 2233 032023 %X=. ;DEFINE %X TO SAVE 2234 032023 201 00 0 00 032023 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2235 032024 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2236 CLRBTH^ 2237 032025 700 04 0 00 261600 CLRAPR 2238 032026 700 14 0 00 031577 CLRPI^ 2239 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2240 032027 7 004 20 0 00 002100 CONO PI,CHNON+100 ;TEST PIO CLR 2241 032030 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2242 032031 7 004 34 0 00 000100 CONSO PI,100 ;BE SET 2243 STOP^ 2244 032032 254 04 0 00 032033 HALT .+1 ;INSTRUCTION FAILED REPLACE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-2 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0064 2245 032033 254 00 0 00 032034 JRST .+1 ;WITH JRST BACK^ 2246 TGET^^ 2247 032034 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2248 032035 302 00 0 00 032023 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2249 STOP2^^ 2250 032036 254 04 0 00 032037 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2251 032037 254 00 0 00 032040 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2252 2253 032040 BIGPI2: PITEST 40^ 2254 ;TEST SETTING OF CHANNEL FLOP 2255 2256 TSET^ 2257 032040 %X=. ;DEFINE %X TO SAVE 2258 032040 201 00 0 00 032040 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2259 032041 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2260 032042 ..0027: CLRBTH^ 2261 032042 700 04 0 00 261600 CLRAPR 2262 032043 700 14 0 00 031577 CLRPI^ 2263 032044 7 004 20 0 00 002040 CONO PI,CHNON+40 ;PION FAILED TO SET 2264 032045 7 004 34 0 00 000040 CONSO PI,40 2265 STOP^ 2266 032046 254 04 0 00 032047 HALT .+1 ;INSTRUCTION FAILED REPLACE 2267 032047 254 00 0 00 032050 JRST .+1 ;WITH JRST BACK^ 2268 TBOTH^ 2269 TGET^ 2270 032050 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2271 032051 302 00 0 00 032040 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2272 STOP2^^ 2273 032052 254 04 0 00 032053 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2274 032053 254 00 0 00 032054 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2275 TSET^^ 2276 032054 %X=. ;DEFINE %X TO SAVE 2277 032054 201 00 0 00 032054 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2278 032055 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2279 CLRBTH^ 2280 032056 700 04 0 00 261600 CLRAPR 2281 032057 700 14 0 00 031577 CLRPI^ 2282 ;TEST CLEARING OF CHANNEL FLOP 2283 032060 7 004 20 0 00 002040 CONO PI,CHNON+40 ;CHECK PIO CLR 2284 032061 7 004 20 0 00 001040 CONO PI,CHNOFF+40 ;TURN OFF CHANNELS 2285 032062 7 004 30 0 00 000040 CONSZ PI,40 ;CHECK WHY FLOP NOT CLEAR 2286 STOP^ 2287 032063 254 04 0 00 032064 HALT .+1 ;INSTRUCTION FAILED REPLACE 2288 032064 254 00 0 00 032065 JRST .+1 ;WITH JRST BACK^ 2289 TBOTH^ 2290 TGET^ 2291 032065 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2292 032066 302 00 0 00 032054 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2293 STOP2^^ 2294 032067 254 04 0 00 032070 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2295 032070 254 00 0 00 032071 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2296 TSET^^ 2297 032071 %X=. ;DEFINE %X TO SAVE 2298 032071 201 00 0 00 032071 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2299 032072 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-3 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0065 2300 CLRBTH^ 2301 032073 700 04 0 00 261600 CLRAPR 2302 032074 700 14 0 00 031577 CLRPI^ 2303 ;CHECK RESETING OF PI SYSTEM 2304 032075 7 004 20 0 00 002040 CONO PI,CHNON+40 ;CHECK THAT PI RESET CLEARS 2305 032076 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2306 032077 7 004 30 0 00 000040 CONSZ PI,40 2307 STOP^ 2308 032100 254 04 0 00 032101 HALT .+1 ;INSTRUCTION FAILED REPLACE 2309 032101 254 00 0 00 032102 JRST .+1 ;WITH JRST BACK^ 2310 TBOTH^ 2311 TGET^ 2312 032102 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2313 032103 302 00 0 00 032071 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2314 STOP2^^ 2315 032104 254 04 0 00 032105 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2316 032105 254 00 0 00 032106 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2317 TSET^^ 2318 032106 %X=. ;DEFINE %X TO SAVE 2319 032106 201 00 0 00 032106 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2320 032107 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2321 CLRBTH^ 2322 032110 700 04 0 00 261600 CLRAPR 2323 032111 700 14 0 00 031577 CLRPI^ 2324 ;TEST THAT CONO ONLY SETS PION 2325 032112 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2326 032113 7 004 30 0 00 000040 CONSZ PI,40 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2327 STOP^ 2328 032114 254 04 0 00 032115 HALT .+1 ;INSTRUCTION FAILED REPLACE 2329 032115 254 00 0 00 032116 JRST .+1 ;WITH JRST BACK^ 2330 TBOTH^ 2331 TGET^ 2332 032116 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2333 032117 302 00 0 00 032106 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2334 STOP2^^ 2335 032120 254 04 0 00 032121 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2336 032121 254 00 0 00 032122 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2337 TSET^^ 2338 032122 %X=. ;DEFINE %X TO SAVE 2339 032122 201 00 0 00 032122 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2340 032123 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2341 CLRBTH^ 2342 032124 700 04 0 00 261600 CLRAPR 2343 032125 700 14 0 00 031577 CLRPI^ 2344 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2345 032126 7 004 20 0 00 002040 CONO PI,CHNON+40 ;TEST PIO CLR 2346 032127 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2347 032130 7 004 34 0 00 000040 CONSO PI,40 ;BE SET 2348 STOP^ 2349 032131 254 04 0 00 032132 HALT .+1 ;INSTRUCTION FAILED REPLACE 2350 032132 254 00 0 00 032133 JRST .+1 ;WITH JRST BACK^ 2351 TGET^^ 2352 032133 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2353 032134 302 00 0 00 032122 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2354 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-4 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0066 2355 032135 254 04 0 00 032136 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2356 032136 254 00 0 00 032137 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2357 2358 032137 BIGPI3: PITEST 20^ 2359 ;TEST SETTING OF CHANNEL FLOP 2360 2361 TSET^ 2362 032137 %X=. ;DEFINE %X TO SAVE 2363 032137 201 00 0 00 032137 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2364 032140 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2365 032141 ..0030: CLRBTH^ 2366 032141 700 04 0 00 261600 CLRAPR 2367 032142 700 14 0 00 031577 CLRPI^ 2368 032143 7 004 20 0 00 002020 CONO PI,CHNON+20 ;PION FAILED TO SET 2369 032144 7 004 34 0 00 000020 CONSO PI,20 2370 STOP^ 2371 032145 254 04 0 00 032146 HALT .+1 ;INSTRUCTION FAILED REPLACE 2372 032146 254 00 0 00 032147 JRST .+1 ;WITH JRST BACK^ 2373 TBOTH^ 2374 TGET^ 2375 032147 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2376 032150 302 00 0 00 032137 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2377 STOP2^^ 2378 032151 254 04 0 00 032152 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2379 032152 254 00 0 00 032153 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2380 TSET^^ 2381 032153 %X=. ;DEFINE %X TO SAVE 2382 032153 201 00 0 00 032153 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2383 032154 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2384 CLRBTH^ 2385 032155 700 04 0 00 261600 CLRAPR 2386 032156 700 14 0 00 031577 CLRPI^ 2387 ;TEST CLEARING OF CHANNEL FLOP 2388 032157 7 004 20 0 00 002020 CONO PI,CHNON+20 ;CHECK PIO CLR 2389 032160 7 004 20 0 00 001020 CONO PI,CHNOFF+20 ;TURN OFF CHANNELS 2390 032161 7 004 30 0 00 000020 CONSZ PI,20 ;CHECK WHY FLOP NOT CLEAR 2391 STOP^ 2392 032162 254 04 0 00 032163 HALT .+1 ;INSTRUCTION FAILED REPLACE 2393 032163 254 00 0 00 032164 JRST .+1 ;WITH JRST BACK^ 2394 TBOTH^ 2395 TGET^ 2396 032164 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2397 032165 302 00 0 00 032153 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2398 STOP2^^ 2399 032166 254 04 0 00 032167 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2400 032167 254 00 0 00 032170 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2401 TSET^^ 2402 032170 %X=. ;DEFINE %X TO SAVE 2403 032170 201 00 0 00 032170 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2404 032171 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2405 CLRBTH^ 2406 032172 700 04 0 00 261600 CLRAPR 2407 032173 700 14 0 00 031577 CLRPI^ 2408 ;CHECK RESETING OF PI SYSTEM 2409 032174 7 004 20 0 00 002020 CONO PI,CHNON+20 ;CHECK THAT PI RESET CLEARS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-5 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0067 2410 032175 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2411 032176 7 004 30 0 00 000020 CONSZ PI,20 2412 STOP^ 2413 032177 254 04 0 00 032200 HALT .+1 ;INSTRUCTION FAILED REPLACE 2414 032200 254 00 0 00 032201 JRST .+1 ;WITH JRST BACK^ 2415 TBOTH^ 2416 TGET^ 2417 032201 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2418 032202 302 00 0 00 032170 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2419 STOP2^^ 2420 032203 254 04 0 00 032204 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2421 032204 254 00 0 00 032205 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2422 TSET^^ 2423 032205 %X=. ;DEFINE %X TO SAVE 2424 032205 201 00 0 00 032205 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2425 032206 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2426 CLRBTH^ 2427 032207 700 04 0 00 261600 CLRAPR 2428 032210 700 14 0 00 031577 CLRPI^ 2429 ;TEST THAT CONO ONLY SETS PION 2430 032211 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2431 032212 7 004 30 0 00 000020 CONSZ PI,20 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2432 STOP^ 2433 032213 254 04 0 00 032214 HALT .+1 ;INSTRUCTION FAILED REPLACE 2434 032214 254 00 0 00 032215 JRST .+1 ;WITH JRST BACK^ 2435 TBOTH^ 2436 TGET^ 2437 032215 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2438 032216 302 00 0 00 032205 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2439 STOP2^^ 2440 032217 254 04 0 00 032220 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2441 032220 254 00 0 00 032221 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2442 TSET^^ 2443 032221 %X=. ;DEFINE %X TO SAVE 2444 032221 201 00 0 00 032221 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2445 032222 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2446 CLRBTH^ 2447 032223 700 04 0 00 261600 CLRAPR 2448 032224 700 14 0 00 031577 CLRPI^ 2449 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2450 032225 7 004 20 0 00 002020 CONO PI,CHNON+20 ;TEST PIO CLR 2451 032226 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2452 032227 7 004 34 0 00 000020 CONSO PI,20 ;BE SET 2453 STOP^ 2454 032230 254 04 0 00 032231 HALT .+1 ;INSTRUCTION FAILED REPLACE 2455 032231 254 00 0 00 032232 JRST .+1 ;WITH JRST BACK^ 2456 TGET^^ 2457 032232 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2458 032233 302 00 0 00 032221 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2459 STOP2^^ 2460 032234 254 04 0 00 032235 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2461 032235 254 00 0 00 032236 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2462 2463 032236 BIGPI4: PITEST 10^ 2464 ;TEST SETTING OF CHANNEL FLOP DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-6 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0068 2465 2466 TSET^ 2467 032236 %X=. ;DEFINE %X TO SAVE 2468 032236 201 00 0 00 032236 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2469 032237 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2470 032240 ..0031: CLRBTH^ 2471 032240 700 04 0 00 261600 CLRAPR 2472 032241 700 14 0 00 031577 CLRPI^ 2473 032242 7 004 20 0 00 002010 CONO PI,CHNON+10 ;PION FAILED TO SET 2474 032243 7 004 34 0 00 000010 CONSO PI,10 2475 STOP^ 2476 032244 254 04 0 00 032245 HALT .+1 ;INSTRUCTION FAILED REPLACE 2477 032245 254 00 0 00 032246 JRST .+1 ;WITH JRST BACK^ 2478 TBOTH^ 2479 TGET^ 2480 032246 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2481 032247 302 00 0 00 032236 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2482 STOP2^^ 2483 032250 254 04 0 00 032251 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2484 032251 254 00 0 00 032252 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2485 TSET^^ 2486 032252 %X=. ;DEFINE %X TO SAVE 2487 032252 201 00 0 00 032252 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2488 032253 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2489 CLRBTH^ 2490 032254 700 04 0 00 261600 CLRAPR 2491 032255 700 14 0 00 031577 CLRPI^ 2492 ;TEST CLEARING OF CHANNEL FLOP 2493 032256 7 004 20 0 00 002010 CONO PI,CHNON+10 ;CHECK PIO CLR 2494 032257 7 004 20 0 00 001010 CONO PI,CHNOFF+10 ;TURN OFF CHANNELS 2495 032260 7 004 30 0 00 000010 CONSZ PI,10 ;CHECK WHY FLOP NOT CLEAR 2496 STOP^ 2497 032261 254 04 0 00 032262 HALT .+1 ;INSTRUCTION FAILED REPLACE 2498 032262 254 00 0 00 032263 JRST .+1 ;WITH JRST BACK^ 2499 TBOTH^ 2500 TGET^ 2501 032263 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2502 032264 302 00 0 00 032252 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2503 STOP2^^ 2504 032265 254 04 0 00 032266 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2505 032266 254 00 0 00 032267 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2506 TSET^^ 2507 032267 %X=. ;DEFINE %X TO SAVE 2508 032267 201 00 0 00 032267 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2509 032270 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2510 CLRBTH^ 2511 032271 700 04 0 00 261600 CLRAPR 2512 032272 700 14 0 00 031577 CLRPI^ 2513 ;CHECK RESETING OF PI SYSTEM 2514 032273 7 004 20 0 00 002010 CONO PI,CHNON+10 ;CHECK THAT PI RESET CLEARS 2515 032274 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2516 032275 7 004 30 0 00 000010 CONSZ PI,10 2517 STOP^ 2518 032276 254 04 0 00 032277 HALT .+1 ;INSTRUCTION FAILED REPLACE 2519 032277 254 00 0 00 032300 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-7 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0069 2520 TBOTH^ 2521 TGET^ 2522 032300 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2523 032301 302 00 0 00 032267 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2524 STOP2^^ 2525 032302 254 04 0 00 032303 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2526 032303 254 00 0 00 032304 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2527 TSET^^ 2528 032304 %X=. ;DEFINE %X TO SAVE 2529 032304 201 00 0 00 032304 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2530 032305 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2531 CLRBTH^ 2532 032306 700 04 0 00 261600 CLRAPR 2533 032307 700 14 0 00 031577 CLRPI^ 2534 ;TEST THAT CONO ONLY SETS PION 2535 032310 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2536 032311 7 004 30 0 00 000010 CONSZ PI,10 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2537 STOP^ 2538 032312 254 04 0 00 032313 HALT .+1 ;INSTRUCTION FAILED REPLACE 2539 032313 254 00 0 00 032314 JRST .+1 ;WITH JRST BACK^ 2540 TBOTH^ 2541 TGET^ 2542 032314 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2543 032315 302 00 0 00 032304 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2544 STOP2^^ 2545 032316 254 04 0 00 032317 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2546 032317 254 00 0 00 032320 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2547 TSET^^ 2548 032320 %X=. ;DEFINE %X TO SAVE 2549 032320 201 00 0 00 032320 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2550 032321 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2551 CLRBTH^ 2552 032322 700 04 0 00 261600 CLRAPR 2553 032323 700 14 0 00 031577 CLRPI^ 2554 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2555 032324 7 004 20 0 00 002010 CONO PI,CHNON+10 ;TEST PIO CLR 2556 032325 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2557 032326 7 004 34 0 00 000010 CONSO PI,10 ;BE SET 2558 STOP^ 2559 032327 254 04 0 00 032330 HALT .+1 ;INSTRUCTION FAILED REPLACE 2560 032330 254 00 0 00 032331 JRST .+1 ;WITH JRST BACK^ 2561 TGET^^ 2562 032331 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2563 032332 302 00 0 00 032320 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2564 STOP2^^ 2565 032333 254 04 0 00 032334 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2566 032334 254 00 0 00 032335 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2567 2568 032335 BIGPI5: PITEST 4^ 2569 ;TEST SETTING OF CHANNEL FLOP 2570 2571 TSET^ 2572 032335 %X=. ;DEFINE %X TO SAVE 2573 032335 201 00 0 00 032335 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2574 032336 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-8 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0070 2575 032337 ..0032: CLRBTH^ 2576 032337 700 04 0 00 261600 CLRAPR 2577 032340 700 14 0 00 031577 CLRPI^ 2578 032341 7 004 20 0 00 002004 CONO PI,CHNON+4 ;PION FAILED TO SET 2579 032342 7 004 34 0 00 000004 CONSO PI,4 2580 STOP^ 2581 032343 254 04 0 00 032344 HALT .+1 ;INSTRUCTION FAILED REPLACE 2582 032344 254 00 0 00 032345 JRST .+1 ;WITH JRST BACK^ 2583 TBOTH^ 2584 TGET^ 2585 032345 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2586 032346 302 00 0 00 032335 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2587 STOP2^^ 2588 032347 254 04 0 00 032350 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2589 032350 254 00 0 00 032351 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2590 TSET^^ 2591 032351 %X=. ;DEFINE %X TO SAVE 2592 032351 201 00 0 00 032351 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2593 032352 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2594 CLRBTH^ 2595 032353 700 04 0 00 261600 CLRAPR 2596 032354 700 14 0 00 031577 CLRPI^ 2597 ;TEST CLEARING OF CHANNEL FLOP 2598 032355 7 004 20 0 00 002004 CONO PI,CHNON+4 ;CHECK PIO CLR 2599 032356 7 004 20 0 00 001004 CONO PI,CHNOFF+4 ;TURN OFF CHANNELS 2600 032357 7 004 30 0 00 000004 CONSZ PI,4 ;CHECK WHY FLOP NOT CLEAR 2601 STOP^ 2602 032360 254 04 0 00 032361 HALT .+1 ;INSTRUCTION FAILED REPLACE 2603 032361 254 00 0 00 032362 JRST .+1 ;WITH JRST BACK^ 2604 TBOTH^ 2605 TGET^ 2606 032362 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2607 032363 302 00 0 00 032351 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2608 STOP2^^ 2609 032364 254 04 0 00 032365 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2610 032365 254 00 0 00 032366 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2611 TSET^^ 2612 032366 %X=. ;DEFINE %X TO SAVE 2613 032366 201 00 0 00 032366 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2614 032367 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2615 CLRBTH^ 2616 032370 700 04 0 00 261600 CLRAPR 2617 032371 700 14 0 00 031577 CLRPI^ 2618 ;CHECK RESETING OF PI SYSTEM 2619 032372 7 004 20 0 00 002004 CONO PI,CHNON+4 ;CHECK THAT PI RESET CLEARS 2620 032373 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2621 032374 7 004 30 0 00 000004 CONSZ PI,4 2622 STOP^ 2623 032375 254 04 0 00 032376 HALT .+1 ;INSTRUCTION FAILED REPLACE 2624 032376 254 00 0 00 032377 JRST .+1 ;WITH JRST BACK^ 2625 TBOTH^ 2626 TGET^ 2627 032377 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2628 032400 302 00 0 00 032366 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2629 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-9 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0071 2630 032401 254 04 0 00 032402 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2631 032402 254 00 0 00 032403 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2632 TSET^^ 2633 032403 %X=. ;DEFINE %X TO SAVE 2634 032403 201 00 0 00 032403 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2635 032404 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2636 CLRBTH^ 2637 032405 700 04 0 00 261600 CLRAPR 2638 032406 700 14 0 00 031577 CLRPI^ 2639 ;TEST THAT CONO ONLY SETS PION 2640 032407 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2641 032410 7 004 30 0 00 000004 CONSZ PI,4 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2642 STOP^ 2643 032411 254 04 0 00 032412 HALT .+1 ;INSTRUCTION FAILED REPLACE 2644 032412 254 00 0 00 032413 JRST .+1 ;WITH JRST BACK^ 2645 TBOTH^ 2646 TGET^ 2647 032413 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2648 032414 302 00 0 00 032403 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2649 STOP2^^ 2650 032415 254 04 0 00 032416 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2651 032416 254 00 0 00 032417 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2652 TSET^^ 2653 032417 %X=. ;DEFINE %X TO SAVE 2654 032417 201 00 0 00 032417 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2655 032420 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2656 CLRBTH^ 2657 032421 700 04 0 00 261600 CLRAPR 2658 032422 700 14 0 00 031577 CLRPI^ 2659 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2660 032423 7 004 20 0 00 002004 CONO PI,CHNON+4 ;TEST PIO CLR 2661 032424 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2662 032425 7 004 34 0 00 000004 CONSO PI,4 ;BE SET 2663 STOP^ 2664 032426 254 04 0 00 032427 HALT .+1 ;INSTRUCTION FAILED REPLACE 2665 032427 254 00 0 00 032430 JRST .+1 ;WITH JRST BACK^ 2666 TGET^^ 2667 032430 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2668 032431 302 00 0 00 032417 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2669 STOP2^^ 2670 032432 254 04 0 00 032433 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2671 032433 254 00 0 00 032434 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2672 2673 032434 BIGPI6: PITEST 2^ 2674 ;TEST SETTING OF CHANNEL FLOP 2675 2676 TSET^ 2677 032434 %X=. ;DEFINE %X TO SAVE 2678 032434 201 00 0 00 032434 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2679 032435 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2680 032436 ..0033: CLRBTH^ 2681 032436 700 04 0 00 261600 CLRAPR 2682 032437 700 14 0 00 031577 CLRPI^ 2683 032440 7 004 20 0 00 002002 CONO PI,CHNON+2 ;PION FAILED TO SET 2684 032441 7 004 34 0 00 000002 CONSO PI,2 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-10 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0072 2685 STOP^ 2686 032442 254 04 0 00 032443 HALT .+1 ;INSTRUCTION FAILED REPLACE 2687 032443 254 00 0 00 032444 JRST .+1 ;WITH JRST BACK^ 2688 TBOTH^ 2689 TGET^ 2690 032444 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2691 032445 302 00 0 00 032434 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2692 STOP2^^ 2693 032446 254 04 0 00 032447 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2694 032447 254 00 0 00 032450 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2695 TSET^^ 2696 032450 %X=. ;DEFINE %X TO SAVE 2697 032450 201 00 0 00 032450 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2698 032451 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2699 CLRBTH^ 2700 032452 700 04 0 00 261600 CLRAPR 2701 032453 700 14 0 00 031577 CLRPI^ 2702 ;TEST CLEARING OF CHANNEL FLOP 2703 032454 7 004 20 0 00 002002 CONO PI,CHNON+2 ;CHECK PIO CLR 2704 032455 7 004 20 0 00 001002 CONO PI,CHNOFF+2 ;TURN OFF CHANNELS 2705 032456 7 004 30 0 00 000002 CONSZ PI,2 ;CHECK WHY FLOP NOT CLEAR 2706 STOP^ 2707 032457 254 04 0 00 032460 HALT .+1 ;INSTRUCTION FAILED REPLACE 2708 032460 254 00 0 00 032461 JRST .+1 ;WITH JRST BACK^ 2709 TBOTH^ 2710 TGET^ 2711 032461 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2712 032462 302 00 0 00 032450 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2713 STOP2^^ 2714 032463 254 04 0 00 032464 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2715 032464 254 00 0 00 032465 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2716 TSET^^ 2717 032465 %X=. ;DEFINE %X TO SAVE 2718 032465 201 00 0 00 032465 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2719 032466 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2720 CLRBTH^ 2721 032467 700 04 0 00 261600 CLRAPR 2722 032470 700 14 0 00 031577 CLRPI^ 2723 ;CHECK RESETING OF PI SYSTEM 2724 032471 7 004 20 0 00 002002 CONO PI,CHNON+2 ;CHECK THAT PI RESET CLEARS 2725 032472 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2726 032473 7 004 30 0 00 000002 CONSZ PI,2 2727 STOP^ 2728 032474 254 04 0 00 032475 HALT .+1 ;INSTRUCTION FAILED REPLACE 2729 032475 254 00 0 00 032476 JRST .+1 ;WITH JRST BACK^ 2730 TBOTH^ 2731 TGET^ 2732 032476 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2733 032477 302 00 0 00 032465 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2734 STOP2^^ 2735 032500 254 04 0 00 032501 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2736 032501 254 00 0 00 032502 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2737 TSET^^ 2738 032502 %X=. ;DEFINE %X TO SAVE 2739 032502 201 00 0 00 032502 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-11 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0073 2740 032503 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2741 CLRBTH^ 2742 032504 700 04 0 00 261600 CLRAPR 2743 032505 700 14 0 00 031577 CLRPI^ 2744 ;TEST THAT CONO ONLY SETS PION 2745 032506 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2746 032507 7 004 30 0 00 000002 CONSZ PI,2 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2747 STOP^ 2748 032510 254 04 0 00 032511 HALT .+1 ;INSTRUCTION FAILED REPLACE 2749 032511 254 00 0 00 032512 JRST .+1 ;WITH JRST BACK^ 2750 TBOTH^ 2751 TGET^ 2752 032512 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2753 032513 302 00 0 00 032502 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2754 STOP2^^ 2755 032514 254 04 0 00 032515 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2756 032515 254 00 0 00 032516 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2757 TSET^^ 2758 032516 %X=. ;DEFINE %X TO SAVE 2759 032516 201 00 0 00 032516 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2760 032517 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2761 CLRBTH^ 2762 032520 700 04 0 00 261600 CLRAPR 2763 032521 700 14 0 00 031577 CLRPI^ 2764 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2765 032522 7 004 20 0 00 002002 CONO PI,CHNON+2 ;TEST PIO CLR 2766 032523 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2767 032524 7 004 34 0 00 000002 CONSO PI,2 ;BE SET 2768 STOP^ 2769 032525 254 04 0 00 032526 HALT .+1 ;INSTRUCTION FAILED REPLACE 2770 032526 254 00 0 00 032527 JRST .+1 ;WITH JRST BACK^ 2771 TGET^^ 2772 032527 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2773 032530 302 00 0 00 032516 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2774 STOP2^^ 2775 032531 254 04 0 00 032532 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2776 032532 254 00 0 00 032533 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2777 2778 032533 BIGPI7: PITEST 1^ 2779 ;TEST SETTING OF CHANNEL FLOP 2780 2781 TSET^ 2782 032533 %X=. ;DEFINE %X TO SAVE 2783 032533 201 00 0 00 032533 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2784 032534 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2785 032535 ..0034: CLRBTH^ 2786 032535 700 04 0 00 261600 CLRAPR 2787 032536 700 14 0 00 031577 CLRPI^ 2788 032537 7 004 20 0 00 002001 CONO PI,CHNON+1 ;PION FAILED TO SET 2789 032540 7 004 34 0 00 000001 CONSO PI,1 2790 STOP^ 2791 032541 254 04 0 00 032542 HALT .+1 ;INSTRUCTION FAILED REPLACE 2792 032542 254 00 0 00 032543 JRST .+1 ;WITH JRST BACK^ 2793 TBOTH^ 2794 TGET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-12 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0074 2795 032543 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2796 032544 302 00 0 00 032533 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2797 STOP2^^ 2798 032545 254 04 0 00 032546 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2799 032546 254 00 0 00 032547 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2800 TSET^^ 2801 032547 %X=. ;DEFINE %X TO SAVE 2802 032547 201 00 0 00 032547 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2803 032550 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2804 CLRBTH^ 2805 032551 700 04 0 00 261600 CLRAPR 2806 032552 700 14 0 00 031577 CLRPI^ 2807 ;TEST CLEARING OF CHANNEL FLOP 2808 032553 7 004 20 0 00 002001 CONO PI,CHNON+1 ;CHECK PIO CLR 2809 032554 7 004 20 0 00 001001 CONO PI,CHNOFF+1 ;TURN OFF CHANNELS 2810 032555 7 004 30 0 00 000001 CONSZ PI,1 ;CHECK WHY FLOP NOT CLEAR 2811 STOP^ 2812 032556 254 04 0 00 032557 HALT .+1 ;INSTRUCTION FAILED REPLACE 2813 032557 254 00 0 00 032560 JRST .+1 ;WITH JRST BACK^ 2814 TBOTH^ 2815 TGET^ 2816 032560 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2817 032561 302 00 0 00 032547 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2818 STOP2^^ 2819 032562 254 04 0 00 032563 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2820 032563 254 00 0 00 032564 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2821 TSET^^ 2822 032564 %X=. ;DEFINE %X TO SAVE 2823 032564 201 00 0 00 032564 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2824 032565 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2825 CLRBTH^ 2826 032566 700 04 0 00 261600 CLRAPR 2827 032567 700 14 0 00 031577 CLRPI^ 2828 ;CHECK RESETING OF PI SYSTEM 2829 032570 7 004 20 0 00 002001 CONO PI,CHNON+1 ;CHECK THAT PI RESET CLEARS 2830 032571 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2831 032572 7 004 30 0 00 000001 CONSZ PI,1 2832 STOP^ 2833 032573 254 04 0 00 032574 HALT .+1 ;INSTRUCTION FAILED REPLACE 2834 032574 254 00 0 00 032575 JRST .+1 ;WITH JRST BACK^ 2835 TBOTH^ 2836 TGET^ 2837 032575 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2838 032576 302 00 0 00 032564 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2839 STOP2^^ 2840 032577 254 04 0 00 032600 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2841 032600 254 00 0 00 032601 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2842 TSET^^ 2843 032601 %X=. ;DEFINE %X TO SAVE 2844 032601 201 00 0 00 032601 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2845 032602 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2846 CLRBTH^ 2847 032603 700 04 0 00 261600 CLRAPR 2848 032604 700 14 0 00 031577 CLRPI^ 2849 ;TEST THAT CONO ONLY SETS PION DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-13 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0075 2850 032605 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2851 032606 7 004 30 0 00 000001 CONSZ PI,1 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2852 STOP^ 2853 032607 254 04 0 00 032610 HALT .+1 ;INSTRUCTION FAILED REPLACE 2854 032610 254 00 0 00 032611 JRST .+1 ;WITH JRST BACK^ 2855 TBOTH^ 2856 TGET^ 2857 032611 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2858 032612 302 00 0 00 032601 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2859 STOP2^^ 2860 032613 254 04 0 00 032614 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2861 032614 254 00 0 00 032615 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2862 TSET^^ 2863 032615 %X=. ;DEFINE %X TO SAVE 2864 032615 201 00 0 00 032615 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2865 032616 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2866 CLRBTH^ 2867 032617 700 04 0 00 261600 CLRAPR 2868 032620 700 14 0 00 031577 CLRPI^ 2869 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2870 032621 7 004 20 0 00 002001 CONO PI,CHNON+1 ;TEST PIO CLR 2871 032622 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2872 032623 7 004 34 0 00 000001 CONSO PI,1 ;BE SET 2873 STOP^ 2874 032624 254 04 0 00 032625 HALT .+1 ;INSTRUCTION FAILED REPLACE 2875 032625 254 00 0 00 032626 JRST .+1 ;WITH JRST BACK^ 2876 TGET^^ 2877 032626 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2878 032627 302 00 0 00 032615 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2879 STOP2^^ 2880 032630 254 04 0 00 032631 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2881 032631 254 00 0 00 032632 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2882 2883 032632 BIGPIX: PITEST 177^ 2884 ;TEST SETTING OF CHANNEL FLOP 2885 2886 TSET^ 2887 032632 %X=. ;DEFINE %X TO SAVE 2888 032632 201 00 0 00 032632 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2889 032633 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2890 032634 ..0035: CLRBTH^ 2891 032634 700 04 0 00 261600 CLRAPR 2892 032635 700 14 0 00 031577 CLRPI^ 2893 032636 7 004 20 0 00 002177 CONO PI,CHNON+177 ;PION FAILED TO SET 2894 032637 7 004 34 0 00 000177 CONSO PI,177 2895 STOP^ 2896 032640 254 04 0 00 032641 HALT .+1 ;INSTRUCTION FAILED REPLACE 2897 032641 254 00 0 00 032642 JRST .+1 ;WITH JRST BACK^ 2898 TBOTH^ 2899 TGET^ 2900 032642 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2901 032643 302 00 0 00 032632 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2902 STOP2^^ 2903 032644 254 04 0 00 032645 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2904 032645 254 00 0 00 032646 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-14 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0076 2905 TSET^^ 2906 032646 %X=. ;DEFINE %X TO SAVE 2907 032646 201 00 0 00 032646 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2908 032647 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2909 CLRBTH^ 2910 032650 700 04 0 00 261600 CLRAPR 2911 032651 700 14 0 00 031577 CLRPI^ 2912 ;TEST CLEARING OF CHANNEL FLOP 2913 032652 7 004 20 0 00 002177 CONO PI,CHNON+177 ;CHECK PIO CLR 2914 032653 7 004 20 0 00 001177 CONO PI,CHNOFF+177 ;TURN OFF CHANNELS 2915 032654 7 004 30 0 00 000177 CONSZ PI,177 ;CHECK WHY FLOP NOT CLEAR 2916 STOP^ 2917 032655 254 04 0 00 032656 HALT .+1 ;INSTRUCTION FAILED REPLACE 2918 032656 254 00 0 00 032657 JRST .+1 ;WITH JRST BACK^ 2919 TBOTH^ 2920 TGET^ 2921 032657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2922 032660 302 00 0 00 032646 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2923 STOP2^^ 2924 032661 254 04 0 00 032662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2925 032662 254 00 0 00 032663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2926 TSET^^ 2927 032663 %X=. ;DEFINE %X TO SAVE 2928 032663 201 00 0 00 032663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2929 032664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2930 CLRBTH^ 2931 032665 700 04 0 00 261600 CLRAPR 2932 032666 700 14 0 00 031577 CLRPI^ 2933 ;CHECK RESETING OF PI SYSTEM 2934 032667 7 004 20 0 00 002177 CONO PI,CHNON+177 ;CHECK THAT PI RESET CLEARS 2935 032670 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 2936 032671 7 004 30 0 00 000177 CONSZ PI,177 2937 STOP^ 2938 032672 254 04 0 00 032673 HALT .+1 ;INSTRUCTION FAILED REPLACE 2939 032673 254 00 0 00 032674 JRST .+1 ;WITH JRST BACK^ 2940 TBOTH^ 2941 TGET^ 2942 032674 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2943 032675 302 00 0 00 032663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2944 STOP2^^ 2945 032676 254 04 0 00 032677 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2946 032677 254 00 0 00 032700 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2947 TSET^^ 2948 032700 %X=. ;DEFINE %X TO SAVE 2949 032700 201 00 0 00 032700 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2950 032701 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2951 CLRBTH^ 2952 032702 700 04 0 00 261600 CLRAPR 2953 032703 700 14 0 00 031577 CLRPI^ 2954 ;TEST THAT CONO ONLY SETS PION 2955 032704 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 2956 032705 7 004 30 0 00 000177 CONSZ PI,177 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 2957 STOP^ 2958 032706 254 04 0 00 032707 HALT .+1 ;INSTRUCTION FAILED REPLACE 2959 032707 254 00 0 00 032710 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-15 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0077 2960 TBOTH^ 2961 TGET^ 2962 032710 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2963 032711 302 00 0 00 032700 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2964 STOP2^^ 2965 032712 254 04 0 00 032713 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2966 032713 254 00 0 00 032714 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2967 TSET^^ 2968 032714 %X=. ;DEFINE %X TO SAVE 2969 032714 201 00 0 00 032714 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2970 032715 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2971 CLRBTH^ 2972 032716 700 04 0 00 261600 CLRAPR 2973 032717 700 14 0 00 031577 CLRPI^ 2974 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 2975 032720 7 004 20 0 00 002177 CONO PI,CHNON+177 ;TEST PIO CLR 2976 032721 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 2977 032722 7 004 34 0 00 000177 CONSO PI,177 ;BE SET 2978 STOP^ 2979 032723 254 04 0 00 032724 HALT .+1 ;INSTRUCTION FAILED REPLACE 2980 032724 254 00 0 00 032725 JRST .+1 ;WITH JRST BACK^ 2981 TGET^^ 2982 032725 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 2983 032726 302 00 0 00 032714 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 2984 STOP2^^ 2985 032727 254 04 0 00 032730 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 2986 032730 254 00 0 00 032731 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 2987 2988 032731 BIGPIY: PITEST 125^ 2989 ;TEST SETTING OF CHANNEL FLOP 2990 2991 TSET^ 2992 032731 %X=. ;DEFINE %X TO SAVE 2993 032731 201 00 0 00 032731 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 2994 032732 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 2995 032733 ..0036: CLRBTH^ 2996 032733 700 04 0 00 261600 CLRAPR 2997 032734 700 14 0 00 031577 CLRPI^ 2998 032735 7 004 20 0 00 002125 CONO PI,CHNON+125 ;PION FAILED TO SET 2999 032736 7 004 34 0 00 000125 CONSO PI,125 3000 STOP^ 3001 032737 254 04 0 00 032740 HALT .+1 ;INSTRUCTION FAILED REPLACE 3002 032740 254 00 0 00 032741 JRST .+1 ;WITH JRST BACK^ 3003 TBOTH^ 3004 TGET^ 3005 032741 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3006 032742 302 00 0 00 032731 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3007 STOP2^^ 3008 032743 254 04 0 00 032744 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3009 032744 254 00 0 00 032745 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3010 TSET^^ 3011 032745 %X=. ;DEFINE %X TO SAVE 3012 032745 201 00 0 00 032745 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3013 032746 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3014 CLRBTH^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-16 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0078 3015 032747 700 04 0 00 261600 CLRAPR 3016 032750 700 14 0 00 031577 CLRPI^ 3017 ;TEST CLEARING OF CHANNEL FLOP 3018 032751 7 004 20 0 00 002125 CONO PI,CHNON+125 ;CHECK PIO CLR 3019 032752 7 004 20 0 00 001125 CONO PI,CHNOFF+125 ;TURN OFF CHANNELS 3020 032753 7 004 30 0 00 000125 CONSZ PI,125 ;CHECK WHY FLOP NOT CLEAR 3021 STOP^ 3022 032754 254 04 0 00 032755 HALT .+1 ;INSTRUCTION FAILED REPLACE 3023 032755 254 00 0 00 032756 JRST .+1 ;WITH JRST BACK^ 3024 TBOTH^ 3025 TGET^ 3026 032756 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3027 032757 302 00 0 00 032745 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3028 STOP2^^ 3029 032760 254 04 0 00 032761 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3030 032761 254 00 0 00 032762 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3031 TSET^^ 3032 032762 %X=. ;DEFINE %X TO SAVE 3033 032762 201 00 0 00 032762 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3034 032763 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3035 CLRBTH^ 3036 032764 700 04 0 00 261600 CLRAPR 3037 032765 700 14 0 00 031577 CLRPI^ 3038 ;CHECK RESETING OF PI SYSTEM 3039 032766 7 004 20 0 00 002125 CONO PI,CHNON+125 ;CHECK THAT PI RESET CLEARS 3040 032767 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 3041 032770 7 004 30 0 00 000125 CONSZ PI,125 3042 STOP^ 3043 032771 254 04 0 00 032772 HALT .+1 ;INSTRUCTION FAILED REPLACE 3044 032772 254 00 0 00 032773 JRST .+1 ;WITH JRST BACK^ 3045 TBOTH^ 3046 TGET^ 3047 032773 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3048 032774 302 00 0 00 032762 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3049 STOP2^^ 3050 032775 254 04 0 00 032776 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3051 032776 254 00 0 00 032777 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3052 TSET^^ 3053 032777 %X=. ;DEFINE %X TO SAVE 3054 032777 201 00 0 00 032777 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3055 033000 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3056 CLRBTH^ 3057 033001 700 04 0 00 261600 CLRAPR 3058 033002 700 14 0 00 031577 CLRPI^ 3059 ;TEST THAT CONO ONLY SETS PION 3060 033003 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 3061 033004 7 004 30 0 00 000125 CONSZ PI,125 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 3062 STOP^ 3063 033005 254 04 0 00 033006 HALT .+1 ;INSTRUCTION FAILED REPLACE 3064 033006 254 00 0 00 033007 JRST .+1 ;WITH JRST BACK^ 3065 TBOTH^ 3066 TGET^ 3067 033007 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3068 033010 302 00 0 00 032777 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3069 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-17 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0079 3070 033011 254 04 0 00 033012 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3071 033012 254 00 0 00 033013 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3072 TSET^^ 3073 033013 %X=. ;DEFINE %X TO SAVE 3074 033013 201 00 0 00 033013 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3075 033014 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3076 CLRBTH^ 3077 033015 700 04 0 00 261600 CLRAPR 3078 033016 700 14 0 00 031577 CLRPI^ 3079 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 3080 033017 7 004 20 0 00 002125 CONO PI,CHNON+125 ;TEST PIO CLR 3081 033020 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 3082 033021 7 004 34 0 00 000125 CONSO PI,125 ;BE SET 3083 STOP^ 3084 033022 254 04 0 00 033023 HALT .+1 ;INSTRUCTION FAILED REPLACE 3085 033023 254 00 0 00 033024 JRST .+1 ;WITH JRST BACK^ 3086 TGET^^ 3087 033024 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3088 033025 302 00 0 00 033013 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3089 STOP2^^ 3090 033026 254 04 0 00 033027 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3091 033027 254 00 0 00 033030 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3092 3093 033030 BIGPIZ: PITEST 52^ 3094 ;TEST SETTING OF CHANNEL FLOP 3095 3096 TSET^ 3097 033030 %X=. ;DEFINE %X TO SAVE 3098 033030 201 00 0 00 033030 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3099 033031 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3100 033032 ..0037: CLRBTH^ 3101 033032 700 04 0 00 261600 CLRAPR 3102 033033 700 14 0 00 031577 CLRPI^ 3103 033034 7 004 20 0 00 002052 CONO PI,CHNON+52 ;PION FAILED TO SET 3104 033035 7 004 34 0 00 000052 CONSO PI,52 3105 STOP^ 3106 033036 254 04 0 00 033037 HALT .+1 ;INSTRUCTION FAILED REPLACE 3107 033037 254 00 0 00 033040 JRST .+1 ;WITH JRST BACK^ 3108 TBOTH^ 3109 TGET^ 3110 033040 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3111 033041 302 00 0 00 033030 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3112 STOP2^^ 3113 033042 254 04 0 00 033043 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3114 033043 254 00 0 00 033044 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3115 TSET^^ 3116 033044 %X=. ;DEFINE %X TO SAVE 3117 033044 201 00 0 00 033044 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3118 033045 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3119 CLRBTH^ 3120 033046 700 04 0 00 261600 CLRAPR 3121 033047 700 14 0 00 031577 CLRPI^ 3122 ;TEST CLEARING OF CHANNEL FLOP 3123 033050 7 004 20 0 00 002052 CONO PI,CHNON+52 ;CHECK PIO CLR 3124 033051 7 004 20 0 00 001052 CONO PI,CHNOFF+52 ;TURN OFF CHANNELS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-18 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0080 3125 033052 7 004 30 0 00 000052 CONSZ PI,52 ;CHECK WHY FLOP NOT CLEAR 3126 STOP^ 3127 033053 254 04 0 00 033054 HALT .+1 ;INSTRUCTION FAILED REPLACE 3128 033054 254 00 0 00 033055 JRST .+1 ;WITH JRST BACK^ 3129 TBOTH^ 3130 TGET^ 3131 033055 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3132 033056 302 00 0 00 033044 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3133 STOP2^^ 3134 033057 254 04 0 00 033060 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3135 033060 254 00 0 00 033061 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3136 TSET^^ 3137 033061 %X=. ;DEFINE %X TO SAVE 3138 033061 201 00 0 00 033061 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3139 033062 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3140 CLRBTH^ 3141 033063 700 04 0 00 261600 CLRAPR 3142 033064 700 14 0 00 031577 CLRPI^ 3143 ;CHECK RESETING OF PI SYSTEM 3144 033065 7 004 20 0 00 002052 CONO PI,CHNON+52 ;CHECK THAT PI RESET CLEARS 3145 033066 7 004 20 0 00 010000 CONO PI,PICLR ;PI SYSTEM 3146 033067 7 004 30 0 00 000052 CONSZ PI,52 3147 STOP^ 3148 033070 254 04 0 00 033071 HALT .+1 ;INSTRUCTION FAILED REPLACE 3149 033071 254 00 0 00 033072 JRST .+1 ;WITH JRST BACK^ 3150 TBOTH^ 3151 TGET^ 3152 033072 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3153 033073 302 00 0 00 033061 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3154 STOP2^^ 3155 033074 254 04 0 00 033075 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3156 033075 254 00 0 00 033076 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3157 TSET^^ 3158 033076 %X=. ;DEFINE %X TO SAVE 3159 033076 201 00 0 00 033076 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3160 033077 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3161 CLRBTH^ 3162 033100 700 04 0 00 261600 CLRAPR 3163 033101 700 14 0 00 031577 CLRPI^ 3164 ;TEST THAT CONO ONLY SETS PION 3165 033102 7 004 20 0 00 002000 CONO PI,CHNON ;TEST PIO SET 3166 033103 7 004 30 0 00 000052 CONSZ PI,52 ;CHECK WHY CONO SET FLAGS WITHOUT AN IOB BIT 3167 STOP^ 3168 033104 254 04 0 00 033105 HALT .+1 ;INSTRUCTION FAILED REPLACE 3169 033105 254 00 0 00 033106 JRST .+1 ;WITH JRST BACK^ 3170 TBOTH^ 3171 TGET^ 3172 033106 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3173 033107 302 00 0 00 033076 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3174 STOP2^^ 3175 033110 254 04 0 00 033111 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3176 033111 254 00 0 00 033112 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3177 TSET^^ 3178 033112 %X=. ;DEFINE %X TO SAVE 3179 033112 201 00 0 00 033112 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 24-19 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0081 3180 033113 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3181 CLRBTH^ 3182 033114 700 04 0 00 261600 CLRAPR 3183 033115 700 14 0 00 031577 CLRPI^ 3184 ;CHECK THAT CONO DOES NOT CLEAR ACTIVE 3185 033116 7 004 20 0 00 002052 CONO PI,CHNON+52 ;TEST PIO CLR 3186 033117 7 004 20 0 00 001000 CONO PI,CHNOFF ;MAYBE RESET OCCURED - BIT SHOULD STILL 3187 033120 7 004 34 0 00 000052 CONSO PI,52 ;BE SET 3188 STOP^ 3189 033121 254 04 0 00 033122 HALT .+1 ;INSTRUCTION FAILED REPLACE 3190 033122 254 00 0 00 033123 JRST .+1 ;WITH JRST BACK^ 3191 TGET^^ 3192 033123 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3193 033124 302 00 0 00 033112 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3194 STOP2^^ 3195 033125 254 04 0 00 033126 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3196 033126 254 00 0 00 033127 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3197 3198 033127 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0082 3199 BLURB^ 3200 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 3201 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 3202 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 3203 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 3204 ^ 3205 ;CHECK THE SETTING AND CLEARING OF THE HOLD FLOPS 3206 3207 3208 033130 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 3209 040000 X=40000 3210 000100 Y=100 3211 PIOT03: REPEAT 7,< 3212 PIHCLR Y,X 3213 X=X_-1 3214 Y=Y_-1 3215 > 3216 3217 PIHCLR Y,X^ 3218 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3219 3220 TSET^ 3221 033131 %X=. ;DEFINE %X TO SAVE 3222 033131 201 00 0 00 033131 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3223 033132 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3224 033133 ..0040: CLRBTH^ 3225 033133 700 04 0 00 261600 CLRAPR 3226 033134 700 14 0 00 031577 CLRPI^ 3227 033135 7 004 20 0 00 004300 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3228 WATINT^ 3229 033136 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3230 033137 367 13 0 00 033137 SOJG 13,. ;AND WAIT^ 3231 033140 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3232 033141 7 004 30 0 00 040000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3233 STOP^ 3234 033142 254 04 0 00 033143 HALT .+1 ;INSTRUCTION FAILED REPLACE 3235 033143 254 00 0 00 033144 JRST .+1 ;WITH JRST BACK^ 3236 TGET^^ 3237 033144 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3238 033145 302 00 0 00 033131 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3239 STOP2^^ 3240 033146 254 04 0 00 033147 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3241 033147 254 00 0 00 033150 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3242 020000 X=X_-1 3243 000040 Y=Y_-1 3244 3245 3246 PIHCLR Y,X^ 3247 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3248 3249 TSET^ 3250 033150 %X=. ;DEFINE %X TO SAVE 3251 033150 201 00 0 00 033150 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3252 033151 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3253 033152 ..0041: CLRBTH^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-1 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0083 3254 033152 700 04 0 00 261600 CLRAPR 3255 033153 700 14 0 00 031577 CLRPI^ 3256 033154 7 004 20 0 00 004240 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3257 WATINT^ 3258 033155 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3259 033156 367 13 0 00 033156 SOJG 13,. ;AND WAIT^ 3260 033157 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3261 033160 7 004 30 0 00 020000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3262 STOP^ 3263 033161 254 04 0 00 033162 HALT .+1 ;INSTRUCTION FAILED REPLACE 3264 033162 254 00 0 00 033163 JRST .+1 ;WITH JRST BACK^ 3265 TGET^^ 3266 033163 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3267 033164 302 00 0 00 033150 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3268 STOP2^^ 3269 033165 254 04 0 00 033166 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3270 033166 254 00 0 00 033167 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3271 010000 X=X_-1 3272 000020 Y=Y_-1 3273 3274 3275 PIHCLR Y,X^ 3276 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3277 3278 TSET^ 3279 033167 %X=. ;DEFINE %X TO SAVE 3280 033167 201 00 0 00 033167 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3281 033170 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3282 033171 ..0042: CLRBTH^ 3283 033171 700 04 0 00 261600 CLRAPR 3284 033172 700 14 0 00 031577 CLRPI^ 3285 033173 7 004 20 0 00 004220 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3286 WATINT^ 3287 033174 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3288 033175 367 13 0 00 033175 SOJG 13,. ;AND WAIT^ 3289 033176 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3290 033177 7 004 30 0 00 010000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3291 STOP^ 3292 033200 254 04 0 00 033201 HALT .+1 ;INSTRUCTION FAILED REPLACE 3293 033201 254 00 0 00 033202 JRST .+1 ;WITH JRST BACK^ 3294 TGET^^ 3295 033202 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3296 033203 302 00 0 00 033167 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3297 STOP2^^ 3298 033204 254 04 0 00 033205 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3299 033205 254 00 0 00 033206 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3300 004000 X=X_-1 3301 000010 Y=Y_-1 3302 3303 3304 PIHCLR Y,X^ 3305 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3306 3307 TSET^ 3308 033206 %X=. ;DEFINE %X TO SAVE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-2 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0084 3309 033206 201 00 0 00 033206 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3310 033207 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3311 033210 ..0043: CLRBTH^ 3312 033210 700 04 0 00 261600 CLRAPR 3313 033211 700 14 0 00 031577 CLRPI^ 3314 033212 7 004 20 0 00 004210 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3315 WATINT^ 3316 033213 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3317 033214 367 13 0 00 033214 SOJG 13,. ;AND WAIT^ 3318 033215 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3319 033216 7 004 30 0 00 004000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3320 STOP^ 3321 033217 254 04 0 00 033220 HALT .+1 ;INSTRUCTION FAILED REPLACE 3322 033220 254 00 0 00 033221 JRST .+1 ;WITH JRST BACK^ 3323 TGET^^ 3324 033221 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3325 033222 302 00 0 00 033206 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3326 STOP2^^ 3327 033223 254 04 0 00 033224 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3328 033224 254 00 0 00 033225 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3329 002000 X=X_-1 3330 000004 Y=Y_-1 3331 3332 3333 PIHCLR Y,X^ 3334 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3335 3336 TSET^ 3337 033225 %X=. ;DEFINE %X TO SAVE 3338 033225 201 00 0 00 033225 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3339 033226 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3340 033227 ..0044: CLRBTH^ 3341 033227 700 04 0 00 261600 CLRAPR 3342 033230 700 14 0 00 031577 CLRPI^ 3343 033231 7 004 20 0 00 004204 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3344 WATINT^ 3345 033232 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3346 033233 367 13 0 00 033233 SOJG 13,. ;AND WAIT^ 3347 033234 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3348 033235 7 004 30 0 00 002000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3349 STOP^ 3350 033236 254 04 0 00 033237 HALT .+1 ;INSTRUCTION FAILED REPLACE 3351 033237 254 00 0 00 033240 JRST .+1 ;WITH JRST BACK^ 3352 TGET^^ 3353 033240 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3354 033241 302 00 0 00 033225 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3355 STOP2^^ 3356 033242 254 04 0 00 033243 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3357 033243 254 00 0 00 033244 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3358 001000 X=X_-1 3359 000002 Y=Y_-1 3360 3361 3362 PIHCLR Y,X^ 3363 ;CHECK THAT PICLR CLEARS THE HOLD FLOP DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-3 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0085 3364 3365 TSET^ 3366 033244 %X=. ;DEFINE %X TO SAVE 3367 033244 201 00 0 00 033244 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3368 033245 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3369 033246 ..0045: CLRBTH^ 3370 033246 700 04 0 00 261600 CLRAPR 3371 033247 700 14 0 00 031577 CLRPI^ 3372 033250 7 004 20 0 00 004202 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3373 WATINT^ 3374 033251 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3375 033252 367 13 0 00 033252 SOJG 13,. ;AND WAIT^ 3376 033253 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3377 033254 7 004 30 0 00 001000 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3378 STOP^ 3379 033255 254 04 0 00 033256 HALT .+1 ;INSTRUCTION FAILED REPLACE 3380 033256 254 00 0 00 033257 JRST .+1 ;WITH JRST BACK^ 3381 TGET^^ 3382 033257 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3383 033260 302 00 0 00 033244 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3384 STOP2^^ 3385 033261 254 04 0 00 033262 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3386 033262 254 00 0 00 033263 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3387 000400 X=X_-1 3388 000001 Y=Y_-1 3389 3390 3391 PIHCLR Y,X^ 3392 ;CHECK THAT PICLR CLEARS THE HOLD FLOP 3393 3394 TSET^ 3395 033263 %X=. ;DEFINE %X TO SAVE 3396 033263 201 00 0 00 033263 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3397 033264 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3398 033265 ..0046: CLRBTH^ 3399 033265 700 04 0 00 261600 CLRAPR 3400 033266 700 14 0 00 031577 CLRPI^ 3401 033267 7 004 20 0 00 004201 CONO PI,REQSET+PION+Y ;CAUSE INT. TO SET HOLD 3402 WATINT^ 3403 033270 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3404 033271 367 13 0 00 033271 SOJG 13,. ;AND WAIT^ 3405 033272 7 004 20 0 00 010000 CONO PI,PICLR ;THEN CLEAR VIA PI RESET 3406 033273 7 004 30 0 00 000400 CONSZ PI,X ;HOLD FLOP FAILED TO CLEAR. 3407 STOP^ 3408 033274 254 04 0 00 033275 HALT .+1 ;INSTRUCTION FAILED REPLACE 3409 033275 254 00 0 00 033276 JRST .+1 ;WITH JRST BACK^ 3410 TGET^^ 3411 033276 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3412 033277 302 00 0 00 033263 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3413 STOP2^^ 3414 033300 254 04 0 00 033301 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3415 033301 254 00 0 00 033302 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3416 000200 X=X_-1 3417 000000 Y=Y_-1 3418 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 25-4 DSKAH1 MAC 31-Mar-78 11:13 BASIC PI SYSTEM TESTING SEQ 0086 3419 033302 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 26 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0087 3420 SUBTTL INTERRUPT TESTING WITH REAL INTERRUPTS 3421 3422 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3423 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3424 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3425 3426 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3427 033303 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3428 033304 700 14 0 00 031577 CLRPI 3429 033305 700 04 0 00 261600 CLRAPR 3430 033306 200 00 0 00 040240 MOVE [JSP UUO] ;SET TRAP TO HALT 3431 033307 202 00 0 00 000041 MOVEM 41 ;IN THE UUO TRAP LOCATION 3432 033310 200 00 0 00 040241 MOVE [JSR TRP0A] ;SET PROPER RECOVERY INST. 3433 033311 202 00 0 00 000042 MOVEM 42 ;INTO CH1 TRAP 3434 033312 7 004 20 0 00 002300 CONO PI,2300 ;TURN ON CHAN1 3435 033313 7 000 20 0 00 110401 CONO APR,LENXER!LSNXER!LAPRP1 ;CAUSE CACHE SWP DONE AND CHAN 3436 STUCK^ 3437 WATINT^ 3438 033314 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3439 033315 367 13 0 00 033315 SOJG 13,. ;AND WAIT^ 3440 033316 254 00 0 00 033316 JRST . ;LOOP ON SELF^ 3441 033317 000000 000000 TRP0A: 0 3442 TRPCHK^ 3443 033320 332 00 0 00 030042 ..0047: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3444 033321 254 00 0 00 033324 JRST .+3 ;DONT IF STAND ALONE 3445 033322 254 02 1 00 033323 JRSTF @@.+1 ;AND RESTORE THEM 3446 033323 000000 033324 USERF,.+1 ;NEW PC AND FLAGS^ 3447 033324 700 14 0 00 031577 CLRPI 3448 033325 700 04 0 00 261600 CLRAPR 3449 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3450 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3451 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3452 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3453 033326 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3454 033327 200 00 0 00 040242 MOVE [JSR TRP1A] ;RECOVERY INSTRUCTION INTO 3455 033330 202 00 0 00 000044 MOVEM 44 ;PROPER CHAN TRAP (2) 3456 033331 7 004 20 0 00 002240 CONO PI,2240 ;TURN CHAN 2 ON 3457 033332 7 000 20 0 00 110102 CONO APR,LEPSFT!LSPSFT!LAPRP2 ;CAUSE CACHE SWP DONE AND CHN ON 3458 STUCK^ 3459 WATINT^ 3460 033333 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3461 033334 367 13 0 00 033334 SOJG 13,. ;AND WAIT^ 3462 033335 254 00 0 00 033335 JRST . ;LOOP ON SELF^ 3463 033336 000000 000000 TRP1A: 0 3464 TRPCHK^ 3465 033337 332 00 0 00 030042 ..0050: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3466 033340 254 00 0 00 033343 JRST .+3 ;DONT IF STAND ALONE 3467 033341 254 02 1 00 033342 JRSTF @@.+1 ;AND RESTORE THEM 3468 033342 000000 033343 USERF,.+1 ;NEW PC AND FLAGS^ 3469 033343 700 14 0 00 031577 CLRPI 3470 033344 700 04 0 00 261600 CLRAPR 3471 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3472 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3473 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3474 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 26-1 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0088 3475 033345 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3476 033346 200 00 0 00 040243 MOVE [JSR TRP2A] ;RECOVERY INSTRUCTION 3477 033347 202 00 0 00 000046 MOVEM 46 ;INTO PROPER CHAN TRAP (3) 3478 033350 7 004 20 0 00 002220 CONO PI,2220 ;TURN CHAN 3 ON 3479 033351 7 000 20 0 00 110203 CONO APR,LEPAER!LSPAER!LAPRP3 ;CAUSE CACHE SWP DONE AND CHAN ON 3480 STUCK^ 3481 WATINT^ 3482 033352 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3483 033353 367 13 0 00 033353 SOJG 13,. ;AND WAIT^ 3484 033354 254 00 0 00 033354 JRST . ;LOOP ON SELF^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 27 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0089 3485 033355 000000 000000 TRP2A: 0 3486 TRPCHK^ 3487 033356 332 00 0 00 030042 ..0051: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3488 033357 254 00 0 00 033362 JRST .+3 ;DONT IF STAND ALONE 3489 033360 254 02 1 00 033361 JRSTF @@.+1 ;AND RESTORE THEM 3490 033361 000000 033362 USERF,.+1 ;NEW PC AND FLAGS^ 3491 033362 700 14 0 00 031577 CLRPI 3492 033363 700 04 0 00 261600 CLRAPR 3493 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3494 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3495 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3496 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3497 033364 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3498 033365 200 00 0 00 040244 MOVE [JSR TRP3A] ;RECOVERY INSTRUCTION 3499 033366 202 00 0 00 000050 MOVEM 50 ;INTO PROPER CHAN TRAP (4) 3500 033367 7 004 20 0 00 002210 CONO PI,2210 ;TURN CHAN 4 ON 3501 033370 7 000 20 0 00 010104 CONO APR,LSPSFT!LSPSFT!LAPRP4 ;CAUSE CACHE SWP DONE AND CHAN ON 3502 STUCK^ 3503 WATINT^ 3504 033371 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3505 033372 367 13 0 00 033372 SOJG 13,. ;AND WAIT^ 3506 033373 254 00 0 00 033373 JRST . ;LOOP ON SELF^ 3507 033374 000000 000000 TRP3A: 0 3508 TRPCHK^ 3509 033375 332 00 0 00 030042 ..0052: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3510 033376 254 00 0 00 033401 JRST .+3 ;DONT IF STAND ALONE 3511 033377 254 02 1 00 033400 JRSTF @@.+1 ;AND RESTORE THEM 3512 033400 000000 033401 USERF,.+1 ;NEW PC AND FLAGS^ 3513 033401 700 14 0 00 031577 CLRPI 3514 033402 700 04 0 00 261600 CLRAPR 3515 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3516 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3517 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3518 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3519 033403 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3520 033404 200 00 0 00 040245 MOVE [JSR TRP4A] ;RECOVERY INSTRUCTION 3521 033405 202 00 0 00 000052 MOVEM 52 ;INTO PROPER CHAN TRAP (5) 3522 033406 7 004 20 0 00 002204 CONO PI,2204 ;TURN CHAN 5 ON 3523 033407 7 000 20 0 00 110105 CONO APR,LEPSFT!LSPSFT!LAPRP5 ;CAUSE CACHE SWP DONE AND CHAN ON 3524 STUCK^ 3525 WATINT^ 3526 033410 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3527 033411 367 13 0 00 033411 SOJG 13,. ;AND WAIT^ 3528 033412 254 00 0 00 033412 JRST . ;LOOP ON SELF^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 28 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT TESTING WITH REAL INTERRUPTS SEQ 0090 3529 033413 000000 000000 TRP4A: 0 3530 TRPCHK^ 3531 033414 332 00 0 00 030042 ..0053: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3532 033415 254 00 0 00 033420 JRST .+3 ;DONT IF STAND ALONE 3533 033416 254 02 1 00 033417 JRSTF @@.+1 ;AND RESTORE THEM 3534 033417 000000 033420 USERF,.+1 ;NEW PC AND FLAGS^ 3535 033420 700 14 0 00 031577 CLRPI 3536 033421 700 04 0 00 261600 CLRAPR 3537 3538 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3539 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3540 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3541 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3542 033422 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3543 033423 200 00 0 00 040246 MOVE [JSR TRP5A] ;RECOVERY INSTRUCTION 3544 033424 202 00 0 00 000054 MOVEM 54 ;INTO PROPER CHAN TRAP (6) 3545 033425 7 004 20 0 00 002202 CONO PI,2202 ;TURN CHAN 6 ON 3546 033426 7 000 20 0 00 111006 CONO APR,LEPWRF!LSPWRF!LAPRP6 ;CAUSE CACHE SWP DONE AND CHAN ON 3547 STUCK^ 3548 WATINT^ 3549 033427 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3550 033430 367 13 0 00 033430 SOJG 13,. ;AND WAIT^ 3551 033431 254 00 0 00 033431 JRST . ;LOOP ON SELF^ 3552 033432 000000 000000 TRP5A: 0 3553 TRPCHK^ 3554 033433 332 00 0 00 030042 ..0054: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3555 033434 254 00 0 00 033437 JRST .+3 ;DONT IF STAND ALONE 3556 033435 254 02 1 00 033436 JRSTF @@.+1 ;AND RESTORE THEM 3557 033436 000000 033437 USERF,.+1 ;NEW PC AND FLAGS^ 3558 033437 700 14 0 00 031577 CLRPI 3559 033440 700 04 0 00 261600 CLRAPR 3560 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3561 ;TEST PROPER TRAP WHEN INTERRUPTING ON EACH CHANNEL 3562 ;VIA THE CACHE SWEEP DONE FLAG--ILLEGAL TRAPS HALT--NO TRAP LOOPS 3563 ;THE HALT POINTS TO THE CHANNEL THOUGHT TO BE REQUESTED 3564 033441 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3565 033442 200 00 0 00 040247 MOVE [JSR TRP6A] ;RECOVERY INSTRUCTION 3566 033443 202 00 0 00 000056 MOVEM 56 ;INTO PROPER CHAN TRAP (7) 3567 033444 7 004 20 0 00 002201 CONO PI,2201 ;TURN CHAN 7 ON 3568 033445 7 000 20 0 00 111007 CONO APR,LEPWRF!LSPWRF!LAPRP7 ;CASUE CACHE SWP DONE AND CHAN ON 3569 STUCK^ 3570 WATINT^ 3571 033446 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3572 033447 367 13 0 00 033447 SOJG 13,. ;AND WAIT^ 3573 033450 254 00 0 00 033450 JRST . ;LOOP ON SELF^ 3574 033451 000000 000000 TRP6A: 0 3575 TRPCHK^ 3576 033452 332 00 0 00 030042 ..0055: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3577 033453 254 00 0 00 033456 JRST .+3 ;DONT IF STAND ALONE 3578 033454 254 02 1 00 033455 JRSTF @@.+1 ;AND RESTORE THEM 3579 033455 000000 033456 USERF,.+1 ;NEW PC AND FLAGS^ 3580 3581 033456 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 29 DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0091 3582 SUBTTL INTERNAL INTERRUPT REQUEST TESTING 3583 3584 ;CHECK THE ABILITY TO GENERATE PI REQUESTS VIA PROGRAM REQEST ON ALL 3585 ;CHANNELS. 3586 033457 265 00 0 00 033460 JSP .+1 ;GET FLAGS 3587 033460 603 00 0 00 010000 TLNE USERF ;USER MODE BIT ON 3588 033461 254 00 0 00 033462 JRST .+1 ;DONT DO IF USER MODE! 3589 3590 CLRBTH^ 3591 033462 700 04 0 00 261600 CLRAPR 3592 033463 700 14 0 00 031577 CLRPI^ 3593 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3594 033464 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3595 033465 700 14 0 00 031577 CLRPI 3596 033466 700 04 0 00 261600 CLRAPR 3597 TRAP ,42^ 3598 033467 200 00 0 00 040250 MOVE [JSR CKI01] ;SET TRAP INSTRUCTION 3599 033470 202 00 0 00 000042 MOVEM 42 ;INTO TRAP LOCATION^ 3600 033471 7 004 20 0 00 006300 CONO PI,6300 ;INTERRUPT ON CH1 3601 STUCK^ 3602 WATINT^ 3603 033472 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3604 033473 367 13 0 00 033473 SOJG 13,. ;AND WAIT^ 3605 033474 254 00 0 00 033474 JRST . ;LOOP ON SELF^ 3606 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3607 033475 000000 000000 CKI01: 0 3608 TRPCHK^ 3609 033476 332 00 0 00 030042 ..0056: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3610 033477 254 00 0 00 033502 JRST .+3 ;DONT IF STAND ALONE 3611 033500 254 02 1 00 033501 JRSTF @@.+1 ;AND RESTORE THEM 3612 033501 000000 033502 USERF,.+1 ;NEW PC AND FLAGS^ 3613 033502 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3614 033503 700 14 0 00 031577 CLRPI 3615 033504 700 04 0 00 261600 CLRAPR 3616 TRAP ,44^ 3617 033505 200 00 0 00 040251 MOVE [JSR CKI02] ;SET TRAP INSTRUCTION 3618 033506 202 00 0 00 000044 MOVEM 44 ;INTO TRAP LOCATION^ 3619 033507 7 004 20 0 00 006240 CONO PI,6240 ;INTERRUPT ON CH 2 3620 STUCK^ 3621 WATINT^ 3622 033510 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3623 033511 367 13 0 00 033511 SOJG 13,. ;AND WAIT^ 3624 033512 254 00 0 00 033512 JRST . ;LOOP ON SELF^ 3625 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 30 DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0092 3626 033513 000000 000000 CKI02: 0 3627 TRPCHK^ 3628 033514 332 00 0 00 030042 ..0057: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3629 033515 254 00 0 00 033520 JRST .+3 ;DONT IF STAND ALONE 3630 033516 254 02 1 00 033517 JRSTF @@.+1 ;AND RESTORE THEM 3631 033517 000000 033520 USERF,.+1 ;NEW PC AND FLAGS^ 3632 033520 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3633 033521 700 14 0 00 031577 CLRPI 3634 033522 700 04 0 00 261600 CLRAPR 3635 TRAP ,46^ 3636 033523 200 00 0 00 040252 MOVE [JSR CKI03] ;SET TRAP INSTRUCTION 3637 033524 202 00 0 00 000046 MOVEM 46 ;INTO TRAP LOCATION^ 3638 033525 7 004 20 0 00 006220 CONO PI,6220 ;INTERRUPT ON CH 3 3639 STUCK^ 3640 WATINT^ 3641 033526 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3642 033527 367 13 0 00 033527 SOJG 13,. ;AND WAIT^ 3643 033530 254 00 0 00 033530 JRST . ;LOOP ON SELF^ 3644 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 31 DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0093 3645 033531 000000 000000 CKI03: 0 3646 TRPCHK^ 3647 033532 332 00 0 00 030042 ..0060: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3648 033533 254 00 0 00 033536 JRST .+3 ;DONT IF STAND ALONE 3649 033534 254 02 1 00 033535 JRSTF @@.+1 ;AND RESTORE THEM 3650 033535 000000 033536 USERF,.+1 ;NEW PC AND FLAGS^ 3651 033536 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3652 033537 700 14 0 00 031577 CLRPI 3653 033540 700 04 0 00 261600 CLRAPR 3654 TRAP ,50^ 3655 033541 200 00 0 00 040253 MOVE [JSR CKI04] ;SET TRAP INSTRUCTION 3656 033542 202 00 0 00 000050 MOVEM 50 ;INTO TRAP LOCATION^ 3657 033543 7 004 20 0 00 006210 CONO PI,6210 ;INTERRUPT ON CH 4 3658 STUCK^ 3659 WATINT^ 3660 033544 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3661 033545 367 13 0 00 033545 SOJG 13,. ;AND WAIT^ 3662 033546 254 00 0 00 033546 JRST . ;LOOP ON SELF^ 3663 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3664 033547 000000 000000 CKI04: 0 3665 TRPCHK^ 3666 033550 332 00 0 00 030042 ..0061: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3667 033551 254 00 0 00 033554 JRST .+3 ;DONT IF STAND ALONE 3668 033552 254 02 1 00 033553 JRSTF @@.+1 ;AND RESTORE THEM 3669 033553 000000 033554 USERF,.+1 ;NEW PC AND FLAGS^ 3670 033554 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3671 033555 700 14 0 00 031577 CLRPI 3672 033556 700 04 0 00 261600 CLRAPR 3673 TRAP ,52^ 3674 033557 200 00 0 00 040254 MOVE [JSR CKI05] ;SET TRAP INSTRUCTION 3675 033560 202 00 0 00 000052 MOVEM 52 ;INTO TRAP LOCATION^ 3676 033561 7 004 20 0 00 006204 CONO PI,6204 ;INTERRUPT ON CH 5 3677 STUCK^ 3678 WATINT^ 3679 033562 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3680 033563 367 13 0 00 033563 SOJG 13,. ;AND WAIT^ 3681 033564 254 00 0 00 033564 JRST . ;LOOP ON SELF^ 3682 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3683 033565 000000 000000 CKI05: 0 3684 TRPCHK^ 3685 033566 332 00 0 00 030042 ..0062: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3686 033567 254 00 0 00 033572 JRST .+3 ;DONT IF STAND ALONE 3687 033570 254 02 1 00 033571 JRSTF @@.+1 ;AND RESTORE THEM 3688 033571 000000 033572 USERF,.+1 ;NEW PC AND FLAGS^ 3689 033572 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3690 033573 700 14 0 00 031577 CLRPI 3691 033574 700 04 0 00 261600 CLRAPR 3692 TRAP ,54^ 3693 033575 200 00 0 00 040255 MOVE [JSR CKI06] ;SET TRAP INSTRUCTION 3694 033576 202 00 0 00 000054 MOVEM 54 ;INTO TRAP LOCATION^ 3695 033577 7 004 20 0 00 006202 CONO PI,6202 ;INTERRUPT ON CH 6 3696 STUCK^ 3697 WATINT^ 3698 033600 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3699 033601 367 13 0 00 033601 SOJG 13,. ;AND WAIT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 31-1 DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0094 3700 033602 254 00 0 00 033602 JRST . ;LOOP ON SELF^ 3701 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 32 DSKAH1 MAC 31-Mar-78 11:13 INTERNAL INTERRUPT REQUEST TESTING SEQ 0095 3702 033603 000000 000000 CKI06: 0 3703 TRPCHK^ 3704 033604 332 00 0 00 030042 ..0063: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3705 033605 254 00 0 00 033610 JRST .+3 ;DONT IF STAND ALONE 3706 033606 254 02 1 00 033607 JRSTF @@.+1 ;AND RESTORE THEM 3707 033607 000000 033610 USERF,.+1 ;NEW PC AND FLAGS^ 3708 033610 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3709 033611 700 14 0 00 031577 CLRPI 3710 033612 700 04 0 00 261600 CLRAPR 3711 TRAP ,56^ 3712 033613 200 00 0 00 040256 MOVE [JSR CKI07] ;SET TRAP INSTRUCTION 3713 033614 202 00 0 00 000056 MOVEM 56 ;INTO TRAP LOCATION^ 3714 033615 7 004 20 0 00 006201 CONO PI,6201 ;INTERRUPT ON CH 7 3715 STUCK^ 3716 WATINT^ 3717 033616 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3718 033617 367 13 0 00 033617 SOJG 13,. ;AND WAIT^ 3719 033620 254 00 0 00 033620 JRST . ;LOOP ON SELF^ 3720 ;IF PI HANGS OR BLOWS UP THEN SEE 'PII' PRINT OR 'PIR' PRINT 3721 033621 000000 000000 CKI07: 0 3722 TRPCHK^ 3723 033622 332 00 0 00 030042 ..0064: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3724 033623 254 00 0 00 033626 JRST .+3 ;DONT IF STAND ALONE 3725 033624 254 02 1 00 033625 JRSTF @@.+1 ;AND RESTORE THEM 3726 033625 000000 033626 USERF,.+1 ;NEW PC AND FLAGS^ 3727 033626 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3728 033627 264 00 0 00 040021 CLRTRP 3729 033630 700 14 0 00 031577 CLRPI 3730 033631 700 04 0 00 261600 CLRAPR 3731 033632 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33 DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0096 3732 SUBTTL PRIORITY TESTING 3733 ;THIS TEST CHECKS TO SEE IF INTERRUPTS RECOGNIZE THE PROPER PRIORITY 3734 ;IMPROPER TRAPS WILL HALT - NO TRAPS WILL CAUSE PROGRAM TO HANG 3735 ;IF PROGRAM STUCK THEN REPLACE "JRST ." WITH JRST BACK TO MULT7 3736 ;IF PROGRAM HALTS THEN REPLACE "JSR" IN INTERRUPT LOCATION 3737 ;TO "JSR" TO ROUTINE WHICH CAUSED THE TRAP +1 3738 ;FOR EXAMPLE IF ROUTINE TRAPPED TO LOCATION '50' IN 50 3739 ;YOU WOULD PUT A JSR TO "MULTX ROUTINE+3 3740 3741 033633 MULTI: CLRBT1^ 3742 033633 700 04 0 00 261600 CLRAPR 3743 033634 700 14 0 00 031577 CLRPI^ 3744 033635 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3745 TRAP ,56^ 3746 033636 200 00 0 00 040257 MOVE [JSR MULT6] ;SET TRAP INSTRUCTION 3747 033637 202 00 0 00 000056 MOVEM 56 ;INTO TRAP LOCATION^ 3748 033640 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3749 SBWAIT 7^ 3750 033641 7 000 20 0 00 110107 ..0065: CONO APR,LEPSFT!LSPSFT!7 3751 STUCK^^ 3752 WATINT^ 3753 033642 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3754 033643 367 13 0 00 033643 SOJG 13,. ;AND WAIT^ 3755 033644 254 00 0 00 033644 JRST . ;LOOP ON SELF^ 3756 033645 000000 000000 MULT6: 0 3757 TRPCHK^ 3758 033646 332 00 0 00 030042 ..0066: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3759 033647 254 00 0 00 033652 JRST .+3 ;DONT IF STAND ALONE 3760 033650 254 02 1 00 033651 JRSTF @@.+1 ;AND RESTORE THEM 3761 033651 000000 033652 USERF,.+1 ;NEW PC AND FLAGS^ 3762 033652 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3763 TRAP ,54^ 3764 033653 200 00 0 00 040260 MOVE [JSR MULT5] ;SET TRAP INSTRUCTION 3765 033654 202 00 0 00 000054 MOVEM 54 ;INTO TRAP LOCATION^ 3766 033655 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3767 SBWAIT 6^ 3768 033656 7 000 20 0 00 110106 ..0067: CONO APR,LEPSFT!LSPSFT!6 3769 STUCK^^ 3770 WATINT^ 3771 033657 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3772 033660 367 13 0 00 033660 SOJG 13,. ;AND WAIT^ 3773 033661 254 00 0 00 033661 JRST . ;LOOP ON SELF^ 3774 033662 000000 000000 MULT5: 0 3775 TRPCHK^ 3776 033663 332 00 0 00 030042 ..0070: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3777 033664 254 00 0 00 033667 JRST .+3 ;DONT IF STAND ALONE 3778 033665 254 02 1 00 033666 JRSTF @@.+1 ;AND RESTORE THEM 3779 033666 000000 033667 USERF,.+1 ;NEW PC AND FLAGS^ 3780 033667 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3781 TRAP ,52^ 3782 033670 200 00 0 00 040261 MOVE [JSR MULT4] ;SET TRAP INSTRUCTION 3783 033671 202 00 0 00 000052 MOVEM 52 ;INTO TRAP LOCATION^ 3784 033672 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3785 SBWAIT 5^ 3786 033673 7 000 20 0 00 110105 ..0071: CONO APR,LEPSFT!LSPSFT!5 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33-1 DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0097 3787 STUCK^^ 3788 WATINT^ 3789 033674 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3790 033675 367 13 0 00 033675 SOJG 13,. ;AND WAIT^ 3791 033676 254 00 0 00 033676 JRST . ;LOOP ON SELF^ 3792 033677 000000 000000 MULT4: 0 3793 TRPCHK^ 3794 033700 332 00 0 00 030042 ..0072: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3795 033701 254 00 0 00 033704 JRST .+3 ;DONT IF STAND ALONE 3796 033702 254 02 1 00 033703 JRSTF @@.+1 ;AND RESTORE THEM 3797 033703 000000 033704 USERF,.+1 ;NEW PC AND FLAGS^ 3798 033704 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3799 TRAP ,50^ 3800 033705 200 00 0 00 040262 MOVE [JSR MULT3] ;SET TRAP INSTRUCTION 3801 033706 202 00 0 00 000050 MOVEM 50 ;INTO TRAP LOCATION^ 3802 033707 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3803 SBWAIT 4^ 3804 033710 7 000 20 0 00 110104 ..0073: CONO APR,LEPSFT!LSPSFT!4 3805 STUCK^^ 3806 WATINT^ 3807 033711 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3808 033712 367 13 0 00 033712 SOJG 13,. ;AND WAIT^ 3809 033713 254 00 0 00 033713 JRST . ;LOOP ON SELF^ 3810 033714 000000 000000 MULT3: 0 3811 TRPCHK^ 3812 033715 332 00 0 00 030042 ..0074: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3813 033716 254 00 0 00 033721 JRST .+3 ;DONT IF STAND ALONE 3814 033717 254 02 1 00 033720 JRSTF @@.+1 ;AND RESTORE THEM 3815 033720 000000 033721 USERF,.+1 ;NEW PC AND FLAGS^ 3816 033721 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3817 TRAP ,46^ 3818 033722 200 00 0 00 040263 MOVE [JSR MULT2] ;SET TRAP INSTRUCTION 3819 033723 202 00 0 00 000046 MOVEM 46 ;INTO TRAP LOCATION^ 3820 033724 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3821 SBWAIT 3^ 3822 033725 7 000 20 0 00 110103 ..0075: CONO APR,LEPSFT!LSPSFT!3 3823 STUCK^^ 3824 WATINT^ 3825 033726 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3826 033727 367 13 0 00 033727 SOJG 13,. ;AND WAIT^ 3827 033730 254 00 0 00 033730 JRST . ;LOOP ON SELF^ 3828 033731 000000 000000 MULT2: 0 3829 TRPCHK^ 3830 033732 332 00 0 00 030042 ..0076: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3831 033733 254 00 0 00 033736 JRST .+3 ;DONT IF STAND ALONE 3832 033734 254 02 1 00 033735 JRSTF @@.+1 ;AND RESTORE THEM 3833 033735 000000 033736 USERF,.+1 ;NEW PC AND FLAGS^ 3834 033736 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3835 TRAP ,44^ 3836 033737 200 00 0 00 040264 MOVE [JSR MULT1] ;SET TRAP INSTRUCTION 3837 033740 202 00 0 00 000044 MOVEM 44 ;INTO TRAP LOCATION^ 3838 033741 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3839 SBWAIT 2^ 3840 033742 7 000 20 0 00 110102 ..0077: CONO APR,LEPSFT!LSPSFT!2 3841 STUCK^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 33-2 DSKAH1 MAC 31-Mar-78 11:13 PRIORITY TESTING SEQ 0098 3842 WATINT^ 3843 033743 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3844 033744 367 13 0 00 033744 SOJG 13,. ;AND WAIT^ 3845 033745 254 00 0 00 033745 JRST . ;LOOP ON SELF^ 3846 033746 000000 000000 MULT1: 0 3847 TRPCHK^ 3848 033747 332 00 0 00 030042 ..0100: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3849 033750 254 00 0 00 033753 JRST .+3 ;DONT IF STAND ALONE 3850 033751 254 02 1 00 033752 JRSTF @@.+1 ;AND RESTORE THEM 3851 033752 000000 033753 USERF,.+1 ;NEW PC AND FLAGS^ 3852 033753 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3853 TRAP ,42^ 3854 033754 200 00 0 00 040265 MOVE [JSR MULT0] ;SET TRAP INSTRUCTION 3855 033755 202 00 0 00 000042 MOVEM 42 ;INTO TRAP LOCATION^ 3856 033756 7 004 20 0 00 002377 CONO PI,CHNON+PION+177 ;TURN ON PI SYSTEM 3857 SBWAIT 1^ 3858 033757 7 000 20 0 00 110101 ..0101: CONO APR,LEPSFT!LSPSFT!1 3859 STUCK^^ 3860 WATINT^ 3861 033760 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3862 033761 367 13 0 00 033761 SOJG 13,. ;AND WAIT^ 3863 033762 254 00 0 00 033762 JRST . ;LOOP ON SELF^ 3864 033763 000000 000000 MULT0: 0 3865 TRPCHK^ 3866 033764 332 00 0 00 030042 ..0102: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3867 033765 254 00 0 00 033770 JRST .+3 ;DONT IF STAND ALONE 3868 033766 254 02 1 00 033767 JRSTF @@.+1 ;AND RESTORE THEM 3869 033767 000000 033770 USERF,.+1 ;NEW PC AND FLAGS^ 3870 033770 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3871 CLRBTH^ 3872 033771 700 04 0 00 261600 CLRAPR 3873 033772 700 14 0 00 031577 CLRPI^ 3874 033773 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0099 3875 SUBTTL DUAL REQUEST TESTING 3876 ;TEST THAT INTERRUPTING ON 2 CHANNELS AT ONCE TRAPS 3877 ;TO THE CORRECT TRAP. TEST IS DONE ON ALL POSSIBLE CHANNELS I.E. 3878 ;7,1 7,2 7,3 7,4 7,5 7,6 6,1 6,2...ETC 3879 3880 3881 033774 C2A: TSET^ 3882 033774 %X=. ;DEFINE %X TO SAVE 3883 033774 201 00 0 00 033774 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3884 033775 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3885 XCHN2 C2B,42,101^ 3886 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 3887 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 3888 ;IF ERROR OCCURS CHECK "PIN" PRINT 3889 3890 TRPCHK^ 3891 033776 332 00 0 00 030042 ..0103: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3892 033777 254 00 0 00 034002 JRST .+3 ;DONT IF STAND ALONE 3893 034000 254 02 1 00 034001 JRSTF @@.+1 ;AND RESTORE THEM 3894 034001 000000 034002 USERF,.+1 ;NEW PC AND FLAGS^ 3895 CLRBTH^ 3896 034002 700 04 0 00 261600 CLRAPR 3897 034003 700 14 0 00 031577 CLRPI^ 3898 034004 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3899 034005 200 00 0 00 040266 MOVE [JSR C2B] ;SET UP FOR CORRECT 3900 034006 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 3901 034007 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 3902 034010 7 004 20 0 00 004101 CONO PI,REQSET!101 ;REQUEST INTERRUPT ON TWO CHANNELS 3903 STUCK^^ 3904 WATINT^ 3905 034011 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3906 034012 367 13 0 00 034012 SOJG 13,. ;AND WAIT^ 3907 034013 254 00 0 00 034013 JRST . ;LOOP ON SELF^ 3908 034014 000000 000000 C2B: 0 3909 TBOTH^ 3910 TGET^ 3911 034015 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3912 034016 302 00 0 00 033774 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3913 STOP2^^ 3914 034017 254 04 0 00 034020 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3915 034020 254 00 0 00 034021 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3916 TSET^^ 3917 034021 %X=. ;DEFINE %X TO SAVE 3918 034021 201 00 0 00 034021 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3919 034022 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3920 XCHN2 C2C,44,41^ 3921 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 3922 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 3923 ;IF ERROR OCCURS CHECK "PIN" PRINT 3924 3925 TRPCHK^ 3926 034023 332 00 0 00 030042 ..0104: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3927 034024 254 00 0 00 034027 JRST .+3 ;DONT IF STAND ALONE 3928 034025 254 02 1 00 034026 JRSTF @@.+1 ;AND RESTORE THEM 3929 034026 000000 034027 USERF,.+1 ;NEW PC AND FLAGS^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-1 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0100 3930 CLRBTH^ 3931 034027 700 04 0 00 261600 CLRAPR 3932 034030 700 14 0 00 031577 CLRPI^ 3933 034031 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3934 034032 200 00 0 00 040267 MOVE [JSR C2C] ;SET UP FOR CORRECT 3935 034033 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP 3936 034034 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 3937 034035 7 004 20 0 00 004041 CONO PI,REQSET!41 ;REQUEST INTERRUPT ON TWO CHANNELS 3938 STUCK^^ 3939 WATINT^ 3940 034036 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3941 034037 367 13 0 00 034037 SOJG 13,. ;AND WAIT^ 3942 034040 254 00 0 00 034040 JRST . ;LOOP ON SELF^ 3943 034041 000000 000000 C2C: 0 3944 TBOTH^ 3945 TGET^ 3946 034042 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3947 034043 302 00 0 00 034021 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3948 STOP2^^ 3949 034044 254 04 0 00 034045 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 3950 034045 254 00 0 00 034046 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3951 TSET^^ 3952 034046 %X=. ;DEFINE %X TO SAVE 3953 034046 201 00 0 00 034046 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3954 034047 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3955 XCHN2 C2D,46,21^ 3956 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 3957 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 3958 ;IF ERROR OCCURS CHECK "PIN" PRINT 3959 3960 TRPCHK^ 3961 034050 332 00 0 00 030042 ..0105: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3962 034051 254 00 0 00 034054 JRST .+3 ;DONT IF STAND ALONE 3963 034052 254 02 1 00 034053 JRSTF @@.+1 ;AND RESTORE THEM 3964 034053 000000 034054 USERF,.+1 ;NEW PC AND FLAGS^ 3965 CLRBTH^ 3966 034054 700 04 0 00 261600 CLRAPR 3967 034055 700 14 0 00 031577 CLRPI^ 3968 034056 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 3969 034057 200 00 0 00 040270 MOVE [JSR C2D] ;SET UP FOR CORRECT 3970 034060 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP 3971 034061 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 3972 034062 7 004 20 0 00 004021 CONO PI,REQSET!21 ;REQUEST INTERRUPT ON TWO CHANNELS 3973 STUCK^^ 3974 WATINT^ 3975 034063 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 3976 034064 367 13 0 00 034064 SOJG 13,. ;AND WAIT^ 3977 034065 254 00 0 00 034065 JRST . ;LOOP ON SELF^ 3978 034066 000000 000000 C2D: 0 3979 TBOTH^ 3980 TGET^ 3981 034067 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 3982 034070 302 00 0 00 034046 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 3983 STOP2^^ 3984 034071 254 04 0 00 034072 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-2 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0101 3985 034072 254 00 0 00 034073 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 3986 TSET^^ 3987 034073 %X=. ;DEFINE %X TO SAVE 3988 034073 201 00 0 00 034073 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 3989 034074 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 3990 XCHN2 C2E,50,11^ 3991 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 3992 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 3993 ;IF ERROR OCCURS CHECK "PIN" PRINT 3994 3995 TRPCHK^ 3996 034075 332 00 0 00 030042 ..0106: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 3997 034076 254 00 0 00 034101 JRST .+3 ;DONT IF STAND ALONE 3998 034077 254 02 1 00 034100 JRSTF @@.+1 ;AND RESTORE THEM 3999 034100 000000 034101 USERF,.+1 ;NEW PC AND FLAGS^ 4000 CLRBTH^ 4001 034101 700 04 0 00 261600 CLRAPR 4002 034102 700 14 0 00 031577 CLRPI^ 4003 034103 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4004 034104 200 00 0 00 040271 MOVE [JSR C2E] ;SET UP FOR CORRECT 4005 034105 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP 4006 034106 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4007 034107 7 004 20 0 00 004011 CONO PI,REQSET!11 ;REQUEST INTERRUPT ON TWO CHANNELS 4008 STUCK^^ 4009 WATINT^ 4010 034110 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4011 034111 367 13 0 00 034111 SOJG 13,. ;AND WAIT^ 4012 034112 254 00 0 00 034112 JRST . ;LOOP ON SELF^ 4013 034113 000000 000000 C2E: 0 4014 TBOTH^ 4015 TGET^ 4016 034114 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4017 034115 302 00 0 00 034073 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4018 STOP2^^ 4019 034116 254 04 0 00 034117 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4020 034117 254 00 0 00 034120 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4021 TSET^^ 4022 034120 %X=. ;DEFINE %X TO SAVE 4023 034120 201 00 0 00 034120 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4024 034121 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4025 XCHN2 C2F,52,5^ 4026 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4027 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4028 ;IF ERROR OCCURS CHECK "PIN" PRINT 4029 4030 TRPCHK^ 4031 034122 332 00 0 00 030042 ..0107: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4032 034123 254 00 0 00 034126 JRST .+3 ;DONT IF STAND ALONE 4033 034124 254 02 1 00 034125 JRSTF @@.+1 ;AND RESTORE THEM 4034 034125 000000 034126 USERF,.+1 ;NEW PC AND FLAGS^ 4035 CLRBTH^ 4036 034126 700 04 0 00 261600 CLRAPR 4037 034127 700 14 0 00 031577 CLRPI^ 4038 034130 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4039 034131 200 00 0 00 040272 MOVE [JSR C2F] ;SET UP FOR CORRECT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-3 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0102 4040 034132 202 00 0 00 000052 MOVEM 52 ;INTERRUPT TRAP 4041 034133 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4042 034134 7 004 20 0 00 004005 CONO PI,REQSET!5 ;REQUEST INTERRUPT ON TWO CHANNELS 4043 STUCK^^ 4044 WATINT^ 4045 034135 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4046 034136 367 13 0 00 034136 SOJG 13,. ;AND WAIT^ 4047 034137 254 00 0 00 034137 JRST . ;LOOP ON SELF^ 4048 034140 000000 000000 C2F: 0 4049 TBOTH^ 4050 TGET^ 4051 034141 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4052 034142 302 00 0 00 034120 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4053 STOP2^^ 4054 034143 254 04 0 00 034144 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4055 034144 254 00 0 00 034145 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4056 TSET^^ 4057 034145 %X=. ;DEFINE %X TO SAVE 4058 034145 201 00 0 00 034145 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4059 034146 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4060 XCHN2 C2G,54,3^ 4061 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4062 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4063 ;IF ERROR OCCURS CHECK "PIN" PRINT 4064 4065 TRPCHK^ 4066 034147 332 00 0 00 030042 ..0110: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4067 034150 254 00 0 00 034153 JRST .+3 ;DONT IF STAND ALONE 4068 034151 254 02 1 00 034152 JRSTF @@.+1 ;AND RESTORE THEM 4069 034152 000000 034153 USERF,.+1 ;NEW PC AND FLAGS^ 4070 CLRBTH^ 4071 034153 700 04 0 00 261600 CLRAPR 4072 034154 700 14 0 00 031577 CLRPI^ 4073 034155 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4074 034156 200 00 0 00 040273 MOVE [JSR C2G] ;SET UP FOR CORRECT 4075 034157 202 00 0 00 000054 MOVEM 54 ;INTERRUPT TRAP 4076 034160 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4077 034161 7 004 20 0 00 004003 CONO PI,REQSET!3 ;REQUEST INTERRUPT ON TWO CHANNELS 4078 STUCK^^ 4079 WATINT^ 4080 034162 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4081 034163 367 13 0 00 034163 SOJG 13,. ;AND WAIT^ 4082 034164 254 00 0 00 034164 JRST . ;LOOP ON SELF^ 4083 034165 000000 000000 C2G: 0 4084 TBOTH^ 4085 TGET^ 4086 034166 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4087 034167 302 00 0 00 034145 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4088 STOP2^^ 4089 034170 254 04 0 00 034171 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4090 034171 254 00 0 00 034172 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4091 TSET^^ 4092 034172 %X=. ;DEFINE %X TO SAVE 4093 034172 201 00 0 00 034172 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4094 034173 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-4 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0103 4095 XCHN2 C2H,42,102^ 4096 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4097 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4098 ;IF ERROR OCCURS CHECK "PIN" PRINT 4099 4100 TRPCHK^ 4101 034174 332 00 0 00 030042 ..0111: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4102 034175 254 00 0 00 034200 JRST .+3 ;DONT IF STAND ALONE 4103 034176 254 02 1 00 034177 JRSTF @@.+1 ;AND RESTORE THEM 4104 034177 000000 034200 USERF,.+1 ;NEW PC AND FLAGS^ 4105 CLRBTH^ 4106 034200 700 04 0 00 261600 CLRAPR 4107 034201 700 14 0 00 031577 CLRPI^ 4108 034202 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4109 034203 200 00 0 00 040274 MOVE [JSR C2H] ;SET UP FOR CORRECT 4110 034204 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 4111 034205 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4112 034206 7 004 20 0 00 004102 CONO PI,REQSET!102 ;REQUEST INTERRUPT ON TWO CHANNELS 4113 STUCK^^ 4114 WATINT^ 4115 034207 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4116 034210 367 13 0 00 034210 SOJG 13,. ;AND WAIT^ 4117 034211 254 00 0 00 034211 JRST . ;LOOP ON SELF^ 4118 034212 000000 000000 C2H: 0 4119 TBOTH^ 4120 TGET^ 4121 034213 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4122 034214 302 00 0 00 034172 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4123 STOP2^^ 4124 034215 254 04 0 00 034216 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4125 034216 254 00 0 00 034217 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4126 TSET^^ 4127 034217 %X=. ;DEFINE %X TO SAVE 4128 034217 201 00 0 00 034217 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4129 034220 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4130 XCHN2 C2I,44,42^ 4131 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4132 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4133 ;IF ERROR OCCURS CHECK "PIN" PRINT 4134 4135 TRPCHK^ 4136 034221 332 00 0 00 030042 ..0112: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4137 034222 254 00 0 00 034225 JRST .+3 ;DONT IF STAND ALONE 4138 034223 254 02 1 00 034224 JRSTF @@.+1 ;AND RESTORE THEM 4139 034224 000000 034225 USERF,.+1 ;NEW PC AND FLAGS^ 4140 CLRBTH^ 4141 034225 700 04 0 00 261600 CLRAPR 4142 034226 700 14 0 00 031577 CLRPI^ 4143 034227 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4144 034230 200 00 0 00 040275 MOVE [JSR C2I] ;SET UP FOR CORRECT 4145 034231 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP 4146 034232 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4147 034233 7 004 20 0 00 004042 CONO PI,REQSET!42 ;REQUEST INTERRUPT ON TWO CHANNELS 4148 STUCK^^ 4149 WATINT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-5 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0104 4150 034234 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4151 034235 367 13 0 00 034235 SOJG 13,. ;AND WAIT^ 4152 034236 254 00 0 00 034236 JRST . ;LOOP ON SELF^ 4153 034237 000000 000000 C2I: 0 4154 TBOTH^ 4155 TGET^ 4156 034240 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4157 034241 302 00 0 00 034217 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4158 STOP2^^ 4159 034242 254 04 0 00 034243 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4160 034243 254 00 0 00 034244 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4161 TSET^^ 4162 034244 %X=. ;DEFINE %X TO SAVE 4163 034244 201 00 0 00 034244 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4164 034245 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4165 XCHN2 C2J,46,22^ 4166 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4167 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4168 ;IF ERROR OCCURS CHECK "PIN" PRINT 4169 4170 TRPCHK^ 4171 034246 332 00 0 00 030042 ..0113: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4172 034247 254 00 0 00 034252 JRST .+3 ;DONT IF STAND ALONE 4173 034250 254 02 1 00 034251 JRSTF @@.+1 ;AND RESTORE THEM 4174 034251 000000 034252 USERF,.+1 ;NEW PC AND FLAGS^ 4175 CLRBTH^ 4176 034252 700 04 0 00 261600 CLRAPR 4177 034253 700 14 0 00 031577 CLRPI^ 4178 034254 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4179 034255 200 00 0 00 040276 MOVE [JSR C2J] ;SET UP FOR CORRECT 4180 034256 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP 4181 034257 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4182 034260 7 004 20 0 00 004022 CONO PI,REQSET!22 ;REQUEST INTERRUPT ON TWO CHANNELS 4183 STUCK^^ 4184 WATINT^ 4185 034261 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4186 034262 367 13 0 00 034262 SOJG 13,. ;AND WAIT^ 4187 034263 254 00 0 00 034263 JRST . ;LOOP ON SELF^ 4188 034264 000000 000000 C2J: 0 4189 TBOTH^ 4190 TGET^ 4191 034265 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4192 034266 302 00 0 00 034244 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4193 STOP2^^ 4194 034267 254 04 0 00 034270 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4195 034270 254 00 0 00 034271 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4196 TSET^^ 4197 034271 %X=. ;DEFINE %X TO SAVE 4198 034271 201 00 0 00 034271 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4199 034272 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4200 XCHN2 C2K,50,12^ 4201 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4202 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4203 ;IF ERROR OCCURS CHECK "PIN" PRINT 4204 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-6 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0105 4205 TRPCHK^ 4206 034273 332 00 0 00 030042 ..0114: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4207 034274 254 00 0 00 034277 JRST .+3 ;DONT IF STAND ALONE 4208 034275 254 02 1 00 034276 JRSTF @@.+1 ;AND RESTORE THEM 4209 034276 000000 034277 USERF,.+1 ;NEW PC AND FLAGS^ 4210 CLRBTH^ 4211 034277 700 04 0 00 261600 CLRAPR 4212 034300 700 14 0 00 031577 CLRPI^ 4213 034301 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4214 034302 200 00 0 00 040277 MOVE [JSR C2K] ;SET UP FOR CORRECT 4215 034303 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP 4216 034304 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4217 034305 7 004 20 0 00 004012 CONO PI,REQSET!12 ;REQUEST INTERRUPT ON TWO CHANNELS 4218 STUCK^^ 4219 WATINT^ 4220 034306 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4221 034307 367 13 0 00 034307 SOJG 13,. ;AND WAIT^ 4222 034310 254 00 0 00 034310 JRST . ;LOOP ON SELF^ 4223 034311 000000 000000 C2K: 0 4224 TBOTH^ 4225 TGET^ 4226 034312 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4227 034313 302 00 0 00 034271 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4228 STOP2^^ 4229 034314 254 04 0 00 034315 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4230 034315 254 00 0 00 034316 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4231 TSET^^ 4232 034316 %X=. ;DEFINE %X TO SAVE 4233 034316 201 00 0 00 034316 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4234 034317 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4235 XCHN2 C2L,52,6^ 4236 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4237 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4238 ;IF ERROR OCCURS CHECK "PIN" PRINT 4239 4240 TRPCHK^ 4241 034320 332 00 0 00 030042 ..0115: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4242 034321 254 00 0 00 034324 JRST .+3 ;DONT IF STAND ALONE 4243 034322 254 02 1 00 034323 JRSTF @@.+1 ;AND RESTORE THEM 4244 034323 000000 034324 USERF,.+1 ;NEW PC AND FLAGS^ 4245 CLRBTH^ 4246 034324 700 04 0 00 261600 CLRAPR 4247 034325 700 14 0 00 031577 CLRPI^ 4248 034326 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4249 034327 200 00 0 00 040300 MOVE [JSR C2L] ;SET UP FOR CORRECT 4250 034330 202 00 0 00 000052 MOVEM 52 ;INTERRUPT TRAP 4251 034331 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4252 034332 7 004 20 0 00 004006 CONO PI,REQSET!6 ;REQUEST INTERRUPT ON TWO CHANNELS 4253 STUCK^^ 4254 WATINT^ 4255 034333 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4256 034334 367 13 0 00 034334 SOJG 13,. ;AND WAIT^ 4257 034335 254 00 0 00 034335 JRST . ;LOOP ON SELF^ 4258 034336 000000 000000 C2L: 0 4259 TBOTH^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-7 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0106 4260 TGET^ 4261 034337 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4262 034340 302 00 0 00 034316 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4263 STOP2^^ 4264 034341 254 04 0 00 034342 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4265 034342 254 00 0 00 034343 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4266 TSET^^ 4267 034343 %X=. ;DEFINE %X TO SAVE 4268 034343 201 00 0 00 034343 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4269 034344 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4270 XCHN2 C2M,42,104^ 4271 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4272 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4273 ;IF ERROR OCCURS CHECK "PIN" PRINT 4274 4275 TRPCHK^ 4276 034345 332 00 0 00 030042 ..0116: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4277 034346 254 00 0 00 034351 JRST .+3 ;DONT IF STAND ALONE 4278 034347 254 02 1 00 034350 JRSTF @@.+1 ;AND RESTORE THEM 4279 034350 000000 034351 USERF,.+1 ;NEW PC AND FLAGS^ 4280 CLRBTH^ 4281 034351 700 04 0 00 261600 CLRAPR 4282 034352 700 14 0 00 031577 CLRPI^ 4283 034353 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4284 034354 200 00 0 00 040301 MOVE [JSR C2M] ;SET UP FOR CORRECT 4285 034355 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 4286 034356 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4287 034357 7 004 20 0 00 004104 CONO PI,REQSET!104 ;REQUEST INTERRUPT ON TWO CHANNELS 4288 STUCK^^ 4289 WATINT^ 4290 034360 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4291 034361 367 13 0 00 034361 SOJG 13,. ;AND WAIT^ 4292 034362 254 00 0 00 034362 JRST . ;LOOP ON SELF^ 4293 034363 000000 000000 C2M: 0 4294 TBOTH^ 4295 TGET^ 4296 034364 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4297 034365 302 00 0 00 034343 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4298 STOP2^^ 4299 034366 254 04 0 00 034367 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4300 034367 254 00 0 00 034370 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4301 TSET^^ 4302 034370 %X=. ;DEFINE %X TO SAVE 4303 034370 201 00 0 00 034370 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4304 034371 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4305 XCHN2 C2N,44,44^ 4306 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4307 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4308 ;IF ERROR OCCURS CHECK "PIN" PRINT 4309 4310 TRPCHK^ 4311 034372 332 00 0 00 030042 ..0117: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4312 034373 254 00 0 00 034376 JRST .+3 ;DONT IF STAND ALONE 4313 034374 254 02 1 00 034375 JRSTF @@.+1 ;AND RESTORE THEM 4314 034375 000000 034376 USERF,.+1 ;NEW PC AND FLAGS^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-8 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0107 4315 CLRBTH^ 4316 034376 700 04 0 00 261600 CLRAPR 4317 034377 700 14 0 00 031577 CLRPI^ 4318 034400 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4319 034401 200 00 0 00 040302 MOVE [JSR C2N] ;SET UP FOR CORRECT 4320 034402 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP 4321 034403 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4322 034404 7 004 20 0 00 004044 CONO PI,REQSET!44 ;REQUEST INTERRUPT ON TWO CHANNELS 4323 STUCK^^ 4324 WATINT^ 4325 034405 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4326 034406 367 13 0 00 034406 SOJG 13,. ;AND WAIT^ 4327 034407 254 00 0 00 034407 JRST . ;LOOP ON SELF^ 4328 034410 000000 000000 C2N: 0 4329 TBOTH^ 4330 TGET^ 4331 034411 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4332 034412 302 00 0 00 034370 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4333 STOP2^^ 4334 034413 254 04 0 00 034414 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4335 034414 254 00 0 00 034415 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4336 TSET^^ 4337 034415 %X=. ;DEFINE %X TO SAVE 4338 034415 201 00 0 00 034415 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4339 034416 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4340 XCHN2 C2O,46,24^ 4341 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4342 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4343 ;IF ERROR OCCURS CHECK "PIN" PRINT 4344 4345 TRPCHK^ 4346 034417 332 00 0 00 030042 ..0120: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4347 034420 254 00 0 00 034423 JRST .+3 ;DONT IF STAND ALONE 4348 034421 254 02 1 00 034422 JRSTF @@.+1 ;AND RESTORE THEM 4349 034422 000000 034423 USERF,.+1 ;NEW PC AND FLAGS^ 4350 CLRBTH^ 4351 034423 700 04 0 00 261600 CLRAPR 4352 034424 700 14 0 00 031577 CLRPI^ 4353 034425 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4354 034426 200 00 0 00 040303 MOVE [JSR C2O] ;SET UP FOR CORRECT 4355 034427 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP 4356 034430 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4357 034431 7 004 20 0 00 004024 CONO PI,REQSET!24 ;REQUEST INTERRUPT ON TWO CHANNELS 4358 STUCK^^ 4359 WATINT^ 4360 034432 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4361 034433 367 13 0 00 034433 SOJG 13,. ;AND WAIT^ 4362 034434 254 00 0 00 034434 JRST . ;LOOP ON SELF^ 4363 034435 000000 000000 C2O: 0 4364 TBOTH^ 4365 TGET^ 4366 034436 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4367 034437 302 00 0 00 034415 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4368 STOP2^^ 4369 034440 254 04 0 00 034441 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-9 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0108 4370 034441 254 00 0 00 034442 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4371 TSET^^ 4372 034442 %X=. ;DEFINE %X TO SAVE 4373 034442 201 00 0 00 034442 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4374 034443 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4375 XCHN2 C2P,50,14^ 4376 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4377 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4378 ;IF ERROR OCCURS CHECK "PIN" PRINT 4379 4380 TRPCHK^ 4381 034444 332 00 0 00 030042 ..0121: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4382 034445 254 00 0 00 034450 JRST .+3 ;DONT IF STAND ALONE 4383 034446 254 02 1 00 034447 JRSTF @@.+1 ;AND RESTORE THEM 4384 034447 000000 034450 USERF,.+1 ;NEW PC AND FLAGS^ 4385 CLRBTH^ 4386 034450 700 04 0 00 261600 CLRAPR 4387 034451 700 14 0 00 031577 CLRPI^ 4388 034452 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4389 034453 200 00 0 00 040304 MOVE [JSR C2P] ;SET UP FOR CORRECT 4390 034454 202 00 0 00 000050 MOVEM 50 ;INTERRUPT TRAP 4391 034455 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4392 034456 7 004 20 0 00 004014 CONO PI,REQSET!14 ;REQUEST INTERRUPT ON TWO CHANNELS 4393 STUCK^^ 4394 WATINT^ 4395 034457 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4396 034460 367 13 0 00 034460 SOJG 13,. ;AND WAIT^ 4397 034461 254 00 0 00 034461 JRST . ;LOOP ON SELF^ 4398 034462 000000 000000 C2P: 0 4399 TBOTH^ 4400 TGET^ 4401 034463 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4402 034464 302 00 0 00 034442 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4403 STOP2^^ 4404 034465 254 04 0 00 034466 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4405 034466 254 00 0 00 034467 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4406 TSET^^ 4407 034467 %X=. ;DEFINE %X TO SAVE 4408 034467 201 00 0 00 034467 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4409 034470 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4410 XCHN2 C2Q,42,110^ 4411 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4412 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4413 ;IF ERROR OCCURS CHECK "PIN" PRINT 4414 4415 TRPCHK^ 4416 034471 332 00 0 00 030042 ..0122: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4417 034472 254 00 0 00 034475 JRST .+3 ;DONT IF STAND ALONE 4418 034473 254 02 1 00 034474 JRSTF @@.+1 ;AND RESTORE THEM 4419 034474 000000 034475 USERF,.+1 ;NEW PC AND FLAGS^ 4420 CLRBTH^ 4421 034475 700 04 0 00 261600 CLRAPR 4422 034476 700 14 0 00 031577 CLRPI^ 4423 034477 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4424 034500 200 00 0 00 040305 MOVE [JSR C2Q] ;SET UP FOR CORRECT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-10 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0109 4425 034501 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 4426 034502 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4427 034503 7 004 20 0 00 004110 CONO PI,REQSET!110 ;REQUEST INTERRUPT ON TWO CHANNELS 4428 STUCK^^ 4429 WATINT^ 4430 034504 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4431 034505 367 13 0 00 034505 SOJG 13,. ;AND WAIT^ 4432 034506 254 00 0 00 034506 JRST . ;LOOP ON SELF^ 4433 034507 000000 000000 C2Q: 0 4434 TBOTH^ 4435 TGET^ 4436 034510 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4437 034511 302 00 0 00 034467 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4438 STOP2^^ 4439 034512 254 04 0 00 034513 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4440 034513 254 00 0 00 034514 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4441 TSET^^ 4442 034514 %X=. ;DEFINE %X TO SAVE 4443 034514 201 00 0 00 034514 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4444 034515 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4445 XCHN2 C2R,44,50^ 4446 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4447 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4448 ;IF ERROR OCCURS CHECK "PIN" PRINT 4449 4450 TRPCHK^ 4451 034516 332 00 0 00 030042 ..0123: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4452 034517 254 00 0 00 034522 JRST .+3 ;DONT IF STAND ALONE 4453 034520 254 02 1 00 034521 JRSTF @@.+1 ;AND RESTORE THEM 4454 034521 000000 034522 USERF,.+1 ;NEW PC AND FLAGS^ 4455 CLRBTH^ 4456 034522 700 04 0 00 261600 CLRAPR 4457 034523 700 14 0 00 031577 CLRPI^ 4458 034524 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4459 034525 200 00 0 00 040306 MOVE [JSR C2R] ;SET UP FOR CORRECT 4460 034526 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP 4461 034527 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4462 034530 7 004 20 0 00 004050 CONO PI,REQSET!50 ;REQUEST INTERRUPT ON TWO CHANNELS 4463 STUCK^^ 4464 WATINT^ 4465 034531 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4466 034532 367 13 0 00 034532 SOJG 13,. ;AND WAIT^ 4467 034533 254 00 0 00 034533 JRST . ;LOOP ON SELF^ 4468 034534 000000 000000 C2R: 0 4469 TBOTH^ 4470 TGET^ 4471 034535 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4472 034536 302 00 0 00 034514 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4473 STOP2^^ 4474 034537 254 04 0 00 034540 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4475 034540 254 00 0 00 034541 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4476 TSET^^ 4477 034541 %X=. ;DEFINE %X TO SAVE 4478 034541 201 00 0 00 034541 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4479 034542 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-11 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0110 4480 XCHN2 C2S,46,30^ 4481 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4482 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4483 ;IF ERROR OCCURS CHECK "PIN" PRINT 4484 4485 TRPCHK^ 4486 034543 332 00 0 00 030042 ..0124: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4487 034544 254 00 0 00 034547 JRST .+3 ;DONT IF STAND ALONE 4488 034545 254 02 1 00 034546 JRSTF @@.+1 ;AND RESTORE THEM 4489 034546 000000 034547 USERF,.+1 ;NEW PC AND FLAGS^ 4490 CLRBTH^ 4491 034547 700 04 0 00 261600 CLRAPR 4492 034550 700 14 0 00 031577 CLRPI^ 4493 034551 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4494 034552 200 00 0 00 040307 MOVE [JSR C2S] ;SET UP FOR CORRECT 4495 034553 202 00 0 00 000046 MOVEM 46 ;INTERRUPT TRAP 4496 034554 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4497 034555 7 004 20 0 00 004030 CONO PI,REQSET!30 ;REQUEST INTERRUPT ON TWO CHANNELS 4498 STUCK^^ 4499 WATINT^ 4500 034556 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4501 034557 367 13 0 00 034557 SOJG 13,. ;AND WAIT^ 4502 034560 254 00 0 00 034560 JRST . ;LOOP ON SELF^ 4503 034561 000000 000000 C2S: 0 4504 TBOTH^ 4505 TGET^ 4506 034562 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4507 034563 302 00 0 00 034541 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4508 STOP2^^ 4509 034564 254 04 0 00 034565 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4510 034565 254 00 0 00 034566 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4511 TSET^^ 4512 034566 %X=. ;DEFINE %X TO SAVE 4513 034566 201 00 0 00 034566 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4514 034567 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4515 XCHN2 C2T,42,120^ 4516 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4517 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4518 ;IF ERROR OCCURS CHECK "PIN" PRINT 4519 4520 TRPCHK^ 4521 034570 332 00 0 00 030042 ..0125: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4522 034571 254 00 0 00 034574 JRST .+3 ;DONT IF STAND ALONE 4523 034572 254 02 1 00 034573 JRSTF @@.+1 ;AND RESTORE THEM 4524 034573 000000 034574 USERF,.+1 ;NEW PC AND FLAGS^ 4525 CLRBTH^ 4526 034574 700 04 0 00 261600 CLRAPR 4527 034575 700 14 0 00 031577 CLRPI^ 4528 034576 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4529 034577 200 00 0 00 040310 MOVE [JSR C2T] ;SET UP FOR CORRECT 4530 034600 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 4531 034601 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4532 034602 7 004 20 0 00 004120 CONO PI,REQSET!120 ;REQUEST INTERRUPT ON TWO CHANNELS 4533 STUCK^^ 4534 WATINT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-12 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0111 4535 034603 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4536 034604 367 13 0 00 034604 SOJG 13,. ;AND WAIT^ 4537 034605 254 00 0 00 034605 JRST . ;LOOP ON SELF^ 4538 034606 000000 000000 C2T: 0 4539 TBOTH^ 4540 TGET^ 4541 034607 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4542 034610 302 00 0 00 034566 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4543 STOP2^^ 4544 034611 254 04 0 00 034612 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4545 034612 254 00 0 00 034613 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4546 TSET^^ 4547 034613 %X=. ;DEFINE %X TO SAVE 4548 034613 201 00 0 00 034613 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4549 034614 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4550 XCHN2 C2U,44,60^ 4551 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4552 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4553 ;IF ERROR OCCURS CHECK "PIN" PRINT 4554 4555 TRPCHK^ 4556 034615 332 00 0 00 030042 ..0126: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4557 034616 254 00 0 00 034621 JRST .+3 ;DONT IF STAND ALONE 4558 034617 254 02 1 00 034620 JRSTF @@.+1 ;AND RESTORE THEM 4559 034620 000000 034621 USERF,.+1 ;NEW PC AND FLAGS^ 4560 CLRBTH^ 4561 034621 700 04 0 00 261600 CLRAPR 4562 034622 700 14 0 00 031577 CLRPI^ 4563 034623 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4564 034624 200 00 0 00 040311 MOVE [JSR C2U] ;SET UP FOR CORRECT 4565 034625 202 00 0 00 000044 MOVEM 44 ;INTERRUPT TRAP 4566 034626 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4567 034627 7 004 20 0 00 004060 CONO PI,REQSET!60 ;REQUEST INTERRUPT ON TWO CHANNELS 4568 STUCK^^ 4569 WATINT^ 4570 034630 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4571 034631 367 13 0 00 034631 SOJG 13,. ;AND WAIT^ 4572 034632 254 00 0 00 034632 JRST . ;LOOP ON SELF^ 4573 034633 000000 000000 C2U: 0 4574 TBOTH^ 4575 TGET^ 4576 034634 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4577 034635 302 00 0 00 034613 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4578 STOP2^^ 4579 034636 254 04 0 00 034637 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4580 034637 254 00 0 00 034640 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4581 TSET^^ 4582 034640 %X=. ;DEFINE %X TO SAVE 4583 034640 201 00 0 00 034640 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4584 034641 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4585 XCHN2 C2V,42,140^ 4586 ;REQUEST INTERRUPTS ON 2 CHANNELS AT ONCE TO SEE IF THEY TRAP 4587 ;TO THE CORRECT (I.E. HIGHEST PRIORITY) CHANNEL. 4588 ;IF ERROR OCCURS CHECK "PIN" PRINT 4589 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 34-13 DSKAH1 MAC 31-Mar-78 11:13 DUAL REQUEST TESTING SEQ 0112 4590 TRPCHK^ 4591 034642 332 00 0 00 030042 ..0127: SKIPE MONFLG ;RESET FLAGS IF IN MONITOR 4592 034643 254 00 0 00 034646 JRST .+3 ;DONT IF STAND ALONE 4593 034644 254 02 1 00 034645 JRSTF @@.+1 ;AND RESTORE THEM 4594 034645 000000 034646 USERF,.+1 ;NEW PC AND FLAGS^ 4595 CLRBTH^ 4596 034646 700 04 0 00 261600 CLRAPR 4597 034647 700 14 0 00 031577 CLRPI^ 4598 034650 264 00 0 00 040032 HALTPI ;FILL INTERRUPT LOCATIONS WITH HALTS 4599 034651 200 00 0 00 040312 MOVE [JSR C2V] ;SET UP FOR CORRECT 4600 034652 202 00 0 00 000042 MOVEM 42 ;INTERRUPT TRAP 4601 034653 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4602 034654 7 004 20 0 00 004140 CONO PI,REQSET!140 ;REQUEST INTERRUPT ON TWO CHANNELS 4603 STUCK^^ 4604 WATINT^ 4605 034655 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4606 034656 367 13 0 00 034656 SOJG 13,. ;AND WAIT^ 4607 034657 254 00 0 00 034657 JRST . ;LOOP ON SELF^ 4608 034660 255 00 0 00 000000 JFCL 4609 034661 000000 000000 C2V: 0 4610 TGET^ 4611 034662 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4612 034663 302 00 0 00 034640 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4613 STOP2^^ 4614 034664 254 04 0 00 034665 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4615 034665 254 00 0 00 034666 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4616 CLRBTH^ 4617 034666 700 04 0 00 261600 CLRAPR 4618 034667 700 14 0 00 031577 CLRPI^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35 DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0113 4619 SUBTTL TEST THE ABILITY TO DISMISS INTERRUPTS 4620 4621 ;CHECK THAT "JEN" DISMISSES INTERRUPTS 4622 4623 000042 X=42 4624 000100 Z1=100 4625 JENDIS: REPEAT 7,< 4626 PIDIS X,Z1 4627 X=X+2 4628 Z1=Z1_-1 4629 > 4630 4631 PIDIS X,Z1^ 4632 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4633 4634 TSET^ 4635 034670 %X=. ;DEFINE %X TO SAVE 4636 034670 201 00 0 00 034670 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4637 034671 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4638 034672 200 00 0 00 040313 ..0130: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4639 034673 202 00 0 00 000042 MOVEM X ;INTO X 4640 034674 7 004 20 0 00 006300 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4641 WATINT^ 4642 034675 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4643 034676 367 13 0 00 034676 SOJG 13,. ;AND WAIT^ 4644 034677 254 00 0 00 034703 JRST .+4 4645 034700 000000 000000 0 4646 034701 7 004 20 0 00 022300 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4647 034702 254 12 1 00 034700 JEN @@.-2 ;DISMISS THE INTERRUPT 4648 034703 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4649 STOP^ 4650 034704 254 04 0 00 034705 HALT .+1 ;INSTRUCTION FAILED REPLACE 4651 034705 254 00 0 00 034706 JRST .+1 ;WITH JRST BACK^ 4652 TGET^ 4653 034706 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4654 034707 302 00 0 00 034670 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4655 STOP2^^ 4656 034710 254 04 0 00 034711 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4657 034711 254 00 0 00 034712 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4658 CLRBTH^^ 4659 034712 700 04 0 00 261600 CLRAPR 4660 034713 700 14 0 00 031577 CLRPI^ 4661 000044 X=X+2 4662 000040 Z1=Z1_-1 4663 4664 4665 PIDIS X,Z1^ 4666 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4667 4668 TSET^ 4669 034714 %X=. ;DEFINE %X TO SAVE 4670 034714 201 00 0 00 034714 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4671 034715 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4672 034716 200 00 0 00 040314 ..0131: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4673 034717 202 00 0 00 000044 MOVEM X ;INTO X DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-1 DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0114 4674 034720 7 004 20 0 00 006240 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4675 WATINT^ 4676 034721 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4677 034722 367 13 0 00 034722 SOJG 13,. ;AND WAIT^ 4678 034723 254 00 0 00 034727 JRST .+4 4679 034724 000000 000000 0 4680 034725 7 004 20 0 00 022240 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4681 034726 254 12 1 00 034724 JEN @@.-2 ;DISMISS THE INTERRUPT 4682 034727 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4683 STOP^ 4684 034730 254 04 0 00 034731 HALT .+1 ;INSTRUCTION FAILED REPLACE 4685 034731 254 00 0 00 034732 JRST .+1 ;WITH JRST BACK^ 4686 TGET^ 4687 034732 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4688 034733 302 00 0 00 034714 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4689 STOP2^^ 4690 034734 254 04 0 00 034735 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4691 034735 254 00 0 00 034736 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4692 CLRBTH^^ 4693 034736 700 04 0 00 261600 CLRAPR 4694 034737 700 14 0 00 031577 CLRPI^ 4695 000046 X=X+2 4696 000020 Z1=Z1_-1 4697 4698 4699 PIDIS X,Z1^ 4700 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4701 4702 TSET^ 4703 034740 %X=. ;DEFINE %X TO SAVE 4704 034740 201 00 0 00 034740 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4705 034741 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4706 034742 200 00 0 00 040315 ..0132: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4707 034743 202 00 0 00 000046 MOVEM X ;INTO X 4708 034744 7 004 20 0 00 006220 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4709 WATINT^ 4710 034745 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4711 034746 367 13 0 00 034746 SOJG 13,. ;AND WAIT^ 4712 034747 254 00 0 00 034753 JRST .+4 4713 034750 000000 000000 0 4714 034751 7 004 20 0 00 022220 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4715 034752 254 12 1 00 034750 JEN @@.-2 ;DISMISS THE INTERRUPT 4716 034753 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4717 STOP^ 4718 034754 254 04 0 00 034755 HALT .+1 ;INSTRUCTION FAILED REPLACE 4719 034755 254 00 0 00 034756 JRST .+1 ;WITH JRST BACK^ 4720 TGET^ 4721 034756 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4722 034757 302 00 0 00 034740 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4723 STOP2^^ 4724 034760 254 04 0 00 034761 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4725 034761 254 00 0 00 034762 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4726 CLRBTH^^ 4727 034762 700 04 0 00 261600 CLRAPR 4728 034763 700 14 0 00 031577 CLRPI^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-2 DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0115 4729 000050 X=X+2 4730 000010 Z1=Z1_-1 4731 4732 4733 PIDIS X,Z1^ 4734 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4735 4736 TSET^ 4737 034764 %X=. ;DEFINE %X TO SAVE 4738 034764 201 00 0 00 034764 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4739 034765 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4740 034766 200 00 0 00 040316 ..0133: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4741 034767 202 00 0 00 000050 MOVEM X ;INTO X 4742 034770 7 004 20 0 00 006210 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4743 WATINT^ 4744 034771 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4745 034772 367 13 0 00 034772 SOJG 13,. ;AND WAIT^ 4746 034773 254 00 0 00 034777 JRST .+4 4747 034774 000000 000000 0 4748 034775 7 004 20 0 00 022210 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4749 034776 254 12 1 00 034774 JEN @@.-2 ;DISMISS THE INTERRUPT 4750 034777 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4751 STOP^ 4752 035000 254 04 0 00 035001 HALT .+1 ;INSTRUCTION FAILED REPLACE 4753 035001 254 00 0 00 035002 JRST .+1 ;WITH JRST BACK^ 4754 TGET^ 4755 035002 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4756 035003 302 00 0 00 034764 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4757 STOP2^^ 4758 035004 254 04 0 00 035005 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4759 035005 254 00 0 00 035006 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4760 CLRBTH^^ 4761 035006 700 04 0 00 261600 CLRAPR 4762 035007 700 14 0 00 031577 CLRPI^ 4763 000052 X=X+2 4764 000004 Z1=Z1_-1 4765 4766 4767 PIDIS X,Z1^ 4768 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4769 4770 TSET^ 4771 035010 %X=. ;DEFINE %X TO SAVE 4772 035010 201 00 0 00 035010 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4773 035011 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4774 035012 200 00 0 00 040317 ..0134: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4775 035013 202 00 0 00 000052 MOVEM X ;INTO X 4776 035014 7 004 20 0 00 006204 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4777 WATINT^ 4778 035015 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4779 035016 367 13 0 00 035016 SOJG 13,. ;AND WAIT^ 4780 035017 254 00 0 00 035023 JRST .+4 4781 035020 000000 000000 0 4782 035021 7 004 20 0 00 022204 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4783 035022 254 12 1 00 035020 JEN @@.-2 ;DISMISS THE INTERRUPT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-3 DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0116 4784 035023 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4785 STOP^ 4786 035024 254 04 0 00 035025 HALT .+1 ;INSTRUCTION FAILED REPLACE 4787 035025 254 00 0 00 035026 JRST .+1 ;WITH JRST BACK^ 4788 TGET^ 4789 035026 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4790 035027 302 00 0 00 035010 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4791 STOP2^^ 4792 035030 254 04 0 00 035031 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4793 035031 254 00 0 00 035032 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4794 CLRBTH^^ 4795 035032 700 04 0 00 261600 CLRAPR 4796 035033 700 14 0 00 031577 CLRPI^ 4797 000054 X=X+2 4798 000002 Z1=Z1_-1 4799 4800 4801 PIDIS X,Z1^ 4802 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4803 4804 TSET^ 4805 035034 %X=. ;DEFINE %X TO SAVE 4806 035034 201 00 0 00 035034 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4807 035035 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4808 035036 200 00 0 00 040320 ..0135: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4809 035037 202 00 0 00 000054 MOVEM X ;INTO X 4810 035040 7 004 20 0 00 006202 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4811 WATINT^ 4812 035041 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4813 035042 367 13 0 00 035042 SOJG 13,. ;AND WAIT^ 4814 035043 254 00 0 00 035047 JRST .+4 4815 035044 000000 000000 0 4816 035045 7 004 20 0 00 022202 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4817 035046 254 12 1 00 035044 JEN @@.-2 ;DISMISS THE INTERRUPT 4818 035047 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4819 STOP^ 4820 035050 254 04 0 00 035051 HALT .+1 ;INSTRUCTION FAILED REPLACE 4821 035051 254 00 0 00 035052 JRST .+1 ;WITH JRST BACK^ 4822 TGET^ 4823 035052 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4824 035053 302 00 0 00 035034 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4825 STOP2^^ 4826 035054 254 04 0 00 035055 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4827 035055 254 00 0 00 035056 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4828 CLRBTH^^ 4829 035056 700 04 0 00 261600 CLRAPR 4830 035057 700 14 0 00 031577 CLRPI^ 4831 000056 X=X+2 4832 000001 Z1=Z1_-1 4833 4834 4835 PIDIS X,Z1^ 4836 ;CHECK THAT X JEN WILL DISMISS INTERUPTS ON ALL CHANNELS 4837 4838 TSET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 35-4 DSKAH1 MAC 31-Mar-78 11:13 TEST THE ABILITY TO DISMISS INTERRUPTS SEQ 0117 4839 035060 %X=. ;DEFINE %X TO SAVE 4840 035060 201 00 0 00 035060 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 4841 035061 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 4842 035062 200 00 0 00 040321 ..0136: MOVE [JSR .+6] ;PUT THE PI TRAP INSTRUCTION 4843 035063 202 00 0 00 000056 MOVEM X ;INTO X 4844 035064 7 004 20 0 00 006201 CONO PI,CHNON+PION+REQSET+Z1 ;TURN ON PI AND REQEST ON CH Z1 4845 WATINT^ 4846 035065 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4847 035066 367 13 0 00 035066 SOJG 13,. ;AND WAIT^ 4848 035067 254 00 0 00 035073 JRST .+4 4849 035070 000000 000000 0 4850 035071 7 004 20 0 00 022201 CONO PI,CHNON+PION+LRQCLR+Z1 ;TURN OF INTERRUPT REQUEST 4851 035072 254 12 1 00 035070 JEN @@.-2 ;DISMISS THE INTERRUPT 4852 035073 7 004 30 0 00 077400 CONSZ PI,77400 ;NO REQUESTS SHOULD BE SET 4853 STOP^ 4854 035074 254 04 0 00 035075 HALT .+1 ;INSTRUCTION FAILED REPLACE 4855 035075 254 00 0 00 035076 JRST .+1 ;WITH JRST BACK^ 4856 TGET^ 4857 035076 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 4858 035077 302 00 0 00 035060 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 4859 STOP2^^ 4860 035100 254 04 0 00 035101 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 4861 035101 254 00 0 00 035102 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 4862 CLRBTH^^ 4863 035102 700 04 0 00 261600 CLRAPR 4864 035103 700 14 0 00 031577 CLRPI^ 4865 000060 X=X+2 4866 000000 Z1=Z1_-1 4867 4868 035104 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36 DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0118 4869 SUBTTL TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM 4870 ;TEST THAT THE APR SYSTEM WILL NOT CAUSE AN INTERRUPT WHEN ENABLED AND 4871 ;NO APR APR SYSTEM CHANNEL IS SET.. 4872 BLURB^ 4873 ;LOCATIONS 40-60 CONTAIN A JSR TO A ROUTINE WHICH STORES 4874 ;THE CHANNEL NUMBER OF THE INTERRUPT INTO 0 4875 ;THEREFORE IF AN INTERRUPT OCCURS THEN LOCATION 4876 ;ZERO WILL CONTAIN THE NUMBER OF THE INTERRUPT CHANNEL TRAP ADRESS 4877 ^ 4878 035105 CKCK0: CLRBTH^ 4879 035105 700 04 0 00 261600 CLRAPR 4880 035106 700 14 0 00 031577 CLRPI^ 4881 035107 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 4882 035110 400 00 0 00 000000 SETZ ;CLEAR 0 4883 035111 7 004 20 0 00 002377 CONO PI,CHNON!PION!177 ;TURN ON PI SYSTEM 4884 CONO APR,LEPSFT!LSPSFT!LENXER!LSNXER!LEPWRF!LSPWRF!LEPAER!LSPAER ;ENABLE THE 4885 035112 7 000 20 0 00 111700 APR SYSTEM 4886 WATINT^ 4887 035113 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4888 035114 367 13 0 00 035114 SOJG 13,. ;AND WAIT^ 4889 035115 332 00 0 00 000000 SKIPE ;AC0=0 4890 STOP^ 4891 035116 254 04 0 00 035117 HALT .+1 ;INSTRUCTION FAILED REPLACE 4892 035117 254 00 0 00 035120 JRST .+1 ;WITH JRST BACK^ 4893 4894 4895 ;TEST THAT THE APR SYSTEM WILL NOT INTERRUPT WITHOUT APR SYSTEM ENABLE SET 4896 ;ON ALL CHANNELS 4897 4898 000001 X=1 4899 CKCK1: REPEAT 7,< 4900 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 4901 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 4902 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 4903 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 4904 CLRBTH 4905 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 4906 SETZ 0, ;INSURE ZERO AC0. 4907 CONO PI,PION!CHNON!177 ;ENABLE PI'S 4908 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 4909 STEM AND SET CH X 4910 WATINT 4911 SKIPE ;AC0=0 4912 STOP 4913 X=X+1 4914 > 4915 4916 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 4917 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 4918 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 4919 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 4920 CLRBTH^ 4921 035120 700 04 0 00 261600 CLRAPR 4922 035121 700 14 0 00 031577 CLRPI^ 4923 035122 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-1 DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0119 4924 035123 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 4925 035124 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 4926 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 4927 035125 7 000 20 0 00 051701 STEM AND SET CH X 4928 WATINT^ 4929 035126 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4930 035127 367 13 0 00 035127 SOJG 13,. ;AND WAIT^ 4931 035130 332 00 0 00 000000 SKIPE ;AC0=0 4932 STOP^ 4933 035131 254 04 0 00 035132 HALT .+1 ;INSTRUCTION FAILED REPLACE 4934 035132 254 00 0 00 035133 JRST .+1 ;WITH JRST BACK^ 4935 000002 X=X+1 4936 4937 4938 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 4939 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 4940 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 4941 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 4942 CLRBTH^ 4943 035133 700 04 0 00 261600 CLRAPR 4944 035134 700 14 0 00 031577 CLRPI^ 4945 035135 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 4946 035136 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 4947 035137 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 4948 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 4949 035140 7 000 20 0 00 051702 STEM AND SET CH X 4950 WATINT^ 4951 035141 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4952 035142 367 13 0 00 035142 SOJG 13,. ;AND WAIT^ 4953 035143 332 00 0 00 000000 SKIPE ;AC0=0 4954 STOP^ 4955 035144 254 04 0 00 035145 HALT .+1 ;INSTRUCTION FAILED REPLACE 4956 035145 254 00 0 00 035146 JRST .+1 ;WITH JRST BACK^ 4957 000003 X=X+1 4958 4959 4960 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 4961 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 4962 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 4963 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 4964 CLRBTH^ 4965 035146 700 04 0 00 261600 CLRAPR 4966 035147 700 14 0 00 031577 CLRPI^ 4967 035150 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 4968 035151 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 4969 035152 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 4970 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 4971 035153 7 000 20 0 00 051703 STEM AND SET CH X 4972 WATINT^ 4973 035154 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4974 035155 367 13 0 00 035155 SOJG 13,. ;AND WAIT^ 4975 035156 332 00 0 00 000000 SKIPE ;AC0=0 4976 STOP^ 4977 035157 254 04 0 00 035160 HALT .+1 ;INSTRUCTION FAILED REPLACE 4978 035160 254 00 0 00 035161 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-2 DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0120 4979 000004 X=X+1 4980 4981 4982 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 4983 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 4984 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 4985 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 4986 CLRBTH^ 4987 035161 700 04 0 00 261600 CLRAPR 4988 035162 700 14 0 00 031577 CLRPI^ 4989 035163 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 4990 035164 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 4991 035165 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 4992 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 4993 035166 7 000 20 0 00 051704 STEM AND SET CH X 4994 WATINT^ 4995 035167 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 4996 035170 367 13 0 00 035170 SOJG 13,. ;AND WAIT^ 4997 035171 332 00 0 00 000000 SKIPE ;AC0=0 4998 STOP^ 4999 035172 254 04 0 00 035173 HALT .+1 ;INSTRUCTION FAILED REPLACE 5000 035173 254 00 0 00 035174 JRST .+1 ;WITH JRST BACK^ 5001 000005 X=X+1 5002 5003 5004 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 5005 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 5006 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 5007 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 5008 CLRBTH^ 5009 035174 700 04 0 00 261600 CLRAPR 5010 035175 700 14 0 00 031577 CLRPI^ 5011 035176 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 5012 035177 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 5013 035200 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 5014 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 5015 035201 7 000 20 0 00 051705 STEM AND SET CH X 5016 WATINT^ 5017 035202 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 5018 035203 367 13 0 00 035203 SOJG 13,. ;AND WAIT^ 5019 035204 332 00 0 00 000000 SKIPE ;AC0=0 5020 STOP^ 5021 035205 254 04 0 00 035206 HALT .+1 ;INSTRUCTION FAILED REPLACE 5022 035206 254 00 0 00 035207 JRST .+1 ;WITH JRST BACK^ 5023 000006 X=X+1 5024 5025 5026 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 5027 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 5028 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 5029 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 5030 CLRBTH^ 5031 035207 700 04 0 00 261600 CLRAPR 5032 035210 700 14 0 00 031577 CLRPI^ 5033 035211 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 36-3 DSKAH1 MAC 31-Mar-78 11:13 TICKLE THE INTERRUPT SYSTEM WITH THE APR SYSTEM SEQ 0121 5034 035212 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 5035 035213 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 5036 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 5037 035214 7 000 20 0 00 051706 STEM AND SET CH X 5038 WATINT^ 5039 035215 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 5040 035216 367 13 0 00 035216 SOJG 13,. ;AND WAIT^ 5041 035217 332 00 0 00 000000 SKIPE ;AC0=0 5042 STOP^ 5043 035220 254 04 0 00 035221 HALT .+1 ;INSTRUCTION FAILED REPLACE 5044 035221 254 00 0 00 035222 JRST .+1 ;WITH JRST BACK^ 5045 000007 X=X+1 5046 5047 5048 ;THE PROGRAM WILL WAIT FOR THE APR SYSTEM TO INTERRUPT ON EACH CHANNEL 5049 ;WITHOUT APR SYSTEM ENABLE SET. IF AC0 BECOMES NON-ZERO THE PROGRAM WILL 5050 ;HALT AND AC0 HAS THE NUMBER OF THE CHANNEL THAT THE INTERRUPT OCCURED 5051 ;ON. NO INTERRUPTS SHOULD OCCUR DURING THIS TEST. 5052 CLRBTH^ 5053 035222 700 04 0 00 261600 CLRAPR 5054 035223 700 14 0 00 031577 CLRPI^ 5055 035224 264 00 0 00 040047 TRPPI ;FILL INTERRUPT LOCATIONS WITH TRAPS 5056 035225 400 00 0 00 000000 SETZ 0, ;INSURE ZERO AC0. 5057 035226 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;ENABLE PI'S 5058 CONO APR,LSPSFT!LDNXER!LSNXER!LDPWRF!LSPWRF!LDPAER!LSPAER!X ;DISABLE THE APR SY 5059 035227 7 000 20 0 00 051707 STEM AND SET CH X 5060 WATINT^ 5061 035230 201 13 0 00 001000 MOVEI 13,1000 ;SET UP LOOP OF TEN TO WAIT FOR INT. 5062 035231 367 13 0 00 035231 SOJG 13,. ;AND WAIT^ 5063 035232 332 00 0 00 000000 SKIPE ;AC0=0 5064 STOP^ 5065 035233 254 04 0 00 035234 HALT .+1 ;INSTRUCTION FAILED REPLACE 5066 035234 254 00 0 00 035235 JRST .+1 ;WITH JRST BACK^ 5067 000010 X=X+1 5068 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 37 DSKAH1 MAC 31-Mar-78 11:13 TEST VARIOUS RESETS SEQ 0122 5069 SUBTTL TEST VARIOUS RESETS 5070 5071 ;TRY TO RESET THE PI BITS VIA CONO RESET TO THE APR 5072 5073 035235 RESET1: CLRBTH^ 5074 035235 700 04 0 00 261600 CLRAPR 5075 035236 700 14 0 00 031577 CLRPI^ 5076 035237 7 004 20 0 00 002377 CONO PI,PION!CHNON!177 ;TURN ON PI SYSTEM 5077 035240 7 000 20 0 00 200000 CONO APR,IOCLR ;RESET THE I/O BUS 5078 035241 7 004 24 0 00 000000 CONI PI,0 5079 035242 606 00 0 00 000377 TRNN 0,PION!177 ;ALL PI BITS SHOULD STILL BE SET 5080 STOP^ 5081 035243 254 04 0 00 035244 HALT .+1 ;INSTRUCTION FAILED REPLACE 5082 035244 254 00 0 00 035245 JRST .+1 ;WITH JRST BACK^ 5083 5084 ;TRY TO RESET THE APR WITH A RESET TO THE PI. 5085 5086 035245 RESET2: CLRBTH^ 5087 035245 700 04 0 00 261600 CLRAPR 5088 035246 700 14 0 00 031577 CLRPI^ 5089 035247 7 000 20 0 00 000007 CONO APR,7 ;SET CLOCK AND ERROR PIA'S 5090 035250 7 004 20 0 00 010000 CONO PI,PICLR ;CLEAR THE PI SYSTEM 5091 035251 7 000 24 0 00 000000 CONI APR,0 5092 035252 606 00 0 00 000007 TRNN 0,7 ;AND APR BITS SHOULD STILL BE SET 5093 STOP^ 5094 035253 254 04 0 00 035254 HALT .+1 ;INSTRUCTION FAILED REPLACE 5095 035254 254 00 0 00 035255 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0123 5096 SUBTTL INTERRUPT OUT OF INDIRECT LOOP 5097 5098 INDPI 42,1^ 5099 ;GET OURSELVES INTO 42 TIGHT INDIRECT LOOP. 5100 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5101 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5102 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5103 5104 TSET^ 5105 035255 %X=. ;DEFINE %X TO SAVE 5106 035255 201 00 0 00 035255 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5107 035256 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5108 035257 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5109 035260 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5110 035261 200 10 0 00 040322 MOVE 10,[JSR ..0137] ;INTERRUPT TRAP INSTRUCTION 5111 035262 202 10 0 00 000042 MOVEM 10,42 ;STORE FOR INTERRUPT REQUEST 5112 CLRBT1^ 5113 035263 700 04 0 00 261600 CLRAPR 5114 035264 700 14 0 00 031577 CLRPI^ 5115 035265 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5116 035266 7 000 20 0 00 110101 CONO APR,LEPSFT!LSPSFT!1 ;ENABLE AND SET ERRORS,ENABLE CH 1 5117 035267 254 00 1 00 035267 JRST @@. ;LOOP 5118 035270 254 04 0 00 035271 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5119 035271 000000 000000 ..0137: 0 5120 TGET^ 5121 035272 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5122 035273 302 00 0 00 035255 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5123 STOP2^^ 5124 035274 254 04 0 00 035275 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5125 035275 254 00 0 00 035276 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5126 035276 200 01 0 00 035271 MOVE 1,..0137 ;GET STORED PC 5127 035277 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5128 035300 302 01 0 00 035267 CAIE 1,..0137-2 ;WAS CORRECT PC STORED? 5129 STOP^ 5130 035301 254 04 0 00 035302 HALT .+1 ;INSTRUCTION FAILED REPLACE 5131 035302 254 00 0 00 035303 JRST .+1 ;WITH JRST BACK^ 5132 035303 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5133 035304 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5134 CLRBTH^^ 5135 035305 700 04 0 00 261600 CLRAPR 5136 035306 700 14 0 00 031577 CLRPI^ 5137 5138 INDPI 44,2^ 5139 ;GET OURSELVES INTO 44 TIGHT INDIRECT LOOP. 5140 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5141 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5142 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5143 5144 TSET^ 5145 035307 %X=. ;DEFINE %X TO SAVE 5146 035307 201 00 0 00 035307 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5147 035310 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5148 035311 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5149 035312 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5150 035313 200 10 0 00 040323 MOVE 10,[JSR ..0140] ;INTERRUPT TRAP INSTRUCTION DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-1 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0124 5151 035314 202 10 0 00 000044 MOVEM 10,44 ;STORE FOR INTERRUPT REQUEST 5152 CLRBT1^ 5153 035315 700 04 0 00 261600 CLRAPR 5154 035316 700 14 0 00 031577 CLRPI^ 5155 035317 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5156 035320 7 000 20 0 00 110102 CONO APR,LEPSFT!LSPSFT!2 ;ENABLE AND SET ERRORS,ENABLE CH 2 5157 035321 254 00 1 00 035321 JRST @@. ;LOOP 5158 035322 254 04 0 00 035323 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5159 035323 000000 000000 ..0140: 0 5160 TGET^ 5161 035324 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5162 035325 302 00 0 00 035307 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5163 STOP2^^ 5164 035326 254 04 0 00 035327 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5165 035327 254 00 0 00 035330 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5166 035330 200 01 0 00 035323 MOVE 1,..0140 ;GET STORED PC 5167 035331 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5168 035332 302 01 0 00 035321 CAIE 1,..0140-2 ;WAS CORRECT PC STORED? 5169 STOP^ 5170 035333 254 04 0 00 035334 HALT .+1 ;INSTRUCTION FAILED REPLACE 5171 035334 254 00 0 00 035335 JRST .+1 ;WITH JRST BACK^ 5172 035335 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5173 035336 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5174 CLRBTH^^ 5175 035337 700 04 0 00 261600 CLRAPR 5176 035340 700 14 0 00 031577 CLRPI^ 5177 5178 INDPI 46,3^ 5179 ;GET OURSELVES INTO 46 TIGHT INDIRECT LOOP. 5180 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5181 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5182 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5183 5184 TSET^ 5185 035341 %X=. ;DEFINE %X TO SAVE 5186 035341 201 00 0 00 035341 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5187 035342 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5188 035343 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5189 035344 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5190 035345 200 10 0 00 040324 MOVE 10,[JSR ..0141] ;INTERRUPT TRAP INSTRUCTION 5191 035346 202 10 0 00 000046 MOVEM 10,46 ;STORE FOR INTERRUPT REQUEST 5192 CLRBT1^ 5193 035347 700 04 0 00 261600 CLRAPR 5194 035350 700 14 0 00 031577 CLRPI^ 5195 035351 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5196 035352 7 000 20 0 00 110103 CONO APR,LEPSFT!LSPSFT!3 ;ENABLE AND SET ERRORS,ENABLE CH 3 5197 035353 254 00 1 00 035353 JRST @@. ;LOOP 5198 035354 254 04 0 00 035355 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5199 035355 000000 000000 ..0141: 0 5200 TGET^ 5201 035356 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5202 035357 302 00 0 00 035341 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5203 STOP2^^ 5204 035360 254 04 0 00 035361 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5205 035361 254 00 0 00 035362 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-2 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0125 5206 035362 200 01 0 00 035355 MOVE 1,..0141 ;GET STORED PC 5207 035363 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5208 035364 302 01 0 00 035353 CAIE 1,..0141-2 ;WAS CORRECT PC STORED? 5209 STOP^ 5210 035365 254 04 0 00 035366 HALT .+1 ;INSTRUCTION FAILED REPLACE 5211 035366 254 00 0 00 035367 JRST .+1 ;WITH JRST BACK^ 5212 035367 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5213 035370 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5214 CLRBTH^^ 5215 035371 700 04 0 00 261600 CLRAPR 5216 035372 700 14 0 00 031577 CLRPI^ 5217 5218 INDPI 50,4^ 5219 ;GET OURSELVES INTO 50 TIGHT INDIRECT LOOP. 5220 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5221 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5222 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5223 5224 TSET^ 5225 035373 %X=. ;DEFINE %X TO SAVE 5226 035373 201 00 0 00 035373 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5227 035374 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5228 035375 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5229 035376 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5230 035377 200 10 0 00 040325 MOVE 10,[JSR ..0142] ;INTERRUPT TRAP INSTRUCTION 5231 035400 202 10 0 00 000050 MOVEM 10,50 ;STORE FOR INTERRUPT REQUEST 5232 CLRBT1^ 5233 035401 700 04 0 00 261600 CLRAPR 5234 035402 700 14 0 00 031577 CLRPI^ 5235 035403 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5236 035404 7 000 20 0 00 110104 CONO APR,LEPSFT!LSPSFT!4 ;ENABLE AND SET ERRORS,ENABLE CH 4 5237 035405 254 00 1 00 035405 JRST @@. ;LOOP 5238 035406 254 04 0 00 035407 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5239 035407 000000 000000 ..0142: 0 5240 TGET^ 5241 035410 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5242 035411 302 00 0 00 035373 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5243 STOP2^^ 5244 035412 254 04 0 00 035413 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5245 035413 254 00 0 00 035414 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5246 035414 200 01 0 00 035407 MOVE 1,..0142 ;GET STORED PC 5247 035415 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5248 035416 302 01 0 00 035405 CAIE 1,..0142-2 ;WAS CORRECT PC STORED? 5249 STOP^ 5250 035417 254 04 0 00 035420 HALT .+1 ;INSTRUCTION FAILED REPLACE 5251 035420 254 00 0 00 035421 JRST .+1 ;WITH JRST BACK^ 5252 035421 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5253 035422 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5254 CLRBTH^^ 5255 035423 700 04 0 00 261600 CLRAPR 5256 035424 700 14 0 00 031577 CLRPI^ 5257 5258 INDPI 52,5^ 5259 ;GET OURSELVES INTO 52 TIGHT INDIRECT LOOP. 5260 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-3 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0126 5261 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5262 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5263 5264 TSET^ 5265 035425 %X=. ;DEFINE %X TO SAVE 5266 035425 201 00 0 00 035425 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5267 035426 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5268 035427 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5269 035430 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5270 035431 200 10 0 00 040326 MOVE 10,[JSR ..0143] ;INTERRUPT TRAP INSTRUCTION 5271 035432 202 10 0 00 000052 MOVEM 10,52 ;STORE FOR INTERRUPT REQUEST 5272 CLRBT1^ 5273 035433 700 04 0 00 261600 CLRAPR 5274 035434 700 14 0 00 031577 CLRPI^ 5275 035435 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5276 035436 7 000 20 0 00 110105 CONO APR,LEPSFT!LSPSFT!5 ;ENABLE AND SET ERRORS,ENABLE CH 5 5277 035437 254 00 1 00 035437 JRST @@. ;LOOP 5278 035440 254 04 0 00 035441 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5279 035441 000000 000000 ..0143: 0 5280 TGET^ 5281 035442 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5282 035443 302 00 0 00 035425 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5283 STOP2^^ 5284 035444 254 04 0 00 035445 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5285 035445 254 00 0 00 035446 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5286 035446 200 01 0 00 035441 MOVE 1,..0143 ;GET STORED PC 5287 035447 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5288 035450 302 01 0 00 035437 CAIE 1,..0143-2 ;WAS CORRECT PC STORED? 5289 STOP^ 5290 035451 254 04 0 00 035452 HALT .+1 ;INSTRUCTION FAILED REPLACE 5291 035452 254 00 0 00 035453 JRST .+1 ;WITH JRST BACK^ 5292 035453 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5293 035454 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5294 CLRBTH^^ 5295 035455 700 04 0 00 261600 CLRAPR 5296 035456 700 14 0 00 031577 CLRPI^ 5297 5298 INDPI 54,6^ 5299 ;GET OURSELVES INTO 54 TIGHT INDIRECT LOOP. 5300 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5301 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5302 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5303 5304 TSET^ 5305 035457 %X=. ;DEFINE %X TO SAVE 5306 035457 201 00 0 00 035457 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5307 035460 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5308 035461 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5309 035462 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5310 035463 200 10 0 00 040327 MOVE 10,[JSR ..0144] ;INTERRUPT TRAP INSTRUCTION 5311 035464 202 10 0 00 000054 MOVEM 10,54 ;STORE FOR INTERRUPT REQUEST 5312 CLRBT1^ 5313 035465 700 04 0 00 261600 CLRAPR 5314 035466 700 14 0 00 031577 CLRPI^ 5315 035467 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-4 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0127 5316 035470 7 000 20 0 00 110106 CONO APR,LEPSFT!LSPSFT!6 ;ENABLE AND SET ERRORS,ENABLE CH 6 5317 035471 254 00 1 00 035471 JRST @@. ;LOOP 5318 035472 254 04 0 00 035473 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5319 035473 000000 000000 ..0144: 0 5320 TGET^ 5321 035474 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5322 035475 302 00 0 00 035457 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5323 STOP2^^ 5324 035476 254 04 0 00 035477 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5325 035477 254 00 0 00 035500 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5326 035500 200 01 0 00 035473 MOVE 1,..0144 ;GET STORED PC 5327 035501 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5328 035502 302 01 0 00 035471 CAIE 1,..0144-2 ;WAS CORRECT PC STORED? 5329 STOP^ 5330 035503 254 04 0 00 035504 HALT .+1 ;INSTRUCTION FAILED REPLACE 5331 035504 254 00 0 00 035505 JRST .+1 ;WITH JRST BACK^ 5332 035505 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5333 035506 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5334 CLRBTH^^ 5335 035507 700 04 0 00 261600 CLRAPR 5336 035510 700 14 0 00 031577 CLRPI^ 5337 5338 INDPI 56,7^ 5339 ;GET OURSELVES INTO 56 TIGHT INDIRECT LOOP. 5340 ;AND SEE IF WE ARE ABLE TO INTERRUPT OUT OF IT. 5341 ;THE LOOP IS DONE TEN TIMES. EACH TIME THE INTERRUPT IS DISMISSED AND 5342 ;WE WILL RETURN TO THE "JRST @@." INSTRUCTION. 5343 5344 TSET^ 5345 035511 %X=. ;DEFINE %X TO SAVE 5346 035511 201 00 0 00 035511 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5347 035512 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5348 035513 201 10 0 00 000012 MOVEI 10,^D10 ;TIMES TO DO THIS TEST 5349 035514 202 10 0 00 040505 MOVEM 10,COUNTX# ;STORE IT 5350 035515 200 10 0 00 040330 MOVE 10,[JSR ..0145] ;INTERRUPT TRAP INSTRUCTION 5351 035516 202 10 0 00 000056 MOVEM 10,56 ;STORE FOR INTERRUPT REQUEST 5352 CLRBT1^ 5353 035517 700 04 0 00 261600 CLRAPR 5354 035520 700 14 0 00 031577 CLRPI^ 5355 035521 7 004 20 0 00 002377 CONO PI,2377 ;TURN ON PI AND CHANNELS 5356 035522 7 000 20 0 00 110107 CONO APR,LEPSFT!LSPSFT!7 ;ENABLE AND SET ERRORS,ENABLE CH 7 5357 035523 254 00 1 00 035523 JRST @@. ;LOOP 5358 035524 254 04 0 00 035525 HALT .+1 ;ERROR IF HERE (GOT OUT OF INDIRECT LOOP) 5359 035525 000000 000000 ..0145: 0 5360 TGET^ 5361 035526 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5362 035527 302 00 0 00 035511 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5363 STOP2^^ 5364 035530 254 04 0 00 035531 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5365 035531 254 00 0 00 035532 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5366 035532 200 01 0 00 035525 MOVE 1,..0145 ;GET STORED PC 5367 035533 405 01 0 00 777777 ANDI 1,-1 ;MASK PC BITS 5368 035534 302 01 0 00 035523 CAIE 1,..0145-2 ;WAS CORRECT PC STORED? 5369 STOP^ 5370 035535 254 04 0 00 035536 HALT .+1 ;INSTRUCTION FAILED REPLACE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 38-5 DSKAH1 MAC 31-Mar-78 11:13 INTERRUPT OUT OF INDIRECT LOOP SEQ 0128 5371 035536 254 00 0 00 035537 JRST .+1 ;WITH JRST BACK^ 5372 035537 372 00 0 00 040505 SOSE COUNTX ;LOOP TEST 5373 035540 254 12 1 00 000001 JEN @@1 ;DISMISS INTERRUPT 5374 CLRBTH^^ 5375 035541 700 04 0 00 261600 CLRAPR 5376 035542 700 14 0 00 031577 CLRPI^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0129 5377 SUBTTL LOCAL UUO TESTING (LUUO) 5378 5379 ;TEST UUO'S IN RANGE 1-37 5380 ;TEST TO SEE THAT UUO TRAPS CORRECTLY AND THAT PC 5381 ;OF UUO IS CORRECT AND THAT UUO STORED IN 40 IS ALSO CORRECT 5382 ;MONITOR UUO'S ARE NOT TESTED. 5383 5384 035543 UUO01: XUUO 1B8,UUO02^ 5385 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5386 ;ARE CORRECT. 5387 5388 001000 000000 MLUUO==1B8 ;THE UUO TO BE EXECUTED 5389 TSET^ 5390 035543 %X=. ;DEFINE %X TO SAVE 5391 035543 201 00 0 00 035543 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5392 035544 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5393 035545 200 00 0 00 040331 ..0146: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5394 035546 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5395 035547 001000 000000 1B8 ;EXECUTE A UUO 5396 035550 254 04 0 00 035551 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5397 035551 201 02 0 00 035550 MOVEI 2,.-1 ;GET UUO PC 5398 035552 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5399 035553 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5400 035554 254 04 0 00 035555 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5401 035555 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5402 035556 312 00 0 00 040332 CAME 0,[1B8!0] ;CORRECT UUO STORED IN 40? 5403 035557 334 00 0 00 000000 SKIPA ;NO 5404 035560 254 00 0 00 035567 JRST UUO02 ;TESTS OK ! 5405 STOP1^ 5406 035561 254 04 0 00 035562 HALT .+1 ;UUO FAILED TO STORE MA BITS 5407 035562 254 00 0 00 035563 JRST .+1 ;INTO RIGHT HALF OF 40^ 5408 TGET^^ 5409 035563 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5410 035564 302 00 0 00 035543 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5411 STOP2^^ 5412 035565 254 04 0 00 035566 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5413 035566 254 00 0 00 035567 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5414 035567 UUO02: XUUO 2B8,UUO03^ 5415 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5416 ;ARE CORRECT. 5417 5418 002000 000000 MLUUO==2B8 ;THE UUO TO BE EXECUTED 5419 TSET^ 5420 035567 %X=. ;DEFINE %X TO SAVE 5421 035567 201 00 0 00 035567 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5422 035570 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5423 035571 200 00 0 00 040333 ..0147: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5424 035572 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5425 035573 002000 000000 2B8 ;EXECUTE A UUO 5426 035574 254 04 0 00 035575 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5427 035575 201 02 0 00 035574 MOVEI 2,.-1 ;GET UUO PC 5428 035576 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5429 035577 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5430 035600 254 04 0 00 035601 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5431 035601 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-1 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0130 5432 035602 312 00 0 00 040334 CAME 0,[2B8!0] ;CORRECT UUO STORED IN 40? 5433 035603 334 00 0 00 000000 SKIPA ;NO 5434 035604 254 00 0 00 035613 JRST UUO03 ;TESTS OK ! 5435 STOP1^ 5436 035605 254 04 0 00 035606 HALT .+1 ;UUO FAILED TO STORE MA BITS 5437 035606 254 00 0 00 035607 JRST .+1 ;INTO RIGHT HALF OF 40^ 5438 TGET^^ 5439 035607 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5440 035610 302 00 0 00 035567 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5441 STOP2^^ 5442 035611 254 04 0 00 035612 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5443 035612 254 00 0 00 035613 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5444 035613 UUO03: XUUO 3B8,UUO04^ 5445 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5446 ;ARE CORRECT. 5447 5448 003000 000000 MLUUO==3B8 ;THE UUO TO BE EXECUTED 5449 TSET^ 5450 035613 %X=. ;DEFINE %X TO SAVE 5451 035613 201 00 0 00 035613 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5452 035614 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5453 035615 200 00 0 00 040335 ..0150: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5454 035616 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5455 035617 003000 000000 3B8 ;EXECUTE A UUO 5456 035620 254 04 0 00 035621 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5457 035621 201 02 0 00 035620 MOVEI 2,.-1 ;GET UUO PC 5458 035622 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5459 035623 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5460 035624 254 04 0 00 035625 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5461 035625 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5462 035626 312 00 0 00 040336 CAME 0,[3B8!0] ;CORRECT UUO STORED IN 40? 5463 035627 334 00 0 00 000000 SKIPA ;NO 5464 035630 254 00 0 00 035637 JRST UUO04 ;TESTS OK ! 5465 STOP1^ 5466 035631 254 04 0 00 035632 HALT .+1 ;UUO FAILED TO STORE MA BITS 5467 035632 254 00 0 00 035633 JRST .+1 ;INTO RIGHT HALF OF 40^ 5468 TGET^^ 5469 035633 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5470 035634 302 00 0 00 035613 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5471 STOP2^^ 5472 035635 254 04 0 00 035636 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5473 035636 254 00 0 00 035637 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5474 035637 UUO04: XUUO 4B8,UUO05^ 5475 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5476 ;ARE CORRECT. 5477 5478 004000 000000 MLUUO==4B8 ;THE UUO TO BE EXECUTED 5479 TSET^ 5480 035637 %X=. ;DEFINE %X TO SAVE 5481 035637 201 00 0 00 035637 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5482 035640 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5483 035641 200 00 0 00 040337 ..0151: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5484 035642 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5485 035643 004000 000000 4B8 ;EXECUTE A UUO 5486 035644 254 04 0 00 035645 HALT .+1 ;UUO DID NOT TRAP TO FORTY DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-2 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0131 5487 035645 201 02 0 00 035644 MOVEI 2,.-1 ;GET UUO PC 5488 035646 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5489 035647 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5490 035650 254 04 0 00 035651 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5491 035651 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5492 035652 312 00 0 00 040340 CAME 0,[4B8!0] ;CORRECT UUO STORED IN 40? 5493 035653 334 00 0 00 000000 SKIPA ;NO 5494 035654 254 00 0 00 035663 JRST UUO05 ;TESTS OK ! 5495 STOP1^ 5496 035655 254 04 0 00 035656 HALT .+1 ;UUO FAILED TO STORE MA BITS 5497 035656 254 00 0 00 035657 JRST .+1 ;INTO RIGHT HALF OF 40^ 5498 TGET^^ 5499 035657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5500 035660 302 00 0 00 035637 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5501 STOP2^^ 5502 035661 254 04 0 00 035662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5503 035662 254 00 0 00 035663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5504 035663 UUO05: XUUO 5B8,UUO06^ 5505 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5506 ;ARE CORRECT. 5507 5508 005000 000000 MLUUO==5B8 ;THE UUO TO BE EXECUTED 5509 TSET^ 5510 035663 %X=. ;DEFINE %X TO SAVE 5511 035663 201 00 0 00 035663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5512 035664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5513 035665 200 00 0 00 040341 ..0152: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5514 035666 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5515 035667 005000 000000 5B8 ;EXECUTE A UUO 5516 035670 254 04 0 00 035671 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5517 035671 201 02 0 00 035670 MOVEI 2,.-1 ;GET UUO PC 5518 035672 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5519 035673 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5520 035674 254 04 0 00 035675 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5521 035675 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5522 035676 312 00 0 00 040342 CAME 0,[5B8!0] ;CORRECT UUO STORED IN 40? 5523 035677 334 00 0 00 000000 SKIPA ;NO 5524 035700 254 00 0 00 035707 JRST UUO06 ;TESTS OK ! 5525 STOP1^ 5526 035701 254 04 0 00 035702 HALT .+1 ;UUO FAILED TO STORE MA BITS 5527 035702 254 00 0 00 035703 JRST .+1 ;INTO RIGHT HALF OF 40^ 5528 TGET^^ 5529 035703 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5530 035704 302 00 0 00 035663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5531 STOP2^^ 5532 035705 254 04 0 00 035706 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5533 035706 254 00 0 00 035707 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5534 035707 UUO06: XUUO 6B8,UUO07^ 5535 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5536 ;ARE CORRECT. 5537 5538 006000 000000 MLUUO==6B8 ;THE UUO TO BE EXECUTED 5539 TSET^ 5540 035707 %X=. ;DEFINE %X TO SAVE 5541 035707 201 00 0 00 035707 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-3 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0132 5542 035710 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5543 035711 200 00 0 00 040343 ..0153: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5544 035712 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5545 035713 006000 000000 6B8 ;EXECUTE A UUO 5546 035714 254 04 0 00 035715 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5547 035715 201 02 0 00 035714 MOVEI 2,.-1 ;GET UUO PC 5548 035716 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5549 035717 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5550 035720 254 04 0 00 035721 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5551 035721 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5552 035722 312 00 0 00 040344 CAME 0,[6B8!0] ;CORRECT UUO STORED IN 40? 5553 035723 334 00 0 00 000000 SKIPA ;NO 5554 035724 254 00 0 00 035733 JRST UUO07 ;TESTS OK ! 5555 STOP1^ 5556 035725 254 04 0 00 035726 HALT .+1 ;UUO FAILED TO STORE MA BITS 5557 035726 254 00 0 00 035727 JRST .+1 ;INTO RIGHT HALF OF 40^ 5558 TGET^^ 5559 035727 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5560 035730 302 00 0 00 035707 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5561 STOP2^^ 5562 035731 254 04 0 00 035732 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5563 035732 254 00 0 00 035733 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5564 035733 UUO07: XUUO 7B8,UUO10^ 5565 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5566 ;ARE CORRECT. 5567 5568 007000 000000 MLUUO==7B8 ;THE UUO TO BE EXECUTED 5569 TSET^ 5570 035733 %X=. ;DEFINE %X TO SAVE 5571 035733 201 00 0 00 035733 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5572 035734 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5573 035735 200 00 0 00 040345 ..0154: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5574 035736 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5575 035737 007000 000000 7B8 ;EXECUTE A UUO 5576 035740 254 04 0 00 035741 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5577 035741 201 02 0 00 035740 MOVEI 2,.-1 ;GET UUO PC 5578 035742 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5579 035743 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5580 035744 254 04 0 00 035745 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5581 035745 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5582 035746 312 00 0 00 040346 CAME 0,[7B8!0] ;CORRECT UUO STORED IN 40? 5583 035747 334 00 0 00 000000 SKIPA ;NO 5584 035750 254 00 0 00 035757 JRST UUO10 ;TESTS OK ! 5585 STOP1^ 5586 035751 254 04 0 00 035752 HALT .+1 ;UUO FAILED TO STORE MA BITS 5587 035752 254 00 0 00 035753 JRST .+1 ;INTO RIGHT HALF OF 40^ 5588 TGET^^ 5589 035753 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5590 035754 302 00 0 00 035733 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5591 STOP2^^ 5592 035755 254 04 0 00 035756 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5593 035756 254 00 0 00 035757 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5594 035757 UUO10: XUUO 10B8,UUO11^ 5595 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5596 ;ARE CORRECT. DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-4 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0133 5597 5598 010000 000000 MLUUO==10B8 ;THE UUO TO BE EXECUTED 5599 TSET^ 5600 035757 %X=. ;DEFINE %X TO SAVE 5601 035757 201 00 0 00 035757 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5602 035760 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5603 035761 200 00 0 00 040347 ..0155: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5604 035762 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5605 035763 010000 000000 10B8 ;EXECUTE A UUO 5606 035764 254 04 0 00 035765 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5607 035765 201 02 0 00 035764 MOVEI 2,.-1 ;GET UUO PC 5608 035766 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5609 035767 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5610 035770 254 04 0 00 035771 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5611 035771 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5612 035772 312 00 0 00 040350 CAME 0,[10B8!0] ;CORRECT UUO STORED IN 40? 5613 035773 334 00 0 00 000000 SKIPA ;NO 5614 035774 254 00 0 00 036003 JRST UUO11 ;TESTS OK ! 5615 STOP1^ 5616 035775 254 04 0 00 035776 HALT .+1 ;UUO FAILED TO STORE MA BITS 5617 035776 254 00 0 00 035777 JRST .+1 ;INTO RIGHT HALF OF 40^ 5618 TGET^^ 5619 035777 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5620 036000 302 00 0 00 035757 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5621 STOP2^^ 5622 036001 254 04 0 00 036002 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5623 036002 254 00 0 00 036003 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5624 036003 UUO11: XUUO 11B8,UUO12^ 5625 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5626 ;ARE CORRECT. 5627 5628 011000 000000 MLUUO==11B8 ;THE UUO TO BE EXECUTED 5629 TSET^ 5630 036003 %X=. ;DEFINE %X TO SAVE 5631 036003 201 00 0 00 036003 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5632 036004 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5633 036005 200 00 0 00 040351 ..0156: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5634 036006 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5635 036007 011000 000000 11B8 ;EXECUTE A UUO 5636 036010 254 04 0 00 036011 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5637 036011 201 02 0 00 036010 MOVEI 2,.-1 ;GET UUO PC 5638 036012 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5639 036013 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5640 036014 254 04 0 00 036015 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5641 036015 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5642 036016 312 00 0 00 040352 CAME 0,[11B8!0] ;CORRECT UUO STORED IN 40? 5643 036017 334 00 0 00 000000 SKIPA ;NO 5644 036020 254 00 0 00 036027 JRST UUO12 ;TESTS OK ! 5645 STOP1^ 5646 036021 254 04 0 00 036022 HALT .+1 ;UUO FAILED TO STORE MA BITS 5647 036022 254 00 0 00 036023 JRST .+1 ;INTO RIGHT HALF OF 40^ 5648 TGET^^ 5649 036023 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5650 036024 302 00 0 00 036003 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5651 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-5 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0134 5652 036025 254 04 0 00 036026 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5653 036026 254 00 0 00 036027 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5654 036027 UUO12: XUUO 12B8,UUO13^ 5655 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5656 ;ARE CORRECT. 5657 5658 012000 000000 MLUUO==12B8 ;THE UUO TO BE EXECUTED 5659 TSET^ 5660 036027 %X=. ;DEFINE %X TO SAVE 5661 036027 201 00 0 00 036027 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5662 036030 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5663 036031 200 00 0 00 040353 ..0157: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5664 036032 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5665 036033 012000 000000 12B8 ;EXECUTE A UUO 5666 036034 254 04 0 00 036035 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5667 036035 201 02 0 00 036034 MOVEI 2,.-1 ;GET UUO PC 5668 036036 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5669 036037 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5670 036040 254 04 0 00 036041 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5671 036041 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5672 036042 312 00 0 00 040354 CAME 0,[12B8!0] ;CORRECT UUO STORED IN 40? 5673 036043 334 00 0 00 000000 SKIPA ;NO 5674 036044 254 00 0 00 036053 JRST UUO13 ;TESTS OK ! 5675 STOP1^ 5676 036045 254 04 0 00 036046 HALT .+1 ;UUO FAILED TO STORE MA BITS 5677 036046 254 00 0 00 036047 JRST .+1 ;INTO RIGHT HALF OF 40^ 5678 TGET^^ 5679 036047 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5680 036050 302 00 0 00 036027 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5681 STOP2^^ 5682 036051 254 04 0 00 036052 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5683 036052 254 00 0 00 036053 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5684 036053 UUO13: XUUO 13B8,UUO14^ 5685 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5686 ;ARE CORRECT. 5687 5688 013000 000000 MLUUO==13B8 ;THE UUO TO BE EXECUTED 5689 TSET^ 5690 036053 %X=. ;DEFINE %X TO SAVE 5691 036053 201 00 0 00 036053 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5692 036054 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5693 036055 200 00 0 00 040355 ..0160: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5694 036056 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5695 036057 013000 000000 13B8 ;EXECUTE A UUO 5696 036060 254 04 0 00 036061 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5697 036061 201 02 0 00 036060 MOVEI 2,.-1 ;GET UUO PC 5698 036062 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5699 036063 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5700 036064 254 04 0 00 036065 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5701 036065 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5702 036066 312 00 0 00 040356 CAME 0,[13B8!0] ;CORRECT UUO STORED IN 40? 5703 036067 334 00 0 00 000000 SKIPA ;NO 5704 036070 254 00 0 00 036077 JRST UUO14 ;TESTS OK ! 5705 STOP1^ 5706 036071 254 04 0 00 036072 HALT .+1 ;UUO FAILED TO STORE MA BITS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-6 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0135 5707 036072 254 00 0 00 036073 JRST .+1 ;INTO RIGHT HALF OF 40^ 5708 TGET^^ 5709 036073 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5710 036074 302 00 0 00 036053 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5711 STOP2^^ 5712 036075 254 04 0 00 036076 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5713 036076 254 00 0 00 036077 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5714 036077 UUO14: XUUO 14B8,UUO15^ 5715 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5716 ;ARE CORRECT. 5717 5718 014000 000000 MLUUO==14B8 ;THE UUO TO BE EXECUTED 5719 TSET^ 5720 036077 %X=. ;DEFINE %X TO SAVE 5721 036077 201 00 0 00 036077 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5722 036100 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5723 036101 200 00 0 00 040357 ..0161: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5724 036102 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5725 036103 014000 000000 14B8 ;EXECUTE A UUO 5726 036104 254 04 0 00 036105 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5727 036105 201 02 0 00 036104 MOVEI 2,.-1 ;GET UUO PC 5728 036106 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5729 036107 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5730 036110 254 04 0 00 036111 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5731 036111 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5732 036112 312 00 0 00 040360 CAME 0,[14B8!0] ;CORRECT UUO STORED IN 40? 5733 036113 334 00 0 00 000000 SKIPA ;NO 5734 036114 254 00 0 00 036123 JRST UUO15 ;TESTS OK ! 5735 STOP1^ 5736 036115 254 04 0 00 036116 HALT .+1 ;UUO FAILED TO STORE MA BITS 5737 036116 254 00 0 00 036117 JRST .+1 ;INTO RIGHT HALF OF 40^ 5738 TGET^^ 5739 036117 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5740 036120 302 00 0 00 036077 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5741 STOP2^^ 5742 036121 254 04 0 00 036122 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5743 036122 254 00 0 00 036123 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5744 036123 UUO15: XUUO 15B8,UUO16^ 5745 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5746 ;ARE CORRECT. 5747 5748 015000 000000 MLUUO==15B8 ;THE UUO TO BE EXECUTED 5749 TSET^ 5750 036123 %X=. ;DEFINE %X TO SAVE 5751 036123 201 00 0 00 036123 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5752 036124 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5753 036125 200 00 0 00 040361 ..0162: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5754 036126 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5755 036127 015000 000000 15B8 ;EXECUTE A UUO 5756 036130 254 04 0 00 036131 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5757 036131 201 02 0 00 036130 MOVEI 2,.-1 ;GET UUO PC 5758 036132 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5759 036133 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5760 036134 254 04 0 00 036135 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5761 036135 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-7 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0136 5762 036136 312 00 0 00 040362 CAME 0,[15B8!0] ;CORRECT UUO STORED IN 40? 5763 036137 334 00 0 00 000000 SKIPA ;NO 5764 036140 254 00 0 00 036147 JRST UUO16 ;TESTS OK ! 5765 STOP1^ 5766 036141 254 04 0 00 036142 HALT .+1 ;UUO FAILED TO STORE MA BITS 5767 036142 254 00 0 00 036143 JRST .+1 ;INTO RIGHT HALF OF 40^ 5768 TGET^^ 5769 036143 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5770 036144 302 00 0 00 036123 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5771 STOP2^^ 5772 036145 254 04 0 00 036146 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5773 036146 254 00 0 00 036147 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5774 036147 UUO16: XUUO 16B8,UUO17^ 5775 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5776 ;ARE CORRECT. 5777 5778 016000 000000 MLUUO==16B8 ;THE UUO TO BE EXECUTED 5779 TSET^ 5780 036147 %X=. ;DEFINE %X TO SAVE 5781 036147 201 00 0 00 036147 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5782 036150 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5783 036151 200 00 0 00 040363 ..0163: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5784 036152 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5785 036153 016000 000000 16B8 ;EXECUTE A UUO 5786 036154 254 04 0 00 036155 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5787 036155 201 02 0 00 036154 MOVEI 2,.-1 ;GET UUO PC 5788 036156 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5789 036157 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5790 036160 254 04 0 00 036161 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5791 036161 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5792 036162 312 00 0 00 040364 CAME 0,[16B8!0] ;CORRECT UUO STORED IN 40? 5793 036163 334 00 0 00 000000 SKIPA ;NO 5794 036164 254 00 0 00 036173 JRST UUO17 ;TESTS OK ! 5795 STOP1^ 5796 036165 254 04 0 00 036166 HALT .+1 ;UUO FAILED TO STORE MA BITS 5797 036166 254 00 0 00 036167 JRST .+1 ;INTO RIGHT HALF OF 40^ 5798 TGET^^ 5799 036167 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5800 036170 302 00 0 00 036147 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5801 STOP2^^ 5802 036171 254 04 0 00 036172 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5803 036172 254 00 0 00 036173 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5804 036173 UUO17: XUUO 17B8,UUO20^ 5805 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5806 ;ARE CORRECT. 5807 5808 017000 000000 MLUUO==17B8 ;THE UUO TO BE EXECUTED 5809 TSET^ 5810 036173 %X=. ;DEFINE %X TO SAVE 5811 036173 201 00 0 00 036173 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5812 036174 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5813 036175 200 00 0 00 040365 ..0164: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5814 036176 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5815 036177 017000 000000 17B8 ;EXECUTE A UUO 5816 036200 254 04 0 00 036201 HALT .+1 ;UUO DID NOT TRAP TO FORTY DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-8 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0137 5817 036201 201 02 0 00 036200 MOVEI 2,.-1 ;GET UUO PC 5818 036202 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5819 036203 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5820 036204 254 04 0 00 036205 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5821 036205 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5822 036206 312 00 0 00 040366 CAME 0,[17B8!0] ;CORRECT UUO STORED IN 40? 5823 036207 334 00 0 00 000000 SKIPA ;NO 5824 036210 254 00 0 00 036217 JRST UUO20 ;TESTS OK ! 5825 STOP1^ 5826 036211 254 04 0 00 036212 HALT .+1 ;UUO FAILED TO STORE MA BITS 5827 036212 254 00 0 00 036213 JRST .+1 ;INTO RIGHT HALF OF 40^ 5828 TGET^^ 5829 036213 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5830 036214 302 00 0 00 036173 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5831 STOP2^^ 5832 036215 254 04 0 00 036216 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5833 036216 254 00 0 00 036217 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5834 036217 UUO20: XUUO 20B8,UUO21^ 5835 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5836 ;ARE CORRECT. 5837 5838 020000 000000 MLUUO==20B8 ;THE UUO TO BE EXECUTED 5839 TSET^ 5840 036217 %X=. ;DEFINE %X TO SAVE 5841 036217 201 00 0 00 036217 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5842 036220 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5843 036221 200 00 0 00 040367 ..0165: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5844 036222 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5845 036223 020000 000000 20B8 ;EXECUTE A UUO 5846 036224 254 04 0 00 036225 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5847 036225 201 02 0 00 036224 MOVEI 2,.-1 ;GET UUO PC 5848 036226 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5849 036227 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5850 036230 254 04 0 00 036231 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5851 036231 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5852 036232 312 00 0 00 040370 CAME 0,[20B8!0] ;CORRECT UUO STORED IN 40? 5853 036233 334 00 0 00 000000 SKIPA ;NO 5854 036234 254 00 0 00 036243 JRST UUO21 ;TESTS OK ! 5855 STOP1^ 5856 036235 254 04 0 00 036236 HALT .+1 ;UUO FAILED TO STORE MA BITS 5857 036236 254 00 0 00 036237 JRST .+1 ;INTO RIGHT HALF OF 40^ 5858 TGET^^ 5859 036237 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5860 036240 302 00 0 00 036217 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5861 STOP2^^ 5862 036241 254 04 0 00 036242 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5863 036242 254 00 0 00 036243 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5864 036243 UUO21: XUUO 21B8,UUO22^ 5865 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5866 ;ARE CORRECT. 5867 5868 021000 000000 MLUUO==21B8 ;THE UUO TO BE EXECUTED 5869 TSET^ 5870 036243 %X=. ;DEFINE %X TO SAVE 5871 036243 201 00 0 00 036243 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-9 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0138 5872 036244 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5873 036245 200 00 0 00 040371 ..0166: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5874 036246 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5875 036247 021000 000000 21B8 ;EXECUTE A UUO 5876 036250 254 04 0 00 036251 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5877 036251 201 02 0 00 036250 MOVEI 2,.-1 ;GET UUO PC 5878 036252 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5879 036253 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5880 036254 254 04 0 00 036255 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5881 036255 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5882 036256 312 00 0 00 040372 CAME 0,[21B8!0] ;CORRECT UUO STORED IN 40? 5883 036257 334 00 0 00 000000 SKIPA ;NO 5884 036260 254 00 0 00 036267 JRST UUO22 ;TESTS OK ! 5885 STOP1^ 5886 036261 254 04 0 00 036262 HALT .+1 ;UUO FAILED TO STORE MA BITS 5887 036262 254 00 0 00 036263 JRST .+1 ;INTO RIGHT HALF OF 40^ 5888 TGET^^ 5889 036263 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5890 036264 302 00 0 00 036243 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5891 STOP2^^ 5892 036265 254 04 0 00 036266 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5893 036266 254 00 0 00 036267 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5894 036267 UUO22: XUUO 22B8,UUO23^ 5895 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5896 ;ARE CORRECT. 5897 5898 022000 000000 MLUUO==22B8 ;THE UUO TO BE EXECUTED 5899 TSET^ 5900 036267 %X=. ;DEFINE %X TO SAVE 5901 036267 201 00 0 00 036267 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5902 036270 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5903 036271 200 00 0 00 040373 ..0167: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5904 036272 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5905 036273 022000 000000 22B8 ;EXECUTE A UUO 5906 036274 254 04 0 00 036275 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5907 036275 201 02 0 00 036274 MOVEI 2,.-1 ;GET UUO PC 5908 036276 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5909 036277 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5910 036300 254 04 0 00 036301 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5911 036301 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5912 036302 312 00 0 00 040374 CAME 0,[22B8!0] ;CORRECT UUO STORED IN 40? 5913 036303 334 00 0 00 000000 SKIPA ;NO 5914 036304 254 00 0 00 036313 JRST UUO23 ;TESTS OK ! 5915 STOP1^ 5916 036305 254 04 0 00 036306 HALT .+1 ;UUO FAILED TO STORE MA BITS 5917 036306 254 00 0 00 036307 JRST .+1 ;INTO RIGHT HALF OF 40^ 5918 TGET^^ 5919 036307 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5920 036310 302 00 0 00 036267 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5921 STOP2^^ 5922 036311 254 04 0 00 036312 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5923 036312 254 00 0 00 036313 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5924 036313 UUO23: XUUO 23B8,UUO24^ 5925 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5926 ;ARE CORRECT. DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-10 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0139 5927 5928 023000 000000 MLUUO==23B8 ;THE UUO TO BE EXECUTED 5929 TSET^ 5930 036313 %X=. ;DEFINE %X TO SAVE 5931 036313 201 00 0 00 036313 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5932 036314 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5933 036315 200 00 0 00 040375 ..0170: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5934 036316 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5935 036317 023000 000000 23B8 ;EXECUTE A UUO 5936 036320 254 04 0 00 036321 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5937 036321 201 02 0 00 036320 MOVEI 2,.-1 ;GET UUO PC 5938 036322 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5939 036323 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5940 036324 254 04 0 00 036325 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5941 036325 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5942 036326 312 00 0 00 040376 CAME 0,[23B8!0] ;CORRECT UUO STORED IN 40? 5943 036327 334 00 0 00 000000 SKIPA ;NO 5944 036330 254 00 0 00 036337 JRST UUO24 ;TESTS OK ! 5945 STOP1^ 5946 036331 254 04 0 00 036332 HALT .+1 ;UUO FAILED TO STORE MA BITS 5947 036332 254 00 0 00 036333 JRST .+1 ;INTO RIGHT HALF OF 40^ 5948 TGET^^ 5949 036333 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5950 036334 302 00 0 00 036313 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5951 STOP2^^ 5952 036335 254 04 0 00 036336 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5953 036336 254 00 0 00 036337 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5954 036337 UUO24: XUUO 24B8,UUO25^ 5955 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5956 ;ARE CORRECT. 5957 5958 024000 000000 MLUUO==24B8 ;THE UUO TO BE EXECUTED 5959 TSET^ 5960 036337 %X=. ;DEFINE %X TO SAVE 5961 036337 201 00 0 00 036337 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5962 036340 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5963 036341 200 00 0 00 040377 ..0171: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5964 036342 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5965 036343 024000 000000 24B8 ;EXECUTE A UUO 5966 036344 254 04 0 00 036345 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5967 036345 201 02 0 00 036344 MOVEI 2,.-1 ;GET UUO PC 5968 036346 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5969 036347 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 5970 036350 254 04 0 00 036351 HALT .+1 ;PC OF UUO NOT = TO PC STORED 5971 036351 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 5972 036352 312 00 0 00 040400 CAME 0,[24B8!0] ;CORRECT UUO STORED IN 40? 5973 036353 334 00 0 00 000000 SKIPA ;NO 5974 036354 254 00 0 00 036363 JRST UUO25 ;TESTS OK ! 5975 STOP1^ 5976 036355 254 04 0 00 036356 HALT .+1 ;UUO FAILED TO STORE MA BITS 5977 036356 254 00 0 00 036357 JRST .+1 ;INTO RIGHT HALF OF 40^ 5978 TGET^^ 5979 036357 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 5980 036360 302 00 0 00 036337 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 5981 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-11 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0140 5982 036361 254 04 0 00 036362 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 5983 036362 254 00 0 00 036363 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 5984 036363 UUO25: XUUO 25B8,UUO26^ 5985 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 5986 ;ARE CORRECT. 5987 5988 025000 000000 MLUUO==25B8 ;THE UUO TO BE EXECUTED 5989 TSET^ 5990 036363 %X=. ;DEFINE %X TO SAVE 5991 036363 201 00 0 00 036363 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 5992 036364 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 5993 036365 200 00 0 00 040401 ..0172: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 5994 036366 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 5995 036367 025000 000000 25B8 ;EXECUTE A UUO 5996 036370 254 04 0 00 036371 HALT .+1 ;UUO DID NOT TRAP TO FORTY 5997 036371 201 02 0 00 036370 MOVEI 2,.-1 ;GET UUO PC 5998 036372 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 5999 036373 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6000 036374 254 04 0 00 036375 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6001 036375 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6002 036376 312 00 0 00 040402 CAME 0,[25B8!0] ;CORRECT UUO STORED IN 40? 6003 036377 334 00 0 00 000000 SKIPA ;NO 6004 036400 254 00 0 00 036407 JRST UUO26 ;TESTS OK ! 6005 STOP1^ 6006 036401 254 04 0 00 036402 HALT .+1 ;UUO FAILED TO STORE MA BITS 6007 036402 254 00 0 00 036403 JRST .+1 ;INTO RIGHT HALF OF 40^ 6008 TGET^^ 6009 036403 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6010 036404 302 00 0 00 036363 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6011 STOP2^^ 6012 036405 254 04 0 00 036406 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6013 036406 254 00 0 00 036407 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6014 036407 UUO26: XUUO 26B8,UUO27^ 6015 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6016 ;ARE CORRECT. 6017 6018 026000 000000 MLUUO==26B8 ;THE UUO TO BE EXECUTED 6019 TSET^ 6020 036407 %X=. ;DEFINE %X TO SAVE 6021 036407 201 00 0 00 036407 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6022 036410 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6023 036411 200 00 0 00 040403 ..0173: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6024 036412 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6025 036413 026000 000000 26B8 ;EXECUTE A UUO 6026 036414 254 04 0 00 036415 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6027 036415 201 02 0 00 036414 MOVEI 2,.-1 ;GET UUO PC 6028 036416 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6029 036417 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6030 036420 254 04 0 00 036421 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6031 036421 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6032 036422 312 00 0 00 040404 CAME 0,[26B8!0] ;CORRECT UUO STORED IN 40? 6033 036423 334 00 0 00 000000 SKIPA ;NO 6034 036424 254 00 0 00 036433 JRST UUO27 ;TESTS OK ! 6035 STOP1^ 6036 036425 254 04 0 00 036426 HALT .+1 ;UUO FAILED TO STORE MA BITS DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-12 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0141 6037 036426 254 00 0 00 036427 JRST .+1 ;INTO RIGHT HALF OF 40^ 6038 TGET^^ 6039 036427 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6040 036430 302 00 0 00 036407 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6041 STOP2^^ 6042 036431 254 04 0 00 036432 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6043 036432 254 00 0 00 036433 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6044 036433 UUO27: XUUO 27B8,UUO30^ 6045 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6046 ;ARE CORRECT. 6047 6048 027000 000000 MLUUO==27B8 ;THE UUO TO BE EXECUTED 6049 TSET^ 6050 036433 %X=. ;DEFINE %X TO SAVE 6051 036433 201 00 0 00 036433 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6052 036434 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6053 036435 200 00 0 00 040405 ..0174: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6054 036436 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6055 036437 027000 000000 27B8 ;EXECUTE A UUO 6056 036440 254 04 0 00 036441 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6057 036441 201 02 0 00 036440 MOVEI 2,.-1 ;GET UUO PC 6058 036442 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6059 036443 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6060 036444 254 04 0 00 036445 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6061 036445 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6062 036446 312 00 0 00 040406 CAME 0,[27B8!0] ;CORRECT UUO STORED IN 40? 6063 036447 334 00 0 00 000000 SKIPA ;NO 6064 036450 254 00 0 00 036457 JRST UUO30 ;TESTS OK ! 6065 STOP1^ 6066 036451 254 04 0 00 036452 HALT .+1 ;UUO FAILED TO STORE MA BITS 6067 036452 254 00 0 00 036453 JRST .+1 ;INTO RIGHT HALF OF 40^ 6068 TGET^^ 6069 036453 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6070 036454 302 00 0 00 036433 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6071 STOP2^^ 6072 036455 254 04 0 00 036456 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6073 036456 254 00 0 00 036457 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6074 036457 UUO30: XUUO 30B8,UUO31^ 6075 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6076 ;ARE CORRECT. 6077 6078 030000 000000 MLUUO==30B8 ;THE UUO TO BE EXECUTED 6079 TSET^ 6080 036457 %X=. ;DEFINE %X TO SAVE 6081 036457 201 00 0 00 036457 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6082 036460 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6083 036461 200 00 0 00 040407 ..0175: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6084 036462 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6085 036463 030000 000000 30B8 ;EXECUTE A UUO 6086 036464 254 04 0 00 036465 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6087 036465 201 02 0 00 036464 MOVEI 2,.-1 ;GET UUO PC 6088 036466 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6089 036467 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6090 036470 254 04 0 00 036471 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6091 036471 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-13 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0142 6092 036472 312 00 0 00 040410 CAME 0,[30B8!0] ;CORRECT UUO STORED IN 40? 6093 036473 334 00 0 00 000000 SKIPA ;NO 6094 036474 254 00 0 00 036503 JRST UUO31 ;TESTS OK ! 6095 STOP1^ 6096 036475 254 04 0 00 036476 HALT .+1 ;UUO FAILED TO STORE MA BITS 6097 036476 254 00 0 00 036477 JRST .+1 ;INTO RIGHT HALF OF 40^ 6098 TGET^^ 6099 036477 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6100 036500 302 00 0 00 036457 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6101 STOP2^^ 6102 036501 254 04 0 00 036502 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6103 036502 254 00 0 00 036503 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6104 036503 UUO31: XUUO 31B8,UUO32^ 6105 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6106 ;ARE CORRECT. 6107 6108 031000 000000 MLUUO==31B8 ;THE UUO TO BE EXECUTED 6109 TSET^ 6110 036503 %X=. ;DEFINE %X TO SAVE 6111 036503 201 00 0 00 036503 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6112 036504 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6113 036505 200 00 0 00 040411 ..0176: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6114 036506 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6115 036507 031000 000000 31B8 ;EXECUTE A UUO 6116 036510 254 04 0 00 036511 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6117 036511 201 02 0 00 036510 MOVEI 2,.-1 ;GET UUO PC 6118 036512 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6119 036513 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6120 036514 254 04 0 00 036515 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6121 036515 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6122 036516 312 00 0 00 040412 CAME 0,[31B8!0] ;CORRECT UUO STORED IN 40? 6123 036517 334 00 0 00 000000 SKIPA ;NO 6124 036520 254 00 0 00 036527 JRST UUO32 ;TESTS OK ! 6125 STOP1^ 6126 036521 254 04 0 00 036522 HALT .+1 ;UUO FAILED TO STORE MA BITS 6127 036522 254 00 0 00 036523 JRST .+1 ;INTO RIGHT HALF OF 40^ 6128 TGET^^ 6129 036523 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6130 036524 302 00 0 00 036503 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6131 STOP2^^ 6132 036525 254 04 0 00 036526 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6133 036526 254 00 0 00 036527 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6134 036527 UUO32: XUUO 32B8,UUO33^ 6135 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6136 ;ARE CORRECT. 6137 6138 032000 000000 MLUUO==32B8 ;THE UUO TO BE EXECUTED 6139 TSET^ 6140 036527 %X=. ;DEFINE %X TO SAVE 6141 036527 201 00 0 00 036527 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6142 036530 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6143 036531 200 00 0 00 040413 ..0177: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6144 036532 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6145 036533 032000 000000 32B8 ;EXECUTE A UUO 6146 036534 254 04 0 00 036535 HALT .+1 ;UUO DID NOT TRAP TO FORTY DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-14 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0143 6147 036535 201 02 0 00 036534 MOVEI 2,.-1 ;GET UUO PC 6148 036536 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6149 036537 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6150 036540 254 04 0 00 036541 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6151 036541 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6152 036542 312 00 0 00 040414 CAME 0,[32B8!0] ;CORRECT UUO STORED IN 40? 6153 036543 334 00 0 00 000000 SKIPA ;NO 6154 036544 254 00 0 00 036553 JRST UUO33 ;TESTS OK ! 6155 STOP1^ 6156 036545 254 04 0 00 036546 HALT .+1 ;UUO FAILED TO STORE MA BITS 6157 036546 254 00 0 00 036547 JRST .+1 ;INTO RIGHT HALF OF 40^ 6158 TGET^^ 6159 036547 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6160 036550 302 00 0 00 036527 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6161 STOP2^^ 6162 036551 254 04 0 00 036552 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6163 036552 254 00 0 00 036553 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6164 036553 UUO33: XUUO 33B8,UUO34^ 6165 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6166 ;ARE CORRECT. 6167 6168 033000 000000 MLUUO==33B8 ;THE UUO TO BE EXECUTED 6169 TSET^ 6170 036553 %X=. ;DEFINE %X TO SAVE 6171 036553 201 00 0 00 036553 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6172 036554 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6173 036555 200 00 0 00 040415 ..0200: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6174 036556 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6175 036557 033000 000000 33B8 ;EXECUTE A UUO 6176 036560 254 04 0 00 036561 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6177 036561 201 02 0 00 036560 MOVEI 2,.-1 ;GET UUO PC 6178 036562 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6179 036563 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6180 036564 254 04 0 00 036565 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6181 036565 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6182 036566 312 00 0 00 040416 CAME 0,[33B8!0] ;CORRECT UUO STORED IN 40? 6183 036567 334 00 0 00 000000 SKIPA ;NO 6184 036570 254 00 0 00 036577 JRST UUO34 ;TESTS OK ! 6185 STOP1^ 6186 036571 254 04 0 00 036572 HALT .+1 ;UUO FAILED TO STORE MA BITS 6187 036572 254 00 0 00 036573 JRST .+1 ;INTO RIGHT HALF OF 40^ 6188 TGET^^ 6189 036573 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6190 036574 302 00 0 00 036553 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6191 STOP2^^ 6192 036575 254 04 0 00 036576 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6193 036576 254 00 0 00 036577 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6194 036577 UUO34: XUUO 34B8,UUO35^ 6195 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6196 ;ARE CORRECT. 6197 6198 034000 000000 MLUUO==34B8 ;THE UUO TO BE EXECUTED 6199 TSET^ 6200 036577 %X=. ;DEFINE %X TO SAVE 6201 036577 201 00 0 00 036577 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-15 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0144 6202 036600 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6203 036601 200 00 0 00 040417 ..0201: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6204 036602 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6205 036603 034000 000000 34B8 ;EXECUTE A UUO 6206 036604 254 04 0 00 036605 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6207 036605 201 02 0 00 036604 MOVEI 2,.-1 ;GET UUO PC 6208 036606 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6209 036607 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6210 036610 254 04 0 00 036611 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6211 036611 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6212 036612 312 00 0 00 040420 CAME 0,[34B8!0] ;CORRECT UUO STORED IN 40? 6213 036613 334 00 0 00 000000 SKIPA ;NO 6214 036614 254 00 0 00 036623 JRST UUO35 ;TESTS OK ! 6215 STOP1^ 6216 036615 254 04 0 00 036616 HALT .+1 ;UUO FAILED TO STORE MA BITS 6217 036616 254 00 0 00 036617 JRST .+1 ;INTO RIGHT HALF OF 40^ 6218 TGET^^ 6219 036617 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6220 036620 302 00 0 00 036577 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6221 STOP2^^ 6222 036621 254 04 0 00 036622 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6223 036622 254 00 0 00 036623 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6224 036623 UUO35: XUUO 35B8,UUO36^ 6225 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6226 ;ARE CORRECT. 6227 6228 035000 000000 MLUUO==35B8 ;THE UUO TO BE EXECUTED 6229 TSET^ 6230 036623 %X=. ;DEFINE %X TO SAVE 6231 036623 201 00 0 00 036623 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6232 036624 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6233 036625 200 00 0 00 040421 ..0202: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6234 036626 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6235 036627 035000 000000 35B8 ;EXECUTE A UUO 6236 036630 254 04 0 00 036631 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6237 036631 201 02 0 00 036630 MOVEI 2,.-1 ;GET UUO PC 6238 036632 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6239 036633 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6240 036634 254 04 0 00 036635 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6241 036635 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6242 036636 312 00 0 00 040422 CAME 0,[35B8!0] ;CORRECT UUO STORED IN 40? 6243 036637 334 00 0 00 000000 SKIPA ;NO 6244 036640 254 00 0 00 036647 JRST UUO36 ;TESTS OK ! 6245 STOP1^ 6246 036641 254 04 0 00 036642 HALT .+1 ;UUO FAILED TO STORE MA BITS 6247 036642 254 00 0 00 036643 JRST .+1 ;INTO RIGHT HALF OF 40^ 6248 TGET^^ 6249 036643 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6250 036644 302 00 0 00 036623 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6251 STOP2^^ 6252 036645 254 04 0 00 036646 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6253 036646 254 00 0 00 036647 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6254 036647 UUO36: XUUO 36B8,UUO37^ 6255 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6256 ;ARE CORRECT. DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-16 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0145 6257 6258 036000 000000 MLUUO==36B8 ;THE UUO TO BE EXECUTED 6259 TSET^ 6260 036647 %X=. ;DEFINE %X TO SAVE 6261 036647 201 00 0 00 036647 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6262 036650 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6263 036651 200 00 0 00 040423 ..0203: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6264 036652 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6265 036653 036000 000000 36B8 ;EXECUTE A UUO 6266 036654 254 04 0 00 036655 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6267 036655 201 02 0 00 036654 MOVEI 2,.-1 ;GET UUO PC 6268 036656 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6269 036657 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6270 036660 254 04 0 00 036661 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6271 036661 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6272 036662 312 00 0 00 040424 CAME 0,[36B8!0] ;CORRECT UUO STORED IN 40? 6273 036663 334 00 0 00 000000 SKIPA ;NO 6274 036664 254 00 0 00 036673 JRST UUO37 ;TESTS OK ! 6275 STOP1^ 6276 036665 254 04 0 00 036666 HALT .+1 ;UUO FAILED TO STORE MA BITS 6277 036666 254 00 0 00 036667 JRST .+1 ;INTO RIGHT HALF OF 40^ 6278 TGET^^ 6279 036667 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6280 036670 302 00 0 00 036647 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6281 STOP2^^ 6282 036671 254 04 0 00 036672 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6283 036672 254 00 0 00 036673 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6284 036673 UUO37: XUUO 37B8,UUOPC^ 6285 ;EXECUTE AN LUUO AND CHECK THAT THE UUO AND PC STORED 6286 ;ARE CORRECT. 6287 6288 037000 000000 MLUUO==37B8 ;THE UUO TO BE EXECUTED 6289 TSET^ 6290 036673 %X=. ;DEFINE %X TO SAVE 6291 036673 201 00 0 00 036673 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6292 036674 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6293 036675 200 00 0 00 040425 ..0204: MOVE 0,[JSP 1,.+4] ;TRAP INSTRUCTION 6294 036676 202 00 0 00 000041 MOVEM 0,41 ;IN TO 41 6295 036677 037000 000000 37B8 ;EXECUTE A UUO 6296 036700 254 04 0 00 036701 HALT .+1 ;UUO DID NOT TRAP TO FORTY 6297 036701 201 02 0 00 036700 MOVEI 2,.-1 ;GET UUO PC 6298 036702 405 01 0 00 777777 ANDI 1,-1 ;MASK FLAGS OUT 6299 036703 312 01 0 00 000002 CAME 1,2 ;PC CORRECT ? 6300 036704 254 04 0 00 036705 HALT .+1 ;PC OF UUO NOT = TO PC STORED 6301 036705 200 00 0 00 000040 MOVE 0,40 ;GET UUO ! 6302 036706 312 00 0 00 040426 CAME 0,[37B8!0] ;CORRECT UUO STORED IN 40? 6303 036707 334 00 0 00 000000 SKIPA ;NO 6304 036710 254 00 0 00 036720 JRST UUOPC ;TESTS OK ! 6305 STOP1^ 6306 036711 254 04 0 00 036712 HALT .+1 ;UUO FAILED TO STORE MA BITS 6307 036712 254 00 0 00 036713 JRST .+1 ;INTO RIGHT HALF OF 40^ 6308 TGET^^ 6309 036713 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6310 036714 302 00 0 00 036673 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6311 STOP2^^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 39-17 DSKAH1 MAC 31-Mar-78 11:13 LOCAL UUO TESTING (LUUO) SEQ 0146 6312 036715 254 04 0 00 036716 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6313 036716 254 00 0 00 036717 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6314 6315 036717 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0147 6316 SUBTTL TEST UUO STORING CORRECTLY 6317 ;TEST THE MA PORTION OF THE UUO TO SEE IF BITS 18-35 ARE STORED CORRECTLY 6318 ;ROUTINE ROTATES A BIT LEFT THROUGH THE MA OF THE UUO 6319 ;THEN DOES ALTERNATING PATTERN, ALL ONES AND ALL ZEROS 6320 6321 000001 X=1 6322 036720 UUOPC: 6323 036720 UUOPCA: 6324 REPEAT ^D18,< 6325 XUUOA X 6326 X=X_1 6327 > 6328 6329 XUUOA X^ 6330 6331 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6332 6333 000001 EFIELD==X ;"E" WE ARE TESTING FOR 6334 TSET^ 6335 036720 %X=. ;DEFINE %X TO SAVE 6336 036720 201 00 0 00 036720 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6337 036721 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6338 036722 200 00 0 00 040427 ..0205: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6339 036723 202 00 0 00 000041 MOVEM 41 ;INTO 41 6340 036724 001000 000001 1B8!X ;EXECUTE A UUO 6341 036725 254 04 0 00 036726 ..0206: HALT .+1 ;UUO DIDN'T TRAP TO 40 6342 036726 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6343 036727 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6344 036730 302 00 0 00 000001 CAIE X ;MA BITS CORRECT? 6345 036731 ..0207: STOP1^ 6346 036731 254 04 0 00 036732 HALT .+1 ;UUO FAILED TO STORE MA BITS 6347 036732 254 00 0 00 036733 JRST .+1 ;INTO RIGHT HALF OF 40^ 6348 TGET^^ 6349 036733 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6350 036734 302 00 0 00 036720 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6351 STOP2^^ 6352 036735 254 04 0 00 036736 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6353 036736 254 00 0 00 036737 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6354 000002 X=X_1 6355 6356 6357 XUUOA X^ 6358 6359 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6360 6361 000002 EFIELD==X ;"E" WE ARE TESTING FOR 6362 TSET^ 6363 036737 %X=. ;DEFINE %X TO SAVE 6364 036737 201 00 0 00 036737 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6365 036740 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6366 036741 200 00 0 00 040430 ..0210: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6367 036742 202 00 0 00 000041 MOVEM 41 ;INTO 41 6368 036743 001000 000002 1B8!X ;EXECUTE A UUO 6369 036744 254 04 0 00 036745 ..0211: HALT .+1 ;UUO DIDN'T TRAP TO 40 6370 036745 200 00 0 00 000040 MOVE 0,40 ;GET UUO DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-1 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0148 6371 036746 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6372 036747 302 00 0 00 000002 CAIE X ;MA BITS CORRECT? 6373 036750 ..0212: STOP1^ 6374 036750 254 04 0 00 036751 HALT .+1 ;UUO FAILED TO STORE MA BITS 6375 036751 254 00 0 00 036752 JRST .+1 ;INTO RIGHT HALF OF 40^ 6376 TGET^^ 6377 036752 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6378 036753 302 00 0 00 036737 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6379 STOP2^^ 6380 036754 254 04 0 00 036755 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6381 036755 254 00 0 00 036756 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6382 000004 X=X_1 6383 6384 6385 XUUOA X^ 6386 6387 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6388 6389 000004 EFIELD==X ;"E" WE ARE TESTING FOR 6390 TSET^ 6391 036756 %X=. ;DEFINE %X TO SAVE 6392 036756 201 00 0 00 036756 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6393 036757 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6394 036760 200 00 0 00 040431 ..0213: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6395 036761 202 00 0 00 000041 MOVEM 41 ;INTO 41 6396 036762 001000 000004 1B8!X ;EXECUTE A UUO 6397 036763 254 04 0 00 036764 ..0214: HALT .+1 ;UUO DIDN'T TRAP TO 40 6398 036764 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6399 036765 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6400 036766 302 00 0 00 000004 CAIE X ;MA BITS CORRECT? 6401 036767 ..0215: STOP1^ 6402 036767 254 04 0 00 036770 HALT .+1 ;UUO FAILED TO STORE MA BITS 6403 036770 254 00 0 00 036771 JRST .+1 ;INTO RIGHT HALF OF 40^ 6404 TGET^^ 6405 036771 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6406 036772 302 00 0 00 036756 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6407 STOP2^^ 6408 036773 254 04 0 00 036774 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6409 036774 254 00 0 00 036775 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6410 000010 X=X_1 6411 6412 6413 XUUOA X^ 6414 6415 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6416 6417 000010 EFIELD==X ;"E" WE ARE TESTING FOR 6418 TSET^ 6419 036775 %X=. ;DEFINE %X TO SAVE 6420 036775 201 00 0 00 036775 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6421 036776 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6422 036777 200 00 0 00 040432 ..0216: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6423 037000 202 00 0 00 000041 MOVEM 41 ;INTO 41 6424 037001 001000 000010 1B8!X ;EXECUTE A UUO 6425 037002 254 04 0 00 037003 ..0217: HALT .+1 ;UUO DIDN'T TRAP TO 40 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-2 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0149 6426 037003 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6427 037004 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6428 037005 302 00 0 00 000010 CAIE X ;MA BITS CORRECT? 6429 037006 ..0220: STOP1^ 6430 037006 254 04 0 00 037007 HALT .+1 ;UUO FAILED TO STORE MA BITS 6431 037007 254 00 0 00 037010 JRST .+1 ;INTO RIGHT HALF OF 40^ 6432 TGET^^ 6433 037010 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6434 037011 302 00 0 00 036775 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6435 STOP2^^ 6436 037012 254 04 0 00 037013 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6437 037013 254 00 0 00 037014 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6438 000020 X=X_1 6439 6440 6441 XUUOA X^ 6442 6443 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6444 6445 000020 EFIELD==X ;"E" WE ARE TESTING FOR 6446 TSET^ 6447 037014 %X=. ;DEFINE %X TO SAVE 6448 037014 201 00 0 00 037014 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6449 037015 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6450 037016 200 00 0 00 040433 ..0221: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6451 037017 202 00 0 00 000041 MOVEM 41 ;INTO 41 6452 037020 001000 000020 1B8!X ;EXECUTE A UUO 6453 037021 254 04 0 00 037022 ..0222: HALT .+1 ;UUO DIDN'T TRAP TO 40 6454 037022 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6455 037023 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6456 037024 302 00 0 00 000020 CAIE X ;MA BITS CORRECT? 6457 037025 ..0223: STOP1^ 6458 037025 254 04 0 00 037026 HALT .+1 ;UUO FAILED TO STORE MA BITS 6459 037026 254 00 0 00 037027 JRST .+1 ;INTO RIGHT HALF OF 40^ 6460 TGET^^ 6461 037027 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6462 037030 302 00 0 00 037014 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6463 STOP2^^ 6464 037031 254 04 0 00 037032 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6465 037032 254 00 0 00 037033 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6466 000040 X=X_1 6467 6468 6469 XUUOA X^ 6470 6471 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6472 6473 000040 EFIELD==X ;"E" WE ARE TESTING FOR 6474 TSET^ 6475 037033 %X=. ;DEFINE %X TO SAVE 6476 037033 201 00 0 00 037033 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6477 037034 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6478 037035 200 00 0 00 040434 ..0224: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6479 037036 202 00 0 00 000041 MOVEM 41 ;INTO 41 6480 037037 001000 000040 1B8!X ;EXECUTE A UUO DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-3 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0150 6481 037040 254 04 0 00 037041 ..0225: HALT .+1 ;UUO DIDN'T TRAP TO 40 6482 037041 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6483 037042 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6484 037043 302 00 0 00 000040 CAIE X ;MA BITS CORRECT? 6485 037044 ..0226: STOP1^ 6486 037044 254 04 0 00 037045 HALT .+1 ;UUO FAILED TO STORE MA BITS 6487 037045 254 00 0 00 037046 JRST .+1 ;INTO RIGHT HALF OF 40^ 6488 TGET^^ 6489 037046 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6490 037047 302 00 0 00 037033 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6491 STOP2^^ 6492 037050 254 04 0 00 037051 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6493 037051 254 00 0 00 037052 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6494 000100 X=X_1 6495 6496 6497 XUUOA X^ 6498 6499 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6500 6501 000100 EFIELD==X ;"E" WE ARE TESTING FOR 6502 TSET^ 6503 037052 %X=. ;DEFINE %X TO SAVE 6504 037052 201 00 0 00 037052 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6505 037053 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6506 037054 200 00 0 00 040435 ..0227: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6507 037055 202 00 0 00 000041 MOVEM 41 ;INTO 41 6508 037056 001000 000100 1B8!X ;EXECUTE A UUO 6509 037057 254 04 0 00 037060 ..0230: HALT .+1 ;UUO DIDN'T TRAP TO 40 6510 037060 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6511 037061 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6512 037062 302 00 0 00 000100 CAIE X ;MA BITS CORRECT? 6513 037063 ..0231: STOP1^ 6514 037063 254 04 0 00 037064 HALT .+1 ;UUO FAILED TO STORE MA BITS 6515 037064 254 00 0 00 037065 JRST .+1 ;INTO RIGHT HALF OF 40^ 6516 TGET^^ 6517 037065 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6518 037066 302 00 0 00 037052 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6519 STOP2^^ 6520 037067 254 04 0 00 037070 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6521 037070 254 00 0 00 037071 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6522 000200 X=X_1 6523 6524 6525 XUUOA X^ 6526 6527 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6528 6529 000200 EFIELD==X ;"E" WE ARE TESTING FOR 6530 TSET^ 6531 037071 %X=. ;DEFINE %X TO SAVE 6532 037071 201 00 0 00 037071 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6533 037072 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6534 037073 200 00 0 00 040436 ..0232: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6535 037074 202 00 0 00 000041 MOVEM 41 ;INTO 41 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-4 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0151 6536 037075 001000 000200 1B8!X ;EXECUTE A UUO 6537 037076 254 04 0 00 037077 ..0233: HALT .+1 ;UUO DIDN'T TRAP TO 40 6538 037077 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6539 037100 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6540 037101 302 00 0 00 000200 CAIE X ;MA BITS CORRECT? 6541 037102 ..0234: STOP1^ 6542 037102 254 04 0 00 037103 HALT .+1 ;UUO FAILED TO STORE MA BITS 6543 037103 254 00 0 00 037104 JRST .+1 ;INTO RIGHT HALF OF 40^ 6544 TGET^^ 6545 037104 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6546 037105 302 00 0 00 037071 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6547 STOP2^^ 6548 037106 254 04 0 00 037107 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6549 037107 254 00 0 00 037110 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6550 000400 X=X_1 6551 6552 6553 XUUOA X^ 6554 6555 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6556 6557 000400 EFIELD==X ;"E" WE ARE TESTING FOR 6558 TSET^ 6559 037110 %X=. ;DEFINE %X TO SAVE 6560 037110 201 00 0 00 037110 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6561 037111 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6562 037112 200 00 0 00 040437 ..0235: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6563 037113 202 00 0 00 000041 MOVEM 41 ;INTO 41 6564 037114 001000 000400 1B8!X ;EXECUTE A UUO 6565 037115 254 04 0 00 037116 ..0236: HALT .+1 ;UUO DIDN'T TRAP TO 40 6566 037116 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6567 037117 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6568 037120 302 00 0 00 000400 CAIE X ;MA BITS CORRECT? 6569 037121 ..0237: STOP1^ 6570 037121 254 04 0 00 037122 HALT .+1 ;UUO FAILED TO STORE MA BITS 6571 037122 254 00 0 00 037123 JRST .+1 ;INTO RIGHT HALF OF 40^ 6572 TGET^^ 6573 037123 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6574 037124 302 00 0 00 037110 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6575 STOP2^^ 6576 037125 254 04 0 00 037126 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6577 037126 254 00 0 00 037127 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6578 001000 X=X_1 6579 6580 6581 XUUOA X^ 6582 6583 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6584 6585 001000 EFIELD==X ;"E" WE ARE TESTING FOR 6586 TSET^ 6587 037127 %X=. ;DEFINE %X TO SAVE 6588 037127 201 00 0 00 037127 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6589 037130 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6590 037131 200 00 0 00 040440 ..0240: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-5 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0152 6591 037132 202 00 0 00 000041 MOVEM 41 ;INTO 41 6592 037133 001000 001000 1B8!X ;EXECUTE A UUO 6593 037134 254 04 0 00 037135 ..0241: HALT .+1 ;UUO DIDN'T TRAP TO 40 6594 037135 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6595 037136 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6596 037137 302 00 0 00 001000 CAIE X ;MA BITS CORRECT? 6597 037140 ..0242: STOP1^ 6598 037140 254 04 0 00 037141 HALT .+1 ;UUO FAILED TO STORE MA BITS 6599 037141 254 00 0 00 037142 JRST .+1 ;INTO RIGHT HALF OF 40^ 6600 TGET^^ 6601 037142 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6602 037143 302 00 0 00 037127 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6603 STOP2^^ 6604 037144 254 04 0 00 037145 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6605 037145 254 00 0 00 037146 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6606 002000 X=X_1 6607 6608 6609 XUUOA X^ 6610 6611 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6612 6613 002000 EFIELD==X ;"E" WE ARE TESTING FOR 6614 TSET^ 6615 037146 %X=. ;DEFINE %X TO SAVE 6616 037146 201 00 0 00 037146 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6617 037147 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6618 037150 200 00 0 00 040441 ..0243: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6619 037151 202 00 0 00 000041 MOVEM 41 ;INTO 41 6620 037152 001000 002000 1B8!X ;EXECUTE A UUO 6621 037153 254 04 0 00 037154 ..0244: HALT .+1 ;UUO DIDN'T TRAP TO 40 6622 037154 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6623 037155 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6624 037156 302 00 0 00 002000 CAIE X ;MA BITS CORRECT? 6625 037157 ..0245: STOP1^ 6626 037157 254 04 0 00 037160 HALT .+1 ;UUO FAILED TO STORE MA BITS 6627 037160 254 00 0 00 037161 JRST .+1 ;INTO RIGHT HALF OF 40^ 6628 TGET^^ 6629 037161 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6630 037162 302 00 0 00 037146 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6631 STOP2^^ 6632 037163 254 04 0 00 037164 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6633 037164 254 00 0 00 037165 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6634 004000 X=X_1 6635 6636 6637 XUUOA X^ 6638 6639 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6640 6641 004000 EFIELD==X ;"E" WE ARE TESTING FOR 6642 TSET^ 6643 037165 %X=. ;DEFINE %X TO SAVE 6644 037165 201 00 0 00 037165 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6645 037166 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-6 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0153 6646 037167 200 00 0 00 040442 ..0246: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6647 037170 202 00 0 00 000041 MOVEM 41 ;INTO 41 6648 037171 001000 004000 1B8!X ;EXECUTE A UUO 6649 037172 254 04 0 00 037173 ..0247: HALT .+1 ;UUO DIDN'T TRAP TO 40 6650 037173 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6651 037174 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6652 037175 302 00 0 00 004000 CAIE X ;MA BITS CORRECT? 6653 037176 ..0250: STOP1^ 6654 037176 254 04 0 00 037177 HALT .+1 ;UUO FAILED TO STORE MA BITS 6655 037177 254 00 0 00 037200 JRST .+1 ;INTO RIGHT HALF OF 40^ 6656 TGET^^ 6657 037200 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6658 037201 302 00 0 00 037165 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6659 STOP2^^ 6660 037202 254 04 0 00 037203 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6661 037203 254 00 0 00 037204 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6662 010000 X=X_1 6663 6664 6665 XUUOA X^ 6666 6667 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6668 6669 010000 EFIELD==X ;"E" WE ARE TESTING FOR 6670 TSET^ 6671 037204 %X=. ;DEFINE %X TO SAVE 6672 037204 201 00 0 00 037204 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6673 037205 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6674 037206 200 00 0 00 040443 ..0251: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6675 037207 202 00 0 00 000041 MOVEM 41 ;INTO 41 6676 037210 001000 010000 1B8!X ;EXECUTE A UUO 6677 037211 254 04 0 00 037212 ..0252: HALT .+1 ;UUO DIDN'T TRAP TO 40 6678 037212 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6679 037213 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6680 037214 302 00 0 00 010000 CAIE X ;MA BITS CORRECT? 6681 037215 ..0253: STOP1^ 6682 037215 254 04 0 00 037216 HALT .+1 ;UUO FAILED TO STORE MA BITS 6683 037216 254 00 0 00 037217 JRST .+1 ;INTO RIGHT HALF OF 40^ 6684 TGET^^ 6685 037217 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6686 037220 302 00 0 00 037204 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6687 STOP2^^ 6688 037221 254 04 0 00 037222 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6689 037222 254 00 0 00 037223 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6690 020000 X=X_1 6691 6692 6693 XUUOA X^ 6694 6695 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6696 6697 020000 EFIELD==X ;"E" WE ARE TESTING FOR 6698 TSET^ 6699 037223 %X=. ;DEFINE %X TO SAVE 6700 037223 201 00 0 00 037223 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-7 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0154 6701 037224 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6702 037225 200 00 0 00 040444 ..0254: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6703 037226 202 00 0 00 000041 MOVEM 41 ;INTO 41 6704 037227 001000 020000 1B8!X ;EXECUTE A UUO 6705 037230 254 04 0 00 037231 ..0255: HALT .+1 ;UUO DIDN'T TRAP TO 40 6706 037231 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6707 037232 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6708 037233 302 00 0 00 020000 CAIE X ;MA BITS CORRECT? 6709 037234 ..0256: STOP1^ 6710 037234 254 04 0 00 037235 HALT .+1 ;UUO FAILED TO STORE MA BITS 6711 037235 254 00 0 00 037236 JRST .+1 ;INTO RIGHT HALF OF 40^ 6712 TGET^^ 6713 037236 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6714 037237 302 00 0 00 037223 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6715 STOP2^^ 6716 037240 254 04 0 00 037241 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6717 037241 254 00 0 00 037242 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6718 040000 X=X_1 6719 6720 6721 XUUOA X^ 6722 6723 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6724 6725 040000 EFIELD==X ;"E" WE ARE TESTING FOR 6726 TSET^ 6727 037242 %X=. ;DEFINE %X TO SAVE 6728 037242 201 00 0 00 037242 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6729 037243 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6730 037244 200 00 0 00 040445 ..0257: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6731 037245 202 00 0 00 000041 MOVEM 41 ;INTO 41 6732 037246 001000 040000 1B8!X ;EXECUTE A UUO 6733 037247 254 04 0 00 037250 ..0260: HALT .+1 ;UUO DIDN'T TRAP TO 40 6734 037250 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6735 037251 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6736 037252 302 00 0 00 040000 CAIE X ;MA BITS CORRECT? 6737 037253 ..0261: STOP1^ 6738 037253 254 04 0 00 037254 HALT .+1 ;UUO FAILED TO STORE MA BITS 6739 037254 254 00 0 00 037255 JRST .+1 ;INTO RIGHT HALF OF 40^ 6740 TGET^^ 6741 037255 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6742 037256 302 00 0 00 037242 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6743 STOP2^^ 6744 037257 254 04 0 00 037260 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6745 037260 254 00 0 00 037261 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6746 100000 X=X_1 6747 6748 6749 XUUOA X^ 6750 6751 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6752 6753 100000 EFIELD==X ;"E" WE ARE TESTING FOR 6754 TSET^ 6755 037261 %X=. ;DEFINE %X TO SAVE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-8 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0155 6756 037261 201 00 0 00 037261 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6757 037262 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6758 037263 200 00 0 00 040446 ..0262: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6759 037264 202 00 0 00 000041 MOVEM 41 ;INTO 41 6760 037265 001000 100000 1B8!X ;EXECUTE A UUO 6761 037266 254 04 0 00 037267 ..0263: HALT .+1 ;UUO DIDN'T TRAP TO 40 6762 037267 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6763 037270 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6764 037271 302 00 0 00 100000 CAIE X ;MA BITS CORRECT? 6765 037272 ..0264: STOP1^ 6766 037272 254 04 0 00 037273 HALT .+1 ;UUO FAILED TO STORE MA BITS 6767 037273 254 00 0 00 037274 JRST .+1 ;INTO RIGHT HALF OF 40^ 6768 TGET^^ 6769 037274 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6770 037275 302 00 0 00 037261 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6771 STOP2^^ 6772 037276 254 04 0 00 037277 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6773 037277 254 00 0 00 037300 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6774 200000 X=X_1 6775 6776 6777 XUUOA X^ 6778 6779 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6780 6781 200000 EFIELD==X ;"E" WE ARE TESTING FOR 6782 TSET^ 6783 037300 %X=. ;DEFINE %X TO SAVE 6784 037300 201 00 0 00 037300 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6785 037301 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6786 037302 200 00 0 00 040447 ..0265: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6787 037303 202 00 0 00 000041 MOVEM 41 ;INTO 41 6788 037304 001000 200000 1B8!X ;EXECUTE A UUO 6789 037305 254 04 0 00 037306 ..0266: HALT .+1 ;UUO DIDN'T TRAP TO 40 6790 037306 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6791 037307 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6792 037310 302 00 0 00 200000 CAIE X ;MA BITS CORRECT? 6793 037311 ..0267: STOP1^ 6794 037311 254 04 0 00 037312 HALT .+1 ;UUO FAILED TO STORE MA BITS 6795 037312 254 00 0 00 037313 JRST .+1 ;INTO RIGHT HALF OF 40^ 6796 TGET^^ 6797 037313 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6798 037314 302 00 0 00 037300 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6799 STOP2^^ 6800 037315 254 04 0 00 037316 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6801 037316 254 00 0 00 037317 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6802 400000 X=X_1 6803 6804 6805 XUUOA X^ 6806 6807 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6808 6809 400000 EFIELD==X ;"E" WE ARE TESTING FOR 6810 TSET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-9 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0156 6811 037317 %X=. ;DEFINE %X TO SAVE 6812 037317 201 00 0 00 037317 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6813 037320 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6814 037321 200 00 0 00 040450 ..0270: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6815 037322 202 00 0 00 000041 MOVEM 41 ;INTO 41 6816 037323 001000 400000 1B8!X ;EXECUTE A UUO 6817 037324 254 04 0 00 037325 ..0271: HALT .+1 ;UUO DIDN'T TRAP TO 40 6818 037325 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6819 037326 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6820 037327 302 00 0 00 400000 CAIE X ;MA BITS CORRECT? 6821 037330 ..0272: STOP1^ 6822 037330 254 04 0 00 037331 HALT .+1 ;UUO FAILED TO STORE MA BITS 6823 037331 254 00 0 00 037332 JRST .+1 ;INTO RIGHT HALF OF 40^ 6824 TGET^^ 6825 037332 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6826 037333 302 00 0 00 037317 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6827 STOP2^^ 6828 037334 254 04 0 00 037335 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6829 037335 254 00 0 00 037336 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6830 000001 000000 X=X_1 6831 6832 777777 X=777777 6833 XUUOA X^ 6834 6835 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6836 6837 777777 EFIELD==X ;"E" WE ARE TESTING FOR 6838 TSET^ 6839 037336 %X=. ;DEFINE %X TO SAVE 6840 037336 201 00 0 00 037336 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6841 037337 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6842 037340 200 00 0 00 040451 ..0273: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6843 037341 202 00 0 00 000041 MOVEM 41 ;INTO 41 6844 037342 001000 777777 1B8!X ;EXECUTE A UUO 6845 037343 254 04 0 00 037344 ..0274: HALT .+1 ;UUO DIDN'T TRAP TO 40 6846 037344 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6847 037345 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6848 037346 302 00 0 00 777777 CAIE X ;MA BITS CORRECT? 6849 037347 ..0275: STOP1^ 6850 037347 254 04 0 00 037350 HALT .+1 ;UUO FAILED TO STORE MA BITS 6851 037350 254 00 0 00 037351 JRST .+1 ;INTO RIGHT HALF OF 40^ 6852 TGET^^ 6853 037351 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6854 037352 302 00 0 00 037336 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6855 STOP2^^ 6856 037353 254 04 0 00 037354 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6857 037354 254 00 0 00 037355 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6858 6859 000000 X=0 6860 XUUOA X^ 6861 6862 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6863 6864 000000 EFIELD==X ;"E" WE ARE TESTING FOR 6865 TSET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-10 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0157 6866 037355 %X=. ;DEFINE %X TO SAVE 6867 037355 201 00 0 00 037355 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6868 037356 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6869 037357 200 00 0 00 040452 ..0276: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6870 037360 202 00 0 00 000041 MOVEM 41 ;INTO 41 6871 037361 001000 000000 1B8!X ;EXECUTE A UUO 6872 037362 254 04 0 00 037363 ..0277: HALT .+1 ;UUO DIDN'T TRAP TO 40 6873 037363 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6874 037364 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6875 037365 302 00 0 00 000000 CAIE X ;MA BITS CORRECT? 6876 037366 ..0300: STOP1^ 6877 037366 254 04 0 00 037367 HALT .+1 ;UUO FAILED TO STORE MA BITS 6878 037367 254 00 0 00 037370 JRST .+1 ;INTO RIGHT HALF OF 40^ 6879 TGET^^ 6880 037370 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6881 037371 302 00 0 00 037355 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6882 STOP2^^ 6883 037372 254 04 0 00 037373 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6884 037373 254 00 0 00 037374 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6885 6886 252525 X=252525 6887 XUUOA X^ 6888 6889 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6890 6891 252525 EFIELD==X ;"E" WE ARE TESTING FOR 6892 TSET^ 6893 037374 %X=. ;DEFINE %X TO SAVE 6894 037374 201 00 0 00 037374 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6895 037375 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6896 037376 200 00 0 00 040453 ..0301: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6897 037377 202 00 0 00 000041 MOVEM 41 ;INTO 41 6898 037400 001000 252525 1B8!X ;EXECUTE A UUO 6899 037401 254 04 0 00 037402 ..0302: HALT .+1 ;UUO DIDN'T TRAP TO 40 6900 037402 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6901 037403 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6902 037404 302 00 0 00 252525 CAIE X ;MA BITS CORRECT? 6903 037405 ..0303: STOP1^ 6904 037405 254 04 0 00 037406 HALT .+1 ;UUO FAILED TO STORE MA BITS 6905 037406 254 00 0 00 037407 JRST .+1 ;INTO RIGHT HALF OF 40^ 6906 TGET^^ 6907 037407 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6908 037410 302 00 0 00 037374 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6909 STOP2^^ 6910 037411 254 04 0 00 037412 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6911 037412 254 00 0 00 037413 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6912 6913 525252 X=525252 6914 XUUOA X^ 6915 6916 ;CHECK THE "E" OF THE UUO STORED IS CORRECT. 6917 6918 525252 EFIELD==X ;"E" WE ARE TESTING FOR 6919 TSET^ 6920 037413 %X=. ;DEFINE %X TO SAVE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 40-11 DSKAH1 MAC 31-Mar-78 11:13 TEST UUO STORING CORRECTLY SEQ 0158 6921 037413 201 00 0 00 037413 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 6922 037414 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 6923 037415 200 00 0 00 040454 ..0304: MOVE [JRST .+4] ;SET A TRAP INSTRUCTION 6924 037416 202 00 0 00 000041 MOVEM 41 ;INTO 41 6925 037417 001000 525252 1B8!X ;EXECUTE A UUO 6926 037420 254 04 0 00 037421 ..0305: HALT .+1 ;UUO DIDN'T TRAP TO 40 6927 037421 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6928 037422 405 00 0 00 777777 ANDI 0,-1 ;MASK OUT UUO FOR MA BITS 6929 037423 302 00 0 00 525252 CAIE X ;MA BITS CORRECT? 6930 037424 ..0306: STOP1^ 6931 037424 254 04 0 00 037425 HALT .+1 ;UUO FAILED TO STORE MA BITS 6932 037425 254 00 0 00 037426 JRST .+1 ;INTO RIGHT HALF OF 40^ 6933 TGET^^ 6934 037426 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 6935 037427 302 00 0 00 037413 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 6936 STOP2^^ 6937 037430 254 04 0 00 037431 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 6938 037431 254 00 0 00 037432 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 6939 000000 X=0 6940 037432 255 00 0 00 000000 JFCL DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 41 DSKAH1 MAC 31-Mar-78 11:13 TEST CLEARING OF INDEX AND INDIRECT BITS ON UUO SEQ 0159 6941 SUBTTL TEST CLEARING OF INDEX AND INDIRECT BITS ON UUO 6942 6943 ;TEST THAT THE INDEX BITS ARE CLEARED WHEN EXECUTING A UUO 6944 6945 037433 UUOIND: CLRBTH^ 6946 037433 700 04 0 00 261600 CLRAPR 6947 037434 700 14 0 00 031577 CLRPI^ 6948 037435 400 17 0 00 000000 SETZ 17, ;CLEAR INDEX FIELD 6949 037436 200 00 0 00 040455 MOVE [JRST .+4] ;SET UP UUO TRAP INSTR. 6950 037437 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION 6951 037440 001017 000000 1B8!(17) ;EXECUTE A UUO WITH INDEXING 6952 037441 254 04 0 00 037442 HALT .+1 ;UUO DID NOT TRAP 6953 037442 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6954 037443 603 00 0 00 000017 TLNE 0,17 ;INDEX FIELD CLEAR? 6955 STOP^ 6956 037444 254 04 0 00 037445 HALT .+1 ;INSTRUCTION FAILED REPLACE 6957 037445 254 00 0 00 037446 JRST .+1 ;WITH JRST BACK^ 6958 6959 ;TEST THAT THE INDIRECT BIT IS CLEARED WHEN EXECUTING A UUO 6960 6961 037446 UUOINX: CLRBTH^ 6962 037446 700 04 0 00 261600 CLRAPR 6963 037447 700 14 0 00 031577 CLRPI^ 6964 037450 403 17 0 00 000000 SETZB 17,0 ;CLEAR INDEX FIELD 6965 037451 200 00 0 00 040456 MOVE [JRST .+4] ;SET UUO TRAP INSTR. 6966 037452 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION 6967 037453 001020 000017 1B8!@@17 ;EXECUTE A UUO WITH INDIRECTING 6968 037454 254 04 0 00 037455 HALT .+1 ;UUO DID NOT TRAP 6969 037455 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6970 037456 603 00 0 00 000020 TLNE 0,20 ;INDIRECT BIT CLEAR? 6971 STOP^ 6972 037457 254 04 0 00 037460 HALT .+1 ;INSTRUCTION FAILED REPLACE 6973 037460 254 00 0 00 037461 JRST .+1 ;WITH JRST BACK^ 6974 6975 ;TEST THAT BOTH INDEX AND INDIRECT BITS CLEAR WHEN EXECUTING A UUO 6976 6977 037461 UUOBTH: CLRBTH^ 6978 037461 700 04 0 00 261600 CLRAPR 6979 037462 700 14 0 00 031577 CLRPI^ 6980 037463 403 17 0 00 000000 SETZB 17,0 ;CLEAR INDEX FIELD 6981 037464 200 00 0 00 040457 MOVE [JRST .+4] ;SET UP TRAP INSTR. 6982 037465 202 00 0 00 000041 MOVEM 41 ;INTO TRAP LOCATION 6983 037466 001037 000017 1B8!@@17(17) ;EXECUTE WITH INDIRECT AND INDEX 6984 037467 254 04 0 00 037470 HALT .+1 ;UUO DID NOT TRAP 6985 037470 200 00 0 00 000040 MOVE 0,40 ;GET UUO 6986 037471 603 00 0 00 000037 TLNE 0,37 ;INDIRECT OR INDEX BITS STILL SET? 6987 STOP^ 6988 037472 254 04 0 00 037473 HALT .+1 ;INSTRUCTION FAILED REPLACE 6989 037473 254 00 0 00 037474 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42 DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0160 6990 SUBTTL TEST UUOS OUT OF FAST MEMORY 6991 6992 FMUUO 0^ 6993 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 6994 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 6995 ;CORRECT PC. 6996 6997 000000 AC=0 ;TESTED AC 6998 6999 TSET^ 7000 037474 %X=. ;DEFINE %X TO SAVE 7001 037474 201 00 0 00 037474 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7002 037475 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7003 037476 200 00 0 00 040332 MOVE 0,[XWD 1000,0] ;SET UP UUO INTO AC 0 TO EXECUTE 7004 037477 200 13 0 00 040460 MOVE 13,[JSP 11,..0307] ;SET UP UUO TRAP INSTRUCTION 7005 037500 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7006 037501 200 01 0 00 040461 MOVE 0+1,[JRST ..0310] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7007 037502 254 00 0 00 000000 JRST 0 ;GO EXECUTE UUO 7008 037503 254 04 0 00 037504 ..0310: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7009 037504 254 00 0 00 037505 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7010 037505 405 11 0 00 777777 ..0307: ANDI 11,-1 ;MASK FLAGS 7011 037506 302 11 0 00 000001 CAIE 11,0+1 ;PC STORED SHOULD = 0 +1 7012 STOP^ 7013 037507 254 04 0 00 037510 HALT .+1 ;INSTRUCTION FAILED REPLACE 7014 037510 254 00 0 00 037511 JRST .+1 ;WITH JRST BACK^ 7015 TGET^^ 7016 037511 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7017 037512 302 00 0 00 037474 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7018 STOP2^^ 7019 037513 254 04 0 00 037514 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7020 037514 254 00 0 00 037515 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7021 7022 FMUUO 1^ 7023 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7024 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7025 ;CORRECT PC. 7026 7027 000001 AC=1 ;TESTED AC 7028 7029 TSET^ 7030 037515 %X=. ;DEFINE %X TO SAVE 7031 037515 201 00 0 00 037515 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7032 037516 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7033 037517 200 01 0 00 040332 MOVE 1,[XWD 1000,0] ;SET UP UUO INTO AC 1 TO EXECUTE 7034 037520 200 13 0 00 040462 MOVE 13,[JSP 11,..0311] ;SET UP UUO TRAP INSTRUCTION 7035 037521 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7036 037522 200 02 0 00 040463 MOVE 1+1,[JRST ..0312] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7037 037523 254 00 0 00 000001 JRST 1 ;GO EXECUTE UUO 7038 037524 254 04 0 00 037525 ..0312: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7039 037525 254 00 0 00 037526 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7040 037526 405 11 0 00 777777 ..0311: ANDI 11,-1 ;MASK FLAGS 7041 037527 302 11 0 00 000002 CAIE 11,1+1 ;PC STORED SHOULD = 1 +1 7042 STOP^ 7043 037530 254 04 0 00 037531 HALT .+1 ;INSTRUCTION FAILED REPLACE 7044 037531 254 00 0 00 037532 JRST .+1 ;WITH JRST BACK^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-1 DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0161 7045 TGET^^ 7046 037532 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7047 037533 302 00 0 00 037515 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7048 STOP2^^ 7049 037534 254 04 0 00 037535 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7050 037535 254 00 0 00 037536 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7051 7052 FMUUO 2^ 7053 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7054 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7055 ;CORRECT PC. 7056 7057 000002 AC=2 ;TESTED AC 7058 7059 TSET^ 7060 037536 %X=. ;DEFINE %X TO SAVE 7061 037536 201 00 0 00 037536 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7062 037537 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7063 037540 200 02 0 00 040332 MOVE 2,[XWD 1000,0] ;SET UP UUO INTO AC 2 TO EXECUTE 7064 037541 200 13 0 00 040464 MOVE 13,[JSP 11,..0313] ;SET UP UUO TRAP INSTRUCTION 7065 037542 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7066 037543 200 03 0 00 040465 MOVE 2+1,[JRST ..0314] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7067 037544 254 00 0 00 000002 JRST 2 ;GO EXECUTE UUO 7068 037545 254 04 0 00 037546 ..0314: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7069 037546 254 00 0 00 037547 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7070 037547 405 11 0 00 777777 ..0313: ANDI 11,-1 ;MASK FLAGS 7071 037550 302 11 0 00 000003 CAIE 11,2+1 ;PC STORED SHOULD = 2 +1 7072 STOP^ 7073 037551 254 04 0 00 037552 HALT .+1 ;INSTRUCTION FAILED REPLACE 7074 037552 254 00 0 00 037553 JRST .+1 ;WITH JRST BACK^ 7075 TGET^^ 7076 037553 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7077 037554 302 00 0 00 037536 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7078 STOP2^^ 7079 037555 254 04 0 00 037556 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7080 037556 254 00 0 00 037557 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7081 7082 FMUUO 4^ 7083 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7084 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7085 ;CORRECT PC. 7086 7087 000004 AC=4 ;TESTED AC 7088 7089 TSET^ 7090 037557 %X=. ;DEFINE %X TO SAVE 7091 037557 201 00 0 00 037557 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7092 037560 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7093 037561 200 04 0 00 040332 MOVE 4,[XWD 1000,0] ;SET UP UUO INTO AC 4 TO EXECUTE 7094 037562 200 13 0 00 040466 MOVE 13,[JSP 11,..0315] ;SET UP UUO TRAP INSTRUCTION 7095 037563 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7096 037564 200 05 0 00 040467 MOVE 4+1,[JRST ..0316] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7097 037565 254 00 0 00 000004 JRST 4 ;GO EXECUTE UUO 7098 037566 254 04 0 00 037567 ..0316: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7099 037567 254 00 0 00 037570 JRST .+1 ;LOOP TO %FMUUO IF ERROR DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-2 DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0162 7100 037570 405 11 0 00 777777 ..0315: ANDI 11,-1 ;MASK FLAGS 7101 037571 302 11 0 00 000005 CAIE 11,4+1 ;PC STORED SHOULD = 4 +1 7102 STOP^ 7103 037572 254 04 0 00 037573 HALT .+1 ;INSTRUCTION FAILED REPLACE 7104 037573 254 00 0 00 037574 JRST .+1 ;WITH JRST BACK^ 7105 TGET^^ 7106 037574 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7107 037575 302 00 0 00 037557 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7108 STOP2^^ 7109 037576 254 04 0 00 037577 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7110 037577 254 00 0 00 037600 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7111 7112 FMUUO 5^ 7113 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7114 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7115 ;CORRECT PC. 7116 7117 000005 AC=5 ;TESTED AC 7118 7119 TSET^ 7120 037600 %X=. ;DEFINE %X TO SAVE 7121 037600 201 00 0 00 037600 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7122 037601 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7123 037602 200 05 0 00 040332 MOVE 5,[XWD 1000,0] ;SET UP UUO INTO AC 5 TO EXECUTE 7124 037603 200 13 0 00 040470 MOVE 13,[JSP 11,..0317] ;SET UP UUO TRAP INSTRUCTION 7125 037604 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7126 037605 200 06 0 00 040471 MOVE 5+1,[JRST ..0320] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7127 037606 254 00 0 00 000005 JRST 5 ;GO EXECUTE UUO 7128 037607 254 04 0 00 037610 ..0320: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7129 037610 254 00 0 00 037611 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7130 037611 405 11 0 00 777777 ..0317: ANDI 11,-1 ;MASK FLAGS 7131 037612 302 11 0 00 000006 CAIE 11,5+1 ;PC STORED SHOULD = 5 +1 7132 STOP^ 7133 037613 254 04 0 00 037614 HALT .+1 ;INSTRUCTION FAILED REPLACE 7134 037614 254 00 0 00 037615 JRST .+1 ;WITH JRST BACK^ 7135 TGET^^ 7136 037615 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7137 037616 302 00 0 00 037600 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7138 STOP2^^ 7139 037617 254 04 0 00 037620 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7140 037620 254 00 0 00 037621 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7141 7142 FMUUO 10^ 7143 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7144 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7145 ;CORRECT PC. 7146 7147 000010 AC=10 ;TESTED AC 7148 7149 TSET^ 7150 037621 %X=. ;DEFINE %X TO SAVE 7151 037621 201 00 0 00 037621 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7152 037622 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7153 037623 200 10 0 00 040332 MOVE 10,[XWD 1000,0] ;SET UP UUO INTO AC 10 TO EXECUTE 7154 037624 200 13 0 00 040472 MOVE 13,[JSP 11,..0321] ;SET UP UUO TRAP INSTRUCTION DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-3 DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0163 7155 037625 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7156 037626 200 11 0 00 040473 MOVE 10+1,[JRST ..0322] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7157 037627 254 00 0 00 000010 JRST 10 ;GO EXECUTE UUO 7158 037630 254 04 0 00 037631 ..0322: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7159 037631 254 00 0 00 037632 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7160 037632 405 11 0 00 777777 ..0321: ANDI 11,-1 ;MASK FLAGS 7161 037633 302 11 0 00 000011 CAIE 11,10+1 ;PC STORED SHOULD = 10 +1 7162 STOP^ 7163 037634 254 04 0 00 037635 HALT .+1 ;INSTRUCTION FAILED REPLACE 7164 037635 254 00 0 00 037636 JRST .+1 ;WITH JRST BACK^ 7165 TGET^^ 7166 037636 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7167 037637 302 00 0 00 037621 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7168 STOP2^^ 7169 037640 254 04 0 00 037641 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7170 037641 254 00 0 00 037642 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7171 7172 FMUUO 12^ 7173 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7174 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7175 ;CORRECT PC. 7176 7177 000012 AC=12 ;TESTED AC 7178 7179 TSET^ 7180 037642 %X=. ;DEFINE %X TO SAVE 7181 037642 201 00 0 00 037642 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7182 037643 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7183 037644 200 12 0 00 040332 MOVE 12,[XWD 1000,0] ;SET UP UUO INTO AC 12 TO EXECUTE 7184 037645 200 13 0 00 040474 MOVE 13,[JSP 11,..0323] ;SET UP UUO TRAP INSTRUCTION 7185 037646 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7186 037647 200 13 0 00 040475 MOVE 12+1,[JRST ..0324] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7187 037650 254 00 0 00 000012 JRST 12 ;GO EXECUTE UUO 7188 037651 254 04 0 00 037652 ..0324: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7189 037652 254 00 0 00 037653 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7190 037653 405 11 0 00 777777 ..0323: ANDI 11,-1 ;MASK FLAGS 7191 037654 302 11 0 00 000013 CAIE 11,12+1 ;PC STORED SHOULD = 12 +1 7192 STOP^ 7193 037655 254 04 0 00 037656 HALT .+1 ;INSTRUCTION FAILED REPLACE 7194 037656 254 00 0 00 037657 JRST .+1 ;WITH JRST BACK^ 7195 TGET^^ 7196 037657 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7197 037660 302 00 0 00 037642 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7198 STOP2^^ 7199 037661 254 04 0 00 037662 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7200 037662 254 00 0 00 037663 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7201 7202 FMUUO 17^ 7203 ;EXECUTE UUO'S OUT OF FAST MEMORY LOCATIONS 0,1,2,4,5,10,12, AND 17 7204 ;CHECK FIRST THAT THE UUO TRAPPED AND SECONDLY THAT IT STORED THE 7205 ;CORRECT PC. 7206 7207 000017 AC=17 ;TESTED AC 7208 7209 TSET^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 42-4 DSKAH1 MAC 31-Mar-78 11:13 TEST UUOS OUT OF FAST MEMORY SEQ 0164 7210 037663 %X=. ;DEFINE %X TO SAVE 7211 037663 201 00 0 00 037663 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7212 037664 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7213 037665 200 17 0 00 040332 MOVE 17,[XWD 1000,0] ;SET UP UUO INTO AC 17 TO EXECUTE 7214 037666 200 13 0 00 040476 MOVE 13,[JSP 11,..0325] ;SET UP UUO TRAP INSTRUCTION 7215 037667 202 13 0 00 000041 MOVEM 13,41 ;INTO LOCATION 41 7216 037670 200 00 0 00 040477 MOVE 17+1,[JRST ..0326] ;SET UP TRAP INSTRUCTION INCASE UUO DOES NOT TRAP 7217 037671 254 00 0 00 000017 JRST 17 ;GO EXECUTE UUO 7218 037672 254 04 0 00 037673 ..0326: HALT .+1 ;UUO DID NOT TRAP FROM FAST MEMORY 7219 037673 254 00 0 00 037674 JRST .+1 ;LOOP TO %FMUUO IF ERROR 7220 037674 405 11 0 00 777777 ..0325: ANDI 11,-1 ;MASK FLAGS 7221 037675 302 11 0 00 000020 CAIE 11,17+1 ;PC STORED SHOULD = 17 +1 7222 STOP^ 7223 037676 254 04 0 00 037677 HALT .+1 ;INSTRUCTION FAILED REPLACE 7224 037677 254 00 0 00 037700 JRST .+1 ;WITH JRST BACK^ 7225 TGET^^ 7226 037700 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7227 037701 302 00 0 00 037663 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7228 STOP2^^ 7229 037702 254 04 0 00 037703 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7230 037703 254 00 0 00 037704 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 43 DSKAH1 MAC 31-Mar-78 11:13 SIMPLE MUUO TEST SEQ 0165 7231 SUBTTL SIMPLE MUUO TEST 7232 ;TEST MONITOR UUO "0" TO SEE IF IT TRAPS AT ALL 7233 ;TRAPPING TO 40 CAUSES IT TO HALT. TRAPPING TO SUPERVISOR KERNAL PUBLIC 7234 ;OR CONCEALED IS ALLOWED AND IS CONSIDERED CORRECT. 7235 7236 TSET^ 7237 037704 %X=. ;DEFINE %X TO SAVE 7238 037704 201 00 0 00 037704 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7239 037705 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7240 037706 265 00 0 00 037707 JSP .+1 ;GET FLAGS 7241 037707 603 00 0 00 010000 TLNE USERF ;IF USER MODE THEN EXIT 7242 037710 254 00 0 00 037756 JRST USRIO0 ;SKIP IF USER MODE TO USER IO TEST 7243 7244 CLRBTH^ 7245 037711 700 04 0 00 261600 CLRAPR 7246 037712 700 14 0 00 031577 CLRPI^ 7247 037713 201 00 0 00 037736 XMUUO: MOVEI XMUPC ;SET UP A TRAP FOR MONITOR UUO 7248 037714 202 00 0 00 000430 MOVEM KNTRP ;INTO A POSSIBLE TRAP LOCATIONS 7249 037715 202 00 0 00 000431 MOVEM KTRP 7250 037716 202 00 0 00 000432 MOVEM SNTRP 7251 037717 202 00 0 00 000433 MOVEM STRP 7252 037720 202 00 0 00 000434 MOVEM CNTRP 7253 037721 202 00 0 00 000435 MOVEM CTRP 7254 037722 202 00 0 00 000436 MOVEM PNTRP 7255 037723 202 00 0 00 000437 MOVEM PTRP 7256 037724 476 00 0 00 000424 SETOM MUUO ;SET THE TRAP LOCATIONS 7257 037725 476 00 0 00 000425 SETOM MUUO+1 ;TO ENABLE CHECKING 7258 037726 200 00 0 00 040500 MOVE [JRST MUHLT] ;SET UP A LUUO TRAP HALT 7259 037727 202 00 0 00 000041 MOVEM 41 7260 037730 402 00 0 00 037731 SETZM .+1 ;MAKE A MUUO IN THE NEXT LOCATION 7261 037731 000000 000000 XMUUO0: 0 ;THIS IS A MONITOR UUO 7262 037732 254 04 0 00 037733 HALT .+1 ;THE UUO DIDN'T TRAP 7263 037733 254 04 0 00 037734 HALT .+1 ;MUUO SKIPPED? 7264 037734 254 04 0 00 037735 MUHLT: HALT .+1 ;UUO TRAPPED TO 40(DECODE AS LUUO?) 7265 037735 254 04 0 00 037736 HALT .+1 ;SPARE HALT DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 44 DSKAH1 MAC 31-Mar-78 11:13 SIMPLE MUUO TEST SEQ 0166 7266 037736 XMUPC: TGET^ 7267 037736 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7268 037737 302 00 0 00 037704 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7269 STOP2^^ 7270 037740 254 04 0 00 037741 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7271 037741 254 00 0 00 037742 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7272 037742 332 00 0 00 000424 SKIPE MUUO ;MON UUO "0" DIDN'T STORE A ZERO 7273 STOP^ 7274 037743 254 04 0 00 037744 HALT .+1 ;INSTRUCTION FAILED REPLACE 7275 037744 254 00 0 00 037745 JRST .+1 ;WITH JRST BACK^ 7276 037745 550 00 0 00 000425 HRRZ MUUO+1 ;GET THE STORED PC 7277 037746 302 00 0 00 037732 CAIE XMUUO0+1 ;DID WE STORE THE CORRECT PC? 7278 STOP^ 7279 037747 254 04 0 00 037750 HALT .+1 ;INSTRUCTION FAILED REPLACE 7280 037750 254 00 0 00 037751 JRST .+1 ;WITH JRST BACK^ 7281 037751 255 00 0 00 000000 JFCL 7282 TGET^ 7283 037752 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7284 037753 302 00 0 00 037704 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7285 STOP2^^ 7286 037754 254 04 0 00 037755 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7287 037755 254 00 0 00 037756 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 45 DSKAH1 MAC 31-Mar-78 11:13 TEST THE USER IOT BIT SEQ 0167 7288 SUBTTL TEST THE USER IOT BIT 7289 ;CHECK CLEARING AND SETTING OF THE USER IOT BIT 7290 7291 037756 USRIO0: TSET^ 7292 037756 %X=. ;DEFINE %X TO SAVE 7293 037756 201 00 0 00 037756 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7294 037757 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7295 CLRBTH^ 7296 037760 700 04 0 00 261600 CLRAPR 7297 037761 700 14 0 00 031577 CLRPI^ 7298 037762 336 00 0 00 030042 SKIPN MONFLG ;IN SPECIAL USER MODE? 7299 037763 254 00 0 00 040017 JRST ENDIT ;YES LOOP TEST 7300 037764 254 02 1 00 037765 JRSTF @@.+1 ;CLEAR BITS 7301 037765 000000 037766 0,,.+1 ;PC AND FLAGS 7302 037766 265 00 0 00 037767 JSP .+1 ;CHECK WHY USER I/O FLAG IS SET 7303 037767 603 00 0 00 004000 TLNE EXIOT ;SHOULD BE CLEAR VIA JRSTF 7304 STOP^ 7305 037770 254 04 0 00 037771 HALT .+1 ;INSTRUCTION FAILED REPLACE 7306 037771 254 00 0 00 037772 JRST .+1 ;WITH JRST BACK^ 7307 TGET^ 7308 037772 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7309 037773 302 00 0 00 037756 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7310 STOP2^^ 7311 037774 254 04 0 00 037775 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7312 037775 254 00 0 00 037776 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7313 037776 336 00 0 00 030042 SKIPN MONFLG ;IN USER MODE? 7314 037777 254 00 0 00 040017 JRST ENDIT ;YES CANNOT SET USER IO FLAG 7315 ;IN USER MODE 7316 7317 040000 USRIO1: TSET^ 7318 040000 %X=. ;DEFINE %X TO SAVE 7319 040000 201 00 0 00 040000 MOVEI %X ;SAVE THIS PC IN CASE OF WILD TRANSFER 7320 040001 202 00 0 00 040506 MOVEM TNUMB# ;BECAUSE OF PC MOD OR INTERRUPT^ 7321 CLRBTH^ 7322 040002 700 04 0 00 261600 CLRAPR 7323 040003 700 14 0 00 031577 CLRPI^ 7324 040004 400 00 0 00 000000 SETZ 0 ;CLEAR 0 7325 040005 200 01 0 00 040501 MOVE 1,[1B6!.+2] ;FLAGS AND PC 7326 040006 254 02 0 01 000000 JRSTF (1) ;USER I/O FLAG DID 7327 040007 265 00 0 00 040010 JSP .+1 ;NOT SET 7328 040010 607 00 0 00 004000 TLNN EXIOT ;CHECK WHY BIT IS NOT SET 7329 STOP^ 7330 040011 254 04 0 00 040012 HALT .+1 ;INSTRUCTION FAILED REPLACE 7331 040012 254 00 0 00 040013 JRST .+1 ;WITH JRST BACK^ 7332 TGET^ 7333 040013 200 00 0 00 040506 MOVE TNUMB ;GET LAST PC STORED AND CHECK TO SEE 7334 040014 302 00 0 00 040000 CAIE %X ;IF ITS WHERE WE REALLY SHOULD BE 7335 STOP2^^ 7336 040015 254 04 0 00 040016 HALT .+1 ;HALT IF WE SHOULDN'T BE HERE 7337 040016 254 00 0 00 040017 JRST .+1 ;WILD TRANSFER CAUSED THIS HALT.^ 7338 7339 040017 402 00 0 00 040506 ENDIT: SETZM TNUMB ;CLEAR TEST NUMBER FLAG 7340 040020 254 00 0 00 030057 JRST BEGEND ;GO TO BEG/END SEQUENCE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 46 DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0168 7341 SUBTTL IOT/PI/APR SUBROUTINES 7342 7343 ;HERE ARE SOME USEFUL SUBROUTINES FOR THE DIAGNOSTIC 7344 7345 ;THIS ROUTINE CLEARS ALL THE TRAP LOCATIONS(42-56) 7346 7347 040021 000000 000000 TRPCLR: 0 ;FOR PC RETURN 7348 040022 202 15 0 00 040511 MOVEM 15,XAC15# ;SAVE AC15 7349 040023 201 15 0 00 000042 MOVEI 15,42 7350 040024 402 00 1 00 000015 SETZM @@15 ;CLEAR LOCATION 7351 040025 271 15 0 00 000001 ADDI 15,1 ;BUMP POINTER 7352 040026 307 15 0 00 000056 CAIG 15,56 ;DONE LAST? 7353 040027 254 00 0 00 040024 JRST .-3 ;LOOP 7354 040030 200 15 0 00 040511 MOVE 15,XAC15 ;RESTORE AC15 7355 040031 254 00 1 00 040021 JRST @@TRPCLR 7356 7357 ;THIS ROUTINE PUTS A JSR TO A HALT INTO EACH TRAP LOCATION (42-57) 7358 7359 040032 000000 000000 HALTPI: 0 ;FOR RETURN PC 7360 040033 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0 7361 040034 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1 7362 040035 200 00 0 00 040502 MOVE [JSR HLTCK] ;PUT JSR INTO EACH TRAP LOCATION 7363 040036 201 01 0 00 000042 MOVEI 1,42 ;IN CASE INCORRECT INTERRUPT 7364 040037 202 00 1 00 000001 MOVEM @@1 ;STORE 7365 040040 271 00 0 00 000004 ADDI 4 7366 040041 271 01 0 00 000002 ADDI 1,2 7367 040042 305 01 0 00 000060 CAIGE 1,60 ;DONE? 7368 040043 254 00 0 00 040037 JRST .-4 7369 040044 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0 7370 040045 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1 7371 040046 254 00 1 00 040032 JRST @@HALTPI ;RETURN DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 47 DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0169 7372 ;THIS ROUTINE PUTS A JSR INTO EACH INTERRUPT LOCATION WHICH WILL 7373 ;IGNORE INTERRUPTS.. 7374 7375 040047 000000 000000 TRAPPI: 0 ;FOR JSR 7376 040050 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0 7377 040051 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1 7378 040052 200 00 0 00 040503 MOVE [JSR TRPFIL] ;SET UP TRAP INSTRUCTION 7379 040053 201 01 0 00 000042 MOVEI 1,42 7380 040054 202 00 1 00 000001 MOVEM @@1 7381 040055 271 01 0 00 000002 ADDI 1,2 7382 040056 271 00 0 00 000004 ADDI 0,4 ;STORAGE POINTER 7383 040057 305 01 0 00 000060 CAIGE 1,60 ;DONE? 7384 040060 254 00 0 00 040054 JRST .-4 ;NO LOOP 7385 040061 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0 7386 040062 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1 7387 040063 254 00 1 00 040047 JRST @@TRAPPI ;RETURN 7388 7389 ;THIS ROUTINE PLACES THE VALUE OF THE CHANNEL WHICH INTERRUPTED INTO 7390 ;AC0. IT DOES NOTHING ELSE (IT EFFECTIVLY IGNORES THE INTERRUPT). 7391 7392 040064 000000 000000 TRPFIL: 0 7393 040065 200 01 0 00 040064 MOVE 1,.-1 7394 040066 201 00 0 00 000001 MOVEI 1 ;POINTER 7395 040067 254 00 0 00 040121 JRST TPEND 7396 040070 000000 000000 0 7397 040071 200 01 0 00 040070 MOVE 1,.-1 7398 040072 201 00 0 00 000002 MOVEI 2 7399 040073 254 00 0 00 040121 JRST TPEND 7400 040074 000000 000000 0 7401 040075 200 01 0 00 040074 MOVE 1,.-1 7402 040076 201 00 0 00 000003 MOVEI 3 7403 040077 254 00 0 00 040121 JRST TPEND 7404 040100 000000 000000 0 7405 040101 200 01 0 00 040100 MOVE 1,.-1 7406 040102 201 00 0 00 000004 MOVEI 4 7407 040103 254 00 0 00 040121 JRST TPEND 7408 040104 000000 000000 0 7409 040105 200 01 0 00 040104 MOVE 1,.-1 7410 040106 201 00 0 00 000005 MOVEI 5 7411 040107 254 00 0 00 040121 JRST TPEND 7412 040110 000000 000000 0 7413 040111 200 01 0 00 040110 MOVE 1,.-1 7414 040112 201 00 0 00 000006 MOVEI 6 7415 040113 254 00 0 00 040121 JRST TPEND 7416 040114 000000 000000 0 7417 040115 200 01 0 00 040114 MOVE 1,.-1 7418 040116 201 00 0 00 000007 MOVEI 7 7419 040117 254 00 0 00 040121 JRST TPEND 7420 040120 254 04 0 00 040121 HALT TPEND ;"JRST @@" OR "JRSTF @@" FAILS 7421 7422 040121 332 00 0 00 030042 TPEND: SKIPE MONFLG ;IN USER MODE? 7423 040122 254 00 1 00 000001 JRST @@1 ;RETURN 7424 040123 254 02 1 00 000001 JRSTF @@1 ;RESTORE FLAGS 7425 040124 254 04 0 00 040124 HALT . ;JRST @@ OR JRSTF FAILS ? DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 48 DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR SUBROUTINES SEQ 0170 7426 ;THIS ROUTINE PLACES THE VALUE OF THE CHANNEL WHICH INTERRUPTED 7427 ;INTO AC0. AFTER WHICH IT WILL HALT. THIS ROUTINE IS CALLED WHENEVER AN 7428 ;INTERRUPT OCCURS ON AN INCORRECT CHANNEL. 7429 040125 000000 000000 HLTCK: 0 7430 040126 200 01 0 00 040125 MOVE 1,.-1 7431 040127 201 00 0 00 000001 MOVEI 1 7432 040130 254 04 1 00 000001 HALT @@1 7433 040131 000000 000000 0 7434 040132 200 01 0 00 040131 MOVE 1,.-1 7435 040133 201 00 0 00 000002 MOVEI 2 7436 040134 254 04 1 00 000001 HALT @@1 7437 040135 000000 000000 0 7438 040136 200 01 0 00 040135 MOVE 1,.-1 7439 040137 201 00 0 00 000003 MOVEI 3 7440 040140 254 04 1 00 000001 HALT @@1 7441 040141 000000 000000 0 7442 040142 200 01 0 00 040141 MOVE 1,.-1 7443 040143 201 00 0 00 000004 MOVEI 4 7444 040144 254 04 1 00 000001 HALT @@1 7445 040145 000000 000000 0 7446 040146 200 01 0 00 040145 MOVE 1,.-1 7447 040147 201 00 0 00 000005 MOVEI 5 7448 040150 254 04 1 00 000001 HALT @@1 7449 040151 000000 000000 0 7450 040152 200 01 0 00 040151 MOVE 1,.-1 7451 040153 201 00 0 00 000006 MOVEI 6 7452 040154 254 04 1 00 000001 HALT @@1 7453 040155 000000 000000 0 7454 040156 200 01 0 00 040155 MOVE 1,.-1 7455 040157 201 00 0 00 000007 MOVEI 7 7456 040160 254 04 1 00 000007 HALT @@7 7457 040161 000000 000000 0 7458 040162 200 01 0 00 040161 MOVE 1,.-1 7459 040163 474 00 0 00 000000 SETO 0 7460 040164 254 04 0 00 040164 HALT . ;SHOULD NEVER GET HERE DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 49 DSKAH1 MAC 31-Mar-78 11:13 IOT/PI/APR TRAP ROUTINES SEQ 0171 7461 SUBTTL IOT/PI/APR TRAP ROUTINES 7462 7463 ;HERE LIE THE VARIOUS TRAPS TRAPS HERE REPRESENT ERRORS 7464 ;NOT CHECKED IN THE DIAGNOSTIC. THE LISTING SHOWS THE CAUSE OF THE 7465 ;TRAP. 7466 7467 040165 254 04 0 00 040165 UUO: HALT . ;ERROR-UUO (LOC 0 HAS PC OF UUO) 7468 040166 254 04 1 00 000425 MACHTP: HALT @@425 ;KERNAL NO TRAP 7469 040167 254 04 1 00 000425 HALT @@425 ;KERNAL TRAP 7470 040170 254 04 1 00 000425 HALT @@425 ;SUPERVISOR NO TRAP 7471 040171 254 04 1 00 000425 HALT @@425 ;SUPERVISOR TRAP 7472 040172 254 04 1 00 000425 HALT @@425 ;CONCEAL NO TRAP 7473 040173 254 04 1 00 000425 HALT @@425 ;CONCEAL TRAP 7474 040174 254 04 1 00 000425 HALT @@425 ;PUBLIC NO TRAP 7475 040175 254 04 1 00 000425 HALT @@425 ;PUBLIC TRAP 7476 7477 040176 254 04 0 00 040176 TABLE: HALT . ;PAGE FAILURE TRAP 7478 040177 255 00 0 00 000000 JFCL ;IGNORE ARITHMETIC TRAPS 7479 040200 254 04 0 00 040200 HALT . 7480 040201 254 04 0 00 040201 HALT . 7481 040202 777777 777777 -1 ;IF UUO THEN NOT =O-1 7482 040203 777777 777777 -1 7483 040204 000000 000000 0 7484 040205 000000 000000 0 7485 040206 000000 040166 MACHTP 7486 040207 000000 040167 MACHTP+1 7487 040210 000000 040170 MACHTP+2 7488 040211 000000 040171 MACHTP+3 7489 040212 000000 040172 MACHTP+4 7490 040213 000000 040173 MACHTP+5 7491 040214 000000 040174 MACHTP+6 7492 040215 000000 040175 MACHTP+7 7493 7494 040216 000000 000000 TRPSET: 0 ;FOR JSR 7495 040217 202 00 0 00 040507 MOVEM 0,XAC0# ;SAVE AC0 7496 040220 202 01 0 00 040510 MOVEM 1,XAC1# ;SAVE AC1 7497 040221 202 16 0 00 040512 MOVEM 16,XAC16# ;SAVE AC16 7498 040222 201 00 0 00 040176 MOVEI 0,TABLE ;TRAP TABLE POINTER 7499 040223 201 01 0 00 000420 MOVEI 1,420 ;STORAGE ADRESS 7500 040224 200 16 1 00 000000 MOVE 16,@@0 ;PUT TRAP WORD INTO 7501 040225 202 16 0 01 000000 MOVEM 16,(1) ;TRAP LOCATION 7502 040226 271 00 0 00 000001 ADDI 0,1 ;BUMP 7503 040227 271 01 0 00 000001 ADDI 1,1 ;POINTERS 7504 040230 302 01 0 00 000440 CAIE 1,440 ;DONE LAST 7505 040231 254 00 0 00 040224 JRST .-5 ;NO KEEP LOOPING 7506 040232 200 00 0 00 040507 MOVE 0,XAC0 ;RESTORE AC0 7507 040233 200 01 0 00 040510 MOVE 1,XAC1 ;AND AC1 7508 040234 200 16 0 00 040512 MOVE 16,XAC16 ;AND AC16 7509 040235 254 00 1 00 040216 JRST @@TRPSET ;RETURN TO CALLER DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0172 7510 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 7511 7512 ;PROGRAM LITERALS 7513 7514 XLIST 7515 IFNDEF $LPAPER, 7516 040236 LIT 7517 040236 123456 654321 7518 040237 777777 777777 7519 040240 265 00 0 00 040165 7520 040241 264 00 0 00 033317 7521 040242 264 00 0 00 033336 7522 040243 264 00 0 00 033355 7523 040244 264 00 0 00 033374 7524 040245 264 00 0 00 033413 7525 040246 264 00 0 00 033432 7526 040247 264 00 0 00 033451 7527 040250 264 00 0 00 033475 7528 040251 264 00 0 00 033513 7529 040252 264 00 0 00 033531 7530 040253 264 00 0 00 033547 7531 040254 264 00 0 00 033565 7532 040255 264 00 0 00 033603 7533 040256 264 00 0 00 033621 7534 040257 264 00 0 00 033645 7535 040260 264 00 0 00 033662 7536 040261 264 00 0 00 033677 7537 040262 264 00 0 00 033714 7538 040263 264 00 0 00 033731 7539 040264 264 00 0 00 033746 7540 040265 264 00 0 00 033763 7541 040266 264 00 0 00 034014 7542 040267 264 00 0 00 034041 7543 040270 264 00 0 00 034066 7544 040271 264 00 0 00 034113 7545 040272 264 00 0 00 034140 7546 040273 264 00 0 00 034165 7547 040274 264 00 0 00 034212 7548 040275 264 00 0 00 034237 7549 040276 264 00 0 00 034264 7550 040277 264 00 0 00 034311 7551 040300 264 00 0 00 034336 7552 040301 264 00 0 00 034363 7553 040302 264 00 0 00 034410 7554 040303 264 00 0 00 034435 7555 040304 264 00 0 00 034462 7556 040305 264 00 0 00 034507 7557 040306 264 00 0 00 034534 7558 040307 264 00 0 00 034561 7559 040310 264 00 0 00 034606 7560 040311 264 00 0 00 034633 7561 040312 264 00 0 00 034661 7562 040313 264 00 0 00 034700 7563 040314 264 00 0 00 034724 7564 040315 264 00 0 00 034750 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0173 7565 040316 264 00 0 00 034774 7566 040317 264 00 0 00 035020 7567 040320 264 00 0 00 035044 7568 040321 264 00 0 00 035070 7569 040322 264 00 0 00 035271 7570 040323 264 00 0 00 035323 7571 040324 264 00 0 00 035355 7572 040325 264 00 0 00 035407 7573 040326 264 00 0 00 035441 7574 040327 264 00 0 00 035473 7575 040330 264 00 0 00 035525 7576 040331 265 01 0 00 035551 7577 040332 001000 000000 7578 040333 265 01 0 00 035575 7579 040334 002000 000000 7580 040335 265 01 0 00 035621 7581 040336 003000 000000 7582 040337 265 01 0 00 035645 7583 040340 004000 000000 7584 040341 265 01 0 00 035671 7585 040342 005000 000000 7586 040343 265 01 0 00 035715 7587 040344 006000 000000 7588 040345 265 01 0 00 035741 7589 040346 007000 000000 7590 040347 265 01 0 00 035765 7591 040350 010000 000000 7592 040351 265 01 0 00 036011 7593 040352 011000 000000 7594 040353 265 01 0 00 036035 7595 040354 012000 000000 7596 040355 265 01 0 00 036061 7597 040356 013000 000000 7598 040357 265 01 0 00 036105 7599 040360 014000 000000 7600 040361 265 01 0 00 036131 7601 040362 015000 000000 7602 040363 265 01 0 00 036155 7603 040364 016000 000000 7604 040365 265 01 0 00 036201 7605 040366 017000 000000 7606 040367 265 01 0 00 036225 7607 040370 020000 000000 7608 040371 265 01 0 00 036251 7609 040372 021000 000000 7610 040373 265 01 0 00 036275 7611 040374 022000 000000 7612 040375 265 01 0 00 036321 7613 040376 023000 000000 7614 040377 265 01 0 00 036345 7615 040400 024000 000000 7616 040401 265 01 0 00 036371 7617 040402 025000 000000 7618 040403 265 01 0 00 036415 7619 040404 026000 000000 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0174 7620 040405 265 01 0 00 036441 7621 040406 027000 000000 7622 040407 265 01 0 00 036465 7623 040410 030000 000000 7624 040411 265 01 0 00 036511 7625 040412 031000 000000 7626 040413 265 01 0 00 036535 7627 040414 032000 000000 7628 040415 265 01 0 00 036561 7629 040416 033000 000000 7630 040417 265 01 0 00 036605 7631 040420 034000 000000 7632 040421 265 01 0 00 036631 7633 040422 035000 000000 7634 040423 265 01 0 00 036655 7635 040424 036000 000000 7636 040425 265 01 0 00 036701 7637 040426 037000 000000 7638 040427 254 00 0 00 036726 7639 040430 254 00 0 00 036745 7640 040431 254 00 0 00 036764 7641 040432 254 00 0 00 037003 7642 040433 254 00 0 00 037022 7643 040434 254 00 0 00 037041 7644 040435 254 00 0 00 037060 7645 040436 254 00 0 00 037077 7646 040437 254 00 0 00 037116 7647 040440 254 00 0 00 037135 7648 040441 254 00 0 00 037154 7649 040442 254 00 0 00 037173 7650 040443 254 00 0 00 037212 7651 040444 254 00 0 00 037231 7652 040445 254 00 0 00 037250 7653 040446 254 00 0 00 037267 7654 040447 254 00 0 00 037306 7655 040450 254 00 0 00 037325 7656 040451 254 00 0 00 037344 7657 040452 254 00 0 00 037363 7658 040453 254 00 0 00 037402 7659 040454 254 00 0 00 037421 7660 040455 254 00 0 00 037442 7661 040456 254 00 0 00 037455 7662 040457 254 00 0 00 037470 7663 040460 265 11 0 00 037505 7664 040461 254 00 0 00 037503 7665 040462 265 11 0 00 037526 7666 040463 254 00 0 00 037524 7667 040464 265 11 0 00 037547 7668 040465 254 00 0 00 037545 7669 040466 265 11 0 00 037570 7670 040467 254 00 0 00 037566 7671 040470 265 11 0 00 037611 7672 040471 254 00 0 00 037607 7673 040472 265 11 0 00 037632 7674 040473 254 00 0 00 037630 DSKAH DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (8) VER 0,1 MACRO %53(1020) 11:18 31-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0175 7675 040474 265 11 0 00 037653 7676 040475 254 00 0 00 037651 7677 040476 265 11 0 00 037674 7678 040477 254 00 0 00 037672 7679 040500 254 00 0 00 037734 7680 040501 004000 040007 7681 040502 264 00 0 00 040125 7682 040503 264 00 0 00 040064 7683 LIST 7684 040504 000000 000000 ENDSLD: 0 7685 7686 IFDEF DEBUG,< 7687 PATCH: BLOCK DEBUG ;PATCHING AREA 7688 > 7689 7690 ;PROGRAM VARIABLES 7691 040505 VAR 7692 7693 IFDEF PGMEND,< 7694 040513 000000 000000 END: 0 7695 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 040514 CPU TIME USED 00:24.977 26P CORE USED ABORT 92# AC 6997# 7027# 7057# 7087# 7117# 7147# 7177# 7207# SEQ 0176 AC0 649# ALTMGO 404# APR 792 1084 1147 1154 1155 1161 1162 1168 1169 1198 1199 1206 1207 1213 1214 3435 3457 3479 3501 3523 3546 3568 3750 3768 3786 3804 3822 3840 3858 4884 4926 4948 4970 4992 5014 5036 5058 5077 5089 5091 5116 5156 5196 5236 5276 5316 5356 AROV 318# AROVTP 318# AROVU 318# AST 519# ATSIN 520# BEGEND 400# 781 7340 BEGIN 307 308 331# 670 733 7695 BEGIN1 347# 401 BEGIOT 772# BELL 523# BIGPI1 2148# BIGPI2 2253# BIGPI3 2358# BIGPI4 2463# BIGPI5 2568# BIGPI6 2673# BIGPI7 2778# BIGPIX 2883# BIGPIY 2988# BIGPIZ 3093# BIS 318# C2A 3881# C2B 3899 3908# C2C 3934 3943# C2D 3969 3978# C2E 4004 4013# C2F 4039 4048# C2G 4074 4083# C2H 4109 4118# C2I 4144 4153# C2J 4179 4188# C2K 4214 4223# C2L 4249 4258# C2M 4284 4293# C2N 4319 4328# C2O 4354 4363# C2P 4389 4398# C2Q 4424 4433# C2R 4459 4468# C2S 4494 4503# C2T 4529 4538# C2U 4564 4573# C2V 4599 4609# CCA 318# CHAIN 112# CHNOFF 318# 793 2179 2241 2284 2346 2389 2451 2494 2556 2599 2661 2704 2766 2809 2871 2914 2976 3019 3081 3124 3186 SEQ 0177 CHNON 318# 2158 2178 2199 2220 2240 2263 2283 2304 2325 2345 2368 2388 2409 2430 2450 2473 2493 2514 2535 2555 2578 2598 2619 2640 2660 2683 2703 2724 2745 2765 2788 2808 2829 2850 2870 2893 2913 2934 2955 2975 2998 3018 3039 3060 3080 3103 3123 3144 3165 3185 3748 3766 3784 3802 3820 3838 3856 3901 3936 3971 4006 4041 4076 4111 4146 4181 4216 4251 4286 4321 4356 4391 4426 4461 4496 4531 4566 4601 4640 4646 4674 4680 4708 4714 4742 4748 4776 4782 4810 4816 4844 4850 4883 4925 4947 4969 4991 5013 5035 5057 5076 CKCK0 4878# CKCK1 4899# CKI01 3598 3607# CKI02 3617 3626# CKI03 3636 3645# CKI04 3655 3664# CKI05 3674 3683# CKI06 3693 3702# CKI07 3712 3721# CLKU 318# CLOCKF 386# CNTLC 403# CNTRP 318# 7252 COMMA 512# CONSW 387# COUNTX 5109# 5109 5132 5149# 5149 5172 5189# 5189 5212 5229# 5229 5252 5269# 5269 5292 5309# 5309 5332 5349# 5349 5372 CPOPJ 407# CPOPJ1 405# CRLF 242 243 507# CRLF2 246 247 509# CRY0 318# CRY1 318# CSHFLG 566# CSHMEM 567# CTRP 318# 7253 CYCL60 560# DCK 318# DDT 651# DDTLNK 126# 345 DDTSRT 345# DEBUG 7686 DECVER 5# 12 27 366 DF22F 471# DIAGMN 334# DIAGNO 650# DIAMON 652# DING 98# DOLLAR 526# DSKUPD 371 EBIT0 318# EBIT1 318# EBIT10 318# EBIT11 318# EBIT12 318# SEQ 0178 EBIT13 318# EBIT14 318# EBIT15 318# EBIT2 318# EBIT3 318# EBIT4 318# EBIT5 318# EBIT6 318# EBIT7 318# EBIT8 318# EBIT9 318# EFIELD 6333# 6361# 6389# 6417# 6445# 6473# 6501# 6529# 6557# 6585# 6613# 6641# 6669# 6697# 6725# 6753# 6781# 6809# 6837# 6864# 6891# 6918# END 7694# ENDFIX 646# ENDIT 7299 7314 7339# ENDSLD 7684# ERMORE 420# EROLD 36# 318 ERRPC 391# ERRTLS 392# ERSTOP 101# EXCASB 34# 369 EXIOT 318# 7303 7328 FOV 318# FOVU 318# FRDLNK 124# FSELNK 123# FXU 318# HALTPI 789 789# 7359# 7371 HLTCK 7362 7429# HYPEN 517# INHCSH 109# INHPAG 106# IOCLR 318# 5077 IOT0 779 1082# IOT14 1111# IOT15 1122# IOT15A 1130# IOT16 1138# IOT17 1146# IOT18 1153# IOT18A 1176# IOT19 1183# IOT2 1087# IOT20 1191# IOT22 1198# IOT24 1231# IOT25 1249# IOT26 1267# IOT3 1094# IOT33B 1276# IOT34 1285# SEQ 0179 IOT35 1292# IOT36 1300# IOT38 1314# IOT39 1321# IOT40 1329# IOT41 1336# IOT42 1343# IOT43 1350# IOT44 1358# IOT45 1365# IOT46 1373# IOT47 1380# IOT48 1388# IOT49 1395# IOT50 1403# IOT51 1410# IOT6 1105# IOTXX 1081# IOTXXX 1079# IOTXYZ 1418# ITERAT 81# 364 ITRCH1 424# ITRCNT 364# 714 720 724 730 JENDIS 4625# JOB41 318# JOBAPR 318# JOBCNI 318# JOBDDT 318# JOBFF 318# JOBOPC 318# JOBREL 318# JOBREN 318# JOBSA 318# JOBSYM 318# JOBTPC 318# JOBUSY 318# JOBUUO 318# JOBVER 318# KAIFLG 381# KLFLG 382# KNTRP 318# 7248 KTRP 318# 7249 LACLK 318# LACLKE 318# LAPRAL 318# LAPRP1 318# 3435 LAPRP2 318# 3457 LAPRP3 318# 3479 LAPRP4 318# 3501 LAPRP5 318# 3523 LAPRP6 318# 3546 LAPRP7 318# 3568 LCHNOF 318# SEQ 0180 LCHNON 318# LCNTXT 318# LCNXER 318# 792 1214 LCPAER 318# 792 1207 LCPSFT 318# LCPWRF 318# 792 1199 LDATAF 318# LDLNK 125# 334 336 LDNXER 318# 792 4926 4948 4970 4992 5014 5036 5058 LDPAER 318# 792 4926 4948 4970 4992 5014 5036 5058 LDPSFT 318# LDPWRF 318# 792 4926 4948 4970 4992 5014 5036 5058 LEBXMH 318# LEBXML 318# LENXER 318# 3435 4884 LEPAER 318# 3479 4884 LEPSFT 318# 3457 3523 3750 3768 3786 3804 3822 3840 3858 4884 5116 5156 5196 5236 5276 5316 5356 LEPWRF 318# 3546 3568 4884 LEUPFW 318# LEXCMP 318# LFLGCL 318# LFLGDS 318# LFLGEN 318# LFLGST 318# LFP 521# LINSTF 318# LINT 318# LIOCLR 318# 792 LLACBL 318# LLDUSB 318# LMBXMH 318# LMBXML 318# LNXMEN 318# LNXMER 318# 1163 1216 LOOPER 100# LPAREN 318# LPARER 318# 1156 1209 LPFWPC 318# LPGFTR 318# LPICH1 318# LPICH2 318# LPICH3 318# LPICH4 318# LPICH5 318# LPICH6 318# LPICH7 318# LPICHA 318# LPICLR 318# LPIIP1 318# LPIIP2 318# LPIIP3 318# LPIIP4 318# SEQ 0181 LPIIP5 318# LPIIP6 318# LPIIP7 318# LPIOFF 318# LPION 318# LPRCH1 318# LPRCH2 318# LPRCH3 318# LPRCH4 318# LPRCH5 318# LPRCH6 318# LPRCH7 318# LPRFMH 318# LPRFML 318# LPSFT 318# LPSFTE 318# 1170 LPWRFE 318# LPWRFL 318# 1149 1201 LREQSE 318# LRQCLR 318# 793 4646 4680 4714 4748 4782 4816 4850 LSECMO 318# LSMODE 318# LSNXER 318# 1161 1213 3435 4884 4926 4948 4970 4992 5014 5036 5058 LSPAER 318# 1154 1206 3479 4884 4926 4948 4970 4992 5014 5036 5058 LSPSFT 318# 1168 3457 3501 3523 3750 3768 3786 3804 3822 3840 3858 4884 4926 4948 4970 4992 5014 5036 5058 5116 5156 5196 5236 5276 5316 5356 LSPWRF 318# 1147 1198 3546 3568 4884 4926 4948 4970 4992 5014 5036 5058 LTBASH 318# LTBASL 318# LTRPAE 318# LTRPEN 318# LUSCMP 318# LUUO 318# LUUO1 451 452 LUUO10 451 456 LUUO11 451 456 LUUO12 451 457 LUUO13 451 457 LUUO14 451 458 LUUO15 451 458 LUUO16 451 459 LUUO17 451 459 LUUO2 451 453 LUUO20 451 460 LUUO21 451 460 LUUO22 451 461 LUUO23 451 461 LUUO24 451 462 LUUO25 451 462 LUUO26 451 463 LUUO27 451 463 LUUO3 451 453 LUUO30 451 464 SEQ 0182 LUUO31 451 464 LUUO32 451 465 LUUO33 451 465 LUUO4 451 454 LUUO5 451 454 LUUO6 451 455 LUUO7 451 455 LUUOI 318# LWRITE 318# MACHTP 7468# 7485 7486 7487 7488 7489 7490 7491 7492 MAPNEW 472# MARGIN 394# MCNVER 4# 12 27 366 MEMLOW 474# MEMMAP 372 MEMSIZ 475# MEMTOT 473# MINUS 516# MLUUO 5388# 5418# 5448# 5478# 5508# 5538# 5568# 5598# 5628# 5658# 5688# 5718# 5748# 5778# 5808# 5838# 5868# 5898# 5928# 5958# 5988# 6018# 6048# 6078# 6108# 6138# 6168# 6198# 6228# 6258# 6288# MODDVC 108# MODDVL 307 307# 367 MODDVU 308 308# 368 MODLNK 127# 331 MONCTL 384# 745 MONFLG 383# 708 741 776 3443 3465 3487 3509 3531 3554 3576 3609 3628 3647 3666 3685 3704 3723 3758 3776 3794 3812 3830 3848 3866 3891 3926 3961 3996 4031 4066 4101 4136 4171 4206 4241 4276 4311 4346 4381 4416 4451 4486 4521 4556 4591 7298 7313 7422 MONTEN 385# 713 726 732 MONTYP 598# MPVU 318# MUHLT 7258 7264# MULT0 3854 3864# MULT1 3836 3846# MULT2 3818 3828# MULT3 3800 3810# MULT4 3782 3792# MULT5 3764 3774# MULT6 3746 3756# MULTI 3741# MUUO 318# 7256 7257 7272 7276 MUUOPC 318# NOPNT 96# NXMU 318# OPRSEL 110# OPTIME 486# P 153 154 155 156 318# 406 PAG 318# PALERS 102# PAREA0 74# PAREA1 75# 362 SEQ 0183 PAREA2 76# 363 PAREA3 77# 360 PAREA4 78# 361 PAREA5 79# 373 PAREA6 80# 374 PAREA7 373# PAREA8 374# PARU 318# PASCNT 388# 719 PDISF 483# PDLOVU 318# PDOVTP 318# PERIOD 513# PFSTRT 340# PGMEND 35# 7693 PGMNAM 365 746 749# PI 793 1111 1277 1285 1286 1292 1293 1294 1314 1315 1321 1322 1323 1329 1330 1336 1337 1338 1343 1344 1350 1351 1352 1358 1359 1365 1366 1367 1373 1374 1380 1381 1382 1388 1389 1395 1396 1397 1403 1404 1410 1411 1412 1441 1445 1467 1471 1493 1497 1519 1523 1545 1549 1571 1575 1597 1601 1642 1646 1672 1676 1702 1706 1732 1736 1762 1766 1792 1796 1822 1826 1876 1878 1916 1918 1956 1958 1996 1998 2036 2038 2076 2078 2116 2118 2158 2159 2178 2179 2180 2199 2200 2201 2220 2221 2240 2241 2242 2263 2264 2283 2284 2285 2304 2305 2306 2325 2326 2345 2346 2347 2368 2369 2388 2389 2390 2409 2410 2411 2430 2431 2450 2451 2452 2473 2474 2493 2494 2495 2514 2515 2516 2535 2536 2555 2556 2557 2578 2579 2598 2599 2600 2619 2620 2621 2640 2641 2660 2661 2662 2683 2684 2703 2704 2705 2724 2725 2726 2745 2746 2765 2766 2767 2788 2789 2808 2809 2810 2829 2830 2831 2850 2851 2870 2871 2872 2893 2894 2913 2914 2915 2934 2935 2936 2955 2956 2975 2976 2977 2998 2999 3018 3019 3020 3039 3040 3041 3060 3061 3080 3081 3082 3103 3104 3123 3124 3125 3144 3145 3146 3165 3166 3185 3186 3187 3227 3231 3232 3256 3260 3261 3285 3289 3290 3314 3318 3319 3343 3347 3348 3372 3376 3377 3401 3405 3406 3434 3456 3478 3500 3522 3545 3567 3600 3619 3638 3657 3676 3695 3714 3748 3766 3784 3802 3820 3838 3856 3901 3902 3936 3937 3971 3972 4006 4007 4041 4042 4076 4077 4111 4112 4146 4147 4181 4182 4216 4217 4251 4252 4286 4287 4321 4322 4356 4357 4391 4392 4426 4427 4461 4462 4496 4497 4531 4532 4566 4567 4601 4602 4640 4646 4648 4674 4680 4682 4708 4714 4716 4742 4748 4750 4776 4782 4784 4810 4816 4818 4844 4850 4852 4883 4925 4947 4969 4991 5013 5035 5057 5076 5078 5090 5115 5155 5195 5235 5275 5315 5355 PICHN1 318# PICHN2 318# PICHN3 318# PICHN4 318# PICHN5 318# PICHN6 318# PICHN7 318# PICHNA 318# PICLR 318# 793 1878 1918 1958 1998 2038 2078 2118 2200 2305 2410 2515 2620 2725 2830 2935 3040 3145 3231 3260 3289 3318 3347 3376 3405 5090 PIOFF 318# 793 PION 318# 1441 1467 1493 1519 1545 1571 1597 3227 3256 3285 3314 3343 3372 SEQ 0184 3401 3748 3766 3784 3802 3820 3838 3856 3901 3936 3971 4006 4041 4076 4111 4146 4181 4216 4251 4286 4321 4356 4391 4426 4461 4496 4531 4566 4601 4640 4646 4674 4680 4708 4714 4742 4748 4776 4782 4810 4816 4844 4850 4883 4925 4947 4969 4991 5013 5035 5057 5076 5079 PIOT00 1427# PIOT01 1623# PIOT02 1849# PIOT03 3211# PLIST 552# 552 PLISTE 552 554# PLISTS 553# PLUS 518# PNTENB 482# PNTEXT 361# PNTFLG 481# PNTINH 484# PNTLPT 97# PNTNAM 360# PNTRP 318# 7254 PNTSPC 485# PTRP 318# 7255 PVPAGI 579# QUEST 524# RADIX 527# RADLSC 529# RADLSP 528# RANDBS 362# REENTR 342# RELIAB 104# REPT 318# REPT1 318# REPTU 440# REQSET 318# 1642 1672 1702 1732 1762 1792 1822 1876 1916 1956 1996 2036 2076 2116 3227 3256 3285 3314 3343 3372 3401 3902 3937 3972 4007 4042 4077 4112 4147 4182 4217 4252 4287 4322 4357 4392 4427 4462 4497 4532 4567 4602 4640 4674 4708 4742 4776 4810 4844 RESET1 5073# RESET2 5086# RESRT1 417# RESRT2 418# RETURN 349# 728 734 RSTART 93# RTP 522# RUNFLG 389# SADR1 62# 338 SADR10 71# 354 SADR11 72# 355 SADR2 63# 340 SADR3 64# 342 SADR4 65# SADR5 66# 403 SADR6 67# 404 SADR7 68# 351 SEQ 0185 SADR8 69# 352 SADR9 70# 353 SBINIT 166 348# SCOPE 441# SFSTRT 338# SLASH 525# SM10 629# SNTRP 318# 7250 SPACE 514# SRTDDT 344# START 332 711 715 737# START1 351# START2 352# START3 353# START4 354# START5 355# STARTA 62 63 64 65 66 67 68 69 70 71 72 347 725 731 744 747 769# STRP 318# 7251 SUBLNK 128# 348 SWPTAB 635# SWTEXR 363# SYSEXR 336# TAB 515# TABLE 7477# 7498 TESTPC 390# TICKS 393# TN0 318# TN1 318# TNUMB 1104# 1104 1222 1230# 1230 1240 1248# 1248 1258 1266# 1266 1437# 1437 1450 1463# 1463 1476 1489# 1489 1502 1515# 1515 1528 1541# 1541 1554 1567# 1567 1580 1593# 1593 1606 1638# 1638 1651 1668# 1668 1681 1698# 1698 1711 1728# 1728 1741 1758# 1758 1771 1788# 1788 1801 1818# 1818 1831 1872# 1872 1887 1912# 1912 1927 1952# 1952 1967 1992# 1992 2007 2032# 2032 2047 2072# 2072 2087 2112# 2112 2127 2154# 2154 2165 2173# 2173 2186 2194# 2194 2207 2215# 2215 2227 2235# 2235 2247 2259# 2259 2270 2278# 2278 2291 2299# 2299 2312 2320# 2320 2332 2340# 2340 2352 2364# 2364 2375 2383# 2383 2396 2404# 2404 2417 2425# 2425 2437 2445# 2445 2457 2469# 2469 2480 2488# 2488 2501 2509# 2509 2522 2530# 2530 2542 2550# 2550 2562 2574# 2574 2585 2593# 2593 2606 2614# 2614 2627 2635# 2635 2647 2655# 2655 2667 2679# 2679 2690 2698# 2698 2711 2719# 2719 2732 2740# 2740 2752 2760# 2760 2772 2784# 2784 2795 2803# 2803 2816 2824# 2824 2837 2845# 2845 2857 2865# 2865 2877 2889# 2889 2900 2908# 2908 2921 2929# 2929 2942 2950# 2950 2962 2970# 2970 2982 2994# 2994 3005 3013# 3013 3026 3034# 3034 3047 3055# 3055 3067 3075# 3075 3087 3099# 3099 3110 3118# 3118 3131 3139# 3139 3152 3160# 3160 3172 3180# 3180 3192 3223# 3223 3237 3252# 3252 3266 3281# 3281 3295 3310# 3310 3324 3339# 3339 3353 3368# 3368 3382 3397# 3397 3411 3884# 3884 3911 3919# 3919 3946 3954# 3954 3981 3989# 3989 4016 4024# 4024 4051 4059# 4059 4086 4094# 4094 4121 4129# 4129 4156 4164# 4164 4191 4199# 4199 4226 4234# 4234 4261 4269# 4269 4296 4304# 4304 4331 4339# 4339 4366 4374# 4374 4401 4409# 4409 4436 4444# 4444 4471 4479# 4479 4506 4514# 4514 4541 4549# 4549 4576 4584# 4584 4611 4637# 4637 4653 4671# 4671 4687 4705# 4705 4721 4739# 4739 4755 4773# 4773 4789 4807# 4807 4823 4841# 4841 4857 5107# 5107 5121 5147# 5147 5161 5187# SEQ 0186 5187 5201 5227# 5227 5241 5267# 5267 5281 5307# 5307 5321 5347# 5347 5361 5392# 5392 5409 5422# 5422 5439 5452# 5452 5469 5482# 5482 5499 5512# 5512 5529 5542# 5542 5559 5572# 5572 5589 5602# 5602 5619 5632# 5632 5649 5662# 5662 5679 5692# 5692 5709 5722# 5722 5739 5752# 5752 5769 5782# 5782 5799 5812# 5812 5829 5842# 5842 5859 5872# 5872 5889 5902# 5902 5919 5932# 5932 5949 5962# 5962 5979 5992# 5992 6009 6022# 6022 6039 6052# 6052 6069 6082# 6082 6099 6112# 6112 6129 6142# 6142 6159 6172# 6172 6189 6202# 6202 6219 6232# 6232 6249 6262# 6262 6279 6292# 6292 6309 6337# 6337 6349 6365# 6365 6377 6393# 6393 6405 6421# 6421 6433 6449# 6449 6461 6477# 6477 6489 6505# 6505 6517 6533# 6533 6545 6561# 6561 6573 6589# 6589 6601 6617# 6617 6629 6645# 6645 6657 6673# 6673 6685 6701# 6701 6713 6729# 6729 6741 6757# 6757 6769 6785# 6785 6797 6813# 6813 6825 6841# 6841 6853 6868# 6868 6880 6895# 6895 6907 6922# 6922 6934 7002# 7002 7016 7032# 7032 7046 7062# 7062 7076 7092# 7092 7106 7122# 7122 7136 7152# 7152 7166 7182# 7182 7196 7212# 7212 7226 7239# 7239 7267 7283 7294# 7294 7308 7320# 7320 7333 7339 TOTALS 94# TPEND 7395 7399 7403 7407 7411 7415 7419 7420 7422# TRAPPI 788 7375# 7387 TRP0A 3432 3441# TRP1A 3454 3463# TRP2A 3476 3485# TRP3A 3498 3507# TRP3TP 318# TRP4A 3520 3529# TRP5A 3543 3552# TRP6A 3565 3574# TRPCLR 790 7347# 7355 TRPFIL 7378 7392# TRPSET 1085 7494# 7509 TTNBRF 573# TTYFIL 489# TTYSPD 490# TXTINH 105# UBAVEC 318# USER 380# 704 707 709 710 721 737# 737 740 742 743 772 775 777 778 USERF 40# 318# 706 739 774 3446 3468 3490 3512 3534 3557 3579 3587 3612 3631 3650 3669 3688 3707 3726 3761 3779 3797 3815 3833 3851 3869 3894 3929 3964 3999 4034 4069 4104 4139 4174 4209 4244 4279 4314 4349 4384 4419 4454 4489 4524 4559 4594 7241 USRASB 370 USRCRF 499# USRIO0 7242 7291# USRIO1 7317# USRLFF 498# UUO 3430 7467# UUO01 5384# UUO02 5404 5414# UUO03 5434 5444# UUO04 5464 5474# UUO05 5494 5504# UUO06 5524 5534# UUO07 5554 5564# SEQ 0187 UUO10 5584 5594# UUO11 5614 5624# UUO12 5644 5654# UUO13 5674 5684# UUO14 5704 5714# UUO15 5734 5744# UUO16 5764 5774# UUO17 5794 5804# UUO20 5824 5834# UUO21 5854 5864# UUO22 5884 5894# UUO23 5914 5924# UUO24 5944 5954# UUO25 5974 5984# UUO26 6004 6014# UUO27 6034 6044# UUO30 6064 6074# UUO31 6094 6104# UUO32 6124 6134# UUO33 6154 6164# UUO34 6184 6194# UUO35 6214 6224# UUO36 6244 6254# UUO37 6274 6284# UUOBTH 6977# UUODIS 452# UUOEXT 408# UUOIND 6945# UUOINX 6961# UUOPC 6304 6322# UUOPCA 6323# UUORTN 409# UUOSKP 406# X 1419# 1445 1455 1455# 1471 1481 1481# 1497 1507 1507# 1523 1533 1533# 1549 1559 1559# 1575 1585 1585# 1601 1611 1611# 1621# 1646 1656 1656# 1676 1686 1686# 1706 1716 1716# 1736 1746 1746# 1766 1776 1776# 1796 1806 1806# 1826 1836 1836# 1848# 1876 1878 1892 1892# 1916 1918 1932 1932# 1956 1958 1972 1972# 1996 1998 2012 2012# 2036 2038 2052 2052# 2076 2078 2092 2092# 2116 2118 2132 2132# 3209# 3232 3242 3242# 3261 3271 3271# 3290 3300 3300# 3319 3329 3329# 3348 3358 3358# 3377 3387 3387# 3406 3416 3416# 4623# 4639 4661 4661# 4673 4695 4695# 4707 4729 4729# 4741 4763 4763# 4775 4797 4797# 4809 4831 4831# 4843 4865 4865# 4898# 4926 4935 4935# 4948 4957 4957# 4970 4979 4979# 4992 5001 5001# 5014 5023 5023# 5036 5045 5045# 5058 5067 5067# 6321# 6333 6340 6344 6354 6354# 6361 6368 6372 6382 6382# 6389 6396 6400 6410 6410# 6417 6424 6428 6438 6438# 6445 6452 6456 6466 6466# 6473 6480 6484 6494 6494# 6501 6508 6512 6522 6522# 6529 6536 6540 6550 6550# 6557 6564 6568 6578 6578# 6585 6592 6596 6606 6606# 6613 6620 6624 6634 6634# 6641 6648 6652 6662 6662# 6669 6676 6680 6690 6690# 6697 6704 6708 6718 6718# 6725 6732 6736 6746 6746# 6753 6760 6764 6774 6774# 6781 6788 6792 6802 6802# 6809 6816 6820 6830 6830# 6832# 6837 6844 6848 6859# 6864 6871 6875 6886# 6891 6898 6902 6913# 6918 6925 6929 6939# XAC0 7360# 7360 7369 7376# 7376 7385 7495# 7495 7506 XAC1 7361# 7361 7370 7377# 7377 7386 7496# 7496 7507 SEQ 0188 XAC15 7348# 7348 7354 XAC16 7497# 7497 7508 XMUPC 7247 7266# XMUUO 7247# XMUUO0 7261# 7277 Y 1622# 1642 1657 1657# 1672 1687 1687# 1702 1717 1717# 1732 1747 1747# 1762 1777 1777# 1792 1807 1807# 1822 1837 1837# 3210# 3227 3243 3243# 3256 3272 3272# 3285 3301 3301# 3314 3330 3330# 3343 3359 3359# 3372 3388 3388# 3401 3417 3417# Z1 4624# 4640 4646 4662 4662# 4674 4680 4696 4696# 4708 4714 4730 4730# 4742 4748 4764 4764# 4776 4782 4798 4798# 4810 4816 4832 4832# 4844 4850 4866 4866# $$420 678# $$421 679# $$422 680# $$423 681# $$424 682# $$425 683# $$426 684# $$427 685# $$430 686# $$431 687# $$432 688# $$433 689# $$434 690# $$435 691# $$436 692# $$437 693# $$500 696# $$501 697# $$502 698# $$503 699# $$BEGI 666# $$LOC 663# 700 $$MUUO 604# $$OUTE 610# $$STAR 666 667 704# $$TAX1 622# $$TAX2 623# $$TOGG 616# $$UUO 593# $ACC0 431# $BEGEN 673# $BEND1 401# $BEND2 402# $CHRIN 492# $CRLF 494# $DDT 657# $DEVCH 318# $DSKUP 371# $DVOFF 488# $EMODE 369# $FFF 496# SEQ 0189 $IBUF 544# $INEXT 546# $INNM 545# $ITRHL 412# $ITRX1 413# $LPAPE 7515 $MMAP 372# $MODVL 367# $MODVU 368# $OBUF 535# $ONETM 395# $OUTEX 537# $OUTNM 536# $PAPER 318 $PARER 419# $PNAME 365# $PSHER 423# $PVER 366# $RSRTX 415# $RSRTY 416# $SPAG1 435# $SPB1 721# $SPBEN 673 719# $SPBEX 722 730# $SPBUS 724# $START 332# $STD 656# 670# $STKIL 713# $STL 658# $STM 659# $SVAPR 433# $SVPAG 434# $SVPI 432# $SVUPC 438# $SVUUO 437# $TABF 495# $TTCHR 491# $TWCNT 487# $TYPNB 493# $UMODE 370# $UORTX 410# $USRHL 414# $UUOER 411# 452 $VTF 497# %ACTFL 444# %ACTUL 445# %COREC 443# %CORFL 442# %DISCR 446# %ERHI1 585# %ERHI2 586# %ERHI3 587# %X 1102# 1103 1223 1228# 1229 1241 1246# 1247 1259 1264# 1265 1435# 1436 1451 SEQ 0190 1461# 1462 1477 1487# 1488 1503 1513# 1514 1529 1539# 1540 1555 1565# 1566 1581 1591# 1592 1607 1636# 1637 1652 1666# 1667 1682 1696# 1697 1712 1726# 1727 1742 1756# 1757 1772 1786# 1787 1802 1816# 1817 1832 1870# 1871 1888 1910# 1911 1928 1950# 1951 1968 1990# 1991 2008 2030# 2031 2048 2070# 2071 2088 2110# 2111 2128 2152# 2153 2166 2171# 2172 2187 2192# 2193 2208 2213# 2214 2228 2233# 2234 2248 2257# 2258 2271 2276# 2277 2292 2297# 2298 2313 2318# 2319 2333 2338# 2339 2353 2362# 2363 2376 2381# 2382 2397 2402# 2403 2418 2423# 2424 2438 2443# 2444 2458 2467# 2468 2481 2486# 2487 2502 2507# 2508 2523 2528# 2529 2543 2548# 2549 2563 2572# 2573 2586 2591# 2592 2607 2612# 2613 2628 2633# 2634 2648 2653# 2654 2668 2677# 2678 2691 2696# 2697 2712 2717# 2718 2733 2738# 2739 2753 2758# 2759 2773 2782# 2783 2796 2801# 2802 2817 2822# 2823 2838 2843# 2844 2858 2863# 2864 2878 2887# 2888 2901 2906# 2907 2922 2927# 2928 2943 2948# 2949 2963 2968# 2969 2983 2992# 2993 3006 3011# 3012 3027 3032# 3033 3048 3053# 3054 3068 3073# 3074 3088 3097# 3098 3111 3116# 3117 3132 3137# 3138 3153 3158# 3159 3173 3178# 3179 3193 3221# 3222 3238 3250# 3251 3267 3279# 3280 3296 3308# 3309 3325 3337# 3338 3354 3366# 3367 3383 3395# 3396 3412 3882# 3883 3912 3917# 3918 3947 3952# 3953 3982 3987# 3988 4017 4022# 4023 4052 4057# 4058 4087 4092# 4093 4122 4127# 4128 4157 4162# 4163 4192 4197# 4198 4227 4232# 4233 4262 4267# 4268 4297 4302# 4303 4332 4337# 4338 4367 4372# 4373 4402 4407# 4408 4437 4442# 4443 4472 4477# 4478 4507 4512# 4513 4542 4547# 4548 4577 4582# 4583 4612 4635# 4636 4654 4669# 4670 4688 4703# 4704 4722 4737# 4738 4756 4771# 4772 4790 4805# 4806 4824 4839# 4840 4858 5105# 5106 5122 5145# 5146 5162 5185# 5186 5202 5225# 5226 5242 5265# 5266 5282 5305# 5306 5322 5345# 5346 5362 5390# 5391 5410 5420# 5421 5440 5450# 5451 5470 5480# 5481 5500 5510# 5511 5530 5540# 5541 5560 5570# 5571 5590 5600# 5601 5620 5630# 5631 5650 5660# 5661 5680 5690# 5691 5710 5720# 5721 5740 5750# 5751 5770 5780# 5781 5800 5810# 5811 5830 5840# 5841 5860 5870# 5871 5890 5900# 5901 5920 5930# 5931 5950 5960# 5961 5980 5990# 5991 6010 6020# 6021 6040 6050# 6051 6070 6080# 6081 6100 6110# 6111 6130 6140# 6141 6160 6170# 6171 6190 6200# 6201 6220 6230# 6231 6250 6260# 6261 6280 6290# 6291 6310 6335# 6336 6350 6363# 6364 6378 6391# 6392 6406 6419# 6420 6434 6447# 6448 6462 6475# 6476 6490 6503# 6504 6518 6531# 6532 6546 6559# 6560 6574 6587# 6588 6602 6615# 6616 6630 6643# 6644 6658 6671# 6672 6686 6699# 6700 6714 6727# 6728 6742 6755# 6756 6770 6783# 6784 6798 6811# 6812 6826 6839# 6840 6854 6866# 6867 6881 6893# 6894 6908 6920# 6921 6935 7000# 7001 7017 7030# 7031 7047 7060# 7061 7077 7090# 7091 7107 7120# 7121 7137 7150# 7151 7167 7180# 7181 7197 7210# 7211 7227 7237# 7238 7268 7284 7292# 7293 7309 7318# 7319 7334 ..0001 1438# ..0002 1464# ..0003 1490# ..0004 1516# ..0005 1542# ..0006 1568# ..0007 1594# ..0010 1639# ..0011 1669# ..0012 1699# ..0013 1729# ..0014 1759# ..0015 1789# ..0016 1819# ..0017 1873# SEQ 0191 ..0020 1913# ..0021 1953# ..0022 1993# ..0023 2033# ..0024 2073# ..0025 2113# ..0026 2155# ..0027 2260# ..0030 2365# ..0031 2470# ..0032 2575# ..0033 2680# ..0034 2785# ..0035 2890# ..0036 2995# ..0037 3100# ..0040 3224# ..0041 3253# ..0042 3282# ..0043 3311# ..0044 3340# ..0045 3369# ..0046 3398# ..0047 3443# ..0050 3465# ..0051 3487# ..0052 3509# ..0053 3531# ..0054 3554# ..0055 3576# ..0056 3609# ..0057 3628# ..0060 3647# ..0061 3666# ..0062 3685# ..0063 3704# ..0064 3723# ..0065 3750# ..0066 3758# ..0067 3768# ..0070 3776# ..0071 3786# ..0072 3794# ..0073 3804# ..0074 3812# ..0075 3822# ..0076 3830# ..0077 3840# ..0100 3848# ..0101 3858# ..0102 3866# ..0103 3891# ..0104 3926# SEQ 0192 ..0105 3961# ..0106 3996# ..0107 4031# ..0110 4066# ..0111 4101# ..0112 4136# ..0113 4171# ..0114 4206# ..0115 4241# ..0116 4276# ..0117 4311# ..0120 4346# ..0121 4381# ..0122 4416# ..0123 4451# ..0124 4486# ..0125 4521# ..0126 4556# ..0127 4591# ..0130 4638# ..0131 4672# ..0132 4706# ..0133 4740# ..0134 4774# ..0135 4808# ..0136 4842# ..0137 5110 5119# 5126 5128 ..0140 5150 5159# 5166 5168 ..0141 5190 5199# 5206 5208 ..0142 5230 5239# 5246 5248 ..0143 5270 5279# 5286 5288 ..0144 5310 5319# 5326 5328 ..0145 5350 5359# 5366 5368 ..0146 5393# ..0147 5423# ..0150 5453# ..0151 5483# ..0152 5513# ..0153 5543# ..0154 5573# ..0155 5603# ..0156 5633# ..0157 5663# ..0160 5693# ..0161 5723# ..0162 5753# ..0163 5783# ..0164 5813# ..0165 5843# ..0166 5873# ..0167 5903# ..0170 5933# ..0171 5963# SEQ 0193 ..0172 5993# ..0173 6023# ..0174 6053# ..0175 6083# ..0176 6113# ..0177 6143# ..0200 6173# ..0201 6203# ..0202 6233# ..0203 6263# ..0204 6293# ..0205 6338# ..0206 6341# ..0207 6345# ..0210 6366# ..0211 6369# ..0212 6373# ..0213 6394# ..0214 6397# ..0215 6401# ..0216 6422# ..0217 6425# ..0220 6429# ..0221 6450# ..0222 6453# ..0223 6457# ..0224 6478# ..0225 6481# ..0226 6485# ..0227 6506# ..0230 6509# ..0231 6513# ..0232 6534# ..0233 6537# ..0234 6541# ..0235 6562# ..0236 6565# ..0237 6569# ..0240 6590# ..0241 6593# ..0242 6597# ..0243 6618# ..0244 6621# ..0245 6625# ..0246 6646# ..0247 6649# ..0250 6653# ..0251 6674# ..0252 6677# ..0253 6681# ..0254 6702# ..0255 6705# ..0256 6709# SEQ 0194 ..0257 6730# ..0260 6733# ..0261 6737# ..0262 6758# ..0263 6761# ..0264 6765# ..0265 6786# ..0266 6789# ..0267 6793# ..0270 6814# ..0271 6817# ..0272 6821# ..0273 6842# ..0274 6845# ..0275 6849# ..0276 6869# ..0277 6872# ..0300 6876# ..0301 6896# ..0302 6899# ..0303 6903# ..0304 6923# ..0305 6926# ..0306 6930# ..0307 7004 7010# ..0310 7006 7008# ..0311 7034 7040# ..0312 7036 7038# ..0313 7064 7070# ..0314 7066 7068# ..0315 7094 7100# ..0316 7096 7098# ..0317 7124 7130# ..0320 7126 7128# ..0321 7154 7160# ..0322 7156 7158# ..0323 7184 7190# ..0324 7186 7188# ..0325 7214 7220# ..0326 7216 7218# .JB41 318# .JBAPR 318# .JBCNI 318# .JBDDT 318# .JBFF 318# .JBOPC 318# .JBREL 318# .JBREN 318# .JBSA 318# .JBSYM 318# .JBTPC 318# .JBUSY 318# .JBUUO 318# SEQ 0195 .JBVER 318# APRID 318# BCIO 318# SEQ 0196 BCIOB 318# BLURB 797# 1304 1420 1613 1840 2135 3199 4872 BLURB1 803# 1859 1899 1939 1979 2019 2059 2099 BSIO 318# BSIOB 318# CFLUSH 278# CINVAL 277# CLOKOP 272# CLRAPR 792# 1082 1146 1153 1160 1167 1174 1439 1465 1491 1517 1543 1569 1595 1640 1670 1700 1730 1760 1790 1820 1874 1914 1954 1994 2034 2074 2114 2156 2175 2196 2217 2237 2261 2280 2301 2322 2342 2366 2385 2406 2427 2447 2471 2490 2511 2532 2552 2576 2595 2616 2637 2657 2681 2700 2721 2742 2762 2786 2805 2826 2847 2867 2891 2910 2931 2952 2972 2996 3015 3036 3057 3077 3101 3120 3141 3162 3182 3225 3254 3283 3312 3341 3370 3399 3429 3448 3470 3492 3514 3536 3559 3591 3596 3615 3634 3653 3672 3691 3710 3730 3742 3872 3896 3931 3966 4001 4036 4071 4106 4141 4176 4211 4246 4281 4316 4351 4386 4421 4456 4491 4526 4561 4596 4617 4659 4693 4727 4761 4795 4829 4863 4879 4921 4943 4965 4987 5009 5031 5053 5074 5087 5113 5135 5153 5175 5193 5215 5233 5255 5273 5295 5313 5335 5353 5375 6946 6962 6978 7245 7296 7322 CLRBT1 993# 3741 5112 5152 5192 5232 5272 5312 5352 CLRBTH 989# 1438 1464 1490 1516 1542 1568 1594 1639 1669 1699 1729 1759 1789 1819 1873 1913 1953 1993 2033 2073 2113 2155 2174 2195 2216 2236 2260 2279 2300 2321 2341 2365 2384 2405 2426 2446 2470 2489 2510 2531 2551 2575 2594 2615 2636 2656 2680 2699 2720 2741 2761 2785 2804 2825 2846 2866 2890 2909 2930 2951 2971 2995 3014 3035 3056 3076 3100 3119 3140 3161 3181 3224 3253 3282 3311 3340 3369 3398 3590 3871 3895 3930 3965 4000 4035 4070 4105 4140 4175 4210 4245 4280 4315 4350 4385 4420 4455 4490 4525 4560 4595 4616 4658 4692 4726 4760 4794 4828 4862 4878 4920 4942 4964 4986 5008 5030 5052 5073 5086 5134 5174 5214 5254 5294 5334 5374 6945 6961 6977 7244 7295 7321 CLRPI 793# 1083 1440 1466 1492 1518 1544 1570 1596 1641 1671 1701 1731 1761 1791 1821 1875 1915 1955 1995 2035 2075 2115 2157 2176 2197 2218 2238 2262 2281 2302 2323 2343 2367 2386 2407 2428 2448 2472 2491 2512 2533 2553 2577 2596 2617 2638 2658 2682 2701 2722 2743 2763 2787 2806 2827 2848 2868 2892 2911 2932 2953 2973 2997 3016 3037 3058 3078 3102 3121 3142 3163 3183 3226 3255 3284 3313 3342 3371 3400 3428 3447 3469 3491 3513 3535 3558 3592 3595 3614 3633 3652 3671 3690 3709 3729 3743 3873 3897 3932 3967 4002 4037 4072 4107 4142 4177 4212 4247 4282 4317 4352 4387 4422 4457 4492 4527 4562 4597 4618 4660 4694 4728 4762 4796 4830 4864 4880 4922 4944 4966 4988 5010 5032 5054 5075 5088 5114 5136 5154 5176 5194 5216 5234 5256 5274 5296 5314 5336 5354 5376 6947 6963 6979 7246 7297 7323 CLRPT 318# CLRTRP 790# 3728 CWRTBI 279# DROPDV 239# ENDUUO 285# 400 EOPUUO 286# 402 ERRHLT 173# EXECUT 938# EXIT 727 FATAL 172# SEQ 0197 FMUUO 1028# 6992 7022 7052 7082 7112 7142 7172 7202 FRD36 314# FRD8 315# FREAD 313# FSELEC 312# GET 156# GO 153# HALT 158# 421 678 680 681 685 699 733 1091 1098 1108 1116 1127 1135 1143 1151 1158 1165 1172 1181 1188 1196 1203 1211 1218 1225 1235 1243 1253 1261 1272 1281 1289 1297 1318 1326 1333 1341 1347 1355 1362 1370 1377 1385 1392 1400 1407 1415 1447 1453 1473 1479 1499 1505 1525 1531 1551 1557 1577 1583 1603 1609 1648 1654 1678 1684 1708 1714 1738 1744 1768 1774 1798 1804 1828 1834 1884 1890 1924 1930 1964 1970 2004 2010 2044 2050 2084 2090 2124 2130 2161 2168 2182 2189 2203 2210 2223 2230 2244 2250 2266 2273 2287 2294 2308 2315 2328 2335 2349 2355 2371 2378 2392 2399 2413 2420 2433 2440 2454 2460 2476 2483 2497 2504 2518 2525 2538 2545 2559 2565 2581 2588 2602 2609 2623 2630 2643 2650 2664 2670 2686 2693 2707 2714 2728 2735 2748 2755 2769 2775 2791 2798 2812 2819 2833 2840 2853 2860 2874 2880 2896 2903 2917 2924 2938 2945 2958 2965 2979 2985 3001 3008 3022 3029 3043 3050 3063 3070 3084 3090 3106 3113 3127 3134 3148 3155 3168 3175 3189 3195 3234 3240 3263 3269 3292 3298 3321 3327 3350 3356 3379 3385 3408 3414 3914 3949 3984 4019 4054 4089 4124 4159 4194 4229 4264 4299 4334 4369 4404 4439 4474 4509 4544 4579 4614 4650 4656 4684 4690 4718 4724 4752 4758 4786 4792 4820 4826 4854 4860 4891 4933 4955 4977 4999 5021 5043 5065 5081 5094 5118 5124 5130 5158 5164 5170 5198 5204 5210 5238 5244 5250 5278 5284 5290 5318 5324 5330 5358 5364 5370 5396 5400 5406 5412 5426 5430 5436 5442 5456 5460 5466 5472 5486 5490 5496 5502 5516 5520 5526 5532 5546 5550 5556 5562 5576 5580 5586 5592 5606 5610 5616 5622 5636 5640 5646 5652 5666 5670 5676 5682 5696 5700 5706 5712 5726 5730 5736 5742 5756 5760 5766 5772 5786 5790 5796 5802 5816 5820 5826 5832 5846 5850 5856 5862 5876 5880 5886 5892 5906 5910 5916 5922 5936 5940 5946 5952 5966 5970 5976 5982 5996 6000 6006 6012 6026 6030 6036 6042 6056 6060 6066 6072 6086 6090 6096 6102 6116 6120 6126 6132 6146 6150 6156 6162 6176 6180 6186 6192 6206 6210 6216 6222 6236 6240 6246 6252 6266 6270 6276 6282 6296 6300 6306 6312 6341 6346 6352 6369 6374 6380 6397 6402 6408 6425 6430 6436 6453 6458 6464 6481 6486 6492 6509 6514 6520 6537 6542 6548 6565 6570 6576 6593 6598 6604 6621 6626 6632 6649 6654 6660 6677 6682 6688 6705 6710 6716 6733 6738 6744 6761 6766 6772 6789 6794 6800 6817 6822 6828 6845 6850 6856 6872 6877 6883 6899 6904 6910 6926 6931 6937 6952 6956 6968 6972 6984 6988 7008 7013 7019 7038 7043 7049 7068 7073 7079 7098 7103 7109 7128 7133 7139 7158 7163 7169 7188 7193 7199 7218 7223 7229 7262 7263 7264 7265 7270 7274 7279 7286 7305 7311 7330 7336 7420 7425 7432 7436 7440 7444 7448 7452 7456 7460 7467 7468 7469 7470 7471 7472 7473 7474 7475 7477 7479 7480 HALTPI 789 1311 2146 3427 3453 3475 3497 3519 3542 3564 3594 3613 3632 3651 3670 3689 3708 3727 3744 3762 3780 3798 3816 3834 3852 3870 3898 3933 3968 4003 4038 4073 4108 4143 4178 4213 4248 4283 4318 4353 4388 4423 4458 4493 4528 4563 4598 INDPI 1048# 5098 5138 5178 5218 5258 5298 5338 JEN 160# 4647 4681 4715 4749 4783 4817 4851 5133 5173 5213 5253 5293 5333 5373 JRSTF 159# 3445 3467 3489 3511 3533 3556 3578 3611 3630 3649 3668 3687 3706 SEQ 0198 3725 3760 3778 3796 3814 3832 3850 3868 3893 3928 3963 3998 4033 4068 4103 4138 4173 4208 4243 4278 4313 4348 4383 4418 4453 4488 4523 4558 4593 7300 7326 7424 MAPADR 295# MAPCNK 296# MAPMEM 292# MAPPNT 298# MAPSET 297# MEMSEG 294# MEMZRO 293# MODPCP 305# MODPCU 304# MTROP 273# NAME 9# 12 PBELL 248# PCRL 242# PCRL2 246# PCRL2F 247# PCRLF 243# PFORCE 250# PGMINT 166# PIDIS 886# 4631 4665 4699 4733 4767 4801 4835 PIHCLR 858# 3217 3246 3275 3304 3333 3362 3391 PINO 834# 1430 1456 1482 1508 1534 1560 1586 PIONOF 870# 1855 1895 1935 1975 2015 2055 2095 PITEST 902# 2148 2253 2358 2463 2568 2673 2778 2883 2988 3093 PIYES 846# 1630 1660 1690 1720 1750 1780 1810 PJRST 157# PMSG 252# PMSGF 255# PNT1 208# PNT11 222# PNT11F 223# PNT1F 209# PNT2 210# PNT2F 211# PNT3 212# PNT3F 213# PNT4 214# PNT4F 215# PNT5 216# PNT5F 217# PNT6 218# PNT6F 219# PNT7 220# PNT7F 221# PNTA 194# PNTADF 225# PNTADR 224# PNTAF 195# PNTAL 196# PNTALF 197# PNTCHF 207# SEQ 0199 PNTCHR 206# PNTCI 204# PNTCIF 205# PNTCW 240# PNTCWF 241# PNTDCF 233# PNTDEC 232# PNTDS 234# PNTDSF 235# PNTHW 228# PNTHWF 229# PNTMSF 201# PNTMSG 200# PNTNM 236# PNTOCF 231# PNTOCS 230# PNTOCT 226# PNTOTF 227# PNTSIX 237# PNTSXF 238# PSIXL 198# PSIXLF 199# PSIXM 202# PSIXMF 203# PSP 244# PSPF 245# PUT 155# RDAPR 318# RDCSB 318# RDCSTM 318# RDEBR 318# RDHSB 318# RDINT 318# RDIO 318# RDIOB 318# RDPI 318# RDPUR 318# RDSPB 318# RDTIM 318# RDUBR 318# RTN 154# 408 S 84# 86 90 119 121 130 133 148 149 151 162 164 168 170 175 179 318 323 329 356 358 376 378 396 398 427 429 447 449 467 469 477 479 500 505 531 533 540 542 548 550 556 558 562 564 569 571 575 577 581 583 589 591 594 596 600 602 606 608 612 614 618 620 625 627 631 633 637 639 641 643 SBWAIT 1005# 3749 3767 3785 3803 3821 3839 3857 SFLAG 56# SIXBTZ 261# STOP 48# 945# 1090 1097 1107 1115 1126 1134 1142 1150 1157 1164 1171 1180 1187 1195 1202 1210 1217 1234 1252 1271 1280 1288 1296 1317 1325 1332 1340 1346 1354 1361 1369 1376 1384 1391 1399 1406 1414 1446 1472 1498 SEQ 0200 1524 1550 1576 1602 1647 1677 1707 1737 1767 1797 1827 1883 1923 1963 2003 2043 2083 2123 2160 2181 2202 2222 2243 2265 2286 2307 2327 2348 2370 2391 2412 2432 2453 2475 2496 2517 2537 2558 2580 2601 2622 2642 2663 2685 2706 2727 2747 2768 2790 2811 2832 2852 2873 2895 2916 2937 2957 2978 3000 3021 3042 3062 3083 3105 3126 3147 3167 3188 3233 3262 3291 3320 3349 3378 3407 4649 4683 4717 4751 4785 4819 4853 4890 4932 4954 4976 4998 5020 5042 5064 5080 5093 5129 5169 5209 5249 5289 5329 5369 6955 6971 6987 7012 7042 7072 7102 7132 7162 7192 7222 7273 7278 7304 7329 STOP1 949# 5405 5435 5465 5495 5525 5555 5585 5615 5645 5675 5705 5735 5765 5795 5825 5855 5885 5915 5945 5975 6005 6035 6065 6095 6125 6155 6185 6215 6245 6275 6305 6345 6373 6401 6429 6457 6485 6513 6541 6569 6597 6625 6653 6681 6709 6737 6765 6793 6821 6849 6876 6903 6930 STOP2 816# 1224 1242 1260 1452 1478 1504 1530 1556 1582 1608 1653 1683 1713 1743 1773 1803 1833 1889 1929 1969 2009 2049 2089 2129 2167 2188 2209 2229 2249 2272 2293 2314 2334 2354 2377 2398 2419 2439 2459 2482 2503 2524 2544 2564 2587 2608 2629 2649 2669 2692 2713 2734 2754 2774 2797 2818 2839 2859 2879 2902 2923 2944 2964 2984 3007 3028 3049 3069 3089 3112 3133 3154 3174 3194 3239 3268 3297 3326 3355 3384 3413 3913 3948 3983 4018 4053 4088 4123 4158 4193 4228 4263 4298 4333 4368 4403 4438 4473 4508 4543 4578 4613 4655 4689 4723 4757 4791 4825 4859 5123 5163 5203 5243 5283 5323 5363 5411 5441 5471 5501 5531 5561 5591 5621 5651 5681 5711 5741 5771 5801 5831 5861 5891 5921 5951 5981 6011 6041 6071 6101 6131 6161 6191 6221 6251 6281 6311 6351 6379 6407 6435 6463 6491 6519 6547 6575 6603 6631 6659 6687 6715 6743 6771 6799 6827 6855 6882 6909 6936 7018 7048 7078 7108 7138 7168 7198 7228 7269 7285 7310 7335 STUCK 1001# 3436 3458 3480 3502 3524 3547 3569 3601 3620 3639 3658 3677 3696 3715 3751 3769 3787 3805 3823 3841 3859 3903 3938 3973 4008 4043 4078 4113 4148 4183 4218 4253 4288 4323 4358 4393 4428 4463 4498 4533 4568 4603 SWITCH 267# TBOTH 830# 1220 1238 1256 2163 2184 2205 2225 2268 2289 2310 2330 2373 2394 2415 2435 2478 2499 2520 2540 2583 2604 2625 2645 2688 2709 2730 2750 2793 2814 2835 2855 2898 2919 2940 2960 3003 3024 3045 3065 3108 3129 3150 3170 3909 3944 3979 4014 4049 4084 4119 4154 4189 4224 4259 4294 4329 4364 4399 4434 4469 4504 4539 4574 TGET 825# 1221 1239 1257 1449 1475 1501 1527 1553 1579 1605 1650 1680 1710 1740 1770 1800 1830 1886 1926 1966 2006 2046 2086 2126 2164 2185 2206 2226 2246 2269 2290 2311 2331 2351 2374 2395 2416 2436 2456 2479 2500 2521 2541 2561 2584 2605 2626 2646 2666 2689 2710 2731 2751 2771 2794 2815 2836 2856 2876 2899 2920 2941 2961 2981 3004 3025 3046 3066 3086 3109 3130 3151 3171 3191 3236 3265 3294 3323 3352 3381 3410 3910 3945 3980 4015 4050 4085 4120 4155 4190 4225 4260 4295 4330 4365 4400 4435 4470 4505 4540 4575 4610 4652 4686 4720 4754 4788 4822 4856 5120 5160 5200 5240 5280 5320 5360 5408 5438 5468 5498 5528 5558 5588 5618 5648 5678 5708 5738 5768 5798 5828 5858 5888 5918 5948 5978 6008 6038 6068 6098 6128 6158 6188 6218 6248 6278 6308 6348 6376 6404 6432 6460 6488 6516 6544 6572 6600 6628 6656 6684 6712 6740 6768 6796 6824 6852 6879 6906 6933 7015 7045 7075 7105 7135 7165 7195 7225 7266 7282 7307 7332 TIOE 318# TIOEB 318# TION 318# TIONB 318# SEQ 0201 TRAP 997# 3597 3616 3635 3654 3673 3692 3711 3745 3763 3781 3799 3817 3835 3853 TRPCHK 1009# 3442 3464 3486 3508 3530 3553 3575 3608 3627 3646 3665 3684 3703 3722 3757 3775 3793 3811 3829 3847 3865 3890 3925 3960 3995 4030 4065 4100 4135 4170 4205 4240 4275 4310 4345 4380 4415 4450 4485 4520 4555 4590 TRPPI 788# 1426 1620 1847 3208 4881 4923 4945 4967 4989 5011 5033 5055 TSET 820# 1101 1227 1245 1263 1434 1460 1486 1512 1538 1564 1590 1635 1665 1695 1725 1755 1785 1815 1869 1909 1949 1989 2029 2069 2109 2151 2170 2191 2212 2232 2256 2275 2296 2317 2337 2361 2380 2401 2422 2442 2466 2485 2506 2527 2547 2571 2590 2611 2632 2652 2676 2695 2716 2737 2757 2781 2800 2821 2842 2862 2886 2905 2926 2947 2967 2991 3010 3031 3052 3072 3096 3115 3136 3157 3177 3220 3249 3278 3307 3336 3365 3394 3881 3916 3951 3986 4021 4056 4091 4126 4161 4196 4231 4266 4301 4336 4371 4406 4441 4476 4511 4546 4581 4634 4668 4702 4736 4770 4804 4838 5104 5144 5184 5224 5264 5304 5344 5389 5419 5449 5479 5509 5539 5569 5599 5629 5659 5689 5719 5749 5779 5809 5839 5869 5899 5929 5959 5989 6019 6049 6079 6109 6139 6169 6199 6229 6259 6289 6334 6362 6390 6418 6446 6474 6502 6530 6558 6586 6614 6642 6670 6698 6726 6754 6782 6810 6838 6865 6892 6919 6999 7029 7059 7089 7119 7149 7179 7209 7236 7291 7317 TTALTM 188# TTICHR 181# TTICLR 191# TTICNV 186# TTIDEC 185# TTINO 183# TTIOCT 184# TTIYES 182# TTLOOK 187# TTSIXB 189# TTYINP 190# WATINT 812# 1442 1468 1494 1520 1546 1572 1598 1643 1673 1703 1733 1763 1793 1823 1879 1919 1959 1999 2039 2079 2119 3228 3257 3286 3315 3344 3373 3402 3437 3459 3481 3503 3525 3548 3570 3602 3621 3640 3659 3678 3697 3716 3752 3770 3788 3806 3824 3842 3860 3904 3939 3974 4009 4044 4079 4114 4149 4184 4219 4254 4289 4324 4359 4394 4429 4464 4499 4534 4569 4604 4641 4675 4709 4743 4777 4811 4845 4886 4928 4950 4972 4994 5016 5038 5060 WRAPR 318# WRCSB 318# WRCSTM 318# WREBR 318# WRHSB 318# WRINT 318# WRIO 318# WRIOB 318# WRPI 318# WRPUR 318# WRSPB 318# WRTIM 318# WRUBR 318# XCHN2 1014# 3885 3920 3955 3990 4025 4060 4095 4130 4165 4200 4235 4270 4305 4340 4375 4410 4445 4480 4515 4550 4585 SEQ 0202 XUUO 953# 5384 5414 5444 5474 5504 5534 5564 5594 5624 5654 5684 5714 5744 5774 5804 5834 5864 5894 5924 5954 5984 6014 6044 6074 6104 6134 6164 6194 6224 6254 6284 XUUOA 973# 6329 6357 6385 6413 6441 6469 6497 6525 6553 6581 6609 6637 6665 6693 6721 6749 6777 6805 6833 6860 6887 6914 ADDI 7351 7365 7366 7381 7382 7502 7503 ANDI 5127 5167 5207 5247 5287 5327 5367 5398 5428 5458 5488 5518 5548 5578 SEQ 0203 5608 5638 5668 5698 5728 5758 5788 5818 5848 5878 5908 5938 5968 5998 6028 6058 6088 6118 6148 6178 6208 6238 6268 6298 6343 6371 6399 6427 6455 6483 6511 6539 6567 6595 6623 6651 6679 6707 6735 6763 6791 6819 6847 6874 6901 6928 7010 7040 7070 7100 7130 7160 7190 7220 AOS 406 719 ASCII 507 509 512 513 514 515 517 518 519 520 521 522 524 525 526 ASCIZ 749 BLOCK 475 535 538 544 547 553 BYTE 523 CAIE 1223 1241 1259 1451 1477 1503 1529 1555 1581 1607 1652 1682 1712 1742 1772 1802 1832 1888 1928 1968 2008 2048 2088 2128 2166 2187 2208 2228 2248 2271 2292 2313 2333 2353 2376 2397 2418 2438 2458 2481 2502 2523 2543 2563 2586 2607 2628 2648 2668 2691 2712 2733 2753 2773 2796 2817 2838 2858 2878 2901 2922 2943 2963 2983 3006 3027 3048 3068 3088 3111 3132 3153 3173 3193 3238 3267 3296 3325 3354 3383 3412 3912 3947 3982 4017 4052 4087 4122 4157 4192 4227 4262 4297 4332 4367 4402 4437 4472 4507 4542 4577 4612 4654 4688 4722 4756 4790 4824 4858 5122 5128 5162 5168 5202 5208 5242 5248 5282 5288 5322 5328 5362 5368 5410 5440 5470 5500 5530 5560 5590 5620 5650 5680 5710 5740 5770 5800 5830 5860 5890 5920 5950 5980 6010 6040 6070 6100 6130 6160 6190 6220 6250 6280 6310 6344 6350 6372 6378 6400 6406 6428 6434 6456 6462 6484 6490 6512 6518 6540 6546 6568 6574 6596 6602 6624 6630 6652 6658 6680 6686 6708 6714 6736 6742 6764 6770 6792 6798 6820 6826 6848 6854 6875 6881 6902 6908 6929 6935 7011 7017 7041 7047 7071 7077 7101 7107 7131 7137 7161 7167 7191 7197 7221 7227 7268 7277 7284 7309 7334 7504 CAIG 7352 CAIGE 7367 7383 CAME 1096 5399 5402 5429 5432 5459 5462 5489 5492 5519 5522 5549 5552 5579 5582 5609 5612 5639 5642 5669 5672 5699 5702 5729 5732 5759 5762 5789 5792 5819 5822 5849 5852 5879 5882 5909 5912 5939 5942 5969 5972 5999 6002 6029 6032 6059 6062 6089 6092 6119 6122 6149 6152 6179 6182 6209 6212 6239 6242 6269 6272 6299 6302 CAMN 1089 CONI 1088 1095 1113 1124 1132 1140 1148 1155 1162 1169 1178 1185 1193 1200 1208 1215 1250 1268 1278 1286 1294 1315 1323 1330 1338 1344 1352 1359 1367 1374 1382 1389 1397 1404 1412 5078 5091 CONO 792 793 1084 1111 1112 1122 1123 1130 1131 1138 1139 1147 1154 1161 1168 1176 1177 1183 1184 1191 1192 1198 1199 1206 1207 1213 1214 1231 1249 1267 1276 1277 1283 1285 1292 1293 1314 1321 1322 1329 1336 1337 1343 1350 1351 1358 1365 1366 1373 1380 1381 1388 1395 1396 1403 1410 1411 1441 1467 1493 1519 1545 1571 1597 1642 1672 1702 1732 1762 1792 1822 1876 1878 1916 1918 1956 1958 1996 1998 2036 2038 2076 2078 2116 2118 2158 2178 2179 2199 2200 2220 2240 2241 2263 2283 2284 2304 2305 2325 2345 2346 2368 2388 2389 2409 2410 2430 2450 2451 2473 2493 2494 2514 2515 2535 2555 2556 2578 2598 2599 2619 2620 2640 2660 2661 2683 2703 2704 2724 2725 2745 2765 2766 2788 2808 2809 2829 2830 2850 2870 2871 2893 2913 2914 2934 2935 2955 2975 2976 2998 3018 3019 3039 3040 3060 3080 3081 3103 3123 3124 3144 3145 3165 3185 3186 3227 3231 3256 3260 3285 3289 3314 3318 3343 3347 3372 3376 3401 3405 3434 3435 3456 3457 3478 3479 3500 3501 3522 3523 3545 3546 3567 3568 3600 3619 3638 3657 3676 3695 3714 3748 3750 3766 3768 3784 3786 3802 3804 3820 3822 3838 3840 3856 3858 3901 3902 3936 3937 3971 3972 4006 4007 4041 4042 SEQ 0204 4076 4077 4111 4112 4146 4147 4181 4182 4216 4217 4251 4252 4286 4287 4321 4322 4356 4357 4391 4392 4426 4427 4461 4462 4496 4497 4531 4532 4566 4567 4601 4602 4640 4646 4674 4680 4708 4714 4742 4748 4776 4782 4810 4816 4844 4850 4883 4884 4925 4926 4947 4948 4969 4970 4991 4992 5013 5014 5035 5036 5057 5058 5076 5077 5089 5090 5115 5116 5155 5156 5195 5196 5235 5236 5275 5276 5315 5316 5355 5356 CONSO 1232 2159 2242 2264 2347 2369 2452 2474 2557 2579 2662 2684 2767 2789 2872 2894 2977 2999 3082 3104 3187 CONSZ 1106 1445 1471 1497 1523 1549 1575 1601 1646 1676 1706 1736 1766 1796 1826 2180 2201 2221 2285 2306 2326 2390 2411 2431 2495 2516 2536 2600 2621 2641 2705 2726 2746 2810 2831 2851 2915 2936 2956 3020 3041 3061 3125 3146 3166 3232 3261 3290 3319 3348 3377 3406 4648 4682 4716 4750 4784 4818 4852 DEFINE 9 48 56 84 252 255 261 797 803 812 816 820 825 830 834 846 858 870 886 902 938 945 949 953 973 989 993 997 1001 1005 1009 1014 1028 1048 END 7695 HRRZ 7276 IFDEF 318 369 370 371 372 7686 7693 IFNDEF 307 308 318 369 370 371 372 451 7515 JFCL 409 410 411 412 413 414 415 416 417 418 419 420 679 1418 1612 1839 2134 3198 3419 3581 3731 3874 4608 4868 6315 6940 7281 7478 JRST 66 67 68 69 70 71 72 157 158 159 160 331 332 334 336 338 340 342 345 347 348 401 666 667 670 673 711 715 722 725 728 731 734 744 747 769 779 781 1092 1099 1109 1117 1128 1136 1144 1152 1159 1166 1173 1182 1189 1197 1204 1212 1219 1226 1236 1244 1254 1262 1273 1282 1290 1298 1319 1327 1334 1342 1348 1356 1363 1371 1378 1386 1393 1401 1408 1416 1448 1454 1474 1480 1500 1506 1526 1532 1552 1558 1578 1584 1604 1610 1649 1655 1679 1685 1709 1715 1739 1745 1769 1775 1799 1805 1829 1835 1885 1891 1925 1931 1965 1971 2005 2011 2045 2051 2085 2091 2125 2131 2162 2169 2183 2190 2204 2211 2224 2231 2245 2251 2267 2274 2288 2295 2309 2316 2329 2336 2350 2356 2372 2379 2393 2400 2414 2421 2434 2441 2455 2461 2477 2484 2498 2505 2519 2526 2539 2546 2560 2566 2582 2589 2603 2610 2624 2631 2644 2651 2665 2671 2687 2694 2708 2715 2729 2736 2749 2756 2770 2776 2792 2799 2813 2820 2834 2841 2854 2861 2875 2881 2897 2904 2918 2925 2939 2946 2959 2966 2980 2986 3002 3009 3023 3030 3044 3051 3064 3071 3085 3091 3107 3114 3128 3135 3149 3156 3169 3176 3190 3196 3235 3241 3264 3270 3293 3299 3322 3328 3351 3357 3380 3386 3409 3415 3440 3444 3462 3466 3484 3488 3506 3510 3528 3532 3551 3555 3573 3577 3588 3605 3610 3624 3629 3643 3648 3662 3667 3681 3686 3700 3705 3719 3724 3755 3759 3773 3777 3791 3795 3809 3813 3827 3831 3845 3849 3863 3867 3892 3907 3915 3927 3942 3950 3962 3977 3985 3997 4012 4020 4032 4047 4055 4067 4082 4090 4102 4117 4125 4137 4152 4160 4172 4187 4195 4207 4222 4230 4242 4257 4265 4277 4292 4300 4312 4327 4335 4347 4362 4370 4382 4397 4405 4417 4432 4440 4452 4467 4475 4487 4502 4510 4522 4537 4545 4557 4572 4580 4592 4607 4615 4644 4651 4657 4678 4685 4691 4712 4719 4725 4746 4753 4759 4780 4787 4793 4814 4821 4827 4848 4855 4861 4892 4934 4956 4978 5000 5022 5044 5066 5082 5095 5117 5125 5131 5157 5165 5171 5197 5205 5211 5237 5245 5251 5277 5285 5291 5317 5325 5331 5357 5365 5371 5404 5407 5413 5434 5437 5443 5464 5467 5473 5494 5497 5503 5524 5527 5533 5554 5557 5563 5584 5587 5593 5614 5617 5623 5644 5647 5653 5674 5677 5683 5704 5707 5713 5734 5737 5743 5764 5767 5773 5794 5797 5803 SEQ 0205 5824 5827 5833 5854 5857 5863 5884 5887 5893 5914 5917 5923 5944 5947 5953 5974 5977 5983 6004 6007 6013 6034 6037 6043 6064 6067 6073 6094 6097 6103 6124 6127 6133 6154 6157 6163 6184 6187 6193 6214 6217 6223 6244 6247 6253 6274 6277 6283 6304 6307 6313 6338 6347 6353 6366 6375 6381 6394 6403 6409 6422 6431 6437 6450 6459 6465 6478 6487 6493 6506 6515 6521 6534 6543 6549 6562 6571 6577 6590 6599 6605 6618 6627 6633 6646 6655 6661 6674 6683 6689 6702 6711 6717 6730 6739 6745 6758 6767 6773 6786 6795 6801 6814 6823 6829 6842 6851 6857 6869 6878 6884 6896 6905 6911 6923 6932 6938 6949 6957 6965 6973 6981 6989 7006 7007 7009 7014 7020 7036 7037 7039 7044 7050 7066 7067 7069 7074 7080 7096 7097 7099 7104 7110 7126 7127 7129 7134 7140 7156 7157 7159 7164 7170 7186 7187 7189 7194 7200 7216 7217 7219 7224 7230 7242 7258 7271 7275 7280 7287 7299 7306 7312 7314 7331 7337 7340 7353 7355 7368 7371 7384 7387 7395 7399 7403 7407 7411 7415 7419 7423 7505 7509 JSP 166 705 738 773 3430 3586 5393 5423 5453 5483 5513 5543 5573 5603 5633 5663 5693 5723 5753 5783 5813 5843 5873 5903 5933 5963 5993 6023 6053 6083 6113 6143 6173 6203 6233 6263 6293 7004 7034 7064 7094 7124 7154 7184 7214 7240 7302 7327 JSR 788 789 790 1085 3432 3454 3476 3498 3520 3543 3565 3598 3617 3636 3655 3674 3693 3712 3746 3764 3782 3800 3818 3836 3854 3899 3934 3969 4004 4039 4074 4109 4144 4179 4214 4249 4284 4319 4354 4389 4424 4459 4494 4529 4564 4599 4638 4672 4706 4740 4774 4808 4842 5110 5150 5190 5230 5270 5310 5350 7362 7378 LALL 10 784 LIST 9 318 451 7515 7683 LIT 7516 LOC 26 321 645 665 669 672 677 695 700 MOVE 1087 1222 1240 1258 1450 1476 1502 1528 1554 1580 1606 1651 1681 1711 1741 1771 1801 1831 1887 1927 1967 2007 2047 2087 2127 2165 2186 2207 2227 2247 2270 2291 2312 2332 2352 2375 2396 2417 2437 2457 2480 2501 2522 2542 2562 2585 2606 2627 2647 2667 2690 2711 2732 2752 2772 2795 2816 2837 2857 2877 2900 2921 2942 2962 2982 3005 3026 3047 3067 3087 3110 3131 3152 3172 3192 3237 3266 3295 3324 3353 3382 3411 3430 3432 3454 3476 3498 3520 3543 3565 3598 3617 3636 3655 3674 3693 3712 3746 3764 3782 3800 3818 3836 3854 3899 3911 3934 3946 3969 3981 4004 4016 4039 4051 4074 4086 4109 4121 4144 4156 4179 4191 4214 4226 4249 4261 4284 4296 4319 4331 4354 4366 4389 4401 4424 4436 4459 4471 4494 4506 4529 4541 4564 4576 4599 4611 4638 4653 4672 4687 4706 4721 4740 4755 4774 4789 4808 4823 4842 4857 5110 5121 5126 5150 5161 5166 5190 5201 5206 5230 5241 5246 5270 5281 5286 5310 5321 5326 5350 5361 5366 5393 5401 5409 5423 5431 5439 5453 5461 5469 5483 5491 5499 5513 5521 5529 5543 5551 5559 5573 5581 5589 5603 5611 5619 5633 5641 5649 5663 5671 5679 5693 5701 5709 5723 5731 5739 5753 5761 5769 5783 5791 5799 5813 5821 5829 5843 5851 5859 5873 5881 5889 5903 5911 5919 5933 5941 5949 5963 5971 5979 5993 6001 6009 6023 6031 6039 6053 6061 6069 6083 6091 6099 6113 6121 6129 6143 6151 6159 6173 6181 6189 6203 6211 6219 6233 6241 6249 6263 6271 6279 6293 6301 6309 6338 6342 6349 6366 6370 6377 6394 6398 6405 6422 6426 6433 6450 6454 6461 6478 6482 6489 6506 6510 6517 6534 6538 6545 6562 6566 6573 6590 6594 6601 6618 6622 6629 6646 6650 6657 6674 6678 6685 6702 6706 6713 6730 6734 6741 6758 6762 6769 6786 6790 6797 6814 6818 6825 6842 6846 6853 6869 6873 6880 6896 6900 6907 6923 6927 6934 6949 6953 6965 6969 6981 6985 7003 7004 7006 7016 7033 7034 7036 7046 7063 7064 7066 7076 7093 7094 7096 7106 7123 7124 SEQ 0206 7126 7136 7153 7154 7156 7166 7183 7184 7186 7196 7213 7214 7216 7226 7258 7267 7283 7308 7325 7333 7354 7362 7369 7370 7378 7385 7386 7393 7397 7401 7405 7409 7413 7417 7430 7434 7438 7442 7446 7450 7454 7458 7500 7506 7507 7508 MOVEI 1103 1229 1247 1265 1436 1443 1462 1469 1488 1495 1514 1521 1540 1547 1566 1573 1592 1599 1637 1644 1667 1674 1697 1704 1727 1734 1757 1764 1787 1794 1817 1824 1871 1880 1911 1920 1951 1960 1991 2000 2031 2040 2071 2080 2111 2120 2153 2172 2193 2214 2234 2258 2277 2298 2319 2339 2363 2382 2403 2424 2444 2468 2487 2508 2529 2549 2573 2592 2613 2634 2654 2678 2697 2718 2739 2759 2783 2802 2823 2844 2864 2888 2907 2928 2949 2969 2993 3012 3033 3054 3074 3098 3117 3138 3159 3179 3222 3229 3251 3258 3280 3287 3309 3316 3338 3345 3367 3374 3396 3403 3438 3460 3482 3504 3526 3549 3571 3603 3622 3641 3660 3679 3698 3717 3753 3771 3789 3807 3825 3843 3861 3883 3905 3918 3940 3953 3975 3988 4010 4023 4045 4058 4080 4093 4115 4128 4150 4163 4185 4198 4220 4233 4255 4268 4290 4303 4325 4338 4360 4373 4395 4408 4430 4443 4465 4478 4500 4513 4535 4548 4570 4583 4605 4636 4642 4670 4676 4704 4710 4738 4744 4772 4778 4806 4812 4840 4846 4887 4929 4951 4973 4995 5017 5039 5061 5106 5108 5146 5148 5186 5188 5226 5228 5266 5268 5306 5308 5346 5348 5391 5397 5421 5427 5451 5457 5481 5487 5511 5517 5541 5547 5571 5577 5601 5607 5631 5637 5661 5667 5691 5697 5721 5727 5751 5757 5781 5787 5811 5817 5841 5847 5871 5877 5901 5907 5931 5937 5961 5967 5991 5997 6021 6027 6051 6057 6081 6087 6111 6117 6141 6147 6171 6177 6201 6207 6231 6237 6261 6267 6291 6297 6336 6364 6392 6420 6448 6476 6504 6532 6560 6588 6616 6644 6672 6700 6728 6756 6784 6812 6840 6867 6894 6921 7001 7031 7061 7091 7121 7151 7181 7211 7238 7247 7293 7319 7349 7363 7379 7394 7398 7402 7406 7410 7414 7418 7431 7435 7439 7443 7447 7451 7455 7498 7499 MOVEM 1104 1230 1248 1266 1437 1463 1489 1515 1541 1567 1593 1638 1668 1698 1728 1758 1788 1818 1872 1912 1952 1992 2032 2072 2112 2154 2173 2194 2215 2235 2259 2278 2299 2320 2340 2364 2383 2404 2425 2445 2469 2488 2509 2530 2550 2574 2593 2614 2635 2655 2679 2698 2719 2740 2760 2784 2803 2824 2845 2865 2889 2908 2929 2950 2970 2994 3013 3034 3055 3075 3099 3118 3139 3160 3180 3223 3252 3281 3310 3339 3368 3397 3431 3433 3455 3477 3499 3521 3544 3566 3599 3618 3637 3656 3675 3694 3713 3747 3765 3783 3801 3819 3837 3855 3884 3900 3919 3935 3954 3970 3989 4005 4024 4040 4059 4075 4094 4110 4129 4145 4164 4180 4199 4215 4234 4250 4269 4285 4304 4320 4339 4355 4374 4390 4409 4425 4444 4460 4479 4495 4514 4530 4549 4565 4584 4600 4637 4639 4671 4673 4705 4707 4739 4741 4773 4775 4807 4809 4841 4843 5107 5109 5111 5147 5149 5151 5187 5189 5191 5227 5229 5231 5267 5269 5271 5307 5309 5311 5347 5349 5351 5392 5394 5422 5424 5452 5454 5482 5484 5512 5514 5542 5544 5572 5574 5602 5604 5632 5634 5662 5664 5692 5694 5722 5724 5752 5754 5782 5784 5812 5814 5842 5844 5872 5874 5902 5904 5932 5934 5962 5964 5992 5994 6022 6024 6052 6054 6082 6084 6112 6114 6142 6144 6172 6174 6202 6204 6232 6234 6262 6264 6292 6294 6337 6339 6365 6367 6393 6395 6421 6423 6449 6451 6477 6479 6505 6507 6533 6535 6561 6563 6589 6591 6617 6619 6645 6647 6673 6675 6701 6703 6729 6731 6757 6759 6785 6787 6813 6815 6841 6843 6868 6870 6895 6897 6922 6924 6950 6966 6982 7002 7005 7032 7035 7062 7065 7092 7095 7122 7125 7152 7155 7182 7185 7212 7215 7239 7248 7249 7250 7251 7252 7253 7254 7255 7259 7294 7320 7348 7360 7361 7364 7376 7377 7380 7495 7496 7497 7501 NOSYM 29 SEQ 0207 OPDEF 153 154 155 156 157 158 159 160 166 172 173 181 182 183 184 185 186 187 188 189 190 191 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 250 267 272 273 277 278 279 285 286 292 293 294 295 296 297 298 304 305 312 313 314 315 318 788 789 790 792 793 POP 156 POPJ 154 PUSH 155 PUSHJ 153 REPEAT 1427 1624 1850 3211 4625 4899 6324 SETO 1094 7459 SETOM 707 714 740 775 7256 7257 SETZ 1105 1877 1917 1957 1997 2037 2077 2117 4882 4924 4946 4968 4990 5012 5034 5056 6948 7324 SETZB 6964 6980 SETZM 704 709 737 742 772 777 7260 7339 7350 SIXBIT 77 78 536 537 545 546 SKIPA 1233 1270 5403 5433 5463 5493 5523 5553 5583 5613 5643 5673 5703 5733 5763 5793 5823 5853 5883 5913 5943 5973 6003 6033 6063 6093 6123 6153 6183 6213 6243 6273 6303 SKIPE 710 724 730 1882 1922 1962 2002 2042 2082 2122 3443 3465 3487 3509 3531 3554 3576 3609 3628 3647 3666 3685 3704 3723 3758 3776 3794 3812 3830 3848 3866 3891 3926 3961 3996 4031 4066 4101 4136 4171 4206 4241 4276 4311 4346 4381 4416 4451 4486 4521 4556 4591 4889 4931 4953 4975 4997 5019 5041 5063 7272 7422 SKIPL 745 SKIPN 708 713 721 726 732 741 743 776 778 1114 7298 7313 SOJG 1444 1470 1496 1522 1548 1574 1600 1645 1675 1705 1735 1765 1795 1825 1881 1921 1961 2001 2041 2081 2121 3230 3259 3288 3317 3346 3375 3404 3439 3461 3483 3505 3527 3550 3572 3604 3623 3642 3661 3680 3699 3718 3754 3772 3790 3808 3826 3844 3862 3906 3941 3976 4011 4046 4081 4116 4151 4186 4221 4256 4291 4326 4361 4396 4431 4466 4501 4536 4571 4606 4643 4677 4711 4745 4779 4813 4847 4888 4930 4952 4974 4996 5018 5040 5062 SOS 720 SOSE 5132 5172 5212 5252 5292 5332 5372 SUBTTL 30 82 117 318 319 647 735 770 782 1073 1120 1274 1301 3420 3582 3732 3875 4619 4869 5069 5096 5377 6316 6941 6990 7231 7288 7341 7461 7510 TITLE 14 TLNE 706 739 774 3587 6954 6970 6986 7241 7303 TLNN 7328 TRNE 1179 1186 1194 1201 1209 1216 1269 1295 1324 1339 1353 1368 1383 1398 1413 TRNN 1125 1133 1141 1149 1156 1163 1170 1251 1279 1287 1316 1331 1345 1360 1375 1390 1405 5079 5092 TTCALL 746 VAR 7691 XLIST 8 317 318 450 7514 XWD 7003 7033 7063 7093 7123 7153 7183 7213 @ rtl/mem/RCS/MAINDEC-10-DSKAI.txt,v0000444000175100010010000446675312051211514014406 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAI IDENTIFICATION -------------- PRODUCT CODE: AH-E313A-DD DIAGNOSTIC CODE: DSKAI PRODUCT NAME: DSKAIA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 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-DSKAI.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-DSKAI.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE NINTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE SHIFT/ROTATE FUNCTIONS. 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-DSKAI.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-DSKAI.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-DSKAI.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-DSKAI.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-DSKAI.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 'DSKAI.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-DSKAI.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 DSKAI SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAI TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 DSKAIT MAC 29-Mar-78 08:41 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;DSKAI 2 3 000000 MCNVER==0 4 000001 DECVER==1 5 6 7 XLIST 8 LIST 9 LALL 10 11 NAME \MCNVER,\DECVER^ 12 13 TITLE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 14 ^ 15 16 17 ;LOGICAL SHIFT, ROTATE, ARITMETIC SHIFT (SINGLE & COMBINED) 18 19 ;COPYRIGHT 1978 20 ;DIGITAL EQUIPMENT CORPORATION 21 ;MARLBORO, MASS. 01752 22 23 ;JOHN R. KIRCHOFF 24 25 000137 LOC 137 26 000137 000000 000001 MCNVER,,DECVER 27 28 NOSYM DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 2 DSKAIT MAC 29-Mar-78 08:41 DIAGNOSTIC PARAMETERS SEQ 0013 29 SUBTTL DIAGNOSTIC PARAMETERS 30 31 ;OPERATOR DEFINITIONS 32 33 001000 000000 OPDEF ER1 [1B8] 34 002000 000000 OPDEF ER2 [2B8] 35 003000 000000 OPDEF ER3 [3B8] 36 004000 000000 OPDEF ER4 [4B8] 37 005000 000000 OPDEF ER5 [5B8] 38 006000 000000 OPDEF ER6 [6B8] 39 007000 000000 OPDEF ER7 [7B8] 40 010000 000000 OPDEF ER10 [10B8] 41 011000 000000 OPDEF ER11 [11B8] 42 012000 000000 OPDEF ER12 [12B8] 43 013000 000000 OPDEF ER13 [13B8] 44 45 041423 LUUO1=ERRMES 46 041423 LUUO2=ERRMES 47 041423 LUUO3=ERRMES 48 041423 LUUO4=ERRMES 49 041423 LUUO5=ERRMES 50 041423 LUUO6=ERRMES 51 041423 LUUO7=ERRMES 52 041423 LUUO10=ERRMES 53 041423 LUUO11=ERRMES 54 041423 LUUO12=ERRMES 55 041423 LUUO13=ERRMES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 3 DSKAIT MAC 29-Mar-78 08:41 DIAGNOSTIC PARAMETERS SEQ 0014 56 ;SUBROUTINE ASSEMBLY DEFINITIONS 57 58 000040 DEBUG=40 59 000001 EXCASB=1 60 000001 USRASB=1 61 000001 PGMEND=1 62 000001 ERDIAG=1 63 64 ;SPECIAL FEATURE DEFINITIONS 65 66 030000 SADR1=BEGIN 67 030000 SADR2=BEGIN 68 030000 SADR3=BEGIN 69 030007 SADR4=SRTDDT 70 254000 030061 SADR5=JRST $BEND2 71 254000 030000 SADR6=JRST BEGIN 72 254000 030000 SADR7=JRST BEGIN 73 254000 030000 SADR8=JRST BEGIN 74 254000 030000 SADR9=JRST BEGIN 75 254000 030000 SADR10=JRST BEGIN 76 254000 030000 SADR11=JRST BEGIN 77 78 ;SPECIAL FEATURE PARAMETERS 79 80 000000 PAREA0=0 81 000000 PAREA1=0 82 000000 PAREA2=0 83 446353 415100 PAREA3=SIXBIT/DSKAI/ 84 645560 000000 PAREA4=SIXBIT/TMP/ 85 000000 PAREA5=0 86 000000 PAREA6=0 87 000001 ITERAT==1 88 89 ;MACROS 90 91 DEFINE SAVEAC (A,B)< 92 MOVEI AC+2,. ;SAVE TEST PC 93 MOVEM AC+2,TESTPC 94 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 95 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> 96 97 DEFINE SETACS (WW,XX)< 98 MOVEI AC-1,WW ;SETUP AC-1 99 HRLI AC-1,WW ;FOR COMPARISION 100 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 101 MOVEI AC,XX ;SETUP AC RIGHT 102 HRLI AC,XX ;SETUP AC LEFT 103 MOVEM AC,&17 ;SETUP AC2> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 4 DSKAIT MAC 29-Mar-78 08:41 DIAGNOSTIC PARAMETERS SEQ 0015 104 ;USER DEFINED MACROS 105 106 DEFINE SR1 (T,D1A,D1B,R1A,R1B,OP,S)< 107 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD D1A,D1B] S BIT 108 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD R1A,R1B] 109 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 110 111 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC 112 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 113 OP AC,S ;*SHIFT/ROTATE S BIT POSITIONS 114 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT? 115 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT 116 CAME AC+1,[XWD 741703,607417] 117 ER4 AC+1,T'01 ;C(AC+1) WAS MODIFIED INCORRECTLY 118 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH> 119 120 121 DEFINE SR2 (T,D1A,D1B,D2A,D2B,R1A,R1B,R2A,R2B,OP,S)< 122 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 123 ;DATA SPECIFIED IN [XWD D1A,D1B] AND [XWD D2A,D2B] S BIT POSITIONS AND 124 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD R1A,R1B] AND 125 ;[XWD R2A,R2B] 126 127 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC 128 MOVE AC+1,[XWD D2A,D2B] ;INITIALIZE AC+1 129 OP AC,S ;*SHIFT/ROTATE COMBINED S PLACES 130 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT? 131 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT 132 CAME AC+1,[XWD R2A,R2B] ;IS RESULT IN AC+1 CORRECT? 133 ER4 AC+1,T'01 ;RESULT IN AC+1 IS INCORRECT 134 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0016 135 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 136 137 DEFINE S,<;*********************************************************************> 138 139 S^;*********************************************************************^ 140 ;*DATA SWITCHES 141 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 142 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 143 S^;*********************************************************************^ 144 145 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 146 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 147 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 148 149 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 150 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 151 010000 DING== 010000 ;RING BELL ON ERROR 152 153 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 154 002000 ERSTOP==002000 ;HALT ON TEST ERROR 155 001000 PALERS==001000 ;PRINT ALL ERRORS 156 157 000400 RELIAB==000400 ;RELIABILITY MODE 158 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 159 000100 INHPAG==000100 ;INHIBIT PAGING 160 161 000040 MODDVC==000040 ;MODIFY DEVICE CODE 162 000020 INHCSH==000020 ;INHIBIT CACHE 163 000010 OPRSEL==000010 ;OPERATOR SELECTION 164 165 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 166 167 ;SWITCH 16 RESERVED 168 169 ;SWITCH 17 RESERVED !!! DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0017 170 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 171 172 S^;*********************************************************************^ 173 ;*SPECIAL SUBPROGRAM LINKAGES 174 S^;*********************************************************************^ 175 176 027772 FSELNK= 27772 ;FILE SELECT LINK 177 027773 FRDLNK= 27773 ;FILE READ LINK 178 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 179 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 180 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 181 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 182 183 S^;*********************************************************************^ 184 ;*SPECIAL SUBROUTINE FATAL HALTS 185 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 186 S^;*********************************************************************^ 187 188 ;ADDRESS TAG REASON 189 ;--------------------- 190 191 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 192 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 193 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 194 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 195 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 196 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 197 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 198 ; 1017 EOPERR ;END OF PROGRAM ERROR 199 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 200 201 S^;*********************************************************************^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018 202 S^;*********************************************************************^ 203 ;OPERATOR DEFINITIONS (NON-UUO'S) 204 S^;*********************************************************************^ 205 206 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 207 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 208 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 209 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 210 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 211 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 212 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 213 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 214 215 S^;*********************************************************************^ 216 ;*SUBROUTINE INITIALIZATION CALL 217 S^;*********************************************************************^ 218 219 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 220 221 S^;*********************************************************************^ 222 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 223 S^;*********************************************************************^ 224 225 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 226 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 227 228 S^;*********************************************************************^ 229 ;*TERMINAL INPUT UUO'S 230 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 231 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 232 S^;*********************************************************************^ 233 234 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 235 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 236 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 237 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 238 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 239 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 240 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 241 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 242 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 243 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 244 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019 245 ;*TERMINAL OUTPUT UUO'S. 246 247 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 248 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 249 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 250 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 251 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 252 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 253 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 254 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 255 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 256 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 257 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 258 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 259 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 260 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 261 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 262 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 263 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 264 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 265 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 266 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 267 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 268 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 269 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 270 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 271 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 272 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 273 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 274 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 275 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 276 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 277 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 278 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 279 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 280 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 281 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 282 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 283 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 284 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 285 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 286 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 287 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 288 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020 289 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 290 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 291 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 292 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 293 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 294 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 295 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 296 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 297 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 298 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 299 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 300 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 301 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 302 303 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 304 305 DEFINE PMSG (ARG),< 306 PSIXM [SIXBIT\ARG'_\]> 307 308 DEFINE PMSGF (ARG),< 309 PSIXMF [SIXBIT\ARG'_\]> 310 311 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 312 ;* CONSERVES CORE OVER ASCIZ 313 314 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 315 316 ;*CONSOLE SWITCH INPUT UUO. 317 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 318 ;* USER MODE. 319 320 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 321 322 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 323 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 324 325 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 326 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 327 328 ;*KS-10 CACHE OPERATION UUO'S 329 330 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 331 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 332 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021 333 ;*END OF PASS/PROGRAM UUOS 334 335 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 336 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 337 338 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 339 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 340 341 ;*MEMORY MANAGEMENT UUO'S 342 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 343 ;*ADDRESS CONVERSION, ETC... 344 345 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 346 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 347 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 348 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 349 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 350 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 351 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 352 353 ;*DEVICE CODE MODIFICATION UUO 354 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 355 ;*IOT'S TO A DIFFERENT DEVICE CODE. 356 357 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 358 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 359 360 030000 IFNDEF MODDVL, 361 030000 IFNDEF MODDVU, 362 363 ;*"DIAMON" FILE SELECTION AND READ UUOS 364 365 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 366 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 367 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 368 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 369 370 XLIST 371 IFNDEF EROLD, 396 397 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 398 399 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 400 SALL 401 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 402 CORECT,,ACTUAL 403 [SIXBIT\D'_\],,ERR] 404 XALL> 405 406 >;END OF EROLD CONDITIONAL 407 408 XLIST 409 LIST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 410 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 411 412 030000 LOC 30000 413 414 S^;*********************************************************************^ 415 ;*PROGRAM STARTING ADDRESSES 416 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 417 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 418 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 419 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 420 S^;*********************************************************************^ 421 422 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 423 030001 254 00 0 00 030620 $START: JRST START ;MODE CHECK STARTING ADDRESS 424 425 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 426 427 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 428 429 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 430 431 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 432 433 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 434 435 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 436 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 437 438 030010 254 00 0 00 030623 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 439 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 440 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 441 442 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 443 030014 254000 030000 START2: SADR8 ; " 444 030015 254000 030000 START3: SADR9 ; " 445 030016 254000 030000 START4: SADR10 ; " 446 030017 254000 030000 START5: SADR11 ; " DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 447 S^;*********************************************************************^ 448 ;*PROGRAM FIXED PARAMETER AREA 449 S^;*********************************************************************^ 450 451 030020 446353 415100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 452 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 453 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 454 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 455 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 456 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 457 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 458 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 459 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 460 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 461 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 462 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 463 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 464 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 465 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 466 467 S^;*********************************************************************^ 468 ;*PROGRAM VARIABLE PARAMETER AREA 469 S^;*********************************************************************^ 470 471 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 472 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 473 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 474 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 475 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 476 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 477 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 478 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 479 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 480 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 481 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 482 030052 000000 000000 ERRPC: 0 ;ERROR PC 483 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 484 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 485 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 486 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025 487 S^;*********************************************************************^ 488 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 489 S^;*********************************************************************^ 490 491 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 492 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 493 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 494 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 495 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 496 030064 CPOPJ1: ;SKIP RETURN 497 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 498 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 499 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 500 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 501 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 502 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 503 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 504 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 505 030073 255 00 0 00 000000 $USRHL: JFCL ; " 506 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 507 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 508 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 509 030077 255 00 0 00 000000 RESRT2: JFCL ; " 510 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 511 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 512 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 513 514 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 515 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 516 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 517 518 S^;*********************************************************************^ 519 ;*PROCESSOR CONTROL STORAGE 520 S^;*********************************************************************^ 521 522 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 523 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 524 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 525 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 526 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 527 528 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 529 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 530 531 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 532 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 533 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 534 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 535 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 536 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 537 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026 538 S^;*********************************************************************^ 539 ;*UUO DISPATCH TABLE 540 S^;*********************************************************************^ 541 XLIST 542 LIST 543 030124 041423 030070 UUODIS: LUUO1,,$UUOER 544 030125 041423 041423 LUUO3,,LUUO2 545 030126 041423 041423 LUUO5,,LUUO4 546 030127 041423 041423 LUUO7,,LUUO6 547 030130 041423 041423 LUUO11,,LUUO10 548 030131 041423 041423 LUUO13,,LUUO12 549 030132 030070 030070 LUUO15,,LUUO14 550 030133 030070 030070 LUUO17,,LUUO16 551 030134 030070 030070 LUUO21,,LUUO20 552 030135 030070 030070 LUUO23,,LUUO22 553 030136 030070 030070 LUUO25,,LUUO24 554 030137 030070 030070 LUUO27,,LUUO26 555 030140 030070 030070 LUUO31,,LUUO30 556 030141 030070 030070 LUUO33,,LUUO32 557 558 S^;*********************************************************************^ 559 ;*MEMORY MANAGMENT STORAGE 560 S^;*********************************************************************^ 561 562 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 563 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 564 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 565 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 566 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 567 568 S^;*********************************************************************^ 569 ;*PRINT CONTROL STORAGE 570 S^;*********************************************************************^ 571 572 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 573 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 574 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 575 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 576 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 577 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 578 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 579 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 580 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 581 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 582 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 583 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 584 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 585 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 586 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 587 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 588 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 589 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 590 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027 591 S^;*********************************************************************^ 592 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 593 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 594 ;* MOVEI NAME 595 ;* PNTA ;OR PNTAF 596 S^;*********************************************************************^ 597 598 030242 CRLF: ASCII/ 599 030242 015 012 000 000 000 / 600 030243 CRLF2: ASCII/ 601 602 030243 015 012 015 012 000 / 603 030244 054 000 000 000 000 COMMA: ASCII/,/ 604 030245 056 000 000 000 000 PERIOD: ASCII/./ 605 030246 040 000 000 000 000 SPACE: ASCII/ / 606 030247 011 000 000 000 000 TAB: ASCII/ / 607 030250 MINUS: 608 030250 055 000 000 000 000 HYPEN: ASCII/-/ 609 030251 053 000 000 000 000 PLUS: ASCII/+/ 610 030252 052 000 000 000 000 AST: ASCII/*/ 611 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 612 030254 050 000 000 000 000 LFP: ASCII/(/ 613 030255 051 000 000 000 000 RTP: ASCII/)/ 614 030256 007 0000000000 BELL: BYTE (7) 007 615 030257 077 000 000 000 000 QUEST: ASCII/?/ 616 030260 057 000 000 000 000 SLASH: ASCII!/! 617 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 618 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 619 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 620 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 621 622 S^;*********************************************************************^ 623 ;*USER MODE OUTPUT FILE INFORMATION 624 S^;*********************************************************************^ 625 626 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 627 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 628 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 629 030272 BLOCK 2 630 631 S^;*********************************************************************^ 632 ;*DISK UPDATE MODE FILE INFORMATION 633 S^;*********************************************************************^ 634 635 030274 $IBUF: BLOCK 3 636 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 637 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 638 030301 BLOCK 2 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028 639 S^;*********************************************************************^ 640 ;*PUSHDOWN LIST CONTROL INFORMATION 641 S^;*********************************************************************^ 642 643 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 644 030304 PLISTS: BLOCK 200 645 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 646 647 S^;*********************************************************************^ 648 ;*POWER LINE CLOCK FREQUENCY FLAG 649 S^;*********************************************************************^ 650 651 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 652 653 S^;*********************************************************************^ 654 ;*KL10 CACHE CONTROL FLAGS 655 S^;*********************************************************************^ 656 657 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 658 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 659 660 S^;*********************************************************************^ 661 ;*NUMBER INPUT DIGIT FLAG 662 S^;*********************************************************************^ 663 664 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 665 666 S^;*********************************************************************^ 667 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 668 S^;*********************************************************************^ 669 670 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 671 672 S^;*********************************************************************^ 673 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 674 S^;*********************************************************************^ 675 676 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 677 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 678 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 679 680 S^;*********************************************************************^ 681 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 682 S^;*********************************************************************^ 683 684 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029 685 S^;*********************************************************************^ 686 ;*USER MODE MONITOR TYPE FLAG 687 S^;*********************************************************************^ 688 689 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 690 691 S^;*********************************************************************^ 692 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 693 S^;*********************************************************************^ 694 695 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 696 697 S^;*********************************************************************^ 698 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 699 S^;*********************************************************************^ 700 701 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 702 703 S^;*********************************************************************^ 704 ;*"SWITCH" CALL USAGE CONTROL 705 S^;*********************************************************************^ 706 707 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 708 709 S^;*********************************************************************^ 710 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 711 S^;*********************************************************************^ 712 713 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 714 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 715 716 S^;*********************************************************************^ 717 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 718 S^;*********************************************************************^ 719 720 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 721 722 S^;*********************************************************************^ 723 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 724 S^;*********************************************************************^ 725 726 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 727 728 S^;*********************************************************************^ 729 ;*SPECIAL FUTURE EXPANSION ROOM 730 S^;*********************************************************************^ 731 732 S^;*********************************************************************^ 733 ;*END OF FIXED STORAGE 734 S^;*********************************************************************^ 735 736 030577 LOC 30577 737 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 DSKAI1 MAC 29-Mar-78 08:41 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030 738 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE 739 030601 000000 030600 EXIT 740 741 030602 PGMNAM: ASCIZ % 742 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAI] 743 030603 123 131 123 124 105 744 030604 115 040 062 060 062 745 030605 060 040 102 101 123 746 030606 111 103 040 111 116 747 030607 123 124 122 125 103 748 030610 124 111 117 116 040 749 030611 104 111 101 107 116 750 030612 117 123 124 111 103 751 030613 040 133 104 123 113 752 030614 101 111 135 015 012 SHIFT/ROTATE 753 030615 123 110 111 106 124 754 030616 057 122 117 124 101 755 030617 124 105 015 012 000 % 756 757 ;INITIALIZE SUBROUTINES 758 759 030620 265 00 0 00 030011 START: PGMINT 760 030621 200 00 0 00 041611 MOVE [ASCIZ/AI/] 761 030622 202 00 0 00 041532 MOVEM TLET 762 763 030623 254 00 0 00 030624 STARTA: JRST PART1 ;GO PERFORM DIAGNOSTIC DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS SEQ 0031 764 SUBTTL DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS 765 766 ;TEST FETCH,STORE AND DECODE 767 ;TEST THE ABILITY OF ROT, ROTC TO FETCH AND STORE 768 ;AC,AC+1 769 ;TESTING IS ACCOMPLISHED BY ROTATING ZERO TIMES ALL 770 ;ZERO'S, ALL ONE'S. 771 ;OPERANDS SELECTED ARE LEAST AFFECTED BY 772 ;INADVERTENT ROTATING 773 ;FAILURE OF A SC BIT TO SET,OR SC TO 774 ;COUNT WILL RESULT IN LOOPING 775 776 777 000001 AC=1 778 030624 PART1: SAVEAC (1,1)^ 779 030624 201 03 0 00 030624 MOVEI AC+2,. ;SAVE TEST PC 780 030625 202 03 0 00 030051 MOVEM AC+2,TESTPC 781 030626 201 03 0 00 000003 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 782 030627 202 03 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 783 784 030630 400 01 0 00 000000 E100: SETZ AC, ;CLEAR AC 785 030631 241 01 0 00 000000 ROT AC,0 ;*ROTATE LEFT ZERO TIMES 786 030632 332 00 0 00 000001 SKIPE AC ;TEST AC FOR ZERO 787 030633 003 01 0 00 000101 ER3 AC,101 ;FETCH OR STORE FAILED 788 030634 321 03 0 00 030630 JUMPL AC+2,E100 ;LOOP ON ERROR SWITCH 789 790 030635 477 01 0 00 000000 E200: SETOB AC,AC-1 ;SET AC,AC-1 FOR COMPARE 791 030636 241 01 0 00 000000 ROT AC,0 ;*ROTATE LEFT ZERO TIMES 792 030637 312 01 0 00 000000 CAME AC,AC-1 ;TEST AC FOR A -1 793 030640 003 01 0 00 000201 ER3 AC,201 ;FETCH OR STORE FAILED 794 030641 321 03 0 00 030635 JUMPL AC+2,E200 ;LOOP ON ERROR SWITCH 795 796 000002 AC=2 797 SAVEAC (1,1)^ 798 030642 201 04 0 00 030642 MOVEI AC+2,. ;SAVE TEST PC 799 030643 202 04 0 00 030051 MOVEM AC+2,TESTPC 800 030644 201 04 0 00 000004 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 801 030645 202 04 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 802 803 030646 403 02 0 00 000003 E300: SETZB AC,AC+1 ;CLEAR AC,AC+1 804 030647 245 02 0 00 000000 ROTC AC,0 ;*ROTATE COMBINED LEFT ZERO TIMES 805 030650 332 00 0 00 000002 SKIPE AC ;TEST AC FOR ZERO 806 030651 003 02 0 00 000301 ER3 AC,301 ;FETCH OR STORE AC FAILED 807 030652 332 00 0 00 000003 SKIPE AC+1 ;TEST AC+1 FOR ZERO 808 030653 004 03 0 00 000301 ER4 AC+1,301 ;FETCH OR STORE AC+1 FAILED 809 030654 321 04 0 00 030646 JUMPL AC+2,E300 ;LOOP ON ERROR SWITCH 810 811 030655 474 01 0 00 000000 E400: SETO AC-1, ;SET UP FOR COMPARISON 812 030656 477 02 0 00 000003 SETOB AC,AC+1 ;SET AC,AC+1 813 030657 245 02 0 00 000000 ROTC AC,0 ;*ROTATE COMBINED LEFT ZERO TIMES 814 030660 312 02 0 00 000001 CAME AC,AC-1 ;TEST AC FOR A -1 815 030661 003 02 0 00 000401 ER3 AC,401 ;FETCH OR STORE AC FAILED 816 030662 312 03 0 00 000001 CAME AC+1,AC-1 ;TEST AC+1 FOR A -1 817 030663 004 03 0 00 000401 ER4 AC+1,401 ;FETCH OR STORE AC+1 FAILED 818 030664 321 04 0 00 030655 JUMPL AC+2,E400 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS SEQ 0032 819 ;TEST FETCH,STORE AND DECODE 820 ;TEST THE ABILITY OF LSH, LSHC TO FETCH AND STORE 821 ;AC,AC+1 822 ;TESTING IS ACCOMPLISHED BY SHIFTING ZERO TIMES ALL 823 ;ZERO'S ALL ONE'S 824 ;OPERANDS SELECTED ARE LEAST AFFECTED BY 825 ;INADVERTENT SHIFTING 826 ;FAILURE OF A SC BIT TO SET,OR SC TO 827 ;COUNT WILL RESULT IN LOOPING 828 829 000003 AC=3 830 SAVEAC (1,1)^ 831 030665 201 05 0 00 030665 MOVEI AC+2,. ;SAVE TEST PC 832 030666 202 05 0 00 030051 MOVEM AC+2,TESTPC 833 030667 201 05 0 00 000005 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 834 030670 202 05 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 835 836 030671 400 03 0 00 000000 E500: SETZ AC, ;CLEAR AC 837 030672 242 03 0 00 000000 LSH AC,0 ;*SHIFT LEFT ZERO TIMES 838 030673 332 00 0 00 000003 SKIPE AC ;TEST AC FOR ZERO 839 030674 003 03 0 00 000501 ER3 AC,501 ;FETCH OR STORE AC FAILED 840 030675 321 05 0 00 030671 JUMPL AC+2,E500 ;LOOP ON ERROR SWITCH 841 842 030676 477 03 0 00 000002 E600: SETOB AC,AC-1 ;SET AC,AC-1 FOR COMPARE 843 030677 242 03 0 00 000000 LSH AC,0 ;*SHIFT LEFT ZERO TIMES 844 030700 312 03 0 00 000002 CAME AC,AC-1 ;TEST AC FOR -1 845 030701 003 03 0 00 000601 ER3 AC,601 ;FETCH OR STORE AC FAILED 846 030702 321 05 0 00 030676 JUMPL AC+2,E600 ;LOOP ON ERROR SWITCH 847 848 000014 AC=14 849 SAVEAC (1,1)^ 850 030703 201 16 0 00 030703 MOVEI AC+2,. ;SAVE TEST PC 851 030704 202 16 0 00 030051 MOVEM AC+2,TESTPC 852 030705 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 853 030706 202 16 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 854 855 030707 403 14 0 00 000015 E700: SETZB AC,AC+1 ;CLEAR AC,AC+1 856 030710 246 14 0 00 000000 LSHC AC,0 ;*SHIFT COMBINED LEFT ZERO TIMES 857 030711 332 00 0 00 000014 SKIPE AC ;TEST AC FOR 0 858 030712 003 14 0 00 000701 ER3 AC,701 ;FETCH OR STORE AC FAILED 859 030713 332 00 0 00 000015 SKIPE AC+1 ;TEST AC+1 FOR 0 860 030714 004 15 0 00 000701 ER4 AC+1,701 ;FETCH OR STORE AC+1 FAILED 861 030715 321 16 0 00 030707 JUMPL AC+2,E700 ;LOOP ON ERROR SWITCH 862 863 030716 474 13 0 00 000000 E1000: SETO AC-1, ;SET UP FOR COMPARISON 864 030717 477 14 0 00 000015 SETOB AC,AC+1 ;SET AC,AC+1 865 030720 246 14 0 00 000000 LSHC AC,0 ;*SHIFT COMBINED LEFT ZERO TIMES 866 030721 312 14 0 00 000013 CAME AC,AC-1 ;TEST AC FOR -1 867 030722 003 14 0 00 001001 ER3 AC,1001 ;FETCH OR STORE AC FAILED 868 030723 312 15 0 00 000013 CAME AC+1,AC-1 ;TEST AC+1 FOR -1 869 030724 004 15 0 00 001001 ER4 AC+1,1001 ;FETCH OR STORE AC+1 FAILED 870 030725 321 16 0 00 030716 JUMPL AC+2,E1000 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS SEQ 0033 871 ;TEST FETCH,STORE AND DECODE 872 ;TEST THE ABILITY OF ASH, ASHC TO FETCH AND STORE 873 ;AC,AC+1 874 ;TESTING IS ACCOMPLISHED BY SHIFTING ZERO TIMES ALL 875 ;ZERO'S ALL ONES 876 ;OPERANDS SELECTED ARE LEAST AFFECTED BY 877 ;INADVERTENT SHIFTING 878 ;FAILURE OF A SC BIT TO SET,OR SC TO 879 ;COUNT WILL RESULT IN LOOPING 880 881 000013 AC=13 882 SAVEAC (1,1)^ 883 030726 201 15 0 00 030726 MOVEI AC+2,. ;SAVE TEST PC 884 030727 202 15 0 00 030051 MOVEM AC+2,TESTPC 885 030730 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 886 030731 202 15 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 887 888 030732 400 13 0 00 000000 E1100: SETZ AC, ;CLEAR AC 889 030733 240 13 0 00 000000 ASH AC,0 ;*SHIFT LEFT ZERO TIMES 890 030734 332 00 0 00 000013 SKIPE AC ;TEST AC FOR ZERO 891 030735 003 13 0 00 001101 ER3 AC,1101 ;FETCH OR STORE AC FAILED 892 030736 321 15 0 00 030732 JUMPL AC+2,E1100 ;LOOP ON ERROR SWITCH 893 894 030737 477 13 0 00 000012 E1200: SETOB AC,AC-1 ;SET AC,AC-1 FOR COMPARE 895 030740 240 13 0 00 000000 ASH AC,0 ;*SHIFT LEFT ZERO TIMES 896 030741 312 13 0 00 000012 CAME AC,AC-1 ;TEST AC FOR A -1 897 030742 003 13 0 00 001201 ER3 AC,1201 ;FETCH OR STORE AC FAILED 898 030743 321 15 0 00 030737 JUMPL AC+2,E1200 ;LOOP ON ERROR SWITCH 899 900 000012 AC=12 901 SAVEAC (1,1)^ 902 030744 201 14 0 00 030744 MOVEI AC+2,. ;SAVE TEST PC 903 030745 202 14 0 00 030051 MOVEM AC+2,TESTPC 904 030746 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 905 030747 202 14 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 906 907 030750 403 12 0 00 000013 E1300: SETZB AC,AC+1 ;CLEAR AC,AC+1 908 030751 244 12 0 00 000000 ASHC AC,0 ;*SHIFT COMBINED LEFT ZERO TIMES 909 030752 332 00 0 00 000012 SKIPE AC ;TEST AC FOR 0 910 030753 003 12 0 00 001301 ER3 AC,1301 ;FETCH OR STORE AC FAILED 911 030754 332 00 0 00 000013 SKIPE AC+1 ;TEST AC+1 FOR 0 912 030755 004 13 0 00 001301 ER4 AC+1,1301 ;FETCH OR STORE AC+1 FAILED 913 030756 321 14 0 00 030750 JUMPL AC+2,E1300 ;LOOP ON ERROR SWITCH 914 915 030757 474 11 0 00 000000 E1400: SETO AC-1, ;SET UP FOR COMPARISON 916 030760 477 12 0 00 000013 SETOB AC,AC+1 ;SET AC,AC+1 917 030761 244 12 0 00 000000 ASHC AC,0 ;*SHIFT COMBINED LEFT ZERO TIMES 918 030762 312 12 0 00 000011 CAME AC,AC-1 ;TEST AC FOR A -1 919 030763 003 12 0 00 001401 ER3 AC,1401 ;FETCH OR STORE AC FAILED 920 030764 312 13 0 00 000011 CAME AC+1,AC-1 ;TEST AC+1 FOR A -1 921 030765 004 13 0 00 001401 ER4 AC+1,1401 ;FETCH OR STORE AC+1 FAILED 922 030766 321 14 0 00 030757 JUMPL AC+2,E1400 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - CHECK SIGN BIT OF AC+1 FOR ASHC SEQ 0034 923 SUBTTL DIAGNOSTIC SECTION - CHECK SIGN BIT OF AC+1 FOR ASHC 924 925 ;VERIFY THAT THE SIGN BIT OF AC+1 IS NOT MADE TO AGREE WITH THE SIGN BIT OF AC 926 ;WHEN THE 'E' FIELD OF ASHC SECIFIES A SHIFT OF ZERO BIT POSITIONS. 927 ;HENCE, C(AC+1) IS NOT ALTERE BY 'ASHC AC,0'. 928 ;CHECK THIS WHEN THE SIGN BIT OF AC IS ZERO AND THE SIGN BIT OF AC+1 IS ONE. 929 930 SR2 (443,0,0,-1,-1,0,0,-1,-1,ASHC,0)^ 931 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 932 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD -1,-1] 0 BIT POSITIONS AND 933 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 934 ;[XWD -1,-1] 935 936 030767 200 12 0 00 041612 E44300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 937 030770 200 13 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 938 030771 244 12 0 00 000000 ASHC AC,0 ;*SHIFT/ROTATE COMBINED 0 PLACES 939 030772 312 12 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 940 030773 003 12 0 00 044301 ER3 AC,44301 ;RESULT IN AC IS INCORRECT 941 030774 312 13 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 942 030775 004 13 0 00 044301 ER4 AC+1,44301 ;RESULT IN AC+1 IS INCORRECT 943 030776 321 14 0 00 030767 JUMPL AC+2,E44300 ;LOOP ON ERROR SWITCH^ 944 945 ;VERIFY THAT THE SIGN BIT OF AC+1 IS NOT MADE TO AGREE WITH THE SIGN BIT OF AC 946 ;WHEN THE 'E' FIELD OF ASHC SECIFIES A SHIFT OF ZERO BIT POSITIONS. 947 ;HENCE, C(AC+1) IS NOT ALTERE BY 'ASHC AC,0'. 948 ;CHECK THIS WHEN THE SIGN BIT OF AC IS ONE AND THE SIGN BIT OF AC+1 IS ZERO. 949 SR2 (444,-1,-1,0,0,-1,-1,0,0,ASHC,0)^ 950 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 951 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 0,0] 0 BIT POSITIONS AND 952 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 953 ;[XWD 0,0] 954 955 030777 200 12 0 00 041613 E44400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 956 031000 200 13 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 957 031001 244 12 0 00 000000 ASHC AC,0 ;*SHIFT/ROTATE COMBINED 0 PLACES 958 031002 312 12 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 959 031003 003 12 0 00 044401 ER3 AC,44401 ;RESULT IN AC IS INCORRECT 960 031004 312 13 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 961 031005 004 13 0 00 044401 ER4 AC+1,44401 ;RESULT IN AC+1 IS INCORRECT 962 031006 321 14 0 00 030777 JUMPL AC+2,E44400 ;LOOP ON ERROR SWITCH^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0035 963 SUBTTL DIAGNOSTIC SECTION - TEST MQ-ADDER GATING 964 965 000010 AC=10 966 SAVEAC (1,1)^ 967 031007 201 12 0 00 031007 MOVEI AC+2,. ;SAVE TEST PC 968 031010 202 12 0 00 030051 MOVEM AC+2,TESTPC 969 031011 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 970 031012 202 12 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 971 972 001500 SN=1500 973 000000 ZZ=0 974 E1500: REPEAT ^D18,< ;CHECK AC+1 RIGHT 975 976 ;VERIFY MQ-AD GATING 977 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 978 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 979 ;REPEAT FOR ALL 36 BITS OF MQ 980 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 981 SN=SN+1 982 ZZ=ZZ+ZZ ;TESTED BIT 983 IFE ZZ, 984 SETZM AC ;CLEAR AC 985 MOVEI AC+1,ZZ ;INITIALIZE AC+1 986 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 987 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 988 ER4 AC+1,SN ;MQ-AD GATE FAILED 989 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 990 > 991 ;CHECK AC+1 RIGHT 992 993 ;VERIFY MQ-AD GATING 994 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 995 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 996 ;REPEAT FOR ALL 36 BITS OF MQ 997 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 998 001501 SN=SN+1 999 000000 ZZ=ZZ+ZZ ;TESTED BIT 1000 000001 IFE ZZ, 1001 031013 402 00 0 00 000010 SETZM AC ;CLEAR AC 1002 031014 201 11 0 00 000001 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1003 031015 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1004 031016 302 11 0 00 000001 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1005 031017 004 11 0 00 001501 ER4 AC+1,SN ;MQ-AD GATE FAILED 1006 031020 321 12 0 00 031013 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1007 1008 ;CHECK AC+1 RIGHT 1009 1010 ;VERIFY MQ-AD GATING 1011 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1012 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1013 ;REPEAT FOR ALL 36 BITS OF MQ 1014 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1015 001502 SN=SN+1 1016 000002 ZZ=ZZ+ZZ ;TESTED BIT 1017 IFE ZZ, DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0036 1018 031021 402 00 0 00 000010 SETZM AC ;CLEAR AC 1019 031022 201 11 0 00 000002 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1020 031023 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1021 031024 302 11 0 00 000002 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1022 031025 004 11 0 00 001502 ER4 AC+1,SN ;MQ-AD GATE FAILED 1023 031026 321 12 0 00 031021 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1024 1025 ;CHECK AC+1 RIGHT 1026 1027 ;VERIFY MQ-AD GATING 1028 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1029 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1030 ;REPEAT FOR ALL 36 BITS OF MQ 1031 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1032 001503 SN=SN+1 1033 000004 ZZ=ZZ+ZZ ;TESTED BIT 1034 IFE ZZ, 1035 031027 402 00 0 00 000010 SETZM AC ;CLEAR AC 1036 031030 201 11 0 00 000004 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1037 031031 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1038 031032 302 11 0 00 000004 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1039 031033 004 11 0 00 001503 ER4 AC+1,SN ;MQ-AD GATE FAILED 1040 031034 321 12 0 00 031027 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1041 1042 ;CHECK AC+1 RIGHT 1043 1044 ;VERIFY MQ-AD GATING 1045 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1046 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1047 ;REPEAT FOR ALL 36 BITS OF MQ 1048 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1049 001504 SN=SN+1 1050 000010 ZZ=ZZ+ZZ ;TESTED BIT 1051 IFE ZZ, 1052 031035 402 00 0 00 000010 SETZM AC ;CLEAR AC 1053 031036 201 11 0 00 000010 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1054 031037 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1055 031040 302 11 0 00 000010 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1056 031041 004 11 0 00 001504 ER4 AC+1,SN ;MQ-AD GATE FAILED 1057 031042 321 12 0 00 031035 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1058 1059 ;CHECK AC+1 RIGHT 1060 1061 ;VERIFY MQ-AD GATING 1062 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1063 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1064 ;REPEAT FOR ALL 36 BITS OF MQ 1065 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1066 001505 SN=SN+1 1067 000020 ZZ=ZZ+ZZ ;TESTED BIT 1068 IFE ZZ, 1069 031043 402 00 0 00 000010 SETZM AC ;CLEAR AC 1070 031044 201 11 0 00 000020 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1071 031045 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1072 031046 302 11 0 00 000020 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0037 1073 031047 004 11 0 00 001505 ER4 AC+1,SN ;MQ-AD GATE FAILED 1074 031050 321 12 0 00 031043 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1075 1076 ;CHECK AC+1 RIGHT 1077 1078 ;VERIFY MQ-AD GATING 1079 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1080 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1081 ;REPEAT FOR ALL 36 BITS OF MQ 1082 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1083 001506 SN=SN+1 1084 000040 ZZ=ZZ+ZZ ;TESTED BIT 1085 IFE ZZ, 1086 031051 402 00 0 00 000010 SETZM AC ;CLEAR AC 1087 031052 201 11 0 00 000040 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1088 031053 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1089 031054 302 11 0 00 000040 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1090 031055 004 11 0 00 001506 ER4 AC+1,SN ;MQ-AD GATE FAILED 1091 031056 321 12 0 00 031051 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1092 1093 ;CHECK AC+1 RIGHT 1094 1095 ;VERIFY MQ-AD GATING 1096 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1097 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1098 ;REPEAT FOR ALL 36 BITS OF MQ 1099 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1100 001507 SN=SN+1 1101 000100 ZZ=ZZ+ZZ ;TESTED BIT 1102 IFE ZZ, 1103 031057 402 00 0 00 000010 SETZM AC ;CLEAR AC 1104 031060 201 11 0 00 000100 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1105 031061 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1106 031062 302 11 0 00 000100 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1107 031063 004 11 0 00 001507 ER4 AC+1,SN ;MQ-AD GATE FAILED 1108 031064 321 12 0 00 031057 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1109 1110 ;CHECK AC+1 RIGHT 1111 1112 ;VERIFY MQ-AD GATING 1113 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1114 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1115 ;REPEAT FOR ALL 36 BITS OF MQ 1116 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1117 001510 SN=SN+1 1118 000200 ZZ=ZZ+ZZ ;TESTED BIT 1119 IFE ZZ, 1120 031065 402 00 0 00 000010 SETZM AC ;CLEAR AC 1121 031066 201 11 0 00 000200 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1122 031067 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1123 031070 302 11 0 00 000200 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1124 031071 004 11 0 00 001510 ER4 AC+1,SN ;MQ-AD GATE FAILED 1125 031072 321 12 0 00 031065 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1126 1127 ;CHECK AC+1 RIGHT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0038 1128 1129 ;VERIFY MQ-AD GATING 1130 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1131 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1132 ;REPEAT FOR ALL 36 BITS OF MQ 1133 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1134 001511 SN=SN+1 1135 000400 ZZ=ZZ+ZZ ;TESTED BIT 1136 IFE ZZ, 1137 031073 402 00 0 00 000010 SETZM AC ;CLEAR AC 1138 031074 201 11 0 00 000400 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1139 031075 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1140 031076 302 11 0 00 000400 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1141 031077 004 11 0 00 001511 ER4 AC+1,SN ;MQ-AD GATE FAILED 1142 031100 321 12 0 00 031073 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1143 1144 ;CHECK AC+1 RIGHT 1145 1146 ;VERIFY MQ-AD GATING 1147 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1148 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1149 ;REPEAT FOR ALL 36 BITS OF MQ 1150 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1151 001512 SN=SN+1 1152 001000 ZZ=ZZ+ZZ ;TESTED BIT 1153 IFE ZZ, 1154 031101 402 00 0 00 000010 SETZM AC ;CLEAR AC 1155 031102 201 11 0 00 001000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1156 031103 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1157 031104 302 11 0 00 001000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1158 031105 004 11 0 00 001512 ER4 AC+1,SN ;MQ-AD GATE FAILED 1159 031106 321 12 0 00 031101 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1160 1161 ;CHECK AC+1 RIGHT 1162 1163 ;VERIFY MQ-AD GATING 1164 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1165 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1166 ;REPEAT FOR ALL 36 BITS OF MQ 1167 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1168 001513 SN=SN+1 1169 002000 ZZ=ZZ+ZZ ;TESTED BIT 1170 IFE ZZ, 1171 031107 402 00 0 00 000010 SETZM AC ;CLEAR AC 1172 031110 201 11 0 00 002000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1173 031111 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1174 031112 302 11 0 00 002000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1175 031113 004 11 0 00 001513 ER4 AC+1,SN ;MQ-AD GATE FAILED 1176 031114 321 12 0 00 031107 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1177 1178 ;CHECK AC+1 RIGHT 1179 1180 ;VERIFY MQ-AD GATING 1181 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1182 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0039 1183 ;REPEAT FOR ALL 36 BITS OF MQ 1184 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1185 001514 SN=SN+1 1186 004000 ZZ=ZZ+ZZ ;TESTED BIT 1187 IFE ZZ, 1188 031115 402 00 0 00 000010 SETZM AC ;CLEAR AC 1189 031116 201 11 0 00 004000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1190 031117 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1191 031120 302 11 0 00 004000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1192 031121 004 11 0 00 001514 ER4 AC+1,SN ;MQ-AD GATE FAILED 1193 031122 321 12 0 00 031115 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1194 1195 ;CHECK AC+1 RIGHT 1196 1197 ;VERIFY MQ-AD GATING 1198 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1199 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1200 ;REPEAT FOR ALL 36 BITS OF MQ 1201 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1202 001515 SN=SN+1 1203 010000 ZZ=ZZ+ZZ ;TESTED BIT 1204 IFE ZZ, 1205 031123 402 00 0 00 000010 SETZM AC ;CLEAR AC 1206 031124 201 11 0 00 010000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1207 031125 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1208 031126 302 11 0 00 010000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1209 031127 004 11 0 00 001515 ER4 AC+1,SN ;MQ-AD GATE FAILED 1210 031130 321 12 0 00 031123 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1211 1212 ;CHECK AC+1 RIGHT 1213 1214 ;VERIFY MQ-AD GATING 1215 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1216 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1217 ;REPEAT FOR ALL 36 BITS OF MQ 1218 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1219 001516 SN=SN+1 1220 020000 ZZ=ZZ+ZZ ;TESTED BIT 1221 IFE ZZ, 1222 031131 402 00 0 00 000010 SETZM AC ;CLEAR AC 1223 031132 201 11 0 00 020000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1224 031133 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1225 031134 302 11 0 00 020000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1226 031135 004 11 0 00 001516 ER4 AC+1,SN ;MQ-AD GATE FAILED 1227 031136 321 12 0 00 031131 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1228 1229 ;CHECK AC+1 RIGHT 1230 1231 ;VERIFY MQ-AD GATING 1232 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1233 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1234 ;REPEAT FOR ALL 36 BITS OF MQ 1235 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1236 001517 SN=SN+1 1237 040000 ZZ=ZZ+ZZ ;TESTED BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0040 1238 IFE ZZ, 1239 031137 402 00 0 00 000010 SETZM AC ;CLEAR AC 1240 031140 201 11 0 00 040000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1241 031141 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1242 031142 302 11 0 00 040000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1243 031143 004 11 0 00 001517 ER4 AC+1,SN ;MQ-AD GATE FAILED 1244 031144 321 12 0 00 031137 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1245 1246 ;CHECK AC+1 RIGHT 1247 1248 ;VERIFY MQ-AD GATING 1249 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1250 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1251 ;REPEAT FOR ALL 36 BITS OF MQ 1252 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1253 001520 SN=SN+1 1254 100000 ZZ=ZZ+ZZ ;TESTED BIT 1255 IFE ZZ, 1256 031145 402 00 0 00 000010 SETZM AC ;CLEAR AC 1257 031146 201 11 0 00 100000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1258 031147 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1259 031150 302 11 0 00 100000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1260 031151 004 11 0 00 001520 ER4 AC+1,SN ;MQ-AD GATE FAILED 1261 031152 321 12 0 00 031145 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1262 1263 ;CHECK AC+1 RIGHT 1264 1265 ;VERIFY MQ-AD GATING 1266 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1267 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1268 ;REPEAT FOR ALL 36 BITS OF MQ 1269 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1270 001521 SN=SN+1 1271 200000 ZZ=ZZ+ZZ ;TESTED BIT 1272 IFE ZZ, 1273 031153 402 00 0 00 000010 SETZM AC ;CLEAR AC 1274 031154 201 11 0 00 200000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1275 031155 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS 1276 031156 302 11 0 00 200000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1277 031157 004 11 0 00 001521 ER4 AC+1,SN ;MQ-AD GATE FAILED 1278 031160 321 12 0 00 031153 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1279 1280 ;CHECK AC+1 RIGHT 1281 1282 ;VERIFY MQ-AD GATING 1283 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1284 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1285 ;REPEAT FOR ALL 36 BITS OF MQ 1286 ;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA 1287 001522 SN=SN+1 1288 400000 ZZ=ZZ+ZZ ;TESTED BIT 1289 IFE ZZ, 1290 031161 402 00 0 00 000010 SETZM AC ;CLEAR AC 1291 031162 201 11 0 00 400000 MOVEI AC+1,ZZ ;INITIALIZE AC+1 1292 031163 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSIOTIONS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0041 1293 031164 302 11 0 00 400000 CAIE AC+1,ZZ ;CHECK BIT (N) OF AC+1 1294 031165 004 11 0 00 001522 ER4 AC+1,SN ;MQ-AD GATE FAILED 1295 031166 321 12 0 00 031161 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1296 1297 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0042 1298 000000 ZZ=0 1299 REPEAT ^D18,< ;CHECK AC+1 LEFT 1300 1301 ;VERIFY MQ-AD GATING 1302 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1303 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1304 ;REPEAT FOR ALL 36 BITS OF MQ 1305 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1306 SN=SN+1 1307 ZZ=ZZ+ZZ ;TESTED BIT 1308 IFE ZZ, 1309 SETZM AC ;CLEAR AC 1310 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1311 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1312 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1313 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1314 ER4 AC+1,SN ;MQ-AD GATE FAILED 1315 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1316 > 1317 ;CHECK AC+1 LEFT 1318 1319 ;VERIFY MQ-AD GATING 1320 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1321 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1322 ;REPEAT FOR ALL 36 BITS OF MQ 1323 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1324 001523 SN=SN+1 1325 000000 ZZ=ZZ+ZZ ;TESTED BIT 1326 000001 IFE ZZ, 1327 031167 402 00 0 00 000010 SETZM AC ;CLEAR AC 1328 031170 205 11 0 00 000001 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1329 031171 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1330 031172 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1331 031173 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1332 031174 004 11 0 00 001523 ER4 AC+1,SN ;MQ-AD GATE FAILED 1333 031175 321 12 0 00 031170 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1334 1335 ;CHECK AC+1 LEFT 1336 1337 ;VERIFY MQ-AD GATING 1338 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1339 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1340 ;REPEAT FOR ALL 36 BITS OF MQ 1341 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1342 001524 SN=SN+1 1343 000002 ZZ=ZZ+ZZ ;TESTED BIT 1344 IFE ZZ, 1345 031176 402 00 0 00 000010 SETZM AC ;CLEAR AC 1346 031177 205 11 0 00 000002 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1347 031200 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1348 031201 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1349 031202 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1350 031203 004 11 0 00 001524 ER4 AC+1,SN ;MQ-AD GATE FAILED 1351 031204 321 12 0 00 031177 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1352 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0043 1353 ;CHECK AC+1 LEFT 1354 1355 ;VERIFY MQ-AD GATING 1356 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1357 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1358 ;REPEAT FOR ALL 36 BITS OF MQ 1359 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1360 001525 SN=SN+1 1361 000004 ZZ=ZZ+ZZ ;TESTED BIT 1362 IFE ZZ, 1363 031205 402 00 0 00 000010 SETZM AC ;CLEAR AC 1364 031206 205 11 0 00 000004 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1365 031207 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1366 031210 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1367 031211 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1368 031212 004 11 0 00 001525 ER4 AC+1,SN ;MQ-AD GATE FAILED 1369 031213 321 12 0 00 031206 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1370 1371 ;CHECK AC+1 LEFT 1372 1373 ;VERIFY MQ-AD GATING 1374 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1375 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1376 ;REPEAT FOR ALL 36 BITS OF MQ 1377 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1378 001526 SN=SN+1 1379 000010 ZZ=ZZ+ZZ ;TESTED BIT 1380 IFE ZZ, 1381 031214 402 00 0 00 000010 SETZM AC ;CLEAR AC 1382 031215 205 11 0 00 000010 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1383 031216 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1384 031217 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1385 031220 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1386 031221 004 11 0 00 001526 ER4 AC+1,SN ;MQ-AD GATE FAILED 1387 031222 321 12 0 00 031215 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1388 1389 ;CHECK AC+1 LEFT 1390 1391 ;VERIFY MQ-AD GATING 1392 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1393 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1394 ;REPEAT FOR ALL 36 BITS OF MQ 1395 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1396 001527 SN=SN+1 1397 000020 ZZ=ZZ+ZZ ;TESTED BIT 1398 IFE ZZ, 1399 031223 402 00 0 00 000010 SETZM AC ;CLEAR AC 1400 031224 205 11 0 00 000020 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1401 031225 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1402 031226 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1403 031227 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1404 031230 004 11 0 00 001527 ER4 AC+1,SN ;MQ-AD GATE FAILED 1405 031231 321 12 0 00 031224 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1406 1407 ;CHECK AC+1 LEFT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0044 1408 1409 ;VERIFY MQ-AD GATING 1410 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1411 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1412 ;REPEAT FOR ALL 36 BITS OF MQ 1413 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1414 001530 SN=SN+1 1415 000040 ZZ=ZZ+ZZ ;TESTED BIT 1416 IFE ZZ, 1417 031232 402 00 0 00 000010 SETZM AC ;CLEAR AC 1418 031233 205 11 0 00 000040 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1419 031234 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1420 031235 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1421 031236 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1422 031237 004 11 0 00 001530 ER4 AC+1,SN ;MQ-AD GATE FAILED 1423 031240 321 12 0 00 031233 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1424 1425 ;CHECK AC+1 LEFT 1426 1427 ;VERIFY MQ-AD GATING 1428 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1429 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1430 ;REPEAT FOR ALL 36 BITS OF MQ 1431 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1432 001531 SN=SN+1 1433 000100 ZZ=ZZ+ZZ ;TESTED BIT 1434 IFE ZZ, 1435 031241 402 00 0 00 000010 SETZM AC ;CLEAR AC 1436 031242 205 11 0 00 000100 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1437 031243 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1438 031244 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1439 031245 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1440 031246 004 11 0 00 001531 ER4 AC+1,SN ;MQ-AD GATE FAILED 1441 031247 321 12 0 00 031242 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1442 1443 ;CHECK AC+1 LEFT 1444 1445 ;VERIFY MQ-AD GATING 1446 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1447 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1448 ;REPEAT FOR ALL 36 BITS OF MQ 1449 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1450 001532 SN=SN+1 1451 000200 ZZ=ZZ+ZZ ;TESTED BIT 1452 IFE ZZ, 1453 031250 402 00 0 00 000010 SETZM AC ;CLEAR AC 1454 031251 205 11 0 00 000200 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1455 031252 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1456 031253 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1457 031254 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1458 031255 004 11 0 00 001532 ER4 AC+1,SN ;MQ-AD GATE FAILED 1459 031256 321 12 0 00 031251 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1460 1461 ;CHECK AC+1 LEFT 1462 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0045 1463 ;VERIFY MQ-AD GATING 1464 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1465 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1466 ;REPEAT FOR ALL 36 BITS OF MQ 1467 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1468 001533 SN=SN+1 1469 000400 ZZ=ZZ+ZZ ;TESTED BIT 1470 IFE ZZ, 1471 031257 402 00 0 00 000010 SETZM AC ;CLEAR AC 1472 031260 205 11 0 00 000400 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1473 031261 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1474 031262 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1475 031263 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1476 031264 004 11 0 00 001533 ER4 AC+1,SN ;MQ-AD GATE FAILED 1477 031265 321 12 0 00 031260 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1478 1479 ;CHECK AC+1 LEFT 1480 1481 ;VERIFY MQ-AD GATING 1482 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1483 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1484 ;REPEAT FOR ALL 36 BITS OF MQ 1485 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1486 001534 SN=SN+1 1487 001000 ZZ=ZZ+ZZ ;TESTED BIT 1488 IFE ZZ, 1489 031266 402 00 0 00 000010 SETZM AC ;CLEAR AC 1490 031267 205 11 0 00 001000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1491 031270 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1492 031271 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1493 031272 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1494 031273 004 11 0 00 001534 ER4 AC+1,SN ;MQ-AD GATE FAILED 1495 031274 321 12 0 00 031267 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1496 1497 ;CHECK AC+1 LEFT 1498 1499 ;VERIFY MQ-AD GATING 1500 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1501 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1502 ;REPEAT FOR ALL 36 BITS OF MQ 1503 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1504 001535 SN=SN+1 1505 002000 ZZ=ZZ+ZZ ;TESTED BIT 1506 IFE ZZ, 1507 031275 402 00 0 00 000010 SETZM AC ;CLEAR AC 1508 031276 205 11 0 00 002000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1509 031277 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1510 031300 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1511 031301 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1512 031302 004 11 0 00 001535 ER4 AC+1,SN ;MQ-AD GATE FAILED 1513 031303 321 12 0 00 031276 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1514 1515 ;CHECK AC+1 LEFT 1516 1517 ;VERIFY MQ-AD GATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0046 1518 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1519 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1520 ;REPEAT FOR ALL 36 BITS OF MQ 1521 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1522 001536 SN=SN+1 1523 004000 ZZ=ZZ+ZZ ;TESTED BIT 1524 IFE ZZ, 1525 031304 402 00 0 00 000010 SETZM AC ;CLEAR AC 1526 031305 205 11 0 00 004000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1527 031306 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1528 031307 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1529 031310 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1530 031311 004 11 0 00 001536 ER4 AC+1,SN ;MQ-AD GATE FAILED 1531 031312 321 12 0 00 031305 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1532 1533 ;CHECK AC+1 LEFT 1534 1535 ;VERIFY MQ-AD GATING 1536 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1537 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1538 ;REPEAT FOR ALL 36 BITS OF MQ 1539 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1540 001537 SN=SN+1 1541 010000 ZZ=ZZ+ZZ ;TESTED BIT 1542 IFE ZZ, 1543 031313 402 00 0 00 000010 SETZM AC ;CLEAR AC 1544 031314 205 11 0 00 010000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1545 031315 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1546 031316 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1547 031317 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1548 031320 004 11 0 00 001537 ER4 AC+1,SN ;MQ-AD GATE FAILED 1549 031321 321 12 0 00 031314 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1550 1551 ;CHECK AC+1 LEFT 1552 1553 ;VERIFY MQ-AD GATING 1554 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1555 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1556 ;REPEAT FOR ALL 36 BITS OF MQ 1557 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1558 001540 SN=SN+1 1559 020000 ZZ=ZZ+ZZ ;TESTED BIT 1560 IFE ZZ, 1561 031322 402 00 0 00 000010 SETZM AC ;CLEAR AC 1562 031323 205 11 0 00 020000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1563 031324 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1564 031325 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1565 031326 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1566 031327 004 11 0 00 001540 ER4 AC+1,SN ;MQ-AD GATE FAILED 1567 031330 321 12 0 00 031323 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1568 1569 ;CHECK AC+1 LEFT 1570 1571 ;VERIFY MQ-AD GATING 1572 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0047 1573 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1574 ;REPEAT FOR ALL 36 BITS OF MQ 1575 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1576 001541 SN=SN+1 1577 040000 ZZ=ZZ+ZZ ;TESTED BIT 1578 IFE ZZ, 1579 031331 402 00 0 00 000010 SETZM AC ;CLEAR AC 1580 031332 205 11 0 00 040000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1581 031333 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1582 031334 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1583 031335 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1584 031336 004 11 0 00 001541 ER4 AC+1,SN ;MQ-AD GATE FAILED 1585 031337 321 12 0 00 031332 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1586 1587 ;CHECK AC+1 LEFT 1588 1589 ;VERIFY MQ-AD GATING 1590 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1591 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1592 ;REPEAT FOR ALL 36 BITS OF MQ 1593 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1594 001542 SN=SN+1 1595 100000 ZZ=ZZ+ZZ ;TESTED BIT 1596 IFE ZZ, 1597 031340 402 00 0 00 000010 SETZM AC ;CLEAR AC 1598 031341 205 11 0 00 100000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1599 031342 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1600 031343 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1601 031344 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1602 031345 004 11 0 00 001542 ER4 AC+1,SN ;MQ-AD GATE FAILED 1603 031346 321 12 0 00 031341 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1604 1605 ;CHECK AC+1 LEFT 1606 1607 ;VERIFY MQ-AD GATING 1608 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1609 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 1610 ;REPEAT FOR ALL 36 BITS OF MQ 1611 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1612 001543 SN=SN+1 1613 200000 ZZ=ZZ+ZZ ;TESTED BIT 1614 IFE ZZ, 1615 031347 402 00 0 00 000010 SETZM AC ;CLEAR AC 1616 031350 205 11 0 00 200000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1617 031351 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1618 031352 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1619 031353 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1620 031354 004 11 0 00 001543 ER4 AC+1,SN ;MQ-AD GATE FAILED 1621 031355 321 12 0 00 031350 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1622 1623 ;CHECK AC+1 LEFT 1624 1625 ;VERIFY MQ-AD GATING 1626 ;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1 1627 ;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 6-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0048 1628 ;REPEAT FOR ALL 36 BITS OF MQ 1629 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1630 001544 SN=SN+1 1631 400000 ZZ=ZZ+ZZ ;TESTED BIT 1632 IFE ZZ, 1633 031356 402 00 0 00 000010 SETZM AC ;CLEAR AC 1634 031357 205 11 0 00 400000 MOVSI AC+1,ZZ ;INITIALIZE AC+1 1635 031360 200 07 0 00 000011 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1636 031361 245 10 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1637 031362 312 11 0 00 000007 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1638 031363 004 11 0 00 001544 ER4 AC+1,SN ;MQ-AD GATE FAILED 1639 031364 321 12 0 00 031357 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1640 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0049 1641 000007 AC=7 1642 SAVEAC (1,1)^ 1643 031365 201 11 0 00 031365 MOVEI AC+2,. ;SAVE TEST PC 1644 031366 202 11 0 00 030051 MOVEM AC+2,TESTPC 1645 031367 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1646 031370 202 11 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1647 1648 001600 SN=1600 1649 1650 000000 ZZ=0 1651 1652 E1600: REPEAT ^D18,< ;CHECK AC+1 RIGHT 1653 1654 ;VERIFY MQ-AD GATING 1655 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1656 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1657 ;REPEAT FOR ALL 36 BITS OF MQ 1658 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1659 SN=SN+1 1660 ZZ=ZZ+ZZ+1 ;TESTED BIT 1661 IFE ZZ, 1662 SETOM AC ;INITIALIZE TO ALL ONES 1663 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1664 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1665 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1666 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1667 ER4 AC+1,SN ;MQ-AD GATE FAILED 1668 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1669 > 1670 ;CHECK AC+1 RIGHT 1671 1672 ;VERIFY MQ-AD GATING 1673 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1674 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1675 ;REPEAT FOR ALL 36 BITS OF MQ 1676 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1677 001601 SN=SN+1 1678 000001 ZZ=ZZ+ZZ+1 ;TESTED BIT 1679 IFE ZZ, 1680 031371 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1681 031372 561 10 0 00 000001 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1682 031373 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1683 031374 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1684 031375 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1685 031376 004 10 0 00 001601 ER4 AC+1,SN ;MQ-AD GATE FAILED 1686 031377 321 11 0 00 031371 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1687 1688 ;CHECK AC+1 RIGHT 1689 1690 ;VERIFY MQ-AD GATING 1691 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1692 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1693 ;REPEAT FOR ALL 36 BITS OF MQ 1694 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1695 001602 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0050 1696 000003 ZZ=ZZ+ZZ+1 ;TESTED BIT 1697 IFE ZZ, 1698 031400 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1699 031401 561 10 0 00 000003 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1700 031402 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1701 031403 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1702 031404 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1703 031405 004 10 0 00 001602 ER4 AC+1,SN ;MQ-AD GATE FAILED 1704 031406 321 11 0 00 031400 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1705 1706 ;CHECK AC+1 RIGHT 1707 1708 ;VERIFY MQ-AD GATING 1709 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1710 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1711 ;REPEAT FOR ALL 36 BITS OF MQ 1712 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1713 001603 SN=SN+1 1714 000007 ZZ=ZZ+ZZ+1 ;TESTED BIT 1715 IFE ZZ, 1716 031407 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1717 031410 561 10 0 00 000007 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1718 031411 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1719 031412 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1720 031413 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1721 031414 004 10 0 00 001603 ER4 AC+1,SN ;MQ-AD GATE FAILED 1722 031415 321 11 0 00 031407 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1723 1724 ;CHECK AC+1 RIGHT 1725 1726 ;VERIFY MQ-AD GATING 1727 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1728 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1729 ;REPEAT FOR ALL 36 BITS OF MQ 1730 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1731 001604 SN=SN+1 1732 000017 ZZ=ZZ+ZZ+1 ;TESTED BIT 1733 IFE ZZ, 1734 031416 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1735 031417 561 10 0 00 000017 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1736 031420 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1737 031421 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1738 031422 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1739 031423 004 10 0 00 001604 ER4 AC+1,SN ;MQ-AD GATE FAILED 1740 031424 321 11 0 00 031416 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1741 1742 ;CHECK AC+1 RIGHT 1743 1744 ;VERIFY MQ-AD GATING 1745 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1746 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1747 ;REPEAT FOR ALL 36 BITS OF MQ 1748 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1749 001605 SN=SN+1 1750 000037 ZZ=ZZ+ZZ+1 ;TESTED BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0051 1751 IFE ZZ, 1752 031425 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1753 031426 561 10 0 00 000037 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1754 031427 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1755 031430 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1756 031431 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1757 031432 004 10 0 00 001605 ER4 AC+1,SN ;MQ-AD GATE FAILED 1758 031433 321 11 0 00 031425 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1759 1760 ;CHECK AC+1 RIGHT 1761 1762 ;VERIFY MQ-AD GATING 1763 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1764 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1765 ;REPEAT FOR ALL 36 BITS OF MQ 1766 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1767 001606 SN=SN+1 1768 000077 ZZ=ZZ+ZZ+1 ;TESTED BIT 1769 IFE ZZ, 1770 031434 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1771 031435 561 10 0 00 000077 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1772 031436 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1773 031437 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1774 031440 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1775 031441 004 10 0 00 001606 ER4 AC+1,SN ;MQ-AD GATE FAILED 1776 031442 321 11 0 00 031434 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1777 1778 ;CHECK AC+1 RIGHT 1779 1780 ;VERIFY MQ-AD GATING 1781 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1782 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1783 ;REPEAT FOR ALL 36 BITS OF MQ 1784 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1785 001607 SN=SN+1 1786 000177 ZZ=ZZ+ZZ+1 ;TESTED BIT 1787 IFE ZZ, 1788 031443 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1789 031444 561 10 0 00 000177 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1790 031445 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1791 031446 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1792 031447 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1793 031450 004 10 0 00 001607 ER4 AC+1,SN ;MQ-AD GATE FAILED 1794 031451 321 11 0 00 031443 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1795 1796 ;CHECK AC+1 RIGHT 1797 1798 ;VERIFY MQ-AD GATING 1799 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1800 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1801 ;REPEAT FOR ALL 36 BITS OF MQ 1802 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1803 001610 SN=SN+1 1804 000377 ZZ=ZZ+ZZ+1 ;TESTED BIT 1805 IFE ZZ, DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0052 1806 031452 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1807 031453 561 10 0 00 000377 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1808 031454 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1809 031455 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1810 031456 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1811 031457 004 10 0 00 001610 ER4 AC+1,SN ;MQ-AD GATE FAILED 1812 031460 321 11 0 00 031452 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1813 1814 ;CHECK AC+1 RIGHT 1815 1816 ;VERIFY MQ-AD GATING 1817 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1818 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1819 ;REPEAT FOR ALL 36 BITS OF MQ 1820 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1821 001611 SN=SN+1 1822 000777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1823 IFE ZZ, 1824 031461 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1825 031462 561 10 0 00 000777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1826 031463 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1827 031464 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1828 031465 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1829 031466 004 10 0 00 001611 ER4 AC+1,SN ;MQ-AD GATE FAILED 1830 031467 321 11 0 00 031461 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1831 1832 ;CHECK AC+1 RIGHT 1833 1834 ;VERIFY MQ-AD GATING 1835 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1836 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1837 ;REPEAT FOR ALL 36 BITS OF MQ 1838 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1839 001612 SN=SN+1 1840 001777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1841 IFE ZZ, 1842 031470 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1843 031471 561 10 0 00 001777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1844 031472 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1845 031473 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1846 031474 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1847 031475 004 10 0 00 001612 ER4 AC+1,SN ;MQ-AD GATE FAILED 1848 031476 321 11 0 00 031470 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1849 1850 ;CHECK AC+1 RIGHT 1851 1852 ;VERIFY MQ-AD GATING 1853 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1854 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1855 ;REPEAT FOR ALL 36 BITS OF MQ 1856 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1857 001613 SN=SN+1 1858 003777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1859 IFE ZZ, 1860 031477 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0053 1861 031500 561 10 0 00 003777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1862 031501 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1863 031502 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1864 031503 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1865 031504 004 10 0 00 001613 ER4 AC+1,SN ;MQ-AD GATE FAILED 1866 031505 321 11 0 00 031477 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1867 1868 ;CHECK AC+1 RIGHT 1869 1870 ;VERIFY MQ-AD GATING 1871 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1872 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1873 ;REPEAT FOR ALL 36 BITS OF MQ 1874 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1875 001614 SN=SN+1 1876 007777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1877 IFE ZZ, 1878 031506 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1879 031507 561 10 0 00 007777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1880 031510 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1881 031511 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1882 031512 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1883 031513 004 10 0 00 001614 ER4 AC+1,SN ;MQ-AD GATE FAILED 1884 031514 321 11 0 00 031506 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1885 1886 ;CHECK AC+1 RIGHT 1887 1888 ;VERIFY MQ-AD GATING 1889 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1890 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1891 ;REPEAT FOR ALL 36 BITS OF MQ 1892 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1893 001615 SN=SN+1 1894 017777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1895 IFE ZZ, 1896 031515 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1897 031516 561 10 0 00 017777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1898 031517 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1899 031520 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1900 031521 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1901 031522 004 10 0 00 001615 ER4 AC+1,SN ;MQ-AD GATE FAILED 1902 031523 321 11 0 00 031515 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1903 1904 ;CHECK AC+1 RIGHT 1905 1906 ;VERIFY MQ-AD GATING 1907 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1908 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1909 ;REPEAT FOR ALL 36 BITS OF MQ 1910 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1911 001616 SN=SN+1 1912 037777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1913 IFE ZZ, 1914 031524 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1915 031525 561 10 0 00 037777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0054 1916 031526 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1917 031527 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1918 031530 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1919 031531 004 10 0 00 001616 ER4 AC+1,SN ;MQ-AD GATE FAILED 1920 031532 321 11 0 00 031524 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1921 1922 ;CHECK AC+1 RIGHT 1923 1924 ;VERIFY MQ-AD GATING 1925 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1926 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1927 ;REPEAT FOR ALL 36 BITS OF MQ 1928 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1929 001617 SN=SN+1 1930 077777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1931 IFE ZZ, 1932 031533 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1933 031534 561 10 0 00 077777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1934 031535 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1935 031536 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1936 031537 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1937 031540 004 10 0 00 001617 ER4 AC+1,SN ;MQ-AD GATE FAILED 1938 031541 321 11 0 00 031533 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1939 1940 ;CHECK AC+1 RIGHT 1941 1942 ;VERIFY MQ-AD GATING 1943 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1944 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1945 ;REPEAT FOR ALL 36 BITS OF MQ 1946 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1947 001620 SN=SN+1 1948 177777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1949 IFE ZZ, 1950 031542 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1951 031543 561 10 0 00 177777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1952 031544 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1953 031545 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1954 031546 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1955 031547 004 10 0 00 001620 ER4 AC+1,SN ;MQ-AD GATE FAILED 1956 031550 321 11 0 00 031542 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1957 1958 ;CHECK AC+1 RIGHT 1959 1960 ;VERIFY MQ-AD GATING 1961 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1962 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1963 ;REPEAT FOR ALL 36 BITS OF MQ 1964 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1965 001621 SN=SN+1 1966 377777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1967 IFE ZZ, 1968 031551 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1969 031552 561 10 0 00 377777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1970 031553 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0055 1971 031554 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1972 031555 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1973 031556 004 10 0 00 001621 ER4 AC+1,SN ;MQ-AD GATE FAILED 1974 031557 321 11 0 00 031551 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1975 1976 ;CHECK AC+1 RIGHT 1977 1978 ;VERIFY MQ-AD GATING 1979 ;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1 1980 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 1981 ;REPEAT FOR ALL 36 BITS OF MQ 1982 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 1983 001622 SN=SN+1 1984 777777 ZZ=ZZ+ZZ+1 ;TESTED BIT 1985 IFE ZZ, 1986 031560 476 00 0 00 000007 SETOM AC ;INITIALIZE TO ALL ONES 1987 031561 561 10 0 00 777777 HRROI AC+1,ZZ&777777 ;INITIALIZE AC+1 1988 031562 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 1989 031563 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 1990 031564 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 1991 031565 004 10 0 00 001622 ER4 AC+1,SN ;MQ-AD GATE FAILED 1992 031566 321 11 0 00 031560 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 1993 1994 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0056 1995 000000 ZZ=0 1996 REPEAT ^D18,< ;CHECK AC+1 LEFT 1997 1998 ;VERIFY MQ-AD GATING 1999 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2000 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2001 ;REPEAT FOR ALL 36 BITS OF MQ 2002 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2003 SN=SN+1 2004 ZZ=ZZ+ZZ+1 ;TESTED BIT 2005 IFE ZZ, 2006 SETOM AC ;INITIALIZE AC TO ALL ONES 2007 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2008 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2009 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2010 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2011 ER4 AC+1,SN ;MQ-AD GATE FAILED 2012 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2013 > 2014 ;CHECK AC+1 LEFT 2015 2016 ;VERIFY MQ-AD GATING 2017 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2018 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2019 ;REPEAT FOR ALL 36 BITS OF MQ 2020 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2021 001623 SN=SN+1 2022 000001 ZZ=ZZ+ZZ+1 ;TESTED BIT 2023 IFE ZZ, 2024 031567 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2025 031570 525 10 0 00 000001 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2026 031571 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2027 031572 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2028 031573 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2029 031574 004 10 0 00 001623 ER4 AC+1,SN ;MQ-AD GATE FAILED 2030 031575 321 11 0 00 031567 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2031 2032 ;CHECK AC+1 LEFT 2033 2034 ;VERIFY MQ-AD GATING 2035 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2036 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2037 ;REPEAT FOR ALL 36 BITS OF MQ 2038 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2039 001624 SN=SN+1 2040 000003 ZZ=ZZ+ZZ+1 ;TESTED BIT 2041 IFE ZZ, 2042 031576 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2043 031577 525 10 0 00 000003 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2044 031600 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2045 031601 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2046 031602 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2047 031603 004 10 0 00 001624 ER4 AC+1,SN ;MQ-AD GATE FAILED 2048 031604 321 11 0 00 031576 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2049 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0057 2050 ;CHECK AC+1 LEFT 2051 2052 ;VERIFY MQ-AD GATING 2053 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2054 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2055 ;REPEAT FOR ALL 36 BITS OF MQ 2056 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2057 001625 SN=SN+1 2058 000007 ZZ=ZZ+ZZ+1 ;TESTED BIT 2059 IFE ZZ, 2060 031605 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2061 031606 525 10 0 00 000007 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2062 031607 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2063 031610 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2064 031611 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2065 031612 004 10 0 00 001625 ER4 AC+1,SN ;MQ-AD GATE FAILED 2066 031613 321 11 0 00 031605 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2067 2068 ;CHECK AC+1 LEFT 2069 2070 ;VERIFY MQ-AD GATING 2071 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2072 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2073 ;REPEAT FOR ALL 36 BITS OF MQ 2074 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2075 001626 SN=SN+1 2076 000017 ZZ=ZZ+ZZ+1 ;TESTED BIT 2077 IFE ZZ, 2078 031614 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2079 031615 525 10 0 00 000017 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2080 031616 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2081 031617 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2082 031620 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2083 031621 004 10 0 00 001626 ER4 AC+1,SN ;MQ-AD GATE FAILED 2084 031622 321 11 0 00 031614 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2085 2086 ;CHECK AC+1 LEFT 2087 2088 ;VERIFY MQ-AD GATING 2089 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2090 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2091 ;REPEAT FOR ALL 36 BITS OF MQ 2092 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2093 001627 SN=SN+1 2094 000037 ZZ=ZZ+ZZ+1 ;TESTED BIT 2095 IFE ZZ, 2096 031623 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2097 031624 525 10 0 00 000037 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2098 031625 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2099 031626 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2100 031627 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2101 031630 004 10 0 00 001627 ER4 AC+1,SN ;MQ-AD GATE FAILED 2102 031631 321 11 0 00 031623 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2103 2104 ;CHECK AC+1 LEFT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0058 2105 2106 ;VERIFY MQ-AD GATING 2107 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2108 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2109 ;REPEAT FOR ALL 36 BITS OF MQ 2110 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2111 001630 SN=SN+1 2112 000077 ZZ=ZZ+ZZ+1 ;TESTED BIT 2113 IFE ZZ, 2114 031632 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2115 031633 525 10 0 00 000077 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2116 031634 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2117 031635 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2118 031636 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2119 031637 004 10 0 00 001630 ER4 AC+1,SN ;MQ-AD GATE FAILED 2120 031640 321 11 0 00 031632 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2121 2122 ;CHECK AC+1 LEFT 2123 2124 ;VERIFY MQ-AD GATING 2125 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2126 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2127 ;REPEAT FOR ALL 36 BITS OF MQ 2128 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2129 001631 SN=SN+1 2130 000177 ZZ=ZZ+ZZ+1 ;TESTED BIT 2131 IFE ZZ, 2132 031641 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2133 031642 525 10 0 00 000177 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2134 031643 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2135 031644 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2136 031645 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2137 031646 004 10 0 00 001631 ER4 AC+1,SN ;MQ-AD GATE FAILED 2138 031647 321 11 0 00 031641 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2139 2140 ;CHECK AC+1 LEFT 2141 2142 ;VERIFY MQ-AD GATING 2143 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2144 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2145 ;REPEAT FOR ALL 36 BITS OF MQ 2146 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2147 001632 SN=SN+1 2148 000377 ZZ=ZZ+ZZ+1 ;TESTED BIT 2149 IFE ZZ, 2150 031650 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2151 031651 525 10 0 00 000377 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2152 031652 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2153 031653 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2154 031654 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2155 031655 004 10 0 00 001632 ER4 AC+1,SN ;MQ-AD GATE FAILED 2156 031656 321 11 0 00 031650 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2157 2158 ;CHECK AC+1 LEFT 2159 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0059 2160 ;VERIFY MQ-AD GATING 2161 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2162 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2163 ;REPEAT FOR ALL 36 BITS OF MQ 2164 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2165 001633 SN=SN+1 2166 000777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2167 IFE ZZ, 2168 031657 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2169 031660 525 10 0 00 000777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2170 031661 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2171 031662 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2172 031663 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2173 031664 004 10 0 00 001633 ER4 AC+1,SN ;MQ-AD GATE FAILED 2174 031665 321 11 0 00 031657 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2175 2176 ;CHECK AC+1 LEFT 2177 2178 ;VERIFY MQ-AD GATING 2179 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2180 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2181 ;REPEAT FOR ALL 36 BITS OF MQ 2182 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2183 001634 SN=SN+1 2184 001777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2185 IFE ZZ, 2186 031666 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2187 031667 525 10 0 00 001777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2188 031670 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2189 031671 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2190 031672 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2191 031673 004 10 0 00 001634 ER4 AC+1,SN ;MQ-AD GATE FAILED 2192 031674 321 11 0 00 031666 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2193 2194 ;CHECK AC+1 LEFT 2195 2196 ;VERIFY MQ-AD GATING 2197 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2198 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2199 ;REPEAT FOR ALL 36 BITS OF MQ 2200 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2201 001635 SN=SN+1 2202 003777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2203 IFE ZZ, 2204 031675 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2205 031676 525 10 0 00 003777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2206 031677 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2207 031700 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2208 031701 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2209 031702 004 10 0 00 001635 ER4 AC+1,SN ;MQ-AD GATE FAILED 2210 031703 321 11 0 00 031675 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2211 2212 ;CHECK AC+1 LEFT 2213 2214 ;VERIFY MQ-AD GATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0060 2215 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2216 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2217 ;REPEAT FOR ALL 36 BITS OF MQ 2218 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2219 001636 SN=SN+1 2220 007777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2221 IFE ZZ, 2222 031704 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2223 031705 525 10 0 00 007777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2224 031706 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2225 031707 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2226 031710 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2227 031711 004 10 0 00 001636 ER4 AC+1,SN ;MQ-AD GATE FAILED 2228 031712 321 11 0 00 031704 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2229 2230 ;CHECK AC+1 LEFT 2231 2232 ;VERIFY MQ-AD GATING 2233 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2234 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2235 ;REPEAT FOR ALL 36 BITS OF MQ 2236 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2237 001637 SN=SN+1 2238 017777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2239 IFE ZZ, 2240 031713 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2241 031714 525 10 0 00 017777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2242 031715 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2243 031716 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2244 031717 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2245 031720 004 10 0 00 001637 ER4 AC+1,SN ;MQ-AD GATE FAILED 2246 031721 321 11 0 00 031713 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2247 2248 ;CHECK AC+1 LEFT 2249 2250 ;VERIFY MQ-AD GATING 2251 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2252 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2253 ;REPEAT FOR ALL 36 BITS OF MQ 2254 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2255 001640 SN=SN+1 2256 037777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2257 IFE ZZ, 2258 031722 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2259 031723 525 10 0 00 037777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2260 031724 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2261 031725 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2262 031726 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2263 031727 004 10 0 00 001640 ER4 AC+1,SN ;MQ-AD GATE FAILED 2264 031730 321 11 0 00 031722 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2265 2266 ;CHECK AC+1 LEFT 2267 2268 ;VERIFY MQ-AD GATING 2269 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0061 2270 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2271 ;REPEAT FOR ALL 36 BITS OF MQ 2272 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2273 001641 SN=SN+1 2274 077777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2275 IFE ZZ, 2276 031731 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2277 031732 525 10 0 00 077777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2278 031733 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2279 031734 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2280 031735 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2281 031736 004 10 0 00 001641 ER4 AC+1,SN ;MQ-AD GATE FAILED 2282 031737 321 11 0 00 031731 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2283 2284 ;CHECK AC+1 LEFT 2285 2286 ;VERIFY MQ-AD GATING 2287 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2288 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2289 ;REPEAT FOR ALL 36 BITS OF MQ 2290 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2291 001642 SN=SN+1 2292 177777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2293 IFE ZZ, 2294 031740 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2295 031741 525 10 0 00 177777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2296 031742 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2297 031743 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2298 031744 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2299 031745 004 10 0 00 001642 ER4 AC+1,SN ;MQ-AD GATE FAILED 2300 031746 321 11 0 00 031740 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2301 2302 ;CHECK AC+1 LEFT 2303 2304 ;VERIFY MQ-AD GATING 2305 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2306 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 2307 ;REPEAT FOR ALL 36 BITS OF MQ 2308 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2309 001643 SN=SN+1 2310 377777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2311 IFE ZZ, 2312 031747 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2313 031750 525 10 0 00 377777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2314 031751 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2315 031752 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2316 031753 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2317 031754 004 10 0 00 001643 ER4 AC+1,SN ;MQ-AD GATE FAILED 2318 031755 321 11 0 00 031747 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2319 2320 ;CHECK AC+1 LEFT 2321 2322 ;VERIFY MQ-AD GATING 2323 ;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1 2324 ;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 7-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ-ADDER GATING SEQ 0062 2325 ;REPEAT FOR ALL 36 BITS OF MQ 2326 ;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA 2327 001644 SN=SN+1 2328 777777 ZZ=ZZ+ZZ+1 ;TESTED BIT 2329 IFE ZZ, 2330 031756 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL ONES 2331 031757 525 10 0 00 777777 HRLOI AC+1,ZZ&777777 ;INITIALIZE AC+1 2332 031760 200 06 0 00 000010 MOVE AC-1,AC+1 ;SETUP FOR COMPARISON 2333 031761 245 07 0 00 000000 ROTC AC,0 ;*ROT 0 BIT POSITIONS 2334 031762 312 10 0 00 000006 CAME AC+1,AC-1 ;CHECK BIT (N) OF AC+1 2335 031763 004 10 0 00 001644 ER4 AC+1,SN ;MQ-AD GATE FAILED 2336 031764 321 11 0 00 031756 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2337 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS) SEQ 0063 2338 SUBTTL DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS) 2339 2340 ;BASIC SHIFT TEST 2341 ;TEST ABILITY TO SHIFT A BIT 0,1,-1 AND -2 POSITIONS 2342 2343 000004 AC=4 2344 SAVEAC (1,1)^ 2345 031765 201 06 0 00 031765 MOVEI AC+2,. ;SAVE TEST PC 2346 031766 202 06 0 00 030051 MOVEM AC+2,TESTPC 2347 031767 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2348 031770 202 06 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2349 2350 ;TEST ABILITY TO SHIFT A BIT ZERO POSITIONS USING LSH 2351 SR1 (17,0,10,0,10,LSH,0)^ 2352 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] 0 BIT 2353 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,10] 2354 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2355 2356 031771 200 04 0 00 041614 E1700: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2357 031772 200 05 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2358 031773 242 04 0 00 000000 LSH AC,0 ;*SHIFT/ROTATE 0 BIT POSITIONS 2359 031774 312 04 0 00 041614 CAME AC,[XWD 0,10] ;IS RESULT IN AC CORRECT? 2360 031775 003 04 0 00 001701 ER3 AC,1701 ;RESULT IN AC IS INCORRECT 2361 031776 312 05 0 00 041615 CAME AC+1,[XWD 741703,607417] 2362 031777 004 05 0 00 001701 ER4 AC+1,1701 ;C(AC+1) WAS MODIFIED INCORRECTLY 2363 032000 321 06 0 00 031771 JUMPL AC+2,E1700 ;LOOP ON ERROR SWITCH^ 2364 2365 ;TEST ABILITY TO SHIFT A BIT LEFT ONE POSITION USING LSH 2366 SR1 (20,0,10,0,20,LSH,1)^ 2367 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] 1 BIT 2368 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,20] 2369 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2370 2371 032001 200 04 0 00 041614 E2000: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2372 032002 200 05 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2373 032003 242 04 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 2374 032004 312 04 0 00 041616 CAME AC,[XWD 0,20] ;IS RESULT IN AC CORRECT? 2375 032005 003 04 0 00 002001 ER3 AC,2001 ;RESULT IN AC IS INCORRECT 2376 032006 312 05 0 00 041615 CAME AC+1,[XWD 741703,607417] 2377 032007 004 05 0 00 002001 ER4 AC+1,2001 ;C(AC+1) WAS MODIFIED INCORRECTLY 2378 032010 321 06 0 00 032001 JUMPL AC+2,E2000 ;LOOP ON ERROR SWITCH^ 2379 2380 ;TEST ABILITY TO SHIFT A BIT RIGHT ONE POSITION USING LSH 2381 SR1 (442,0,10,0,4,LSH,-1)^ 2382 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -1 BIT 2383 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,4] 2384 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2385 2386 032011 200 04 0 00 041614 E44200: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2387 032012 200 05 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2388 032013 242 04 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 2389 032014 312 04 0 00 041617 CAME AC,[XWD 0,4] ;IS RESULT IN AC CORRECT? 2390 032015 003 04 0 00 044201 ER3 AC,44201 ;RESULT IN AC IS INCORRECT 2391 032016 312 05 0 00 041615 CAME AC+1,[XWD 741703,607417] 2392 032017 004 05 0 00 044201 ER4 AC+1,44201 ;C(AC+1) WAS MODIFIED INCORRECTLY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 8-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS) SEQ 0064 2393 032020 321 06 0 00 032011 JUMPL AC+2,E44200 ;LOOP ON ERROR SWITCH^ 2394 2395 ;TEST ABILITY TO SHIFT A BIT RIGHT TWO POSITIONS USING LSH 2396 SR1 (21,0,10,0,2,LSH,-2)^ 2397 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT 2398 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 2399 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2400 2401 032021 200 04 0 00 041614 E2100: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2402 032022 200 05 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2403 032023 242 04 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 2404 032024 312 04 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 2405 032025 003 04 0 00 002101 ER3 AC,2101 ;RESULT IN AC IS INCORRECT 2406 032026 312 05 0 00 041615 CAME AC+1,[XWD 741703,607417] 2407 032027 004 05 0 00 002101 ER4 AC+1,2101 ;C(AC+1) WAS MODIFIED INCORRECTLY 2408 032030 321 06 0 00 032021 JUMPL AC+2,E2100 ;LOOP ON ERROR SWITCH^ 2409 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 8-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS) SEQ 0065 2410 ;TEST ABILITY TO SHIFT A BIT ZERO POSITIONS USING LSHC 2411 SR2 (22,0,10,0,10,0,10,0,10,LSHC,0)^ 2412 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2413 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] 0 BIT POSITIONS AND 2414 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,10] AND 2415 ;[XWD 0,10] 2416 2417 032031 200 04 0 00 041614 E2200: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2418 032032 200 05 0 00 041614 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 2419 032033 246 04 0 00 000000 LSHC AC,0 ;*SHIFT/ROTATE COMBINED 0 PLACES 2420 032034 312 04 0 00 041614 CAME AC,[XWD 0,10] ;IS RESULT IN AC CORRECT? 2421 032035 003 04 0 00 002201 ER3 AC,2201 ;RESULT IN AC IS INCORRECT 2422 032036 312 05 0 00 041614 CAME AC+1,[XWD 0,10] ;IS RESULT IN AC+1 CORRECT? 2423 032037 004 05 0 00 002201 ER4 AC+1,2201 ;RESULT IN AC+1 IS INCORRECT 2424 032040 321 06 0 00 032031 JUMPL AC+2,E2200 ;LOOP ON ERROR SWITCH^ 2425 2426 ;TEST ABILITY TO SHIFT A BIT LEFT ONE POSITION USING LSHC 2427 SR2 (23,0,10,0,10,0,20,0,20,LSHC,1)^ 2428 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2429 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] 1 BIT POSITIONS AND 2430 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,20] AND 2431 ;[XWD 0,20] 2432 2433 032041 200 04 0 00 041614 E2300: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2434 032042 200 05 0 00 041614 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 2435 032043 246 04 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 2436 032044 312 04 0 00 041616 CAME AC,[XWD 0,20] ;IS RESULT IN AC CORRECT? 2437 032045 003 04 0 00 002301 ER3 AC,2301 ;RESULT IN AC IS INCORRECT 2438 032046 312 05 0 00 041616 CAME AC+1,[XWD 0,20] ;IS RESULT IN AC+1 CORRECT? 2439 032047 004 05 0 00 002301 ER4 AC+1,2301 ;RESULT IN AC+1 IS INCORRECT 2440 032050 321 06 0 00 032041 JUMPL AC+2,E2300 ;LOOP ON ERROR SWITCH^ 2441 2442 ;TEST ABILITY TO SHIFT A BIT RIGHT ONE POSITION USING LSHC 2443 SR2 (24,0,10,0,10,0,4,0,4,LSHC,-1)^ 2444 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2445 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] -1 BIT POSITIONS AND 2446 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,4] AND 2447 ;[XWD 0,4] 2448 2449 032051 200 04 0 00 041614 E2400: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2450 032052 200 05 0 00 041614 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 2451 032053 246 04 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2452 032054 312 04 0 00 041617 CAME AC,[XWD 0,4] ;IS RESULT IN AC CORRECT? 2453 032055 003 04 0 00 002401 ER3 AC,2401 ;RESULT IN AC IS INCORRECT 2454 032056 312 05 0 00 041617 CAME AC+1,[XWD 0,4] ;IS RESULT IN AC+1 CORRECT? 2455 032057 004 05 0 00 002401 ER4 AC+1,2401 ;RESULT IN AC+1 IS INCORRECT 2456 032060 321 06 0 00 032051 JUMPL AC+2,E2400 ;LOOP ON ERROR SWITCH^ 2457 2458 ;TEST ABILITY TO SHIFT A BIT RIGHT TWO POSITIONS USING LSHC 2459 SR2 (25,0,10,0,10,0,2,0,2,LSHC,-2)^ 2460 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2461 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] -2 BIT POSITIONS AND 2462 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 2463 ;[XWD 0,2] 2464 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 8-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS) SEQ 0066 2465 032061 200 04 0 00 041614 E2500: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2466 032062 200 05 0 00 041614 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 2467 032063 246 04 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2468 032064 312 04 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 2469 032065 003 04 0 00 002501 ER3 AC,2501 ;RESULT IN AC IS INCORRECT 2470 032066 312 05 0 00 041620 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 2471 032067 004 05 0 00 002501 ER4 AC+1,2501 ;RESULT IN AC+1 IS INCORRECT 2472 032070 321 06 0 00 032061 JUMPL AC+2,E2500 ;LOOP ON ERROR SWITCH^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SAC FUNCTION SEQ 0067 2473 SUBTTL DIAGNOSTIC SECTION - TEST SAC FUNCTION 2474 2475 000010 AC=10 2476 SAVEAC (1,1)^ 2477 032071 201 12 0 00 032071 MOVEI AC+2,. ;SAVE TEST PC 2478 032072 202 12 0 00 030051 MOVEM AC+2,TESTPC 2479 032073 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2480 032074 202 12 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2481 2482 002600 SN=2600 2483 000001 ZZ=1 2484 2485 E2600: REPEAT ^D3, ;TEST SAC 2486 2498 002601 SN=SN+1 2499 ;FURTHER TEST OF SAC,SAC2 2500 ;TEST FOR ASSERTION OF SAC INH 2501 ;TEST ASSUMES ABILITY TO ROTATE 2502 ;TO SOME DEGREE 2503 000002 ZZ=ZZ+ZZ 2504 032075 551 10 0 00 400000 HRRZI AC,400000 ;SET BIT 18 2505 032076 241 10 0 00 000002 ROT AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2506 032077 306 10 0 00 400000 CAIN AC,400000 ;TEST FOR SAC 2507 032100 003 10 0 00 002601 ER3 AC,SN ;STORE AC FAILED 2508 032101 321 12 0 00 032075 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2509 2510 002602 SN=SN+1 2511 ;FURTHER TEST OF SAC,SAC2 2512 ;TEST FOR ASSERTION OF SAC INH 2513 ;TEST ASSUMES ABILITY TO ROTATE 2514 ;TO SOME DEGREE 2515 000004 ZZ=ZZ+ZZ 2516 032102 551 10 0 00 400000 HRRZI AC,400000 ;SET BIT 18 2517 032103 241 10 0 00 000004 ROT AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2518 032104 306 10 0 00 400000 CAIN AC,400000 ;TEST FOR SAC 2519 032105 003 10 0 00 002602 ER3 AC,SN ;STORE AC FAILED 2520 032106 321 12 0 00 032102 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2521 2522 002603 SN=SN+1 2523 ;FURTHER TEST OF SAC,SAC2 2524 ;TEST FOR ASSERTION OF SAC INH 2525 ;TEST ASSUMES ABILITY TO ROTATE 2526 ;TO SOME DEGREE 2527 000010 ZZ=ZZ+ZZ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 9-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SAC FUNCTION SEQ 0068 2528 032107 551 10 0 00 400000 HRRZI AC,400000 ;SET BIT 18 2529 032110 241 10 0 00 000010 ROT AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2530 032111 306 10 0 00 400000 CAIN AC,400000 ;TEST FOR SAC 2531 032112 003 10 0 00 002603 ER3 AC,SN ;STORE AC FAILED 2532 032113 321 12 0 00 032107 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2533 2534 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 9-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SAC FUNCTION SEQ 0069 2535 002700 SN=2700 2536 000001 ZZ=1 2537 2538 E2700: REPEAT ^D3, ;TEST SAC 2539 2553 002701 SN=SN+1 2554 ;FURTHER TEST OF SAC,SAC2 2555 ;TEST FOR ASSERTION OF SAC INH 2556 ;TEST ASSUMES ABILITY TO ROTATE 2557 ;TO SOME DEGREE 2558 2559 000002 ZZ=ZZ+ZZ 2560 032114 400 10 0 00 000000 SETZ AC, ;CLEAR AC 2561 032115 551 11 0 00 400000 HRRZI AC+1,400000 ;SET BIT 18 2562 032116 245 10 0 00 000002 ROTC AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2563 032117 306 11 0 00 400000 CAIN AC+1,400000 ;TEST FOR SAC 2564 032120 004 11 0 00 002701 ER4 AC+1,SN ;STORE AC+1 FAILED 2565 032121 321 12 0 00 032114 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2566 2567 002702 SN=SN+1 2568 ;FURTHER TEST OF SAC,SAC2 2569 ;TEST FOR ASSERTION OF SAC INH 2570 ;TEST ASSUMES ABILITY TO ROTATE 2571 ;TO SOME DEGREE 2572 2573 000004 ZZ=ZZ+ZZ 2574 032122 400 10 0 00 000000 SETZ AC, ;CLEAR AC 2575 032123 551 11 0 00 400000 HRRZI AC+1,400000 ;SET BIT 18 2576 032124 245 10 0 00 000004 ROTC AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2577 032125 306 11 0 00 400000 CAIN AC+1,400000 ;TEST FOR SAC 2578 032126 004 11 0 00 002702 ER4 AC+1,SN ;STORE AC+1 FAILED 2579 032127 321 12 0 00 032122 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2580 2581 002703 SN=SN+1 2582 ;FURTHER TEST OF SAC,SAC2 2583 ;TEST FOR ASSERTION OF SAC INH 2584 ;TEST ASSUMES ABILITY TO ROTATE 2585 ;TO SOME DEGREE 2586 2587 000010 ZZ=ZZ+ZZ 2588 032130 400 10 0 00 000000 SETZ AC, ;CLEAR AC 2589 032131 551 11 0 00 400000 HRRZI AC+1,400000 ;SET BIT 18 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 9-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SAC FUNCTION SEQ 0070 2590 032132 245 10 0 00 000010 ROTC AC,ZZ ;*ROT LEFT (N) NUMBER OF TIMES 2591 032133 306 11 0 00 400000 CAIN AC+1,400000 ;TEST FOR SAC 2592 032134 004 11 0 00 002703 ER4 AC+1,SN ;STORE AC+1 FAILED 2593 032135 321 12 0 00 032130 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2594 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0071 2595 SUBTTL DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR 2596 2597 ;TEST ROT LEFT ONE BIT POSITION USING ALL ZEROS 2598 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2599 ;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING 2600 2601 000011 AC=11 2602 SAVEAC (1,1)^ 2603 032136 201 13 0 00 032136 MOVEI AC+2,. ;SAVE TEST PC 2604 032137 202 13 0 00 030051 MOVEM AC+2,TESTPC 2605 032140 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2606 032141 202 13 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2607 2608 032142 403 11 0 00 000010 E3000: SETZB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ZERO 2609 032143 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2610 032144 312 11 0 00 000010 CAME AC,AC-1 ;TEST AC FOR ALL ZEROS 2611 032145 003 11 0 00 003001 ER3 AC,3001 ;AD-AR GATING FAILED 2612 032146 321 13 0 00 032147 JUMPL AC+2,E3100 ;LOOP ON ERROR SWITCH 2613 2614 ;TEST ROT LEFT ONE BIT POSITION USING ALL ONES 2615 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2616 ;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING 2617 2618 032147 477 11 0 00 000010 E3100: SETOB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES 2619 032150 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2620 032151 312 11 0 00 000010 CAME AC,AC-1 ;TEST AC FOR ALL ONES 2621 032152 003 11 0 00 003101 ER3 AC,3101 ;AD-AR GATING FAILED 2622 032153 321 13 0 00 032147 JUMPL AC+2,E3100 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0072 2623 003200 SN=3200 2624 000000 ZZ=0 2625 2626 E3200: REPEAT ^D18,< ;TEST AC RIGHT HALF 2627 2628 ;TEST ROT LEFT ONE BIT POSITION 2629 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2630 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2631 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2632 ;IS ONE AFTER ROTATING 2633 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2634 2635 SN=SN+1 2636 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2637 IFE ZZ, 2638 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2639 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2640 IFN ,< 2641 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2642 IFE ,< 2643 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2644 ROT AC,1 ;*ROTATE LEFT ONE 2645 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2646 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2647 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2648 > 2649 ;TEST AC RIGHT HALF 2650 2651 ;TEST ROT LEFT ONE BIT POSITION 2652 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2653 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2654 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2655 ;IS ONE AFTER ROTATING 2656 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2657 2658 003201 SN=SN+1 2659 000000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2660 000001 IFE ZZ, 2661 000002 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2662 032154 201 11 0 00 000001 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2663 IFN ,< 2664 032155 201 10 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2665 IFE ,< 2666 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2667 032156 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2668 032157 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2669 032160 003 11 0 00 003201 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2670 032161 321 13 0 00 032154 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2671 2672 ;TEST AC RIGHT HALF 2673 2674 ;TEST ROT LEFT ONE BIT POSITION 2675 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2676 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2677 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0073 2678 ;IS ONE AFTER ROTATING 2679 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2680 2681 003202 SN=SN+1 2682 000002 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2683 IFE ZZ, 2684 000004 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2685 032162 201 11 0 00 000002 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2686 IFN ,< 2687 032163 201 10 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2688 IFE ,< 2689 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2690 032164 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2691 032165 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2692 032166 003 11 0 00 003202 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2693 032167 321 13 0 00 032162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2694 2695 ;TEST AC RIGHT HALF 2696 2697 ;TEST ROT LEFT ONE BIT POSITION 2698 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2699 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2700 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2701 ;IS ONE AFTER ROTATING 2702 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2703 2704 003203 SN=SN+1 2705 000004 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2706 IFE ZZ, 2707 000010 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2708 032170 201 11 0 00 000004 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2709 IFN ,< 2710 032171 201 10 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2711 IFE ,< 2712 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2713 032172 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2714 032173 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2715 032174 003 11 0 00 003203 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2716 032175 321 13 0 00 032170 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2717 2718 ;TEST AC RIGHT HALF 2719 2720 ;TEST ROT LEFT ONE BIT POSITION 2721 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2722 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2723 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2724 ;IS ONE AFTER ROTATING 2725 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2726 2727 003204 SN=SN+1 2728 000010 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2729 IFE ZZ, 2730 000020 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2731 032176 201 11 0 00 000010 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2732 IFN ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0074 2733 032177 201 10 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2734 IFE ,< 2735 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2736 032200 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2737 032201 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2738 032202 003 11 0 00 003204 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2739 032203 321 13 0 00 032176 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2740 2741 ;TEST AC RIGHT HALF 2742 2743 ;TEST ROT LEFT ONE BIT POSITION 2744 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2745 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2746 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2747 ;IS ONE AFTER ROTATING 2748 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2749 2750 003205 SN=SN+1 2751 000020 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2752 IFE ZZ, 2753 000040 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2754 032204 201 11 0 00 000020 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2755 IFN ,< 2756 032205 201 10 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2757 IFE ,< 2758 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2759 032206 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2760 032207 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2761 032210 003 11 0 00 003205 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2762 032211 321 13 0 00 032204 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2763 2764 ;TEST AC RIGHT HALF 2765 2766 ;TEST ROT LEFT ONE BIT POSITION 2767 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2768 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2769 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2770 ;IS ONE AFTER ROTATING 2771 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2772 2773 003206 SN=SN+1 2774 000040 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2775 IFE ZZ, 2776 000100 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2777 032212 201 11 0 00 000040 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2778 IFN ,< 2779 032213 201 10 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2780 IFE ,< 2781 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2782 032214 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2783 032215 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2784 032216 003 11 0 00 003206 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2785 032217 321 13 0 00 032212 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2786 2787 ;TEST AC RIGHT HALF DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0075 2788 2789 ;TEST ROT LEFT ONE BIT POSITION 2790 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2791 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2792 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2793 ;IS ONE AFTER ROTATING 2794 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2795 2796 003207 SN=SN+1 2797 000100 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2798 IFE ZZ, 2799 000200 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2800 032220 201 11 0 00 000100 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2801 IFN ,< 2802 032221 201 10 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2803 IFE ,< 2804 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2805 032222 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2806 032223 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2807 032224 003 11 0 00 003207 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2808 032225 321 13 0 00 032220 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2809 2810 ;TEST AC RIGHT HALF 2811 2812 ;TEST ROT LEFT ONE BIT POSITION 2813 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2814 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2815 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2816 ;IS ONE AFTER ROTATING 2817 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2818 2819 003210 SN=SN+1 2820 000200 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2821 IFE ZZ, 2822 000400 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2823 032226 201 11 0 00 000200 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2824 IFN ,< 2825 032227 201 10 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2826 IFE ,< 2827 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2828 032230 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2829 032231 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2830 032232 003 11 0 00 003210 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2831 032233 321 13 0 00 032226 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2832 2833 ;TEST AC RIGHT HALF 2834 2835 ;TEST ROT LEFT ONE BIT POSITION 2836 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2837 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2838 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2839 ;IS ONE AFTER ROTATING 2840 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2841 2842 003211 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0076 2843 000400 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2844 IFE ZZ, 2845 001000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2846 032234 201 11 0 00 000400 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2847 IFN ,< 2848 032235 201 10 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2849 IFE ,< 2850 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2851 032236 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2852 032237 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2853 032240 003 11 0 00 003211 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2854 032241 321 13 0 00 032234 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2855 2856 ;TEST AC RIGHT HALF 2857 2858 ;TEST ROT LEFT ONE BIT POSITION 2859 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2860 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2861 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2862 ;IS ONE AFTER ROTATING 2863 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2864 2865 003212 SN=SN+1 2866 001000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2867 IFE ZZ, 2868 002000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2869 032242 201 11 0 00 001000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2870 IFN ,< 2871 032243 201 10 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2872 IFE ,< 2873 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2874 032244 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2875 032245 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2876 032246 003 11 0 00 003212 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2877 032247 321 13 0 00 032242 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2878 2879 ;TEST AC RIGHT HALF 2880 2881 ;TEST ROT LEFT ONE BIT POSITION 2882 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2883 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2884 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2885 ;IS ONE AFTER ROTATING 2886 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2887 2888 003213 SN=SN+1 2889 002000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2890 IFE ZZ, 2891 004000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2892 032250 201 11 0 00 002000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2893 IFN ,< 2894 032251 201 10 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2895 IFE ,< 2896 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2897 032252 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0077 2898 032253 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2899 032254 003 11 0 00 003213 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2900 032255 321 13 0 00 032250 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2901 2902 ;TEST AC RIGHT HALF 2903 2904 ;TEST ROT LEFT ONE BIT POSITION 2905 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2906 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2907 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2908 ;IS ONE AFTER ROTATING 2909 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2910 2911 003214 SN=SN+1 2912 004000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2913 IFE ZZ, 2914 010000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2915 032256 201 11 0 00 004000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2916 IFN ,< 2917 032257 201 10 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2918 IFE ,< 2919 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2920 032260 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2921 032261 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2922 032262 003 11 0 00 003214 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2923 032263 321 13 0 00 032256 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2924 2925 ;TEST AC RIGHT HALF 2926 2927 ;TEST ROT LEFT ONE BIT POSITION 2928 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2929 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2930 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2931 ;IS ONE AFTER ROTATING 2932 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2933 2934 003215 SN=SN+1 2935 010000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2936 IFE ZZ, 2937 020000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2938 032264 201 11 0 00 010000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2939 IFN ,< 2940 032265 201 10 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2941 IFE ,< 2942 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2943 032266 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2944 032267 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2945 032270 003 11 0 00 003215 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2946 032271 321 13 0 00 032264 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2947 2948 ;TEST AC RIGHT HALF 2949 2950 ;TEST ROT LEFT ONE BIT POSITION 2951 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2952 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0078 2953 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2954 ;IS ONE AFTER ROTATING 2955 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2956 2957 003216 SN=SN+1 2958 020000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2959 IFE ZZ, 2960 040000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2961 032272 201 11 0 00 020000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2962 IFN ,< 2963 032273 201 10 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2964 IFE ,< 2965 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2966 032274 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2967 032275 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2968 032276 003 11 0 00 003216 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2969 032277 321 13 0 00 032272 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2970 2971 ;TEST AC RIGHT HALF 2972 2973 ;TEST ROT LEFT ONE BIT POSITION 2974 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2975 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2976 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 2977 ;IS ONE AFTER ROTATING 2978 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 2979 2980 003217 SN=SN+1 2981 040000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 2982 IFE ZZ, 2983 100000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 2984 032300 201 11 0 00 040000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 2985 IFN ,< 2986 032301 201 10 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 2987 IFE ,< 2988 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 2989 032302 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 2990 032303 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 2991 032304 003 11 0 00 003217 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 2992 032305 321 13 0 00 032300 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2993 2994 ;TEST AC RIGHT HALF 2995 2996 ;TEST ROT LEFT ONE BIT POSITION 2997 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 2998 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 2999 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 3000 ;IS ONE AFTER ROTATING 3001 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3002 3003 003220 SN=SN+1 3004 100000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3005 IFE ZZ, 3006 200000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3007 032306 201 11 0 00 100000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0079 3008 IFN ,< 3009 032307 201 10 0 00 200000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 3010 IFE ,< 3011 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 3012 032310 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3013 032311 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3014 032312 003 11 0 00 003220 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3015 032313 321 13 0 00 032306 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3016 3017 ;TEST AC RIGHT HALF 3018 3019 ;TEST ROT LEFT ONE BIT POSITION 3020 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3021 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3022 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 3023 ;IS ONE AFTER ROTATING 3024 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3025 3026 003221 SN=SN+1 3027 200000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3028 IFE ZZ, 3029 400000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3030 032314 201 11 0 00 200000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 3031 IFN ,< 3032 032315 201 10 0 00 400000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 3033 IFE ,< 3034 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 3035 032316 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3036 032317 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3037 032320 003 11 0 00 003221 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3038 032321 321 13 0 00 032314 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3039 3040 ;TEST AC RIGHT HALF 3041 3042 ;TEST ROT LEFT ONE BIT POSITION 3043 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3044 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3045 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 3046 ;IS ONE AFTER ROTATING 3047 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3048 3049 003222 SN=SN+1 3050 400000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3051 IFE ZZ, 3052 000001 000000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3053 032322 201 11 0 00 400000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 3054 IFN ,< 3055 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 3056 IFE ,< 3057 032323 205 10 0 00 000001 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 3058 032324 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3059 032325 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3060 032326 003 11 0 00 003222 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3061 032327 321 13 0 00 032322 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3062 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0080 3063 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0081 3064 000000 ZZ=0 3065 3066 REPEAT ^D18,< ;TEST AC LEFT HALF 3067 ;TEST ROT LEFT ONE BIT POSITION 3068 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3069 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3070 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3071 ;ONE AFTER ROTATING 3072 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3073 3074 SN=SN+1 3075 3076 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3077 IFE ZZ, 3078 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3079 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3080 IFN ,< 3081 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3082 IFE ,< 3083 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3084 ROT AC,1 ;*ROTATE LEFT ONE 3085 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3086 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3087 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3088 > 3089 ;TEST AC LEFT HALF 3090 ;TEST ROT LEFT ONE BIT POSITION 3091 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3092 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3093 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3094 ;ONE AFTER ROTATING 3095 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3096 3097 003223 SN=SN+1 3098 3099 000000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3100 000001 IFE ZZ, 3101 000002 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3102 032330 205 11 0 00 000001 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3103 IFN ,< 3104 032331 205 10 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3105 IFE ,< 3106 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3107 032332 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3108 032333 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3109 032334 003 11 0 00 003223 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3110 032335 321 13 0 00 032330 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3111 3112 ;TEST AC LEFT HALF 3113 ;TEST ROT LEFT ONE BIT POSITION 3114 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3115 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3116 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3117 ;ONE AFTER ROTATING 3118 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0082 3119 3120 003224 SN=SN+1 3121 3122 000002 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3123 IFE ZZ, 3124 000004 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3125 032336 205 11 0 00 000002 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3126 IFN ,< 3127 032337 205 10 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3128 IFE ,< 3129 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3130 032340 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3131 032341 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3132 032342 003 11 0 00 003224 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3133 032343 321 13 0 00 032336 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3134 3135 ;TEST AC LEFT HALF 3136 ;TEST ROT LEFT ONE BIT POSITION 3137 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3138 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3139 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3140 ;ONE AFTER ROTATING 3141 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3142 3143 003225 SN=SN+1 3144 3145 000004 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3146 IFE ZZ, 3147 000010 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3148 032344 205 11 0 00 000004 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3149 IFN ,< 3150 032345 205 10 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3151 IFE ,< 3152 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3153 032346 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3154 032347 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3155 032350 003 11 0 00 003225 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3156 032351 321 13 0 00 032344 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3157 3158 ;TEST AC LEFT HALF 3159 ;TEST ROT LEFT ONE BIT POSITION 3160 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3161 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3162 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3163 ;ONE AFTER ROTATING 3164 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3165 3166 003226 SN=SN+1 3167 3168 000010 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3169 IFE ZZ, 3170 000020 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3171 032352 205 11 0 00 000010 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3172 IFN ,< 3173 032353 205 10 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0083 3174 IFE ,< 3175 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3176 032354 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3177 032355 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3178 032356 003 11 0 00 003226 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3179 032357 321 13 0 00 032352 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3180 3181 ;TEST AC LEFT HALF 3182 ;TEST ROT LEFT ONE BIT POSITION 3183 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3184 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3185 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3186 ;ONE AFTER ROTATING 3187 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3188 3189 003227 SN=SN+1 3190 3191 000020 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3192 IFE ZZ, 3193 000040 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3194 032360 205 11 0 00 000020 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3195 IFN ,< 3196 032361 205 10 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3197 IFE ,< 3198 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3199 032362 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3200 032363 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3201 032364 003 11 0 00 003227 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3202 032365 321 13 0 00 032360 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3203 3204 ;TEST AC LEFT HALF 3205 ;TEST ROT LEFT ONE BIT POSITION 3206 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3207 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3208 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3209 ;ONE AFTER ROTATING 3210 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3211 3212 003230 SN=SN+1 3213 3214 000040 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3215 IFE ZZ, 3216 000100 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3217 032366 205 11 0 00 000040 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3218 IFN ,< 3219 032367 205 10 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3220 IFE ,< 3221 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3222 032370 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3223 032371 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3224 032372 003 11 0 00 003230 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3225 032373 321 13 0 00 032366 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3226 3227 ;TEST AC LEFT HALF 3228 ;TEST ROT LEFT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0084 3229 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3230 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3231 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3232 ;ONE AFTER ROTATING 3233 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3234 3235 003231 SN=SN+1 3236 3237 000100 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3238 IFE ZZ, 3239 000200 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3240 032374 205 11 0 00 000100 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3241 IFN ,< 3242 032375 205 10 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3243 IFE ,< 3244 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3245 032376 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3246 032377 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3247 032400 003 11 0 00 003231 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3248 032401 321 13 0 00 032374 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3249 3250 ;TEST AC LEFT HALF 3251 ;TEST ROT LEFT ONE BIT POSITION 3252 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3253 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3254 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3255 ;ONE AFTER ROTATING 3256 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3257 3258 003232 SN=SN+1 3259 3260 000200 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3261 IFE ZZ, 3262 000400 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3263 032402 205 11 0 00 000200 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3264 IFN ,< 3265 032403 205 10 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3266 IFE ,< 3267 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3268 032404 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3269 032405 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3270 032406 003 11 0 00 003232 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3271 032407 321 13 0 00 032402 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3272 3273 ;TEST AC LEFT HALF 3274 ;TEST ROT LEFT ONE BIT POSITION 3275 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3276 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3277 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3278 ;ONE AFTER ROTATING 3279 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3280 3281 003233 SN=SN+1 3282 3283 000400 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0085 3284 IFE ZZ, 3285 001000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3286 032410 205 11 0 00 000400 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3287 IFN ,< 3288 032411 205 10 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3289 IFE ,< 3290 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3291 032412 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3292 032413 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3293 032414 003 11 0 00 003233 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3294 032415 321 13 0 00 032410 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3295 3296 ;TEST AC LEFT HALF 3297 ;TEST ROT LEFT ONE BIT POSITION 3298 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3299 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3300 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3301 ;ONE AFTER ROTATING 3302 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3303 3304 003234 SN=SN+1 3305 3306 001000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3307 IFE ZZ, 3308 002000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3309 032416 205 11 0 00 001000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3310 IFN ,< 3311 032417 205 10 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3312 IFE ,< 3313 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3314 032420 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3315 032421 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3316 032422 003 11 0 00 003234 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3317 032423 321 13 0 00 032416 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3318 3319 ;TEST AC LEFT HALF 3320 ;TEST ROT LEFT ONE BIT POSITION 3321 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3322 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3323 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3324 ;ONE AFTER ROTATING 3325 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3326 3327 003235 SN=SN+1 3328 3329 002000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3330 IFE ZZ, 3331 004000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3332 032424 205 11 0 00 002000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3333 IFN ,< 3334 032425 205 10 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3335 IFE ,< 3336 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3337 032426 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3338 032427 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0086 3339 032430 003 11 0 00 003235 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3340 032431 321 13 0 00 032424 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3341 3342 ;TEST AC LEFT HALF 3343 ;TEST ROT LEFT ONE BIT POSITION 3344 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3345 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3346 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3347 ;ONE AFTER ROTATING 3348 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3349 3350 003236 SN=SN+1 3351 3352 004000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3353 IFE ZZ, 3354 010000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3355 032432 205 11 0 00 004000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3356 IFN ,< 3357 032433 205 10 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3358 IFE ,< 3359 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3360 032434 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3361 032435 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3362 032436 003 11 0 00 003236 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3363 032437 321 13 0 00 032432 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3364 3365 ;TEST AC LEFT HALF 3366 ;TEST ROT LEFT ONE BIT POSITION 3367 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3368 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3369 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3370 ;ONE AFTER ROTATING 3371 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3372 3373 003237 SN=SN+1 3374 3375 010000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3376 IFE ZZ, 3377 020000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3378 032440 205 11 0 00 010000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3379 IFN ,< 3380 032441 205 10 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3381 IFE ,< 3382 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3383 032442 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3384 032443 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3385 032444 003 11 0 00 003237 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3386 032445 321 13 0 00 032440 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3387 3388 ;TEST AC LEFT HALF 3389 ;TEST ROT LEFT ONE BIT POSITION 3390 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3391 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3392 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3393 ;ONE AFTER ROTATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0087 3394 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3395 3396 003240 SN=SN+1 3397 3398 020000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3399 IFE ZZ, 3400 040000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3401 032446 205 11 0 00 020000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3402 IFN ,< 3403 032447 205 10 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3404 IFE ,< 3405 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3406 032450 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3407 032451 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3408 032452 003 11 0 00 003240 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3409 032453 321 13 0 00 032446 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3410 3411 ;TEST AC LEFT HALF 3412 ;TEST ROT LEFT ONE BIT POSITION 3413 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3414 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3415 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3416 ;ONE AFTER ROTATING 3417 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3418 3419 003241 SN=SN+1 3420 3421 040000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3422 IFE ZZ, 3423 100000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3424 032454 205 11 0 00 040000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3425 IFN ,< 3426 032455 205 10 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3427 IFE ,< 3428 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3429 032456 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3430 032457 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3431 032460 003 11 0 00 003241 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3432 032461 321 13 0 00 032454 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3433 3434 ;TEST AC LEFT HALF 3435 ;TEST ROT LEFT ONE BIT POSITION 3436 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3437 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3438 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3439 ;ONE AFTER ROTATING 3440 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3441 3442 003242 SN=SN+1 3443 3444 100000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3445 IFE ZZ, 3446 200000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3447 032462 205 11 0 00 100000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3448 IFN ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 11-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0088 3449 032463 205 10 0 00 200000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3450 IFE ,< 3451 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3452 032464 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3453 032465 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3454 032466 003 11 0 00 003242 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3455 032467 321 13 0 00 032462 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3456 3457 ;TEST AC LEFT HALF 3458 ;TEST ROT LEFT ONE BIT POSITION 3459 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3460 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3461 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3462 ;ONE AFTER ROTATING 3463 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3464 3465 003243 SN=SN+1 3466 3467 200000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3468 IFE ZZ, 3469 400000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3470 032470 205 11 0 00 200000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3471 IFN ,< 3472 032471 205 10 0 00 400000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3473 IFE ,< 3474 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3475 032472 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3476 032473 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3477 032474 003 11 0 00 003243 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3478 032475 321 13 0 00 032470 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3479 3480 ;TEST AC LEFT HALF 3481 ;TEST ROT LEFT ONE BIT POSITION 3482 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 3483 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3484 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 3485 ;ONE AFTER ROTATING 3486 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 3487 3488 003244 SN=SN+1 3489 3490 400000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 3491 IFE ZZ, 3492 000001 000000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 3493 032476 205 11 0 00 400000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 3494 IFN ,< 3495 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 3496 IFE ,< 3497 032477 201 10 0 00 000001 MOVEI AC-1,1 ;SETUP FOR COMPARISON> 3498 032500 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3499 032501 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ONE 3500 032502 003 11 0 00 003244 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3501 032503 321 13 0 00 032476 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3502 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0089 3503 003300 SN=3300 3504 000000 ZZ=0 3505 3506 E3300: REPEAT ^D18,< ;TEST AC RIGHT HALF 3507 ;TEST ROT LEFT ONE BIT POSITION 3508 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3509 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3510 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3511 ;IS ZERO AFTER ROTATING. 3512 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3513 3514 SN=SN+1 3515 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3516 IFE , 3517 YY=&777777 ;SELECTED BIT AFTER ROTATION 3518 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3519 IFN <&377777>,< 3520 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3521 IFE <&777777>,< 3522 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3523 ROT AC,1 ;*ROTATE LEFT ONE 3524 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3525 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3526 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3527 > 3528 ;TEST AC RIGHT HALF 3529 ;TEST ROT LEFT ONE BIT POSITION 3530 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3531 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3532 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3533 ;IS ZERO AFTER ROTATING. 3534 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3535 3536 003301 SN=SN+1 3537 000001 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3538 777777 777776 IFE , 3539 777775 YY=&777777 ;SELECTED BIT AFTER ROTATION 3540 032504 561 11 0 00 777776 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3541 IFN <&377777>,< 3542 032505 561 10 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3543 IFE <&777777>,< 3544 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3545 032506 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3546 032507 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3547 032510 003 11 0 00 003301 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3548 032511 321 13 0 00 032504 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3549 3550 ;TEST AC RIGHT HALF 3551 ;TEST ROT LEFT ONE BIT POSITION 3552 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3553 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3554 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3555 ;IS ZERO AFTER ROTATING. 3556 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3557 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0090 3558 003302 SN=SN+1 3559 777777 777775 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3560 IFE , 3561 777773 YY=&777777 ;SELECTED BIT AFTER ROTATION 3562 032512 561 11 0 00 777775 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3563 IFN <&377777>,< 3564 032513 561 10 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3565 IFE <&777777>,< 3566 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3567 032514 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3568 032515 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3569 032516 003 11 0 00 003302 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3570 032517 321 13 0 00 032512 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3571 3572 ;TEST AC RIGHT HALF 3573 ;TEST ROT LEFT ONE BIT POSITION 3574 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3575 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3576 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3577 ;IS ZERO AFTER ROTATING. 3578 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3579 3580 003303 SN=SN+1 3581 777777 777773 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3582 IFE , 3583 777767 YY=&777777 ;SELECTED BIT AFTER ROTATION 3584 032520 561 11 0 00 777773 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3585 IFN <&377777>,< 3586 032521 561 10 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3587 IFE <&777777>,< 3588 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3589 032522 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3590 032523 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3591 032524 003 11 0 00 003303 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3592 032525 321 13 0 00 032520 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3593 3594 ;TEST AC RIGHT HALF 3595 ;TEST ROT LEFT ONE BIT POSITION 3596 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3597 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3598 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3599 ;IS ZERO AFTER ROTATING. 3600 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3601 3602 003304 SN=SN+1 3603 777777 777767 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3604 IFE , 3605 777757 YY=&777777 ;SELECTED BIT AFTER ROTATION 3606 032526 561 11 0 00 777767 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3607 IFN <&377777>,< 3608 032527 561 10 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3609 IFE <&777777>,< 3610 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3611 032530 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3612 032531 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0091 3613 032532 003 11 0 00 003304 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3614 032533 321 13 0 00 032526 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3615 3616 ;TEST AC RIGHT HALF 3617 ;TEST ROT LEFT ONE BIT POSITION 3618 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3619 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3620 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3621 ;IS ZERO AFTER ROTATING. 3622 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3623 3624 003305 SN=SN+1 3625 777777 777757 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3626 IFE , 3627 777737 YY=&777777 ;SELECTED BIT AFTER ROTATION 3628 032534 561 11 0 00 777757 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3629 IFN <&377777>,< 3630 032535 561 10 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3631 IFE <&777777>,< 3632 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3633 032536 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3634 032537 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3635 032540 003 11 0 00 003305 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3636 032541 321 13 0 00 032534 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3637 3638 ;TEST AC RIGHT HALF 3639 ;TEST ROT LEFT ONE BIT POSITION 3640 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3641 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3642 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3643 ;IS ZERO AFTER ROTATING. 3644 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3645 3646 003306 SN=SN+1 3647 777777 777737 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3648 IFE , 3649 777677 YY=&777777 ;SELECTED BIT AFTER ROTATION 3650 032542 561 11 0 00 777737 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3651 IFN <&377777>,< 3652 032543 561 10 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3653 IFE <&777777>,< 3654 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3655 032544 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3656 032545 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3657 032546 003 11 0 00 003306 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3658 032547 321 13 0 00 032542 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3659 3660 ;TEST AC RIGHT HALF 3661 ;TEST ROT LEFT ONE BIT POSITION 3662 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3663 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3664 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3665 ;IS ZERO AFTER ROTATING. 3666 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3667 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0092 3668 003307 SN=SN+1 3669 777777 777677 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3670 IFE , 3671 777577 YY=&777777 ;SELECTED BIT AFTER ROTATION 3672 032550 561 11 0 00 777677 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3673 IFN <&377777>,< 3674 032551 561 10 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3675 IFE <&777777>,< 3676 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3677 032552 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3678 032553 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3679 032554 003 11 0 00 003307 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3680 032555 321 13 0 00 032550 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3681 3682 ;TEST AC RIGHT HALF 3683 ;TEST ROT LEFT ONE BIT POSITION 3684 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3685 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3686 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3687 ;IS ZERO AFTER ROTATING. 3688 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3689 3690 003310 SN=SN+1 3691 777777 777577 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3692 IFE , 3693 777377 YY=&777777 ;SELECTED BIT AFTER ROTATION 3694 032556 561 11 0 00 777577 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3695 IFN <&377777>,< 3696 032557 561 10 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3697 IFE <&777777>,< 3698 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3699 032560 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3700 032561 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3701 032562 003 11 0 00 003310 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3702 032563 321 13 0 00 032556 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3703 3704 ;TEST AC RIGHT HALF 3705 ;TEST ROT LEFT ONE BIT POSITION 3706 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3707 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3708 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3709 ;IS ZERO AFTER ROTATING. 3710 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3711 3712 003311 SN=SN+1 3713 777777 777377 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3714 IFE , 3715 776777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3716 032564 561 11 0 00 777377 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3717 IFN <&377777>,< 3718 032565 561 10 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3719 IFE <&777777>,< 3720 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3721 032566 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3722 032567 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0093 3723 032570 003 11 0 00 003311 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3724 032571 321 13 0 00 032564 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3725 3726 ;TEST AC RIGHT HALF 3727 ;TEST ROT LEFT ONE BIT POSITION 3728 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3729 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3730 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3731 ;IS ZERO AFTER ROTATING. 3732 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3733 3734 003312 SN=SN+1 3735 777777 776777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3736 IFE , 3737 775777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3738 032572 561 11 0 00 776777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3739 IFN <&377777>,< 3740 032573 561 10 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3741 IFE <&777777>,< 3742 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3743 032574 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3744 032575 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3745 032576 003 11 0 00 003312 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3746 032577 321 13 0 00 032572 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3747 3748 ;TEST AC RIGHT HALF 3749 ;TEST ROT LEFT ONE BIT POSITION 3750 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3751 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3752 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3753 ;IS ZERO AFTER ROTATING. 3754 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3755 3756 003313 SN=SN+1 3757 777777 775777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3758 IFE , 3759 773777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3760 032600 561 11 0 00 775777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3761 IFN <&377777>,< 3762 032601 561 10 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3763 IFE <&777777>,< 3764 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3765 032602 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3766 032603 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3767 032604 003 11 0 00 003313 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3768 032605 321 13 0 00 032600 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3769 3770 ;TEST AC RIGHT HALF 3771 ;TEST ROT LEFT ONE BIT POSITION 3772 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3773 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3774 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3775 ;IS ZERO AFTER ROTATING. 3776 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3777 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0094 3778 003314 SN=SN+1 3779 777777 773777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3780 IFE , 3781 767777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3782 032606 561 11 0 00 773777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3783 IFN <&377777>,< 3784 032607 561 10 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3785 IFE <&777777>,< 3786 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3787 032610 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3788 032611 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3789 032612 003 11 0 00 003314 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3790 032613 321 13 0 00 032606 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3791 3792 ;TEST AC RIGHT HALF 3793 ;TEST ROT LEFT ONE BIT POSITION 3794 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3795 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3796 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3797 ;IS ZERO AFTER ROTATING. 3798 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3799 3800 003315 SN=SN+1 3801 777777 767777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3802 IFE , 3803 757777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3804 032614 561 11 0 00 767777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3805 IFN <&377777>,< 3806 032615 561 10 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3807 IFE <&777777>,< 3808 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3809 032616 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3810 032617 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3811 032620 003 11 0 00 003315 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3812 032621 321 13 0 00 032614 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3813 3814 ;TEST AC RIGHT HALF 3815 ;TEST ROT LEFT ONE BIT POSITION 3816 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3817 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3818 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3819 ;IS ZERO AFTER ROTATING. 3820 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3821 3822 003316 SN=SN+1 3823 777777 757777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3824 IFE , 3825 737777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3826 032622 561 11 0 00 757777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3827 IFN <&377777>,< 3828 032623 561 10 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3829 IFE <&777777>,< 3830 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3831 032624 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3832 032625 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0095 3833 032626 003 11 0 00 003316 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3834 032627 321 13 0 00 032622 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3835 3836 ;TEST AC RIGHT HALF 3837 ;TEST ROT LEFT ONE BIT POSITION 3838 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3839 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3840 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3841 ;IS ZERO AFTER ROTATING. 3842 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3843 3844 003317 SN=SN+1 3845 777777 737777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3846 IFE , 3847 677777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3848 032630 561 11 0 00 737777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3849 IFN <&377777>,< 3850 032631 561 10 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3851 IFE <&777777>,< 3852 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3853 032632 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3854 032633 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3855 032634 003 11 0 00 003317 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3856 032635 321 13 0 00 032630 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3857 3858 ;TEST AC RIGHT HALF 3859 ;TEST ROT LEFT ONE BIT POSITION 3860 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3861 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3862 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3863 ;IS ZERO AFTER ROTATING. 3864 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3865 3866 003320 SN=SN+1 3867 777777 677777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3868 IFE , 3869 577777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3870 032636 561 11 0 00 677777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3871 IFN <&377777>,< 3872 032637 561 10 0 00 577777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3873 IFE <&777777>,< 3874 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3875 032640 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3876 032641 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3877 032642 003 11 0 00 003320 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3878 032643 321 13 0 00 032636 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3879 3880 ;TEST AC RIGHT HALF 3881 ;TEST ROT LEFT ONE BIT POSITION 3882 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3883 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3884 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3885 ;IS ZERO AFTER ROTATING. 3886 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3887 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0096 3888 003321 SN=SN+1 3889 777777 577777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3890 IFE , 3891 377777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3892 032644 561 11 0 00 577777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3893 IFN <&377777>,< 3894 032645 561 10 0 00 377777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3895 IFE <&777777>,< 3896 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3897 032646 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3898 032647 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3899 032650 003 11 0 00 003321 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3900 032651 321 13 0 00 032644 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3901 3902 ;TEST AC RIGHT HALF 3903 ;TEST ROT LEFT ONE BIT POSITION 3904 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3905 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3906 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3907 ;IS ZERO AFTER ROTATING. 3908 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3909 3910 003322 SN=SN+1 3911 777777 377777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3912 IFE , 3913 777777 YY=&777777 ;SELECTED BIT AFTER ROTATION 3914 032652 561 11 0 00 377777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 3915 IFN <&377777>,< 3916 HRROI AC-1,YY ;SETUP FOR COMPARISON> 3917 IFE <&777777>,< 3918 032653 525 10 0 00 777776 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 3919 032654 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3920 032655 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) A ZERO 3921 032656 003 11 0 00 003322 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3922 032657 321 13 0 00 032652 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3923 3924 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0097 3925 000000 ZZ=0 3926 REPEAT ^D18,< ;TEST AC LEFT HALF 3927 ;TEST ROT LEFT ONE BIT POSITION 3928 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3929 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3930 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3931 ;IS ZERO AFTER ROTATING. 3932 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3933 3934 SN=SN+1 3935 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3936 IFE , 3937 YY=&777777 ;SELECTED BIT AFTER ROTATION 3938 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 3939 IFN <&777777>,< 3940 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 3941 IFE <&777777>,< 3942 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 3943 ROT AC,1 ;*ROTATE LEFT ONE 3944 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 3945 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3946 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3947 > 3948 ;TEST AC LEFT HALF 3949 ;TEST ROT LEFT ONE BIT POSITION 3950 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3951 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3952 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3953 ;IS ZERO AFTER ROTATING. 3954 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3955 3956 003323 SN=SN+1 3957 000001 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 3958 777777 777776 IFE , 3959 777775 YY=&777777 ;SELECTED BIT AFTER ROTATION 3960 032660 525 11 0 00 777776 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 3961 IFN <&777777>,< 3962 032661 525 10 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 3963 IFE <&777777>,< 3964 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 3965 032662 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3966 032663 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 3967 032664 003 11 0 00 003323 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3968 032665 321 13 0 00 032660 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3969 3970 ;TEST AC LEFT HALF 3971 ;TEST ROT LEFT ONE BIT POSITION 3972 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3973 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3974 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3975 ;IS ZERO AFTER ROTATING. 3976 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3977 3978 003324 SN=SN+1 3979 777777 777775 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0098 3980 IFE , 3981 777773 YY=&777777 ;SELECTED BIT AFTER ROTATION 3982 032666 525 11 0 00 777775 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 3983 IFN <&777777>,< 3984 032667 525 10 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 3985 IFE <&777777>,< 3986 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 3987 032670 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 3988 032671 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 3989 032672 003 11 0 00 003324 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 3990 032673 321 13 0 00 032666 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3991 3992 ;TEST AC LEFT HALF 3993 ;TEST ROT LEFT ONE BIT POSITION 3994 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 3995 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 3996 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 3997 ;IS ZERO AFTER ROTATING. 3998 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 3999 4000 003325 SN=SN+1 4001 777777 777773 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4002 IFE , 4003 777767 YY=&777777 ;SELECTED BIT AFTER ROTATION 4004 032674 525 11 0 00 777773 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4005 IFN <&777777>,< 4006 032675 525 10 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4007 IFE <&777777>,< 4008 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4009 032676 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4010 032677 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4011 032700 003 11 0 00 003325 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4012 032701 321 13 0 00 032674 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4013 4014 ;TEST AC LEFT HALF 4015 ;TEST ROT LEFT ONE BIT POSITION 4016 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4017 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4018 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4019 ;IS ZERO AFTER ROTATING. 4020 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4021 4022 003326 SN=SN+1 4023 777777 777767 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4024 IFE , 4025 777757 YY=&777777 ;SELECTED BIT AFTER ROTATION 4026 032702 525 11 0 00 777767 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4027 IFN <&777777>,< 4028 032703 525 10 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4029 IFE <&777777>,< 4030 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4031 032704 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4032 032705 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4033 032706 003 11 0 00 003326 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4034 032707 321 13 0 00 032702 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0099 4035 4036 ;TEST AC LEFT HALF 4037 ;TEST ROT LEFT ONE BIT POSITION 4038 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4039 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4040 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4041 ;IS ZERO AFTER ROTATING. 4042 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4043 4044 003327 SN=SN+1 4045 777777 777757 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4046 IFE , 4047 777737 YY=&777777 ;SELECTED BIT AFTER ROTATION 4048 032710 525 11 0 00 777757 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4049 IFN <&777777>,< 4050 032711 525 10 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4051 IFE <&777777>,< 4052 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4053 032712 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4054 032713 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4055 032714 003 11 0 00 003327 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4056 032715 321 13 0 00 032710 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4057 4058 ;TEST AC LEFT HALF 4059 ;TEST ROT LEFT ONE BIT POSITION 4060 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4061 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4062 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4063 ;IS ZERO AFTER ROTATING. 4064 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4065 4066 003330 SN=SN+1 4067 777777 777737 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4068 IFE , 4069 777677 YY=&777777 ;SELECTED BIT AFTER ROTATION 4070 032716 525 11 0 00 777737 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4071 IFN <&777777>,< 4072 032717 525 10 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4073 IFE <&777777>,< 4074 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4075 032720 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4076 032721 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4077 032722 003 11 0 00 003330 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4078 032723 321 13 0 00 032716 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4079 4080 ;TEST AC LEFT HALF 4081 ;TEST ROT LEFT ONE BIT POSITION 4082 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4083 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4084 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4085 ;IS ZERO AFTER ROTATING. 4086 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4087 4088 003331 SN=SN+1 4089 777777 777677 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0100 4090 IFE , 4091 777577 YY=&777777 ;SELECTED BIT AFTER ROTATION 4092 032724 525 11 0 00 777677 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4093 IFN <&777777>,< 4094 032725 525 10 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4095 IFE <&777777>,< 4096 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4097 032726 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4098 032727 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4099 032730 003 11 0 00 003331 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4100 032731 321 13 0 00 032724 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4101 4102 ;TEST AC LEFT HALF 4103 ;TEST ROT LEFT ONE BIT POSITION 4104 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4105 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4106 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4107 ;IS ZERO AFTER ROTATING. 4108 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4109 4110 003332 SN=SN+1 4111 777777 777577 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4112 IFE , 4113 777377 YY=&777777 ;SELECTED BIT AFTER ROTATION 4114 032732 525 11 0 00 777577 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4115 IFN <&777777>,< 4116 032733 525 10 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4117 IFE <&777777>,< 4118 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4119 032734 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4120 032735 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4121 032736 003 11 0 00 003332 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4122 032737 321 13 0 00 032732 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4123 4124 ;TEST AC LEFT HALF 4125 ;TEST ROT LEFT ONE BIT POSITION 4126 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4127 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4128 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4129 ;IS ZERO AFTER ROTATING. 4130 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4131 4132 003333 SN=SN+1 4133 777777 777377 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4134 IFE , 4135 776777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4136 032740 525 11 0 00 777377 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4137 IFN <&777777>,< 4138 032741 525 10 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4139 IFE <&777777>,< 4140 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4141 032742 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4142 032743 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4143 032744 003 11 0 00 003333 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4144 032745 321 13 0 00 032740 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0101 4145 4146 ;TEST AC LEFT HALF 4147 ;TEST ROT LEFT ONE BIT POSITION 4148 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4149 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4150 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4151 ;IS ZERO AFTER ROTATING. 4152 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4153 4154 003334 SN=SN+1 4155 777777 776777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4156 IFE , 4157 775777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4158 032746 525 11 0 00 776777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4159 IFN <&777777>,< 4160 032747 525 10 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4161 IFE <&777777>,< 4162 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4163 032750 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4164 032751 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4165 032752 003 11 0 00 003334 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4166 032753 321 13 0 00 032746 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4167 4168 ;TEST AC LEFT HALF 4169 ;TEST ROT LEFT ONE BIT POSITION 4170 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4171 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4172 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4173 ;IS ZERO AFTER ROTATING. 4174 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4175 4176 003335 SN=SN+1 4177 777777 775777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4178 IFE , 4179 773777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4180 032754 525 11 0 00 775777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4181 IFN <&777777>,< 4182 032755 525 10 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4183 IFE <&777777>,< 4184 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4185 032756 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4186 032757 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4187 032760 003 11 0 00 003335 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4188 032761 321 13 0 00 032754 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4189 4190 ;TEST AC LEFT HALF 4191 ;TEST ROT LEFT ONE BIT POSITION 4192 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4193 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4194 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4195 ;IS ZERO AFTER ROTATING. 4196 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4197 4198 003336 SN=SN+1 4199 777777 773777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0102 4200 IFE , 4201 767777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4202 032762 525 11 0 00 773777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4203 IFN <&777777>,< 4204 032763 525 10 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4205 IFE <&777777>,< 4206 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4207 032764 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4208 032765 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4209 032766 003 11 0 00 003336 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4210 032767 321 13 0 00 032762 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4211 4212 ;TEST AC LEFT HALF 4213 ;TEST ROT LEFT ONE BIT POSITION 4214 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4215 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4216 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4217 ;IS ZERO AFTER ROTATING. 4218 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4219 4220 003337 SN=SN+1 4221 777777 767777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4222 IFE , 4223 757777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4224 032770 525 11 0 00 767777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4225 IFN <&777777>,< 4226 032771 525 10 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4227 IFE <&777777>,< 4228 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4229 032772 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4230 032773 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4231 032774 003 11 0 00 003337 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4232 032775 321 13 0 00 032770 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4233 4234 ;TEST AC LEFT HALF 4235 ;TEST ROT LEFT ONE BIT POSITION 4236 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4237 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4238 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4239 ;IS ZERO AFTER ROTATING. 4240 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4241 4242 003340 SN=SN+1 4243 777777 757777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4244 IFE , 4245 737777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4246 032776 525 11 0 00 757777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4247 IFN <&777777>,< 4248 032777 525 10 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4249 IFE <&777777>,< 4250 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4251 033000 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4252 033001 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4253 033002 003 11 0 00 003340 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4254 033003 321 13 0 00 032776 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0103 4255 4256 ;TEST AC LEFT HALF 4257 ;TEST ROT LEFT ONE BIT POSITION 4258 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4259 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4260 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4261 ;IS ZERO AFTER ROTATING. 4262 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4263 4264 003341 SN=SN+1 4265 777777 737777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4266 IFE , 4267 677777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4268 033004 525 11 0 00 737777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4269 IFN <&777777>,< 4270 033005 525 10 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4271 IFE <&777777>,< 4272 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4273 033006 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4274 033007 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4275 033010 003 11 0 00 003341 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4276 033011 321 13 0 00 033004 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4277 4278 ;TEST AC LEFT HALF 4279 ;TEST ROT LEFT ONE BIT POSITION 4280 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4281 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4282 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4283 ;IS ZERO AFTER ROTATING. 4284 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4285 4286 003342 SN=SN+1 4287 777777 677777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4288 IFE , 4289 577777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4290 033012 525 11 0 00 677777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4291 IFN <&777777>,< 4292 033013 525 10 0 00 577777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4293 IFE <&777777>,< 4294 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4295 033014 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4296 033015 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4297 033016 003 11 0 00 003342 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4298 033017 321 13 0 00 033012 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4299 4300 ;TEST AC LEFT HALF 4301 ;TEST ROT LEFT ONE BIT POSITION 4302 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4303 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4304 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4305 ;IS ZERO AFTER ROTATING. 4306 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4307 4308 003343 SN=SN+1 4309 777777 577777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 12-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0104 4310 IFE , 4311 377777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4312 033020 525 11 0 00 577777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4313 IFN <&777777>,< 4314 033021 525 10 0 00 377777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4315 IFE <&777777>,< 4316 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4317 033022 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4318 033023 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4319 033024 003 11 0 00 003343 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4320 033025 321 13 0 00 033020 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4321 4322 ;TEST AC LEFT HALF 4323 ;TEST ROT LEFT ONE BIT POSITION 4324 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 4325 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4326 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 4327 ;IS ZERO AFTER ROTATING. 4328 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 4329 4330 003344 SN=SN+1 4331 777777 377777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 4332 IFE , 4333 777777 YY=&777777 ;SELECTED BIT AFTER ROTATION 4334 033026 525 11 0 00 377777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 4335 IFN <&777777>,< 4336 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 4337 IFE <&777777>,< 4338 033027 561 10 0 00 777776 HRROI AC-1,-2 ;SETUP FOR COMPARISON> 4339 033030 241 11 0 00 000001 ROT AC,1 ;*ROTATE LEFT ONE 4340 033031 312 11 0 00 000010 CAME AC,AC-1 ;TEST FOR BIT (N-1) OR ZERO 4341 033032 003 11 0 00 003344 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4342 033033 321 13 0 00 033026 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4343 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0105 4344 4345 ;TEST ROT RIGHT ONE BIT POSITION 4346 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD. 4347 ;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING 4348 4349 000010 AC=10 4350 SAVEAC (1,1)^ 4351 033034 201 12 0 00 033034 MOVEI AC+2,. ;SAVE TEST PC 4352 033035 202 12 0 00 030051 MOVEM AC+2,TESTPC 4353 033036 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4354 033037 202 12 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4355 4356 033040 403 10 0 00 000007 E3400: SETZB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ZERO 4357 033041 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4358 033042 312 10 0 00 000007 CAME AC,AC-1 ;TEST AC FOR ALL ZEROS 4359 033043 003 10 0 00 003401 ER3 AC,3401 ;AD-AR GATING FAILED 4360 033044 321 12 0 00 033040 JUMPL AC+2,E3400 ;LOOP ON ERROR SWITCH 4361 4362 ;TEST ROT RIGHT ONE BIT POSITION 4363 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4364 ;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING 4365 4366 033045 477 10 0 00 000007 E3500: SETOB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES 4367 033046 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4368 033047 312 10 0 00 000007 CAME AC,AC-1 ;TEST AC FOR ALL ONES. 4369 033050 003 10 0 00 003501 ER3 AC,3501 ;AD-AR GATING FAILED 4370 033051 321 12 0 00 033045 JUMPL AC+2,E3500 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0106 4371 003600 SN=3600 4372 000000 ZZ=0 4373 4374 E3600: REPEAT ^D18,< ;TEST AC LEFT HALF 4375 ;TEST ROT RIGHT ONE BIT POSITION 4376 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4377 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4378 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4379 ;BIT IS ONE AFTER ROTATING 4380 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4381 4382 SN=SN+1 4383 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4384 IFE ZZ, 4385 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4386 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4387 IFN ,< 4388 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4389 IFE ,< 4390 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4391 ROT AC,-1 ;*ROTATE RIGHT ONE 4392 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4393 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4394 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4395 > 4396 ;TEST AC LEFT HALF 4397 ;TEST ROT RIGHT ONE BIT POSITION 4398 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4399 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4400 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4401 ;BIT IS ONE AFTER ROTATING 4402 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4403 4404 003601 SN=SN+1 4405 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4406 400000 IFE ZZ, 4407 200000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4408 033052 205 10 0 00 400000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4409 IFN ,< 4410 033053 205 07 0 00 200000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4411 IFE ,< 4412 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4413 033054 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4414 033055 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4415 033056 003 10 0 00 003601 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4416 033057 321 12 0 00 033052 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4417 4418 ;TEST AC LEFT HALF 4419 ;TEST ROT RIGHT ONE BIT POSITION 4420 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4421 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4422 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4423 ;BIT IS ONE AFTER ROTATING 4424 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4425 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0107 4426 003602 SN=SN+1 4427 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4428 IFE ZZ, 4429 100000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4430 033060 205 10 0 00 200000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4431 IFN ,< 4432 033061 205 07 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4433 IFE ,< 4434 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4435 033062 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4436 033063 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4437 033064 003 10 0 00 003602 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4438 033065 321 12 0 00 033060 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4439 4440 ;TEST AC LEFT HALF 4441 ;TEST ROT RIGHT ONE BIT POSITION 4442 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4443 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4444 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4445 ;BIT IS ONE AFTER ROTATING 4446 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4447 4448 003603 SN=SN+1 4449 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4450 IFE ZZ, 4451 040000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4452 033066 205 10 0 00 100000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4453 IFN ,< 4454 033067 205 07 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4455 IFE ,< 4456 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4457 033070 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4458 033071 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4459 033072 003 10 0 00 003603 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4460 033073 321 12 0 00 033066 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4461 4462 ;TEST AC LEFT HALF 4463 ;TEST ROT RIGHT ONE BIT POSITION 4464 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4465 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4466 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4467 ;BIT IS ONE AFTER ROTATING 4468 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4469 4470 003604 SN=SN+1 4471 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4472 IFE ZZ, 4473 020000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4474 033074 205 10 0 00 040000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4475 IFN ,< 4476 033075 205 07 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4477 IFE ,< 4478 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4479 033076 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4480 033077 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0108 4481 033100 003 10 0 00 003604 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4482 033101 321 12 0 00 033074 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4483 4484 ;TEST AC LEFT HALF 4485 ;TEST ROT RIGHT ONE BIT POSITION 4486 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4487 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4488 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4489 ;BIT IS ONE AFTER ROTATING 4490 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4491 4492 003605 SN=SN+1 4493 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4494 IFE ZZ, 4495 010000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4496 033102 205 10 0 00 020000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4497 IFN ,< 4498 033103 205 07 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4499 IFE ,< 4500 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4501 033104 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4502 033105 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4503 033106 003 10 0 00 003605 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4504 033107 321 12 0 00 033102 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4505 4506 ;TEST AC LEFT HALF 4507 ;TEST ROT RIGHT ONE BIT POSITION 4508 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4509 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4510 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4511 ;BIT IS ONE AFTER ROTATING 4512 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4513 4514 003606 SN=SN+1 4515 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4516 IFE ZZ, 4517 004000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4518 033110 205 10 0 00 010000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4519 IFN ,< 4520 033111 205 07 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4521 IFE ,< 4522 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4523 033112 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4524 033113 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4525 033114 003 10 0 00 003606 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4526 033115 321 12 0 00 033110 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4527 4528 ;TEST AC LEFT HALF 4529 ;TEST ROT RIGHT ONE BIT POSITION 4530 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4531 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4532 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4533 ;BIT IS ONE AFTER ROTATING 4534 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4535 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0109 4536 003607 SN=SN+1 4537 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4538 IFE ZZ, 4539 002000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4540 033116 205 10 0 00 004000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4541 IFN ,< 4542 033117 205 07 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4543 IFE ,< 4544 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4545 033120 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4546 033121 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4547 033122 003 10 0 00 003607 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4548 033123 321 12 0 00 033116 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4549 4550 ;TEST AC LEFT HALF 4551 ;TEST ROT RIGHT ONE BIT POSITION 4552 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4553 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4554 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4555 ;BIT IS ONE AFTER ROTATING 4556 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4557 4558 003610 SN=SN+1 4559 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4560 IFE ZZ, 4561 001000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4562 033124 205 10 0 00 002000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4563 IFN ,< 4564 033125 205 07 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4565 IFE ,< 4566 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4567 033126 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4568 033127 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4569 033130 003 10 0 00 003610 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4570 033131 321 12 0 00 033124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4571 4572 ;TEST AC LEFT HALF 4573 ;TEST ROT RIGHT ONE BIT POSITION 4574 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4575 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4576 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4577 ;BIT IS ONE AFTER ROTATING 4578 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4579 4580 003611 SN=SN+1 4581 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4582 IFE ZZ, 4583 000400 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4584 033132 205 10 0 00 001000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4585 IFN ,< 4586 033133 205 07 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4587 IFE ,< 4588 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4589 033134 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4590 033135 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0110 4591 033136 003 10 0 00 003611 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4592 033137 321 12 0 00 033132 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4593 4594 ;TEST AC LEFT HALF 4595 ;TEST ROT RIGHT ONE BIT POSITION 4596 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4597 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4598 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4599 ;BIT IS ONE AFTER ROTATING 4600 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4601 4602 003612 SN=SN+1 4603 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4604 IFE ZZ, 4605 000200 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4606 033140 205 10 0 00 000400 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4607 IFN ,< 4608 033141 205 07 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4609 IFE ,< 4610 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4611 033142 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4612 033143 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4613 033144 003 10 0 00 003612 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4614 033145 321 12 0 00 033140 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4615 4616 ;TEST AC LEFT HALF 4617 ;TEST ROT RIGHT ONE BIT POSITION 4618 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4619 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4620 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4621 ;BIT IS ONE AFTER ROTATING 4622 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4623 4624 003613 SN=SN+1 4625 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4626 IFE ZZ, 4627 000100 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4628 033146 205 10 0 00 000200 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4629 IFN ,< 4630 033147 205 07 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4631 IFE ,< 4632 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4633 033150 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4634 033151 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4635 033152 003 10 0 00 003613 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4636 033153 321 12 0 00 033146 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4637 4638 ;TEST AC LEFT HALF 4639 ;TEST ROT RIGHT ONE BIT POSITION 4640 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4641 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4642 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4643 ;BIT IS ONE AFTER ROTATING 4644 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4645 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0111 4646 003614 SN=SN+1 4647 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4648 IFE ZZ, 4649 000040 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4650 033154 205 10 0 00 000100 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4651 IFN ,< 4652 033155 205 07 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4653 IFE ,< 4654 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4655 033156 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4656 033157 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4657 033160 003 10 0 00 003614 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4658 033161 321 12 0 00 033154 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4659 4660 ;TEST AC LEFT HALF 4661 ;TEST ROT RIGHT ONE BIT POSITION 4662 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4663 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4664 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4665 ;BIT IS ONE AFTER ROTATING 4666 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4667 4668 003615 SN=SN+1 4669 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4670 IFE ZZ, 4671 000020 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4672 033162 205 10 0 00 000040 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4673 IFN ,< 4674 033163 205 07 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4675 IFE ,< 4676 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4677 033164 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4678 033165 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4679 033166 003 10 0 00 003615 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4680 033167 321 12 0 00 033162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4681 4682 ;TEST AC LEFT HALF 4683 ;TEST ROT RIGHT ONE BIT POSITION 4684 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4685 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4686 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4687 ;BIT IS ONE AFTER ROTATING 4688 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4689 4690 003616 SN=SN+1 4691 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4692 IFE ZZ, 4693 000010 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4694 033170 205 10 0 00 000020 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4695 IFN ,< 4696 033171 205 07 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4697 IFE ,< 4698 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4699 033172 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4700 033173 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0112 4701 033174 003 10 0 00 003616 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4702 033175 321 12 0 00 033170 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4703 4704 ;TEST AC LEFT HALF 4705 ;TEST ROT RIGHT ONE BIT POSITION 4706 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4707 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4708 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4709 ;BIT IS ONE AFTER ROTATING 4710 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4711 4712 003617 SN=SN+1 4713 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4714 IFE ZZ, 4715 000004 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4716 033176 205 10 0 00 000010 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4717 IFN ,< 4718 033177 205 07 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4719 IFE ,< 4720 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4721 033200 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4722 033201 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4723 033202 003 10 0 00 003617 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4724 033203 321 12 0 00 033176 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4725 4726 ;TEST AC LEFT HALF 4727 ;TEST ROT RIGHT ONE BIT POSITION 4728 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4729 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4730 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4731 ;BIT IS ONE AFTER ROTATING 4732 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4733 4734 003620 SN=SN+1 4735 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4736 IFE ZZ, 4737 000002 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4738 033204 205 10 0 00 000004 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4739 IFN ,< 4740 033205 205 07 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4741 IFE ,< 4742 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4743 033206 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4744 033207 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4745 033210 003 10 0 00 003620 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4746 033211 321 12 0 00 033204 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4747 4748 ;TEST AC LEFT HALF 4749 ;TEST ROT RIGHT ONE BIT POSITION 4750 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4751 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4752 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4753 ;BIT IS ONE AFTER ROTATING 4754 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4755 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0113 4756 003621 SN=SN+1 4757 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4758 IFE ZZ, 4759 000001 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4760 033212 205 10 0 00 000002 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4761 IFN ,< 4762 033213 205 07 0 00 000001 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4763 IFE ,< 4764 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4765 033214 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4766 033215 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4767 033216 003 10 0 00 003621 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4768 033217 321 12 0 00 033212 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4769 4770 ;TEST AC LEFT HALF 4771 ;TEST ROT RIGHT ONE BIT POSITION 4772 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4773 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4774 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 4775 ;BIT IS ONE AFTER ROTATING 4776 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4777 4778 003622 SN=SN+1 4779 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4780 IFE ZZ, 4781 000000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4782 033220 205 10 0 00 000001 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 4783 IFN ,< 4784 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 4785 IFE ,< 4786 033221 201 07 0 00 400000 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 4787 033222 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4788 033223 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4789 033224 003 10 0 00 003622 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4790 033225 321 12 0 00 033220 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4791 4792 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0114 4793 000000 ZZ=0 4794 4795 REPEAT ^D18,< ;TEST AC RIGHT HALF 4796 ;TEST ROT RIGHT ONE BIT POSITION 4797 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4798 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4799 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4800 ;ONE AFTER ROTATING 4801 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4802 4803 SN=SN+1 4804 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4805 IFE ZZ, 4806 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4807 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4808 IFN ,< 4809 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4810 IFE ,< 4811 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4812 ROT AC,-1 ;*ROTATE RIGHT ONE 4813 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4814 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4815 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4816 > 4817 ;TEST AC RIGHT HALF 4818 ;TEST ROT RIGHT ONE BIT POSITION 4819 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4820 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4821 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4822 ;ONE AFTER ROTATING 4823 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4824 4825 003623 SN=SN+1 4826 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4827 400000 IFE ZZ, 4828 200000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4829 033226 201 10 0 00 400000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4830 IFN ,< 4831 033227 201 07 0 00 200000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4832 IFE ,< 4833 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4834 033230 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4835 033231 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4836 033232 003 10 0 00 003623 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4837 033233 321 12 0 00 033226 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4838 4839 ;TEST AC RIGHT HALF 4840 ;TEST ROT RIGHT ONE BIT POSITION 4841 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4842 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4843 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4844 ;ONE AFTER ROTATING 4845 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4846 4847 003624 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0115 4848 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4849 IFE ZZ, 4850 100000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4851 033234 201 10 0 00 200000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4852 IFN ,< 4853 033235 201 07 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4854 IFE ,< 4855 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4856 033236 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4857 033237 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4858 033240 003 10 0 00 003624 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4859 033241 321 12 0 00 033234 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4860 4861 ;TEST AC RIGHT HALF 4862 ;TEST ROT RIGHT ONE BIT POSITION 4863 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4864 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4865 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4866 ;ONE AFTER ROTATING 4867 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4868 4869 003625 SN=SN+1 4870 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4871 IFE ZZ, 4872 040000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4873 033242 201 10 0 00 100000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4874 IFN ,< 4875 033243 201 07 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4876 IFE ,< 4877 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4878 033244 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4879 033245 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4880 033246 003 10 0 00 003625 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4881 033247 321 12 0 00 033242 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4882 4883 ;TEST AC RIGHT HALF 4884 ;TEST ROT RIGHT ONE BIT POSITION 4885 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4886 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4887 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4888 ;ONE AFTER ROTATING 4889 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4890 4891 003626 SN=SN+1 4892 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4893 IFE ZZ, 4894 020000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4895 033250 201 10 0 00 040000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4896 IFN ,< 4897 033251 201 07 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4898 IFE ,< 4899 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4900 033252 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4901 033253 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4902 033254 003 10 0 00 003626 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0116 4903 033255 321 12 0 00 033250 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4904 4905 ;TEST AC RIGHT HALF 4906 ;TEST ROT RIGHT ONE BIT POSITION 4907 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4908 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4909 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4910 ;ONE AFTER ROTATING 4911 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4912 4913 003627 SN=SN+1 4914 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4915 IFE ZZ, 4916 010000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4917 033256 201 10 0 00 020000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4918 IFN ,< 4919 033257 201 07 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4920 IFE ,< 4921 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4922 033260 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4923 033261 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4924 033262 003 10 0 00 003627 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4925 033263 321 12 0 00 033256 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4926 4927 ;TEST AC RIGHT HALF 4928 ;TEST ROT RIGHT ONE BIT POSITION 4929 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4930 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4931 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4932 ;ONE AFTER ROTATING 4933 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4934 4935 003630 SN=SN+1 4936 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4937 IFE ZZ, 4938 004000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4939 033264 201 10 0 00 010000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4940 IFN ,< 4941 033265 201 07 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4942 IFE ,< 4943 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4944 033266 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4945 033267 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4946 033270 003 10 0 00 003630 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4947 033271 321 12 0 00 033264 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4948 4949 ;TEST AC RIGHT HALF 4950 ;TEST ROT RIGHT ONE BIT POSITION 4951 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4952 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4953 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4954 ;ONE AFTER ROTATING 4955 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4956 4957 003631 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0117 4958 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4959 IFE ZZ, 4960 002000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4961 033272 201 10 0 00 004000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4962 IFN ,< 4963 033273 201 07 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4964 IFE ,< 4965 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4966 033274 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4967 033275 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4968 033276 003 10 0 00 003631 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4969 033277 321 12 0 00 033272 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4970 4971 ;TEST AC RIGHT HALF 4972 ;TEST ROT RIGHT ONE BIT POSITION 4973 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4974 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4975 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4976 ;ONE AFTER ROTATING 4977 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 4978 4979 003632 SN=SN+1 4980 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 4981 IFE ZZ, 4982 001000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 4983 033300 201 10 0 00 002000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 4984 IFN ,< 4985 033301 201 07 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 4986 IFE ,< 4987 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 4988 033302 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 4989 033303 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 4990 033304 003 10 0 00 003632 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 4991 033305 321 12 0 00 033300 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4992 4993 ;TEST AC RIGHT HALF 4994 ;TEST ROT RIGHT ONE BIT POSITION 4995 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 4996 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 4997 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 4998 ;ONE AFTER ROTATING 4999 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5000 5001 003633 SN=SN+1 5002 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5003 IFE ZZ, 5004 000400 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5005 033306 201 10 0 00 001000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5006 IFN ,< 5007 033307 201 07 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5008 IFE ,< 5009 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5010 033310 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5011 033311 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5012 033312 003 10 0 00 003633 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0118 5013 033313 321 12 0 00 033306 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5014 5015 ;TEST AC RIGHT HALF 5016 ;TEST ROT RIGHT ONE BIT POSITION 5017 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5018 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5019 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5020 ;ONE AFTER ROTATING 5021 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5022 5023 003634 SN=SN+1 5024 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5025 IFE ZZ, 5026 000200 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5027 033314 201 10 0 00 000400 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5028 IFN ,< 5029 033315 201 07 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5030 IFE ,< 5031 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5032 033316 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5033 033317 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5034 033320 003 10 0 00 003634 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5035 033321 321 12 0 00 033314 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5036 5037 ;TEST AC RIGHT HALF 5038 ;TEST ROT RIGHT ONE BIT POSITION 5039 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5040 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5041 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5042 ;ONE AFTER ROTATING 5043 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5044 5045 003635 SN=SN+1 5046 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5047 IFE ZZ, 5048 000100 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5049 033322 201 10 0 00 000200 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5050 IFN ,< 5051 033323 201 07 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5052 IFE ,< 5053 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5054 033324 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5055 033325 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5056 033326 003 10 0 00 003635 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5057 033327 321 12 0 00 033322 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5058 5059 ;TEST AC RIGHT HALF 5060 ;TEST ROT RIGHT ONE BIT POSITION 5061 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5062 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5063 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5064 ;ONE AFTER ROTATING 5065 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5066 5067 003636 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0119 5068 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5069 IFE ZZ, 5070 000040 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5071 033330 201 10 0 00 000100 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5072 IFN ,< 5073 033331 201 07 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5074 IFE ,< 5075 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5076 033332 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5077 033333 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5078 033334 003 10 0 00 003636 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5079 033335 321 12 0 00 033330 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5080 5081 ;TEST AC RIGHT HALF 5082 ;TEST ROT RIGHT ONE BIT POSITION 5083 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5084 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5085 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5086 ;ONE AFTER ROTATING 5087 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5088 5089 003637 SN=SN+1 5090 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5091 IFE ZZ, 5092 000020 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5093 033336 201 10 0 00 000040 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5094 IFN ,< 5095 033337 201 07 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5096 IFE ,< 5097 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5098 033340 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5099 033341 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5100 033342 003 10 0 00 003637 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5101 033343 321 12 0 00 033336 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5102 5103 ;TEST AC RIGHT HALF 5104 ;TEST ROT RIGHT ONE BIT POSITION 5105 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5106 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5107 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5108 ;ONE AFTER ROTATING 5109 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5110 5111 003640 SN=SN+1 5112 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5113 IFE ZZ, 5114 000010 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5115 033344 201 10 0 00 000020 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5116 IFN ,< 5117 033345 201 07 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5118 IFE ,< 5119 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5120 033346 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5121 033347 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5122 033350 003 10 0 00 003640 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0120 5123 033351 321 12 0 00 033344 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5124 5125 ;TEST AC RIGHT HALF 5126 ;TEST ROT RIGHT ONE BIT POSITION 5127 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5128 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5129 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5130 ;ONE AFTER ROTATING 5131 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5132 5133 003641 SN=SN+1 5134 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5135 IFE ZZ, 5136 000004 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5137 033352 201 10 0 00 000010 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5138 IFN ,< 5139 033353 201 07 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5140 IFE ,< 5141 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5142 033354 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5143 033355 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5144 033356 003 10 0 00 003641 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5145 033357 321 12 0 00 033352 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5146 5147 ;TEST AC RIGHT HALF 5148 ;TEST ROT RIGHT ONE BIT POSITION 5149 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5150 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5151 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5152 ;ONE AFTER ROTATING 5153 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5154 5155 003642 SN=SN+1 5156 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5157 IFE ZZ, 5158 000002 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5159 033360 201 10 0 00 000004 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5160 IFN ,< 5161 033361 201 07 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5162 IFE ,< 5163 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5164 033362 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5165 033363 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5166 033364 003 10 0 00 003642 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5167 033365 321 12 0 00 033360 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5168 5169 ;TEST AC RIGHT HALF 5170 ;TEST ROT RIGHT ONE BIT POSITION 5171 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5172 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5173 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5174 ;ONE AFTER ROTATING 5175 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5176 5177 003643 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 14-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0121 5178 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5179 IFE ZZ, 5180 000001 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5181 033366 201 10 0 00 000002 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5182 IFN ,< 5183 033367 201 07 0 00 000001 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5184 IFE ,< 5185 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5186 033370 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5187 033371 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5188 033372 003 10 0 00 003643 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5189 033373 321 12 0 00 033366 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5190 5191 ;TEST AC RIGHT HALF 5192 ;TEST ROT RIGHT ONE BIT POSITION 5193 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 5194 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5195 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 5196 ;ONE AFTER ROTATING 5197 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 5198 5199 003644 SN=SN+1 5200 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 5201 IFE ZZ, 5202 000000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 5203 033374 201 10 0 00 000001 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 5204 IFN ,< 5205 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 5206 IFE ,< 5207 033375 205 07 0 00 400000 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 5208 033376 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5209 033377 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ONE 5210 033400 003 10 0 00 003644 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5211 033401 321 12 0 00 033374 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5212 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0122 5213 003700 SN=3700 5214 000001 ZZ=1 5215 5216 E3700: REPEAT ^D18,< ;TEST AC LEFT HALF 5217 ;TEST ROT RIGHT ONE BIT POSITION 5218 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5219 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5220 ;IS ZERO AFTER ROTATING. 5221 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5222 5223 SN=SN+1 5224 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5225 IFE , 5226 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5227 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5228 IFN ,< 5229 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5230 IFE ,< 5231 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5232 ROT AC,-1 ;*ROTATE RIGHT ONE 5233 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5234 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5235 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5236 > 5237 ;TEST AC LEFT HALF 5238 ;TEST ROT RIGHT ONE BIT POSITION 5239 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5240 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5241 ;IS ZERO AFTER ROTATING. 5242 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5243 5244 003701 SN=SN+1 5245 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5246 777777 377777 IFE , 5247 577777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5248 033402 525 10 0 00 377777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5249 IFN ,< 5250 033403 525 07 0 00 577777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5251 IFE ,< 5252 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5253 033404 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5254 033405 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5255 033406 003 10 0 00 003701 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5256 033407 321 12 0 00 033402 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5257 5258 ;TEST AC LEFT HALF 5259 ;TEST ROT RIGHT ONE BIT POSITION 5260 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5261 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5262 ;IS ZERO AFTER ROTATING. 5263 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5264 5265 003702 SN=SN+1 5266 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5267 IFE , DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0123 5268 677777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5269 033410 525 10 0 00 577777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5270 IFN ,< 5271 033411 525 07 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5272 IFE ,< 5273 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5274 033412 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5275 033413 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5276 033414 003 10 0 00 003702 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5277 033415 321 12 0 00 033410 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5278 5279 ;TEST AC LEFT HALF 5280 ;TEST ROT RIGHT ONE BIT POSITION 5281 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5282 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5283 ;IS ZERO AFTER ROTATING. 5284 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5285 5286 003703 SN=SN+1 5287 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5288 IFE , 5289 737777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5290 033416 525 10 0 00 677777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5291 IFN ,< 5292 033417 525 07 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5293 IFE ,< 5294 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5295 033420 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5296 033421 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5297 033422 003 10 0 00 003703 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5298 033423 321 12 0 00 033416 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5299 5300 ;TEST AC LEFT HALF 5301 ;TEST ROT RIGHT ONE BIT POSITION 5302 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5303 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5304 ;IS ZERO AFTER ROTATING. 5305 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5306 5307 003704 SN=SN+1 5308 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5309 IFE , 5310 757777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5311 033424 525 10 0 00 737777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5312 IFN ,< 5313 033425 525 07 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5314 IFE ,< 5315 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5316 033426 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5317 033427 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5318 033430 003 10 0 00 003704 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5319 033431 321 12 0 00 033424 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5320 5321 ;TEST AC LEFT HALF 5322 ;TEST ROT RIGHT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0124 5323 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5324 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5325 ;IS ZERO AFTER ROTATING. 5326 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5327 5328 003705 SN=SN+1 5329 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5330 IFE , 5331 767777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5332 033432 525 10 0 00 757777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5333 IFN ,< 5334 033433 525 07 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5335 IFE ,< 5336 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5337 033434 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5338 033435 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5339 033436 003 10 0 00 003705 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5340 033437 321 12 0 00 033432 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5341 5342 ;TEST AC LEFT HALF 5343 ;TEST ROT RIGHT ONE BIT POSITION 5344 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5345 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5346 ;IS ZERO AFTER ROTATING. 5347 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5348 5349 003706 SN=SN+1 5350 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5351 IFE , 5352 773777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5353 033440 525 10 0 00 767777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5354 IFN ,< 5355 033441 525 07 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5356 IFE ,< 5357 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5358 033442 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5359 033443 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5360 033444 003 10 0 00 003706 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5361 033445 321 12 0 00 033440 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5362 5363 ;TEST AC LEFT HALF 5364 ;TEST ROT RIGHT ONE BIT POSITION 5365 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5366 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5367 ;IS ZERO AFTER ROTATING. 5368 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5369 5370 003707 SN=SN+1 5371 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5372 IFE , 5373 775777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5374 033446 525 10 0 00 773777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5375 IFN ,< 5376 033447 525 07 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5377 IFE ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0125 5378 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5379 033450 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5380 033451 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5381 033452 003 10 0 00 003707 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5382 033453 321 12 0 00 033446 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5383 5384 ;TEST AC LEFT HALF 5385 ;TEST ROT RIGHT ONE BIT POSITION 5386 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5387 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5388 ;IS ZERO AFTER ROTATING. 5389 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5390 5391 003710 SN=SN+1 5392 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5393 IFE , 5394 776777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5395 033454 525 10 0 00 775777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5396 IFN ,< 5397 033455 525 07 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5398 IFE ,< 5399 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5400 033456 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5401 033457 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5402 033460 003 10 0 00 003710 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5403 033461 321 12 0 00 033454 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5404 5405 ;TEST AC LEFT HALF 5406 ;TEST ROT RIGHT ONE BIT POSITION 5407 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5408 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5409 ;IS ZERO AFTER ROTATING. 5410 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5411 5412 003711 SN=SN+1 5413 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5414 IFE , 5415 777377 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5416 033462 525 10 0 00 776777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5417 IFN ,< 5418 033463 525 07 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5419 IFE ,< 5420 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5421 033464 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5422 033465 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5423 033466 003 10 0 00 003711 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5424 033467 321 12 0 00 033462 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5425 5426 ;TEST AC LEFT HALF 5427 ;TEST ROT RIGHT ONE BIT POSITION 5428 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5429 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5430 ;IS ZERO AFTER ROTATING. 5431 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5432 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0126 5433 003712 SN=SN+1 5434 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5435 IFE , 5436 777577 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5437 033470 525 10 0 00 777377 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5438 IFN ,< 5439 033471 525 07 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5440 IFE ,< 5441 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5442 033472 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5443 033473 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5444 033474 003 10 0 00 003712 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5445 033475 321 12 0 00 033470 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5446 5447 ;TEST AC LEFT HALF 5448 ;TEST ROT RIGHT ONE BIT POSITION 5449 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5450 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5451 ;IS ZERO AFTER ROTATING. 5452 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5453 5454 003713 SN=SN+1 5455 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5456 IFE , 5457 777677 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5458 033476 525 10 0 00 777577 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5459 IFN ,< 5460 033477 525 07 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5461 IFE ,< 5462 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5463 033500 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5464 033501 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5465 033502 003 10 0 00 003713 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5466 033503 321 12 0 00 033476 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5467 5468 ;TEST AC LEFT HALF 5469 ;TEST ROT RIGHT ONE BIT POSITION 5470 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5471 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5472 ;IS ZERO AFTER ROTATING. 5473 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5474 5475 003714 SN=SN+1 5476 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5477 IFE , 5478 777737 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5479 033504 525 10 0 00 777677 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5480 IFN ,< 5481 033505 525 07 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5482 IFE ,< 5483 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5484 033506 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5485 033507 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5486 033510 003 10 0 00 003714 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5487 033511 321 12 0 00 033504 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0127 5488 5489 ;TEST AC LEFT HALF 5490 ;TEST ROT RIGHT ONE BIT POSITION 5491 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5492 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5493 ;IS ZERO AFTER ROTATING. 5494 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5495 5496 003715 SN=SN+1 5497 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5498 IFE , 5499 777757 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5500 033512 525 10 0 00 777737 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5501 IFN ,< 5502 033513 525 07 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5503 IFE ,< 5504 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5505 033514 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5506 033515 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5507 033516 003 10 0 00 003715 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5508 033517 321 12 0 00 033512 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5509 5510 ;TEST AC LEFT HALF 5511 ;TEST ROT RIGHT ONE BIT POSITION 5512 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5513 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5514 ;IS ZERO AFTER ROTATING. 5515 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5516 5517 003716 SN=SN+1 5518 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5519 IFE , 5520 777767 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5521 033520 525 10 0 00 777757 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5522 IFN ,< 5523 033521 525 07 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5524 IFE ,< 5525 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5526 033522 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5527 033523 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5528 033524 003 10 0 00 003716 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5529 033525 321 12 0 00 033520 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5530 5531 ;TEST AC LEFT HALF 5532 ;TEST ROT RIGHT ONE BIT POSITION 5533 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5534 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5535 ;IS ZERO AFTER ROTATING. 5536 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5537 5538 003717 SN=SN+1 5539 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5540 IFE , 5541 777773 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5542 033526 525 10 0 00 777767 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0128 5543 IFN ,< 5544 033527 525 07 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5545 IFE ,< 5546 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5547 033530 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5548 033531 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5549 033532 003 10 0 00 003717 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5550 033533 321 12 0 00 033526 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5551 5552 ;TEST AC LEFT HALF 5553 ;TEST ROT RIGHT ONE BIT POSITION 5554 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5555 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5556 ;IS ZERO AFTER ROTATING. 5557 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5558 5559 003720 SN=SN+1 5560 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5561 IFE , 5562 777775 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5563 033534 525 10 0 00 777773 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5564 IFN ,< 5565 033535 525 07 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5566 IFE ,< 5567 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5568 033536 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5569 033537 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5570 033540 003 10 0 00 003720 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5571 033541 321 12 0 00 033534 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5572 5573 ;TEST AC LEFT HALF 5574 ;TEST ROT RIGHT ONE BIT POSITION 5575 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5576 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5577 ;IS ZERO AFTER ROTATING. 5578 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5579 5580 003721 SN=SN+1 5581 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5582 IFE , 5583 777776 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5584 033542 525 10 0 00 777775 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5585 IFN ,< 5586 033543 525 07 0 00 777776 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5587 IFE ,< 5588 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5589 033544 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5590 033545 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5591 033546 003 10 0 00 003721 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5592 033547 321 12 0 00 033542 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5593 5594 ;TEST AC LEFT HALF 5595 ;TEST ROT RIGHT ONE BIT POSITION 5596 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5597 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0129 5598 ;IS ZERO AFTER ROTATING. 5599 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5600 5601 003722 SN=SN+1 5602 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5603 IFE , 5604 777777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5605 033550 525 10 0 00 777776 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 5606 IFN ,< 5607 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 5608 IFE ,< 5609 033551 561 07 0 00 377777 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 5610 033552 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5611 033553 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5612 033554 003 10 0 00 003722 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5613 033555 321 12 0 00 033550 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5614 5615 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0130 5616 000001 ZZ=1 5617 5618 REPEAT ^D18,< ;TEST AC RIGHT HALF 5619 ;TEST ROT RIGHT ONE BIT POSITION 5620 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5621 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5622 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5623 ;IS ZERO AFTER ROTATING. 5624 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5625 5626 SN=SN+1 5627 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5628 IFE , 5629 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5630 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5631 IFN ,< 5632 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5633 IFE ,< 5634 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5635 ROT AC,-1 ;*ROTATE RIGHT ONE 5636 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5637 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5638 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5639 > 5640 ;TEST AC RIGHT HALF 5641 ;TEST ROT RIGHT ONE BIT POSITION 5642 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5643 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5644 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5645 ;IS ZERO AFTER ROTATING. 5646 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5647 5648 003723 SN=SN+1 5649 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5650 777777 377777 IFE , 5651 577777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5652 033556 561 10 0 00 377777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5653 IFN ,< 5654 033557 561 07 0 00 577777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5655 IFE ,< 5656 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5657 033560 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5658 033561 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5659 033562 003 10 0 00 003723 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5660 033563 321 12 0 00 033556 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5661 5662 ;TEST AC RIGHT HALF 5663 ;TEST ROT RIGHT ONE BIT POSITION 5664 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5665 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5666 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5667 ;IS ZERO AFTER ROTATING. 5668 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5669 5670 003724 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0131 5671 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5672 IFE , 5673 677777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5674 033564 561 10 0 00 577777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5675 IFN ,< 5676 033565 561 07 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5677 IFE ,< 5678 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5679 033566 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5680 033567 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5681 033570 003 10 0 00 003724 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5682 033571 321 12 0 00 033564 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5683 5684 ;TEST AC RIGHT HALF 5685 ;TEST ROT RIGHT ONE BIT POSITION 5686 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5687 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5688 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5689 ;IS ZERO AFTER ROTATING. 5690 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5691 5692 003725 SN=SN+1 5693 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5694 IFE , 5695 737777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5696 033572 561 10 0 00 677777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5697 IFN ,< 5698 033573 561 07 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5699 IFE ,< 5700 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5701 033574 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5702 033575 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5703 033576 003 10 0 00 003725 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5704 033577 321 12 0 00 033572 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5705 5706 ;TEST AC RIGHT HALF 5707 ;TEST ROT RIGHT ONE BIT POSITION 5708 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5709 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5710 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5711 ;IS ZERO AFTER ROTATING. 5712 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5713 5714 003726 SN=SN+1 5715 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5716 IFE , 5717 757777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5718 033600 561 10 0 00 737777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5719 IFN ,< 5720 033601 561 07 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5721 IFE ,< 5722 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5723 033602 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5724 033603 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5725 033604 003 10 0 00 003726 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0132 5726 033605 321 12 0 00 033600 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5727 5728 ;TEST AC RIGHT HALF 5729 ;TEST ROT RIGHT ONE BIT POSITION 5730 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5731 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5732 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5733 ;IS ZERO AFTER ROTATING. 5734 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5735 5736 003727 SN=SN+1 5737 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5738 IFE , 5739 767777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5740 033606 561 10 0 00 757777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5741 IFN ,< 5742 033607 561 07 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5743 IFE ,< 5744 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5745 033610 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5746 033611 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5747 033612 003 10 0 00 003727 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5748 033613 321 12 0 00 033606 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5749 5750 ;TEST AC RIGHT HALF 5751 ;TEST ROT RIGHT ONE BIT POSITION 5752 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5753 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5754 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5755 ;IS ZERO AFTER ROTATING. 5756 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5757 5758 003730 SN=SN+1 5759 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5760 IFE , 5761 773777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5762 033614 561 10 0 00 767777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5763 IFN ,< 5764 033615 561 07 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5765 IFE ,< 5766 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5767 033616 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5768 033617 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5769 033620 003 10 0 00 003730 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5770 033621 321 12 0 00 033614 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5771 5772 ;TEST AC RIGHT HALF 5773 ;TEST ROT RIGHT ONE BIT POSITION 5774 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5775 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5776 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5777 ;IS ZERO AFTER ROTATING. 5778 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5779 5780 003731 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0133 5781 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5782 IFE , 5783 775777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5784 033622 561 10 0 00 773777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5785 IFN ,< 5786 033623 561 07 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5787 IFE ,< 5788 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5789 033624 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5790 033625 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5791 033626 003 10 0 00 003731 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5792 033627 321 12 0 00 033622 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5793 5794 ;TEST AC RIGHT HALF 5795 ;TEST ROT RIGHT ONE BIT POSITION 5796 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5797 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5798 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5799 ;IS ZERO AFTER ROTATING. 5800 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5801 5802 003732 SN=SN+1 5803 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5804 IFE , 5805 776777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5806 033630 561 10 0 00 775777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5807 IFN ,< 5808 033631 561 07 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5809 IFE ,< 5810 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5811 033632 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5812 033633 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5813 033634 003 10 0 00 003732 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5814 033635 321 12 0 00 033630 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5815 5816 ;TEST AC RIGHT HALF 5817 ;TEST ROT RIGHT ONE BIT POSITION 5818 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5819 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5820 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5821 ;IS ZERO AFTER ROTATING. 5822 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5823 5824 003733 SN=SN+1 5825 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5826 IFE , 5827 777377 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5828 033636 561 10 0 00 776777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5829 IFN ,< 5830 033637 561 07 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5831 IFE ,< 5832 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5833 033640 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5834 033641 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5835 033642 003 10 0 00 003733 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0134 5836 033643 321 12 0 00 033636 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5837 5838 ;TEST AC RIGHT HALF 5839 ;TEST ROT RIGHT ONE BIT POSITION 5840 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5841 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5842 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5843 ;IS ZERO AFTER ROTATING. 5844 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5845 5846 003734 SN=SN+1 5847 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5848 IFE , 5849 777577 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5850 033644 561 10 0 00 777377 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5851 IFN ,< 5852 033645 561 07 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5853 IFE ,< 5854 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5855 033646 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5856 033647 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5857 033650 003 10 0 00 003734 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5858 033651 321 12 0 00 033644 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5859 5860 ;TEST AC RIGHT HALF 5861 ;TEST ROT RIGHT ONE BIT POSITION 5862 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5863 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5864 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5865 ;IS ZERO AFTER ROTATING. 5866 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5867 5868 003735 SN=SN+1 5869 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5870 IFE , 5871 777677 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5872 033652 561 10 0 00 777577 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5873 IFN ,< 5874 033653 561 07 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5875 IFE ,< 5876 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5877 033654 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5878 033655 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5879 033656 003 10 0 00 003735 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5880 033657 321 12 0 00 033652 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5881 5882 ;TEST AC RIGHT HALF 5883 ;TEST ROT RIGHT ONE BIT POSITION 5884 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5885 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5886 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5887 ;IS ZERO AFTER ROTATING. 5888 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5889 5890 003736 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0135 5891 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5892 IFE , 5893 777737 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5894 033660 561 10 0 00 777677 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5895 IFN ,< 5896 033661 561 07 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5897 IFE ,< 5898 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5899 033662 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5900 033663 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5901 033664 003 10 0 00 003736 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5902 033665 321 12 0 00 033660 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5903 5904 ;TEST AC RIGHT HALF 5905 ;TEST ROT RIGHT ONE BIT POSITION 5906 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5907 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5908 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5909 ;IS ZERO AFTER ROTATING. 5910 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5911 5912 003737 SN=SN+1 5913 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5914 IFE , 5915 777757 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5916 033666 561 10 0 00 777737 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5917 IFN ,< 5918 033667 561 07 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5919 IFE ,< 5920 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5921 033670 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5922 033671 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5923 033672 003 10 0 00 003737 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5924 033673 321 12 0 00 033666 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5925 5926 ;TEST AC RIGHT HALF 5927 ;TEST ROT RIGHT ONE BIT POSITION 5928 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5929 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5930 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5931 ;IS ZERO AFTER ROTATING. 5932 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5933 5934 003740 SN=SN+1 5935 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5936 IFE , 5937 777767 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5938 033674 561 10 0 00 777757 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5939 IFN ,< 5940 033675 561 07 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5941 IFE ,< 5942 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5943 033676 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5944 033677 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5945 033700 003 10 0 00 003740 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0136 5946 033701 321 12 0 00 033674 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5947 5948 ;TEST AC RIGHT HALF 5949 ;TEST ROT RIGHT ONE BIT POSITION 5950 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5951 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5952 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5953 ;IS ZERO AFTER ROTATING. 5954 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5955 5956 003741 SN=SN+1 5957 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5958 IFE , 5959 777773 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5960 033702 561 10 0 00 777767 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5961 IFN ,< 5962 033703 561 07 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5963 IFE ,< 5964 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5965 033704 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5966 033705 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5967 033706 003 10 0 00 003741 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5968 033707 321 12 0 00 033702 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5969 5970 ;TEST AC RIGHT HALF 5971 ;TEST ROT RIGHT ONE BIT POSITION 5972 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5973 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5974 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5975 ;IS ZERO AFTER ROTATING. 5976 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5977 5978 003742 SN=SN+1 5979 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 5980 IFE , 5981 777775 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 5982 033710 561 10 0 00 777773 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 5983 IFN ,< 5984 033711 561 07 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON> 5985 IFE ,< 5986 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 5987 033712 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 5988 033713 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 5989 033714 003 10 0 00 003742 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 5990 033715 321 12 0 00 033710 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 5991 5992 ;TEST AC RIGHT HALF 5993 ;TEST ROT RIGHT ONE BIT POSITION 5994 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 5995 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 5996 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 5997 ;IS ZERO AFTER ROTATING. 5998 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 5999 6000 003743 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 15-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0137 6001 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 6002 IFE , 6003 777776 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 6004 033716 561 10 0 00 777775 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 6005 IFN ,< 6006 033717 561 07 0 00 777776 HRROI AC-1,YY ;SETUP FOR COMPARISON> 6007 IFE ,< 6008 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 6009 033720 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 6010 033721 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 6011 033722 003 10 0 00 003743 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6012 033723 321 12 0 00 033716 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6013 6014 ;TEST AC RIGHT HALF 6015 ;TEST ROT RIGHT ONE BIT POSITION 6016 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 6017 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6018 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 6019 ;IS ZERO AFTER ROTATING. 6020 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 6021 6022 003744 SN=SN+1 6023 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 6024 IFE , 6025 777777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 6026 033724 561 10 0 00 777776 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 6027 IFN ,< 6028 HRROI AC-1,YY ;SETUP FOR COMPARISON> 6029 IFE ,< 6030 033725 525 07 0 00 377777 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 6031 033726 241 10 0 00 777777 ROT AC,-1 ;*ROTATE RIGHT ONE 6032 033727 312 10 0 00 000007 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 6033 033730 003 10 0 00 003744 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6034 033731 321 12 0 00 033724 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6035 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0138 6036 ;TEST ROT RIGHT TWO BIT POSITIONS 6037 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6038 ;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING 6039 6040 000007 AC=7 6041 SAVEAC (1,1)^ 6042 033732 201 11 0 00 033732 MOVEI AC+2,. ;SAVE TEST PC 6043 033733 202 11 0 00 030051 MOVEM AC+2,TESTPC 6044 033734 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6045 033735 202 11 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6046 6047 033736 403 07 0 00 000006 E4000: SETZB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ZERO 6048 033737 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6049 033740 312 07 0 00 000006 CAME AC,AC-1 ;TEST AC FOR ALL ZEROS 6050 033741 003 07 0 00 004001 ER3 AC,4001 ;AD-AR GATING FAILED 6051 033742 321 11 0 00 033736 JUMPL AC+2,E4000 ;LOOP ON ERROR SWITCH 6052 6053 ;TEST ROT RIGHT TWO BIT POSITIONS 6054 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6055 ;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING 6056 6057 033743 477 07 0 00 000006 E4100: SETOB AC,AC-1 ;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES 6058 033744 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6059 033745 312 07 0 00 000006 CAME AC,AC-1 ;TEST AC FOR ALL ONES. 6060 033746 003 07 0 00 004101 ER3 AC,4101 ;AD-AR GATING FAILED 6061 033747 321 11 0 00 033743 JUMPL AC+2,E4100 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0139 6062 6063 004200 SN=4200 6064 000000 ZZ=0 6065 6066 E4200: REPEAT ^D18,< ;TEST AC LEFT HALF 6067 ;TEST ROT RIGHT TWO BIT POSITIONS 6068 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6069 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6070 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6071 ;BIT IS ONE AFTER ROTATING 6072 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6073 6074 SN=SN+1 6075 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6076 IFE ZZ, 6077 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6078 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6079 IFG ,< 6080 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6081 IFE ,< 6082 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6083 IFE ,< 6084 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6085 ROT AC,-2 ;*ROTATE RIGHT TWO 6086 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6087 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6088 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6089 > 6090 ;TEST AC LEFT HALF 6091 ;TEST ROT RIGHT TWO BIT POSITIONS 6092 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6093 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6094 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6095 ;BIT IS ONE AFTER ROTATING 6096 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6097 6098 004201 SN=SN+1 6099 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6100 400000 IFE ZZ, 6101 100000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6102 033750 205 07 0 00 400000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6103 IFG ,< 6104 033751 205 06 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6105 IFE ,< 6106 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6107 IFE ,< 6108 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6109 033752 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6110 033753 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6111 033754 003 07 0 00 004201 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6112 033755 321 11 0 00 033750 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6113 6114 ;TEST AC LEFT HALF 6115 ;TEST ROT RIGHT TWO BIT POSITIONS 6116 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0140 6117 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6118 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6119 ;BIT IS ONE AFTER ROTATING 6120 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6121 6122 004202 SN=SN+1 6123 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6124 IFE ZZ, 6125 040000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6126 033756 205 07 0 00 200000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6127 IFG ,< 6128 033757 205 06 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6129 IFE ,< 6130 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6131 IFE ,< 6132 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6133 033760 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6134 033761 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6135 033762 003 07 0 00 004202 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6136 033763 321 11 0 00 033756 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6137 6138 ;TEST AC LEFT HALF 6139 ;TEST ROT RIGHT TWO BIT POSITIONS 6140 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6141 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6142 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6143 ;BIT IS ONE AFTER ROTATING 6144 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6145 6146 004203 SN=SN+1 6147 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6148 IFE ZZ, 6149 020000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6150 033764 205 07 0 00 100000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6151 IFG ,< 6152 033765 205 06 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6153 IFE ,< 6154 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6155 IFE ,< 6156 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6157 033766 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6158 033767 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6159 033770 003 07 0 00 004203 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6160 033771 321 11 0 00 033764 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6161 6162 ;TEST AC LEFT HALF 6163 ;TEST ROT RIGHT TWO BIT POSITIONS 6164 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6165 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6166 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6167 ;BIT IS ONE AFTER ROTATING 6168 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6169 6170 004204 SN=SN+1 6171 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0141 6172 IFE ZZ, 6173 010000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6174 033772 205 07 0 00 040000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6175 IFG ,< 6176 033773 205 06 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6177 IFE ,< 6178 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6179 IFE ,< 6180 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6181 033774 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6182 033775 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6183 033776 003 07 0 00 004204 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6184 033777 321 11 0 00 033772 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6185 6186 ;TEST AC LEFT HALF 6187 ;TEST ROT RIGHT TWO BIT POSITIONS 6188 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6189 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6190 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6191 ;BIT IS ONE AFTER ROTATING 6192 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6193 6194 004205 SN=SN+1 6195 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6196 IFE ZZ, 6197 004000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6198 034000 205 07 0 00 020000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6199 IFG ,< 6200 034001 205 06 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6201 IFE ,< 6202 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6203 IFE ,< 6204 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6205 034002 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6206 034003 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6207 034004 003 07 0 00 004205 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6208 034005 321 11 0 00 034000 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6209 6210 ;TEST AC LEFT HALF 6211 ;TEST ROT RIGHT TWO BIT POSITIONS 6212 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6213 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6214 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6215 ;BIT IS ONE AFTER ROTATING 6216 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6217 6218 004206 SN=SN+1 6219 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6220 IFE ZZ, 6221 002000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6222 034006 205 07 0 00 010000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6223 IFG ,< 6224 034007 205 06 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6225 IFE ,< 6226 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0142 6227 IFE ,< 6228 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6229 034010 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6230 034011 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6231 034012 003 07 0 00 004206 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6232 034013 321 11 0 00 034006 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6233 6234 ;TEST AC LEFT HALF 6235 ;TEST ROT RIGHT TWO BIT POSITIONS 6236 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6237 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6238 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6239 ;BIT IS ONE AFTER ROTATING 6240 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6241 6242 004207 SN=SN+1 6243 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6244 IFE ZZ, 6245 001000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6246 034014 205 07 0 00 004000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6247 IFG ,< 6248 034015 205 06 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6249 IFE ,< 6250 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6251 IFE ,< 6252 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6253 034016 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6254 034017 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6255 034020 003 07 0 00 004207 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6256 034021 321 11 0 00 034014 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6257 6258 ;TEST AC LEFT HALF 6259 ;TEST ROT RIGHT TWO BIT POSITIONS 6260 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6261 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6262 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6263 ;BIT IS ONE AFTER ROTATING 6264 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6265 6266 004210 SN=SN+1 6267 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6268 IFE ZZ, 6269 000400 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6270 034022 205 07 0 00 002000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6271 IFG ,< 6272 034023 205 06 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6273 IFE ,< 6274 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6275 IFE ,< 6276 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6277 034024 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6278 034025 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6279 034026 003 07 0 00 004210 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6280 034027 321 11 0 00 034022 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6281 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0143 6282 ;TEST AC LEFT HALF 6283 ;TEST ROT RIGHT TWO BIT POSITIONS 6284 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6285 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6286 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6287 ;BIT IS ONE AFTER ROTATING 6288 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6289 6290 004211 SN=SN+1 6291 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6292 IFE ZZ, 6293 000200 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6294 034030 205 07 0 00 001000 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6295 IFG ,< 6296 034031 205 06 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6297 IFE ,< 6298 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6299 IFE ,< 6300 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6301 034032 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6302 034033 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6303 034034 003 07 0 00 004211 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6304 034035 321 11 0 00 034030 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6305 6306 ;TEST AC LEFT HALF 6307 ;TEST ROT RIGHT TWO BIT POSITIONS 6308 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6309 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6310 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6311 ;BIT IS ONE AFTER ROTATING 6312 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6313 6314 004212 SN=SN+1 6315 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6316 IFE ZZ, 6317 000100 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6318 034036 205 07 0 00 000400 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6319 IFG ,< 6320 034037 205 06 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6321 IFE ,< 6322 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6323 IFE ,< 6324 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6325 034040 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6326 034041 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6327 034042 003 07 0 00 004212 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6328 034043 321 11 0 00 034036 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6329 6330 ;TEST AC LEFT HALF 6331 ;TEST ROT RIGHT TWO BIT POSITIONS 6332 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6333 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6334 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6335 ;BIT IS ONE AFTER ROTATING 6336 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0144 6337 6338 004213 SN=SN+1 6339 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6340 IFE ZZ, 6341 000040 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6342 034044 205 07 0 00 000200 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6343 IFG ,< 6344 034045 205 06 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6345 IFE ,< 6346 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6347 IFE ,< 6348 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6349 034046 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6350 034047 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6351 034050 003 07 0 00 004213 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6352 034051 321 11 0 00 034044 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6353 6354 ;TEST AC LEFT HALF 6355 ;TEST ROT RIGHT TWO BIT POSITIONS 6356 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6357 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6358 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6359 ;BIT IS ONE AFTER ROTATING 6360 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6361 6362 004214 SN=SN+1 6363 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6364 IFE ZZ, 6365 000020 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6366 034052 205 07 0 00 000100 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6367 IFG ,< 6368 034053 205 06 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6369 IFE ,< 6370 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6371 IFE ,< 6372 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6373 034054 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6374 034055 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6375 034056 003 07 0 00 004214 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6376 034057 321 11 0 00 034052 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6377 6378 ;TEST AC LEFT HALF 6379 ;TEST ROT RIGHT TWO BIT POSITIONS 6380 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6381 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6382 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6383 ;BIT IS ONE AFTER ROTATING 6384 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6385 6386 004215 SN=SN+1 6387 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6388 IFE ZZ, 6389 000010 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6390 034060 205 07 0 00 000040 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6391 IFG ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0145 6392 034061 205 06 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6393 IFE ,< 6394 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6395 IFE ,< 6396 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6397 034062 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6398 034063 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6399 034064 003 07 0 00 004215 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6400 034065 321 11 0 00 034060 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6401 6402 ;TEST AC LEFT HALF 6403 ;TEST ROT RIGHT TWO BIT POSITIONS 6404 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6405 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6406 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6407 ;BIT IS ONE AFTER ROTATING 6408 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6409 6410 004216 SN=SN+1 6411 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6412 IFE ZZ, 6413 000004 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6414 034066 205 07 0 00 000020 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6415 IFG ,< 6416 034067 205 06 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6417 IFE ,< 6418 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6419 IFE ,< 6420 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6421 034070 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6422 034071 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6423 034072 003 07 0 00 004216 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6424 034073 321 11 0 00 034066 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6425 6426 ;TEST AC LEFT HALF 6427 ;TEST ROT RIGHT TWO BIT POSITIONS 6428 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6429 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6430 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6431 ;BIT IS ONE AFTER ROTATING 6432 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6433 6434 004217 SN=SN+1 6435 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6436 IFE ZZ, 6437 000002 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6438 034074 205 07 0 00 000010 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6439 IFG ,< 6440 034075 205 06 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6441 IFE ,< 6442 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6443 IFE ,< 6444 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6445 034076 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6446 034077 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0146 6447 034100 003 07 0 00 004217 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6448 034101 321 11 0 00 034074 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6449 6450 ;TEST AC LEFT HALF 6451 ;TEST ROT RIGHT TWO BIT POSITIONS 6452 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6453 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6454 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6455 ;BIT IS ONE AFTER ROTATING 6456 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6457 6458 004220 SN=SN+1 6459 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6460 IFE ZZ, 6461 000001 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6462 034102 205 07 0 00 000004 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6463 IFG ,< 6464 034103 205 06 0 00 000001 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6465 IFE ,< 6466 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6467 IFE ,< 6468 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6469 034104 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6470 034105 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6471 034106 003 07 0 00 004220 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6472 034107 321 11 0 00 034102 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6473 6474 ;TEST AC LEFT HALF 6475 ;TEST ROT RIGHT TWO BIT POSITIONS 6476 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6477 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6478 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6479 ;BIT IS ONE AFTER ROTATING 6480 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6481 6482 004221 SN=SN+1 6483 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6484 IFE ZZ, 6485 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6486 034110 205 07 0 00 000002 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6487 IFG ,< 6488 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6489 IFE ,< 6490 034111 201 06 0 00 400000 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6491 IFE ,< 6492 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6493 034112 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6494 034113 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6495 034114 003 07 0 00 004221 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6496 034115 321 11 0 00 034110 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6497 6498 ;TEST AC LEFT HALF 6499 ;TEST ROT RIGHT TWO BIT POSITIONS 6500 ;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR 6501 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0147 6502 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER 6503 ;BIT IS ONE AFTER ROTATING 6504 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6505 6506 004222 SN=SN+1 6507 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6508 IFE ZZ, 6509 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6510 034116 205 07 0 00 000001 MOVSI AC,ZZ ;SET BIT (N) OF AC LEFT 6511 IFG ,< 6512 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 6513 IFE ,< 6514 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 6515 IFE ,< 6516 034117 201 06 0 00 200000 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 6517 034120 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6518 034121 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6519 034122 003 07 0 00 004222 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6520 034123 321 11 0 00 034116 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6521 6522 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0148 6523 000000 ZZ=0 6524 6525 REPEAT ^D18,< ;TEST AC RIGHT HALF 6526 ;TEST ROT RIGHT TWO BIT POSITIONS 6527 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6528 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6529 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6530 ;ONE AFTER ROTATING 6531 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6532 6533 SN=SN+1 6534 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6535 IFE ZZ, 6536 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6537 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6538 IFG ,< 6539 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6540 IFE ,< 6541 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6542 IFE ,< 6543 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6544 ROT AC,-2 ;*ROTATE RIGHT TWO 6545 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6546 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6547 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6548 > 6549 ;TEST AC RIGHT HALF 6550 ;TEST ROT RIGHT TWO BIT POSITIONS 6551 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6552 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6553 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6554 ;ONE AFTER ROTATING 6555 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6556 6557 004223 SN=SN+1 6558 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6559 400000 IFE ZZ, 6560 100000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6561 034124 201 07 0 00 400000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6562 IFG ,< 6563 034125 201 06 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6564 IFE ,< 6565 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6566 IFE ,< 6567 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6568 034126 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6569 034127 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6570 034130 003 07 0 00 004223 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6571 034131 321 11 0 00 034124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6572 6573 ;TEST AC RIGHT HALF 6574 ;TEST ROT RIGHT TWO BIT POSITIONS 6575 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6576 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6577 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0149 6578 ;ONE AFTER ROTATING 6579 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6580 6581 004224 SN=SN+1 6582 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6583 IFE ZZ, 6584 040000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6585 034132 201 07 0 00 200000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6586 IFG ,< 6587 034133 201 06 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6588 IFE ,< 6589 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6590 IFE ,< 6591 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6592 034134 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6593 034135 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6594 034136 003 07 0 00 004224 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6595 034137 321 11 0 00 034132 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6596 6597 ;TEST AC RIGHT HALF 6598 ;TEST ROT RIGHT TWO BIT POSITIONS 6599 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6600 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6601 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6602 ;ONE AFTER ROTATING 6603 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6604 6605 004225 SN=SN+1 6606 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6607 IFE ZZ, 6608 020000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6609 034140 201 07 0 00 100000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6610 IFG ,< 6611 034141 201 06 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6612 IFE ,< 6613 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6614 IFE ,< 6615 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6616 034142 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6617 034143 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6618 034144 003 07 0 00 004225 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6619 034145 321 11 0 00 034140 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6620 6621 ;TEST AC RIGHT HALF 6622 ;TEST ROT RIGHT TWO BIT POSITIONS 6623 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6624 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6625 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6626 ;ONE AFTER ROTATING 6627 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6628 6629 004226 SN=SN+1 6630 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6631 IFE ZZ, 6632 010000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0150 6633 034146 201 07 0 00 040000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6634 IFG ,< 6635 034147 201 06 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6636 IFE ,< 6637 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6638 IFE ,< 6639 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6640 034150 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6641 034151 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6642 034152 003 07 0 00 004226 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6643 034153 321 11 0 00 034146 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6644 6645 ;TEST AC RIGHT HALF 6646 ;TEST ROT RIGHT TWO BIT POSITIONS 6647 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6648 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6649 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6650 ;ONE AFTER ROTATING 6651 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6652 6653 004227 SN=SN+1 6654 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6655 IFE ZZ, 6656 004000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6657 034154 201 07 0 00 020000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6658 IFG ,< 6659 034155 201 06 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6660 IFE ,< 6661 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6662 IFE ,< 6663 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6664 034156 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6665 034157 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6666 034160 003 07 0 00 004227 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6667 034161 321 11 0 00 034154 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6668 6669 ;TEST AC RIGHT HALF 6670 ;TEST ROT RIGHT TWO BIT POSITIONS 6671 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6672 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6673 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6674 ;ONE AFTER ROTATING 6675 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6676 6677 004230 SN=SN+1 6678 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6679 IFE ZZ, 6680 002000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6681 034162 201 07 0 00 010000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6682 IFG ,< 6683 034163 201 06 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6684 IFE ,< 6685 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6686 IFE ,< 6687 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0151 6688 034164 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6689 034165 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6690 034166 003 07 0 00 004230 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6691 034167 321 11 0 00 034162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6692 6693 ;TEST AC RIGHT HALF 6694 ;TEST ROT RIGHT TWO BIT POSITIONS 6695 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6696 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6697 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6698 ;ONE AFTER ROTATING 6699 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6700 6701 004231 SN=SN+1 6702 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6703 IFE ZZ, 6704 001000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6705 034170 201 07 0 00 004000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6706 IFG ,< 6707 034171 201 06 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6708 IFE ,< 6709 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6710 IFE ,< 6711 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6712 034172 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6713 034173 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6714 034174 003 07 0 00 004231 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6715 034175 321 11 0 00 034170 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6716 6717 ;TEST AC RIGHT HALF 6718 ;TEST ROT RIGHT TWO BIT POSITIONS 6719 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6720 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6721 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6722 ;ONE AFTER ROTATING 6723 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6724 6725 004232 SN=SN+1 6726 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6727 IFE ZZ, 6728 000400 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6729 034176 201 07 0 00 002000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6730 IFG ,< 6731 034177 201 06 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6732 IFE ,< 6733 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6734 IFE ,< 6735 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6736 034200 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6737 034201 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6738 034202 003 07 0 00 004232 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6739 034203 321 11 0 00 034176 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6740 6741 ;TEST AC RIGHT HALF 6742 ;TEST ROT RIGHT TWO BIT POSITIONS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0152 6743 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6744 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6745 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6746 ;ONE AFTER ROTATING 6747 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6748 6749 004233 SN=SN+1 6750 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6751 IFE ZZ, 6752 000200 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6753 034204 201 07 0 00 001000 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6754 IFG ,< 6755 034205 201 06 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6756 IFE ,< 6757 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6758 IFE ,< 6759 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6760 034206 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6761 034207 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6762 034210 003 07 0 00 004233 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6763 034211 321 11 0 00 034204 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6764 6765 ;TEST AC RIGHT HALF 6766 ;TEST ROT RIGHT TWO BIT POSITIONS 6767 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6768 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6769 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6770 ;ONE AFTER ROTATING 6771 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6772 6773 004234 SN=SN+1 6774 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6775 IFE ZZ, 6776 000100 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6777 034212 201 07 0 00 000400 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6778 IFG ,< 6779 034213 201 06 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6780 IFE ,< 6781 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6782 IFE ,< 6783 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6784 034214 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6785 034215 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6786 034216 003 07 0 00 004234 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6787 034217 321 11 0 00 034212 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6788 6789 ;TEST AC RIGHT HALF 6790 ;TEST ROT RIGHT TWO BIT POSITIONS 6791 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6792 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6793 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6794 ;ONE AFTER ROTATING 6795 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6796 6797 004235 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0153 6798 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6799 IFE ZZ, 6800 000040 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6801 034220 201 07 0 00 000200 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6802 IFG ,< 6803 034221 201 06 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6804 IFE ,< 6805 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6806 IFE ,< 6807 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6808 034222 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6809 034223 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6810 034224 003 07 0 00 004235 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6811 034225 321 11 0 00 034220 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6812 6813 ;TEST AC RIGHT HALF 6814 ;TEST ROT RIGHT TWO BIT POSITIONS 6815 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6816 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6817 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6818 ;ONE AFTER ROTATING 6819 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6820 6821 004236 SN=SN+1 6822 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6823 IFE ZZ, 6824 000020 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6825 034226 201 07 0 00 000100 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6826 IFG ,< 6827 034227 201 06 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6828 IFE ,< 6829 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6830 IFE ,< 6831 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6832 034230 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6833 034231 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6834 034232 003 07 0 00 004236 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6835 034233 321 11 0 00 034226 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6836 6837 ;TEST AC RIGHT HALF 6838 ;TEST ROT RIGHT TWO BIT POSITIONS 6839 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6840 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6841 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6842 ;ONE AFTER ROTATING 6843 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6844 6845 004237 SN=SN+1 6846 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6847 IFE ZZ, 6848 000010 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6849 034234 201 07 0 00 000040 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6850 IFG ,< 6851 034235 201 06 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6852 IFE ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0154 6853 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6854 IFE ,< 6855 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6856 034236 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6857 034237 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6858 034240 003 07 0 00 004237 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6859 034241 321 11 0 00 034234 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6860 6861 ;TEST AC RIGHT HALF 6862 ;TEST ROT RIGHT TWO BIT POSITIONS 6863 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6864 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6865 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6866 ;ONE AFTER ROTATING 6867 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6868 6869 004240 SN=SN+1 6870 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6871 IFE ZZ, 6872 000004 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6873 034242 201 07 0 00 000020 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6874 IFG ,< 6875 034243 201 06 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6876 IFE ,< 6877 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6878 IFE ,< 6879 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6880 034244 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6881 034245 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6882 034246 003 07 0 00 004240 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6883 034247 321 11 0 00 034242 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6884 6885 ;TEST AC RIGHT HALF 6886 ;TEST ROT RIGHT TWO BIT POSITIONS 6887 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6888 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6889 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6890 ;ONE AFTER ROTATING 6891 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6892 6893 004241 SN=SN+1 6894 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6895 IFE ZZ, 6896 000002 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6897 034250 201 07 0 00 000010 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6898 IFG ,< 6899 034251 201 06 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6900 IFE ,< 6901 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6902 IFE ,< 6903 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6904 034252 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6905 034253 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6906 034254 003 07 0 00 004241 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6907 034255 321 11 0 00 034250 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0155 6908 6909 ;TEST AC RIGHT HALF 6910 ;TEST ROT RIGHT TWO BIT POSITIONS 6911 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6912 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6913 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6914 ;ONE AFTER ROTATING 6915 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6916 6917 004242 SN=SN+1 6918 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6919 IFE ZZ, 6920 000001 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6921 034256 201 07 0 00 000004 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6922 IFG ,< 6923 034257 201 06 0 00 000001 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6924 IFE ,< 6925 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6926 IFE ,< 6927 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6928 034260 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6929 034261 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6930 034262 003 07 0 00 004242 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6931 034263 321 11 0 00 034256 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6932 6933 ;TEST AC RIGHT HALF 6934 ;TEST ROT RIGHT TWO BIT POSITIONS 6935 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6936 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6937 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6938 ;ONE AFTER ROTATING 6939 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6940 6941 004243 SN=SN+1 6942 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6943 IFE ZZ, 6944 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6945 034264 201 07 0 00 000002 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6946 IFG ,< 6947 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6948 IFE ,< 6949 034265 205 06 0 00 400000 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6950 IFE ,< 6951 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6952 034266 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6953 034267 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6954 034270 003 07 0 00 004243 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6955 034271 321 11 0 00 034264 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6956 6957 ;TEST AC RIGHT HALF 6958 ;TEST ROT RIGHT TWO BIT POSITIONS 6959 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR 6960 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6961 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS 6962 ;ONE AFTER ROTATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 17-17 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0156 6963 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS 6964 6965 004244 SN=SN+1 6966 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 6967 IFE ZZ, 6968 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 6969 034272 201 07 0 00 000001 MOVEI AC,ZZ ;SET BIT (N) OF AC RIGHT 6970 IFG ,< 6971 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 6972 IFE ,< 6973 MOVSI AC-1,400000 ;SETUP FOR COMPARISON> 6974 IFE ,< 6975 034273 205 06 0 00 200000 MOVSI AC-1,200000 ;SETUP FOR COMPARISON> 6976 034274 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 6977 034275 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ONE 6978 034276 003 07 0 00 004244 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 6979 034277 321 11 0 00 034272 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6980 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0157 6981 004300 SN=4300 6982 000001 ZZ=1 6983 6984 E4300: REPEAT ^D18,< ;TEST AC LEFT HALF 6985 ;TEST ROT RIGHT TWO BIT POSITIONS 6986 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 6987 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 6988 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 6989 ;IS ZERO AFTER ROTATING. 6990 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 6991 6992 SN=SN+1 6993 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 6994 IFE , 6995 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 6996 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 6997 IFL ,< 6998 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 6999 IFE ,< 7000 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7001 IFE ,< 7002 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7003 ROT AC,-2 ;*ROTATE RIGHT TWO 7004 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7005 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7006 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7007 > 7008 ;TEST AC LEFT HALF 7009 ;TEST ROT RIGHT TWO BIT POSITIONS 7010 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7011 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7012 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7013 ;IS ZERO AFTER ROTATING. 7014 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7015 7016 004301 SN=SN+1 7017 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7018 777777 377777 IFE , 7019 677777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7020 034300 525 07 0 00 377777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7021 IFL ,< 7022 034301 525 06 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7023 IFE ,< 7024 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7025 IFE ,< 7026 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7027 034302 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7028 034303 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7029 034304 003 07 0 00 004301 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7030 034305 321 11 0 00 034300 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7031 7032 ;TEST AC LEFT HALF 7033 ;TEST ROT RIGHT TWO BIT POSITIONS 7034 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7035 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0158 7036 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7037 ;IS ZERO AFTER ROTATING. 7038 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7039 7040 004302 SN=SN+1 7041 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7042 IFE , 7043 737777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7044 034306 525 07 0 00 577777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7045 IFL ,< 7046 034307 525 06 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7047 IFE ,< 7048 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7049 IFE ,< 7050 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7051 034310 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7052 034311 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7053 034312 003 07 0 00 004302 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7054 034313 321 11 0 00 034306 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7055 7056 ;TEST AC LEFT HALF 7057 ;TEST ROT RIGHT TWO BIT POSITIONS 7058 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7059 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7060 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7061 ;IS ZERO AFTER ROTATING. 7062 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7063 7064 004303 SN=SN+1 7065 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7066 IFE , 7067 757777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7068 034314 525 07 0 00 677777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7069 IFL ,< 7070 034315 525 06 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7071 IFE ,< 7072 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7073 IFE ,< 7074 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7075 034316 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7076 034317 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7077 034320 003 07 0 00 004303 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7078 034321 321 11 0 00 034314 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7079 7080 ;TEST AC LEFT HALF 7081 ;TEST ROT RIGHT TWO BIT POSITIONS 7082 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7083 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7084 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7085 ;IS ZERO AFTER ROTATING. 7086 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7087 7088 004304 SN=SN+1 7089 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7090 IFE , DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0159 7091 767777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7092 034322 525 07 0 00 737777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7093 IFL ,< 7094 034323 525 06 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7095 IFE ,< 7096 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7097 IFE ,< 7098 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7099 034324 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7100 034325 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7101 034326 003 07 0 00 004304 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7102 034327 321 11 0 00 034322 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7103 7104 ;TEST AC LEFT HALF 7105 ;TEST ROT RIGHT TWO BIT POSITIONS 7106 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7107 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7108 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7109 ;IS ZERO AFTER ROTATING. 7110 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7111 7112 004305 SN=SN+1 7113 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7114 IFE , 7115 773777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7116 034330 525 07 0 00 757777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7117 IFL ,< 7118 034331 525 06 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7119 IFE ,< 7120 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7121 IFE ,< 7122 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7123 034332 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7124 034333 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7125 034334 003 07 0 00 004305 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7126 034335 321 11 0 00 034330 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7127 7128 ;TEST AC LEFT HALF 7129 ;TEST ROT RIGHT TWO BIT POSITIONS 7130 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7131 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7132 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7133 ;IS ZERO AFTER ROTATING. 7134 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7135 7136 004306 SN=SN+1 7137 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7138 IFE , 7139 775777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7140 034336 525 07 0 00 767777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7141 IFL ,< 7142 034337 525 06 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7143 IFE ,< 7144 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7145 IFE ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0160 7146 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7147 034340 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7148 034341 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7149 034342 003 07 0 00 004306 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7150 034343 321 11 0 00 034336 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7151 7152 ;TEST AC LEFT HALF 7153 ;TEST ROT RIGHT TWO BIT POSITIONS 7154 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7155 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7156 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7157 ;IS ZERO AFTER ROTATING. 7158 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7159 7160 004307 SN=SN+1 7161 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7162 IFE , 7163 776777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7164 034344 525 07 0 00 773777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7165 IFL ,< 7166 034345 525 06 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7167 IFE ,< 7168 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7169 IFE ,< 7170 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7171 034346 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7172 034347 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7173 034350 003 07 0 00 004307 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7174 034351 321 11 0 00 034344 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7175 7176 ;TEST AC LEFT HALF 7177 ;TEST ROT RIGHT TWO BIT POSITIONS 7178 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7179 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7180 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7181 ;IS ZERO AFTER ROTATING. 7182 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7183 7184 004310 SN=SN+1 7185 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7186 IFE , 7187 777377 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7188 034352 525 07 0 00 775777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7189 IFL ,< 7190 034353 525 06 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7191 IFE ,< 7192 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7193 IFE ,< 7194 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7195 034354 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7196 034355 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7197 034356 003 07 0 00 004310 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7198 034357 321 11 0 00 034352 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7199 7200 ;TEST AC LEFT HALF DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0161 7201 ;TEST ROT RIGHT TWO BIT POSITIONS 7202 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7203 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7204 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7205 ;IS ZERO AFTER ROTATING. 7206 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7207 7208 004311 SN=SN+1 7209 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7210 IFE , 7211 777577 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7212 034360 525 07 0 00 776777 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7213 IFL ,< 7214 034361 525 06 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7215 IFE ,< 7216 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7217 IFE ,< 7218 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7219 034362 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7220 034363 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7221 034364 003 07 0 00 004311 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7222 034365 321 11 0 00 034360 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7223 7224 ;TEST AC LEFT HALF 7225 ;TEST ROT RIGHT TWO BIT POSITIONS 7226 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7227 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7228 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7229 ;IS ZERO AFTER ROTATING. 7230 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7231 7232 004312 SN=SN+1 7233 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7234 IFE , 7235 777677 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7236 034366 525 07 0 00 777377 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7237 IFL ,< 7238 034367 525 06 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7239 IFE ,< 7240 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7241 IFE ,< 7242 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7243 034370 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7244 034371 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7245 034372 003 07 0 00 004312 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7246 034373 321 11 0 00 034366 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7247 7248 ;TEST AC LEFT HALF 7249 ;TEST ROT RIGHT TWO BIT POSITIONS 7250 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7251 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7252 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7253 ;IS ZERO AFTER ROTATING. 7254 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7255 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0162 7256 004313 SN=SN+1 7257 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7258 IFE , 7259 777737 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7260 034374 525 07 0 00 777577 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7261 IFL ,< 7262 034375 525 06 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7263 IFE ,< 7264 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7265 IFE ,< 7266 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7267 034376 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7268 034377 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7269 034400 003 07 0 00 004313 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7270 034401 321 11 0 00 034374 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7271 7272 ;TEST AC LEFT HALF 7273 ;TEST ROT RIGHT TWO BIT POSITIONS 7274 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7275 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7276 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7277 ;IS ZERO AFTER ROTATING. 7278 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7279 7280 004314 SN=SN+1 7281 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7282 IFE , 7283 777757 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7284 034402 525 07 0 00 777677 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7285 IFL ,< 7286 034403 525 06 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7287 IFE ,< 7288 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7289 IFE ,< 7290 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7291 034404 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7292 034405 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7293 034406 003 07 0 00 004314 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7294 034407 321 11 0 00 034402 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7295 7296 ;TEST AC LEFT HALF 7297 ;TEST ROT RIGHT TWO BIT POSITIONS 7298 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7299 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7300 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7301 ;IS ZERO AFTER ROTATING. 7302 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7303 7304 004315 SN=SN+1 7305 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7306 IFE , 7307 777767 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7308 034410 525 07 0 00 777737 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7309 IFL ,< 7310 034411 525 06 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0163 7311 IFE ,< 7312 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7313 IFE ,< 7314 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7315 034412 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7316 034413 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7317 034414 003 07 0 00 004315 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7318 034415 321 11 0 00 034410 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7319 7320 ;TEST AC LEFT HALF 7321 ;TEST ROT RIGHT TWO BIT POSITIONS 7322 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7323 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7324 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7325 ;IS ZERO AFTER ROTATING. 7326 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7327 7328 004316 SN=SN+1 7329 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7330 IFE , 7331 777773 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7332 034416 525 07 0 00 777757 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7333 IFL ,< 7334 034417 525 06 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7335 IFE ,< 7336 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7337 IFE ,< 7338 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7339 034420 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7340 034421 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7341 034422 003 07 0 00 004316 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7342 034423 321 11 0 00 034416 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7343 7344 ;TEST AC LEFT HALF 7345 ;TEST ROT RIGHT TWO BIT POSITIONS 7346 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7347 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7348 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7349 ;IS ZERO AFTER ROTATING. 7350 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7351 7352 004317 SN=SN+1 7353 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7354 IFE , 7355 777775 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7356 034424 525 07 0 00 777767 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7357 IFL ,< 7358 034425 525 06 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7359 IFE ,< 7360 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7361 IFE ,< 7362 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7363 034426 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7364 034427 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7365 034430 003 07 0 00 004317 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0164 7366 034431 321 11 0 00 034424 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7367 7368 ;TEST AC LEFT HALF 7369 ;TEST ROT RIGHT TWO BIT POSITIONS 7370 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7371 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7372 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7373 ;IS ZERO AFTER ROTATING. 7374 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7375 7376 004320 SN=SN+1 7377 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7378 IFE , 7379 777776 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7380 034432 525 07 0 00 777773 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7381 IFL ,< 7382 034433 525 06 0 00 777776 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7383 IFE ,< 7384 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7385 IFE ,< 7386 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7387 034434 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7388 034435 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7389 034436 003 07 0 00 004320 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7390 034437 321 11 0 00 034432 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7391 7392 ;TEST AC LEFT HALF 7393 ;TEST ROT RIGHT TWO BIT POSITIONS 7394 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7395 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7396 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7397 ;IS ZERO AFTER ROTATING. 7398 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7399 7400 004321 SN=SN+1 7401 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7402 IFE , 7403 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7404 034440 525 07 0 00 777775 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7405 IFL ,< 7406 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7407 IFE ,< 7408 034441 561 06 0 00 377777 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7409 IFE ,< 7410 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7411 034442 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7412 034443 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7413 034444 003 07 0 00 004321 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7414 034445 321 11 0 00 034440 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7415 7416 ;TEST AC LEFT HALF 7417 ;TEST ROT RIGHT TWO BIT POSITIONS 7418 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7419 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7420 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0165 7421 ;IS ZERO AFTER ROTATING. 7422 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7423 7424 004322 SN=SN+1 7425 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7426 IFE , 7427 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7428 034446 525 07 0 00 777776 HRLOI AC,ZZ&777777 ;CLEAR BIT (N) OF AC LEFT 7429 IFL ,< 7430 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 7431 IFE ,< 7432 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 7433 IFE ,< 7434 034447 561 06 0 00 577777 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 7435 034450 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7436 034451 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+2) A ZERO 7437 034452 003 07 0 00 004322 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7438 034453 321 11 0 00 034446 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7439 7440 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0166 7441 000001 ZZ=1 7442 7443 REPEAT ^D18,< ;TEST AC RIGHT HALF 7444 ;TEST ROT RIGHT TWO BIT POSITIONS 7445 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7446 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7447 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7448 ;IS ZERO AFTER ROTATING. 7449 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7450 7451 SN=SN+1 7452 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7453 IFE , 7454 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7455 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7456 IFL ,< 7457 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7458 IFE ,< 7459 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7460 IFE ,< 7461 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7462 ROT AC,-2 ;*ROTATE RIGHT TWO 7463 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7464 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7465 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7466 > 7467 ;TEST AC RIGHT HALF 7468 ;TEST ROT RIGHT TWO BIT POSITIONS 7469 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7470 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7471 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7472 ;IS ZERO AFTER ROTATING. 7473 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7474 7475 004323 SN=SN+1 7476 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7477 777777 377777 IFE , 7478 677777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7479 034454 561 07 0 00 377777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7480 IFL ,< 7481 034455 561 06 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7482 IFE ,< 7483 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7484 IFE ,< 7485 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7486 034456 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7487 034457 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7488 034460 003 07 0 00 004323 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7489 034461 321 11 0 00 034454 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7490 7491 ;TEST AC RIGHT HALF 7492 ;TEST ROT RIGHT TWO BIT POSITIONS 7493 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7494 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7495 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0167 7496 ;IS ZERO AFTER ROTATING. 7497 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7498 7499 004324 SN=SN+1 7500 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7501 IFE , 7502 737777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7503 034462 561 07 0 00 577777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7504 IFL ,< 7505 034463 561 06 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7506 IFE ,< 7507 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7508 IFE ,< 7509 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7510 034464 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7511 034465 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7512 034466 003 07 0 00 004324 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7513 034467 321 11 0 00 034462 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7514 7515 ;TEST AC RIGHT HALF 7516 ;TEST ROT RIGHT TWO BIT POSITIONS 7517 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7518 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7519 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7520 ;IS ZERO AFTER ROTATING. 7521 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7522 7523 004325 SN=SN+1 7524 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7525 IFE , 7526 757777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7527 034470 561 07 0 00 677777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7528 IFL ,< 7529 034471 561 06 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7530 IFE ,< 7531 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7532 IFE ,< 7533 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7534 034472 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7535 034473 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7536 034474 003 07 0 00 004325 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7537 034475 321 11 0 00 034470 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7538 7539 ;TEST AC RIGHT HALF 7540 ;TEST ROT RIGHT TWO BIT POSITIONS 7541 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7542 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7543 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7544 ;IS ZERO AFTER ROTATING. 7545 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7546 7547 004326 SN=SN+1 7548 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7549 IFE , 7550 767777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0168 7551 034476 561 07 0 00 737777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7552 IFL ,< 7553 034477 561 06 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7554 IFE ,< 7555 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7556 IFE ,< 7557 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7558 034500 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7559 034501 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7560 034502 003 07 0 00 004326 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7561 034503 321 11 0 00 034476 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7562 7563 ;TEST AC RIGHT HALF 7564 ;TEST ROT RIGHT TWO BIT POSITIONS 7565 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7566 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7567 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7568 ;IS ZERO AFTER ROTATING. 7569 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7570 7571 004327 SN=SN+1 7572 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7573 IFE , 7574 773777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7575 034504 561 07 0 00 757777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7576 IFL ,< 7577 034505 561 06 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7578 IFE ,< 7579 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7580 IFE ,< 7581 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7582 034506 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7583 034507 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7584 034510 003 07 0 00 004327 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7585 034511 321 11 0 00 034504 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7586 7587 ;TEST AC RIGHT HALF 7588 ;TEST ROT RIGHT TWO BIT POSITIONS 7589 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7590 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7591 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7592 ;IS ZERO AFTER ROTATING. 7593 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7594 7595 004330 SN=SN+1 7596 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7597 IFE , 7598 775777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7599 034512 561 07 0 00 767777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7600 IFL ,< 7601 034513 561 06 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7602 IFE ,< 7603 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7604 IFE ,< 7605 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0169 7606 034514 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7607 034515 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7608 034516 003 07 0 00 004330 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7609 034517 321 11 0 00 034512 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7610 7611 ;TEST AC RIGHT HALF 7612 ;TEST ROT RIGHT TWO BIT POSITIONS 7613 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7614 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7615 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7616 ;IS ZERO AFTER ROTATING. 7617 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7618 7619 004331 SN=SN+1 7620 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7621 IFE , 7622 776777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7623 034520 561 07 0 00 773777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7624 IFL ,< 7625 034521 561 06 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7626 IFE ,< 7627 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7628 IFE ,< 7629 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7630 034522 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7631 034523 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7632 034524 003 07 0 00 004331 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7633 034525 321 11 0 00 034520 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7634 7635 ;TEST AC RIGHT HALF 7636 ;TEST ROT RIGHT TWO BIT POSITIONS 7637 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7638 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7639 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7640 ;IS ZERO AFTER ROTATING. 7641 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7642 7643 004332 SN=SN+1 7644 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7645 IFE , 7646 777377 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7647 034526 561 07 0 00 775777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7648 IFL ,< 7649 034527 561 06 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7650 IFE ,< 7651 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7652 IFE ,< 7653 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7654 034530 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7655 034531 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7656 034532 003 07 0 00 004332 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7657 034533 321 11 0 00 034526 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7658 7659 ;TEST AC RIGHT HALF 7660 ;TEST ROT RIGHT TWO BIT POSITIONS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0170 7661 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7662 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7663 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7664 ;IS ZERO AFTER ROTATING. 7665 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7666 7667 004333 SN=SN+1 7668 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7669 IFE , 7670 777577 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7671 034534 561 07 0 00 776777 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7672 IFL ,< 7673 034535 561 06 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7674 IFE ,< 7675 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7676 IFE ,< 7677 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7678 034536 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7679 034537 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7680 034540 003 07 0 00 004333 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7681 034541 321 11 0 00 034534 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7682 7683 ;TEST AC RIGHT HALF 7684 ;TEST ROT RIGHT TWO BIT POSITIONS 7685 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7686 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7687 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7688 ;IS ZERO AFTER ROTATING. 7689 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7690 7691 004334 SN=SN+1 7692 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7693 IFE , 7694 777677 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7695 034542 561 07 0 00 777377 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7696 IFL ,< 7697 034543 561 06 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7698 IFE ,< 7699 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7700 IFE ,< 7701 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7702 034544 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7703 034545 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7704 034546 003 07 0 00 004334 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7705 034547 321 11 0 00 034542 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7706 7707 ;TEST AC RIGHT HALF 7708 ;TEST ROT RIGHT TWO BIT POSITIONS 7709 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7710 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7711 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7712 ;IS ZERO AFTER ROTATING. 7713 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7714 7715 004335 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0171 7716 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7717 IFE , 7718 777737 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7719 034550 561 07 0 00 777577 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7720 IFL ,< 7721 034551 561 06 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7722 IFE ,< 7723 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7724 IFE ,< 7725 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7726 034552 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7727 034553 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7728 034554 003 07 0 00 004335 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7729 034555 321 11 0 00 034550 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7730 7731 ;TEST AC RIGHT HALF 7732 ;TEST ROT RIGHT TWO BIT POSITIONS 7733 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7734 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7735 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7736 ;IS ZERO AFTER ROTATING. 7737 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7738 7739 004336 SN=SN+1 7740 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7741 IFE , 7742 777757 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7743 034556 561 07 0 00 777677 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7744 IFL ,< 7745 034557 561 06 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7746 IFE ,< 7747 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7748 IFE ,< 7749 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7750 034560 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7751 034561 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7752 034562 003 07 0 00 004336 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7753 034563 321 11 0 00 034556 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7754 7755 ;TEST AC RIGHT HALF 7756 ;TEST ROT RIGHT TWO BIT POSITIONS 7757 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7758 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7759 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7760 ;IS ZERO AFTER ROTATING. 7761 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7762 7763 004337 SN=SN+1 7764 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7765 IFE , 7766 777767 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7767 034564 561 07 0 00 777737 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7768 IFL ,< 7769 034565 561 06 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7770 IFE ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0172 7771 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7772 IFE ,< 7773 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7774 034566 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7775 034567 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7776 034570 003 07 0 00 004337 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7777 034571 321 11 0 00 034564 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7778 7779 ;TEST AC RIGHT HALF 7780 ;TEST ROT RIGHT TWO BIT POSITIONS 7781 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7782 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7783 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7784 ;IS ZERO AFTER ROTATING. 7785 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7786 7787 004340 SN=SN+1 7788 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7789 IFE , 7790 777773 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7791 034572 561 07 0 00 777757 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7792 IFL ,< 7793 034573 561 06 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7794 IFE ,< 7795 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7796 IFE ,< 7797 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7798 034574 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7799 034575 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7800 034576 003 07 0 00 004340 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7801 034577 321 11 0 00 034572 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7802 7803 ;TEST AC RIGHT HALF 7804 ;TEST ROT RIGHT TWO BIT POSITIONS 7805 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7806 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7807 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7808 ;IS ZERO AFTER ROTATING. 7809 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7810 7811 004341 SN=SN+1 7812 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7813 IFE , 7814 777775 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7815 034600 561 07 0 00 777767 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7816 IFL ,< 7817 034601 561 06 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7818 IFE ,< 7819 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7820 IFE ,< 7821 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7822 034602 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7823 034603 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7824 034604 003 07 0 00 004341 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7825 034605 321 11 0 00 034600 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0173 7826 7827 ;TEST AC RIGHT HALF 7828 ;TEST ROT RIGHT TWO BIT POSITIONS 7829 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7830 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7831 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7832 ;IS ZERO AFTER ROTATING. 7833 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7834 7835 004342 SN=SN+1 7836 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7837 IFE , 7838 777776 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7839 034606 561 07 0 00 777773 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7840 IFL ,< 7841 034607 561 06 0 00 777776 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7842 IFE ,< 7843 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7844 IFE ,< 7845 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7846 034610 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7847 034611 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7848 034612 003 07 0 00 004342 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7849 034613 321 11 0 00 034606 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7850 7851 ;TEST AC RIGHT HALF 7852 ;TEST ROT RIGHT TWO BIT POSITIONS 7853 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7854 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7855 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7856 ;IS ZERO AFTER ROTATING. 7857 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7858 7859 004343 SN=SN+1 7860 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7861 IFE , 7862 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7863 034614 561 07 0 00 777775 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7864 IFL ,< 7865 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7866 IFE ,< 7867 034615 525 06 0 00 377777 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7868 IFE ,< 7869 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7870 034616 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7871 034617 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7872 034620 003 07 0 00 004343 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7873 034621 321 11 0 00 034614 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7874 7875 ;TEST AC RIGHT HALF 7876 ;TEST ROT RIGHT TWO BIT POSITIONS 7877 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR 7878 ;TEST SHIFT LOGIC GATES BETWEEN AR AND AD 7879 ;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT 7880 ;IS ZERO AFTER ROTATING. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 18-17 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR SEQ 0174 7881 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 7882 7883 004344 SN=SN+1 7884 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 7885 IFE , 7886 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 7887 034622 561 07 0 00 777776 HRROI AC,ZZ&777777 ;CLEAR BIT (N) OF AC RIGHT 7888 IFL ,< 7889 HRROI AC-1,YY ;SETUP FOR COMPARISON> 7890 IFE ,< 7891 HRLOI AC-1,377777 ;SETUP FOR COMPARISON> 7892 IFE ,< 7893 034623 525 06 0 00 577777 HRLOI AC-1,577777 ;SETUP FOR COMPARISON> 7894 034624 241 07 0 00 777776 ROT AC,-2 ;*ROTATE RIGHT TWO 7895 034625 312 07 0 00 000006 CAME AC,AC-1 ;TEST FOR BIT (N+1) A ZERO 7896 034626 003 07 0 00 004344 ER3 AC,SN ;AD-AR GATE UNDER TEST FAILED 7897 034627 321 11 0 00 034622 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 7898 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 19 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0175 7899 SUBTTL DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES 7900 7901 ;TEST ROTC LEFT ONE BIT POSITION USING ALL ZEROS 7902 ;TEST MQ SHIFT LOGIC GATES 7903 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND 7904 ;AC+1 IS TESTED 7905 ;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING 7906 7907 000010 AC=10 7908 SAVEAC (1,1)^ 7909 034630 201 12 0 00 034630 MOVEI AC+2,. ;SAVE TEST PC 7910 034631 202 12 0 00 030051 MOVEM AC+2,TESTPC 7911 034632 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7912 034633 202 12 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7913 7914 034634 403 10 0 00 000011 E4400: SETZB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ZEROS 7915 034635 402 00 0 00 000007 SETZM AC-1 ;INITIALIZE RESULT TO ZERO 7916 034636 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 7917 034637 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ZEROS 7918 034640 004 11 0 00 004401 ER4 AC+1,4401 ;MQ GATING FAILED 7919 034641 321 12 0 00 034634 JUMPL AC+2,E4400 ;LOOP ON ERROR SWITCH 7920 7921 ;TEST ROTC LEFT ONE BIT POSITION USING ALL ONES 7922 ;TEST MQ SHIFT LOGIC GATES 7923 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND 7924 ;AC+1 IS TESTED 7925 ;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING 7926 7927 034642 477 10 0 00 000011 E4500: SETOB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ONES 7928 034643 476 00 0 00 000007 SETOM AC-1 ;INITIALIZE RESULT TO ALL ONES 7929 034644 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 7930 034645 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ONES 7931 034646 004 11 0 00 004501 ER4 AC+1,4501 ;MQ GATING FAILED 7932 034647 321 12 0 00 034642 JUMPL AC+2,E4500 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0176 7933 004600 SN=4600 7934 000000 ZZ=0 7935 7936 E4600: REPEAT ^D18,< ;TEST AC+1 RIGHT HALF 7937 ;TEST ROTC LEFT ONE BIT POSITION 7938 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 7939 ;TEST MQ SHIFT LOGIC GATES 7940 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 7941 ;IS TESTED. 7942 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 7943 ;OTHER BIT IS A ONE AFTER ROTATING 7944 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 7945 7946 SN=SN+1 7947 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 7948 IFE ZZ, 7949 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 7950 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 7951 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 7952 IFN ,< 7953 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 7954 IFE ,< 7955 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 7956 ROTC AC,1 ;*ROTATE LEFT ONE 7957 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 7958 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 7959 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 7960 > 7961 ;TEST AC+1 RIGHT HALF 7962 ;TEST ROTC LEFT ONE BIT POSITION 7963 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 7964 ;TEST MQ SHIFT LOGIC GATES 7965 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 7966 ;IS TESTED. 7967 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 7968 ;OTHER BIT IS A ONE AFTER ROTATING 7969 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 7970 7971 004601 SN=SN+1 7972 000000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 7973 000001 IFE ZZ, 7974 000002 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 7975 034650 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 7976 034651 201 11 0 00 000001 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 7977 IFN ,< 7978 034652 201 07 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 7979 IFE ,< 7980 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 7981 034653 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 7982 034654 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 7983 034655 004 11 0 00 004601 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 7984 034656 321 12 0 00 034650 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 7985 7986 ;TEST AC+1 RIGHT HALF 7987 ;TEST ROTC LEFT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0177 7988 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 7989 ;TEST MQ SHIFT LOGIC GATES 7990 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 7991 ;IS TESTED. 7992 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 7993 ;OTHER BIT IS A ONE AFTER ROTATING 7994 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 7995 7996 004602 SN=SN+1 7997 000002 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 7998 IFE ZZ, 7999 000004 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8000 034657 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8001 034660 201 11 0 00 000002 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8002 IFN ,< 8003 034661 201 07 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8004 IFE ,< 8005 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8006 034662 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8007 034663 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8008 034664 004 11 0 00 004602 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8009 034665 321 12 0 00 034657 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8010 8011 ;TEST AC+1 RIGHT HALF 8012 ;TEST ROTC LEFT ONE BIT POSITION 8013 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8014 ;TEST MQ SHIFT LOGIC GATES 8015 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8016 ;IS TESTED. 8017 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8018 ;OTHER BIT IS A ONE AFTER ROTATING 8019 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8020 8021 004603 SN=SN+1 8022 000004 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8023 IFE ZZ, 8024 000010 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8025 034666 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8026 034667 201 11 0 00 000004 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8027 IFN ,< 8028 034670 201 07 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8029 IFE ,< 8030 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8031 034671 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8032 034672 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8033 034673 004 11 0 00 004603 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8034 034674 321 12 0 00 034666 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8035 8036 ;TEST AC+1 RIGHT HALF 8037 ;TEST ROTC LEFT ONE BIT POSITION 8038 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8039 ;TEST MQ SHIFT LOGIC GATES 8040 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8041 ;IS TESTED. 8042 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0178 8043 ;OTHER BIT IS A ONE AFTER ROTATING 8044 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8045 8046 004604 SN=SN+1 8047 000010 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8048 IFE ZZ, 8049 000020 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8050 034675 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8051 034676 201 11 0 00 000010 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8052 IFN ,< 8053 034677 201 07 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8054 IFE ,< 8055 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8056 034700 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8057 034701 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8058 034702 004 11 0 00 004604 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8059 034703 321 12 0 00 034675 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8060 8061 ;TEST AC+1 RIGHT HALF 8062 ;TEST ROTC LEFT ONE BIT POSITION 8063 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8064 ;TEST MQ SHIFT LOGIC GATES 8065 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8066 ;IS TESTED. 8067 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8068 ;OTHER BIT IS A ONE AFTER ROTATING 8069 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8070 8071 004605 SN=SN+1 8072 000020 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8073 IFE ZZ, 8074 000040 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8075 034704 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8076 034705 201 11 0 00 000020 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8077 IFN ,< 8078 034706 201 07 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8079 IFE ,< 8080 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8081 034707 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8082 034710 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8083 034711 004 11 0 00 004605 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8084 034712 321 12 0 00 034704 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8085 8086 ;TEST AC+1 RIGHT HALF 8087 ;TEST ROTC LEFT ONE BIT POSITION 8088 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8089 ;TEST MQ SHIFT LOGIC GATES 8090 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8091 ;IS TESTED. 8092 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8093 ;OTHER BIT IS A ONE AFTER ROTATING 8094 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8095 8096 004606 SN=SN+1 8097 000040 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0179 8098 IFE ZZ, 8099 000100 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8100 034713 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8101 034714 201 11 0 00 000040 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8102 IFN ,< 8103 034715 201 07 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8104 IFE ,< 8105 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8106 034716 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8107 034717 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8108 034720 004 11 0 00 004606 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8109 034721 321 12 0 00 034713 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8110 8111 ;TEST AC+1 RIGHT HALF 8112 ;TEST ROTC LEFT ONE BIT POSITION 8113 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8114 ;TEST MQ SHIFT LOGIC GATES 8115 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8116 ;IS TESTED. 8117 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8118 ;OTHER BIT IS A ONE AFTER ROTATING 8119 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8120 8121 004607 SN=SN+1 8122 000100 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8123 IFE ZZ, 8124 000200 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8125 034722 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8126 034723 201 11 0 00 000100 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8127 IFN ,< 8128 034724 201 07 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8129 IFE ,< 8130 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8131 034725 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8132 034726 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8133 034727 004 11 0 00 004607 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8134 034730 321 12 0 00 034722 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8135 8136 ;TEST AC+1 RIGHT HALF 8137 ;TEST ROTC LEFT ONE BIT POSITION 8138 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8139 ;TEST MQ SHIFT LOGIC GATES 8140 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8141 ;IS TESTED. 8142 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8143 ;OTHER BIT IS A ONE AFTER ROTATING 8144 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8145 8146 004610 SN=SN+1 8147 000200 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8148 IFE ZZ, 8149 000400 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8150 034731 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8151 034732 201 11 0 00 000200 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8152 IFN ,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0180 8153 034733 201 07 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8154 IFE ,< 8155 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8156 034734 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8157 034735 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8158 034736 004 11 0 00 004610 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8159 034737 321 12 0 00 034731 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8160 8161 ;TEST AC+1 RIGHT HALF 8162 ;TEST ROTC LEFT ONE BIT POSITION 8163 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8164 ;TEST MQ SHIFT LOGIC GATES 8165 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8166 ;IS TESTED. 8167 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8168 ;OTHER BIT IS A ONE AFTER ROTATING 8169 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8170 8171 004611 SN=SN+1 8172 000400 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8173 IFE ZZ, 8174 001000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8175 034740 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8176 034741 201 11 0 00 000400 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8177 IFN ,< 8178 034742 201 07 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8179 IFE ,< 8180 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8181 034743 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8182 034744 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8183 034745 004 11 0 00 004611 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8184 034746 321 12 0 00 034740 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8185 8186 ;TEST AC+1 RIGHT HALF 8187 ;TEST ROTC LEFT ONE BIT POSITION 8188 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8189 ;TEST MQ SHIFT LOGIC GATES 8190 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8191 ;IS TESTED. 8192 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8193 ;OTHER BIT IS A ONE AFTER ROTATING 8194 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8195 8196 004612 SN=SN+1 8197 001000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8198 IFE ZZ, 8199 002000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8200 034747 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8201 034750 201 11 0 00 001000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8202 IFN ,< 8203 034751 201 07 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8204 IFE ,< 8205 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8206 034752 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8207 034753 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0181 8208 034754 004 11 0 00 004612 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8209 034755 321 12 0 00 034747 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8210 8211 ;TEST AC+1 RIGHT HALF 8212 ;TEST ROTC LEFT ONE BIT POSITION 8213 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8214 ;TEST MQ SHIFT LOGIC GATES 8215 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8216 ;IS TESTED. 8217 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8218 ;OTHER BIT IS A ONE AFTER ROTATING 8219 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8220 8221 004613 SN=SN+1 8222 002000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8223 IFE ZZ, 8224 004000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8225 034756 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8226 034757 201 11 0 00 002000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8227 IFN ,< 8228 034760 201 07 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8229 IFE ,< 8230 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8231 034761 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8232 034762 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8233 034763 004 11 0 00 004613 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8234 034764 321 12 0 00 034756 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8235 8236 ;TEST AC+1 RIGHT HALF 8237 ;TEST ROTC LEFT ONE BIT POSITION 8238 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8239 ;TEST MQ SHIFT LOGIC GATES 8240 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8241 ;IS TESTED. 8242 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8243 ;OTHER BIT IS A ONE AFTER ROTATING 8244 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8245 8246 004614 SN=SN+1 8247 004000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8248 IFE ZZ, 8249 010000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8250 034765 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8251 034766 201 11 0 00 004000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8252 IFN ,< 8253 034767 201 07 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8254 IFE ,< 8255 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8256 034770 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8257 034771 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8258 034772 004 11 0 00 004614 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8259 034773 321 12 0 00 034765 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8260 8261 ;TEST AC+1 RIGHT HALF 8262 ;TEST ROTC LEFT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0182 8263 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8264 ;TEST MQ SHIFT LOGIC GATES 8265 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8266 ;IS TESTED. 8267 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8268 ;OTHER BIT IS A ONE AFTER ROTATING 8269 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8270 8271 004615 SN=SN+1 8272 010000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8273 IFE ZZ, 8274 020000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8275 034774 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8276 034775 201 11 0 00 010000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8277 IFN ,< 8278 034776 201 07 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8279 IFE ,< 8280 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8281 034777 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8282 035000 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8283 035001 004 11 0 00 004615 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8284 035002 321 12 0 00 034774 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8285 8286 ;TEST AC+1 RIGHT HALF 8287 ;TEST ROTC LEFT ONE BIT POSITION 8288 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8289 ;TEST MQ SHIFT LOGIC GATES 8290 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8291 ;IS TESTED. 8292 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8293 ;OTHER BIT IS A ONE AFTER ROTATING 8294 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8295 8296 004616 SN=SN+1 8297 020000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8298 IFE ZZ, 8299 040000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8300 035003 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8301 035004 201 11 0 00 020000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8302 IFN ,< 8303 035005 201 07 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8304 IFE ,< 8305 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8306 035006 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8307 035007 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8308 035010 004 11 0 00 004616 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8309 035011 321 12 0 00 035003 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8310 8311 ;TEST AC+1 RIGHT HALF 8312 ;TEST ROTC LEFT ONE BIT POSITION 8313 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8314 ;TEST MQ SHIFT LOGIC GATES 8315 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8316 ;IS TESTED. 8317 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0183 8318 ;OTHER BIT IS A ONE AFTER ROTATING 8319 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8320 8321 004617 SN=SN+1 8322 040000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8323 IFE ZZ, 8324 100000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8325 035012 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8326 035013 201 11 0 00 040000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8327 IFN ,< 8328 035014 201 07 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8329 IFE ,< 8330 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8331 035015 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8332 035016 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8333 035017 004 11 0 00 004617 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8334 035020 321 12 0 00 035012 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8335 8336 ;TEST AC+1 RIGHT HALF 8337 ;TEST ROTC LEFT ONE BIT POSITION 8338 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8339 ;TEST MQ SHIFT LOGIC GATES 8340 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8341 ;IS TESTED. 8342 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8343 ;OTHER BIT IS A ONE AFTER ROTATING 8344 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8345 8346 004620 SN=SN+1 8347 100000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8348 IFE ZZ, 8349 200000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8350 035021 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8351 035022 201 11 0 00 100000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8352 IFN ,< 8353 035023 201 07 0 00 200000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8354 IFE ,< 8355 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8356 035024 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8357 035025 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8358 035026 004 11 0 00 004620 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8359 035027 321 12 0 00 035021 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8360 8361 ;TEST AC+1 RIGHT HALF 8362 ;TEST ROTC LEFT ONE BIT POSITION 8363 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8364 ;TEST MQ SHIFT LOGIC GATES 8365 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8366 ;IS TESTED. 8367 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8368 ;OTHER BIT IS A ONE AFTER ROTATING 8369 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8370 8371 004621 SN=SN+1 8372 200000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0184 8373 IFE ZZ, 8374 400000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8375 035030 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8376 035031 201 11 0 00 200000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8377 IFN ,< 8378 035032 201 07 0 00 400000 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8379 IFE ,< 8380 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8381 035033 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8382 035034 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8383 035035 004 11 0 00 004621 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8384 035036 321 12 0 00 035030 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8385 8386 ;TEST AC+1 RIGHT HALF 8387 ;TEST ROTC LEFT ONE BIT POSITION 8388 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8389 ;TEST MQ SHIFT LOGIC GATES 8390 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8391 ;IS TESTED. 8392 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8393 ;OTHER BIT IS A ONE AFTER ROTATING 8394 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8395 8396 004622 SN=SN+1 8397 400000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8398 IFE ZZ, 8399 000001 000000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8400 035037 400 10 0 00 000000 SETZ AC, ;INITILAIZE AC TO ALL ZEROS 8401 035040 201 11 0 00 400000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 8402 IFN ,< 8403 MOVEI AC-1,YY ;SETUP FOR COMPARISON> 8404 IFE ,< 8405 035041 205 07 0 00 000001 MOVSI AC-1,1 ;SETUP FOR COMPARISON> 8406 035042 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8407 035043 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8408 035044 004 11 0 00 004622 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8409 035045 321 12 0 00 035037 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8410 8411 8412 000000 ZZ=0 8413 8414 REPEAT ^D17,< ;TEST AC+1 LEFT HALF 8415 ;TEST ROTC LEFT ONE BIT POSITION 8416 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8417 ;TEST MQ SHIFT LOGIC GATES 8418 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8419 ;IS TESTED. 8420 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8421 ;OTHER BIT IS A ONE AFTER ROTATING 8422 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8423 8424 SN=SN+1 8425 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8426 IFE ZZ, 8427 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0185 8428 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8429 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8430 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8431 ROTC AC,1 ;*ROTATE LEFT ONE 8432 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8433 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8434 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8435 > 8436 ;TEST AC+1 LEFT HALF 8437 ;TEST ROTC LEFT ONE BIT POSITION 8438 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8439 ;TEST MQ SHIFT LOGIC GATES 8440 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8441 ;IS TESTED. 8442 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8443 ;OTHER BIT IS A ONE AFTER ROTATING 8444 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8445 8446 004623 SN=SN+1 8447 000000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8448 000001 IFE ZZ, 8449 000002 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8450 035046 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8451 035047 205 11 0 00 000001 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8452 035050 205 07 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8453 035051 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8454 035052 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8455 035053 004 11 0 00 004623 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8456 035054 321 12 0 00 035046 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8457 8458 ;TEST AC+1 LEFT HALF 8459 ;TEST ROTC LEFT ONE BIT POSITION 8460 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8461 ;TEST MQ SHIFT LOGIC GATES 8462 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8463 ;IS TESTED. 8464 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8465 ;OTHER BIT IS A ONE AFTER ROTATING 8466 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8467 8468 004624 SN=SN+1 8469 000002 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8470 IFE ZZ, 8471 000004 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8472 035055 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8473 035056 205 11 0 00 000002 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8474 035057 205 07 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8475 035060 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8476 035061 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8477 035062 004 11 0 00 004624 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8478 035063 321 12 0 00 035055 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8479 8480 ;TEST AC+1 LEFT HALF 8481 ;TEST ROTC LEFT ONE BIT POSITION 8482 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0186 8483 ;TEST MQ SHIFT LOGIC GATES 8484 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8485 ;IS TESTED. 8486 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8487 ;OTHER BIT IS A ONE AFTER ROTATING 8488 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8489 8490 004625 SN=SN+1 8491 000004 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8492 IFE ZZ, 8493 000010 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8494 035064 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8495 035065 205 11 0 00 000004 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8496 035066 205 07 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8497 035067 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8498 035070 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8499 035071 004 11 0 00 004625 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8500 035072 321 12 0 00 035064 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8501 8502 ;TEST AC+1 LEFT HALF 8503 ;TEST ROTC LEFT ONE BIT POSITION 8504 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8505 ;TEST MQ SHIFT LOGIC GATES 8506 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8507 ;IS TESTED. 8508 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8509 ;OTHER BIT IS A ONE AFTER ROTATING 8510 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8511 8512 004626 SN=SN+1 8513 000010 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8514 IFE ZZ, 8515 000020 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8516 035073 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8517 035074 205 11 0 00 000010 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8518 035075 205 07 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8519 035076 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8520 035077 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8521 035100 004 11 0 00 004626 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8522 035101 321 12 0 00 035073 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8523 8524 ;TEST AC+1 LEFT HALF 8525 ;TEST ROTC LEFT ONE BIT POSITION 8526 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8527 ;TEST MQ SHIFT LOGIC GATES 8528 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8529 ;IS TESTED. 8530 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8531 ;OTHER BIT IS A ONE AFTER ROTATING 8532 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8533 8534 004627 SN=SN+1 8535 000020 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8536 IFE ZZ, 8537 000040 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0187 8538 035102 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8539 035103 205 11 0 00 000020 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8540 035104 205 07 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8541 035105 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8542 035106 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8543 035107 004 11 0 00 004627 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8544 035110 321 12 0 00 035102 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8545 8546 ;TEST AC+1 LEFT HALF 8547 ;TEST ROTC LEFT ONE BIT POSITION 8548 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8549 ;TEST MQ SHIFT LOGIC GATES 8550 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8551 ;IS TESTED. 8552 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8553 ;OTHER BIT IS A ONE AFTER ROTATING 8554 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8555 8556 004630 SN=SN+1 8557 000040 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8558 IFE ZZ, 8559 000100 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8560 035111 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8561 035112 205 11 0 00 000040 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8562 035113 205 07 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8563 035114 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8564 035115 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8565 035116 004 11 0 00 004630 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8566 035117 321 12 0 00 035111 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8567 8568 ;TEST AC+1 LEFT HALF 8569 ;TEST ROTC LEFT ONE BIT POSITION 8570 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8571 ;TEST MQ SHIFT LOGIC GATES 8572 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8573 ;IS TESTED. 8574 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8575 ;OTHER BIT IS A ONE AFTER ROTATING 8576 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8577 8578 004631 SN=SN+1 8579 000100 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8580 IFE ZZ, 8581 000200 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8582 035120 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8583 035121 205 11 0 00 000100 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8584 035122 205 07 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8585 035123 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8586 035124 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8587 035125 004 11 0 00 004631 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8588 035126 321 12 0 00 035120 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8589 8590 ;TEST AC+1 LEFT HALF 8591 ;TEST ROTC LEFT ONE BIT POSITION 8592 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0188 8593 ;TEST MQ SHIFT LOGIC GATES 8594 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8595 ;IS TESTED. 8596 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8597 ;OTHER BIT IS A ONE AFTER ROTATING 8598 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8599 8600 004632 SN=SN+1 8601 000200 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8602 IFE ZZ, 8603 000400 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8604 035127 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8605 035130 205 11 0 00 000200 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8606 035131 205 07 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8607 035132 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8608 035133 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8609 035134 004 11 0 00 004632 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8610 035135 321 12 0 00 035127 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8611 8612 ;TEST AC+1 LEFT HALF 8613 ;TEST ROTC LEFT ONE BIT POSITION 8614 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8615 ;TEST MQ SHIFT LOGIC GATES 8616 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8617 ;IS TESTED. 8618 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8619 ;OTHER BIT IS A ONE AFTER ROTATING 8620 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8621 8622 004633 SN=SN+1 8623 000400 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8624 IFE ZZ, 8625 001000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8626 035136 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8627 035137 205 11 0 00 000400 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8628 035140 205 07 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8629 035141 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8630 035142 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8631 035143 004 11 0 00 004633 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8632 035144 321 12 0 00 035136 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8633 8634 ;TEST AC+1 LEFT HALF 8635 ;TEST ROTC LEFT ONE BIT POSITION 8636 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8637 ;TEST MQ SHIFT LOGIC GATES 8638 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8639 ;IS TESTED. 8640 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8641 ;OTHER BIT IS A ONE AFTER ROTATING 8642 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8643 8644 004634 SN=SN+1 8645 001000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8646 IFE ZZ, 8647 002000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0189 8648 035145 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8649 035146 205 11 0 00 001000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8650 035147 205 07 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8651 035150 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8652 035151 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8653 035152 004 11 0 00 004634 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8654 035153 321 12 0 00 035145 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8655 8656 ;TEST AC+1 LEFT HALF 8657 ;TEST ROTC LEFT ONE BIT POSITION 8658 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8659 ;TEST MQ SHIFT LOGIC GATES 8660 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8661 ;IS TESTED. 8662 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8663 ;OTHER BIT IS A ONE AFTER ROTATING 8664 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8665 8666 004635 SN=SN+1 8667 002000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8668 IFE ZZ, 8669 004000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8670 035154 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8671 035155 205 11 0 00 002000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8672 035156 205 07 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8673 035157 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8674 035160 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8675 035161 004 11 0 00 004635 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8676 035162 321 12 0 00 035154 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8677 8678 ;TEST AC+1 LEFT HALF 8679 ;TEST ROTC LEFT ONE BIT POSITION 8680 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8681 ;TEST MQ SHIFT LOGIC GATES 8682 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8683 ;IS TESTED. 8684 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8685 ;OTHER BIT IS A ONE AFTER ROTATING 8686 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8687 8688 004636 SN=SN+1 8689 004000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8690 IFE ZZ, 8691 010000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8692 035163 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8693 035164 205 11 0 00 004000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8694 035165 205 07 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8695 035166 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8696 035167 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8697 035170 004 11 0 00 004636 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8698 035171 321 12 0 00 035163 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8699 8700 ;TEST AC+1 LEFT HALF 8701 ;TEST ROTC LEFT ONE BIT POSITION 8702 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0190 8703 ;TEST MQ SHIFT LOGIC GATES 8704 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8705 ;IS TESTED. 8706 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8707 ;OTHER BIT IS A ONE AFTER ROTATING 8708 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8709 8710 004637 SN=SN+1 8711 010000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8712 IFE ZZ, 8713 020000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8714 035172 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8715 035173 205 11 0 00 010000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8716 035174 205 07 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8717 035175 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8718 035176 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8719 035177 004 11 0 00 004637 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8720 035200 321 12 0 00 035172 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8721 8722 ;TEST AC+1 LEFT HALF 8723 ;TEST ROTC LEFT ONE BIT POSITION 8724 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8725 ;TEST MQ SHIFT LOGIC GATES 8726 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8727 ;IS TESTED. 8728 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8729 ;OTHER BIT IS A ONE AFTER ROTATING 8730 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8731 8732 004640 SN=SN+1 8733 020000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8734 IFE ZZ, 8735 040000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8736 035201 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8737 035202 205 11 0 00 020000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8738 035203 205 07 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8739 035204 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8740 035205 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8741 035206 004 11 0 00 004640 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8742 035207 321 12 0 00 035201 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8743 8744 ;TEST AC+1 LEFT HALF 8745 ;TEST ROTC LEFT ONE BIT POSITION 8746 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8747 ;TEST MQ SHIFT LOGIC GATES 8748 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8749 ;IS TESTED. 8750 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8751 ;OTHER BIT IS A ONE AFTER ROTATING 8752 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8753 8754 004641 SN=SN+1 8755 040000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8756 IFE ZZ, 8757 100000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 20-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0191 8758 035210 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8759 035211 205 11 0 00 040000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8760 035212 205 07 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8761 035213 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8762 035214 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8763 035215 004 11 0 00 004641 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8764 035216 321 12 0 00 035210 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8765 8766 ;TEST AC+1 LEFT HALF 8767 ;TEST ROTC LEFT ONE BIT POSITION 8768 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8769 ;TEST MQ SHIFT LOGIC GATES 8770 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8771 ;IS TESTED. 8772 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8773 ;OTHER BIT IS A ONE AFTER ROTATING 8774 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8775 8776 004642 SN=SN+1 8777 100000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8778 IFE ZZ, 8779 200000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8780 035217 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8781 035220 205 11 0 00 100000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8782 035221 205 07 0 00 200000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8783 035222 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8784 035223 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8785 035224 004 11 0 00 004642 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8786 035225 321 12 0 00 035217 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8787 8788 ;TEST AC+1 LEFT HALF 8789 ;TEST ROTC LEFT ONE BIT POSITION 8790 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 8791 ;TEST MQ SHIFT LOGIC GATES 8792 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8793 ;IS TESTED. 8794 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 8795 ;OTHER BIT IS A ONE AFTER ROTATING 8796 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 8797 8798 004643 SN=SN+1 8799 200000 ZZ=ZZ+ZZ ;SELECTED BIT BEFORE ROTATION 8800 IFE ZZ, 8801 400000 YY=ZZ+ZZ ;SELECTED BIT AFTER ROTATION 8802 035226 400 10 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 8803 035227 205 11 0 00 200000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 8804 035230 205 07 0 00 400000 MOVSI AC-1,YY ;SETUP FOR COMPARISON 8805 035231 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8806 035232 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ONE 8807 035233 004 11 0 00 004643 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8808 035234 321 12 0 00 035226 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8809 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0192 8810 004700 SN=4700 8811 000000 ZZ=0 8812 E4700: REPEAT ^D18,< ;TEST AC+1 RIGHT HALF 8813 ;TEST ROTC LEFT ONE BIT POSITION 8814 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8815 ;TEST MQ SHIFT LOGIC GATES 8816 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8817 ;IS TESTED. 8818 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8819 ;OTHER BIT IA A ZERO AFTER ROTATING 8820 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8821 8822 SN=SN+1 8823 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8824 IFE , 8825 YY=&777777 ;SELECTED BIT AFTER ROTATION 8826 SETOM AC ;INITIALIZE AC TO ALL ONES 8827 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8828 IFN &777777,< 8829 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8830 IFE &777777,< 8831 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8832 ROTC AC,1 ;*ROTATE LEFT ONE 8833 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8834 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8835 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8836 > 8837 ;TEST AC+1 RIGHT HALF 8838 ;TEST ROTC LEFT ONE BIT POSITION 8839 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8840 ;TEST MQ SHIFT LOGIC GATES 8841 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8842 ;IS TESTED. 8843 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8844 ;OTHER BIT IA A ZERO AFTER ROTATING 8845 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8846 8847 004701 SN=SN+1 8848 000001 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8849 777777 777776 IFE , 8850 777775 YY=&777777 ;SELECTED BIT AFTER ROTATION 8851 035235 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8852 035236 561 11 0 00 777776 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8853 IFN &777777,< 8854 035237 561 07 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8855 IFE &777777,< 8856 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8857 035240 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8858 035241 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8859 035242 004 11 0 00 004701 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8860 035243 321 12 0 00 035235 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8861 8862 ;TEST AC+1 RIGHT HALF 8863 ;TEST ROTC LEFT ONE BIT POSITION 8864 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0193 8865 ;TEST MQ SHIFT LOGIC GATES 8866 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8867 ;IS TESTED. 8868 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8869 ;OTHER BIT IA A ZERO AFTER ROTATING 8870 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8871 8872 004702 SN=SN+1 8873 777777 777775 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8874 IFE , 8875 777773 YY=&777777 ;SELECTED BIT AFTER ROTATION 8876 035244 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8877 035245 561 11 0 00 777775 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8878 IFN &777777,< 8879 035246 561 07 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8880 IFE &777777,< 8881 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8882 035247 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8883 035250 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8884 035251 004 11 0 00 004702 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8885 035252 321 12 0 00 035244 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8886 8887 ;TEST AC+1 RIGHT HALF 8888 ;TEST ROTC LEFT ONE BIT POSITION 8889 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8890 ;TEST MQ SHIFT LOGIC GATES 8891 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8892 ;IS TESTED. 8893 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8894 ;OTHER BIT IA A ZERO AFTER ROTATING 8895 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8896 8897 004703 SN=SN+1 8898 777777 777773 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8899 IFE , 8900 777767 YY=&777777 ;SELECTED BIT AFTER ROTATION 8901 035253 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8902 035254 561 11 0 00 777773 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8903 IFN &777777,< 8904 035255 561 07 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8905 IFE &777777,< 8906 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8907 035256 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8908 035257 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8909 035260 004 11 0 00 004703 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8910 035261 321 12 0 00 035253 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8911 8912 ;TEST AC+1 RIGHT HALF 8913 ;TEST ROTC LEFT ONE BIT POSITION 8914 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8915 ;TEST MQ SHIFT LOGIC GATES 8916 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8917 ;IS TESTED. 8918 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8919 ;OTHER BIT IA A ZERO AFTER ROTATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0194 8920 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8921 8922 004704 SN=SN+1 8923 777777 777767 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8924 IFE , 8925 777757 YY=&777777 ;SELECTED BIT AFTER ROTATION 8926 035262 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8927 035263 561 11 0 00 777767 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8928 IFN &777777,< 8929 035264 561 07 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8930 IFE &777777,< 8931 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8932 035265 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8933 035266 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8934 035267 004 11 0 00 004704 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8935 035270 321 12 0 00 035262 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8936 8937 ;TEST AC+1 RIGHT HALF 8938 ;TEST ROTC LEFT ONE BIT POSITION 8939 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8940 ;TEST MQ SHIFT LOGIC GATES 8941 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8942 ;IS TESTED. 8943 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8944 ;OTHER BIT IA A ZERO AFTER ROTATING 8945 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8946 8947 004705 SN=SN+1 8948 777777 777757 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8949 IFE , 8950 777737 YY=&777777 ;SELECTED BIT AFTER ROTATION 8951 035271 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8952 035272 561 11 0 00 777757 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8953 IFN &777777,< 8954 035273 561 07 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8955 IFE &777777,< 8956 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8957 035274 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8958 035275 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8959 035276 004 11 0 00 004705 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8960 035277 321 12 0 00 035271 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8961 8962 ;TEST AC+1 RIGHT HALF 8963 ;TEST ROTC LEFT ONE BIT POSITION 8964 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8965 ;TEST MQ SHIFT LOGIC GATES 8966 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8967 ;IS TESTED. 8968 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8969 ;OTHER BIT IA A ZERO AFTER ROTATING 8970 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8971 8972 004706 SN=SN+1 8973 777777 777737 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8974 IFE , DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0195 8975 777677 YY=&777777 ;SELECTED BIT AFTER ROTATION 8976 035300 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 8977 035301 561 11 0 00 777737 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 8978 IFN &777777,< 8979 035302 561 07 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON> 8980 IFE &777777,< 8981 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 8982 035303 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 8983 035304 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 8984 035305 004 11 0 00 004706 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 8985 035306 321 12 0 00 035300 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 8986 8987 ;TEST AC+1 RIGHT HALF 8988 ;TEST ROTC LEFT ONE BIT POSITION 8989 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 8990 ;TEST MQ SHIFT LOGIC GATES 8991 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 8992 ;IS TESTED. 8993 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 8994 ;OTHER BIT IA A ZERO AFTER ROTATING 8995 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 8996 8997 004707 SN=SN+1 8998 777777 777677 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 8999 IFE , 9000 777577 YY=&777777 ;SELECTED BIT AFTER ROTATION 9001 035307 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9002 035310 561 11 0 00 777677 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9003 IFN &777777,< 9004 035311 561 07 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9005 IFE &777777,< 9006 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9007 035312 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9008 035313 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9009 035314 004 11 0 00 004707 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9010 035315 321 12 0 00 035307 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9011 9012 ;TEST AC+1 RIGHT HALF 9013 ;TEST ROTC LEFT ONE BIT POSITION 9014 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9015 ;TEST MQ SHIFT LOGIC GATES 9016 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9017 ;IS TESTED. 9018 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9019 ;OTHER BIT IA A ZERO AFTER ROTATING 9020 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9021 9022 004710 SN=SN+1 9023 777777 777577 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9024 IFE , 9025 777377 YY=&777777 ;SELECTED BIT AFTER ROTATION 9026 035316 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9027 035317 561 11 0 00 777577 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9028 IFN &777777,< 9029 035320 561 07 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0196 9030 IFE &777777,< 9031 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9032 035321 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9033 035322 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9034 035323 004 11 0 00 004710 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9035 035324 321 12 0 00 035316 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9036 9037 ;TEST AC+1 RIGHT HALF 9038 ;TEST ROTC LEFT ONE BIT POSITION 9039 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9040 ;TEST MQ SHIFT LOGIC GATES 9041 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9042 ;IS TESTED. 9043 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9044 ;OTHER BIT IA A ZERO AFTER ROTATING 9045 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9046 9047 004711 SN=SN+1 9048 777777 777377 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9049 IFE , 9050 776777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9051 035325 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9052 035326 561 11 0 00 777377 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9053 IFN &777777,< 9054 035327 561 07 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9055 IFE &777777,< 9056 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9057 035330 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9058 035331 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9059 035332 004 11 0 00 004711 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9060 035333 321 12 0 00 035325 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9061 9062 ;TEST AC+1 RIGHT HALF 9063 ;TEST ROTC LEFT ONE BIT POSITION 9064 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9065 ;TEST MQ SHIFT LOGIC GATES 9066 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9067 ;IS TESTED. 9068 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9069 ;OTHER BIT IA A ZERO AFTER ROTATING 9070 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9071 9072 004712 SN=SN+1 9073 777777 776777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9074 IFE , 9075 775777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9076 035334 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9077 035335 561 11 0 00 776777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9078 IFN &777777,< 9079 035336 561 07 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9080 IFE &777777,< 9081 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9082 035337 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9083 035340 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9084 035341 004 11 0 00 004712 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0197 9085 035342 321 12 0 00 035334 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9086 9087 ;TEST AC+1 RIGHT HALF 9088 ;TEST ROTC LEFT ONE BIT POSITION 9089 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9090 ;TEST MQ SHIFT LOGIC GATES 9091 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9092 ;IS TESTED. 9093 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9094 ;OTHER BIT IA A ZERO AFTER ROTATING 9095 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9096 9097 004713 SN=SN+1 9098 777777 775777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9099 IFE , 9100 773777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9101 035343 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9102 035344 561 11 0 00 775777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9103 IFN &777777,< 9104 035345 561 07 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9105 IFE &777777,< 9106 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9107 035346 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9108 035347 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9109 035350 004 11 0 00 004713 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9110 035351 321 12 0 00 035343 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9111 9112 ;TEST AC+1 RIGHT HALF 9113 ;TEST ROTC LEFT ONE BIT POSITION 9114 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9115 ;TEST MQ SHIFT LOGIC GATES 9116 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9117 ;IS TESTED. 9118 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9119 ;OTHER BIT IA A ZERO AFTER ROTATING 9120 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9121 9122 004714 SN=SN+1 9123 777777 773777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9124 IFE , 9125 767777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9126 035352 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9127 035353 561 11 0 00 773777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9128 IFN &777777,< 9129 035354 561 07 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9130 IFE &777777,< 9131 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9132 035355 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9133 035356 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9134 035357 004 11 0 00 004714 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9135 035360 321 12 0 00 035352 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9136 9137 ;TEST AC+1 RIGHT HALF 9138 ;TEST ROTC LEFT ONE BIT POSITION 9139 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0198 9140 ;TEST MQ SHIFT LOGIC GATES 9141 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9142 ;IS TESTED. 9143 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9144 ;OTHER BIT IA A ZERO AFTER ROTATING 9145 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9146 9147 004715 SN=SN+1 9148 777777 767777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9149 IFE , 9150 757777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9151 035361 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9152 035362 561 11 0 00 767777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9153 IFN &777777,< 9154 035363 561 07 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9155 IFE &777777,< 9156 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9157 035364 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9158 035365 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9159 035366 004 11 0 00 004715 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9160 035367 321 12 0 00 035361 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9161 9162 ;TEST AC+1 RIGHT HALF 9163 ;TEST ROTC LEFT ONE BIT POSITION 9164 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9165 ;TEST MQ SHIFT LOGIC GATES 9166 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9167 ;IS TESTED. 9168 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9169 ;OTHER BIT IA A ZERO AFTER ROTATING 9170 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9171 9172 004716 SN=SN+1 9173 777777 757777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9174 IFE , 9175 737777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9176 035370 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9177 035371 561 11 0 00 757777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9178 IFN &777777,< 9179 035372 561 07 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9180 IFE &777777,< 9181 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9182 035373 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9183 035374 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9184 035375 004 11 0 00 004716 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9185 035376 321 12 0 00 035370 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9186 9187 ;TEST AC+1 RIGHT HALF 9188 ;TEST ROTC LEFT ONE BIT POSITION 9189 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9190 ;TEST MQ SHIFT LOGIC GATES 9191 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9192 ;IS TESTED. 9193 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9194 ;OTHER BIT IA A ZERO AFTER ROTATING DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0199 9195 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9196 9197 004717 SN=SN+1 9198 777777 737777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9199 IFE , 9200 677777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9201 035377 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9202 035400 561 11 0 00 737777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9203 IFN &777777,< 9204 035401 561 07 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9205 IFE &777777,< 9206 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9207 035402 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9208 035403 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9209 035404 004 11 0 00 004717 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9210 035405 321 12 0 00 035377 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9211 9212 ;TEST AC+1 RIGHT HALF 9213 ;TEST ROTC LEFT ONE BIT POSITION 9214 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9215 ;TEST MQ SHIFT LOGIC GATES 9216 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9217 ;IS TESTED. 9218 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9219 ;OTHER BIT IA A ZERO AFTER ROTATING 9220 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9221 9222 004720 SN=SN+1 9223 777777 677777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9224 IFE , 9225 577777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9226 035406 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9227 035407 561 11 0 00 677777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9228 IFN &777777,< 9229 035410 561 07 0 00 577777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9230 IFE &777777,< 9231 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9232 035411 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9233 035412 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9234 035413 004 11 0 00 004720 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9235 035414 321 12 0 00 035406 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9236 9237 ;TEST AC+1 RIGHT HALF 9238 ;TEST ROTC LEFT ONE BIT POSITION 9239 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9240 ;TEST MQ SHIFT LOGIC GATES 9241 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9242 ;IS TESTED. 9243 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9244 ;OTHER BIT IA A ZERO AFTER ROTATING 9245 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9246 9247 004721 SN=SN+1 9248 777777 577777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9249 IFE , DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0200 9250 377777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9251 035415 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9252 035416 561 11 0 00 577777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9253 IFN &777777,< 9254 035417 561 07 0 00 377777 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9255 IFE &777777,< 9256 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9257 035420 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9258 035421 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9259 035422 004 11 0 00 004721 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9260 035423 321 12 0 00 035415 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9261 9262 ;TEST AC+1 RIGHT HALF 9263 ;TEST ROTC LEFT ONE BIT POSITION 9264 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9265 ;TEST MQ SHIFT LOGIC GATES 9266 ;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9267 ;IS TESTED. 9268 ;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY 9269 ;OTHER BIT IA A ZERO AFTER ROTATING 9270 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 9271 9272 004722 SN=SN+1 9273 777777 377777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9274 IFE , 9275 777777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9276 035424 476 00 0 00 000010 SETOM AC ;INITIALIZE AC TO ALL ONES 9277 035425 561 11 0 00 377777 HRROI AC+1,ZZ ;CLEAR BIT (N) OF AC+1 RIGHT 9278 IFN &777777,< 9279 HRROI AC-1,YY ;SETUP FOR COMPARISON> 9280 IFE &777777,< 9281 035426 525 07 0 00 777776 HRLOI AC-1,-2 ;SETUP FOR COMPARISON> 9282 035427 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9283 035430 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9284 035431 004 11 0 00 004722 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9285 035432 321 12 0 00 035424 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9286 9287 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0201 9288 000000 ZZ=0 9289 9290 REPEAT ^D17,< ;TEST AC+1 LEFT HALF 9291 ;TEST ROTC LEFT ONE BIT POSITION 9292 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9293 ;TEST MQ SHIFT LOGIC GATES 9294 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9295 ;IS TESTED. 9296 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9297 ;OTHER BIT IS A ZERO AFTER ROTATING 9298 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9299 ;OF THE MQ 9300 9301 SN=SN+1 9302 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9303 IFE , 9304 YY=&777777 ;SELECTED BIT AFTER ROTATION 9305 SETOM AC ;INITAILIZE AC TO ALL ONES 9306 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9307 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9308 ROTC AC,1 ;*ROTATE LEFT ONE 9309 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9310 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9311 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9312 > 9313 ;TEST AC+1 LEFT HALF 9314 ;TEST ROTC LEFT ONE BIT POSITION 9315 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9316 ;TEST MQ SHIFT LOGIC GATES 9317 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9318 ;IS TESTED. 9319 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9320 ;OTHER BIT IS A ZERO AFTER ROTATING 9321 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9322 ;OF THE MQ 9323 9324 004723 SN=SN+1 9325 000001 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9326 777777 777776 IFE , 9327 777775 YY=&777777 ;SELECTED BIT AFTER ROTATION 9328 035433 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9329 035434 525 11 0 00 777776 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9330 035435 525 07 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9331 035436 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9332 035437 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9333 035440 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9334 035441 321 12 0 00 035433 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9335 9336 ;TEST AC+1 LEFT HALF 9337 ;TEST ROTC LEFT ONE BIT POSITION 9338 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9339 ;TEST MQ SHIFT LOGIC GATES 9340 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9341 ;IS TESTED. 9342 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0202 9343 ;OTHER BIT IS A ZERO AFTER ROTATING 9344 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9345 ;OF THE MQ 9346 9347 004724 SN=SN+1 9348 777777 777775 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9349 IFE , 9350 777773 YY=&777777 ;SELECTED BIT AFTER ROTATION 9351 035442 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9352 035443 525 11 0 00 777775 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9353 035444 525 07 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9354 035445 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9355 035446 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9356 035447 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9357 035450 321 12 0 00 035442 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9358 9359 ;TEST AC+1 LEFT HALF 9360 ;TEST ROTC LEFT ONE BIT POSITION 9361 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9362 ;TEST MQ SHIFT LOGIC GATES 9363 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9364 ;IS TESTED. 9365 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9366 ;OTHER BIT IS A ZERO AFTER ROTATING 9367 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9368 ;OF THE MQ 9369 9370 004725 SN=SN+1 9371 777777 777773 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9372 IFE , 9373 777767 YY=&777777 ;SELECTED BIT AFTER ROTATION 9374 035451 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9375 035452 525 11 0 00 777773 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9376 035453 525 07 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9377 035454 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9378 035455 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9379 035456 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9380 035457 321 12 0 00 035451 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9381 9382 ;TEST AC+1 LEFT HALF 9383 ;TEST ROTC LEFT ONE BIT POSITION 9384 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9385 ;TEST MQ SHIFT LOGIC GATES 9386 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9387 ;IS TESTED. 9388 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9389 ;OTHER BIT IS A ZERO AFTER ROTATING 9390 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9391 ;OF THE MQ 9392 9393 004726 SN=SN+1 9394 777777 777767 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9395 IFE , 9396 777757 YY=&777777 ;SELECTED BIT AFTER ROTATION 9397 035460 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0203 9398 035461 525 11 0 00 777767 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9399 035462 525 07 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9400 035463 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9401 035464 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9402 035465 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9403 035466 321 12 0 00 035460 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9404 9405 ;TEST AC+1 LEFT HALF 9406 ;TEST ROTC LEFT ONE BIT POSITION 9407 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9408 ;TEST MQ SHIFT LOGIC GATES 9409 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9410 ;IS TESTED. 9411 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9412 ;OTHER BIT IS A ZERO AFTER ROTATING 9413 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9414 ;OF THE MQ 9415 9416 004727 SN=SN+1 9417 777777 777757 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9418 IFE , 9419 777737 YY=&777777 ;SELECTED BIT AFTER ROTATION 9420 035467 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9421 035470 525 11 0 00 777757 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9422 035471 525 07 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9423 035472 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9424 035473 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9425 035474 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9426 035475 321 12 0 00 035467 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9427 9428 ;TEST AC+1 LEFT HALF 9429 ;TEST ROTC LEFT ONE BIT POSITION 9430 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9431 ;TEST MQ SHIFT LOGIC GATES 9432 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9433 ;IS TESTED. 9434 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9435 ;OTHER BIT IS A ZERO AFTER ROTATING 9436 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9437 ;OF THE MQ 9438 9439 004730 SN=SN+1 9440 777777 777737 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9441 IFE , 9442 777677 YY=&777777 ;SELECTED BIT AFTER ROTATION 9443 035476 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9444 035477 525 11 0 00 777737 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9445 035500 525 07 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9446 035501 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9447 035502 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9448 035503 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9449 035504 321 12 0 00 035476 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9450 9451 ;TEST AC+1 LEFT HALF 9452 ;TEST ROTC LEFT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0204 9453 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9454 ;TEST MQ SHIFT LOGIC GATES 9455 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9456 ;IS TESTED. 9457 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9458 ;OTHER BIT IS A ZERO AFTER ROTATING 9459 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9460 ;OF THE MQ 9461 9462 004731 SN=SN+1 9463 777777 777677 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9464 IFE , 9465 777577 YY=&777777 ;SELECTED BIT AFTER ROTATION 9466 035505 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9467 035506 525 11 0 00 777677 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9468 035507 525 07 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9469 035510 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9470 035511 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9471 035512 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9472 035513 321 12 0 00 035505 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9473 9474 ;TEST AC+1 LEFT HALF 9475 ;TEST ROTC LEFT ONE BIT POSITION 9476 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9477 ;TEST MQ SHIFT LOGIC GATES 9478 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9479 ;IS TESTED. 9480 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9481 ;OTHER BIT IS A ZERO AFTER ROTATING 9482 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9483 ;OF THE MQ 9484 9485 004732 SN=SN+1 9486 777777 777577 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9487 IFE , 9488 777377 YY=&777777 ;SELECTED BIT AFTER ROTATION 9489 035514 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9490 035515 525 11 0 00 777577 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9491 035516 525 07 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9492 035517 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9493 035520 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9494 035521 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9495 035522 321 12 0 00 035514 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9496 9497 ;TEST AC+1 LEFT HALF 9498 ;TEST ROTC LEFT ONE BIT POSITION 9499 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9500 ;TEST MQ SHIFT LOGIC GATES 9501 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9502 ;IS TESTED. 9503 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9504 ;OTHER BIT IS A ZERO AFTER ROTATING 9505 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9506 ;OF THE MQ 9507 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0205 9508 004733 SN=SN+1 9509 777777 777377 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9510 IFE , 9511 776777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9512 035523 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9513 035524 525 11 0 00 777377 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9514 035525 525 07 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9515 035526 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9516 035527 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9517 035530 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9518 035531 321 12 0 00 035523 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9519 9520 ;TEST AC+1 LEFT HALF 9521 ;TEST ROTC LEFT ONE BIT POSITION 9522 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9523 ;TEST MQ SHIFT LOGIC GATES 9524 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9525 ;IS TESTED. 9526 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9527 ;OTHER BIT IS A ZERO AFTER ROTATING 9528 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9529 ;OF THE MQ 9530 9531 004734 SN=SN+1 9532 777777 776777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9533 IFE , 9534 775777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9535 035532 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9536 035533 525 11 0 00 776777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9537 035534 525 07 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9538 035535 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9539 035536 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9540 035537 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9541 035540 321 12 0 00 035532 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9542 9543 ;TEST AC+1 LEFT HALF 9544 ;TEST ROTC LEFT ONE BIT POSITION 9545 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9546 ;TEST MQ SHIFT LOGIC GATES 9547 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9548 ;IS TESTED. 9549 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9550 ;OTHER BIT IS A ZERO AFTER ROTATING 9551 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9552 ;OF THE MQ 9553 9554 004735 SN=SN+1 9555 777777 775777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9556 IFE , 9557 773777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9558 035541 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9559 035542 525 11 0 00 775777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9560 035543 525 07 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9561 035544 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9562 035545 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0206 9563 035546 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9564 035547 321 12 0 00 035541 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9565 9566 ;TEST AC+1 LEFT HALF 9567 ;TEST ROTC LEFT ONE BIT POSITION 9568 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9569 ;TEST MQ SHIFT LOGIC GATES 9570 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9571 ;IS TESTED. 9572 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9573 ;OTHER BIT IS A ZERO AFTER ROTATING 9574 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9575 ;OF THE MQ 9576 9577 004736 SN=SN+1 9578 777777 773777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9579 IFE , 9580 767777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9581 035550 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9582 035551 525 11 0 00 773777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9583 035552 525 07 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9584 035553 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9585 035554 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9586 035555 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9587 035556 321 12 0 00 035550 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9588 9589 ;TEST AC+1 LEFT HALF 9590 ;TEST ROTC LEFT ONE BIT POSITION 9591 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9592 ;TEST MQ SHIFT LOGIC GATES 9593 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9594 ;IS TESTED. 9595 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9596 ;OTHER BIT IS A ZERO AFTER ROTATING 9597 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9598 ;OF THE MQ 9599 9600 004737 SN=SN+1 9601 777777 767777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9602 IFE , 9603 757777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9604 035557 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9605 035560 525 11 0 00 767777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9606 035561 525 07 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9607 035562 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9608 035563 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9609 035564 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9610 035565 321 12 0 00 035557 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9611 9612 ;TEST AC+1 LEFT HALF 9613 ;TEST ROTC LEFT ONE BIT POSITION 9614 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9615 ;TEST MQ SHIFT LOGIC GATES 9616 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9617 ;IS TESTED. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0207 9618 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9619 ;OTHER BIT IS A ZERO AFTER ROTATING 9620 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9621 ;OF THE MQ 9622 9623 004740 SN=SN+1 9624 777777 757777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9625 IFE , 9626 737777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9627 035566 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9628 035567 525 11 0 00 757777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9629 035570 525 07 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9630 035571 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9631 035572 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9632 035573 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9633 035574 321 12 0 00 035566 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9634 9635 ;TEST AC+1 LEFT HALF 9636 ;TEST ROTC LEFT ONE BIT POSITION 9637 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9638 ;TEST MQ SHIFT LOGIC GATES 9639 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9640 ;IS TESTED. 9641 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9642 ;OTHER BIT IS A ZERO AFTER ROTATING 9643 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9644 ;OF THE MQ 9645 9646 004741 SN=SN+1 9647 777777 737777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9648 IFE , 9649 677777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9650 035575 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9651 035576 525 11 0 00 737777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9652 035577 525 07 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9653 035600 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9654 035601 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9655 035602 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9656 035603 321 12 0 00 035575 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9657 9658 ;TEST AC+1 LEFT HALF 9659 ;TEST ROTC LEFT ONE BIT POSITION 9660 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9661 ;TEST MQ SHIFT LOGIC GATES 9662 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9663 ;IS TESTED. 9664 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9665 ;OTHER BIT IS A ZERO AFTER ROTATING 9666 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9667 ;OF THE MQ 9668 9669 004742 SN=SN+1 9670 777777 677777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9671 IFE , 9672 577777 YY=&777777 ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 21-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0208 9673 035604 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9674 035605 525 11 0 00 677777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9675 035606 525 07 0 00 577777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9676 035607 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9677 035610 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9678 035611 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9679 035612 321 12 0 00 035604 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9680 9681 ;TEST AC+1 LEFT HALF 9682 ;TEST ROTC LEFT ONE BIT POSITION 9683 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 9684 ;TEST MQ SHIFT LOGIC GATES 9685 ;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1 9686 ;IS TESTED. 9687 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 9688 ;OTHER BIT IS A ZERO AFTER ROTATING 9689 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS 9690 ;OF THE MQ 9691 9692 004743 SN=SN+1 9693 777777 577777 ZZ=ZZ+ZZ+1 ;SELECTED BIT BEFORE ROTATION 9694 IFE , 9695 377777 YY=&777777 ;SELECTED BIT AFTER ROTATION 9696 035613 476 00 0 00 000010 SETOM AC ;INITAILIZE AC TO ALL ONES 9697 035614 525 11 0 00 577777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 9698 035615 525 07 0 00 377777 HRLOI AC-1,YY ;SETUP FOR COMPARISON 9699 035616 245 10 0 00 000001 ROTC AC,1 ;*ROTATE LEFT ONE 9700 035617 312 11 0 00 000007 CAME AC+1,AC-1 ;TEST FOR BIT (N-1) A ZERO 9701 035620 004 11 0 00 000000 ER4 AC+1, ;MQ GATE UNDER TEST FAILED 9702 035621 321 12 0 00 035613 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 9703 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 22 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0209 9704 ;TEST ROTC RIGHT ONE BIT POSITION USING ALL ZEROS 9705 ;TEST MQ SHIFT LOGIC GATES 9706 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND 9707 ;AC+1 IS TESTED 9708 ;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING 9709 9710 000007 AC=7 9711 SAVEAC (1,1)^ 9712 035622 201 11 0 00 035622 MOVEI AC+2,. ;SAVE TEST PC 9713 035623 202 11 0 00 030051 MOVEM AC+2,TESTPC 9714 035624 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9715 035625 202 11 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9716 9717 035626 403 07 0 00 000010 E5000: SETZB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ZEROS 9718 035627 402 00 0 00 000006 SETZM AC-1 ;INITIALIZE RESULT TO ZERO 9719 035630 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9720 035631 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ZEROS 9721 035632 004 10 0 00 005001 ER4 AC+1,5001 ;MQ GRTING FAILED 9722 035633 321 11 0 00 035626 JUMPL AC+2,E5000 ;LOOP ON ERROR SWITCH 9723 9724 ;TEST ROTC,RIGHT ONE BIT POSITION USING ALL ONES 9725 ;TEST MQ SHIFT LOGIC GATES 9726 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND 9727 ;AC+1 IS TESTED 9728 ;AN ERROR OCCURS IF C(AC+1) IS NONZERO AFTER ROTATING 9729 9730 035634 477 07 0 00 000010 E5100: SETOB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ONES 9731 035635 476 00 0 00 000006 SETOM AC-1 ;INITIALIZE RESULT TO ALL ONES 9732 035636 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9733 035637 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ONES 9734 035640 004 10 0 00 005101 ER4 AC+1,5101 ;MQ GATING FAILED 9735 035641 321 11 0 00 035634 JUMPL AC+2,E5100 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0210 9736 005200 SN=5200 9737 000000 ZZ=0 9738 E5200: REPEAT ^D18,< ;TEST AC+1 LEFT HALF 9739 ;TEST ROTC RIGHT ONE BIT POSITION 9740 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9741 ;TEST MQ SHIFT LOGIC GATES 9742 9743 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9744 ;IS TESTED. 9745 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9746 ;OTHER BIT IS A ONE AFTER ROTATING 9747 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9748 9749 SN=SN+1 9750 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9751 IFE ZZ, 9752 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9753 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9754 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9755 IFN , < 9756 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9757 IFE ,< 9758 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9759 ROTC AC,-1 ;*ROTATE RIGHT ONE 9760 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9761 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9762 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9763 > 9764 ;TEST AC+1 LEFT HALF 9765 ;TEST ROTC RIGHT ONE BIT POSITION 9766 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9767 ;TEST MQ SHIFT LOGIC GATES 9768 9769 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9770 ;IS TESTED. 9771 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9772 ;OTHER BIT IS A ONE AFTER ROTATING 9773 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9774 9775 005201 SN=SN+1 9776 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9777 400000 IFE ZZ, 9778 200000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9779 035642 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9780 035643 205 10 0 00 400000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9781 IFN , < 9782 035644 205 06 0 00 200000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9783 IFE ,< 9784 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9785 035645 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9786 035646 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9787 035647 004 10 0 00 005201 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9788 035650 321 11 0 00 035642 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9789 9790 ;TEST AC+1 LEFT HALF DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0211 9791 ;TEST ROTC RIGHT ONE BIT POSITION 9792 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9793 ;TEST MQ SHIFT LOGIC GATES 9794 9795 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9796 ;IS TESTED. 9797 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9798 ;OTHER BIT IS A ONE AFTER ROTATING 9799 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9800 9801 005202 SN=SN+1 9802 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9803 IFE ZZ, 9804 100000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9805 035651 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9806 035652 205 10 0 00 200000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9807 IFN , < 9808 035653 205 06 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9809 IFE ,< 9810 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9811 035654 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9812 035655 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9813 035656 004 10 0 00 005202 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9814 035657 321 11 0 00 035651 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9815 9816 ;TEST AC+1 LEFT HALF 9817 ;TEST ROTC RIGHT ONE BIT POSITION 9818 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9819 ;TEST MQ SHIFT LOGIC GATES 9820 9821 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9822 ;IS TESTED. 9823 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9824 ;OTHER BIT IS A ONE AFTER ROTATING 9825 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9826 9827 005203 SN=SN+1 9828 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9829 IFE ZZ, 9830 040000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9831 035660 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9832 035661 205 10 0 00 100000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9833 IFN , < 9834 035662 205 06 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9835 IFE ,< 9836 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9837 035663 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9838 035664 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9839 035665 004 10 0 00 005203 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9840 035666 321 11 0 00 035660 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9841 9842 ;TEST AC+1 LEFT HALF 9843 ;TEST ROTC RIGHT ONE BIT POSITION 9844 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9845 ;TEST MQ SHIFT LOGIC GATES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0212 9846 9847 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9848 ;IS TESTED. 9849 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9850 ;OTHER BIT IS A ONE AFTER ROTATING 9851 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9852 9853 005204 SN=SN+1 9854 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9855 IFE ZZ, 9856 020000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9857 035667 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9858 035670 205 10 0 00 040000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9859 IFN , < 9860 035671 205 06 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9861 IFE ,< 9862 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9863 035672 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9864 035673 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9865 035674 004 10 0 00 005204 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9866 035675 321 11 0 00 035667 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9867 9868 ;TEST AC+1 LEFT HALF 9869 ;TEST ROTC RIGHT ONE BIT POSITION 9870 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9871 ;TEST MQ SHIFT LOGIC GATES 9872 9873 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9874 ;IS TESTED. 9875 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9876 ;OTHER BIT IS A ONE AFTER ROTATING 9877 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9878 9879 005205 SN=SN+1 9880 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9881 IFE ZZ, 9882 010000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9883 035676 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9884 035677 205 10 0 00 020000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9885 IFN , < 9886 035700 205 06 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9887 IFE ,< 9888 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9889 035701 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9890 035702 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9891 035703 004 10 0 00 005205 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9892 035704 321 11 0 00 035676 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9893 9894 ;TEST AC+1 LEFT HALF 9895 ;TEST ROTC RIGHT ONE BIT POSITION 9896 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9897 ;TEST MQ SHIFT LOGIC GATES 9898 9899 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9900 ;IS TESTED. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0213 9901 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9902 ;OTHER BIT IS A ONE AFTER ROTATING 9903 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9904 9905 005206 SN=SN+1 9906 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9907 IFE ZZ, 9908 004000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9909 035705 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9910 035706 205 10 0 00 010000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9911 IFN , < 9912 035707 205 06 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9913 IFE ,< 9914 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9915 035710 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9916 035711 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9917 035712 004 10 0 00 005206 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9918 035713 321 11 0 00 035705 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9919 9920 ;TEST AC+1 LEFT HALF 9921 ;TEST ROTC RIGHT ONE BIT POSITION 9922 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9923 ;TEST MQ SHIFT LOGIC GATES 9924 9925 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9926 ;IS TESTED. 9927 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9928 ;OTHER BIT IS A ONE AFTER ROTATING 9929 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9930 9931 005207 SN=SN+1 9932 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9933 IFE ZZ, 9934 002000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9935 035714 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9936 035715 205 10 0 00 004000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9937 IFN , < 9938 035716 205 06 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9939 IFE ,< 9940 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9941 035717 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9942 035720 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9943 035721 004 10 0 00 005207 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9944 035722 321 11 0 00 035714 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9945 9946 ;TEST AC+1 LEFT HALF 9947 ;TEST ROTC RIGHT ONE BIT POSITION 9948 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9949 ;TEST MQ SHIFT LOGIC GATES 9950 9951 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9952 ;IS TESTED. 9953 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9954 ;OTHER BIT IS A ONE AFTER ROTATING 9955 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0214 9956 9957 005210 SN=SN+1 9958 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9959 IFE ZZ, 9960 001000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9961 035723 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9962 035724 205 10 0 00 002000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9963 IFN , < 9964 035725 205 06 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9965 IFE ,< 9966 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9967 035726 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9968 035727 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9969 035730 004 10 0 00 005210 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9970 035731 321 11 0 00 035723 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9971 9972 ;TEST AC+1 LEFT HALF 9973 ;TEST ROTC RIGHT ONE BIT POSITION 9974 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 9975 ;TEST MQ SHIFT LOGIC GATES 9976 9977 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 9978 ;IS TESTED. 9979 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 9980 ;OTHER BIT IS A ONE AFTER ROTATING 9981 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 9982 9983 005211 SN=SN+1 9984 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 9985 IFE ZZ, 9986 000400 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 9987 035732 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 9988 035733 205 10 0 00 001000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 9989 IFN , < 9990 035734 205 06 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 9991 IFE ,< 9992 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 9993 035735 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 9994 035736 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 9995 035737 004 10 0 00 005211 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 9996 035740 321 11 0 00 035732 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 9997 9998 ;TEST AC+1 LEFT HALF 9999 ;TEST ROTC RIGHT ONE BIT POSITION 10000 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10001 ;TEST MQ SHIFT LOGIC GATES 10002 10003 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10004 ;IS TESTED. 10005 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10006 ;OTHER BIT IS A ONE AFTER ROTATING 10007 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10008 10009 005212 SN=SN+1 10010 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0215 10011 IFE ZZ, 10012 000200 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10013 035741 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10014 035742 205 10 0 00 000400 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10015 IFN , < 10016 035743 205 06 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10017 IFE ,< 10018 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10019 035744 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10020 035745 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10021 035746 004 10 0 00 005212 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10022 035747 321 11 0 00 035741 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10023 10024 ;TEST AC+1 LEFT HALF 10025 ;TEST ROTC RIGHT ONE BIT POSITION 10026 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10027 ;TEST MQ SHIFT LOGIC GATES 10028 10029 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10030 ;IS TESTED. 10031 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10032 ;OTHER BIT IS A ONE AFTER ROTATING 10033 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10034 10035 005213 SN=SN+1 10036 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10037 IFE ZZ, 10038 000100 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10039 035750 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10040 035751 205 10 0 00 000200 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10041 IFN , < 10042 035752 205 06 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10043 IFE ,< 10044 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10045 035753 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10046 035754 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10047 035755 004 10 0 00 005213 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10048 035756 321 11 0 00 035750 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10049 10050 ;TEST AC+1 LEFT HALF 10051 ;TEST ROTC RIGHT ONE BIT POSITION 10052 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10053 ;TEST MQ SHIFT LOGIC GATES 10054 10055 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10056 ;IS TESTED. 10057 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10058 ;OTHER BIT IS A ONE AFTER ROTATING 10059 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10060 10061 005214 SN=SN+1 10062 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10063 IFE ZZ, 10064 000040 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10065 035757 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0216 10066 035760 205 10 0 00 000100 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10067 IFN , < 10068 035761 205 06 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10069 IFE ,< 10070 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10071 035762 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10072 035763 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10073 035764 004 10 0 00 005214 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10074 035765 321 11 0 00 035757 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10075 10076 ;TEST AC+1 LEFT HALF 10077 ;TEST ROTC RIGHT ONE BIT POSITION 10078 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10079 ;TEST MQ SHIFT LOGIC GATES 10080 10081 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10082 ;IS TESTED. 10083 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10084 ;OTHER BIT IS A ONE AFTER ROTATING 10085 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10086 10087 005215 SN=SN+1 10088 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10089 IFE ZZ, 10090 000020 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10091 035766 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10092 035767 205 10 0 00 000040 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10093 IFN , < 10094 035770 205 06 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10095 IFE ,< 10096 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10097 035771 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10098 035772 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10099 035773 004 10 0 00 005215 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10100 035774 321 11 0 00 035766 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10101 10102 ;TEST AC+1 LEFT HALF 10103 ;TEST ROTC RIGHT ONE BIT POSITION 10104 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10105 ;TEST MQ SHIFT LOGIC GATES 10106 10107 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10108 ;IS TESTED. 10109 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10110 ;OTHER BIT IS A ONE AFTER ROTATING 10111 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10112 10113 005216 SN=SN+1 10114 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10115 IFE ZZ, 10116 000010 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10117 035775 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10118 035776 205 10 0 00 000020 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10119 IFN , < 10120 035777 205 06 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0217 10121 IFE ,< 10122 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10123 036000 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10124 036001 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10125 036002 004 10 0 00 005216 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10126 036003 321 11 0 00 035775 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10127 10128 ;TEST AC+1 LEFT HALF 10129 ;TEST ROTC RIGHT ONE BIT POSITION 10130 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10131 ;TEST MQ SHIFT LOGIC GATES 10132 10133 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10134 ;IS TESTED. 10135 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10136 ;OTHER BIT IS A ONE AFTER ROTATING 10137 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10138 10139 005217 SN=SN+1 10140 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10141 IFE ZZ, 10142 000004 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10143 036004 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10144 036005 205 10 0 00 000010 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10145 IFN , < 10146 036006 205 06 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10147 IFE ,< 10148 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10149 036007 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10150 036010 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10151 036011 004 10 0 00 005217 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10152 036012 321 11 0 00 036004 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10153 10154 ;TEST AC+1 LEFT HALF 10155 ;TEST ROTC RIGHT ONE BIT POSITION 10156 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10157 ;TEST MQ SHIFT LOGIC GATES 10158 10159 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10160 ;IS TESTED. 10161 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10162 ;OTHER BIT IS A ONE AFTER ROTATING 10163 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10164 10165 005220 SN=SN+1 10166 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10167 IFE ZZ, 10168 000002 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10169 036013 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10170 036014 205 10 0 00 000004 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10171 IFN , < 10172 036015 205 06 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10173 IFE ,< 10174 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10175 036016 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0218 10176 036017 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10177 036020 004 10 0 00 005220 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10178 036021 321 11 0 00 036013 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10179 10180 ;TEST AC+1 LEFT HALF 10181 ;TEST ROTC RIGHT ONE BIT POSITION 10182 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10183 ;TEST MQ SHIFT LOGIC GATES 10184 10185 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10186 ;IS TESTED. 10187 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10188 ;OTHER BIT IS A ONE AFTER ROTATING 10189 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10190 10191 005221 SN=SN+1 10192 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10193 IFE ZZ, 10194 000001 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10195 036022 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10196 036023 205 10 0 00 000002 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10197 IFN , < 10198 036024 205 06 0 00 000001 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10199 IFE ,< 10200 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10201 036025 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10202 036026 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10203 036027 004 10 0 00 005221 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10204 036030 321 11 0 00 036022 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10205 10206 ;TEST AC+1 LEFT HALF 10207 ;TEST ROTC RIGHT ONE BIT POSITION 10208 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10209 ;TEST MQ SHIFT LOGIC GATES 10210 10211 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10212 ;IS TESTED. 10213 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10214 ;OTHER BIT IS A ONE AFTER ROTATING 10215 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10216 10217 005222 SN=SN+1 10218 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10219 IFE ZZ, 10220 000000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10221 036031 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10222 036032 205 10 0 00 000001 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 10223 IFN , < 10224 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 10225 IFE ,< 10226 036033 201 06 0 00 400000 MOVEI AC-1, 400000 ;SETUP FOR COMPARISON> 10227 036034 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10228 036035 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10229 036036 004 10 0 00 005222 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10230 036037 321 11 0 00 036031 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0219 10231 10232 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0220 10233 000000 ZZ=0 10234 10235 REPEAT ^D17,< ;TEST AC+1 RIGHT HALF 10236 ;TEST ROTC RIGHT ONE BIT POSITION 10237 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10238 ;TEST MQ SHIFT LOGIC GATES 10239 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10240 ;IS TESTED. 10241 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10242 ;OTHER BIT IS A ONE AFTER ROTATING 10243 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10244 10245 SN=SN+1 10246 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10247 IFE ZZ, 10248 10249 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10250 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10251 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10252 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10253 ROTC AC,-1 ;*ROTATE RIGHT ONE 10254 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10255 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10256 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10257 > 10258 ;TEST AC+1 RIGHT HALF 10259 ;TEST ROTC RIGHT ONE BIT POSITION 10260 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10261 ;TEST MQ SHIFT LOGIC GATES 10262 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10263 ;IS TESTED. 10264 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10265 ;OTHER BIT IS A ONE AFTER ROTATING 10266 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10267 10268 005223 SN=SN+1 10269 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10270 400000 IFE ZZ, 10271 10272 200000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10273 036040 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10274 036041 201 10 0 00 400000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10275 036042 201 06 0 00 200000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10276 036043 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10277 036044 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10278 036045 004 10 0 00 005223 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10279 036046 321 11 0 00 036040 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10280 10281 ;TEST AC+1 RIGHT HALF 10282 ;TEST ROTC RIGHT ONE BIT POSITION 10283 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10284 ;TEST MQ SHIFT LOGIC GATES 10285 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10286 ;IS TESTED. 10287 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0221 10288 ;OTHER BIT IS A ONE AFTER ROTATING 10289 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10290 10291 005224 SN=SN+1 10292 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10293 IFE ZZ, 10294 10295 100000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10296 036047 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10297 036050 201 10 0 00 200000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10298 036051 201 06 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10299 036052 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10300 036053 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10301 036054 004 10 0 00 005224 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10302 036055 321 11 0 00 036047 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10303 10304 ;TEST AC+1 RIGHT HALF 10305 ;TEST ROTC RIGHT ONE BIT POSITION 10306 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10307 ;TEST MQ SHIFT LOGIC GATES 10308 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10309 ;IS TESTED. 10310 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10311 ;OTHER BIT IS A ONE AFTER ROTATING 10312 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10313 10314 005225 SN=SN+1 10315 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10316 IFE ZZ, 10317 10318 040000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10319 036056 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10320 036057 201 10 0 00 100000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10321 036060 201 06 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10322 036061 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10323 036062 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10324 036063 004 10 0 00 005225 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10325 036064 321 11 0 00 036056 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10326 10327 ;TEST AC+1 RIGHT HALF 10328 ;TEST ROTC RIGHT ONE BIT POSITION 10329 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10330 ;TEST MQ SHIFT LOGIC GATES 10331 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10332 ;IS TESTED. 10333 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10334 ;OTHER BIT IS A ONE AFTER ROTATING 10335 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10336 10337 005226 SN=SN+1 10338 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10339 IFE ZZ, 10340 10341 020000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10342 036065 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0222 10343 036066 201 10 0 00 040000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10344 036067 201 06 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10345 036070 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10346 036071 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10347 036072 004 10 0 00 005226 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10348 036073 321 11 0 00 036065 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10349 10350 ;TEST AC+1 RIGHT HALF 10351 ;TEST ROTC RIGHT ONE BIT POSITION 10352 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10353 ;TEST MQ SHIFT LOGIC GATES 10354 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10355 ;IS TESTED. 10356 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10357 ;OTHER BIT IS A ONE AFTER ROTATING 10358 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10359 10360 005227 SN=SN+1 10361 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10362 IFE ZZ, 10363 10364 010000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10365 036074 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10366 036075 201 10 0 00 020000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10367 036076 201 06 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10368 036077 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10369 036100 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10370 036101 004 10 0 00 005227 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10371 036102 321 11 0 00 036074 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10372 10373 ;TEST AC+1 RIGHT HALF 10374 ;TEST ROTC RIGHT ONE BIT POSITION 10375 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10376 ;TEST MQ SHIFT LOGIC GATES 10377 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10378 ;IS TESTED. 10379 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10380 ;OTHER BIT IS A ONE AFTER ROTATING 10381 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10382 10383 005230 SN=SN+1 10384 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10385 IFE ZZ, 10386 10387 004000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10388 036103 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10389 036104 201 10 0 00 010000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10390 036105 201 06 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10391 036106 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10392 036107 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10393 036110 004 10 0 00 005230 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10394 036111 321 11 0 00 036103 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10395 10396 ;TEST AC+1 RIGHT HALF 10397 ;TEST ROTC RIGHT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0223 10398 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10399 ;TEST MQ SHIFT LOGIC GATES 10400 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10401 ;IS TESTED. 10402 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10403 ;OTHER BIT IS A ONE AFTER ROTATING 10404 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10405 10406 005231 SN=SN+1 10407 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10408 IFE ZZ, 10409 10410 002000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10411 036112 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10412 036113 201 10 0 00 004000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10413 036114 201 06 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10414 036115 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10415 036116 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10416 036117 004 10 0 00 005231 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10417 036120 321 11 0 00 036112 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10418 10419 ;TEST AC+1 RIGHT HALF 10420 ;TEST ROTC RIGHT ONE BIT POSITION 10421 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10422 ;TEST MQ SHIFT LOGIC GATES 10423 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10424 ;IS TESTED. 10425 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10426 ;OTHER BIT IS A ONE AFTER ROTATING 10427 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10428 10429 005232 SN=SN+1 10430 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10431 IFE ZZ, 10432 10433 001000 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10434 036121 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10435 036122 201 10 0 00 002000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10436 036123 201 06 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10437 036124 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10438 036125 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10439 036126 004 10 0 00 005232 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10440 036127 321 11 0 00 036121 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10441 10442 ;TEST AC+1 RIGHT HALF 10443 ;TEST ROTC RIGHT ONE BIT POSITION 10444 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10445 ;TEST MQ SHIFT LOGIC GATES 10446 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10447 ;IS TESTED. 10448 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10449 ;OTHER BIT IS A ONE AFTER ROTATING 10450 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10451 10452 005233 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0224 10453 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10454 IFE ZZ, 10455 10456 000400 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10457 036130 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10458 036131 201 10 0 00 001000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10459 036132 201 06 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10460 036133 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10461 036134 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10462 036135 004 10 0 00 005233 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10463 036136 321 11 0 00 036130 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10464 10465 ;TEST AC+1 RIGHT HALF 10466 ;TEST ROTC RIGHT ONE BIT POSITION 10467 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10468 ;TEST MQ SHIFT LOGIC GATES 10469 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10470 ;IS TESTED. 10471 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10472 ;OTHER BIT IS A ONE AFTER ROTATING 10473 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10474 10475 005234 SN=SN+1 10476 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10477 IFE ZZ, 10478 10479 000200 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10480 036137 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10481 036140 201 10 0 00 000400 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10482 036141 201 06 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10483 036142 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10484 036143 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10485 036144 004 10 0 00 005234 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10486 036145 321 11 0 00 036137 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10487 10488 ;TEST AC+1 RIGHT HALF 10489 ;TEST ROTC RIGHT ONE BIT POSITION 10490 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10491 ;TEST MQ SHIFT LOGIC GATES 10492 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10493 ;IS TESTED. 10494 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10495 ;OTHER BIT IS A ONE AFTER ROTATING 10496 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10497 10498 005235 SN=SN+1 10499 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10500 IFE ZZ, 10501 10502 000100 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10503 036146 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10504 036147 201 10 0 00 000200 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10505 036150 201 06 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10506 036151 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10507 036152 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0225 10508 036153 004 10 0 00 005235 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10509 036154 321 11 0 00 036146 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10510 10511 ;TEST AC+1 RIGHT HALF 10512 ;TEST ROTC RIGHT ONE BIT POSITION 10513 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10514 ;TEST MQ SHIFT LOGIC GATES 10515 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10516 ;IS TESTED. 10517 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10518 ;OTHER BIT IS A ONE AFTER ROTATING 10519 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10520 10521 005236 SN=SN+1 10522 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10523 IFE ZZ, 10524 10525 000040 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10526 036155 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10527 036156 201 10 0 00 000100 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10528 036157 201 06 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10529 036160 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10530 036161 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10531 036162 004 10 0 00 005236 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10532 036163 321 11 0 00 036155 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10533 10534 ;TEST AC+1 RIGHT HALF 10535 ;TEST ROTC RIGHT ONE BIT POSITION 10536 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10537 ;TEST MQ SHIFT LOGIC GATES 10538 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10539 ;IS TESTED. 10540 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10541 ;OTHER BIT IS A ONE AFTER ROTATING 10542 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10543 10544 005237 SN=SN+1 10545 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10546 IFE ZZ, 10547 10548 000020 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10549 036164 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10550 036165 201 10 0 00 000040 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10551 036166 201 06 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10552 036167 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10553 036170 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10554 036171 004 10 0 00 005237 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10555 036172 321 11 0 00 036164 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10556 10557 ;TEST AC+1 RIGHT HALF 10558 ;TEST ROTC RIGHT ONE BIT POSITION 10559 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10560 ;TEST MQ SHIFT LOGIC GATES 10561 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10562 ;IS TESTED. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0226 10563 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10564 ;OTHER BIT IS A ONE AFTER ROTATING 10565 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10566 10567 005240 SN=SN+1 10568 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10569 IFE ZZ, 10570 10571 000010 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10572 036173 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10573 036174 201 10 0 00 000020 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10574 036175 201 06 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10575 036176 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10576 036177 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10577 036200 004 10 0 00 005240 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10578 036201 321 11 0 00 036173 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10579 10580 ;TEST AC+1 RIGHT HALF 10581 ;TEST ROTC RIGHT ONE BIT POSITION 10582 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10583 ;TEST MQ SHIFT LOGIC GATES 10584 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10585 ;IS TESTED. 10586 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10587 ;OTHER BIT IS A ONE AFTER ROTATING 10588 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10589 10590 005241 SN=SN+1 10591 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10592 IFE ZZ, 10593 10594 000004 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10595 036202 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10596 036203 201 10 0 00 000010 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10597 036204 201 06 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10598 036205 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10599 036206 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10600 036207 004 10 0 00 005241 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10601 036210 321 11 0 00 036202 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10602 10603 ;TEST AC+1 RIGHT HALF 10604 ;TEST ROTC RIGHT ONE BIT POSITION 10605 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10606 ;TEST MQ SHIFT LOGIC GATES 10607 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10608 ;IS TESTED. 10609 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10610 ;OTHER BIT IS A ONE AFTER ROTATING 10611 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10612 10613 005242 SN=SN+1 10614 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10615 IFE ZZ, 10616 10617 000002 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 23-17 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0227 10618 036211 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10619 036212 201 10 0 00 000004 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10620 036213 201 06 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10621 036214 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10622 036215 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10623 036216 004 10 0 00 005242 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10624 036217 321 11 0 00 036211 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10625 10626 ;TEST AC+1 RIGHT HALF 10627 ;TEST ROTC RIGHT ONE BIT POSITION 10628 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 10629 ;TEST MQ SHIFT LOGIC GATES 10630 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10631 ;IS TESTED. 10632 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 10633 ;OTHER BIT IS A ONE AFTER ROTATING 10634 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 10635 10636 005243 SN=SN+1 10637 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 10638 IFE ZZ, 10639 10640 000001 YY=ZZ/2 ;SELECTED BIT AFTER ROTATION 10641 036220 400 07 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 10642 036221 201 10 0 00 000002 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 10643 036222 201 06 0 00 000001 MOVEI AC-1,YY ;SETUP FOR COMPARISON 10644 036223 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10645 036224 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ONE 10646 036225 004 10 0 00 005243 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10647 036226 321 11 0 00 036220 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10648 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0228 10649 005300 SN=5300 10650 000001 ZZ=1 10651 10652 E5300: REPEAT ^D18,< ;TEST AC+1 LEFT HALF 10653 ;TEST ROTC RIGHT ONE BIT POSITION 10654 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10655 ;TEST MQ SHIFT LOGIC GATES 10656 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10657 ;IS TESTED. 10658 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10659 ;OTHER BIT IS A ZERO AFTER ROTATING 10660 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10661 10662 SN=SN+1 10663 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10664 IFE , 10665 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10666 SETOM AC ;INITIALIZE AC TO ALL CNES 10667 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10668 IFN &777777,< 10669 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10670 IFE &777777,< 10671 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10672 ROTC AC,-1 ;*ROTATE RIGHT ONE 10673 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10674 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10675 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10676 > 10677 ;TEST AC+1 LEFT HALF 10678 ;TEST ROTC RIGHT ONE BIT POSITION 10679 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10680 ;TEST MQ SHIFT LOGIC GATES 10681 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10682 ;IS TESTED. 10683 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10684 ;OTHER BIT IS A ZERO AFTER ROTATING 10685 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10686 10687 005301 SN=SN+1 10688 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10689 777777 377777 IFE , 10690 577777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10691 036227 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10692 036230 525 10 0 00 377777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10693 IFN &777777,< 10694 036231 525 06 0 00 577777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10695 IFE &777777,< 10696 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10697 036232 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10698 036233 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10699 036234 004 10 0 00 005301 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10700 036235 321 11 0 00 036227 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10701 10702 ;TEST AC+1 LEFT HALF 10703 ;TEST ROTC RIGHT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0229 10704 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10705 ;TEST MQ SHIFT LOGIC GATES 10706 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10707 ;IS TESTED. 10708 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10709 ;OTHER BIT IS A ZERO AFTER ROTATING 10710 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10711 10712 005302 SN=SN+1 10713 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10714 IFE , 10715 677777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10716 036236 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10717 036237 525 10 0 00 577777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10718 IFN &777777,< 10719 036240 525 06 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10720 IFE &777777,< 10721 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10722 036241 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10723 036242 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10724 036243 004 10 0 00 005302 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10725 036244 321 11 0 00 036236 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10726 10727 ;TEST AC+1 LEFT HALF 10728 ;TEST ROTC RIGHT ONE BIT POSITION 10729 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10730 ;TEST MQ SHIFT LOGIC GATES 10731 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10732 ;IS TESTED. 10733 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10734 ;OTHER BIT IS A ZERO AFTER ROTATING 10735 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10736 10737 005303 SN=SN+1 10738 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10739 IFE , 10740 737777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10741 036245 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10742 036246 525 10 0 00 677777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10743 IFN &777777,< 10744 036247 525 06 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10745 IFE &777777,< 10746 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10747 036250 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10748 036251 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10749 036252 004 10 0 00 005303 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10750 036253 321 11 0 00 036245 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10751 10752 ;TEST AC+1 LEFT HALF 10753 ;TEST ROTC RIGHT ONE BIT POSITION 10754 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10755 ;TEST MQ SHIFT LOGIC GATES 10756 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10757 ;IS TESTED. 10758 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0230 10759 ;OTHER BIT IS A ZERO AFTER ROTATING 10760 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10761 10762 005304 SN=SN+1 10763 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10764 IFE , 10765 757777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10766 036254 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10767 036255 525 10 0 00 737777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10768 IFN &777777,< 10769 036256 525 06 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10770 IFE &777777,< 10771 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10772 036257 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10773 036260 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10774 036261 004 10 0 00 005304 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10775 036262 321 11 0 00 036254 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10776 10777 ;TEST AC+1 LEFT HALF 10778 ;TEST ROTC RIGHT ONE BIT POSITION 10779 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10780 ;TEST MQ SHIFT LOGIC GATES 10781 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10782 ;IS TESTED. 10783 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10784 ;OTHER BIT IS A ZERO AFTER ROTATING 10785 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10786 10787 005305 SN=SN+1 10788 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10789 IFE , 10790 767777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10791 036263 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10792 036264 525 10 0 00 757777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10793 IFN &777777,< 10794 036265 525 06 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10795 IFE &777777,< 10796 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10797 036266 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10798 036267 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10799 036270 004 10 0 00 005305 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10800 036271 321 11 0 00 036263 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10801 10802 ;TEST AC+1 LEFT HALF 10803 ;TEST ROTC RIGHT ONE BIT POSITION 10804 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10805 ;TEST MQ SHIFT LOGIC GATES 10806 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10807 ;IS TESTED. 10808 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10809 ;OTHER BIT IS A ZERO AFTER ROTATING 10810 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10811 10812 005306 SN=SN+1 10813 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0231 10814 IFE , 10815 773777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10816 036272 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10817 036273 525 10 0 00 767777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10818 IFN &777777,< 10819 036274 525 06 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10820 IFE &777777,< 10821 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10822 036275 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10823 036276 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10824 036277 004 10 0 00 005306 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10825 036300 321 11 0 00 036272 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10826 10827 ;TEST AC+1 LEFT HALF 10828 ;TEST ROTC RIGHT ONE BIT POSITION 10829 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10830 ;TEST MQ SHIFT LOGIC GATES 10831 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10832 ;IS TESTED. 10833 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10834 ;OTHER BIT IS A ZERO AFTER ROTATING 10835 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10836 10837 005307 SN=SN+1 10838 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10839 IFE , 10840 775777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10841 036301 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10842 036302 525 10 0 00 773777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10843 IFN &777777,< 10844 036303 525 06 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10845 IFE &777777,< 10846 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10847 036304 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10848 036305 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10849 036306 004 10 0 00 005307 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10850 036307 321 11 0 00 036301 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10851 10852 ;TEST AC+1 LEFT HALF 10853 ;TEST ROTC RIGHT ONE BIT POSITION 10854 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10855 ;TEST MQ SHIFT LOGIC GATES 10856 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10857 ;IS TESTED. 10858 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10859 ;OTHER BIT IS A ZERO AFTER ROTATING 10860 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10861 10862 005310 SN=SN+1 10863 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10864 IFE , 10865 776777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10866 036310 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10867 036311 525 10 0 00 775777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10868 IFN &777777,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0232 10869 036312 525 06 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10870 IFE &777777,< 10871 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10872 036313 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10873 036314 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10874 036315 004 10 0 00 005310 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10875 036316 321 11 0 00 036310 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10876 10877 ;TEST AC+1 LEFT HALF 10878 ;TEST ROTC RIGHT ONE BIT POSITION 10879 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10880 ;TEST MQ SHIFT LOGIC GATES 10881 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10882 ;IS TESTED. 10883 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10884 ;OTHER BIT IS A ZERO AFTER ROTATING 10885 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10886 10887 005311 SN=SN+1 10888 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10889 IFE , 10890 777377 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10891 036317 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10892 036320 525 10 0 00 776777 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10893 IFN &777777,< 10894 036321 525 06 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10895 IFE &777777,< 10896 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10897 036322 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10898 036323 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10899 036324 004 10 0 00 005311 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10900 036325 321 11 0 00 036317 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10901 10902 ;TEST AC+1 LEFT HALF 10903 ;TEST ROTC RIGHT ONE BIT POSITION 10904 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10905 ;TEST MQ SHIFT LOGIC GATES 10906 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10907 ;IS TESTED. 10908 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10909 ;OTHER BIT IS A ZERO AFTER ROTATING 10910 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10911 10912 005312 SN=SN+1 10913 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10914 IFE , 10915 777577 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10916 036326 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10917 036327 525 10 0 00 777377 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10918 IFN &777777,< 10919 036330 525 06 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10920 IFE &777777,< 10921 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10922 036331 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10923 036332 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0233 10924 036333 004 10 0 00 005312 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10925 036334 321 11 0 00 036326 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10926 10927 ;TEST AC+1 LEFT HALF 10928 ;TEST ROTC RIGHT ONE BIT POSITION 10929 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10930 ;TEST MQ SHIFT LOGIC GATES 10931 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10932 ;IS TESTED. 10933 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10934 ;OTHER BIT IS A ZERO AFTER ROTATING 10935 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10936 10937 005313 SN=SN+1 10938 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10939 IFE , 10940 777677 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10941 036335 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10942 036336 525 10 0 00 777577 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10943 IFN &777777,< 10944 036337 525 06 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10945 IFE &777777,< 10946 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10947 036340 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10948 036341 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10949 036342 004 10 0 00 005313 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10950 036343 321 11 0 00 036335 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10951 10952 ;TEST AC+1 LEFT HALF 10953 ;TEST ROTC RIGHT ONE BIT POSITION 10954 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10955 ;TEST MQ SHIFT LOGIC GATES 10956 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10957 ;IS TESTED. 10958 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10959 ;OTHER BIT IS A ZERO AFTER ROTATING 10960 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10961 10962 005314 SN=SN+1 10963 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10964 IFE , 10965 777737 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10966 036344 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10967 036345 525 10 0 00 777677 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10968 IFN &777777,< 10969 036346 525 06 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10970 IFE &777777,< 10971 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10972 036347 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10973 036350 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10974 036351 004 10 0 00 005314 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 10975 036352 321 11 0 00 036344 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 10976 10977 ;TEST AC+1 LEFT HALF 10978 ;TEST ROTC RIGHT ONE BIT POSITION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0234 10979 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 10980 ;TEST MQ SHIFT LOGIC GATES 10981 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 10982 ;IS TESTED. 10983 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 10984 ;OTHER BIT IS A ZERO AFTER ROTATING 10985 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 10986 10987 005315 SN=SN+1 10988 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 10989 IFE , 10990 777757 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 10991 036353 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 10992 036354 525 10 0 00 777737 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 10993 IFN &777777,< 10994 036355 525 06 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 10995 IFE &777777,< 10996 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 10997 036356 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 10998 036357 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 10999 036360 004 10 0 00 005315 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11000 036361 321 11 0 00 036353 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11001 11002 ;TEST AC+1 LEFT HALF 11003 ;TEST ROTC RIGHT ONE BIT POSITION 11004 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11005 ;TEST MQ SHIFT LOGIC GATES 11006 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11007 ;IS TESTED. 11008 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11009 ;OTHER BIT IS A ZERO AFTER ROTATING 11010 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11011 11012 005316 SN=SN+1 11013 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11014 IFE , 11015 777767 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11016 036362 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11017 036363 525 10 0 00 777757 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 11018 IFN &777777,< 11019 036364 525 06 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 11020 IFE &777777,< 11021 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 11022 036365 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11023 036366 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11024 036367 004 10 0 00 005316 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11025 036370 321 11 0 00 036362 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11026 11027 ;TEST AC+1 LEFT HALF 11028 ;TEST ROTC RIGHT ONE BIT POSITION 11029 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11030 ;TEST MQ SHIFT LOGIC GATES 11031 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11032 ;IS TESTED. 11033 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0235 11034 ;OTHER BIT IS A ZERO AFTER ROTATING 11035 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11036 11037 005317 SN=SN+1 11038 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11039 IFE , 11040 777773 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11041 036371 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11042 036372 525 10 0 00 777767 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 11043 IFN &777777,< 11044 036373 525 06 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 11045 IFE &777777,< 11046 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 11047 036374 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11048 036375 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11049 036376 004 10 0 00 005317 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11050 036377 321 11 0 00 036371 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11051 11052 ;TEST AC+1 LEFT HALF 11053 ;TEST ROTC RIGHT ONE BIT POSITION 11054 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11055 ;TEST MQ SHIFT LOGIC GATES 11056 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11057 ;IS TESTED. 11058 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11059 ;OTHER BIT IS A ZERO AFTER ROTATING 11060 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11061 11062 005320 SN=SN+1 11063 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11064 IFE , 11065 777775 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11066 036400 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11067 036401 525 10 0 00 777773 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 11068 IFN &777777,< 11069 036402 525 06 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 11070 IFE &777777,< 11071 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 11072 036403 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11073 036404 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11074 036405 004 10 0 00 005320 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11075 036406 321 11 0 00 036400 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11076 11077 ;TEST AC+1 LEFT HALF 11078 ;TEST ROTC RIGHT ONE BIT POSITION 11079 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11080 ;TEST MQ SHIFT LOGIC GATES 11081 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11082 ;IS TESTED. 11083 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11084 ;OTHER BIT IS A ZERO AFTER ROTATING 11085 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11086 11087 005321 SN=SN+1 11088 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0236 11089 IFE , 11090 777776 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11091 036407 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11092 036410 525 10 0 00 777775 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 11093 IFN &777777,< 11094 036411 525 06 0 00 777776 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 11095 IFE &777777,< 11096 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 11097 036412 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11098 036413 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11099 036414 004 10 0 00 005321 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11100 036415 321 11 0 00 036407 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11101 11102 ;TEST AC+1 LEFT HALF 11103 ;TEST ROTC RIGHT ONE BIT POSITION 11104 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11105 ;TEST MQ SHIFT LOGIC GATES 11106 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11107 ;IS TESTED. 11108 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11109 ;OTHER BIT IS A ZERO AFTER ROTATING 11110 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11111 11112 005322 SN=SN+1 11113 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11114 IFE , 11115 777777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11116 036416 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11117 036417 525 10 0 00 777776 HRLOI AC+1,ZZ&777777 ;SETUP BIT (N) OF AC+1 LEFT 11118 IFN &777777,< 11119 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 11120 IFE &777777,< 11121 036420 561 06 0 00 377777 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 11122 036421 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11123 036422 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11124 036423 004 10 0 00 005322 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11125 036424 321 11 0 00 036416 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH. 11126 11127 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0237 11128 000001 ZZ=1 11129 11130 REPEAT ^D17,< ;TEST AC+1 RIGHT HALF 11131 ;TEST ROTC RIGHT ONE BIT POSITION 11132 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11133 ;TEST MQ SHIFT LOGIC GATES 11134 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11135 ;IS TESTED. 11136 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11137 ;OTHER BIT IS A ZERO AFTER ROTATING 11138 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11139 11140 SN=SN+1 11141 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11142 IFE, 11143 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11144 SETOM AC ;INITIALIZE AC TO ALL CNES 11145 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11146 HRROI AC-1,YY ;SETUP FOR COMPARISON 11147 ROTC AC,-1 ;*ROTATE RIGHT ONE 11148 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11149 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11150 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11151 > 11152 ;TEST AC+1 RIGHT HALF 11153 ;TEST ROTC RIGHT ONE BIT POSITION 11154 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11155 ;TEST MQ SHIFT LOGIC GATES 11156 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11157 ;IS TESTED. 11158 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11159 ;OTHER BIT IS A ZERO AFTER ROTATING 11160 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11161 11162 005323 SN=SN+1 11163 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11164 777777 377777 IFE, 11165 577777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11166 036425 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11167 036426 561 10 0 00 377777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11168 036427 561 06 0 00 577777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11169 036430 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11170 036431 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11171 036432 004 10 0 00 005323 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11172 036433 321 11 0 00 036425 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11173 11174 ;TEST AC+1 RIGHT HALF 11175 ;TEST ROTC RIGHT ONE BIT POSITION 11176 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11177 ;TEST MQ SHIFT LOGIC GATES 11178 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11179 ;IS TESTED. 11180 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11181 ;OTHER BIT IS A ZERO AFTER ROTATING 11182 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0238 11183 11184 005324 SN=SN+1 11185 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11186 IFE, 11187 677777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11188 036434 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11189 036435 561 10 0 00 577777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11190 036436 561 06 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11191 036437 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11192 036440 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11193 036441 004 10 0 00 005324 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11194 036442 321 11 0 00 036434 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11195 11196 ;TEST AC+1 RIGHT HALF 11197 ;TEST ROTC RIGHT ONE BIT POSITION 11198 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11199 ;TEST MQ SHIFT LOGIC GATES 11200 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11201 ;IS TESTED. 11202 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11203 ;OTHER BIT IS A ZERO AFTER ROTATING 11204 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11205 11206 005325 SN=SN+1 11207 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11208 IFE, 11209 737777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11210 036443 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11211 036444 561 10 0 00 677777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11212 036445 561 06 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11213 036446 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11214 036447 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11215 036450 004 10 0 00 005325 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11216 036451 321 11 0 00 036443 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11217 11218 ;TEST AC+1 RIGHT HALF 11219 ;TEST ROTC RIGHT ONE BIT POSITION 11220 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11221 ;TEST MQ SHIFT LOGIC GATES 11222 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11223 ;IS TESTED. 11224 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11225 ;OTHER BIT IS A ZERO AFTER ROTATING 11226 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11227 11228 005326 SN=SN+1 11229 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11230 IFE, 11231 757777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11232 036452 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11233 036453 561 10 0 00 737777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11234 036454 561 06 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11235 036455 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11236 036456 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11237 036457 004 10 0 00 005326 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0239 11238 036460 321 11 0 00 036452 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11239 11240 ;TEST AC+1 RIGHT HALF 11241 ;TEST ROTC RIGHT ONE BIT POSITION 11242 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11243 ;TEST MQ SHIFT LOGIC GATES 11244 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11245 ;IS TESTED. 11246 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11247 ;OTHER BIT IS A ZERO AFTER ROTATING 11248 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11249 11250 005327 SN=SN+1 11251 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11252 IFE, 11253 767777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11254 036461 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11255 036462 561 10 0 00 757777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11256 036463 561 06 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11257 036464 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11258 036465 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11259 036466 004 10 0 00 005327 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11260 036467 321 11 0 00 036461 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11261 11262 ;TEST AC+1 RIGHT HALF 11263 ;TEST ROTC RIGHT ONE BIT POSITION 11264 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11265 ;TEST MQ SHIFT LOGIC GATES 11266 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11267 ;IS TESTED. 11268 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11269 ;OTHER BIT IS A ZERO AFTER ROTATING 11270 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11271 11272 005330 SN=SN+1 11273 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11274 IFE, 11275 773777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11276 036470 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11277 036471 561 10 0 00 767777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11278 036472 561 06 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11279 036473 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11280 036474 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11281 036475 004 10 0 00 005330 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11282 036476 321 11 0 00 036470 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11283 11284 ;TEST AC+1 RIGHT HALF 11285 ;TEST ROTC RIGHT ONE BIT POSITION 11286 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11287 ;TEST MQ SHIFT LOGIC GATES 11288 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11289 ;IS TESTED. 11290 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11291 ;OTHER BIT IS A ZERO AFTER ROTATING 11292 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0240 11293 11294 005331 SN=SN+1 11295 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11296 IFE, 11297 775777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11298 036477 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11299 036500 561 10 0 00 773777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11300 036501 561 06 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11301 036502 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11302 036503 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11303 036504 004 10 0 00 005331 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11304 036505 321 11 0 00 036477 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11305 11306 ;TEST AC+1 RIGHT HALF 11307 ;TEST ROTC RIGHT ONE BIT POSITION 11308 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11309 ;TEST MQ SHIFT LOGIC GATES 11310 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11311 ;IS TESTED. 11312 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11313 ;OTHER BIT IS A ZERO AFTER ROTATING 11314 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11315 11316 005332 SN=SN+1 11317 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11318 IFE, 11319 776777 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11320 036506 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11321 036507 561 10 0 00 775777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11322 036510 561 06 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON 11323 036511 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11324 036512 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11325 036513 004 10 0 00 005332 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11326 036514 321 11 0 00 036506 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11327 11328 ;TEST AC+1 RIGHT HALF 11329 ;TEST ROTC RIGHT ONE BIT POSITION 11330 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11331 ;TEST MQ SHIFT LOGIC GATES 11332 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11333 ;IS TESTED. 11334 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11335 ;OTHER BIT IS A ZERO AFTER ROTATING 11336 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11337 11338 005333 SN=SN+1 11339 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11340 IFE, 11341 777377 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11342 036515 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11343 036516 561 10 0 00 776777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11344 036517 561 06 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON 11345 036520 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11346 036521 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11347 036522 004 10 0 00 005333 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0241 11348 036523 321 11 0 00 036515 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11349 11350 ;TEST AC+1 RIGHT HALF 11351 ;TEST ROTC RIGHT ONE BIT POSITION 11352 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11353 ;TEST MQ SHIFT LOGIC GATES 11354 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11355 ;IS TESTED. 11356 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11357 ;OTHER BIT IS A ZERO AFTER ROTATING 11358 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11359 11360 005334 SN=SN+1 11361 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11362 IFE, 11363 777577 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11364 036524 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11365 036525 561 10 0 00 777377 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11366 036526 561 06 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON 11367 036527 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11368 036530 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11369 036531 004 10 0 00 005334 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11370 036532 321 11 0 00 036524 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11371 11372 ;TEST AC+1 RIGHT HALF 11373 ;TEST ROTC RIGHT ONE BIT POSITION 11374 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11375 ;TEST MQ SHIFT LOGIC GATES 11376 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11377 ;IS TESTED. 11378 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11379 ;OTHER BIT IS A ZERO AFTER ROTATING 11380 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11381 11382 005335 SN=SN+1 11383 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11384 IFE, 11385 777677 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11386 036533 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11387 036534 561 10 0 00 777577 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11388 036535 561 06 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON 11389 036536 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11390 036537 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11391 036540 004 10 0 00 005335 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11392 036541 321 11 0 00 036533 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11393 11394 ;TEST AC+1 RIGHT HALF 11395 ;TEST ROTC RIGHT ONE BIT POSITION 11396 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11397 ;TEST MQ SHIFT LOGIC GATES 11398 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11399 ;IS TESTED. 11400 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11401 ;OTHER BIT IS A ZERO AFTER ROTATING 11402 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0242 11403 11404 005336 SN=SN+1 11405 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11406 IFE, 11407 777737 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11408 036542 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11409 036543 561 10 0 00 777677 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11410 036544 561 06 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON 11411 036545 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11412 036546 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11413 036547 004 10 0 00 005336 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11414 036550 321 11 0 00 036542 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11415 11416 ;TEST AC+1 RIGHT HALF 11417 ;TEST ROTC RIGHT ONE BIT POSITION 11418 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11419 ;TEST MQ SHIFT LOGIC GATES 11420 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11421 ;IS TESTED. 11422 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11423 ;OTHER BIT IS A ZERO AFTER ROTATING 11424 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11425 11426 005337 SN=SN+1 11427 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11428 IFE, 11429 777757 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11430 036551 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11431 036552 561 10 0 00 777737 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11432 036553 561 06 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON 11433 036554 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11434 036555 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11435 036556 004 10 0 00 005337 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11436 036557 321 11 0 00 036551 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11437 11438 ;TEST AC+1 RIGHT HALF 11439 ;TEST ROTC RIGHT ONE BIT POSITION 11440 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11441 ;TEST MQ SHIFT LOGIC GATES 11442 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11443 ;IS TESTED. 11444 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11445 ;OTHER BIT IS A ZERO AFTER ROTATING 11446 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11447 11448 005340 SN=SN+1 11449 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11450 IFE, 11451 777767 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11452 036560 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11453 036561 561 10 0 00 777757 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11454 036562 561 06 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON 11455 036563 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11456 036564 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11457 036565 004 10 0 00 005340 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0243 11458 036566 321 11 0 00 036560 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11459 11460 ;TEST AC+1 RIGHT HALF 11461 ;TEST ROTC RIGHT ONE BIT POSITION 11462 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11463 ;TEST MQ SHIFT LOGIC GATES 11464 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11465 ;IS TESTED. 11466 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11467 ;OTHER BIT IS A ZERO AFTER ROTATING 11468 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11469 11470 005341 SN=SN+1 11471 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11472 IFE, 11473 777773 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11474 036567 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11475 036570 561 10 0 00 777767 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11476 036571 561 06 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON 11477 036572 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11478 036573 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11479 036574 004 10 0 00 005341 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11480 036575 321 11 0 00 036567 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11481 11482 ;TEST AC+1 RIGHT HALF 11483 ;TEST ROTC RIGHT ONE BIT POSITION 11484 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11485 ;TEST MQ SHIFT LOGIC GATES 11486 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11487 ;IS TESTED. 11488 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11489 ;OTHER BIT IS A ZERO AFTER ROTATING 11490 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 11491 11492 005342 SN=SN+1 11493 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11494 IFE, 11495 777775 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11496 036576 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11497 036577 561 10 0 00 777773 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11498 036600 561 06 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON 11499 036601 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11500 036602 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11501 036603 004 10 0 00 005342 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11502 036604 321 11 0 00 036576 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11503 11504 ;TEST AC+1 RIGHT HALF 11505 ;TEST ROTC RIGHT ONE BIT POSITION 11506 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 11507 ;TEST MQ SHIFT LOGIC GATES 11508 ;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1 11509 ;IS TESTED. 11510 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 11511 ;OTHER BIT IS A ZERO AFTER ROTATING 11512 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 24-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0244 11513 11514 005343 SN=SN+1 11515 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 11516 IFE, 11517 777776 YY=</2>&777777 ;SELECTED BIT AFTER ROTATION 11518 036605 476 00 0 00 000007 SETOM AC ;INITIALIZE AC TO ALL CNES 11519 036606 561 10 0 00 777775 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 11520 036607 561 06 0 00 777776 HRROI AC-1,YY ;SETUP FOR COMPARISON 11521 036610 245 07 0 00 777777 ROTC AC,-1 ;*ROTATE RIGHT ONE 11522 036611 312 10 0 00 000006 CAME AC+1,AC-1 ;TEST FOR BIT (N+1) A ZERO 11523 036612 004 10 0 00 005343 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11524 036613 321 11 0 00 036605 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11525 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 25 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0245 11526 ;TEST ROTC RIGHT TWO BIT POSITIONS USING ALL ZEROS 11527 ;TEST MQ SHIFT LOGIC GATES 11528 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND 11529 ;AC+1 IS TESTED 11530 ;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING 11531 11532 000006 AC=6 11533 SAVEAC (1,1)^ 11534 036614 201 10 0 00 036614 MOVEI AC+2,. ;SAVE TEST PC 11535 036615 202 10 0 00 030051 MOVEM AC+2,TESTPC 11536 036616 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11537 036617 202 10 0 00 041765 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11538 036620 E5400: 11539 036620 403 06 0 00 000007 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ZEROS 11540 036621 402 00 0 00 000005 SETZM AC-1 ;INITIALIZE RESULT TO ZERO 11541 036622 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11542 036623 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ZEROS 11543 036624 004 07 0 00 005401 ER4 AC+1,5401 ;MQ GATING FAILED 11544 036625 321 10 0 00 036620 JUMPL AC+2,E5400 ;LOOP ON ERROR SWITCH 11545 11546 ;TEST ROTC RIGHT TWO BIT POSITIONS USING ALL ONES 11547 ;TEST MQ SHIFT LOGIC GATES 11548 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND 11549 ;AC+1 IS TESTED 11550 ;AN ERROR OCCURS IF C(AC+1) IS ZERO AFTER ROTATING 11551 11552 036626 477 06 0 00 000007 E5500: SETOB AC,AC+1 ;INITIALIZE AC,AC+1 TO ALL ONES 11553 036627 476 00 0 00 000005 SETOM AC-1 ;INITIALIZE RESULT TO ALL ONES 11554 036630 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11555 036631 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST AC+1 FOR ALL ONES 11556 036632 004 07 0 00 005501 ER4 AC+1,5501 ;MQ GATING FAILED 11557 036633 321 10 0 00 036626 JUMPL AC+2,E5500 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0246 11558 005600 SN=5600 11559 000000 ZZ=0 11560 11561 E5600: REPEAT ^D18,< ;TEST AC+1 LEFT HALF 11562 ;TEST ROTC RIGHT TWO BIT POSITIONS 11563 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11564 ;TEST MQ SHIFT LOGIC GATES 11565 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11566 ;IS TESTED. 11567 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11568 ;OTHER BIT IS A ONE AFTER ROTATING 11569 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11570 11571 SN=SN+1 11572 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11573 IFE ZZ, 11574 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11575 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11576 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11577 IFG ,< 11578 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11579 IFE ,< 11580 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11581 IFE ,< 11582 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11583 ROTC AC,-2 ;*ROTATE RIGHT TWO 11584 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11585 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11586 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11587 > 11588 ;TEST AC+1 LEFT HALF 11589 ;TEST ROTC RIGHT TWO BIT POSITIONS 11590 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11591 ;TEST MQ SHIFT LOGIC GATES 11592 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11593 ;IS TESTED. 11594 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11595 ;OTHER BIT IS A ONE AFTER ROTATING 11596 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11597 11598 005601 SN=SN+1 11599 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11600 400000 IFE ZZ, 11601 100000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11602 036634 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11603 036635 205 07 0 00 400000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11604 IFG ,< 11605 036636 205 05 0 00 100000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11606 IFE ,< 11607 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11608 IFE ,< 11609 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11610 036637 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11611 036640 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11612 036641 004 07 0 00 005601 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0247 11613 036642 321 10 0 00 036634 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11614 11615 ;TEST AC+1 LEFT HALF 11616 ;TEST ROTC RIGHT TWO BIT POSITIONS 11617 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11618 ;TEST MQ SHIFT LOGIC GATES 11619 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11620 ;IS TESTED. 11621 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11622 ;OTHER BIT IS A ONE AFTER ROTATING 11623 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11624 11625 005602 SN=SN+1 11626 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11627 IFE ZZ, 11628 040000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11629 036643 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11630 036644 205 07 0 00 200000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11631 IFG ,< 11632 036645 205 05 0 00 040000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11633 IFE ,< 11634 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11635 IFE ,< 11636 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11637 036646 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11638 036647 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11639 036650 004 07 0 00 005602 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11640 036651 321 10 0 00 036643 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11641 11642 ;TEST AC+1 LEFT HALF 11643 ;TEST ROTC RIGHT TWO BIT POSITIONS 11644 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11645 ;TEST MQ SHIFT LOGIC GATES 11646 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11647 ;IS TESTED. 11648 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11649 ;OTHER BIT IS A ONE AFTER ROTATING 11650 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11651 11652 005603 SN=SN+1 11653 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11654 IFE ZZ, 11655 020000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11656 036652 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11657 036653 205 07 0 00 100000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11658 IFG ,< 11659 036654 205 05 0 00 020000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11660 IFE ,< 11661 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11662 IFE ,< 11663 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11664 036655 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11665 036656 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11666 036657 004 07 0 00 005603 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11667 036660 321 10 0 00 036652 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0248 11668 11669 ;TEST AC+1 LEFT HALF 11670 ;TEST ROTC RIGHT TWO BIT POSITIONS 11671 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11672 ;TEST MQ SHIFT LOGIC GATES 11673 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11674 ;IS TESTED. 11675 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11676 ;OTHER BIT IS A ONE AFTER ROTATING 11677 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11678 11679 005604 SN=SN+1 11680 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11681 IFE ZZ, 11682 010000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11683 036661 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11684 036662 205 07 0 00 040000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11685 IFG ,< 11686 036663 205 05 0 00 010000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11687 IFE ,< 11688 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11689 IFE ,< 11690 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11691 036664 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11692 036665 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11693 036666 004 07 0 00 005604 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11694 036667 321 10 0 00 036661 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11695 11696 ;TEST AC+1 LEFT HALF 11697 ;TEST ROTC RIGHT TWO BIT POSITIONS 11698 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11699 ;TEST MQ SHIFT LOGIC GATES 11700 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11701 ;IS TESTED. 11702 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11703 ;OTHER BIT IS A ONE AFTER ROTATING 11704 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11705 11706 005605 SN=SN+1 11707 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11708 IFE ZZ, 11709 004000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11710 036670 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11711 036671 205 07 0 00 020000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11712 IFG ,< 11713 036672 205 05 0 00 004000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11714 IFE ,< 11715 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11716 IFE ,< 11717 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11718 036673 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11719 036674 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11720 036675 004 07 0 00 005605 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11721 036676 321 10 0 00 036670 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11722 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0249 11723 ;TEST AC+1 LEFT HALF 11724 ;TEST ROTC RIGHT TWO BIT POSITIONS 11725 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11726 ;TEST MQ SHIFT LOGIC GATES 11727 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11728 ;IS TESTED. 11729 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11730 ;OTHER BIT IS A ONE AFTER ROTATING 11731 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11732 11733 005606 SN=SN+1 11734 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11735 IFE ZZ, 11736 002000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11737 036677 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11738 036700 205 07 0 00 010000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11739 IFG ,< 11740 036701 205 05 0 00 002000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11741 IFE ,< 11742 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11743 IFE ,< 11744 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11745 036702 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11746 036703 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11747 036704 004 07 0 00 005606 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11748 036705 321 10 0 00 036677 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11749 11750 ;TEST AC+1 LEFT HALF 11751 ;TEST ROTC RIGHT TWO BIT POSITIONS 11752 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11753 ;TEST MQ SHIFT LOGIC GATES 11754 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11755 ;IS TESTED. 11756 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11757 ;OTHER BIT IS A ONE AFTER ROTATING 11758 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11759 11760 005607 SN=SN+1 11761 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11762 IFE ZZ, 11763 001000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11764 036706 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11765 036707 205 07 0 00 004000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11766 IFG ,< 11767 036710 205 05 0 00 001000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11768 IFE ,< 11769 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11770 IFE ,< 11771 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11772 036711 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11773 036712 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11774 036713 004 07 0 00 005607 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11775 036714 321 10 0 00 036706 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11776 11777 ;TEST AC+1 LEFT HALF DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0250 11778 ;TEST ROTC RIGHT TWO BIT POSITIONS 11779 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11780 ;TEST MQ SHIFT LOGIC GATES 11781 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11782 ;IS TESTED. 11783 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11784 ;OTHER BIT IS A ONE AFTER ROTATING 11785 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11786 11787 005610 SN=SN+1 11788 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11789 IFE ZZ, 11790 000400 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11791 036715 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11792 036716 205 07 0 00 002000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11793 IFG ,< 11794 036717 205 05 0 00 000400 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11795 IFE ,< 11796 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11797 IFE ,< 11798 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11799 036720 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11800 036721 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11801 036722 004 07 0 00 005610 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11802 036723 321 10 0 00 036715 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11803 11804 ;TEST AC+1 LEFT HALF 11805 ;TEST ROTC RIGHT TWO BIT POSITIONS 11806 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11807 ;TEST MQ SHIFT LOGIC GATES 11808 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11809 ;IS TESTED. 11810 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11811 ;OTHER BIT IS A ONE AFTER ROTATING 11812 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11813 11814 005611 SN=SN+1 11815 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11816 IFE ZZ, 11817 000200 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11818 036724 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11819 036725 205 07 0 00 001000 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11820 IFG ,< 11821 036726 205 05 0 00 000200 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11822 IFE ,< 11823 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11824 IFE ,< 11825 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11826 036727 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11827 036730 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11828 036731 004 07 0 00 005611 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11829 036732 321 10 0 00 036724 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11830 11831 ;TEST AC+1 LEFT HALF 11832 ;TEST ROTC RIGHT TWO BIT POSITIONS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0251 11833 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11834 ;TEST MQ SHIFT LOGIC GATES 11835 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11836 ;IS TESTED. 11837 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11838 ;OTHER BIT IS A ONE AFTER ROTATING 11839 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11840 11841 005612 SN=SN+1 11842 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11843 IFE ZZ, 11844 000100 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11845 036733 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11846 036734 205 07 0 00 000400 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11847 IFG ,< 11848 036735 205 05 0 00 000100 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11849 IFE ,< 11850 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11851 IFE ,< 11852 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11853 036736 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11854 036737 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11855 036740 004 07 0 00 005612 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11856 036741 321 10 0 00 036733 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11857 11858 ;TEST AC+1 LEFT HALF 11859 ;TEST ROTC RIGHT TWO BIT POSITIONS 11860 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11861 ;TEST MQ SHIFT LOGIC GATES 11862 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11863 ;IS TESTED. 11864 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11865 ;OTHER BIT IS A ONE AFTER ROTATING 11866 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11867 11868 005613 SN=SN+1 11869 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11870 IFE ZZ, 11871 000040 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11872 036742 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11873 036743 205 07 0 00 000200 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11874 IFG ,< 11875 036744 205 05 0 00 000040 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11876 IFE ,< 11877 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11878 IFE ,< 11879 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11880 036745 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11881 036746 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11882 036747 004 07 0 00 005613 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11883 036750 321 10 0 00 036742 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11884 11885 ;TEST AC+1 LEFT HALF 11886 ;TEST ROTC RIGHT TWO BIT POSITIONS 11887 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0252 11888 ;TEST MQ SHIFT LOGIC GATES 11889 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11890 ;IS TESTED. 11891 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11892 ;OTHER BIT IS A ONE AFTER ROTATING 11893 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11894 11895 005614 SN=SN+1 11896 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11897 IFE ZZ, 11898 000020 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11899 036751 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11900 036752 205 07 0 00 000100 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11901 IFG ,< 11902 036753 205 05 0 00 000020 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11903 IFE ,< 11904 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11905 IFE ,< 11906 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11907 036754 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11908 036755 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11909 036756 004 07 0 00 005614 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11910 036757 321 10 0 00 036751 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11911 11912 ;TEST AC+1 LEFT HALF 11913 ;TEST ROTC RIGHT TWO BIT POSITIONS 11914 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11915 ;TEST MQ SHIFT LOGIC GATES 11916 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11917 ;IS TESTED. 11918 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11919 ;OTHER BIT IS A ONE AFTER ROTATING 11920 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11921 11922 005615 SN=SN+1 11923 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11924 IFE ZZ, 11925 000010 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11926 036760 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11927 036761 205 07 0 00 000040 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11928 IFG ,< 11929 036762 205 05 0 00 000010 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11930 IFE ,< 11931 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11932 IFE ,< 11933 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11934 036763 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11935 036764 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11936 036765 004 07 0 00 005615 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11937 036766 321 10 0 00 036760 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11938 11939 ;TEST AC+1 LEFT HALF 11940 ;TEST ROTC RIGHT TWO BIT POSITIONS 11941 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11942 ;TEST MQ SHIFT LOGIC GATES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0253 11943 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11944 ;IS TESTED. 11945 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11946 ;OTHER BIT IS A ONE AFTER ROTATING 11947 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11948 11949 005616 SN=SN+1 11950 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11951 IFE ZZ, 11952 000004 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11953 036767 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11954 036770 205 07 0 00 000020 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11955 IFG ,< 11956 036771 205 05 0 00 000004 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11957 IFE ,< 11958 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11959 IFE ,< 11960 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11961 036772 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11962 036773 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11963 036774 004 07 0 00 005616 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11964 036775 321 10 0 00 036767 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11965 11966 ;TEST AC+1 LEFT HALF 11967 ;TEST ROTC RIGHT TWO BIT POSITIONS 11968 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11969 ;TEST MQ SHIFT LOGIC GATES 11970 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 11971 ;IS TESTED. 11972 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 11973 ;OTHER BIT IS A ONE AFTER ROTATING 11974 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 11975 11976 005617 SN=SN+1 11977 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 11978 IFE ZZ, 11979 000002 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 11980 036776 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 11981 036777 205 07 0 00 000010 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 11982 IFG ,< 11983 037000 205 05 0 00 000002 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 11984 IFE ,< 11985 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 11986 IFE ,< 11987 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 11988 037001 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 11989 037002 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 11990 037003 004 07 0 00 005617 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 11991 037004 321 10 0 00 036776 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11992 11993 ;TEST AC+1 LEFT HALF 11994 ;TEST ROTC RIGHT TWO BIT POSITIONS 11995 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 11996 ;TEST MQ SHIFT LOGIC GATES 11997 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0254 11998 ;IS TESTED. 11999 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12000 ;OTHER BIT IS A ONE AFTER ROTATING 12001 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12002 12003 005620 SN=SN+1 12004 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12005 IFE ZZ, 12006 000001 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12007 037005 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12008 037006 205 07 0 00 000004 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 12009 IFG ,< 12010 037007 205 05 0 00 000001 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 12011 IFE ,< 12012 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 12013 IFE ,< 12014 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 12015 037010 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12016 037011 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12017 037012 004 07 0 00 005620 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12018 037013 321 10 0 00 037005 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12019 12020 ;TEST AC+1 LEFT HALF 12021 ;TEST ROTC RIGHT TWO BIT POSITIONS 12022 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12023 ;TEST MQ SHIFT LOGIC GATES 12024 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12025 ;IS TESTED. 12026 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12027 ;OTHER BIT IS A ONE AFTER ROTATING 12028 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12029 12030 005621 SN=SN+1 12031 000002 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12032 IFE ZZ, 12033 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12034 037014 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12035 037015 205 07 0 00 000002 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 12036 IFG ,< 12037 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 12038 IFE ,< 12039 037016 201 05 0 00 400000 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 12040 IFE ,< 12041 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 12042 037017 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12043 037020 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12044 037021 004 07 0 00 005621 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12045 037022 321 10 0 00 037014 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12046 12047 ;TEST AC+1 LEFT HALF 12048 ;TEST ROTC RIGHT TWO BIT POSITIONS 12049 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12050 ;TEST MQ SHIFT LOGIC GATES 12051 ;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12052 ;IS TESTED. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0255 12053 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12054 ;OTHER BIT IS A ONE AFTER ROTATING 12055 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12056 12057 005622 SN=SN+1 12058 000001 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12059 IFE ZZ, 12060 000000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12061 037023 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12062 037024 205 07 0 00 000001 MOVSI AC+1,ZZ ;SET BIT (N) OF AC+1 LEFT 12063 IFG ,< 12064 037025 205 05 0 00 000000 MOVSI AC-1,YY ;SETUP FOR COMPARISON> 12065 IFE ,< 12066 MOVEI AC-1,400000 ;SETUP FOR COMPARISON> 12067 IFE ,< 12068 037026 201 05 0 00 200000 MOVEI AC-1,200000 ;SETUP FOR COMPARISON> 12069 037027 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12070 037030 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12071 037031 004 07 0 00 005622 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12072 037032 321 10 0 00 037024 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12073 12074 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0256 12075 000000 ZZ=0 12076 12077 REPEAT ^D16,< ;TEST AC+1 RIGHT HALF 12078 ;TEST ROTC RIGHT TWO BIT POSITIONS 12079 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12080 ;TEST MQ SHIFT LOGIC GATES 12081 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12082 ;IS TESTED. 12083 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12084 ;OTHER BIT IS A ONE AFTER ROTATING 12085 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12086 12087 SN=SN+1 12088 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12089 IFE ZZ, 12090 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12091 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12092 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12093 12094 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12095 ROTC AC,-2 ;*ROTATE RIGHT TWO 12096 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12097 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12098 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12099 > 12100 ;TEST AC+1 RIGHT HALF 12101 ;TEST ROTC RIGHT TWO BIT POSITIONS 12102 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12103 ;TEST MQ SHIFT LOGIC GATES 12104 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12105 ;IS TESTED. 12106 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12107 ;OTHER BIT IS A ONE AFTER ROTATING 12108 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12109 12110 005623 SN=SN+1 12111 000000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12112 400000 IFE ZZ, 12113 100000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12114 037033 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12115 037034 201 07 0 00 400000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12116 12117 037035 201 05 0 00 100000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12118 037036 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12119 037037 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12120 037040 004 07 0 00 005623 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12121 037041 321 10 0 00 037033 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12122 12123 ;TEST AC+1 RIGHT HALF 12124 ;TEST ROTC RIGHT TWO BIT POSITIONS 12125 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12126 ;TEST MQ SHIFT LOGIC GATES 12127 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12128 ;IS TESTED. 12129 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0257 12130 ;OTHER BIT IS A ONE AFTER ROTATING 12131 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12132 12133 005624 SN=SN+1 12134 200000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12135 IFE ZZ, 12136 040000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12137 037042 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12138 037043 201 07 0 00 200000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12139 12140 037044 201 05 0 00 040000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12141 037045 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12142 037046 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12143 037047 004 07 0 00 005624 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12144 037050 321 10 0 00 037042 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12145 12146 ;TEST AC+1 RIGHT HALF 12147 ;TEST ROTC RIGHT TWO BIT POSITIONS 12148 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12149 ;TEST MQ SHIFT LOGIC GATES 12150 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12151 ;IS TESTED. 12152 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12153 ;OTHER BIT IS A ONE AFTER ROTATING 12154 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12155 12156 005625 SN=SN+1 12157 100000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12158 IFE ZZ, 12159 020000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12160 037051 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12161 037052 201 07 0 00 100000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12162 12163 037053 201 05 0 00 020000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12164 037054 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12165 037055 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12166 037056 004 07 0 00 005625 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12167 037057 321 10 0 00 037051 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12168 12169 ;TEST AC+1 RIGHT HALF 12170 ;TEST ROTC RIGHT TWO BIT POSITIONS 12171 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12172 ;TEST MQ SHIFT LOGIC GATES 12173 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12174 ;IS TESTED. 12175 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12176 ;OTHER BIT IS A ONE AFTER ROTATING 12177 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12178 12179 005626 SN=SN+1 12180 040000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12181 IFE ZZ, 12182 010000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12183 037060 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12184 037061 201 07 0 00 040000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0258 12185 12186 037062 201 05 0 00 010000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12187 037063 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12188 037064 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12189 037065 004 07 0 00 005626 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12190 037066 321 10 0 00 037060 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12191 12192 ;TEST AC+1 RIGHT HALF 12193 ;TEST ROTC RIGHT TWO BIT POSITIONS 12194 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12195 ;TEST MQ SHIFT LOGIC GATES 12196 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12197 ;IS TESTED. 12198 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12199 ;OTHER BIT IS A ONE AFTER ROTATING 12200 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12201 12202 005627 SN=SN+1 12203 020000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12204 IFE ZZ, 12205 004000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12206 037067 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12207 037070 201 07 0 00 020000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12208 12209 037071 201 05 0 00 004000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12210 037072 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12211 037073 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12212 037074 004 07 0 00 005627 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12213 037075 321 10 0 00 037067 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12214 12215 ;TEST AC+1 RIGHT HALF 12216 ;TEST ROTC RIGHT TWO BIT POSITIONS 12217 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12218 ;TEST MQ SHIFT LOGIC GATES 12219 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12220 ;IS TESTED. 12221 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12222 ;OTHER BIT IS A ONE AFTER ROTATING 12223 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12224 12225 005630 SN=SN+1 12226 010000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12227 IFE ZZ, 12228 002000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12229 037076 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12230 037077 201 07 0 00 010000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12231 12232 037100 201 05 0 00 002000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12233 037101 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12234 037102 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12235 037103 004 07 0 00 005630 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12236 037104 321 10 0 00 037076 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12237 12238 ;TEST AC+1 RIGHT HALF 12239 ;TEST ROTC RIGHT TWO BIT POSITIONS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0259 12240 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12241 ;TEST MQ SHIFT LOGIC GATES 12242 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12243 ;IS TESTED. 12244 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12245 ;OTHER BIT IS A ONE AFTER ROTATING 12246 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12247 12248 005631 SN=SN+1 12249 004000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12250 IFE ZZ, 12251 001000 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12252 037105 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12253 037106 201 07 0 00 004000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12254 12255 037107 201 05 0 00 001000 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12256 037110 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12257 037111 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12258 037112 004 07 0 00 005631 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12259 037113 321 10 0 00 037105 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12260 12261 ;TEST AC+1 RIGHT HALF 12262 ;TEST ROTC RIGHT TWO BIT POSITIONS 12263 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12264 ;TEST MQ SHIFT LOGIC GATES 12265 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12266 ;IS TESTED. 12267 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12268 ;OTHER BIT IS A ONE AFTER ROTATING 12269 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12270 12271 005632 SN=SN+1 12272 002000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12273 IFE ZZ, 12274 000400 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12275 037114 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12276 037115 201 07 0 00 002000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12277 12278 037116 201 05 0 00 000400 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12279 037117 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12280 037120 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12281 037121 004 07 0 00 005632 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12282 037122 321 10 0 00 037114 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12283 12284 ;TEST AC+1 RIGHT HALF 12285 ;TEST ROTC RIGHT TWO BIT POSITIONS 12286 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12287 ;TEST MQ SHIFT LOGIC GATES 12288 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12289 ;IS TESTED. 12290 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12291 ;OTHER BIT IS A ONE AFTER ROTATING 12292 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12293 12294 005633 SN=SN+1 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0260 12295 001000 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12296 IFE ZZ, 12297 000200 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12298 037123 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12299 037124 201 07 0 00 001000 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12300 12301 037125 201 05 0 00 000200 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12302 037126 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12303 037127 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12304 037130 004 07 0 00 005633 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12305 037131 321 10 0 00 037123 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12306 12307 ;TEST AC+1 RIGHT HALF 12308 ;TEST ROTC RIGHT TWO BIT POSITIONS 12309 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12310 ;TEST MQ SHIFT LOGIC GATES 12311 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12312 ;IS TESTED. 12313 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12314 ;OTHER BIT IS A ONE AFTER ROTATING 12315 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12316 12317 005634 SN=SN+1 12318 000400 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12319 IFE ZZ, 12320 000100 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12321 037132 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12322 037133 201 07 0 00 000400 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12323 12324 037134 201 05 0 00 000100 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12325 037135 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12326 037136 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12327 037137 004 07 0 00 005634 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12328 037140 321 10 0 00 037132 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12329 12330 ;TEST AC+1 RIGHT HALF 12331 ;TEST ROTC RIGHT TWO BIT POSITIONS 12332 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12333 ;TEST MQ SHIFT LOGIC GATES 12334 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12335 ;IS TESTED. 12336 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12337 ;OTHER BIT IS A ONE AFTER ROTATING 12338 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12339 12340 005635 SN=SN+1 12341 000200 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12342 IFE ZZ, 12343 000040 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12344 037141 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12345 037142 201 07 0 00 000200 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12346 12347 037143 201 05 0 00 000040 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12348 037144 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12349 037145 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0261 12350 037146 004 07 0 00 005635 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12351 037147 321 10 0 00 037141 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12352 12353 ;TEST AC+1 RIGHT HALF 12354 ;TEST ROTC RIGHT TWO BIT POSITIONS 12355 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12356 ;TEST MQ SHIFT LOGIC GATES 12357 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12358 ;IS TESTED. 12359 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12360 ;OTHER BIT IS A ONE AFTER ROTATING 12361 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12362 12363 005636 SN=SN+1 12364 000100 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12365 IFE ZZ, 12366 000020 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12367 037150 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12368 037151 201 07 0 00 000100 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12369 12370 037152 201 05 0 00 000020 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12371 037153 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12372 037154 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12373 037155 004 07 0 00 005636 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12374 037156 321 10 0 00 037150 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12375 12376 ;TEST AC+1 RIGHT HALF 12377 ;TEST ROTC RIGHT TWO BIT POSITIONS 12378 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12379 ;TEST MQ SHIFT LOGIC GATES 12380 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12381 ;IS TESTED. 12382 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12383 ;OTHER BIT IS A ONE AFTER ROTATING 12384 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12385 12386 005637 SN=SN+1 12387 000040 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12388 IFE ZZ, 12389 000010 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12390 037157 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12391 037160 201 07 0 00 000040 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12392 12393 037161 201 05 0 00 000010 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12394 037162 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12395 037163 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12396 037164 004 07 0 00 005637 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12397 037165 321 10 0 00 037157 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12398 12399 ;TEST AC+1 RIGHT HALF 12400 ;TEST ROTC RIGHT TWO BIT POSITIONS 12401 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12402 ;TEST MQ SHIFT LOGIC GATES 12403 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12404 ;IS TESTED. DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0262 12405 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12406 ;OTHER BIT IS A ONE AFTER ROTATING 12407 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12408 12409 005640 SN=SN+1 12410 000020 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12411 IFE ZZ, 12412 000004 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12413 037166 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12414 037167 201 07 0 00 000020 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12415 12416 037170 201 05 0 00 000004 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12417 037171 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12418 037172 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12419 037173 004 07 0 00 005640 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12420 037174 321 10 0 00 037166 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12421 12422 ;TEST AC+1 RIGHT HALF 12423 ;TEST ROTC RIGHT TWO BIT POSITIONS 12424 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12425 ;TEST MQ SHIFT LOGIC GATES 12426 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12427 ;IS TESTED. 12428 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12429 ;OTHER BIT IS A ONE AFTER ROTATING 12430 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12431 12432 005641 SN=SN+1 12433 000010 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12434 IFE ZZ, 12435 000002 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12436 037175 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS 12437 037176 201 07 0 00 000010 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12438 12439 037177 201 05 0 00 000002 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12440 037200 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12441 037201 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12442 037202 004 07 0 00 005641 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12443 037203 321 10 0 00 037175 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12444 12445 ;TEST AC+1 RIGHT HALF 12446 ;TEST ROTC RIGHT TWO BIT POSITIONS 12447 ;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ 12448 ;TEST MQ SHIFT LOGIC GATES 12449 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12450 ;IS TESTED. 12451 ;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY 12452 ;OTHER BIT IS A ONE AFTER ROTATING 12453 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ 12454 12455 005642 SN=SN+1 12456 000004 ZZ=ZZ/2 ;SELECTED BIT BEFORE ROTATION 12457 IFE ZZ, 12458 000001 YY=ZZ/4 ;SELECTED BIT AFTER ROTATION 12459 037204 400 06 0 00 000000 SETZ AC, ;INITIALIZE AC TO ALL ZEROS DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 26-17 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0263 12460 037205 201 07 0 00 000004 MOVEI AC+1,ZZ ;SET BIT (N) OF AC+1 RIGHT 12461 12462 037206 201 05 0 00 000001 MOVEI AC-1,YY ;SETUP FOR COMPARISON 12463 037207 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12464 037210 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ONE 12465 037211 004 07 0 00 005642 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12466 037212 321 10 0 00 037204 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12467 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0264 12468 005700 SN=5700 12469 000001 ZZ=1 12470 12471 E5700: REPEAT ^D18,< ;TEST AC+1 LEFT HALF 12472 ;TEST ROTC RIGHT TWO BIT POSITIONS 12473 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12474 ;TEST MQ SHIFT LOGIC GATES 12475 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12476 ;IS TESTED. 12477 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12478 ;OTHER BIT IS A ZERO AFTER ROTATING 12479 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12480 12481 SN=SN+1 12482 12483 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12484 IFE, 12485 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12486 SETOM AC ;INITIALIZE AC TO ALL ONES 12487 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12488 IFG &777777,< 12489 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12490 IFE &777777,< 12491 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12492 IFE &777777,< 12493 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12494 ROTC AC,-2 ;*ROTATE RIGHT TWO 12495 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12496 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12497 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12498 > 12499 ;TEST AC+1 LEFT HALF 12500 ;TEST ROTC RIGHT TWO BIT POSITIONS 12501 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12502 ;TEST MQ SHIFT LOGIC GATES 12503 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12504 ;IS TESTED. 12505 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12506 ;OTHER BIT IS A ZERO AFTER ROTATING 12507 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12508 12509 005701 SN=SN+1 12510 12511 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12512 777777 377777 IFE, 12513 677777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12514 037213 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12515 037214 525 07 0 00 377777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12516 IFG &777777,< 12517 037215 525 05 0 00 677777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12518 IFE &777777,< 12519 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12520 IFE &777777,< 12521 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12522 037216 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0265 12523 037217 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12524 037220 004 07 0 00 005701 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12525 037221 321 10 0 00 037213 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12526 12527 ;TEST AC+1 LEFT HALF 12528 ;TEST ROTC RIGHT TWO BIT POSITIONS 12529 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12530 ;TEST MQ SHIFT LOGIC GATES 12531 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12532 ;IS TESTED. 12533 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12534 ;OTHER BIT IS A ZERO AFTER ROTATING 12535 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12536 12537 005702 SN=SN+1 12538 12539 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12540 IFE, 12541 737777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12542 037222 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12543 037223 525 07 0 00 577777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12544 IFG &777777,< 12545 037224 525 05 0 00 737777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12546 IFE &777777,< 12547 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12548 IFE &777777,< 12549 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12550 037225 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12551 037226 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12552 037227 004 07 0 00 005702 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12553 037230 321 10 0 00 037222 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12554 12555 ;TEST AC+1 LEFT HALF 12556 ;TEST ROTC RIGHT TWO BIT POSITIONS 12557 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12558 ;TEST MQ SHIFT LOGIC GATES 12559 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12560 ;IS TESTED. 12561 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12562 ;OTHER BIT IS A ZERO AFTER ROTATING 12563 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12564 12565 005703 SN=SN+1 12566 12567 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12568 IFE, 12569 757777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12570 037231 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12571 037232 525 07 0 00 677777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12572 IFG &777777,< 12573 037233 525 05 0 00 757777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12574 IFE &777777,< 12575 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12576 IFE &777777,< 12577 HRROI AC-1,577777 ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0266 12578 037234 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12579 037235 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12580 037236 004 07 0 00 005703 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12581 037237 321 10 0 00 037231 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12582 12583 ;TEST AC+1 LEFT HALF 12584 ;TEST ROTC RIGHT TWO BIT POSITIONS 12585 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12586 ;TEST MQ SHIFT LOGIC GATES 12587 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12588 ;IS TESTED. 12589 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12590 ;OTHER BIT IS A ZERO AFTER ROTATING 12591 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12592 12593 005704 SN=SN+1 12594 12595 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12596 IFE, 12597 767777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12598 037240 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12599 037241 525 07 0 00 737777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12600 IFG &777777,< 12601 037242 525 05 0 00 767777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12602 IFE &777777,< 12603 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12604 IFE &777777,< 12605 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12606 037243 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12607 037244 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12608 037245 004 07 0 00 005704 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12609 037246 321 10 0 00 037240 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12610 12611 ;TEST AC+1 LEFT HALF 12612 ;TEST ROTC RIGHT TWO BIT POSITIONS 12613 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12614 ;TEST MQ SHIFT LOGIC GATES 12615 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12616 ;IS TESTED. 12617 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12618 ;OTHER BIT IS A ZERO AFTER ROTATING 12619 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12620 12621 005705 SN=SN+1 12622 12623 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12624 IFE, 12625 773777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12626 037247 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12627 037250 525 07 0 00 757777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12628 IFG &777777,< 12629 037251 525 05 0 00 773777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12630 IFE &777777,< 12631 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12632 IFE &777777,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0267 12633 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12634 037252 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12635 037253 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12636 037254 004 07 0 00 005705 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12637 037255 321 10 0 00 037247 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12638 12639 ;TEST AC+1 LEFT HALF 12640 ;TEST ROTC RIGHT TWO BIT POSITIONS 12641 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12642 ;TEST MQ SHIFT LOGIC GATES 12643 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12644 ;IS TESTED. 12645 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12646 ;OTHER BIT IS A ZERO AFTER ROTATING 12647 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12648 12649 005706 SN=SN+1 12650 12651 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12652 IFE, 12653 775777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12654 037256 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12655 037257 525 07 0 00 767777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12656 IFG &777777,< 12657 037260 525 05 0 00 775777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12658 IFE &777777,< 12659 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12660 IFE &777777,< 12661 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12662 037261 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12663 037262 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12664 037263 004 07 0 00 005706 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12665 037264 321 10 0 00 037256 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12666 12667 ;TEST AC+1 LEFT HALF 12668 ;TEST ROTC RIGHT TWO BIT POSITIONS 12669 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12670 ;TEST MQ SHIFT LOGIC GATES 12671 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12672 ;IS TESTED. 12673 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12674 ;OTHER BIT IS A ZERO AFTER ROTATING 12675 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12676 12677 005707 SN=SN+1 12678 12679 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12680 IFE, 12681 776777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12682 037265 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12683 037266 525 07 0 00 773777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12684 IFG &777777,< 12685 037267 525 05 0 00 776777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12686 IFE &777777,< 12687 HRROI AC-1,377777 ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-4 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0268 12688 IFE &777777,< 12689 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12690 037270 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12691 037271 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12692 037272 004 07 0 00 005707 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12693 037273 321 10 0 00 037265 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12694 12695 ;TEST AC+1 LEFT HALF 12696 ;TEST ROTC RIGHT TWO BIT POSITIONS 12697 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12698 ;TEST MQ SHIFT LOGIC GATES 12699 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12700 ;IS TESTED. 12701 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12702 ;OTHER BIT IS A ZERO AFTER ROTATING 12703 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12704 12705 005710 SN=SN+1 12706 12707 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12708 IFE, 12709 777377 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12710 037274 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12711 037275 525 07 0 00 775777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12712 IFG &777777,< 12713 037276 525 05 0 00 777377 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12714 IFE &777777,< 12715 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12716 IFE &777777,< 12717 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12718 037277 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12719 037300 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12720 037301 004 07 0 00 005710 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12721 037302 321 10 0 00 037274 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12722 12723 ;TEST AC+1 LEFT HALF 12724 ;TEST ROTC RIGHT TWO BIT POSITIONS 12725 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12726 ;TEST MQ SHIFT LOGIC GATES 12727 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12728 ;IS TESTED. 12729 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12730 ;OTHER BIT IS A ZERO AFTER ROTATING 12731 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12732 12733 005711 SN=SN+1 12734 12735 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12736 IFE, 12737 777577 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12738 037303 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12739 037304 525 07 0 00 776777 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12740 IFG &777777,< 12741 037305 525 05 0 00 777577 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12742 IFE &777777,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-5 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0269 12743 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12744 IFE &777777,< 12745 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12746 037306 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12747 037307 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12748 037310 004 07 0 00 005711 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12749 037311 321 10 0 00 037303 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12750 12751 ;TEST AC+1 LEFT HALF 12752 ;TEST ROTC RIGHT TWO BIT POSITIONS 12753 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12754 ;TEST MQ SHIFT LOGIC GATES 12755 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12756 ;IS TESTED. 12757 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12758 ;OTHER BIT IS A ZERO AFTER ROTATING 12759 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12760 12761 005712 SN=SN+1 12762 12763 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12764 IFE, 12765 777677 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12766 037312 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12767 037313 525 07 0 00 777377 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12768 IFG &777777,< 12769 037314 525 05 0 00 777677 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12770 IFE &777777,< 12771 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12772 IFE &777777,< 12773 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12774 037315 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12775 037316 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12776 037317 004 07 0 00 005712 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12777 037320 321 10 0 00 037312 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12778 12779 ;TEST AC+1 LEFT HALF 12780 ;TEST ROTC RIGHT TWO BIT POSITIONS 12781 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12782 ;TEST MQ SHIFT LOGIC GATES 12783 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12784 ;IS TESTED. 12785 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12786 ;OTHER BIT IS A ZERO AFTER ROTATING 12787 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12788 12789 005713 SN=SN+1 12790 12791 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12792 IFE, 12793 777737 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12794 037321 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12795 037322 525 07 0 00 777577 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12796 IFG &777777,< 12797 037323 525 05 0 00 777737 HRLOI AC-1,YY ;SETUP FOR COMPARISON> DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-6 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0270 12798 IFE &777777,< 12799 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12800 IFE &777777,< 12801 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12802 037324 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12803 037325 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12804 037326 004 07 0 00 005713 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12805 037327 321 10 0 00 037321 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12806 12807 ;TEST AC+1 LEFT HALF 12808 ;TEST ROTC RIGHT TWO BIT POSITIONS 12809 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12810 ;TEST MQ SHIFT LOGIC GATES 12811 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12812 ;IS TESTED. 12813 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12814 ;OTHER BIT IS A ZERO AFTER ROTATING 12815 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12816 12817 005714 SN=SN+1 12818 12819 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12820 IFE, 12821 777757 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12822 037330 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12823 037331 525 07 0 00 777677 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12824 IFG &777777,< 12825 037332 525 05 0 00 777757 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12826 IFE &777777,< 12827 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12828 IFE &777777,< 12829 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12830 037333 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12831 037334 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12832 037335 004 07 0 00 005714 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12833 037336 321 10 0 00 037330 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12834 12835 ;TEST AC+1 LEFT HALF 12836 ;TEST ROTC RIGHT TWO BIT POSITIONS 12837 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12838 ;TEST MQ SHIFT LOGIC GATES 12839 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12840 ;IS TESTED. 12841 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12842 ;OTHER BIT IS A ZERO AFTER ROTATING 12843 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12844 12845 005715 SN=SN+1 12846 12847 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12848 IFE, 12849 777767 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12850 037337 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12851 037340 525 07 0 00 777737 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12852 IFG &777777,< DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-7 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0271 12853 037341 525 05 0 00 777767 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12854 IFE &777777,< 12855 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12856 IFE &777777,< 12857 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12858 037342 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12859 037343 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12860 037344 004 07 0 00 005715 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12861 037345 321 10 0 00 037337 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12862 12863 ;TEST AC+1 LEFT HALF 12864 ;TEST ROTC RIGHT TWO BIT POSITIONS 12865 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12866 ;TEST MQ SHIFT LOGIC GATES 12867 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12868 ;IS TESTED. 12869 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12870 ;OTHER BIT IS A ZERO AFTER ROTATING 12871 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12872 12873 005716 SN=SN+1 12874 12875 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12876 IFE, 12877 777773 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12878 037346 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12879 037347 525 07 0 00 777757 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12880 IFG &777777,< 12881 037350 525 05 0 00 777773 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12882 IFE &777777,< 12883 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12884 IFE &777777,< 12885 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12886 037351 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12887 037352 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12888 037353 004 07 0 00 005716 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12889 037354 321 10 0 00 037346 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12890 12891 ;TEST AC+1 LEFT HALF 12892 ;TEST ROTC RIGHT TWO BIT POSITIONS 12893 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12894 ;TEST MQ SHIFT LOGIC GATES 12895 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12896 ;IS TESTED. 12897 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12898 ;OTHER BIT IS A ZERO AFTER ROTATING 12899 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12900 12901 005717 SN=SN+1 12902 12903 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12904 IFE, 12905 777775 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12906 037355 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12907 037356 525 07 0 00 777767 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-8 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0272 12908 IFG &777777,< 12909 037357 525 05 0 00 777775 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12910 IFE &777777,< 12911 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12912 IFE &777777,< 12913 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12914 037360 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12915 037361 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12916 037362 004 07 0 00 005717 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12917 037363 321 10 0 00 037355 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12918 12919 ;TEST AC+1 LEFT HALF 12920 ;TEST ROTC RIGHT TWO BIT POSITIONS 12921 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12922 ;TEST MQ SHIFT LOGIC GATES 12923 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12924 ;IS TESTED. 12925 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12926 ;OTHER BIT IS A ZERO AFTER ROTATING 12927 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12928 12929 005720 SN=SN+1 12930 12931 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12932 IFE, 12933 777776 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12934 037364 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12935 037365 525 07 0 00 777773 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12936 IFG &777777,< 12937 037366 525 05 0 00 777776 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12938 IFE &777777,< 12939 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12940 IFE &777777,< 12941 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12942 037367 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12943 037370 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12944 037371 004 07 0 00 005720 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12945 037372 321 10 0 00 037364 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12946 12947 ;TEST AC+1 LEFT HALF 12948 ;TEST ROTC RIGHT TWO BIT POSITIONS 12949 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12950 ;TEST MQ SHIFT LOGIC GATES 12951 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12952 ;IS TESTED. 12953 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12954 ;OTHER BIT IS A ZERO AFTER ROTATING 12955 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12956 12957 005721 SN=SN+1 12958 12959 777777 777775 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12960 IFE, 12961 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12962 037373 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-9 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0273 12963 037374 525 07 0 00 777775 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12964 IFG &777777,< 12965 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12966 IFE &777777,< 12967 037375 561 05 0 00 377777 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12968 IFE &777777,< 12969 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12970 037376 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12971 037377 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 12972 037400 004 07 0 00 005721 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 12973 037401 321 10 0 00 037373 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 12974 12975 ;TEST AC+1 LEFT HALF 12976 ;TEST ROTC RIGHT TWO BIT POSITIONS 12977 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 12978 ;TEST MQ SHIFT LOGIC GATES 12979 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 12980 ;IS TESTED. 12981 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 12982 ;OTHER BIT IS A ZERO AFTER ROTATING 12983 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 12984 12985 005722 SN=SN+1 12986 12987 777777 777776 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 12988 IFE, 12989 777777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 12990 037402 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 12991 037403 525 07 0 00 777776 HRLOI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 LEFT 12992 IFG &777777,< 12993 037404 525 05 0 00 777777 HRLOI AC-1,YY ;SETUP FOR COMPARISON> 12994 IFE &777777,< 12995 HRROI AC-1,377777 ;SETUP FOR COMPARISON> 12996 IFE &777777,< 12997 037405 561 05 0 00 577777 HRROI AC-1,577777 ;SETUP FOR COMPARISON> 12998 037406 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 12999 037407 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13000 037410 004 07 0 00 005722 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13001 037411 321 10 0 00 037403 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13002 13003 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-10 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0274 13004 000001 ZZ=1 13005 13006 REPEAT ^D16,< ;TEST AC+1 RIGHT HALF 13007 ;TEST ROTC RIGHT TWO BIT POSITIONS 13008 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13009 ;TEST MQ SHIFT LOGIC GATES 13010 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13011 ;IS TESTED. 13012 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13013 ;OTHER BIT IS A ZERO AFTER ROTATING 13014 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13015 13016 SN=SN+1 13017 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13018 IFE , 13019 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13020 SETOM AC ;INITIALIZE AC TO ALL ONES 13021 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13022 HRROI AC-1,YY ;SETUP FOR COMPARISON 13023 ROTC AC,-2 ;*ROTATE RIGHT TWO 13024 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13025 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13026 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13027 > 13028 ;TEST AC+1 RIGHT HALF 13029 ;TEST ROTC RIGHT TWO BIT POSITIONS 13030 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13031 ;TEST MQ SHIFT LOGIC GATES 13032 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13033 ;IS TESTED. 13034 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13035 ;OTHER BIT IS A ZERO AFTER ROTATING 13036 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13037 13038 005723 SN=SN+1 13039 000000 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13040 777777 377777 IFE , 13041 677777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13042 037412 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13043 037413 561 07 0 00 377777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13044 037414 561 05 0 00 677777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13045 037415 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13046 037416 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13047 037417 004 07 0 00 005723 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13048 037420 321 10 0 00 037412 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13049 13050 ;TEST AC+1 RIGHT HALF 13051 ;TEST ROTC RIGHT TWO BIT POSITIONS 13052 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13053 ;TEST MQ SHIFT LOGIC GATES 13054 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13055 ;IS TESTED. 13056 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13057 ;OTHER BIT IS A ZERO AFTER ROTATING 13058 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-11 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0275 13059 13060 005724 SN=SN+1 13061 777777 577777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13062 IFE , 13063 737777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13064 037421 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13065 037422 561 07 0 00 577777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13066 037423 561 05 0 00 737777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13067 037424 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13068 037425 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13069 037426 004 07 0 00 005724 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13070 037427 321 10 0 00 037421 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13071 13072 ;TEST AC+1 RIGHT HALF 13073 ;TEST ROTC RIGHT TWO BIT POSITIONS 13074 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13075 ;TEST MQ SHIFT LOGIC GATES 13076 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13077 ;IS TESTED. 13078 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13079 ;OTHER BIT IS A ZERO AFTER ROTATING 13080 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13081 13082 005725 SN=SN+1 13083 777777 677777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13084 IFE , 13085 757777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13086 037430 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13087 037431 561 07 0 00 677777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13088 037432 561 05 0 00 757777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13089 037433 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13090 037434 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13091 037435 004 07 0 00 005725 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13092 037436 321 10 0 00 037430 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13093 13094 ;TEST AC+1 RIGHT HALF 13095 ;TEST ROTC RIGHT TWO BIT POSITIONS 13096 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13097 ;TEST MQ SHIFT LOGIC GATES 13098 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13099 ;IS TESTED. 13100 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13101 ;OTHER BIT IS A ZERO AFTER ROTATING 13102 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13103 13104 005726 SN=SN+1 13105 777777 737777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13106 IFE , 13107 767777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13108 037437 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13109 037440 561 07 0 00 737777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13110 037441 561 05 0 00 767777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13111 037442 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13112 037443 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13113 037444 004 07 0 00 005726 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-12 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0276 13114 037445 321 10 0 00 037437 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13115 13116 ;TEST AC+1 RIGHT HALF 13117 ;TEST ROTC RIGHT TWO BIT POSITIONS 13118 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13119 ;TEST MQ SHIFT LOGIC GATES 13120 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13121 ;IS TESTED. 13122 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13123 ;OTHER BIT IS A ZERO AFTER ROTATING 13124 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13125 13126 005727 SN=SN+1 13127 777777 757777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13128 IFE , 13129 773777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13130 037446 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13131 037447 561 07 0 00 757777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13132 037450 561 05 0 00 773777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13133 037451 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13134 037452 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13135 037453 004 07 0 00 005727 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13136 037454 321 10 0 00 037446 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13137 13138 ;TEST AC+1 RIGHT HALF 13139 ;TEST ROTC RIGHT TWO BIT POSITIONS 13140 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13141 ;TEST MQ SHIFT LOGIC GATES 13142 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13143 ;IS TESTED. 13144 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13145 ;OTHER BIT IS A ZERO AFTER ROTATING 13146 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13147 13148 005730 SN=SN+1 13149 777777 767777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13150 IFE , 13151 775777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13152 037455 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13153 037456 561 07 0 00 767777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13154 037457 561 05 0 00 775777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13155 037460 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13156 037461 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13157 037462 004 07 0 00 005730 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13158 037463 321 10 0 00 037455 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13159 13160 ;TEST AC+1 RIGHT HALF 13161 ;TEST ROTC RIGHT TWO BIT POSITIONS 13162 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13163 ;TEST MQ SHIFT LOGIC GATES 13164 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13165 ;IS TESTED. 13166 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13167 ;OTHER BIT IS A ZERO AFTER ROTATING 13168 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-13 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0277 13169 13170 005731 SN=SN+1 13171 777777 773777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13172 IFE , 13173 776777 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13174 037464 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13175 037465 561 07 0 00 773777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13176 037466 561 05 0 00 776777 HRROI AC-1,YY ;SETUP FOR COMPARISON 13177 037467 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13178 037470 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13179 037471 004 07 0 00 005731 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13180 037472 321 10 0 00 037464 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13181 13182 ;TEST AC+1 RIGHT HALF 13183 ;TEST ROTC RIGHT TWO BIT POSITIONS 13184 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13185 ;TEST MQ SHIFT LOGIC GATES 13186 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13187 ;IS TESTED. 13188 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13189 ;OTHER BIT IS A ZERO AFTER ROTATING 13190 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13191 13192 005732 SN=SN+1 13193 777777 775777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13194 IFE , 13195 777377 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13196 037473 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13197 037474 561 07 0 00 775777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13198 037475 561 05 0 00 777377 HRROI AC-1,YY ;SETUP FOR COMPARISON 13199 037476 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13200 037477 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13201 037500 004 07 0 00 005732 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13202 037501 321 10 0 00 037473 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13203 13204 ;TEST AC+1 RIGHT HALF 13205 ;TEST ROTC RIGHT TWO BIT POSITIONS 13206 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13207 ;TEST MQ SHIFT LOGIC GATES 13208 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13209 ;IS TESTED. 13210 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13211 ;OTHER BIT IS A ZERO AFTER ROTATING 13212 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13213 13214 005733 SN=SN+1 13215 777777 776777 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13216 IFE , 13217 777577 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13218 037502 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13219 037503 561 07 0 00 776777 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13220 037504 561 05 0 00 777577 HRROI AC-1,YY ;SETUP FOR COMPARISON 13221 037505 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13222 037506 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13223 037507 004 07 0 00 005733 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-14 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0278 13224 037510 321 10 0 00 037502 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13225 13226 ;TEST AC+1 RIGHT HALF 13227 ;TEST ROTC RIGHT TWO BIT POSITIONS 13228 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13229 ;TEST MQ SHIFT LOGIC GATES 13230 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13231 ;IS TESTED. 13232 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13233 ;OTHER BIT IS A ZERO AFTER ROTATING 13234 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13235 13236 005734 SN=SN+1 13237 777777 777377 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13238 IFE , 13239 777677 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13240 037511 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13241 037512 561 07 0 00 777377 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13242 037513 561 05 0 00 777677 HRROI AC-1,YY ;SETUP FOR COMPARISON 13243 037514 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13244 037515 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13245 037516 004 07 0 00 005734 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13246 037517 321 10 0 00 037511 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13247 13248 ;TEST AC+1 RIGHT HALF 13249 ;TEST ROTC RIGHT TWO BIT POSITIONS 13250 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13251 ;TEST MQ SHIFT LOGIC GATES 13252 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13253 ;IS TESTED. 13254 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13255 ;OTHER BIT IS A ZERO AFTER ROTATING 13256 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13257 13258 005735 SN=SN+1 13259 777777 777577 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13260 IFE , 13261 777737 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13262 037520 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13263 037521 561 07 0 00 777577 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13264 037522 561 05 0 00 777737 HRROI AC-1,YY ;SETUP FOR COMPARISON 13265 037523 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13266 037524 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13267 037525 004 07 0 00 005735 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13268 037526 321 10 0 00 037520 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13269 13270 ;TEST AC+1 RIGHT HALF 13271 ;TEST ROTC RIGHT TWO BIT POSITIONS 13272 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13273 ;TEST MQ SHIFT LOGIC GATES 13274 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13275 ;IS TESTED. 13276 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13277 ;OTHER BIT IS A ZERO AFTER ROTATING 13278 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-15 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0279 13279 13280 005736 SN=SN+1 13281 777777 777677 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13282 IFE , 13283 777757 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13284 037527 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13285 037530 561 07 0 00 777677 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13286 037531 561 05 0 00 777757 HRROI AC-1,YY ;SETUP FOR COMPARISON 13287 037532 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13288 037533 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13289 037534 004 07 0 00 005736 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13290 037535 321 10 0 00 037527 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13291 13292 ;TEST AC+1 RIGHT HALF 13293 ;TEST ROTC RIGHT TWO BIT POSITIONS 13294 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13295 ;TEST MQ SHIFT LOGIC GATES 13296 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13297 ;IS TESTED. 13298 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13299 ;OTHER BIT IS A ZERO AFTER ROTATING 13300 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13301 13302 005737 SN=SN+1 13303 777777 777737 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13304 IFE , 13305 777767 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13306 037536 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13307 037537 561 07 0 00 777737 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13308 037540 561 05 0 00 777767 HRROI AC-1,YY ;SETUP FOR COMPARISON 13309 037541 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13310 037542 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13311 037543 004 07 0 00 005737 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13312 037544 321 10 0 00 037536 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13313 13314 ;TEST AC+1 RIGHT HALF 13315 ;TEST ROTC RIGHT TWO BIT POSITIONS 13316 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13317 ;TEST MQ SHIFT LOGIC GATES 13318 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13319 ;IS TESTED. 13320 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13321 ;OTHER BIT IS A ZERO AFTER ROTATING 13322 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13323 13324 005740 SN=SN+1 13325 777777 777757 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13326 IFE , 13327 777773 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13328 037545 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13329 037546 561 07 0 00 777757 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13330 037547 561 05 0 00 777773 HRROI AC-1,YY ;SETUP FOR COMPARISON 13331 037550 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13332 037551 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13333 037552 004 07 0 00 005740 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 27-16 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES SEQ 0280 13334 037553 321 10 0 00 037545 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13335 13336 ;TEST AC+1 RIGHT HALF 13337 ;TEST ROTC RIGHT TWO BIT POSITIONS 13338 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13339 ;TEST MQ SHIFT LOGIC GATES 13340 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13341 ;IS TESTED. 13342 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13343 ;OTHER BIT IS A ZERO AFTER ROTATING 13344 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13345 13346 005741 SN=SN+1 13347 777777 777767 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13348 IFE , 13349 777775 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13350 037554 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13351 037555 561 07 0 00 777767 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13352 037556 561 05 0 00 777775 HRROI AC-1,YY ;SETUP FOR COMPARISON 13353 037557 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13354 037560 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13355 037561 004 07 0 00 005741 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13356 037562 321 10 0 00 037554 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13357 13358 ;TEST AC+1 RIGHT HALF 13359 ;TEST ROTC RIGHT TWO BIT POSITIONS 13360 ;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ 13361 ;TEST MQ SHIFT LOGIC GATES 13362 ;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1 13363 ;IS TESTED. 13364 ;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY 13365 ;OTHER BIT IS A ZERO AFTER ROTATING 13366 ;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ 13367 13368 005742 SN=SN+1 13369 777777 777773 ZZ=/2 ;SELECTED BIT BEFORE ROTATION 13370 IFE , 13371 777776 YY=</4>&777777 ;SELECTED BIT AFTER ROTATION 13372 037563 476 00 0 00 000006 SETOM AC ;INITIALIZE AC TO ALL ONES 13373 037564 561 07 0 00 777773 HRROI AC+1,ZZ&777777 ;CLEAR BIT (N) OF AC+1 RIGHT 13374 037565 561 05 0 00 777776 HRROI AC-1,YY ;SETUP FOR COMPARISON 13375 037566 245 06 0 00 777776 ROTC AC,-2 ;*ROTATE RIGHT TWO 13376 037567 312 07 0 00 000005 CAME AC+1,AC-1 ;TEST FOR BIT (N+2) A ZERO 13377 037570 004 07 0 00 005742 ER4 AC+1,SN ;MQ GATE UNDER TEST FAILED 13378 037571 321 10 0 00 037563 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 13379 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 28 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0281 13380 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) 13381 13382 ;END CONNECTIONS-ROT 13383 ;TEST AR END BIT INPUT GATES 13384 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 13385 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 13386 ;AC IS ROTATED LEFT/RIGHT 13387 ;AND END BITS TESTED 13388 13389 ;SHIFT CONNECTIONS TEST 13390 ;TEST AR35 SHLT INP-ONE'S - ROT AC,1 13391 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13392 SR1 (60,400000,0,0,1,ROT,1)^ 13393 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] 1 BIT 13394 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 13395 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13396 13397 037572 200 06 0 00 041621 E6000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 13398 037573 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13399 037574 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13400 037575 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 13401 037576 003 06 0 00 006001 ER3 AC,6001 ;RESULT IN AC IS INCORRECT 13402 037577 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13403 037600 004 07 0 00 006001 ER4 AC+1,6001 ;C(AC+1) WAS MODIFIED INCORRECTLY 13404 037601 321 10 0 00 037572 JUMPL AC+2,E6000 ;LOOP ON ERROR SWITCH^ 13405 13406 ;SHIFT CONNECTIONS TEST 13407 ;TEST AR35 SHLT INP-ZERO'S - ROT AC,1 13408 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13409 SR1 (61,377777,-1,-1,-2,ROT,1)^ 13410 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] 1 BIT 13411 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 13412 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13413 13414 037602 200 06 0 00 041623 E6100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 13415 037603 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13416 037604 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13417 037605 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 13418 037606 003 06 0 00 006101 ER3 AC,6101 ;RESULT IN AC IS INCORRECT 13419 037607 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13420 037610 004 07 0 00 006101 ER4 AC+1,6101 ;C(AC+1) WAS MODIFIED INCORRECTLY 13421 037611 321 10 0 00 037602 JUMPL AC+2,E6100 ;LOOP ON ERROR SWITCH^ 13422 13423 ;SHIFT CONNECTIONS TEST 13424 ;TEST AR34 SHLT INP-ONE'S - ROT AC,1 13425 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13426 SR1 (62,0,1,0,2,ROT,1)^ 13427 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT 13428 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 13429 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13430 13431 037612 200 06 0 00 041622 E6200: MOVE AC,[XWD 0,1] ;INITIALIZE AC 13432 037613 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13433 037614 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13434 037615 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 28-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0282 13435 037616 003 06 0 00 006201 ER3 AC,6201 ;RESULT IN AC IS INCORRECT 13436 037617 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13437 037620 004 07 0 00 006201 ER4 AC+1,6201 ;C(AC+1) WAS MODIFIED INCORRECTLY 13438 037621 321 10 0 00 037612 JUMPL AC+2,E6200 ;LOOP ON ERROR SWITCH^ 13439 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 28-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0283 13440 ;SHIFT CONNECTIONS TEST 13441 ;TEST AR34 SHLT INP-ZERO'S - ROT AC,1 13442 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13443 SR1 (63,-1,-2,-1,-3,ROT,1)^ 13444 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT 13445 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3] 13446 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13447 13448 037622 200 06 0 00 041624 E6300: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 13449 037623 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13450 037624 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13451 037625 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 13452 037626 003 06 0 00 006301 ER3 AC,6301 ;RESULT IN AC IS INCORRECT 13453 037627 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13454 037630 004 07 0 00 006301 ER4 AC+1,6301 ;C(AC+1) WAS MODIFIED INCORRECTLY 13455 037631 321 10 0 00 037622 JUMPL AC+2,E6300 ;LOOP ON ERROR SWITCH^ 13456 13457 ;SHIFT CONNECTIONS TEST 13458 ;TEST AR1 SHLT INP-ONE'S - ROT AC,1 13459 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13460 SR1 (64,100000,0,200000,0,ROT,1)^ 13461 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT 13462 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 13463 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13464 13465 037632 200 06 0 00 041626 E6400: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 13466 037633 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13467 037634 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13468 037635 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 13469 037636 003 06 0 00 006401 ER3 AC,6401 ;RESULT IN AC IS INCORRECT 13470 037637 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13471 037640 004 07 0 00 006401 ER4 AC+1,6401 ;C(AC+1) WAS MODIFIED INCORRECTLY 13472 037641 321 10 0 00 037632 JUMPL AC+2,E6400 ;LOOP ON ERROR SWITCH^ 13473 13474 ;SHIFT CONNECTIONS TEST 13475 ;TEST AR1 SHLT INP-ZERO'S - ROT AC,1 13476 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13477 SR1 (65,677777,-1,577777,-1,ROT,1)^ 13478 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT 13479 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1] 13480 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13481 13482 037642 200 06 0 00 041630 E6500: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 13483 037643 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13484 037644 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13485 037645 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 13486 037646 003 06 0 00 006501 ER3 AC,6501 ;RESULT IN AC IS INCORRECT 13487 037647 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13488 037650 004 07 0 00 006501 ER4 AC+1,6501 ;C(AC+1) WAS MODIFIED INCORRECTLY 13489 037651 321 10 0 00 037642 JUMPL AC+2,E6500 ;LOOP ON ERROR SWITCH^ 13490 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 28-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0284 13491 ;SHIFT CONNECTIONS TEST 13492 ;TEST AR0 SHLT INP-ONE'S - ROT AC,1 13493 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13494 SR1 (66,200000,0,400000,0,ROT,1)^ 13495 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 200000,0] 1 BIT 13496 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0] 13497 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13498 13499 037652 200 06 0 00 041627 E6600: MOVE AC,[XWD 200000,0] ;INITIALIZE AC 13500 037653 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13501 037654 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13502 037655 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 13503 037656 003 06 0 00 006601 ER3 AC,6601 ;RESULT IN AC IS INCORRECT 13504 037657 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13505 037660 004 07 0 00 006601 ER4 AC+1,6601 ;C(AC+1) WAS MODIFIED INCORRECTLY 13506 037661 321 10 0 00 037652 JUMPL AC+2,E6600 ;LOOP ON ERROR SWITCH^ 13507 13508 ;SHIFT CONNECTIONS TEST 13509 ;TEST AR0 SHLT INP-ZERO'S - ROT AC,1 13510 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13511 SR1 (67,577777,-1,377777,-1,ROT,1)^ 13512 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 577777,-1] 1 BIT 13513 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1] 13514 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13515 13516 037662 200 06 0 00 041631 E6700: MOVE AC,[XWD 577777,-1] ;INITIALIZE AC 13517 037663 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13518 037664 241 06 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13519 037665 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 13520 037666 003 06 0 00 006701 ER3 AC,6701 ;RESULT IN AC IS INCORRECT 13521 037667 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13522 037670 004 07 0 00 006701 ER4 AC+1,6701 ;C(AC+1) WAS MODIFIED INCORRECTLY 13523 037671 321 10 0 00 037662 JUMPL AC+2,E6700 ;LOOP ON ERROR SWITCH^ 13524 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 29 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0285 13525 ;SHIFT CONNECTIONS TEST 13526 ;TEST AR0 SHRT INP-ONE'S - ROT AC,-1 13527 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13528 SR1 (70,0,1,400000,0,ROT,-1)^ 13529 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] -1 BIT 13530 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0] 13531 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13532 13533 037672 200 06 0 00 041622 E7000: MOVE AC,[XWD 0,1] ;INITIALIZE AC 13534 037673 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13535 037674 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13536 037675 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 13537 037676 003 06 0 00 007001 ER3 AC,7001 ;RESULT IN AC IS INCORRECT 13538 037677 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13539 037700 004 07 0 00 007001 ER4 AC+1,7001 ;C(AC+1) WAS MODIFIED INCORRECTLY 13540 037701 321 10 0 00 037672 JUMPL AC+2,E7000 ;LOOP ON ERROR SWITCH^ 13541 13542 ;SHIFT CONNECTIONS TEST 13543 ;TEST AR0 SHRT INP-ZERO'S - ROT AC,-1 13544 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13545 SR1 (71,-1,-2,377777,-1,ROT,-1)^ 13546 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] -1 BIT 13547 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1] 13548 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13549 13550 037702 200 06 0 00 041624 E7100: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 13551 037703 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13552 037704 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13553 037705 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 13554 037706 003 06 0 00 007101 ER3 AC,7101 ;RESULT IN AC IS INCORRECT 13555 037707 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13556 037710 004 07 0 00 007101 ER4 AC+1,7101 ;C(AC+1) WAS MODIFIED INCORRECTLY 13557 037711 321 10 0 00 037702 JUMPL AC+2,E7100 ;LOOP ON ERROR SWITCH^ 13558 13559 ;SHIFT CONNECTIONS TEST 13560 ;TEST AR1 SHRT INP-ONE'S - ROT AC,-1 13561 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13562 SR1 (72,400000,0,200000,0,ROT,-1)^ 13563 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT 13564 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 13565 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13566 13567 037712 200 06 0 00 041621 E7200: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 13568 037713 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13569 037714 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13570 037715 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 13571 037716 003 06 0 00 007201 ER3 AC,7201 ;RESULT IN AC IS INCORRECT 13572 037717 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13573 037720 004 07 0 00 007201 ER4 AC+1,7201 ;C(AC+1) WAS MODIFIED INCORRECTLY 13574 037721 321 10 0 00 037712 JUMPL AC+2,E7200 ;LOOP ON ERROR SWITCH^ 13575 13576 ;SHIFT CONNECTIONS TEST 13577 ;TEST AR1 SHRT INP-ZERO'S - ROT AC,-1 13578 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13579 SR1 (73,377777,-1,577777,-1,ROT,-1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 29-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0286 13580 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT 13581 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1] 13582 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13583 13584 037722 200 06 0 00 041623 E7300: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 13585 037723 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13586 037724 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13587 037725 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 13588 037726 003 06 0 00 007301 ER3 AC,7301 ;RESULT IN AC IS INCORRECT 13589 037727 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13590 037730 004 07 0 00 007301 ER4 AC+1,7301 ;C(AC+1) WAS MODIFIED INCORRECTLY 13591 037731 321 10 0 00 037722 JUMPL AC+2,E7300 ;LOOP ON ERROR SWITCH^ 13592 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 29-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0287 13593 ;SHIFT CONNECTIONS TEST 13594 ;TEST AR34 SHRT INP-ONE'S - ROT AC,-1 13595 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13596 SR1 (74,0,4,0,2,ROT,-1)^ 13597 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT 13598 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 13599 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13600 13601 037732 200 06 0 00 041617 E7400: MOVE AC,[XWD 0,4] ;INITIALIZE AC 13602 037733 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13603 037734 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13604 037735 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 13605 037736 003 06 0 00 007401 ER3 AC,7401 ;RESULT IN AC IS INCORRECT 13606 037737 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13607 037740 004 07 0 00 007401 ER4 AC+1,7401 ;C(AC+1) WAS MODIFIED INCORRECTLY 13608 037741 321 10 0 00 037732 JUMPL AC+2,E7400 ;LOOP ON ERROR SWITCH^ 13609 13610 ;SHIFT CONNECTIONS TEST 13611 ;TEST AR34 SHRT INP-ZERO'S - ROT AC,-1 13612 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13613 SR1 (75,-1,-5,-1,-3,ROT,-1)^ 13614 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT 13615 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3] 13616 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13617 13618 037742 200 06 0 00 041632 E7500: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 13619 037743 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13620 037744 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13621 037745 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 13622 037746 003 06 0 00 007501 ER3 AC,7501 ;RESULT IN AC IS INCORRECT 13623 037747 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13624 037750 004 07 0 00 007501 ER4 AC+1,7501 ;C(AC+1) WAS MODIFIED INCORRECTLY 13625 037751 321 10 0 00 037742 JUMPL AC+2,E7500 ;LOOP ON ERROR SWITCH^ 13626 13627 ;SHIFT CONNECTIONS TEST 13628 ;TEST AR35 SHRT INP-ONE'S - ROT AC,-1 13629 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13630 SR1 (76,0,2,0,1,ROT,-1)^ 13631 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT 13632 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 13633 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13634 13635 037752 200 06 0 00 041620 E7600: MOVE AC,[XWD 0,2] ;INITIALIZE AC 13636 037753 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13637 037754 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13638 037755 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 13639 037756 003 06 0 00 007601 ER3 AC,7601 ;RESULT IN AC IS INCORRECT 13640 037757 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13641 037760 004 07 0 00 007601 ER4 AC+1,7601 ;C(AC+1) WAS MODIFIED INCORRECTLY 13642 037761 321 10 0 00 037752 JUMPL AC+2,E7600 ;LOOP ON ERROR SWITCH^ 13643 13644 ;SHIFT CONNECTIONS TEST 13645 ;TEST AR35 SHRT INP-ZERO'S - ROT AC,-1 13646 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13647 SR1 (77,-1,-3,-1,-2,ROT,-1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 29-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0288 13648 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT 13649 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 13650 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13651 13652 037762 200 06 0 00 041625 E7700: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 13653 037763 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13654 037764 241 06 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13655 037765 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 13656 037766 003 06 0 00 007701 ER3 AC,7701 ;RESULT IN AC IS INCORRECT 13657 037767 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13658 037770 004 07 0 00 007701 ER4 AC+1,7701 ;C(AC+1) WAS MODIFIED INCORRECTLY 13659 037771 321 10 0 00 037762 JUMPL AC+2,E7700 ;LOOP ON ERROR SWITCH^ 13660 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 30 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0289 13661 ;SHIFT CONNECTIONS TEST 13662 ;TEST AR0 SHRT INP-ONE'S - ROT AC,-2 13663 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13664 SR1 (100,0,2,400000,0,ROT,-2)^ 13665 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -2 BIT 13666 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0] 13667 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13668 13669 037772 200 06 0 00 041620 E10000: MOVE AC,[XWD 0,2] ;INITIALIZE AC 13670 037773 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13671 037774 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13672 037775 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 13673 037776 003 06 0 00 010001 ER3 AC,10001 ;RESULT IN AC IS INCORRECT 13674 037777 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13675 040000 004 07 0 00 010001 ER4 AC+1,10001 ;C(AC+1) WAS MODIFIED INCORRECTLY 13676 040001 321 10 0 00 037772 JUMPL AC+2,E10000 ;LOOP ON ERROR SWITCH^ 13677 13678 ;SHIFT CONNECTIONS TEST 13679 ;TEST AR0 SHRT INP-ZERO'S - ROT AC,-2 13680 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 13681 SR1 (101,-1,-3,377777,-1,ROT,-2)^ 13682 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -2 BIT 13683 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1] 13684 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13685 13686 040002 200 06 0 00 041625 E10100: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 13687 040003 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13688 040004 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13689 040005 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 13690 040006 003 06 0 00 010101 ER3 AC,10101 ;RESULT IN AC IS INCORRECT 13691 040007 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13692 040010 004 07 0 00 010101 ER4 AC+1,10101 ;C(AC+1) WAS MODIFIED INCORRECTLY 13693 040011 321 10 0 00 040002 JUMPL AC+2,E10100 ;LOOP ON ERROR SWITCH^ 13694 13695 ;SHIFT CONNECTIONS TEST 13696 ;TEST AR1 SHRT INP-ONE'S - ROT AC,-2 13697 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13698 SR1 (102,0,1,200000,0,ROT,-2)^ 13699 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] -2 BIT 13700 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 13701 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13702 13703 040012 200 06 0 00 041622 E10200: MOVE AC,[XWD 0,1] ;INITIALIZE AC 13704 040013 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13705 040014 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13706 040015 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 13707 040016 003 06 0 00 010201 ER3 AC,10201 ;RESULT IN AC IS INCORRECT 13708 040017 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13709 040020 004 07 0 00 010201 ER4 AC+1,10201 ;C(AC+1) WAS MODIFIED INCORRECTLY 13710 040021 321 10 0 00 040012 JUMPL AC+2,E10200 ;LOOP ON ERROR SWITCH^ 13711 13712 ;SHIFT CONNECTIONS TEST 13713 ;TEST AR1 SHRT INP-ZERO'S - ROT AC,-2 13714 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 13715 SR1 (103,-1,-2,577777,-1,ROT,-2)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 30-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0290 13716 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] -2 BIT 13717 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1] 13718 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13719 13720 040022 200 06 0 00 041624 E10300: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 13721 040023 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13722 040024 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13723 040025 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 13724 040026 003 06 0 00 010301 ER3 AC,10301 ;RESULT IN AC IS INCORRECT 13725 040027 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13726 040030 004 07 0 00 010301 ER4 AC+1,10301 ;C(AC+1) WAS MODIFIED INCORRECTLY 13727 040031 321 10 0 00 040022 JUMPL AC+2,E10300 ;LOOP ON ERROR SWITCH^ 13728 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 30-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0291 13729 ;SHIFT CONNECTIONS TEST 13730 ;TEST AR34 SHRT INP-ONE'S - ROT AC,-2 13731 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13732 SR1 (104,0,10,0,2,ROT,-2)^ 13733 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT 13734 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 13735 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13736 13737 040032 200 06 0 00 041614 E10400: MOVE AC,[XWD 0,10] ;INITIALIZE AC 13738 040033 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13739 040034 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13740 040035 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 13741 040036 003 06 0 00 010401 ER3 AC,10401 ;RESULT IN AC IS INCORRECT 13742 040037 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13743 040040 004 07 0 00 010401 ER4 AC+1,10401 ;C(AC+1) WAS MODIFIED INCORRECTLY 13744 040041 321 10 0 00 040032 JUMPL AC+2,E10400 ;LOOP ON ERROR SWITCH^ 13745 13746 ;SHIFT CONNECTIONS TEST 13747 ;TEST AR34 SHRT INP-ZERO'S - ROT AC,-2 13748 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 13749 SR1 (105,-1,-11,-1,-3,ROT,-2)^ 13750 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT 13751 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3] 13752 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13753 13754 040042 200 06 0 00 041633 E10500: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 13755 040043 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13756 040044 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13757 040045 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 13758 040046 003 06 0 00 010501 ER3 AC,10501 ;RESULT IN AC IS INCORRECT 13759 040047 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13760 040050 004 07 0 00 010501 ER4 AC+1,10501 ;C(AC+1) WAS MODIFIED INCORRECTLY 13761 040051 321 10 0 00 040042 JUMPL AC+2,E10500 ;LOOP ON ERROR SWITCH^ 13762 13763 ;SHIFT CONNECTIONS TEST 13764 ;TEST AR35 SHRT INP-ONE'S - ROT AC,-2 13765 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13766 SR1 (106,0,4,0,1,ROT,-2)^ 13767 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT 13768 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 13769 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13770 13771 040052 200 06 0 00 041617 E10600: MOVE AC,[XWD 0,4] ;INITIALIZE AC 13772 040053 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13773 040054 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13774 040055 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 13775 040056 003 06 0 00 010601 ER3 AC,10601 ;RESULT IN AC IS INCORRECT 13776 040057 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13777 040060 004 07 0 00 010601 ER4 AC+1,10601 ;C(AC+1) WAS MODIFIED INCORRECTLY 13778 040061 321 10 0 00 040052 JUMPL AC+2,E10600 ;LOOP ON ERROR SWITCH^ 13779 13780 ;SHIFT CONNECTIONS TEST 13781 ;TEST AR35 SHRT INP-ZERO'S - ROT AC,-2 13782 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 13783 SR1 (107,-1,-5,-1,-2,ROT,-2)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 30-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT) SEQ 0292 13784 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT 13785 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 13786 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13787 13788 040062 200 06 0 00 041632 E10700: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 13789 040063 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13790 040064 241 06 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 13791 040065 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 13792 040066 003 06 0 00 010701 ER3 AC,10701 ;RESULT IN AC IS INCORRECT 13793 040067 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13794 040070 004 07 0 00 010701 ER4 AC+1,10701 ;C(AC+1) WAS MODIFIED INCORRECTLY 13795 040071 321 10 0 00 040062 JUMPL AC+2,E10700 ;LOOP ON ERROR SWITCH^ 13796 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 31 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0293 13797 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) 13798 13799 ;END CONNECTIONS-LSH 13800 ;TEST AR END BIT INPUT GATES 13801 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 13802 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 13803 ;AC IS SHIFTED LEFT/RIGHT 13804 ;AND END BITS TESTED 13805 13806 ;SHIFT CONNECTIONS TEST 13807 ;TEST AR35 SHLT INP-ZERO'S - LSH AC,1 13808 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 13809 SR1 (110,-1,-1,-1,-2,LSH,1)^ 13810 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] 1 BIT 13811 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 13812 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13813 13814 040072 200 06 0 00 041613 E11000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 13815 040073 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13816 040074 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13817 040075 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 13818 040076 003 06 0 00 011001 ER3 AC,11001 ;RESULT IN AC IS INCORRECT 13819 040077 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13820 040100 004 07 0 00 011001 ER4 AC+1,11001 ;C(AC+1) WAS MODIFIED INCORRECTLY 13821 040101 321 10 0 00 040072 JUMPL AC+2,E11000 ;LOOP ON ERROR SWITCH^ 13822 13823 ;SHIFT CONNECTIONS TEST 13824 ;TEST AR34 SHLT INP-ONE'S - LSH AC,1 13825 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 13826 SR1 (111,0,1,0,2,LSH,1)^ 13827 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT 13828 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 13829 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13830 13831 040102 200 06 0 00 041622 E11100: MOVE AC,[XWD 0,1] ;INITIALIZE AC 13832 040103 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13833 040104 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13834 040105 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 13835 040106 003 06 0 00 011101 ER3 AC,11101 ;RESULT IN AC IS INCORRECT 13836 040107 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13837 040110 004 07 0 00 011101 ER4 AC+1,11101 ;C(AC+1) WAS MODIFIED INCORRECTLY 13838 040111 321 10 0 00 040102 JUMPL AC+2,E11100 ;LOOP ON ERROR SWITCH^ 13839 13840 ;SHIFT CONNECTIONS TEST 13841 ;TEST AR34 SHLT INP-ZERO'S - LSH AC,1 13842 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 13843 SR1 (112,-1,-2,-1,-4,LSH,1)^ 13844 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT 13845 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-4] 13846 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13847 13848 040112 200 06 0 00 041624 E11200: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 13849 040113 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13850 040114 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13851 040115 312 06 0 00 041634 CAME AC,[XWD -1,-4] ;IS RESULT IN AC CORRECT? DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 31-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0294 13852 040116 003 06 0 00 011201 ER3 AC,11201 ;RESULT IN AC IS INCORRECT 13853 040117 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13854 040120 004 07 0 00 011201 ER4 AC+1,11201 ;C(AC+1) WAS MODIFIED INCORRECTLY 13855 040121 321 10 0 00 040112 JUMPL AC+2,E11200 ;LOOP ON ERROR SWITCH^ 13856 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 31-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0295 13857 ;SHIFT CONNECTIONS TEST 13858 ;TEST AR1 SHLT INP-ONE'S - LSH AC,1 13859 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 13860 SR1 (113,100000,0,200000,0,LSH,1)^ 13861 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT 13862 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 13863 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13864 13865 040122 200 06 0 00 041626 E11300: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 13866 040123 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13867 040124 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13868 040125 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 13869 040126 003 06 0 00 011301 ER3 AC,11301 ;RESULT IN AC IS INCORRECT 13870 040127 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13871 040130 004 07 0 00 011301 ER4 AC+1,11301 ;C(AC+1) WAS MODIFIED INCORRECTLY 13872 040131 321 10 0 00 040122 JUMPL AC+2,E11300 ;LOOP ON ERROR SWITCH^ 13873 13874 ;SHIFT CONNECTIONS TEST 13875 ;TEST AR1 SHLT INP-ZERO'S - LSH AC,1 13876 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 13877 SR1 (114,677777,-1,577777,-2,LSH,1)^ 13878 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT 13879 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-2] 13880 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13881 13882 040132 200 06 0 00 041630 E11400: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 13883 040133 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13884 040134 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13885 040135 312 06 0 00 041635 CAME AC,[XWD 577777,-2] ;IS RESULT IN AC CORRECT? 13886 040136 003 06 0 00 011401 ER3 AC,11401 ;RESULT IN AC IS INCORRECT 13887 040137 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13888 040140 004 07 0 00 011401 ER4 AC+1,11401 ;C(AC+1) WAS MODIFIED INCORRECTLY 13889 040141 321 10 0 00 040132 JUMPL AC+2,E11400 ;LOOP ON ERROR SWITCH^ 13890 13891 ;SHIFT CONNECTIONS TEST 13892 ;TEST AR0 SHLT INP-ONE'S - LSH AC,1 13893 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 13894 SR1 (115,200000,0,400000,0,LSH,1)^ 13895 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 200000,0] 1 BIT 13896 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0] 13897 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13898 13899 040142 200 06 0 00 041627 E11500: MOVE AC,[XWD 200000,0] ;INITIALIZE AC 13900 040143 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13901 040144 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13902 040145 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 13903 040146 003 06 0 00 011501 ER3 AC,11501 ;RESULT IN AC IS INCORRECT 13904 040147 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13905 040150 004 07 0 00 011501 ER4 AC+1,11501 ;C(AC+1) WAS MODIFIED INCORRECTLY 13906 040151 321 10 0 00 040142 JUMPL AC+2,E11500 ;LOOP ON ERROR SWITCH^ 13907 13908 ;SHIFT CONNECTIONS TEST 13909 ;TEST AR0 SHLT INP-ZERO'S - LSH AC,1 13910 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 13911 SR1 (116,577777,-1,377777,-2,LSH,1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 31-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0296 13912 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 577777,-1] 1 BIT 13913 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2] 13914 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13915 13916 040152 200 06 0 00 041631 E11600: MOVE AC,[XWD 577777,-1] ;INITIALIZE AC 13917 040153 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13918 040154 242 06 0 00 000001 LSH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 13919 040155 312 06 0 00 041636 CAME AC,[XWD 377777,-2] ;IS RESULT IN AC CORRECT? 13920 040156 003 06 0 00 011601 ER3 AC,11601 ;RESULT IN AC IS INCORRECT 13921 040157 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13922 040160 004 07 0 00 011601 ER4 AC+1,11601 ;C(AC+1) WAS MODIFIED INCORRECTLY 13923 040161 321 10 0 00 040152 JUMPL AC+2,E11600 ;LOOP ON ERROR SWITCH^ 13924 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 32 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0297 13925 ;SHIFT CONNECTIONS TEST 13926 ;TEST AR0 SHRT INP-ZERO'S - LSH AC,-1 13927 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 13928 SR1 (117,-1,-1,377777,-1,LSH,-1)^ 13929 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -1 BIT 13930 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1] 13931 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13932 13933 040162 200 06 0 00 041613 E11700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 13934 040163 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13935 040164 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13936 040165 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 13937 040166 003 06 0 00 011701 ER3 AC,11701 ;RESULT IN AC IS INCORRECT 13938 040167 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13939 040170 004 07 0 00 011701 ER4 AC+1,11701 ;C(AC+1) WAS MODIFIED INCORRECTLY 13940 040171 321 10 0 00 040162 JUMPL AC+2,E11700 ;LOOP ON ERROR SWITCH^ 13941 13942 ;SHIFT CONNECTIONS TEST 13943 ;TEST AR1 SHRT INP-ONE'S - LSH AC,-1 13944 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 13945 SR1 (120,400000,0,200000,0,LSH,-1)^ 13946 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT 13947 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 13948 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13949 13950 040172 200 06 0 00 041621 E12000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 13951 040173 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13952 040174 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13953 040175 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 13954 040176 003 06 0 00 012001 ER3 AC,12001 ;RESULT IN AC IS INCORRECT 13955 040177 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13956 040200 004 07 0 00 012001 ER4 AC+1,12001 ;C(AC+1) WAS MODIFIED INCORRECTLY 13957 040201 321 10 0 00 040172 JUMPL AC+2,E12000 ;LOOP ON ERROR SWITCH^ 13958 13959 ;SHIFT CONNECTIONS TEST 13960 ;TEST AR1 SHRT INP-ZERO'S - LSH AC,-1 13961 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 13962 SR1 (121,377777,-1,177777,-1,LSH,-1)^ 13963 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT 13964 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1] 13965 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13966 13967 040202 200 06 0 00 041623 E12100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 13968 040203 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13969 040204 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13970 040205 312 06 0 00 041637 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 13971 040206 003 06 0 00 012101 ER3 AC,12101 ;RESULT IN AC IS INCORRECT 13972 040207 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13973 040210 004 07 0 00 012101 ER4 AC+1,12101 ;C(AC+1) WAS MODIFIED INCORRECTLY 13974 040211 321 10 0 00 040202 JUMPL AC+2,E12100 ;LOOP ON ERROR SWITCH^ 13975 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 32-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0298 13976 ;SHIFT CONNECTIONS TEST 13977 ;TEST AR34 SHRT INP-ONE'S - LSH AC,-1 13978 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 13979 SR1 (122,0,4,0,2,LSH,-1)^ 13980 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT 13981 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 13982 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 13983 13984 040212 200 06 0 00 041617 E12200: MOVE AC,[XWD 0,4] ;INITIALIZE AC 13985 040213 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 13986 040214 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 13987 040215 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 13988 040216 003 06 0 00 012201 ER3 AC,12201 ;RESULT IN AC IS INCORRECT 13989 040217 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 13990 040220 004 07 0 00 012201 ER4 AC+1,12201 ;C(AC+1) WAS MODIFIED INCORRECTLY 13991 040221 321 10 0 00 040212 JUMPL AC+2,E12200 ;LOOP ON ERROR SWITCH^ 13992 13993 ;SHIFT CONNECTIONS TEST 13994 ;TEST AR34 SHRT INP-ZERO'S - LSH AC,-1 13995 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 13996 SR1 (123,-1,-5,377777,-3,LSH,-1)^ 13997 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT 13998 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-3] 13999 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14000 14001 040222 200 06 0 00 041632 E12300: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 14002 040223 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14003 040224 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14004 040225 312 06 0 00 041640 CAME AC,[XWD 377777,-3] ;IS RESULT IN AC CORRECT? 14005 040226 003 06 0 00 012301 ER3 AC,12301 ;RESULT IN AC IS INCORRECT 14006 040227 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14007 040230 004 07 0 00 012301 ER4 AC+1,12301 ;C(AC+1) WAS MODIFIED INCORRECTLY 14008 040231 321 10 0 00 040222 JUMPL AC+2,E12300 ;LOOP ON ERROR SWITCH^ 14009 14010 ;SHIFT CONNECTIONS TEST 14011 ;TEST AR35 SHRT INP-ONE'S - LSH AC,-1 14012 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14013 SR1 (124,0,2,0,1,LSH,-1)^ 14014 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT 14015 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 14016 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14017 14018 040232 200 06 0 00 041620 E12400: MOVE AC,[XWD 0,2] ;INITIALIZE AC 14019 040233 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14020 040234 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14021 040235 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14022 040236 003 06 0 00 012401 ER3 AC,12401 ;RESULT IN AC IS INCORRECT 14023 040237 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14024 040240 004 07 0 00 012401 ER4 AC+1,12401 ;C(AC+1) WAS MODIFIED INCORRECTLY 14025 040241 321 10 0 00 040232 JUMPL AC+2,E12400 ;LOOP ON ERROR SWITCH^ 14026 14027 ;SHIFT CONNECTIONS TEST 14028 ;TEST AR35 SHRT INP-ZERO'S - LSH AC,-1 14029 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14030 SR1 (125,-1,-3,377777,-2,LSH,-1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 32-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0299 14031 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT 14032 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2] 14033 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14034 14035 040242 200 06 0 00 041625 E12500: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 14036 040243 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14037 040244 242 06 0 00 777777 LSH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14038 040245 312 06 0 00 041636 CAME AC,[XWD 377777,-2] ;IS RESULT IN AC CORRECT? 14039 040246 003 06 0 00 012501 ER3 AC,12501 ;RESULT IN AC IS INCORRECT 14040 040247 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14041 040250 004 07 0 00 012501 ER4 AC+1,12501 ;C(AC+1) WAS MODIFIED INCORRECTLY 14042 040251 321 10 0 00 040242 JUMPL AC+2,E12500 ;LOOP ON ERROR SWITCH^ 14043 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 33 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0300 14044 ;SHIFT CONNECTIONS TEST 14045 ;TEST AR0 SHRT INP-ZERO'S - LSH AC,-2 14046 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14047 SR1 (126,-1,-1,177777,-1,LSH,-2)^ 14048 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -2 BIT 14049 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1] 14050 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14051 14052 040252 200 06 0 00 041613 E12600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14053 040253 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14054 040254 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14055 040255 312 06 0 00 041637 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 14056 040256 003 06 0 00 012601 ER3 AC,12601 ;RESULT IN AC IS INCORRECT 14057 040257 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14058 040260 004 07 0 00 012601 ER4 AC+1,12601 ;C(AC+1) WAS MODIFIED INCORRECTLY 14059 040261 321 10 0 00 040252 JUMPL AC+2,E12600 ;LOOP ON ERROR SWITCH^ 14060 14061 ;SHIFT CONNECTIONS TEST 14062 ;TEST AR1 SHRT INP-ZERO'S - LSH AC,-2 14063 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14064 SR1 (127,-1,-1,177777,-1,LSH,-2)^ 14065 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -2 BIT 14066 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1] 14067 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14068 14069 040262 200 06 0 00 041613 E12700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14070 040263 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14071 040264 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14072 040265 312 06 0 00 041637 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 14073 040266 003 06 0 00 012701 ER3 AC,12701 ;RESULT IN AC IS INCORRECT 14074 040267 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14075 040270 004 07 0 00 012701 ER4 AC+1,12701 ;C(AC+1) WAS MODIFIED INCORRECTLY 14076 040271 321 10 0 00 040262 JUMPL AC+2,E12700 ;LOOP ON ERROR SWITCH^ 14077 14078 ;SHIFT CONNECTIONS TEST 14079 ;TEST AR34 SHRT INP-ONE'S - LSH AC,-2 14080 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14081 SR1 (130,0,10,0,2,LSH,-2)^ 14082 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT 14083 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 14084 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14085 14086 040272 200 06 0 00 041614 E13000: MOVE AC,[XWD 0,10] ;INITIALIZE AC 14087 040273 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14088 040274 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14089 040275 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14090 040276 003 06 0 00 013001 ER3 AC,13001 ;RESULT IN AC IS INCORRECT 14091 040277 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14092 040300 004 07 0 00 013001 ER4 AC+1,13001 ;C(AC+1) WAS MODIFIED INCORRECTLY 14093 040301 321 10 0 00 040272 JUMPL AC+2,E13000 ;LOOP ON ERROR SWITCH^ 14094 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 33-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH) SEQ 0301 14095 ;SHIFT CONNECTIONS TEST 14096 ;TEST AR34 SHRT INP-ZERO'S - LSH AC,-2 14097 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14098 SR1 (131,-1,-11,177777,-3,LSH,-2)^ 14099 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT 14100 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-3] 14101 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14102 14103 040302 200 06 0 00 041633 E13100: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 14104 040303 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14105 040304 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14106 040305 312 06 0 00 041641 CAME AC,[XWD 177777,-3] ;IS RESULT IN AC CORRECT? 14107 040306 003 06 0 00 013101 ER3 AC,13101 ;RESULT IN AC IS INCORRECT 14108 040307 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14109 040310 004 07 0 00 013101 ER4 AC+1,13101 ;C(AC+1) WAS MODIFIED INCORRECTLY 14110 040311 321 10 0 00 040302 JUMPL AC+2,E13100 ;LOOP ON ERROR SWITCH^ 14111 14112 ;SHIFT CONNECTIONS TEST 14113 ;TEST AR35 SHRT INP-ONE'S - LSH AC,-2 14114 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14115 SR1 (132,0,4,0,1,LSH,-2)^ 14116 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT 14117 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 14118 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14119 14120 040312 200 06 0 00 041617 E13200: MOVE AC,[XWD 0,4] ;INITIALIZE AC 14121 040313 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14122 040314 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14123 040315 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14124 040316 003 06 0 00 013201 ER3 AC,13201 ;RESULT IN AC IS INCORRECT 14125 040317 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14126 040320 004 07 0 00 013201 ER4 AC+1,13201 ;C(AC+1) WAS MODIFIED INCORRECTLY 14127 040321 321 10 0 00 040312 JUMPL AC+2,E13200 ;LOOP ON ERROR SWITCH^ 14128 14129 ;SHIFT CONNECTIONS TEST 14130 ;TEST AR35 SHRT INP-ZERO'S - LSH AC,-2 14131 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14132 SR1 (133,-1,-5,177777,-2,LSH,-2)^ 14133 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT 14134 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-2] 14135 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14136 14137 040322 200 06 0 00 041632 E13300: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 14138 040323 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14139 040324 242 06 0 00 777776 LSH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14140 040325 312 06 0 00 041642 CAME AC,[XWD 177777,-2] ;IS RESULT IN AC CORRECT? 14141 040326 003 06 0 00 013301 ER3 AC,13301 ;RESULT IN AC IS INCORRECT 14142 040327 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14143 040330 004 07 0 00 013301 ER4 AC+1,13301 ;C(AC+1) WAS MODIFIED INCORRECTLY 14144 040331 321 10 0 00 040322 JUMPL AC+2,E13300 ;LOOP ON ERROR SWITCH^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 34 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0302 14145 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) 14146 14147 ;END CONNECTIONS-ASH 14148 ;TEST AR END BIT INPUT GATES 14149 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 14150 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 14151 ;AC IS SHIFTD LEFT/RIGHT 14152 ;AND END BITS TESTED 14153 14154 ;SHIFT CONNECTIONS TEST 14155 ;TEST AR35 SHLT INP-ZERO'S - ASH AC,1 14156 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14157 SR1 (134,-1,-1,-1,-2,ASH,1)^ 14158 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] 1 BIT 14159 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 14160 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14161 14162 040332 200 06 0 00 041613 E13400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14163 040333 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14164 040334 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14165 040335 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 14166 040336 003 06 0 00 013401 ER3 AC,13401 ;RESULT IN AC IS INCORRECT 14167 040337 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14168 040340 004 07 0 00 013401 ER4 AC+1,13401 ;C(AC+1) WAS MODIFIED INCORRECTLY 14169 040341 321 10 0 00 040332 JUMPL AC+2,E13400 ;LOOP ON ERROR SWITCH^ 14170 14171 ;SHIFT CONNECTIONS TEST 14172 ;TEST AR34 SHLT INP-ONE'S - ASH AC,1 14173 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14174 SR1 (135,0,1,0,2,ASH,1)^ 14175 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT 14176 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 14177 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14178 14179 040342 200 06 0 00 041622 E13500: MOVE AC,[XWD 0,1] ;INITIALIZE AC 14180 040343 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14181 040344 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14182 040345 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14183 040346 003 06 0 00 013501 ER3 AC,13501 ;RESULT IN AC IS INCORRECT 14184 040347 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14185 040350 004 07 0 00 013501 ER4 AC+1,13501 ;C(AC+1) WAS MODIFIED INCORRECTLY 14186 040351 321 10 0 00 040342 JUMPL AC+2,E13500 ;LOOP ON ERROR SWITCH^ 14187 14188 ;SHIFT CONNECTIONS TEST 14189 ;TEST AR34 SHLT INP-ZERO'S - ASH AC,1 14190 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14191 SR1 (136,-1,-2,-1,-4,ASH,1)^ 14192 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT 14193 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-4] 14194 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14195 14196 040352 200 06 0 00 041624 E13600: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 14197 040353 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14198 040354 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14199 040355 312 06 0 00 041634 CAME AC,[XWD -1,-4] ;IS RESULT IN AC CORRECT? DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 34-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0303 14200 040356 003 06 0 00 013601 ER3 AC,13601 ;RESULT IN AC IS INCORRECT 14201 040357 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14202 040360 004 07 0 00 013601 ER4 AC+1,13601 ;C(AC+1) WAS MODIFIED INCORRECTLY 14203 040361 321 10 0 00 040352 JUMPL AC+2,E13600 ;LOOP ON ERROR SWITCH^ 14204 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 34-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0304 14205 ;SHIFT CONNECTIONS TEST 14206 ;TEST AR1 SHLT INP-ONE'S - ASH AC,1 14207 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14208 SR1 (137,100000,0,200000,0,ASH,1)^ 14209 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT 14210 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0] 14211 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14212 14213 040362 200 06 0 00 041626 E13700: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 14214 040363 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14215 040364 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14216 040365 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 14217 040366 003 06 0 00 013701 ER3 AC,13701 ;RESULT IN AC IS INCORRECT 14218 040367 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14219 040370 004 07 0 00 013701 ER4 AC+1,13701 ;C(AC+1) WAS MODIFIED INCORRECTLY 14220 040371 321 10 0 00 040362 JUMPL AC+2,E13700 ;LOOP ON ERROR SWITCH^ 14221 14222 ;SHIFT CONNECTIONS TEST 14223 ;TEST AR1 SHLT INP-ZERO'S - ASH AC,1 14224 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14225 SR1 (140,677777,-1,577777,-2,ASH,1)^ 14226 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT 14227 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-2] 14228 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14229 14230 040372 200 06 0 00 041630 E14000: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 14231 040373 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14232 040374 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14233 040375 312 06 0 00 041635 CAME AC,[XWD 577777,-2] ;IS RESULT IN AC CORRECT? 14234 040376 003 06 0 00 014001 ER3 AC,14001 ;RESULT IN AC IS INCORRECT 14235 040377 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14236 040400 004 07 0 00 014001 ER4 AC+1,14001 ;C(AC+1) WAS MODIFIED INCORRECTLY 14237 040401 321 10 0 00 040372 JUMPL AC+2,E14000 ;LOOP ON ERROR SWITCH^ 14238 14239 ;SHIFT CONNECTIONS TEST 14240 ;TEST AR0 SHLT INP-ONE'S - ASH AC,1 14241 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14242 SR1 (141,400000,0,400000,0,ASH,1)^ 14243 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] 1 BIT 14244 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0] 14245 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14246 14247 040402 200 06 0 00 041621 E14100: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14248 040403 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14249 040404 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14250 040405 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 14251 040406 003 06 0 00 014101 ER3 AC,14101 ;RESULT IN AC IS INCORRECT 14252 040407 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14253 040410 004 07 0 00 014101 ER4 AC+1,14101 ;C(AC+1) WAS MODIFIED INCORRECTLY 14254 040411 321 10 0 00 040402 JUMPL AC+2,E14100 ;LOOP ON ERROR SWITCH^ 14255 14256 ;SHIFT CONNECTIONS TEST 14257 ;TEST AR0 SHLT INP-ZERO'S - ASH AC,1 14258 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14259 SR1 (142,377777,-1,377777,-2,ASH,1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 34-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0305 14260 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] 1 BIT 14261 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2] 14262 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14263 14264 040412 200 06 0 00 041623 E14200: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14265 040413 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14266 040414 240 06 0 00 000001 ASH AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 14267 040415 312 06 0 00 041636 CAME AC,[XWD 377777,-2] ;IS RESULT IN AC CORRECT? 14268 040416 003 06 0 00 014201 ER3 AC,14201 ;RESULT IN AC IS INCORRECT 14269 040417 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14270 040420 004 07 0 00 014201 ER4 AC+1,14201 ;C(AC+1) WAS MODIFIED INCORRECTLY 14271 040421 321 10 0 00 040412 JUMPL AC+2,E14200 ;LOOP ON ERROR SWITCH^ 14272 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 35 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0306 14273 ;SHIFT CONNECTIONS TEST 14274 ;TEST AR0 SHRT INP-ONE'S - ASH AC,-1 14275 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14276 SR1 (143,400000,0,600000,0,ASH,-1)^ 14277 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT 14278 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600000,0] 14279 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14280 14281 040422 200 06 0 00 041621 E14300: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14282 040423 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14283 040424 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14284 040425 312 06 0 00 041643 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT? 14285 040426 003 06 0 00 014301 ER3 AC,14301 ;RESULT IN AC IS INCORRECT 14286 040427 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14287 040430 004 07 0 00 014301 ER4 AC+1,14301 ;C(AC+1) WAS MODIFIED INCORRECTLY 14288 040431 321 10 0 00 040422 JUMPL AC+2,E14300 ;LOOP ON ERROR SWITCH^ 14289 14290 ;SHIFT CONNECTIONS TEST 14291 ;TEST AR0 SHRT INP-ZERO'S - ASH AC,-1 14292 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14293 SR1 (144,377777,-1,177777,-1,ASH,-1)^ 14294 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT 14295 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1] 14296 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14297 14298 040432 200 06 0 00 041623 E14400: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14299 040433 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14300 040434 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14301 040435 312 06 0 00 041637 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 14302 040436 003 06 0 00 014401 ER3 AC,14401 ;RESULT IN AC IS INCORRECT 14303 040437 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14304 040440 004 07 0 00 014401 ER4 AC+1,14401 ;C(AC+1) WAS MODIFIED INCORRECTLY 14305 040441 321 10 0 00 040432 JUMPL AC+2,E14400 ;LOOP ON ERROR SWITCH^ 14306 14307 ;SHIFT CONNECTIONS TEST 14308 ;TEST AR1 SHRT INP-ONE'S - ASH AC,-1 14309 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14310 SR1 (145,400000,0,600000,0,ASH,-1)^ 14311 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT 14312 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600000,0] 14313 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14314 14315 040442 200 06 0 00 041621 E14500: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14316 040443 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14317 040444 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14318 040445 312 06 0 00 041643 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT? 14319 040446 003 06 0 00 014501 ER3 AC,14501 ;RESULT IN AC IS INCORRECT 14320 040447 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14321 040450 004 07 0 00 014501 ER4 AC+1,14501 ;C(AC+1) WAS MODIFIED INCORRECTLY 14322 040451 321 10 0 00 040442 JUMPL AC+2,E14500 ;LOOP ON ERROR SWITCH^ 14323 14324 ;SHIFT CONNECTIONS TEST 14325 ;TEST AR1 SHRT INP-ZERO'S - ASH AC,-1 14326 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14327 SR1 (146,377777,-1,177777,-1,ASH,-1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 35-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0307 14328 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT 14329 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1] 14330 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14331 14332 040452 200 06 0 00 041623 E14600: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14333 040453 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14334 040454 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14335 040455 312 06 0 00 041637 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 14336 040456 003 06 0 00 014601 ER3 AC,14601 ;RESULT IN AC IS INCORRECT 14337 040457 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14338 040460 004 07 0 00 014601 ER4 AC+1,14601 ;C(AC+1) WAS MODIFIED INCORRECTLY 14339 040461 321 10 0 00 040452 JUMPL AC+2,E14600 ;LOOP ON ERROR SWITCH^ 14340 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 35-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0308 14341 ;SHIFT CONNECTIONS TEST 14342 ;TEST AR34 SHRT INP-ONE'S - ASH AC,-1 14343 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14344 SR1 (147,0,4,0,2,ASH,-1)^ 14345 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT 14346 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 14347 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14348 14349 040462 200 06 0 00 041617 E14700: MOVE AC,[XWD 0,4] ;INITIALIZE AC 14350 040463 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14351 040464 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14352 040465 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14353 040466 003 06 0 00 014701 ER3 AC,14701 ;RESULT IN AC IS INCORRECT 14354 040467 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14355 040470 004 07 0 00 014701 ER4 AC+1,14701 ;C(AC+1) WAS MODIFIED INCORRECTLY 14356 040471 321 10 0 00 040462 JUMPL AC+2,E14700 ;LOOP ON ERROR SWITCH^ 14357 14358 ;SHIFT CONNECTIONS TEST 14359 ;TEST AR34 SHRT INP-ZERO'S - ASH AC,-1 14360 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14361 SR1 (150,-1,-5,-1,-3,ASH,-1)^ 14362 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT 14363 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3] 14364 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14365 14366 040472 200 06 0 00 041632 E15000: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 14367 040473 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14368 040474 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14369 040475 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 14370 040476 003 06 0 00 015001 ER3 AC,15001 ;RESULT IN AC IS INCORRECT 14371 040477 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14372 040500 004 07 0 00 015001 ER4 AC+1,15001 ;C(AC+1) WAS MODIFIED INCORRECTLY 14373 040501 321 10 0 00 040472 JUMPL AC+2,E15000 ;LOOP ON ERROR SWITCH^ 14374 14375 ;SHIFT CONNECTIONS TEST 14376 ;TEST AR35 SHRT INP-ONE'S - ASH AC,-1 14377 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14378 SR1 (151,0,2,0,1,ASH,-1)^ 14379 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT 14380 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 14381 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14382 14383 040502 200 06 0 00 041620 E15100: MOVE AC,[XWD 0,2] ;INITIALIZE AC 14384 040503 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14385 040504 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14386 040505 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14387 040506 003 06 0 00 015101 ER3 AC,15101 ;RESULT IN AC IS INCORRECT 14388 040507 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14389 040510 004 07 0 00 015101 ER4 AC+1,15101 ;C(AC+1) WAS MODIFIED INCORRECTLY 14390 040511 321 10 0 00 040502 JUMPL AC+2,E15100 ;LOOP ON ERROR SWITCH^ 14391 14392 ;SHIFT CONNECTIONS TEST 14393 ;TEST AR35 SHRT INP-ZERO'S - ASH AC,-1 14394 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14395 SR1 (152,-1,-3,-1,-2,ASH,-1)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 35-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0309 14396 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT 14397 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 14398 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14399 14400 040512 200 06 0 00 041625 E15200: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 14401 040513 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14402 040514 240 06 0 00 777777 ASH AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 14403 040515 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 14404 040516 003 06 0 00 015201 ER3 AC,15201 ;RESULT IN AC IS INCORRECT 14405 040517 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14406 040520 004 07 0 00 015201 ER4 AC+1,15201 ;C(AC+1) WAS MODIFIED INCORRECTLY 14407 040521 321 10 0 00 040512 JUMPL AC+2,E15200 ;LOOP ON ERROR SWITCH^ 14408 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 36 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0310 14409 ;SHIFT CONNECTIONS TEST 14410 ;TEST AR0 SHRT INP-ONE'S - ASH AC,-2 14411 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14412 SR1 (153,400000,0,700000,0,ASH,-2)^ 14413 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -2 BIT 14414 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700000,0] 14415 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14416 14417 040522 200 06 0 00 041621 E15300: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14418 040523 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14419 040524 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14420 040525 312 06 0 00 041644 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT? 14421 040526 003 06 0 00 015301 ER3 AC,15301 ;RESULT IN AC IS INCORRECT 14422 040527 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14423 040530 004 07 0 00 015301 ER4 AC+1,15301 ;C(AC+1) WAS MODIFIED INCORRECTLY 14424 040531 321 10 0 00 040522 JUMPL AC+2,E15300 ;LOOP ON ERROR SWITCH^ 14425 14426 ;SHIFT CONNECTIONS TEST 14427 ;TEST AR0 SHRT INP-ZERO'S - ASH AC,-2 14428 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 14429 SR1 (154,377777,-1,077777,-1,ASH,-2)^ 14430 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -2 BIT 14431 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 077777,-1] 14432 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14433 14434 040532 200 06 0 00 041623 E15400: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14435 040533 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14436 040534 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14437 040535 312 06 0 00 041645 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT? 14438 040536 003 06 0 00 015401 ER3 AC,15401 ;RESULT IN AC IS INCORRECT 14439 040537 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14440 040540 004 07 0 00 015401 ER4 AC+1,15401 ;C(AC+1) WAS MODIFIED INCORRECTLY 14441 040541 321 10 0 00 040532 JUMPL AC+2,E15400 ;LOOP ON ERROR SWITCH^ 14442 14443 ;SHIFT CONNECTIONS TEST 14444 ;TEST AR1 SHRT INP-ONE'S - ASH AC,-2 14445 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14446 SR1 (155,400000,0,700000,0,ASH,-2)^ 14447 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -2 BIT 14448 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700000,0] 14449 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14450 14451 040542 200 06 0 00 041621 E15500: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14452 040543 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14453 040544 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14454 040545 312 06 0 00 041644 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT? 14455 040546 003 06 0 00 015501 ER3 AC,15501 ;RESULT IN AC IS INCORRECT 14456 040547 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14457 040550 004 07 0 00 015501 ER4 AC+1,15501 ;C(AC+1) WAS MODIFIED INCORRECTLY 14458 040551 321 10 0 00 040542 JUMPL AC+2,E15500 ;LOOP ON ERROR SWITCH^ 14459 14460 ;SHIFT CONNECTIONS TEST 14461 ;TEST AR1 SHRT INP-ZERO'S - ASH AC,-2 14462 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 14463 SR1 (156,377777,-1,077777,-1,ASH,-2)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 36-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0311 14464 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -2 BIT 14465 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 077777,-1] 14466 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14467 14468 040552 200 06 0 00 041623 E15600: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14469 040553 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14470 040554 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14471 040555 312 06 0 00 041645 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT? 14472 040556 003 06 0 00 015601 ER3 AC,15601 ;RESULT IN AC IS INCORRECT 14473 040557 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14474 040560 004 07 0 00 015601 ER4 AC+1,15601 ;C(AC+1) WAS MODIFIED INCORRECTLY 14475 040561 321 10 0 00 040552 JUMPL AC+2,E15600 ;LOOP ON ERROR SWITCH^ 14476 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 36-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0312 14477 ;SHIFT CONNECTIONS TEST 14478 ;TEST AR34 SHRT INP-ONE'S - ASH AC,-2 14479 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14480 SR1 (157,0,10,0,2,ASH,-2)^ 14481 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT 14482 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2] 14483 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14484 14485 040562 200 06 0 00 041614 E15700: MOVE AC,[XWD 0,10] ;INITIALIZE AC 14486 040563 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14487 040564 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14488 040565 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14489 040566 003 06 0 00 015701 ER3 AC,15701 ;RESULT IN AC IS INCORRECT 14490 040567 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14491 040570 004 07 0 00 015701 ER4 AC+1,15701 ;C(AC+1) WAS MODIFIED INCORRECTLY 14492 040571 321 10 0 00 040562 JUMPL AC+2,E15700 ;LOOP ON ERROR SWITCH^ 14493 14494 ;SHIFT CONNECTIONS TEST 14495 ;TEST AR34 SHRT INP-ZERO'S - ASH AC,-2 14496 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 14497 SR1 (160,-1,-11,-1,-3,ASH,-2)^ 14498 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT 14499 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3] 14500 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14501 14502 040572 200 06 0 00 041633 E16000: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 14503 040573 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14504 040574 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14505 040575 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 14506 040576 003 06 0 00 016001 ER3 AC,16001 ;RESULT IN AC IS INCORRECT 14507 040577 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14508 040600 004 07 0 00 016001 ER4 AC+1,16001 ;C(AC+1) WAS MODIFIED INCORRECTLY 14509 040601 321 10 0 00 040572 JUMPL AC+2,E16000 ;LOOP ON ERROR SWITCH^ 14510 14511 ;SHIFT CONNECTIONS TEST 14512 ;TEST AR35 SHRT INP-ONE'S - ASH AC,-2 14513 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14514 SR1 (161,0,4,0,1,ASH,-2)^ 14515 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT 14516 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1] 14517 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14518 14519 040602 200 06 0 00 041617 E16100: MOVE AC,[XWD 0,4] ;INITIALIZE AC 14520 040603 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14521 040604 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14522 040605 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14523 040606 003 06 0 00 016101 ER3 AC,16101 ;RESULT IN AC IS INCORRECT 14524 040607 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14525 040610 004 07 0 00 016101 ER4 AC+1,16101 ;C(AC+1) WAS MODIFIED INCORRECTLY 14526 040611 321 10 0 00 040602 JUMPL AC+2,E16100 ;LOOP ON ERROR SWITCH^ 14527 14528 ;SHIFT CONNECTIONS TEST 14529 ;TEST AR35 SHRT INP-ZERO'S - ASH AC,-2 14530 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 14531 SR1 (162,-1,-5,-1,-2,ASH,-2)^ DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 36-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH) SEQ 0313 14532 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT 14533 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2] 14534 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 14535 14536 040612 200 06 0 00 041632 E16200: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 14537 040613 200 07 0 00 041615 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 14538 040614 240 06 0 00 777776 ASH AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 14539 040615 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 14540 040616 003 06 0 00 016201 ER3 AC,16201 ;RESULT IN AC IS INCORRECT 14541 040617 312 07 0 00 041615 CAME AC+1,[XWD 741703,607417] 14542 040620 004 07 0 00 016201 ER4 AC+1,16201 ;C(AC+1) WAS MODIFIED INCORRECTLY 14543 040621 321 10 0 00 040612 JUMPL AC+2,E16200 ;LOOP ON ERROR SWITCH^ 14544 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 37 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0314 14545 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) 14546 14547 ;END CONNECTIONS-ROTC 14548 ;TEST AR-MQ END BIT INPUT GATES 14549 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 14550 ; MQ0,1,34,35 SHLT INP GATES 14551 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 14552 ; MQ0,1,34,35 SHRT INPUT GATES 14553 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND 14554 ;END BITS ARE TESTED 14555 ;TEST ASSUMES BOTH REGISTERS ARE 14556 ;CAPABLE OF ROTATING 1,-1 AND -2 BIT POSITIONS CORRECTLY 14557 14558 ;SHIFT CONNECTIONS TEST 14559 ;TEST MQ35 SHLT INP-ONE'S - ROTC AC,1 14560 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 14561 SR2 (163,400000,0,0,0,0,0,0,1,ROTC,1)^ 14562 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14563 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 14564 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 14565 ;[XWD 0,1] 14566 14567 040622 200 06 0 00 041621 E16300: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14568 040623 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14569 040624 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14570 040625 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 14571 040626 003 06 0 00 016301 ER3 AC,16301 ;RESULT IN AC IS INCORRECT 14572 040627 312 07 0 00 041622 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 14573 040630 004 07 0 00 016301 ER4 AC+1,16301 ;RESULT IN AC+1 IS INCORRECT 14574 040631 321 10 0 00 040622 JUMPL AC+2,E16300 ;LOOP ON ERROR SWITCH^ 14575 14576 ;SHIFT CONNECTIONS TEST 14577 ;TEST MQ35 SHLT INP-ZERO'S - ROTC AC,1 14578 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 14579 SR2 (164,377777,-1,-1,-1,-1,-1,-1,-2,ROTC,1)^ 14580 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14581 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 14582 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 14583 ;[XWD -1,-2] 14584 14585 040632 200 06 0 00 041623 E16400: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14586 040633 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14587 040634 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14588 040635 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 14589 040636 003 06 0 00 016401 ER3 AC,16401 ;RESULT IN AC IS INCORRECT 14590 040637 312 07 0 00 041624 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 14591 040640 004 07 0 00 016401 ER4 AC+1,16401 ;RESULT IN AC+1 IS INCORRECT 14592 040641 321 10 0 00 040632 JUMPL AC+2,E16400 ;LOOP ON ERROR SWITCH^ 14593 14594 ;SHIFT CONNECTIONS TEST 14595 ;TEST MQ34 SHLT INP-ONE'S - ROTC AC,1 14596 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 14597 SR2 (165,0,0,0,1,0,0,0,2,ROTC,1)^ 14598 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14599 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 37-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0315 14600 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 14601 ;[XWD 0,2] 14602 14603 040642 200 06 0 00 041612 E16500: MOVE AC,[XWD 0,0] ;INITIALIZE AC 14604 040643 200 07 0 00 041622 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1 14605 040644 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14606 040645 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 14607 040646 003 06 0 00 016501 ER3 AC,16501 ;RESULT IN AC IS INCORRECT 14608 040647 312 07 0 00 041620 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 14609 040650 004 07 0 00 016501 ER4 AC+1,16501 ;RESULT IN AC+1 IS INCORRECT 14610 040651 321 10 0 00 040642 JUMPL AC+2,E16500 ;LOOP ON ERROR SWITCH^ 14611 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 37-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0316 14612 ;SHIFT CONNECTIONS TEST 14613 ;TEST MQ34 SHLT INP-ZERO'S - ROTC AC,1 14614 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 14615 SR2 (166,-1,-1,-1,-2,-1,-1,-1,-3,ROTC,1)^ 14616 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14617 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND 14618 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 14619 ;[XWD -1,-3] 14620 14621 040652 200 06 0 00 041613 E16600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14622 040653 200 07 0 00 041624 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1 14623 040654 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14624 040655 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 14625 040656 003 06 0 00 016601 ER3 AC,16601 ;RESULT IN AC IS INCORRECT 14626 040657 312 07 0 00 041625 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 14627 040660 004 07 0 00 016601 ER4 AC+1,16601 ;RESULT IN AC+1 IS INCORRECT 14628 040661 321 10 0 00 040652 JUMPL AC+2,E16600 ;LOOP ON ERROR SWITCH^ 14629 14630 ;SHIFT CONNECTIONS TEST 14631 ;TEST MQ1 SHLT INP-ONE'S - ROTC AC,1 14632 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 14633 SR2 (167,0,0,100000,0,0,0,200000,0,ROTC,1)^ 14634 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14635 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND 14636 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 14637 ;[XWD 200000,0] 14638 14639 040662 200 06 0 00 041612 E16700: MOVE AC,[XWD 0,0] ;INITIALIZE AC 14640 040663 200 07 0 00 041626 MOVE AC+1,[XWD 100000,0] ;INITIALIZE AC+1 14641 040664 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14642 040665 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 14643 040666 003 06 0 00 016701 ER3 AC,16701 ;RESULT IN AC IS INCORRECT 14644 040667 312 07 0 00 041627 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 14645 040670 004 07 0 00 016701 ER4 AC+1,16701 ;RESULT IN AC+1 IS INCORRECT 14646 040671 321 10 0 00 040662 JUMPL AC+2,E16700 ;LOOP ON ERROR SWITCH^ 14647 14648 ;SHIFT CONNECTIONS TEST 14649 ;TEST MQ1 SHLT INP-ZERO'S - ROTC AC,1 14650 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 14651 SR2 (170,-1,-1,677777,-1,-1,-1,577777,-1,ROTC,1)^ 14652 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14653 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND 14654 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 14655 ;[XWD 577777,-1] 14656 14657 040672 200 06 0 00 041613 E17000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14658 040673 200 07 0 00 041630 MOVE AC+1,[XWD 677777,-1] ;INITIALIZE AC+1 14659 040674 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14660 040675 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 14661 040676 003 06 0 00 017001 ER3 AC,17001 ;RESULT IN AC IS INCORRECT 14662 040677 312 07 0 00 041631 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 14663 040700 004 07 0 00 017001 ER4 AC+1,17001 ;RESULT IN AC+1 IS INCORRECT 14664 040701 321 10 0 00 040672 JUMPL AC+2,E17000 ;LOOP ON ERROR SWITCH^ 14665 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 37-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0317 14666 ;SHIFT CONNECTIONS TEST 14667 ;TEST MQ0 SHLT INP-ONE'S - ROTC AC,1 14668 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 14669 SR2 (171,0,0,200000,0,0,0,400000,0,ROTC,1)^ 14670 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14671 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND 14672 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 14673 ;[XWD 400000,0] 14674 14675 040702 200 06 0 00 041612 E17100: MOVE AC,[XWD 0,0] ;INITIALIZE AC 14676 040703 200 07 0 00 041627 MOVE AC+1,[XWD 200000,0] ;INITIALIZE AC+1 14677 040704 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14678 040705 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 14679 040706 003 06 0 00 017101 ER3 AC,17101 ;RESULT IN AC IS INCORRECT 14680 040707 312 07 0 00 041621 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 14681 040710 004 07 0 00 017101 ER4 AC+1,17101 ;RESULT IN AC+1 IS INCORRECT 14682 040711 321 10 0 00 040702 JUMPL AC+2,E17100 ;LOOP ON ERROR SWITCH^ 14683 14684 ;SHIFT CONNECTIONS TEST 14685 ;TEST MQ0 SHLT INP-ZERO'S - ROTC AC,1 14686 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 14687 SR2 (172,-1,-1,577777,-1,-1,-1,377777,-1,ROTC,1)^ 14688 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14689 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND 14690 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 14691 ;[XWD 377777,-1] 14692 14693 040712 200 06 0 00 041613 E17200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14694 040713 200 07 0 00 041631 MOVE AC+1,[XWD 577777,-1] ;INITIALIZE AC+1 14695 040714 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14696 040715 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 14697 040716 003 06 0 00 017201 ER3 AC,17201 ;RESULT IN AC IS INCORRECT 14698 040717 312 07 0 00 041623 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 14699 040720 004 07 0 00 017201 ER4 AC+1,17201 ;RESULT IN AC+1 IS INCORRECT 14700 040721 321 10 0 00 040712 JUMPL AC+2,E17200 ;LOOP ON ERROR SWITCH^ 14701 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 38 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0318 14702 ;SHIFT CONNECTIONS TEST 14703 ;TEST AR35 SHLT INP-ONE'S - ROTC AC,1 14704 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 14705 SR2 (173,0,0,400000,0,0,1,0,0,ROTC,1)^ 14706 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14707 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] 1 BIT POSITIONS AND 14708 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 14709 ;[XWD 0,0] 14710 14711 040722 200 06 0 00 041612 E17300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 14712 040723 200 07 0 00 041621 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 14713 040724 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14714 040725 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14715 040726 003 06 0 00 017301 ER3 AC,17301 ;RESULT IN AC IS INCORRECT 14716 040727 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14717 040730 004 07 0 00 017301 ER4 AC+1,17301 ;RESULT IN AC+1 IS INCORRECT 14718 040731 321 10 0 00 040722 JUMPL AC+2,E17300 ;LOOP ON ERROR SWITCH^ 14719 14720 ;SHIFT CONNECTIONS TEST 14721 ;TEST AR35 SHLT INP-ZERO'S - ROTC AC,1 14722 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 14723 SR2 (174,-1,-1,377777,-1,-1,-2,-1,-1,ROTC,1)^ 14724 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14725 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND 14726 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 14727 ;[XWD -1,-1] 14728 14729 040732 200 06 0 00 041613 E17400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14730 040733 200 07 0 00 041623 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 14731 040734 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14732 040735 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 14733 040736 003 06 0 00 017401 ER3 AC,17401 ;RESULT IN AC IS INCORRECT 14734 040737 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14735 040740 004 07 0 00 017401 ER4 AC+1,17401 ;RESULT IN AC+1 IS INCORRECT 14736 040741 321 10 0 00 040732 JUMPL AC+2,E17400 ;LOOP ON ERROR SWITCH^ 14737 14738 ;SHIFT CONNECTIONS TEST 14739 ;TEST AR34 SHLT INP-ONE'S - ROTC AC,1 14740 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 14741 SR2 (175,0,1,0,0,0,2,0,0,ROTC,1)^ 14742 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14743 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND 14744 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 14745 ;[XWD 0,0] 14746 14747 040742 200 06 0 00 041622 E17500: MOVE AC,[XWD 0,1] ;INITIALIZE AC 14748 040743 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14749 040744 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14750 040745 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14751 040746 003 06 0 00 017501 ER3 AC,17501 ;RESULT IN AC IS INCORRECT 14752 040747 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14753 040750 004 07 0 00 017501 ER4 AC+1,17501 ;RESULT IN AC+1 IS INCORRECT 14754 040751 321 10 0 00 040742 JUMPL AC+2,E17500 ;LOOP ON ERROR SWITCH^ 14755 14756 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 38-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0319 14757 ;TEST AR34 SHLT INP-ZERO'S - ROTC AC,1 14758 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 14759 SR2 (176,-1,-2,-1,-1,-1,-3,-1,-1,ROTC,1)^ 14760 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14761 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND 14762 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 14763 ;[XWD -1,-1] 14764 14765 040752 200 06 0 00 041624 E17600: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 14766 040753 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14767 040754 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14768 040755 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 14769 040756 003 06 0 00 017601 ER3 AC,17601 ;RESULT IN AC IS INCORRECT 14770 040757 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14771 040760 004 07 0 00 017601 ER4 AC+1,17601 ;RESULT IN AC+1 IS INCORRECT 14772 040761 321 10 0 00 040752 JUMPL AC+2,E17600 ;LOOP ON ERROR SWITCH^ 14773 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 38-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0320 14774 ;SHIFT CONNECTIONS TEST 14775 ;TEST AR1 SHLT INP-ONE'S - ROTC AC,1 14776 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 14777 SR2 (177,100000,0,0,0,200000,0,0,0,ROTC,1)^ 14778 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14779 ;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 14780 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 14781 ;[XWD 0,0] 14782 14783 040762 200 06 0 00 041626 E17700: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 14784 040763 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14785 040764 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14786 040765 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 14787 040766 003 06 0 00 017701 ER3 AC,17701 ;RESULT IN AC IS INCORRECT 14788 040767 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14789 040770 004 07 0 00 017701 ER4 AC+1,17701 ;RESULT IN AC+1 IS INCORRECT 14790 040771 321 10 0 00 040762 JUMPL AC+2,E17700 ;LOOP ON ERROR SWITCH^ 14791 14792 ;SHIFT CONNECTIONS TEST 14793 ;TEST AR1 SHLT INP-ZERO'S - ROTC AC,1 14794 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 14795 SR2 (200,677777,-1,-1,-1,577777,-1,-1,-1,ROTC,1)^ 14796 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14797 ;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 14798 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND 14799 ;[XWD -1,-1] 14800 14801 040772 200 06 0 00 041630 E20000: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 14802 040773 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14803 040774 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14804 040775 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 14805 040776 003 06 0 00 020001 ER3 AC,20001 ;RESULT IN AC IS INCORRECT 14806 040777 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14807 041000 004 07 0 00 020001 ER4 AC+1,20001 ;RESULT IN AC+1 IS INCORRECT 14808 041001 321 10 0 00 040772 JUMPL AC+2,E20000 ;LOOP ON ERROR SWITCH^ 14809 14810 ;SHIFT CONNECTIONS TEST 14811 ;TEST AR0 SHLT INP-ONE'S - ROTC AC,1 14812 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 14813 SR2 (201,200000,0,0,0,400000,0,0,0,ROTC,1)^ 14814 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14815 ;DATA SPECIFIED IN [XWD 200000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 14816 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 14817 ;[XWD 0,0] 14818 14819 041002 200 06 0 00 041627 E20100: MOVE AC,[XWD 200000,0] ;INITIALIZE AC 14820 041003 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14821 041004 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14822 041005 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 14823 041006 003 06 0 00 020101 ER3 AC,20101 ;RESULT IN AC IS INCORRECT 14824 041007 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14825 041010 004 07 0 00 020101 ER4 AC+1,20101 ;RESULT IN AC+1 IS INCORRECT 14826 041011 321 10 0 00 041002 JUMPL AC+2,E20100 ;LOOP ON ERROR SWITCH^ 14827 14828 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 38-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0321 14829 ;TEST AR0 SHLT INP-ZERO'S - ROTC AC,1 14830 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 14831 SR2 (202,577777,-1,-1,-1,377777,-1,-1,-1,ROTC,1)^ 14832 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14833 ;DATA SPECIFIED IN [XWD 577777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 14834 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 14835 ;[XWD -1,-1] 14836 14837 041012 200 06 0 00 041631 E20200: MOVE AC,[XWD 577777,-1] ;INITIALIZE AC 14838 041013 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14839 041014 245 06 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 14840 041015 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 14841 041016 003 06 0 00 020201 ER3 AC,20201 ;RESULT IN AC IS INCORRECT 14842 041017 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14843 041020 004 07 0 00 020201 ER4 AC+1,20201 ;RESULT IN AC+1 IS INCORRECT 14844 041021 321 10 0 00 041012 JUMPL AC+2,E20200 ;LOOP ON ERROR SWITCH^ 14845 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 39 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0322 14846 ;SHIFT CONNECTIONS TEST 14847 ;TEST AR0 SHRT INP-ONE'S - ROTC AC,-1 14848 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 14849 SR2 (203,0,0,0,1,400000,0,0,0,ROTC,-1)^ 14850 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14851 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] -1 BIT POSITIONS AND 14852 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 14853 ;[XWD 0,0] 14854 14855 041022 200 06 0 00 041612 E20300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 14856 041023 200 07 0 00 041622 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1 14857 041024 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14858 041025 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 14859 041026 003 06 0 00 020301 ER3 AC,20301 ;RESULT IN AC IS INCORRECT 14860 041027 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14861 041030 004 07 0 00 020301 ER4 AC+1,20301 ;RESULT IN AC+1 IS INCORRECT 14862 041031 321 10 0 00 041022 JUMPL AC+2,E20300 ;LOOP ON ERROR SWITCH^ 14863 14864 ;SHIFT CONNECTIONS TEST 14865 ;TEST AR0 SHRT INP-ZERO'S - ROTC AC,-1 14866 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 14867 SR2 (204,-1,-1,-1,-2,377777,-1,-1,-1,ROTC,-1)^ 14868 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14869 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] -1 BIT POSITIONS AND 14870 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 14871 ;[XWD -1,-1] 14872 14873 041032 200 06 0 00 041613 E20400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 14874 041033 200 07 0 00 041624 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1 14875 041034 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14876 041035 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 14877 041036 003 06 0 00 020401 ER3 AC,20401 ;RESULT IN AC IS INCORRECT 14878 041037 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14879 041040 004 07 0 00 020401 ER4 AC+1,20401 ;RESULT IN AC+1 IS INCORRECT 14880 041041 321 10 0 00 041032 JUMPL AC+2,E20400 ;LOOP ON ERROR SWITCH^ 14881 14882 ;SHIFT CONNECTIONS TEST 14883 ;TEST AR1 SHRT INP-ONE'S - ROTC AC,-1 14884 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 14885 SR2 (205,400000,0,0,0,200000,0,0,0,ROTC,-1)^ 14886 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14887 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND 14888 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 14889 ;[XWD 0,0] 14890 14891 041042 200 06 0 00 041621 E20500: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 14892 041043 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14893 041044 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14894 041045 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 14895 041046 003 06 0 00 020501 ER3 AC,20501 ;RESULT IN AC IS INCORRECT 14896 041047 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14897 041050 004 07 0 00 020501 ER4 AC+1,20501 ;RESULT IN AC+1 IS INCORRECT 14898 041051 321 10 0 00 041042 JUMPL AC+2,E20500 ;LOOP ON ERROR SWITCH^ 14899 14900 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 39-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0323 14901 ;TEST AR1 SHRT INP-ZERO'S - ROTC AC,-1 14902 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 14903 SR2 (206,377777,-1,-1,-1,577777,-1,-1,-1,ROTC,-1)^ 14904 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14905 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND 14906 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND 14907 ;[XWD -1,-1] 14908 14909 041052 200 06 0 00 041623 E20600: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 14910 041053 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14911 041054 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14912 041055 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 14913 041056 003 06 0 00 020601 ER3 AC,20601 ;RESULT IN AC IS INCORRECT 14914 041057 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14915 041060 004 07 0 00 020601 ER4 AC+1,20601 ;RESULT IN AC+1 IS INCORRECT 14916 041061 321 10 0 00 041052 JUMPL AC+2,E20600 ;LOOP ON ERROR SWITCH^ 14917 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 39-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0324 14918 ;SHIFT CONNECTIONS TEST 14919 ;TEST AR34 SHRT INP-ONE'S - ROTC AC,-1 14920 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 14921 SR2 (207,0,4,0,0,0,2,0,0,ROTC,-1)^ 14922 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14923 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND 14924 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 14925 ;[XWD 0,0] 14926 14927 041062 200 06 0 00 041617 E20700: MOVE AC,[XWD 0,4] ;INITIALIZE AC 14928 041063 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14929 041064 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14930 041065 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 14931 041066 003 06 0 00 020701 ER3 AC,20701 ;RESULT IN AC IS INCORRECT 14932 041067 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14933 041070 004 07 0 00 020701 ER4 AC+1,20701 ;RESULT IN AC+1 IS INCORRECT 14934 041071 321 10 0 00 041062 JUMPL AC+2,E20700 ;LOOP ON ERROR SWITCH^ 14935 14936 ;SHIFT CONNECTIONS TEST 14937 ;TEST AR34 SHRT INP-ZERO'S - ROTC AC,-1 14938 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 14939 SR2 (210,-1,-5,-1,-1,-1,-3,-1,-1,ROTC,-1)^ 14940 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14941 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND 14942 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 14943 ;[XWD -1,-1] 14944 14945 041072 200 06 0 00 041632 E21000: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 14946 041073 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14947 041074 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14948 041075 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 14949 041076 003 06 0 00 021001 ER3 AC,21001 ;RESULT IN AC IS INCORRECT 14950 041077 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14951 041100 004 07 0 00 021001 ER4 AC+1,21001 ;RESULT IN AC+1 IS INCORRECT 14952 041101 321 10 0 00 041072 JUMPL AC+2,E21000 ;LOOP ON ERROR SWITCH^ 14953 14954 ;SHIFT CONNECTIONS TEST 14955 ;TEST AR35 SHRT INP-ONE'S - ROTC AC,-1 14956 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 14957 SR2 (211,0,2,0,0,0,1,0,0,ROTC,-1)^ 14958 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14959 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND 14960 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 14961 ;[XWD 0,0] 14962 14963 041102 200 06 0 00 041620 E21100: MOVE AC,[XWD 0,2] ;INITIALIZE AC 14964 041103 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 14965 041104 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14966 041105 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 14967 041106 003 06 0 00 021101 ER3 AC,21101 ;RESULT IN AC IS INCORRECT 14968 041107 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 14969 041110 004 07 0 00 021101 ER4 AC+1,21101 ;RESULT IN AC+1 IS INCORRECT 14970 041111 321 10 0 00 041102 JUMPL AC+2,E21100 ;LOOP ON ERROR SWITCH^ 14971 14972 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 39-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0325 14973 ;TEST AR35 SHRT INP-ZERO'S - ROTC AC,-1 14974 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 14975 SR2 (212,-1,-3,-1,-1,-1,-2,-1,-1,ROTC,-1)^ 14976 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14977 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND 14978 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 14979 ;[XWD -1,-1] 14980 14981 041112 200 06 0 00 041625 E21200: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 14982 041113 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 14983 041114 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 14984 041115 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 14985 041116 003 06 0 00 021201 ER3 AC,21201 ;RESULT IN AC IS INCORRECT 14986 041117 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 14987 041120 004 07 0 00 021201 ER4 AC+1,21201 ;RESULT IN AC+1 IS INCORRECT 14988 041121 321 10 0 00 041112 JUMPL AC+2,E21200 ;LOOP ON ERROR SWITCH^ 14989 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 40 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0326 14990 ;SHIFT CONNECTIONS TEST 14991 ;TEST MQ0 SHRT INP-ONE'S - ROTC AC,-1 14992 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 14993 SR2 (213,0,1,0,0,0,0,400000,0,ROTC,-1)^ 14994 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 14995 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND 14996 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 14997 ;[XWD 400000,0] 14998 14999 041122 200 06 0 00 041622 E21300: MOVE AC,[XWD 0,1] ;INITIALIZE AC 15000 041123 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 15001 041124 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15002 041125 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15003 041126 003 06 0 00 021301 ER3 AC,21301 ;RESULT IN AC IS INCORRECT 15004 041127 312 07 0 00 041621 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 15005 041130 004 07 0 00 021301 ER4 AC+1,21301 ;RESULT IN AC+1 IS INCORRECT 15006 041131 321 10 0 00 041122 JUMPL AC+2,E21300 ;LOOP ON ERROR SWITCH^ 15007 15008 ;SHIFT CONNECTIONS TEST 15009 ;TEST MQ0 SHRT INP-ZERO'S - ROTC AC,-1 15010 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 15011 SR2 (214,-1,-2,-1,-1,-1,-1,377777,-1,ROTC,-1)^ 15012 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15013 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND 15014 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15015 ;[XWD 377777,-1] 15016 15017 041132 200 06 0 00 041624 E21400: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 15018 041133 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 15019 041134 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15020 041135 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15021 041136 003 06 0 00 021401 ER3 AC,21401 ;RESULT IN AC IS INCORRECT 15022 041137 312 07 0 00 041623 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 15023 041140 004 07 0 00 021401 ER4 AC+1,21401 ;RESULT IN AC+1 IS INCORRECT 15024 041141 321 10 0 00 041132 JUMPL AC+2,E21400 ;LOOP ON ERROR SWITCH^ 15025 15026 ;SHIFT CONNECTIONS TEST 15027 ;TEST MQ1 SHRT INP-ONE'S - ROTC AC,-1 15028 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 15029 SR2 (215,0,0,400000,0,0,0,200000,0,ROTC,-1)^ 15030 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15031 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] -1 BIT POSITIONS AND 15032 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15033 ;[XWD 200000,0] 15034 15035 041142 200 06 0 00 041612 E21500: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15036 041143 200 07 0 00 041621 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 15037 041144 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15038 041145 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15039 041146 003 06 0 00 021501 ER3 AC,21501 ;RESULT IN AC IS INCORRECT 15040 041147 312 07 0 00 041627 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 15041 041150 004 07 0 00 021501 ER4 AC+1,21501 ;RESULT IN AC+1 IS INCORRECT 15042 041151 321 10 0 00 041142 JUMPL AC+2,E21500 ;LOOP ON ERROR SWITCH^ 15043 15044 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 40-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0327 15045 ;TEST MQ1 SHRT INP-ZERO'S - ROTC AC,-1 15046 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 15047 SR2 (216,-1,-1,377777,-1,-1,-1,577777,-1,ROTC,-1)^ 15048 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15049 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND 15050 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15051 ;[XWD 577777,-1] 15052 15053 041152 200 06 0 00 041613 E21600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15054 041153 200 07 0 00 041623 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 15055 041154 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15056 041155 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15057 041156 003 06 0 00 021601 ER3 AC,21601 ;RESULT IN AC IS INCORRECT 15058 041157 312 07 0 00 041631 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 15059 041160 004 07 0 00 021601 ER4 AC+1,21601 ;RESULT IN AC+1 IS INCORRECT 15060 041161 321 10 0 00 041152 JUMPL AC+2,E21600 ;LOOP ON ERROR SWITCH^ 15061 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 40-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0328 15062 ;SHIFT CONNECTIONS TEST 15063 ;TEST MQ34 SHRT INP-ONE'S - ROTC AC,-1 15064 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 15065 SR2 (217,0,0,0,4,0,0,0,2,ROTC,-1)^ 15066 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15067 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND 15068 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15069 ;[XWD 0,2] 15070 15071 041162 200 06 0 00 041612 E21700: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15072 041163 200 07 0 00 041617 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 15073 041164 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15074 041165 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15075 041166 003 06 0 00 021701 ER3 AC,21701 ;RESULT IN AC IS INCORRECT 15076 041167 312 07 0 00 041620 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 15077 041170 004 07 0 00 021701 ER4 AC+1,21701 ;RESULT IN AC+1 IS INCORRECT 15078 041171 321 10 0 00 041162 JUMPL AC+2,E21700 ;LOOP ON ERROR SWITCH^ 15079 15080 ;SHIFT CONNECTIONS TEST 15081 ;TEST MQ34 SHRT INP-ZERO'S - ROTC AC,-1 15082 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 15083 SR2 (220,-1,-1,-1,-5,-1,-1,-1,-3,ROTC,-1)^ 15084 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15085 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND 15086 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15087 ;[XWD -1,-3] 15088 15089 041172 200 06 0 00 041613 E22000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15090 041173 200 07 0 00 041632 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 15091 041174 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15092 041175 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15093 041176 003 06 0 00 022001 ER3 AC,22001 ;RESULT IN AC IS INCORRECT 15094 041177 312 07 0 00 041625 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 15095 041200 004 07 0 00 022001 ER4 AC+1,22001 ;RESULT IN AC+1 IS INCORRECT 15096 041201 321 10 0 00 041172 JUMPL AC+2,E22000 ;LOOP ON ERROR SWITCH^ 15097 15098 ;SHIFT CONNECTIONS TEST 15099 ;TEST MQ35 SHRT INP-ONE'S - ROTC AC,-1 15100 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 15101 SR2 (221,0,0,0,2,0,0,0,1,ROTC,-1)^ 15102 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15103 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND 15104 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15105 ;[XWD 0,1] 15106 15107 041202 200 06 0 00 041612 E22100: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15108 041203 200 07 0 00 041620 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1 15109 041204 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15110 041205 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15111 041206 003 06 0 00 022101 ER3 AC,22101 ;RESULT IN AC IS INCORRECT 15112 041207 312 07 0 00 041622 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 15113 041210 004 07 0 00 022101 ER4 AC+1,22101 ;RESULT IN AC+1 IS INCORRECT 15114 041211 321 10 0 00 041202 JUMPL AC+2,E22100 ;LOOP ON ERROR SWITCH^ 15115 15116 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 40-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0329 15117 ;TEST MQ35 SHRT INP-ZERO'S - ROTC AC,-1 15118 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 15119 SR2 (222,-1,-1,-1,-3,-1,-1,-1,-2,ROTC,-1)^ 15120 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15121 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND 15122 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15123 ;[XWD -1,-2] 15124 15125 041212 200 06 0 00 041613 E22200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15126 041213 200 07 0 00 041625 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1 15127 041214 245 06 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 15128 041215 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15129 041216 003 06 0 00 022201 ER3 AC,22201 ;RESULT IN AC IS INCORRECT 15130 041217 312 07 0 00 041624 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 15131 041220 004 07 0 00 022201 ER4 AC+1,22201 ;RESULT IN AC+1 IS INCORRECT 15132 041221 321 10 0 00 041212 JUMPL AC+2,E22200 ;LOOP ON ERROR SWITCH^ 15133 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 41 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0330 15134 ;SHIFT CONNECTIONS TEST 15135 ;TEST AR0 SHRT INP-ONE'S - ROTC AC,-2 15136 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 15137 SR2 (223,0,0,0,2,400000,0,0,0,ROTC,-2)^ 15138 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15139 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -2 BIT POSITIONS AND 15140 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 15141 ;[XWD 0,0] 15142 15143 041222 200 06 0 00 041612 E22300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15144 041223 200 07 0 00 041620 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1 15145 041224 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15146 041225 312 06 0 00 041621 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 15147 041226 003 06 0 00 022301 ER3 AC,22301 ;RESULT IN AC IS INCORRECT 15148 041227 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 15149 041230 004 07 0 00 022301 ER4 AC+1,22301 ;RESULT IN AC+1 IS INCORRECT 15150 041231 321 10 0 00 041222 JUMPL AC+2,E22300 ;LOOP ON ERROR SWITCH^ 15151 15152 ;SHIFT CONNECTIONS TEST 15153 ;TEST AR0 SHRT INP-ZERO'S - ROTC AC,-2 15154 ;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 15155 SR2 (224,-1,-1,-1,-3,377777,-1,-1,-1,ROTC,-2)^ 15156 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15157 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -2 BIT POSITIONS AND 15158 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 15159 ;[XWD -1,-1] 15160 15161 041232 200 06 0 00 041613 E22400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15162 041233 200 07 0 00 041625 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1 15163 041234 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15164 041235 312 06 0 00 041623 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 15165 041236 003 06 0 00 022401 ER3 AC,22401 ;RESULT IN AC IS INCORRECT 15166 041237 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 15167 041240 004 07 0 00 022401 ER4 AC+1,22401 ;RESULT IN AC+1 IS INCORRECT 15168 041241 321 10 0 00 041232 JUMPL AC+2,E22400 ;LOOP ON ERROR SWITCH^ 15169 15170 ;SHIFT CONNECTIONS TEST 15171 ;TEST AR1 SHRT INP-ONE'S - ROTC AC,-2 15172 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 15173 SR2 (225,0,0,0,1,200000,0,0,0,ROTC,-2)^ 15174 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15175 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] -2 BIT POSITIONS AND 15176 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 15177 ;[XWD 0,0] 15178 15179 041242 200 06 0 00 041612 E22500: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15180 041243 200 07 0 00 041622 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1 15181 041244 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15182 041245 312 06 0 00 041627 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 15183 041246 003 06 0 00 022501 ER3 AC,22501 ;RESULT IN AC IS INCORRECT 15184 041247 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 15185 041250 004 07 0 00 022501 ER4 AC+1,22501 ;RESULT IN AC+1 IS INCORRECT 15186 041251 321 10 0 00 041242 JUMPL AC+2,E22500 ;LOOP ON ERROR SWITCH^ 15187 15188 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 41-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0331 15189 ;TEST AR1 SHRT INP-ZERO'S - ROTC AC,-2 15190 ;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 15191 SR2 (226,-1,-1,-1,-2,577777,-1,-1,-1,ROTC,-2)^ 15192 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15193 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] -2 BIT POSITIONS AND 15194 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND 15195 ;[XWD -1,-1] 15196 15197 041252 200 06 0 00 041613 E22600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15198 041253 200 07 0 00 041624 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1 15199 041254 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15200 041255 312 06 0 00 041631 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 15201 041256 003 06 0 00 022601 ER3 AC,22601 ;RESULT IN AC IS INCORRECT 15202 041257 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 15203 041260 004 07 0 00 022601 ER4 AC+1,22601 ;RESULT IN AC+1 IS INCORRECT 15204 041261 321 10 0 00 041252 JUMPL AC+2,E22600 ;LOOP ON ERROR SWITCH^ 15205 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 41-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0332 15206 ;SHIFT CONNECTIONS TEST 15207 ;TEST AR34 SHRT INP-ONE'S - ROTC AC,-2 15208 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 15209 SR2 (227,0,10,0,0,0,2,0,0,ROTC,-2)^ 15210 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15211 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND 15212 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 15213 ;[XWD 0,0] 15214 15215 041262 200 06 0 00 041614 E22700: MOVE AC,[XWD 0,10] ;INITIALIZE AC 15216 041263 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 15217 041264 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15218 041265 312 06 0 00 041620 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 15219 041266 003 06 0 00 022701 ER3 AC,22701 ;RESULT IN AC IS INCORRECT 15220 041267 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 15221 041270 004 07 0 00 022701 ER4 AC+1,22701 ;RESULT IN AC+1 IS INCORRECT 15222 041271 321 10 0 00 041262 JUMPL AC+2,E22700 ;LOOP ON ERROR SWITCH^ 15223 15224 ;SHIFT CONNECTIONS TEST 15225 ;TEST AR34 SHRT INP-ZERO'S - ROTC AC,-2 15226 ;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 15227 SR2 (230,-1,-11,-1,-1,-1,-3,-1,-1,ROTC,-2)^ 15228 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15229 ;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND 15230 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 15231 ;[XWD -1,-1] 15232 15233 041272 200 06 0 00 041633 E23000: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 15234 041273 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 15235 041274 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15236 041275 312 06 0 00 041625 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 15237 041276 003 06 0 00 023001 ER3 AC,23001 ;RESULT IN AC IS INCORRECT 15238 041277 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 15239 041300 004 07 0 00 023001 ER4 AC+1,23001 ;RESULT IN AC+1 IS INCORRECT 15240 041301 321 10 0 00 041272 JUMPL AC+2,E23000 ;LOOP ON ERROR SWITCH^ 15241 15242 ;SHIFT CONNECTIONS TEST 15243 ;TEST AR35 SHRT INP-ONE'S - ROTC AC,-2 15244 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 15245 SR2 (231,0,4,0,0,0,1,0,0,ROTC,-2)^ 15246 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15247 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND 15248 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 15249 ;[XWD 0,0] 15250 15251 041302 200 06 0 00 041617 E23100: MOVE AC,[XWD 0,4] ;INITIALIZE AC 15252 041303 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 15253 041304 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15254 041305 312 06 0 00 041622 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 15255 041306 003 06 0 00 023101 ER3 AC,23101 ;RESULT IN AC IS INCORRECT 15256 041307 312 07 0 00 041612 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 15257 041310 004 07 0 00 023101 ER4 AC+1,23101 ;RESULT IN AC+1 IS INCORRECT 15258 041311 321 10 0 00 041302 JUMPL AC+2,E23100 ;LOOP ON ERROR SWITCH^ 15259 15260 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 41-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0333 15261 ;TEST AR35 SHRT INP-ZERO'S - ROTC AC,-2 15262 ;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 15263 SR2 (232,-1,-5,-1,-1,-1,-2,-1,-1,ROTC,-2)^ 15264 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15265 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND 15266 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 15267 ;[XWD -1,-1] 15268 15269 041312 200 06 0 00 041632 E23200: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 15270 041313 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 15271 041314 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15272 041315 312 06 0 00 041624 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 15273 041316 003 06 0 00 023201 ER3 AC,23201 ;RESULT IN AC IS INCORRECT 15274 041317 312 07 0 00 041613 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 15275 041320 004 07 0 00 023201 ER4 AC+1,23201 ;RESULT IN AC+1 IS INCORRECT 15276 041321 321 10 0 00 041312 JUMPL AC+2,E23200 ;LOOP ON ERROR SWITCH^ 15277 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 42 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0334 15278 ;SHIFT CONNECTIONS TEST 15279 ;TEST MQ0 SHRT INP-ONE'S - ROTC AC,-2 15280 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 15281 SR2 (233,0,2,0,0,0,0,400000,0,ROTC,-2)^ 15282 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15283 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND 15284 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15285 ;[XWD 400000,0] 15286 15287 041322 200 06 0 00 041620 E23300: MOVE AC,[XWD 0,2] ;INITIALIZE AC 15288 041323 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 15289 041324 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15290 041325 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15291 041326 003 06 0 00 023301 ER3 AC,23301 ;RESULT IN AC IS INCORRECT 15292 041327 312 07 0 00 041621 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 15293 041330 004 07 0 00 023301 ER4 AC+1,23301 ;RESULT IN AC+1 IS INCORRECT 15294 041331 321 10 0 00 041322 JUMPL AC+2,E23300 ;LOOP ON ERROR SWITCH^ 15295 15296 ;SHIFT CONNECTIONS TEST 15297 ;TEST MQ0 SHRT INP-ZERO'S - ROTC AC,-2 15298 ;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 15299 SR2 (234,-1,-3,-1,-1,-1,-1,377777,-1,ROTC,-2)^ 15300 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15301 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND 15302 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15303 ;[XWD 377777,-1] 15304 15305 041332 200 06 0 00 041625 E23400: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 15306 041333 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 15307 041334 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15308 041335 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15309 041336 003 06 0 00 023401 ER3 AC,23401 ;RESULT IN AC IS INCORRECT 15310 041337 312 07 0 00 041623 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 15311 041340 004 07 0 00 023401 ER4 AC+1,23401 ;RESULT IN AC+1 IS INCORRECT 15312 041341 321 10 0 00 041332 JUMPL AC+2,E23400 ;LOOP ON ERROR SWITCH^ 15313 15314 ;SHIFT CONNECTIONS TEST 15315 ;TEST MQ1 SHRT INP-ONE'S - ROTC AC,-2 15316 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 15317 SR2 (235,0,1,0,0,0,0,200000,0,ROTC,-2)^ 15318 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15319 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -2 BIT POSITIONS AND 15320 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15321 ;[XWD 200000,0] 15322 15323 041342 200 06 0 00 041622 E23500: MOVE AC,[XWD 0,1] ;INITIALIZE AC 15324 041343 200 07 0 00 041612 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 15325 041344 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15326 041345 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15327 041346 003 06 0 00 023501 ER3 AC,23501 ;RESULT IN AC IS INCORRECT 15328 041347 312 07 0 00 041627 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 15329 041350 004 07 0 00 023501 ER4 AC+1,23501 ;RESULT IN AC+1 IS INCORRECT 15330 041351 321 10 0 00 041342 JUMPL AC+2,E23500 ;LOOP ON ERROR SWITCH^ 15331 15332 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 42-1 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0335 15333 ;TEST MQ1 SHRT INP-ZERO'S - ROTC AC,-2 15334 ;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 15335 SR2 (236,-1,-2,-1,-1,-1,-1,577777,-1,ROTC,-2)^ 15336 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15337 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -2 BIT POSITIONS AND 15338 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15339 ;[XWD 577777,-1] 15340 15341 041352 200 06 0 00 041624 E23600: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 15342 041353 200 07 0 00 041613 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 15343 041354 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15344 041355 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15345 041356 003 06 0 00 023601 ER3 AC,23601 ;RESULT IN AC IS INCORRECT 15346 041357 312 07 0 00 041631 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 15347 041360 004 07 0 00 023601 ER4 AC+1,23601 ;RESULT IN AC+1 IS INCORRECT 15348 041361 321 10 0 00 041352 JUMPL AC+2,E23600 ;LOOP ON ERROR SWITCH^ 15349 PAGE DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 42-2 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0336 15350 ;SHIFT CONNECTIONS TEST 15351 ;TEST MQ34 SHRT INP-ONE'S - ROTC AC,-2 15352 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 15353 SR2 (237,0,0,0,10,0,0,0,2,ROTC,-2)^ 15354 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15355 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND 15356 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15357 ;[XWD 0,2] 15358 15359 041362 200 06 0 00 041612 E23700: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15360 041363 200 07 0 00 041614 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 15361 041364 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15362 041365 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15363 041366 003 06 0 00 023701 ER3 AC,23701 ;RESULT IN AC IS INCORRECT 15364 041367 312 07 0 00 041620 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 15365 041370 004 07 0 00 023701 ER4 AC+1,23701 ;RESULT IN AC+1 IS INCORRECT 15366 041371 321 10 0 00 041362 JUMPL AC+2,E23700 ;LOOP ON ERROR SWITCH^ 15367 15368 ;SHIFT CONNECTIONS TEST 15369 ;TEST MQ34 SHRT INP-ZERO'S - ROTC AC,-2 15370 ;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 15371 SR2 (240,-1,-1,-1,-11,-1,-1,-1,-3,ROTC,-2)^ 15372 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15373 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND 15374 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15375 ;[XWD -1,-3] 15376 15377 041372 200 06 0 00 041613 E24000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15378 041373 200 07 0 00 041633 MOVE AC+1,[XWD -1,-11] ;INITIALIZE AC+1 15379 041374 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15380 041375 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15381 041376 003 06 0 00 024001 ER3 AC,24001 ;RESULT IN AC IS INCORRECT 15382 041377 312 07 0 00 041625 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 15383 041400 004 07 0 00 024001 ER4 AC+1,24001 ;RESULT IN AC+1 IS INCORRECT 15384 041401 321 10 0 00 041372 JUMPL AC+2,E24000 ;LOOP ON ERROR SWITCH^ 15385 15386 ;SHIFT CONNECTIONS TEST 15387 ;TEST MQ35 SHRT INP-ONE'S - ROTC AC,-2 15388 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 15389 SR2 (241,0,0,0,4,0,0,0,1,ROTC,-2)^ 15390 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15391 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND 15392 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 15393 ;[XWD 0,1] 15394 15395 041402 200 06 0 00 041612 E24100: MOVE AC,[XWD 0,0] ;INITIALIZE AC 15396 041403 200 07 0 00 041617 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 15397 041404 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15398 041405 312 06 0 00 041612 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 15399 041406 003 06 0 00 024101 ER3 AC,24101 ;RESULT IN AC IS INCORRECT 15400 041407 312 07 0 00 041622 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 15401 041410 004 07 0 00 024101 ER4 AC+1,24101 ;RESULT IN AC+1 IS INCORRECT 15402 041411 321 10 0 00 041402 JUMPL AC+2,E24100 ;LOOP ON ERROR SWITCH^ 15403 15404 ;SHIFT CONNECTIONS TEST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 42-3 DSKAI1 MAC 29-Mar-78 08:41 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC) SEQ 0337 15405 ;TEST MQ35 SHRT INP-ZERO'S - ROTC AC,-2 15406 ;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 15407 SR2 (242,-1,-1,-1,-5,-1,-1,-1,-2,ROTC,-2)^ 15408 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 15409 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND 15410 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 15411 ;[XWD -1,-2] 15412 15413 041412 200 06 0 00 041613 E24200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 15414 041413 200 07 0 00 041632 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 15415 041414 245 06 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 15416 041415 312 06 0 00 041613 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 15417 041416 003 06 0 00 024201 ER3 AC,24201 ;RESULT IN AC IS INCORRECT 15418 041417 312 07 0 00 041624 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 15419 041420 004 07 0 00 024201 ER4 AC+1,24201 ;RESULT IN AC+1 IS INCORRECT 15420 041421 321 10 0 00 041412 JUMPL AC+2,E24200 ;LOOP ON ERROR SWITCH^ 15421 15422 041422 254 00 0 00 030057 JRST BEGEND DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0338 15423 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 15424 15425 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 15426 15427 041423 202 00 0 00 041771 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 15428 041424 202 01 0 00 041772 MOVEM 1,%ERAC1# ;SAVE AC1 15429 041425 202 02 0 00 041773 MOVEM 2,%ERAC2# ;SAVE AC2 15430 041426 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 15431 041427 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 15432 041430 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 15433 041431 350 00 0 00 041766 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 15434 041432 200 00 0 00 041766 MOVE 0,MICNT 15435 041433 504 00 0 00 030114 HRL 0,$SVUPC 15436 041434 402 00 0 00 041767 SETZM PROCED# ;CLEAR PROCEED FLAG 15437 041435 037 10 0 00 000002 SWITCH 15438 041436 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 15439 041437 254 00 0 00 041551 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 15440 041440 200 01 0 00 030113 MOVE 1,$SVUUO 15441 041441 242 01 0 00 777745 LSH 1,-^D27 15442 041442 202 01 0 00 041770 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 15443 041443 200 00 0 00 041771 MOVE 0,%ERAC0 15444 041444 200 01 0 00 041772 MOVE 1,%ERAC1 15445 041445 335 00 1 00 041765 SKIPGE @@ERRLOP ;ERR LOOP AC > OR = 0 ? 15446 041446 254 00 0 00 041603 JRST %ERRS4 ;NO, SEE IF PRINT ALL 15447 041447 402 00 0 00 041766 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 15448 041450 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 15449 041451 254 00 0 00 041455 JRST .+4 ;NO, DON'T NEED TITLE 15450 041452 336 00 0 00 041774 SKIPN %ERFST# ;FIRST ERROR ? 15451 041453 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 15452 041454 476 00 0 00 041774 SETOM %ERFST 15453 041455 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 15454 041456 254 00 0 00 041462 JRST .+4 ;YES 15455 PMSG <^TEST PASS COUNT = >^ 15456 041457 037 02 0 00 041646 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 15457 041460 200 00 0 00 030047 MOVE PASCNT 15458 041461 037 15 0 00 000000 PNTDEC 15459 PMSG <^PC = >^ 15460 041462 037 02 0 00 041652 PSIXM [SIXBIT\^PC = _\]^ 15461 041463 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 15462 041464 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 15463 041465 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 15464 XLIST 15465 IFDEF ERDIAG,^ 15471 041466 037 02 0 00 041654 PSIXM [SIXBIT\^RESULT = _\]^ 15472 041467 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 15473 041470 242 01 0 00 777751 LSH 1,-27 15474 041471 405 01 0 00 000017 ANDI 1,17 15475 041472 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 15476 041473 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 15477 041474 200 00 0 01 041771 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 15478 041475 037 13 0 00 000000 PNTHW ;PRINT C(AC) 15479 15480 041476 200 00 0 00 030046 MOVE CONSW 15481 041477 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 15482 041500 254 00 0 00 041547 JRST %ERMORE ;NO, RESTORE AC'S ETC. 15483 15484 ;PRINT FAILURE DESCRIPTOR 15485 15486 041501 200 01 0 00 041770 MOVE 1,%ACS1A ;GET UUO NUMBER 15487 041502 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 15488 041503 254 00 0 00 041507 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 15489 041504 037 00 0 00 030242 PCRL 15490 041505 200 00 0 01 041533 MOVE %FLTTB(1) 15491 041506 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 15492 15493 ;PRINT FAULT NUMBER 15494 15495 041507 %ERMS3: PMSG <^FAULT NUMBER = >^ 15496 041507 037 02 0 00 041656 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 15497 041510 201 00 0 00 041532 MOVEI TLET 15498 041511 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0340 15499 15500 041512 550 00 0 00 030113 HRRZ $SVUUO 15501 041513 602 00 0 00 700000 TRNE 700000 15502 041514 254 00 0 00 041530 JRST %ER6X 15503 041515 602 00 0 00 070000 TRNE 070000 15504 041516 254 00 0 00 041526 JRST %ER5X 15505 041517 602 00 0 00 007000 TRNE 007000 15506 041520 254 00 0 00 041524 JRST %ER4X 15507 041521 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 15508 041522 037 00 0 00 030242 %ER7X: PCRL 15509 041523 254 00 0 00 041547 JRST %ERMORE 15510 15511 041524 037 04 0 00 000000 %ER4X: PNT4 15512 041525 254 00 0 00 041522 JRST %ER7X 15513 041526 037 05 0 00 000000 %ER5X: PNT5 15514 041527 254 00 0 00 041522 JRST %ER7X 15515 041530 037 06 0 00 000000 %ER6X: PNT6 15516 041531 254 00 0 00 041522 JRST %ER7X 15517 15518 ;FAILURE DESCRIPTORS 15519 15520 041532 000000 000000 TLET: 0 ;TEST LETTER 15521 041533 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 15522 041534 000000 041612 %NODES: [0] ;NO DESCRIPTOR 15523 041535 000000 041612 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 15524 041536 000000 041661 $ACF: [ASCIZ/C(AC) FAILED/] 15525 041537 000000 041664 %AC1F: [ASCIZ/C(AC+1) FAILED/] 15526 041540 000000 041667 %EF: [ASCIZ/C(E) FAILED/] 15527 041541 000000 041672 %E1F: [ASCIZ/C(E+1) FAILED/] 15528 041542 000000 041675 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 15529 041543 000000 041701 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 15530 041544 000000 041705 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 15531 041545 000000 041711 %EEF: [ASCIZ/C(C(E)) FAILED/] 15532 041546 000000 041714 %FF: [ASCIZ/FLAG FAILED/] 15533 > 15534 XLIST 15535 LIST DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0341 15536 ;RESTORE AC'S AND RETURN OR HALT 15537 15538 041547 256 00 0 00 030101 %ERMORE:XCT ERMORE 15539 041550 037 10 0 00 000002 SWITCH 15540 15541 041551 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 15542 041552 254 00 0 00 041556 JRST .+4 ;NONE 15543 041553 201 00 0 00 041556 MOVEI .+3 ;SAVE CONT ADDRESS 15544 041554 202 00 0 00 000130 MOVEM JOBOPC 15545 041555 254 00 1 00 030063 JRST @@ALTMGO ;PERFORM TRANSFER 15546 041556 200 00 0 00 030046 MOVE CONSW 15547 041557 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 15548 041560 037 14 0 00 000004 ERRHLT ;YES 15549 041561 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 15550 041562 476 00 0 00 041767 SETOM PROCED ;NO, SET THE PROCEED FLAG 15551 041563 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 15552 041564 037 01 0 00 000007 PBELL ;YES, GO RING BELL 15553 15554 041565 200 02 0 00 041773 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 15555 041566 200 01 0 00 041772 MOVE 1,%ERAC1 15556 041567 476 00 1 00 041765 SETOM @@ERRLOP ;SET C(ERR LOOP AC) TO -1 15557 041570 336 00 0 00 041767 SKIPN PROCED ;LOOP ON ERROR ? 15558 041571 254 00 0 00 041601 JRST %ERRS5 ;YES 15559 041572 350 00 1 00 041765 AOS @@ERRLOP ;NO, INC C(ERR LOOP AC) 15560 041573 350 00 1 00 041765 AOS @@ERRLOP ;SO IT ='S 1 15561 041574 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 15562 041575 254 00 0 00 041601 JRST %ERRS5 ;NO, CONTINUE PROGRAM 15563 041576 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 15564 041577 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 15565 041600 254 00 0 00 041607 JRST %ERRS6 15566 15567 041601 200 00 0 00 041771 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 15568 041602 254 00 0 00 030065 JRST UUOEXT 15569 15570 041603 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 15571 041604 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 15572 041605 254 00 0 00 041551 JRST %ERRS1 ;NO 15573 041606 254 00 0 00 041447 JRST %ERMS1 ;YES 15574 15575 041607 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 15576 041607 037 04 0 00 041717 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 15577 041610 254 00 0 00 030061 JRST $BEND2 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0342 15578 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 15579 15580 ;PROGRAM LITERALS 15581 15582 XLIST 15583 IFNDEF $LPAPER, 15584 041611 LIT 15585 041611 101 111 000 000 000 15586 041612 000000 000000 15587 041613 777777 777777 15588 041614 000000 000010 15589 041615 741703 607417 15590 041616 000000 000020 15591 041617 000000 000004 15592 041620 000000 000002 15593 041621 400000 000000 15594 041622 000000 000001 15595 041623 377777 777777 15596 041624 777777 777776 15597 041625 777777 777775 15598 041626 100000 000000 15599 041627 200000 000000 15600 041630 677777 777777 15601 041631 577777 777777 15602 041632 777777 777773 15603 041633 777777 777767 15604 041634 777777 777774 15605 041635 577777 777776 15606 041636 377777 777776 15607 041637 177777 777777 15608 041640 377777 777775 15609 041641 177777 777775 15610 041642 177777 777776 15611 041643 600000 000000 15612 041644 700000 000000 15613 041645 077777 777777 15614 041646 76 64 45 63 64 00 15615 041647 60 41 63 63 00 43 15616 041650 57 65 56 64 00 35 15617 041651 00 77 00 00 00 00 15618 041652 76 60 43 00 35 00 15619 041653 00 00 77 00 00 00 15620 041654 76 62 45 63 65 54 15621 041655 64 00 00 35 00 77 15622 041656 76 46 41 65 54 64 15623 041657 00 56 65 55 42 45 15624 041660 62 00 35 00 77 00 15625 041661 103 050 101 103 051 15626 041662 040 106 101 111 114 15627 041663 105 104 000 000 000 15628 041664 103 050 101 103 053 15629 041665 061 051 040 106 101 15630 041666 111 114 105 104 000 15631 041667 103 050 105 051 040 15632 041670 106 101 111 114 105 DSKAI DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (9) 0,1 MACRO %53(1020) 09:47 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0343 15633 041671 104 000 000 000 000 15634 041672 103 050 105 053 061 15635 041673 051 040 106 101 111 15636 041674 114 105 104 000 000 15637 041675 103 050 103 050 101 15638 041676 103 122 051 051 040 15639 041677 106 101 111 114 105 15640 041700 104 000 000 000 000 15641 041701 103 050 103 050 101 15642 041702 103 122 053 061 051 15643 041703 051 040 106 101 111 15644 041704 114 105 104 000 000 15645 041705 103 050 103 050 101 15646 041706 103 114 051 051 040 15647 041707 106 101 111 114 105 15648 041710 104 000 000 000 000 15649 041711 103 050 103 050 105 15650 041712 051 051 040 106 101 15651 041713 111 114 105 104 000 15652 041714 106 114 101 107 040 15653 041715 106 101 111 114 105 15654 041716 104 000 000 000 000 15655 041717 76 45 70 43 45 45 15656 041720 44 45 44 00 41 54 15657 041721 54 57 67 45 44 00 15658 041722 45 62 62 57 62 63 15659 041723 76 77 00 00 00 00 15660 LIST 15661 041724 000000 000000 ENDSLD: 0 15662 15663 IFDEF DEBUG,< 15664 041725 PATCH: BLOCK DEBUG ;PATCHING AREA 15665 > 15666 15667 ;PROGRAM VARIABLES 15668 041765 VAR 15669 15670 IFDEF PGMEND,< 15671 041775 000000 000000 END: 0 15672 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 041776 CPU TIME USED 00:47.488 24P CORE USED ABORT 145# AC 777# 779 780 781 782 784 785 786 787 788 790 791 792 793 SEQ 0344 794 796# 798 799 800 801 803 804 805 806 807 808 809 811 812 813 814 815 816 817 818 829# 831 832 833 834 836 837 838 839 840 842 843 844 845 846 848# 850 851 852 853 855 856 857 858 859 860 861 863 864 865 866 867 868 869 870 881# 883 884 885 886 888 889 890 891 892 894 895 896 897 898 900# 902 903 904 905 907 908 909 910 911 912 913 915 916 917 918 919 920 921 922 936 937 938 939 940 941 942 943 955 956 957 958 959 960 961 962 965# 967 968 969 970 1001 1002 1003 1004 1005 1006 1018 1019 1020 1021 1022 1023 1035 1036 1037 1038 1039 1040 1052 1053 1054 1055 1056 1057 1069 1070 1071 1072 1073 1074 1086 1087 1088 1089 1090 1091 1103 1104 1105 1106 1107 1108 1120 1121 1122 1123 1124 1125 1137 1138 1139 1140 1141 1142 1154 1155 1156 1157 1158 1159 1171 1172 1173 1174 1175 1176 1188 1189 1190 1191 1192 1193 1205 1206 1207 1208 1209 1210 1222 1223 1224 1225 1226 1227 1239 1240 1241 1242 1243 1244 1256 1257 1258 1259 1260 1261 1273 1274 1275 1276 1277 1278 1290 1291 1292 1293 1294 1295 1327 1328 1329 1330 1331 1332 1333 1345 1346 1347 1348 1349 1350 1351 1363 1364 1365 1366 1367 1368 1369 1381 1382 1383 1384 1385 1386 1387 1399 1400 1401 1402 1403 1404 1405 1417 1418 1419 1420 1421 1422 1423 1435 1436 1437 1438 1439 1440 1441 1453 1454 1455 1456 1457 1458 1459 1471 1472 1473 1474 1475 1476 1477 1489 1490 1491 1492 1493 1494 1495 1507 1508 1509 1510 1511 1512 1513 1525 1526 1527 1528 1529 1530 1531 1543 1544 1545 1546 1547 1548 1549 1561 1562 1563 1564 1565 1566 1567 1579 1580 1581 1582 1583 1584 1585 1597 1598 1599 1600 1601 1602 1603 1615 1616 1617 1618 1619 1620 1621 1633 1634 1635 1636 1637 1638 1639 1641# 1643 1644 1645 1646 1680 1681 1682 1683 1684 1685 1686 1698 1699 1700 1701 1702 1703 1704 1716 1717 1718 1719 1720 1721 1722 1734 1735 1736 1737 1738 1739 1740 1752 1753 1754 1755 1756 1757 1758 1770 1771 1772 1773 1774 1775 1776 1788 1789 1790 1791 1792 1793 1794 1806 1807 1808 1809 1810 1811 1812 1824 1825 1826 1827 1828 1829 1830 1842 1843 1844 1845 1846 1847 1848 1860 1861 1862 1863 1864 1865 1866 1878 1879 1880 1881 1882 1883 1884 1896 1897 1898 1899 1900 1901 1902 1914 1915 1916 1917 1918 1919 1920 1932 1933 1934 1935 1936 1937 1938 1950 1951 1952 1953 1954 1955 1956 1968 1969 1970 1971 1972 1973 1974 1986 1987 1988 1989 1990 1991 1992 2024 2025 2026 2027 2028 2029 2030 2042 2043 2044 2045 2046 2047 2048 2060 2061 2062 2063 2064 2065 2066 2078 2079 2080 2081 2082 2083 2084 2096 2097 2098 2099 2100 2101 2102 2114 2115 2116 2117 2118 2119 2120 2132 2133 2134 2135 2136 2137 2138 2150 2151 2152 2153 2154 2155 2156 2168 2169 2170 2171 2172 2173 2174 2186 2187 2188 2189 2190 2191 2192 2204 2205 2206 2207 2208 2209 2210 2222 2223 2224 2225 2226 2227 2228 2240 2241 2242 2243 2244 2245 2246 2258 2259 2260 2261 2262 2263 2264 2276 2277 2278 2279 2280 2281 2282 2294 2295 2296 2297 2298 2299 2300 2312 2313 2314 2315 2316 2317 2318 2330 2331 2332 2333 2334 2335 2336 2343# 2345 2346 2347 2348 2356 2357 2358 2359 2360 2361 2362 2363 2371 2372 2373 2374 2375 2376 2377 2378 2386 2387 2388 2389 2390 2391 2392 2393 2401 2402 2403 2404 2405 2406 2407 2408 2417 2418 2419 2420 2421 2422 2423 2424 2433 2434 2435 2436 2437 2438 2439 2440 2449 2450 2451 2452 2453 2454 2455 2456 2465 2466 2467 2468 2469 2470 2471 2472 2475# 2477 2478 2479 2480 2504 2505 2506 2507 2508 2516 2517 2518 2519 2520 2528 2529 2530 2531 2532 2560 2561 2562 2563 2564 2565 2574 2575 2576 2577 2578 2579 2588 2589 2590 2591 2592 2593 2601# 2603 2604 2605 2606 2608 2609 2610 2611 2612 2618 2619 2620 2621 2622 2662 2664 2667 2668 2669 2670 2685 2687 2690 2691 2692 2693 2708 2710 2713 2714 2715 SEQ 0345 2716 2731 2733 2736 2737 2738 2739 2754 2756 2759 2760 2761 2762 2777 2779 2782 2783 2784 2785 2800 2802 2805 2806 2807 2808 2823 2825 2828 2829 2830 2831 2846 2848 2851 2852 2853 2854 2869 2871 2874 2875 2876 2877 2892 2894 2897 2898 2899 2900 2915 2917 2920 2921 2922 2923 2938 2940 2943 2944 2945 2946 2961 2963 2966 2967 2968 2969 2984 2986 2989 2990 2991 2992 3007 3009 3012 3013 3014 3015 3030 3032 3035 3036 3037 3038 3053 3057 3058 3059 3060 3061 3102 3104 3107 3108 3109 3110 3125 3127 3130 3131 3132 3133 3148 3150 3153 3154 3155 3156 3171 3173 3176 3177 3178 3179 3194 3196 3199 3200 3201 3202 3217 3219 3222 3223 3224 3225 3240 3242 3245 3246 3247 3248 3263 3265 3268 3269 3270 3271 3286 3288 3291 3292 3293 3294 3309 3311 3314 3315 3316 3317 3332 3334 3337 3338 3339 3340 3355 3357 3360 3361 3362 3363 3378 3380 3383 3384 3385 3386 3401 3403 3406 3407 3408 3409 3424 3426 3429 3430 3431 3432 3447 3449 3452 3453 3454 3455 3470 3472 3475 3476 3477 3478 3493 3497 3498 3499 3500 3501 3540 3542 3545 3546 3547 3548 3562 3564 3567 3568 3569 3570 3584 3586 3589 3590 3591 3592 3606 3608 3611 3612 3613 3614 3628 3630 3633 3634 3635 3636 3650 3652 3655 3656 3657 3658 3672 3674 3677 3678 3679 3680 3694 3696 3699 3700 3701 3702 3716 3718 3721 3722 3723 3724 3738 3740 3743 3744 3745 3746 3760 3762 3765 3766 3767 3768 3782 3784 3787 3788 3789 3790 3804 3806 3809 3810 3811 3812 3826 3828 3831 3832 3833 3834 3848 3850 3853 3854 3855 3856 3870 3872 3875 3876 3877 3878 3892 3894 3897 3898 3899 3900 3914 3918 3919 3920 3921 3922 3960 3962 3965 3966 3967 3968 3982 3984 3987 3988 3989 3990 4004 4006 4009 4010 4011 4012 4026 4028 4031 4032 4033 4034 4048 4050 4053 4054 4055 4056 4070 4072 4075 4076 4077 4078 4092 4094 4097 4098 4099 4100 4114 4116 4119 4120 4121 4122 4136 4138 4141 4142 4143 4144 4158 4160 4163 4164 4165 4166 4180 4182 4185 4186 4187 4188 4202 4204 4207 4208 4209 4210 4224 4226 4229 4230 4231 4232 4246 4248 4251 4252 4253 4254 4268 4270 4273 4274 4275 4276 4290 4292 4295 4296 4297 4298 4312 4314 4317 4318 4319 4320 4334 4338 4339 4340 4341 4342 4349# 4351 4352 4353 4354 4356 4357 4358 4359 4360 4366 4367 4368 4369 4370 4408 4410 4413 4414 4415 4416 4430 4432 4435 4436 4437 4438 4452 4454 4457 4458 4459 4460 4474 4476 4479 4480 4481 4482 4496 4498 4501 4502 4503 4504 4518 4520 4523 4524 4525 4526 4540 4542 4545 4546 4547 4548 4562 4564 4567 4568 4569 4570 4584 4586 4589 4590 4591 4592 4606 4608 4611 4612 4613 4614 4628 4630 4633 4634 4635 4636 4650 4652 4655 4656 4657 4658 4672 4674 4677 4678 4679 4680 4694 4696 4699 4700 4701 4702 4716 4718 4721 4722 4723 4724 4738 4740 4743 4744 4745 4746 4760 4762 4765 4766 4767 4768 4782 4786 4787 4788 4789 4790 4829 4831 4834 4835 4836 4837 4851 4853 4856 4857 4858 4859 4873 4875 4878 4879 4880 4881 4895 4897 4900 4901 4902 4903 4917 4919 4922 4923 4924 4925 4939 4941 4944 4945 4946 4947 4961 4963 4966 4967 4968 4969 4983 4985 4988 4989 4990 4991 5005 5007 5010 5011 5012 5013 5027 5029 5032 5033 5034 5035 5049 5051 5054 5055 5056 5057 5071 5073 5076 5077 5078 5079 5093 5095 5098 5099 5100 5101 5115 5117 5120 5121 5122 5123 5137 5139 5142 5143 5144 5145 5159 5161 5164 5165 5166 5167 5181 5183 5186 5187 5188 5189 5203 5207 5208 5209 5210 5211 5248 5250 5253 5254 5255 5256 5269 5271 5274 5275 5276 5277 5290 5292 5295 5296 5297 5298 5311 5313 5316 5317 5318 5319 5332 5334 5337 5338 5339 5340 5353 5355 5358 5359 5360 5361 5374 5376 5379 5380 5381 5382 5395 5397 5400 5401 5402 5403 5416 5418 5421 5422 5423 5424 5437 5439 5442 5443 5444 5445 5458 5460 5463 5464 5465 5466 5479 5481 5484 5485 5486 5487 5500 5502 5505 5506 5507 5508 5521 5523 5526 5527 5528 5529 5542 5544 5547 5548 5549 5550 5563 5565 5568 5569 5570 5571 SEQ 0346 5584 5586 5589 5590 5591 5592 5605 5609 5610 5611 5612 5613 5652 5654 5657 5658 5659 5660 5674 5676 5679 5680 5681 5682 5696 5698 5701 5702 5703 5704 5718 5720 5723 5724 5725 5726 5740 5742 5745 5746 5747 5748 5762 5764 5767 5768 5769 5770 5784 5786 5789 5790 5791 5792 5806 5808 5811 5812 5813 5814 5828 5830 5833 5834 5835 5836 5850 5852 5855 5856 5857 5858 5872 5874 5877 5878 5879 5880 5894 5896 5899 5900 5901 5902 5916 5918 5921 5922 5923 5924 5938 5940 5943 5944 5945 5946 5960 5962 5965 5966 5967 5968 5982 5984 5987 5988 5989 5990 6004 6006 6009 6010 6011 6012 6026 6030 6031 6032 6033 6034 6040# 6042 6043 6044 6045 6047 6048 6049 6050 6051 6057 6058 6059 6060 6061 6102 6104 6109 6110 6111 6112 6126 6128 6133 6134 6135 6136 6150 6152 6157 6158 6159 6160 6174 6176 6181 6182 6183 6184 6198 6200 6205 6206 6207 6208 6222 6224 6229 6230 6231 6232 6246 6248 6253 6254 6255 6256 6270 6272 6277 6278 6279 6280 6294 6296 6301 6302 6303 6304 6318 6320 6325 6326 6327 6328 6342 6344 6349 6350 6351 6352 6366 6368 6373 6374 6375 6376 6390 6392 6397 6398 6399 6400 6414 6416 6421 6422 6423 6424 6438 6440 6445 6446 6447 6448 6462 6464 6469 6470 6471 6472 6486 6490 6493 6494 6495 6496 6510 6516 6517 6518 6519 6520 6561 6563 6568 6569 6570 6571 6585 6587 6592 6593 6594 6595 6609 6611 6616 6617 6618 6619 6633 6635 6640 6641 6642 6643 6657 6659 6664 6665 6666 6667 6681 6683 6688 6689 6690 6691 6705 6707 6712 6713 6714 6715 6729 6731 6736 6737 6738 6739 6753 6755 6760 6761 6762 6763 6777 6779 6784 6785 6786 6787 6801 6803 6808 6809 6810 6811 6825 6827 6832 6833 6834 6835 6849 6851 6856 6857 6858 6859 6873 6875 6880 6881 6882 6883 6897 6899 6904 6905 6906 6907 6921 6923 6928 6929 6930 6931 6945 6949 6952 6953 6954 6955 6969 6975 6976 6977 6978 6979 7020 7022 7027 7028 7029 7030 7044 7046 7051 7052 7053 7054 7068 7070 7075 7076 7077 7078 7092 7094 7099 7100 7101 7102 7116 7118 7123 7124 7125 7126 7140 7142 7147 7148 7149 7150 7164 7166 7171 7172 7173 7174 7188 7190 7195 7196 7197 7198 7212 7214 7219 7220 7221 7222 7236 7238 7243 7244 7245 7246 7260 7262 7267 7268 7269 7270 7284 7286 7291 7292 7293 7294 7308 7310 7315 7316 7317 7318 7332 7334 7339 7340 7341 7342 7356 7358 7363 7364 7365 7366 7380 7382 7387 7388 7389 7390 7404 7408 7411 7412 7413 7414 7428 7434 7435 7436 7437 7438 7479 7481 7486 7487 7488 7489 7503 7505 7510 7511 7512 7513 7527 7529 7534 7535 7536 7537 7551 7553 7558 7559 7560 7561 7575 7577 7582 7583 7584 7585 7599 7601 7606 7607 7608 7609 7623 7625 7630 7631 7632 7633 7647 7649 7654 7655 7656 7657 7671 7673 7678 7679 7680 7681 7695 7697 7702 7703 7704 7705 7719 7721 7726 7727 7728 7729 7743 7745 7750 7751 7752 7753 7767 7769 7774 7775 7776 7777 7791 7793 7798 7799 7800 7801 7815 7817 7822 7823 7824 7825 7839 7841 7846 7847 7848 7849 7863 7867 7870 7871 7872 7873 7887 7893 7894 7895 7896 7897 7907# 7909 7910 7911 7912 7914 7915 7916 7917 7918 7919 7927 7928 7929 7930 7931 7932 7975 7976 7978 7981 7982 7983 7984 8000 8001 8003 8006 8007 8008 8009 8025 8026 8028 8031 8032 8033 8034 8050 8051 8053 8056 8057 8058 8059 8075 8076 8078 8081 8082 8083 8084 8100 8101 8103 8106 8107 8108 8109 8125 8126 8128 8131 8132 8133 8134 8150 8151 8153 8156 8157 8158 8159 8175 8176 8178 8181 8182 8183 8184 8200 8201 8203 8206 8207 8208 8209 8225 8226 8228 8231 8232 8233 8234 8250 8251 8253 8256 8257 8258 8259 8275 8276 8278 8281 8282 8283 8284 8300 8301 8303 8306 8307 8308 8309 8325 8326 8328 8331 8332 8333 8334 8350 8351 8353 8356 8357 8358 8359 8375 8376 8378 8381 8382 8383 8384 8400 8401 8405 8406 8407 8408 8409 8450 8451 8452 8453 8454 8455 8456 8472 8473 8474 8475 8476 8477 8478 8494 8495 8496 8497 8498 8499 8500 8516 8517 8518 8519 8520 8521 8522 8538 8539 8540 8541 SEQ 0347 8542 8543 8544 8560 8561 8562 8563 8564 8565 8566 8582 8583 8584 8585 8586 8587 8588 8604 8605 8606 8607 8608 8609 8610 8626 8627 8628 8629 8630 8631 8632 8648 8649 8650 8651 8652 8653 8654 8670 8671 8672 8673 8674 8675 8676 8692 8693 8694 8695 8696 8697 8698 8714 8715 8716 8717 8718 8719 8720 8736 8737 8738 8739 8740 8741 8742 8758 8759 8760 8761 8762 8763 8764 8780 8781 8782 8783 8784 8785 8786 8802 8803 8804 8805 8806 8807 8808 8851 8852 8854 8857 8858 8859 8860 8876 8877 8879 8882 8883 8884 8885 8901 8902 8904 8907 8908 8909 8910 8926 8927 8929 8932 8933 8934 8935 8951 8952 8954 8957 8958 8959 8960 8976 8977 8979 8982 8983 8984 8985 9001 9002 9004 9007 9008 9009 9010 9026 9027 9029 9032 9033 9034 9035 9051 9052 9054 9057 9058 9059 9060 9076 9077 9079 9082 9083 9084 9085 9101 9102 9104 9107 9108 9109 9110 9126 9127 9129 9132 9133 9134 9135 9151 9152 9154 9157 9158 9159 9160 9176 9177 9179 9182 9183 9184 9185 9201 9202 9204 9207 9208 9209 9210 9226 9227 9229 9232 9233 9234 9235 9251 9252 9254 9257 9258 9259 9260 9276 9277 9281 9282 9283 9284 9285 9328 9329 9330 9331 9332 9333 9334 9351 9352 9353 9354 9355 9356 9357 9374 9375 9376 9377 9378 9379 9380 9397 9398 9399 9400 9401 9402 9403 9420 9421 9422 9423 9424 9425 9426 9443 9444 9445 9446 9447 9448 9449 9466 9467 9468 9469 9470 9471 9472 9489 9490 9491 9492 9493 9494 9495 9512 9513 9514 9515 9516 9517 9518 9535 9536 9537 9538 9539 9540 9541 9558 9559 9560 9561 9562 9563 9564 9581 9582 9583 9584 9585 9586 9587 9604 9605 9606 9607 9608 9609 9610 9627 9628 9629 9630 9631 9632 9633 9650 9651 9652 9653 9654 9655 9656 9673 9674 9675 9676 9677 9678 9679 9696 9697 9698 9699 9700 9701 9702 9710# 9712 9713 9714 9715 9717 9718 9719 9720 9721 9722 9730 9731 9732 9733 9734 9735 9779 9780 9782 9785 9786 9787 9788 9805 9806 9808 9811 9812 9813 9814 9831 9832 9834 9837 9838 9839 9840 9857 9858 9860 9863 9864 9865 9866 9883 9884 9886 9889 9890 9891 9892 9909 9910 9912 9915 9916 9917 9918 9935 9936 9938 9941 9942 9943 9944 9961 9962 9964 9967 9968 9969 9970 9987 9988 9990 9993 9994 9995 9996 10013 10014 10016 10019 10020 10021 10022 10039 10040 10042 10045 10046 10047 10048 10065 10066 10068 10071 10072 10073 10074 10091 10092 10094 10097 10098 10099 10100 10117 10118 10120 10123 10124 10125 10126 10143 10144 10146 10149 10150 10151 10152 10169 10170 10172 10175 10176 10177 10178 10195 10196 10198 10201 10202 10203 10204 10221 10222 10226 10227 10228 10229 10230 10273 10274 10275 10276 10277 10278 10279 10296 10297 10298 10299 10300 10301 10302 10319 10320 10321 10322 10323 10324 10325 10342 10343 10344 10345 10346 10347 10348 10365 10366 10367 10368 10369 10370 10371 10388 10389 10390 10391 10392 10393 10394 10411 10412 10413 10414 10415 10416 10417 10434 10435 10436 10437 10438 10439 10440 10457 10458 10459 10460 10461 10462 10463 10480 10481 10482 10483 10484 10485 10486 10503 10504 10505 10506 10507 10508 10509 10526 10527 10528 10529 10530 10531 10532 10549 10550 10551 10552 10553 10554 10555 10572 10573 10574 10575 10576 10577 10578 10595 10596 10597 10598 10599 10600 10601 10618 10619 10620 10621 10622 10623 10624 10641 10642 10643 10644 10645 10646 10647 10691 10692 10694 10697 10698 10699 10700 10716 10717 10719 10722 10723 10724 10725 10741 10742 10744 10747 10748 10749 10750 10766 10767 10769 10772 10773 10774 10775 10791 10792 10794 10797 10798 10799 10800 10816 10817 10819 10822 10823 10824 10825 10841 10842 10844 10847 10848 10849 10850 10866 10867 10869 10872 10873 10874 10875 10891 10892 10894 10897 10898 10899 10900 10916 10917 10919 10922 10923 10924 10925 10941 10942 10944 10947 10948 10949 10950 10966 10967 10969 10972 10973 10974 10975 10991 10992 10994 10997 10998 10999 11000 11016 11017 11019 11022 11023 11024 11025 11041 11042 11044 11047 11048 11049 11050 11066 11067 11069 11072 11073 11074 11075 11091 11092 11094 11097 11098 11099 11100 11116 11117 11121 11122 11123 11124 11125 11166 11167 11168 11169 11170 11171 11172 11188 11189 11190 11191 11192 11193 11194 11210 11211 11212 11213 11214 11215 11216 11232 SEQ 0348 11233 11234 11235 11236 11237 11238 11254 11255 11256 11257 11258 11259 11260 11276 11277 11278 11279 11280 11281 11282 11298 11299 11300 11301 11302 11303 11304 11320 11321 11322 11323 11324 11325 11326 11342 11343 11344 11345 11346 11347 11348 11364 11365 11366 11367 11368 11369 11370 11386 11387 11388 11389 11390 11391 11392 11408 11409 11410 11411 11412 11413 11414 11430 11431 11432 11433 11434 11435 11436 11452 11453 11454 11455 11456 11457 11458 11474 11475 11476 11477 11478 11479 11480 11496 11497 11498 11499 11500 11501 11502 11518 11519 11520 11521 11522 11523 11524 11532# 11534 11535 11536 11537 11539 11540 11541 11542 11543 11544 11552 11553 11554 11555 11556 11557 11602 11603 11605 11610 11611 11612 11613 11629 11630 11632 11637 11638 11639 11640 11656 11657 11659 11664 11665 11666 11667 11683 11684 11686 11691 11692 11693 11694 11710 11711 11713 11718 11719 11720 11721 11737 11738 11740 11745 11746 11747 11748 11764 11765 11767 11772 11773 11774 11775 11791 11792 11794 11799 11800 11801 11802 11818 11819 11821 11826 11827 11828 11829 11845 11846 11848 11853 11854 11855 11856 11872 11873 11875 11880 11881 11882 11883 11899 11900 11902 11907 11908 11909 11910 11926 11927 11929 11934 11935 11936 11937 11953 11954 11956 11961 11962 11963 11964 11980 11981 11983 11988 11989 11990 11991 12007 12008 12010 12015 12016 12017 12018 12034 12035 12039 12042 12043 12044 12045 12061 12062 12064 12068 12069 12070 12071 12072 12114 12115 12117 12118 12119 12120 12121 12137 12138 12140 12141 12142 12143 12144 12160 12161 12163 12164 12165 12166 12167 12183 12184 12186 12187 12188 12189 12190 12206 12207 12209 12210 12211 12212 12213 12229 12230 12232 12233 12234 12235 12236 12252 12253 12255 12256 12257 12258 12259 12275 12276 12278 12279 12280 12281 12282 12298 12299 12301 12302 12303 12304 12305 12321 12322 12324 12325 12326 12327 12328 12344 12345 12347 12348 12349 12350 12351 12367 12368 12370 12371 12372 12373 12374 12390 12391 12393 12394 12395 12396 12397 12413 12414 12416 12417 12418 12419 12420 12436 12437 12439 12440 12441 12442 12443 12459 12460 12462 12463 12464 12465 12466 12514 12515 12517 12522 12523 12524 12525 12542 12543 12545 12550 12551 12552 12553 12570 12571 12573 12578 12579 12580 12581 12598 12599 12601 12606 12607 12608 12609 12626 12627 12629 12634 12635 12636 12637 12654 12655 12657 12662 12663 12664 12665 12682 12683 12685 12690 12691 12692 12693 12710 12711 12713 12718 12719 12720 12721 12738 12739 12741 12746 12747 12748 12749 12766 12767 12769 12774 12775 12776 12777 12794 12795 12797 12802 12803 12804 12805 12822 12823 12825 12830 12831 12832 12833 12850 12851 12853 12858 12859 12860 12861 12878 12879 12881 12886 12887 12888 12889 12906 12907 12909 12914 12915 12916 12917 12934 12935 12937 12942 12943 12944 12945 12962 12963 12967 12970 12971 12972 12973 12990 12991 12993 12997 12998 12999 13000 13001 13042 13043 13044 13045 13046 13047 13048 13064 13065 13066 13067 13068 13069 13070 13086 13087 13088 13089 13090 13091 13092 13108 13109 13110 13111 13112 13113 13114 13130 13131 13132 13133 13134 13135 13136 13152 13153 13154 13155 13156 13157 13158 13174 13175 13176 13177 13178 13179 13180 13196 13197 13198 13199 13200 13201 13202 13218 13219 13220 13221 13222 13223 13224 13240 13241 13242 13243 13244 13245 13246 13262 13263 13264 13265 13266 13267 13268 13284 13285 13286 13287 13288 13289 13290 13306 13307 13308 13309 13310 13311 13312 13328 13329 13330 13331 13332 13333 13334 13350 13351 13352 13353 13354 13355 13356 13372 13373 13374 13375 13376 13377 13378 13397 13398 13399 13400 13401 13402 13403 13404 13414 13415 13416 13417 13418 13419 13420 13421 13431 13432 13433 13434 13435 13436 13437 13438 13448 13449 13450 13451 13452 13453 13454 13455 13465 13466 13467 13468 13469 13470 13471 13472 13482 13483 13484 13485 13486 13487 13488 13489 13499 13500 13501 13502 13503 13504 13505 13506 13516 13517 13518 13519 13520 13521 13522 13523 13533 13534 13535 13536 13537 13538 13539 13540 13550 13551 13552 13553 13554 13555 13556 13557 13567 13568 13569 13570 13571 13572 13573 13574 13584 13585 13586 13587 13588 13589 13590 13591 13601 13602 13603 13604 13605 13606 13607 13608 13618 13619 13620 13621 13622 13623 13624 13625 13635 13636 13637 13638 13639 13640 13641 13642 13652 13653 13654 13655 13656 13657 13658 13659 13669 13670 13671 13672 13673 13674 13675 13676 13686 13687 13688 13689 13690 13691 13692 13693 13703 13704 13705 13706 13707 13708 SEQ 0349 13709 13710 13720 13721 13722 13723 13724 13725 13726 13727 13737 13738 13739 13740 13741 13742 13743 13744 13754 13755 13756 13757 13758 13759 13760 13761 13771 13772 13773 13774 13775 13776 13777 13778 13788 13789 13790 13791 13792 13793 13794 13795 13814 13815 13816 13817 13818 13819 13820 13821 13831 13832 13833 13834 13835 13836 13837 13838 13848 13849 13850 13851 13852 13853 13854 13855 13865 13866 13867 13868 13869 13870 13871 13872 13882 13883 13884 13885 13886 13887 13888 13889 13899 13900 13901 13902 13903 13904 13905 13906 13916 13917 13918 13919 13920 13921 13922 13923 13933 13934 13935 13936 13937 13938 13939 13940 13950 13951 13952 13953 13954 13955 13956 13957 13967 13968 13969 13970 13971 13972 13973 13974 13984 13985 13986 13987 13988 13989 13990 13991 14001 14002 14003 14004 14005 14006 14007 14008 14018 14019 14020 14021 14022 14023 14024 14025 14035 14036 14037 14038 14039 14040 14041 14042 14052 14053 14054 14055 14056 14057 14058 14059 14069 14070 14071 14072 14073 14074 14075 14076 14086 14087 14088 14089 14090 14091 14092 14093 14103 14104 14105 14106 14107 14108 14109 14110 14120 14121 14122 14123 14124 14125 14126 14127 14137 14138 14139 14140 14141 14142 14143 14144 14162 14163 14164 14165 14166 14167 14168 14169 14179 14180 14181 14182 14183 14184 14185 14186 14196 14197 14198 14199 14200 14201 14202 14203 14213 14214 14215 14216 14217 14218 14219 14220 14230 14231 14232 14233 14234 14235 14236 14237 14247 14248 14249 14250 14251 14252 14253 14254 14264 14265 14266 14267 14268 14269 14270 14271 14281 14282 14283 14284 14285 14286 14287 14288 14298 14299 14300 14301 14302 14303 14304 14305 14315 14316 14317 14318 14319 14320 14321 14322 14332 14333 14334 14335 14336 14337 14338 14339 14349 14350 14351 14352 14353 14354 14355 14356 14366 14367 14368 14369 14370 14371 14372 14373 14383 14384 14385 14386 14387 14388 14389 14390 14400 14401 14402 14403 14404 14405 14406 14407 14417 14418 14419 14420 14421 14422 14423 14424 14434 14435 14436 14437 14438 14439 14440 14441 14451 14452 14453 14454 14455 14456 14457 14458 14468 14469 14470 14471 14472 14473 14474 14475 14485 14486 14487 14488 14489 14490 14491 14492 14502 14503 14504 14505 14506 14507 14508 14509 14519 14520 14521 14522 14523 14524 14525 14526 14536 14537 14538 14539 14540 14541 14542 14543 14567 14568 14569 14570 14571 14572 14573 14574 14585 14586 14587 14588 14589 14590 14591 14592 14603 14604 14605 14606 14607 14608 14609 14610 14621 14622 14623 14624 14625 14626 14627 14628 14639 14640 14641 14642 14643 14644 14645 14646 14657 14658 14659 14660 14661 14662 14663 14664 14675 14676 14677 14678 14679 14680 14681 14682 14693 14694 14695 14696 14697 14698 14699 14700 14711 14712 14713 14714 14715 14716 14717 14718 14729 14730 14731 14732 14733 14734 14735 14736 14747 14748 14749 14750 14751 14752 14753 14754 14765 14766 14767 14768 14769 14770 14771 14772 14783 14784 14785 14786 14787 14788 14789 14790 14801 14802 14803 14804 14805 14806 14807 14808 14819 14820 14821 14822 14823 14824 14825 14826 14837 14838 14839 14840 14841 14842 14843 14844 14855 14856 14857 14858 14859 14860 14861 14862 14873 14874 14875 14876 14877 14878 14879 14880 14891 14892 14893 14894 14895 14896 14897 14898 14909 14910 14911 14912 14913 14914 14915 14916 14927 14928 14929 14930 14931 14932 14933 14934 14945 14946 14947 14948 14949 14950 14951 14952 14963 14964 14965 14966 14967 14968 14969 14970 14981 14982 14983 14984 14985 14986 14987 14988 14999 15000 15001 15002 15003 15004 15005 15006 15017 15018 15019 15020 15021 15022 15023 15024 15035 15036 15037 15038 15039 15040 15041 15042 15053 15054 15055 15056 15057 15058 15059 15060 15071 15072 15073 15074 15075 15076 15077 15078 15089 15090 15091 15092 15093 15094 15095 15096 15107 15108 15109 15110 15111 15112 15113 15114 15125 15126 15127 15128 15129 15130 15131 15132 15143 15144 15145 15146 15147 15148 15149 15150 15161 15162 15163 15164 15165 15166 15167 15168 15179 15180 15181 15182 15183 15184 15185 15186 15197 15198 15199 15200 15201 15202 15203 15204 15215 15216 15217 15218 15219 15220 15221 15222 15233 15234 15235 15236 15237 15238 15239 15240 15251 15252 15253 15254 15255 15256 15257 15258 15269 15270 15271 15272 15273 15274 15275 15276 15287 15288 15289 15290 15291 15292 15293 15294 15305 15306 15307 15308 15309 15310 15311 15312 15323 15324 15325 15326 15327 15328 15329 15330 15341 15342 15343 15344 15345 15346 15347 15348 15359 15360 15361 15362 SEQ 0350 15363 15364 15365 15366 15377 15378 15379 15380 15381 15382 15383 15384 15395 15396 15397 15398 15399 15400 15401 15402 15413 15414 15415 15416 15417 15418 15419 15420 ALTMGO 495# 15545 AROV 409# AROVTP 409# AROVU 409# AST 610# ATSIN 611# BEGEND 491# 15422 BEGIN 66 67 68 71 72 73 74 75 76 360 361 422# 15672 BEGIN1 438# 492 BELL 614# BIS 409# CCA 409# CHAIN 165# CHNOFF 409# CHNON 409# CLKU 409# CLOCKF 477# CNTLC 494# CNTRP 409# COMMA 603# CONSW 478# 15480 15546 15570 CPOPJ 498# CPOPJ1 496# CRLF 295 296 598# CRLF2 299 300 600# CRY0 409# CRY1 409# CSHFLG 657# CSHMEM 658# CTRP 409# CYCL60 651# DCK 409# DDTLNK 179# 436 DDTSRT 436# DEBUG 58# 15663 15664 DECVER 4# 11 26 457 DF22F 562# DIAGMN 425# DING 151# 15551 DOLLAR 617# DSKUPD 462 E100 784# 788 E1000 863# 870 E10000 13669# 13676 E10100 13686# 13693 E10200 13703# 13710 E10300 13720# 13727 E10400 13737# 13744 E10500 13754# 13761 E10600 13771# 13778 E10700 13788# 13795 SEQ 0351 E1100 888# 892 E11000 13814# 13821 E11100 13831# 13838 E11200 13848# 13855 E11300 13865# 13872 E11400 13882# 13889 E11500 13899# 13906 E11600 13916# 13923 E11700 13933# 13940 E1200 894# 898 E12000 13950# 13957 E12100 13967# 13974 E12200 13984# 13991 E12300 14001# 14008 E12400 14018# 14025 E12500 14035# 14042 E12600 14052# 14059 E12700 14069# 14076 E1300 907# 913 E13000 14086# 14093 E13100 14103# 14110 E13200 14120# 14127 E13300 14137# 14144 E13400 14162# 14169 E13500 14179# 14186 E13600 14196# 14203 E13700 14213# 14220 E1400 915# 922 E14000 14230# 14237 E14100 14247# 14254 E14200 14264# 14271 E14300 14281# 14288 E14400 14298# 14305 E14500 14315# 14322 E14600 14332# 14339 E14700 14349# 14356 E1500 974# E15000 14366# 14373 E15100 14383# 14390 E15200 14400# 14407 E15300 14417# 14424 E15400 14434# 14441 E15500 14451# 14458 E15600 14468# 14475 E15700 14485# 14492 E1600 1652# E16000 14502# 14509 E16100 14519# 14526 E16200 14536# 14543 E16300 14567# 14574 E16400 14585# 14592 E16500 14603# 14610 E16600 14621# 14628 SEQ 0352 E16700 14639# 14646 E1700 2356# 2363 E17000 14657# 14664 E17100 14675# 14682 E17200 14693# 14700 E17300 14711# 14718 E17400 14729# 14736 E17500 14747# 14754 E17600 14765# 14772 E17700 14783# 14790 E200 790# 794 E2000 2371# 2378 E20000 14801# 14808 E20100 14819# 14826 E20200 14837# 14844 E20300 14855# 14862 E20400 14873# 14880 E20500 14891# 14898 E20600 14909# 14916 E20700 14927# 14934 E2100 2401# 2408 E21000 14945# 14952 E21100 14963# 14970 E21200 14981# 14988 E21300 14999# 15006 E21400 15017# 15024 E21500 15035# 15042 E21600 15053# 15060 E21700 15071# 15078 E2200 2417# 2424 E22000 15089# 15096 E22100 15107# 15114 E22200 15125# 15132 E22300 15143# 15150 E22400 15161# 15168 E22500 15179# 15186 E22600 15197# 15204 E22700 15215# 15222 E2300 2433# 2440 E23000 15233# 15240 E23100 15251# 15258 E23200 15269# 15276 E23300 15287# 15294 E23400 15305# 15312 E23500 15323# 15330 E23600 15341# 15348 E23700 15359# 15366 E2400 2449# 2456 E24000 15377# 15384 E24100 15395# 15402 E24200 15413# 15420 E2500 2465# 2472 E2600 2485# SEQ 0353 E2700 2538# E300 803# 809 E3000 2608# E3100 2612 2618# 2622 E3200 2626# E3300 3506# E3400 4356# 4360 E3500 4366# 4370 E3600 4374# E3700 5216# E400 811# 818 E4000 6047# 6051 E4100 6057# 6061 E4200 6066# E4300 6984# E4400 7914# 7919 E44200 2386# 2393 E44300 936# 943 E44400 955# 962 E4500 7927# 7932 E4600 7936# E4700 8812# E500 836# 840 E5000 9717# 9722 E5100 9730# 9735 E5200 9738# E5300 10652# E5400 11538# 11544 E5500 11552# 11557 E5600 11561# E5700 12471# E600 842# 846 E6000 13397# 13404 E6100 13414# 13421 E6200 13431# 13438 E6300 13448# 13455 E6400 13465# 13472 E6500 13482# 13489 E6600 13499# 13506 E6700 13516# 13523 E700 855# 861 E7000 13533# 13540 E7100 13550# 13557 E7200 13567# 13574 E7300 13584# 13591 E7400 13601# 13608 E7500 13618# 13625 E7600 13635# 13642 E7700 13652# 13659 EBIT0 409# EBIT1 409# EBIT10 409# EBIT11 409# SEQ 0354 EBIT12 409# EBIT13 409# EBIT14 409# EBIT15 409# EBIT2 409# EBIT3 409# EBIT4 409# EBIT5 409# EBIT6 409# EBIT7 409# EBIT8 409# EBIT9 409# END 15671# ENDFIX 737# ENDSLD 15661# ERDIAG 62# 15465 ERMORE 511# 15538 EROLD 371 ERRELB 15535 ERRLOP 782# 782 801# 801 834# 834 853# 853 886# 886 905# 905 970# 970 1646# 1646 2348# 2348 2480# 2480 2606# 2606 4354# 4354 6045# 6045 7912# 7912 9715# 9715 11537# 11537 15445 15556 15559 15560 ERRMES 45 46 47 48 49 50 51 52 53 54 55 15427# ERRPC 482# 15432 15462 ERRTLS 483# 15430 15563 ERSTOP 154# 15547 EXCASB 59# 460 EXIOT 409# EXIT 738# 739 FOV 409# FOVU 409# FRDLNK 177# FSELNK 176# FXU 409# HYPEN 608# INHCSH 162# INHPAG 159# IOCLR 409# ITERAT 87# 455 ITRCH1 515# ITRCNT 455# JOB41 409# JOBAPR 409# JOBCNI 409# JOBDDT 409# JOBFF 409# JOBOPC 409# 15544 JOBREL 409# JOBREN 409# JOBSA 409# JOBSYM 409# JOBTPC 409# JOBUSY 409# SEQ 0355 JOBUUO 409# JOBVER 409# KAIFLG 472# KLFLG 473# KNTRP 409# KTRP 409# LACLK 409# LACLKE 409# LAPRAL 409# LAPRP1 409# LAPRP2 409# LAPRP3 409# LAPRP4 409# LAPRP5 409# LAPRP6 409# LAPRP7 409# LCHNOF 409# LCHNON 409# LCNTXT 409# LCNXER 409# LCPAER 409# LCPSFT 409# LCPWRF 409# LDATAF 409# LDLNK 178# 425 427 LDNXER 409# LDPAER 409# LDPSFT 409# LDPWRF 409# LEBXMH 409# LEBXML 409# LENXER 409# LEPAER 409# LEPSFT 409# LEPWRF 409# LEUPFW 409# LEXCMP 409# LFLGCL 409# LFLGDS 409# LFLGEN 409# LFLGST 409# LFP 612# LINSTF 409# LINT 409# LIOCLR 409# LLACBL 409# LLDUSB 409# LMBXMH 409# LMBXML 409# LNXMEN 409# LNXMER 409# LOOPER 153# 15549 LPAREN 409# SEQ 0356 LPARER 409# LPFWPC 409# LPGFTR 409# LPICH1 409# LPICH2 409# LPICH3 409# LPICH4 409# LPICH5 409# LPICH6 409# LPICH7 409# LPICHA 409# LPICLR 409# LPIIP1 409# LPIIP2 409# LPIIP3 409# LPIIP4 409# LPIIP5 409# LPIIP6 409# LPIIP7 409# LPIOFF 409# LPION 409# LPRCH1 409# LPRCH2 409# LPRCH3 409# LPRCH4 409# LPRCH5 409# LPRCH6 409# LPRCH7 409# LPRFMH 409# LPRFML 409# LPSFT 409# LPSFTE 409# LPWRFE 409# LPWRFL 409# LREQSE 409# LRQCLR 409# LSECMO 409# LSMODE 409# LSNXER 409# LSPAER 409# LSPSFT 409# LSPWRF 409# LTBASH 409# LTBASL 409# LTRPAE 409# LTRPEN 409# LUSCMP 409# LUUO 409# LUUO1 45# 542 543 LUUO10 52# 542 547 LUUO11 53# 542 547 LUUO12 54# 542 548 LUUO13 55# 542 548 SEQ 0357 LUUO14 542 549 LUUO15 542 549 LUUO16 542 550 LUUO17 542 550 LUUO2 46# 542 544 LUUO20 542 551 LUUO21 542 551 LUUO22 542 552 LUUO23 542 552 LUUO24 542 553 LUUO25 542 553 LUUO26 542 554 LUUO27 542 554 LUUO3 47# 542 544 LUUO30 542 555 LUUO31 542 555 LUUO32 542 556 LUUO33 542 556 LUUO4 48# 542 545 LUUO5 49# 542 545 LUUO6 50# 542 546 LUUO7 51# 542 546 LUUOI 409# LWRITE 409# MAPNEW 563# MARGIN 485# MCNVER 3# 11 26 457 MEMLOW 565# MEMMAP 463 MEMSIZ 566# MEMTOT 564# MICNT 15433# 15433 15434 15447 MINUS 607# MODDVC 161# MODDVL 360 360# 458 MODDVU 361 361# 459 MODLNK 180# 422 MONCTL 475# 15448 15561 MONFLG 474# MONTEN 476# MONTYP 689# MPVU 409# MUUO 409# MUUOPC 409# NOPNT 149# 15438 NXMU 409# OPRSEL 163# OPTIME 577# P 206 207 208 209 409# 497 PAG 409# PALERS 155# 15571 PAREA0 80# PAREA1 81# 453 SEQ 0358 PAREA2 82# 454 PAREA3 83# 451 PAREA4 84# 452 PAREA5 85# 464 PAREA6 86# 465 PAREA7 464# PAREA8 465# PART1 763 778# PARU 409# PASCNT 479# 15453 15457 PATCH 15664# PDISF 574# PDLOVU 409# PDOVTP 409# PERIOD 604# PFSTRT 431# PGMEND 61# 15670 PGMNAM 456 741# PICHN1 409# PICHN2 409# PICHN3 409# PICHN4 409# PICHN5 409# PICHN6 409# PICHN7 409# PICHNA 409# PICLR 409# PIOFF 409# PION 409# PLIST 643# 643 PLISTE 643 645# PLISTS 644# PLUS 609# PNTENB 573# PNTEXT 452# PNTFLG 572# PNTINH 575# PNTLPT 150# PNTNAM 451# PNTRP 409# PNTSPC 576# PROCED 15436# 15436 15550 15557 PTRP 409# PVPAGI 670# QUEST 615# RADIX 618# RADLSC 620# RADLSP 619# RANDBS 453# REENTR 433# RELIAB 157# REPT 409# REPT1 409# SEQ 0359 REPTU 531# REQSET 409# RESRT1 508# RESRT2 509# RETURN 440# RSTART 146# RTP 613# RUNFLG 480# SADR1 66# 429 SADR10 75# 445 SADR11 76# 446 SADR2 67# 431 SADR3 68# 433 SADR4 69# SADR5 70# 494 SADR6 71# 495 SADR7 72# 442 SADR8 73# 443 SADR9 74# 444 SBINIT 219 439# SCOPE 532# SFSTRT 429# SLASH 616# SM10 720# SN 972# 998 998# 1005 1015 1015# 1022 1032 1032# 1039 1049 1049# 1056 1066 1066# 1073 1083 1083# 1090 1100 1100# 1107 1117 1117# 1124 1134 1134# 1141 1151 1151# 1158 1168 1168# 1175 1185 1185# 1192 1202 1202# 1209 1219 1219# 1226 1236 1236# 1243 1253 1253# 1260 1270 1270# 1277 1287 1287# 1294 1324 1324# 1332 1342 1342# 1350 1360 1360# 1368 1378 1378# 1386 1396 1396# 1404 1414 1414# 1422 1432 1432# 1440 1450 1450# 1458 1468 1468# 1476 1486 1486# 1494 1504 1504# 1512 1522 1522# 1530 1540 1540# 1548 1558 1558# 1566 1576 1576# 1584 1594 1594# 1602 1612 1612# 1620 1630 1630# 1638 1648# 1677 1677# 1685 1695 1695# 1703 1713 1713# 1721 1731 1731# 1739 1749 1749# 1757 1767 1767# 1775 1785 1785# 1793 1803 1803# 1811 1821 1821# 1829 1839 1839# 1847 1857 1857# 1865 1875 1875# 1883 1893 1893# 1901 1911 1911# 1919 1929 1929# 1937 1947 1947# 1955 1965 1965# 1973 1983 1983# 1991 2021 2021# 2029 2039 2039# 2047 2057 2057# 2065 2075 2075# 2083 2093 2093# 2101 2111 2111# 2119 2129 2129# 2137 2147 2147# 2155 2165 2165# 2173 2183 2183# 2191 2201 2201# 2209 2219 2219# 2227 2237 2237# 2245 2255 2255# 2263 2273 2273# 2281 2291 2291# 2299 2309 2309# 2317 2327 2327# 2335 2482# 2498 2498# 2507 2510 2510# 2519 2522 2522# 2531 2535# 2553 2553# 2564 2567 2567# 2578 2581 2581# 2592 2623# 2658 2658# 2669 2681 2681# 2692 2704 2704# 2715 2727 2727# 2738 2750 2750# 2761 2773 2773# 2784 2796 2796# 2807 2819 2819# 2830 2842 2842# 2853 2865 2865# 2876 2888 2888# 2899 2911 2911# 2922 2934 2934# 2945 2957 2957# 2968 2980 2980# 2991 3003 3003# 3014 3026 3026# 3037 3049 3049# 3060 3097 3097# 3109 3120 3120# 3132 3143 3143# 3155 3166 3166# 3178 3189 3189# 3201 3212 3212# 3224 3235 3235# 3247 3258 3258# 3270 3281 3281# 3293 3304 3304# 3316 3327 3327# 3339 3350 3350# 3362 3373 3373# 3385 3396 3396# 3408 3419 3419# 3431 3442 3442# 3454 3465 3465# 3477 3488 3488# 3500 3503# 3536 3536# 3547 3558 3558# 3569 3580 3580# 3591 3602 3602# 3613 3624 3624# 3635 3646 3646# 3657 3668 3668# 3679 3690 3690# 3701 3712 3712# 3723 3734 3734# 3745 3756 3756# 3767 3778 3778# 3789 3800 3800# 3811 3822 3822# 3833 3844 3844# 3855 3866 3866# 3877 3888 3888# 3899 3910 3910# 3921 3956 3956# 3967 3978 SEQ 0360 3978# 3989 4000 4000# 4011 4022 4022# 4033 4044 4044# 4055 4066 4066# 4077 4088 4088# 4099 4110 4110# 4121 4132 4132# 4143 4154 4154# 4165 4176 4176# 4187 4198 4198# 4209 4220 4220# 4231 4242 4242# 4253 4264 4264# 4275 4286 4286# 4297 4308 4308# 4319 4330 4330# 4341 4371# 4404 4404# 4415 4426 4426# 4437 4448 4448# 4459 4470 4470# 4481 4492 4492# 4503 4514 4514# 4525 4536 4536# 4547 4558 4558# 4569 4580 4580# 4591 4602 4602# 4613 4624 4624# 4635 4646 4646# 4657 4668 4668# 4679 4690 4690# 4701 4712 4712# 4723 4734 4734# 4745 4756 4756# 4767 4778 4778# 4789 4825 4825# 4836 4847 4847# 4858 4869 4869# 4880 4891 4891# 4902 4913 4913# 4924 4935 4935# 4946 4957 4957# 4968 4979 4979# 4990 5001 5001# 5012 5023 5023# 5034 5045 5045# 5056 5067 5067# 5078 5089 5089# 5100 5111 5111# 5122 5133 5133# 5144 5155 5155# 5166 5177 5177# 5188 5199 5199# 5210 5213# 5244 5244# 5255 5265 5265# 5276 5286 5286# 5297 5307 5307# 5318 5328 5328# 5339 5349 5349# 5360 5370 5370# 5381 5391 5391# 5402 5412 5412# 5423 5433 5433# 5444 5454 5454# 5465 5475 5475# 5486 5496 5496# 5507 5517 5517# 5528 5538 5538# 5549 5559 5559# 5570 5580 5580# 5591 5601 5601# 5612 5648 5648# 5659 5670 5670# 5681 5692 5692# 5703 5714 5714# 5725 5736 5736# 5747 5758 5758# 5769 5780 5780# 5791 5802 5802# 5813 5824 5824# 5835 5846 5846# 5857 5868 5868# 5879 5890 5890# 5901 5912 5912# 5923 5934 5934# 5945 5956 5956# 5967 5978 5978# 5989 6000 6000# 6011 6022 6022# 6033 6063# 6098 6098# 6111 6122 6122# 6135 6146 6146# 6159 6170 6170# 6183 6194 6194# 6207 6218 6218# 6231 6242 6242# 6255 6266 6266# 6279 6290 6290# 6303 6314 6314# 6327 6338 6338# 6351 6362 6362# 6375 6386 6386# 6399 6410 6410# 6423 6434 6434# 6447 6458 6458# 6471 6482 6482# 6495 6506 6506# 6519 6557 6557# 6570 6581 6581# 6594 6605 6605# 6618 6629 6629# 6642 6653 6653# 6666 6677 6677# 6690 6701 6701# 6714 6725 6725# 6738 6749 6749# 6762 6773 6773# 6786 6797 6797# 6810 6821 6821# 6834 6845 6845# 6858 6869 6869# 6882 6893 6893# 6906 6917 6917# 6930 6941 6941# 6954 6965 6965# 6978 6981# 7016 7016# 7029 7040 7040# 7053 7064 7064# 7077 7088 7088# 7101 7112 7112# 7125 7136 7136# 7149 7160 7160# 7173 7184 7184# 7197 7208 7208# 7221 7232 7232# 7245 7256 7256# 7269 7280 7280# 7293 7304 7304# 7317 7328 7328# 7341 7352 7352# 7365 7376 7376# 7389 7400 7400# 7413 7424 7424# 7437 7475 7475# 7488 7499 7499# 7512 7523 7523# 7536 7547 7547# 7560 7571 7571# 7584 7595 7595# 7608 7619 7619# 7632 7643 7643# 7656 7667 7667# 7680 7691 7691# 7704 7715 7715# 7728 7739 7739# 7752 7763 7763# 7776 7787 7787# 7800 7811 7811# 7824 7835 7835# 7848 7859 7859# 7872 7883 7883# 7896 7933# 7971 7971# 7983 7996 7996# 8008 8021 8021# 8033 8046 8046# 8058 8071 8071# 8083 8096 8096# 8108 8121 8121# 8133 8146 8146# 8158 8171 8171# 8183 8196 8196# 8208 8221 8221# 8233 8246 8246# 8258 8271 8271# 8283 8296 8296# 8308 8321 8321# 8333 8346 8346# 8358 8371 8371# 8383 8396 8396# 8408 8446 8446# 8455 8468 8468# 8477 8490 8490# 8499 8512 8512# 8521 8534 8534# 8543 8556 8556# 8565 8578 8578# 8587 8600 8600# 8609 8622 8622# 8631 8644 8644# 8653 8666 8666# 8675 8688 8688# 8697 8710 8710# 8719 8732 8732# 8741 8754 8754# 8763 8776 8776# 8785 8798 8798# 8807 8810# 8847 8847# 8859 8872 8872# 8884 8897 8897# 8909 8922 8922# 8934 8947 8947# 8959 8972 8972# 8984 8997 8997# 9009 9022 9022# 9034 9047 9047# 9059 9072 9072# 9084 9097 9097# 9109 9122 9122# 9134 9147 9147# 9159 9172 9172# 9184 9197 9197# 9209 9222 9222# 9234 9247 9247# 9259 9272 9272# 9284 9324 9324# 9347 9347# 9370 9370# 9393 9393# 9416 9416# 9439 9439# 9462 9462# 9485 9485# 9508 9508# 9531 9531# 9554 9554# 9577 9577# 9600 9600# 9623 9623# 9646 9646# 9669 9669# 9692 9692# 9736# 9775 9775# 9787 9801 9801# 9813 9827 9827# 9839 9853 9853# 9865 9879 9879# 9891 9905 9905# 9917 9931 9931# 9943 9957 9957# 9969 9983 9983# 9995 10009 10009# 10021 10035 10035# 10047 10061 10061# 10073 10087 10087# 10099 10113 10113# 10125 10139 10139# 10151 10165 10165# 10177 10191 10191# 10203 10217 10217# 10229 10268 10268# 10278 10291 10291# 10301 SEQ 0361 10314 10314# 10324 10337 10337# 10347 10360 10360# 10370 10383 10383# 10393 10406 10406# 10416 10429 10429# 10439 10452 10452# 10462 10475 10475# 10485 10498 10498# 10508 10521 10521# 10531 10544 10544# 10554 10567 10567# 10577 10590 10590# 10600 10613 10613# 10623 10636 10636# 10646 10649# 10687 10687# 10699 10712 10712# 10724 10737 10737# 10749 10762 10762# 10774 10787 10787# 10799 10812 10812# 10824 10837 10837# 10849 10862 10862# 10874 10887 10887# 10899 10912 10912# 10924 10937 10937# 10949 10962 10962# 10974 10987 10987# 10999 11012 11012# 11024 11037 11037# 11049 11062 11062# 11074 11087 11087# 11099 11112 11112# 11124 11162 11162# 11171 11184 11184# 11193 11206 11206# 11215 11228 11228# 11237 11250 11250# 11259 11272 11272# 11281 11294 11294# 11303 11316 11316# 11325 11338 11338# 11347 11360 11360# 11369 11382 11382# 11391 11404 11404# 11413 11426 11426# 11435 11448 11448# 11457 11470 11470# 11479 11492 11492# 11501 11514 11514# 11523 11558# 11598 11598# 11612 11625 11625# 11639 11652 11652# 11666 11679 11679# 11693 11706 11706# 11720 11733 11733# 11747 11760 11760# 11774 11787 11787# 11801 11814 11814# 11828 11841 11841# 11855 11868 11868# 11882 11895 11895# 11909 11922 11922# 11936 11949 11949# 11963 11976 11976# 11990 12003 12003# 12017 12030 12030# 12044 12057 12057# 12071 12110 12110# 12120 12133 12133# 12143 12156 12156# 12166 12179 12179# 12189 12202 12202# 12212 12225 12225# 12235 12248 12248# 12258 12271 12271# 12281 12294 12294# 12304 12317 12317# 12327 12340 12340# 12350 12363 12363# 12373 12386 12386# 12396 12409 12409# 12419 12432 12432# 12442 12455 12455# 12465 12468# 12509 12509# 12524 12537 12537# 12552 12565 12565# 12580 12593 12593# 12608 12621 12621# 12636 12649 12649# 12664 12677 12677# 12692 12705 12705# 12720 12733 12733# 12748 12761 12761# 12776 12789 12789# 12804 12817 12817# 12832 12845 12845# 12860 12873 12873# 12888 12901 12901# 12916 12929 12929# 12944 12957 12957# 12972 12985 12985# 13000 13038 13038# 13047 13060 13060# 13069 13082 13082# 13091 13104 13104# 13113 13126 13126# 13135 13148 13148# 13157 13170 13170# 13179 13192 13192# 13201 13214 13214# 13223 13236 13236# 13245 13258 13258# 13267 13280 13280# 13289 13302 13302# 13311 13324 13324# 13333 13346 13346# 13355 13368 13368# 13377 SNTRP 409# SPACE 605# SPDES 15523# SRTDDT 69 435# START 423 759# START1 442# START2 443# START3 444# START4 445# START5 446# STARTA 438 763# STRP 409# SUBLNK 181# 439 SWPTAB 726# SWTEXR 454# SYSEXR 427# TAB 606# TESTPC 481# 780 799 832 851 884 903 968 1644 2346 2478 2604 4352 6043 7910 9713 11535 TICKS 484# TLET 761 15497 15520# TN0 409# TN1 409# TOTALS 147# TRP3TP 409# TTNBRF 664# TTYFIL 580# SEQ 0362 TTYSPD 581# TXTINH 158# 15481 UBAVEC 409# USER 471# USERF 409# USRASB 60# 461 USRCRF 590# USRLFF 589# UUODIS 543# UUOEXT 499# 15568 UUORTN 500# UUOSKP 497# YY 2661# 2664 2684# 2687 2707# 2710 2730# 2733 2753# 2756 2776# 2779 2799# 2802 2822# 2825 2845# 2848 2868# 2871 2891# 2894 2914# 2917 2937# 2940 2960# 2963 2983# 2986 3006# 3009 3029# 3032 3052# 3101# 3104 3124# 3127 3147# 3150 3170# 3173 3193# 3196 3216# 3219 3239# 3242 3262# 3265 3285# 3288 3308# 3311 3331# 3334 3354# 3357 3377# 3380 3400# 3403 3423# 3426 3446# 3449 3469# 3472 3492# 3539# 3542 3561# 3564 3583# 3586 3605# 3608 3627# 3630 3649# 3652 3671# 3674 3693# 3696 3715# 3718 3737# 3740 3759# 3762 3781# 3784 3803# 3806 3825# 3828 3847# 3850 3869# 3872 3891# 3894 3913# 3959# 3962 3981# 3984 4003# 4006 4025# 4028 4047# 4050 4069# 4072 4091# 4094 4113# 4116 4135# 4138 4157# 4160 4179# 4182 4201# 4204 4223# 4226 4245# 4248 4267# 4270 4289# 4292 4311# 4314 4333# 4407# 4410 4429# 4432 4451# 4454 4473# 4476 4495# 4498 4517# 4520 4539# 4542 4561# 4564 4583# 4586 4605# 4608 4627# 4630 4649# 4652 4671# 4674 4693# 4696 4715# 4718 4737# 4740 4759# 4762 4781# 4828# 4831 4850# 4853 4872# 4875 4894# 4897 4916# 4919 4938# 4941 4960# 4963 4982# 4985 5004# 5007 5026# 5029 5048# 5051 5070# 5073 5092# 5095 5114# 5117 5136# 5139 5158# 5161 5180# 5183 5202# 5247# 5250 5268# 5271 5289# 5292 5310# 5313 5331# 5334 5352# 5355 5373# 5376 5394# 5397 5415# 5418 5436# 5439 5457# 5460 5478# 5481 5499# 5502 5520# 5523 5541# 5544 5562# 5565 5583# 5586 5604# 5651# 5654 5673# 5676 5695# 5698 5717# 5720 5739# 5742 5761# 5764 5783# 5786 5805# 5808 5827# 5830 5849# 5852 5871# 5874 5893# 5896 5915# 5918 5937# 5940 5959# 5962 5981# 5984 6003# 6006 6025# 6101# 6104 6125# 6128 6149# 6152 6173# 6176 6197# 6200 6221# 6224 6245# 6248 6269# 6272 6293# 6296 6317# 6320 6341# 6344 6365# 6368 6389# 6392 6413# 6416 6437# 6440 6461# 6464 6485# 6509# 6560# 6563 6584# 6587 6608# 6611 6632# 6635 6656# 6659 6680# 6683 6704# 6707 6728# 6731 6752# 6755 6776# 6779 6800# 6803 6824# 6827 6848# 6851 6872# 6875 6896# 6899 6920# 6923 6944# 6968# 7019# 7022 7043# 7046 7067# 7070 7091# 7094 7115# 7118 7139# 7142 7163# 7166 7187# 7190 7211# 7214 7235# 7238 7259# 7262 7283# 7286 7307# 7310 7331# 7334 7355# 7358 7379# 7382 7403# 7427# 7478# 7481 7502# 7505 7526# 7529 7550# 7553 7574# 7577 7598# 7601 7622# 7625 7646# 7649 7670# 7673 7694# 7697 7718# 7721 7742# 7745 7766# 7769 7790# 7793 7814# 7817 7838# 7841 7862# 7886# 7974# 7978 7999# 8003 8024# 8028 8049# 8053 8074# 8078 8099# 8103 8124# 8128 8149# 8153 8174# 8178 8199# 8203 8224# 8228 8249# 8253 8274# 8278 8299# 8303 8324# 8328 8349# 8353 8374# 8378 8399# 8449# 8452 8471# 8474 8493# 8496 8515# 8518 8537# 8540 8559# 8562 8581# 8584 8603# 8606 8625# 8628 8647# 8650 8669# 8672 8691# 8694 8713# 8716 8735# 8738 8757# 8760 8779# 8782 8801# 8804 8850# 8854 8875# 8879 8900# 8904 8925# 8929 8950# 8954 8975# 8979 9000# 9004 9025# 9029 9050# 9054 9075# 9079 9100# 9104 9125# 9129 9150# 9154 9175# 9179 9200# 9204 9225# 9229 9250# 9254 9275# 9327# 9330 9350# 9353 9373# 9376 9396# 9399 9419# 9422 9442# 9445 9465# 9468 9488# 9491 9511# 9514 9534# 9537 9557# 9560 9580# 9583 9603# 9606 9626# 9629 9649# 9652 9672# 9675 9695# 9698 9778# 9782 9804# 9808 9830# 9834 9856# 9860 9882# 9886 9908# 9912 9934# 9938 9960# 9964 9986# 9990 10012# 10016 SEQ 0363 10038# 10042 10064# 10068 10090# 10094 10116# 10120 10142# 10146 10168# 10172 10194# 10198 10220# 10272# 10275 10295# 10298 10318# 10321 10341# 10344 10364# 10367 10387# 10390 10410# 10413 10433# 10436 10456# 10459 10479# 10482 10502# 10505 10525# 10528 10548# 10551 10571# 10574 10594# 10597 10617# 10620 10640# 10643 10690# 10694 10715# 10719 10740# 10744 10765# 10769 10790# 10794 10815# 10819 10840# 10844 10865# 10869 10890# 10894 10915# 10919 10940# 10944 10965# 10969 10990# 10994 11015# 11019 11040# 11044 11065# 11069 11090# 11094 11115# 11165# 11168 11187# 11190 11209# 11212 11231# 11234 11253# 11256 11275# 11278 11297# 11300 11319# 11322 11341# 11344 11363# 11366 11385# 11388 11407# 11410 11429# 11432 11451# 11454 11473# 11476 11495# 11498 11517# 11520 11601# 11605 11628# 11632 11655# 11659 11682# 11686 11709# 11713 11736# 11740 11763# 11767 11790# 11794 11817# 11821 11844# 11848 11871# 11875 11898# 11902 11925# 11929 11952# 11956 11979# 11983 12006# 12010 12033# 12060# 12064 12113# 12117 12136# 12140 12159# 12163 12182# 12186 12205# 12209 12228# 12232 12251# 12255 12274# 12278 12297# 12301 12320# 12324 12343# 12347 12366# 12370 12389# 12393 12412# 12416 12435# 12439 12458# 12462 12513# 12517 12541# 12545 12569# 12573 12597# 12601 12625# 12629 12653# 12657 12681# 12685 12709# 12713 12737# 12741 12765# 12769 12793# 12797 12821# 12825 12849# 12853 12877# 12881 12905# 12909 12933# 12937 12961# 12989# 12993 13041# 13044 13063# 13066 13085# 13088 13107# 13110 13129# 13132 13151# 13154 13173# 13176 13195# 13198 13217# 13220 13239# 13242 13261# 13264 13283# 13286 13305# 13308 13327# 13330 13349# 13352 13371# 13374 ZZ 973# 999 999# 1000 1000# 1002 1004 1016 1016# 1017 1019 1021 1033 1033# 1034 1036 1038 1050 1050# 1051 1053 1055 1067 1067# 1068 1070 1072 1084 1084# 1085 1087 1089 1101 1101# 1102 1104 1106 1118 1118# 1119 1121 1123 1135 1135# 1136 1138 1140 1152 1152# 1153 1155 1157 1169 1169# 1170 1172 1174 1186 1186# 1187 1189 1191 1203 1203# 1204 1206 1208 1220 1220# 1221 1223 1225 1237 1237# 1238 1240 1242 1254 1254# 1255 1257 1259 1271 1271# 1272 1274 1276 1288 1288# 1289 1291 1293 1298# 1325 1325# 1326 1326# 1328 1343 1343# 1344 1346 1361 1361# 1362 1364 1379 1379# 1380 1382 1397 1397# 1398 1400 1415 1415# 1416 1418 1433 1433# 1434 1436 1451 1451# 1452 1454 1469 1469# 1470 1472 1487 1487# 1488 1490 1505 1505# 1506 1508 1523 1523# 1524 1526 1541 1541# 1542 1544 1559 1559# 1560 1562 1577 1577# 1578 1580 1595 1595# 1596 1598 1613 1613# 1614 1616 1631 1631# 1632 1634 1650# 1678 1678# 1679 1681 1696 1696# 1697 1699 1714 1714# 1715 1717 1732 1732# 1733 1735 1750 1750# 1751 1753 1768 1768# 1769 1771 1786 1786# 1787 1789 1804 1804# 1805 1807 1822 1822# 1823 1825 1840 1840# 1841 1843 1858 1858# 1859 1861 1876 1876# 1877 1879 1894 1894# 1895 1897 1912 1912# 1913 1915 1930 1930# 1931 1933 1948 1948# 1949 1951 1966 1966# 1967 1969 1984 1984# 1985 1987 1995# 2022 2022# 2023 2025 2040 2040# 2041 2043 2058 2058# 2059 2061 2076 2076# 2077 2079 2094 2094# 2095 2097 2112 2112# 2113 2115 2130 2130# 2131 2133 2148 2148# 2149 2151 2166 2166# 2167 2169 2184 2184# 2185 2187 2202 2202# 2203 2205 2220 2220# 2221 2223 2238 2238# 2239 2241 2256 2256# 2257 2259 2274 2274# 2275 2277 2292 2292# 2293 2295 2310 2310# 2311 2313 2328 2328# 2329 2331 2483# 2503 2503# 2505 2515 2515# 2517 2527 2527# 2529 2536# 2559 2559# 2562 2573 2573# 2576 2587 2587# 2590 2624# 2659 2659# 2660 2660# 2661 2662 2663 2665 2682 2682# 2683 2684 2685 2686 2688 2705 2705# 2706 2707 2708 2709 2711 2728 2728# 2729 2730 2731 2732 2734 2751 2751# 2752 2753 2754 2755 2757 2774 2774# 2775 2776 2777 2778 2780 2797 2797# 2798 2799 2800 2801 2803 2820 2820# 2821 2822 2823 2824 2826 2843 2843# 2844 2845 2846 2847 2849 2866 2866# 2867 2868 2869 2870 2872 2889 2889# 2890 2891 2892 2893 2895 2912 2912# 2913 2914 2915 2916 2918 2935 2935# 2936 2937 2938 2939 2941 2958 2958# 2959 2960 2961 2962 2964 2981 2981# 2982 2983 2984 2985 2987 3004 3004# 3005 3006 3007 3008 3010 3027 3027# 3028 3029 3030 3031 3033 3050 3050# 3051 3052 3053 3054 3056 3064# 3099 3099# 3100 3100# 3101 3102 3103 3105 3122 3122# 3123 3124 3125 3126 3128 3145 3145# 3146 3147 3148 3149 3151 3168 3168# 3169 3170 3171 3172 3174 SEQ 0364 3191 3191# 3192 3193 3194 3195 3197 3214 3214# 3215 3216 3217 3218 3220 3237 3237# 3238 3239 3240 3241 3243 3260 3260# 3261 3262 3263 3264 3266 3283 3283# 3284 3285 3286 3287 3289 3306 3306# 3307 3308 3309 3310 3312 3329 3329# 3330 3331 3332 3333 3335 3352 3352# 3353 3354 3355 3356 3358 3375 3375# 3376 3377 3378 3379 3381 3398 3398# 3399 3400 3401 3402 3404 3421 3421# 3422 3423 3424 3425 3427 3444 3444# 3445 3446 3447 3448 3450 3467 3467# 3468 3469 3470 3471 3473 3490 3490# 3491 3492 3493 3494 3496 3504# 3537 3537# 3538 3538# 3539 3540 3541 3543 3559 3559# 3560 3561 3562 3563 3565 3581 3581# 3582 3583 3584 3585 3587 3603 3603# 3604 3605 3606 3607 3609 3625 3625# 3626 3627 3628 3629 3631 3647 3647# 3648 3649 3650 3651 3653 3669 3669# 3670 3671 3672 3673 3675 3691 3691# 3692 3693 3694 3695 3697 3713 3713# 3714 3715 3716 3717 3719 3735 3735# 3736 3737 3738 3739 3741 3757 3757# 3758 3759 3760 3761 3763 3779 3779# 3780 3781 3782 3783 3785 3801 3801# 3802 3803 3804 3805 3807 3823 3823# 3824 3825 3826 3827 3829 3845 3845# 3846 3847 3848 3849 3851 3867 3867# 3868 3869 3870 3871 3873 3889 3889# 3890 3891 3892 3893 3895 3911 3911# 3912 3913 3914 3915 3917 3925# 3957 3957# 3958 3958# 3959 3960 3961 3963 3979 3979# 3980 3981 3982 3983 3985 4001 4001# 4002 4003 4004 4005 4007 4023 4023# 4024 4025 4026 4027 4029 4045 4045# 4046 4047 4048 4049 4051 4067 4067# 4068 4069 4070 4071 4073 4089 4089# 4090 4091 4092 4093 4095 4111 4111# 4112 4113 4114 4115 4117 4133 4133# 4134 4135 4136 4137 4139 4155 4155# 4156 4157 4158 4159 4161 4177 4177# 4178 4179 4180 4181 4183 4199 4199# 4200 4201 4202 4203 4205 4221 4221# 4222 4223 4224 4225 4227 4243 4243# 4244 4245 4246 4247 4249 4265 4265# 4266 4267 4268 4269 4271 4287 4287# 4288 4289 4290 4291 4293 4309 4309# 4310 4311 4312 4313 4315 4331 4331# 4332 4333 4334 4335 4337 4372# 4405 4405# 4406 4406# 4407 4408 4409 4411 4427 4427# 4428 4429 4430 4431 4433 4449 4449# 4450 4451 4452 4453 4455 4471 4471# 4472 4473 4474 4475 4477 4493 4493# 4494 4495 4496 4497 4499 4515 4515# 4516 4517 4518 4519 4521 4537 4537# 4538 4539 4540 4541 4543 4559 4559# 4560 4561 4562 4563 4565 4581 4581# 4582 4583 4584 4585 4587 4603 4603# 4604 4605 4606 4607 4609 4625 4625# 4626 4627 4628 4629 4631 4647 4647# 4648 4649 4650 4651 4653 4669 4669# 4670 4671 4672 4673 4675 4691 4691# 4692 4693 4694 4695 4697 4713 4713# 4714 4715 4716 4717 4719 4735 4735# 4736 4737 4738 4739 4741 4757 4757# 4758 4759 4760 4761 4763 4779 4779# 4780 4781 4782 4783 4785 4793# 4826 4826# 4827 4827# 4828 4829 4830 4832 4848 4848# 4849 4850 4851 4852 4854 4870 4870# 4871 4872 4873 4874 4876 4892 4892# 4893 4894 4895 4896 4898 4914 4914# 4915 4916 4917 4918 4920 4936 4936# 4937 4938 4939 4940 4942 4958 4958# 4959 4960 4961 4962 4964 4980 4980# 4981 4982 4983 4984 4986 5002 5002# 5003 5004 5005 5006 5008 5024 5024# 5025 5026 5027 5028 5030 5046 5046# 5047 5048 5049 5050 5052 5068 5068# 5069 5070 5071 5072 5074 5090 5090# 5091 5092 5093 5094 5096 5112 5112# 5113 5114 5115 5116 5118 5134 5134# 5135 5136 5137 5138 5140 5156 5156# 5157 5158 5159 5160 5162 5178 5178# 5179 5180 5181 5182 5184 5200 5200# 5201 5202 5203 5204 5206 5214# 5245 5245# 5246 5246# 5247 5248 5249 5251 5266 5266# 5267 5268 5269 5270 5272 5287 5287# 5288 5289 5290 5291 5293 5308 5308# 5309 5310 5311 5312 5314 5329 5329# 5330 5331 5332 5333 5335 5350 5350# 5351 5352 5353 5354 5356 5371 5371# 5372 5373 5374 5375 5377 5392 5392# 5393 5394 5395 5396 5398 5413 5413# 5414 5415 5416 5417 5419 5434 5434# 5435 5436 5437 5438 5440 5455 5455# 5456 5457 5458 5459 5461 5476 5476# 5477 5478 5479 5480 5482 5497 5497# 5498 5499 5500 5501 5503 5518 5518# 5519 5520 5521 5522 5524 5539 5539# 5540 5541 5542 5543 5545 5560 5560# 5561 5562 5563 5564 5566 5581 5581# 5582 5583 5584 5585 5587 5602 5602# 5603 5604 5605 5606 5608 5616# 5649 5649# 5650 SEQ 0365 5650# 5651 5652 5653 5655 5671 5671# 5672 5673 5674 5675 5677 5693 5693# 5694 5695 5696 5697 5699 5715 5715# 5716 5717 5718 5719 5721 5737 5737# 5738 5739 5740 5741 5743 5759 5759# 5760 5761 5762 5763 5765 5781 5781# 5782 5783 5784 5785 5787 5803 5803# 5804 5805 5806 5807 5809 5825 5825# 5826 5827 5828 5829 5831 5847 5847# 5848 5849 5850 5851 5853 5869 5869# 5870 5871 5872 5873 5875 5891 5891# 5892 5893 5894 5895 5897 5913 5913# 5914 5915 5916 5917 5919 5935 5935# 5936 5937 5938 5939 5941 5957 5957# 5958 5959 5960 5961 5963 5979 5979# 5980 5981 5982 5983 5985 6001 6001# 6002 6003 6004 6005 6007 6023 6023# 6024 6025 6026 6027 6029 6064# 6099 6099# 6100 6100# 6101 6102 6103 6105 6107 6123 6123# 6124 6125 6126 6127 6129 6131 6147 6147# 6148 6149 6150 6151 6153 6155 6171 6171# 6172 6173 6174 6175 6177 6179 6195 6195# 6196 6197 6198 6199 6201 6203 6219 6219# 6220 6221 6222 6223 6225 6227 6243 6243# 6244 6245 6246 6247 6249 6251 6267 6267# 6268 6269 6270 6271 6273 6275 6291 6291# 6292 6293 6294 6295 6297 6299 6315 6315# 6316 6317 6318 6319 6321 6323 6339 6339# 6340 6341 6342 6343 6345 6347 6363 6363# 6364 6365 6366 6367 6369 6371 6387 6387# 6388 6389 6390 6391 6393 6395 6411 6411# 6412 6413 6414 6415 6417 6419 6435 6435# 6436 6437 6438 6439 6441 6443 6459 6459# 6460 6461 6462 6463 6465 6467 6483 6483# 6484 6485 6486 6487 6489 6491 6507 6507# 6508 6509 6510 6511 6513 6515 6523# 6558 6558# 6559 6559# 6560 6561 6562 6564 6566 6582 6582# 6583 6584 6585 6586 6588 6590 6606 6606# 6607 6608 6609 6610 6612 6614 6630 6630# 6631 6632 6633 6634 6636 6638 6654 6654# 6655 6656 6657 6658 6660 6662 6678 6678# 6679 6680 6681 6682 6684 6686 6702 6702# 6703 6704 6705 6706 6708 6710 6726 6726# 6727 6728 6729 6730 6732 6734 6750 6750# 6751 6752 6753 6754 6756 6758 6774 6774# 6775 6776 6777 6778 6780 6782 6798 6798# 6799 6800 6801 6802 6804 6806 6822 6822# 6823 6824 6825 6826 6828 6830 6846 6846# 6847 6848 6849 6850 6852 6854 6870 6870# 6871 6872 6873 6874 6876 6878 6894 6894# 6895 6896 6897 6898 6900 6902 6918 6918# 6919 6920 6921 6922 6924 6926 6942 6942# 6943 6944 6945 6946 6948 6950 6966 6966# 6967 6968 6969 6970 6972 6974 6982# 7017 7017# 7018 7018# 7019 7020 7021 7023 7025 7041 7041# 7042 7043 7044 7045 7047 7049 7065 7065# 7066 7067 7068 7069 7071 7073 7089 7089# 7090 7091 7092 7093 7095 7097 7113 7113# 7114 7115 7116 7117 7119 7121 7137 7137# 7138 7139 7140 7141 7143 7145 7161 7161# 7162 7163 7164 7165 7167 7169 7185 7185# 7186 7187 7188 7189 7191 7193 7209 7209# 7210 7211 7212 7213 7215 7217 7233 7233# 7234 7235 7236 7237 7239 7241 7257 7257# 7258 7259 7260 7261 7263 7265 7281 7281# 7282 7283 7284 7285 7287 7289 7305 7305# 7306 7307 7308 7309 7311 7313 7329 7329# 7330 7331 7332 7333 7335 7337 7353 7353# 7354 7355 7356 7357 7359 7361 7377 7377# 7378 7379 7380 7381 7383 7385 7401 7401# 7402 7403 7404 7405 7407 7409 7425 7425# 7426 7427 7428 7429 7431 7433 7441# 7476 7476# 7477 7477# 7478 7479 7480 7482 7484 7500 7500# 7501 7502 7503 7504 7506 7508 7524 7524# 7525 7526 7527 7528 7530 7532 7548 7548# 7549 7550 7551 7552 7554 7556 7572 7572# 7573 7574 7575 7576 7578 7580 7596 7596# 7597 7598 7599 7600 7602 7604 7620 7620# 7621 7622 7623 7624 7626 7628 7644 7644# 7645 7646 7647 7648 7650 7652 7668 7668# 7669 7670 7671 7672 7674 7676 7692 7692# 7693 7694 7695 7696 7698 7700 7716 7716# 7717 7718 7719 7720 7722 7724 7740 7740# 7741 7742 7743 7744 7746 7748 7764 7764# 7765 7766 7767 7768 7770 7772 7788 7788# 7789 7790 7791 7792 7794 7796 7812 7812# 7813 7814 7815 7816 7818 7820 7836 7836# 7837 7838 7839 7840 7842 7844 7860 7860# 7861 7862 7863 7864 7866 7868 7884 7884# 7885 7886 7887 7888 7890 7892 7934# 7972 7972# 7973 7973# 7974 7976 7977 7979 7997 7997# 7998 7999 8001 8002 8004 8022 8022# 8023 8024 8026 8027 8029 8047 8047# 8048 8049 8051 8052 8054 8072 8072# 8073 8074 SEQ 0366 8076 8077 8079 8097 8097# 8098 8099 8101 8102 8104 8122 8122# 8123 8124 8126 8127 8129 8147 8147# 8148 8149 8151 8152 8154 8172 8172# 8173 8174 8176 8177 8179 8197 8197# 8198 8199 8201 8202 8204 8222 8222# 8223 8224 8226 8227 8229 8247 8247# 8248 8249 8251 8252 8254 8272 8272# 8273 8274 8276 8277 8279 8297 8297# 8298 8299 8301 8302 8304 8322 8322# 8323 8324 8326 8327 8329 8347 8347# 8348 8349 8351 8352 8354 8372 8372# 8373 8374 8376 8377 8379 8397 8397# 8398 8399 8401 8402 8404 8412# 8447 8447# 8448 8448# 8449 8451 8469 8469# 8470 8471 8473 8491 8491# 8492 8493 8495 8513 8513# 8514 8515 8517 8535 8535# 8536 8537 8539 8557 8557# 8558 8559 8561 8579 8579# 8580 8581 8583 8601 8601# 8602 8603 8605 8623 8623# 8624 8625 8627 8645 8645# 8646 8647 8649 8667 8667# 8668 8669 8671 8689 8689# 8690 8691 8693 8711 8711# 8712 8713 8715 8733 8733# 8734 8735 8737 8755 8755# 8756 8757 8759 8777 8777# 8778 8779 8781 8799 8799# 8800 8801 8803 8811# 8848 8848# 8849 8849# 8850 8852 8853 8855 8873 8873# 8874 8875 8877 8878 8880 8898 8898# 8899 8900 8902 8903 8905 8923 8923# 8924 8925 8927 8928 8930 8948 8948# 8949 8950 8952 8953 8955 8973 8973# 8974 8975 8977 8978 8980 8998 8998# 8999 9000 9002 9003 9005 9023 9023# 9024 9025 9027 9028 9030 9048 9048# 9049 9050 9052 9053 9055 9073 9073# 9074 9075 9077 9078 9080 9098 9098# 9099 9100 9102 9103 9105 9123 9123# 9124 9125 9127 9128 9130 9148 9148# 9149 9150 9152 9153 9155 9173 9173# 9174 9175 9177 9178 9180 9198 9198# 9199 9200 9202 9203 9205 9223 9223# 9224 9225 9227 9228 9230 9248 9248# 9249 9250 9252 9253 9255 9273 9273# 9274 9275 9277 9278 9280 9288# 9325 9325# 9326 9326# 9327 9329 9348 9348# 9349 9350 9352 9371 9371# 9372 9373 9375 9394 9394# 9395 9396 9398 9417 9417# 9418 9419 9421 9440 9440# 9441 9442 9444 9463 9463# 9464 9465 9467 9486 9486# 9487 9488 9490 9509 9509# 9510 9511 9513 9532 9532# 9533 9534 9536 9555 9555# 9556 9557 9559 9578 9578# 9579 9580 9582 9601 9601# 9602 9603 9605 9624 9624# 9625 9626 9628 9647 9647# 9648 9649 9651 9670 9670# 9671 9672 9674 9693 9693# 9694 9695 9697 9737# 9776 9776# 9777 9777# 9778 9780 9781 9783 9802 9802# 9803 9804 9806 9807 9809 9828 9828# 9829 9830 9832 9833 9835 9854 9854# 9855 9856 9858 9859 9861 9880 9880# 9881 9882 9884 9885 9887 9906 9906# 9907 9908 9910 9911 9913 9932 9932# 9933 9934 9936 9937 9939 9958 9958# 9959 9960 9962 9963 9965 9984 9984# 9985 9986 9988 9989 9991 10010 10010# 10011 10012 10014 10015 10017 10036 10036# 10037 10038 10040 10041 10043 10062 10062# 10063 10064 10066 10067 10069 10088 10088# 10089 10090 10092 10093 10095 10114 10114# 10115 10116 10118 10119 10121 10140 10140# 10141 10142 10144 10145 10147 10166 10166# 10167 10168 10170 10171 10173 10192 10192# 10193 10194 10196 10197 10199 10218 10218# 10219 10220 10222 10223 10225 10233# 10269 10269# 10270 10270# 10272 10274 10292 10292# 10293 10295 10297 10315 10315# 10316 10318 10320 10338 10338# 10339 10341 10343 10361 10361# 10362 10364 10366 10384 10384# 10385 10387 10389 10407 10407# 10408 10410 10412 10430 10430# 10431 10433 10435 10453 10453# 10454 10456 10458 10476 10476# 10477 10479 10481 10499 10499# 10500 10502 10504 10522 10522# 10523 10525 10527 10545 10545# 10546 10548 10550 10568 10568# 10569 10571 10573 10591 10591# 10592 10594 10596 10614 10614# 10615 10617 10619 10637 10637# 10638 10640 10642 10650# 10688 10688# 10689 10689# 10690 10692 10693 10695 10713 10713# 10714 10715 10717 10718 10720 10738 10738# 10739 10740 10742 10743 10745 10763 10763# 10764 10765 10767 10768 10770 10788 10788# 10789 10790 10792 10793 10795 10813 10813# 10814 10815 10817 10818 10820 10838 10838# 10839 10840 10842 10843 10845 10863 10863# 10864 10865 10867 10868 10870 10888 10888# 10889 10890 10892 10893 10895 10913 10913# 10914 10915 10917 10918 10920 10938 10938# 10939 10940 10942 10943 10945 10963 10963# 10964 10965 10967 10968 10970 10988 10988# 10989 10990 10992 10993 10995 11013 11013# 11014 11015 11017 11018 11020 11038 11038# 11039 11040 11042 11043 11045 11063 11063# 11064 11065 11067 11068 11070 11088 11088# 11089 11090 11092 11093 11095 11113 11113# 11114 11115 11117 11118 11120 11128# 11163 11163# SEQ 0367 11164 11164# 11165 11167 11185 11185# 11186 11187 11189 11207 11207# 11208 11209 11211 11229 11229# 11230 11231 11233 11251 11251# 11252 11253 11255 11273 11273# 11274 11275 11277 11295 11295# 11296 11297 11299 11317 11317# 11318 11319 11321 11339 11339# 11340 11341 11343 11361 11361# 11362 11363 11365 11383 11383# 11384 11385 11387 11405 11405# 11406 11407 11409 11427 11427# 11428 11429 11431 11449 11449# 11450 11451 11453 11471 11471# 11472 11473 11475 11493 11493# 11494 11495 11497 11515 11515# 11516 11517 11519 11559# 11599 11599# 11600 11600# 11601 11603 11604 11606 11608 11626 11626# 11627 11628 11630 11631 11633 11635 11653 11653# 11654 11655 11657 11658 11660 11662 11680 11680# 11681 11682 11684 11685 11687 11689 11707 11707# 11708 11709 11711 11712 11714 11716 11734 11734# 11735 11736 11738 11739 11741 11743 11761 11761# 11762 11763 11765 11766 11768 11770 11788 11788# 11789 11790 11792 11793 11795 11797 11815 11815# 11816 11817 11819 11820 11822 11824 11842 11842# 11843 11844 11846 11847 11849 11851 11869 11869# 11870 11871 11873 11874 11876 11878 11896 11896# 11897 11898 11900 11901 11903 11905 11923 11923# 11924 11925 11927 11928 11930 11932 11950 11950# 11951 11952 11954 11955 11957 11959 11977 11977# 11978 11979 11981 11982 11984 11986 12004 12004# 12005 12006 12008 12009 12011 12013 12031 12031# 12032 12033 12035 12036 12038 12040 12058 12058# 12059 12060 12062 12063 12065 12067 12075# 12111 12111# 12112 12112# 12113 12115 12134 12134# 12135 12136 12138 12157 12157# 12158 12159 12161 12180 12180# 12181 12182 12184 12203 12203# 12204 12205 12207 12226 12226# 12227 12228 12230 12249 12249# 12250 12251 12253 12272 12272# 12273 12274 12276 12295 12295# 12296 12297 12299 12318 12318# 12319 12320 12322 12341 12341# 12342 12343 12345 12364 12364# 12365 12366 12368 12387 12387# 12388 12389 12391 12410 12410# 12411 12412 12414 12433 12433# 12434 12435 12437 12456 12456# 12457 12458 12460 12469# 12511 12511# 12512 12512# 12513 12515 12516 12518 12520 12539 12539# 12540 12541 12543 12544 12546 12548 12567 12567# 12568 12569 12571 12572 12574 12576 12595 12595# 12596 12597 12599 12600 12602 12604 12623 12623# 12624 12625 12627 12628 12630 12632 12651 12651# 12652 12653 12655 12656 12658 12660 12679 12679# 12680 12681 12683 12684 12686 12688 12707 12707# 12708 12709 12711 12712 12714 12716 12735 12735# 12736 12737 12739 12740 12742 12744 12763 12763# 12764 12765 12767 12768 12770 12772 12791 12791# 12792 12793 12795 12796 12798 12800 12819 12819# 12820 12821 12823 12824 12826 12828 12847 12847# 12848 12849 12851 12852 12854 12856 12875 12875# 12876 12877 12879 12880 12882 12884 12903 12903# 12904 12905 12907 12908 12910 12912 12931 12931# 12932 12933 12935 12936 12938 12940 12959 12959# 12960 12961 12963 12964 12966 12968 12987 12987# 12988 12989 12991 12992 12994 12996 13004# 13039 13039# 13040 13040# 13041 13043 13061 13061# 13062 13063 13065 13083 13083# 13084 13085 13087 13105 13105# 13106 13107 13109 13127 13127# 13128 13129 13131 13149 13149# 13150 13151 13153 13171 13171# 13172 13173 13175 13193 13193# 13194 13195 13197 13215 13215# 13216 13217 13219 13237 13237# 13238 13239 13241 13259 13259# 13260 13261 13263 13281 13281# 13282 13283 13285 13303 13303# 13304 13305 13307 13325 13325# 13326 13327 13329 13347 13347# 13348 13349 13351 13369 13369# 13370 13371 13373 $$MUUO 695# $$OUTE 701# $$TAX1 713# $$TAX2 714# $$TOGG 707# $$UUO 684# $ACC0 522# $ACF 15524# $BEND1 492# $BEND2 70 493# 15577 $CHRIN 583# $CRLF 585# $DEVCH 409# $DSKUP 462# SEQ 0368 $DVOFF 579# $EMODE 460# $FFF 587# $IBUF 635# $INEXT 637# $INNM 636# $ITRHL 503# $ITRX1 504# $LPAPE 15583 $MMAP 463# $MODVL 458# $MODVU 459# $OBUF 626# $ONETM 486# $OUTEX 628# $OUTNM 627# $PAPER 409 $PARER 510# $PNAME 456# $PSHER 514# $PVER 457# $RSRTX 506# $RSRTY 507# $SPAG1 526# $START 423# $SVAPR 524# $SVPAG 525# $SVPI 523# $SVUPC 529# 15431 15435 15461 $SVUUO 528# 15440 15472 15500 $TABF 586# $TTCHR 582# $TWCNT 578# $TYPNB 584# $UMODE 461# $UORTX 501# $USRHL 505# $UUOER 502# 543 $VTF 588# %AC1F 15525# %ACS1A 15442# 15442 15486 %ACTFL 535# %ACTUL 536# %ALF 15530# %AR1F 15529# %ARF 15528# %COREC 534# %CORFL 533# %DISCR 537# %E1F 15527# %EEF 15531# %EF 15526# %ER4X 15506 15511# SEQ 0369 %ER5X 15504 15513# %ER6X 15502 15515# %ER7X 15508# 15512 15514 15516 %ERAC0 15427# 15427 15443 15477 15567 %ERAC1 15428# 15428 15444 15555 %ERAC2 15429# 15429 15554 %ERFST 15450# 15450 15452 %ERHI1 676# %ERHI2 677# %ERHI3 678# %ERMOR 15482 15509 15538# %ERMS1 15447# 15573 %ERMS2 15470# %ERMS3 15488 15495# %ERRS1 15439 15541# 15572 %ERRS2 15554# %ERRS4 15446 15570# %ERRS5 15558 15562 15567# %ERRS6 15565 15575# %FF 15532# %FLTTB 15490 15521# %NODES 15522# .JB41 409# .JBAPR 409# .JBCNI 409# .JBDDT 409# .JBFF 409# .JBOPC 409# .JBREL 409# .JBREN 409# .JBSA 409# .JBSYM 409# .JBTPC 409# .JBUSY 409# .JBUUO 409# .JBVER 409# APRID 409# BCIO 409# SEQ 0370 BCIOB 409# BSIO 409# BSIOB 409# CFLUSH 331# CINVAL 330# CLOKOP 325# CLRPT 409# CWRTBI 332# DROPDV 292# 738 ENDUUO 338# 491 EOPUUO 339# 493 ER1 33# ER10 40# ER11 41# ER12 42# ER13 43# ER2 34# ER3 35# 787 793 806 815 839 845 858 867 891 897 910 919 940 959 2360 2375 2390 2405 2421 2437 2453 2469 2507 2519 2531 2611 2621 2669 2692 2715 2738 2761 2784 2807 2830 2853 2876 2899 2922 2945 2968 2991 3014 3037 3060 3109 3132 3155 3178 3201 3224 3247 3270 3293 3316 3339 3362 3385 3408 3431 3454 3477 3500 3547 3569 3591 3613 3635 3657 3679 3701 3723 3745 3767 3789 3811 3833 3855 3877 3899 3921 3967 3989 4011 4033 4055 4077 4099 4121 4143 4165 4187 4209 4231 4253 4275 4297 4319 4341 4359 4369 4415 4437 4459 4481 4503 4525 4547 4569 4591 4613 4635 4657 4679 4701 4723 4745 4767 4789 4836 4858 4880 4902 4924 4946 4968 4990 5012 5034 5056 5078 5100 5122 5144 5166 5188 5210 5255 5276 5297 5318 5339 5360 5381 5402 5423 5444 5465 5486 5507 5528 5549 5570 5591 5612 5659 5681 5703 5725 5747 5769 5791 5813 5835 5857 5879 5901 5923 5945 5967 5989 6011 6033 6050 6060 6111 6135 6159 6183 6207 6231 6255 6279 6303 6327 6351 6375 6399 6423 6447 6471 6495 6519 6570 6594 6618 6642 6666 6690 6714 6738 6762 6786 6810 6834 6858 6882 6906 6930 6954 6978 7029 7053 7077 7101 7125 7149 7173 7197 7221 7245 7269 7293 7317 7341 7365 7389 7413 7437 7488 7512 7536 7560 7584 7608 7632 7656 7680 7704 7728 7752 7776 7800 7824 7848 7872 7896 13401 13418 13435 13452 13469 13486 13503 13520 13537 13554 13571 13588 13605 13622 13639 13656 13673 13690 13707 13724 13741 13758 13775 13792 13818 13835 13852 13869 13886 13903 13920 13937 13954 13971 13988 14005 14022 14039 14056 14073 14090 14107 14124 14141 14166 14183 14200 14217 14234 14251 14268 14285 14302 14319 14336 14353 14370 14387 14404 14421 14438 14455 14472 14489 14506 14523 14540 14571 14589 14607 14625 14643 14661 14679 14697 14715 14733 14751 14769 14787 14805 14823 14841 14859 14877 14895 14913 14931 14949 14967 14985 15003 15021 15039 15057 15075 15093 15111 15129 15147 15165 15183 15201 15219 15237 15255 15273 15291 15309 15327 15345 15363 15381 15399 15417 ER4 36# 808 817 860 869 912 921 942 961 1005 1022 1039 1056 1073 1090 1107 1124 1141 1158 1175 1192 1209 1226 1243 1260 1277 1294 1332 1350 1368 1386 1404 1422 1440 1458 1476 1494 1512 1530 1548 1566 1584 1602 1620 1638 1685 1703 1721 1739 1757 1775 1793 1811 1829 1847 1865 1883 1901 1919 1937 1955 1973 1991 2029 2047 2065 2083 2101 2119 2137 2155 2173 2191 2209 2227 2245 2263 2281 2299 2317 2335 2362 2377 2392 2407 2423 2439 2455 2471 2564 2578 2592 7918 7931 7983 8008 8033 8058 8083 8108 8133 8158 8183 8208 8233 8258 8283 8308 8333 8358 8383 8408 8455 8477 8499 8521 8543 8565 8587 8609 8631 8653 8675 8697 8719 8741 8763 8785 8807 8859 8884 8909 8934 8959 8984 9009 9034 9059 9084 9109 SEQ 0371 9134 9159 9184 9209 9234 9259 9284 9333 9356 9379 9402 9425 9448 9471 9494 9517 9540 9563 9586 9609 9632 9655 9678 9701 9721 9734 9787 9813 9839 9865 9891 9917 9943 9969 9995 10021 10047 10073 10099 10125 10151 10177 10203 10229 10278 10301 10324 10347 10370 10393 10416 10439 10462 10485 10508 10531 10554 10577 10600 10623 10646 10699 10724 10749 10774 10799 10824 10849 10874 10899 10924 10949 10974 10999 11024 11049 11074 11099 11124 11171 11193 11215 11237 11259 11281 11303 11325 11347 11369 11391 11413 11435 11457 11479 11501 11523 11543 11556 11612 11639 11666 11693 11720 11747 11774 11801 11828 11855 11882 11909 11936 11963 11990 12017 12044 12071 12120 12143 12166 12189 12212 12235 12258 12281 12304 12327 12350 12373 12396 12419 12442 12465 12524 12552 12580 12608 12636 12664 12692 12720 12748 12776 12804 12832 12860 12888 12916 12944 12972 13000 13047 13069 13091 13113 13135 13157 13179 13201 13223 13245 13267 13289 13311 13333 13355 13377 13403 13420 13437 13454 13471 13488 13505 13522 13539 13556 13573 13590 13607 13624 13641 13658 13675 13692 13709 13726 13743 13760 13777 13794 13820 13837 13854 13871 13888 13905 13922 13939 13956 13973 13990 14007 14024 14041 14058 14075 14092 14109 14126 14143 14168 14185 14202 14219 14236 14253 14270 14287 14304 14321 14338 14355 14372 14389 14406 14423 14440 14457 14474 14491 14508 14525 14542 14573 14591 14609 14627 14645 14663 14681 14699 14717 14735 14753 14771 14789 14807 14825 14843 14861 14879 14897 14915 14933 14951 14969 14987 15005 15023 15041 15059 15077 15095 15113 15131 15149 15167 15185 15203 15221 15239 15257 15275 15293 15311 15329 15347 15365 15383 15401 15419 ER5 37# ER6 38# ER7 39# ERLOOP 379# ERLP1 380# ERLP2 381# ERRHLT 226# 15548 ERROR 388# ERROR1 399# ERUUO 378# FATAL 225# FRD36 367# FRD8 368# FREAD 366# FSELEC 365# GET 209# GO 206# HALT 211# 512 JEN 213# JRSTF 212# MAPADR 348# MAPCNK 349# MAPMEM 345# MAPPNT 351# MAPSET 350# MEMSEG 347# MEMZRO 346# MODPCP 358# MODPCU 357# MTROP 326# NAME 8# 11 PBELL 301# 15552 SEQ 0372 PCRL 295# 15489 15508 PCRL2 299# PCRL2F 300# PCRLF 296# PFORCE 303# PGMINT 219# 759 PJRST 210# PMSG 305# 15455 15459 15470 15495 PMSGF 308# 15575 PNT1 261# PNT11 275# PNT11F 276# PNT1F 262# PNT2 263# PNT2F 264# PNT3 265# 15507 PNT3F 266# PNT4 267# 15511 PNT4F 268# PNT5 269# 15513 PNT5F 270# PNT6 271# 15463 15515 PNT6F 272# PNT7 273# PNT7F 274# PNTA 247# 15498 PNTADF 278# PNTADR 277# PNTAF 248# PNTAL 249# 15491 PNTALF 250# PNTCHF 260# PNTCHR 259# PNTCI 257# PNTCIF 258# PNTCW 293# PNTCWF 294# PNTDCF 286# PNTDEC 285# 15458 PNTDS 287# PNTDSF 288# PNTHW 281# 15478 PNTHWF 282# PNTMSF 254# PNTMSG 253# PNTNM 289# 15451 PNTOCF 284# PNTOCS 283# PNTOCT 279# PNTOTF 280# PNTSIX 290# PNTSXF 291# PSIXL 251# SEQ 0373 PSIXLF 252# PSIXM 255# 15456 15460 15471 15496 PSIXMF 256# 15576 PSP 297# PSPF 298# PUT 208# RDAPR 409# RDCSB 409# RDCSTM 409# RDEBR 409# RDHSB 409# RDINT 409# RDIO 409# RDIOB 409# RDPI 409# RDPUR 409# RDSPB 409# RDTIM 409# RDUBR 409# REPTUO 382# RTN 207# 499 S 137# 139 143 172 174 183 186 201 202 204 215 217 221 223 228 232 374 376 409 414 420 447 449 467 469 487 489 518 520 538 540 558 560 568 570 591 596 622 624 631 633 639 641 647 649 653 655 660 662 666 668 672 674 680 682 685 687 691 693 697 699 703 705 709 711 716 718 722 724 728 730 732 734 SAVEAC 91# 778 797 830 849 882 901 966 1642 2344 2476 2602 4350 6041 7908 9711 11533 SETACS 97# SIXBTZ 314# SR1 106# 2351 2366 2381 2396 13392 13409 13426 13443 13460 13477 13494 13511 13528 13545 13562 13579 13596 13613 13630 13647 13664 13681 13698 13715 13732 13749 13766 13783 13809 13826 13843 13860 13877 13894 13911 13928 13945 13962 13979 13996 14013 14030 14047 14064 14081 14098 14115 14132 14157 14174 14191 14208 14225 14242 14259 14276 14293 14310 14327 14344 14361 14378 14395 14412 14429 14446 14463 14480 14497 14514 14531 SR2 121# 930 949 2411 2427 2443 2459 14561 14579 14597 14615 14633 14651 14669 14687 14705 14723 14741 14759 14777 14795 14813 14831 14849 14867 14885 14903 14921 14939 14957 14975 14993 15011 15029 15047 15065 15083 15101 15119 15137 15155 15173 15191 15209 15227 15245 15263 15281 15299 15317 15335 15353 15371 15389 15407 SWITCH 320# 15437 15539 TIOE 409# TIOEB 409# TION 409# TIONB 409# TTALTM 241# 15541 TTICHR 234# TTICLR 244# TTICNV 239# TTIDEC 238# TTINO 236# TTIOCT 237# SEQ 0374 TTIYES 235# TTLOOK 240# TTSIXB 242# TTYINP 243# WRAPR 409# WRCSB 409# WRCSTM 409# WREBR 409# WRHSB 409# WRINT 409# WRIO 409# WRIOB 409# WRPI 409# WRPUR 409# WRSPB 409# WRTIM 409# WRUBR 409# ANDI 15474 AOS 497 15430 15433 15559 15560 SEQ 0375 ASCII 598 600 603 604 605 606 608 609 610 611 612 613 615 616 617 ASCIZ 741 760 15524 15525 15526 15527 15528 15529 15530 15531 15532 ASH 889 895 14164 14181 14198 14215 14232 14249 14266 14283 14300 14317 14334 14351 14368 14385 14402 14419 14436 14453 14470 14487 14504 14521 14538 ASHC 908 917 938 957 BLOCK 566 626 629 635 638 644 15664 BYTE 614 CAIE 1004 1021 1038 1055 1072 1089 1106 1123 1140 1157 1174 1191 1208 1225 1242 1259 1276 1293 CAIG 15476 15487 CAIL 15564 CAIN 2506 2518 2530 2563 2577 2591 CAME 792 814 816 844 866 868 896 918 920 939 941 958 960 1331 1349 1367 1385 1403 1421 1439 1457 1475 1493 1511 1529 1547 1565 1583 1601 1619 1637 1684 1702 1720 1738 1756 1774 1792 1810 1828 1846 1864 1882 1900 1918 1936 1954 1972 1990 2028 2046 2064 2082 2100 2118 2136 2154 2172 2190 2208 2226 2244 2262 2280 2298 2316 2334 2359 2361 2374 2376 2389 2391 2404 2406 2420 2422 2436 2438 2452 2454 2468 2470 2610 2620 2668 2691 2714 2737 2760 2783 2806 2829 2852 2875 2898 2921 2944 2967 2990 3013 3036 3059 3108 3131 3154 3177 3200 3223 3246 3269 3292 3315 3338 3361 3384 3407 3430 3453 3476 3499 3546 3568 3590 3612 3634 3656 3678 3700 3722 3744 3766 3788 3810 3832 3854 3876 3898 3920 3966 3988 4010 4032 4054 4076 4098 4120 4142 4164 4186 4208 4230 4252 4274 4296 4318 4340 4358 4368 4414 4436 4458 4480 4502 4524 4546 4568 4590 4612 4634 4656 4678 4700 4722 4744 4766 4788 4835 4857 4879 4901 4923 4945 4967 4989 5011 5033 5055 5077 5099 5121 5143 5165 5187 5209 5254 5275 5296 5317 5338 5359 5380 5401 5422 5443 5464 5485 5506 5527 5548 5569 5590 5611 5658 5680 5702 5724 5746 5768 5790 5812 5834 5856 5878 5900 5922 5944 5966 5988 6010 6032 6049 6059 6110 6134 6158 6182 6206 6230 6254 6278 6302 6326 6350 6374 6398 6422 6446 6470 6494 6518 6569 6593 6617 6641 6665 6689 6713 6737 6761 6785 6809 6833 6857 6881 6905 6929 6953 6977 7028 7052 7076 7100 7124 7148 7172 7196 7220 7244 7268 7292 7316 7340 7364 7388 7412 7436 7487 7511 7535 7559 7583 7607 7631 7655 7679 7703 7727 7751 7775 7799 7823 7847 7871 7895 7917 7930 7982 8007 8032 8057 8082 8107 8132 8157 8182 8207 8232 8257 8282 8307 8332 8357 8382 8407 8454 8476 8498 8520 8542 8564 8586 8608 8630 8652 8674 8696 8718 8740 8762 8784 8806 8858 8883 8908 8933 8958 8983 9008 9033 9058 9083 9108 9133 9158 9183 9208 9233 9258 9283 9332 9355 9378 9401 9424 9447 9470 9493 9516 9539 9562 9585 9608 9631 9654 9677 9700 9720 9733 9786 9812 9838 9864 9890 9916 9942 9968 9994 10020 10046 10072 10098 10124 10150 10176 10202 10228 10277 10300 10323 10346 10369 10392 10415 10438 10461 10484 10507 10530 10553 10576 10599 10622 10645 10698 10723 10748 10773 10798 10823 10848 10873 10898 10923 10948 10973 10998 11023 11048 11073 11098 11123 11170 11192 11214 11236 11258 11280 11302 11324 11346 11368 11390 11412 11434 11456 11478 11500 11522 11542 11555 11611 11638 11665 11692 11719 11746 11773 11800 11827 11854 11881 11908 11935 11962 11989 12016 12043 12070 12119 12142 12165 12188 12211 12234 12257 12280 12303 12326 12349 12372 12395 12418 12441 12464 12523 12551 12579 12607 12635 12663 12691 12719 12747 12775 12803 12831 12859 12887 12915 12943 12971 12999 13046 13068 13090 13112 13134 13156 13178 13200 13222 13244 13266 13288 13310 13332 13354 13376 13400 13402 13417 13419 13434 13436 13451 13453 13468 13470 13485 13487 13502 13504 13519 13521 13536 13538 13553 13555 13570 13572 13587 13589 13604 13606 13621 13623 13638 13640 13655 13657 13672 13674 13689 13691 13706 13708 13723 13725 13740 SEQ 0376 13742 13757 13759 13774 13776 13791 13793 13817 13819 13834 13836 13851 13853 13868 13870 13885 13887 13902 13904 13919 13921 13936 13938 13953 13955 13970 13972 13987 13989 14004 14006 14021 14023 14038 14040 14055 14057 14072 14074 14089 14091 14106 14108 14123 14125 14140 14142 14165 14167 14182 14184 14199 14201 14216 14218 14233 14235 14250 14252 14267 14269 14284 14286 14301 14303 14318 14320 14335 14337 14352 14354 14369 14371 14386 14388 14403 14405 14420 14422 14437 14439 14454 14456 14471 14473 14488 14490 14505 14507 14522 14524 14539 14541 14570 14572 14588 14590 14606 14608 14624 14626 14642 14644 14660 14662 14678 14680 14696 14698 14714 14716 14732 14734 14750 14752 14768 14770 14786 14788 14804 14806 14822 14824 14840 14842 14858 14860 14876 14878 14894 14896 14912 14914 14930 14932 14948 14950 14966 14968 14984 14986 15002 15004 15020 15022 15038 15040 15056 15058 15074 15076 15092 15094 15110 15112 15128 15130 15146 15148 15164 15166 15182 15184 15200 15202 15218 15220 15236 15238 15254 15256 15272 15274 15290 15292 15308 15310 15326 15328 15344 15346 15362 15364 15380 15382 15398 15400 15416 15418 CAMN 15432 DEFINE 8 91 97 106 121 137 305 308 314 388 399 END 15672 HRL 15435 HRLOI 2025 2043 2061 2079 2097 2115 2133 2151 2169 2187 2205 2223 2241 2259 2277 2295 2313 2331 3918 3960 3962 3982 3984 4004 4006 4026 4028 4048 4050 4070 4072 4092 4094 4114 4116 4136 4138 4158 4160 4180 4182 4202 4204 4224 4226 4246 4248 4268 4270 4290 4292 4312 4314 4334 5248 5250 5269 5271 5290 5292 5311 5313 5332 5334 5353 5355 5374 5376 5395 5397 5416 5418 5437 5439 5458 5460 5479 5481 5500 5502 5521 5523 5542 5544 5563 5565 5584 5586 5605 6030 7020 7022 7044 7046 7068 7070 7092 7094 7116 7118 7140 7142 7164 7166 7188 7190 7212 7214 7236 7238 7260 7262 7284 7286 7308 7310 7332 7334 7356 7358 7380 7382 7404 7428 7867 7893 9281 9329 9330 9352 9353 9375 9376 9398 9399 9421 9422 9444 9445 9467 9468 9490 9491 9513 9514 9536 9537 9559 9560 9582 9583 9605 9606 9628 9629 9651 9652 9674 9675 9697 9698 10692 10694 10717 10719 10742 10744 10767 10769 10792 10794 10817 10819 10842 10844 10867 10869 10892 10894 10917 10919 10942 10944 10967 10969 10992 10994 11017 11019 11042 11044 11067 11069 11092 11094 11117 12515 12517 12543 12545 12571 12573 12599 12601 12627 12629 12655 12657 12683 12685 12711 12713 12739 12741 12767 12769 12795 12797 12823 12825 12851 12853 12879 12881 12907 12909 12935 12937 12963 12991 12993 HRROI 1681 1699 1717 1735 1753 1771 1789 1807 1825 1843 1861 1879 1897 1915 1933 1951 1969 1987 3540 3542 3562 3564 3584 3586 3606 3608 3628 3630 3650 3652 3672 3674 3694 3696 3716 3718 3738 3740 3760 3762 3782 3784 3804 3806 3826 3828 3848 3850 3870 3872 3892 3894 3914 4338 5609 5652 5654 5674 5676 5696 5698 5718 5720 5740 5742 5762 5764 5784 5786 5806 5808 5828 5830 5850 5852 5872 5874 5894 5896 5916 5918 5938 5940 5960 5962 5982 5984 6004 6006 6026 7408 7434 7479 7481 7503 7505 7527 7529 7551 7553 7575 7577 7599 7601 7623 7625 7647 7649 7671 7673 7695 7697 7719 7721 7743 7745 7767 7769 7791 7793 7815 7817 7839 7841 7863 7887 8852 8854 8877 8879 8902 8904 8927 8929 8952 8954 8977 8979 9002 9004 9027 9029 9052 9054 9077 9079 9102 9104 9127 9129 9152 9154 9177 9179 9202 9204 9227 9229 9252 9254 9277 11121 11167 11168 11189 11190 11211 11212 11233 11234 11255 11256 11277 11278 11299 11300 11321 11322 11343 11344 11365 11366 11387 11388 11409 11410 11431 11432 11453 11454 11475 11476 11497 11498 11519 11520 12967 12997 13043 13044 13065 13066 13087 13088 13109 13110 13131 13132 13153 13154 13175 13176 13197 13198 13219 13220 13241 13242 13263 13264 13285 13286 13307 13308 13329 13330 13351 13352 13373 13374 HRRZ 15431 15461 15500 SEQ 0377 HRRZI 2504 2516 2528 2561 2575 2589 IFDEF 409 460 461 462 463 15465 15535 15663 15670 IFE 1000 1017 1034 1051 1068 1085 1102 1119 1136 1153 1170 1187 1204 1221 1238 1255 1272 1289 1326 1344 1362 1380 1398 1416 1434 1452 1470 1488 1506 1524 1542 1560 1578 1596 1614 1632 1679 1697 1715 1733 1751 1769 1787 1805 1823 1841 1859 1877 1895 1913 1931 1949 1967 1985 2023 2041 2059 2077 2095 2113 2131 2149 2167 2185 2203 2221 2239 2257 2275 2293 2311 2329 2660 2665 2683 2688 2706 2711 2729 2734 2752 2757 2775 2780 2798 2803 2821 2826 2844 2849 2867 2872 2890 2895 2913 2918 2936 2941 2959 2964 2982 2987 3005 3010 3028 3033 3051 3056 3100 3105 3123 3128 3146 3151 3169 3174 3192 3197 3215 3220 3238 3243 3261 3266 3284 3289 3307 3312 3330 3335 3353 3358 3376 3381 3399 3404 3422 3427 3445 3450 3468 3473 3491 3496 3538 3543 3560 3565 3582 3587 3604 3609 3626 3631 3648 3653 3670 3675 3692 3697 3714 3719 3736 3741 3758 3763 3780 3785 3802 3807 3824 3829 3846 3851 3868 3873 3890 3895 3912 3917 3958 3963 3980 3985 4002 4007 4024 4029 4046 4051 4068 4073 4090 4095 4112 4117 4134 4139 4156 4161 4178 4183 4200 4205 4222 4227 4244 4249 4266 4271 4288 4293 4310 4315 4332 4337 4406 4411 4428 4433 4450 4455 4472 4477 4494 4499 4516 4521 4538 4543 4560 4565 4582 4587 4604 4609 4626 4631 4648 4653 4670 4675 4692 4697 4714 4719 4736 4741 4758 4763 4780 4785 4827 4832 4849 4854 4871 4876 4893 4898 4915 4920 4937 4942 4959 4964 4981 4986 5003 5008 5025 5030 5047 5052 5069 5074 5091 5096 5113 5118 5135 5140 5157 5162 5179 5184 5201 5206 5246 5251 5267 5272 5288 5293 5309 5314 5330 5335 5351 5356 5372 5377 5393 5398 5414 5419 5435 5440 5456 5461 5477 5482 5498 5503 5519 5524 5540 5545 5561 5566 5582 5587 5603 5608 5650 5655 5672 5677 5694 5699 5716 5721 5738 5743 5760 5765 5782 5787 5804 5809 5826 5831 5848 5853 5870 5875 5892 5897 5914 5919 5936 5941 5958 5963 5980 5985 6002 6007 6024 6029 6100 6105 6107 6124 6129 6131 6148 6153 6155 6172 6177 6179 6196 6201 6203 6220 6225 6227 6244 6249 6251 6268 6273 6275 6292 6297 6299 6316 6321 6323 6340 6345 6347 6364 6369 6371 6388 6393 6395 6412 6417 6419 6436 6441 6443 6460 6465 6467 6484 6489 6491 6508 6513 6515 6559 6564 6566 6583 6588 6590 6607 6612 6614 6631 6636 6638 6655 6660 6662 6679 6684 6686 6703 6708 6710 6727 6732 6734 6751 6756 6758 6775 6780 6782 6799 6804 6806 6823 6828 6830 6847 6852 6854 6871 6876 6878 6895 6900 6902 6919 6924 6926 6943 6948 6950 6967 6972 6974 7018 7023 7025 7042 7047 7049 7066 7071 7073 7090 7095 7097 7114 7119 7121 7138 7143 7145 7162 7167 7169 7186 7191 7193 7210 7215 7217 7234 7239 7241 7258 7263 7265 7282 7287 7289 7306 7311 7313 7330 7335 7337 7354 7359 7361 7378 7383 7385 7402 7407 7409 7426 7431 7433 7477 7482 7484 7501 7506 7508 7525 7530 7532 7549 7554 7556 7573 7578 7580 7597 7602 7604 7621 7626 7628 7645 7650 7652 7669 7674 7676 7693 7698 7700 7717 7722 7724 7741 7746 7748 7765 7770 7772 7789 7794 7796 7813 7818 7820 7837 7842 7844 7861 7866 7868 7885 7890 7892 7973 7979 7998 8004 8023 8029 8048 8054 8073 8079 8098 8104 8123 8129 8148 8154 8173 8179 8198 8204 8223 8229 8248 8254 8273 8279 8298 8304 8323 8329 8348 8354 8373 8379 8398 8404 8448 8470 8492 8514 8536 8558 8580 8602 8624 8646 8668 8690 8712 8734 8756 8778 8800 8849 8855 8874 8880 8899 8905 8924 8930 8949 8955 8974 8980 8999 9005 9024 9030 9049 9055 9074 9080 9099 9105 9124 9130 9149 9155 9174 9180 9199 9205 9224 9230 9249 9255 9274 9280 9326 9349 9372 9395 9418 9441 9464 9487 9510 9533 9556 9579 9602 9625 9648 9671 9694 9777 9783 9803 9809 9829 9835 9855 9861 9881 9887 9907 9913 9933 9939 9959 9965 9985 9991 10011 10017 10037 10043 10063 10069 10089 10095 10115 10121 10141 10147 10167 10173 SEQ 0378 10193 10199 10219 10225 10270 10293 10316 10339 10362 10385 10408 10431 10454 10477 10500 10523 10546 10569 10592 10615 10638 10689 10695 10714 10720 10739 10745 10764 10770 10789 10795 10814 10820 10839 10845 10864 10870 10889 10895 10914 10920 10939 10945 10964 10970 10989 10995 11014 11020 11039 11045 11064 11070 11089 11095 11114 11120 11164 11186 11208 11230 11252 11274 11296 11318 11340 11362 11384 11406 11428 11450 11472 11494 11516 11600 11606 11608 11627 11633 11635 11654 11660 11662 11681 11687 11689 11708 11714 11716 11735 11741 11743 11762 11768 11770 11789 11795 11797 11816 11822 11824 11843 11849 11851 11870 11876 11878 11897 11903 11905 11924 11930 11932 11951 11957 11959 11978 11984 11986 12005 12011 12013 12032 12038 12040 12059 12065 12067 12112 12135 12158 12181 12204 12227 12250 12273 12296 12319 12342 12365 12388 12411 12434 12457 12512 12518 12520 12540 12546 12548 12568 12574 12576 12596 12602 12604 12624 12630 12632 12652 12658 12660 12680 12686 12688 12708 12714 12716 12736 12742 12744 12764 12770 12772 12792 12798 12800 12820 12826 12828 12848 12854 12856 12876 12882 12884 12904 12910 12912 12932 12938 12940 12960 12966 12968 12988 12994 12996 13040 13062 13084 13106 13128 13150 13172 13194 13216 13238 13260 13282 13304 13326 13348 13370 IFG 6103 6127 6151 6175 6199 6223 6247 6271 6295 6319 6343 6367 6391 6415 6439 6463 6487 6511 6562 6586 6610 6634 6658 6682 6706 6730 6754 6778 6802 6826 6850 6874 6898 6922 6946 6970 11604 11631 11658 11685 11712 11739 11766 11793 11820 11847 11874 11901 11928 11955 11982 12009 12036 12063 12516 12544 12572 12600 12628 12656 12684 12712 12740 12768 12796 12824 12852 12880 12908 12936 12964 12992 IFL 7021 7045 7069 7093 7117 7141 7165 7189 7213 7237 7261 7285 7309 7333 7357 7381 7405 7429 7480 7504 7528 7552 7576 7600 7624 7648 7672 7696 7720 7744 7768 7792 7816 7840 7864 7888 IFN 2663 2686 2709 2732 2755 2778 2801 2824 2847 2870 2893 2916 2939 2962 2985 3008 3031 3054 3103 3126 3149 3172 3195 3218 3241 3264 3287 3310 3333 3356 3379 3402 3425 3448 3471 3494 3541 3563 3585 3607 3629 3651 3673 3695 3717 3739 3761 3783 3805 3827 3849 3871 3893 3915 3961 3983 4005 4027 4049 4071 4093 4115 4137 4159 4181 4203 4225 4247 4269 4291 4313 4335 4409 4431 4453 4475 4497 4519 4541 4563 4585 4607 4629 4651 4673 4695 4717 4739 4761 4783 4830 4852 4874 4896 4918 4940 4962 4984 5006 5028 5050 5072 5094 5116 5138 5160 5182 5204 5249 5270 5291 5312 5333 5354 5375 5396 5417 5438 5459 5480 5501 5522 5543 5564 5585 5606 5653 5675 5697 5719 5741 5763 5785 5807 5829 5851 5873 5895 5917 5939 5961 5983 6005 6027 7977 8002 8027 8052 8077 8102 8127 8152 8177 8202 8227 8252 8277 8302 8327 8352 8377 8402 8853 8878 8903 8928 8953 8978 9003 9028 9053 9078 9103 9128 9153 9178 9203 9228 9253 9278 9781 9807 9833 9859 9885 9911 9937 9963 9989 10015 10041 10067 10093 10119 10145 10171 10197 10223 10693 10718 10743 10768 10793 10818 10843 10868 10893 10918 10943 10968 10993 11018 11043 11068 11093 11118 IFNDEF 360 361 371 460 461 462 463 542 15583 JFCL 500 501 502 503 504 505 506 507 508 509 510 511 JRST 70 71 72 73 74 75 76 210 211 212 213 422 423 425 427 429 431 433 436 438 439 492 763 15422 15439 15446 15449 15454 15482 15488 15502 15504 15506 15509 15512 15514 15516 15542 15545 15558 15562 15565 15568 15572 15573 15577 JSP 219 JUMPL 788 794 809 818 840 846 861 870 892 898 913 922 943 962 1006 1023 1040 1057 1074 1091 1108 1125 1142 1159 1176 1193 1210 1227 1244 1261 1278 1295 1333 1351 1369 1387 1405 1423 1441 1459 1477 1495 1513 1531 1549 1567 1585 1603 1621 1639 1686 1704 1722 1740 1758 1776 1794 1812 1830 1848 1866 1884 1902 1920 1938 1956 1974 1992 2030 2048 SEQ 0379 2066 2084 2102 2120 2138 2156 2174 2192 2210 2228 2246 2264 2282 2300 2318 2336 2363 2378 2393 2408 2424 2440 2456 2472 2508 2520 2532 2565 2579 2593 2612 2622 2670 2693 2716 2739 2762 2785 2808 2831 2854 2877 2900 2923 2946 2969 2992 3015 3038 3061 3110 3133 3156 3179 3202 3225 3248 3271 3294 3317 3340 3363 3386 3409 3432 3455 3478 3501 3548 3570 3592 3614 3636 3658 3680 3702 3724 3746 3768 3790 3812 3834 3856 3878 3900 3922 3968 3990 4012 4034 4056 4078 4100 4122 4144 4166 4188 4210 4232 4254 4276 4298 4320 4342 4360 4370 4416 4438 4460 4482 4504 4526 4548 4570 4592 4614 4636 4658 4680 4702 4724 4746 4768 4790 4837 4859 4881 4903 4925 4947 4969 4991 5013 5035 5057 5079 5101 5123 5145 5167 5189 5211 5256 5277 5298 5319 5340 5361 5382 5403 5424 5445 5466 5487 5508 5529 5550 5571 5592 5613 5660 5682 5704 5726 5748 5770 5792 5814 5836 5858 5880 5902 5924 5946 5968 5990 6012 6034 6051 6061 6112 6136 6160 6184 6208 6232 6256 6280 6304 6328 6352 6376 6400 6424 6448 6472 6496 6520 6571 6595 6619 6643 6667 6691 6715 6739 6763 6787 6811 6835 6859 6883 6907 6931 6955 6979 7030 7054 7078 7102 7126 7150 7174 7198 7222 7246 7270 7294 7318 7342 7366 7390 7414 7438 7489 7513 7537 7561 7585 7609 7633 7657 7681 7705 7729 7753 7777 7801 7825 7849 7873 7897 7919 7932 7984 8009 8034 8059 8084 8109 8134 8159 8184 8209 8234 8259 8284 8309 8334 8359 8384 8409 8456 8478 8500 8522 8544 8566 8588 8610 8632 8654 8676 8698 8720 8742 8764 8786 8808 8860 8885 8910 8935 8960 8985 9010 9035 9060 9085 9110 9135 9160 9185 9210 9235 9260 9285 9334 9357 9380 9403 9426 9449 9472 9495 9518 9541 9564 9587 9610 9633 9656 9679 9702 9722 9735 9788 9814 9840 9866 9892 9918 9944 9970 9996 10022 10048 10074 10100 10126 10152 10178 10204 10230 10279 10302 10325 10348 10371 10394 10417 10440 10463 10486 10509 10532 10555 10578 10601 10624 10647 10700 10725 10750 10775 10800 10825 10850 10875 10900 10925 10950 10975 11000 11025 11050 11075 11100 11125 11172 11194 11216 11238 11260 11282 11304 11326 11348 11370 11392 11414 11436 11458 11480 11502 11524 11544 11557 11613 11640 11667 11694 11721 11748 11775 11802 11829 11856 11883 11910 11937 11964 11991 12018 12045 12072 12121 12144 12167 12190 12213 12236 12259 12282 12305 12328 12351 12374 12397 12420 12443 12466 12525 12553 12581 12609 12637 12665 12693 12721 12749 12777 12805 12833 12861 12889 12917 12945 12973 13001 13048 13070 13092 13114 13136 13158 13180 13202 13224 13246 13268 13290 13312 13334 13356 13378 13404 13421 13438 13455 13472 13489 13506 13523 13540 13557 13574 13591 13608 13625 13642 13659 13676 13693 13710 13727 13744 13761 13778 13795 13821 13838 13855 13872 13889 13906 13923 13940 13957 13974 13991 14008 14025 14042 14059 14076 14093 14110 14127 14144 14169 14186 14203 14220 14237 14254 14271 14288 14305 14322 14339 14356 14373 14390 14407 14424 14441 14458 14475 14492 14509 14526 14543 14574 14592 14610 14628 14646 14664 14682 14700 14718 14736 14754 14772 14790 14808 14826 14844 14862 14880 14898 14916 14934 14952 14970 14988 15006 15024 15042 15060 15078 15096 15114 15132 15150 15168 15186 15204 15222 15240 15258 15276 15294 15312 15330 15348 15366 15384 15402 15420 LALL 9 LIST 8 371 409 542 15465 15535 15583 15660 LIT 15584 LOC 25 412 736 LSH 837 843 2358 2373 2388 2403 13816 13833 13850 13867 13884 13901 13918 13935 13952 13969 13986 14003 14020 14037 14054 14071 14088 14105 14122 14139 15441 15473 LSHC 856 865 2419 2435 2451 2467 MOVE 760 936 937 955 956 1329 1347 1365 1383 1401 1419 1437 1455 1473 1491 1509 1527 1545 1563 1581 1599 1617 1635 1682 1700 1718 1736 1754 1772 1790 1808 1826 1844 1862 1880 1898 1916 1934 1952 1970 1988 2026 2044 2062 2080 2098 2116 2134 2152 2170 2188 2206 2224 2242 2260 2278 SEQ 0380 2296 2314 2332 2356 2357 2371 2372 2386 2387 2401 2402 2417 2418 2433 2434 2449 2450 2465 2466 13397 13398 13414 13415 13431 13432 13448 13449 13465 13466 13482 13483 13499 13500 13516 13517 13533 13534 13550 13551 13567 13568 13584 13585 13601 13602 13618 13619 13635 13636 13652 13653 13669 13670 13686 13687 13703 13704 13720 13721 13737 13738 13754 13755 13771 13772 13788 13789 13814 13815 13831 13832 13848 13849 13865 13866 13882 13883 13899 13900 13916 13917 13933 13934 13950 13951 13967 13968 13984 13985 14001 14002 14018 14019 14035 14036 14052 14053 14069 14070 14086 14087 14103 14104 14120 14121 14137 14138 14162 14163 14179 14180 14196 14197 14213 14214 14230 14231 14247 14248 14264 14265 14281 14282 14298 14299 14315 14316 14332 14333 14349 14350 14366 14367 14383 14384 14400 14401 14417 14418 14434 14435 14451 14452 14468 14469 14485 14486 14502 14503 14519 14520 14536 14537 14567 14568 14585 14586 14603 14604 14621 14622 14639 14640 14657 14658 14675 14676 14693 14694 14711 14712 14729 14730 14747 14748 14765 14766 14783 14784 14801 14802 14819 14820 14837 14838 14855 14856 14873 14874 14891 14892 14909 14910 14927 14928 14945 14946 14963 14964 14981 14982 14999 15000 15017 15018 15035 15036 15053 15054 15071 15072 15089 15090 15107 15108 15125 15126 15143 15144 15161 15162 15179 15180 15197 15198 15215 15216 15233 15234 15251 15252 15269 15270 15287 15288 15305 15306 15323 15324 15341 15342 15359 15360 15377 15378 15395 15396 15413 15414 15434 15440 15443 15444 15457 15472 15475 15477 15480 15486 15490 15546 15554 15555 15563 15567 15570 MOVEI 779 781 798 800 831 833 850 852 883 885 902 904 967 969 1002 1019 1036 1053 1070 1087 1104 1121 1138 1155 1172 1189 1206 1223 1240 1257 1274 1291 1643 1645 2345 2347 2477 2479 2603 2605 2662 2664 2685 2687 2708 2710 2731 2733 2754 2756 2777 2779 2800 2802 2823 2825 2846 2848 2869 2871 2892 2894 2915 2917 2938 2940 2961 2963 2984 2986 3007 3009 3030 3032 3053 3497 4351 4353 4786 4829 4831 4851 4853 4873 4875 4895 4897 4917 4919 4939 4941 4961 4963 4983 4985 5005 5007 5027 5029 5049 5051 5071 5073 5093 5095 5115 5117 5137 5139 5159 5161 5181 5183 5203 6042 6044 6490 6516 6561 6563 6585 6587 6609 6611 6633 6635 6657 6659 6681 6683 6705 6707 6729 6731 6753 6755 6777 6779 6801 6803 6825 6827 6849 6851 6873 6875 6897 6899 6921 6923 6945 6969 7909 7911 7976 7978 8001 8003 8026 8028 8051 8053 8076 8078 8101 8103 8126 8128 8151 8153 8176 8178 8201 8203 8226 8228 8251 8253 8276 8278 8301 8303 8326 8328 8351 8353 8376 8378 8401 9712 9714 10226 10274 10275 10297 10298 10320 10321 10343 10344 10366 10367 10389 10390 10412 10413 10435 10436 10458 10459 10481 10482 10504 10505 10527 10528 10550 10551 10573 10574 10596 10597 10619 10620 10642 10643 11534 11536 12039 12068 12115 12117 12138 12140 12161 12163 12184 12186 12207 12209 12230 12232 12253 12255 12276 12278 12299 12301 12322 12324 12345 12347 12368 12370 12391 12393 12414 12416 12437 12439 12460 12462 15497 15543 MOVEM 761 780 782 799 801 832 834 851 853 884 886 903 905 968 970 1644 1646 2346 2348 2478 2480 2604 2606 4352 4354 6043 6045 7910 7912 9713 9715 11535 11537 15427 15428 15429 15442 15462 15544 MOVSI 1328 1346 1364 1382 1400 1418 1436 1454 1472 1490 1508 1526 1544 1562 1580 1598 1616 1634 3057 3102 3104 3125 3127 3148 3150 3171 3173 3194 3196 3217 3219 3240 3242 3263 3265 3286 3288 3309 3311 3332 3334 3355 3357 3378 3380 3401 3403 3424 3426 3447 3449 3470 3472 3493 4408 4410 4430 4432 4452 4454 4474 4476 4496 4498 4518 4520 4540 4542 4562 4564 4584 4586 4606 4608 4628 4630 4650 4652 4672 4674 4694 4696 4716 4718 4738 4740 4760 4762 4782 5207 6102 6104 6126 6128 6150 6152 6174 6176 6198 6200 6222 6224 6246 6248 6270 6272 6294 6296 6318 6320 6342 6344 6366 6368 6390 6392 6414 6416 6438 6440 6462 6464 6486 6510 6949 6975 8405 8451 8452 8473 8474 8495 8496 8517 8518 8539 8540 8561 8562 8583 8584 8605 8606 8627 8628 8649 8650 8671 8672 8693 8694 8715 8716 8737 8738 8759 8760 8781 8782 8803 8804 9780 9782 9806 9808 9832 9834 9858 SEQ 0381 9860 9884 9886 9910 9912 9936 9938 9962 9964 9988 9990 10014 10016 10040 10042 10066 10068 10092 10094 10118 10120 10144 10146 10170 10172 10196 10198 10222 11603 11605 11630 11632 11657 11659 11684 11686 11711 11713 11738 11740 11765 11767 11792 11794 11819 11821 11846 11848 11873 11875 11900 11902 11927 11929 11954 11956 11981 11983 12008 12010 12035 12062 12064 NOSYM 28 OPDEF 33 34 35 36 37 38 39 40 41 42 43 206 207 208 209 210 211 212 213 219 225 226 234 235 236 237 238 239 240 241 242 243 244 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 303 320 325 326 330 331 332 338 339 345 346 347 348 349 350 351 357 358 365 366 367 368 378 379 380 381 382 409 PAGE 1297 1994 2409 2534 3063 3924 4792 5615 6522 7440 9287 10232 11127 12074 13003 13439 13490 13592 13728 13856 13975 14094 14204 14340 14476 14611 14665 14773 14917 15061 15205 15349 POP 209 POPJ 207 PUSH 208 PUSHJ 206 REPEAT 974 1299 1652 1996 2485 2538 2626 3066 3506 3926 4374 4795 5216 5618 6066 6525 6984 7443 7936 8414 8812 9290 9738 10235 10652 11130 11561 12077 12471 13006 ROT 785 791 2505 2517 2529 2609 2619 2667 2690 2713 2736 2759 2782 2805 2828 2851 2874 2897 2920 2943 2966 2989 3012 3035 3058 3107 3130 3153 3176 3199 3222 3245 3268 3291 3314 3337 3360 3383 3406 3429 3452 3475 3498 3545 3567 3589 3611 3633 3655 3677 3699 3721 3743 3765 3787 3809 3831 3853 3875 3897 3919 3965 3987 4009 4031 4053 4075 4097 4119 4141 4163 4185 4207 4229 4251 4273 4295 4317 4339 4357 4367 4413 4435 4457 4479 4501 4523 4545 4567 4589 4611 4633 4655 4677 4699 4721 4743 4765 4787 4834 4856 4878 4900 4922 4944 4966 4988 5010 5032 5054 5076 5098 5120 5142 5164 5186 5208 5253 5274 5295 5316 5337 5358 5379 5400 5421 5442 5463 5484 5505 5526 5547 5568 5589 5610 5657 5679 5701 5723 5745 5767 5789 5811 5833 5855 5877 5899 5921 5943 5965 5987 6009 6031 6048 6058 6109 6133 6157 6181 6205 6229 6253 6277 6301 6325 6349 6373 6397 6421 6445 6469 6493 6517 6568 6592 6616 6640 6664 6688 6712 6736 6760 6784 6808 6832 6856 6880 6904 6928 6952 6976 7027 7051 7075 7099 7123 7147 7171 7195 7219 7243 7267 7291 7315 7339 7363 7387 7411 7435 7486 7510 7534 7558 7582 7606 7630 7654 7678 7702 7726 7750 7774 7798 7822 7846 7870 7894 13399 13416 13433 13450 13467 13484 13501 13518 13535 13552 13569 13586 13603 13620 13637 13654 13671 13688 13705 13722 13739 13756 13773 13790 ROTC 804 813 1003 1020 1037 1054 1071 1088 1105 1122 1139 1156 1173 1190 1207 1224 1241 1258 1275 1292 1330 1348 1366 1384 1402 1420 1438 1456 1474 1492 1510 1528 1546 1564 1582 1600 1618 1636 1683 1701 1719 1737 1755 1773 1791 1809 1827 1845 1863 1881 1899 1917 1935 1953 1971 1989 2027 2045 2063 2081 2099 2117 2135 2153 2171 2189 2207 2225 2243 2261 2279 2297 2315 2333 2562 2576 2590 7916 7929 7981 8006 8031 8056 8081 8106 8131 8156 8181 8206 8231 8256 8281 8306 8331 8356 8381 8406 8453 8475 8497 8519 8541 8563 8585 8607 8629 8651 8673 8695 8717 8739 8761 8783 8805 8857 8882 8907 8932 8957 8982 9007 9032 9057 9082 9107 9132 9157 9182 9207 9232 9257 9282 9331 9354 9377 9400 9423 9446 9469 9492 SEQ 0382 9515 9538 9561 9584 9607 9630 9653 9676 9699 9719 9732 9785 9811 9837 9863 9889 9915 9941 9967 9993 10019 10045 10071 10097 10123 10149 10175 10201 10227 10276 10299 10322 10345 10368 10391 10414 10437 10460 10483 10506 10529 10552 10575 10598 10621 10644 10697 10722 10747 10772 10797 10822 10847 10872 10897 10922 10947 10972 10997 11022 11047 11072 11097 11122 11169 11191 11213 11235 11257 11279 11301 11323 11345 11367 11389 11411 11433 11455 11477 11499 11521 11541 11554 11610 11637 11664 11691 11718 11745 11772 11799 11826 11853 11880 11907 11934 11961 11988 12015 12042 12069 12118 12141 12164 12187 12210 12233 12256 12279 12302 12325 12348 12371 12394 12417 12440 12463 12522 12550 12578 12606 12634 12662 12690 12718 12746 12774 12802 12830 12858 12886 12914 12942 12970 12998 13045 13067 13089 13111 13133 13155 13177 13199 13221 13243 13265 13287 13309 13331 13353 13375 14569 14587 14605 14623 14641 14659 14677 14695 14713 14731 14749 14767 14785 14803 14821 14839 14857 14875 14893 14911 14929 14947 14965 14983 15001 15019 15037 15055 15073 15091 15109 15127 15145 15163 15181 15199 15217 15235 15253 15271 15289 15307 15325 15343 15361 15379 15397 15415 SETO 811 863 915 SETOB 790 812 842 864 894 916 2618 4366 6057 7927 9730 11552 SETOM 1680 1698 1716 1734 1752 1770 1788 1806 1824 1842 1860 1878 1896 1914 1932 1950 1968 1986 2024 2042 2060 2078 2096 2114 2132 2150 2168 2186 2204 2222 2240 2258 2276 2294 2312 2330 7928 8851 8876 8901 8926 8951 8976 9001 9026 9051 9076 9101 9126 9151 9176 9201 9226 9251 9276 9328 9351 9374 9397 9420 9443 9466 9489 9512 9535 9558 9581 9604 9627 9650 9673 9696 9731 10691 10716 10741 10766 10791 10816 10841 10866 10891 10916 10941 10966 10991 11016 11041 11066 11091 11116 11166 11188 11210 11232 11254 11276 11298 11320 11342 11364 11386 11408 11430 11452 11474 11496 11518 11553 12514 12542 12570 12598 12626 12654 12682 12710 12738 12766 12794 12822 12850 12878 12906 12934 12962 12990 13042 13064 13086 13108 13130 13152 13174 13196 13218 13240 13262 13284 13306 13328 13350 13372 15452 15550 15556 SETZ 784 836 888 2560 2574 2588 7975 8000 8025 8050 8075 8100 8125 8150 8175 8200 8225 8250 8275 8300 8325 8350 8375 8400 8450 8472 8494 8516 8538 8560 8582 8604 8626 8648 8670 8692 8714 8736 8758 8780 8802 9779 9805 9831 9857 9883 9909 9935 9961 9987 10013 10039 10065 10091 10117 10143 10169 10195 10221 10273 10296 10319 10342 10365 10388 10411 10434 10457 10480 10503 10526 10549 10572 10595 10618 10641 11602 11629 11656 11683 11710 11737 11764 11791 11818 11845 11872 11899 11926 11953 11980 12007 12034 12061 12114 12137 12160 12183 12206 12229 12252 12275 12298 12321 12344 12367 12390 12413 12436 12459 SETZB 803 855 907 2608 4356 6047 7914 9717 11539 SETZM 1001 1018 1035 1052 1069 1086 1103 1120 1137 1154 1171 1188 1205 1222 1239 1256 1273 1290 1327 1345 1363 1381 1399 1417 1435 1453 1471 1489 1507 1525 1543 1561 1579 1597 1615 1633 7915 9718 11540 15436 15447 SIXBIT 83 84 627 628 636 637 15456 15460 15471 15496 15576 SKIPE 786 805 807 838 857 859 890 909 911 SKIPGE 15445 SKIPL 15448 15561 SKIPN 15450 15453 15557 SUBTTL 29 135 170 372 409 410 764 923 963 2338 2473 2595 7899 13380 13797 14145 14545 15423 15578 TITLE 13 TLNE 15438 15481 15547 15551 TLNN 15549 15571 TRNE 15501 15503 15505 VAR 15668 XCT 15538 SEQ 0383 XLIST 7 370 408 541 15464 15534 15582 XWD 936 937 939 941 955 956 958 960 2356 2357 2359 2361 2371 2372 2374 2376 2386 2387 2389 2391 2401 2402 2404 2406 2417 2418 2420 2422 2433 2434 2436 2438 2449 2450 2452 2454 2465 2466 2468 2470 13397 13398 13400 13402 13414 13415 13417 13419 13431 13432 13434 13436 13448 13449 13451 13453 13465 13466 13468 13470 13482 13483 13485 13487 13499 13500 13502 13504 13516 13517 13519 13521 13533 13534 13536 13538 13550 13551 13553 13555 13567 13568 13570 13572 13584 13585 13587 13589 13601 13602 13604 13606 13618 13619 13621 13623 13635 13636 13638 13640 13652 13653 13655 13657 13669 13670 13672 13674 13686 13687 13689 13691 13703 13704 13706 13708 13720 13721 13723 13725 13737 13738 13740 13742 13754 13755 13757 13759 13771 13772 13774 13776 13788 13789 13791 13793 13814 13815 13817 13819 13831 13832 13834 13836 13848 13849 13851 13853 13865 13866 13868 13870 13882 13883 13885 13887 13899 13900 13902 13904 13916 13917 13919 13921 13933 13934 13936 13938 13950 13951 13953 13955 13967 13968 13970 13972 13984 13985 13987 13989 14001 14002 14004 14006 14018 14019 14021 14023 14035 14036 14038 14040 14052 14053 14055 14057 14069 14070 14072 14074 14086 14087 14089 14091 14103 14104 14106 14108 14120 14121 14123 14125 14137 14138 14140 14142 14162 14163 14165 14167 14179 14180 14182 14184 14196 14197 14199 14201 14213 14214 14216 14218 14230 14231 14233 14235 14247 14248 14250 14252 14264 14265 14267 14269 14281 14282 14284 14286 14298 14299 14301 14303 14315 14316 14318 14320 14332 14333 14335 14337 14349 14350 14352 14354 14366 14367 14369 14371 14383 14384 14386 14388 14400 14401 14403 14405 14417 14418 14420 14422 14434 14435 14437 14439 14451 14452 14454 14456 14468 14469 14471 14473 14485 14486 14488 14490 14502 14503 14505 14507 14519 14520 14522 14524 14536 14537 14539 14541 14567 14568 14570 14572 14585 14586 14588 14590 14603 14604 14606 14608 14621 14622 14624 14626 14639 14640 14642 14644 14657 14658 14660 14662 14675 14676 14678 14680 14693 14694 14696 14698 14711 14712 14714 14716 14729 14730 14732 14734 14747 14748 14750 14752 14765 14766 14768 14770 14783 14784 14786 14788 14801 14802 14804 14806 14819 14820 14822 14824 14837 14838 14840 14842 14855 14856 14858 14860 14873 14874 14876 14878 14891 14892 14894 14896 14909 14910 14912 14914 14927 14928 14930 14932 14945 14946 14948 14950 14963 14964 14966 14968 14981 14982 14984 14986 14999 15000 15002 15004 15017 15018 15020 15022 15035 15036 15038 15040 15053 15054 15056 15058 15071 15072 15074 15076 15089 15090 15092 15094 15107 15108 15110 15112 15125 15126 15128 15130 15143 15144 15146 15148 15161 15162 15164 15166 15179 15180 15182 15184 15197 15198 15200 15202 15215 15216 15218 15220 15233 15234 15236 15238 15251 15252 15254 15256 15269 15270 15272 15274 15287 15288 15290 15292 15305 15306 15308 15310 15323 15324 15326 15328 15341 15342 15344 15346 15359 15360 15362 15364 15377 15378 15380 15382 15395 15396 15398 15400 15413 15414 15416 15418 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0384 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 *030631 ROT 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030636 ROT 1,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030647 ROTC 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030657 ROTC 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *030672 LSH 3,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0385 *030677 LSH 3,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 ---------- *030710 LSHC 14,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030720 LSHC 14,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *030733 ASH 13,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030740 ASH 13,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0386 *030751 ASHC 12,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030761 ASHC 12,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *030771 ASHC 12,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 ---------- *031001 ASHC 12,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *031015 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0387 *031023 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *031031 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *031037 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *031045 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *031053 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0388 *031061 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- *031067 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- *031075 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *031103 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- *031111 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0389 *031117 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- *031125 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- *031133 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *031141 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *031147 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0390 *031155 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- *031163 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- *031172 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *031201 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *031210 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0391 *031217 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- *031226 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- *031235 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *031244 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *031253 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0392 *031262 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- *031271 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- *031300 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *031307 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- *031316 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0393 *031325 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- *031334 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- *031343 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *031352 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *031361 ROTC 10,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 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 11 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0394 *031374 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000001 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000001 ---------- *031403 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000003 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000003 ---------- *031412 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000007 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000007 ---------- *031421 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000017 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000017 ---------- *031430 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000037 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000037 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0395 *031437 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000077 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000077 ---------- *031446 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000177 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000177 ---------- *031455 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000377 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000377 ---------- *031464 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 000777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000777 ---------- *031473 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 001777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 001777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0396 *031502 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 003777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 003777 ---------- *031511 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 007777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 007777 ---------- *031520 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 017777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 017777 ---------- *031527 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 037777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 037777 ---------- *031536 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 077777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 077777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0397 *031545 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 177777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 177777 ---------- *031554 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *031563 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *031572 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000001 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000001 777777 ---------- *031601 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000003 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000003 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0398 *031610 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000007 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000007 777777 ---------- *031617 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000017 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000017 777777 ---------- *031626 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000037 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000037 777777 ---------- *031635 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000077 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000077 777777 ---------- *031644 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000177 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000177 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0399 *031653 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000377 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000377 777777 ---------- *031662 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000777 777777 ---------- *031671 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 001777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 001777 777777 ---------- *031700 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 003777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 003777 777777 ---------- *031707 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 007777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 007777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0400 *031716 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 017777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 017777 777777 ---------- *031725 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 037777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 037777 777777 ---------- *031734 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 077777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 077777 777777 ---------- *031743 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 177777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 177777 777777 ---------- *031752 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0401 *031761 ROTC 7,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *031773 LSH 4,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000000 FINAL C(AC)= 000000 000010 ---------- *032003 LSH 4,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000001 FINAL C(AC)= 000000 000020 ---------- *032013 LSH 4,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777777 FINAL C(AC)= 000000 000004 ---------- *032023 LSH 4,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0402 *032033 LSHC 4,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 E= 000000 000000 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 ---------- *032043 LSHC 4,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 E= 000000 000001 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000020 ---------- *032053 LSHC 4,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 E= 000000 777777 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 ---------- *032063 LSHC 4,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000002 ---------- *032076 ROT 10,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000002 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0403 *032103 ROT 10,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000004 FINAL C(AC)= 000010 000000 ---------- *032110 ROT 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000010 FINAL C(AC)= 000200 000000 ---------- *032116 ROTC 10,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *032124 ROTC 10,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- *032132 ROTC 10,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 000010 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0404 *032143 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *032150 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 ---------- *032156 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *032164 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 000001 FINAL C(AC)= 000000 000004 ---------- *032172 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 000001 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0405 *032200 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 000001 FINAL C(AC)= 000000 000020 ---------- *032206 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 000001 FINAL C(AC)= 000000 000040 ---------- *032214 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 000001 FINAL C(AC)= 000000 000100 ---------- *032222 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 000001 FINAL C(AC)= 000000 000200 ---------- *032230 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 000001 FINAL C(AC)= 000000 000400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0406 *032236 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 000001 FINAL C(AC)= 000000 001000 ---------- *032244 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 000001 FINAL C(AC)= 000000 002000 ---------- *032252 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 000001 FINAL C(AC)= 000000 004000 ---------- *032260 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 000001 FINAL C(AC)= 000000 010000 ---------- *032266 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 000001 FINAL C(AC)= 000000 020000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0407 *032274 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 000001 FINAL C(AC)= 000000 040000 ---------- *032302 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 000001 FINAL C(AC)= 000000 100000 ---------- *032310 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 000001 FINAL C(AC)= 000000 200000 ---------- *032316 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 000001 FINAL C(AC)= 000000 400000 ---------- *032324 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 000001 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0408 *032332 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 000001 FINAL C(AC)= 000002 000000 ---------- *032340 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 000001 FINAL C(AC)= 000004 000000 ---------- *032346 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 000001 FINAL C(AC)= 000010 000000 ---------- *032354 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 000001 FINAL C(AC)= 000020 000000 ---------- *032362 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 000001 FINAL C(AC)= 000040 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0409 *032370 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 000001 FINAL C(AC)= 000100 000000 ---------- *032376 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 000001 FINAL C(AC)= 000200 000000 ---------- *032404 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 000001 FINAL C(AC)= 000400 000000 ---------- *032412 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 000001 FINAL C(AC)= 001000 000000 ---------- *032420 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 000001 FINAL C(AC)= 002000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0410 *032426 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 000001 FINAL C(AC)= 004000 000000 ---------- *032434 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 000001 FINAL C(AC)= 010000 000000 ---------- *032442 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 000001 FINAL C(AC)= 020000 000000 ---------- *032450 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 000001 FINAL C(AC)= 040000 000000 ---------- *032456 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 000001 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0411 *032464 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 ---------- *032472 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- *032500 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *032506 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777775 ---------- *032514 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 000001 FINAL C(AC)= 777777 777773 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0412 *032522 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 000001 FINAL C(AC)= 777777 777767 ---------- *032530 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 000001 FINAL C(AC)= 777777 777757 ---------- *032536 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 E= 000000 000001 FINAL C(AC)= 777777 777737 ---------- *032544 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 E= 000000 000001 FINAL C(AC)= 777777 777677 ---------- *032552 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 E= 000000 000001 FINAL C(AC)= 777777 777577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0413 *032560 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 E= 000000 000001 FINAL C(AC)= 777777 777377 ---------- *032566 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 E= 000000 000001 FINAL C(AC)= 777777 776777 ---------- *032574 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 E= 000000 000001 FINAL C(AC)= 777777 775777 ---------- *032602 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 E= 000000 000001 FINAL C(AC)= 777777 773777 ---------- *032610 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 E= 000000 000001 FINAL C(AC)= 777777 767777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0414 *032616 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 E= 000000 000001 FINAL C(AC)= 777777 757777 ---------- *032624 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 E= 000000 000001 FINAL C(AC)= 777777 737777 ---------- *032632 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 E= 000000 000001 FINAL C(AC)= 777777 677777 ---------- *032640 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 E= 000000 000001 FINAL C(AC)= 777777 577777 ---------- *032646 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 E= 000000 000001 FINAL C(AC)= 777777 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0415 *032654 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 E= 000000 000001 FINAL C(AC)= 777776 777777 ---------- *032662 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 000001 FINAL C(AC)= 777775 777777 ---------- *032670 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 E= 000000 000001 FINAL C(AC)= 777773 777777 ---------- *032676 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 E= 000000 000001 FINAL C(AC)= 777767 777777 ---------- *032704 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 E= 000000 000001 FINAL C(AC)= 777757 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0416 *032712 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 E= 000000 000001 FINAL C(AC)= 777737 777777 ---------- *032720 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 E= 000000 000001 FINAL C(AC)= 777677 777777 ---------- *032726 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 E= 000000 000001 FINAL C(AC)= 777577 777777 ---------- *032734 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 E= 000000 000001 FINAL C(AC)= 777377 777777 ---------- *032742 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 E= 000000 000001 FINAL C(AC)= 776777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0417 *032750 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 E= 000000 000001 FINAL C(AC)= 775777 777777 ---------- *032756 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 E= 000000 000001 FINAL C(AC)= 773777 777777 ---------- *032764 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 E= 000000 000001 FINAL C(AC)= 767777 777777 ---------- *032772 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 E= 000000 000001 FINAL C(AC)= 757777 777777 ---------- *033000 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 E= 000000 000001 FINAL C(AC)= 737777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0418 *033006 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 E= 000000 000001 FINAL C(AC)= 677777 777777 ---------- *033014 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 000001 FINAL C(AC)= 577777 777777 ---------- *033022 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 ---------- *033030 ROT 11,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 ---------- *033041 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0419 *033046 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 ---------- *033054 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 777777 FINAL C(AC)= 200000 000000 ---------- *033062 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 777777 FINAL C(AC)= 100000 000000 ---------- *033070 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 777777 FINAL C(AC)= 040000 000000 ---------- *033076 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 777777 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0420 *033104 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 777777 FINAL C(AC)= 010000 000000 ---------- *033112 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 777777 FINAL C(AC)= 004000 000000 ---------- *033120 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 777777 FINAL C(AC)= 002000 000000 ---------- *033126 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 777777 FINAL C(AC)= 001000 000000 ---------- *033134 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 777777 FINAL C(AC)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0421 *033142 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 777777 FINAL C(AC)= 000200 000000 ---------- *033150 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 777777 FINAL C(AC)= 000100 000000 ---------- *033156 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 777777 FINAL C(AC)= 000040 000000 ---------- *033164 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 777777 FINAL C(AC)= 000020 000000 ---------- *033172 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 777777 FINAL C(AC)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0422 *033200 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 777777 FINAL C(AC)= 000004 000000 ---------- *033206 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 777777 FINAL C(AC)= 000002 000000 ---------- *033214 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 777777 FINAL C(AC)= 000001 000000 ---------- *033222 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 777777 FINAL C(AC)= 000000 400000 ---------- *033230 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 777777 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0423 *033236 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 777777 FINAL C(AC)= 000000 100000 ---------- *033244 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 777777 FINAL C(AC)= 000000 040000 ---------- *033252 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 777777 FINAL C(AC)= 000000 020000 ---------- *033260 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 777777 FINAL C(AC)= 000000 010000 ---------- *033266 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 777777 FINAL C(AC)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0424 *033274 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 777777 FINAL C(AC)= 000000 002000 ---------- *033302 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 777777 FINAL C(AC)= 000000 001000 ---------- *033310 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 777777 FINAL C(AC)= 000000 000400 ---------- *033316 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 777777 FINAL C(AC)= 000000 000200 ---------- *033324 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 777777 FINAL C(AC)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0425 *033332 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 777777 FINAL C(AC)= 000000 000040 ---------- *033340 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 777777 FINAL C(AC)= 000000 000020 ---------- *033346 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 777777 FINAL C(AC)= 000000 000010 ---------- *033354 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777777 FINAL C(AC)= 000000 000004 ---------- *033362 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0426 *033370 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000001 ---------- *033376 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777777 FINAL C(AC)= 400000 000000 ---------- *033404 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 777777 FINAL C(AC)= 577777 777777 ---------- *033412 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 777777 FINAL C(AC)= 677777 777777 ---------- *033420 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 777777 FINAL C(AC)= 737777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0427 *033426 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 E= 000000 777777 FINAL C(AC)= 757777 777777 ---------- *033434 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 E= 000000 777777 FINAL C(AC)= 767777 777777 ---------- *033442 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 E= 000000 777777 FINAL C(AC)= 773777 777777 ---------- *033450 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 E= 000000 777777 FINAL C(AC)= 775777 777777 ---------- *033456 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 E= 000000 777777 FINAL C(AC)= 776777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0428 *033464 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 E= 000000 777777 FINAL C(AC)= 777377 777777 ---------- *033472 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 E= 000000 777777 FINAL C(AC)= 777577 777777 ---------- *033500 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 E= 000000 777777 FINAL C(AC)= 777677 777777 ---------- *033506 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 E= 000000 777777 FINAL C(AC)= 777737 777777 ---------- *033514 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 E= 000000 777777 FINAL C(AC)= 777757 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0429 *033522 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 E= 000000 777777 FINAL C(AC)= 777767 777777 ---------- *033530 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 E= 000000 777777 FINAL C(AC)= 777773 777777 ---------- *033536 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 E= 000000 777777 FINAL C(AC)= 777775 777777 ---------- *033544 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 E= 000000 777777 FINAL C(AC)= 777776 777777 ---------- *033552 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 777777 FINAL C(AC)= 777777 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0430 *033560 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 E= 000000 777777 FINAL C(AC)= 777777 577777 ---------- *033566 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 E= 000000 777777 FINAL C(AC)= 777777 677777 ---------- *033574 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 E= 000000 777777 FINAL C(AC)= 777777 737777 ---------- *033602 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 E= 000000 777777 FINAL C(AC)= 777777 757777 ---------- *033610 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 E= 000000 777777 FINAL C(AC)= 777777 767777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0431 *033616 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 E= 000000 777777 FINAL C(AC)= 777777 773777 ---------- *033624 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 E= 000000 777777 FINAL C(AC)= 777777 775777 ---------- *033632 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 E= 000000 777777 FINAL C(AC)= 777777 776777 ---------- *033640 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 E= 000000 777777 FINAL C(AC)= 777777 777377 ---------- *033646 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 E= 000000 777777 FINAL C(AC)= 777777 777577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0432 *033654 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 E= 000000 777777 FINAL C(AC)= 777777 777677 ---------- *033662 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 E= 000000 777777 FINAL C(AC)= 777777 777737 ---------- *033670 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 E= 000000 777777 FINAL C(AC)= 777777 777757 ---------- *033676 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 E= 000000 777777 FINAL C(AC)= 777777 777767 ---------- *033704 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 777777 FINAL C(AC)= 777777 777773 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0433 *033712 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777775 ---------- *033720 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777776 ---------- *033726 ROT 10,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 777777 FINAL C(AC)= 377777 777777 ---------- *033737 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 ---------- *033744 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0434 *033752 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 777776 FINAL C(AC)= 100000 000000 ---------- *033760 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 777776 FINAL C(AC)= 040000 000000 ---------- *033766 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 777776 FINAL C(AC)= 020000 000000 ---------- *033774 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 E= 000000 777776 FINAL C(AC)= 010000 000000 ---------- *034002 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 E= 000000 777776 FINAL C(AC)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0435 *034010 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 E= 000000 777776 FINAL C(AC)= 002000 000000 ---------- *034016 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 E= 000000 777776 FINAL C(AC)= 001000 000000 ---------- *034024 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 E= 000000 777776 FINAL C(AC)= 000400 000000 ---------- *034032 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 E= 000000 777776 FINAL C(AC)= 000200 000000 ---------- *034040 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 E= 000000 777776 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0436 *034046 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 E= 000000 777776 FINAL C(AC)= 000040 000000 ---------- *034054 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 E= 000000 777776 FINAL C(AC)= 000020 000000 ---------- *034062 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 E= 000000 777776 FINAL C(AC)= 000010 000000 ---------- *034070 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 E= 000000 777776 FINAL C(AC)= 000004 000000 ---------- *034076 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 E= 000000 777776 FINAL C(AC)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0437 *034104 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 E= 000000 777776 FINAL C(AC)= 000001 000000 ---------- *034112 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 E= 000000 777776 FINAL C(AC)= 000000 400000 ---------- *034120 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 E= 000000 777776 FINAL C(AC)= 000000 200000 ---------- *034126 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 E= 000000 777776 FINAL C(AC)= 000000 100000 ---------- *034134 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 E= 000000 777776 FINAL C(AC)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0438 *034142 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 E= 000000 777776 FINAL C(AC)= 000000 020000 ---------- *034150 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 E= 000000 777776 FINAL C(AC)= 000000 010000 ---------- *034156 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 E= 000000 777776 FINAL C(AC)= 000000 004000 ---------- *034164 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 E= 000000 777776 FINAL C(AC)= 000000 002000 ---------- *034172 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 E= 000000 777776 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0439 *034200 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 E= 000000 777776 FINAL C(AC)= 000000 000400 ---------- *034206 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 E= 000000 777776 FINAL C(AC)= 000000 000200 ---------- *034214 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 E= 000000 777776 FINAL C(AC)= 000000 000100 ---------- *034222 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 E= 000000 777776 FINAL C(AC)= 000000 000040 ---------- *034230 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 E= 000000 777776 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0440 *034236 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 E= 000000 777776 FINAL C(AC)= 000000 000010 ---------- *034244 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 E= 000000 777776 FINAL C(AC)= 000000 000004 ---------- *034252 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 ---------- *034260 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000001 ---------- *034266 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 777776 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0441 *034274 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 200000 000000 ---------- *034302 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 777776 FINAL C(AC)= 677777 777777 ---------- *034310 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 777776 FINAL C(AC)= 737777 777777 ---------- *034316 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 777776 FINAL C(AC)= 757777 777777 ---------- *034324 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 E= 000000 777776 FINAL C(AC)= 767777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0442 *034332 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 E= 000000 777776 FINAL C(AC)= 773777 777777 ---------- *034340 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 E= 000000 777776 FINAL C(AC)= 775777 777777 ---------- *034346 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 E= 000000 777776 FINAL C(AC)= 776777 777777 ---------- *034354 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 E= 000000 777776 FINAL C(AC)= 777377 777777 ---------- *034362 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 E= 000000 777776 FINAL C(AC)= 777577 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0443 *034370 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 E= 000000 777776 FINAL C(AC)= 777677 777777 ---------- *034376 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 E= 000000 777776 FINAL C(AC)= 777737 777777 ---------- *034404 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 E= 000000 777776 FINAL C(AC)= 777757 777777 ---------- *034412 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 E= 000000 777776 FINAL C(AC)= 777767 777777 ---------- *034420 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 E= 000000 777776 FINAL C(AC)= 777773 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0444 *034426 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 E= 000000 777776 FINAL C(AC)= 777775 777777 ---------- *034434 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 E= 000000 777776 FINAL C(AC)= 777776 777777 ---------- *034442 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 E= 000000 777776 FINAL C(AC)= 777777 377777 ---------- *034450 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 E= 000000 777776 FINAL C(AC)= 777777 577777 ---------- *034456 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 E= 000000 777776 FINAL C(AC)= 777777 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0445 *034464 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 E= 000000 777776 FINAL C(AC)= 777777 737777 ---------- *034472 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 E= 000000 777776 FINAL C(AC)= 777777 757777 ---------- *034500 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 E= 000000 777776 FINAL C(AC)= 777777 767777 ---------- *034506 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 E= 000000 777776 FINAL C(AC)= 777777 773777 ---------- *034514 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 E= 000000 777776 FINAL C(AC)= 777777 775777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0446 *034522 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 E= 000000 777776 FINAL C(AC)= 777777 776777 ---------- *034530 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 E= 000000 777776 FINAL C(AC)= 777777 777377 ---------- *034536 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 E= 000000 777776 FINAL C(AC)= 777777 777577 ---------- *034544 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 E= 000000 777776 FINAL C(AC)= 777777 777677 ---------- *034552 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 E= 000000 777776 FINAL C(AC)= 777777 777737 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0447 *034560 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 E= 000000 777776 FINAL C(AC)= 777777 777757 ---------- *034566 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 E= 000000 777776 FINAL C(AC)= 777777 777767 ---------- *034574 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 E= 000000 777776 FINAL C(AC)= 777777 777773 ---------- *034602 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777775 ---------- *034610 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0448 *034616 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777776 FINAL C(AC)= 377777 777777 ---------- *034624 ROT 7,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 777776 FINAL C(AC)= 577777 777777 ---------- *034636 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034644 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *034653 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0449 *034662 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *034671 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *034700 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *034707 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- *034716 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0450 *034725 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- *034734 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *034743 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- *034752 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- *034761 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0451 *034770 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- *034777 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *035006 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *035015 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- *035024 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0452 *035033 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- *035042 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *035051 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *035060 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- *035067 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0453 *035076 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- *035105 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *035114 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *035123 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- *035132 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0454 *035141 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- *035150 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *035157 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- *035166 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- *035175 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0455 *035204 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- *035213 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *035222 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *035231 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *035240 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0456 *035247 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *035256 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- *035265 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 ---------- *035274 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 ---------- *035303 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0457 *035312 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 ---------- *035321 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 ---------- *035330 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 ---------- *035337 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 ---------- *035346 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0458 *035355 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 ---------- *035364 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 ---------- *035373 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 ---------- *035402 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 ---------- *035411 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0459 *035420 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *035427 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 ---------- *035436 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 ---------- *035445 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 ---------- *035454 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0460 *035463 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 ---------- *035472 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 ---------- *035501 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 ---------- *035510 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 ---------- *035517 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0461 *035526 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 ---------- *035535 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 ---------- *035544 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 ---------- *035553 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 ---------- *035562 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0462 *035571 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 ---------- *035600 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 ---------- *035607 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *035616 ROTC 10,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *035630 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0463 *035636 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *035645 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *035654 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *035663 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- *035672 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0464 *035701 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- *035710 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- *035717 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *035726 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- *035735 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0465 *035744 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- *035753 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *035762 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *035771 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- *036000 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0466 *036007 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- *036016 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *036025 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *036034 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- *036043 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0467 *036052 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- *036061 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *036070 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *036077 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- *036106 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0468 *036115 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- *036124 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- *036133 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *036142 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- *036151 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0469 *036160 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- *036167 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *036176 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *036205 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *036214 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0470 *036223 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *036232 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *036241 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 ---------- *036250 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 ---------- *036257 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0471 *036266 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 ---------- *036275 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 ---------- *036304 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 ---------- *036313 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 ---------- *036322 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0472 *036331 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 ---------- *036340 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 ---------- *036347 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 ---------- *036356 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 ---------- *036365 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0473 *036374 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 ---------- *036403 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 ---------- *036412 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 ---------- *036421 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *036430 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0474 *036437 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 ---------- *036446 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 ---------- *036455 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 ---------- *036464 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 ---------- *036473 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0475 *036502 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 ---------- *036511 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 ---------- *036520 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 ---------- *036527 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 ---------- *036536 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0476 *036545 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 ---------- *036554 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 ---------- *036563 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- *036572 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *036601 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0477 *036610 ROTC 7,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *036622 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036630 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *036637 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *036646 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0478 *036655 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- *036664 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- *036673 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- *036702 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *036711 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0479 *036720 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- *036727 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- *036736 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *036745 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *036754 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0480 *036763 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- *036772 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- *037001 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *037010 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *037017 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0481 *037027 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- *037036 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- *037045 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *037054 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *037063 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0482 *037072 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- *037101 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- *037110 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- *037117 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *037126 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0483 *037135 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- *037144 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- *037153 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *037162 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *037171 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0484 *037200 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *037207 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *037216 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 ---------- *037225 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 ---------- *037234 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0485 *037243 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 ---------- *037252 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 ---------- *037261 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 ---------- *037270 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 ---------- *037277 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 103 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0486 *037306 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 ---------- *037315 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 ---------- *037324 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 ---------- *037333 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 ---------- *037342 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 104 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0487 *037351 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 ---------- *037360 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 ---------- *037367 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 ---------- *037376 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *037406 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 105 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0488 *037415 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 ---------- *037424 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 ---------- *037433 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 ---------- *037442 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 ---------- *037451 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 106 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0489 *037460 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 ---------- *037467 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 ---------- *037476 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 ---------- *037505 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 ---------- *037514 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 107 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0490 *037523 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 ---------- *037532 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 ---------- *037541 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- *037550 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *037557 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 108 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0491 *037566 ROTC 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *037574 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 ---------- *037604 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 ---------- *037614 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *037624 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 109 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0492 *037634 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 ---------- *037644 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 000001 FINAL C(AC)= 577777 777777 ---------- *037654 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- *037664 ROT 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 ---------- *037674 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777777 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 110 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0493 *037704 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 777777 FINAL C(AC)= 377777 777777 ---------- *037714 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 777777 FINAL C(AC)= 200000 000000 ---------- *037724 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 777777 FINAL C(AC)= 577777 777777 ---------- *037734 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000002 ---------- *037744 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 111 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0494 *037754 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000001 ---------- *037764 ROT 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777776 ---------- *037774 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 777776 FINAL C(AC)= 400000 000000 ---------- *040004 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777776 FINAL C(AC)= 377777 777777 ---------- *040014 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 112 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0495 *040024 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 777776 FINAL C(AC)= 577777 777777 ---------- *040034 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 ---------- *040044 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777775 ---------- *040054 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000001 ---------- *040064 ROT 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 113 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0496 *040074 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 ---------- *040104 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *040114 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777774 ---------- *040124 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 ---------- *040134 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 000001 FINAL C(AC)= 577777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 114 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0497 *040144 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- *040154 LSH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 E= 000000 000001 FINAL C(AC)= 377777 777776 ---------- *040164 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777777 FINAL C(AC)= 377777 777777 ---------- *040174 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 E= 000000 777777 FINAL C(AC)= 200000 000000 ---------- *040204 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 115 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0498 *040214 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000002 ---------- *040224 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777777 FINAL C(AC)= 377777 777775 ---------- *040234 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000001 ---------- *040244 LSH 6,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 E= 000000 777777 FINAL C(AC)= 377777 777776 ---------- *040254 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 116 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0499 *040264 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 ---------- *040274 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 ---------- *040304 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 E= 000000 777776 FINAL C(AC)= 177777 777775 ---------- *040314 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000001 ---------- *040324 LSH 6,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 E= 000000 777776 FINAL C(AC)= 177777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 117 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0500 *040334 ASH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 ---------- *040344 ASH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *040354 ASH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777774 ---------- *040364 ASH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 ---------- *040374 ASH 6,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 E= 000000 000001 FINAL C(AC)= 577777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 118 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0501 *040404 ASH 6,000001 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- *040414 ASH 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 E= 000000 000001 FINAL C(AC)= 377777 777776 ---------- *040424 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 E= 000000 777777 FINAL C(AC)= 600000 000000 ---------- *040434 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 ---------- *040444 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 E= 000000 777777 FINAL C(AC)= 600000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 119 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0502 *040454 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 ---------- *040464 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000002 ---------- *040474 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777775 ---------- *040504 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000001 ---------- *040514 ASH 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 120 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0503 *040524 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 E= 000000 777776 FINAL C(AC)= 700000 000000 ---------- *040534 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 E= 000000 777776 FINAL C(AC)= 077777 777777 ---------- *040544 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 E= 000000 777776 FINAL C(AC)= 700000 000000 ---------- *040554 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 E= 000000 777776 FINAL C(AC)= 077777 777777 ---------- *040564 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 121 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0504 *040574 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777775 ---------- *040604 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000001 ---------- *040614 ASH 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777776 ---------- *040624 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *040634 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 122 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0505 *040644 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *040654 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *040664 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *040674 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *040704 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 123 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0506 *040714 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *040724 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *040734 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 ---------- *040744 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *040754 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 124 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0507 *040764 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *040774 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 ---------- *041004 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *041014 ROTC 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 ---------- *041024 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 777777 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 125 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0508 *041034 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 ---------- *041044 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *041054 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 ---------- *041064 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *041074 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 126 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0509 *041104 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *041114 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 ---------- *041124 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *041134 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *041144 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 127 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0510 *041154 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *041164 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *041174 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *041204 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *041214 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 128 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0511 *041224 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777776 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *041234 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777776 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 ---------- *041244 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 777776 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *041254 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 777776 FINAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 ---------- *041264 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 129 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0512 *041274 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 ---------- *041304 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *041314 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 ---------- *041324 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *041334 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 130 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0513 *041344 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *041354 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *041364 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *041374 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *041404 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 131 DSKAI 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0514 *041414 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAJ.txt,v0000444000175100010010000255304712051211520014373 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.15.16.06.05; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAJ IDENTIFICATION -------------- PRODUCT CODE: AH-E315A-DD DIAGNOSTIC CODE: DSKAJ PRODUCT NAME: DSKAJA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 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-DSKAJ.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-DSKAJ.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE TENTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE LOGICAL SHIFT, ROTATE, ARITHMETIC SHIFT (SINGLE & COMBINED) FUNCTIONS. 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-DSKAJ.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-DSKAJ.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-DSKAJ.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-DSKAJ.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-DSKAJ.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 'DSKAJ.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-DSKAJ.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 DSKAJ SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAJ TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 DSKAJT MAC 29-Mar-78 09:39 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;DSKAJ 2 3 000000 MCNVER==0 4 000001 DECVER==1 5 6 7 XLIST 8 LIST 9 LALL 10 11 NAME \MCNVER,\DECVER^ 12 13 TITLE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 14 ^ 15 16 17 ;LOGICAL SHIFT, ROTATE, ARITMETIC SHIFT (SINGLE & COMBINED) 18 19 ;COPYRIGHT 1978 20 ;DIGITAL EQUIPMENT CORPORATION 21 ;MARLBORO, MASS. 01752 22 23 ;JOHN R. KIRCHOFF 24 25 000137 LOC 137 26 000137 000000 000001 MCNVER,,DECVER 27 28 NOSYM DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2 DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0013 29 SUBTTL DIAGNOSTIC PARAMETERS 30 31 ;OPERATOR DEFINITIONS 32 33 001000 000000 OPDEF ER1 [1B8] 34 002000 000000 OPDEF ER2 [2B8] 35 003000 000000 OPDEF ER3 [3B8] 36 004000 000000 OPDEF ER4 [4B8] 37 005000 000000 OPDEF ER5 [5B8] 38 006000 000000 OPDEF ER6 [6B8] 39 007000 000000 OPDEF ER7 [7B8] 40 010000 000000 OPDEF ER10 [10B8] 41 011000 000000 OPDEF ER11 [11B8] 42 012000 000000 OPDEF ER12 [12B8] 43 013000 000000 OPDEF ER13 [13B8] 44 45 036403 LUUO1=ERRMES 46 036403 LUUO2=ERRMES 47 036403 LUUO3=ERRMES 48 036403 LUUO4=ERRMES 49 036403 LUUO5=ERRMES 50 036403 LUUO6=ERRMES 51 036403 LUUO7=ERRMES 52 036403 LUUO10=ERRMES 53 036403 LUUO11=ERRMES 54 036403 LUUO12=ERRMES 55 036403 LUUO13=ERRMES DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3 DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0014 56 ;SUBROUTINE ASSEMBLY DEFINITIONS 57 58 000040 DEBUG=40 59 000001 EXCASB=1 60 000001 USRASB=1 61 000001 PGMEND=1 62 000001 ERDIAG=1 63 64 ;SPECIAL FEATURE DEFINITIONS 65 66 030000 SADR1=BEGIN 67 030000 SADR2=BEGIN 68 030000 SADR3=BEGIN 69 030007 SADR4=SRTDDT 70 254000 030061 SADR5=JRST $BEND2 71 254000 030000 SADR6=JRST BEGIN 72 254000 030000 SADR7=JRST BEGIN 73 254000 030000 SADR8=JRST BEGIN 74 254000 030000 SADR9=JRST BEGIN 75 254000 030000 SADR10=JRST BEGIN 76 254000 030000 SADR11=JRST BEGIN 77 78 ;SPECIAL FEATURE PARAMETERS 79 80 000000 PAREA0=0 81 000000 PAREA1=0 82 000000 PAREA2=0 83 446353 415200 PAREA3=SIXBIT/DSKAJ/ 84 645560 000000 PAREA4=SIXBIT/TMP/ 85 000000 PAREA5=0 86 000000 PAREA6=0 87 000001 ITERAT==1 88 89 ;MACROS 90 91 DEFINE SAVEAC (A,B)< 92 MOVEI AC+2,. ;SAVE TEST PC 93 MOVEM AC+2,TESTPC 94 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 95 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> 96 97 DEFINE SETACS (WW,XX)< 98 MOVEI AC-1,WW ;SETUP AC-1 99 HRLI AC-1,WW ;FOR COMPARISION 100 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 101 MOVEI AC,XX ;SETUP AC RIGHT 102 HRLI AC,XX ;SETUP AC LEFT 103 MOVEM AC,&17 ;SETUP AC2> DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4 DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0015 104 ;USER DEFINED MACROS 105 106 DEFINE SR1 (T,D1A,D1B,R1A,R1B,OP,S)< 107 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD D1A,D1B] S BIT 108 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD R1A,R1B] 109 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 110 111 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC 112 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 113 OP AC,S ;*SHIFT/ROTATE S BIT POSITIONS 114 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT? 115 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT 116 CAME AC+1,[XWD 741703,607417] 117 ER4 AC+1,T'01 ;C(AC+1) WAS MODIFIED INCORRECTLY 118 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH> 119 120 121 DEFINE SR2 (T,D1A,D1B,D2A,D2B,R1A,R1B,R2A,R2B,OP,S)< 122 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 123 ;DATA SPECIFIED IN [XWD D1A,D1B] AND [XWD D2A,D2B] S BIT POSITIONS AND 124 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD R1A,R1B] AND 125 ;[XWD R2A,R2B] 126 127 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC 128 MOVE AC+1,[XWD D2A,D2B] ;INITIALIZE AC+1 129 OP AC,S ;*SHIFT/ROTATE COMBINED S PLACES 130 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT? 131 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT 132 CAME AC+1,[XWD R2A,R2B] ;IS RESULT IN AC+1 CORRECT? 133 ER4 AC+1,T'01 ;RESULT IN AC+1 IS INCORRECT 134 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH> DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0016 135 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 136 137 DEFINE S,<;*********************************************************************> 138 139 S^;*********************************************************************^ 140 ;*DATA SWITCHES 141 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 142 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 143 S^;*********************************************************************^ 144 145 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 146 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 147 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 148 149 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 150 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 151 010000 DING== 010000 ;RING BELL ON ERROR 152 153 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 154 002000 ERSTOP==002000 ;HALT ON TEST ERROR 155 001000 PALERS==001000 ;PRINT ALL ERRORS 156 157 000400 RELIAB==000400 ;RELIABILITY MODE 158 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 159 000100 INHPAG==000100 ;INHIBIT PAGING 160 161 000040 MODDVC==000040 ;MODIFY DEVICE CODE 162 000020 INHCSH==000020 ;INHIBIT CACHE 163 000010 OPRSEL==000010 ;OPERATOR SELECTION 164 165 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 166 167 ;SWITCH 16 RESERVED 168 169 ;SWITCH 17 RESERVED !!! DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0017 170 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 171 172 S^;*********************************************************************^ 173 ;*SPECIAL SUBPROGRAM LINKAGES 174 S^;*********************************************************************^ 175 176 027772 FSELNK= 27772 ;FILE SELECT LINK 177 027773 FRDLNK= 27773 ;FILE READ LINK 178 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 179 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 180 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 181 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 182 183 S^;*********************************************************************^ 184 ;*SPECIAL SUBROUTINE FATAL HALTS 185 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 186 S^;*********************************************************************^ 187 188 ;ADDRESS TAG REASON 189 ;--------------------- 190 191 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 192 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 193 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 194 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 195 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 196 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 197 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 198 ; 1017 EOPERR ;END OF PROGRAM ERROR 199 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 200 201 S^;*********************************************************************^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018 202 S^;*********************************************************************^ 203 ;OPERATOR DEFINITIONS (NON-UUO'S) 204 S^;*********************************************************************^ 205 206 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 207 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 208 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 209 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 210 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 211 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 212 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 213 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 214 215 S^;*********************************************************************^ 216 ;*SUBROUTINE INITIALIZATION CALL 217 S^;*********************************************************************^ 218 219 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 220 221 S^;*********************************************************************^ 222 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 223 S^;*********************************************************************^ 224 225 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 226 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 227 228 S^;*********************************************************************^ 229 ;*TERMINAL INPUT UUO'S 230 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 231 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 232 S^;*********************************************************************^ 233 234 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 235 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 236 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 237 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 238 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 239 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 240 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 241 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 242 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 243 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 244 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019 245 ;*TERMINAL OUTPUT UUO'S. 246 247 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 248 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 249 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 250 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 251 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 252 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 253 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 254 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 255 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 256 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 257 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 258 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 259 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 260 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 261 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 262 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 263 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 264 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 265 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 266 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 267 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 268 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 269 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 270 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 271 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 272 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 273 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 274 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 275 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 276 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 277 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 278 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 279 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 280 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 281 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 282 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 283 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 284 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 285 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 286 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 287 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 288 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020 289 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 290 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 291 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 292 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 293 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 294 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 295 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 296 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 297 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 298 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 299 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 300 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 301 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 302 303 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 304 305 DEFINE PMSG (ARG),< 306 PSIXM [SIXBIT\ARG'_\]> 307 308 DEFINE PMSGF (ARG),< 309 PSIXMF [SIXBIT\ARG'_\]> 310 311 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 312 ;* CONSERVES CORE OVER ASCIZ 313 314 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 315 316 ;*CONSOLE SWITCH INPUT UUO. 317 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 318 ;* USER MODE. 319 320 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 321 322 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 323 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 324 325 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 326 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 327 328 ;*KS-10 CACHE OPERATION UUO'S 329 330 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 331 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 332 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021 333 ;*END OF PASS/PROGRAM UUOS 334 335 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 336 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 337 338 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 339 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 340 341 ;*MEMORY MANAGEMENT UUO'S 342 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 343 ;*ADDRESS CONVERSION, ETC... 344 345 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 346 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 347 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 348 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 349 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 350 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 351 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 352 353 ;*DEVICE CODE MODIFICATION UUO 354 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 355 ;*IOT'S TO A DIFFERENT DEVICE CODE. 356 357 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 358 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 359 360 030000 IFNDEF MODDVL, 361 030000 IFNDEF MODDVU, 362 363 ;*"DIAMON" FILE SELECTION AND READ UUOS 364 365 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 366 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 367 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 368 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 369 370 XLIST 371 IFNDEF EROLD, 396 397 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 398 399 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 400 SALL 401 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 402 CORECT,,ACTUAL 403 [SIXBIT\D'_\],,ERR] 404 XALL> 405 406 >;END OF EROLD CONDITIONAL 407 408 XLIST 409 LIST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 410 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 411 412 030000 LOC 30000 413 414 S^;*********************************************************************^ 415 ;*PROGRAM STARTING ADDRESSES 416 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 417 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 418 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 419 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 420 S^;*********************************************************************^ 421 422 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 423 030001 254 00 0 00 030620 $START: JRST START ;MODE CHECK STARTING ADDRESS 424 425 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 426 427 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 428 429 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 430 431 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 432 433 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 434 435 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 436 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 437 438 030010 254 00 0 00 030623 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 439 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 440 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 441 442 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 443 030014 254000 030000 START2: SADR8 ; " 444 030015 254000 030000 START3: SADR9 ; " 445 030016 254000 030000 START4: SADR10 ; " 446 030017 254000 030000 START5: SADR11 ; " DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 447 S^;*********************************************************************^ 448 ;*PROGRAM FIXED PARAMETER AREA 449 S^;*********************************************************************^ 450 451 030020 446353 415200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 452 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 453 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 454 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 455 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 456 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 457 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 458 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 459 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 460 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 461 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 462 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 463 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 464 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 465 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 466 467 S^;*********************************************************************^ 468 ;*PROGRAM VARIABLE PARAMETER AREA 469 S^;*********************************************************************^ 470 471 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 472 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 473 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 474 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 475 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 476 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 477 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 478 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 479 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 480 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 481 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 482 030052 000000 000000 ERRPC: 0 ;ERROR PC 483 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 484 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 485 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 486 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025 487 S^;*********************************************************************^ 488 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 489 S^;*********************************************************************^ 490 491 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 492 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 493 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 494 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 495 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 496 030064 CPOPJ1: ;SKIP RETURN 497 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 498 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 499 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 500 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 501 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 502 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 503 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 504 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 505 030073 255 00 0 00 000000 $USRHL: JFCL ; " 506 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 507 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 508 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 509 030077 255 00 0 00 000000 RESRT2: JFCL ; " 510 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 511 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 512 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 513 514 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 515 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 516 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 517 518 S^;*********************************************************************^ 519 ;*PROCESSOR CONTROL STORAGE 520 S^;*********************************************************************^ 521 522 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 523 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 524 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 525 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 526 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 527 528 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 529 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 530 531 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 532 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 533 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 534 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 535 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 536 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 537 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026 538 S^;*********************************************************************^ 539 ;*UUO DISPATCH TABLE 540 S^;*********************************************************************^ 541 XLIST 542 LIST 543 030124 036403 030070 UUODIS: LUUO1,,$UUOER 544 030125 036403 036403 LUUO3,,LUUO2 545 030126 036403 036403 LUUO5,,LUUO4 546 030127 036403 036403 LUUO7,,LUUO6 547 030130 036403 036403 LUUO11,,LUUO10 548 030131 036403 036403 LUUO13,,LUUO12 549 030132 030070 030070 LUUO15,,LUUO14 550 030133 030070 030070 LUUO17,,LUUO16 551 030134 030070 030070 LUUO21,,LUUO20 552 030135 030070 030070 LUUO23,,LUUO22 553 030136 030070 030070 LUUO25,,LUUO24 554 030137 030070 030070 LUUO27,,LUUO26 555 030140 030070 030070 LUUO31,,LUUO30 556 030141 030070 030070 LUUO33,,LUUO32 557 558 S^;*********************************************************************^ 559 ;*MEMORY MANAGMENT STORAGE 560 S^;*********************************************************************^ 561 562 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 563 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 564 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 565 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 566 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 567 568 S^;*********************************************************************^ 569 ;*PRINT CONTROL STORAGE 570 S^;*********************************************************************^ 571 572 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 573 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 574 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 575 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 576 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 577 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 578 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 579 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 580 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 581 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 582 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 583 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 584 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 585 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 586 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 587 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 588 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 589 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 590 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027 591 S^;*********************************************************************^ 592 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 593 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 594 ;* MOVEI NAME 595 ;* PNTA ;OR PNTAF 596 S^;*********************************************************************^ 597 598 030242 CRLF: ASCII/ 599 030242 015 012 000 000 000 / 600 030243 CRLF2: ASCII/ 601 602 030243 015 012 015 012 000 / 603 030244 054 000 000 000 000 COMMA: ASCII/,/ 604 030245 056 000 000 000 000 PERIOD: ASCII/./ 605 030246 040 000 000 000 000 SPACE: ASCII/ / 606 030247 011 000 000 000 000 TAB: ASCII/ / 607 030250 MINUS: 608 030250 055 000 000 000 000 HYPEN: ASCII/-/ 609 030251 053 000 000 000 000 PLUS: ASCII/+/ 610 030252 052 000 000 000 000 AST: ASCII/*/ 611 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 612 030254 050 000 000 000 000 LFP: ASCII/(/ 613 030255 051 000 000 000 000 RTP: ASCII/)/ 614 030256 007 0000000000 BELL: BYTE (7) 007 615 030257 077 000 000 000 000 QUEST: ASCII/?/ 616 030260 057 000 000 000 000 SLASH: ASCII!/! 617 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 618 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 619 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 620 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 621 622 S^;*********************************************************************^ 623 ;*USER MODE OUTPUT FILE INFORMATION 624 S^;*********************************************************************^ 625 626 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 627 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 628 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 629 030272 BLOCK 2 630 631 S^;*********************************************************************^ 632 ;*DISK UPDATE MODE FILE INFORMATION 633 S^;*********************************************************************^ 634 635 030274 $IBUF: BLOCK 3 636 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 637 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 638 030301 BLOCK 2 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028 639 S^;*********************************************************************^ 640 ;*PUSHDOWN LIST CONTROL INFORMATION 641 S^;*********************************************************************^ 642 643 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 644 030304 PLISTS: BLOCK 200 645 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 646 647 S^;*********************************************************************^ 648 ;*POWER LINE CLOCK FREQUENCY FLAG 649 S^;*********************************************************************^ 650 651 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 652 653 S^;*********************************************************************^ 654 ;*KL10 CACHE CONTROL FLAGS 655 S^;*********************************************************************^ 656 657 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 658 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 659 660 S^;*********************************************************************^ 661 ;*NUMBER INPUT DIGIT FLAG 662 S^;*********************************************************************^ 663 664 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 665 666 S^;*********************************************************************^ 667 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 668 S^;*********************************************************************^ 669 670 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 671 672 S^;*********************************************************************^ 673 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 674 S^;*********************************************************************^ 675 676 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 677 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 678 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 679 680 S^;*********************************************************************^ 681 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 682 S^;*********************************************************************^ 683 684 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029 685 S^;*********************************************************************^ 686 ;*USER MODE MONITOR TYPE FLAG 687 S^;*********************************************************************^ 688 689 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 690 691 S^;*********************************************************************^ 692 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 693 S^;*********************************************************************^ 694 695 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 696 697 S^;*********************************************************************^ 698 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 699 S^;*********************************************************************^ 700 701 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 702 703 S^;*********************************************************************^ 704 ;*"SWITCH" CALL USAGE CONTROL 705 S^;*********************************************************************^ 706 707 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 708 709 S^;*********************************************************************^ 710 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 711 S^;*********************************************************************^ 712 713 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 714 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 715 716 S^;*********************************************************************^ 717 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 718 S^;*********************************************************************^ 719 720 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 721 722 S^;*********************************************************************^ 723 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 724 S^;*********************************************************************^ 725 726 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 727 728 S^;*********************************************************************^ 729 ;*SPECIAL FUTURE EXPANSION ROOM 730 S^;*********************************************************************^ 731 732 S^;*********************************************************************^ 733 ;*END OF FIXED STORAGE 734 S^;*********************************************************************^ 735 736 030577 LOC 30577 737 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 DSKAJ1 MAC 29-Mar-78 09:40 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030 738 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE 739 030601 000000 030600 EXIT 740 741 030602 PGMNAM: ASCIZ % 742 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAJ] 743 030603 123 131 123 124 105 744 030604 115 040 062 060 062 745 030605 060 040 102 101 123 746 030606 111 103 040 111 116 747 030607 123 124 122 125 103 748 030610 124 111 117 116 040 749 030611 104 111 101 107 116 750 030612 117 123 124 111 103 751 030613 040 133 104 123 113 752 030614 101 112 135 015 012 SHIFT/ROTATE 753 030615 123 110 111 106 124 754 030616 057 122 117 124 101 755 030617 124 105 015 012 000 % 756 757 ;INITIALIZE SUBROUTINES 758 759 030620 265 00 0 00 030011 START: PGMINT 760 030621 200 00 0 00 036571 MOVE [ASCIZ/AJ/] 761 030622 202 00 0 00 036512 MOVEM TLET 762 763 030623 254 00 0 00 030624 STARTA: JRST PART2 ;GO PERFORM DIAGNOSTIC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0031 764 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) 765 766 000001 AC=1 767 030624 PART2: SAVEAC (1,1)^ 768 030624 201 03 0 00 030624 MOVEI AC+2,. ;SAVE TEST PC 769 030625 202 03 0 00 030051 MOVEM AC+2,TESTPC 770 030626 201 03 0 00 000003 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 771 030627 202 03 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 772 773 ;END CONNECTIONS-LSHC 774 ;TEST AR-MQ END BIT INPUT GATES 775 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 776 ; MQ0,1,34,35 SHLT INP GATES 777 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 778 ; MQ0,1,34,35 SHRT INPUT GATES 779 ;AC,AC+1 ARE LOGICALLY SHIFTED LEFT/RIGHT AND 780 ;END BITS ARE TESTED 781 ;TEST ASSUMES BOTH REGISTERS ARE 782 ;CAPABLE OF SHIFTING 1,-1 AND -2 BIT POSITIONS CORRECTLY 783 ;INPUT GATES PREVIOUSLY TESTED ARE AGAIN 784 ;TESTED HERE 785 ;AN ERROR IS MOST LIKELY DUE TO FAILURE 786 ;OF LSHC TO BRING UP ENABLING LEVEL 787 788 ;SHIFT CONNECTIONS TEST 789 ;TEST MQ35 SHLT INP-ZERO'S - LSHC AC,1 790 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 791 SR2 (243,-1,-1,-1,-1,-1,-1,-1,-2,LSHC,1)^ 792 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 793 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 794 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 795 ;[XWD -1,-2] 796 797 030630 200 01 0 00 036572 E24300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 798 030631 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 799 030632 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 800 030633 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 801 030634 003 01 0 00 024301 ER3 AC,24301 ;RESULT IN AC IS INCORRECT 802 030635 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 803 030636 004 02 0 00 024301 ER4 AC+1,24301 ;RESULT IN AC+1 IS INCORRECT 804 030637 321 03 0 00 030630 JUMPL AC+2,E24300 ;LOOP ON ERROR SWITCH^ 805 806 ;SHIFT CONNECTIONS TEST 807 ;TEST MQ34 SHLT INP-ONE'S - LSHC AC,1 808 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 809 SR2 (244,0,0,0,1,0,0,0,2,LSHC,1)^ 810 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 811 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND 812 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 813 ;[XWD 0,2] 814 815 030640 200 01 0 00 036574 E24400: MOVE AC,[XWD 0,0] ;INITIALIZE AC 816 030641 200 02 0 00 036575 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1 817 030642 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 818 030643 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0032 819 030644 003 01 0 00 024401 ER3 AC,24401 ;RESULT IN AC IS INCORRECT 820 030645 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 821 030646 004 02 0 00 024401 ER4 AC+1,24401 ;RESULT IN AC+1 IS INCORRECT 822 030647 321 03 0 00 030640 JUMPL AC+2,E24400 ;LOOP ON ERROR SWITCH^ 823 824 ;SHIFT CONNECTIONS TEST 825 ;TEST MQ34 SHLT INP-ZERO'S - LSHC AC,1 826 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 827 SR2 (245,-1,-1,-1,-2,-1,-1,-1,-4,LSHC,1)^ 828 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 829 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND 830 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 831 ;[XWD -1,-4] 832 833 030650 200 01 0 00 036572 E24500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 834 030651 200 02 0 00 036573 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1 835 030652 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 836 030653 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 837 030654 003 01 0 00 024501 ER3 AC,24501 ;RESULT IN AC IS INCORRECT 838 030655 312 02 0 00 036577 CAME AC+1,[XWD -1,-4] ;IS RESULT IN AC+1 CORRECT? 839 030656 004 02 0 00 024501 ER4 AC+1,24501 ;RESULT IN AC+1 IS INCORRECT 840 030657 321 03 0 00 030650 JUMPL AC+2,E24500 ;LOOP ON ERROR SWITCH^ 841 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0033 842 ;SHIFT CONNECTIONS TEST 843 ;TEST MQ1 SHLT INP-ONE'S - LSHC AC,1 844 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 845 SR2 (246,0,0,100000,0,0,0,200000,0,LSHC,1)^ 846 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 847 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND 848 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 849 ;[XWD 200000,0] 850 851 030660 200 01 0 00 036574 E24600: MOVE AC,[XWD 0,0] ;INITIALIZE AC 852 030661 200 02 0 00 036600 MOVE AC+1,[XWD 100000,0] ;INITIALIZE AC+1 853 030662 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 854 030663 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 855 030664 003 01 0 00 024601 ER3 AC,24601 ;RESULT IN AC IS INCORRECT 856 030665 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 857 030666 004 02 0 00 024601 ER4 AC+1,24601 ;RESULT IN AC+1 IS INCORRECT 858 030667 321 03 0 00 030660 JUMPL AC+2,E24600 ;LOOP ON ERROR SWITCH^ 859 860 ;SHIFT CONNECTIONS TEST 861 ;TEST MQ1 SHLT INP-ZERO'S - LSHC AC,1 862 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 863 SR2 (247,-1,-1,677777,-1,-1,-1,577777,-2,LSHC,1)^ 864 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 865 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND 866 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 867 ;[XWD 577777,-2] 868 869 030670 200 01 0 00 036572 E24700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 870 030671 200 02 0 00 036602 MOVE AC+1,[XWD 677777,-1] ;INITIALIZE AC+1 871 030672 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 872 030673 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 873 030674 003 01 0 00 024701 ER3 AC,24701 ;RESULT IN AC IS INCORRECT 874 030675 312 02 0 00 036603 CAME AC+1,[XWD 577777,-2] ;IS RESULT IN AC+1 CORRECT? 875 030676 004 02 0 00 024701 ER4 AC+1,24701 ;RESULT IN AC+1 IS INCORRECT 876 030677 321 03 0 00 030670 JUMPL AC+2,E24700 ;LOOP ON ERROR SWITCH^ 877 878 ;SHIFT CONNECTIONS TEST 879 ;TEST MQ0 SHLT INP-ONE'S - LSHC AC,1 880 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 881 SR2 (250,0,0,200000,0,0,0,400000,0,LSHC,1)^ 882 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 883 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND 884 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 885 ;[XWD 400000,0] 886 887 030700 200 01 0 00 036574 E25000: MOVE AC,[XWD 0,0] ;INITIALIZE AC 888 030701 200 02 0 00 036601 MOVE AC+1,[XWD 200000,0] ;INITIALIZE AC+1 889 030702 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 890 030703 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 891 030704 003 01 0 00 025001 ER3 AC,25001 ;RESULT IN AC IS INCORRECT 892 030705 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 893 030706 004 02 0 00 025001 ER4 AC+1,25001 ;RESULT IN AC+1 IS INCORRECT 894 030707 321 03 0 00 030700 JUMPL AC+2,E25000 ;LOOP ON ERROR SWITCH^ 895 896 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0034 897 ;TEST MQ0 SHLT INP-ZERO'S - LSHC AC,1 898 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 899 SR2 (251,-1,-1,577777,-1,-1,-1,377777,-2,LSHC,1)^ 900 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 901 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND 902 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 903 ;[XWD 377777,-2] 904 905 030710 200 01 0 00 036572 E25100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 906 030711 200 02 0 00 036605 MOVE AC+1,[XWD 577777,-1] ;INITIALIZE AC+1 907 030712 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 908 030713 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 909 030714 003 01 0 00 025101 ER3 AC,25101 ;RESULT IN AC IS INCORRECT 910 030715 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT? 911 030716 004 02 0 00 025101 ER4 AC+1,25101 ;RESULT IN AC+1 IS INCORRECT 912 030717 321 03 0 00 030710 JUMPL AC+2,E25100 ;LOOP ON ERROR SWITCH^ 913 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0035 914 ;SHIFT CONNECTIONS TEST 915 ;TEST AR35 SHLT INP-ONE'S - LSHC AC,1 916 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 917 SR2 (252,0,0,400000,0,0,1,0,0,LSHC,1)^ 918 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 919 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] 1 BIT POSITIONS AND 920 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 921 ;[XWD 0,0] 922 923 030720 200 01 0 00 036574 E25200: MOVE AC,[XWD 0,0] ;INITIALIZE AC 924 030721 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 925 030722 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 926 030723 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 927 030724 003 01 0 00 025201 ER3 AC,25201 ;RESULT IN AC IS INCORRECT 928 030725 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 929 030726 004 02 0 00 025201 ER4 AC+1,25201 ;RESULT IN AC+1 IS INCORRECT 930 030727 321 03 0 00 030720 JUMPL AC+2,E25200 ;LOOP ON ERROR SWITCH^ 931 932 ;SHIFT CONNECTIONS TEST 933 ;TEST AR35 SHLT INP-ZERO'S - LSHC AC,1 934 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 935 SR2 (253,-1,-1,377777,-1,-1,-2,-1,-2,LSHC,1)^ 936 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 937 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND 938 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 939 ;[XWD -1,-2] 940 941 030730 200 01 0 00 036572 E25300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 942 030731 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 943 030732 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 944 030733 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 945 030734 003 01 0 00 025301 ER3 AC,25301 ;RESULT IN AC IS INCORRECT 946 030735 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 947 030736 004 02 0 00 025301 ER4 AC+1,25301 ;RESULT IN AC+1 IS INCORRECT 948 030737 321 03 0 00 030730 JUMPL AC+2,E25300 ;LOOP ON ERROR SWITCH^ 949 950 ;SHIFT CONNECTIONS TEST 951 ;TEST AR34 SHLT INP-ONE'S - LSHC AC,1 952 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 953 SR2 (254,0,1,0,0,0,2,0,0,LSHC,1)^ 954 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 955 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND 956 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 957 ;[XWD 0,0] 958 959 030740 200 01 0 00 036575 E25400: MOVE AC,[XWD 0,1] ;INITIALIZE AC 960 030741 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 961 030742 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 962 030743 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 963 030744 003 01 0 00 025401 ER3 AC,25401 ;RESULT IN AC IS INCORRECT 964 030745 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 965 030746 004 02 0 00 025401 ER4 AC+1,25401 ;RESULT IN AC+1 IS INCORRECT 966 030747 321 03 0 00 030740 JUMPL AC+2,E25400 ;LOOP ON ERROR SWITCH^ 967 968 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0036 969 ;TEST AR34 SHLT INP-ZERO'S - LSHC AC,1 970 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 971 SR2 (255,-1,-2,-1,-1,-1,-3,-1,-2,LSHC,1)^ 972 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 973 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND 974 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 975 ;[XWD -1,-2] 976 977 030750 200 01 0 00 036573 E25500: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 978 030751 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 979 030752 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 980 030753 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 981 030754 003 01 0 00 025501 ER3 AC,25501 ;RESULT IN AC IS INCORRECT 982 030755 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 983 030756 004 02 0 00 025501 ER4 AC+1,25501 ;RESULT IN AC+1 IS INCORRECT 984 030757 321 03 0 00 030750 JUMPL AC+2,E25500 ;LOOP ON ERROR SWITCH^ 985 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0037 986 ;SHIFT CONNECTIONS TEST 987 ;TEST AR1 SHLT INP-ONE'S - LSHC AC,1 988 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 989 SR2 (256,100000,0,0,0,200000,0,0,0,LSHC,1)^ 990 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 991 ;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 992 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 993 ;[XWD 0,0] 994 995 030760 200 01 0 00 036600 E25600: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 996 030761 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 997 030762 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 998 030763 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 999 030764 003 01 0 00 025601 ER3 AC,25601 ;RESULT IN AC IS INCORRECT 1000 030765 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1001 030766 004 02 0 00 025601 ER4 AC+1,25601 ;RESULT IN AC+1 IS INCORRECT 1002 030767 321 03 0 00 030760 JUMPL AC+2,E25600 ;LOOP ON ERROR SWITCH^ 1003 1004 ;SHIFT CONNECTIONS TEST 1005 ;TEST AR1 SHLT INP-ZERO'S - LSHC AC,1 1006 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1007 SR2 (257,677777,-1,-1,-1,577777,-1,-1,-2,LSHC,1)^ 1008 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1009 ;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 1010 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND 1011 ;[XWD -1,-2] 1012 1013 030770 200 01 0 00 036602 E25700: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 1014 030771 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1015 030772 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1016 030773 312 01 0 00 036605 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 1017 030774 003 01 0 00 025701 ER3 AC,25701 ;RESULT IN AC IS INCORRECT 1018 030775 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1019 030776 004 02 0 00 025701 ER4 AC+1,25701 ;RESULT IN AC+1 IS INCORRECT 1020 030777 321 03 0 00 030770 JUMPL AC+2,E25700 ;LOOP ON ERROR SWITCH^ 1021 1022 ;SHIFT CONNECTIONS TEST 1023 ;TEST AR0 SHLT INP-ONE'S - LSHC AC,1 1024 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1025 SR2 (260,200000,0,0,0,400000,0,0,0,LSHC,1)^ 1026 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1027 ;DATA SPECIFIED IN [XWD 200000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 1028 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 1029 ;[XWD 0,0] 1030 1031 031000 200 01 0 00 036601 E26000: MOVE AC,[XWD 200000,0] ;INITIALIZE AC 1032 031001 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1033 031002 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1034 031003 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 1035 031004 003 01 0 00 026001 ER3 AC,26001 ;RESULT IN AC IS INCORRECT 1036 031005 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1037 031006 004 02 0 00 026001 ER4 AC+1,26001 ;RESULT IN AC+1 IS INCORRECT 1038 031007 321 03 0 00 031000 JUMPL AC+2,E26000 ;LOOP ON ERROR SWITCH^ 1039 1040 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0038 1041 ;TEST AR0 SHLT INP-ZERO'S - LSHC AC,1 1042 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1043 SR2 (261,577777,-1,-1,-1,377777,-1,-1,-2,LSHC,1)^ 1044 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1045 ;DATA SPECIFIED IN [XWD 577777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 1046 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1047 ;[XWD -1,-2] 1048 1049 031010 200 01 0 00 036605 E26100: MOVE AC,[XWD 577777,-1] ;INITIALIZE AC 1050 031011 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1051 031012 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1052 031013 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1053 031014 003 01 0 00 026101 ER3 AC,26101 ;RESULT IN AC IS INCORRECT 1054 031015 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1055 031016 004 02 0 00 026101 ER4 AC+1,26101 ;RESULT IN AC+1 IS INCORRECT 1056 031017 321 03 0 00 031010 JUMPL AC+2,E26100 ;LOOP ON ERROR SWITCH^ 1057 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0039 1058 ;SHIFT CONNECTIONS TEST 1059 ;TEST AR0 SHRT INP-ZERO'S - LSHC AC,-1 1060 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1061 SR2 (262,-1,-1,-1,-1,377777,-1,-1,-1,LSHC,-1)^ 1062 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1063 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND 1064 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1065 ;[XWD -1,-1] 1066 1067 031020 200 01 0 00 036572 E26200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1068 031021 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1069 031022 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1070 031023 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1071 031024 003 01 0 00 026201 ER3 AC,26201 ;RESULT IN AC IS INCORRECT 1072 031025 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1073 031026 004 02 0 00 026201 ER4 AC+1,26201 ;RESULT IN AC+1 IS INCORRECT 1074 031027 321 03 0 00 031020 JUMPL AC+2,E26200 ;LOOP ON ERROR SWITCH^ 1075 1076 ;SHIFT CONNECTIONS TEST 1077 ;TEST AR1 SHRT INP-ONE'S - LSHC AC,-1 1078 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1079 SR2 (263,400000,0,0,0,200000,0,0,0,LSHC,-1)^ 1080 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1081 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND 1082 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 1083 ;[XWD 0,0] 1084 1085 031030 200 01 0 00 036604 E26300: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 1086 031031 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1087 031032 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1088 031033 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 1089 031034 003 01 0 00 026301 ER3 AC,26301 ;RESULT IN AC IS INCORRECT 1090 031035 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1091 031036 004 02 0 00 026301 ER4 AC+1,26301 ;RESULT IN AC+1 IS INCORRECT 1092 031037 321 03 0 00 031030 JUMPL AC+2,E26300 ;LOOP ON ERROR SWITCH^ 1093 1094 ;SHIFT CONNECTIONS TEST 1095 ;TEST AR1 SHRT INP-ZERO'S - LSHC AC,-1 1096 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1097 SR2 (264,377777,-1,-1,-1,177777,-1,-1,-1,LSHC,-1)^ 1098 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1099 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND 1100 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1101 ;[XWD -1,-1] 1102 1103 031040 200 01 0 00 036607 E26400: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 1104 031041 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1105 031042 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1106 031043 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1107 031044 003 01 0 00 026401 ER3 AC,26401 ;RESULT IN AC IS INCORRECT 1108 031045 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1109 031046 004 02 0 00 026401 ER4 AC+1,26401 ;RESULT IN AC+1 IS INCORRECT 1110 031047 321 03 0 00 031040 JUMPL AC+2,E26400 ;LOOP ON ERROR SWITCH^ 1111 1112 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0040 1113 ;TEST AR34 SHRT INP-ONE'S - LSHC AC,-1 1114 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1115 SR2 (265,0,4,0,0,0,2,0,0,LSHC,-1)^ 1116 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1117 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND 1118 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 1119 ;[XWD 0,0] 1120 1121 031050 200 01 0 00 036612 E26500: MOVE AC,[XWD 0,4] ;INITIALIZE AC 1122 031051 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1123 031052 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1124 031053 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 1125 031054 003 01 0 00 026501 ER3 AC,26501 ;RESULT IN AC IS INCORRECT 1126 031055 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1127 031056 004 02 0 00 026501 ER4 AC+1,26501 ;RESULT IN AC+1 IS INCORRECT 1128 031057 321 03 0 00 031050 JUMPL AC+2,E26500 ;LOOP ON ERROR SWITCH^ 1129 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0041 1130 ;SHIFT CONNECTIONS TEST 1131 ;TEST AR34 SHRT INP-ZERO'S - LSHC AC,-1 1132 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1133 SR2 (266,-1,-5,-1,-1,377777,-3,-1,-1,LSHC,-1)^ 1134 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1135 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND 1136 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-3] AND 1137 ;[XWD -1,-1] 1138 1139 031060 200 01 0 00 036613 E26600: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 1140 031061 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1141 031062 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1142 031063 312 01 0 00 036614 CAME AC,[XWD 377777,-3] ;IS RESULT IN AC CORRECT? 1143 031064 003 01 0 00 026601 ER3 AC,26601 ;RESULT IN AC IS INCORRECT 1144 031065 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1145 031066 004 02 0 00 026601 ER4 AC+1,26601 ;RESULT IN AC+1 IS INCORRECT 1146 031067 321 03 0 00 031060 JUMPL AC+2,E26600 ;LOOP ON ERROR SWITCH^ 1147 1148 ;SHIFT CONNECTIONS TEST 1149 ;TEST AR35 SHRT INP-ONE'S - LSHC AC,-1 1150 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1151 SR2 (267,0,2,0,0,0,1,0,0,LSHC,-1)^ 1152 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1153 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND 1154 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 1155 ;[XWD 0,0] 1156 1157 031070 200 01 0 00 036576 E26700: MOVE AC,[XWD 0,2] ;INITIALIZE AC 1158 031071 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1159 031072 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1160 031073 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 1161 031074 003 01 0 00 026701 ER3 AC,26701 ;RESULT IN AC IS INCORRECT 1162 031075 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1163 031076 004 02 0 00 026701 ER4 AC+1,26701 ;RESULT IN AC+1 IS INCORRECT 1164 031077 321 03 0 00 031070 JUMPL AC+2,E26700 ;LOOP ON ERROR SWITCH^ 1165 1166 ;SHIFT CONNECTIONS TEST 1167 ;TEST AR35 SHRT INP-ZERO'S - LSHC AC,-1 1168 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1169 SR2 (270,-1,-3,-1,-1,377777,-2,-1,-1,LSHC,-1)^ 1170 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1171 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND 1172 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-2] AND 1173 ;[XWD -1,-1] 1174 1175 031100 200 01 0 00 036610 E27000: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 1176 031101 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1177 031102 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1178 031103 312 01 0 00 036606 CAME AC,[XWD 377777,-2] ;IS RESULT IN AC CORRECT? 1179 031104 003 01 0 00 027001 ER3 AC,27001 ;RESULT IN AC IS INCORRECT 1180 031105 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1181 031106 004 02 0 00 027001 ER4 AC+1,27001 ;RESULT IN AC+1 IS INCORRECT 1182 031107 321 03 0 00 031100 JUMPL AC+2,E27000 ;LOOP ON ERROR SWITCH^ 1183 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0042 1184 ;SHIFT CONNECTIONS TEST 1185 ;TEST MQ0 SHRT INP-ONE'S - LSHC AC,-1 1186 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1187 SR2 (271,0,1,0,0,0,0,400000,0,LSHC,-1)^ 1188 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1189 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND 1190 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1191 ;[XWD 400000,0] 1192 1193 031110 200 01 0 00 036575 E27100: MOVE AC,[XWD 0,1] ;INITIALIZE AC 1194 031111 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1195 031112 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1196 031113 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1197 031114 003 01 0 00 027101 ER3 AC,27101 ;RESULT IN AC IS INCORRECT 1198 031115 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1199 031116 004 02 0 00 027101 ER4 AC+1,27101 ;RESULT IN AC+1 IS INCORRECT 1200 031117 321 03 0 00 031110 JUMPL AC+2,E27100 ;LOOP ON ERROR SWITCH^ 1201 1202 ;SHIFT CONNECTIONS TEST 1203 ;TEST MQ0 SHRT INP-ZERO'S - LSHC AC,-1 1204 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1205 SR2 (272,-1,-2,-1,-1,377777,-1,377777,-1,LSHC,-1)^ 1206 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1207 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND 1208 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1209 ;[XWD 377777,-1] 1210 1211 031120 200 01 0 00 036573 E27200: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 1212 031121 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1213 031122 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1214 031123 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1215 031124 003 01 0 00 027201 ER3 AC,27201 ;RESULT IN AC IS INCORRECT 1216 031125 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 1217 031126 004 02 0 00 027201 ER4 AC+1,27201 ;RESULT IN AC+1 IS INCORRECT 1218 031127 321 03 0 00 031120 JUMPL AC+2,E27200 ;LOOP ON ERROR SWITCH^ 1219 1220 ;SHIFT CONNECTIONS TEST 1221 ;TEST MQ1 SHRT INP-ONE'S - LSHC AC,-1 1222 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1223 SR2 (273,0,0,400000,0,0,0,200000,0,LSHC,-1)^ 1224 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1225 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] -1 BIT POSITIONS AND 1226 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1227 ;[XWD 200000,0] 1228 1229 031130 200 01 0 00 036574 E27300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1230 031131 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 1231 031132 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1232 031133 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1233 031134 003 01 0 00 027301 ER3 AC,27301 ;RESULT IN AC IS INCORRECT 1234 031135 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 1235 031136 004 02 0 00 027301 ER4 AC+1,27301 ;RESULT IN AC+1 IS INCORRECT 1236 031137 321 03 0 00 031130 JUMPL AC+2,E27300 ;LOOP ON ERROR SWITCH^ 1237 1238 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0043 1239 ;TEST MQ1 SHRT INP-ZERO'S - LSHC AC,-1 1240 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1241 SR2 (274,-1,-1,377777,-1,377777,-1,577777,-1,LSHC,-1)^ 1242 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1243 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND 1244 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1245 ;[XWD 577777,-1] 1246 1247 031140 200 01 0 00 036572 E27400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1248 031141 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 1249 031142 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1250 031143 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1251 031144 003 01 0 00 027401 ER3 AC,27401 ;RESULT IN AC IS INCORRECT 1252 031145 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 1253 031146 004 02 0 00 027401 ER4 AC+1,27401 ;RESULT IN AC+1 IS INCORRECT 1254 031147 321 03 0 00 031140 JUMPL AC+2,E27400 ;LOOP ON ERROR SWITCH^ 1255 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0044 1256 ;SHIFT CONNECTIONS TEST 1257 ;TEST MQ34 SHRT INP-ONE'S - LSHC AC,-1 1258 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1259 SR2 (275,0,0,0,4,0,0,0,2,LSHC,-1)^ 1260 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1261 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND 1262 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1263 ;[XWD 0,2] 1264 1265 031150 200 01 0 00 036574 E27500: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1266 031151 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 1267 031152 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1268 031153 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1269 031154 003 01 0 00 027501 ER3 AC,27501 ;RESULT IN AC IS INCORRECT 1270 031155 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 1271 031156 004 02 0 00 027501 ER4 AC+1,27501 ;RESULT IN AC+1 IS INCORRECT 1272 031157 321 03 0 00 031150 JUMPL AC+2,E27500 ;LOOP ON ERROR SWITCH^ 1273 1274 ;SHIFT CONNECTIONS TEST 1275 ;TEST MQ34 SHRT INP-ZERO'S - LSHC AC,-1 1276 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1277 SR2 (276,-1,-1,-1,-5,377777,-1,-1,-3,LSHC,-1)^ 1278 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1279 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND 1280 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1281 ;[XWD -1,-3] 1282 1283 031160 200 01 0 00 036572 E27600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1284 031161 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 1285 031162 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1286 031163 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1287 031164 003 01 0 00 027601 ER3 AC,27601 ;RESULT IN AC IS INCORRECT 1288 031165 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 1289 031166 004 02 0 00 027601 ER4 AC+1,27601 ;RESULT IN AC+1 IS INCORRECT 1290 031167 321 03 0 00 031160 JUMPL AC+2,E27600 ;LOOP ON ERROR SWITCH^ 1291 1292 ;SHIFT CONNECTIONS TEST 1293 ;TEST MQ35 SHRT INP-ONE'S - LSHC AC,-1 1294 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 1295 SR2 (277,0,0,0,2,0,0,0,1,LSHC,-1)^ 1296 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1297 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND 1298 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1299 ;[XWD 0,1] 1300 1301 031170 200 01 0 00 036574 E27700: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1302 031171 200 02 0 00 036576 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1 1303 031172 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1304 031173 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1305 031174 003 01 0 00 027701 ER3 AC,27701 ;RESULT IN AC IS INCORRECT 1306 031175 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 1307 031176 004 02 0 00 027701 ER4 AC+1,27701 ;RESULT IN AC+1 IS INCORRECT 1308 031177 321 03 0 00 031170 JUMPL AC+2,E27700 ;LOOP ON ERROR SWITCH^ 1309 1310 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0045 1311 ;TEST MQ35 SHRT INP-ZERO'S - LSHC AC,-1 1312 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 1313 SR2 (300,-1,-1,-1,-3,377777,-1,-1,-2,LSHC,-1)^ 1314 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1315 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND 1316 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1317 ;[XWD -1,-2] 1318 1319 031200 200 01 0 00 036572 E30000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1320 031201 200 02 0 00 036610 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1 1321 031202 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1322 031203 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1323 031204 003 01 0 00 030001 ER3 AC,30001 ;RESULT IN AC IS INCORRECT 1324 031205 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1325 031206 004 02 0 00 030001 ER4 AC+1,30001 ;RESULT IN AC+1 IS INCORRECT 1326 031207 321 03 0 00 031200 JUMPL AC+2,E30000 ;LOOP ON ERROR SWITCH^ 1327 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0046 1328 ;SHIFT CONNECTIONS TEST 1329 ;TEST AR0 SHRT INP-ZERO'S - LSHC AC,-2 1330 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1331 SR2 (301,-1,-1,-1,-1,177777,-1,-1,-1,LSHC,-2)^ 1332 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1333 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND 1334 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1335 ;[XWD -1,-1] 1336 1337 031210 200 01 0 00 036572 E30100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1338 031211 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1339 031212 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1340 031213 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1341 031214 003 01 0 00 030101 ER3 AC,30101 ;RESULT IN AC IS INCORRECT 1342 031215 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1343 031216 004 02 0 00 030101 ER4 AC+1,30101 ;RESULT IN AC+1 IS INCORRECT 1344 031217 321 03 0 00 031210 JUMPL AC+2,E30100 ;LOOP ON ERROR SWITCH^ 1345 1346 ;SHIFT CONNECTIONS TEST 1347 ;TEST AR1 SHRT INP-ZERO'S - LSHC AC,-2 1348 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1349 SR2 (302,-1,-1,-1,-1,177777,-1,-1,-1,LSHC,-2)^ 1350 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1351 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND 1352 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1353 ;[XWD -1,-1] 1354 1355 031220 200 01 0 00 036572 E30200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1356 031221 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1357 031222 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1358 031223 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1359 031224 003 01 0 00 030201 ER3 AC,30201 ;RESULT IN AC IS INCORRECT 1360 031225 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1361 031226 004 02 0 00 030201 ER4 AC+1,30201 ;RESULT IN AC+1 IS INCORRECT 1362 031227 321 03 0 00 031220 JUMPL AC+2,E30200 ;LOOP ON ERROR SWITCH^ 1363 1364 ;SHIFT CONNECTIONS TEST 1365 ;TEST AR34 SHRT INP-ONE'S - LSHC AC,-2 1366 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1367 SR2 (303,0,10,0,0,0,2,0,0,LSHC,-2)^ 1368 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1369 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND 1370 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 1371 ;[XWD 0,0] 1372 1373 031230 200 01 0 00 036615 E30300: MOVE AC,[XWD 0,10] ;INITIALIZE AC 1374 031231 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1375 031232 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1376 031233 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 1377 031234 003 01 0 00 030301 ER3 AC,30301 ;RESULT IN AC IS INCORRECT 1378 031235 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1379 031236 004 02 0 00 030301 ER4 AC+1,30301 ;RESULT IN AC+1 IS INCORRECT 1380 031237 321 03 0 00 031230 JUMPL AC+2,E30300 ;LOOP ON ERROR SWITCH^ 1381 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0047 1382 ;SHIFT CONNECTIONS TEST 1383 ;TEST AR34 SHRT INP-ZERO'S - LSHC AC,-2 1384 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1385 SR2 (304,-1,-11,-1,-1,177777,-3,-1,-1,LSHC,-2)^ 1386 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1387 ;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND 1388 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-3] AND 1389 ;[XWD -1,-1] 1390 1391 031240 200 01 0 00 036616 E30400: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 1392 031241 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1393 031242 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1394 031243 312 01 0 00 036617 CAME AC,[XWD 177777,-3] ;IS RESULT IN AC CORRECT? 1395 031244 003 01 0 00 030401 ER3 AC,30401 ;RESULT IN AC IS INCORRECT 1396 031245 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1397 031246 004 02 0 00 030401 ER4 AC+1,30401 ;RESULT IN AC+1 IS INCORRECT 1398 031247 321 03 0 00 031240 JUMPL AC+2,E30400 ;LOOP ON ERROR SWITCH^ 1399 1400 ;SHIFT CONNECTIONS TEST 1401 ;TEST AR35 SHRT INP-ONE'S - LSHC AC,-2 1402 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1403 SR2 (305,0,4,0,0,0,1,0,0,LSHC,-2)^ 1404 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1405 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND 1406 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 1407 ;[XWD 0,0] 1408 1409 031250 200 01 0 00 036612 E30500: MOVE AC,[XWD 0,4] ;INITIALIZE AC 1410 031251 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1411 031252 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1412 031253 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 1413 031254 003 01 0 00 030501 ER3 AC,30501 ;RESULT IN AC IS INCORRECT 1414 031255 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1415 031256 004 02 0 00 030501 ER4 AC+1,30501 ;RESULT IN AC+1 IS INCORRECT 1416 031257 321 03 0 00 031250 JUMPL AC+2,E30500 ;LOOP ON ERROR SWITCH^ 1417 1418 ;SHIFT CONNECTIONS TEST 1419 ;TEST AR35 SHRT INP-ZERO'S - LSHC AC,-2 1420 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1421 SR2 (306,-1,-5,-1,-1,177777,-2,-1,-1,LSHC,-2)^ 1422 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1423 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND 1424 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-2] AND 1425 ;[XWD -1,-1] 1426 1427 031260 200 01 0 00 036613 E30600: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 1428 031261 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1429 031262 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1430 031263 312 01 0 00 036620 CAME AC,[XWD 177777,-2] ;IS RESULT IN AC CORRECT? 1431 031264 003 01 0 00 030601 ER3 AC,30601 ;RESULT IN AC IS INCORRECT 1432 031265 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1433 031266 004 02 0 00 030601 ER4 AC+1,30601 ;RESULT IN AC+1 IS INCORRECT 1434 031267 321 03 0 00 031260 JUMPL AC+2,E30600 ;LOOP ON ERROR SWITCH^ 1435 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0048 1436 ;SHIFT CONNECTIONS TEST 1437 ;TEST MQ0 SHRT INP-ONE'S - LSHC AC,-2 1438 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1439 SR2 (307,0,2,0,0,0,0,400000,0,LSHC,-2)^ 1440 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1441 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND 1442 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1443 ;[XWD 400000,0] 1444 1445 031270 200 01 0 00 036576 E30700: MOVE AC,[XWD 0,2] ;INITIALIZE AC 1446 031271 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1447 031272 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1448 031273 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1449 031274 003 01 0 00 030701 ER3 AC,30701 ;RESULT IN AC IS INCORRECT 1450 031275 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1451 031276 004 02 0 00 030701 ER4 AC+1,30701 ;RESULT IN AC+1 IS INCORRECT 1452 031277 321 03 0 00 031270 JUMPL AC+2,E30700 ;LOOP ON ERROR SWITCH^ 1453 1454 ;SHIFT CONNECTIONS TEST 1455 ;TEST MQ0 SHRT INP-ZERO'S - LSHC AC,-2 1456 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1457 SR2 (310,-1,-3,-1,-1,177777,-1,377777,-1,LSHC,-2)^ 1458 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1459 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND 1460 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1461 ;[XWD 377777,-1] 1462 1463 031300 200 01 0 00 036610 E31000: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 1464 031301 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1465 031302 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1466 031303 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1467 031304 003 01 0 00 031001 ER3 AC,31001 ;RESULT IN AC IS INCORRECT 1468 031305 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 1469 031306 004 02 0 00 031001 ER4 AC+1,31001 ;RESULT IN AC+1 IS INCORRECT 1470 031307 321 03 0 00 031300 JUMPL AC+2,E31000 ;LOOP ON ERROR SWITCH^ 1471 1472 ;SHIFT CONNECTIONS TEST 1473 ;TEST MQ1 SHRT INP-ONE'S - LSHC AC,-2 1474 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1475 SR2 (311,0,1,0,0,0,0,200000,0,LSHC,-2)^ 1476 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1477 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -2 BIT POSITIONS AND 1478 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1479 ;[XWD 200000,0] 1480 1481 031310 200 01 0 00 036575 E31100: MOVE AC,[XWD 0,1] ;INITIALIZE AC 1482 031311 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1483 031312 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1484 031313 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1485 031314 003 01 0 00 031101 ER3 AC,31101 ;RESULT IN AC IS INCORRECT 1486 031315 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 1487 031316 004 02 0 00 031101 ER4 AC+1,31101 ;RESULT IN AC+1 IS INCORRECT 1488 031317 321 03 0 00 031310 JUMPL AC+2,E31100 ;LOOP ON ERROR SWITCH^ 1489 1490 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0049 1491 ;TEST MQ1 SHRT INP-ZERO'S - LSHC AC,-2 1492 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1493 SR2 (312,-1,-2,-1,-1,177777,-1,577777,-1,LSHC,-2)^ 1494 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1495 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -2 BIT POSITIONS AND 1496 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1497 ;[XWD 577777,-1] 1498 1499 031320 200 01 0 00 036573 E31200: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 1500 031321 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1501 031322 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1502 031323 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1503 031324 003 01 0 00 031201 ER3 AC,31201 ;RESULT IN AC IS INCORRECT 1504 031325 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 1505 031326 004 02 0 00 031201 ER4 AC+1,31201 ;RESULT IN AC+1 IS INCORRECT 1506 031327 321 03 0 00 031320 JUMPL AC+2,E31200 ;LOOP ON ERROR SWITCH^ 1507 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0050 1508 ;SHIFT CONNECTIONS TEST 1509 ;TEST MQ34 SHRT INP-ONE'S - LSHC AC,-2 1510 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1511 SR2 (313,0,0,0,10,0,0,0,2,LSHC,-2)^ 1512 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1513 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND 1514 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1515 ;[XWD 0,2] 1516 1517 031330 200 01 0 00 036574 E31300: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1518 031331 200 02 0 00 036615 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 1519 031332 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1520 031333 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1521 031334 003 01 0 00 031301 ER3 AC,31301 ;RESULT IN AC IS INCORRECT 1522 031335 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 1523 031336 004 02 0 00 031301 ER4 AC+1,31301 ;RESULT IN AC+1 IS INCORRECT 1524 031337 321 03 0 00 031330 JUMPL AC+2,E31300 ;LOOP ON ERROR SWITCH^ 1525 1526 ;SHIFT CONNECTIONS TEST 1527 ;TEST MQ34 SHRT INP-ZERO'S - LSHC AC,-2 1528 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1529 SR2 (314,-1,-1,-1,-11,177777,-1,-1,-3,LSHC,-2)^ 1530 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1531 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND 1532 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1533 ;[XWD -1,-3] 1534 1535 031340 200 01 0 00 036572 E31400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1536 031341 200 02 0 00 036616 MOVE AC+1,[XWD -1,-11] ;INITIALIZE AC+1 1537 031342 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1538 031343 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1539 031344 003 01 0 00 031401 ER3 AC,31401 ;RESULT IN AC IS INCORRECT 1540 031345 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 1541 031346 004 02 0 00 031401 ER4 AC+1,31401 ;RESULT IN AC+1 IS INCORRECT 1542 031347 321 03 0 00 031340 JUMPL AC+2,E31400 ;LOOP ON ERROR SWITCH^ 1543 1544 ;SHIFT CONNECTIONS TEST 1545 ;TEST MQ35 SHRT INP-ONE'S - LSHC AC,-2 1546 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 1547 SR2 (315,0,0,0,4,0,0,0,1,LSHC,-2)^ 1548 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1549 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND 1550 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1551 ;[XWD 0,1] 1552 1553 031350 200 01 0 00 036574 E31500: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1554 031351 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 1555 031352 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1556 031353 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1557 031354 003 01 0 00 031501 ER3 AC,31501 ;RESULT IN AC IS INCORRECT 1558 031355 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 1559 031356 004 02 0 00 031501 ER4 AC+1,31501 ;RESULT IN AC+1 IS INCORRECT 1560 031357 321 03 0 00 031350 JUMPL AC+2,E31500 ;LOOP ON ERROR SWITCH^ 1561 1562 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0051 1563 ;TEST MQ35 SHRT INP-ZERO'S - LSHC AC,-2 1564 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 1565 SR2 (316,-1,-1,-1,-5,177777,-1,-1,-2,LSHC,-2)^ 1566 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1567 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND 1568 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1569 ;[XWD -1,-2] 1570 1571 031360 200 01 0 00 036572 E31600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1572 031361 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 1573 031362 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 1574 031363 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1575 031364 003 01 0 00 031601 ER3 AC,31601 ;RESULT IN AC IS INCORRECT 1576 031365 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1577 031366 004 02 0 00 031601 ER4 AC+1,31601 ;RESULT IN AC+1 IS INCORRECT 1578 031367 321 03 0 00 031360 JUMPL AC+2,E31600 ;LOOP ON ERROR SWITCH^ 1579 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0052 1580 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) 1581 1582 ;END CONNECTIONS-ASHC 1583 ;TEST AR-MQ END BIT INPUT GATES 1584 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES 1585 ; MQ0,1,34,35 SHLT INP GATES 1586 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES 1587 ; MQ0,1,34,35 SHRT INPUT GATES 1588 ;AC,AC+1 ARE ARITHMETICALLY SHIFTED LEFT/RIGHT AND 1589 ;END BITS ARE TESTED 1590 ;TEST ASSUMES BOTH REGISTERS ARE 1591 ;CAPABLE OF SHIFTING 1,-1 AND -2 BIT POSITIONS CORRECTLY 1592 1593 ;GATES PREVIOUSLY TESTED,ARE AGAIN TESTED 1594 ;ERRORS MOST LIKELY DUE TO FAILURE OF 1595 ;ASHC TO BRING UP ENABLING LEVELS 1596 1597 ;SHIFT CONNECTIONS TEST 1598 ;TEST MQ35 SHLT INP-ZERO'S - ASHC AC,1 1599 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 1600 SR2 (317,-1,-1,-1,-1,-1,-1,-1,-2,ASHC,1)^ 1601 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1602 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 1603 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 1604 ;[XWD -1,-2] 1605 1606 031370 200 01 0 00 036572 E31700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1607 031371 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1608 031372 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1609 031373 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 1610 031374 003 01 0 00 031701 ER3 AC,31701 ;RESULT IN AC IS INCORRECT 1611 031375 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1612 031376 004 02 0 00 031701 ER4 AC+1,31701 ;RESULT IN AC+1 IS INCORRECT 1613 031377 321 03 0 00 031370 JUMPL AC+2,E31700 ;LOOP ON ERROR SWITCH^ 1614 1615 ;SHIFT CONNECTIONS TEST 1616 ;TEST MQ34 SHLT INP-ONE'S - ASHC AC,1 1617 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1618 SR2 (320,0,0,0,1,0,0,0,2,ASHC,1)^ 1619 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1620 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND 1621 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1622 ;[XWD 0,2] 1623 1624 031400 200 01 0 00 036574 E32000: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1625 031401 200 02 0 00 036575 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1 1626 031402 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1627 031403 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1628 031404 003 01 0 00 032001 ER3 AC,32001 ;RESULT IN AC IS INCORRECT 1629 031405 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 1630 031406 004 02 0 00 032001 ER4 AC+1,32001 ;RESULT IN AC+1 IS INCORRECT 1631 031407 321 03 0 00 031400 JUMPL AC+2,E32000 ;LOOP ON ERROR SWITCH^ 1632 1633 ;SHIFT CONNECTIONS TEST 1634 ;TEST MQ34 SHLT INP-ZERO'S - ASHC AC,1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0053 1635 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 1636 SR2 (321,-1,-1,-1,-2,-1,-1,-1,-4,ASHC,1)^ 1637 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1638 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND 1639 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 1640 ;[XWD -1,-4] 1641 1642 031410 200 01 0 00 036572 E32100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1643 031411 200 02 0 00 036573 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1 1644 031412 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1645 031413 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 1646 031414 003 01 0 00 032101 ER3 AC,32101 ;RESULT IN AC IS INCORRECT 1647 031415 312 02 0 00 036577 CAME AC+1,[XWD -1,-4] ;IS RESULT IN AC+1 CORRECT? 1648 031416 004 02 0 00 032101 ER4 AC+1,32101 ;RESULT IN AC+1 IS INCORRECT 1649 031417 321 03 0 00 031410 JUMPL AC+2,E32100 ;LOOP ON ERROR SWITCH^ 1650 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0054 1651 ;SHIFT CONNECTIONS TEST 1652 ;TEST MQ1 SHLT INP-ONE'S - ASHC AC,1 1653 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1654 SR2 (322,0,0,100000,0,0,0,200000,0,ASHC,1)^ 1655 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1656 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND 1657 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 1658 ;[XWD 200000,0] 1659 1660 031420 200 01 0 00 036574 E32200: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1661 031421 200 02 0 00 036600 MOVE AC+1,[XWD 100000,0] ;INITIALIZE AC+1 1662 031422 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1663 031423 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 1664 031424 003 01 0 00 032201 ER3 AC,32201 ;RESULT IN AC IS INCORRECT 1665 031425 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 1666 031426 004 02 0 00 032201 ER4 AC+1,32201 ;RESULT IN AC+1 IS INCORRECT 1667 031427 321 03 0 00 031420 JUMPL AC+2,E32200 ;LOOP ON ERROR SWITCH^ 1668 1669 ;SHIFT CONNECTIONS TEST 1670 ;TEST MQ1 SHLT INP-ZERO'S - ASHC AC,1 1671 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 1672 SR2 (323,-1,-1,677777,-1,-1,-1,577777,-2,ASHC,1)^ 1673 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1674 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND 1675 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 1676 ;[XWD 577777,-2] 1677 1678 031430 200 01 0 00 036572 E32300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1679 031431 200 02 0 00 036602 MOVE AC+1,[XWD 677777,-1] ;INITIALIZE AC+1 1680 031432 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1681 031433 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 1682 031434 003 01 0 00 032301 ER3 AC,32301 ;RESULT IN AC IS INCORRECT 1683 031435 312 02 0 00 036603 CAME AC+1,[XWD 577777,-2] ;IS RESULT IN AC+1 CORRECT? 1684 031436 004 02 0 00 032301 ER4 AC+1,32301 ;RESULT IN AC+1 IS INCORRECT 1685 031437 321 03 0 00 031430 JUMPL AC+2,E32300 ;LOOP ON ERROR SWITCH^ 1686 1687 ;SHIFT CONNECTIONS TEST 1688 ;TEST MQ0 SHLT INP-ONE'S - ASHC AC,1 1689 ;RESULT IN MQ0 SHOULD AGREE WITH INITIAL AR0 1690 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1691 SR2 (324,400000,0,0,0,400000,0,400000,0,ASHC,1)^ 1692 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1693 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 1694 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 1695 ;[XWD 400000,0] 1696 1697 031440 200 01 0 00 036604 E32400: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 1698 031441 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1699 031442 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1700 031443 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 1701 031444 003 01 0 00 032401 ER3 AC,32401 ;RESULT IN AC IS INCORRECT 1702 031445 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1703 031446 004 02 0 00 032401 ER4 AC+1,32401 ;RESULT IN AC+1 IS INCORRECT 1704 031447 321 03 0 00 031440 JUMPL AC+2,E32400 ;LOOP ON ERROR SWITCH^ 1705 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0055 1706 ;SHIFT CONNECTIONS TEST 1707 ;TEST MQ0 SHLT INP-ZERO'S - ASHC AC,1 1708 ;RESULT IN MQ0 SHOULD AGREE WITH INITIAL AR0 1709 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 1710 SR2 (325,377777,-1,-1,-1,377777,-1,377777,-2,ASHC,1)^ 1711 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1712 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 1713 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1714 ;[XWD 377777,-2] 1715 1716 031450 200 01 0 00 036607 E32500: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 1717 031451 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1718 031452 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1719 031453 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1720 031454 003 01 0 00 032501 ER3 AC,32501 ;RESULT IN AC IS INCORRECT 1721 031455 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT? 1722 031456 004 02 0 00 032501 ER4 AC+1,32501 ;RESULT IN AC+1 IS INCORRECT 1723 031457 321 03 0 00 031450 JUMPL AC+2,E32500 ;LOOP ON ERROR SWITCH^ 1724 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0056 1725 ;SHIFT CONNECTIONS TEST 1726 ;TEST AR35 SHLT INP-ONE'S - ASHC AC,1 1727 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1728 SR2 (326,0,0,200000,0,0,1,0,0,ASHC,1)^ 1729 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1730 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND 1731 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 1732 ;[XWD 0,0] 1733 1734 031460 200 01 0 00 036574 E32600: MOVE AC,[XWD 0,0] ;INITIALIZE AC 1735 031461 200 02 0 00 036601 MOVE AC+1,[XWD 200000,0] ;INITIALIZE AC+1 1736 031462 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1737 031463 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 1738 031464 003 01 0 00 032601 ER3 AC,32601 ;RESULT IN AC IS INCORRECT 1739 031465 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1740 031466 004 02 0 00 032601 ER4 AC+1,32601 ;RESULT IN AC+1 IS INCORRECT 1741 031467 321 03 0 00 031460 JUMPL AC+2,E32600 ;LOOP ON ERROR SWITCH^ 1742 1743 ;SHIFT CONNECTIONS TEST 1744 ;TEST AR35 SHLT INP-ZERO'S - ASHC AC,1 1745 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1746 SR2 (327,-1,-1,577777,-1,-1,-2,-1,-2,ASHC,1)^ 1747 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1748 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND 1749 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 1750 ;[XWD -1,-2] 1751 1752 031470 200 01 0 00 036572 E32700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 1753 031471 200 02 0 00 036605 MOVE AC+1,[XWD 577777,-1] ;INITIALIZE AC+1 1754 031472 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1755 031473 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 1756 031474 003 01 0 00 032701 ER3 AC,32701 ;RESULT IN AC IS INCORRECT 1757 031475 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1758 031476 004 02 0 00 032701 ER4 AC+1,32701 ;RESULT IN AC+1 IS INCORRECT 1759 031477 321 03 0 00 031470 JUMPL AC+2,E32700 ;LOOP ON ERROR SWITCH^ 1760 1761 ;SHIFT CONNECTIONS TEST 1762 ;TEST AR34 SHLT INP-ONE'S - ASHC AC,1 1763 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1764 SR2 (330,0,1,0,0,0,2,0,0,ASHC,1)^ 1765 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1766 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND 1767 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 1768 ;[XWD 0,0] 1769 1770 031500 200 01 0 00 036575 E33000: MOVE AC,[XWD 0,1] ;INITIALIZE AC 1771 031501 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1772 031502 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1773 031503 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 1774 031504 003 01 0 00 033001 ER3 AC,33001 ;RESULT IN AC IS INCORRECT 1775 031505 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1776 031506 004 02 0 00 033001 ER4 AC+1,33001 ;RESULT IN AC+1 IS INCORRECT 1777 031507 321 03 0 00 031500 JUMPL AC+2,E33000 ;LOOP ON ERROR SWITCH^ 1778 1779 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0057 1780 ;TEST AR34 SHLT INP-ZERO'S - ASHC AC,1 1781 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1782 SR2 (331,-1,-2,-1,-1,-1,-3,-1,-2,ASHC,1)^ 1783 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1784 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND 1785 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 1786 ;[XWD -1,-2] 1787 1788 031510 200 01 0 00 036573 E33100: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 1789 031511 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1790 031512 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1791 031513 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 1792 031514 003 01 0 00 033101 ER3 AC,33101 ;RESULT IN AC IS INCORRECT 1793 031515 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1794 031516 004 02 0 00 033101 ER4 AC+1,33101 ;RESULT IN AC+1 IS INCORRECT 1795 031517 321 03 0 00 031510 JUMPL AC+2,E33100 ;LOOP ON ERROR SWITCH^ 1796 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0058 1797 ;SHIFT CONNECTIONS TEST 1798 ;TEST AR1 SHLT INP-ONE'S - ASHC AC,1 1799 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1800 SR2 (332,100000,0,0,0,200000,0,0,0,ASHC,1)^ 1801 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1802 ;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND 1803 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND 1804 ;[XWD 0,0] 1805 1806 031520 200 01 0 00 036600 E33200: MOVE AC,[XWD 100000,0] ;INITIALIZE AC 1807 031521 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1808 031522 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1809 031523 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT? 1810 031524 003 01 0 00 033201 ER3 AC,33201 ;RESULT IN AC IS INCORRECT 1811 031525 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1812 031526 004 02 0 00 033201 ER4 AC+1,33201 ;RESULT IN AC+1 IS INCORRECT 1813 031527 321 03 0 00 031520 JUMPL AC+2,E33200 ;LOOP ON ERROR SWITCH^ 1814 1815 ;SHIFT CONNECTIONS TEST 1816 ;TEST AR1 SHLT INP-ZERO'S - ASHC AC,1 1817 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1818 SR2 (333,677777,-1,-1,-1,577777,-1,-1,-2,ASHC,1)^ 1819 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1820 ;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND 1821 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND 1822 ;[XWD -1,-2] 1823 1824 031530 200 01 0 00 036602 E33300: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC 1825 031531 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1826 031532 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1827 031533 312 01 0 00 036605 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT? 1828 031534 003 01 0 00 033301 ER3 AC,33301 ;RESULT IN AC IS INCORRECT 1829 031535 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 1830 031536 004 02 0 00 033301 ER4 AC+1,33301 ;RESULT IN AC+1 IS INCORRECT 1831 031537 321 03 0 00 031530 JUMPL AC+2,E33300 ;LOOP ON ERROR SWITCH^ 1832 1833 ;SHIFT CONNECTIONS TEST 1834 ;TEST AR0 SHLT INP-ONE'S - ASHC AC,1 1835 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1836 SR2 (334,400000,0,400000,0,400000,0,400000,0,ASHC,1)^ 1837 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1838 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] 1 BIT POSITIONS AND 1839 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND 1840 ;[XWD 400000,0] 1841 1842 031540 200 01 0 00 036604 E33400: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 1843 031541 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 1844 031542 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1845 031543 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT? 1846 031544 003 01 0 00 033401 ER3 AC,33401 ;RESULT IN AC IS INCORRECT 1847 031545 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1848 031546 004 02 0 00 033401 ER4 AC+1,33401 ;RESULT IN AC+1 IS INCORRECT 1849 031547 321 03 0 00 031540 JUMPL AC+2,E33400 ;LOOP ON ERROR SWITCH^ 1850 1851 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0059 1852 ;TEST AR0 SHLT INP-ZERO'S - ASHC AC,1 1853 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1854 SR2 (335,377777,-1,377777,-1,377777,-1,377777,-2,ASHC,1)^ 1855 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1856 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND 1857 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND 1858 ;[XWD 377777,-2] 1859 1860 031550 200 01 0 00 036607 E33500: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 1861 031551 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 1862 031552 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 1863 031553 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT? 1864 031554 003 01 0 00 033501 ER3 AC,33501 ;RESULT IN AC IS INCORRECT 1865 031555 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT? 1866 031556 004 02 0 00 033501 ER4 AC+1,33501 ;RESULT IN AC+1 IS INCORRECT 1867 031557 321 03 0 00 031550 JUMPL AC+2,E33500 ;LOOP ON ERROR SWITCH^ 1868 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0060 1869 ;SHIFT CONNECTIONS TEST 1870 ;TEST AR0 SHRT INP-ONE'S - ASHC AC,-1 1871 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1872 SR2 (336,400000,0,400000,0,600000,0,400000,0,ASHC,-1)^ 1873 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1874 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -1 BIT POSITIONS AND 1875 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND 1876 ;[XWD 400000,0] 1877 1878 031560 200 01 0 00 036604 E33600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 1879 031561 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 1880 031562 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1881 031563 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT? 1882 031564 003 01 0 00 033601 ER3 AC,33601 ;RESULT IN AC IS INCORRECT 1883 031565 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1884 031566 004 02 0 00 033601 ER4 AC+1,33601 ;RESULT IN AC+1 IS INCORRECT 1885 031567 321 03 0 00 031560 JUMPL AC+2,E33600 ;LOOP ON ERROR SWITCH^ 1886 1887 ;SHIFT CONNECTIONS TEST 1888 ;TEST AR0 SHRT INP-ZERO'S - ASHC AC,-1 1889 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 1890 SR2 (337,377777,-1,377777,-1,177777,-1,377777,-1,ASHC,-1)^ 1891 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1892 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND 1893 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1894 ;[XWD 377777,-1] 1895 1896 031570 200 01 0 00 036607 E33700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 1897 031571 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 1898 031572 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1899 031573 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1900 031574 003 01 0 00 033701 ER3 AC,33701 ;RESULT IN AC IS INCORRECT 1901 031575 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 1902 031576 004 02 0 00 033701 ER4 AC+1,33701 ;RESULT IN AC+1 IS INCORRECT 1903 031577 321 03 0 00 031570 JUMPL AC+2,E33700 ;LOOP ON ERROR SWITCH^ 1904 1905 ;SHIFT CONNECTIONS TEST 1906 ;TEST AR1 SHRT INP-ONE'S - ASHC AC,-1 1907 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1908 SR2 (340,400000,0,400000,0,600000,0,400000,0,ASHC,-1)^ 1909 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1910 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -1 BIT POSITIONS AND 1911 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND 1912 ;[XWD 400000,0] 1913 1914 031600 200 01 0 00 036604 E34000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 1915 031601 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 1916 031602 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1917 031603 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT? 1918 031604 003 01 0 00 034001 ER3 AC,34001 ;RESULT IN AC IS INCORRECT 1919 031605 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 1920 031606 004 02 0 00 034001 ER4 AC+1,34001 ;RESULT IN AC+1 IS INCORRECT 1921 031607 321 03 0 00 031600 JUMPL AC+2,E34000 ;LOOP ON ERROR SWITCH^ 1922 1923 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0061 1924 ;TEST AR1 SHRT INP-ZERO'S - ASHC AC,-1 1925 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 1926 SR2 (341,377777,-1,377777,-1,177777,-1,377777,-1,ASHC,-1)^ 1927 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1928 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND 1929 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 1930 ;[XWD 377777,-1] 1931 1932 031610 200 01 0 00 036607 E34100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 1933 031611 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 1934 031612 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1935 031613 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 1936 031614 003 01 0 00 034101 ER3 AC,34101 ;RESULT IN AC IS INCORRECT 1937 031615 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 1938 031616 004 02 0 00 034101 ER4 AC+1,34101 ;RESULT IN AC+1 IS INCORRECT 1939 031617 321 03 0 00 031610 JUMPL AC+2,E34100 ;LOOP ON ERROR SWITCH^ 1940 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0062 1941 ;SHIFT CONNECTIONS TEST 1942 ;TEST AR34 SHRT INP-ONE'S - ASHC AC,-1 1943 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1944 SR2 (342,0,4,0,0,0,2,0,0,ASHC,-1)^ 1945 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1946 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND 1947 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 1948 ;[XWD 0,0] 1949 1950 031620 200 01 0 00 036612 E34200: MOVE AC,[XWD 0,4] ;INITIALIZE AC 1951 031621 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1952 031622 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1953 031623 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 1954 031624 003 01 0 00 034201 ER3 AC,34201 ;RESULT IN AC IS INCORRECT 1955 031625 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1956 031626 004 02 0 00 034201 ER4 AC+1,34201 ;RESULT IN AC+1 IS INCORRECT 1957 031627 321 03 0 00 031620 JUMPL AC+2,E34200 ;LOOP ON ERROR SWITCH^ 1958 1959 ;SHIFT CONNECTIONS TEST 1960 ;TEST AR34 SHRT INP-ZERO'S - ASHC AC,-1 1961 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 1962 SR2 (343,-1,-5,-1,-1,-1,-3,-1,-1,ASHC,-1)^ 1963 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1964 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND 1965 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 1966 ;[XWD -1,-1] 1967 1968 031630 200 01 0 00 036613 E34300: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 1969 031631 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 1970 031632 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1971 031633 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 1972 031634 003 01 0 00 034301 ER3 AC,34301 ;RESULT IN AC IS INCORRECT 1973 031635 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 1974 031636 004 02 0 00 034301 ER4 AC+1,34301 ;RESULT IN AC+1 IS INCORRECT 1975 031637 321 03 0 00 031630 JUMPL AC+2,E34300 ;LOOP ON ERROR SWITCH^ 1976 1977 ;SHIFT CONNECTIONS TEST 1978 ;TEST AR35 SHRT INP-ONE'S - ASHC AC,-1 1979 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1980 SR2 (344,0,2,0,0,0,1,0,0,ASHC,-1)^ 1981 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 1982 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND 1983 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 1984 ;[XWD 0,0] 1985 1986 031640 200 01 0 00 036576 E34400: MOVE AC,[XWD 0,2] ;INITIALIZE AC 1987 031641 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 1988 031642 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 1989 031643 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 1990 031644 003 01 0 00 034401 ER3 AC,34401 ;RESULT IN AC IS INCORRECT 1991 031645 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 1992 031646 004 02 0 00 034401 ER4 AC+1,34401 ;RESULT IN AC+1 IS INCORRECT 1993 031647 321 03 0 00 031640 JUMPL AC+2,E34400 ;LOOP ON ERROR SWITCH^ 1994 1995 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0063 1996 ;TEST AR35 SHRT INP-ZERO'S - ASHC AC,-1 1997 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 1998 SR2 (345,-1,-3,-1,-1,-1,-2,-1,-1,ASHC,-1)^ 1999 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2000 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND 2001 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 2002 ;[XWD -1,-1] 2003 2004 031650 200 01 0 00 036610 E34500: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 2005 031651 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2006 031652 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2007 031653 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 2008 031654 003 01 0 00 034501 ER3 AC,34501 ;RESULT IN AC IS INCORRECT 2009 031655 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 2010 031656 004 02 0 00 034501 ER4 AC+1,34501 ;RESULT IN AC+1 IS INCORRECT 2011 031657 321 03 0 00 031650 JUMPL AC+2,E34500 ;LOOP ON ERROR SWITCH^ 2012 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0064 2013 ;SHIFT CONNECTIONS TEST 2014 ;TEST MQ0 SHRT INP-ONE'S - ASHC AC,-1 2015 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 2016 SR2 (346,400000,0,0,0,600000,0,400000,0,ASHC,-1)^ 2017 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2018 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND 2019 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND 2020 ;[XWD 400000,0] 2021 2022 031660 200 01 0 00 036604 E34600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 2023 031661 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2024 031662 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2025 031663 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT? 2026 031664 003 01 0 00 034601 ER3 AC,34601 ;RESULT IN AC IS INCORRECT 2027 031665 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 2028 031666 004 02 0 00 034601 ER4 AC+1,34601 ;RESULT IN AC+1 IS INCORRECT 2029 031667 321 03 0 00 031660 JUMPL AC+2,E34600 ;LOOP ON ERROR SWITCH^ 2030 2031 ;SHIFT CONNECTIONS TEST 2032 ;TEST MQ0 SHRT INP-ZERO'S - ASHC AC,-1 2033 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 2034 SR2 (347,377777,-1,-1,-1,177777,-1,377777,-1,ASHC,-1)^ 2035 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2036 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND 2037 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND 2038 ;[XWD 377777,-1] 2039 2040 031670 200 01 0 00 036607 E34700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 2041 031671 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2042 031672 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2043 031673 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT? 2044 031674 003 01 0 00 034701 ER3 AC,34701 ;RESULT IN AC IS INCORRECT 2045 031675 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 2046 031676 004 02 0 00 034701 ER4 AC+1,34701 ;RESULT IN AC+1 IS INCORRECT 2047 031677 321 03 0 00 031670 JUMPL AC+2,E34700 ;LOOP ON ERROR SWITCH^ 2048 2049 ;SHIFT CONNECTIONS TEST 2050 ;TEST MQ1 SHRT INP-ONE'S - ASHC AC,-1 2051 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 2052 SR2 (350,0,1,0,0,0,0,200000,0,ASHC,-1)^ 2053 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2054 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND 2055 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2056 ;[XWD 200000,0] 2057 2058 031700 200 01 0 00 036575 E35000: MOVE AC,[XWD 0,1] ;INITIALIZE AC 2059 031701 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2060 031702 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2061 031703 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2062 031704 003 01 0 00 035001 ER3 AC,35001 ;RESULT IN AC IS INCORRECT 2063 031705 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 2064 031706 004 02 0 00 035001 ER4 AC+1,35001 ;RESULT IN AC+1 IS INCORRECT 2065 031707 321 03 0 00 031700 JUMPL AC+2,E35000 ;LOOP ON ERROR SWITCH^ 2066 2067 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0065 2068 ;TEST MQ1 SHRT INP-ZERO'S - ASHC AC,-1 2069 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 2070 SR2 (351,-1,-2,-1,-1,-1,-1,577777,-1,ASHC,-1)^ 2071 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2072 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND 2073 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2074 ;[XWD 577777,-1] 2075 2076 031710 200 01 0 00 036573 E35100: MOVE AC,[XWD -1,-2] ;INITIALIZE AC 2077 031711 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2078 031712 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2079 031713 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2080 031714 003 01 0 00 035101 ER3 AC,35101 ;RESULT IN AC IS INCORRECT 2081 031715 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 2082 031716 004 02 0 00 035101 ER4 AC+1,35101 ;RESULT IN AC+1 IS INCORRECT 2083 031717 321 03 0 00 031710 JUMPL AC+2,E35100 ;LOOP ON ERROR SWITCH^ 2084 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0066 2085 ;SHIFT CONNECTIONS TEST 2086 ;TEST MQ34 SHRT INP-ONE'S - ASHC AC,-1 2087 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 2088 SR2 (352,0,0,0,4,0,0,0,2,ASHC,-1)^ 2089 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2090 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND 2091 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2092 ;[XWD 0,2] 2093 2094 031720 200 01 0 00 036574 E35200: MOVE AC,[XWD 0,0] ;INITIALIZE AC 2095 031721 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 2096 031722 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2097 031723 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2098 031724 003 01 0 00 035201 ER3 AC,35201 ;RESULT IN AC IS INCORRECT 2099 031725 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 2100 031726 004 02 0 00 035201 ER4 AC+1,35201 ;RESULT IN AC+1 IS INCORRECT 2101 031727 321 03 0 00 031720 JUMPL AC+2,E35200 ;LOOP ON ERROR SWITCH^ 2102 2103 ;SHIFT CONNECTIONS TEST 2104 ;TEST MQ34 SHRT INP-ZERO'S - ASHC AC,-1 2105 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 2106 SR2 (353,-1,-1,-1,-5,-1,-1,-1,-3,ASHC,-1)^ 2107 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2108 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND 2109 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2110 ;[XWD -1,-3] 2111 2112 031730 200 01 0 00 036572 E35300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 2113 031731 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 2114 031732 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2115 031733 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2116 031734 003 01 0 00 035301 ER3 AC,35301 ;RESULT IN AC IS INCORRECT 2117 031735 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 2118 031736 004 02 0 00 035301 ER4 AC+1,35301 ;RESULT IN AC+1 IS INCORRECT 2119 031737 321 03 0 00 031730 JUMPL AC+2,E35300 ;LOOP ON ERROR SWITCH^ 2120 2121 ;SHIFT CONNECTIONS TEST 2122 ;TEST MQ35 SHRT INP-ONE'S - ASHC AC,-1 2123 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 2124 SR2 (354,0,0,0,2,0,0,0,1,ASHC,-1)^ 2125 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2126 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND 2127 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2128 ;[XWD 0,1] 2129 2130 031740 200 01 0 00 036574 E35400: MOVE AC,[XWD 0,0] ;INITIALIZE AC 2131 031741 200 02 0 00 036576 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1 2132 031742 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2133 031743 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2134 031744 003 01 0 00 035401 ER3 AC,35401 ;RESULT IN AC IS INCORRECT 2135 031745 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 2136 031746 004 02 0 00 035401 ER4 AC+1,35401 ;RESULT IN AC+1 IS INCORRECT 2137 031747 321 03 0 00 031740 JUMPL AC+2,E35400 ;LOOP ON ERROR SWITCH^ 2138 2139 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0067 2140 ;TEST MQ35 SHRT INP-ZERO'S - ASHC AC,-1 2141 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 2142 SR2 (355,-1,-1,-1,-3,-1,-1,-1,-2,ASHC,-1)^ 2143 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2144 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND 2145 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2146 ;[XWD -1,-2] 2147 2148 031750 200 01 0 00 036572 E35500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 2149 031751 200 02 0 00 036610 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1 2150 031752 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2151 031753 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2152 031754 003 01 0 00 035501 ER3 AC,35501 ;RESULT IN AC IS INCORRECT 2153 031755 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 2154 031756 004 02 0 00 035501 ER4 AC+1,35501 ;RESULT IN AC+1 IS INCORRECT 2155 031757 321 03 0 00 031750 JUMPL AC+2,E35500 ;LOOP ON ERROR SWITCH^ 2156 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0068 2157 ;SHIFT CONNECTIONS TEST 2158 ;TEST AR0 SHRT INP-ONE'S - ASHC AC,-2 2159 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 2160 SR2 (356,400000,0,400000,0,700000,0,400000,0,ASHC,-2)^ 2161 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2162 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -2 BIT POSITIONS AND 2163 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND 2164 ;[XWD 400000,0] 2165 2166 031760 200 01 0 00 036604 E35600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 2167 031761 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 2168 031762 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2169 031763 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT? 2170 031764 003 01 0 00 035601 ER3 AC,35601 ;RESULT IN AC IS INCORRECT 2171 031765 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 2172 031766 004 02 0 00 035601 ER4 AC+1,35601 ;RESULT IN AC+1 IS INCORRECT 2173 031767 321 03 0 00 031760 JUMPL AC+2,E35600 ;LOOP ON ERROR SWITCH^ 2174 2175 ;SHIFT CONNECTIONS TEST 2176 ;TEST AR0 SHRT INP-ZERO'S - ASHC AC,-2 2177 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 2178 SR2 (357,377777,-1,377777,-1,077777,-1,377777,-1,ASHC,-2)^ 2179 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2180 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -2 BIT POSITIONS AND 2181 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND 2182 ;[XWD 377777,-1] 2183 2184 031770 200 01 0 00 036607 E35700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 2185 031771 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 2186 031772 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2187 031773 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT? 2188 031774 003 01 0 00 035701 ER3 AC,35701 ;RESULT IN AC IS INCORRECT 2189 031775 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 2190 031776 004 02 0 00 035701 ER4 AC+1,35701 ;RESULT IN AC+1 IS INCORRECT 2191 031777 321 03 0 00 031770 JUMPL AC+2,E35700 ;LOOP ON ERROR SWITCH^ 2192 2193 ;SHIFT CONNECTIONS TEST 2194 ;TEST AR1 SHRT INP-ONE'S - ASHC AC,-2 2195 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 2196 SR2 (360,400000,0,400000,0,700000,0,400000,0,ASHC,-2)^ 2197 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2198 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -2 BIT POSITIONS AND 2199 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND 2200 ;[XWD 400000,0] 2201 2202 032000 200 01 0 00 036604 E36000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 2203 032001 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1 2204 032002 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2205 032003 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT? 2206 032004 003 01 0 00 036001 ER3 AC,36001 ;RESULT IN AC IS INCORRECT 2207 032005 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 2208 032006 004 02 0 00 036001 ER4 AC+1,36001 ;RESULT IN AC+1 IS INCORRECT 2209 032007 321 03 0 00 032000 JUMPL AC+2,E36000 ;LOOP ON ERROR SWITCH^ 2210 2211 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0069 2212 ;TEST AR1 SHRT INP-ZERO'S - ASHC AC,-2 2213 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 2214 SR2 (361,377777,-1,377777,-1,077777,-1,377777,-1,ASHC,-2)^ 2215 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2216 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -2 BIT POSITIONS AND 2217 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND 2218 ;[XWD 377777,-1] 2219 2220 032010 200 01 0 00 036607 E36100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 2221 032011 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1 2222 032012 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2223 032013 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT? 2224 032014 003 01 0 00 036101 ER3 AC,36101 ;RESULT IN AC IS INCORRECT 2225 032015 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 2226 032016 004 02 0 00 036101 ER4 AC+1,36101 ;RESULT IN AC+1 IS INCORRECT 2227 032017 321 03 0 00 032010 JUMPL AC+2,E36100 ;LOOP ON ERROR SWITCH^ 2228 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0070 2229 ;SHIFT CONNECTIONS TEST 2230 ;TEST AR34 SHRT INP-ONE'S - ASHC AC,-2 2231 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 2232 SR2 (362,0,10,0,0,0,2,0,0,ASHC,-2)^ 2233 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2234 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND 2235 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND 2236 ;[XWD 0,0] 2237 2238 032020 200 01 0 00 036615 E36200: MOVE AC,[XWD 0,10] ;INITIALIZE AC 2239 032021 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2240 032022 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2241 032023 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT? 2242 032024 003 01 0 00 036201 ER3 AC,36201 ;RESULT IN AC IS INCORRECT 2243 032025 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 2244 032026 004 02 0 00 036201 ER4 AC+1,36201 ;RESULT IN AC+1 IS INCORRECT 2245 032027 321 03 0 00 032020 JUMPL AC+2,E36200 ;LOOP ON ERROR SWITCH^ 2246 2247 ;SHIFT CONNECTIONS TEST 2248 ;TEST AR34 SHRT INP-ZERO'S - ASHC AC,-2 2249 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 2250 SR2 (363,-1,-11,-1,-1,-1,-3,-1,-1,ASHC,-2)^ 2251 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2252 ;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND 2253 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND 2254 ;[XWD -1,-1] 2255 2256 032030 200 01 0 00 036616 E36300: MOVE AC,[XWD -1,-11] ;INITIALIZE AC 2257 032031 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2258 032032 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2259 032033 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT? 2260 032034 003 01 0 00 036301 ER3 AC,36301 ;RESULT IN AC IS INCORRECT 2261 032035 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 2262 032036 004 02 0 00 036301 ER4 AC+1,36301 ;RESULT IN AC+1 IS INCORRECT 2263 032037 321 03 0 00 032030 JUMPL AC+2,E36300 ;LOOP ON ERROR SWITCH^ 2264 2265 ;SHIFT CONNECTIONS TEST 2266 ;TEST AR35 SHRT INP-ONE'S - ASHC AC,-2 2267 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 2268 SR2 (364,0,4,0,0,0,1,0,0,ASHC,-2)^ 2269 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2270 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND 2271 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND 2272 ;[XWD 0,0] 2273 2274 032040 200 01 0 00 036612 E36400: MOVE AC,[XWD 0,4] ;INITIALIZE AC 2275 032041 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2276 032042 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2277 032043 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT? 2278 032044 003 01 0 00 036401 ER3 AC,36401 ;RESULT IN AC IS INCORRECT 2279 032045 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT? 2280 032046 004 02 0 00 036401 ER4 AC+1,36401 ;RESULT IN AC+1 IS INCORRECT 2281 032047 321 03 0 00 032040 JUMPL AC+2,E36400 ;LOOP ON ERROR SWITCH^ 2282 2283 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0071 2284 ;TEST AR35 SHRT INP-ZERO'S - ASHC AC,-2 2285 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 2286 SR2 (365,-1,-5,-1,-1,-1,-2,-1,-1,ASHC,-2)^ 2287 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2288 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND 2289 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND 2290 ;[XWD -1,-1] 2291 2292 032050 200 01 0 00 036613 E36500: MOVE AC,[XWD -1,-5] ;INITIALIZE AC 2293 032051 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2294 032052 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2295 032053 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT? 2296 032054 003 01 0 00 036501 ER3 AC,36501 ;RESULT IN AC IS INCORRECT 2297 032055 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT? 2298 032056 004 02 0 00 036501 ER4 AC+1,36501 ;RESULT IN AC+1 IS INCORRECT 2299 032057 321 03 0 00 032050 JUMPL AC+2,E36500 ;LOOP ON ERROR SWITCH^ 2300 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0072 2301 ;SHIFT CONNECTIONS TEST 2302 ;TEST MQ0 SHRT INP-ONE'S - ASHC AC,-2 2303 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 2304 SR2 (366,400000,0,0,0,700000,0,400000,0,ASHC,-2)^ 2305 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2306 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -2 BIT POSITIONS AND 2307 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND 2308 ;[XWD 400000,0] 2309 2310 032060 200 01 0 00 036604 E36600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC 2311 032061 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2312 032062 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2313 032063 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT? 2314 032064 003 01 0 00 036601 ER3 AC,36601 ;RESULT IN AC IS INCORRECT 2315 032065 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT? 2316 032066 004 02 0 00 036601 ER4 AC+1,36601 ;RESULT IN AC+1 IS INCORRECT 2317 032067 321 03 0 00 032060 JUMPL AC+2,E36600 ;LOOP ON ERROR SWITCH^ 2318 2319 ;SHIFT CONNECTIONS TEST 2320 ;TEST MQ0 SHRT INP-ZERO'S - ASHC AC,-2 2321 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ 2322 SR2 (367,377777,-1,-1,-1,077777,-1,377777,-1,ASHC,-2)^ 2323 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2324 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND 2325 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND 2326 ;[XWD 377777,-1] 2327 2328 032070 200 01 0 00 036607 E36700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC 2329 032071 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2330 032072 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2331 032073 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT? 2332 032074 003 01 0 00 036701 ER3 AC,36701 ;RESULT IN AC IS INCORRECT 2333 032075 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT? 2334 032076 004 02 0 00 036701 ER4 AC+1,36701 ;RESULT IN AC+1 IS INCORRECT 2335 032077 321 03 0 00 032070 JUMPL AC+2,E36700 ;LOOP ON ERROR SWITCH^ 2336 2337 ;SHIFT CONNECTIONS TEST 2338 ;TEST MQ1 SHRT INP-ONE'S - ASHC AC,-2 2339 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 2340 SR2 (370,0,2,0,0,0,0,200000,0,ASHC,-2)^ 2341 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2342 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND 2343 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2344 ;[XWD 200000,0] 2345 2346 032100 200 01 0 00 036576 E37000: MOVE AC,[XWD 0,2] ;INITIALIZE AC 2347 032101 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1 2348 032102 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2349 032103 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2350 032104 003 01 0 00 037001 ER3 AC,37001 ;RESULT IN AC IS INCORRECT 2351 032105 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT? 2352 032106 004 02 0 00 037001 ER4 AC+1,37001 ;RESULT IN AC+1 IS INCORRECT 2353 032107 321 03 0 00 032100 JUMPL AC+2,E37000 ;LOOP ON ERROR SWITCH^ 2354 2355 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0073 2356 ;TEST MQ1 SHRT INP-ZERO'S - ASHC AC,-2 2357 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ 2358 SR2 (371,-1,-3,-1,-1,-1,-1,577777,-1,ASHC,-2)^ 2359 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2360 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND 2361 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2362 ;[XWD 577777,-1] 2363 2364 032110 200 01 0 00 036610 E37100: MOVE AC,[XWD -1,-3] ;INITIALIZE AC 2365 032111 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1 2366 032112 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2367 032113 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2368 032114 003 01 0 00 037101 ER3 AC,37101 ;RESULT IN AC IS INCORRECT 2369 032115 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT? 2370 032116 004 02 0 00 037101 ER4 AC+1,37101 ;RESULT IN AC+1 IS INCORRECT 2371 032117 321 03 0 00 032110 JUMPL AC+2,E37100 ;LOOP ON ERROR SWITCH^ 2372 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0074 2373 ;SHIFT CONNECTIONS TEST 2374 ;TEST MQ34 SHRT INP-ONE'S - ASHC AC,-2 2375 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 2376 SR2 (372,0,0,0,10,0,0,0,2,ASHC,-2)^ 2377 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2378 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND 2379 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2380 ;[XWD 0,2] 2381 2382 032120 200 01 0 00 036574 E37200: MOVE AC,[XWD 0,0] ;INITIALIZE AC 2383 032121 200 02 0 00 036615 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1 2384 032122 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2385 032123 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2386 032124 003 01 0 00 037201 ER3 AC,37201 ;RESULT IN AC IS INCORRECT 2387 032125 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT? 2388 032126 004 02 0 00 037201 ER4 AC+1,37201 ;RESULT IN AC+1 IS INCORRECT 2389 032127 321 03 0 00 032120 JUMPL AC+2,E37200 ;LOOP ON ERROR SWITCH^ 2390 2391 ;SHIFT CONNECTIONS TEST 2392 ;TEST MQ34 SHRT INP-ZERO'S - ASHC AC,-2 2393 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ 2394 SR2 (373,-1,-1,-1,-11,-1,-1,-1,-3,ASHC,-2)^ 2395 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2396 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND 2397 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2398 ;[XWD -1,-3] 2399 2400 032130 200 01 0 00 036572 E37300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 2401 032131 200 02 0 00 036616 MOVE AC+1,[XWD -1,-11] ;INITIALIZE AC+1 2402 032132 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2403 032133 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2404 032134 003 01 0 00 037301 ER3 AC,37301 ;RESULT IN AC IS INCORRECT 2405 032135 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT? 2406 032136 004 02 0 00 037301 ER4 AC+1,37301 ;RESULT IN AC+1 IS INCORRECT 2407 032137 321 03 0 00 032130 JUMPL AC+2,E37300 ;LOOP ON ERROR SWITCH^ 2408 2409 ;SHIFT CONNECTIONS TEST 2410 ;TEST MQ35 SHRT INP-ONE'S - ASHC AC,-2 2411 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 2412 SR2 (374,0,0,0,4,0,0,0,1,ASHC,-2)^ 2413 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2414 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND 2415 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND 2416 ;[XWD 0,1] 2417 2418 032140 200 01 0 00 036574 E37400: MOVE AC,[XWD 0,0] ;INITIALIZE AC 2419 032141 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1 2420 032142 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2421 032143 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT? 2422 032144 003 01 0 00 037401 ER3 AC,37401 ;RESULT IN AC IS INCORRECT 2423 032145 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT? 2424 032146 004 02 0 00 037401 ER4 AC+1,37401 ;RESULT IN AC+1 IS INCORRECT 2425 032147 321 03 0 00 032140 JUMPL AC+2,E37400 ;LOOP ON ERROR SWITCH^ 2426 2427 ;SHIFT CONNECTIONS TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0075 2428 ;TEST MQ35 SHRT INP-ZERO'S - ASHC AC,-2 2429 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ 2430 SR2 (375,-1,-1,-1,-5,-1,-1,-1,-2,ASHC,-2)^ 2431 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2432 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND 2433 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND 2434 ;[XWD -1,-2] 2435 2436 032150 200 01 0 00 036572 E37500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC 2437 032151 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1 2438 032152 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2439 032153 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT? 2440 032154 003 01 0 00 037501 ER3 AC,37501 ;RESULT IN AC IS INCORRECT 2441 032155 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT? 2442 032156 004 02 0 00 037501 ER4 AC+1,37501 ;RESULT IN AC+1 IS INCORRECT 2443 032157 321 03 0 00 032150 JUMPL AC+2,E37500 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0076 2444 SUBTTL DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST 2445 2446 ;BIT POSITION RELIABILITY TEST 2447 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2448 SR1 (445,252525,252525,525252,525252,ROT,1)^ 2449 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 252525,252525] 1 BIT 2450 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 525252,525252] 2451 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2452 2453 032160 200 01 0 00 036624 E44500: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC 2454 032161 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2455 032162 241 01 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 2456 032163 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT? 2457 032164 003 01 0 00 044501 ER3 AC,44501 ;RESULT IN AC IS INCORRECT 2458 032165 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2459 032166 004 02 0 00 044501 ER4 AC+1,44501 ;C(AC+1) WAS MODIFIED INCORRECTLY 2460 032167 321 03 0 00 032160 JUMPL AC+2,E44500 ;LOOP ON ERROR SWITCH^ 2461 2462 ;BIT POSITION RELIABILITY TEST 2463 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2464 SR1 (446,525252,525252,252525,252525,ROT,1)^ 2465 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 525252,525252] 1 BIT 2466 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 252525,252525] 2467 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2468 2469 032170 200 01 0 00 036626 E44600: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC 2470 032171 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2471 032172 241 01 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 2472 032173 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT? 2473 032174 003 01 0 00 044601 ER3 AC,44601 ;RESULT IN AC IS INCORRECT 2474 032175 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2475 032176 004 02 0 00 044601 ER4 AC+1,44601 ;C(AC+1) WAS MODIFIED INCORRECTLY 2476 032177 321 03 0 00 032170 JUMPL AC+2,E44600 ;LOOP ON ERROR SWITCH^ 2477 2478 ;BIT POSITION RELIABILITY TEST 2479 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2480 SR1 (447,252525,252525,525252,525252,ROT,-1)^ 2481 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 252525,252525] -1 BIT 2482 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 525252,525252] 2483 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2484 2485 032200 200 01 0 00 036624 E44700: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC 2486 032201 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2487 032202 241 01 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 2488 032203 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT? 2489 032204 003 01 0 00 044701 ER3 AC,44701 ;RESULT IN AC IS INCORRECT 2490 032205 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2491 032206 004 02 0 00 044701 ER4 AC+1,44701 ;C(AC+1) WAS MODIFIED INCORRECTLY 2492 032207 321 03 0 00 032200 JUMPL AC+2,E44700 ;LOOP ON ERROR SWITCH^ 2493 2494 ;BIT POSITION RELIABILITY TEST 2495 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2496 SR1 (450,525252,525252,252525,252525,ROT,-1)^ 2497 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 525252,525252] -1 BIT 2498 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 252525,252525] DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0077 2499 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2500 2501 032210 200 01 0 00 036626 E45000: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC 2502 032211 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2503 032212 241 01 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS 2504 032213 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT? 2505 032214 003 01 0 00 045001 ER3 AC,45001 ;RESULT IN AC IS INCORRECT 2506 032215 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2507 032216 004 02 0 00 045001 ER4 AC+1,45001 ;C(AC+1) WAS MODIFIED INCORRECTLY 2508 032217 321 03 0 00 032210 JUMPL AC+2,E45000 ;LOOP ON ERROR SWITCH^ 2509 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0078 2510 ;BIT POSITION RELIABILITY TEST 2511 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2512 SR1 (451,146314,631463,631463,146314,ROT,-2)^ 2513 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 146314,631463] -2 BIT 2514 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 631463,146314] 2515 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2516 2517 032220 200 01 0 00 036627 E45100: MOVE AC,[XWD 146314,631463] ;INITIALIZE AC 2518 032221 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2519 032222 241 01 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 2520 032223 312 01 0 00 036630 CAME AC,[XWD 631463,146314] ;IS RESULT IN AC CORRECT? 2521 032224 003 01 0 00 045101 ER3 AC,45101 ;RESULT IN AC IS INCORRECT 2522 032225 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2523 032226 004 02 0 00 045101 ER4 AC+1,45101 ;C(AC+1) WAS MODIFIED INCORRECTLY 2524 032227 321 03 0 00 032220 JUMPL AC+2,E45100 ;LOOP ON ERROR SWITCH^ 2525 2526 ;BIT POSITION RELIABILITY TEST 2527 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2528 SR1 (452,631463,146314,146314,631463,ROT,-2)^ 2529 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 631463,146314] -2 BIT 2530 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 146314,631463] 2531 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 2532 2533 032230 200 01 0 00 036630 E45200: MOVE AC,[XWD 631463,146314] ;INITIALIZE AC 2534 032231 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 2535 032232 241 01 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS 2536 032233 312 01 0 00 036627 CAME AC,[XWD 146314,631463] ;IS RESULT IN AC CORRECT? 2537 032234 003 01 0 00 045201 ER3 AC,45201 ;RESULT IN AC IS INCORRECT 2538 032235 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417] 2539 032236 004 02 0 00 045201 ER4 AC+1,45201 ;C(AC+1) WAS MODIFIED INCORRECTLY 2540 032237 321 03 0 00 032230 JUMPL AC+2,E45200 ;LOOP ON ERROR SWITCH^ 2541 2542 ;BIT POSITION RELIABILITY TEST 2543 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2544 SR2 (453,252525,252525,252525,252525,525252,525252,525252,525252,ROTC,1)^ 2545 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2546 ;DATA SPECIFIED IN [XWD 252525,252525] AND [XWD 252525,252525] 1 BIT POSITIONS AND 2547 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 525252,525252] AND 2548 ;[XWD 525252,525252] 2549 2550 032240 200 01 0 00 036624 E45300: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC 2551 032241 200 02 0 00 036624 MOVE AC+1,[XWD 252525,252525] ;INITIALIZE AC+1 2552 032242 245 01 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 2553 032243 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT? 2554 032244 003 01 0 00 045301 ER3 AC,45301 ;RESULT IN AC IS INCORRECT 2555 032245 312 02 0 00 036626 CAME AC+1,[XWD 525252,525252] ;IS RESULT IN AC+1 CORRECT? 2556 032246 004 02 0 00 045301 ER4 AC+1,45301 ;RESULT IN AC+1 IS INCORRECT 2557 032247 321 03 0 00 032240 JUMPL AC+2,E45300 ;LOOP ON ERROR SWITCH^ 2558 2559 ;BIT POSITION RELIABILITY TEST 2560 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2561 SR2 (454,525252,525252,525252,525252,252525,252525,252525,252525,ROTC,1)^ 2562 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2563 ;DATA SPECIFIED IN [XWD 525252,525252] AND [XWD 525252,525252] 1 BIT POSITIONS AND 2564 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 252525,252525] AND DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0079 2565 ;[XWD 252525,252525] 2566 2567 032250 200 01 0 00 036626 E45400: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC 2568 032251 200 02 0 00 036626 MOVE AC+1,[XWD 525252,525252] ;INITIALIZE AC+1 2569 032252 245 01 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES 2570 032253 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT? 2571 032254 003 01 0 00 045401 ER3 AC,45401 ;RESULT IN AC IS INCORRECT 2572 032255 312 02 0 00 036624 CAME AC+1,[XWD 252525,252525] ;IS RESULT IN AC+1 CORRECT? 2573 032256 004 02 0 00 045401 ER4 AC+1,45401 ;RESULT IN AC+1 IS INCORRECT 2574 032257 321 03 0 00 032250 JUMPL AC+2,E45400 ;LOOP ON ERROR SWITCH^ 2575 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0080 2576 ;BIT POSITION RELIABILITY TEST 2577 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2578 SR2 (455,252525,252525,252525,252525,525252,525252,525252,525252,ROTC,-1)^ 2579 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2580 ;DATA SPECIFIED IN [XWD 252525,252525] AND [XWD 252525,252525] -1 BIT POSITIONS AND 2581 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 525252,525252] AND 2582 ;[XWD 525252,525252] 2583 2584 032260 200 01 0 00 036624 E45500: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC 2585 032261 200 02 0 00 036624 MOVE AC+1,[XWD 252525,252525] ;INITIALIZE AC+1 2586 032262 245 01 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2587 032263 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT? 2588 032264 003 01 0 00 045501 ER3 AC,45501 ;RESULT IN AC IS INCORRECT 2589 032265 312 02 0 00 036626 CAME AC+1,[XWD 525252,525252] ;IS RESULT IN AC+1 CORRECT? 2590 032266 004 02 0 00 045501 ER4 AC+1,45501 ;RESULT IN AC+1 IS INCORRECT 2591 032267 321 03 0 00 032260 JUMPL AC+2,E45500 ;LOOP ON ERROR SWITCH^ 2592 2593 ;BIT POSITION RELIABILITY TEST 2594 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2595 SR2 (456,525252,525252,525252,525252,252525,252525,252525,252525,ROTC,-1)^ 2596 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2597 ;DATA SPECIFIED IN [XWD 525252,525252] AND [XWD 525252,525252] -1 BIT POSITIONS AND 2598 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 252525,252525] AND 2599 ;[XWD 252525,252525] 2600 2601 032270 200 01 0 00 036626 E45600: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC 2602 032271 200 02 0 00 036626 MOVE AC+1,[XWD 525252,525252] ;INITIALIZE AC+1 2603 032272 245 01 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES 2604 032273 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT? 2605 032274 003 01 0 00 045601 ER3 AC,45601 ;RESULT IN AC IS INCORRECT 2606 032275 312 02 0 00 036624 CAME AC+1,[XWD 252525,252525] ;IS RESULT IN AC+1 CORRECT? 2607 032276 004 02 0 00 045601 ER4 AC+1,45601 ;RESULT IN AC+1 IS INCORRECT 2608 032277 321 03 0 00 032270 JUMPL AC+2,E45600 ;LOOP ON ERROR SWITCH^ 2609 2610 ;BIT POSITION RELIABILITY TEST 2611 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2612 SR2 (457,146314,631463,146314,631463,631463,146314,631463,146314,ROTC,-2)^ 2613 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 2614 ;DATA SPECIFIED IN [XWD 146314,631463] AND [XWD 146314,631463] -2 BIT POSITIONS AND 2615 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 631463,146314] AND 2616 ;[XWD 631463,146314] 2617 2618 032300 200 01 0 00 036627 E45700: MOVE AC,[XWD 146314,631463] ;INITIALIZE AC 2619 032301 200 02 0 00 036627 MOVE AC+1,[XWD 146314,631463] ;INITIALIZE AC+1 2620 032302 245 01 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2621 032303 312 01 0 00 036630 CAME AC,[XWD 631463,146314] ;IS RESULT IN AC CORRECT? 2622 032304 003 01 0 00 045701 ER3 AC,45701 ;RESULT IN AC IS INCORRECT 2623 032305 312 02 0 00 036630 CAME AC+1,[XWD 631463,146314] ;IS RESULT IN AC+1 CORRECT? 2624 032306 004 02 0 00 045701 ER4 AC+1,45701 ;RESULT IN AC+1 IS INCORRECT 2625 032307 321 03 0 00 032300 JUMPL AC+2,E45700 ;LOOP ON ERROR SWITCH^ 2626 2627 ;BIT POSITION RELIABILITY TEST 2628 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS 2629 SR2 (460,631463,146314,631463,146314,146314,631463,146314,631463,ROTC,-2)^ 2630 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0081 2631 ;DATA SPECIFIED IN [XWD 631463,146314] AND [XWD 631463,146314] -2 BIT POSITIONS AND 2632 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 146314,631463] AND 2633 ;[XWD 146314,631463] 2634 2635 032310 200 01 0 00 036630 E46000: MOVE AC,[XWD 631463,146314] ;INITIALIZE AC 2636 032311 200 02 0 00 036630 MOVE AC+1,[XWD 631463,146314] ;INITIALIZE AC+1 2637 032312 245 01 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES 2638 032313 312 01 0 00 036627 CAME AC,[XWD 146314,631463] ;IS RESULT IN AC CORRECT? 2639 032314 003 01 0 00 046001 ER3 AC,46001 ;RESULT IN AC IS INCORRECT 2640 032315 312 02 0 00 036627 CAME AC+1,[XWD 146314,631463] ;IS RESULT IN AC+1 CORRECT? 2641 032316 004 02 0 00 046001 ER4 AC+1,46001 ;RESULT IN AC+1 IS INCORRECT 2642 032317 321 03 0 00 032310 JUMPL AC+2,E46000 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 15 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC GATING TEST SEQ 0082 2643 SUBTTL DIAGNOSTIC SECTION - SC GATING TEST 2644 2645 000005 AC=5 2646 SAVEAC (1,1)^ 2647 032320 201 07 0 00 032320 MOVEI AC+2,. ;SAVE TEST PC 2648 032321 202 07 0 00 030051 MOVEM AC+2,TESTPC 2649 032322 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2650 032323 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2651 2652 037600 SN=37600 2653 000017 ZZ=17 2654 2655 E37600: REPEAT ^D3,< ;SHIFT LEFT 2656 ;TEST SC HIGH ORDER BITS 2657 ;TEST THE ABILITY TO SET THE FOUR MOST 2658 ;SIGNIFICANT BITS 2659 ;AC IS LOGICALLY SHIFTED LEFT 2660 ;AND TESTED 2661 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT 2662 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO 2663 ;FOLLOWING A SHIFT 2664 ;FAILURE TO SET SC BIT 1,2 OR 2665 ;3 WILL RESULT IN EXCESSIVE SHIFTING 2666 2667 SN=SN+1 2668 ZZ=ZZ+1 2669 MOVEI AC,1 ;SET BIT 35 2670 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES 2671 CAIN AC,1 ;TEST FOR SHIFT 2672 ER3 AC,SN ;SC BIT 0 FAILED TO SET 2673 SKIPN AC ;SHIFT EXCEEDED OCTAL 44 2674 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2675 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2676 > 2677 ;SHIFT LEFT 2678 ;TEST SC HIGH ORDER BITS 2679 ;TEST THE ABILITY TO SET THE FOUR MOST 2680 ;SIGNIFICANT BITS 2681 ;AC IS LOGICALLY SHIFTED LEFT 2682 ;AND TESTED 2683 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT 2684 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO 2685 ;FOLLOWING A SHIFT 2686 ;FAILURE TO SET SC BIT 1,2 OR 2687 ;3 WILL RESULT IN EXCESSIVE SHIFTING 2688 2689 037601 SN=SN+1 2690 000020 ZZ=ZZ+1 2691 032324 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 2692 032325 242 05 0 00 000020 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES 2693 032326 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT 2694 032327 003 05 0 00 037601 ER3 AC,SN ;SC BIT 0 FAILED TO SET 2695 032330 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44 2696 032331 003 05 0 00 037601 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2697 032332 321 07 0 00 032324 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 15-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC GATING TEST SEQ 0083 2698 2699 ;SHIFT LEFT 2700 ;TEST SC HIGH ORDER BITS 2701 ;TEST THE ABILITY TO SET THE FOUR MOST 2702 ;SIGNIFICANT BITS 2703 ;AC IS LOGICALLY SHIFTED LEFT 2704 ;AND TESTED 2705 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT 2706 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO 2707 ;FOLLOWING A SHIFT 2708 ;FAILURE TO SET SC BIT 1,2 OR 2709 ;3 WILL RESULT IN EXCESSIVE SHIFTING 2710 2711 037602 SN=SN+1 2712 000021 ZZ=ZZ+1 2713 032333 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 2714 032334 242 05 0 00 000021 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES 2715 032335 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT 2716 032336 003 05 0 00 037602 ER3 AC,SN ;SC BIT 0 FAILED TO SET 2717 032337 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44 2718 032340 003 05 0 00 037602 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2719 032341 321 07 0 00 032333 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2720 2721 ;SHIFT LEFT 2722 ;TEST SC HIGH ORDER BITS 2723 ;TEST THE ABILITY TO SET THE FOUR MOST 2724 ;SIGNIFICANT BITS 2725 ;AC IS LOGICALLY SHIFTED LEFT 2726 ;AND TESTED 2727 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT 2728 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO 2729 ;FOLLOWING A SHIFT 2730 ;FAILURE TO SET SC BIT 1,2 OR 2731 ;3 WILL RESULT IN EXCESSIVE SHIFTING 2732 2733 037603 SN=SN+1 2734 000022 ZZ=ZZ+1 2735 032342 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 2736 032343 242 05 0 00 000022 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES 2737 032344 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT 2738 032345 003 05 0 00 037603 ER3 AC,SN ;SC BIT 0 FAILED TO SET 2739 032346 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44 2740 032347 003 05 0 00 037603 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2741 032350 321 07 0 00 032342 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2742 2743 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 16 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0084 2744 SUBTTL DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST 2745 2746 ;TEST SC AR EN 2747 ;TEST THE ABILITY OF SC AR EN TO 2748 ;AFFECT A TRANSFER BETWEEN SC AND AR 2749 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2750 ;WILL AFFECT TEST 2751 ;AC IS ROTATED LEFT/RIGHT AND TESTED FOR 2752 ;EVIDENCE OF ROTATE 2753 2754 000007 AC=7 2755 SAVEAC (1,1)^ 2756 032351 201 11 0 00 032351 MOVEI AC+2,. ;SAVE TEST PC 2757 032352 202 11 0 00 030051 MOVEM AC+2,TESTPC 2758 032353 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2759 032354 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2760 2761 032355 201 07 0 00 000001 E37700: MOVEI AC,1 ;SET BIT 35 2762 032356 241 07 0 00 777773 ROT AC,-5 ;*ROTATE RIGHT 2763 032357 241 07 0 00 000007 ROT AC,7 ;*ROTATE LEFT 2764 032360 306 07 0 00 000001 CAIN AC,1 ;TEST FOR PRESENCE 2765 032361 003 07 0 00 037701 ER3 AC,37701 ;OF PULSE 2766 032362 321 11 0 00 032355 JUMPL AC+2,E37700 ;LOOP ON ERROR SWITCH 2767 2768 ;TEST PULSE WITH SC BITS 5-8 2769 032363 201 07 0 00 000001 E40000: MOVEI AC,1 ;SET BIT 35 2770 032364 241 07 0 00 000017 ROT AC,17 ;*ROTATE LEFT 2771 032365 306 07 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE LEFT 2772 032366 003 07 0 00 040001 ER3 AC,40001 ;SC AR EN FAILED 2773 032367 321 11 0 00 032363 JUMPL AC+2,E40000 ;LOOP ON ERROR SWITCH 2774 2775 ;TEST PULSE WITH SC BITS 4-8 2776 032370 201 07 0 00 000001 E40100: MOVEI AC,1 ;SET BIT 35 2777 032371 241 07 0 00 000037 ROT AC,37 ;*ROTATE LEFT 2778 032372 306 07 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE LEFT 2779 032373 003 07 0 00 040101 ER3 AC,40101 ;TEST FOR ROTATE LEFT 2780 032374 321 11 0 00 032370 JUMPL AC+2,E40100 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0085 2781 000006 AC=6 2782 SAVEAC (1,1)^ 2783 032375 201 10 0 00 032375 MOVEI AC+2,. ;SAVE TEST PC 2784 032376 202 10 0 00 030051 MOVEM AC+2,TESTPC 2785 032377 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2786 032400 202 10 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2787 2788 040200 SN=40200 2789 000000 ZZ=0 2790 2791 E40200: REPEAT ^D8,< 2792 ;TEST SC-AR CONNECTION-ONE'S 2793 ;TEST THE ABILITY OF SC AR EN 2794 ;TO TRANSFER ONE'S TO SC 2795 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2796 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2797 ;WILL AFFECT TEST 2798 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2799 ;RESULTS IN NO ROTATE 2800 2801 SN=SN+1 2802 ZZ=ZZ+ZZ 2803 IFE ZZ, 2804 MOVEI AC,1 ;SET BIT 35 2805 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2806 CAIN AC,1 ;TEST FOR ROTATE 2807 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2808 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2809 > 2810 2811 ;TEST SC-AR CONNECTION-ONE'S 2812 ;TEST THE ABILITY OF SC AR EN 2813 ;TO TRANSFER ONE'S TO SC 2814 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2815 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2816 ;WILL AFFECT TEST 2817 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2818 ;RESULTS IN NO ROTATE 2819 2820 040201 SN=SN+1 2821 000000 ZZ=ZZ+ZZ 2822 000001 IFE ZZ, 2823 032401 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2824 032402 241 06 0 00 000001 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2825 032403 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2826 032404 003 06 0 00 040201 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2827 032405 321 10 0 00 032401 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2828 2829 2830 ;TEST SC-AR CONNECTION-ONE'S 2831 ;TEST THE ABILITY OF SC AR EN 2832 ;TO TRANSFER ONE'S TO SC 2833 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2834 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2835 ;WILL AFFECT TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0086 2836 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2837 ;RESULTS IN NO ROTATE 2838 2839 040202 SN=SN+1 2840 000002 ZZ=ZZ+ZZ 2841 IFE ZZ, 2842 032406 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2843 032407 241 06 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2844 032410 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2845 032411 003 06 0 00 040202 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2846 032412 321 10 0 00 032406 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2847 2848 2849 ;TEST SC-AR CONNECTION-ONE'S 2850 ;TEST THE ABILITY OF SC AR EN 2851 ;TO TRANSFER ONE'S TO SC 2852 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2853 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2854 ;WILL AFFECT TEST 2855 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2856 ;RESULTS IN NO ROTATE 2857 2858 040203 SN=SN+1 2859 000004 ZZ=ZZ+ZZ 2860 IFE ZZ, 2861 032413 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2862 032414 241 06 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2863 032415 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2864 032416 003 06 0 00 040203 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2865 032417 321 10 0 00 032413 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2866 2867 2868 ;TEST SC-AR CONNECTION-ONE'S 2869 ;TEST THE ABILITY OF SC AR EN 2870 ;TO TRANSFER ONE'S TO SC 2871 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2872 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2873 ;WILL AFFECT TEST 2874 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2875 ;RESULTS IN NO ROTATE 2876 2877 040204 SN=SN+1 2878 000010 ZZ=ZZ+ZZ 2879 IFE ZZ, 2880 032420 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2881 032421 241 06 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2882 032422 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2883 032423 003 06 0 00 040204 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2884 032424 321 10 0 00 032420 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2885 2886 2887 ;TEST SC-AR CONNECTION-ONE'S 2888 ;TEST THE ABILITY OF SC AR EN 2889 ;TO TRANSFER ONE'S TO SC 2890 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0087 2891 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2892 ;WILL AFFECT TEST 2893 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2894 ;RESULTS IN NO ROTATE 2895 2896 040205 SN=SN+1 2897 000020 ZZ=ZZ+ZZ 2898 IFE ZZ, 2899 032425 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2900 032426 241 06 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2901 032427 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2902 032430 003 06 0 00 040205 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2903 032431 321 10 0 00 032425 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2904 2905 2906 ;TEST SC-AR CONNECTION-ONE'S 2907 ;TEST THE ABILITY OF SC AR EN 2908 ;TO TRANSFER ONE'S TO SC 2909 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2910 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2911 ;WILL AFFECT TEST 2912 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2913 ;RESULTS IN NO ROTATE 2914 2915 040206 SN=SN+1 2916 000040 ZZ=ZZ+ZZ 2917 IFE ZZ, 2918 032432 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2919 032433 241 06 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2920 032434 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2921 032435 003 06 0 00 040206 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2922 032436 321 10 0 00 032432 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2923 2924 2925 ;TEST SC-AR CONNECTION-ONE'S 2926 ;TEST THE ABILITY OF SC AR EN 2927 ;TO TRANSFER ONE'S TO SC 2928 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2929 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2930 ;WILL AFFECT TEST 2931 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2932 ;RESULTS IN NO ROTATE 2933 2934 040207 SN=SN+1 2935 000100 ZZ=ZZ+ZZ 2936 IFE ZZ, 2937 032437 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2938 032440 241 06 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2939 032441 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2940 032442 003 06 0 00 040207 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2941 032443 321 10 0 00 032437 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2942 2943 2944 ;TEST SC-AR CONNECTION-ONE'S 2945 ;TEST THE ABILITY OF SC AR EN DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0088 2946 ;TO TRANSFER ONE'S TO SC 2947 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN 2948 ;MALFUNCTION OF SCAD OR SC COUNT GATES 2949 ;WILL AFFECT TEST 2950 ;FAILURE OF A SHIFT COUNTER BIT TO SET 2951 ;RESULTS IN NO ROTATE 2952 2953 040210 SN=SN+1 2954 000200 ZZ=ZZ+ZZ 2955 IFE ZZ, 2956 032444 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35 2957 032445 241 06 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 2958 032446 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 2959 032447 003 06 0 00 040210 ER3 AC,SN ;SC BIT (N) FAILED TO SET 2960 032450 321 10 0 00 032444 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 2961 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0089 2962 000005 AC=5 2963 SAVEAC (1,1)^ 2964 032451 201 07 0 00 032451 MOVEI AC+2,. ;SAVE TEST PC 2965 032452 202 07 0 00 030051 MOVEM AC+2,TESTPC 2966 032453 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2967 032454 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2968 2969 040300 SN=40300 2970 000000 XX=0 2971 777777 777777 ZZ=-1 2972 2973 E40300: REPEAT ^D6,< 2974 ;TEST SC AR CONNETION-ZERO'S 2975 ;TEST THE ABILITY OF A SC BIT TO REMAIN 2976 ;A ZERO WHEN TRANSFERRING BR TO SC 2977 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 2978 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 2979 ;MALFUNTION OF SCAD OR SC COUNT GATES 2980 ;WILL AFFECT TEST 2981 2982 SN=SN+1 2983 XX=XX+XX 2984 ZZ=ZZ+ZZ 2985 IFE XX, 2986 MOVEI AC,1 ;SET BIT 35 2987 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 2988 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 2989 CAIN AC,1 ;TEST FOR ROTATE 2990 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 2991 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2992 > 2993 2994 ;TEST SC AR CONNETION-ZERO'S 2995 ;TEST THE ABILITY OF A SC BIT TO REMAIN 2996 ;A ZERO WHEN TRANSFERRING BR TO SC 2997 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 2998 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 2999 ;MALFUNTION OF SCAD OR SC COUNT GATES 3000 ;WILL AFFECT TEST 3001 3002 040301 SN=SN+1 3003 000000 XX=XX+XX 3004 777777 777776 ZZ=ZZ+ZZ 3005 000001 IFE XX, 3006 032455 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3007 032456 241 05 0 00 777776 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3008 032457 241 05 0 00 000001 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3009 032460 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3010 032461 003 05 0 00 040301 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3011 032462 321 07 0 00 032455 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3012 3013 3014 ;TEST SC AR CONNETION-ZERO'S 3015 ;TEST THE ABILITY OF A SC BIT TO REMAIN 3016 ;A ZERO WHEN TRANSFERRING BR TO SC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0090 3017 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 3018 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 3019 ;MALFUNTION OF SCAD OR SC COUNT GATES 3020 ;WILL AFFECT TEST 3021 3022 040302 SN=SN+1 3023 000002 XX=XX+XX 3024 777777 777774 ZZ=ZZ+ZZ 3025 IFE XX, 3026 032463 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3027 032464 241 05 0 00 777774 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3028 032465 241 05 0 00 000002 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3029 032466 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3030 032467 003 05 0 00 040302 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3031 032470 321 07 0 00 032463 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3032 3033 3034 ;TEST SC AR CONNETION-ZERO'S 3035 ;TEST THE ABILITY OF A SC BIT TO REMAIN 3036 ;A ZERO WHEN TRANSFERRING BR TO SC 3037 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 3038 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 3039 ;MALFUNTION OF SCAD OR SC COUNT GATES 3040 ;WILL AFFECT TEST 3041 3042 040303 SN=SN+1 3043 000004 XX=XX+XX 3044 777777 777770 ZZ=ZZ+ZZ 3045 IFE XX, 3046 032471 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3047 032472 241 05 0 00 777770 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3048 032473 241 05 0 00 000004 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3049 032474 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3050 032475 003 05 0 00 040303 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3051 032476 321 07 0 00 032471 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3052 3053 3054 ;TEST SC AR CONNETION-ZERO'S 3055 ;TEST THE ABILITY OF A SC BIT TO REMAIN 3056 ;A ZERO WHEN TRANSFERRING BR TO SC 3057 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 3058 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 3059 ;MALFUNTION OF SCAD OR SC COUNT GATES 3060 ;WILL AFFECT TEST 3061 3062 040304 SN=SN+1 3063 000010 XX=XX+XX 3064 777777 777760 ZZ=ZZ+ZZ 3065 IFE XX, 3066 032477 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3067 032500 241 05 0 00 777760 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3068 032501 241 05 0 00 000010 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3069 032502 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3070 032503 003 05 0 00 040304 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3071 032504 321 07 0 00 032477 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0091 3072 3073 3074 ;TEST SC AR CONNETION-ZERO'S 3075 ;TEST THE ABILITY OF A SC BIT TO REMAIN 3076 ;A ZERO WHEN TRANSFERRING BR TO SC 3077 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 3078 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 3079 ;MALFUNTION OF SCAD OR SC COUNT GATES 3080 ;WILL AFFECT TEST 3081 3082 040305 SN=SN+1 3083 000020 XX=XX+XX 3084 777777 777740 ZZ=ZZ+ZZ 3085 IFE XX, 3086 032505 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3087 032506 241 05 0 00 777740 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3088 032507 241 05 0 00 000020 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3089 032510 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3090 032511 003 05 0 00 040305 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3091 032512 321 07 0 00 032505 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3092 3093 3094 ;TEST SC AR CONNETION-ZERO'S 3095 ;TEST THE ABILITY OF A SC BIT TO REMAIN 3096 ;A ZERO WHEN TRANSFERRING BR TO SC 3097 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE 3098 ;TEST BY ROTATING RIGHT TWO,LEFT ONE 3099 ;MALFUNTION OF SCAD OR SC COUNT GATES 3100 ;WILL AFFECT TEST 3101 3102 040306 SN=SN+1 3103 000040 XX=XX+XX 3104 777777 777700 ZZ=ZZ+ZZ 3105 IFE XX, 3106 032513 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35 3107 032514 241 05 0 00 777700 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES 3108 032515 241 05 0 00 000040 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES 3109 032516 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE 3110 032517 003 05 0 00 040306 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR 3111 032520 321 07 0 00 032513 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3112 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 19 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0092 3113 SUBTTL DIAGNOSTIC SECTION - SC-SCAD GATING TEST 3114 3115 ;TEST DIRECTION 3116 ;TEST THE ABILITY TO ROTATE IN THE 3117 ;SPECIFIED DIRECTION 3118 ;FAILURE OF AC TO ROTATE OR ROTATING IN THE 3119 ;WRONG DIRECTION WILL CAUSE AN ERROR 3120 ;MALFUNCTION OF SCAD OR SC COUNT GATES WILL 3121 ;CAUSE AN ERROR 3122 3123 000004 AC=4 3124 SAVEAC (1,1)^ 3125 032521 201 06 0 00 032521 MOVEI AC+2,. ;SAVE TEST PC 3126 032522 202 06 0 00 030051 MOVEM AC+2,TESTPC 3127 032523 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3128 032524 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3129 3130 ;TEST LEFT 3131 032525 201 04 0 00 400000 E40400: MOVEI AC,400000 ;SET AC BIT 18 3132 032526 205 03 0 00 777777 MOVSI AC-1,-1 ;SET LEFT,CLEAR RIGHT 3133 032527 241 04 0 00 000003 ROT AC,3 ;*ROTATE LEFT 3134 032530 616 04 0 00 000003 TDNN AC,AC-1 ;TEST DIRECTION 3135 032531 003 04 0 00 040401 ER3 AC,40401 ;FAILED OR WRONG DIRECTION 3136 032532 321 06 0 00 032525 JUMPL AC+2,E40400 ;LOOP ON ERROR SWITCH 3137 3138 ;TEST RIGHT 3139 032533 205 04 0 00 000001 E40500: MOVSI AC,1 ;SET AC BIT 17 3140 032534 201 03 0 00 777777 MOVEI AC-1,-1 ;CLEAR LEFT,SET RIGHT 3141 032535 241 04 0 00 777775 ROT AC,-3 ;*ROTATE RIGHT 3142 032536 616 04 0 00 000003 TDNN AC,AC-1 ;TEST DIRECTION 3143 032537 003 04 0 00 040501 ER3 AC,40501 ;FAILED OR WRONG DIRECTION 3144 032540 321 06 0 00 032533 JUMPL AC+2,E40500 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0093 3145 000003 AC=3 3146 SAVEAC (1,1)^ 3147 032541 201 05 0 00 032541 MOVEI AC+2,. ;SAVE TEST PC 3148 032542 202 05 0 00 030051 MOVEM AC+2,TESTPC 3149 032543 201 05 0 00 000005 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3150 032544 202 05 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3151 3152 040600 SN=40600 3153 000000 ZZ=0 3154 3155 E40600: REPEAT ^D8,< ;TEST FOR NO ROTATE 3156 ;SCAD-SC NEGATE SET UP TEST 3157 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3158 ;TEST SC+1 ENABLE 3159 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3160 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3161 ;IN ROT LEFT ONE 3162 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3163 ;WILL AFFECT TEST 3164 3165 SN=SN+1 3166 ZZ=ZZ+ZZ 3167 IFE ZZ, 3168 MOVEI AC,1 ;SET BIT 35 3169 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3170 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3171 ER3 AC,SN ;ON NEGATE 3172 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3173 > 3174 ;TEST FOR NO ROTATE 3175 ;SCAD-SC NEGATE SET UP TEST 3176 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3177 ;TEST SC+1 ENABLE 3178 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3179 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3180 ;IN ROT LEFT ONE 3181 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3182 ;WILL AFFECT TEST 3183 3184 040601 SN=SN+1 3185 000000 ZZ=ZZ+ZZ 3186 000001 IFE ZZ, 3187 032545 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3188 032546 241 03 0 00 000001 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3189 032547 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3190 032550 003 03 0 00 040601 ER3 AC,SN ;ON NEGATE 3191 032551 321 05 0 00 032545 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3192 3193 ;TEST FOR NO ROTATE 3194 ;SCAD-SC NEGATE SET UP TEST 3195 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3196 ;TEST SC+1 ENABLE 3197 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3198 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3199 ;IN ROT LEFT ONE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0094 3200 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3201 ;WILL AFFECT TEST 3202 3203 040602 SN=SN+1 3204 000002 ZZ=ZZ+ZZ 3205 IFE ZZ, 3206 032552 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3207 032553 241 03 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3208 032554 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3209 032555 003 03 0 00 040602 ER3 AC,SN ;ON NEGATE 3210 032556 321 05 0 00 032552 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3211 3212 ;TEST FOR NO ROTATE 3213 ;SCAD-SC NEGATE SET UP TEST 3214 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3215 ;TEST SC+1 ENABLE 3216 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3217 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3218 ;IN ROT LEFT ONE 3219 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3220 ;WILL AFFECT TEST 3221 3222 040603 SN=SN+1 3223 000004 ZZ=ZZ+ZZ 3224 IFE ZZ, 3225 032557 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3226 032560 241 03 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3227 032561 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3228 032562 003 03 0 00 040603 ER3 AC,SN ;ON NEGATE 3229 032563 321 05 0 00 032557 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3230 3231 ;TEST FOR NO ROTATE 3232 ;SCAD-SC NEGATE SET UP TEST 3233 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3234 ;TEST SC+1 ENABLE 3235 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3236 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3237 ;IN ROT LEFT ONE 3238 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3239 ;WILL AFFECT TEST 3240 3241 040604 SN=SN+1 3242 000010 ZZ=ZZ+ZZ 3243 IFE ZZ, 3244 032564 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3245 032565 241 03 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3246 032566 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3247 032567 003 03 0 00 040604 ER3 AC,SN ;ON NEGATE 3248 032570 321 05 0 00 032564 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3249 3250 ;TEST FOR NO ROTATE 3251 ;SCAD-SC NEGATE SET UP TEST 3252 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3253 ;TEST SC+1 ENABLE 3254 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0095 3255 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3256 ;IN ROT LEFT ONE 3257 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3258 ;WILL AFFECT TEST 3259 3260 040605 SN=SN+1 3261 000020 ZZ=ZZ+ZZ 3262 IFE ZZ, 3263 032571 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3264 032572 241 03 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3265 032573 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3266 032574 003 03 0 00 040605 ER3 AC,SN ;ON NEGATE 3267 032575 321 05 0 00 032571 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3268 3269 ;TEST FOR NO ROTATE 3270 ;SCAD-SC NEGATE SET UP TEST 3271 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3272 ;TEST SC+1 ENABLE 3273 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3274 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3275 ;IN ROT LEFT ONE 3276 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3277 ;WILL AFFECT TEST 3278 3279 040606 SN=SN+1 3280 000040 ZZ=ZZ+ZZ 3281 IFE ZZ, 3282 032576 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3283 032577 241 03 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3284 032600 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3285 032601 003 03 0 00 040606 ER3 AC,SN ;ON NEGATE 3286 032602 321 05 0 00 032576 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3287 3288 ;TEST FOR NO ROTATE 3289 ;SCAD-SC NEGATE SET UP TEST 3290 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3291 ;TEST SC+1 ENABLE 3292 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3293 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3294 ;IN ROT LEFT ONE 3295 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3296 ;WILL AFFECT TEST 3297 3298 040607 SN=SN+1 3299 000100 ZZ=ZZ+ZZ 3300 IFE ZZ, 3301 032603 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3302 032604 241 03 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3303 032605 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3304 032606 003 03 0 00 040607 ER3 AC,SN ;ON NEGATE 3305 032607 321 05 0 00 032603 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3306 3307 ;TEST FOR NO ROTATE 3308 ;SCAD-SC NEGATE SET UP TEST 3309 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0096 3310 ;TEST SC+1 ENABLE 3311 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3312 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3313 ;IN ROT LEFT ONE 3314 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3315 ;WILL AFFECT TEST 3316 3317 040610 SN=SN+1 3318 000200 ZZ=ZZ+ZZ 3319 IFE ZZ, 3320 032610 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3321 032611 241 03 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3322 032612 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR 3323 032613 003 03 0 00 040610 ER3 AC,SN ;ON NEGATE 3324 032614 321 05 0 00 032610 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3325 3326 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0097 3327 040700 SN=40700 3328 000001 ZZ=1 3329 3330 E40700: REPEAT ^D7,< ;TEST FOR ROTATE LEFT ONE 3331 ;SCAD-SC NEGATE SET UP TEST 3332 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3333 ;TEST SC+1 ENABLE 3334 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3335 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3336 ;IN ROT LEFT ONE 3337 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3338 ;WILL AFFECT TEST 3339 3340 SN=SN+1 3341 ZZ=ZZ+ZZ 3342 MOVEI AC,1 ;SET BIT 35 3343 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3344 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3345 ER3 AC,SN ;AND SC+1 FAILED 3346 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3347 > 3348 ;TEST FOR ROTATE LEFT ONE 3349 ;SCAD-SC NEGATE SET UP TEST 3350 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3351 ;TEST SC+1 ENABLE 3352 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3353 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3354 ;IN ROT LEFT ONE 3355 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3356 ;WILL AFFECT TEST 3357 3358 040701 SN=SN+1 3359 000002 ZZ=ZZ+ZZ 3360 032615 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3361 032616 241 03 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3362 032617 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3363 032620 003 03 0 00 040701 ER3 AC,SN ;AND SC+1 FAILED 3364 032621 321 05 0 00 032615 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3365 3366 ;TEST FOR ROTATE LEFT ONE 3367 ;SCAD-SC NEGATE SET UP TEST 3368 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3369 ;TEST SC+1 ENABLE 3370 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3371 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3372 ;IN ROT LEFT ONE 3373 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3374 ;WILL AFFECT TEST 3375 3376 040702 SN=SN+1 3377 000004 ZZ=ZZ+ZZ 3378 032622 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3379 032623 241 03 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3380 032624 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3381 032625 003 03 0 00 040702 ER3 AC,SN ;AND SC+1 FAILED DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0098 3382 032626 321 05 0 00 032622 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3383 3384 ;TEST FOR ROTATE LEFT ONE 3385 ;SCAD-SC NEGATE SET UP TEST 3386 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3387 ;TEST SC+1 ENABLE 3388 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3389 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3390 ;IN ROT LEFT ONE 3391 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3392 ;WILL AFFECT TEST 3393 3394 040703 SN=SN+1 3395 000010 ZZ=ZZ+ZZ 3396 032627 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3397 032630 241 03 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3398 032631 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3399 032632 003 03 0 00 040703 ER3 AC,SN ;AND SC+1 FAILED 3400 032633 321 05 0 00 032627 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3401 3402 ;TEST FOR ROTATE LEFT ONE 3403 ;SCAD-SC NEGATE SET UP TEST 3404 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3405 ;TEST SC+1 ENABLE 3406 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3407 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3408 ;IN ROT LEFT ONE 3409 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3410 ;WILL AFFECT TEST 3411 3412 040704 SN=SN+1 3413 000020 ZZ=ZZ+ZZ 3414 032634 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3415 032635 241 03 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3416 032636 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3417 032637 003 03 0 00 040704 ER3 AC,SN ;AND SC+1 FAILED 3418 032640 321 05 0 00 032634 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3419 3420 ;TEST FOR ROTATE LEFT ONE 3421 ;SCAD-SC NEGATE SET UP TEST 3422 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3423 ;TEST SC+1 ENABLE 3424 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3425 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3426 ;IN ROT LEFT ONE 3427 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3428 ;WILL AFFECT TEST 3429 3430 040705 SN=SN+1 3431 000040 ZZ=ZZ+ZZ 3432 032641 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3433 032642 241 03 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3434 032643 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3435 032644 003 03 0 00 040705 ER3 AC,SN ;AND SC+1 FAILED 3436 032645 321 05 0 00 032641 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-6 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0099 3437 3438 ;TEST FOR ROTATE LEFT ONE 3439 ;SCAD-SC NEGATE SET UP TEST 3440 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3441 ;TEST SC+1 ENABLE 3442 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3443 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3444 ;IN ROT LEFT ONE 3445 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3446 ;WILL AFFECT TEST 3447 3448 040706 SN=SN+1 3449 000100 ZZ=ZZ+ZZ 3450 032646 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3451 032647 241 03 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3452 032650 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3453 032651 003 03 0 00 040706 ER3 AC,SN ;AND SC+1 FAILED 3454 032652 321 05 0 00 032646 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3455 3456 ;TEST FOR ROTATE LEFT ONE 3457 ;SCAD-SC NEGATE SET UP TEST 3458 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT 3459 ;TEST SC+1 ENABLE 3460 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE 3461 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS 3462 ;IN ROT LEFT ONE 3463 ;MALFUNCTION OF SCAD OR SC COUNT GATES 3464 ;WILL AFFECT TEST 3465 3466 040707 SN=SN+1 3467 000200 ZZ=ZZ+ZZ 3468 032653 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35 3469 032654 241 03 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES 3470 032655 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR 3471 032656 003 03 0 00 040707 ER3 AC,SN ;AND SC+1 FAILED 3472 032657 321 05 0 00 032653 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3473 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0100 3474 000002 AC=2 3475 SAVEAC (1,1)^ 3476 032660 201 04 0 00 032660 MOVEI AC+2,. ;SAVE TEST PC 3477 032661 202 04 0 00 030051 MOVEM AC+2,TESTPC 3478 032662 201 04 0 00 000004 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3479 032663 202 04 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3480 3481 041000 SN=41000 3482 000001 XX=1 3483 000000 ZZ=0 3484 3485 E41000: REPEAT ^D5,< ;ROTATE FROM 3 TO 17 TIMES 3486 ;SCAD SC COUNT TEST 3487 ;TEST THE ABILITY OF SCAD TO PROPERLY 3488 ;COUNT THE SHIFT COUNTER 3489 ;TEST SC-SCAD CONNECTION 3490 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3491 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3492 ;THE CORRECT NUMBER OF BITS 3493 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3494 ;LOGIC 3495 3496 SN=SN+1 3497 XX=XX*10 3498 ZZ=ZZ+3 3499 MOVEI AC,1 ;SET BIT 35 3500 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3501 CAIE AC,XX ;TEST AC 3502 ER3 AC,SN ;INCORRECT ROTATE 3503 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3504 > 3505 ;ROTATE FROM 3 TO 17 TIMES 3506 ;SCAD SC COUNT TEST 3507 ;TEST THE ABILITY OF SCAD TO PROPERLY 3508 ;COUNT THE SHIFT COUNTER 3509 ;TEST SC-SCAD CONNECTION 3510 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3511 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3512 ;THE CORRECT NUMBER OF BITS 3513 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3514 ;LOGIC 3515 3516 041001 SN=SN+1 3517 000010 XX=XX*10 3518 000003 ZZ=ZZ+3 3519 032664 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3520 032665 241 02 0 00 000003 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3521 032666 302 02 0 00 000010 CAIE AC,XX ;TEST AC 3522 032667 003 02 0 00 041001 ER3 AC,SN ;INCORRECT ROTATE 3523 032670 321 04 0 00 032664 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3524 3525 ;ROTATE FROM 3 TO 17 TIMES 3526 ;SCAD SC COUNT TEST 3527 ;TEST THE ABILITY OF SCAD TO PROPERLY 3528 ;COUNT THE SHIFT COUNTER DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0101 3529 ;TEST SC-SCAD CONNECTION 3530 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3531 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3532 ;THE CORRECT NUMBER OF BITS 3533 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3534 ;LOGIC 3535 3536 041002 SN=SN+1 3537 000100 XX=XX*10 3538 000006 ZZ=ZZ+3 3539 032671 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3540 032672 241 02 0 00 000006 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3541 032673 302 02 0 00 000100 CAIE AC,XX ;TEST AC 3542 032674 003 02 0 00 041002 ER3 AC,SN ;INCORRECT ROTATE 3543 032675 321 04 0 00 032671 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3544 3545 ;ROTATE FROM 3 TO 17 TIMES 3546 ;SCAD SC COUNT TEST 3547 ;TEST THE ABILITY OF SCAD TO PROPERLY 3548 ;COUNT THE SHIFT COUNTER 3549 ;TEST SC-SCAD CONNECTION 3550 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3551 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3552 ;THE CORRECT NUMBER OF BITS 3553 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3554 ;LOGIC 3555 3556 041003 SN=SN+1 3557 001000 XX=XX*10 3558 000011 ZZ=ZZ+3 3559 032676 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3560 032677 241 02 0 00 000011 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3561 032700 302 02 0 00 001000 CAIE AC,XX ;TEST AC 3562 032701 003 02 0 00 041003 ER3 AC,SN ;INCORRECT ROTATE 3563 032702 321 04 0 00 032676 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3564 3565 ;ROTATE FROM 3 TO 17 TIMES 3566 ;SCAD SC COUNT TEST 3567 ;TEST THE ABILITY OF SCAD TO PROPERLY 3568 ;COUNT THE SHIFT COUNTER 3569 ;TEST SC-SCAD CONNECTION 3570 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3571 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3572 ;THE CORRECT NUMBER OF BITS 3573 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3574 ;LOGIC 3575 3576 041004 SN=SN+1 3577 010000 XX=XX*10 3578 000014 ZZ=ZZ+3 3579 032703 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3580 032704 241 02 0 00 000014 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3581 032705 302 02 0 00 010000 CAIE AC,XX ;TEST AC 3582 032706 003 02 0 00 041004 ER3 AC,SN ;INCORRECT ROTATE 3583 032707 321 04 0 00 032703 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0102 3584 3585 ;ROTATE FROM 3 TO 17 TIMES 3586 ;SCAD SC COUNT TEST 3587 ;TEST THE ABILITY OF SCAD TO PROPERLY 3588 ;COUNT THE SHIFT COUNTER 3589 ;TEST SC-SCAD CONNECTION 3590 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3591 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3592 ;THE CORRECT NUMBER OF BITS 3593 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3594 ;LOGIC 3595 3596 041005 SN=SN+1 3597 100000 XX=XX*10 3598 000017 ZZ=ZZ+3 3599 032710 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3600 032711 241 02 0 00 000017 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3601 032712 302 02 0 00 100000 CAIE AC,XX ;TEST AC 3602 032713 003 02 0 00 041005 ER3 AC,SN ;INCORRECT ROTATE 3603 032714 321 04 0 00 032710 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3604 3605 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0103 3606 041100 SN=41100 3607 000000 XX=0 3608 3609 E41100: REPEAT ^D6,< ;ROTATE FROM 22 TO 41 TIMES 3610 ;SCAD SC COUNT TEST 3611 ;TEST THE ABILITY OF SCAD TO PROPERLY 3612 ;COUNT THE SHIFT COUNTER 3613 ;TEST SC-SCAD CONNECTION 3614 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3615 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3616 ;THE CORRECT NUMBER OF BITS 3617 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3618 ;LOGIC 3619 3620 SN=SN+1 3621 XX=XX*10 3622 ZZ=ZZ+3 3623 IFE XX, 3624 MOVEI AC,1 ;SET BIT 35 3625 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3626 MOVSS AC ;SWAP CONTENTS OF AC 3627 CAIE AC,XX ;TEST AC 3628 ER3 AC,SN ;INCORRECT ROTATE 3629 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3630 > 3631 ;ROTATE FROM 22 TO 41 TIMES 3632 ;SCAD SC COUNT TEST 3633 ;TEST THE ABILITY OF SCAD TO PROPERLY 3634 ;COUNT THE SHIFT COUNTER 3635 ;TEST SC-SCAD CONNECTION 3636 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3637 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3638 ;THE CORRECT NUMBER OF BITS 3639 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3640 ;LOGIC 3641 3642 041101 SN=SN+1 3643 000000 XX=XX*10 3644 000022 ZZ=ZZ+3 3645 000001 IFE XX, 3646 032715 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3647 032716 241 02 0 00 000022 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3648 032717 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3649 032720 302 02 0 00 000001 CAIE AC,XX ;TEST AC 3650 032721 003 02 0 00 041101 ER3 AC,SN ;INCORRECT ROTATE 3651 032722 321 04 0 00 032715 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3652 3653 ;ROTATE FROM 22 TO 41 TIMES 3654 ;SCAD SC COUNT TEST 3655 ;TEST THE ABILITY OF SCAD TO PROPERLY 3656 ;COUNT THE SHIFT COUNTER 3657 ;TEST SC-SCAD CONNECTION 3658 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3659 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3660 ;THE CORRECT NUMBER OF BITS DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0104 3661 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3662 ;LOGIC 3663 3664 041102 SN=SN+1 3665 000010 XX=XX*10 3666 000025 ZZ=ZZ+3 3667 IFE XX, 3668 032723 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3669 032724 241 02 0 00 000025 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3670 032725 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3671 032726 302 02 0 00 000010 CAIE AC,XX ;TEST AC 3672 032727 003 02 0 00 041102 ER3 AC,SN ;INCORRECT ROTATE 3673 032730 321 04 0 00 032723 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3674 3675 ;ROTATE FROM 22 TO 41 TIMES 3676 ;SCAD SC COUNT TEST 3677 ;TEST THE ABILITY OF SCAD TO PROPERLY 3678 ;COUNT THE SHIFT COUNTER 3679 ;TEST SC-SCAD CONNECTION 3680 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3681 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3682 ;THE CORRECT NUMBER OF BITS 3683 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3684 ;LOGIC 3685 3686 041103 SN=SN+1 3687 000100 XX=XX*10 3688 000030 ZZ=ZZ+3 3689 IFE XX, 3690 032731 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3691 032732 241 02 0 00 000030 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3692 032733 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3693 032734 302 02 0 00 000100 CAIE AC,XX ;TEST AC 3694 032735 003 02 0 00 041103 ER3 AC,SN ;INCORRECT ROTATE 3695 032736 321 04 0 00 032731 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3696 3697 ;ROTATE FROM 22 TO 41 TIMES 3698 ;SCAD SC COUNT TEST 3699 ;TEST THE ABILITY OF SCAD TO PROPERLY 3700 ;COUNT THE SHIFT COUNTER 3701 ;TEST SC-SCAD CONNECTION 3702 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3703 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3704 ;THE CORRECT NUMBER OF BITS 3705 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3706 ;LOGIC 3707 3708 041104 SN=SN+1 3709 001000 XX=XX*10 3710 000033 ZZ=ZZ+3 3711 IFE XX, 3712 032737 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3713 032740 241 02 0 00 000033 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3714 032741 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3715 032742 302 02 0 00 001000 CAIE AC,XX ;TEST AC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0105 3716 032743 003 02 0 00 041104 ER3 AC,SN ;INCORRECT ROTATE 3717 032744 321 04 0 00 032737 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3718 3719 ;ROTATE FROM 22 TO 41 TIMES 3720 ;SCAD SC COUNT TEST 3721 ;TEST THE ABILITY OF SCAD TO PROPERLY 3722 ;COUNT THE SHIFT COUNTER 3723 ;TEST SC-SCAD CONNECTION 3724 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3725 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3726 ;THE CORRECT NUMBER OF BITS 3727 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3728 ;LOGIC 3729 3730 041105 SN=SN+1 3731 010000 XX=XX*10 3732 000036 ZZ=ZZ+3 3733 IFE XX, 3734 032745 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3735 032746 241 02 0 00 000036 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3736 032747 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3737 032750 302 02 0 00 010000 CAIE AC,XX ;TEST AC 3738 032751 003 02 0 00 041105 ER3 AC,SN ;INCORRECT ROTATE 3739 032752 321 04 0 00 032745 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3740 3741 ;ROTATE FROM 22 TO 41 TIMES 3742 ;SCAD SC COUNT TEST 3743 ;TEST THE ABILITY OF SCAD TO PROPERLY 3744 ;COUNT THE SHIFT COUNTER 3745 ;TEST SC-SCAD CONNECTION 3746 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3747 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3748 ;THE CORRECT NUMBER OF BITS 3749 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3750 ;LOGIC 3751 3752 041106 SN=SN+1 3753 100000 XX=XX*10 3754 000041 ZZ=ZZ+3 3755 IFE XX, 3756 032753 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3757 032754 241 02 0 00 000041 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3758 032755 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3759 032756 302 02 0 00 100000 CAIE AC,XX ;TEST AC 3760 032757 003 02 0 00 041106 ER3 AC,SN ;INCORRECT ROTATE 3761 032760 321 04 0 00 032753 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3762 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0106 3763 041200 SN=41200 3764 000000 XX=0 3765 3766 E41200: REPEAT ^D6,< ;ROTATE FROM 44 TO 36 TIMES 3767 ;SCAD SC COUNT TEST 3768 ;TEST THE ABILITY OF SCAD TO PROPERLY 3769 ;COUNT THE SHIFT COUNTER 3770 ;TEST SC-SCAD CONNECTION 3771 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3772 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3773 ;THE CORRECT NUMBER OF BITS 3774 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3775 ;LOGIC 3776 3777 SN=SN+1 3778 XX=XX*10 3779 ZZ=ZZ+3 3780 IFE XX, 3781 MOVEI AC,1 ;SET BIT 35 3782 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3783 CAIE AC,XX ;TEST AC 3784 ER3 AC,SN ;INCORRECT ROTATE 3785 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3786 > 3787 ;ROTATE FROM 44 TO 36 TIMES 3788 ;SCAD SC COUNT TEST 3789 ;TEST THE ABILITY OF SCAD TO PROPERLY 3790 ;COUNT THE SHIFT COUNTER 3791 ;TEST SC-SCAD CONNECTION 3792 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3793 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3794 ;THE CORRECT NUMBER OF BITS 3795 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3796 ;LOGIC 3797 3798 041201 SN=SN+1 3799 000000 XX=XX*10 3800 000044 ZZ=ZZ+3 3801 000001 IFE XX, 3802 032761 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3803 032762 241 02 0 00 000044 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3804 032763 302 02 0 00 000001 CAIE AC,XX ;TEST AC 3805 032764 003 02 0 00 041201 ER3 AC,SN ;INCORRECT ROTATE 3806 032765 321 04 0 00 032761 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3807 3808 ;ROTATE FROM 44 TO 36 TIMES 3809 ;SCAD SC COUNT TEST 3810 ;TEST THE ABILITY OF SCAD TO PROPERLY 3811 ;COUNT THE SHIFT COUNTER 3812 ;TEST SC-SCAD CONNECTION 3813 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3814 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3815 ;THE CORRECT NUMBER OF BITS 3816 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3817 ;LOGIC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0107 3818 3819 041202 SN=SN+1 3820 000010 XX=XX*10 3821 000047 ZZ=ZZ+3 3822 IFE XX, 3823 032766 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3824 032767 241 02 0 00 000047 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3825 032770 302 02 0 00 000010 CAIE AC,XX ;TEST AC 3826 032771 003 02 0 00 041202 ER3 AC,SN ;INCORRECT ROTATE 3827 032772 321 04 0 00 032766 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3828 3829 ;ROTATE FROM 44 TO 36 TIMES 3830 ;SCAD SC COUNT TEST 3831 ;TEST THE ABILITY OF SCAD TO PROPERLY 3832 ;COUNT THE SHIFT COUNTER 3833 ;TEST SC-SCAD CONNECTION 3834 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3835 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3836 ;THE CORRECT NUMBER OF BITS 3837 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3838 ;LOGIC 3839 3840 041203 SN=SN+1 3841 000100 XX=XX*10 3842 000052 ZZ=ZZ+3 3843 IFE XX, 3844 032773 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3845 032774 241 02 0 00 000052 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3846 032775 302 02 0 00 000100 CAIE AC,XX ;TEST AC 3847 032776 003 02 0 00 041203 ER3 AC,SN ;INCORRECT ROTATE 3848 032777 321 04 0 00 032773 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3849 3850 ;ROTATE FROM 44 TO 36 TIMES 3851 ;SCAD SC COUNT TEST 3852 ;TEST THE ABILITY OF SCAD TO PROPERLY 3853 ;COUNT THE SHIFT COUNTER 3854 ;TEST SC-SCAD CONNECTION 3855 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3856 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3857 ;THE CORRECT NUMBER OF BITS 3858 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3859 ;LOGIC 3860 3861 041204 SN=SN+1 3862 001000 XX=XX*10 3863 000055 ZZ=ZZ+3 3864 IFE XX, 3865 033000 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3866 033001 241 02 0 00 000055 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3867 033002 302 02 0 00 001000 CAIE AC,XX ;TEST AC 3868 033003 003 02 0 00 041204 ER3 AC,SN ;INCORRECT ROTATE 3869 033004 321 04 0 00 033000 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3870 3871 ;ROTATE FROM 44 TO 36 TIMES 3872 ;SCAD SC COUNT TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0108 3873 ;TEST THE ABILITY OF SCAD TO PROPERLY 3874 ;COUNT THE SHIFT COUNTER 3875 ;TEST SC-SCAD CONNECTION 3876 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3877 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3878 ;THE CORRECT NUMBER OF BITS 3879 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3880 ;LOGIC 3881 3882 041205 SN=SN+1 3883 010000 XX=XX*10 3884 000060 ZZ=ZZ+3 3885 IFE XX, 3886 033005 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3887 033006 241 02 0 00 000060 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3888 033007 302 02 0 00 010000 CAIE AC,XX ;TEST AC 3889 033010 003 02 0 00 041205 ER3 AC,SN ;INCORRECT ROTATE 3890 033011 321 04 0 00 033005 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3891 3892 ;ROTATE FROM 44 TO 36 TIMES 3893 ;SCAD SC COUNT TEST 3894 ;TEST THE ABILITY OF SCAD TO PROPERLY 3895 ;COUNT THE SHIFT COUNTER 3896 ;TEST SC-SCAD CONNECTION 3897 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3898 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3899 ;THE CORRECT NUMBER OF BITS 3900 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3901 ;LOGIC 3902 3903 041206 SN=SN+1 3904 100000 XX=XX*10 3905 000063 ZZ=ZZ+3 3906 IFE XX, 3907 033012 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3908 033013 241 02 0 00 000063 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3909 033014 302 02 0 00 100000 CAIE AC,XX ;TEST AC 3910 033015 003 02 0 00 041206 ER3 AC,SN ;INCORRECT ROTATE 3911 033016 321 04 0 00 033012 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH 3912 3913 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0109 3914 041300 SN=41300 3915 000000 XX=0 3916 3917 E41300: REPEAT ^D6,< ;ROTATE FROM 66 TO 105 TIMES 3918 ;SCAD SC COUNT TEST 3919 ;TEST THE ABILITY OF SCAD TO PROPERLY 3920 ;COUNT THE SHIFT COUNTER 3921 ;TEST SC-SCAD CONNECTION 3922 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3923 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3924 ;THE CORRECT NUMBER OF BITS 3925 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3926 ;LOGIC 3927 3928 SN=SN+1 3929 XX=XX*10 3930 ZZ=ZZ+3 3931 IFE XX, 3932 MOVEI AC,1 ;SET BIT 35 3933 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3934 MOVSS AC ;SWAP CONTENTS OF AC 3935 CAIE AC,XX ;TEST AC 3936 ER3 AC,SN ;INCORRECT ROTATE 3937 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3938 > 3939 ;ROTATE FROM 66 TO 105 TIMES 3940 ;SCAD SC COUNT TEST 3941 ;TEST THE ABILITY OF SCAD TO PROPERLY 3942 ;COUNT THE SHIFT COUNTER 3943 ;TEST SC-SCAD CONNECTION 3944 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3945 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3946 ;THE CORRECT NUMBER OF BITS 3947 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3948 ;LOGIC 3949 3950 041301 SN=SN+1 3951 000000 XX=XX*10 3952 000066 ZZ=ZZ+3 3953 000001 IFE XX, 3954 033017 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3955 033020 241 02 0 00 000066 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3956 033021 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3957 033022 302 02 0 00 000001 CAIE AC,XX ;TEST AC 3958 033023 003 02 0 00 041301 ER3 AC,SN ;INCORRECT ROTATE 3959 033024 321 04 0 00 033017 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3960 3961 ;ROTATE FROM 66 TO 105 TIMES 3962 ;SCAD SC COUNT TEST 3963 ;TEST THE ABILITY OF SCAD TO PROPERLY 3964 ;COUNT THE SHIFT COUNTER 3965 ;TEST SC-SCAD CONNECTION 3966 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3967 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3968 ;THE CORRECT NUMBER OF BITS DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0110 3969 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3970 ;LOGIC 3971 3972 041302 SN=SN+1 3973 000010 XX=XX*10 3974 000071 ZZ=ZZ+3 3975 IFE XX, 3976 033025 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3977 033026 241 02 0 00 000071 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 3978 033027 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 3979 033030 302 02 0 00 000010 CAIE AC,XX ;TEST AC 3980 033031 003 02 0 00 041302 ER3 AC,SN ;INCORRECT ROTATE 3981 033032 321 04 0 00 033025 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 3982 3983 ;ROTATE FROM 66 TO 105 TIMES 3984 ;SCAD SC COUNT TEST 3985 ;TEST THE ABILITY OF SCAD TO PROPERLY 3986 ;COUNT THE SHIFT COUNTER 3987 ;TEST SC-SCAD CONNECTION 3988 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 3989 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 3990 ;THE CORRECT NUMBER OF BITS 3991 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 3992 ;LOGIC 3993 3994 041303 SN=SN+1 3995 000100 XX=XX*10 3996 000074 ZZ=ZZ+3 3997 IFE XX, 3998 033033 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 3999 033034 241 02 0 00 000074 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 4000 033035 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 4001 033036 302 02 0 00 000100 CAIE AC,XX ;TEST AC 4002 033037 003 02 0 00 041303 ER3 AC,SN ;INCORRECT ROTATE 4003 033040 321 04 0 00 033033 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4004 4005 ;ROTATE FROM 66 TO 105 TIMES 4006 ;SCAD SC COUNT TEST 4007 ;TEST THE ABILITY OF SCAD TO PROPERLY 4008 ;COUNT THE SHIFT COUNTER 4009 ;TEST SC-SCAD CONNECTION 4010 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 4011 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 4012 ;THE CORRECT NUMBER OF BITS 4013 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 4014 ;LOGIC 4015 4016 041304 SN=SN+1 4017 001000 XX=XX*10 4018 000077 ZZ=ZZ+3 4019 IFE XX, 4020 033041 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 4021 033042 241 02 0 00 000077 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 4022 033043 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 4023 033044 302 02 0 00 001000 CAIE AC,XX ;TEST AC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0111 4024 033045 003 02 0 00 041304 ER3 AC,SN ;INCORRECT ROTATE 4025 033046 321 04 0 00 033041 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4026 4027 ;ROTATE FROM 66 TO 105 TIMES 4028 ;SCAD SC COUNT TEST 4029 ;TEST THE ABILITY OF SCAD TO PROPERLY 4030 ;COUNT THE SHIFT COUNTER 4031 ;TEST SC-SCAD CONNECTION 4032 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 4033 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 4034 ;THE CORRECT NUMBER OF BITS 4035 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 4036 ;LOGIC 4037 4038 041305 SN=SN+1 4039 010000 XX=XX*10 4040 000102 ZZ=ZZ+3 4041 IFE XX, 4042 033047 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 4043 033050 241 02 0 00 000102 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 4044 033051 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 4045 033052 302 02 0 00 010000 CAIE AC,XX ;TEST AC 4046 033053 003 02 0 00 041305 ER3 AC,SN ;INCORRECT ROTATE 4047 033054 321 04 0 00 033047 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4048 4049 ;ROTATE FROM 66 TO 105 TIMES 4050 ;SCAD SC COUNT TEST 4051 ;TEST THE ABILITY OF SCAD TO PROPERLY 4052 ;COUNT THE SHIFT COUNTER 4053 ;TEST SC-SCAD CONNECTION 4054 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES 4055 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE 4056 ;THE CORRECT NUMBER OF BITS 4057 ;ROTATING TO THE LEFT EXERCISES MAXIMUM 4058 ;LOGIC 4059 4060 041306 SN=SN+1 4061 100000 XX=XX*10 4062 000105 ZZ=ZZ+3 4063 IFE XX, 4064 033055 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35 4065 033056 241 02 0 00 000105 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 4066 033057 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC 4067 033060 302 02 0 00 100000 CAIE AC,XX ;TEST AC 4068 033061 003 02 0 00 041306 ER3 AC,SN ;INCORRECT ROTATE 4069 033062 321 04 0 00 033055 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 4070 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0112 4071 SUBTTL DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST 4072 4073 ;SHIFT COUNTER TEST 4074 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4075 SR1 (461,230703,603700,230703,603700,ROT,0)^ 4076 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 0 BIT 4077 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4078 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4079 4080 033063 200 02 0 00 036631 E46100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4081 033064 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4082 033065 241 02 0 00 000000 ROT AC,0 ;*SHIFT/ROTATE 0 BIT POSITIONS 4083 033066 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4084 033067 003 02 0 00 046101 ER3 AC,46101 ;RESULT IN AC IS INCORRECT 4085 033070 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4086 033071 004 03 0 00 046101 ER4 AC+1,46101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4087 033072 321 04 0 00 033063 JUMPL AC+2,E46100 ;LOOP ON ERROR SWITCH^ 4088 4089 ;SHIFT COUNTER TEST 4090 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4091 SR1 (462,230703,603700,700230,703603,ROT,77)^ 4092 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 77 BIT 4093 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700230,703603] 4094 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4095 4096 033073 200 02 0 00 036631 E46200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4097 033074 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4098 033075 241 02 0 00 000077 ROT AC,77 ;*SHIFT/ROTATE 77 BIT POSITIONS 4099 033076 312 02 0 00 036632 CAME AC,[XWD 700230,703603] ;IS RESULT IN AC CORRECT? 4100 033077 003 02 0 00 046201 ER3 AC,46201 ;RESULT IN AC IS INCORRECT 4101 033100 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4102 033101 004 03 0 00 046201 ER4 AC+1,46201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4103 033102 321 04 0 00 033073 JUMPL AC+2,E46200 ;LOOP ON ERROR SWITCH^ 4104 4105 ;SHIFT COUNTER TEST 4106 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4107 SR1 (463,230703,603700,740114,341701,ROT,76)^ 4108 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 76 BIT 4109 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 740114,341701] 4110 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4111 4112 033103 200 02 0 00 036631 E46300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4113 033104 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4114 033105 241 02 0 00 000076 ROT AC,76 ;*SHIFT/ROTATE 76 BIT POSITIONS 4115 033106 312 02 0 00 036633 CAME AC,[XWD 740114,341701] ;IS RESULT IN AC CORRECT? 4116 033107 003 02 0 00 046301 ER3 AC,46301 ;RESULT IN AC IS INCORRECT 4117 033110 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4118 033111 004 03 0 00 046301 ER4 AC+1,46301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4119 033112 321 04 0 00 033103 JUMPL AC+2,E46300 ;LOOP ON ERROR SWITCH^ 4120 4121 ;SHIFT COUNTER TEST 4122 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4123 SR1 (464,230703,603700,370023,070360,ROT,74)^ 4124 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 74 BIT 4125 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 370023,070360] DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0113 4126 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4127 4128 033113 200 02 0 00 036631 E46400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4129 033114 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4130 033115 241 02 0 00 000074 ROT AC,74 ;*SHIFT/ROTATE 74 BIT POSITIONS 4131 033116 312 02 0 00 036634 CAME AC,[XWD 370023,070360] ;IS RESULT IN AC CORRECT? 4132 033117 003 02 0 00 046401 ER3 AC,46401 ;RESULT IN AC IS INCORRECT 4133 033120 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4134 033121 004 03 0 00 046401 ER4 AC+1,46401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4135 033122 321 04 0 00 033113 JUMPL AC+2,E46400 ;LOOP ON ERROR SWITCH^ 4136 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0114 4137 ;SHIFT COUNTER TEST 4138 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4139 SR1 (465,230703,603700,017401,143417,ROT,70)^ 4140 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 70 BIT 4141 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 017401,143417] 4142 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4143 4144 033123 200 02 0 00 036631 E46500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4145 033124 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4146 033125 241 02 0 00 000070 ROT AC,70 ;*SHIFT/ROTATE 70 BIT POSITIONS 4147 033126 312 02 0 00 036635 CAME AC,[XWD 017401,143417] ;IS RESULT IN AC CORRECT? 4148 033127 003 02 0 00 046501 ER3 AC,46501 ;RESULT IN AC IS INCORRECT 4149 033130 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4150 033131 004 03 0 00 046501 ER4 AC+1,46501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4151 033132 321 04 0 00 033123 JUMPL AC+2,E46500 ;LOOP ON ERROR SWITCH^ 4152 4153 ;SHIFT COUNTER TEST 4154 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4155 SR1 (466,230703,603700,036037,002307,ROT,60)^ 4156 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 60 BIT 4157 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 036037,002307] 4158 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4159 4160 033133 200 02 0 00 036631 E46600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4161 033134 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4162 033135 241 02 0 00 000060 ROT AC,60 ;*SHIFT/ROTATE 60 BIT POSITIONS 4163 033136 312 02 0 00 036636 CAME AC,[XWD 036037,002307] ;IS RESULT IN AC CORRECT? 4164 033137 003 02 0 00 046601 ER3 AC,46601 ;RESULT IN AC IS INCORRECT 4165 033140 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4166 033141 004 03 0 00 046601 ER4 AC+1,46601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4167 033142 321 04 0 00 033133 JUMPL AC+2,E46600 ;LOOP ON ERROR SWITCH^ 4168 4169 ;SHIFT COUNTER TEST 4170 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4171 SR1 (467,230703,603700,011434,170174,ROT,40)^ 4172 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 40 BIT 4173 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 011434,170174] 4174 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4175 4176 033143 200 02 0 00 036631 E46700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4177 033144 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4178 033145 241 02 0 00 000040 ROT AC,40 ;*SHIFT/ROTATE 40 BIT POSITIONS 4179 033146 312 02 0 00 036637 CAME AC,[XWD 011434,170174] ;IS RESULT IN AC CORRECT? 4180 033147 003 02 0 00 046701 ER3 AC,46701 ;RESULT IN AC IS INCORRECT 4181 033150 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4182 033151 004 03 0 00 046701 ER4 AC+1,46701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4183 033152 321 04 0 00 033143 JUMPL AC+2,E46700 ;LOOP ON ERROR SWITCH^ 4184 4185 ;SHIFT COUNTER TEST 4186 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4187 SR1 (470,230703,603700,600461,607407,ROT,100)^ 4188 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 100 BIT 4189 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600461,607407] 4190 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4191 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0115 4192 033153 200 02 0 00 036631 E47000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4193 033154 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4194 033155 241 02 0 00 000100 ROT AC,100 ;*SHIFT/ROTATE 100 BIT POSITIONS 4195 033156 312 02 0 00 036640 CAME AC,[XWD 600461,607407] ;IS RESULT IN AC CORRECT? 4196 033157 003 02 0 00 047001 ER3 AC,47001 ;RESULT IN AC IS INCORRECT 4197 033160 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4198 033161 004 03 0 00 047001 ER4 AC+1,47001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4199 033162 321 04 0 00 033153 JUMPL AC+2,E47000 ;LOOP ON ERROR SWITCH^ 4200 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0116 4201 ;SHIFT COUNTER TEST 4202 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4203 SR1 (471,230703,603700,461607,407600,ROT,1)^ 4204 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 1 BIT 4205 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4206 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4207 4208 033163 200 02 0 00 036631 E47100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4209 033164 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4210 033165 241 02 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS 4211 033166 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4212 033167 003 02 0 00 047101 ER3 AC,47101 ;RESULT IN AC IS INCORRECT 4213 033170 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4214 033171 004 03 0 00 047101 ER4 AC+1,47101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4215 033172 321 04 0 00 033163 JUMPL AC+2,E47100 ;LOOP ON ERROR SWITCH^ 4216 4217 ;SHIFT COUNTER TEST 4218 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4219 SR1 (472,230703,603700,143417,017401,ROT,2)^ 4220 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 2 BIT 4221 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 143417,017401] 4222 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4223 4224 033173 200 02 0 00 036631 E47200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4225 033174 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4226 033175 241 02 0 00 000002 ROT AC,2 ;*SHIFT/ROTATE 2 BIT POSITIONS 4227 033176 312 02 0 00 036642 CAME AC,[XWD 143417,017401] ;IS RESULT IN AC CORRECT? 4228 033177 003 02 0 00 047201 ER3 AC,47201 ;RESULT IN AC IS INCORRECT 4229 033200 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4230 033201 004 03 0 00 047201 ER4 AC+1,47201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4231 033202 321 04 0 00 033173 JUMPL AC+2,E47200 ;LOOP ON ERROR SWITCH^ 4232 4233 ;SHIFT COUNTER TEST 4234 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4235 SR1 (473,230703,603700,307036,037002,ROT,3)^ 4236 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 3 BIT 4237 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 307036,037002] 4238 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4239 4240 033203 200 02 0 00 036631 E47300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4241 033204 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4242 033205 241 02 0 00 000003 ROT AC,3 ;*SHIFT/ROTATE 3 BIT POSITIONS 4243 033206 312 02 0 00 036643 CAME AC,[XWD 307036,037002] ;IS RESULT IN AC CORRECT? 4244 033207 003 02 0 00 047301 ER3 AC,47301 ;RESULT IN AC IS INCORRECT 4245 033210 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4246 033211 004 03 0 00 047301 ER4 AC+1,47301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4247 033212 321 04 0 00 033203 JUMPL AC+2,E47300 ;LOOP ON ERROR SWITCH^ 4248 4249 ;SHIFT COUNTER TEST 4250 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4251 SR1 (474,230703,603700,434170,174011,ROT,5)^ 4252 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 5 BIT 4253 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 434170,174011] 4254 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4255 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0117 4256 033213 200 02 0 00 036631 E47400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4257 033214 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4258 033215 241 02 0 00 000005 ROT AC,5 ;*SHIFT/ROTATE 5 BIT POSITIONS 4259 033216 312 02 0 00 036644 CAME AC,[XWD 434170,174011] ;IS RESULT IN AC CORRECT? 4260 033217 003 02 0 00 047401 ER3 AC,47401 ;RESULT IN AC IS INCORRECT 4261 033220 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4262 033221 004 03 0 00 047401 ER4 AC+1,47401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4263 033222 321 04 0 00 033213 JUMPL AC+2,E47400 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 24 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0118 4264 ;SHIFT COUNTER TEST 4265 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4266 SR1 (475,230703,603700,703603,700230,ROT,11)^ 4267 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 11 BIT 4268 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 703603,700230] 4269 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4270 4271 033223 200 02 0 00 036631 E47500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4272 033224 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4273 033225 241 02 0 00 000011 ROT AC,11 ;*SHIFT/ROTATE 11 BIT POSITIONS 4274 033226 312 02 0 00 036645 CAME AC,[XWD 703603,700230] ;IS RESULT IN AC CORRECT? 4275 033227 003 02 0 00 047501 ER3 AC,47501 ;RESULT IN AC IS INCORRECT 4276 033230 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4277 033231 004 03 0 00 047501 ER4 AC+1,47501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4278 033232 321 04 0 00 033223 JUMPL AC+2,E47500 ;LOOP ON ERROR SWITCH^ 4279 4280 ;SHIFT COUNTER TEST 4281 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4282 SR1 (476,230703,603700,701740,114341,ROT,21)^ 4283 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 21 BIT 4284 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 701740,114341] 4285 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4286 4287 033233 200 02 0 00 036631 E47600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4288 033234 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4289 033235 241 02 0 00 000021 ROT AC,21 ;*SHIFT/ROTATE 21 BIT POSITIONS 4290 033236 312 02 0 00 036646 CAME AC,[XWD 701740,114341] ;IS RESULT IN AC CORRECT? 4291 033237 003 02 0 00 047601 ER3 AC,47601 ;RESULT IN AC IS INCORRECT 4292 033240 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4293 033241 004 03 0 00 047601 ER4 AC+1,47601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4294 033242 321 04 0 00 033233 JUMPL AC+2,E47600 ;LOOP ON ERROR SWITCH^ 4295 4296 ;SHIFT COUNTER TEST 4297 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4298 SR1 (477,230703,603700,023070,360370,ROT,41)^ 4299 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 41 BIT 4300 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 023070,360370] 4301 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4302 4303 033243 200 02 0 00 036631 E47700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4304 033244 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4305 033245 241 02 0 00 000041 ROT AC,41 ;*SHIFT/ROTATE 41 BIT POSITIONS 4306 033246 312 02 0 00 036647 CAME AC,[XWD 023070,360370] ;IS RESULT IN AC CORRECT? 4307 033247 003 02 0 00 047701 ER3 AC,47701 ;RESULT IN AC IS INCORRECT 4308 033250 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4309 033251 004 03 0 00 047701 ER4 AC+1,47701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4310 033252 321 04 0 00 033243 JUMPL AC+2,E47700 ;LOOP ON ERROR SWITCH^ 4311 4312 ;SHIFT COUNTER TEST 4313 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1 4314 SR1 (500,230703,603700,401143,417017,ROT,101)^ 4315 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 101 BIT 4316 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 401143,417017] 4317 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4318 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 24-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0119 4319 033253 200 02 0 00 036631 E50000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4320 033254 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4321 033255 241 02 0 00 000101 ROT AC,101 ;*SHIFT/ROTATE 101 BIT POSITIONS 4322 033256 312 02 0 00 036650 CAME AC,[XWD 401143,417017] ;IS RESULT IN AC CORRECT? 4323 033257 003 02 0 00 050001 ER3 AC,50001 ;RESULT IN AC IS INCORRECT 4324 033260 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4325 033261 004 03 0 00 050001 ER4 AC+1,50001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4326 033262 321 04 0 00 033253 JUMPL AC+2,E50000 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0120 4327 SUBTTL DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST 4328 4329 000476 ADR=501-3 4330 777777 777340 N=-374-44 4331 4332 REPEAT ^D15,< 4333 ADR=ADR+3 4334 N=N+44 4335 4336 ;SHIFT COUNTER TEST 4337 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4338 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1) 4339 4340 ;SHIFT COUNTER TEST 4341 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4342 SR1 (\,230703,603700,230703,603700,ROT,N) 4343 4344 ;SHIFT COUNTER TEST 4345 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4346 SR1 (\,230703,603700,461607,407600,ROT,N+1) 4347 PAGE> 4348 4349 000501 ADR=ADR+3 4350 777777 777404 N=N+44 4351 4352 ;SHIFT COUNTER TEST 4353 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4354 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4355 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4356 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4357 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4358 4359 033263 200 02 0 00 036631 E50100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4360 033264 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4361 033265 241 02 0 00 777403 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4362 033266 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4363 033267 003 02 0 00 050101 ER3 AC,50101 ;RESULT IN AC IS INCORRECT 4364 033270 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4365 033271 004 03 0 00 050101 ER4 AC+1,50101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4366 033272 321 04 0 00 033263 JUMPL AC+2,E50100 ;LOOP ON ERROR SWITCH^ 4367 4368 ;SHIFT COUNTER TEST 4369 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4370 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4371 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4372 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4373 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4374 4375 033273 200 02 0 00 036631 E50200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4376 033274 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4377 033275 241 02 0 00 777404 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4378 033276 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4379 033277 003 02 0 00 050201 ER3 AC,50201 ;RESULT IN AC IS INCORRECT 4380 033300 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4381 033301 004 03 0 00 050201 ER4 AC+1,50201 ;C(AC+1) WAS MODIFIED INCORRECTLY DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0121 4382 033302 321 04 0 00 033273 JUMPL AC+2,E50200 ;LOOP ON ERROR SWITCH^ 4383 4384 ;SHIFT COUNTER TEST 4385 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4386 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4387 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4388 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4389 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4390 4391 033303 200 02 0 00 036631 E50300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4392 033304 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4393 033305 241 02 0 00 777405 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4394 033306 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4395 033307 003 02 0 00 050301 ER3 AC,50301 ;RESULT IN AC IS INCORRECT 4396 033310 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4397 033311 004 03 0 00 050301 ER4 AC+1,50301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4398 033312 321 04 0 00 033303 JUMPL AC+2,E50300 ;LOOP ON ERROR SWITCH^ 4399 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0122 4400 4401 000504 ADR=ADR+3 4402 777777 777450 N=N+44 4403 4404 ;SHIFT COUNTER TEST 4405 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4406 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4407 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4408 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4409 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4410 4411 033313 200 02 0 00 036631 E50400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4412 033314 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4413 033315 241 02 0 00 777447 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4414 033316 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4415 033317 003 02 0 00 050401 ER3 AC,50401 ;RESULT IN AC IS INCORRECT 4416 033320 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4417 033321 004 03 0 00 050401 ER4 AC+1,50401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4418 033322 321 04 0 00 033313 JUMPL AC+2,E50400 ;LOOP ON ERROR SWITCH^ 4419 4420 ;SHIFT COUNTER TEST 4421 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4422 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4423 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4424 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4425 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4426 4427 033323 200 02 0 00 036631 E50500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4428 033324 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4429 033325 241 02 0 00 777450 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4430 033326 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4431 033327 003 02 0 00 050501 ER3 AC,50501 ;RESULT IN AC IS INCORRECT 4432 033330 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4433 033331 004 03 0 00 050501 ER4 AC+1,50501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4434 033332 321 04 0 00 033323 JUMPL AC+2,E50500 ;LOOP ON ERROR SWITCH^ 4435 4436 ;SHIFT COUNTER TEST 4437 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4438 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4439 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4440 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4441 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4442 4443 033333 200 02 0 00 036631 E50600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4444 033334 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4445 033335 241 02 0 00 777451 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4446 033336 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4447 033337 003 02 0 00 050601 ER3 AC,50601 ;RESULT IN AC IS INCORRECT 4448 033340 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4449 033341 004 03 0 00 050601 ER4 AC+1,50601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4450 033342 321 04 0 00 033333 JUMPL AC+2,E50600 ;LOOP ON ERROR SWITCH^ 4451 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0123 4452 4453 000507 ADR=ADR+3 4454 777777 777514 N=N+44 4455 4456 ;SHIFT COUNTER TEST 4457 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4458 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4459 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4460 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4461 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4462 4463 033343 200 02 0 00 036631 E50700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4464 033344 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4465 033345 241 02 0 00 777513 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4466 033346 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4467 033347 003 02 0 00 050701 ER3 AC,50701 ;RESULT IN AC IS INCORRECT 4468 033350 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4469 033351 004 03 0 00 050701 ER4 AC+1,50701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4470 033352 321 04 0 00 033343 JUMPL AC+2,E50700 ;LOOP ON ERROR SWITCH^ 4471 4472 ;SHIFT COUNTER TEST 4473 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4474 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4475 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4476 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4477 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4478 4479 033353 200 02 0 00 036631 E51000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4480 033354 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4481 033355 241 02 0 00 777514 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4482 033356 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4483 033357 003 02 0 00 051001 ER3 AC,51001 ;RESULT IN AC IS INCORRECT 4484 033360 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4485 033361 004 03 0 00 051001 ER4 AC+1,51001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4486 033362 321 04 0 00 033353 JUMPL AC+2,E51000 ;LOOP ON ERROR SWITCH^ 4487 4488 ;SHIFT COUNTER TEST 4489 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4490 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4491 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4492 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4493 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4494 4495 033363 200 02 0 00 036631 E51100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4496 033364 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4497 033365 241 02 0 00 777515 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4498 033366 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4499 033367 003 02 0 00 051101 ER3 AC,51101 ;RESULT IN AC IS INCORRECT 4500 033370 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4501 033371 004 03 0 00 051101 ER4 AC+1,51101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4502 033372 321 04 0 00 033363 JUMPL AC+2,E51100 ;LOOP ON ERROR SWITCH^ 4503 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0124 4504 4505 000512 ADR=ADR+3 4506 777777 777560 N=N+44 4507 4508 ;SHIFT COUNTER TEST 4509 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4510 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4511 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4512 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4513 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4514 4515 033373 200 02 0 00 036631 E51200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4516 033374 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4517 033375 241 02 0 00 777557 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4518 033376 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4519 033377 003 02 0 00 051201 ER3 AC,51201 ;RESULT IN AC IS INCORRECT 4520 033400 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4521 033401 004 03 0 00 051201 ER4 AC+1,51201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4522 033402 321 04 0 00 033373 JUMPL AC+2,E51200 ;LOOP ON ERROR SWITCH^ 4523 4524 ;SHIFT COUNTER TEST 4525 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4526 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4527 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4528 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4529 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4530 4531 033403 200 02 0 00 036631 E51300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4532 033404 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4533 033405 241 02 0 00 777560 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4534 033406 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4535 033407 003 02 0 00 051301 ER3 AC,51301 ;RESULT IN AC IS INCORRECT 4536 033410 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4537 033411 004 03 0 00 051301 ER4 AC+1,51301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4538 033412 321 04 0 00 033403 JUMPL AC+2,E51300 ;LOOP ON ERROR SWITCH^ 4539 4540 ;SHIFT COUNTER TEST 4541 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4542 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4543 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4544 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4545 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4546 4547 033413 200 02 0 00 036631 E51400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4548 033414 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4549 033415 241 02 0 00 777561 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4550 033416 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4551 033417 003 02 0 00 051401 ER3 AC,51401 ;RESULT IN AC IS INCORRECT 4552 033420 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4553 033421 004 03 0 00 051401 ER4 AC+1,51401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4554 033422 321 04 0 00 033413 JUMPL AC+2,E51400 ;LOOP ON ERROR SWITCH^ 4555 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0125 4556 4557 000515 ADR=ADR+3 4558 777777 777624 N=N+44 4559 4560 ;SHIFT COUNTER TEST 4561 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4562 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4563 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4564 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4565 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4566 4567 033423 200 02 0 00 036631 E51500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4568 033424 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4569 033425 241 02 0 00 777623 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4570 033426 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4571 033427 003 02 0 00 051501 ER3 AC,51501 ;RESULT IN AC IS INCORRECT 4572 033430 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4573 033431 004 03 0 00 051501 ER4 AC+1,51501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4574 033432 321 04 0 00 033423 JUMPL AC+2,E51500 ;LOOP ON ERROR SWITCH^ 4575 4576 ;SHIFT COUNTER TEST 4577 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4578 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4579 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4580 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4581 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4582 4583 033433 200 02 0 00 036631 E51600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4584 033434 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4585 033435 241 02 0 00 777624 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4586 033436 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4587 033437 003 02 0 00 051601 ER3 AC,51601 ;RESULT IN AC IS INCORRECT 4588 033440 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4589 033441 004 03 0 00 051601 ER4 AC+1,51601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4590 033442 321 04 0 00 033433 JUMPL AC+2,E51600 ;LOOP ON ERROR SWITCH^ 4591 4592 ;SHIFT COUNTER TEST 4593 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4594 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4595 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4596 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4597 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4598 4599 033443 200 02 0 00 036631 E51700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4600 033444 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4601 033445 241 02 0 00 777625 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4602 033446 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4603 033447 003 02 0 00 051701 ER3 AC,51701 ;RESULT IN AC IS INCORRECT 4604 033450 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4605 033451 004 03 0 00 051701 ER4 AC+1,51701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4606 033452 321 04 0 00 033443 JUMPL AC+2,E51700 ;LOOP ON ERROR SWITCH^ 4607 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-6 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0126 4608 4609 000520 ADR=ADR+3 4610 777777 777670 N=N+44 4611 4612 ;SHIFT COUNTER TEST 4613 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4614 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4615 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4616 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4617 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4618 4619 033453 200 02 0 00 036631 E52000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4620 033454 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4621 033455 241 02 0 00 777667 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4622 033456 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4623 033457 003 02 0 00 052001 ER3 AC,52001 ;RESULT IN AC IS INCORRECT 4624 033460 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4625 033461 004 03 0 00 052001 ER4 AC+1,52001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4626 033462 321 04 0 00 033453 JUMPL AC+2,E52000 ;LOOP ON ERROR SWITCH^ 4627 4628 ;SHIFT COUNTER TEST 4629 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4630 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4631 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4632 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4633 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4634 4635 033463 200 02 0 00 036631 E52100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4636 033464 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4637 033465 241 02 0 00 777670 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4638 033466 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4639 033467 003 02 0 00 052101 ER3 AC,52101 ;RESULT IN AC IS INCORRECT 4640 033470 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4641 033471 004 03 0 00 052101 ER4 AC+1,52101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4642 033472 321 04 0 00 033463 JUMPL AC+2,E52100 ;LOOP ON ERROR SWITCH^ 4643 4644 ;SHIFT COUNTER TEST 4645 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4646 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4647 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4648 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4649 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4650 4651 033473 200 02 0 00 036631 E52200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4652 033474 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4653 033475 241 02 0 00 777671 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4654 033476 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4655 033477 003 02 0 00 052201 ER3 AC,52201 ;RESULT IN AC IS INCORRECT 4656 033500 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4657 033501 004 03 0 00 052201 ER4 AC+1,52201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4658 033502 321 04 0 00 033473 JUMPL AC+2,E52200 ;LOOP ON ERROR SWITCH^ 4659 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-7 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0127 4660 4661 000523 ADR=ADR+3 4662 777777 777734 N=N+44 4663 4664 ;SHIFT COUNTER TEST 4665 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4666 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4667 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4668 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4669 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4670 4671 033503 200 02 0 00 036631 E52300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4672 033504 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4673 033505 241 02 0 00 777733 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4674 033506 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4675 033507 003 02 0 00 052301 ER3 AC,52301 ;RESULT IN AC IS INCORRECT 4676 033510 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4677 033511 004 03 0 00 052301 ER4 AC+1,52301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4678 033512 321 04 0 00 033503 JUMPL AC+2,E52300 ;LOOP ON ERROR SWITCH^ 4679 4680 ;SHIFT COUNTER TEST 4681 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4682 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4683 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4684 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4685 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4686 4687 033513 200 02 0 00 036631 E52400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4688 033514 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4689 033515 241 02 0 00 777734 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4690 033516 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4691 033517 003 02 0 00 052401 ER3 AC,52401 ;RESULT IN AC IS INCORRECT 4692 033520 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4693 033521 004 03 0 00 052401 ER4 AC+1,52401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4694 033522 321 04 0 00 033513 JUMPL AC+2,E52400 ;LOOP ON ERROR SWITCH^ 4695 4696 ;SHIFT COUNTER TEST 4697 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4698 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4699 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4700 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4701 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4702 4703 033523 200 02 0 00 036631 E52500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4704 033524 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4705 033525 241 02 0 00 777735 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4706 033526 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4707 033527 003 02 0 00 052501 ER3 AC,52501 ;RESULT IN AC IS INCORRECT 4708 033530 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4709 033531 004 03 0 00 052501 ER4 AC+1,52501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4710 033532 321 04 0 00 033523 JUMPL AC+2,E52500 ;LOOP ON ERROR SWITCH^ 4711 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-8 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0128 4712 4713 000526 ADR=ADR+3 4714 000000 N=N+44 4715 4716 ;SHIFT COUNTER TEST 4717 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4718 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4719 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4720 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4721 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4722 4723 033533 200 02 0 00 036631 E52600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4724 033534 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4725 033535 241 02 0 00 777777 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4726 033536 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4727 033537 003 02 0 00 052601 ER3 AC,52601 ;RESULT IN AC IS INCORRECT 4728 033540 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4729 033541 004 03 0 00 052601 ER4 AC+1,52601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4730 033542 321 04 0 00 033533 JUMPL AC+2,E52600 ;LOOP ON ERROR SWITCH^ 4731 4732 ;SHIFT COUNTER TEST 4733 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4734 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4735 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4736 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4737 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4738 4739 033543 200 02 0 00 036631 E52700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4740 033544 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4741 033545 241 02 0 00 000000 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4742 033546 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4743 033547 003 02 0 00 052701 ER3 AC,52701 ;RESULT IN AC IS INCORRECT 4744 033550 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4745 033551 004 03 0 00 052701 ER4 AC+1,52701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4746 033552 321 04 0 00 033543 JUMPL AC+2,E52700 ;LOOP ON ERROR SWITCH^ 4747 4748 ;SHIFT COUNTER TEST 4749 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4750 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4751 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4752 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4753 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4754 4755 033553 200 02 0 00 036631 E53000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4756 033554 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4757 033555 241 02 0 00 000001 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4758 033556 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4759 033557 003 02 0 00 053001 ER3 AC,53001 ;RESULT IN AC IS INCORRECT 4760 033560 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4761 033561 004 03 0 00 053001 ER4 AC+1,53001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4762 033562 321 04 0 00 033553 JUMPL AC+2,E53000 ;LOOP ON ERROR SWITCH^ 4763 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-9 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0129 4764 4765 000531 ADR=ADR+3 4766 000044 N=N+44 4767 4768 ;SHIFT COUNTER TEST 4769 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4770 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4771 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4772 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4773 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4774 4775 033563 200 02 0 00 036631 E53100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4776 033564 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4777 033565 241 02 0 00 000043 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4778 033566 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4779 033567 003 02 0 00 053101 ER3 AC,53101 ;RESULT IN AC IS INCORRECT 4780 033570 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4781 033571 004 03 0 00 053101 ER4 AC+1,53101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4782 033572 321 04 0 00 033563 JUMPL AC+2,E53100 ;LOOP ON ERROR SWITCH^ 4783 4784 ;SHIFT COUNTER TEST 4785 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4786 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4787 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4788 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4789 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4790 4791 033573 200 02 0 00 036631 E53200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4792 033574 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4793 033575 241 02 0 00 000044 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4794 033576 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4795 033577 003 02 0 00 053201 ER3 AC,53201 ;RESULT IN AC IS INCORRECT 4796 033600 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4797 033601 004 03 0 00 053201 ER4 AC+1,53201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4798 033602 321 04 0 00 033573 JUMPL AC+2,E53200 ;LOOP ON ERROR SWITCH^ 4799 4800 ;SHIFT COUNTER TEST 4801 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4802 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4803 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4804 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4805 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4806 4807 033603 200 02 0 00 036631 E53300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4808 033604 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4809 033605 241 02 0 00 000045 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4810 033606 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4811 033607 003 02 0 00 053301 ER3 AC,53301 ;RESULT IN AC IS INCORRECT 4812 033610 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4813 033611 004 03 0 00 053301 ER4 AC+1,53301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4814 033612 321 04 0 00 033603 JUMPL AC+2,E53300 ;LOOP ON ERROR SWITCH^ 4815 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-10 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0130 4816 4817 000534 ADR=ADR+3 4818 000110 N=N+44 4819 4820 ;SHIFT COUNTER TEST 4821 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4822 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4823 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4824 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4825 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4826 4827 033613 200 02 0 00 036631 E53400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4828 033614 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4829 033615 241 02 0 00 000107 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4830 033616 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4831 033617 003 02 0 00 053401 ER3 AC,53401 ;RESULT IN AC IS INCORRECT 4832 033620 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4833 033621 004 03 0 00 053401 ER4 AC+1,53401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4834 033622 321 04 0 00 033613 JUMPL AC+2,E53400 ;LOOP ON ERROR SWITCH^ 4835 4836 ;SHIFT COUNTER TEST 4837 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4838 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4839 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4840 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4841 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4842 4843 033623 200 02 0 00 036631 E53500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4844 033624 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4845 033625 241 02 0 00 000110 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4846 033626 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4847 033627 003 02 0 00 053501 ER3 AC,53501 ;RESULT IN AC IS INCORRECT 4848 033630 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4849 033631 004 03 0 00 053501 ER4 AC+1,53501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4850 033632 321 04 0 00 033623 JUMPL AC+2,E53500 ;LOOP ON ERROR SWITCH^ 4851 4852 ;SHIFT COUNTER TEST 4853 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4854 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4855 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4856 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4857 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4858 4859 033633 200 02 0 00 036631 E53600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4860 033634 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4861 033635 241 02 0 00 000111 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4862 033636 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4863 033637 003 02 0 00 053601 ER3 AC,53601 ;RESULT IN AC IS INCORRECT 4864 033640 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4865 033641 004 03 0 00 053601 ER4 AC+1,53601 ;C(AC+1) WAS MODIFIED INCORRECTLY 4866 033642 321 04 0 00 033633 JUMPL AC+2,E53600 ;LOOP ON ERROR SWITCH^ 4867 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-11 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0131 4868 4869 000537 ADR=ADR+3 4870 000154 N=N+44 4871 4872 ;SHIFT COUNTER TEST 4873 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4874 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4875 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4876 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4877 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4878 4879 033643 200 02 0 00 036631 E53700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4880 033644 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4881 033645 241 02 0 00 000153 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4882 033646 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4883 033647 003 02 0 00 053701 ER3 AC,53701 ;RESULT IN AC IS INCORRECT 4884 033650 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4885 033651 004 03 0 00 053701 ER4 AC+1,53701 ;C(AC+1) WAS MODIFIED INCORRECTLY 4886 033652 321 04 0 00 033643 JUMPL AC+2,E53700 ;LOOP ON ERROR SWITCH^ 4887 4888 ;SHIFT COUNTER TEST 4889 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4890 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4891 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4892 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4893 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4894 4895 033653 200 02 0 00 036631 E54000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4896 033654 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4897 033655 241 02 0 00 000154 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4898 033656 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4899 033657 003 02 0 00 054001 ER3 AC,54001 ;RESULT IN AC IS INCORRECT 4900 033660 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4901 033661 004 03 0 00 054001 ER4 AC+1,54001 ;C(AC+1) WAS MODIFIED INCORRECTLY 4902 033662 321 04 0 00 033653 JUMPL AC+2,E54000 ;LOOP ON ERROR SWITCH^ 4903 4904 ;SHIFT COUNTER TEST 4905 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4906 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4907 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4908 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4909 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4910 4911 033663 200 02 0 00 036631 E54100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4912 033664 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4913 033665 241 02 0 00 000155 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4914 033666 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4915 033667 003 02 0 00 054101 ER3 AC,54101 ;RESULT IN AC IS INCORRECT 4916 033670 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4917 033671 004 03 0 00 054101 ER4 AC+1,54101 ;C(AC+1) WAS MODIFIED INCORRECTLY 4918 033672 321 04 0 00 033663 JUMPL AC+2,E54100 ;LOOP ON ERROR SWITCH^ 4919 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-12 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0132 4920 4921 000542 ADR=ADR+3 4922 000220 N=N+44 4923 4924 ;SHIFT COUNTER TEST 4925 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4926 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4927 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4928 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4929 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4930 4931 033673 200 02 0 00 036631 E54200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4932 033674 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4933 033675 241 02 0 00 000217 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4934 033676 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4935 033677 003 02 0 00 054201 ER3 AC,54201 ;RESULT IN AC IS INCORRECT 4936 033700 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4937 033701 004 03 0 00 054201 ER4 AC+1,54201 ;C(AC+1) WAS MODIFIED INCORRECTLY 4938 033702 321 04 0 00 033673 JUMPL AC+2,E54200 ;LOOP ON ERROR SWITCH^ 4939 4940 ;SHIFT COUNTER TEST 4941 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4942 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4943 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4944 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4945 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4946 4947 033703 200 02 0 00 036631 E54300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4948 033704 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4949 033705 241 02 0 00 000220 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 4950 033706 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 4951 033707 003 02 0 00 054301 ER3 AC,54301 ;RESULT IN AC IS INCORRECT 4952 033710 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4953 033711 004 03 0 00 054301 ER4 AC+1,54301 ;C(AC+1) WAS MODIFIED INCORRECTLY 4954 033712 321 04 0 00 033703 JUMPL AC+2,E54300 ;LOOP ON ERROR SWITCH^ 4955 4956 ;SHIFT COUNTER TEST 4957 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 4958 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 4959 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 4960 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 4961 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4962 4963 033713 200 02 0 00 036631 E54400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4964 033714 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4965 033715 241 02 0 00 000221 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 4966 033716 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 4967 033717 003 02 0 00 054401 ER3 AC,54401 ;RESULT IN AC IS INCORRECT 4968 033720 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4969 033721 004 03 0 00 054401 ER4 AC+1,54401 ;C(AC+1) WAS MODIFIED INCORRECTLY 4970 033722 321 04 0 00 033713 JUMPL AC+2,E54400 ;LOOP ON ERROR SWITCH^ 4971 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-13 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0133 4972 4973 000545 ADR=ADR+3 4974 000264 N=N+44 4975 4976 ;SHIFT COUNTER TEST 4977 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 4978 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 4979 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 4980 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 4981 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4982 4983 033723 200 02 0 00 036631 E54500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 4984 033724 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 4985 033725 241 02 0 00 000263 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 4986 033726 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 4987 033727 003 02 0 00 054501 ER3 AC,54501 ;RESULT IN AC IS INCORRECT 4988 033730 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 4989 033731 004 03 0 00 054501 ER4 AC+1,54501 ;C(AC+1) WAS MODIFIED INCORRECTLY 4990 033732 321 04 0 00 033723 JUMPL AC+2,E54500 ;LOOP ON ERROR SWITCH^ 4991 4992 ;SHIFT COUNTER TEST 4993 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 4994 SR1 (\,230703,603700,230703,603700,ROT,N)^ 4995 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 4996 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 4997 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 4998 4999 033733 200 02 0 00 036631 E54600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5000 033734 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5001 033735 241 02 0 00 000264 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 5002 033736 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5003 033737 003 02 0 00 054601 ER3 AC,54601 ;RESULT IN AC IS INCORRECT 5004 033740 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5005 033741 004 03 0 00 054601 ER4 AC+1,54601 ;C(AC+1) WAS MODIFIED INCORRECTLY 5006 033742 321 04 0 00 033733 JUMPL AC+2,E54600 ;LOOP ON ERROR SWITCH^ 5007 5008 ;SHIFT COUNTER TEST 5009 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5010 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 5011 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 5012 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 5013 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5014 5015 033743 200 02 0 00 036631 E54700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5016 033744 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5017 033745 241 02 0 00 000265 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 5018 033746 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 5019 033747 003 02 0 00 054701 ER3 AC,54701 ;RESULT IN AC IS INCORRECT 5020 033750 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5021 033751 004 03 0 00 054701 ER4 AC+1,54701 ;C(AC+1) WAS MODIFIED INCORRECTLY 5022 033752 321 04 0 00 033743 JUMPL AC+2,E54700 ;LOOP ON ERROR SWITCH^ 5023 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-14 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0134 5024 5025 000550 ADR=ADR+3 5026 000330 N=N+44 5027 5028 ;SHIFT COUNTER TEST 5029 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5030 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 5031 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 5032 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 5033 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5034 5035 033753 200 02 0 00 036631 E55000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5036 033754 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5037 033755 241 02 0 00 000327 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 5038 033756 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 5039 033757 003 02 0 00 055001 ER3 AC,55001 ;RESULT IN AC IS INCORRECT 5040 033760 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5041 033761 004 03 0 00 055001 ER4 AC+1,55001 ;C(AC+1) WAS MODIFIED INCORRECTLY 5042 033762 321 04 0 00 033753 JUMPL AC+2,E55000 ;LOOP ON ERROR SWITCH^ 5043 5044 ;SHIFT COUNTER TEST 5045 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5046 SR1 (\,230703,603700,230703,603700,ROT,N)^ 5047 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 5048 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 5049 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5050 5051 033763 200 02 0 00 036631 E55100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5052 033764 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5053 033765 241 02 0 00 000330 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 5054 033766 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5055 033767 003 02 0 00 055101 ER3 AC,55101 ;RESULT IN AC IS INCORRECT 5056 033770 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5057 033771 004 03 0 00 055101 ER4 AC+1,55101 ;C(AC+1) WAS MODIFIED INCORRECTLY 5058 033772 321 04 0 00 033763 JUMPL AC+2,E55100 ;LOOP ON ERROR SWITCH^ 5059 5060 ;SHIFT COUNTER TEST 5061 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5062 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 5063 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 5064 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 5065 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5066 5067 033773 200 02 0 00 036631 E55200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5068 033774 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5069 033775 241 02 0 00 000331 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 5070 033776 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 5071 033777 003 02 0 00 055201 ER3 AC,55201 ;RESULT IN AC IS INCORRECT 5072 034000 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5073 034001 004 03 0 00 055201 ER4 AC+1,55201 ;C(AC+1) WAS MODIFIED INCORRECTLY 5074 034002 321 04 0 00 033773 JUMPL AC+2,E55200 ;LOOP ON ERROR SWITCH^ 5075 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-15 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0135 5076 5077 000553 ADR=ADR+3 5078 000374 N=N+44 5079 5080 ;SHIFT COUNTER TEST 5081 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5082 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^ 5083 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT 5084 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740] 5085 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5086 5087 034003 200 02 0 00 036631 E55300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5088 034004 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5089 034005 241 02 0 00 000373 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS 5090 034006 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT? 5091 034007 003 02 0 00 055301 ER3 AC,55301 ;RESULT IN AC IS INCORRECT 5092 034010 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5093 034011 004 03 0 00 055301 ER4 AC+1,55301 ;C(AC+1) WAS MODIFIED INCORRECTLY 5094 034012 321 04 0 00 034003 JUMPL AC+2,E55300 ;LOOP ON ERROR SWITCH^ 5095 5096 ;SHIFT COUNTER TEST 5097 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5098 SR1 (\,230703,603700,230703,603700,ROT,N)^ 5099 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT 5100 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 5101 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5102 5103 034013 200 02 0 00 036631 E55400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5104 034014 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5105 034015 241 02 0 00 000374 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS 5106 034016 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5107 034017 003 02 0 00 055401 ER3 AC,55401 ;RESULT IN AC IS INCORRECT 5108 034020 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5109 034021 004 03 0 00 055401 ER4 AC+1,55401 ;C(AC+1) WAS MODIFIED INCORRECTLY 5110 034022 321 04 0 00 034013 JUMPL AC+2,E55400 ;LOOP ON ERROR SWITCH^ 5111 5112 ;SHIFT COUNTER TEST 5113 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5114 SR1 (\,230703,603700,461607,407600,ROT,N+1)^ 5115 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT 5116 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600] 5117 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 5118 5119 034023 200 02 0 00 036631 E55500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5120 034024 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 5121 034025 241 02 0 00 000375 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS 5122 034026 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT? 5123 034027 003 02 0 00 055501 ER3 AC,55501 ;RESULT IN AC IS INCORRECT 5124 034030 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 5125 034031 004 03 0 00 055501 ER4 AC+1,55501 ;C(AC+1) WAS MODIFIED INCORRECTLY 5126 034032 321 04 0 00 034023 JUMPL AC+2,E55500 ;LOOP ON ERROR SWITCH^ 5127 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 26 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0136 5128 777777 777340 N=-374-44 5129 5130 REPEAT ^D1,< 5131 000556 ADR=ADR+3 5132 777777 777404 N=N+44 5133 5134 ;SHIFT COUNTER TEST 5135 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5136 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5137 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5138 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5139 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5140 ;[XWD 514341,701740] 5141 5142 034033 200 02 0 00 036631 E55600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5143 034034 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5144 034035 245 02 0 00 777403 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5145 034036 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5146 034037 003 02 0 00 055601 ER3 AC,55601 ;RESULT IN AC IS INCORRECT 5147 034040 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5148 034041 004 03 0 00 055601 ER4 AC+1,55601 ;RESULT IN AC+1 IS INCORRECT 5149 034042 321 04 0 00 034033 JUMPL AC+2,E55600 ;LOOP ON ERROR SWITCH^ 5150 5151 ;SHIFT COUNTER TEST 5152 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5153 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5154 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5155 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5156 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5157 ;[XWD 230703,603700] 5158 5159 034043 200 02 0 00 036631 E55700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5160 034044 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5161 034045 245 02 0 00 777404 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5162 034046 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5163 034047 003 02 0 00 055701 ER3 AC,55701 ;RESULT IN AC IS INCORRECT 5164 034050 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5165 034051 004 03 0 00 055701 ER4 AC+1,55701 ;RESULT IN AC+1 IS INCORRECT 5166 034052 321 04 0 00 034043 JUMPL AC+2,E55700 ;LOOP ON ERROR SWITCH^ 5167 5168 ;SHIFT COUNTER TEST 5169 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5170 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5171 ^ 5172 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5173 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5174 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5175 ;[XWD 461607,407601] 5176 5177 034053 200 02 0 00 036631 E56000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5178 034054 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5179 034055 245 02 0 00 777405 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5180 034056 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5181 034057 003 02 0 00 056001 ER3 AC,56001 ;RESULT IN AC IS INCORRECT 5182 034060 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 26-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0137 5183 034061 004 03 0 00 056001 ER4 AC+1,56001 ;RESULT IN AC+1 IS INCORRECT 5184 034062 321 04 0 00 034053 JUMPL AC+2,E56000 ;LOOP ON ERROR SWITCH^ 5185 PAGE> DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 27 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0138 5186 REPEAT ^D7,< 5187 ADR=ADR+3 5188 N=N+44 5189 5190 ;SHIFT COUNTER TEST 5191 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5192 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1) 5193 5194 ;SHIFT COUNTER TEST 5195 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5196 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N) 5197 5198 ;SHIFT COUNTER TEST 5199 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5200 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5201 5202 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 28 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0139 5203 ADR=ADR+3 5204 N=N+44 5205 5206 ;SHIFT COUNTER TEST 5207 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5208 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1) 5209 5210 ;SHIFT COUNTER TEST 5211 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5212 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N) 5213 5214 ;SHIFT COUNTER TEST 5215 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5216 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5217 5218 PAGE> 5219 5220 000561 ADR=ADR+3 5221 777777 777450 N=N+44 5222 5223 ;SHIFT COUNTER TEST 5224 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5225 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5226 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5227 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5228 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5229 ;[XWD 374017,700177] 5230 5231 034063 200 02 0 00 036631 E56100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5232 034064 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5233 034065 245 02 0 00 777447 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5234 034066 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5235 034067 003 02 0 00 056101 ER3 AC,56101 ;RESULT IN AC IS INCORRECT 5236 034070 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5237 034071 004 03 0 00 056101 ER4 AC+1,56101 ;RESULT IN AC+1 IS INCORRECT 5238 034072 321 04 0 00 034063 JUMPL AC+2,E56100 ;LOOP ON ERROR SWITCH^ 5239 5240 ;SHIFT COUNTER TEST 5241 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5242 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5243 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5244 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5245 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5246 ;[XWD 770037,600377] 5247 5248 034073 200 02 0 00 036631 E56200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5249 034074 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5250 034075 245 02 0 00 777450 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5251 034076 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5252 034077 003 02 0 00 056201 ER3 AC,56201 ;RESULT IN AC IS INCORRECT 5253 034100 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5254 034101 004 03 0 00 056201 ER4 AC+1,56201 ;RESULT IN AC+1 IS INCORRECT 5255 034102 321 04 0 00 034073 JUMPL AC+2,E56200 ;LOOP ON ERROR SWITCH^ 5256 5257 ;SHIFT COUNTER TEST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 28-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0140 5258 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5259 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5260 ^ 5261 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5262 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5263 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5264 ;[XWD 760077,400776] 5265 5266 034103 200 02 0 00 036631 E56300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5267 034104 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5268 034105 245 02 0 00 777451 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5269 034106 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5270 034107 003 02 0 00 056301 ER3 AC,56301 ;RESULT IN AC IS INCORRECT 5271 034110 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5272 034111 004 03 0 00 056301 ER4 AC+1,56301 ;RESULT IN AC+1 IS INCORRECT 5273 034112 321 04 0 00 034103 JUMPL AC+2,E56300 ;LOOP ON ERROR SWITCH^ 5274 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0141 5275 000564 ADR=ADR+3 5276 777777 777514 N=N+44 5277 5278 ;SHIFT COUNTER TEST 5279 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5280 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5281 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5282 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5283 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5284 ;[XWD 514341,701740] 5285 5286 034113 200 02 0 00 036631 E56400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5287 034114 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5288 034115 245 02 0 00 777513 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5289 034116 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5290 034117 003 02 0 00 056401 ER3 AC,56401 ;RESULT IN AC IS INCORRECT 5291 034120 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5292 034121 004 03 0 00 056401 ER4 AC+1,56401 ;RESULT IN AC+1 IS INCORRECT 5293 034122 321 04 0 00 034113 JUMPL AC+2,E56400 ;LOOP ON ERROR SWITCH^ 5294 5295 ;SHIFT COUNTER TEST 5296 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5297 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5298 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5299 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5300 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5301 ;[XWD 230703,603700] 5302 5303 034123 200 02 0 00 036631 E56500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5304 034124 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5305 034125 245 02 0 00 777514 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5306 034126 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5307 034127 003 02 0 00 056501 ER3 AC,56501 ;RESULT IN AC IS INCORRECT 5308 034130 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5309 034131 004 03 0 00 056501 ER4 AC+1,56501 ;RESULT IN AC+1 IS INCORRECT 5310 034132 321 04 0 00 034123 JUMPL AC+2,E56500 ;LOOP ON ERROR SWITCH^ 5311 5312 ;SHIFT COUNTER TEST 5313 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5314 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5315 ^ 5316 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5317 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5318 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5319 ;[XWD 461607,407601] 5320 5321 034133 200 02 0 00 036631 E56600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5322 034134 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5323 034135 245 02 0 00 777515 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5324 034136 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5325 034137 003 02 0 00 056601 ER3 AC,56601 ;RESULT IN AC IS INCORRECT 5326 034140 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5327 034141 004 03 0 00 056601 ER4 AC+1,56601 ;RESULT IN AC+1 IS INCORRECT 5328 034142 321 04 0 00 034133 JUMPL AC+2,E56600 ;LOOP ON ERROR SWITCH^ 5329 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0142 5330 5331 000567 ADR=ADR+3 5332 777777 777560 N=N+44 5333 5334 ;SHIFT COUNTER TEST 5335 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5336 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5337 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5338 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5339 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5340 ;[XWD 374017,700177] 5341 5342 034143 200 02 0 00 036631 E56700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5343 034144 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5344 034145 245 02 0 00 777557 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5345 034146 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5346 034147 003 02 0 00 056701 ER3 AC,56701 ;RESULT IN AC IS INCORRECT 5347 034150 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5348 034151 004 03 0 00 056701 ER4 AC+1,56701 ;RESULT IN AC+1 IS INCORRECT 5349 034152 321 04 0 00 034143 JUMPL AC+2,E56700 ;LOOP ON ERROR SWITCH^ 5350 5351 ;SHIFT COUNTER TEST 5352 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5353 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5354 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5355 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5356 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5357 ;[XWD 770037,600377] 5358 5359 034153 200 02 0 00 036631 E57000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5360 034154 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5361 034155 245 02 0 00 777560 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5362 034156 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5363 034157 003 02 0 00 057001 ER3 AC,57001 ;RESULT IN AC IS INCORRECT 5364 034160 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5365 034161 004 03 0 00 057001 ER4 AC+1,57001 ;RESULT IN AC+1 IS INCORRECT 5366 034162 321 04 0 00 034153 JUMPL AC+2,E57000 ;LOOP ON ERROR SWITCH^ 5367 5368 ;SHIFT COUNTER TEST 5369 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5370 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5371 ^ 5372 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5373 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5374 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5375 ;[XWD 760077,400776] 5376 5377 034163 200 02 0 00 036631 E57100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5378 034164 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5379 034165 245 02 0 00 777561 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5380 034166 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5381 034167 003 02 0 00 057101 ER3 AC,57101 ;RESULT IN AC IS INCORRECT 5382 034170 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5383 034171 004 03 0 00 057101 ER4 AC+1,57101 ;RESULT IN AC+1 IS INCORRECT 5384 034172 321 04 0 00 034163 JUMPL AC+2,E57100 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0143 5385 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0144 5386 000572 ADR=ADR+3 5387 777777 777624 N=N+44 5388 5389 ;SHIFT COUNTER TEST 5390 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5391 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5392 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5393 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5394 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5395 ;[XWD 514341,701740] 5396 5397 034173 200 02 0 00 036631 E57200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5398 034174 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5399 034175 245 02 0 00 777623 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5400 034176 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5401 034177 003 02 0 00 057201 ER3 AC,57201 ;RESULT IN AC IS INCORRECT 5402 034200 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5403 034201 004 03 0 00 057201 ER4 AC+1,57201 ;RESULT IN AC+1 IS INCORRECT 5404 034202 321 04 0 00 034173 JUMPL AC+2,E57200 ;LOOP ON ERROR SWITCH^ 5405 5406 ;SHIFT COUNTER TEST 5407 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5408 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5409 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5410 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5411 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5412 ;[XWD 230703,603700] 5413 5414 034203 200 02 0 00 036631 E57300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5415 034204 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5416 034205 245 02 0 00 777624 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5417 034206 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5418 034207 003 02 0 00 057301 ER3 AC,57301 ;RESULT IN AC IS INCORRECT 5419 034210 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5420 034211 004 03 0 00 057301 ER4 AC+1,57301 ;RESULT IN AC+1 IS INCORRECT 5421 034212 321 04 0 00 034203 JUMPL AC+2,E57300 ;LOOP ON ERROR SWITCH^ 5422 5423 ;SHIFT COUNTER TEST 5424 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5425 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5426 ^ 5427 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5428 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5429 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5430 ;[XWD 461607,407601] 5431 5432 034213 200 02 0 00 036631 E57400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5433 034214 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5434 034215 245 02 0 00 777625 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5435 034216 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5436 034217 003 02 0 00 057401 ER3 AC,57401 ;RESULT IN AC IS INCORRECT 5437 034220 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5438 034221 004 03 0 00 057401 ER4 AC+1,57401 ;RESULT IN AC+1 IS INCORRECT 5439 034222 321 04 0 00 034213 JUMPL AC+2,E57400 ;LOOP ON ERROR SWITCH^ 5440 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0145 5441 5442 000575 ADR=ADR+3 5443 777777 777670 N=N+44 5444 5445 ;SHIFT COUNTER TEST 5446 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5447 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5448 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5449 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5450 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5451 ;[XWD 374017,700177] 5452 5453 034223 200 02 0 00 036631 E57500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5454 034224 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5455 034225 245 02 0 00 777667 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5456 034226 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5457 034227 003 02 0 00 057501 ER3 AC,57501 ;RESULT IN AC IS INCORRECT 5458 034230 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5459 034231 004 03 0 00 057501 ER4 AC+1,57501 ;RESULT IN AC+1 IS INCORRECT 5460 034232 321 04 0 00 034223 JUMPL AC+2,E57500 ;LOOP ON ERROR SWITCH^ 5461 5462 ;SHIFT COUNTER TEST 5463 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5464 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5465 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5466 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5467 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5468 ;[XWD 770037,600377] 5469 5470 034233 200 02 0 00 036631 E57600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5471 034234 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5472 034235 245 02 0 00 777670 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5473 034236 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5474 034237 003 02 0 00 057601 ER3 AC,57601 ;RESULT IN AC IS INCORRECT 5475 034240 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5476 034241 004 03 0 00 057601 ER4 AC+1,57601 ;RESULT IN AC+1 IS INCORRECT 5477 034242 321 04 0 00 034233 JUMPL AC+2,E57600 ;LOOP ON ERROR SWITCH^ 5478 5479 ;SHIFT COUNTER TEST 5480 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5481 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5482 ^ 5483 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5484 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5485 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5486 ;[XWD 760077,400776] 5487 5488 034243 200 02 0 00 036631 E57700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5489 034244 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5490 034245 245 02 0 00 777671 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5491 034246 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5492 034247 003 02 0 00 057701 ER3 AC,57701 ;RESULT IN AC IS INCORRECT 5493 034250 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5494 034251 004 03 0 00 057701 ER4 AC+1,57701 ;RESULT IN AC+1 IS INCORRECT 5495 034252 321 04 0 00 034243 JUMPL AC+2,E57700 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0146 5496 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0147 5497 000600 ADR=ADR+3 5498 777777 777734 N=N+44 5499 5500 ;SHIFT COUNTER TEST 5501 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5502 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5503 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5504 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5505 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5506 ;[XWD 514341,701740] 5507 5508 034253 200 02 0 00 036631 E60000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5509 034254 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5510 034255 245 02 0 00 777733 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5511 034256 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5512 034257 003 02 0 00 060001 ER3 AC,60001 ;RESULT IN AC IS INCORRECT 5513 034260 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5514 034261 004 03 0 00 060001 ER4 AC+1,60001 ;RESULT IN AC+1 IS INCORRECT 5515 034262 321 04 0 00 034253 JUMPL AC+2,E60000 ;LOOP ON ERROR SWITCH^ 5516 5517 ;SHIFT COUNTER TEST 5518 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5519 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5520 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5521 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5522 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5523 ;[XWD 230703,603700] 5524 5525 034263 200 02 0 00 036631 E60100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5526 034264 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5527 034265 245 02 0 00 777734 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5528 034266 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5529 034267 003 02 0 00 060101 ER3 AC,60101 ;RESULT IN AC IS INCORRECT 5530 034270 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5531 034271 004 03 0 00 060101 ER4 AC+1,60101 ;RESULT IN AC+1 IS INCORRECT 5532 034272 321 04 0 00 034263 JUMPL AC+2,E60100 ;LOOP ON ERROR SWITCH^ 5533 5534 ;SHIFT COUNTER TEST 5535 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5536 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5537 ^ 5538 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5539 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5540 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5541 ;[XWD 461607,407601] 5542 5543 034273 200 02 0 00 036631 E60200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5544 034274 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5545 034275 245 02 0 00 777735 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5546 034276 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5547 034277 003 02 0 00 060201 ER3 AC,60201 ;RESULT IN AC IS INCORRECT 5548 034300 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5549 034301 004 03 0 00 060201 ER4 AC+1,60201 ;RESULT IN AC+1 IS INCORRECT 5550 034302 321 04 0 00 034273 JUMPL AC+2,E60200 ;LOOP ON ERROR SWITCH^ 5551 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0148 5552 5553 000603 ADR=ADR+3 5554 000000 N=N+44 5555 5556 ;SHIFT COUNTER TEST 5557 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5558 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5559 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5560 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5561 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5562 ;[XWD 374017,700177] 5563 5564 034303 200 02 0 00 036631 E60300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5565 034304 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5566 034305 245 02 0 00 777777 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5567 034306 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5568 034307 003 02 0 00 060301 ER3 AC,60301 ;RESULT IN AC IS INCORRECT 5569 034310 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5570 034311 004 03 0 00 060301 ER4 AC+1,60301 ;RESULT IN AC+1 IS INCORRECT 5571 034312 321 04 0 00 034303 JUMPL AC+2,E60300 ;LOOP ON ERROR SWITCH^ 5572 5573 ;SHIFT COUNTER TEST 5574 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5575 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5576 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5577 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5578 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5579 ;[XWD 770037,600377] 5580 5581 034313 200 02 0 00 036631 E60400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5582 034314 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5583 034315 245 02 0 00 000000 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5584 034316 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5585 034317 003 02 0 00 060401 ER3 AC,60401 ;RESULT IN AC IS INCORRECT 5586 034320 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5587 034321 004 03 0 00 060401 ER4 AC+1,60401 ;RESULT IN AC+1 IS INCORRECT 5588 034322 321 04 0 00 034313 JUMPL AC+2,E60400 ;LOOP ON ERROR SWITCH^ 5589 5590 ;SHIFT COUNTER TEST 5591 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5592 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5593 ^ 5594 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5595 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5596 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5597 ;[XWD 760077,400776] 5598 5599 034323 200 02 0 00 036631 E60500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5600 034324 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5601 034325 245 02 0 00 000001 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5602 034326 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5603 034327 003 02 0 00 060501 ER3 AC,60501 ;RESULT IN AC IS INCORRECT 5604 034330 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5605 034331 004 03 0 00 060501 ER4 AC+1,60501 ;RESULT IN AC+1 IS INCORRECT 5606 034332 321 04 0 00 034323 JUMPL AC+2,E60500 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0149 5607 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0150 5608 000606 ADR=ADR+3 5609 000044 N=N+44 5610 5611 ;SHIFT COUNTER TEST 5612 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5613 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5614 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5615 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5616 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5617 ;[XWD 514341,701740] 5618 5619 034333 200 02 0 00 036631 E60600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5620 034334 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5621 034335 245 02 0 00 000043 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5622 034336 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5623 034337 003 02 0 00 060601 ER3 AC,60601 ;RESULT IN AC IS INCORRECT 5624 034340 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5625 034341 004 03 0 00 060601 ER4 AC+1,60601 ;RESULT IN AC+1 IS INCORRECT 5626 034342 321 04 0 00 034333 JUMPL AC+2,E60600 ;LOOP ON ERROR SWITCH^ 5627 5628 ;SHIFT COUNTER TEST 5629 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5630 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5631 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5632 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5633 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5634 ;[XWD 230703,603700] 5635 5636 034343 200 02 0 00 036631 E60700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5637 034344 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5638 034345 245 02 0 00 000044 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5639 034346 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5640 034347 003 02 0 00 060701 ER3 AC,60701 ;RESULT IN AC IS INCORRECT 5641 034350 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5642 034351 004 03 0 00 060701 ER4 AC+1,60701 ;RESULT IN AC+1 IS INCORRECT 5643 034352 321 04 0 00 034343 JUMPL AC+2,E60700 ;LOOP ON ERROR SWITCH^ 5644 5645 ;SHIFT COUNTER TEST 5646 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5647 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5648 ^ 5649 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5650 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5651 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5652 ;[XWD 461607,407601] 5653 5654 034353 200 02 0 00 036631 E61000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5655 034354 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5656 034355 245 02 0 00 000045 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5657 034356 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5658 034357 003 02 0 00 061001 ER3 AC,61001 ;RESULT IN AC IS INCORRECT 5659 034360 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5660 034361 004 03 0 00 061001 ER4 AC+1,61001 ;RESULT IN AC+1 IS INCORRECT 5661 034362 321 04 0 00 034353 JUMPL AC+2,E61000 ;LOOP ON ERROR SWITCH^ 5662 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0151 5663 5664 000611 ADR=ADR+3 5665 000110 N=N+44 5666 5667 ;SHIFT COUNTER TEST 5668 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5669 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5670 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5671 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5672 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5673 ;[XWD 374017,700177] 5674 5675 034363 200 02 0 00 036631 E61100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5676 034364 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5677 034365 245 02 0 00 000107 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5678 034366 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5679 034367 003 02 0 00 061101 ER3 AC,61101 ;RESULT IN AC IS INCORRECT 5680 034370 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5681 034371 004 03 0 00 061101 ER4 AC+1,61101 ;RESULT IN AC+1 IS INCORRECT 5682 034372 321 04 0 00 034363 JUMPL AC+2,E61100 ;LOOP ON ERROR SWITCH^ 5683 5684 ;SHIFT COUNTER TEST 5685 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5686 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5687 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5688 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5689 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5690 ;[XWD 770037,600377] 5691 5692 034373 200 02 0 00 036631 E61200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5693 034374 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5694 034375 245 02 0 00 000110 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5695 034376 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5696 034377 003 02 0 00 061201 ER3 AC,61201 ;RESULT IN AC IS INCORRECT 5697 034400 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5698 034401 004 03 0 00 061201 ER4 AC+1,61201 ;RESULT IN AC+1 IS INCORRECT 5699 034402 321 04 0 00 034373 JUMPL AC+2,E61200 ;LOOP ON ERROR SWITCH^ 5700 5701 ;SHIFT COUNTER TEST 5702 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5703 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5704 ^ 5705 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5706 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5707 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5708 ;[XWD 760077,400776] 5709 5710 034403 200 02 0 00 036631 E61300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5711 034404 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5712 034405 245 02 0 00 000111 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5713 034406 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5714 034407 003 02 0 00 061301 ER3 AC,61301 ;RESULT IN AC IS INCORRECT 5715 034410 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5716 034411 004 03 0 00 061301 ER4 AC+1,61301 ;RESULT IN AC+1 IS INCORRECT 5717 034412 321 04 0 00 034403 JUMPL AC+2,E61300 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0152 5718 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0153 5719 000614 ADR=ADR+3 5720 000154 N=N+44 5721 5722 ;SHIFT COUNTER TEST 5723 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5724 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5725 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5726 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5727 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5728 ;[XWD 514341,701740] 5729 5730 034413 200 02 0 00 036631 E61400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5731 034414 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5732 034415 245 02 0 00 000153 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5733 034416 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5734 034417 003 02 0 00 061401 ER3 AC,61401 ;RESULT IN AC IS INCORRECT 5735 034420 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5736 034421 004 03 0 00 061401 ER4 AC+1,61401 ;RESULT IN AC+1 IS INCORRECT 5737 034422 321 04 0 00 034413 JUMPL AC+2,E61400 ;LOOP ON ERROR SWITCH^ 5738 5739 ;SHIFT COUNTER TEST 5740 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5741 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5742 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5743 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5744 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5745 ;[XWD 230703,603700] 5746 5747 034423 200 02 0 00 036631 E61500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5748 034424 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5749 034425 245 02 0 00 000154 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5750 034426 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5751 034427 003 02 0 00 061501 ER3 AC,61501 ;RESULT IN AC IS INCORRECT 5752 034430 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5753 034431 004 03 0 00 061501 ER4 AC+1,61501 ;RESULT IN AC+1 IS INCORRECT 5754 034432 321 04 0 00 034423 JUMPL AC+2,E61500 ;LOOP ON ERROR SWITCH^ 5755 5756 ;SHIFT COUNTER TEST 5757 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5758 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5759 ^ 5760 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5761 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5762 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5763 ;[XWD 461607,407601] 5764 5765 034433 200 02 0 00 036631 E61600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5766 034434 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5767 034435 245 02 0 00 000155 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5768 034436 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5769 034437 003 02 0 00 061601 ER3 AC,61601 ;RESULT IN AC IS INCORRECT 5770 034440 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5771 034441 004 03 0 00 061601 ER4 AC+1,61601 ;RESULT IN AC+1 IS INCORRECT 5772 034442 321 04 0 00 034433 JUMPL AC+2,E61600 ;LOOP ON ERROR SWITCH^ 5773 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0154 5774 5775 000617 ADR=ADR+3 5776 000220 N=N+44 5777 5778 ;SHIFT COUNTER TEST 5779 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5780 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5781 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5782 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5783 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5784 ;[XWD 374017,700177] 5785 5786 034443 200 02 0 00 036631 E61700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5787 034444 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5788 034445 245 02 0 00 000217 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5789 034446 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5790 034447 003 02 0 00 061701 ER3 AC,61701 ;RESULT IN AC IS INCORRECT 5791 034450 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5792 034451 004 03 0 00 061701 ER4 AC+1,61701 ;RESULT IN AC+1 IS INCORRECT 5793 034452 321 04 0 00 034443 JUMPL AC+2,E61700 ;LOOP ON ERROR SWITCH^ 5794 5795 ;SHIFT COUNTER TEST 5796 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5797 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5798 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5799 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5800 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5801 ;[XWD 770037,600377] 5802 5803 034453 200 02 0 00 036631 E62000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5804 034454 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5805 034455 245 02 0 00 000220 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5806 034456 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5807 034457 003 02 0 00 062001 ER3 AC,62001 ;RESULT IN AC IS INCORRECT 5808 034460 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5809 034461 004 03 0 00 062001 ER4 AC+1,62001 ;RESULT IN AC+1 IS INCORRECT 5810 034462 321 04 0 00 034453 JUMPL AC+2,E62000 ;LOOP ON ERROR SWITCH^ 5811 5812 ;SHIFT COUNTER TEST 5813 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5814 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5815 ^ 5816 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5817 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5818 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5819 ;[XWD 760077,400776] 5820 5821 034463 200 02 0 00 036631 E62100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5822 034464 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5823 034465 245 02 0 00 000221 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5824 034466 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5825 034467 003 02 0 00 062101 ER3 AC,62101 ;RESULT IN AC IS INCORRECT 5826 034470 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5827 034471 004 03 0 00 062101 ER4 AC+1,62101 ;RESULT IN AC+1 IS INCORRECT 5828 034472 321 04 0 00 034463 JUMPL AC+2,E62100 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0155 5829 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0156 5830 000622 ADR=ADR+3 5831 000264 N=N+44 5832 5833 ;SHIFT COUNTER TEST 5834 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5835 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5836 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5837 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5838 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5839 ;[XWD 514341,701740] 5840 5841 034473 200 02 0 00 036631 E62200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5842 034474 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5843 034475 245 02 0 00 000263 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5844 034476 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5845 034477 003 02 0 00 062201 ER3 AC,62201 ;RESULT IN AC IS INCORRECT 5846 034500 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5847 034501 004 03 0 00 062201 ER4 AC+1,62201 ;RESULT IN AC+1 IS INCORRECT 5848 034502 321 04 0 00 034473 JUMPL AC+2,E62200 ;LOOP ON ERROR SWITCH^ 5849 5850 ;SHIFT COUNTER TEST 5851 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5852 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5853 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5854 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5855 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5856 ;[XWD 230703,603700] 5857 5858 034503 200 02 0 00 036631 E62300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5859 034504 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5860 034505 245 02 0 00 000264 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5861 034506 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5862 034507 003 02 0 00 062301 ER3 AC,62301 ;RESULT IN AC IS INCORRECT 5863 034510 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5864 034511 004 03 0 00 062301 ER4 AC+1,62301 ;RESULT IN AC+1 IS INCORRECT 5865 034512 321 04 0 00 034503 JUMPL AC+2,E62300 ;LOOP ON ERROR SWITCH^ 5866 5867 ;SHIFT COUNTER TEST 5868 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5869 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5870 ^ 5871 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5872 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5873 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5874 ;[XWD 461607,407601] 5875 5876 034513 200 02 0 00 036631 E62400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5877 034514 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5878 034515 245 02 0 00 000265 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5879 034516 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5880 034517 003 02 0 00 062401 ER3 AC,62401 ;RESULT IN AC IS INCORRECT 5881 034520 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5882 034521 004 03 0 00 062401 ER4 AC+1,62401 ;RESULT IN AC+1 IS INCORRECT 5883 034522 321 04 0 00 034513 JUMPL AC+2,E62400 ;LOOP ON ERROR SWITCH^ 5884 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0157 5885 5886 000625 ADR=ADR+3 5887 000330 N=N+44 5888 5889 ;SHIFT COUNTER TEST 5890 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5891 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^ 5892 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5893 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5894 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND 5895 ;[XWD 374017,700177] 5896 5897 034523 200 02 0 00 036631 E62500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5898 034524 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5899 034525 245 02 0 00 000327 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5900 034526 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT? 5901 034527 003 02 0 00 062501 ER3 AC,62501 ;RESULT IN AC IS INCORRECT 5902 034530 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT? 5903 034531 004 03 0 00 062501 ER4 AC+1,62501 ;RESULT IN AC+1 IS INCORRECT 5904 034532 321 04 0 00 034523 JUMPL AC+2,E62500 ;LOOP ON ERROR SWITCH^ 5905 5906 ;SHIFT COUNTER TEST 5907 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5908 SR2 (\,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^ 5909 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5910 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5911 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND 5912 ;[XWD 770037,600377] 5913 5914 034533 200 02 0 00 036631 E62600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5915 034534 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5916 034535 245 02 0 00 000330 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5917 034536 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 5918 034537 003 02 0 00 062601 ER3 AC,62601 ;RESULT IN AC IS INCORRECT 5919 034540 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT? 5920 034541 004 03 0 00 062601 ER4 AC+1,62601 ;RESULT IN AC+1 IS INCORRECT 5921 034542 321 04 0 00 034533 JUMPL AC+2,E62600 ;LOOP ON ERROR SWITCH^ 5922 5923 ;SHIFT COUNTER TEST 5924 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5925 SR2 (\,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1) 5926 ^ 5927 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5928 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5929 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND 5930 ;[XWD 760077,400776] 5931 5932 034543 200 02 0 00 036631 E62700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5933 034544 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5934 034545 245 02 0 00 000331 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5935 034546 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT? 5936 034547 003 02 0 00 062701 ER3 AC,62701 ;RESULT IN AC IS INCORRECT 5937 034550 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT? 5938 034551 004 03 0 00 062701 ER4 AC+1,62701 ;RESULT IN AC+1 IS INCORRECT 5939 034552 321 04 0 00 034543 JUMPL AC+2,E62700 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0158 5940 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 35 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0159 5941 000630 ADR=ADR+3 5942 000374 N=N+44 5943 5944 ;SHIFT COUNTER TEST 5945 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION 5946 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^ 5947 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5948 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND 5949 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND 5950 ;[XWD 514341,701740] 5951 5952 034553 200 02 0 00 036631 E63000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5953 034554 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5954 034555 245 02 0 00 000373 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES 5955 034556 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT? 5956 034557 003 02 0 00 063001 ER3 AC,63001 ;RESULT IN AC IS INCORRECT 5957 034560 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT? 5958 034561 004 03 0 00 063001 ER4 AC+1,63001 ;RESULT IN AC+1 IS INCORRECT 5959 034562 321 04 0 00 034553 JUMPL AC+2,E63000 ;LOOP ON ERROR SWITCH^ 5960 5961 ;SHIFT COUNTER TEST 5962 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS 5963 SR2 (\,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^ 5964 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5965 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND 5966 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND 5967 ;[XWD 230703,603700] 5968 5969 034563 200 02 0 00 036631 E63100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5970 034564 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5971 034565 245 02 0 00 000374 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES 5972 034566 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT? 5973 034567 003 02 0 00 063101 ER3 AC,63101 ;RESULT IN AC IS INCORRECT 5974 034570 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT? 5975 034571 004 03 0 00 063101 ER4 AC+1,63101 ;RESULT IN AC+1 IS INCORRECT 5976 034572 321 04 0 00 034563 JUMPL AC+2,E63100 ;LOOP ON ERROR SWITCH^ 5977 5978 ;SHIFT COUNTER TEST 5979 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION 5980 SR2 (\,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1) 5981 ^ 5982 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 5983 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND 5984 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND 5985 ;[XWD 461607,407601] 5986 5987 034573 200 02 0 00 036631 E63200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 5988 034574 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 5989 034575 245 02 0 00 000375 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES 5990 034576 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT? 5991 034577 003 02 0 00 063201 ER3 AC,63201 ;RESULT IN AC IS INCORRECT 5992 034600 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT? 5993 034601 004 03 0 00 063201 ER4 AC+1,63201 ;RESULT IN AC+1 IS INCORRECT 5994 034602 321 04 0 00 034573 JUMPL AC+2,E63200 ;LOOP ON ERROR SWITCH^ 5995 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 36 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0160 5996 ;SHIFT COUNTER TEST 5997 ;TEST FOR MAXIMUM LEFT ROTATION (255 POSITIONS) 5998 SR1 (633,230703,603700,307036,037002,ROT,377)^ 5999 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 377 BIT 6000 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 307036,037002] 6001 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6002 6003 034603 200 02 0 00 036631 E63300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6004 034604 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6005 034605 241 02 0 00 000377 ROT AC,377 ;*SHIFT/ROTATE 377 BIT POSITIONS 6006 034606 312 02 0 00 036643 CAME AC,[XWD 307036,037002] ;IS RESULT IN AC CORRECT? 6007 034607 003 02 0 00 063301 ER3 AC,63301 ;RESULT IN AC IS INCORRECT 6008 034610 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6009 034611 004 03 0 00 063301 ER4 AC+1,63301 ;C(AC+1) WAS MODIFIED INCORRECTLY 6010 034612 321 04 0 00 034603 JUMPL AC+2,E63300 ;LOOP ON ERROR SWITCH^ 6011 6012 ;SHIFT COUNTER TEST 6013 ;TEST FOR MAXIMUM RIGHT ROTATION -1 (255 POSITIONS) 6014 SR1 (634,230703,603700,023070,360370,ROT,-377)^ 6015 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] -377 BIT 6016 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 023070,360370] 6017 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6018 6019 034613 200 02 0 00 036631 E63400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6020 034614 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6021 034615 241 02 0 00 777401 ROT AC,-377 ;*SHIFT/ROTATE -377 BIT POSITIONS 6022 034616 312 02 0 00 036647 CAME AC,[XWD 023070,360370] ;IS RESULT IN AC CORRECT? 6023 034617 003 02 0 00 063401 ER3 AC,63401 ;RESULT IN AC IS INCORRECT 6024 034620 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6025 034621 004 03 0 00 063401 ER4 AC+1,63401 ;C(AC+1) WAS MODIFIED INCORRECTLY 6026 034622 321 04 0 00 034613 JUMPL AC+2,E63400 ;LOOP ON ERROR SWITCH^ 6027 6028 ;SHIFT COUNTER TEST 6029 ;TEST FOR MAXIMUM LEFT ROTATION (255 POSITIONS) 6030 SR2 (635,230703,603700,770037,600377,700376,003772,307036,037007,ROTC,377)^ 6031 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 6032 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] 377 BIT POSITIONS AND 6033 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700376,003772] AND 6034 ;[XWD 307036,037007] 6035 6036 034623 200 02 0 00 036631 E63500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6037 034624 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 6038 034625 245 02 0 00 000377 ROTC AC,377 ;*SHIFT/ROTATE COMBINED 377 PLACES 6039 034626 312 02 0 00 036657 CAME AC,[XWD 700376,003772] ;IS RESULT IN AC CORRECT? 6040 034627 003 02 0 00 063501 ER3 AC,63501 ;RESULT IN AC IS INCORRECT 6041 034630 312 03 0 00 036660 CAME AC+1,[XWD 307036,037007] ;IS RESULT IN AC+1 CORRECT? 6042 034631 004 03 0 00 063501 ER4 AC+1,63501 ;RESULT IN AC+1 IS INCORRECT 6043 034632 321 04 0 00 034623 JUMPL AC+2,E63500 ;LOOP ON ERROR SWITCH^ 6044 6045 ;SHIFT COUNTER TEST 6046 ;TEST FOR MAXIMUM RIGHT ROTATION -1 (255 POSITIONS) 6047 SR2 (636,230703,603700,770037,600377,077003,760037,723070,360370,ROTC,-377)^ 6048 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 6049 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] -377 BIT POSITIONS AND 6050 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077003,760037] AND DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 36-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0161 6051 ;[XWD 723070,360370] 6052 6053 034633 200 02 0 00 036631 E63600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6054 034634 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 6055 034635 245 02 0 00 777401 ROTC AC,-377 ;*SHIFT/ROTATE COMBINED -377 PLACES 6056 034636 312 02 0 00 036661 CAME AC,[XWD 077003,760037] ;IS RESULT IN AC CORRECT? 6057 034637 003 02 0 00 063601 ER3 AC,63601 ;RESULT IN AC IS INCORRECT 6058 034640 312 03 0 00 036662 CAME AC+1,[XWD 723070,360370] ;IS RESULT IN AC+1 CORRECT? 6059 034641 004 03 0 00 063601 ER4 AC+1,63601 ;RESULT IN AC+1 IS INCORRECT 6060 034642 321 04 0 00 034633 JUMPL AC+2,E63600 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0162 6061 ;SHIFT COUNTER TEST 6062 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6063 ;RESULT SHOULD INDICATE NO ROTATION 6064 SR1 (637,230703,603700,230703,603700,ROT,400)^ 6065 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 400 BIT 6066 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6067 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6068 6069 034643 200 02 0 00 036631 E63700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6070 034644 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6071 034645 241 02 0 00 000400 ROT AC,400 ;*SHIFT/ROTATE 400 BIT POSITIONS 6072 034646 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6073 034647 003 02 0 00 063701 ER3 AC,63701 ;RESULT IN AC IS INCORRECT 6074 034650 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6075 034651 004 03 0 00 063701 ER4 AC+1,63701 ;C(AC+1) WAS MODIFIED INCORRECTLY 6076 034652 321 04 0 00 034643 JUMPL AC+2,E63700 ;LOOP ON ERROR SWITCH^ 6077 6078 ;SHIFT COUNTER TEST 6079 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6080 ;RESULT SHOULD INDICATE NO ROTATION 6081 SR1 (640,230703,603700,230703,603700,ROT,1000)^ 6082 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 1000 BIT 6083 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6084 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6085 6086 034653 200 02 0 00 036631 E64000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6087 034654 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6088 034655 241 02 0 00 001000 ROT AC,1000 ;*SHIFT/ROTATE 1000 BIT POSITIONS 6089 034656 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6090 034657 003 02 0 00 064001 ER3 AC,64001 ;RESULT IN AC IS INCORRECT 6091 034660 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6092 034661 004 03 0 00 064001 ER4 AC+1,64001 ;C(AC+1) WAS MODIFIED INCORRECTLY 6093 034662 321 04 0 00 034653 JUMPL AC+2,E64000 ;LOOP ON ERROR SWITCH^ 6094 6095 ;SHIFT COUNTER TEST 6096 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6097 ;RESULT SHOULD INDICATE NO ROTATION 6098 SR1 (641,230703,603700,230703,603700,ROT,2000)^ 6099 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 2000 BIT 6100 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6101 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6102 6103 034663 200 02 0 00 036631 E64100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6104 034664 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6105 034665 241 02 0 00 002000 ROT AC,2000 ;*SHIFT/ROTATE 2000 BIT POSITIONS 6106 034666 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6107 034667 003 02 0 00 064101 ER3 AC,64101 ;RESULT IN AC IS INCORRECT 6108 034670 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6109 034671 004 03 0 00 064101 ER4 AC+1,64101 ;C(AC+1) WAS MODIFIED INCORRECTLY 6110 034672 321 04 0 00 034663 JUMPL AC+2,E64100 ;LOOP ON ERROR SWITCH^ 6111 6112 ;SHIFT COUNTER TEST 6113 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6114 ;RESULT SHOULD INDICATE NO ROTATION 6115 SR1 (642,230703,603700,230703,603700,ROT,4000)^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0163 6116 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 4000 BIT 6117 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6118 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6119 6120 034673 200 02 0 00 036631 E64200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6121 034674 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6122 034675 241 02 0 00 004000 ROT AC,4000 ;*SHIFT/ROTATE 4000 BIT POSITIONS 6123 034676 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6124 034677 003 02 0 00 064201 ER3 AC,64201 ;RESULT IN AC IS INCORRECT 6125 034700 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6126 034701 004 03 0 00 064201 ER4 AC+1,64201 ;C(AC+1) WAS MODIFIED INCORRECTLY 6127 034702 321 04 0 00 034673 JUMPL AC+2,E64200 ;LOOP ON ERROR SWITCH^ 6128 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0164 6129 ;SHIFT COUNTER TEST 6130 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6131 ;RESULT SHOULD INDICATE NO ROTATION 6132 SR1 (643,230703,603700,230703,603700,ROT,10000)^ 6133 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 10000 BIT 6134 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6135 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6136 6137 034703 200 02 0 00 036631 E64300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6138 034704 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6139 034705 241 02 0 00 010000 ROT AC,10000 ;*SHIFT/ROTATE 10000 BIT POSITIONS 6140 034706 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6141 034707 003 02 0 00 064301 ER3 AC,64301 ;RESULT IN AC IS INCORRECT 6142 034710 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6143 034711 004 03 0 00 064301 ER4 AC+1,64301 ;C(AC+1) WAS MODIFIED INCORRECTLY 6144 034712 321 04 0 00 034703 JUMPL AC+2,E64300 ;LOOP ON ERROR SWITCH^ 6145 6146 ;SHIFT COUNTER TEST 6147 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6148 ;RESULT SHOULD INDICATE NO ROTATION 6149 SR1 (644,230703,603700,230703,603700,ROT,20000)^ 6150 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 20000 BIT 6151 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6152 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6153 6154 034713 200 02 0 00 036631 E64400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6155 034714 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6156 034715 241 02 0 00 020000 ROT AC,20000 ;*SHIFT/ROTATE 20000 BIT POSITIONS 6157 034716 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6158 034717 003 02 0 00 064401 ER3 AC,64401 ;RESULT IN AC IS INCORRECT 6159 034720 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6160 034721 004 03 0 00 064401 ER4 AC+1,64401 ;C(AC+1) WAS MODIFIED INCORRECTLY 6161 034722 321 04 0 00 034713 JUMPL AC+2,E64400 ;LOOP ON ERROR SWITCH^ 6162 6163 ;SHIFT COUNTER TEST 6164 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6165 ;RESULT SHOULD INDICATE NO ROTATION 6166 SR1 (645,230703,603700,230703,603700,ROT,40000)^ 6167 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 40000 BIT 6168 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6169 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6170 6171 034723 200 02 0 00 036631 E64500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6172 034724 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6173 034725 241 02 0 00 040000 ROT AC,40000 ;*SHIFT/ROTATE 40000 BIT POSITIONS 6174 034726 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6175 034727 003 02 0 00 064501 ER3 AC,64501 ;RESULT IN AC IS INCORRECT 6176 034730 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6177 034731 004 03 0 00 064501 ER4 AC+1,64501 ;C(AC+1) WAS MODIFIED INCORRECTLY 6178 034732 321 04 0 00 034723 JUMPL AC+2,E64500 ;LOOP ON ERROR SWITCH^ 6179 6180 ;SHIFT COUNTER TEST 6181 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6182 ;RESULT SHOULD INDICATE NO ROTATION 6183 SR1 (646,230703,603700,230703,603700,ROT,100000)^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0165 6184 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 100000 BIT 6185 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6186 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6187 6188 034733 200 02 0 00 036631 E64600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6189 034734 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6190 034735 241 02 0 00 100000 ROT AC,100000 ;*SHIFT/ROTATE 100000 BIT POSITIONS 6191 034736 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6192 034737 003 02 0 00 064601 ER3 AC,64601 ;RESULT IN AC IS INCORRECT 6193 034740 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6194 034741 004 03 0 00 064601 ER4 AC+1,64601 ;C(AC+1) WAS MODIFIED INCORRECTLY 6195 034742 321 04 0 00 034733 JUMPL AC+2,E64600 ;LOOP ON ERROR SWITCH^ 6196 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0166 6197 ;SHIFT COUNTER TEST 6198 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR 6199 ;RESULT SHOULD INDICATE NO ROTATION 6200 SR1 (647,230703,603700,230703,603700,ROT,200000)^ 6201 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 200000 BIT 6202 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700] 6203 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6204 6205 034743 200 02 0 00 036631 E64700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6206 034744 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6207 034745 241 02 0 00 200000 ROT AC,200000 ;*SHIFT/ROTATE 200000 BIT POSITIONS 6208 034746 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT? 6209 034747 003 02 0 00 064701 ER3 AC,64701 ;RESULT IN AC IS INCORRECT 6210 034750 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6211 034751 004 03 0 00 064701 ER4 AC+1,64701 ;C(AC+1) WAS MODIFIED INCORRECTLY 6212 034752 321 04 0 00 034743 JUMPL AC+2,E64700 ;LOOP ON ERROR SWITCH^ 6213 6214 ;SHIFT COUNTER TEST 6215 ;TEST FOR MAXIMUM RIGHT ROTATION (256 POSITIONS) 6216 SR1 (650,230703,603700,011434,170174,ROT,400000)^ 6217 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 400000 BIT 6218 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 011434,170174] 6219 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED 6220 6221 034753 200 02 0 00 036631 E65000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6222 034754 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1 6223 034755 241 02 0 00 400000 ROT AC,400000 ;*SHIFT/ROTATE 400000 BIT POSITIONS 6224 034756 312 02 0 00 036637 CAME AC,[XWD 011434,170174] ;IS RESULT IN AC CORRECT? 6225 034757 003 02 0 00 065001 ER3 AC,65001 ;RESULT IN AC IS INCORRECT 6226 034760 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417] 6227 034761 004 03 0 00 065001 ER4 AC+1,65001 ;C(AC+1) WAS MODIFIED INCORRECTLY 6228 034762 321 04 0 00 034753 JUMPL AC+2,E65000 ;LOOP ON ERROR SWITCH^ 6229 6230 ;SHIFT COUNTER TEST 6231 ;TEST FOR MAXIMUM RIGHT ROTATION (256 POSITIONS) 6232 SR2 (651,230703,603700,770037,600377,037401,770017,751434,170174,ROTC,400000)^ 6233 6234 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE 6235 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] 400000 BIT POSITIONS AND 6236 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 037401,770017] AND 6237 ;[XWD 751434,170174] 6238 6239 034763 200 02 0 00 036631 E65100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC 6240 034764 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1 6241 034765 245 02 0 00 400000 ROTC AC,400000 ;*SHIFT/ROTATE COMBINED 400000 PLACES 6242 034766 312 02 0 00 036663 CAME AC,[XWD 037401,770017] ;IS RESULT IN AC CORRECT? 6243 034767 003 02 0 00 065101 ER3 AC,65101 ;RESULT IN AC IS INCORRECT 6244 034770 312 03 0 00 036664 CAME AC+1,[XWD 751434,170174] ;IS RESULT IN AC+1 CORRECT? 6245 034771 004 03 0 00 065101 ER4 AC+1,65101 ;RESULT IN AC+1 IS INCORRECT 6246 034772 321 04 0 00 034763 JUMPL AC+2,E65100 ;LOOP ON ERROR SWITCH^ DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0167 6247 SUBTTL DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST 6248 6249 ;TEST ACCUMULATOR ADDRESSING 6250 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6251 ;TO ADDRESS THE CORRECT ACCUMULATORS 6252 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6253 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6254 ;LEFT ZERO TIMES 6255 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6256 ;FROM AC'S ADDRESSED BY INSTRUCTION 6257 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6258 ;IS IN AC 6259 ;INADVERTENT SHIFTING OR PICKING UP OF 6260 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6261 6262 777777 777776 AC=-2 6263 777777 777776 ZZ=-2 6264 REPEAT ^D7, ;SET UP ACCUMULATOR'S 6265 < ZZ=ZZ+2 6266 AC=AC+2 6267 MOVEI AC,ZZ ;AC NUMBER TO AC 6268 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6269 > 6270 000000 ZZ=ZZ+2 6271 000000 AC=AC+2 6272 034773 201 00 0 00 000000 MOVEI AC,ZZ ;AC NUMBER TO AC 6273 034774 201 01 0 00 000001 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6274 6275 000002 ZZ=ZZ+2 6276 000002 AC=AC+2 6277 034775 201 02 0 00 000002 MOVEI AC,ZZ ;AC NUMBER TO AC 6278 034776 201 03 0 00 000003 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6279 6280 000004 ZZ=ZZ+2 6281 000004 AC=AC+2 6282 034777 201 04 0 00 000004 MOVEI AC,ZZ ;AC NUMBER TO AC 6283 035000 201 05 0 00 000005 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6284 6285 000006 ZZ=ZZ+2 6286 000006 AC=AC+2 6287 035001 201 06 0 00 000006 MOVEI AC,ZZ ;AC NUMBER TO AC 6288 035002 201 07 0 00 000007 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6289 6290 000010 ZZ=ZZ+2 6291 000010 AC=AC+2 6292 035003 201 10 0 00 000010 MOVEI AC,ZZ ;AC NUMBER TO AC 6293 035004 201 11 0 00 000011 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6294 6295 000012 ZZ=ZZ+2 6296 000012 AC=AC+2 6297 035005 201 12 0 00 000012 MOVEI AC,ZZ ;AC NUMBER TO AC 6298 035006 201 13 0 00 000013 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6299 6300 000014 ZZ=ZZ+2 6301 000014 AC=AC+2 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0168 6302 035007 201 14 0 00 000014 MOVEI AC,ZZ ;AC NUMBER TO AC 6303 035010 201 15 0 00 000015 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1 6304 6305 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0169 6306 000001 AC=1 6307 SAVEAC (1,1)^ 6308 035011 201 03 0 00 035011 MOVEI AC+2,. ;SAVE TEST PC 6309 035012 202 03 0 00 030051 MOVEM AC+2,TESTPC 6310 035013 201 03 0 00 000003 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6311 035014 202 03 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6312 6313 041400 SN=41400 6314 000014 AC=14 6315 000014 ZZ=14 6316 6317 E41400: REPEAT ^D5,< ;TEST ROTC-ACCUMULATOR'S 7-14 6318 ;TEST ACCUMULATOR ADDRESSING 6319 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6320 ;TO ADDRESS THE CORRECT ACCUMULATORS 6321 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6322 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6323 ;LEFT ZERO TIMES 6324 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6325 ;FROM AC'S ADDRESSED BY INSTRUCTION 6326 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6327 ;IS IN AC 6328 ;INADVERTENT SHIFTING OR PICKING UP OF 6329 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6330 6331 SN=SN+1 6332 ZZ=ZZ-1 6333 AC=AC-1 6334 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6335 CAIE AC,ZZ ;TEST FOR CORRECT AC 6336 ER3 AC,SN ;INCORRECT AC 6337 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6338 ER4 AC,SN ;INCORRECT AC+1 6339 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6340 > 6341 ;TEST ROTC-ACCUMULATOR'S 7-14 6342 ;TEST ACCUMULATOR ADDRESSING 6343 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6344 ;TO ADDRESS THE CORRECT ACCUMULATORS 6345 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6346 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6347 ;LEFT ZERO TIMES 6348 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6349 ;FROM AC'S ADDRESSED BY INSTRUCTION 6350 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6351 ;IS IN AC 6352 ;INADVERTENT SHIFTING OR PICKING UP OF 6353 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6354 6355 041401 SN=SN+1 6356 000013 ZZ=ZZ-1 6357 000013 AC=AC-1 6358 035015 245 13 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6359 035016 302 13 0 00 000013 CAIE AC,ZZ ;TEST FOR CORRECT AC 6360 035017 003 13 0 00 041401 ER3 AC,SN ;INCORRECT AC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0170 6361 035020 302 14 0 00 000014 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6362 035021 004 13 0 00 041401 ER4 AC,SN ;INCORRECT AC+1 6363 035022 321 15 0 00 035015 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6364 6365 ;TEST ROTC-ACCUMULATOR'S 7-14 6366 ;TEST ACCUMULATOR ADDRESSING 6367 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6368 ;TO ADDRESS THE CORRECT ACCUMULATORS 6369 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6370 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6371 ;LEFT ZERO TIMES 6372 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6373 ;FROM AC'S ADDRESSED BY INSTRUCTION 6374 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6375 ;IS IN AC 6376 ;INADVERTENT SHIFTING OR PICKING UP OF 6377 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6378 6379 041402 SN=SN+1 6380 000012 ZZ=ZZ-1 6381 000012 AC=AC-1 6382 035023 245 12 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6383 035024 302 12 0 00 000012 CAIE AC,ZZ ;TEST FOR CORRECT AC 6384 035025 003 12 0 00 041402 ER3 AC,SN ;INCORRECT AC 6385 035026 302 13 0 00 000013 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6386 035027 004 12 0 00 041402 ER4 AC,SN ;INCORRECT AC+1 6387 035030 321 14 0 00 035023 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6388 6389 ;TEST ROTC-ACCUMULATOR'S 7-14 6390 ;TEST ACCUMULATOR ADDRESSING 6391 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6392 ;TO ADDRESS THE CORRECT ACCUMULATORS 6393 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6394 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6395 ;LEFT ZERO TIMES 6396 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6397 ;FROM AC'S ADDRESSED BY INSTRUCTION 6398 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6399 ;IS IN AC 6400 ;INADVERTENT SHIFTING OR PICKING UP OF 6401 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6402 6403 041403 SN=SN+1 6404 000011 ZZ=ZZ-1 6405 000011 AC=AC-1 6406 035031 245 11 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6407 035032 302 11 0 00 000011 CAIE AC,ZZ ;TEST FOR CORRECT AC 6408 035033 003 11 0 00 041403 ER3 AC,SN ;INCORRECT AC 6409 035034 302 12 0 00 000012 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6410 035035 004 11 0 00 041403 ER4 AC,SN ;INCORRECT AC+1 6411 035036 321 13 0 00 035031 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6412 6413 ;TEST ROTC-ACCUMULATOR'S 7-14 6414 ;TEST ACCUMULATOR ADDRESSING 6415 ;TEST THE ABILITY OF ROTC,LSHC,ASHC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0171 6416 ;TO ADDRESS THE CORRECT ACCUMULATORS 6417 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6418 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6419 ;LEFT ZERO TIMES 6420 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6421 ;FROM AC'S ADDRESSED BY INSTRUCTION 6422 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6423 ;IS IN AC 6424 ;INADVERTENT SHIFTING OR PICKING UP OF 6425 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6426 6427 041404 SN=SN+1 6428 000010 ZZ=ZZ-1 6429 000010 AC=AC-1 6430 035037 245 10 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6431 035040 302 10 0 00 000010 CAIE AC,ZZ ;TEST FOR CORRECT AC 6432 035041 003 10 0 00 041404 ER3 AC,SN ;INCORRECT AC 6433 035042 302 11 0 00 000011 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6434 035043 004 10 0 00 041404 ER4 AC,SN ;INCORRECT AC+1 6435 035044 321 12 0 00 035037 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6436 6437 ;TEST ROTC-ACCUMULATOR'S 7-14 6438 ;TEST ACCUMULATOR ADDRESSING 6439 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6440 ;TO ADDRESS THE CORRECT ACCUMULATORS 6441 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6442 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6443 ;LEFT ZERO TIMES 6444 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6445 ;FROM AC'S ADDRESSED BY INSTRUCTION 6446 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6447 ;IS IN AC 6448 ;INADVERTENT SHIFTING OR PICKING UP OF 6449 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6450 6451 041405 SN=SN+1 6452 000007 ZZ=ZZ-1 6453 000007 AC=AC-1 6454 035045 245 07 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES 6455 035046 302 07 0 00 000007 CAIE AC,ZZ ;TEST FOR CORRECT AC 6456 035047 003 07 0 00 041405 ER3 AC,SN ;INCORRECT AC 6457 035050 302 10 0 00 000010 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6458 035051 004 07 0 00 041405 ER4 AC,SN ;INCORRECT AC+1 6459 035052 321 11 0 00 035045 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6460 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0172 6461 000011 AC=11 6462 SAVEAC (1,1)^ 6463 035053 201 13 0 00 035053 MOVEI AC+2,. ;SAVE TEST PC 6464 035054 202 13 0 00 030051 MOVEM AC+2,TESTPC 6465 035055 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6466 035056 202 13 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6467 6468 041500 SN=41500 6469 000012 AC=12 6470 000012 ZZ=12 6471 6472 E41500: REPEAT ^D5,< ;TEST LSHC-ACCUMULATORS 5-12 6473 ;TEST ACCUMULATOR ADDRESSING 6474 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6475 ;TO ADDRESS THE CORRECT ACCUMULATORS 6476 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6477 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6478 ;LEFT ZERO TIMES 6479 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6480 ;FROM AC'S ADDRESSED BY INSTRUCTION 6481 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6482 ;IS IN AC 6483 ;INADVERTENT SHIFTING OR PICKING UP OF 6484 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6485 6486 SN=SN+1 6487 ZZ=ZZ-1 6488 AC=AC-1 6489 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6490 CAIE AC,ZZ ;TEST FOR CORRECT AC 6491 ER3 AC,SN ;INCORRECT AC 6492 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6493 ER4 AC,SN ;INCORRECT AC+1 6494 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6495 > 6496 ;TEST LSHC-ACCUMULATORS 5-12 6497 ;TEST ACCUMULATOR ADDRESSING 6498 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6499 ;TO ADDRESS THE CORRECT ACCUMULATORS 6500 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6501 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6502 ;LEFT ZERO TIMES 6503 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6504 ;FROM AC'S ADDRESSED BY INSTRUCTION 6505 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6506 ;IS IN AC 6507 ;INADVERTENT SHIFTING OR PICKING UP OF 6508 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6509 6510 041501 SN=SN+1 6511 000011 ZZ=ZZ-1 6512 000011 AC=AC-1 6513 035057 246 11 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6514 035060 302 11 0 00 000011 CAIE AC,ZZ ;TEST FOR CORRECT AC 6515 035061 003 11 0 00 041501 ER3 AC,SN ;INCORRECT AC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0173 6516 035062 302 12 0 00 000012 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6517 035063 004 11 0 00 041501 ER4 AC,SN ;INCORRECT AC+1 6518 035064 321 13 0 00 035057 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6519 6520 ;TEST LSHC-ACCUMULATORS 5-12 6521 ;TEST ACCUMULATOR ADDRESSING 6522 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6523 ;TO ADDRESS THE CORRECT ACCUMULATORS 6524 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6525 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6526 ;LEFT ZERO TIMES 6527 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6528 ;FROM AC'S ADDRESSED BY INSTRUCTION 6529 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6530 ;IS IN AC 6531 ;INADVERTENT SHIFTING OR PICKING UP OF 6532 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6533 6534 041502 SN=SN+1 6535 000010 ZZ=ZZ-1 6536 000010 AC=AC-1 6537 035065 246 10 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6538 035066 302 10 0 00 000010 CAIE AC,ZZ ;TEST FOR CORRECT AC 6539 035067 003 10 0 00 041502 ER3 AC,SN ;INCORRECT AC 6540 035070 302 11 0 00 000011 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6541 035071 004 10 0 00 041502 ER4 AC,SN ;INCORRECT AC+1 6542 035072 321 12 0 00 035065 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6543 6544 ;TEST LSHC-ACCUMULATORS 5-12 6545 ;TEST ACCUMULATOR ADDRESSING 6546 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6547 ;TO ADDRESS THE CORRECT ACCUMULATORS 6548 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6549 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6550 ;LEFT ZERO TIMES 6551 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6552 ;FROM AC'S ADDRESSED BY INSTRUCTION 6553 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6554 ;IS IN AC 6555 ;INADVERTENT SHIFTING OR PICKING UP OF 6556 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6557 6558 041503 SN=SN+1 6559 000007 ZZ=ZZ-1 6560 000007 AC=AC-1 6561 035073 246 07 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6562 035074 302 07 0 00 000007 CAIE AC,ZZ ;TEST FOR CORRECT AC 6563 035075 003 07 0 00 041503 ER3 AC,SN ;INCORRECT AC 6564 035076 302 10 0 00 000010 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6565 035077 004 07 0 00 041503 ER4 AC,SN ;INCORRECT AC+1 6566 035100 321 11 0 00 035073 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6567 6568 ;TEST LSHC-ACCUMULATORS 5-12 6569 ;TEST ACCUMULATOR ADDRESSING 6570 ;TEST THE ABILITY OF ROTC,LSHC,ASHC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0174 6571 ;TO ADDRESS THE CORRECT ACCUMULATORS 6572 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6573 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6574 ;LEFT ZERO TIMES 6575 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6576 ;FROM AC'S ADDRESSED BY INSTRUCTION 6577 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6578 ;IS IN AC 6579 ;INADVERTENT SHIFTING OR PICKING UP OF 6580 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6581 6582 041504 SN=SN+1 6583 000006 ZZ=ZZ-1 6584 000006 AC=AC-1 6585 035101 246 06 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6586 035102 302 06 0 00 000006 CAIE AC,ZZ ;TEST FOR CORRECT AC 6587 035103 003 06 0 00 041504 ER3 AC,SN ;INCORRECT AC 6588 035104 302 07 0 00 000007 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6589 035105 004 06 0 00 041504 ER4 AC,SN ;INCORRECT AC+1 6590 035106 321 10 0 00 035101 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6591 6592 ;TEST LSHC-ACCUMULATORS 5-12 6593 ;TEST ACCUMULATOR ADDRESSING 6594 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6595 ;TO ADDRESS THE CORRECT ACCUMULATORS 6596 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6597 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6598 ;LEFT ZERO TIMES 6599 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6600 ;FROM AC'S ADDRESSED BY INSTRUCTION 6601 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6602 ;IS IN AC 6603 ;INADVERTENT SHIFTING OR PICKING UP OF 6604 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6605 6606 041505 SN=SN+1 6607 000005 ZZ=ZZ-1 6608 000005 AC=AC-1 6609 035107 246 05 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES 6610 035110 302 05 0 00 000005 CAIE AC,ZZ ;TEST FOR CORRECT AC 6611 035111 003 05 0 00 041505 ER3 AC,SN ;INCORRECT AC 6612 035112 302 06 0 00 000006 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6613 035113 004 05 0 00 041505 ER4 AC,SN ;INCORRECT AC+1 6614 035114 321 07 0 00 035107 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6615 6616 6617 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0175 6618 000004 AC=4 6619 SAVEAC (1,1)^ 6620 035115 201 06 0 00 035115 MOVEI AC+2,. ;SAVE TEST PC 6621 035116 202 06 0 00 030051 MOVEM AC+2,TESTPC 6622 035117 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6623 035120 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6624 6625 041600 SN=41600 6626 000005 AC=5 6627 000005 ZZ=5 6628 6629 E41600: REPEAT ^D5,< ;TEST ASHC-ACCUMULATORS 0-5 6630 ;TEST ACCUMULATOR ADDRESSING 6631 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6632 ;TO ADDRESS THE CORRECT ACCUMULATORS 6633 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6634 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6635 ;LEFT ZERO TIMES 6636 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6637 ;FROM AC'S ADDRESSED BY INSTRUCTION 6638 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6639 ;IS IN AC 6640 ;INADVERTENT SHIFTING OR PICKING UP OF 6641 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6642 6643 SN=SN+1 6644 ZZ=ZZ-1 6645 AC=AC-1 6646 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6647 CAIE AC,ZZ ;TEST FOR CORRECT AC 6648 ER3 AC,SN ;INCORRECT AC 6649 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6650 ER4 AC+1,SN ;INCORRECT AC+1 6651 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6652 > 6653 ;TEST ASHC-ACCUMULATORS 0-5 6654 ;TEST ACCUMULATOR ADDRESSING 6655 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6656 ;TO ADDRESS THE CORRECT ACCUMULATORS 6657 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6658 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6659 ;LEFT ZERO TIMES 6660 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6661 ;FROM AC'S ADDRESSED BY INSTRUCTION 6662 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6663 ;IS IN AC 6664 ;INADVERTENT SHIFTING OR PICKING UP OF 6665 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6666 6667 041601 SN=SN+1 6668 000004 ZZ=ZZ-1 6669 000004 AC=AC-1 6670 035121 244 04 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6671 035122 302 04 0 00 000004 CAIE AC,ZZ ;TEST FOR CORRECT AC 6672 035123 003 04 0 00 041601 ER3 AC,SN ;INCORRECT AC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0176 6673 035124 302 05 0 00 000005 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6674 035125 004 05 0 00 041601 ER4 AC+1,SN ;INCORRECT AC+1 6675 035126 321 06 0 00 035121 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6676 6677 ;TEST ASHC-ACCUMULATORS 0-5 6678 ;TEST ACCUMULATOR ADDRESSING 6679 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6680 ;TO ADDRESS THE CORRECT ACCUMULATORS 6681 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6682 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6683 ;LEFT ZERO TIMES 6684 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6685 ;FROM AC'S ADDRESSED BY INSTRUCTION 6686 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6687 ;IS IN AC 6688 ;INADVERTENT SHIFTING OR PICKING UP OF 6689 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6690 6691 041602 SN=SN+1 6692 000003 ZZ=ZZ-1 6693 000003 AC=AC-1 6694 035127 244 03 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6695 035130 302 03 0 00 000003 CAIE AC,ZZ ;TEST FOR CORRECT AC 6696 035131 003 03 0 00 041602 ER3 AC,SN ;INCORRECT AC 6697 035132 302 04 0 00 000004 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6698 035133 004 04 0 00 041602 ER4 AC+1,SN ;INCORRECT AC+1 6699 035134 321 05 0 00 035127 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6700 6701 ;TEST ASHC-ACCUMULATORS 0-5 6702 ;TEST ACCUMULATOR ADDRESSING 6703 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6704 ;TO ADDRESS THE CORRECT ACCUMULATORS 6705 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6706 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6707 ;LEFT ZERO TIMES 6708 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6709 ;FROM AC'S ADDRESSED BY INSTRUCTION 6710 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6711 ;IS IN AC 6712 ;INADVERTENT SHIFTING OR PICKING UP OF 6713 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6714 6715 041603 SN=SN+1 6716 000002 ZZ=ZZ-1 6717 000002 AC=AC-1 6718 035135 244 02 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6719 035136 302 02 0 00 000002 CAIE AC,ZZ ;TEST FOR CORRECT AC 6720 035137 003 02 0 00 041603 ER3 AC,SN ;INCORRECT AC 6721 035140 302 03 0 00 000003 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6722 035141 004 03 0 00 041603 ER4 AC+1,SN ;INCORRECT AC+1 6723 035142 321 04 0 00 035135 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6724 6725 ;TEST ASHC-ACCUMULATORS 0-5 6726 ;TEST ACCUMULATOR ADDRESSING 6727 ;TEST THE ABILITY OF ROTC,LSHC,ASHC DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0177 6728 ;TO ADDRESS THE CORRECT ACCUMULATORS 6729 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6730 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6731 ;LEFT ZERO TIMES 6732 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6733 ;FROM AC'S ADDRESSED BY INSTRUCTION 6734 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6735 ;IS IN AC 6736 ;INADVERTENT SHIFTING OR PICKING UP OF 6737 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6738 6739 041604 SN=SN+1 6740 000001 ZZ=ZZ-1 6741 000001 AC=AC-1 6742 035143 244 01 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6743 035144 302 01 0 00 000001 CAIE AC,ZZ ;TEST FOR CORRECT AC 6744 035145 003 01 0 00 041604 ER3 AC,SN ;INCORRECT AC 6745 035146 302 02 0 00 000002 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6746 035147 004 02 0 00 041604 ER4 AC+1,SN ;INCORRECT AC+1 6747 035150 321 03 0 00 035143 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6748 6749 ;TEST ASHC-ACCUMULATORS 0-5 6750 ;TEST ACCUMULATOR ADDRESSING 6751 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6752 ;TO ADDRESS THE CORRECT ACCUMULATORS 6753 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6754 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6755 ;LEFT ZERO TIMES 6756 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6757 ;FROM AC'S ADDRESSED BY INSTRUCTION 6758 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6759 ;IS IN AC 6760 ;INADVERTENT SHIFTING OR PICKING UP OF 6761 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6762 6763 041605 SN=SN+1 6764 000000 ZZ=ZZ-1 6765 000000 AC=AC-1 6766 035151 244 00 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6767 035152 302 00 0 00 000000 CAIE AC,ZZ ;TEST FOR CORRECT AC 6768 035153 003 00 0 00 041605 ER3 AC,SN ;INCORRECT AC 6769 035154 302 01 0 00 000001 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1 6770 035155 004 01 0 00 041605 ER4 AC+1,SN ;INCORRECT AC+1 6771 035156 321 02 0 00 035151 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6772 6773 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0178 6774 ; AC=17 6775 ; SAVEAC (1,1) 6776 6777 041700 SN=41700 6778 6779 E41700: REPEAT ^D0,< ;TEST ASHC-ACUMMULATORS 17-0 6780 ;TEST ACCUMULATOR ADDRESSING 6781 ;TEST THE ABILITY OF ROTC,LSHC,ASHC 6782 ;TO ADDRESS THE CORRECT ACCUMULATORS 6783 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS 6784 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING 6785 ;LEFT ZERO TIMES 6786 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER 6787 ;FROM AC'S ADDRESSED BY INSTRUCTION 6788 ;THE NUMBER OF THE AC REFERENCED IN ERROR 6789 ;IS IN AC 6790 ;INADVERTENT SHIFTING OR PICKING UP OF 6791 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR 6792 6793 SN=SN+1 6794 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES 6795 CAIE AC,17 ;TEST FOR CORRECT AC 6796 ER3 AC,SN ;INCORRECT AC 6797 CAIE AC+1,0 ;TEST FOR CORRECT AC+1 6798 ER4 AC+1,SN ;INCORRECT AC+1 6799 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 6800 > DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0179 6801 SUBTTL DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST 6802 6803 000012 AC=12 6804 SAVEAC (1,1)^ 6805 035157 201 14 0 00 035157 MOVEI AC+2,. ;SAVE TEST PC 6806 035160 202 14 0 00 030051 MOVEM AC+2,TESTPC 6807 035161 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6808 035162 202 14 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6809 6810 042000 SN=42000 6811 030303 WW=030303 ;USED FOR COMPARISON 6812 030303 XX=030303 ;SELECTED PATTERN 6813 000000 ZZ=0 6814 6815 E42000: REPEAT ^D4,< ;ROT LEFT (011)-TEST AC,AC+1 6816 ;TEST SELECTED BIT CONFIGURATIONS 6817 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6818 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6819 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6820 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6821 ; AC-1 CONTAINS BIT(S) THAT FAILED 6822 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6823 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6824 ; AC CONTAINS BIT(S) THAT FAILED 6825 6826 SN=SN+1 6827 WW=WW+WW 6828 ZZ=ZZ+1 6829 SETACS (WW,XX) ;SET UP ACCUMULATORS 6830 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6831 XOR AC-1,AC ;COMPARE AC 6832 SKIPE &17 ;SHOULD =0 6833 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6834 XOR AC-2,&17 ;COMPARE AC+1 6835 SKIPE &17 ;SHOULD =0 6836 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6837 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6838 > 6839 ;ROT LEFT (011)-TEST AC,AC+1 6840 ;TEST SELECTED BIT CONFIGURATIONS 6841 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6842 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6843 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6844 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6845 ; AC-1 CONTAINS BIT(S) THAT FAILED 6846 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6847 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6848 ; AC CONTAINS BIT(S) THAT FAILED 6849 6850 042001 SN=SN+1 6851 060606 WW=WW+WW 6852 000001 ZZ=ZZ+1 6853 SETACS (WW,XX)^ 6854 035163 201 11 0 00 060606 MOVEI AC-1,WW ;SETUP AC-1 6855 035164 505 11 0 00 060606 HRLI AC-1,WW ;FOR COMPARISION DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0180 6856 035165 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 6857 035166 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT 6858 035167 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT 6859 035170 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ ;SET UP ACCUMULATORS 6860 035171 245 12 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6861 035172 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 6862 035173 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 6863 035174 003 12 0 00 042001 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6864 035175 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 6865 035176 332 00 0 00 000010 SKIPE &17 ;SHOULD =0 6866 035177 004 13 0 00 042001 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6867 035200 321 14 0 00 035163 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6868 6869 ;ROT LEFT (011)-TEST AC,AC+1 6870 ;TEST SELECTED BIT CONFIGURATIONS 6871 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6872 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6873 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6874 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6875 ; AC-1 CONTAINS BIT(S) THAT FAILED 6876 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6877 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6878 ; AC CONTAINS BIT(S) THAT FAILED 6879 6880 042002 SN=SN+1 6881 141414 WW=WW+WW 6882 000002 ZZ=ZZ+1 6883 SETACS (WW,XX)^ 6884 035201 201 11 0 00 141414 MOVEI AC-1,WW ;SETUP AC-1 6885 035202 505 11 0 00 141414 HRLI AC-1,WW ;FOR COMPARISION 6886 035203 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 6887 035204 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT 6888 035205 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT 6889 035206 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ ;SET UP ACCUMULATORS 6890 035207 245 12 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6891 035210 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 6892 035211 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 6893 035212 003 12 0 00 042002 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6894 035213 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 6895 035214 332 00 0 00 000010 SKIPE &17 ;SHOULD =0 6896 035215 004 13 0 00 042002 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6897 035216 321 14 0 00 035201 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6898 6899 ;ROT LEFT (011)-TEST AC,AC+1 6900 ;TEST SELECTED BIT CONFIGURATIONS 6901 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6902 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6903 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6904 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6905 ; AC-1 CONTAINS BIT(S) THAT FAILED 6906 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6907 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6908 ; AC CONTAINS BIT(S) THAT FAILED 6909 6910 042003 SN=SN+1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0181 6911 303030 WW=WW+WW 6912 000003 ZZ=ZZ+1 6913 SETACS (WW,XX)^ 6914 035217 201 11 0 00 303030 MOVEI AC-1,WW ;SETUP AC-1 6915 035220 505 11 0 00 303030 HRLI AC-1,WW ;FOR COMPARISION 6916 035221 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 6917 035222 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT 6918 035223 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT 6919 035224 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ ;SET UP ACCUMULATORS 6920 035225 245 12 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6921 035226 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 6922 035227 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 6923 035230 003 12 0 00 042003 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6924 035231 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 6925 035232 332 00 0 00 000010 SKIPE &17 ;SHOULD =0 6926 035233 004 13 0 00 042003 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6927 035234 321 14 0 00 035217 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6928 6929 ;ROT LEFT (011)-TEST AC,AC+1 6930 ;TEST SELECTED BIT CONFIGURATIONS 6931 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6932 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6933 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6934 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6935 ; AC-1 CONTAINS BIT(S) THAT FAILED 6936 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6937 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6938 ; AC CONTAINS BIT(S) THAT FAILED 6939 6940 042004 SN=SN+1 6941 606060 WW=WW+WW 6942 000004 ZZ=ZZ+1 6943 SETACS (WW,XX)^ 6944 035235 201 11 0 00 606060 MOVEI AC-1,WW ;SETUP AC-1 6945 035236 505 11 0 00 606060 HRLI AC-1,WW ;FOR COMPARISION 6946 035237 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 6947 035240 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT 6948 035241 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT 6949 035242 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ ;SET UP ACCUMULATORS 6950 035243 245 12 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6951 035244 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 6952 035245 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 6953 035246 003 12 0 00 042004 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6954 035247 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 6955 035250 332 00 0 00 000010 SKIPE &17 ;SHOULD =0 6956 035251 004 13 0 00 042004 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6957 035252 321 14 0 00 035235 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6958 6959 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0182 6960 000014 AC=14 6961 SAVEAC (1,1)^ 6962 035253 201 16 0 00 035253 MOVEI AC+2,. ;SAVE TEST PC 6963 035254 202 16 0 00 030051 MOVEM AC+2,TESTPC 6964 035255 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6965 035256 202 16 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6966 6967 042100 SN=42100 6968 606060 WW=606060 ;USED FOR COMPARISON 6969 606060 XX=606060 ;SELECTED PATTERN 6970 000000 ZZ=0 6971 6972 E42100: REPEAT ^D4,< ;ROT RIGHT (110)-TEST AC,AC+1 6973 ;TEST SELECTED BIT CONFIGURATIONS 6974 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6975 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 6976 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 6977 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 6978 ; AC-1 CONTAINS BIT(S) THAT FAILED 6979 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 6980 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 6981 ; AC CONTAINS BIT(S) THAT FAILED 6982 6983 SN=SN+1 6984 WW=WW/2 6985 ZZ=ZZ-1 6986 SETACS (WW,XX) 6987 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 6988 XOR AC-1,AC ;COMPARE AC 6989 SKIPE &17 ;SHOULD =0 6990 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 6991 XOR AC-2,&17 ;COMPARE AC+1 6992 SKIPE &17 ;SHOULD =0 6993 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 6994 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 6995 > 6996 ;ROT RIGHT (110)-TEST AC,AC+1 6997 ;TEST SELECTED BIT CONFIGURATIONS 6998 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 6999 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7000 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7001 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7002 ; AC-1 CONTAINS BIT(S) THAT FAILED 7003 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7004 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7005 ; AC CONTAINS BIT(S) THAT FAILED 7006 7007 042101 SN=SN+1 7008 303030 WW=WW/2 7009 777777 777777 ZZ=ZZ-1 7010 SETACS (WW,XX)^ 7011 035257 201 13 0 00 303030 MOVEI AC-1,WW ;SETUP AC-1 7012 035260 505 13 0 00 303030 HRLI AC-1,WW ;FOR COMPARISION 7013 035261 200 12 0 00 000013 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7014 035262 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0183 7015 035263 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT 7016 035264 202 14 0 00 000015 MOVEM AC,&17 ;SETUP AC2^ 7017 035265 245 14 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7018 035266 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC 7019 035267 332 00 0 00 000013 SKIPE &17 ;SHOULD =0 7020 035270 003 14 0 00 042101 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7021 035271 430 12 0 00 000015 XOR AC-2,&17 ;COMPARE AC+1 7022 035272 332 00 0 00 000012 SKIPE &17 ;SHOULD =0 7023 035273 004 15 0 00 042101 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7024 035274 321 16 0 00 035257 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7025 7026 ;ROT RIGHT (110)-TEST AC,AC+1 7027 ;TEST SELECTED BIT CONFIGURATIONS 7028 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7029 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7030 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7031 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7032 ; AC-1 CONTAINS BIT(S) THAT FAILED 7033 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7034 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7035 ; AC CONTAINS BIT(S) THAT FAILED 7036 7037 042102 SN=SN+1 7038 141414 WW=WW/2 7039 777777 777776 ZZ=ZZ-1 7040 SETACS (WW,XX)^ 7041 035275 201 13 0 00 141414 MOVEI AC-1,WW ;SETUP AC-1 7042 035276 505 13 0 00 141414 HRLI AC-1,WW ;FOR COMPARISION 7043 035277 200 12 0 00 000013 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7044 035300 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT 7045 035301 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT 7046 035302 202 14 0 00 000015 MOVEM AC,&17 ;SETUP AC2^ 7047 035303 245 14 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7048 035304 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC 7049 035305 332 00 0 00 000013 SKIPE &17 ;SHOULD =0 7050 035306 003 14 0 00 042102 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7051 035307 430 12 0 00 000015 XOR AC-2,&17 ;COMPARE AC+1 7052 035310 332 00 0 00 000012 SKIPE &17 ;SHOULD =0 7053 035311 004 15 0 00 042102 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7054 035312 321 16 0 00 035275 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7055 7056 ;ROT RIGHT (110)-TEST AC,AC+1 7057 ;TEST SELECTED BIT CONFIGURATIONS 7058 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7059 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7060 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7061 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7062 ; AC-1 CONTAINS BIT(S) THAT FAILED 7063 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7064 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7065 ; AC CONTAINS BIT(S) THAT FAILED 7066 7067 042103 SN=SN+1 7068 060606 WW=WW/2 7069 777777 777775 ZZ=ZZ-1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0184 7070 SETACS (WW,XX)^ 7071 035313 201 13 0 00 060606 MOVEI AC-1,WW ;SETUP AC-1 7072 035314 505 13 0 00 060606 HRLI AC-1,WW ;FOR COMPARISION 7073 035315 200 12 0 00 000013 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7074 035316 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT 7075 035317 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT 7076 035320 202 14 0 00 000015 MOVEM AC,&17 ;SETUP AC2^ 7077 035321 245 14 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7078 035322 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC 7079 035323 332 00 0 00 000013 SKIPE &17 ;SHOULD =0 7080 035324 003 14 0 00 042103 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7081 035325 430 12 0 00 000015 XOR AC-2,&17 ;COMPARE AC+1 7082 035326 332 00 0 00 000012 SKIPE &17 ;SHOULD =0 7083 035327 004 15 0 00 042103 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7084 035330 321 16 0 00 035313 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7085 7086 ;ROT RIGHT (110)-TEST AC,AC+1 7087 ;TEST SELECTED BIT CONFIGURATIONS 7088 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7089 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7090 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7091 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7092 ; AC-1 CONTAINS BIT(S) THAT FAILED 7093 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7094 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7095 ; AC CONTAINS BIT(S) THAT FAILED 7096 7097 042104 SN=SN+1 7098 030303 WW=WW/2 7099 777777 777774 ZZ=ZZ-1 7100 SETACS (WW,XX)^ 7101 035331 201 13 0 00 030303 MOVEI AC-1,WW ;SETUP AC-1 7102 035332 505 13 0 00 030303 HRLI AC-1,WW ;FOR COMPARISION 7103 035333 200 12 0 00 000013 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7104 035334 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT 7105 035335 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT 7106 035336 202 14 0 00 000015 MOVEM AC,&17 ;SETUP AC2^ 7107 035337 245 14 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7108 035340 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC 7109 035341 332 00 0 00 000013 SKIPE &17 ;SHOULD =0 7110 035342 003 14 0 00 042104 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7111 035343 430 12 0 00 000015 XOR AC-2,&17 ;COMPARE AC+1 7112 035344 332 00 0 00 000012 SKIPE &17 ;SHOULD =0 7113 035345 004 15 0 00 042104 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7114 035346 321 16 0 00 035331 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7115 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0185 7116 000013 AC=13 7117 SAVEAC (1,1)^ 7118 035347 201 15 0 00 035347 MOVEI AC+2,. ;SAVE TEST PC 7119 035350 202 15 0 00 030051 MOVEM AC+2,TESTPC 7120 035351 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7121 035352 202 15 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7122 7123 042200 SN=42200 7124 050505 WW=050505 ;USED FOR COMPARISON 7125 050505 XX=050505 ;SELECTED PATTERN 7126 000000 ZZ=0 7127 7128 E42200: REPEAT ^D3,< ;ROT LEFT (101)-TEST AC,AC+1 7129 ;TEST SELECTED BIT CONFIGURATIONS 7130 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7131 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7132 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7133 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7134 ; AC-1 CONTAINS BIT(S) THAT FAILED 7135 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7136 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7137 ; AC CONTAINS BIT(S) THAT FAILED 7138 7139 SN=SN+1 7140 WW=WW+WW 7141 ZZ=ZZ+1 7142 SETACS (WW,XX) 7143 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7144 XOR AC-1,AC ;COMPARE AC 7145 SKIPE &17 ;SHOULD = 0 7146 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7147 XOR AC-2,&17 ;COMPARE AC+1 7148 SKIPE &17 ;SHOULD = 0 7149 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7150 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7151 > 7152 ;ROT LEFT (101)-TEST AC,AC+1 7153 ;TEST SELECTED BIT CONFIGURATIONS 7154 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7155 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7156 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7157 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7158 ; AC-1 CONTAINS BIT(S) THAT FAILED 7159 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7160 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7161 ; AC CONTAINS BIT(S) THAT FAILED 7162 7163 042201 SN=SN+1 7164 121212 WW=WW+WW 7165 000001 ZZ=ZZ+1 7166 SETACS (WW,XX)^ 7167 035353 201 12 0 00 121212 MOVEI AC-1,WW ;SETUP AC-1 7168 035354 505 12 0 00 121212 HRLI AC-1,WW ;FOR COMPARISION 7169 035355 200 11 0 00 000012 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7170 035356 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0186 7171 035357 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT 7172 035360 202 13 0 00 000014 MOVEM AC,&17 ;SETUP AC2^ 7173 035361 245 13 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7174 035362 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC 7175 035363 332 00 0 00 000012 SKIPE &17 ;SHOULD = 0 7176 035364 003 13 0 00 042201 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7177 035365 430 11 0 00 000014 XOR AC-2,&17 ;COMPARE AC+1 7178 035366 332 00 0 00 000011 SKIPE &17 ;SHOULD = 0 7179 035367 004 14 0 00 042201 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7180 035370 321 15 0 00 035353 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7181 7182 ;ROT LEFT (101)-TEST AC,AC+1 7183 ;TEST SELECTED BIT CONFIGURATIONS 7184 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7185 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7186 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7187 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7188 ; AC-1 CONTAINS BIT(S) THAT FAILED 7189 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7190 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7191 ; AC CONTAINS BIT(S) THAT FAILED 7192 7193 042202 SN=SN+1 7194 242424 WW=WW+WW 7195 000002 ZZ=ZZ+1 7196 SETACS (WW,XX)^ 7197 035371 201 12 0 00 242424 MOVEI AC-1,WW ;SETUP AC-1 7198 035372 505 12 0 00 242424 HRLI AC-1,WW ;FOR COMPARISION 7199 035373 200 11 0 00 000012 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7200 035374 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT 7201 035375 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT 7202 035376 202 13 0 00 000014 MOVEM AC,&17 ;SETUP AC2^ 7203 035377 245 13 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7204 035400 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC 7205 035401 332 00 0 00 000012 SKIPE &17 ;SHOULD = 0 7206 035402 003 13 0 00 042202 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7207 035403 430 11 0 00 000014 XOR AC-2,&17 ;COMPARE AC+1 7208 035404 332 00 0 00 000011 SKIPE &17 ;SHOULD = 0 7209 035405 004 14 0 00 042202 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7210 035406 321 15 0 00 035371 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7211 7212 ;ROT LEFT (101)-TEST AC,AC+1 7213 ;TEST SELECTED BIT CONFIGURATIONS 7214 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7215 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7216 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7217 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7218 ; AC-1 CONTAINS BIT(S) THAT FAILED 7219 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7220 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7221 ; AC CONTAINS BIT(S) THAT FAILED 7222 7223 042203 SN=SN+1 7224 505050 WW=WW+WW 7225 000003 ZZ=ZZ+1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0187 7226 SETACS (WW,XX)^ 7227 035407 201 12 0 00 505050 MOVEI AC-1,WW ;SETUP AC-1 7228 035410 505 12 0 00 505050 HRLI AC-1,WW ;FOR COMPARISION 7229 035411 200 11 0 00 000012 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7230 035412 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT 7231 035413 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT 7232 035414 202 13 0 00 000014 MOVEM AC,&17 ;SETUP AC2^ 7233 035415 245 13 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7234 035416 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC 7235 035417 332 00 0 00 000012 SKIPE &17 ;SHOULD = 0 7236 035420 003 13 0 00 042203 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7237 035421 430 11 0 00 000014 XOR AC-2,&17 ;COMPARE AC+1 7238 035422 332 00 0 00 000011 SKIPE &17 ;SHOULD = 0 7239 035423 004 14 0 00 042203 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7240 035424 321 15 0 00 035407 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7241 7242 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0188 7243 000012 AC=12 7244 SAVEAC (1,1)^ 7245 035425 201 14 0 00 035425 MOVEI AC+2,. ;SAVE TEST PC 7246 035426 202 14 0 00 030051 MOVEM AC+2,TESTPC 7247 035427 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7248 035430 202 14 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7249 7250 042300 SN=42300 7251 505050 WW=505050 ;USED FOR COMPARISON 7252 505050 XX=505050 ;SELECTED PATTERN 7253 000000 ZZ=0 7254 7255 E42300: REPEAT ^D3,< ;ROT RIGHT (101)-TEST AC,AC+1 7256 ;TEST SELECTED BIT CONFIGURATIONS 7257 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7258 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7259 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7260 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7261 ; AC-1 CONTAINS BIT(S) THAT FAILED 7262 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7263 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7264 ; AC CONTAINS BIT(S) THAT FAILED 7265 7266 SN=SN+1 7267 WW=WW/2 7268 ZZ=ZZ-1 7269 SETACS (WW,XX) 7270 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7271 XOR AC-1,AC ;COMPARE AC 7272 SKIPE &17 ;SHOULD =0 7273 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7274 XOR AC-2,&17 ;COMPARE AC+1 7275 SKIPE &17 ;SHOULD = 0 7276 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7277 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7278 > 7279 ;ROT RIGHT (101)-TEST AC,AC+1 7280 ;TEST SELECTED BIT CONFIGURATIONS 7281 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7282 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7283 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7284 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7285 ; AC-1 CONTAINS BIT(S) THAT FAILED 7286 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7287 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7288 ; AC CONTAINS BIT(S) THAT FAILED 7289 7290 042301 SN=SN+1 7291 242424 WW=WW/2 7292 777777 777777 ZZ=ZZ-1 7293 SETACS (WW,XX)^ 7294 035431 201 11 0 00 242424 MOVEI AC-1,WW ;SETUP AC-1 7295 035432 505 11 0 00 242424 HRLI AC-1,WW ;FOR COMPARISION 7296 035433 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7297 035434 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0189 7298 035435 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT 7299 035436 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ 7300 035437 245 12 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7301 035440 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 7302 035441 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 7303 035442 003 12 0 00 042301 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7304 035443 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 7305 035444 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7306 035445 004 13 0 00 042301 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7307 035446 321 14 0 00 035431 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7308 7309 ;ROT RIGHT (101)-TEST AC,AC+1 7310 ;TEST SELECTED BIT CONFIGURATIONS 7311 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7312 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7313 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7314 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7315 ; AC-1 CONTAINS BIT(S) THAT FAILED 7316 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7317 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7318 ; AC CONTAINS BIT(S) THAT FAILED 7319 7320 042302 SN=SN+1 7321 121212 WW=WW/2 7322 777777 777776 ZZ=ZZ-1 7323 SETACS (WW,XX)^ 7324 035447 201 11 0 00 121212 MOVEI AC-1,WW ;SETUP AC-1 7325 035450 505 11 0 00 121212 HRLI AC-1,WW ;FOR COMPARISION 7326 035451 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7327 035452 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT 7328 035453 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT 7329 035454 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ 7330 035455 245 12 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7331 035456 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 7332 035457 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 7333 035460 003 12 0 00 042302 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7334 035461 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 7335 035462 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7336 035463 004 13 0 00 042302 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7337 035464 321 14 0 00 035447 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7338 7339 ;ROT RIGHT (101)-TEST AC,AC+1 7340 ;TEST SELECTED BIT CONFIGURATIONS 7341 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7342 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7343 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7344 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7345 ; AC-1 CONTAINS BIT(S) THAT FAILED 7346 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7347 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7348 ; AC CONTAINS BIT(S) THAT FAILED 7349 7350 042303 SN=SN+1 7351 050505 WW=WW/2 7352 777777 777775 ZZ=ZZ-1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0190 7353 SETACS (WW,XX)^ 7354 035465 201 11 0 00 050505 MOVEI AC-1,WW ;SETUP AC-1 7355 035466 505 11 0 00 050505 HRLI AC-1,WW ;FOR COMPARISION 7356 035467 200 10 0 00 000011 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7357 035470 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT 7358 035471 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT 7359 035472 202 12 0 00 000013 MOVEM AC,&17 ;SETUP AC2^ 7360 035473 245 12 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7361 035474 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC 7362 035475 332 00 0 00 000011 SKIPE &17 ;SHOULD =0 7363 035476 003 12 0 00 042303 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7364 035477 430 10 0 00 000013 XOR AC-2,&17 ;COMPARE AC+1 7365 035500 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7366 035501 004 13 0 00 042303 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7367 035502 321 14 0 00 035465 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7368 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0191 7369 000011 AC=11 7370 SAVEAC (1,1)^ 7371 035503 201 13 0 00 035503 MOVEI AC+2,. ;SAVE TEST PC 7372 035504 202 13 0 00 030051 MOVEM AC+2,TESTPC 7373 035505 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7374 035506 202 13 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7375 7376 042400 SN=42400 7377 070707 WW=070707 ;USED FOR COMPARISON 7378 070707 XX=070707 ;SELECTED PATTERN 7379 000000 ZZ=0 7380 7381 E42400: REPEAT ^D3,< ;ROT LEFT (111)-TEST AC,AC+1 7382 ;TEST SELECTED BIT CONFIGURATIONS 7383 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7384 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7385 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7386 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7387 ; AC-1 CONTAINS BIT(S) THAT FAILED 7388 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7389 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7390 ; AC CONTAINS BIT(S) THAT FAILED 7391 7392 SN=SN+1 7393 WW=WW+WW 7394 ZZ=ZZ+1 7395 SETACS (WW,XX) 7396 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7397 XOR AC-1,AC ;COMPARE AC 7398 SKIPE &17 ;SHOULD = 0 7399 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7400 XOR AC-2,&17 ;COMPARE AC+1 7401 SKIPE &17 ;SHOULD = 0 7402 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7403 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7404 > 7405 ;ROT LEFT (111)-TEST AC,AC+1 7406 ;TEST SELECTED BIT CONFIGURATIONS 7407 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7408 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7409 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7410 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7411 ; AC-1 CONTAINS BIT(S) THAT FAILED 7412 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7413 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7414 ; AC CONTAINS BIT(S) THAT FAILED 7415 7416 042401 SN=SN+1 7417 161616 WW=WW+WW 7418 000001 ZZ=ZZ+1 7419 SETACS (WW,XX)^ 7420 035507 201 10 0 00 161616 MOVEI AC-1,WW ;SETUP AC-1 7421 035510 505 10 0 00 161616 HRLI AC-1,WW ;FOR COMPARISION 7422 035511 200 07 0 00 000010 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7423 035512 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0192 7424 035513 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT 7425 035514 202 11 0 00 000012 MOVEM AC,&17 ;SETUP AC2^ 7426 035515 245 11 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7427 035516 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC 7428 035517 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7429 035520 003 11 0 00 042401 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7430 035521 430 07 0 00 000012 XOR AC-2,&17 ;COMPARE AC+1 7431 035522 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7432 035523 004 12 0 00 042401 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7433 035524 321 13 0 00 035507 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7434 7435 ;ROT LEFT (111)-TEST AC,AC+1 7436 ;TEST SELECTED BIT CONFIGURATIONS 7437 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7438 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7439 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7440 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7441 ; AC-1 CONTAINS BIT(S) THAT FAILED 7442 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7443 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7444 ; AC CONTAINS BIT(S) THAT FAILED 7445 7446 042402 SN=SN+1 7447 343434 WW=WW+WW 7448 000002 ZZ=ZZ+1 7449 SETACS (WW,XX)^ 7450 035525 201 10 0 00 343434 MOVEI AC-1,WW ;SETUP AC-1 7451 035526 505 10 0 00 343434 HRLI AC-1,WW ;FOR COMPARISION 7452 035527 200 07 0 00 000010 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7453 035530 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT 7454 035531 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT 7455 035532 202 11 0 00 000012 MOVEM AC,&17 ;SETUP AC2^ 7456 035533 245 11 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7457 035534 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC 7458 035535 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7459 035536 003 11 0 00 042402 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7460 035537 430 07 0 00 000012 XOR AC-2,&17 ;COMPARE AC+1 7461 035540 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7462 035541 004 12 0 00 042402 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7463 035542 321 13 0 00 035525 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7464 7465 ;ROT LEFT (111)-TEST AC,AC+1 7466 ;TEST SELECTED BIT CONFIGURATIONS 7467 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7468 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7469 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7470 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7471 ; AC-1 CONTAINS BIT(S) THAT FAILED 7472 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7473 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7474 ; AC CONTAINS BIT(S) THAT FAILED 7475 7476 042403 SN=SN+1 7477 707070 WW=WW+WW 7478 000003 ZZ=ZZ+1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0193 7479 SETACS (WW,XX)^ 7480 035543 201 10 0 00 707070 MOVEI AC-1,WW ;SETUP AC-1 7481 035544 505 10 0 00 707070 HRLI AC-1,WW ;FOR COMPARISION 7482 035545 200 07 0 00 000010 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7483 035546 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT 7484 035547 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT 7485 035550 202 11 0 00 000012 MOVEM AC,&17 ;SETUP AC2^ 7486 035551 245 11 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7487 035552 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC 7488 035553 332 00 0 00 000010 SKIPE &17 ;SHOULD = 0 7489 035554 003 11 0 00 042403 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7490 035555 430 07 0 00 000012 XOR AC-2,&17 ;COMPARE AC+1 7491 035556 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7492 035557 004 12 0 00 042403 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7493 035560 321 13 0 00 035543 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7494 7495 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0194 7496 000010 AC=10 7497 SAVEAC (1,1)^ 7498 035561 201 12 0 00 035561 MOVEI AC+2,. ;SAVE TEST PC 7499 035562 202 12 0 00 030051 MOVEM AC+2,TESTPC 7500 035563 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7501 035564 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7502 7503 042500 SN=42500 7504 707070 WW=707070 ;USED FOR COMPARISON 7505 707070 XX=707070 ;SELECTED PATTERN 7506 000000 ZZ=0 7507 7508 E42500: REPEAT ^D3,< ;ROT RIGHT (111)-TEST AC,AC+1 7509 ;TEST SELECTED BIT CONFIGURATIONS 7510 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7511 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7512 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7513 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7514 ; AC-1 CONTAINS BIT(S) THAT FAILED 7515 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7516 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7517 ; AC CONTAINS BIT(S) THAT FAILED 7518 7519 SN=SN+1 7520 WW=WW/2 7521 ZZ=ZZ-1 7522 SETACS (WW,XX) 7523 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7524 XOR AC-1,AC ;COMPARE 7525 SKIPE &17 ;SHOULD = 0 7526 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7527 XOR AC-2,&17 ;COMPARE AC+1 7528 SKIPE &17 ;SHOULD = 0 7529 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7530 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7531 > 7532 ;ROT RIGHT (111)-TEST AC,AC+1 7533 ;TEST SELECTED BIT CONFIGURATIONS 7534 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7535 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7536 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7537 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7538 ; AC-1 CONTAINS BIT(S) THAT FAILED 7539 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7540 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7541 ; AC CONTAINS BIT(S) THAT FAILED 7542 7543 042501 SN=SN+1 7544 343434 WW=WW/2 7545 777777 777777 ZZ=ZZ-1 7546 SETACS (WW,XX)^ 7547 035565 201 07 0 00 343434 MOVEI AC-1,WW ;SETUP AC-1 7548 035566 505 07 0 00 343434 HRLI AC-1,WW ;FOR COMPARISION 7549 035567 200 06 0 00 000007 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7550 035570 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0195 7551 035571 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT 7552 035572 202 10 0 00 000011 MOVEM AC,&17 ;SETUP AC2^ 7553 035573 245 10 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7554 035574 430 07 0 00 000010 XOR AC-1,AC ;COMPARE 7555 035575 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7556 035576 003 10 0 00 042501 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7557 035577 430 06 0 00 000011 XOR AC-2,&17 ;COMPARE AC+1 7558 035600 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7559 035601 004 11 0 00 042501 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7560 035602 321 12 0 00 035565 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7561 7562 ;ROT RIGHT (111)-TEST AC,AC+1 7563 ;TEST SELECTED BIT CONFIGURATIONS 7564 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7565 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7566 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7567 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7568 ; AC-1 CONTAINS BIT(S) THAT FAILED 7569 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7570 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7571 ; AC CONTAINS BIT(S) THAT FAILED 7572 7573 042502 SN=SN+1 7574 161616 WW=WW/2 7575 777777 777776 ZZ=ZZ-1 7576 SETACS (WW,XX)^ 7577 035603 201 07 0 00 161616 MOVEI AC-1,WW ;SETUP AC-1 7578 035604 505 07 0 00 161616 HRLI AC-1,WW ;FOR COMPARISION 7579 035605 200 06 0 00 000007 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7580 035606 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT 7581 035607 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT 7582 035610 202 10 0 00 000011 MOVEM AC,&17 ;SETUP AC2^ 7583 035611 245 10 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7584 035612 430 07 0 00 000010 XOR AC-1,AC ;COMPARE 7585 035613 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7586 035614 003 10 0 00 042502 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7587 035615 430 06 0 00 000011 XOR AC-2,&17 ;COMPARE AC+1 7588 035616 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7589 035617 004 11 0 00 042502 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7590 035620 321 12 0 00 035603 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7591 7592 ;ROT RIGHT (111)-TEST AC,AC+1 7593 ;TEST SELECTED BIT CONFIGURATIONS 7594 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7595 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7596 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7597 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7598 ; AC-1 CONTAINS BIT(S) THAT FAILED 7599 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7600 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7601 ; AC CONTAINS BIT(S) THAT FAILED 7602 7603 042503 SN=SN+1 7604 070707 WW=WW/2 7605 777777 777775 ZZ=ZZ-1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0196 7606 SETACS (WW,XX)^ 7607 035621 201 07 0 00 070707 MOVEI AC-1,WW ;SETUP AC-1 7608 035622 505 07 0 00 070707 HRLI AC-1,WW ;FOR COMPARISION 7609 035623 200 06 0 00 000007 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7610 035624 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT 7611 035625 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT 7612 035626 202 10 0 00 000011 MOVEM AC,&17 ;SETUP AC2^ 7613 035627 245 10 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7614 035630 430 07 0 00 000010 XOR AC-1,AC ;COMPARE 7615 035631 332 00 0 00 000007 SKIPE &17 ;SHOULD = 0 7616 035632 003 10 0 00 042503 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7617 035633 430 06 0 00 000011 XOR AC-2,&17 ;COMPARE AC+1 7618 035634 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7619 035635 004 11 0 00 042503 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7620 035636 321 12 0 00 035621 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7621 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0197 7622 000007 AC=7 7623 SAVEAC (1,1)^ 7624 035637 201 11 0 00 035637 MOVEI AC+2,. ;SAVE TEST PC 7625 035640 202 11 0 00 030051 MOVEM AC+2,TESTPC 7626 035641 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7627 035642 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7628 7629 042600 SN=42600 7630 025025 WW=025025 ;USED FOR COMPARISON 7631 025025 XX=025025 ;SELECTED PATTERN 7632 000000 ZZ=0 7633 7634 E42600: REPEAT ^D4,< ;ROT LEFT (010101)-TEST AC,AC+1 7635 ;TEST SELECTED BIT CONFIGURATIONS 7636 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7637 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7638 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7639 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7640 ; AC-1 CONTAINS BIT(S) THAT FAILED 7641 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7642 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7643 ; AC CONTAINS BIT(S) THAT FAILED 7644 7645 SN=SN+1 7646 WW=WW+WW 7647 ZZ=ZZ+1 7648 SETACS (WW,XX) 7649 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7650 XOR AC-1,AC ;COMPARE AC 7651 SKIPE &17 ;SHOULD = 0 7652 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7653 XOR AC-2,&17 ;COMPARE AC+1 7654 SKIPE &17 ;SHOULD = 0 7655 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7656 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7657 > 7658 ;ROT LEFT (010101)-TEST AC,AC+1 7659 ;TEST SELECTED BIT CONFIGURATIONS 7660 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7661 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7662 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7663 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7664 ; AC-1 CONTAINS BIT(S) THAT FAILED 7665 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7666 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7667 ; AC CONTAINS BIT(S) THAT FAILED 7668 7669 042601 SN=SN+1 7670 052052 WW=WW+WW 7671 000001 ZZ=ZZ+1 7672 SETACS (WW,XX)^ 7673 035643 201 06 0 00 052052 MOVEI AC-1,WW ;SETUP AC-1 7674 035644 505 06 0 00 052052 HRLI AC-1,WW ;FOR COMPARISION 7675 035645 200 05 0 00 000006 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7676 035646 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0198 7677 035647 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT 7678 035650 202 07 0 00 000010 MOVEM AC,&17 ;SETUP AC2^ 7679 035651 245 07 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7680 035652 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC 7681 035653 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7682 035654 003 07 0 00 042601 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7683 035655 430 05 0 00 000010 XOR AC-2,&17 ;COMPARE AC+1 7684 035656 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7685 035657 004 10 0 00 042601 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7686 035660 321 11 0 00 035643 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7687 7688 ;ROT LEFT (010101)-TEST AC,AC+1 7689 ;TEST SELECTED BIT CONFIGURATIONS 7690 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7691 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7692 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7693 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7694 ; AC-1 CONTAINS BIT(S) THAT FAILED 7695 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7696 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7697 ; AC CONTAINS BIT(S) THAT FAILED 7698 7699 042602 SN=SN+1 7700 124124 WW=WW+WW 7701 000002 ZZ=ZZ+1 7702 SETACS (WW,XX)^ 7703 035661 201 06 0 00 124124 MOVEI AC-1,WW ;SETUP AC-1 7704 035662 505 06 0 00 124124 HRLI AC-1,WW ;FOR COMPARISION 7705 035663 200 05 0 00 000006 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7706 035664 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT 7707 035665 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT 7708 035666 202 07 0 00 000010 MOVEM AC,&17 ;SETUP AC2^ 7709 035667 245 07 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7710 035670 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC 7711 035671 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7712 035672 003 07 0 00 042602 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7713 035673 430 05 0 00 000010 XOR AC-2,&17 ;COMPARE AC+1 7714 035674 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7715 035675 004 10 0 00 042602 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7716 035676 321 11 0 00 035661 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7717 7718 ;ROT LEFT (010101)-TEST AC,AC+1 7719 ;TEST SELECTED BIT CONFIGURATIONS 7720 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7721 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7722 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7723 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7724 ; AC-1 CONTAINS BIT(S) THAT FAILED 7725 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7726 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7727 ; AC CONTAINS BIT(S) THAT FAILED 7728 7729 042603 SN=SN+1 7730 250250 WW=WW+WW 7731 000003 ZZ=ZZ+1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0199 7732 SETACS (WW,XX)^ 7733 035677 201 06 0 00 250250 MOVEI AC-1,WW ;SETUP AC-1 7734 035700 505 06 0 00 250250 HRLI AC-1,WW ;FOR COMPARISION 7735 035701 200 05 0 00 000006 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7736 035702 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT 7737 035703 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT 7738 035704 202 07 0 00 000010 MOVEM AC,&17 ;SETUP AC2^ 7739 035705 245 07 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7740 035706 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC 7741 035707 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7742 035710 003 07 0 00 042603 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7743 035711 430 05 0 00 000010 XOR AC-2,&17 ;COMPARE AC+1 7744 035712 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7745 035713 004 10 0 00 042603 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7746 035714 321 11 0 00 035677 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7747 7748 ;ROT LEFT (010101)-TEST AC,AC+1 7749 ;TEST SELECTED BIT CONFIGURATIONS 7750 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7751 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7752 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7753 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7754 ; AC-1 CONTAINS BIT(S) THAT FAILED 7755 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7756 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7757 ; AC CONTAINS BIT(S) THAT FAILED 7758 7759 042604 SN=SN+1 7760 520520 WW=WW+WW 7761 000004 ZZ=ZZ+1 7762 SETACS (WW,XX)^ 7763 035715 201 06 0 00 520520 MOVEI AC-1,WW ;SETUP AC-1 7764 035716 505 06 0 00 520520 HRLI AC-1,WW ;FOR COMPARISION 7765 035717 200 05 0 00 000006 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7766 035720 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT 7767 035721 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT 7768 035722 202 07 0 00 000010 MOVEM AC,&17 ;SETUP AC2^ 7769 035723 245 07 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7770 035724 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC 7771 035725 332 00 0 00 000006 SKIPE &17 ;SHOULD = 0 7772 035726 003 07 0 00 042604 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7773 035727 430 05 0 00 000010 XOR AC-2,&17 ;COMPARE AC+1 7774 035730 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7775 035731 004 10 0 00 042604 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7776 035732 321 11 0 00 035715 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7777 7778 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0200 7779 000006 AC=6 7780 SAVEAC (1,1)^ 7781 035733 201 10 0 00 035733 MOVEI AC+2,. ;SAVE TEST PC 7782 035734 202 10 0 00 030051 MOVEM AC+2,TESTPC 7783 035735 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7784 035736 202 10 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7785 7786 042700 SN=42700 7787 520520 WW=520520 ;USED FOR COMPARISON 7788 520520 XX=520520 ;SELECTED PATTERN 7789 000000 ZZ=0 7790 7791 E42700: REPEAT ^D4,< ;ROT RIGHT (101010)-TEST AC,AC+1 7792 ;TEST SELECTED BIT CONFIGURATIONS 7793 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7794 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7795 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7796 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7797 ; AC-1 CONTAINS BIT(S) THAT FAILED 7798 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7799 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7800 ; AC CONTAINS BIT(S) THAT FAILED 7801 7802 SN=SN+1 7803 WW=WW/2 7804 ZZ=ZZ-1 7805 SETACS (WW,XX) 7806 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7807 XOR AC-1,AC ;COMPARE AC 7808 SKIPE &17 ;SHOULD = 0 7809 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7810 XOR AC-2,&17 ;COMPARE AC+1 7811 SKIPE &17 ;SHOULD = 0 7812 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7813 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7814 > 7815 ;ROT RIGHT (101010)-TEST AC,AC+1 7816 ;TEST SELECTED BIT CONFIGURATIONS 7817 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7818 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7819 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7820 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7821 ; AC-1 CONTAINS BIT(S) THAT FAILED 7822 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7823 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7824 ; AC CONTAINS BIT(S) THAT FAILED 7825 7826 042701 SN=SN+1 7827 250250 WW=WW/2 7828 777777 777777 ZZ=ZZ-1 7829 SETACS (WW,XX)^ 7830 035737 201 05 0 00 250250 MOVEI AC-1,WW ;SETUP AC-1 7831 035740 505 05 0 00 250250 HRLI AC-1,WW ;FOR COMPARISION 7832 035741 200 04 0 00 000005 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7833 035742 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0201 7834 035743 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT 7835 035744 202 06 0 00 000007 MOVEM AC,&17 ;SETUP AC2^ 7836 035745 245 06 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7837 035746 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC 7838 035747 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7839 035750 003 06 0 00 042701 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7840 035751 430 04 0 00 000007 XOR AC-2,&17 ;COMPARE AC+1 7841 035752 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 7842 035753 004 07 0 00 042701 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7843 035754 321 10 0 00 035737 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7844 7845 ;ROT RIGHT (101010)-TEST AC,AC+1 7846 ;TEST SELECTED BIT CONFIGURATIONS 7847 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7848 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7849 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7850 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7851 ; AC-1 CONTAINS BIT(S) THAT FAILED 7852 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7853 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7854 ; AC CONTAINS BIT(S) THAT FAILED 7855 7856 042702 SN=SN+1 7857 124124 WW=WW/2 7858 777777 777776 ZZ=ZZ-1 7859 SETACS (WW,XX)^ 7860 035755 201 05 0 00 124124 MOVEI AC-1,WW ;SETUP AC-1 7861 035756 505 05 0 00 124124 HRLI AC-1,WW ;FOR COMPARISION 7862 035757 200 04 0 00 000005 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7863 035760 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT 7864 035761 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT 7865 035762 202 06 0 00 000007 MOVEM AC,&17 ;SETUP AC2^ 7866 035763 245 06 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7867 035764 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC 7868 035765 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7869 035766 003 06 0 00 042702 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7870 035767 430 04 0 00 000007 XOR AC-2,&17 ;COMPARE AC+1 7871 035770 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 7872 035771 004 07 0 00 042702 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7873 035772 321 10 0 00 035755 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7874 7875 ;ROT RIGHT (101010)-TEST AC,AC+1 7876 ;TEST SELECTED BIT CONFIGURATIONS 7877 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7878 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7879 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7880 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7881 ; AC-1 CONTAINS BIT(S) THAT FAILED 7882 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7883 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7884 ; AC CONTAINS BIT(S) THAT FAILED 7885 7886 042703 SN=SN+1 7887 052052 WW=WW/2 7888 777777 777775 ZZ=ZZ-1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0202 7889 SETACS (WW,XX)^ 7890 035773 201 05 0 00 052052 MOVEI AC-1,WW ;SETUP AC-1 7891 035774 505 05 0 00 052052 HRLI AC-1,WW ;FOR COMPARISION 7892 035775 200 04 0 00 000005 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7893 035776 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT 7894 035777 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT 7895 036000 202 06 0 00 000007 MOVEM AC,&17 ;SETUP AC2^ 7896 036001 245 06 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7897 036002 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC 7898 036003 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7899 036004 003 06 0 00 042703 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7900 036005 430 04 0 00 000007 XOR AC-2,&17 ;COMPARE AC+1 7901 036006 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 7902 036007 004 07 0 00 042703 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7903 036010 321 10 0 00 035773 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7904 7905 ;ROT RIGHT (101010)-TEST AC,AC+1 7906 ;TEST SELECTED BIT CONFIGURATIONS 7907 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7908 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7909 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7910 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7911 ; AC-1 CONTAINS BIT(S) THAT FAILED 7912 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7913 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7914 ; AC CONTAINS BIT(S) THAT FAILED 7915 7916 042704 SN=SN+1 7917 025025 WW=WW/2 7918 777777 777774 ZZ=ZZ-1 7919 SETACS (WW,XX)^ 7920 036011 201 05 0 00 025025 MOVEI AC-1,WW ;SETUP AC-1 7921 036012 505 05 0 00 025025 HRLI AC-1,WW ;FOR COMPARISION 7922 036013 200 04 0 00 000005 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7923 036014 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT 7924 036015 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT 7925 036016 202 06 0 00 000007 MOVEM AC,&17 ;SETUP AC2^ 7926 036017 245 06 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7927 036020 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC 7928 036021 332 00 0 00 000005 SKIPE &17 ;SHOULD = 0 7929 036022 003 06 0 00 042704 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7930 036023 430 04 0 00 000007 XOR AC-2,&17 ;COMPARE AC+1 7931 036024 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 7932 036025 004 07 0 00 042704 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7933 036026 321 10 0 00 036011 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7934 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0203 7935 000005 AC=5 7936 SAVEAC (1,1)^ 7937 036027 201 07 0 00 036027 MOVEI AC+2,. ;SAVE TEST PC 7938 036030 202 07 0 00 030051 MOVEM AC+2,TESTPC 7939 036031 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7940 036032 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7941 7942 043000 SN=43000 7943 033033 WW=033033 ;USED FOR COMPARISON 7944 033033 XX=033033 ;SELECTED PATTERN 7945 000000 ZZ=0 7946 7947 E43000: REPEAT ^D4,< ;ROT LEFT (011011)-TEST AC,AC+1 7948 ;TEST SELECTED BIT CONFIGURATIONS 7949 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7950 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7951 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7952 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7953 ; AC-1 CONTAINS BIT(S) THAT FAILED 7954 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7955 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7956 ; AC CONTAINS BIT(S) THAT FAILED 7957 7958 SN=SN+1 7959 WW=WW+WW 7960 ZZ=ZZ+1 7961 SETACS (WW,XX) 7962 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7963 XOR AC-1,AC ;COMPARE AC 7964 SKIPE &17 ;SHOULD = 0 7965 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7966 XOR AC-2,&17 ;COMPARE AC+1 7967 SKIPE &17 ;SHOULD = 0 7968 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7969 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 7970 > 7971 ;ROT LEFT (011011)-TEST AC,AC+1 7972 ;TEST SELECTED BIT CONFIGURATIONS 7973 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 7974 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 7975 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 7976 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 7977 ; AC-1 CONTAINS BIT(S) THAT FAILED 7978 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 7979 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 7980 ; AC CONTAINS BIT(S) THAT FAILED 7981 7982 043001 SN=SN+1 7983 066066 WW=WW+WW 7984 000001 ZZ=ZZ+1 7985 SETACS (WW,XX)^ 7986 036033 201 04 0 00 066066 MOVEI AC-1,WW ;SETUP AC-1 7987 036034 505 04 0 00 066066 HRLI AC-1,WW ;FOR COMPARISION 7988 036035 200 03 0 00 000004 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 7989 036036 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0204 7990 036037 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT 7991 036040 202 05 0 00 000006 MOVEM AC,&17 ;SETUP AC2^ 7992 036041 245 05 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 7993 036042 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC 7994 036043 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 7995 036044 003 05 0 00 043001 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 7996 036045 430 03 0 00 000006 XOR AC-2,&17 ;COMPARE AC+1 7997 036046 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 7998 036047 004 06 0 00 043001 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 7999 036050 321 07 0 00 036033 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8000 8001 ;ROT LEFT (011011)-TEST AC,AC+1 8002 ;TEST SELECTED BIT CONFIGURATIONS 8003 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8004 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8005 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8006 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8007 ; AC-1 CONTAINS BIT(S) THAT FAILED 8008 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8009 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8010 ; AC CONTAINS BIT(S) THAT FAILED 8011 8012 043002 SN=SN+1 8013 154154 WW=WW+WW 8014 000002 ZZ=ZZ+1 8015 SETACS (WW,XX)^ 8016 036051 201 04 0 00 154154 MOVEI AC-1,WW ;SETUP AC-1 8017 036052 505 04 0 00 154154 HRLI AC-1,WW ;FOR COMPARISION 8018 036053 200 03 0 00 000004 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8019 036054 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT 8020 036055 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT 8021 036056 202 05 0 00 000006 MOVEM AC,&17 ;SETUP AC2^ 8022 036057 245 05 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8023 036060 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC 8024 036061 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 8025 036062 003 05 0 00 043002 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8026 036063 430 03 0 00 000006 XOR AC-2,&17 ;COMPARE AC+1 8027 036064 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8028 036065 004 06 0 00 043002 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8029 036066 321 07 0 00 036051 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8030 8031 ;ROT LEFT (011011)-TEST AC,AC+1 8032 ;TEST SELECTED BIT CONFIGURATIONS 8033 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8034 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8035 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8036 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8037 ; AC-1 CONTAINS BIT(S) THAT FAILED 8038 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8039 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8040 ; AC CONTAINS BIT(S) THAT FAILED 8041 8042 043003 SN=SN+1 8043 330330 WW=WW+WW 8044 000003 ZZ=ZZ+1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-2 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0205 8045 SETACS (WW,XX)^ 8046 036067 201 04 0 00 330330 MOVEI AC-1,WW ;SETUP AC-1 8047 036070 505 04 0 00 330330 HRLI AC-1,WW ;FOR COMPARISION 8048 036071 200 03 0 00 000004 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8049 036072 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT 8050 036073 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT 8051 036074 202 05 0 00 000006 MOVEM AC,&17 ;SETUP AC2^ 8052 036075 245 05 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8053 036076 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC 8054 036077 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 8055 036100 003 05 0 00 043003 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8056 036101 430 03 0 00 000006 XOR AC-2,&17 ;COMPARE AC+1 8057 036102 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8058 036103 004 06 0 00 043003 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8059 036104 321 07 0 00 036067 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8060 8061 ;ROT LEFT (011011)-TEST AC,AC+1 8062 ;TEST SELECTED BIT CONFIGURATIONS 8063 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8064 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8065 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8066 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8067 ; AC-1 CONTAINS BIT(S) THAT FAILED 8068 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8069 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8070 ; AC CONTAINS BIT(S) THAT FAILED 8071 8072 043004 SN=SN+1 8073 660660 WW=WW+WW 8074 000004 ZZ=ZZ+1 8075 SETACS (WW,XX)^ 8076 036105 201 04 0 00 660660 MOVEI AC-1,WW ;SETUP AC-1 8077 036106 505 04 0 00 660660 HRLI AC-1,WW ;FOR COMPARISION 8078 036107 200 03 0 00 000004 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8079 036110 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT 8080 036111 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT 8081 036112 202 05 0 00 000006 MOVEM AC,&17 ;SETUP AC2^ 8082 036113 245 05 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8083 036114 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC 8084 036115 332 00 0 00 000004 SKIPE &17 ;SHOULD = 0 8085 036116 003 05 0 00 043004 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8086 036117 430 03 0 00 000006 XOR AC-2,&17 ;COMPARE AC+1 8087 036120 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8088 036121 004 06 0 00 043004 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8089 036122 321 07 0 00 036105 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8090 8091 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-3 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0206 8092 000004 AC=4 8093 SAVEAC (1,1)^ 8094 036123 201 06 0 00 036123 MOVEI AC+2,. ;SAVE TEST PC 8095 036124 202 06 0 00 030051 MOVEM AC+2,TESTPC 8096 036125 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8097 036126 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8098 8099 043100 SN=43100 8100 660660 WW=660660 ;USED FOR COMPARISON 8101 660660 XX=660660 ;SELECTED PATTERN 8102 000000 ZZ=0 8103 8104 E43100: REPEAT ^D4,< ;ROT RIGHT (110110)-TEST AC,AC+1 8105 ;TEST SELECTED BIT CONFIGURATIONS 8106 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8107 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8108 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8109 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8110 ; AC-1 CONTAINS BIT(S) THAT FAILED 8111 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8112 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8113 ; AC CONTAINS BIT(S) THAT FAILED 8114 8115 SN=SN+1 8116 WW=WW/2 8117 ZZ=ZZ-1 8118 SETACS (WW,XX) 8119 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8120 XOR AC-1,AC ;COMPARE AC 8121 SKIPE &17 ;SHOULD = 0 8122 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8123 XOR AC-2,&17 ;COMPARE AC+1 8124 SKIPE &17 ;SHOULD = 0 8125 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8126 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8127 > 8128 ;ROT RIGHT (110110)-TEST AC,AC+1 8129 ;TEST SELECTED BIT CONFIGURATIONS 8130 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8131 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8132 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8133 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8134 ; AC-1 CONTAINS BIT(S) THAT FAILED 8135 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8136 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8137 ; AC CONTAINS BIT(S) THAT FAILED 8138 8139 043101 SN=SN+1 8140 330330 WW=WW/2 8141 777777 777777 ZZ=ZZ-1 8142 SETACS (WW,XX)^ 8143 036127 201 03 0 00 330330 MOVEI AC-1,WW ;SETUP AC-1 8144 036130 505 03 0 00 330330 HRLI AC-1,WW ;FOR COMPARISION 8145 036131 200 02 0 00 000003 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8146 036132 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-4 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0207 8147 036133 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT 8148 036134 202 04 0 00 000005 MOVEM AC,&17 ;SETUP AC2^ 8149 036135 245 04 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8150 036136 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC 8151 036137 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8152 036140 003 04 0 00 043101 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8153 036141 430 02 0 00 000005 XOR AC-2,&17 ;COMPARE AC+1 8154 036142 332 00 0 00 000002 SKIPE &17 ;SHOULD = 0 8155 036143 004 05 0 00 043101 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8156 036144 321 06 0 00 036127 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8157 8158 ;ROT RIGHT (110110)-TEST AC,AC+1 8159 ;TEST SELECTED BIT CONFIGURATIONS 8160 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8161 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8162 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8163 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8164 ; AC-1 CONTAINS BIT(S) THAT FAILED 8165 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8166 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8167 ; AC CONTAINS BIT(S) THAT FAILED 8168 8169 043102 SN=SN+1 8170 154154 WW=WW/2 8171 777777 777776 ZZ=ZZ-1 8172 SETACS (WW,XX)^ 8173 036145 201 03 0 00 154154 MOVEI AC-1,WW ;SETUP AC-1 8174 036146 505 03 0 00 154154 HRLI AC-1,WW ;FOR COMPARISION 8175 036147 200 02 0 00 000003 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8176 036150 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT 8177 036151 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT 8178 036152 202 04 0 00 000005 MOVEM AC,&17 ;SETUP AC2^ 8179 036153 245 04 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8180 036154 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC 8181 036155 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8182 036156 003 04 0 00 043102 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8183 036157 430 02 0 00 000005 XOR AC-2,&17 ;COMPARE AC+1 8184 036160 332 00 0 00 000002 SKIPE &17 ;SHOULD = 0 8185 036161 004 05 0 00 043102 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8186 036162 321 06 0 00 036145 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8187 8188 ;ROT RIGHT (110110)-TEST AC,AC+1 8189 ;TEST SELECTED BIT CONFIGURATIONS 8190 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8191 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8192 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8193 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8194 ; AC-1 CONTAINS BIT(S) THAT FAILED 8195 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8196 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8197 ; AC CONTAINS BIT(S) THAT FAILED 8198 8199 043103 SN=SN+1 8200 066066 WW=WW/2 8201 777777 777775 ZZ=ZZ-1 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-5 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0208 8202 SETACS (WW,XX)^ 8203 036163 201 03 0 00 066066 MOVEI AC-1,WW ;SETUP AC-1 8204 036164 505 03 0 00 066066 HRLI AC-1,WW ;FOR COMPARISION 8205 036165 200 02 0 00 000003 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8206 036166 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT 8207 036167 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT 8208 036170 202 04 0 00 000005 MOVEM AC,&17 ;SETUP AC2^ 8209 036171 245 04 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8210 036172 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC 8211 036173 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8212 036174 003 04 0 00 043103 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8213 036175 430 02 0 00 000005 XOR AC-2,&17 ;COMPARE AC+1 8214 036176 332 00 0 00 000002 SKIPE &17 ;SHOULD = 0 8215 036177 004 05 0 00 043103 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8216 036200 321 06 0 00 036163 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8217 8218 ;ROT RIGHT (110110)-TEST AC,AC+1 8219 ;TEST SELECTED BIT CONFIGURATIONS 8220 ;TEST ABILITY TO ROTATE SELECTED PATTERNS 8221 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED 8222 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER 8223 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0 8224 ; AC-1 CONTAINS BIT(S) THAT FAILED 8225 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER 8226 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0 8227 ; AC CONTAINS BIT(S) THAT FAILED 8228 8229 043104 SN=SN+1 8230 033033 WW=WW/2 8231 777777 777774 ZZ=ZZ-1 8232 SETACS (WW,XX)^ 8233 036201 201 03 0 00 033033 MOVEI AC-1,WW ;SETUP AC-1 8234 036202 505 03 0 00 033033 HRLI AC-1,WW ;FOR COMPARISION 8235 036203 200 02 0 00 000003 MOVE AC-2,&17 ;SETUP AC-2 FOR COMPARISON 8236 036204 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT 8237 036205 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT 8238 036206 202 04 0 00 000005 MOVEM AC,&17 ;SETUP AC2^ 8239 036207 245 04 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES 8240 036210 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC 8241 036211 332 00 0 00 000003 SKIPE &17 ;SHOULD = 0 8242 036212 003 04 0 00 043104 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED 8243 036213 430 02 0 00 000005 XOR AC-2,&17 ;COMPARE AC+1 8244 036214 332 00 0 00 000002 SKIPE &17 ;SHOULD = 0 8245 036215 004 05 0 00 043104 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED 8246 036216 321 06 0 00 036201 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 8247 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 46 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0209 8248 SUBTTL DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST 8249 8250 ;TEST AROV FLAG-ASH,ASHC 8251 ;TEST THE ABILITY OF ASH,ASHC TO 8252 ;SET AROV FLAG 8253 ;TEST (00),(11) FOR SET NOT CONDITION 8254 ;TEST (01),(10) FOR SET CONDITION 8255 ;AN ERROR WILL OCCUR IF FLAG IS 8256 ;SET/SET NOT AS APPROPRIATE 8257 8258 000010 AC=10 8259 SAVEAC (1,1)^ 8260 036217 201 12 0 00 036217 MOVEI AC+2,. ;SAVE TEST PC 8261 036220 202 12 0 00 030051 MOVEM AC+2,TESTPC 8262 036221 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8263 036222 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8264 8265 ;ASH AROV SET NOT (11) 8266 036223 255 10 0 00 036224 E43200: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8267 036224 205 10 0 00 777777 MOVSI AC,-1 ;SET LEFT,CLEAR RIGHT 8268 036225 240 10 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE 8269 036226 265 06 0 00 036227 JSP AC-2,.+1 ;SAVE FLAGS 8270 036227 255 10 0 00 036231 JFCL 10,.+2 ;TEST FOR SET NOT COND 8271 036230 254 00 0 00 036232 JRST 0,.+2 ;FLAG NOT SET 8272 036231 013 06 0 00 043201 ER13 AC-2,43201 ;FLAG IS SET 8273 036232 321 12 0 00 036223 JUMPL AC+2,E43200 ;LOOP ON ERROR SWITCH 8274 8275 ;ASH AROV SET NOT (00) 8276 036233 255 10 0 00 036234 E43300: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8277 036234 400 10 0 00 000000 SETZ AC, ;CLEAR AC 8278 036235 240 10 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE 8279 036236 265 06 0 00 036237 JSP AC-2,.+1 ;SAVE FLAGS 8280 036237 255 10 0 00 036241 JFCL 10,.+2 ;TEST FOR SET NOT COND 8281 036240 254 00 0 00 036242 JRST 0,.+2 ;FLAG NOT SET 8282 036241 013 06 0 00 043301 ER13 AC-2,43301 ;FLAG IS SET 8283 036242 321 12 0 00 036233 JUMPL AC+2,E43300 ;LOOP ON ERROR SWITCH 8284 PAGE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 46-1 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0210 8285 000007 AC=7 8286 SAVEAC (1,1)^ 8287 036243 201 11 0 00 036243 MOVEI AC+2,. ;SAVE TEST PC 8288 036244 202 11 0 00 030051 MOVEM AC+2,TESTPC 8289 036245 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8290 036246 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8291 8292 ;ASH AROV SET (01) 8293 036247 255 10 0 00 036250 E43400: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8294 036250 205 07 0 00 377777 MOVSI AC,377777 ;CLEAR 0 AND RIGHT HALF 8295 036251 240 07 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE 8296 036252 265 05 0 00 036253 JSP AC-2,.+1 ;SAVE FLAGS 8297 036253 255 10 0 00 036255 JFCL 10,.+2 ;TEST FOR SET COND 8298 036254 013 05 0 00 043401 ER13 AC-2,43401 ;FLAG IS NOT SET 8299 036255 321 11 0 00 036247 JUMPL AC+2,E43400 ;LOOP ON ERROR SWITCH 8300 8301 ;ASH AROV SET (10) 8302 036256 255 10 0 00 036257 E43500: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8303 036257 205 07 0 00 400000 MOVSI AC,400000 ;SET BIT 0 8304 036260 240 07 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE 8305 036261 265 05 0 00 036262 JSP AC-2,.+1 ;SAVE FLAGS 8306 036262 255 10 0 00 036264 JFCL 10,.+2 ;TEST FOR SET COND 8307 036263 013 05 0 00 043501 ER13 AC-2,43501 ;FLAG IS NOT SET 8308 036264 321 11 0 00 036256 JUMPL AC+2,E43500 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 47 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0211 8309 000010 AC=10 8310 SAVEAC (1,1)^ 8311 036265 201 12 0 00 036265 MOVEI AC+2,. ;SAVE TEST PC 8312 036266 202 12 0 00 030051 MOVEM AC+2,TESTPC 8313 036267 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8314 036270 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8315 8316 ;ASHC AROV SET NOT (11) 8317 036271 255 10 0 00 036272 E43600: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8318 036272 205 10 0 00 777777 MOVSI AC,-1 ;SET LEFT, CLEAR RIGHT 8319 036273 244 10 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE 8320 036274 265 06 0 00 036275 JSP AC-2,.+1 ;SAVE FLAGS 8321 036275 255 10 0 00 036277 JFCL 10,.+2 ;TEST FOR SET NOT COND 8322 036276 254 00 0 00 036300 JRST 0,.+2 ;FLAG NOT SET 8323 036277 013 06 0 00 043601 ER13 AC-2,43601 ;FLAG IS SET 8324 036300 321 12 0 00 036271 JUMPL AC+2,E43600 ;LOOP ON ERROR SWITCH 8325 8326 8327 ;ASHC AROV SET NOT (00) 8328 036301 255 10 0 00 036302 E43700: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8329 036302 400 10 0 00 000000 SETZ AC, ;CLEAR AC 8330 036303 244 10 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE 8331 036304 265 06 0 00 036305 JSP AC-2,.+1 ;SAVE FLAGS 8332 036305 255 10 0 00 036307 JFCL 10,.+2 ;TEST FOR SET NOT COND 8333 036306 254 00 0 00 036310 JRST 0,.+2 ;FLAG NOT SET 8334 036307 013 06 0 00 043701 ER13 AC-2,43701 ;FLAG IS SET 8335 036310 321 12 0 00 036301 JUMPL AC+2,E43700 ;LOOP ON ERROR SWITCH 8336 8337 000007 AC=7 8338 SAVEAC (1,1)^ 8339 036311 201 11 0 00 036311 MOVEI AC+2,. ;SAVE TEST PC 8340 036312 202 11 0 00 030051 MOVEM AC+2,TESTPC 8341 036313 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8342 036314 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8343 8344 ;ASHC AROV SET (01) 8345 036315 255 10 0 00 036316 E44000: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8346 036316 205 07 0 00 377777 MOVSI AC,377777 ;CLEAR 0 AND RIGHT HALF 8347 036317 244 07 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE 8348 036320 265 05 0 00 036321 JSP AC-2,.+1 ;SAVE FLAGS 8349 036321 255 10 0 00 036323 JFCL 10,.+2 ;TEST FOR SET COND 8350 036322 013 05 0 00 044001 ER13 AC-2,44001 ;FLAG IS NOT SET 8351 036323 321 11 0 00 036315 JUMPL AC+2,E44000 ;LOOP ON ERROR SWITCH 8352 8353 ;ASHC AROV SET (10) 8354 036324 255 10 0 00 036325 E44100: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST 8355 036325 205 07 0 00 400000 MOVSI AC,400000 ;SET BIT 0 8356 036326 244 07 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE 8357 036327 265 05 0 00 036330 JSP AC-2,.+1 ;SAVE FLAGS 8358 036330 255 10 0 00 036332 JFCL 10,.+2 ;TEST FOR SET COND 8359 036331 013 05 0 00 044101 ER13 AC-2,44101 ;FLAG IS NOT SET 8360 036332 321 11 0 00 036324 JUMPL AC+2,E44100 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 48 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0212 8361 SUBTTL DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT 8362 8363 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS 8364 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X), 8365 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG. 8366 ;IN THIS CASE, C(AC)=230703,,603700, E=0, X=6 AND C(X)=3; 8367 ;HENCE, THE NET ROTATION SHOULD BE 3 BIT POSITIONS LEFT, 8368 ;AND THE RESULT IN THE AC SHOULD BE 307036,,037002 8369 8370 000007 AC=7 8371 SAVEAC (1,1)^ 8372 036333 201 11 0 00 036333 MOVEI AC+2,. ;SAVE TEST PC 8373 036334 202 11 0 00 030051 MOVEM AC+2,TESTPC 8374 036335 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8375 036336 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8376 8377 036337 201 06 0 00 000003 E70000: MOVEI 6,3 ;PRELOAD INDEX REG WITH 3 8378 036340 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8379 036341 241 07 0 06 000000 ROT AC,(6) ;*ROT C(AC) 3 BIT POSITIONS LEFT 8380 036342 312 07 0 00 036643 CAME AC,[307036,,037002] ;IS RESULT IN AC CORRECT? 8381 036343 003 07 0 00 070001 ER3 AC,70001 ;INDEXING FAILED 8382 036344 321 11 0 00 036337 JUMPL AC+2,E70000 ;LOOP ON ERROR SWITCH 8383 8384 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS 8385 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X), 8386 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG. 8387 ;IN THIS CASE, C(AC)=230703,,603700, E=4, X=5 AND C(X)=0; 8388 ;HENCE, THE NET ROTATION SHOULD BE 4 BIT POSITIONS LEFT, 8389 ;AND THE RESULT IN THE AC SHOULD BE 616074,,076004. 8390 8391 036345 201 05 0 00 000000 E70100: MOVEI 5,0 ;PRELOAD INDEX REG WITH 0 8392 036346 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8393 036347 241 07 0 05 000004 ROT AC,4(5) ;*ROT C(AC) 4 BIT POSITIONS LEFT 8394 036350 312 07 0 00 036665 CAME AC,[616074,,076004] ;IS RESULT IN AC CORRECT? 8395 036351 003 07 0 00 070101 ER3 AC,70101 ;INDEXING FAILED 8396 036352 321 11 0 00 036345 JUMPL AC+2,E70100 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 49 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0213 8397 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS 8398 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X), 8399 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG. 8400 ;IN THIS CASE, C(AC)=230703,,603700, E=16, X=6 AND C(X)=5; 8401 ;HENCE, THE NET ROTATION SHOULD BE 21 BIT POSITIONS LEFT, 8402 ;AND THE RESULT IN THE AC SHOULD BE 407600,,461607. 8403 8404 036353 201 06 0 00 000005 E70200: MOVEI 6,5 ;PRELOAD INDEX REG WITH 5 8405 036354 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8406 036355 241 07 0 06 000016 ROT AC,16(6) ;*ROT C(AC) 21 BIT POSITIONS LEFT 8407 036356 312 07 0 00 036666 CAME AC,[407600,,461607] ;IS RESULT IN AC CORRECT? 8408 036357 003 07 0 00 070201 ER3 AC,70201 ;INDEXING FAILED 8409 036360 321 11 0 00 036353 JUMPL AC+2,E70200 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 50 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0214 8410 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN E IS 8411 ;INDIRECTLY ADDRESSED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO C(E), 8412 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD. 8413 ;IN THIS CASE, C(AC)=230703,,603700, E=6 AND C(E)=35; 8414 ;HENCE, THE NET ROTATION SHOULD BE 35 BIT POSITIONS LEFT, 8415 ;AND THE RESULT IN THE AC SHOULD BE 401143,,417017. 8416 8417 036361 201 06 0 00 000035 E70300: MOVEI 6,35 ;PRELOAD E WITH 35 8418 036362 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8419 036363 241 07 1 00 000006 ROT AC,@@6 ;*ROT C(AC) 35 BIT POSITIONS LEFT 8420 036364 312 07 0 00 036650 CAME AC,[401143,,417017] ;IS RESULT IN AC CORRECT? 8421 036365 003 07 0 00 070301 ER3 AC,70301 ;INDIRECT ADDRESSING FAILED 8422 036366 321 11 0 00 036367 JUMPL AC+2,E70400 ;LOOP ON ERROR SWITCH 8423 8424 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN E IS 8425 ;INDIRECTLY ADDRESSED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO THE RIGHT HALF OF C 8426 (E), 8427 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD. 8428 ;IN THIS CASE, C(AC)=230703,,603700, E=[0,,1] AND C(E)=15; 8429 ;HENCE, THE NET ROTATION SHOULD BE 1 BIT POSITION LEFT, 8430 ;AND THE RESULT IN THE AC SHOULD BE 461607,,407600. 8431 8432 036367 476 00 0 00 000001 E70400: SETOM 1 ;PRELOAD AC1 WITH -1,,-1 IN CASE IND. ADR. FAILS 8433 036370 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8434 036371 241 07 1 00 036575 ROT AC,@@[0,,1] ;*ROT C(AC) 1 BIT POSITION LEFT 8435 036372 312 07 0 00 036641 CAME AC,[461607,,407600] ;IS RESULT IN AC CORRECT? 8436 036373 003 07 0 00 070401 ER3 AC,70401 ;INDIRECT ADDRESSING FAILED 8437 036374 321 11 0 00 036367 JUMPL AC+2,E70400 ;LOOP ON ERROR SWITCH DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 51 DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0215 8438 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS 8439 ;EXECUTED BY AN XCT INSTRUCTION. 8440 ;IN THIS CASE, C(AC)=230703,,603700 AND E=2. 8441 ;HENCE, THE NET ROTATION SHOULD BE 2 BIT POSITIONS LEFT, 8442 ;AND THE RESULT IN THE AC SHOULD BE 143417,,017401. 8443 8444 036375 200 07 0 00 036631 E70500: MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700 8445 036376 256 00 0 00 036667 XCT [ROT AC,2] ;*XCT SHOULD ROT C(AC) 2 BIT POSITIONS LEFT 8446 036377 312 07 0 00 036642 CAME AC,[143417,,017401] ;IS RESULT IN AC CORRECT? 8447 036400 003 07 0 00 070501 ER3 AC,70501 ;XCT OF ROT FAILED 8448 036401 321 11 0 00 036375 JUMPL AC+2,E70500 ;LOOP ON ERROR SWITCH 8449 8450 036402 254 00 0 00 030057 JRST BEGEND DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0216 8451 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 8452 8453 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 8454 8455 036403 202 00 0 00 037013 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 8456 036404 202 01 0 00 037014 MOVEM 1,%ERAC1# ;SAVE AC1 8457 036405 202 02 0 00 037015 MOVEM 2,%ERAC2# ;SAVE AC2 8458 036406 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 8459 036407 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8460 036410 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 8461 036411 350 00 0 00 037010 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 8462 036412 200 00 0 00 037010 MOVE 0,MICNT 8463 036413 504 00 0 00 030114 HRL 0,$SVUPC 8464 036414 402 00 0 00 037011 SETZM PROCED# ;CLEAR PROCEED FLAG 8465 036415 037 10 0 00 000002 SWITCH 8466 036416 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 8467 036417 254 00 0 00 036531 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 8468 036420 200 01 0 00 030113 MOVE 1,$SVUUO 8469 036421 242 01 0 00 777745 LSH 1,-^D27 8470 036422 202 01 0 00 037012 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 8471 036423 200 00 0 00 037013 MOVE 0,%ERAC0 8472 036424 200 01 0 00 037014 MOVE 1,%ERAC1 8473 036425 335 00 1 00 037007 SKIPGE @@ERRLOP ;ERR LOOP AC > OR = 0 ? 8474 036426 254 00 0 00 036563 JRST %ERRS4 ;NO, SEE IF PRINT ALL 8475 036427 402 00 0 00 037010 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 8476 036430 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 8477 036431 254 00 0 00 036435 JRST .+4 ;NO, DON'T NEED TITLE 8478 036432 336 00 0 00 037016 SKIPN %ERFST# ;FIRST ERROR ? 8479 036433 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 8480 036434 476 00 0 00 037016 SETOM %ERFST 8481 036435 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 8482 036436 254 00 0 00 036442 JRST .+4 ;YES 8483 PMSG <^TEST PASS COUNT = >^ 8484 036437 037 02 0 00 036670 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 8485 036440 200 00 0 00 030047 MOVE PASCNT 8486 036441 037 15 0 00 000000 PNTDEC 8487 PMSG <^PC = >^ 8488 036442 037 02 0 00 036674 PSIXM [SIXBIT\^PC = _\]^ 8489 036443 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8490 036444 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 8491 036445 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 8492 XLIST 8493 IFDEF ERDIAG,^ 8499 036446 037 02 0 00 036676 PSIXM [SIXBIT\^RESULT = _\]^ 8500 036447 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 8501 036450 242 01 0 00 777751 LSH 1,-27 8502 036451 405 01 0 00 000017 ANDI 1,17 8503 036452 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 8504 036453 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 8505 036454 200 00 0 01 037013 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 8506 036455 037 13 0 00 000000 PNTHW ;PRINT C(AC) 8507 8508 036456 200 00 0 00 030046 MOVE CONSW 8509 036457 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 8510 036460 254 00 0 00 036527 JRST %ERMORE ;NO, RESTORE AC'S ETC. 8511 8512 ;PRINT FAILURE DESCRIPTOR 8513 8514 036461 200 01 0 00 037012 MOVE 1,%ACS1A ;GET UUO NUMBER 8515 036462 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 8516 036463 254 00 0 00 036467 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 8517 036464 037 00 0 00 030242 PCRL 8518 036465 200 00 0 01 036513 MOVE %FLTTB(1) 8519 036466 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 8520 8521 ;PRINT FAULT NUMBER 8522 8523 036467 %ERMS3: PMSG <^FAULT NUMBER = >^ 8524 036467 037 02 0 00 036700 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 8525 036470 201 00 0 00 036512 MOVEI TLET 8526 036471 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0218 8527 8528 036472 550 00 0 00 030113 HRRZ $SVUUO 8529 036473 602 00 0 00 700000 TRNE 700000 8530 036474 254 00 0 00 036510 JRST %ER6X 8531 036475 602 00 0 00 070000 TRNE 070000 8532 036476 254 00 0 00 036506 JRST %ER5X 8533 036477 602 00 0 00 007000 TRNE 007000 8534 036500 254 00 0 00 036504 JRST %ER4X 8535 036501 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 8536 036502 037 00 0 00 030242 %ER7X: PCRL 8537 036503 254 00 0 00 036527 JRST %ERMORE 8538 8539 036504 037 04 0 00 000000 %ER4X: PNT4 8540 036505 254 00 0 00 036502 JRST %ER7X 8541 036506 037 05 0 00 000000 %ER5X: PNT5 8542 036507 254 00 0 00 036502 JRST %ER7X 8543 036510 037 06 0 00 000000 %ER6X: PNT6 8544 036511 254 00 0 00 036502 JRST %ER7X 8545 8546 ;FAILURE DESCRIPTORS 8547 8548 036512 000000 000000 TLET: 0 ;TEST LETTER 8549 036513 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 8550 036514 000000 036574 %NODES: [0] ;NO DESCRIPTOR 8551 036515 000000 036574 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 8552 036516 000000 036703 $ACF: [ASCIZ/C(AC) FAILED/] 8553 036517 000000 036706 %AC1F: [ASCIZ/C(AC+1) FAILED/] 8554 036520 000000 036711 %EF: [ASCIZ/C(E) FAILED/] 8555 036521 000000 036714 %E1F: [ASCIZ/C(E+1) FAILED/] 8556 036522 000000 036717 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 8557 036523 000000 036723 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 8558 036524 000000 036727 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 8559 036525 000000 036733 %EEF: [ASCIZ/C(C(E)) FAILED/] 8560 036526 000000 036736 %FF: [ASCIZ/FLAG FAILED/] 8561 > 8562 XLIST 8563 LIST DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0219 8564 ;RESTORE AC'S AND RETURN OR HALT 8565 8566 036527 256 00 0 00 030101 %ERMORE:XCT ERMORE 8567 036530 037 10 0 00 000002 SWITCH 8568 8569 036531 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 8570 036532 254 00 0 00 036536 JRST .+4 ;NONE 8571 036533 201 00 0 00 036536 MOVEI .+3 ;SAVE CONT ADDRESS 8572 036534 202 00 0 00 000130 MOVEM JOBOPC 8573 036535 254 00 1 00 030063 JRST @@ALTMGO ;PERFORM TRANSFER 8574 036536 200 00 0 00 030046 MOVE CONSW 8575 036537 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 8576 036540 037 14 0 00 000004 ERRHLT ;YES 8577 036541 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 8578 036542 476 00 0 00 037011 SETOM PROCED ;NO, SET THE PROCEED FLAG 8579 036543 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 8580 036544 037 01 0 00 000007 PBELL ;YES, GO RING BELL 8581 8582 036545 200 02 0 00 037015 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 8583 036546 200 01 0 00 037014 MOVE 1,%ERAC1 8584 036547 476 00 1 00 037007 SETOM @@ERRLOP ;SET C(ERR LOOP AC) TO -1 8585 036550 336 00 0 00 037011 SKIPN PROCED ;LOOP ON ERROR ? 8586 036551 254 00 0 00 036561 JRST %ERRS5 ;YES 8587 036552 350 00 1 00 037007 AOS @@ERRLOP ;NO, INC C(ERR LOOP AC) 8588 036553 350 00 1 00 037007 AOS @@ERRLOP ;SO IT ='S 1 8589 036554 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 8590 036555 254 00 0 00 036561 JRST %ERRS5 ;NO, CONTINUE PROGRAM 8591 036556 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 8592 036557 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 8593 036560 254 00 0 00 036567 JRST %ERRS6 8594 8595 036561 200 00 0 00 037013 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 8596 036562 254 00 0 00 030065 JRST UUOEXT 8597 8598 036563 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 8599 036564 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 8600 036565 254 00 0 00 036531 JRST %ERRS1 ;NO 8601 036566 254 00 0 00 036427 JRST %ERMS1 ;YES 8602 8603 036567 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 8604 036567 037 04 0 00 036741 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 8605 036570 254 00 0 00 030061 JRST $BEND2 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0220 8606 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 8607 8608 ;PROGRAM LITERALS 8609 8610 XLIST 8611 IFNDEF $LPAPER, 8612 036571 LIT 8613 036571 101 112 000 000 000 8614 036572 777777 777777 8615 036573 777777 777776 8616 036574 000000 000000 8617 036575 000000 000001 8618 036576 000000 000002 8619 036577 777777 777774 8620 036600 100000 000000 8621 036601 200000 000000 8622 036602 677777 777777 8623 036603 577777 777776 8624 036604 400000 000000 8625 036605 577777 777777 8626 036606 377777 777776 8627 036607 377777 777777 8628 036610 777777 777775 8629 036611 177777 777777 8630 036612 000000 000004 8631 036613 777777 777773 8632 036614 377777 777775 8633 036615 000000 000010 8634 036616 777777 777767 8635 036617 177777 777775 8636 036620 177777 777776 8637 036621 600000 000000 8638 036622 700000 000000 8639 036623 077777 777777 8640 036624 252525 252525 8641 036625 741703 607417 8642 036626 525252 525252 8643 036627 146314 631463 8644 036630 631463 146314 8645 036631 230703 603700 8646 036632 700230 703603 8647 036633 740114 341701 8648 036634 370023 070360 8649 036635 017401 143417 8650 036636 036037 002307 8651 036637 011434 170174 8652 036640 600461 607407 8653 036641 461607 407600 8654 036642 143417 017401 8655 036643 307036 037002 8656 036644 434170 174011 8657 036645 703603 700230 8658 036646 701740 114341 8659 036647 023070 360370 8660 036650 401143 417017 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0221 8661 036651 114341 701740 8662 036652 770037 600377 8663 036653 374017 700177 8664 036654 514341 701740 8665 036655 760077 400776 8666 036656 461607 407601 8667 036657 700376 003772 8668 036660 307036 037007 8669 036661 077003 760037 8670 036662 723070 360370 8671 036663 037401 770017 8672 036664 751434 170174 8673 036665 616074 076004 8674 036666 407600 461607 8675 036667 241 07 0 00 000002 8676 036670 76 64 45 63 64 00 8677 036671 60 41 63 63 00 43 8678 036672 57 65 56 64 00 35 8679 036673 00 77 00 00 00 00 8680 036674 76 60 43 00 35 00 8681 036675 00 00 77 00 00 00 8682 036676 76 62 45 63 65 54 8683 036677 64 00 00 35 00 77 8684 036700 76 46 41 65 54 64 8685 036701 00 56 65 55 42 45 8686 036702 62 00 35 00 77 00 8687 036703 103 050 101 103 051 8688 036704 040 106 101 111 114 8689 036705 105 104 000 000 000 8690 036706 103 050 101 103 053 8691 036707 061 051 040 106 101 8692 036710 111 114 105 104 000 8693 036711 103 050 105 051 040 8694 036712 106 101 111 114 105 8695 036713 104 000 000 000 000 8696 036714 103 050 105 053 061 8697 036715 051 040 106 101 111 8698 036716 114 105 104 000 000 8699 036717 103 050 103 050 101 8700 036720 103 122 051 051 040 8701 036721 106 101 111 114 105 8702 036722 104 000 000 000 000 8703 036723 103 050 103 050 101 8704 036724 103 122 053 061 051 8705 036725 051 040 106 101 111 8706 036726 114 105 104 000 000 8707 036727 103 050 103 050 101 8708 036730 103 114 051 051 040 8709 036731 106 101 111 114 105 8710 036732 104 000 000 000 000 8711 036733 103 050 103 050 105 8712 036734 051 051 040 106 101 8713 036735 111 114 105 104 000 8714 036736 106 114 101 107 040 8715 036737 106 101 111 114 105 DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0222 8716 036740 104 000 000 000 000 8717 036741 76 45 70 43 45 45 8718 036742 44 45 44 00 41 54 8719 036743 54 57 67 45 44 00 8720 036744 45 62 62 57 62 63 8721 036745 76 77 00 00 00 00 8722 LIST 8723 036746 000000 000000 ENDSLD: 0 8724 8725 IFDEF DEBUG,< 8726 036747 PATCH: BLOCK DEBUG ;PATCHING AREA 8727 > 8728 8729 ;PROGRAM VARIABLES 8730 037007 VAR 8731 8732 IFDEF PGMEND,< 8733 037017 000000 000000 END: 0 8734 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 037020 CPU TIME USED 00:28.557 24P CORE USED ABORT 145# AC 766# 768 769 770 771 797 798 799 800 801 802 803 804 815 SEQ 0223 816 817 818 819 820 821 822 833 834 835 836 837 838 839 840 851 852 853 854 855 856 857 858 869 870 871 872 873 874 875 876 887 888 889 890 891 892 893 894 905 906 907 908 909 910 911 912 923 924 925 926 927 928 929 930 941 942 943 944 945 946 947 948 959 960 961 962 963 964 965 966 977 978 979 980 981 982 983 984 995 996 997 998 999 1000 1001 1002 1013 1014 1015 1016 1017 1018 1019 1020 1031 1032 1033 1034 1035 1036 1037 1038 1049 1050 1051 1052 1053 1054 1055 1056 1067 1068 1069 1070 1071 1072 1073 1074 1085 1086 1087 1088 1089 1090 1091 1092 1103 1104 1105 1106 1107 1108 1109 1110 1121 1122 1123 1124 1125 1126 1127 1128 1139 1140 1141 1142 1143 1144 1145 1146 1157 1158 1159 1160 1161 1162 1163 1164 1175 1176 1177 1178 1179 1180 1181 1182 1193 1194 1195 1196 1197 1198 1199 1200 1211 1212 1213 1214 1215 1216 1217 1218 1229 1230 1231 1232 1233 1234 1235 1236 1247 1248 1249 1250 1251 1252 1253 1254 1265 1266 1267 1268 1269 1270 1271 1272 1283 1284 1285 1286 1287 1288 1289 1290 1301 1302 1303 1304 1305 1306 1307 1308 1319 1320 1321 1322 1323 1324 1325 1326 1337 1338 1339 1340 1341 1342 1343 1344 1355 1356 1357 1358 1359 1360 1361 1362 1373 1374 1375 1376 1377 1378 1379 1380 1391 1392 1393 1394 1395 1396 1397 1398 1409 1410 1411 1412 1413 1414 1415 1416 1427 1428 1429 1430 1431 1432 1433 1434 1445 1446 1447 1448 1449 1450 1451 1452 1463 1464 1465 1466 1467 1468 1469 1470 1481 1482 1483 1484 1485 1486 1487 1488 1499 1500 1501 1502 1503 1504 1505 1506 1517 1518 1519 1520 1521 1522 1523 1524 1535 1536 1537 1538 1539 1540 1541 1542 1553 1554 1555 1556 1557 1558 1559 1560 1571 1572 1573 1574 1575 1576 1577 1578 1606 1607 1608 1609 1610 1611 1612 1613 1624 1625 1626 1627 1628 1629 1630 1631 1642 1643 1644 1645 1646 1647 1648 1649 1660 1661 1662 1663 1664 1665 1666 1667 1678 1679 1680 1681 1682 1683 1684 1685 1697 1698 1699 1700 1701 1702 1703 1704 1716 1717 1718 1719 1720 1721 1722 1723 1734 1735 1736 1737 1738 1739 1740 1741 1752 1753 1754 1755 1756 1757 1758 1759 1770 1771 1772 1773 1774 1775 1776 1777 1788 1789 1790 1791 1792 1793 1794 1795 1806 1807 1808 1809 1810 1811 1812 1813 1824 1825 1826 1827 1828 1829 1830 1831 1842 1843 1844 1845 1846 1847 1848 1849 1860 1861 1862 1863 1864 1865 1866 1867 1878 1879 1880 1881 1882 1883 1884 1885 1896 1897 1898 1899 1900 1901 1902 1903 1914 1915 1916 1917 1918 1919 1920 1921 1932 1933 1934 1935 1936 1937 1938 1939 1950 1951 1952 1953 1954 1955 1956 1957 1968 1969 1970 1971 1972 1973 1974 1975 1986 1987 1988 1989 1990 1991 1992 1993 2004 2005 2006 2007 2008 2009 2010 2011 2022 2023 2024 2025 2026 2027 2028 2029 2040 2041 2042 2043 2044 2045 2046 2047 2058 2059 2060 2061 2062 2063 2064 2065 2076 2077 2078 2079 2080 2081 2082 2083 2094 2095 2096 2097 2098 2099 2100 2101 2112 2113 2114 2115 2116 2117 2118 2119 2130 2131 2132 2133 2134 2135 2136 2137 2148 2149 2150 2151 2152 2153 2154 2155 2166 2167 2168 2169 2170 2171 2172 2173 2184 2185 2186 2187 2188 2189 2190 2191 2202 2203 2204 2205 2206 2207 2208 2209 2220 2221 2222 2223 2224 2225 2226 2227 2238 2239 2240 2241 2242 2243 2244 2245 2256 2257 2258 2259 2260 2261 2262 2263 2274 2275 2276 2277 2278 2279 2280 2281 2292 2293 2294 2295 2296 2297 2298 2299 2310 2311 2312 2313 2314 2315 2316 2317 2328 2329 2330 2331 2332 2333 2334 2335 2346 2347 2348 2349 2350 2351 2352 2353 2364 2365 2366 2367 2368 2369 2370 2371 2382 2383 2384 2385 2386 2387 2388 2389 2400 2401 2402 2403 2404 2405 2406 2407 2418 2419 2420 2421 2422 2423 2424 2425 2436 2437 2438 2439 2440 2441 2442 2443 2453 2454 2455 2456 2457 2458 2459 2460 2469 2470 2471 2472 2473 2474 2475 2476 2485 2486 2487 2488 2489 2490 2491 SEQ 0224 2492 2501 2502 2503 2504 2505 2506 2507 2508 2517 2518 2519 2520 2521 2522 2523 2524 2533 2534 2535 2536 2537 2538 2539 2540 2550 2551 2552 2553 2554 2555 2556 2557 2567 2568 2569 2570 2571 2572 2573 2574 2584 2585 2586 2587 2588 2589 2590 2591 2601 2602 2603 2604 2605 2606 2607 2608 2618 2619 2620 2621 2622 2623 2624 2625 2635 2636 2637 2638 2639 2640 2641 2642 2645# 2647 2648 2649 2650 2691 2692 2693 2694 2695 2696 2697 2713 2714 2715 2716 2717 2718 2719 2735 2736 2737 2738 2739 2740 2741 2754# 2756 2757 2758 2759 2761 2762 2763 2764 2765 2766 2769 2770 2771 2772 2773 2776 2777 2778 2779 2780 2781# 2783 2784 2785 2786 2823 2824 2825 2826 2827 2842 2843 2844 2845 2846 2861 2862 2863 2864 2865 2880 2881 2882 2883 2884 2899 2900 2901 2902 2903 2918 2919 2920 2921 2922 2937 2938 2939 2940 2941 2956 2957 2958 2959 2960 2962# 2964 2965 2966 2967 3006 3007 3008 3009 3010 3011 3026 3027 3028 3029 3030 3031 3046 3047 3048 3049 3050 3051 3066 3067 3068 3069 3070 3071 3086 3087 3088 3089 3090 3091 3106 3107 3108 3109 3110 3111 3123# 3125 3126 3127 3128 3131 3132 3133 3134 3135 3136 3139 3140 3141 3142 3143 3144 3145# 3147 3148 3149 3150 3187 3188 3189 3190 3191 3206 3207 3208 3209 3210 3225 3226 3227 3228 3229 3244 3245 3246 3247 3248 3263 3264 3265 3266 3267 3282 3283 3284 3285 3286 3301 3302 3303 3304 3305 3320 3321 3322 3323 3324 3360 3361 3362 3363 3364 3378 3379 3380 3381 3382 3396 3397 3398 3399 3400 3414 3415 3416 3417 3418 3432 3433 3434 3435 3436 3450 3451 3452 3453 3454 3468 3469 3470 3471 3472 3474# 3476 3477 3478 3479 3519 3520 3521 3522 3523 3539 3540 3541 3542 3543 3559 3560 3561 3562 3563 3579 3580 3581 3582 3583 3599 3600 3601 3602 3603 3646 3647 3648 3649 3650 3651 3668 3669 3670 3671 3672 3673 3690 3691 3692 3693 3694 3695 3712 3713 3714 3715 3716 3717 3734 3735 3736 3737 3738 3739 3756 3757 3758 3759 3760 3761 3802 3803 3804 3805 3806 3823 3824 3825 3826 3827 3844 3845 3846 3847 3848 3865 3866 3867 3868 3869 3886 3887 3888 3889 3890 3907 3908 3909 3910 3911 3954 3955 3956 3957 3958 3959 3976 3977 3978 3979 3980 3981 3998 3999 4000 4001 4002 4003 4020 4021 4022 4023 4024 4025 4042 4043 4044 4045 4046 4047 4064 4065 4066 4067 4068 4069 4080 4081 4082 4083 4084 4085 4086 4087 4096 4097 4098 4099 4100 4101 4102 4103 4112 4113 4114 4115 4116 4117 4118 4119 4128 4129 4130 4131 4132 4133 4134 4135 4144 4145 4146 4147 4148 4149 4150 4151 4160 4161 4162 4163 4164 4165 4166 4167 4176 4177 4178 4179 4180 4181 4182 4183 4192 4193 4194 4195 4196 4197 4198 4199 4208 4209 4210 4211 4212 4213 4214 4215 4224 4225 4226 4227 4228 4229 4230 4231 4240 4241 4242 4243 4244 4245 4246 4247 4256 4257 4258 4259 4260 4261 4262 4263 4271 4272 4273 4274 4275 4276 4277 4278 4287 4288 4289 4290 4291 4292 4293 4294 4303 4304 4305 4306 4307 4308 4309 4310 4319 4320 4321 4322 4323 4324 4325 4326 4359 4360 4361 4362 4363 4364 4365 4366 4375 4376 4377 4378 4379 4380 4381 4382 4391 4392 4393 4394 4395 4396 4397 4398 4411 4412 4413 4414 4415 4416 4417 4418 4427 4428 4429 4430 4431 4432 4433 4434 4443 4444 4445 4446 4447 4448 4449 4450 4463 4464 4465 4466 4467 4468 4469 4470 4479 4480 4481 4482 4483 4484 4485 4486 4495 4496 4497 4498 4499 4500 4501 4502 4515 4516 4517 4518 4519 4520 4521 4522 4531 4532 4533 4534 4535 4536 4537 4538 4547 4548 4549 4550 4551 4552 4553 4554 4567 4568 4569 4570 4571 4572 4573 4574 4583 4584 4585 4586 4587 4588 4589 4590 4599 4600 4601 4602 4603 4604 4605 4606 4619 4620 4621 4622 4623 4624 4625 4626 4635 4636 4637 4638 4639 4640 4641 4642 4651 4652 4653 4654 4655 4656 4657 4658 4671 4672 4673 4674 4675 4676 4677 4678 4687 4688 4689 4690 4691 4692 4693 4694 4703 4704 4705 4706 4707 4708 4709 4710 4723 4724 4725 4726 4727 4728 4729 4730 4739 4740 4741 SEQ 0225 4742 4743 4744 4745 4746 4755 4756 4757 4758 4759 4760 4761 4762 4775 4776 4777 4778 4779 4780 4781 4782 4791 4792 4793 4794 4795 4796 4797 4798 4807 4808 4809 4810 4811 4812 4813 4814 4827 4828 4829 4830 4831 4832 4833 4834 4843 4844 4845 4846 4847 4848 4849 4850 4859 4860 4861 4862 4863 4864 4865 4866 4879 4880 4881 4882 4883 4884 4885 4886 4895 4896 4897 4898 4899 4900 4901 4902 4911 4912 4913 4914 4915 4916 4917 4918 4931 4932 4933 4934 4935 4936 4937 4938 4947 4948 4949 4950 4951 4952 4953 4954 4963 4964 4965 4966 4967 4968 4969 4970 4983 4984 4985 4986 4987 4988 4989 4990 4999 5000 5001 5002 5003 5004 5005 5006 5015 5016 5017 5018 5019 5020 5021 5022 5035 5036 5037 5038 5039 5040 5041 5042 5051 5052 5053 5054 5055 5056 5057 5058 5067 5068 5069 5070 5071 5072 5073 5074 5087 5088 5089 5090 5091 5092 5093 5094 5103 5104 5105 5106 5107 5108 5109 5110 5119 5120 5121 5122 5123 5124 5125 5126 5142 5143 5144 5145 5146 5147 5148 5149 5159 5160 5161 5162 5163 5164 5165 5166 5177 5178 5179 5180 5181 5182 5183 5184 5231 5232 5233 5234 5235 5236 5237 5238 5248 5249 5250 5251 5252 5253 5254 5255 5266 5267 5268 5269 5270 5271 5272 5273 5286 5287 5288 5289 5290 5291 5292 5293 5303 5304 5305 5306 5307 5308 5309 5310 5321 5322 5323 5324 5325 5326 5327 5328 5342 5343 5344 5345 5346 5347 5348 5349 5359 5360 5361 5362 5363 5364 5365 5366 5377 5378 5379 5380 5381 5382 5383 5384 5397 5398 5399 5400 5401 5402 5403 5404 5414 5415 5416 5417 5418 5419 5420 5421 5432 5433 5434 5435 5436 5437 5438 5439 5453 5454 5455 5456 5457 5458 5459 5460 5470 5471 5472 5473 5474 5475 5476 5477 5488 5489 5490 5491 5492 5493 5494 5495 5508 5509 5510 5511 5512 5513 5514 5515 5525 5526 5527 5528 5529 5530 5531 5532 5543 5544 5545 5546 5547 5548 5549 5550 5564 5565 5566 5567 5568 5569 5570 5571 5581 5582 5583 5584 5585 5586 5587 5588 5599 5600 5601 5602 5603 5604 5605 5606 5619 5620 5621 5622 5623 5624 5625 5626 5636 5637 5638 5639 5640 5641 5642 5643 5654 5655 5656 5657 5658 5659 5660 5661 5675 5676 5677 5678 5679 5680 5681 5682 5692 5693 5694 5695 5696 5697 5698 5699 5710 5711 5712 5713 5714 5715 5716 5717 5730 5731 5732 5733 5734 5735 5736 5737 5747 5748 5749 5750 5751 5752 5753 5754 5765 5766 5767 5768 5769 5770 5771 5772 5786 5787 5788 5789 5790 5791 5792 5793 5803 5804 5805 5806 5807 5808 5809 5810 5821 5822 5823 5824 5825 5826 5827 5828 5841 5842 5843 5844 5845 5846 5847 5848 5858 5859 5860 5861 5862 5863 5864 5865 5876 5877 5878 5879 5880 5881 5882 5883 5897 5898 5899 5900 5901 5902 5903 5904 5914 5915 5916 5917 5918 5919 5920 5921 5932 5933 5934 5935 5936 5937 5938 5939 5952 5953 5954 5955 5956 5957 5958 5959 5969 5970 5971 5972 5973 5974 5975 5976 5987 5988 5989 5990 5991 5992 5993 5994 6003 6004 6005 6006 6007 6008 6009 6010 6019 6020 6021 6022 6023 6024 6025 6026 6036 6037 6038 6039 6040 6041 6042 6043 6053 6054 6055 6056 6057 6058 6059 6060 6069 6070 6071 6072 6073 6074 6075 6076 6086 6087 6088 6089 6090 6091 6092 6093 6103 6104 6105 6106 6107 6108 6109 6110 6120 6121 6122 6123 6124 6125 6126 6127 6137 6138 6139 6140 6141 6142 6143 6144 6154 6155 6156 6157 6158 6159 6160 6161 6171 6172 6173 6174 6175 6176 6177 6178 6188 6189 6190 6191 6192 6193 6194 6195 6205 6206 6207 6208 6209 6210 6211 6212 6221 6222 6223 6224 6225 6226 6227 6228 6239 6240 6241 6242 6243 6244 6245 6246 6262# 6271 6271# 6272 6273 6276 6276# 6277 6278 6281 6281# 6282 6283 6286 6286# 6287 6288 6291 6291# 6292 6293 6296 6296# 6297 6298 6301 6301# 6302 6303 6306# 6308 6309 6310 6311 6314# 6357 6357# 6358 6359 6360 6361 6362 6363 6381 6381# 6382 6383 6384 6385 6386 6387 6405 6405# 6406 6407 6408 6409 6410 6411 6429 6429# 6430 6431 6432 6433 6434 6435 6453 6453# 6454 6455 6456 6457 6458 6459 6461# 6463 6464 6465 6466 6469# SEQ 0226 6512 6512# 6513 6514 6515 6516 6517 6518 6536 6536# 6537 6538 6539 6540 6541 6542 6560 6560# 6561 6562 6563 6564 6565 6566 6584 6584# 6585 6586 6587 6588 6589 6590 6608 6608# 6609 6610 6611 6612 6613 6614 6618# 6620 6621 6622 6623 6626# 6669 6669# 6670 6671 6672 6673 6674 6675 6693 6693# 6694 6695 6696 6697 6698 6699 6717 6717# 6718 6719 6720 6721 6722 6723 6741 6741# 6742 6743 6744 6745 6746 6747 6765 6765# 6766 6767 6768 6769 6770 6771 6803# 6805 6806 6807 6808 6854 6855 6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866 6867 6884 6885 6886 6887 6888 6889 6890 6891 6892 6893 6894 6895 6896 6897 6914 6915 6916 6917 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6944 6945 6946 6947 6948 6949 6950 6951 6952 6953 6954 6955 6956 6957 6960# 6962 6963 6964 6965 7011 7012 7013 7014 7015 7016 7017 7018 7019 7020 7021 7022 7023 7024 7041 7042 7043 7044 7045 7046 7047 7048 7049 7050 7051 7052 7053 7054 7071 7072 7073 7074 7075 7076 7077 7078 7079 7080 7081 7082 7083 7084 7101 7102 7103 7104 7105 7106 7107 7108 7109 7110 7111 7112 7113 7114 7116# 7118 7119 7120 7121 7167 7168 7169 7170 7171 7172 7173 7174 7175 7176 7177 7178 7179 7180 7197 7198 7199 7200 7201 7202 7203 7204 7205 7206 7207 7208 7209 7210 7227 7228 7229 7230 7231 7232 7233 7234 7235 7236 7237 7238 7239 7240 7243# 7245 7246 7247 7248 7294 7295 7296 7297 7298 7299 7300 7301 7302 7303 7304 7305 7306 7307 7324 7325 7326 7327 7328 7329 7330 7331 7332 7333 7334 7335 7336 7337 7354 7355 7356 7357 7358 7359 7360 7361 7362 7363 7364 7365 7366 7367 7369# 7371 7372 7373 7374 7420 7421 7422 7423 7424 7425 7426 7427 7428 7429 7430 7431 7432 7433 7450 7451 7452 7453 7454 7455 7456 7457 7458 7459 7460 7461 7462 7463 7480 7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493 7496# 7498 7499 7500 7501 7547 7548 7549 7550 7551 7552 7553 7554 7555 7556 7557 7558 7559 7560 7577 7578 7579 7580 7581 7582 7583 7584 7585 7586 7587 7588 7589 7590 7607 7608 7609 7610 7611 7612 7613 7614 7615 7616 7617 7618 7619 7620 7622# 7624 7625 7626 7627 7673 7674 7675 7676 7677 7678 7679 7680 7681 7682 7683 7684 7685 7686 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7779# 7781 7782 7783 7784 7830 7831 7832 7833 7834 7835 7836 7837 7838 7839 7840 7841 7842 7843 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7935# 7937 7938 7939 7940 7986 7987 7988 7989 7990 7991 7992 7993 7994 7995 7996 7997 7998 7999 8016 8017 8018 8019 8020 8021 8022 8023 8024 8025 8026 8027 8028 8029 8046 8047 8048 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8076 8077 8078 8079 8080 8081 8082 8083 8084 8085 8086 8087 8088 8089 8092# 8094 8095 8096 8097 8143 8144 8145 8146 8147 8148 8149 8150 8151 8152 8153 8154 8155 8156 8173 8174 8175 8176 8177 8178 8179 8180 8181 8182 8183 8184 8185 8186 8203 8204 8205 8206 8207 8208 8209 8210 8211 8212 8213 8214 8215 8216 8233 8234 8235 8236 8237 8238 8239 8240 8241 8242 8243 8244 8245 8246 8258# 8260 8261 8262 8263 8267 8268 8269 8272 8273 8277 8278 8279 8282 8283 8285# 8287 8288 8289 8290 8294 8295 8296 8298 8299 8303 8304 8305 8307 8308 8309# 8311 8312 8313 8314 8318 8319 8320 8323 8324 8329 8330 8331 8334 8335 8337# 8339 8340 8341 8342 8346 8347 8348 8350 8351 8355 8356 8357 8359 8360 8370# 8372 8373 8374 8375 8378 8379 8380 8381 8382 8392 8393 8394 8395 8396 8405 8406 8407 8408 8409 8418 8419 8420 8421 8422 8433 8434 8435 8436 8437 8444 8445 8446 8447 8448 SEQ 0227 ADR 4329# 4349 4349# 4354 4370 4386 4401 4401# 4406 4422 4438 4453 4453# 4458 4474 4490 4505 4505# 4510 4526 4542 4557 4557# 4562 4578 4594 4609 4609# 4614 4630 4646 4661 4661# 4666 4682 4698 4713 4713# 4718 4734 4750 4765 4765# 4770 4786 4802 4817 4817# 4822 4838 4854 4869 4869# 4874 4890 4906 4921 4921# 4926 4942 4958 4973 4973# 4978 4994 5010 5025 5025# 5030 5046 5062 5077 5077# 5082 5098 5114 5131 5131# 5136 5153 5170 5220 5220# 5225 5242 5259 5275 5275# 5280 5297 5314 5331 5331# 5336 5353 5370 5386 5386# 5391 5408 5425 5442 5442# 5447 5464 5481 5497 5497# 5502 5519 5536 5553 5553# 5558 5575 5592 5608 5608# 5613 5630 5647 5664 5664# 5669 5686 5703 5719 5719# 5724 5741 5758 5775 5775# 5780 5797 5814 5830 5830# 5835 5852 5869 5886 5886# 5891 5908 5925 5941 5941# 5946 5963 5980 ALTMGO 495# 8573 AROV 409# AROVTP 409# AROVU 409# AST 610# ATSIN 611# BEGEND 491# 8450 BEGIN 66 67 68 71 72 73 74 75 76 360 361 422# 8734 BEGIN1 438# 492 BELL 614# BIS 409# CCA 409# CHAIN 165# CHNOFF 409# CHNON 409# CLKU 409# CLOCKF 477# CNTLC 494# CNTRP 409# COMMA 603# CONSW 478# 8508 8574 8598 CPOPJ 498# CPOPJ1 496# CRLF 295 296 598# CRLF2 299 300 600# CRY0 409# CRY1 409# CSHFLG 657# CSHMEM 658# CTRP 409# CYCL60 651# DCK 409# DDTLNK 179# 436 DDTSRT 436# DEBUG 58# 8725 8726 DECVER 4# 11 26 457 DF22F 562# DIAGMN 425# DING 151# 8579 DOLLAR 617# DSKUPD 462 E24300 797# 804 SEQ 0228 E24400 815# 822 E24500 833# 840 E24600 851# 858 E24700 869# 876 E25000 887# 894 E25100 905# 912 E25200 923# 930 E25300 941# 948 E25400 959# 966 E25500 977# 984 E25600 995# 1002 E25700 1013# 1020 E26000 1031# 1038 E26100 1049# 1056 E26200 1067# 1074 E26300 1085# 1092 E26400 1103# 1110 E26500 1121# 1128 E26600 1139# 1146 E26700 1157# 1164 E27000 1175# 1182 E27100 1193# 1200 E27200 1211# 1218 E27300 1229# 1236 E27400 1247# 1254 E27500 1265# 1272 E27600 1283# 1290 E27700 1301# 1308 E30000 1319# 1326 E30100 1337# 1344 E30200 1355# 1362 E30300 1373# 1380 E30400 1391# 1398 E30500 1409# 1416 E30600 1427# 1434 E30700 1445# 1452 E31000 1463# 1470 E31100 1481# 1488 E31200 1499# 1506 E31300 1517# 1524 E31400 1535# 1542 E31500 1553# 1560 E31600 1571# 1578 E31700 1606# 1613 E32000 1624# 1631 E32100 1642# 1649 E32200 1660# 1667 E32300 1678# 1685 E32400 1697# 1704 E32500 1716# 1723 E32600 1734# 1741 E32700 1752# 1759 E33000 1770# 1777 SEQ 0229 E33100 1788# 1795 E33200 1806# 1813 E33300 1824# 1831 E33400 1842# 1849 E33500 1860# 1867 E33600 1878# 1885 E33700 1896# 1903 E34000 1914# 1921 E34100 1932# 1939 E34200 1950# 1957 E34300 1968# 1975 E34400 1986# 1993 E34500 2004# 2011 E34600 2022# 2029 E34700 2040# 2047 E35000 2058# 2065 E35100 2076# 2083 E35200 2094# 2101 E35300 2112# 2119 E35400 2130# 2137 E35500 2148# 2155 E35600 2166# 2173 E35700 2184# 2191 E36000 2202# 2209 E36100 2220# 2227 E36200 2238# 2245 E36300 2256# 2263 E36400 2274# 2281 E36500 2292# 2299 E36600 2310# 2317 E36700 2328# 2335 E37000 2346# 2353 E37100 2364# 2371 E37200 2382# 2389 E37300 2400# 2407 E37400 2418# 2425 E37500 2436# 2443 E37600 2655# E37700 2761# 2766 E40000 2769# 2773 E40100 2776# 2780 E40200 2791# E40300 2973# E40400 3131# 3136 E40500 3139# 3144 E40600 3155# E40700 3330# E41000 3485# E41100 3609# E41200 3766# E41300 3917# E41400 6317# E41500 6472# SEQ 0230 E41600 6629# E41700 6779# E42000 6815# E42100 6972# E42200 7128# E42300 7255# E42400 7381# E42500 7508# E42600 7634# E42700 7791# E43000 7947# E43100 8104# E43200 8266# 8273 E43300 8276# 8283 E43400 8293# 8299 E43500 8302# 8308 E43600 8317# 8324 E43700 8328# 8335 E44000 8345# 8351 E44100 8354# 8360 E44500 2453# 2460 E44600 2469# 2476 E44700 2485# 2492 E45000 2501# 2508 E45100 2517# 2524 E45200 2533# 2540 E45300 2550# 2557 E45400 2567# 2574 E45500 2584# 2591 E45600 2601# 2608 E45700 2618# 2625 E46000 2635# 2642 E46100 4080# 4087 E46200 4096# 4103 E46300 4112# 4119 E46400 4128# 4135 E46500 4144# 4151 E46600 4160# 4167 E46700 4176# 4183 E47000 4192# 4199 E47100 4208# 4215 E47200 4224# 4231 E47300 4240# 4247 E47400 4256# 4263 E47500 4271# 4278 E47600 4287# 4294 E47700 4303# 4310 E50000 4319# 4326 E50100 4359# 4366 E50200 4375# 4382 E50300 4391# 4398 E50400 4411# 4418 E50500 4427# 4434 SEQ 0231 E50600 4443# 4450 E50700 4463# 4470 E51000 4479# 4486 E51100 4495# 4502 E51200 4515# 4522 E51300 4531# 4538 E51400 4547# 4554 E51500 4567# 4574 E51600 4583# 4590 E51700 4599# 4606 E52000 4619# 4626 E52100 4635# 4642 E52200 4651# 4658 E52300 4671# 4678 E52400 4687# 4694 E52500 4703# 4710 E52600 4723# 4730 E52700 4739# 4746 E53000 4755# 4762 E53100 4775# 4782 E53200 4791# 4798 E53300 4807# 4814 E53400 4827# 4834 E53500 4843# 4850 E53600 4859# 4866 E53700 4879# 4886 E54000 4895# 4902 E54100 4911# 4918 E54200 4931# 4938 E54300 4947# 4954 E54400 4963# 4970 E54500 4983# 4990 E54600 4999# 5006 E54700 5015# 5022 E55000 5035# 5042 E55100 5051# 5058 E55200 5067# 5074 E55300 5087# 5094 E55400 5103# 5110 E55500 5119# 5126 E55600 5142# 5149 E55700 5159# 5166 E56000 5177# 5184 E56100 5231# 5238 E56200 5248# 5255 E56300 5266# 5273 E56400 5286# 5293 E56500 5303# 5310 E56600 5321# 5328 E56700 5342# 5349 E57000 5359# 5366 E57100 5377# 5384 E57200 5397# 5404 SEQ 0232 E57300 5414# 5421 E57400 5432# 5439 E57500 5453# 5460 E57600 5470# 5477 E57700 5488# 5495 E60000 5508# 5515 E60100 5525# 5532 E60200 5543# 5550 E60300 5564# 5571 E60400 5581# 5588 E60500 5599# 5606 E60600 5619# 5626 E60700 5636# 5643 E61000 5654# 5661 E61100 5675# 5682 E61200 5692# 5699 E61300 5710# 5717 E61400 5730# 5737 E61500 5747# 5754 E61600 5765# 5772 E61700 5786# 5793 E62000 5803# 5810 E62100 5821# 5828 E62200 5841# 5848 E62300 5858# 5865 E62400 5876# 5883 E62500 5897# 5904 E62600 5914# 5921 E62700 5932# 5939 E63000 5952# 5959 E63100 5969# 5976 E63200 5987# 5994 E63300 6003# 6010 E63400 6019# 6026 E63500 6036# 6043 E63600 6053# 6060 E63700 6069# 6076 E64000 6086# 6093 E64100 6103# 6110 E64200 6120# 6127 E64300 6137# 6144 E64400 6154# 6161 E64500 6171# 6178 E64600 6188# 6195 E64700 6205# 6212 E65000 6221# 6228 E65100 6239# 6246 E70000 8377# 8382 E70100 8391# 8396 E70200 8404# 8409 E70300 8417# E70400 8422 8432# 8437 E70500 8444# 8448 SEQ 0233 EBIT0 409# EBIT1 409# EBIT10 409# EBIT11 409# EBIT12 409# EBIT13 409# EBIT14 409# EBIT15 409# EBIT2 409# EBIT3 409# EBIT4 409# EBIT5 409# EBIT6 409# EBIT7 409# EBIT8 409# EBIT9 409# END 8733# ENDFIX 737# ENDSLD 8723# ERDIAG 62# 8493 ERMORE 511# 8566 EROLD 371 ERRELB 8563 ERRLOP 771# 771 2650# 2650 2759# 2759 2786# 2786 2967# 2967 3128# 3128 3150# 3150 3479# 3479 6311# 6311 6466# 6466 6623# 6623 6808# 6808 6965# 6965 7121# 7121 7248# 7248 7374# 7374 7501# 7501 7627# 7627 7784# 7784 7940# 7940 8097# 8097 8263# 8263 8290# 8290 8314# 8314 8342# 8342 8375# 8375 8473 8584 8587 8588 ERRMES 45 46 47 48 49 50 51 52 53 54 55 8455# ERRPC 482# 8460 8490 ERRTLS 483# 8458 8591 ERSTOP 154# 8575 EXCASB 59# 460 EXIOT 409# EXIT 738# 739 FOV 409# FOVU 409# FRDLNK 177# FSELNK 176# FXU 409# HYPEN 608# INHCSH 162# INHPAG 159# IOCLR 409# ITERAT 87# 455 ITRCH1 515# ITRCNT 455# JOB41 409# JOBAPR 409# JOBCNI 409# JOBDDT 409# JOBFF 409# JOBOPC 409# 8572 JOBREL 409# SEQ 0234 JOBREN 409# JOBSA 409# JOBSYM 409# JOBTPC 409# JOBUSY 409# JOBUUO 409# JOBVER 409# KAIFLG 472# KLFLG 473# KNTRP 409# KTRP 409# LACLK 409# LACLKE 409# LAPRAL 409# LAPRP1 409# LAPRP2 409# LAPRP3 409# LAPRP4 409# LAPRP5 409# LAPRP6 409# LAPRP7 409# LCHNOF 409# LCHNON 409# LCNTXT 409# LCNXER 409# LCPAER 409# LCPSFT 409# LCPWRF 409# LDATAF 409# LDLNK 178# 425 427 LDNXER 409# LDPAER 409# LDPSFT 409# LDPWRF 409# LEBXMH 409# LEBXML 409# LENXER 409# LEPAER 409# LEPSFT 409# LEPWRF 409# LEUPFW 409# LEXCMP 409# LFLGCL 409# LFLGDS 409# LFLGEN 409# LFLGST 409# LFP 612# LINSTF 409# LINT 409# LIOCLR 409# LLACBL 409# LLDUSB 409# LMBXMH 409# SEQ 0235 LMBXML 409# LNXMEN 409# LNXMER 409# LOOPER 153# 8577 LPAREN 409# LPARER 409# LPFWPC 409# LPGFTR 409# LPICH1 409# LPICH2 409# LPICH3 409# LPICH4 409# LPICH5 409# LPICH6 409# LPICH7 409# LPICHA 409# LPICLR 409# LPIIP1 409# LPIIP2 409# LPIIP3 409# LPIIP4 409# LPIIP5 409# LPIIP6 409# LPIIP7 409# LPIOFF 409# LPION 409# LPRCH1 409# LPRCH2 409# LPRCH3 409# LPRCH4 409# LPRCH5 409# LPRCH6 409# LPRCH7 409# LPRFMH 409# LPRFML 409# LPSFT 409# LPSFTE 409# LPWRFE 409# LPWRFL 409# LREQSE 409# LRQCLR 409# LSECMO 409# LSMODE 409# LSNXER 409# LSPAER 409# LSPSFT 409# LSPWRF 409# LTBASH 409# LTBASL 409# LTRPAE 409# LTRPEN 409# LUSCMP 409# LUUO 409# SEQ 0236 LUUO1 45# 542 543 LUUO10 52# 542 547 LUUO11 53# 542 547 LUUO12 54# 542 548 LUUO13 55# 542 548 LUUO14 542 549 LUUO15 542 549 LUUO16 542 550 LUUO17 542 550 LUUO2 46# 542 544 LUUO20 542 551 LUUO21 542 551 LUUO22 542 552 LUUO23 542 552 LUUO24 542 553 LUUO25 542 553 LUUO26 542 554 LUUO27 542 554 LUUO3 47# 542 544 LUUO30 542 555 LUUO31 542 555 LUUO32 542 556 LUUO33 542 556 LUUO4 48# 542 545 LUUO5 49# 542 545 LUUO6 50# 542 546 LUUO7 51# 542 546 LUUOI 409# LWRITE 409# MAPNEW 563# MARGIN 485# MCNVER 3# 11 26 457 MEMLOW 565# MEMMAP 463 MEMSIZ 566# MEMTOT 564# MICNT 8461# 8461 8462 8475 MINUS 607# MODDVC 161# MODDVL 360 360# 458 MODDVU 361 361# 459 MODLNK 180# 422 MONCTL 475# 8476 8589 MONFLG 474# MONTEN 476# MONTYP 689# MPVU 409# MUUO 409# MUUOPC 409# N 4330# 4350 4350# 4361 4377 4393 4402 4402# 4413 4429 4445 4454 4454# 4465 4481 4497 4506 4506# 4517 4533 4549 4558 4558# 4569 4585 4601 4610 4610# 4621 4637 4653 4662 4662# 4673 4689 4705 4714 4714# 4725 4741 4757 4766 4766# 4777 4793 4809 4818 4818# 4829 4845 4861 4870 4870# 4881 4897 4913 SEQ 0237 4922 4922# 4933 4949 4965 4974 4974# 4985 5001 5017 5026 5026# 5037 5053 5069 5078 5078# 5089 5105 5121 5128# 5132 5132# 5144 5161 5179 5221 5221# 5233 5250 5268 5276 5276# 5288 5305 5323 5332 5332# 5344 5361 5379 5387 5387# 5399 5416 5434 5443 5443# 5455 5472 5490 5498 5498# 5510 5527 5545 5554 5554# 5566 5583 5601 5609 5609# 5621 5638 5656 5665 5665# 5677 5694 5712 5720 5720# 5732 5749 5767 5776 5776# 5788 5805 5823 5831 5831# 5843 5860 5878 5887 5887# 5899 5916 5934 5942 5942# 5954 5971 5989 NOPNT 149# 8466 NXMU 409# OPRSEL 163# OPTIME 577# P 206 207 208 209 409# 497 PAG 409# PALERS 155# 8599 PAREA0 80# PAREA1 81# 453 PAREA2 82# 454 PAREA3 83# 451 PAREA4 84# 452 PAREA5 85# 464 PAREA6 86# 465 PAREA7 464# PAREA8 465# PART2 763 767# PARU 409# PASCNT 479# 8481 8485 PATCH 8726# PDISF 574# PDLOVU 409# PDOVTP 409# PERIOD 604# PFSTRT 431# PGMEND 61# 8732 PGMNAM 456 741# PICHN1 409# PICHN2 409# PICHN3 409# PICHN4 409# PICHN5 409# PICHN6 409# PICHN7 409# PICHNA 409# PICLR 409# PIOFF 409# PION 409# PLIST 643# 643 PLISTE 643 645# PLISTS 644# PLUS 609# PNTENB 573# PNTEXT 452# PNTFLG 572# PNTINH 575# SEQ 0238 PNTLPT 150# PNTNAM 451# PNTRP 409# PNTSPC 576# PROCED 8464# 8464 8578 8585 PTRP 409# PVPAGI 670# QUEST 615# RADIX 618# RADLSC 620# RADLSP 619# RANDBS 453# REENTR 433# RELIAB 157# REPT 409# REPT1 409# REPTU 531# REQSET 409# RESRT1 508# RESRT2 509# RETURN 440# RSTART 146# RTP 613# RUNFLG 480# SADR1 66# 429 SADR10 75# 445 SADR11 76# 446 SADR2 67# 431 SADR3 68# 433 SADR4 69# SADR5 70# 494 SADR6 71# 495 SADR7 72# 442 SADR8 73# 443 SADR9 74# 444 SBINIT 219 439# SCOPE 532# SFSTRT 429# SLASH 616# SM10 720# SN 2652# 2689 2689# 2694 2696 2711 2711# 2716 2718 2733 2733# 2738 2740 2788# 2820 2820# 2826 2839 2839# 2845 2858 2858# 2864 2877 2877# 2883 2896 2896# 2902 2915 2915# 2921 2934 2934# 2940 2953 2953# 2959 2969# 3002 3002# 3010 3022 3022# 3030 3042 3042# 3050 3062 3062# 3070 3082 3082# 3090 3102 3102# 3110 3152# 3184 3184# 3190 3203 3203# 3209 3222 3222# 3228 3241 3241# 3247 3260 3260# 3266 3279 3279# 3285 3298 3298# 3304 3317 3317# 3323 3327# 3358 3358# 3363 3376 3376# 3381 3394 3394# 3399 3412 3412# 3417 3430 3430# 3435 3448 3448# 3453 3466 3466# 3471 3481# 3516 3516# 3522 3536 3536# 3542 3556 3556# 3562 3576 3576# 3582 3596 3596# 3602 3606# 3642 3642# 3650 3664 3664# 3672 3686 3686# 3694 3708 3708# 3716 3730 3730# 3738 3752 3752# 3760 3763# 3798 3798# 3805 3819 3819# 3826 3840 3840# 3847 3861 3861# 3868 3882 3882# 3889 3903 3903# 3910 3914# 3950 3950# 3958 3972 3972# 3980 3994 3994# 4002 4016 4016# 4024 4038 4038# 4046 4060 4060# 4068 6313# 6355 6355# 6360 6362 SEQ 0239 6379 6379# 6384 6386 6403 6403# 6408 6410 6427 6427# 6432 6434 6451 6451# 6456 6458 6468# 6510 6510# 6515 6517 6534 6534# 6539 6541 6558 6558# 6563 6565 6582 6582# 6587 6589 6606 6606# 6611 6613 6625# 6667 6667# 6672 6674 6691 6691# 6696 6698 6715 6715# 6720 6722 6739 6739# 6744 6746 6763 6763# 6768 6770 6777# 6810# 6850 6850# 6863 6866 6880 6880# 6893 6896 6910 6910# 6923 6926 6940 6940# 6953 6956 6967# 7007 7007# 7020 7023 7037 7037# 7050 7053 7067 7067# 7080 7083 7097 7097# 7110 7113 7123# 7163 7163# 7176 7179 7193 7193# 7206 7209 7223 7223# 7236 7239 7250# 7290 7290# 7303 7306 7320 7320# 7333 7336 7350 7350# 7363 7366 7376# 7416 7416# 7429 7432 7446 7446# 7459 7462 7476 7476# 7489 7492 7503# 7543 7543# 7556 7559 7573 7573# 7586 7589 7603 7603# 7616 7619 7629# 7669 7669# 7682 7685 7699 7699# 7712 7715 7729 7729# 7742 7745 7759 7759# 7772 7775 7786# 7826 7826# 7839 7842 7856 7856# 7869 7872 7886 7886# 7899 7902 7916 7916# 7929 7932 7942# 7982 7982# 7995 7998 8012 8012# 8025 8028 8042 8042# 8055 8058 8072 8072# 8085 8088 8099# 8139 8139# 8152 8155 8169 8169# 8182 8185 8199 8199# 8212 8215 8229 8229# 8242 8245 SNTRP 409# SPACE 605# SPDES 8551# SRTDDT 69 435# START 423 759# START1 442# START2 443# START3 444# START4 445# START5 446# STARTA 438 763# STRP 409# SUBLNK 181# 439 SWPTAB 726# SWTEXR 454# SYSEXR 427# TAB 606# TESTPC 481# 769 2648 2757 2784 2965 3126 3148 3477 6309 6464 6621 6806 6963 7119 7246 7372 7499 7625 7782 7938 8095 8261 8288 8312 8340 8373 TICKS 484# TLET 761 8525 8548# TN0 409# TN1 409# TOTALS 147# TRP3TP 409# TTNBRF 664# TTYFIL 580# TTYSPD 581# TXTINH 158# 8509 UBAVEC 409# USER 471# USERF 409# USRASB 60# 461 USRCRF 590# USRLFF 589# UUODIS 543# UUOEXT 499# 8596 SEQ 0240 UUORTN 500# UUOSKP 497# WW 6811# 6851 6851# 6854 6855 6881 6881# 6884 6885 6911 6911# 6914 6915 6941 6941# 6944 6945 6968# 7008 7008# 7011 7012 7038 7038# 7041 7042 7068 7068# 7071 7072 7098 7098# 7101 7102 7124# 7164 7164# 7167 7168 7194 7194# 7197 7198 7224 7224# 7227 7228 7251# 7291 7291# 7294 7295 7321 7321# 7324 7325 7351 7351# 7354 7355 7377# 7417 7417# 7420 7421 7447 7447# 7450 7451 7477 7477# 7480 7481 7504# 7544 7544# 7547 7548 7574 7574# 7577 7578 7604 7604# 7607 7608 7630# 7670 7670# 7673 7674 7700 7700# 7703 7704 7730 7730# 7733 7734 7760 7760# 7763 7764 7787# 7827 7827# 7830 7831 7857 7857# 7860 7861 7887 7887# 7890 7891 7917 7917# 7920 7921 7943# 7983 7983# 7986 7987 8013 8013# 8016 8017 8043 8043# 8046 8047 8073 8073# 8076 8077 8100# 8140 8140# 8143 8144 8170 8170# 8173 8174 8200 8200# 8203 8204 8230 8230# 8233 8234 XX 2970# 3003 3003# 3005 3005# 3008 3023 3023# 3025 3028 3043 3043# 3045 3048 3063 3063# 3065 3068 3083 3083# 3085 3088 3103 3103# 3105 3108 3482# 3517 3517# 3521 3537 3537# 3541 3557 3557# 3561 3577 3577# 3581 3597 3597# 3601 3607# 3643 3643# 3645 3645# 3649 3665 3665# 3667 3671 3687 3687# 3689 3693 3709 3709# 3711 3715 3731 3731# 3733 3737 3753 3753# 3755 3759 3764# 3799 3799# 3801 3801# 3804 3820 3820# 3822 3825 3841 3841# 3843 3846 3862 3862# 3864 3867 3883 3883# 3885 3888 3904 3904# 3906 3909 3915# 3951 3951# 3953 3953# 3957 3973 3973# 3975 3979 3995 3995# 3997 4001 4017 4017# 4019 4023 4039 4039# 4041 4045 4061 4061# 4063 4067 6812# 6857 6858 6887 6888 6917 6918 6947 6948 6969# 7014 7015 7044 7045 7074 7075 7104 7105 7125# 7170 7171 7200 7201 7230 7231 7252# 7297 7298 7327 7328 7357 7358 7378# 7423 7424 7453 7454 7483 7484 7505# 7550 7551 7580 7581 7610 7611 7631# 7676 7677 7706 7707 7736 7737 7766 7767 7788# 7833 7834 7863 7864 7893 7894 7923 7924 7944# 7989 7990 8019 8020 8049 8050 8079 8080 8101# 8146 8147 8176 8177 8206 8207 8236 8237 ZZ 2653# 2690 2690# 2692 2712 2712# 2714 2734 2734# 2736 2789# 2821 2821# 2822 2822# 2824 2840 2840# 2841 2843 2859 2859# 2860 2862 2878 2878# 2879 2881 2897 2897# 2898 2900 2916 2916# 2917 2919 2935 2935# 2936 2938 2954 2954# 2955 2957 2971# 3004 3004# 3007 3024 3024# 3027 3044 3044# 3047 3064 3064# 3067 3084 3084# 3087 3104 3104# 3107 3153# 3185 3185# 3186 3186# 3188 3204 3204# 3205 3207 3223 3223# 3224 3226 3242 3242# 3243 3245 3261 3261# 3262 3264 3280 3280# 3281 3283 3299 3299# 3300 3302 3318 3318# 3319 3321 3328# 3359 3359# 3361 3377 3377# 3379 3395 3395# 3397 3413 3413# 3415 3431 3431# 3433 3449 3449# 3451 3467 3467# 3469 3483# 3518 3518# 3520 3538 3538# 3540 3558 3558# 3560 3578 3578# 3580 3598 3598# 3600 3644 3644# 3647 3666 3666# 3669 3688 3688# 3691 3710 3710# 3713 3732 3732# 3735 3754 3754# 3757 3800 3800# 3803 3821 3821# 3824 3842 3842# 3845 3863 3863# 3866 3884 3884# 3887 3905 3905# 3908 3952 3952# 3955 3974 3974# 3977 3996 3996# 3999 4018 4018# 4021 4040 4040# 4043 4062 4062# 4065 6263# 6270 6270# 6272 6273 6275 6275# 6277 6278 6280 6280# 6282 6283 6285 6285# 6287 6288 6290 6290# 6292 6293 6295 6295# 6297 6298 6300 6300# 6302 6303 6315# 6356 6356# 6359 6361 6380 6380# 6383 6385 6404 6404# 6407 6409 6428 6428# 6431 6433 6452 6452# 6455 6457 6470# 6511 6511# 6514 6516 6535 6535# 6538 6540 6559 6559# 6562 6564 6583 6583# 6586 6588 6607 6607# 6610 6612 6627# 6668 6668# 6671 6673 6692 6692# 6695 6697 6716 6716# 6719 6721 6740 6740# 6743 6745 6764 6764# 6767 6769 6813# 6852 6852# 6860 6882 6882# 6890 6912 6912# 6920 6942 6942# 6950 6970# 7009 7009# 7017 7039 7039# 7047 7069 7069# 7077 7099 7099# 7107 7126# 7165 7165# 7173 7195 7195# 7203 7225 7225# 7233 7253# 7292 7292# 7300 7322 7322# 7330 7352 7352# 7360 7379# 7418 7418# 7426 7448 7448# 7456 7478 7478# 7486 7506# 7545 7545# 7553 7575 7575# 7583 7605 7605# 7613 7632# 7671 7671# SEQ 0241 7679 7701 7701# 7709 7731 7731# 7739 7761 7761# 7769 7789# 7828 7828# 7836 7858 7858# 7866 7888 7888# 7896 7918 7918# 7926 7945# 7984 7984# 7992 8014 8014# 8022 8044 8044# 8052 8074 8074# 8082 8102# 8141 8141# 8149 8171 8171# 8179 8201 8201# 8209 8231 8231# 8239 $$MUUO 695# $$OUTE 701# $$TAX1 713# $$TAX2 714# $$TOGG 707# $$UUO 684# $ACC0 522# $ACF 8552# $BEND1 492# $BEND2 70 493# 8605 $CHRIN 583# $CRLF 585# $DEVCH 409# $DSKUP 462# $DVOFF 579# $EMODE 460# $FFF 587# $IBUF 635# $INEXT 637# $INNM 636# $ITRHL 503# $ITRX1 504# $LPAPE 8611 $MMAP 463# $MODVL 458# $MODVU 459# $OBUF 626# $ONETM 486# $OUTEX 628# $OUTNM 627# $PAPER 409 $PARER 510# $PNAME 456# $PSHER 514# $PVER 457# $RSRTX 506# $RSRTY 507# $SPAG1 526# $START 423# $SVAPR 524# $SVPAG 525# $SVPI 523# $SVUPC 529# 8459 8463 8489 $SVUUO 528# 8468 8500 8528 $TABF 586# $TTCHR 582# $TWCNT 578# $TYPNB 584# $UMODE 461# SEQ 0242 $UORTX 501# $USRHL 505# $UUOER 502# 543 $VTF 588# %AC1F 8553# %ACS1A 8470# 8470 8514 %ACTFL 535# %ACTUL 536# %ALF 8558# %AR1F 8557# %ARF 8556# %COREC 534# %CORFL 533# %DISCR 537# %E1F 8555# %EEF 8559# %EF 8554# %ER4X 8534 8539# %ER5X 8532 8541# %ER6X 8530 8543# %ER7X 8536# 8540 8542 8544 %ERAC0 8455# 8455 8471 8505 8595 %ERAC1 8456# 8456 8472 8583 %ERAC2 8457# 8457 8582 %ERFST 8478# 8478 8480 %ERHI1 676# %ERHI2 677# %ERHI3 678# %ERMOR 8510 8537 8566# %ERMS1 8475# 8601 %ERMS2 8498# %ERMS3 8516 8523# %ERRS1 8467 8569# 8600 %ERRS2 8582# %ERRS4 8474 8598# %ERRS5 8586 8590 8595# %ERRS6 8593 8603# %FF 8560# %FLTTB 8518 8549# %NODES 8550# .JB41 409# .JBAPR 409# .JBCNI 409# .JBDDT 409# .JBFF 409# .JBOPC 409# .JBREL 409# .JBREN 409# .JBSA 409# .JBSYM 409# .JBTPC 409# .JBUSY 409# .JBUUO 409# SEQ 0243 .JBVER 409# APRID 409# BCIO 409# SEQ 0244 BCIOB 409# BSIO 409# BSIOB 409# CFLUSH 331# CINVAL 330# CLOKOP 325# CLRPT 409# CWRTBI 332# DROPDV 292# 738 ENDUUO 338# 491 EOPUUO 339# 493 ER1 33# ER10 40# ER11 41# ER12 42# ER13 43# 8272 8282 8298 8307 8323 8334 8350 8359 ER2 34# ER3 35# 801 819 837 855 873 891 909 927 945 963 981 999 1017 1035 1053 1071 1089 1107 1125 1143 1161 1179 1197 1215 1233 1251 1269 1287 1305 1323 1341 1359 1377 1395 1413 1431 1449 1467 1485 1503 1521 1539 1557 1575 1610 1628 1646 1664 1682 1701 1720 1738 1756 1774 1792 1810 1828 1846 1864 1882 1900 1918 1936 1954 1972 1990 2008 2026 2044 2062 2080 2098 2116 2134 2152 2170 2188 2206 2224 2242 2260 2278 2296 2314 2332 2350 2368 2386 2404 2422 2440 2457 2473 2489 2505 2521 2537 2554 2571 2588 2605 2622 2639 2694 2696 2716 2718 2738 2740 2765 2772 2779 2826 2845 2864 2883 2902 2921 2940 2959 3010 3030 3050 3070 3090 3110 3135 3143 3190 3209 3228 3247 3266 3285 3304 3323 3363 3381 3399 3417 3435 3453 3471 3522 3542 3562 3582 3602 3650 3672 3694 3716 3738 3760 3805 3826 3847 3868 3889 3910 3958 3980 4002 4024 4046 4068 4084 4100 4116 4132 4148 4164 4180 4196 4212 4228 4244 4260 4275 4291 4307 4323 4363 4379 4395 4415 4431 4447 4467 4483 4499 4519 4535 4551 4571 4587 4603 4623 4639 4655 4675 4691 4707 4727 4743 4759 4779 4795 4811 4831 4847 4863 4883 4899 4915 4935 4951 4967 4987 5003 5019 5039 5055 5071 5091 5107 5123 5146 5163 5181 5235 5252 5270 5290 5307 5325 5346 5363 5381 5401 5418 5436 5457 5474 5492 5512 5529 5547 5568 5585 5603 5623 5640 5658 5679 5696 5714 5734 5751 5769 5790 5807 5825 5845 5862 5880 5901 5918 5936 5956 5973 5991 6007 6023 6040 6057 6073 6090 6107 6124 6141 6158 6175 6192 6209 6225 6243 6360 6384 6408 6432 6456 6515 6539 6563 6587 6611 6672 6696 6720 6744 6768 6863 6893 6923 6953 7020 7050 7080 7110 7176 7206 7236 7303 7333 7363 7429 7459 7489 7556 7586 7616 7682 7712 7742 7772 7839 7869 7899 7929 7995 8025 8055 8085 8152 8182 8212 8242 8381 8395 8408 8421 8436 8447 ER4 36# 803 821 839 857 875 893 911 929 947 965 983 1001 1019 1037 1055 1073 1091 1109 1127 1145 1163 1181 1199 1217 1235 1253 1271 1289 1307 1325 1343 1361 1379 1397 1415 1433 1451 1469 1487 1505 1523 1541 1559 1577 1612 1630 1648 1666 1684 1703 1722 1740 1758 1776 1794 1812 1830 1848 1866 1884 1902 1920 1938 1956 1974 1992 2010 2028 2046 2064 2082 2100 2118 2136 2154 2172 2190 2208 2226 2244 2262 2280 2298 2316 2334 2352 2370 2388 2406 2424 2442 2459 2475 2491 2507 2523 2539 2556 2573 2590 2607 2624 2641 4086 4102 4118 4134 4150 4166 4182 4198 4214 4230 4246 4262 4277 4293 4309 4325 4365 4381 4397 4417 4433 4449 4469 4485 4501 4521 4537 4553 4573 4589 4605 4625 4641 4657 4677 4693 4709 4729 4745 4761 4781 4797 4813 4833 4849 4865 4885 4901 4917 4937 SEQ 0245 4953 4969 4989 5005 5021 5041 5057 5073 5093 5109 5125 5148 5165 5183 5237 5254 5272 5292 5309 5327 5348 5365 5383 5403 5420 5438 5459 5476 5494 5514 5531 5549 5570 5587 5605 5625 5642 5660 5681 5698 5716 5736 5753 5771 5792 5809 5827 5847 5864 5882 5903 5920 5938 5958 5975 5993 6009 6025 6042 6059 6075 6092 6109 6126 6143 6160 6177 6194 6211 6227 6245 6362 6386 6410 6434 6458 6517 6541 6565 6589 6613 6674 6698 6722 6746 6770 6866 6896 6926 6956 7023 7053 7083 7113 7179 7209 7239 7306 7336 7366 7432 7462 7492 7559 7589 7619 7685 7715 7745 7775 7842 7872 7902 7932 7998 8028 8058 8088 8155 8185 8215 8245 ER5 37# ER6 38# ER7 39# ERLOOP 379# ERLP1 380# ERLP2 381# ERRHLT 226# 8576 ERROR 388# ERROR1 399# ERUUO 378# FATAL 225# FRD36 367# FRD8 368# FREAD 366# FSELEC 365# GET 209# GO 206# HALT 211# 512 JEN 213# JRSTF 212# MAPADR 348# MAPCNK 349# MAPMEM 345# MAPPNT 351# MAPSET 350# MEMSEG 347# MEMZRO 346# MODPCP 358# MODPCU 357# MTROP 326# NAME 8# 11 PBELL 301# 8580 PCRL 295# 8517 8536 PCRL2 299# PCRL2F 300# PCRLF 296# PFORCE 303# PGMINT 219# 759 PJRST 210# PMSG 305# 8483 8487 8498 8523 PMSGF 308# 8603 PNT1 261# PNT11 275# PNT11F 276# SEQ 0246 PNT1F 262# PNT2 263# PNT2F 264# PNT3 265# 8535 PNT3F 266# PNT4 267# 8539 PNT4F 268# PNT5 269# 8541 PNT5F 270# PNT6 271# 8491 8543 PNT6F 272# PNT7 273# PNT7F 274# PNTA 247# 8526 PNTADF 278# PNTADR 277# PNTAF 248# PNTAL 249# 8519 PNTALF 250# PNTCHF 260# PNTCHR 259# PNTCI 257# PNTCIF 258# PNTCW 293# PNTCWF 294# PNTDCF 286# PNTDEC 285# 8486 PNTDS 287# PNTDSF 288# PNTHW 281# 8506 PNTHWF 282# PNTMSF 254# PNTMSG 253# PNTNM 289# 8479 PNTOCF 284# PNTOCS 283# PNTOCT 279# PNTOTF 280# PNTSIX 290# PNTSXF 291# PSIXL 251# PSIXLF 252# PSIXM 255# 8484 8488 8499 8524 PSIXMF 256# 8604 PSP 297# PSPF 298# PUT 208# RDAPR 409# RDCSB 409# RDCSTM 409# RDEBR 409# RDHSB 409# RDINT 409# SEQ 0247 RDIO 409# RDIOB 409# RDPI 409# RDPUR 409# RDSPB 409# RDTIM 409# RDUBR 409# REPTUO 382# RTN 207# 499 S 137# 139 143 172 174 183 186 201 202 204 215 217 221 223 228 232 374 376 409 414 420 447 449 467 469 487 489 518 520 538 540 558 560 568 570 591 596 622 624 631 633 639 641 647 649 653 655 660 662 666 668 672 674 680 682 685 687 691 693 697 699 703 705 709 711 716 718 722 724 728 730 732 734 SAVEAC 91# 767 2646 2755 2782 2963 3124 3146 3475 6307 6462 6619 6804 6961 7117 7244 7370 7497 7623 7780 7936 8093 8259 8286 8310 8338 8371 SETACS 97# 6853 6883 6913 6943 7010 7040 7070 7100 7166 7196 7226 7293 7323 7353 7419 7449 7479 7546 7576 7606 7672 7702 7732 7762 7829 7859 7889 7919 7985 8015 8045 8075 8142 8172 8202 8232 SIXBTZ 314# SR1 106# 2448 2464 2480 2496 2512 2528 4075 4091 4107 4123 4139 4155 4171 4187 4203 4219 4235 4251 4266 4282 4298 4314 4354 4370 4386 4406 4422 4438 4458 4474 4490 4510 4526 4542 4562 4578 4594 4614 4630 4646 4666 4682 4698 4718 4734 4750 4770 4786 4802 4822 4838 4854 4874 4890 4906 4926 4942 4958 4978 4994 5010 5030 5046 5062 5082 5098 5114 5998 6014 6064 6081 6098 6115 6132 6149 6166 6183 6200 6216 SR2 121# 791 809 827 845 863 881 899 917 935 953 971 989 1007 1025 1043 1061 1079 1097 1115 1133 1151 1169 1187 1205 1223 1241 1259 1277 1295 1313 1331 1349 1367 1385 1403 1421 1439 1457 1475 1493 1511 1529 1547 1565 1600 1618 1636 1654 1672 1691 1710 1728 1746 1764 1782 1800 1818 1836 1854 1872 1890 1908 1926 1944 1962 1980 1998 2016 2034 2052 2070 2088 2106 2124 2142 2160 2178 2196 2214 2232 2250 2268 2286 2304 2322 2340 2358 2376 2394 2412 2430 2544 2561 2578 2595 2612 2629 5136 5153 5170 5225 5242 5259 5280 5297 5314 5336 5353 5370 5391 5408 5425 5447 5464 5481 5502 5519 5536 5558 5575 5592 5613 5630 5647 5669 5686 5703 5724 5741 5758 5780 5797 5814 5835 5852 5869 5891 5908 5925 5946 5963 5980 6030 6047 6232 SWITCH 320# 8465 8567 TIOE 409# TIOEB 409# TION 409# TIONB 409# TTALTM 241# 8569 TTICHR 234# TTICLR 244# TTICNV 239# TTIDEC 238# TTINO 236# TTIOCT 237# TTIYES 235# TTLOOK 240# TTSIXB 242# SEQ 0248 TTYINP 243# WRAPR 409# WRCSB 409# WRCSTM 409# WREBR 409# WRHSB 409# WRINT 409# WRIO 409# WRIOB 409# WRPI 409# WRPUR 409# WRSPB 409# WRTIM 409# WRUBR 409# ANDI 8502 AOS 497 8458 8461 8587 8588 SEQ 0249 ASCII 598 600 603 604 605 606 608 609 610 611 612 613 615 616 617 ASCIZ 741 760 8552 8553 8554 8555 8556 8557 8558 8559 8560 ASH 8268 8278 8295 8304 ASHC 1608 1626 1644 1662 1680 1699 1718 1736 1754 1772 1790 1808 1826 1844 1862 1880 1898 1916 1934 1952 1970 1988 2006 2024 2042 2060 2078 2096 2114 2132 2150 2168 2186 2204 2222 2240 2258 2276 2294 2312 2330 2348 2366 2384 2402 2420 2438 6670 6694 6718 6742 6766 8319 8330 8347 8356 BLOCK 566 626 629 635 638 644 8726 BYTE 614 CAIE 3521 3541 3561 3581 3601 3649 3671 3693 3715 3737 3759 3804 3825 3846 3867 3888 3909 3957 3979 4001 4023 4045 4067 6359 6361 6383 6385 6407 6409 6431 6433 6455 6457 6514 6516 6538 6540 6562 6564 6586 6588 6610 6612 6671 6673 6695 6697 6719 6721 6743 6745 6767 6769 CAIG 8504 8515 CAIL 8592 CAIN 2693 2715 2737 2764 2771 2778 2825 2844 2863 2882 2901 2920 2939 2958 3009 3029 3049 3069 3089 3109 3189 3208 3227 3246 3265 3284 3303 3322 3362 3380 3398 3416 3434 3452 3470 CAME 800 802 818 820 836 838 854 856 872 874 890 892 908 910 926 928 944 946 962 964 980 982 998 1000 1016 1018 1034 1036 1052 1054 1070 1072 1088 1090 1106 1108 1124 1126 1142 1144 1160 1162 1178 1180 1196 1198 1214 1216 1232 1234 1250 1252 1268 1270 1286 1288 1304 1306 1322 1324 1340 1342 1358 1360 1376 1378 1394 1396 1412 1414 1430 1432 1448 1450 1466 1468 1484 1486 1502 1504 1520 1522 1538 1540 1556 1558 1574 1576 1609 1611 1627 1629 1645 1647 1663 1665 1681 1683 1700 1702 1719 1721 1737 1739 1755 1757 1773 1775 1791 1793 1809 1811 1827 1829 1845 1847 1863 1865 1881 1883 1899 1901 1917 1919 1935 1937 1953 1955 1971 1973 1989 1991 2007 2009 2025 2027 2043 2045 2061 2063 2079 2081 2097 2099 2115 2117 2133 2135 2151 2153 2169 2171 2187 2189 2205 2207 2223 2225 2241 2243 2259 2261 2277 2279 2295 2297 2313 2315 2331 2333 2349 2351 2367 2369 2385 2387 2403 2405 2421 2423 2439 2441 2456 2458 2472 2474 2488 2490 2504 2506 2520 2522 2536 2538 2553 2555 2570 2572 2587 2589 2604 2606 2621 2623 2638 2640 4083 4085 4099 4101 4115 4117 4131 4133 4147 4149 4163 4165 4179 4181 4195 4197 4211 4213 4227 4229 4243 4245 4259 4261 4274 4276 4290 4292 4306 4308 4322 4324 4362 4364 4378 4380 4394 4396 4414 4416 4430 4432 4446 4448 4466 4468 4482 4484 4498 4500 4518 4520 4534 4536 4550 4552 4570 4572 4586 4588 4602 4604 4622 4624 4638 4640 4654 4656 4674 4676 4690 4692 4706 4708 4726 4728 4742 4744 4758 4760 4778 4780 4794 4796 4810 4812 4830 4832 4846 4848 4862 4864 4882 4884 4898 4900 4914 4916 4934 4936 4950 4952 4966 4968 4986 4988 5002 5004 5018 5020 5038 5040 5054 5056 5070 5072 5090 5092 5106 5108 5122 5124 5145 5147 5162 5164 5180 5182 5234 5236 5251 5253 5269 5271 5289 5291 5306 5308 5324 5326 5345 5347 5362 5364 5380 5382 5400 5402 5417 5419 5435 5437 5456 5458 5473 5475 5491 5493 5511 5513 5528 5530 5546 5548 5567 5569 5584 5586 5602 5604 5622 5624 5639 5641 5657 5659 5678 5680 5695 5697 5713 5715 5733 5735 5750 5752 5768 5770 5789 5791 5806 5808 5824 5826 5844 5846 5861 5863 5879 5881 5900 5902 5917 5919 5935 5937 5955 5957 5972 5974 5990 5992 6006 6008 6022 6024 6039 6041 6056 6058 6072 6074 6089 6091 6106 6108 6123 6125 6140 6142 6157 6159 6174 6176 6191 6193 6208 6210 6224 6226 6242 6244 8380 8394 8407 8420 8435 8446 CAMN 8460 SEQ 0250 DEFINE 8 91 97 106 121 137 305 308 314 388 399 END 8734 HRL 8463 HRLI 6855 6858 6885 6888 6915 6918 6945 6948 7012 7015 7042 7045 7072 7075 7102 7105 7168 7171 7198 7201 7228 7231 7295 7298 7325 7328 7355 7358 7421 7424 7451 7454 7481 7484 7548 7551 7578 7581 7608 7611 7674 7677 7704 7707 7734 7737 7764 7767 7831 7834 7861 7864 7891 7894 7921 7924 7987 7990 8017 8020 8047 8050 8077 8080 8144 8147 8174 8177 8204 8207 8234 8237 HRRZ 8459 8489 8528 IFDEF 409 460 461 462 463 8493 8563 8725 8732 IFE 2822 2841 2860 2879 2898 2917 2936 2955 3005 3025 3045 3065 3085 3105 3186 3205 3224 3243 3262 3281 3300 3319 3645 3667 3689 3711 3733 3755 3801 3822 3843 3864 3885 3906 3953 3975 3997 4019 4041 4063 IFNDEF 360 361 371 460 461 462 463 542 8611 JFCL 500 501 502 503 504 505 506 507 508 509 510 511 8266 8270 8276 8280 8293 8297 8302 8306 8317 8321 8328 8332 8345 8349 8354 8358 JRST 70 71 72 73 74 75 76 210 211 212 213 422 423 425 427 429 431 433 436 438 439 492 763 8271 8281 8322 8333 8450 8467 8474 8477 8482 8510 8516 8530 8532 8534 8537 8540 8542 8544 8570 8573 8586 8590 8593 8596 8600 8601 8605 JSP 219 8269 8279 8296 8305 8320 8331 8348 8357 JUMPL 804 822 840 858 876 894 912 930 948 966 984 1002 1020 1038 1056 1074 1092 1110 1128 1146 1164 1182 1200 1218 1236 1254 1272 1290 1308 1326 1344 1362 1380 1398 1416 1434 1452 1470 1488 1506 1524 1542 1560 1578 1613 1631 1649 1667 1685 1704 1723 1741 1759 1777 1795 1813 1831 1849 1867 1885 1903 1921 1939 1957 1975 1993 2011 2029 2047 2065 2083 2101 2119 2137 2155 2173 2191 2209 2227 2245 2263 2281 2299 2317 2335 2353 2371 2389 2407 2425 2443 2460 2476 2492 2508 2524 2540 2557 2574 2591 2608 2625 2642 2697 2719 2741 2766 2773 2780 2827 2846 2865 2884 2903 2922 2941 2960 3011 3031 3051 3071 3091 3111 3136 3144 3191 3210 3229 3248 3267 3286 3305 3324 3364 3382 3400 3418 3436 3454 3472 3523 3543 3563 3583 3603 3651 3673 3695 3717 3739 3761 3806 3827 3848 3869 3890 3911 3959 3981 4003 4025 4047 4069 4087 4103 4119 4135 4151 4167 4183 4199 4215 4231 4247 4263 4278 4294 4310 4326 4366 4382 4398 4418 4434 4450 4470 4486 4502 4522 4538 4554 4574 4590 4606 4626 4642 4658 4678 4694 4710 4730 4746 4762 4782 4798 4814 4834 4850 4866 4886 4902 4918 4938 4954 4970 4990 5006 5022 5042 5058 5074 5094 5110 5126 5149 5166 5184 5238 5255 5273 5293 5310 5328 5349 5366 5384 5404 5421 5439 5460 5477 5495 5515 5532 5550 5571 5588 5606 5626 5643 5661 5682 5699 5717 5737 5754 5772 5793 5810 5828 5848 5865 5883 5904 5921 5939 5959 5976 5994 6010 6026 6043 6060 6076 6093 6110 6127 6144 6161 6178 6195 6212 6228 6246 6363 6387 6411 6435 6459 6518 6542 6566 6590 6614 6675 6699 6723 6747 6771 6867 6897 6927 6957 7024 7054 7084 7114 7180 7210 7240 7307 7337 7367 7433 7463 7493 7560 7590 7620 7686 7716 7746 7776 7843 7873 7903 7933 7999 8029 8059 8089 8156 8186 8216 8246 8273 8283 8299 8308 8324 8335 8351 8360 8382 8396 8409 8422 8437 8448 LALL 9 LIST 8 371 409 542 8493 8563 8611 8722 LIT 8612 LOC 25 412 736 LSH 2692 2714 2736 8469 8501 LSHC 799 817 835 853 871 889 907 925 943 961 979 997 1015 1033 SEQ 0251 1051 1069 1087 1105 1123 1141 1159 1177 1195 1213 1231 1249 1267 1285 1303 1321 1339 1357 1375 1393 1411 1429 1447 1465 1483 1501 1519 1537 1555 1573 6513 6537 6561 6585 6609 MOVE 760 797 798 815 816 833 834 851 852 869 870 887 888 905 906 923 924 941 942 959 960 977 978 995 996 1013 1014 1031 1032 1049 1050 1067 1068 1085 1086 1103 1104 1121 1122 1139 1140 1157 1158 1175 1176 1193 1194 1211 1212 1229 1230 1247 1248 1265 1266 1283 1284 1301 1302 1319 1320 1337 1338 1355 1356 1373 1374 1391 1392 1409 1410 1427 1428 1445 1446 1463 1464 1481 1482 1499 1500 1517 1518 1535 1536 1553 1554 1571 1572 1606 1607 1624 1625 1642 1643 1660 1661 1678 1679 1697 1698 1716 1717 1734 1735 1752 1753 1770 1771 1788 1789 1806 1807 1824 1825 1842 1843 1860 1861 1878 1879 1896 1897 1914 1915 1932 1933 1950 1951 1968 1969 1986 1987 2004 2005 2022 2023 2040 2041 2058 2059 2076 2077 2094 2095 2112 2113 2130 2131 2148 2149 2166 2167 2184 2185 2202 2203 2220 2221 2238 2239 2256 2257 2274 2275 2292 2293 2310 2311 2328 2329 2346 2347 2364 2365 2382 2383 2400 2401 2418 2419 2436 2437 2453 2454 2469 2470 2485 2486 2501 2502 2517 2518 2533 2534 2550 2551 2567 2568 2584 2585 2601 2602 2618 2619 2635 2636 4080 4081 4096 4097 4112 4113 4128 4129 4144 4145 4160 4161 4176 4177 4192 4193 4208 4209 4224 4225 4240 4241 4256 4257 4271 4272 4287 4288 4303 4304 4319 4320 4359 4360 4375 4376 4391 4392 4411 4412 4427 4428 4443 4444 4463 4464 4479 4480 4495 4496 4515 4516 4531 4532 4547 4548 4567 4568 4583 4584 4599 4600 4619 4620 4635 4636 4651 4652 4671 4672 4687 4688 4703 4704 4723 4724 4739 4740 4755 4756 4775 4776 4791 4792 4807 4808 4827 4828 4843 4844 4859 4860 4879 4880 4895 4896 4911 4912 4931 4932 4947 4948 4963 4964 4983 4984 4999 5000 5015 5016 5035 5036 5051 5052 5067 5068 5087 5088 5103 5104 5119 5120 5142 5143 5159 5160 5177 5178 5231 5232 5248 5249 5266 5267 5286 5287 5303 5304 5321 5322 5342 5343 5359 5360 5377 5378 5397 5398 5414 5415 5432 5433 5453 5454 5470 5471 5488 5489 5508 5509 5525 5526 5543 5544 5564 5565 5581 5582 5599 5600 5619 5620 5636 5637 5654 5655 5675 5676 5692 5693 5710 5711 5730 5731 5747 5748 5765 5766 5786 5787 5803 5804 5821 5822 5841 5842 5858 5859 5876 5877 5897 5898 5914 5915 5932 5933 5952 5953 5969 5970 5987 5988 6003 6004 6019 6020 6036 6037 6053 6054 6069 6070 6086 6087 6103 6104 6120 6121 6137 6138 6154 6155 6171 6172 6188 6189 6205 6206 6221 6222 6239 6240 6856 6886 6916 6946 7013 7043 7073 7103 7169 7199 7229 7296 7326 7356 7422 7452 7482 7549 7579 7609 7675 7705 7735 7765 7832 7862 7892 7922 7988 8018 8048 8078 8145 8175 8205 8235 8378 8392 8405 8418 8433 8444 8462 8468 8471 8472 8485 8500 8503 8505 8508 8514 8518 8574 8582 8583 8591 8595 8598 MOVEI 768 770 2647 2649 2691 2713 2735 2756 2758 2761 2769 2776 2783 2785 2823 2842 2861 2880 2899 2918 2937 2956 2964 2966 3006 3026 3046 3066 3086 3106 3125 3127 3131 3140 3147 3149 3187 3206 3225 3244 3263 3282 3301 3320 3360 3378 3396 3414 3432 3450 3468 3476 3478 3519 3539 3559 3579 3599 3646 3668 3690 3712 3734 3756 3802 3823 3844 3865 3886 3907 3954 3976 3998 4020 4042 4064 6272 6273 6277 6278 6282 6283 6287 6288 6292 6293 6297 6298 6302 6303 6308 6310 6463 6465 6620 6622 6805 6807 6854 6857 6884 6887 6914 6917 6944 6947 6962 6964 7011 7014 7041 7044 7071 7074 7101 7104 7118 7120 7167 7170 7197 7200 7227 7230 7245 7247 7294 7297 7324 7327 7354 7357 7371 7373 7420 7423 7450 7453 7480 7483 7498 7500 7547 7550 7577 7580 7607 7610 7624 7626 7673 7676 7703 7706 7733 7736 7763 7766 7781 7783 7830 7833 7860 7863 7890 7893 7920 7923 7937 7939 7986 7989 8016 8019 8046 8049 8076 8079 8094 8096 8143 8146 SEQ 0252 8173 8176 8203 8206 8233 8236 8260 8262 8287 8289 8311 8313 8339 8341 8372 8374 8377 8391 8404 8417 8525 8571 MOVEM 761 769 771 2648 2650 2757 2759 2784 2786 2965 2967 3126 3128 3148 3150 3477 3479 6309 6311 6464 6466 6621 6623 6806 6808 6859 6889 6919 6949 6963 6965 7016 7046 7076 7106 7119 7121 7172 7202 7232 7246 7248 7299 7329 7359 7372 7374 7425 7455 7485 7499 7501 7552 7582 7612 7625 7627 7678 7708 7738 7768 7782 7784 7835 7865 7895 7925 7938 7940 7991 8021 8051 8081 8095 8097 8148 8178 8208 8238 8261 8263 8288 8290 8312 8314 8340 8342 8373 8375 8455 8456 8457 8470 8490 8572 MOVSI 3132 3139 8267 8294 8303 8318 8346 8355 MOVSS 3648 3670 3692 3714 3736 3758 3956 3978 4000 4022 4044 4066 NOSYM 28 OPDEF 33 34 35 36 37 38 39 40 41 42 43 206 207 208 209 210 211 212 213 219 225 226 234 235 236 237 238 239 240 241 242 243 244 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 303 320 325 326 330 331 332 338 339 345 346 347 348 349 350 351 357 358 365 366 367 368 378 379 380 381 382 409 PAGE 841 985 1129 1255 1381 1507 1650 1796 1940 2084 2228 2372 2509 2575 3326 3605 3913 4136 4200 4399 4451 4503 4555 4607 4659 4711 4763 4815 4867 4919 4971 5023 5075 5127 5185 5274 5329 5385 5440 5496 5551 5607 5662 5718 5773 5829 5884 5940 5995 6128 6196 6305 6773 6959 7242 7495 7778 8091 8284 POP 209 POPJ 207 PUSH 208 PUSHJ 206 REPEAT 2655 2791 2973 3155 3330 3485 3609 3766 3917 4332 5130 5186 6264 6317 6472 6629 6779 6815 6972 7128 7255 7381 7508 7634 7791 7947 8104 ROT 2455 2471 2487 2503 2519 2535 2762 2763 2770 2777 2824 2843 2862 2881 2900 2919 2938 2957 3007 3008 3027 3028 3047 3048 3067 3068 3087 3088 3107 3108 3133 3141 3188 3207 3226 3245 3264 3283 3302 3321 3361 3379 3397 3415 3433 3451 3469 3520 3540 3560 3580 3600 3647 3669 3691 3713 3735 3757 3803 3824 3845 3866 3887 3908 3955 3977 3999 4021 4043 4065 4082 4098 4114 4130 4146 4162 4178 4194 4210 4226 4242 4258 4273 4289 4305 4321 4361 4377 4393 4413 4429 4445 4465 4481 4497 4517 4533 4549 4569 4585 4601 4621 4637 4653 4673 4689 4705 4725 4741 4757 4777 4793 4809 4829 4845 4861 4881 4897 4913 4933 4949 4965 4985 5001 5017 5037 5053 5069 5089 5105 5121 6005 6021 6071 6088 6105 6122 6139 6156 6173 6190 6207 6223 8379 8393 8406 8419 8434 8445 ROTC 2552 2569 2586 2603 2620 2637 5144 5161 5179 5233 5250 5268 5288 5305 5323 5344 5361 5379 5399 5416 5434 5455 5472 5490 5510 5527 5545 5566 5583 5601 5621 5638 5656 5677 5694 5712 5732 5749 5767 5788 5805 5823 5843 5860 5878 5899 5916 5934 5954 5971 5989 6038 6055 6241 6358 6382 6406 6430 6454 6860 6890 6920 6950 7017 7047 7077 7107 7173 7203 7233 7300 7330 7360 7426 7456 7486 7553 7583 7613 7679 7709 7739 7769 7836 7866 7896 7926 7992 8022 8052 8082 8149 8179 8209 8239 SETOM 8432 8480 8578 8584 SETZ 8277 8329 SETZM 8464 8475 SEQ 0253 SIXBIT 83 84 627 628 636 637 8484 8488 8499 8524 8604 SKIPE 6862 6865 6892 6895 6922 6925 6952 6955 7019 7022 7049 7052 7079 7082 7109 7112 7175 7178 7205 7208 7235 7238 7302 7305 7332 7335 7362 7365 7428 7431 7458 7461 7488 7491 7555 7558 7585 7588 7615 7618 7681 7684 7711 7714 7741 7744 7771 7774 7838 7841 7868 7871 7898 7901 7928 7931 7994 7997 8024 8027 8054 8057 8084 8087 8151 8154 8181 8184 8211 8214 8241 8244 SKIPGE 8473 SKIPL 8476 8589 SKIPN 2695 2717 2739 8478 8481 8585 SUBTTL 29 135 170 372 409 410 764 1580 2444 2643 2744 3113 4071 4327 6247 6801 8248 8361 8451 8606 TDNN 3134 3142 TITLE 13 TLNE 8466 8509 8575 8579 TLNN 8577 8599 TRNE 8529 8531 8533 VAR 8730 XCT 8445 8566 XLIST 7 370 408 541 8492 8562 8610 XOR 6861 6864 6891 6894 6921 6924 6951 6954 7018 7021 7048 7051 7078 7081 7108 7111 7174 7177 7204 7207 7234 7237 7301 7304 7331 7334 7361 7364 7427 7430 7457 7460 7487 7490 7554 7557 7584 7587 7614 7617 7680 7683 7710 7713 7740 7743 7770 7773 7837 7840 7867 7870 7897 7900 7927 7930 7993 7996 8023 8026 8053 8056 8083 8086 8150 8153 8180 8183 8210 8213 8240 8243 XWD 797 798 800 802 815 816 818 820 833 834 836 838 851 852 854 856 869 870 872 874 887 888 890 892 905 906 908 910 923 924 926 928 941 942 944 946 959 960 962 964 977 978 980 982 995 996 998 1000 1013 1014 1016 1018 1031 1032 1034 1036 1049 1050 1052 1054 1067 1068 1070 1072 1085 1086 1088 1090 1103 1104 1106 1108 1121 1122 1124 1126 1139 1140 1142 1144 1157 1158 1160 1162 1175 1176 1178 1180 1193 1194 1196 1198 1211 1212 1214 1216 1229 1230 1232 1234 1247 1248 1250 1252 1265 1266 1268 1270 1283 1284 1286 1288 1301 1302 1304 1306 1319 1320 1322 1324 1337 1338 1340 1342 1355 1356 1358 1360 1373 1374 1376 1378 1391 1392 1394 1396 1409 1410 1412 1414 1427 1428 1430 1432 1445 1446 1448 1450 1463 1464 1466 1468 1481 1482 1484 1486 1499 1500 1502 1504 1517 1518 1520 1522 1535 1536 1538 1540 1553 1554 1556 1558 1571 1572 1574 1576 1606 1607 1609 1611 1624 1625 1627 1629 1642 1643 1645 1647 1660 1661 1663 1665 1678 1679 1681 1683 1697 1698 1700 1702 1716 1717 1719 1721 1734 1735 1737 1739 1752 1753 1755 1757 1770 1771 1773 1775 1788 1789 1791 1793 1806 1807 1809 1811 1824 1825 1827 1829 1842 1843 1845 1847 1860 1861 1863 1865 1878 1879 1881 1883 1896 1897 1899 1901 1914 1915 1917 1919 1932 1933 1935 1937 1950 1951 1953 1955 1968 1969 1971 1973 1986 1987 1989 1991 2004 2005 2007 2009 2022 2023 2025 2027 2040 2041 2043 2045 2058 2059 2061 2063 2076 2077 2079 2081 2094 2095 2097 2099 2112 2113 2115 2117 2130 2131 2133 2135 2148 2149 2151 2153 2166 2167 2169 2171 2184 2185 2187 2189 2202 2203 2205 2207 2220 2221 2223 2225 2238 2239 2241 2243 2256 2257 2259 2261 2274 2275 2277 2279 2292 2293 2295 2297 2310 2311 2313 2315 2328 2329 2331 2333 2346 2347 2349 2351 2364 2365 2367 2369 2382 2383 2385 2387 2400 2401 2403 2405 2418 2419 2421 2423 2436 2437 2439 2441 2453 2454 2456 2458 2469 2470 2472 2474 2485 2486 2488 2490 2501 2502 SEQ 0254 2504 2506 2517 2518 2520 2522 2533 2534 2536 2538 2550 2551 2553 2555 2567 2568 2570 2572 2584 2585 2587 2589 2601 2602 2604 2606 2618 2619 2621 2623 2635 2636 2638 2640 4080 4081 4083 4085 4096 4097 4099 4101 4112 4113 4115 4117 4128 4129 4131 4133 4144 4145 4147 4149 4160 4161 4163 4165 4176 4177 4179 4181 4192 4193 4195 4197 4208 4209 4211 4213 4224 4225 4227 4229 4240 4241 4243 4245 4256 4257 4259 4261 4271 4272 4274 4276 4287 4288 4290 4292 4303 4304 4306 4308 4319 4320 4322 4324 4359 4360 4362 4364 4375 4376 4378 4380 4391 4392 4394 4396 4411 4412 4414 4416 4427 4428 4430 4432 4443 4444 4446 4448 4463 4464 4466 4468 4479 4480 4482 4484 4495 4496 4498 4500 4515 4516 4518 4520 4531 4532 4534 4536 4547 4548 4550 4552 4567 4568 4570 4572 4583 4584 4586 4588 4599 4600 4602 4604 4619 4620 4622 4624 4635 4636 4638 4640 4651 4652 4654 4656 4671 4672 4674 4676 4687 4688 4690 4692 4703 4704 4706 4708 4723 4724 4726 4728 4739 4740 4742 4744 4755 4756 4758 4760 4775 4776 4778 4780 4791 4792 4794 4796 4807 4808 4810 4812 4827 4828 4830 4832 4843 4844 4846 4848 4859 4860 4862 4864 4879 4880 4882 4884 4895 4896 4898 4900 4911 4912 4914 4916 4931 4932 4934 4936 4947 4948 4950 4952 4963 4964 4966 4968 4983 4984 4986 4988 4999 5000 5002 5004 5015 5016 5018 5020 5035 5036 5038 5040 5051 5052 5054 5056 5067 5068 5070 5072 5087 5088 5090 5092 5103 5104 5106 5108 5119 5120 5122 5124 5142 5143 5145 5147 5159 5160 5162 5164 5177 5178 5180 5182 5231 5232 5234 5236 5248 5249 5251 5253 5266 5267 5269 5271 5286 5287 5289 5291 5303 5304 5306 5308 5321 5322 5324 5326 5342 5343 5345 5347 5359 5360 5362 5364 5377 5378 5380 5382 5397 5398 5400 5402 5414 5415 5417 5419 5432 5433 5435 5437 5453 5454 5456 5458 5470 5471 5473 5475 5488 5489 5491 5493 5508 5509 5511 5513 5525 5526 5528 5530 5543 5544 5546 5548 5564 5565 5567 5569 5581 5582 5584 5586 5599 5600 5602 5604 5619 5620 5622 5624 5636 5637 5639 5641 5654 5655 5657 5659 5675 5676 5678 5680 5692 5693 5695 5697 5710 5711 5713 5715 5730 5731 5733 5735 5747 5748 5750 5752 5765 5766 5768 5770 5786 5787 5789 5791 5803 5804 5806 5808 5821 5822 5824 5826 5841 5842 5844 5846 5858 5859 5861 5863 5876 5877 5879 5881 5897 5898 5900 5902 5914 5915 5917 5919 5932 5933 5935 5937 5952 5953 5955 5957 5969 5970 5972 5974 5987 5988 5990 5992 6003 6004 6006 6008 6019 6020 6022 6024 6036 6037 6039 6041 6053 6054 6056 6058 6069 6070 6072 6074 6086 6087 6089 6091 6103 6104 6106 6108 6120 6121 6123 6125 6137 6138 6140 6142 6154 6155 6157 6159 6171 6172 6174 6176 6188 6189 6191 6193 6205 6206 6208 6210 6221 6222 6224 6226 6239 6240 6242 6244 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0255 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 *030632 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *030642 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *030652 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 ---------- *030662 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *030672 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0256 *030702 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *030712 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777776 ---------- *030722 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *030732 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777776 ---------- *030742 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0257 *030752 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777776 ---------- *030762 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *030772 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 577777 777777 C(AC+1)= 777777 777776 ---------- *031002 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *031012 LSHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0258 *031022 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 ---------- *031032 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *031042 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 C(AC+1)= 777777 777777 ---------- *031052 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *031062 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 377777 777775 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0259 *031072 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *031102 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 377777 777776 C(AC+1)= 777777 777777 ---------- *031112 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *031122 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *031132 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0260 *031142 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 577777 777777 ---------- *031152 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *031162 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777775 ---------- *031172 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *031202 LSHC 1,777777 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0261 *031212 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 777777 777777 ---------- *031222 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 777777 777777 ---------- *031232 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *031242 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777775 C(AC+1)= 777777 777777 ---------- *031252 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0262 *031262 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777776 C(AC+1)= 777777 777777 ---------- *031272 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *031302 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 377777 777777 ---------- *031312 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *031322 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 577777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0263 *031332 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *031342 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 777777 777775 ---------- *031352 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *031362 LSHC 1,777776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 777777 777776 ---------- *031372 ASHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0264 *031402 ASHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *031412 ASHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 ---------- *031422 ASHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *031432 ASHC 1,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777776 ---------- *031442 ASHC 1,000001 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0265 *031452 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777776 ---------- *031462 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *031472 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777776 ---------- *031502 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *031512 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0266 *031522 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *031532 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 E= 000000 000001 FINAL C(AC)= 577777 777777 C(AC+1)= 777777 777776 ---------- *031542 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- *031552 ASHC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777776 ---------- *031562 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777777 FINAL C(AC)= 600000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0267 *031572 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 C(AC+1)= 377777 777777 ---------- *031602 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777777 FINAL C(AC)= 600000 000000 C(AC+1)= 400000 000000 ---------- *031612 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 C(AC+1)= 377777 777777 ---------- *031622 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *031632 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0268 *031642 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *031652 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 ---------- *031662 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 600000 000000 C(AC+1)= 400000 000000 ---------- *031672 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 177777 777777 C(AC+1)= 377777 777777 ---------- *031702 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0269 *031712 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *031722 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *031732 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *031742 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *031752 ASHC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0270 *031762 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777776 FINAL C(AC)= 700000 000000 C(AC+1)= 400000 000000 ---------- *031772 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777776 FINAL C(AC)= 077777 777777 C(AC+1)= 377777 777777 ---------- *032002 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777776 FINAL C(AC)= 700000 000000 C(AC+1)= 400000 000000 ---------- *032012 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777776 FINAL C(AC)= 077777 777777 C(AC+1)= 377777 777777 ---------- *032022 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0271 *032032 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 ---------- *032042 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *032052 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 ---------- *032062 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 700000 000000 C(AC+1)= 400000 000000 ---------- *032072 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 077777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0272 *032102 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *032112 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *032122 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *032132 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *032142 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0273 *032152 ASHC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *032162 ROT 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 252525 252525 E= 000000 000001 FINAL C(AC)= 525252 525252 ---------- *032172 ROT 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 525252 525252 E= 000000 000001 FINAL C(AC)= 252525 252525 ---------- *032202 ROT 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 252525 252525 E= 000000 777777 FINAL C(AC)= 525252 525252 ---------- *032212 ROT 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 525252 525252 E= 000000 777777 FINAL C(AC)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0274 *032222 ROT 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 146314 631463 E= 000000 777776 FINAL C(AC)= 631463 146314 ---------- *032232 ROT 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 631463 146314 E= 000000 777776 FINAL C(AC)= 146314 631463 ---------- *032242 ROTC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 000001 FINAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 ---------- *032252 ROTC 1,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 000001 FINAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 ---------- *032262 ROTC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 777777 FINAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0275 *032272 ROTC 1,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 777777 FINAL C(AC)= 252525 252525 C(AC+1)= 252525 252525 ---------- *032302 ROTC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 146314 631463 C(AC+1)= 146314 631463 E= 000000 777776 FINAL C(AC)= 631463 146314 C(AC+1)= 631463 146314 ---------- *032312 ROTC 1,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 631463 146314 C(AC+1)= 631463 146314 E= 000000 777776 FINAL C(AC)= 146314 631463 C(AC+1)= 146314 631463 ---------- *032325 LSH 5,000020 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000020 FINAL C(AC)= 000000 200000 ---------- *032334 LSH 5,000021 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000021 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0276 *032343 LSH 5,000022 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000022 FINAL C(AC)= 000001 000000 ---------- *032356 ROT 7,777773 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777773 FINAL C(AC)= 020000 000000 ---------- *032357 ROT 7,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 020000 000000 E= 000000 000007 FINAL C(AC)= 000000 000004 ---------- *032364 ROT 7,000017 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000017 FINAL C(AC)= 000000 100000 ---------- *032371 ROT 7,000037 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000037 FINAL C(AC)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0277 *032402 ROT 6,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *032407 ROT 6,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000004 ---------- *032414 ROT 6,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000004 FINAL C(AC)= 000000 000020 ---------- *032421 ROT 6,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000010 FINAL C(AC)= 000000 000400 ---------- *032426 ROT 6,000020 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000020 FINAL C(AC)= 000000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0278 *032433 ROT 6,000040 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000040 FINAL C(AC)= 040000 000000 ---------- *032440 ROT 6,000100 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000100 FINAL C(AC)= 002000 000000 ---------- *032445 ROT 6,000200 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000200 FINAL C(AC)= 000004 000000 ---------- *032456 ROT 5,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777776 FINAL C(AC)= 200000 000000 ---------- *032457 ROT 5,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0279 *032464 ROT 5,777774 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777774 FINAL C(AC)= 040000 000000 ---------- *032465 ROT 5,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 040000 000000 E= 000000 000002 FINAL C(AC)= 200000 000000 ---------- *032472 ROT 5,777770 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777770 FINAL C(AC)= 002000 000000 ---------- *032473 ROT 5,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 002000 000000 E= 000000 000004 FINAL C(AC)= 040000 000000 ---------- *032500 ROT 5,777760 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777760 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0280 *032501 ROT 5,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000004 000000 E= 000000 000010 FINAL C(AC)= 002000 000000 ---------- *032506 ROT 5,777740 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777740 FINAL C(AC)= 000000 000020 ---------- *032507 ROT 5,000020 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000020 E= 000000 000020 FINAL C(AC)= 000004 000000 ---------- *032514 ROT 5,777700 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 777700 FINAL C(AC)= 000000 000400 ---------- *032515 ROT 5,000040 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000400 E= 000000 000040 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0281 *032527 ROT 4,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 400000 E= 000000 000003 FINAL C(AC)= 000004 000000 ---------- *032535 ROT 4,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000001 000000 E= 000000 777775 FINAL C(AC)= 000000 100000 ---------- *032546 ROT 3,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000001 FINAL C(AC)= 000000 000002 ---------- *032553 ROT 3,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000004 ---------- *032560 ROT 3,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000004 FINAL C(AC)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0282 *032565 ROT 3,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000010 FINAL C(AC)= 000000 000400 ---------- *032572 ROT 3,000020 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000020 FINAL C(AC)= 000000 200000 ---------- *032577 ROT 3,000040 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000040 FINAL C(AC)= 040000 000000 ---------- *032604 ROT 3,000100 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000100 FINAL C(AC)= 002000 000000 ---------- *032611 ROT 3,000200 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000200 FINAL C(AC)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0283 *032616 ROT 3,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000004 ---------- *032623 ROT 3,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000004 FINAL C(AC)= 000000 000020 ---------- *032630 ROT 3,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000010 FINAL C(AC)= 000000 000400 ---------- *032635 ROT 3,000020 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000020 FINAL C(AC)= 000000 200000 ---------- *032642 ROT 3,000040 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000040 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0284 *032647 ROT 3,000100 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000100 FINAL C(AC)= 002000 000000 ---------- *032654 ROT 3,000200 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000200 FINAL C(AC)= 000004 000000 ---------- *032665 ROT 2,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000003 FINAL C(AC)= 000000 000010 ---------- *032672 ROT 2,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000006 FINAL C(AC)= 000000 000100 ---------- *032677 ROT 2,000011 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000011 FINAL C(AC)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0285 *032704 ROT 2,000014 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000014 FINAL C(AC)= 000000 010000 ---------- *032711 ROT 2,000017 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000017 FINAL C(AC)= 000000 100000 ---------- *032716 ROT 2,000022 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000022 FINAL C(AC)= 000001 000000 ---------- *032724 ROT 2,000025 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000025 FINAL C(AC)= 000010 000000 ---------- *032732 ROT 2,000030 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000030 FINAL C(AC)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0286 *032740 ROT 2,000033 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000033 FINAL C(AC)= 001000 000000 ---------- *032746 ROT 2,000036 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000036 FINAL C(AC)= 010000 000000 ---------- *032754 ROT 2,000041 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000041 FINAL C(AC)= 100000 000000 ---------- *032762 ROT 2,000044 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000044 FINAL C(AC)= 000000 000001 ---------- *032767 ROT 2,000047 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000047 FINAL C(AC)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0287 *032774 ROT 2,000052 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000052 FINAL C(AC)= 000000 000100 ---------- *033001 ROT 2,000055 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000055 FINAL C(AC)= 000000 001000 ---------- *033006 ROT 2,000060 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000060 FINAL C(AC)= 000000 010000 ---------- *033013 ROT 2,000063 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000063 FINAL C(AC)= 000000 100000 ---------- *033020 ROT 2,000066 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000066 FINAL C(AC)= 000001 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0288 *033026 ROT 2,000071 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000071 FINAL C(AC)= 000010 000000 ---------- *033034 ROT 2,000074 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000074 FINAL C(AC)= 000100 000000 ---------- *033042 ROT 2,000077 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000077 FINAL C(AC)= 001000 000000 ---------- *033050 ROT 2,000102 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000102 FINAL C(AC)= 010000 000000 ---------- *033056 ROT 2,000105 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 E= 000000 000105 FINAL C(AC)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0289 *033065 ROT 2,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000000 FINAL C(AC)= 230703 603700 ---------- *033075 ROT 2,000077 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000077 FINAL C(AC)= 700230 703603 ---------- *033105 ROT 2,000076 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000076 FINAL C(AC)= 740114 341701 ---------- *033115 ROT 2,000074 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000074 FINAL C(AC)= 370023 070360 ---------- *033125 ROT 2,000070 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000070 FINAL C(AC)= 017401 143417 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0290 *033135 ROT 2,000060 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000060 FINAL C(AC)= 036037 002307 ---------- *033145 ROT 2,000040 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000040 FINAL C(AC)= 011434 170174 ---------- *033155 ROT 2,000100 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000100 FINAL C(AC)= 600461 607407 ---------- *033165 ROT 2,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000001 FINAL C(AC)= 461607 407600 ---------- *033175 ROT 2,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000002 FINAL C(AC)= 143417 017401 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0291 *033205 ROT 2,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000003 FINAL C(AC)= 307036 037002 ---------- *033215 ROT 2,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000005 FINAL C(AC)= 434170 174011 ---------- *033225 ROT 2,000011 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000011 FINAL C(AC)= 703603 700230 ---------- *033235 ROT 2,000021 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000021 FINAL C(AC)= 701740 114341 ---------- *033245 ROT 2,000041 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000041 FINAL C(AC)= 023070 360370 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0292 *033255 ROT 2,000101 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000101 FINAL C(AC)= 401143 417017 ---------- *033265 ROT 2,777403 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777403 FINAL C(AC)= 114341 701740 ---------- *033275 ROT 2,777404 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777404 FINAL C(AC)= 230703 603700 ---------- *033305 ROT 2,777405 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777405 FINAL C(AC)= 461607 407600 ---------- *033315 ROT 2,777447 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777447 FINAL C(AC)= 114341 701740 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0293 *033325 ROT 2,777450 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777450 FINAL C(AC)= 230703 603700 ---------- *033335 ROT 2,777451 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777451 FINAL C(AC)= 461607 407600 ---------- *033345 ROT 2,777513 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777513 FINAL C(AC)= 114341 701740 ---------- *033355 ROT 2,777514 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777514 FINAL C(AC)= 230703 603700 ---------- *033365 ROT 2,777515 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777515 FINAL C(AC)= 461607 407600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0294 *033375 ROT 2,777557 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777557 FINAL C(AC)= 114341 701740 ---------- *033405 ROT 2,777560 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777560 FINAL C(AC)= 230703 603700 ---------- *033415 ROT 2,777561 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777561 FINAL C(AC)= 461607 407600 ---------- *033425 ROT 2,777623 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777623 FINAL C(AC)= 114341 701740 ---------- *033435 ROT 2,777624 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777624 FINAL C(AC)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0295 *033445 ROT 2,777625 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777625 FINAL C(AC)= 461607 407600 ---------- *033455 ROT 2,777667 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777667 FINAL C(AC)= 114341 701740 ---------- *033465 ROT 2,777670 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777670 FINAL C(AC)= 230703 603700 ---------- *033475 ROT 2,777671 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777671 FINAL C(AC)= 461607 407600 ---------- *033505 ROT 2,777733 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777733 FINAL C(AC)= 114341 701740 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0296 *033515 ROT 2,777734 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777734 FINAL C(AC)= 230703 603700 ---------- *033525 ROT 2,777735 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777735 FINAL C(AC)= 461607 407600 ---------- *033535 ROT 2,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777777 FINAL C(AC)= 114341 701740 ---------- *033545 ROT 2,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000000 FINAL C(AC)= 230703 603700 ---------- *033555 ROT 2,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000001 FINAL C(AC)= 461607 407600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0297 *033565 ROT 2,000043 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000043 FINAL C(AC)= 114341 701740 ---------- *033575 ROT 2,000044 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000044 FINAL C(AC)= 230703 603700 ---------- *033605 ROT 2,000045 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000045 FINAL C(AC)= 461607 407600 ---------- *033615 ROT 2,000107 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000107 FINAL C(AC)= 114341 701740 ---------- *033625 ROT 2,000110 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000110 FINAL C(AC)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0298 *033635 ROT 2,000111 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000111 FINAL C(AC)= 461607 407600 ---------- *033645 ROT 2,000153 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000153 FINAL C(AC)= 114341 701740 ---------- *033655 ROT 2,000154 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000154 FINAL C(AC)= 230703 603700 ---------- *033665 ROT 2,000155 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000155 FINAL C(AC)= 461607 407600 ---------- *033675 ROT 2,000217 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000217 FINAL C(AC)= 114341 701740 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0299 *033705 ROT 2,000220 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000220 FINAL C(AC)= 230703 603700 ---------- *033715 ROT 2,000221 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000221 FINAL C(AC)= 461607 407600 ---------- *033725 ROT 2,000263 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000263 FINAL C(AC)= 114341 701740 ---------- *033735 ROT 2,000264 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000264 FINAL C(AC)= 230703 603700 ---------- *033745 ROT 2,000265 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000265 FINAL C(AC)= 461607 407600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0300 *033755 ROT 2,000327 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000327 FINAL C(AC)= 114341 701740 ---------- *033765 ROT 2,000330 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000330 FINAL C(AC)= 230703 603700 ---------- *033775 ROT 2,000331 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000331 FINAL C(AC)= 461607 407600 ---------- *034005 ROT 2,000373 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000373 FINAL C(AC)= 114341 701740 ---------- *034015 ROT 2,000374 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000374 FINAL C(AC)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0301 *034025 ROT 2,000375 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000375 FINAL C(AC)= 461607 407600 ---------- *034035 ROTC 2,777403 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777403 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034045 ROTC 2,777404 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777404 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034055 ROTC 2,777405 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777405 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034065 ROTC 2,777447 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777447 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0302 *034075 ROTC 2,777450 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777450 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034105 ROTC 2,777451 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777451 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034115 ROTC 2,777513 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777513 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034125 ROTC 2,777514 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777514 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034135 ROTC 2,777515 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777515 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0303 *034145 ROTC 2,777557 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777557 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- *034155 ROTC 2,777560 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777560 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034165 ROTC 2,777561 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777561 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034175 ROTC 2,777623 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777623 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034205 ROTC 2,777624 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777624 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0304 *034215 ROTC 2,777625 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777625 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034225 ROTC 2,777667 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777667 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- *034235 ROTC 2,777670 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777670 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034245 ROTC 2,777671 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777671 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034255 ROTC 2,777733 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777733 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0305 *034265 ROTC 2,777734 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777734 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034275 ROTC 2,777735 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777735 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034305 ROTC 2,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777777 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- *034315 ROTC 2,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000000 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034325 ROTC 2,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000001 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0306 *034335 ROTC 2,000043 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000043 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034345 ROTC 2,000044 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000044 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034355 ROTC 2,000045 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000045 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034365 ROTC 2,000107 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000107 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- *034375 ROTC 2,000110 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000110 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0307 *034405 ROTC 2,000111 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000111 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034415 ROTC 2,000153 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000153 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034425 ROTC 2,000154 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000154 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034435 ROTC 2,000155 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000155 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034445 ROTC 2,000217 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000217 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0308 *034455 ROTC 2,000220 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000220 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034465 ROTC 2,000221 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000221 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034475 ROTC 2,000263 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000263 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034505 ROTC 2,000264 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000264 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- *034515 ROTC 2,000265 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000265 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0309 *034525 ROTC 2,000327 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000327 FINAL C(AC)= 514341 701740 C(AC+1)= 374017 700177 ---------- *034535 ROTC 2,000330 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000330 FINAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 ---------- *034545 ROTC 2,000331 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000331 FINAL C(AC)= 461607 407601 C(AC+1)= 760077 400776 ---------- *034555 ROTC 2,000373 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000373 FINAL C(AC)= 374017 700177 C(AC+1)= 514341 701740 ---------- *034565 ROTC 2,000374 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000374 FINAL C(AC)= 770037 600377 C(AC+1)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0310 *034575 ROTC 2,000375 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000375 FINAL C(AC)= 760077 400776 C(AC+1)= 461607 407601 ---------- *034605 ROT 2,000377 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000377 FINAL C(AC)= 307036 037002 ---------- *034615 ROT 2,777401 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 777401 FINAL C(AC)= 023070 360370 ---------- *034625 ROTC 2,000377 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000377 FINAL C(AC)= 700376 003772 C(AC+1)= 307036 037007 ---------- *034635 ROTC 2,777401 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777401 FINAL C(AC)= 077003 760037 C(AC+1)= 723070 360370 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0311 *034645 ROT 2,000400 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 000400 FINAL C(AC)= 230703 603700 ---------- *034655 ROT 2,001000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 001000 FINAL C(AC)= 230703 603700 ---------- *034665 ROT 2,002000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 002000 FINAL C(AC)= 230703 603700 ---------- *034675 ROT 2,004000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 004000 FINAL C(AC)= 230703 603700 ---------- *034705 ROT 2,010000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 010000 FINAL C(AC)= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0312 *034715 ROT 2,020000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 020000 FINAL C(AC)= 230703 603700 ---------- *034725 ROT 2,040000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 040000 FINAL C(AC)= 230703 603700 ---------- *034735 ROT 2,100000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 100000 FINAL C(AC)= 230703 603700 ---------- *034745 ROT 2,200000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 200000 FINAL C(AC)= 230703 603700 ---------- *034755 ROT 2,400000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 E= 000000 400000 FINAL C(AC)= 011434 170174 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0313 *034765 ROTC 2,400000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 400000 FINAL C(AC)= 037401 770017 C(AC+1)= 751434 170174 ---------- *035015 ROTC 13,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000013 C(AC+1)= 000000 000014 E= 000000 000000 FINAL C(AC)= 000000 000013 C(AC+1)= 000000 000014 ---------- *035023 ROTC 12,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000012 C(AC+1)= 000000 000013 E= 000000 000000 FINAL C(AC)= 000000 000012 C(AC+1)= 000000 000013 ---------- *035031 ROTC 11,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000011 C(AC+1)= 000000 000012 E= 000000 000000 FINAL C(AC)= 000000 000011 C(AC+1)= 000000 000012 ---------- *035037 ROTC 10,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000011 E= 000000 000000 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000011 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0314 *035045 ROTC 7,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000007 C(AC+1)= 000000 000010 E= 000000 000000 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000010 ---------- *035057 LSHC 11,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000011 C(AC+1)= 000000 000012 E= 000000 000000 FINAL C(AC)= 000000 000011 C(AC+1)= 000000 000012 ---------- *035065 LSHC 10,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000011 E= 000000 000000 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000011 ---------- *035073 LSHC 7,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000007 C(AC+1)= 000000 000010 E= 000000 000000 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000010 ---------- *035101 LSHC 6,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000006 C(AC+1)= 000000 000007 E= 000000 000000 FINAL C(AC)= 000000 000006 C(AC+1)= 000000 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0315 *035107 LSHC 5,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000005 C(AC+1)= 000000 000006 E= 000000 000000 FINAL C(AC)= 000000 000005 C(AC+1)= 000000 000006 ---------- *035121 ASHC 4,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000005 E= 000000 000000 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000005 ---------- *035127 ASHC 3,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 000004 E= 000000 000000 FINAL C(AC)= 000000 000003 C(AC+1)= 000000 000004 ---------- *035135 ASHC 2,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000003 E= 000000 000000 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000003 ---------- *035143 ASHC 1,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000002 E= 000000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0316 *035151 ASHC 0,000000 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *035171 ROTC 12,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000001 FINAL C(AC)= 060606 060606 C(AC+1)= 060606 060606 ---------- *035207 ROTC 12,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000002 FINAL C(AC)= 141414 141414 C(AC+1)= 141414 141414 ---------- *035225 ROTC 12,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000003 FINAL C(AC)= 303030 303030 C(AC+1)= 303030 303030 ---------- *035243 ROTC 12,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000004 FINAL C(AC)= 606060 606060 C(AC+1)= 606060 606060 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0317 *035265 ROTC 14,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777777 FINAL C(AC)= 303030 303030 C(AC+1)= 303030 303030 ---------- *035303 ROTC 14,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777776 FINAL C(AC)= 141414 141414 C(AC+1)= 141414 141414 ---------- *035321 ROTC 14,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777775 FINAL C(AC)= 060606 060606 C(AC+1)= 060606 060606 ---------- *035337 ROTC 14,777774 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777774 FINAL C(AC)= 030303 030303 C(AC+1)= 030303 030303 ---------- *035361 ROTC 13,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000001 FINAL C(AC)= 121212 121212 C(AC+1)= 121212 121212 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0318 *035377 ROTC 13,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000002 FINAL C(AC)= 242424 242424 C(AC+1)= 242424 242424 ---------- *035415 ROTC 13,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000003 FINAL C(AC)= 505050 505050 C(AC+1)= 505050 505050 ---------- *035437 ROTC 12,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777777 FINAL C(AC)= 242424 242424 C(AC+1)= 242424 242424 ---------- *035455 ROTC 12,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777776 FINAL C(AC)= 121212 121212 C(AC+1)= 121212 121212 ---------- *035473 ROTC 12,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777775 FINAL C(AC)= 050505 050505 C(AC+1)= 050505 050505 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0319 *035515 ROTC 11,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000001 FINAL C(AC)= 161616 161616 C(AC+1)= 161616 161616 ---------- *035533 ROTC 11,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000002 FINAL C(AC)= 343434 343434 C(AC+1)= 343434 343434 ---------- *035551 ROTC 11,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000003 FINAL C(AC)= 707070 707070 C(AC+1)= 707070 707070 ---------- *035573 ROTC 10,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777777 FINAL C(AC)= 343434 343434 C(AC+1)= 343434 343434 ---------- *035611 ROTC 10,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777776 FINAL C(AC)= 161616 161616 C(AC+1)= 161616 161616 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0320 *035627 ROTC 10,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777775 FINAL C(AC)= 070707 070707 C(AC+1)= 070707 070707 ---------- *035651 ROTC 7,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000001 FINAL C(AC)= 052052 052052 C(AC+1)= 052052 052052 ---------- *035667 ROTC 7,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000002 FINAL C(AC)= 124124 124124 C(AC+1)= 124124 124124 ---------- *035705 ROTC 7,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000003 FINAL C(AC)= 250250 250250 C(AC+1)= 250250 250250 ---------- *035723 ROTC 7,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000004 FINAL C(AC)= 520520 520520 C(AC+1)= 520520 520520 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0321 *035745 ROTC 6,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777777 FINAL C(AC)= 250250 250250 C(AC+1)= 250250 250250 ---------- *035763 ROTC 6,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777776 FINAL C(AC)= 124124 124124 C(AC+1)= 124124 124124 ---------- *036001 ROTC 6,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777775 FINAL C(AC)= 052052 052052 C(AC+1)= 052052 052052 ---------- *036017 ROTC 6,777774 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777774 FINAL C(AC)= 025025 025025 C(AC+1)= 025025 025025 ---------- *036041 ROTC 5,000001 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000001 FINAL C(AC)= 066066 066066 C(AC+1)= 066066 066066 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0322 *036057 ROTC 5,000002 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000002 FINAL C(AC)= 154154 154154 C(AC+1)= 154154 154154 ---------- *036075 ROTC 5,000003 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000003 FINAL C(AC)= 330330 330330 C(AC+1)= 330330 330330 ---------- *036113 ROTC 5,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000004 FINAL C(AC)= 660660 660660 C(AC+1)= 660660 660660 ---------- *036135 ROTC 4,777777 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777777 FINAL C(AC)= 330330 330330 C(AC+1)= 330330 330330 ---------- *036153 ROTC 4,777776 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777776 FINAL C(AC)= 154154 154154 C(AC+1)= 154154 154154 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0323 *036171 ROTC 4,777775 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777775 FINAL C(AC)= 066066 066066 C(AC+1)= 066066 066066 ---------- *036207 ROTC 4,777774 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777774 FINAL C(AC)= 033033 033033 C(AC+1)= 033033 033033 ---------- *036225 ASH 10,000001 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 000000 E= 000000 000001 FINAL C(AC)= 777776 000000 ---------- *036235 ASH 10,000001 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 E= 000000 000001 FINAL C(AC)= 000000 000000 ---------- *036251 ASH 7,000001 FLAGS - INT/FINAL 000200 400200 INITIAL C(AC)= 377777 000000 E= 000000 000001 FINAL C(AC)= 377776 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0324 *036260 ASH 7,000001 FLAGS - INT/FINAL 000200 400200 INITIAL C(AC)= 400000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 ---------- *036273 ASHC 10,000001 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 000000 C(AC+1)= 000000 000011 E= 000000 000001 FINAL C(AC)= 777776 000000 C(AC+1)= 400000 000022 ---------- *036303 ASHC 10,000001 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000022 E= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000044 ---------- *036317 ASHC 7,000001 FLAGS - INT/FINAL 000200 400200 INITIAL C(AC)= 377777 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 377776 000000 C(AC+1)= 000000 000000 ---------- *036326 ASHC 7,000001 FLAGS - INT/FINAL 000200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0325 *036341 ROT 7,000000(6) FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000003 FINAL C(AC)= 307036 037002 ---------- *036347 ROT 7,000004(5) FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000004 FINAL C(AC)= 616074 076004 ---------- *036355 ROT 7,000016(6) FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000023 FINAL C(AC)= 407600 461607 ---------- *036363 ROT 7,@@000006 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000035 FINAL C(AC)= 401143 417017 ---------- *036371 ROT 7,@@036575 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000001 FINAL C(AC)= 461607 407600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0326 *036376 ROT 7,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230703 603700 E= 000000 000002 FINAL C(AC)= 143417 017401 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAK.txt,v0000444000175100010010000511133212052635134014376 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.20.08.07.44; author Rob; state Exp; branches; next ; desc @@ 1.1 log @Initial revision @ text @;DSKAK IDENTIFICATION -------------- PRODUCT CODE: AH-E317A-DD DIAGNOSTIC CODE: DSKAK PRODUCT NAME: DSKAKA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 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-DSKAK.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-DSKAK.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE ELEVENTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE MULTIPLY, INTERGER MULTIPLY, DIVIDE AND INTEGER DIVIDE FUNCTIONS. 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-DSKAK.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-DSKAK.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-DSKAK.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-DSKAK.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-DSKAK.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 'DSKAK.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-DSKAK.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 DSKAK SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAK TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 DSKAKT MAC 29-Mar-78 09:55 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;DSKAK 2 3 000000 MCNVER==0 4 000001 DECVER==1 5 6 7 XLIST 8 LIST 9 LALL 10 11 NAME \MCNVER,\DECVER^ 12 13 TITLE DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 14 ^ 15 16 17 ;MULTIPLY, INTERGER MULTIPLY, DIVIDE, INTERGER DIVIDE 18 19 ;COPYRIGHT 1978 20 ;DIGITAL EQUIPMENT CORPORATION 21 ;MARLBORO, MASS. 01752 22 23 ;JOHN R. KIRCHOFF 24 25 000137 LOC 137 26 000137 000000 000001 MCNVER,,DECVER 27 28 .DIRECTIVE .OKOVL 29 NOSYM DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2 DSKAKT MAC 29-Mar-78 09:55 DIAGNOSTIC PARAMETERS SEQ 0013 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;OPERATOR DEFINITIONS 33 34 001000 000000 OPDEF ER1 [1B8] 35 002000 000000 OPDEF ER2 [2B8] 36 003000 000000 OPDEF ER3 [3B8] 37 004000 000000 OPDEF ER4 [4B8] 38 005000 000000 OPDEF ER5 [5B8] 39 006000 000000 OPDEF ER6 [6B8] 40 007000 000000 OPDEF ER7 [7B8] 41 010000 000000 OPDEF ER10 [10B8] 42 011000 000000 OPDEF ER11 [11B8] 43 012000 000000 OPDEF ER12 [12B8] 44 013000 000000 OPDEF ER13 [13B8] 45 46 043573 LUUO1=ERRMES 47 043573 LUUO2=ERRMES 48 043573 LUUO3=ERRMES 49 043573 LUUO4=ERRMES 50 043573 LUUO5=ERRMES 51 043573 LUUO6=ERRMES 52 043573 LUUO7=ERRMES 53 043573 LUUO10=ERRMES 54 043573 LUUO11=ERRMES 55 043573 LUUO12=ERRMES 56 043573 LUUO13=ERRMES DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3 DSKAKT MAC 29-Mar-78 09:55 DIAGNOSTIC PARAMETERS SEQ 0014 57 ;SUBROUTINE ASSEMBLY DEFINITIONS 58 59 000040 DEBUG=40 60 000001 EXCASB=1 61 000001 USRASB=1 62 000001 PGMEND=1 63 000001 ERDIAG=1 64 65 ;SPECIAL FEATURE DEFINITIONS 66 67 030000 SADR1=BEGIN 68 030000 SADR2=BEGIN 69 030000 SADR3=BEGIN 70 030007 SADR4=SRTDDT 71 254000 030061 SADR5=JRST $BEND2 72 254000 030000 SADR6=JRST BEGIN 73 254000 030000 SADR7=JRST BEGIN 74 254000 030000 SADR8=JRST BEGIN 75 254000 030000 SADR9=JRST BEGIN 76 254000 030000 SADR10=JRST BEGIN 77 254000 030000 SADR11=JRST BEGIN 78 79 ;SPECIAL FEATURE PARAMETERS 80 81 000000 PAREA0=0 82 000000 PAREA1=0 83 000000 PAREA2=0 84 446353 415300 PAREA3=SIXBIT/DSKAK/ 85 645560 000000 PAREA4=SIXBIT/TMP/ 86 000000 PAREA5=0 87 000000 PAREA6=0 88 000001 ITERAT==1 89 90 ;MACROS 91 92 DEFINE SAVEAC (A,B)< 93 MOVEI AC+2,. ;SAVE TEST PC 94 MOVEM AC+2,TESTPC 95 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 96 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 4 DSKAKT MAC 29-Mar-78 09:55 DIAGNOSTIC PARAMETERS SEQ 0015 97 DEFINE MOP1 (T,A1,A2,EE,R1,R2)< 98 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [A1],[A2] AND 99 ;[EE] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 100 ;AND E AGAINST [R1], [R2] AND [EE] RESPECTIVELY. 101 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 102 103 F'T'0: AA1=A1 ;INITIAL C(AC) 104 MOVE AC,[A1] ;PRELOAD AC (MULTIPLIER) 105 AA2=A2 ;INITIAL C(AC+1) 106 MOVE AC+1,[A2] ;PRELOAD AC+1 107 AEE=EE ;INITIAL C(E) 108 MOVE E,[EE] ;PRELOAD E (MULTIPLICAND) 109 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 110 AR1=R1 ;EXPECTED RESULT IN AC 111 CAME AC,[R1] ;IS HIGH PRODUCT CORRECT? 112 ER3 AC,T'1 ;HIGH PRODUCT FAILED 113 AR2=R2 ;EXPECTED RESULT IN AC+1 114 CAME AC+1,[R2] ;IS LOW PRODUCT CORRECT? 115 ER4 AC+1,T'2 ;LOW PRODUCT FAILED 116 AEE=EE ;INITIAL C(E) 117 CAME E,[EE] ;WAS C(E) CLOBBERED? 118 ER5 E,T'3 ;C(E) WAS CLOBBERED 119 JUMPL AC+2,F'T'0 ;LOOP ON ERROR SWITCH> DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0016 120 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 121 122 DEFINE S,<;*********************************************************************> 123 124 S^;*********************************************************************^ 125 ;*DATA SWITCHES 126 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 127 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 128 S^;*********************************************************************^ 129 130 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 131 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 132 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 133 134 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 135 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 136 010000 DING== 010000 ;RING BELL ON ERROR 137 138 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 139 002000 ERSTOP==002000 ;HALT ON TEST ERROR 140 001000 PALERS==001000 ;PRINT ALL ERRORS 141 142 000400 RELIAB==000400 ;RELIABILITY MODE 143 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 144 000100 INHPAG==000100 ;INHIBIT PAGING 145 146 000040 MODDVC==000040 ;MODIFY DEVICE CODE 147 000020 INHCSH==000020 ;INHIBIT CACHE 148 000010 OPRSEL==000010 ;OPERATOR SELECTION 149 150 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 151 152 ;SWITCH 16 RESERVED 153 154 ;SWITCH 17 RESERVED !!! DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0017 155 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 156 157 S^;*********************************************************************^ 158 ;*SPECIAL SUBPROGRAM LINKAGES 159 S^;*********************************************************************^ 160 161 027772 FSELNK= 27772 ;FILE SELECT LINK 162 027773 FRDLNK= 27773 ;FILE READ LINK 163 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 164 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 165 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 166 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 167 168 S^;*********************************************************************^ 169 ;*SPECIAL SUBROUTINE FATAL HALTS 170 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 171 S^;*********************************************************************^ 172 173 ;ADDRESS TAG REASON 174 ;--------------------- 175 176 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 177 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 178 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 179 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 180 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 181 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 182 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 183 ; 1017 EOPERR ;END OF PROGRAM ERROR 184 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 185 186 S^;*********************************************************************^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018 187 S^;*********************************************************************^ 188 ;OPERATOR DEFINITIONS (NON-UUO'S) 189 S^;*********************************************************************^ 190 191 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 192 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 193 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 194 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 195 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 196 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 197 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 198 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 199 200 S^;*********************************************************************^ 201 ;*SUBROUTINE INITIALIZATION CALL 202 S^;*********************************************************************^ 203 204 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 205 206 S^;*********************************************************************^ 207 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 208 S^;*********************************************************************^ 209 210 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 211 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 212 213 S^;*********************************************************************^ 214 ;*TERMINAL INPUT UUO'S 215 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 216 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 217 S^;*********************************************************************^ 218 219 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 220 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 221 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 222 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 223 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 224 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 225 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 226 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 227 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 228 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 229 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019 230 ;*TERMINAL OUTPUT UUO'S. 231 232 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 233 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 234 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 235 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 236 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 237 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 238 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 239 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 240 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 241 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 242 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 243 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 244 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 245 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 246 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 247 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 248 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 249 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 250 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 251 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 252 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 253 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 254 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 255 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 256 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 257 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 258 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 259 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 260 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 261 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 262 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 263 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 264 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 265 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 266 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 267 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 268 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 269 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 270 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 271 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 272 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 273 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020 274 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 275 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 276 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 277 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 278 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 279 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 280 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 281 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 282 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 283 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 284 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 285 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 286 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 287 288 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 289 290 DEFINE PMSG (ARG),< 291 PSIXM [SIXBIT\ARG'_\]> 292 293 DEFINE PMSGF (ARG),< 294 PSIXMF [SIXBIT\ARG'_\]> 295 296 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 297 ;* CONSERVES CORE OVER ASCIZ 298 299 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 300 301 ;*CONSOLE SWITCH INPUT UUO. 302 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 303 ;* USER MODE. 304 305 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 306 307 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 308 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 309 310 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 311 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 312 313 ;*KS-10 CACHE OPERATION UUO'S 314 315 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 316 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 317 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021 318 ;*END OF PASS/PROGRAM UUOS 319 320 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 321 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 322 323 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 324 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 325 326 ;*MEMORY MANAGEMENT UUO'S 327 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 328 ;*ADDRESS CONVERSION, ETC... 329 330 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 331 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 332 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 333 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 334 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 335 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 336 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 337 338 ;*DEVICE CODE MODIFICATION UUO 339 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 340 ;*IOT'S TO A DIFFERENT DEVICE CODE. 341 342 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 343 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 344 345 030000 IFNDEF MODDVL, 346 030000 IFNDEF MODDVU, 347 348 ;*"DIAMON" FILE SELECTION AND READ UUOS 349 350 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 351 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 352 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 353 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 354 355 XLIST 356 IFNDEF EROLD, 381 382 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 383 384 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 385 SALL 386 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 387 CORECT,,ACTUAL 388 [SIXBIT\D'_\],,ERR] 389 XALL> 390 391 >;END OF EROLD CONDITIONAL 392 393 XLIST 394 LIST DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 395 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 396 397 030000 LOC 30000 398 399 S^;*********************************************************************^ 400 ;*PROGRAM STARTING ADDRESSES 401 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 402 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 403 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 404 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 405 S^;*********************************************************************^ 406 407 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 408 030001 254 00 0 00 030621 $START: JRST START ;MODE CHECK STARTING ADDRESS 409 410 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 411 412 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 413 414 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 415 416 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 417 418 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 419 420 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 421 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 422 423 030010 254 00 0 00 030624 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 424 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 425 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 426 427 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 428 030014 254000 030000 START2: SADR8 ; " 429 030015 254000 030000 START3: SADR9 ; " 430 030016 254000 030000 START4: SADR10 ; " 431 030017 254000 030000 START5: SADR11 ; " DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 432 S^;*********************************************************************^ 433 ;*PROGRAM FIXED PARAMETER AREA 434 S^;*********************************************************************^ 435 436 030020 446353 415300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 437 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 438 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 439 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 440 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 441 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 442 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 443 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 444 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 445 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 446 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 447 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 448 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 449 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 450 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 451 452 S^;*********************************************************************^ 453 ;*PROGRAM VARIABLE PARAMETER AREA 454 S^;*********************************************************************^ 455 456 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 457 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 458 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 459 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 460 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 461 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 462 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 463 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 464 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 465 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 466 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 467 030052 000000 000000 ERRPC: 0 ;ERROR PC 468 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 469 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 470 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 471 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025 472 S^;*********************************************************************^ 473 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 474 S^;*********************************************************************^ 475 476 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 477 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 478 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 479 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 480 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 481 030064 CPOPJ1: ;SKIP RETURN 482 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 483 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 484 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 485 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 486 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 487 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 488 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 489 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 490 030073 255 00 0 00 000000 $USRHL: JFCL ; " 491 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 492 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 493 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 494 030077 255 00 0 00 000000 RESRT2: JFCL ; " 495 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 496 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 497 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 498 499 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 500 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 501 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 502 503 S^;*********************************************************************^ 504 ;*PROCESSOR CONTROL STORAGE 505 S^;*********************************************************************^ 506 507 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 508 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 509 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 510 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 511 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 512 513 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 514 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 515 516 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 517 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 518 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 519 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 520 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 521 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 522 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026 523 S^;*********************************************************************^ 524 ;*UUO DISPATCH TABLE 525 S^;*********************************************************************^ 526 XLIST 527 LIST 528 030124 043573 030070 UUODIS: LUUO1,,$UUOER 529 030125 043573 043573 LUUO3,,LUUO2 530 030126 043573 043573 LUUO5,,LUUO4 531 030127 043573 043573 LUUO7,,LUUO6 532 030130 043573 043573 LUUO11,,LUUO10 533 030131 043573 043573 LUUO13,,LUUO12 534 030132 030070 030070 LUUO15,,LUUO14 535 030133 030070 030070 LUUO17,,LUUO16 536 030134 030070 030070 LUUO21,,LUUO20 537 030135 030070 030070 LUUO23,,LUUO22 538 030136 030070 030070 LUUO25,,LUUO24 539 030137 030070 030070 LUUO27,,LUUO26 540 030140 030070 030070 LUUO31,,LUUO30 541 030141 030070 030070 LUUO33,,LUUO32 542 543 S^;*********************************************************************^ 544 ;*MEMORY MANAGMENT STORAGE 545 S^;*********************************************************************^ 546 547 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 548 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 549 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 550 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 551 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 552 553 S^;*********************************************************************^ 554 ;*PRINT CONTROL STORAGE 555 S^;*********************************************************************^ 556 557 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 558 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 559 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 560 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 561 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 562 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 563 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 564 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 565 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 566 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 567 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 568 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 569 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 570 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 571 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 572 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 573 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 574 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 575 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027 576 S^;*********************************************************************^ 577 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 578 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 579 ;* MOVEI NAME 580 ;* PNTA ;OR PNTAF 581 S^;*********************************************************************^ 582 583 030242 CRLF: ASCII/ 584 030242 015 012 000 000 000 / 585 030243 CRLF2: ASCII/ 586 587 030243 015 012 015 012 000 / 588 030244 054 000 000 000 000 COMMA: ASCII/,/ 589 030245 056 000 000 000 000 PERIOD: ASCII/./ 590 030246 040 000 000 000 000 SPACE: ASCII/ / 591 030247 011 000 000 000 000 TAB: ASCII/ / 592 030250 MINUS: 593 030250 055 000 000 000 000 HYPEN: ASCII/-/ 594 030251 053 000 000 000 000 PLUS: ASCII/+/ 595 030252 052 000 000 000 000 AST: ASCII/*/ 596 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 597 030254 050 000 000 000 000 LFP: ASCII/(/ 598 030255 051 000 000 000 000 RTP: ASCII/)/ 599 030256 007 0000000000 BELL: BYTE (7) 007 600 030257 077 000 000 000 000 QUEST: ASCII/?/ 601 030260 057 000 000 000 000 SLASH: ASCII!/! 602 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 603 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 604 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 605 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 606 607 S^;*********************************************************************^ 608 ;*USER MODE OUTPUT FILE INFORMATION 609 S^;*********************************************************************^ 610 611 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 612 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 613 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 614 030272 BLOCK 2 615 616 S^;*********************************************************************^ 617 ;*DISK UPDATE MODE FILE INFORMATION 618 S^;*********************************************************************^ 619 620 030274 $IBUF: BLOCK 3 621 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 622 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 623 030301 BLOCK 2 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028 624 S^;*********************************************************************^ 625 ;*PUSHDOWN LIST CONTROL INFORMATION 626 S^;*********************************************************************^ 627 628 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 629 030304 PLISTS: BLOCK 200 630 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 631 632 S^;*********************************************************************^ 633 ;*POWER LINE CLOCK FREQUENCY FLAG 634 S^;*********************************************************************^ 635 636 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 637 638 S^;*********************************************************************^ 639 ;*KL10 CACHE CONTROL FLAGS 640 S^;*********************************************************************^ 641 642 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 643 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 644 645 S^;*********************************************************************^ 646 ;*NUMBER INPUT DIGIT FLAG 647 S^;*********************************************************************^ 648 649 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 650 651 S^;*********************************************************************^ 652 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 653 S^;*********************************************************************^ 654 655 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 656 657 S^;*********************************************************************^ 658 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 659 S^;*********************************************************************^ 660 661 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 662 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 663 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 664 665 S^;*********************************************************************^ 666 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 667 S^;*********************************************************************^ 668 669 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029 670 S^;*********************************************************************^ 671 ;*USER MODE MONITOR TYPE FLAG 672 S^;*********************************************************************^ 673 674 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 675 676 S^;*********************************************************************^ 677 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 678 S^;*********************************************************************^ 679 680 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 681 682 S^;*********************************************************************^ 683 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 684 S^;*********************************************************************^ 685 686 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 687 688 S^;*********************************************************************^ 689 ;*"SWITCH" CALL USAGE CONTROL 690 S^;*********************************************************************^ 691 692 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 693 694 S^;*********************************************************************^ 695 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 696 S^;*********************************************************************^ 697 698 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 699 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 700 701 S^;*********************************************************************^ 702 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 703 S^;*********************************************************************^ 704 705 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 706 707 S^;*********************************************************************^ 708 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 709 S^;*********************************************************************^ 710 711 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 712 713 S^;*********************************************************************^ 714 ;*SPECIAL FUTURE EXPANSION ROOM 715 S^;*********************************************************************^ 716 717 S^;*********************************************************************^ 718 ;*END OF FIXED STORAGE 719 S^;*********************************************************************^ 720 721 030577 LOC 30577 722 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 DSKAK1 MAC 29-Mar-78 09:56 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030 723 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE 724 030601 000000 030600 EXIT 725 726 030602 PGMNAM: ASCIZ % 727 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAK] 728 030603 123 131 123 124 105 729 030604 115 040 062 060 062 730 030605 060 040 102 101 123 731 030606 111 103 040 111 116 732 030607 123 124 122 125 103 733 030610 124 111 117 116 040 734 030611 104 111 101 107 116 735 030612 117 123 124 111 103 736 030613 040 133 104 123 113 737 030614 101 113 135 015 012 MULTIPLY & DIVIDE 738 030615 115 125 114 124 111 739 030616 120 114 131 040 046 740 030617 040 104 111 126 111 741 030620 104 105 015 012 000 % 742 743 ;INITIALIZE SUBROUTINES 744 745 030621 265 00 0 00 030011 START: PGMINT 746 030622 200 00 0 00 043761 MOVE [ASCIZ/AK/] 747 030623 202 00 0 00 043702 MOVEM TLET 748 749 030624 254 00 0 00 030625 STARTA: JRST PART1 ;GO PERFORM DIAGNOSTIC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0031 750 SUBTTL DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT 751 752 003000 ADR=3000 753 000014 AC=14 754 000012 E=&17 755 756 030625 PART1: SAVEAC (1,1)^ 757 030625 201 16 0 00 030625 MOVEI AC+2,. ;SAVE TEST PC 758 030626 202 16 0 00 030051 MOVEM AC+2,TESTPC 759 030627 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 760 030630 202 16 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 761 762 ;MULTIPLY 0 BY 0 TO GET PRODUCT OF 0 763 MOP1 (\ADR,0,-1,0,0,0)^ 764 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 765 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 766 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 767 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 768 769 000000 F30000: AA1=0 ;INITIAL C(AC) 770 030631 200 14 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 771 777777 777777 AA2=-1 ;INITIAL C(AC+1) 772 030632 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 773 000000 AEE=0 ;INITIAL C(E) 774 030633 200 12 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 775 030634 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 776 000000 AR1=0 ;EXPECTED RESULT IN AC 777 030635 312 14 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 778 030636 003 14 0 00 030001 ER3 AC,30001 ;HIGH PRODUCT FAILED 779 000000 AR2=0 ;EXPECTED RESULT IN AC+1 780 030637 312 15 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 781 030640 004 15 0 00 030002 ER4 AC+1,30002 ;LOW PRODUCT FAILED 782 000000 AEE=0 ;INITIAL C(E) 783 030641 312 12 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 784 030642 005 12 0 00 030003 ER5 E,30003 ;C(E) WAS CLOBBERED 785 030643 321 16 0 00 030631 JUMPL AC+2,F30000 ;LOOP ON ERROR SWITCH^ 786 787 000013 AC=13 788 000011 E=&17 789 SAVEAC (1,1)^ 790 030644 201 15 0 00 030644 MOVEI AC+2,. ;SAVE TEST PC 791 030645 202 15 0 00 030051 MOVEM AC+2,TESTPC 792 030646 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 793 030647 202 15 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 794 000000 XX=0 795 796 REPEAT ^D36,< 797 ADR=ADR+1 798 XX=XX+XX 799 IFE XX, 800 801 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 802 MOP1 (\ADR,0,-1,XX,0,0)> 803 804 003001 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0032 805 000000 XX=XX+XX 806 000001 IFE XX, 807 808 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 809 MOP1 (\ADR,0,-1,XX,0,0)^ 810 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 811 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 812 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 813 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 814 815 000000 F30010: AA1=0 ;INITIAL C(AC) 816 030650 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 817 777777 777777 AA2=-1 ;INITIAL C(AC+1) 818 030651 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 819 000001 AEE=XX ;INITIAL C(E) 820 030652 200 11 0 00 043764 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 821 030653 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 822 000000 AR1=0 ;EXPECTED RESULT IN AC 823 030654 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 824 030655 003 13 0 00 030011 ER3 AC,30011 ;HIGH PRODUCT FAILED 825 000000 AR2=0 ;EXPECTED RESULT IN AC+1 826 030656 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 827 030657 004 14 0 00 030012 ER4 AC+1,30012 ;LOW PRODUCT FAILED 828 000001 AEE=XX ;INITIAL C(E) 829 030660 312 11 0 00 043764 CAME E,[XX] ;WAS C(E) CLOBBERED? 830 030661 005 11 0 00 030013 ER5 E,30013 ;C(E) WAS CLOBBERED 831 030662 321 15 0 00 030650 JUMPL AC+2,F30010 ;LOOP ON ERROR SWITCH^ 832 833 003002 ADR=ADR+1 834 000002 XX=XX+XX 835 IFE XX, 836 837 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 838 MOP1 (\ADR,0,-1,XX,0,0)^ 839 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 840 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 841 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 842 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 843 844 000000 F30020: AA1=0 ;INITIAL C(AC) 845 030663 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 846 777777 777777 AA2=-1 ;INITIAL C(AC+1) 847 030664 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 848 000002 AEE=XX ;INITIAL C(E) 849 030665 200 11 0 00 043765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 850 030666 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 851 000000 AR1=0 ;EXPECTED RESULT IN AC 852 030667 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 853 030670 003 13 0 00 030021 ER3 AC,30021 ;HIGH PRODUCT FAILED 854 000000 AR2=0 ;EXPECTED RESULT IN AC+1 855 030671 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 856 030672 004 14 0 00 030022 ER4 AC+1,30022 ;LOW PRODUCT FAILED 857 000002 AEE=XX ;INITIAL C(E) 858 030673 312 11 0 00 043765 CAME E,[XX] ;WAS C(E) CLOBBERED? 859 030674 005 11 0 00 030023 ER5 E,30023 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0033 860 030675 321 15 0 00 030663 JUMPL AC+2,F30020 ;LOOP ON ERROR SWITCH^ 861 862 003003 ADR=ADR+1 863 000004 XX=XX+XX 864 IFE XX, 865 866 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 867 MOP1 (\ADR,0,-1,XX,0,0)^ 868 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 869 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 870 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 871 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 872 873 000000 F30030: AA1=0 ;INITIAL C(AC) 874 030676 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 875 777777 777777 AA2=-1 ;INITIAL C(AC+1) 876 030677 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 877 000004 AEE=XX ;INITIAL C(E) 878 030700 200 11 0 00 043766 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 879 030701 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 880 000000 AR1=0 ;EXPECTED RESULT IN AC 881 030702 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 882 030703 003 13 0 00 030031 ER3 AC,30031 ;HIGH PRODUCT FAILED 883 000000 AR2=0 ;EXPECTED RESULT IN AC+1 884 030704 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 885 030705 004 14 0 00 030032 ER4 AC+1,30032 ;LOW PRODUCT FAILED 886 000004 AEE=XX ;INITIAL C(E) 887 030706 312 11 0 00 043766 CAME E,[XX] ;WAS C(E) CLOBBERED? 888 030707 005 11 0 00 030033 ER5 E,30033 ;C(E) WAS CLOBBERED 889 030710 321 15 0 00 030676 JUMPL AC+2,F30030 ;LOOP ON ERROR SWITCH^ 890 891 003004 ADR=ADR+1 892 000010 XX=XX+XX 893 IFE XX, 894 895 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 896 MOP1 (\ADR,0,-1,XX,0,0)^ 897 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 898 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 899 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 900 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 901 902 000000 F30040: AA1=0 ;INITIAL C(AC) 903 030711 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 904 777777 777777 AA2=-1 ;INITIAL C(AC+1) 905 030712 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 906 000010 AEE=XX ;INITIAL C(E) 907 030713 200 11 0 00 043767 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 908 030714 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 909 000000 AR1=0 ;EXPECTED RESULT IN AC 910 030715 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 911 030716 003 13 0 00 030041 ER3 AC,30041 ;HIGH PRODUCT FAILED 912 000000 AR2=0 ;EXPECTED RESULT IN AC+1 913 030717 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 914 030720 004 14 0 00 030042 ER4 AC+1,30042 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0034 915 000010 AEE=XX ;INITIAL C(E) 916 030721 312 11 0 00 043767 CAME E,[XX] ;WAS C(E) CLOBBERED? 917 030722 005 11 0 00 030043 ER5 E,30043 ;C(E) WAS CLOBBERED 918 030723 321 15 0 00 030711 JUMPL AC+2,F30040 ;LOOP ON ERROR SWITCH^ 919 920 003005 ADR=ADR+1 921 000020 XX=XX+XX 922 IFE XX, 923 924 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 925 MOP1 (\ADR,0,-1,XX,0,0)^ 926 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 927 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 928 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 929 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 930 931 000000 F30050: AA1=0 ;INITIAL C(AC) 932 030724 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 933 777777 777777 AA2=-1 ;INITIAL C(AC+1) 934 030725 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 935 000020 AEE=XX ;INITIAL C(E) 936 030726 200 11 0 00 043770 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 937 030727 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 938 000000 AR1=0 ;EXPECTED RESULT IN AC 939 030730 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 940 030731 003 13 0 00 030051 ER3 AC,30051 ;HIGH PRODUCT FAILED 941 000000 AR2=0 ;EXPECTED RESULT IN AC+1 942 030732 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 943 030733 004 14 0 00 030052 ER4 AC+1,30052 ;LOW PRODUCT FAILED 944 000020 AEE=XX ;INITIAL C(E) 945 030734 312 11 0 00 043770 CAME E,[XX] ;WAS C(E) CLOBBERED? 946 030735 005 11 0 00 030053 ER5 E,30053 ;C(E) WAS CLOBBERED 947 030736 321 15 0 00 030724 JUMPL AC+2,F30050 ;LOOP ON ERROR SWITCH^ 948 949 003006 ADR=ADR+1 950 000040 XX=XX+XX 951 IFE XX, 952 953 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 954 MOP1 (\ADR,0,-1,XX,0,0)^ 955 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 956 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 957 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 958 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 959 960 000000 F30060: AA1=0 ;INITIAL C(AC) 961 030737 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 962 777777 777777 AA2=-1 ;INITIAL C(AC+1) 963 030740 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 964 000040 AEE=XX ;INITIAL C(E) 965 030741 200 11 0 00 043771 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 966 030742 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 967 000000 AR1=0 ;EXPECTED RESULT IN AC 968 030743 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 969 030744 003 13 0 00 030061 ER3 AC,30061 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0035 970 000000 AR2=0 ;EXPECTED RESULT IN AC+1 971 030745 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 972 030746 004 14 0 00 030062 ER4 AC+1,30062 ;LOW PRODUCT FAILED 973 000040 AEE=XX ;INITIAL C(E) 974 030747 312 11 0 00 043771 CAME E,[XX] ;WAS C(E) CLOBBERED? 975 030750 005 11 0 00 030063 ER5 E,30063 ;C(E) WAS CLOBBERED 976 030751 321 15 0 00 030737 JUMPL AC+2,F30060 ;LOOP ON ERROR SWITCH^ 977 978 003007 ADR=ADR+1 979 000100 XX=XX+XX 980 IFE XX, 981 982 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 983 MOP1 (\ADR,0,-1,XX,0,0)^ 984 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 985 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 986 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 987 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 988 989 000000 F30070: AA1=0 ;INITIAL C(AC) 990 030752 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 991 777777 777777 AA2=-1 ;INITIAL C(AC+1) 992 030753 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 993 000100 AEE=XX ;INITIAL C(E) 994 030754 200 11 0 00 043772 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 995 030755 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 996 000000 AR1=0 ;EXPECTED RESULT IN AC 997 030756 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 998 030757 003 13 0 00 030071 ER3 AC,30071 ;HIGH PRODUCT FAILED 999 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1000 030760 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1001 030761 004 14 0 00 030072 ER4 AC+1,30072 ;LOW PRODUCT FAILED 1002 000100 AEE=XX ;INITIAL C(E) 1003 030762 312 11 0 00 043772 CAME E,[XX] ;WAS C(E) CLOBBERED? 1004 030763 005 11 0 00 030073 ER5 E,30073 ;C(E) WAS CLOBBERED 1005 030764 321 15 0 00 030752 JUMPL AC+2,F30070 ;LOOP ON ERROR SWITCH^ 1006 1007 003010 ADR=ADR+1 1008 000200 XX=XX+XX 1009 IFE XX, 1010 1011 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1012 MOP1 (\ADR,0,-1,XX,0,0)^ 1013 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1014 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1015 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1016 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1017 1018 000000 F30100: AA1=0 ;INITIAL C(AC) 1019 030765 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1020 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1021 030766 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1022 000200 AEE=XX ;INITIAL C(E) 1023 030767 200 11 0 00 043773 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1024 030770 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0036 1025 000000 AR1=0 ;EXPECTED RESULT IN AC 1026 030771 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1027 030772 003 13 0 00 030101 ER3 AC,30101 ;HIGH PRODUCT FAILED 1028 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1029 030773 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1030 030774 004 14 0 00 030102 ER4 AC+1,30102 ;LOW PRODUCT FAILED 1031 000200 AEE=XX ;INITIAL C(E) 1032 030775 312 11 0 00 043773 CAME E,[XX] ;WAS C(E) CLOBBERED? 1033 030776 005 11 0 00 030103 ER5 E,30103 ;C(E) WAS CLOBBERED 1034 030777 321 15 0 00 030765 JUMPL AC+2,F30100 ;LOOP ON ERROR SWITCH^ 1035 1036 003011 ADR=ADR+1 1037 000400 XX=XX+XX 1038 IFE XX, 1039 1040 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1041 MOP1 (\ADR,0,-1,XX,0,0)^ 1042 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1043 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1044 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1045 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1046 1047 000000 F30110: AA1=0 ;INITIAL C(AC) 1048 031000 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1049 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1050 031001 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1051 000400 AEE=XX ;INITIAL C(E) 1052 031002 200 11 0 00 043774 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1053 031003 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1054 000000 AR1=0 ;EXPECTED RESULT IN AC 1055 031004 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1056 031005 003 13 0 00 030111 ER3 AC,30111 ;HIGH PRODUCT FAILED 1057 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1058 031006 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1059 031007 004 14 0 00 030112 ER4 AC+1,30112 ;LOW PRODUCT FAILED 1060 000400 AEE=XX ;INITIAL C(E) 1061 031010 312 11 0 00 043774 CAME E,[XX] ;WAS C(E) CLOBBERED? 1062 031011 005 11 0 00 030113 ER5 E,30113 ;C(E) WAS CLOBBERED 1063 031012 321 15 0 00 031000 JUMPL AC+2,F30110 ;LOOP ON ERROR SWITCH^ 1064 1065 003012 ADR=ADR+1 1066 001000 XX=XX+XX 1067 IFE XX, 1068 1069 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1070 MOP1 (\ADR,0,-1,XX,0,0)^ 1071 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1072 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1073 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1074 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1075 1076 000000 F30120: AA1=0 ;INITIAL C(AC) 1077 031013 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1078 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1079 031014 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0037 1080 001000 AEE=XX ;INITIAL C(E) 1081 031015 200 11 0 00 043775 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1082 031016 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1083 000000 AR1=0 ;EXPECTED RESULT IN AC 1084 031017 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1085 031020 003 13 0 00 030121 ER3 AC,30121 ;HIGH PRODUCT FAILED 1086 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1087 031021 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1088 031022 004 14 0 00 030122 ER4 AC+1,30122 ;LOW PRODUCT FAILED 1089 001000 AEE=XX ;INITIAL C(E) 1090 031023 312 11 0 00 043775 CAME E,[XX] ;WAS C(E) CLOBBERED? 1091 031024 005 11 0 00 030123 ER5 E,30123 ;C(E) WAS CLOBBERED 1092 031025 321 15 0 00 031013 JUMPL AC+2,F30120 ;LOOP ON ERROR SWITCH^ 1093 1094 003013 ADR=ADR+1 1095 002000 XX=XX+XX 1096 IFE XX, 1097 1098 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1099 MOP1 (\ADR,0,-1,XX,0,0)^ 1100 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1101 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1102 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1103 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1104 1105 000000 F30130: AA1=0 ;INITIAL C(AC) 1106 031026 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1107 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1108 031027 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1109 002000 AEE=XX ;INITIAL C(E) 1110 031030 200 11 0 00 043776 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1111 031031 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1112 000000 AR1=0 ;EXPECTED RESULT IN AC 1113 031032 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1114 031033 003 13 0 00 030131 ER3 AC,30131 ;HIGH PRODUCT FAILED 1115 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1116 031034 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1117 031035 004 14 0 00 030132 ER4 AC+1,30132 ;LOW PRODUCT FAILED 1118 002000 AEE=XX ;INITIAL C(E) 1119 031036 312 11 0 00 043776 CAME E,[XX] ;WAS C(E) CLOBBERED? 1120 031037 005 11 0 00 030133 ER5 E,30133 ;C(E) WAS CLOBBERED 1121 031040 321 15 0 00 031026 JUMPL AC+2,F30130 ;LOOP ON ERROR SWITCH^ 1122 1123 003014 ADR=ADR+1 1124 004000 XX=XX+XX 1125 IFE XX, 1126 1127 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1128 MOP1 (\ADR,0,-1,XX,0,0)^ 1129 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1130 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1131 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1132 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1133 1134 000000 F30140: AA1=0 ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0038 1135 031041 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1136 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1137 031042 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1138 004000 AEE=XX ;INITIAL C(E) 1139 031043 200 11 0 00 043777 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1140 031044 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1141 000000 AR1=0 ;EXPECTED RESULT IN AC 1142 031045 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1143 031046 003 13 0 00 030141 ER3 AC,30141 ;HIGH PRODUCT FAILED 1144 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1145 031047 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1146 031050 004 14 0 00 030142 ER4 AC+1,30142 ;LOW PRODUCT FAILED 1147 004000 AEE=XX ;INITIAL C(E) 1148 031051 312 11 0 00 043777 CAME E,[XX] ;WAS C(E) CLOBBERED? 1149 031052 005 11 0 00 030143 ER5 E,30143 ;C(E) WAS CLOBBERED 1150 031053 321 15 0 00 031041 JUMPL AC+2,F30140 ;LOOP ON ERROR SWITCH^ 1151 1152 003015 ADR=ADR+1 1153 010000 XX=XX+XX 1154 IFE XX, 1155 1156 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1157 MOP1 (\ADR,0,-1,XX,0,0)^ 1158 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1159 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1160 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1161 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1162 1163 000000 F30150: AA1=0 ;INITIAL C(AC) 1164 031054 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1165 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1166 031055 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1167 010000 AEE=XX ;INITIAL C(E) 1168 031056 200 11 0 00 044000 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1169 031057 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1170 000000 AR1=0 ;EXPECTED RESULT IN AC 1171 031060 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1172 031061 003 13 0 00 030151 ER3 AC,30151 ;HIGH PRODUCT FAILED 1173 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1174 031062 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1175 031063 004 14 0 00 030152 ER4 AC+1,30152 ;LOW PRODUCT FAILED 1176 010000 AEE=XX ;INITIAL C(E) 1177 031064 312 11 0 00 044000 CAME E,[XX] ;WAS C(E) CLOBBERED? 1178 031065 005 11 0 00 030153 ER5 E,30153 ;C(E) WAS CLOBBERED 1179 031066 321 15 0 00 031054 JUMPL AC+2,F30150 ;LOOP ON ERROR SWITCH^ 1180 1181 003016 ADR=ADR+1 1182 020000 XX=XX+XX 1183 IFE XX, 1184 1185 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1186 MOP1 (\ADR,0,-1,XX,0,0)^ 1187 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1188 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1189 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0039 1190 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1191 1192 000000 F30160: AA1=0 ;INITIAL C(AC) 1193 031067 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1194 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1195 031070 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1196 020000 AEE=XX ;INITIAL C(E) 1197 031071 200 11 0 00 044001 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1198 031072 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1199 000000 AR1=0 ;EXPECTED RESULT IN AC 1200 031073 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1201 031074 003 13 0 00 030161 ER3 AC,30161 ;HIGH PRODUCT FAILED 1202 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1203 031075 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1204 031076 004 14 0 00 030162 ER4 AC+1,30162 ;LOW PRODUCT FAILED 1205 020000 AEE=XX ;INITIAL C(E) 1206 031077 312 11 0 00 044001 CAME E,[XX] ;WAS C(E) CLOBBERED? 1207 031100 005 11 0 00 030163 ER5 E,30163 ;C(E) WAS CLOBBERED 1208 031101 321 15 0 00 031067 JUMPL AC+2,F30160 ;LOOP ON ERROR SWITCH^ 1209 1210 003017 ADR=ADR+1 1211 040000 XX=XX+XX 1212 IFE XX, 1213 1214 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1215 MOP1 (\ADR,0,-1,XX,0,0)^ 1216 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1217 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1218 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1219 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1220 1221 000000 F30170: AA1=0 ;INITIAL C(AC) 1222 031102 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1223 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1224 031103 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1225 040000 AEE=XX ;INITIAL C(E) 1226 031104 200 11 0 00 044002 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1227 031105 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1228 000000 AR1=0 ;EXPECTED RESULT IN AC 1229 031106 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1230 031107 003 13 0 00 030171 ER3 AC,30171 ;HIGH PRODUCT FAILED 1231 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1232 031110 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1233 031111 004 14 0 00 030172 ER4 AC+1,30172 ;LOW PRODUCT FAILED 1234 040000 AEE=XX ;INITIAL C(E) 1235 031112 312 11 0 00 044002 CAME E,[XX] ;WAS C(E) CLOBBERED? 1236 031113 005 11 0 00 030173 ER5 E,30173 ;C(E) WAS CLOBBERED 1237 031114 321 15 0 00 031102 JUMPL AC+2,F30170 ;LOOP ON ERROR SWITCH^ 1238 1239 003020 ADR=ADR+1 1240 100000 XX=XX+XX 1241 IFE XX, 1242 1243 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1244 MOP1 (\ADR,0,-1,XX,0,0)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0040 1245 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1246 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1247 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1248 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1249 1250 000000 F30200: AA1=0 ;INITIAL C(AC) 1251 031115 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1252 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1253 031116 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1254 100000 AEE=XX ;INITIAL C(E) 1255 031117 200 11 0 00 044003 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1256 031120 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1257 000000 AR1=0 ;EXPECTED RESULT IN AC 1258 031121 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1259 031122 003 13 0 00 030201 ER3 AC,30201 ;HIGH PRODUCT FAILED 1260 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1261 031123 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1262 031124 004 14 0 00 030202 ER4 AC+1,30202 ;LOW PRODUCT FAILED 1263 100000 AEE=XX ;INITIAL C(E) 1264 031125 312 11 0 00 044003 CAME E,[XX] ;WAS C(E) CLOBBERED? 1265 031126 005 11 0 00 030203 ER5 E,30203 ;C(E) WAS CLOBBERED 1266 031127 321 15 0 00 031115 JUMPL AC+2,F30200 ;LOOP ON ERROR SWITCH^ 1267 1268 003021 ADR=ADR+1 1269 200000 XX=XX+XX 1270 IFE XX, 1271 1272 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1273 MOP1 (\ADR,0,-1,XX,0,0)^ 1274 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1275 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1276 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1277 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1278 1279 000000 F30210: AA1=0 ;INITIAL C(AC) 1280 031130 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1281 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1282 031131 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1283 200000 AEE=XX ;INITIAL C(E) 1284 031132 200 11 0 00 044004 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1285 031133 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1286 000000 AR1=0 ;EXPECTED RESULT IN AC 1287 031134 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1288 031135 003 13 0 00 030211 ER3 AC,30211 ;HIGH PRODUCT FAILED 1289 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1290 031136 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1291 031137 004 14 0 00 030212 ER4 AC+1,30212 ;LOW PRODUCT FAILED 1292 200000 AEE=XX ;INITIAL C(E) 1293 031140 312 11 0 00 044004 CAME E,[XX] ;WAS C(E) CLOBBERED? 1294 031141 005 11 0 00 030213 ER5 E,30213 ;C(E) WAS CLOBBERED 1295 031142 321 15 0 00 031130 JUMPL AC+2,F30210 ;LOOP ON ERROR SWITCH^ 1296 1297 003022 ADR=ADR+1 1298 400000 XX=XX+XX 1299 IFE XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0041 1300 1301 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1302 MOP1 (\ADR,0,-1,XX,0,0)^ 1303 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1304 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1305 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1306 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1307 1308 000000 F30220: AA1=0 ;INITIAL C(AC) 1309 031143 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1310 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1311 031144 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1312 400000 AEE=XX ;INITIAL C(E) 1313 031145 200 11 0 00 044005 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1314 031146 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1315 000000 AR1=0 ;EXPECTED RESULT IN AC 1316 031147 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1317 031150 003 13 0 00 030221 ER3 AC,30221 ;HIGH PRODUCT FAILED 1318 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1319 031151 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1320 031152 004 14 0 00 030222 ER4 AC+1,30222 ;LOW PRODUCT FAILED 1321 400000 AEE=XX ;INITIAL C(E) 1322 031153 312 11 0 00 044005 CAME E,[XX] ;WAS C(E) CLOBBERED? 1323 031154 005 11 0 00 030223 ER5 E,30223 ;C(E) WAS CLOBBERED 1324 031155 321 15 0 00 031143 JUMPL AC+2,F30220 ;LOOP ON ERROR SWITCH^ 1325 1326 003023 ADR=ADR+1 1327 000001 000000 XX=XX+XX 1328 IFE XX, 1329 1330 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1331 MOP1 (\ADR,0,-1,XX,0,0)^ 1332 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1333 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1334 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1335 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1336 1337 000000 F30230: AA1=0 ;INITIAL C(AC) 1338 031156 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1339 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1340 031157 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1341 000001 000000 AEE=XX ;INITIAL C(E) 1342 031160 200 11 0 00 044006 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1343 031161 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1344 000000 AR1=0 ;EXPECTED RESULT IN AC 1345 031162 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1346 031163 003 13 0 00 030231 ER3 AC,30231 ;HIGH PRODUCT FAILED 1347 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1348 031164 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1349 031165 004 14 0 00 030232 ER4 AC+1,30232 ;LOW PRODUCT FAILED 1350 000001 000000 AEE=XX ;INITIAL C(E) 1351 031166 312 11 0 00 044006 CAME E,[XX] ;WAS C(E) CLOBBERED? 1352 031167 005 11 0 00 030233 ER5 E,30233 ;C(E) WAS CLOBBERED 1353 031170 321 15 0 00 031156 JUMPL AC+2,F30230 ;LOOP ON ERROR SWITCH^ 1354 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0042 1355 003024 ADR=ADR+1 1356 000002 000000 XX=XX+XX 1357 IFE XX, 1358 1359 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1360 MOP1 (\ADR,0,-1,XX,0,0)^ 1361 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1362 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1363 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1364 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1365 1366 000000 F30240: AA1=0 ;INITIAL C(AC) 1367 031171 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1368 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1369 031172 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1370 000002 000000 AEE=XX ;INITIAL C(E) 1371 031173 200 11 0 00 044007 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1372 031174 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1373 000000 AR1=0 ;EXPECTED RESULT IN AC 1374 031175 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1375 031176 003 13 0 00 030241 ER3 AC,30241 ;HIGH PRODUCT FAILED 1376 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1377 031177 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1378 031200 004 14 0 00 030242 ER4 AC+1,30242 ;LOW PRODUCT FAILED 1379 000002 000000 AEE=XX ;INITIAL C(E) 1380 031201 312 11 0 00 044007 CAME E,[XX] ;WAS C(E) CLOBBERED? 1381 031202 005 11 0 00 030243 ER5 E,30243 ;C(E) WAS CLOBBERED 1382 031203 321 15 0 00 031171 JUMPL AC+2,F30240 ;LOOP ON ERROR SWITCH^ 1383 1384 003025 ADR=ADR+1 1385 000004 000000 XX=XX+XX 1386 IFE XX, 1387 1388 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1389 MOP1 (\ADR,0,-1,XX,0,0)^ 1390 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1391 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1392 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1393 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1394 1395 000000 F30250: AA1=0 ;INITIAL C(AC) 1396 031204 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1397 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1398 031205 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1399 000004 000000 AEE=XX ;INITIAL C(E) 1400 031206 200 11 0 00 044010 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1401 031207 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1402 000000 AR1=0 ;EXPECTED RESULT IN AC 1403 031210 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1404 031211 003 13 0 00 030251 ER3 AC,30251 ;HIGH PRODUCT FAILED 1405 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1406 031212 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1407 031213 004 14 0 00 030252 ER4 AC+1,30252 ;LOW PRODUCT FAILED 1408 000004 000000 AEE=XX ;INITIAL C(E) 1409 031214 312 11 0 00 044010 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0043 1410 031215 005 11 0 00 030253 ER5 E,30253 ;C(E) WAS CLOBBERED 1411 031216 321 15 0 00 031204 JUMPL AC+2,F30250 ;LOOP ON ERROR SWITCH^ 1412 1413 003026 ADR=ADR+1 1414 000010 000000 XX=XX+XX 1415 IFE XX, 1416 1417 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1418 MOP1 (\ADR,0,-1,XX,0,0)^ 1419 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1420 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1421 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1422 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1423 1424 000000 F30260: AA1=0 ;INITIAL C(AC) 1425 031217 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1426 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1427 031220 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1428 000010 000000 AEE=XX ;INITIAL C(E) 1429 031221 200 11 0 00 044011 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1430 031222 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1431 000000 AR1=0 ;EXPECTED RESULT IN AC 1432 031223 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1433 031224 003 13 0 00 030261 ER3 AC,30261 ;HIGH PRODUCT FAILED 1434 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1435 031225 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1436 031226 004 14 0 00 030262 ER4 AC+1,30262 ;LOW PRODUCT FAILED 1437 000010 000000 AEE=XX ;INITIAL C(E) 1438 031227 312 11 0 00 044011 CAME E,[XX] ;WAS C(E) CLOBBERED? 1439 031230 005 11 0 00 030263 ER5 E,30263 ;C(E) WAS CLOBBERED 1440 031231 321 15 0 00 031217 JUMPL AC+2,F30260 ;LOOP ON ERROR SWITCH^ 1441 1442 003027 ADR=ADR+1 1443 000020 000000 XX=XX+XX 1444 IFE XX, 1445 1446 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1447 MOP1 (\ADR,0,-1,XX,0,0)^ 1448 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1449 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1450 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1451 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1452 1453 000000 F30270: AA1=0 ;INITIAL C(AC) 1454 031232 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1455 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1456 031233 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1457 000020 000000 AEE=XX ;INITIAL C(E) 1458 031234 200 11 0 00 044012 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1459 031235 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1460 000000 AR1=0 ;EXPECTED RESULT IN AC 1461 031236 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1462 031237 003 13 0 00 030271 ER3 AC,30271 ;HIGH PRODUCT FAILED 1463 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1464 031240 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0044 1465 031241 004 14 0 00 030272 ER4 AC+1,30272 ;LOW PRODUCT FAILED 1466 000020 000000 AEE=XX ;INITIAL C(E) 1467 031242 312 11 0 00 044012 CAME E,[XX] ;WAS C(E) CLOBBERED? 1468 031243 005 11 0 00 030273 ER5 E,30273 ;C(E) WAS CLOBBERED 1469 031244 321 15 0 00 031232 JUMPL AC+2,F30270 ;LOOP ON ERROR SWITCH^ 1470 1471 003030 ADR=ADR+1 1472 000040 000000 XX=XX+XX 1473 IFE XX, 1474 1475 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1476 MOP1 (\ADR,0,-1,XX,0,0)^ 1477 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1478 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1479 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1480 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1481 1482 000000 F30300: AA1=0 ;INITIAL C(AC) 1483 031245 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1484 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1485 031246 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1486 000040 000000 AEE=XX ;INITIAL C(E) 1487 031247 200 11 0 00 044013 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1488 031250 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1489 000000 AR1=0 ;EXPECTED RESULT IN AC 1490 031251 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1491 031252 003 13 0 00 030301 ER3 AC,30301 ;HIGH PRODUCT FAILED 1492 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1493 031253 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1494 031254 004 14 0 00 030302 ER4 AC+1,30302 ;LOW PRODUCT FAILED 1495 000040 000000 AEE=XX ;INITIAL C(E) 1496 031255 312 11 0 00 044013 CAME E,[XX] ;WAS C(E) CLOBBERED? 1497 031256 005 11 0 00 030303 ER5 E,30303 ;C(E) WAS CLOBBERED 1498 031257 321 15 0 00 031245 JUMPL AC+2,F30300 ;LOOP ON ERROR SWITCH^ 1499 1500 003031 ADR=ADR+1 1501 000100 000000 XX=XX+XX 1502 IFE XX, 1503 1504 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1505 MOP1 (\ADR,0,-1,XX,0,0)^ 1506 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1507 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1508 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1509 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1510 1511 000000 F30310: AA1=0 ;INITIAL C(AC) 1512 031260 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1513 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1514 031261 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1515 000100 000000 AEE=XX ;INITIAL C(E) 1516 031262 200 11 0 00 044014 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1517 031263 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1518 000000 AR1=0 ;EXPECTED RESULT IN AC 1519 031264 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0045 1520 031265 003 13 0 00 030311 ER3 AC,30311 ;HIGH PRODUCT FAILED 1521 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1522 031266 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1523 031267 004 14 0 00 030312 ER4 AC+1,30312 ;LOW PRODUCT FAILED 1524 000100 000000 AEE=XX ;INITIAL C(E) 1525 031270 312 11 0 00 044014 CAME E,[XX] ;WAS C(E) CLOBBERED? 1526 031271 005 11 0 00 030313 ER5 E,30313 ;C(E) WAS CLOBBERED 1527 031272 321 15 0 00 031260 JUMPL AC+2,F30310 ;LOOP ON ERROR SWITCH^ 1528 1529 003032 ADR=ADR+1 1530 000200 000000 XX=XX+XX 1531 IFE XX, 1532 1533 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1534 MOP1 (\ADR,0,-1,XX,0,0)^ 1535 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1536 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1537 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1538 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1539 1540 000000 F30320: AA1=0 ;INITIAL C(AC) 1541 031273 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1542 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1543 031274 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1544 000200 000000 AEE=XX ;INITIAL C(E) 1545 031275 200 11 0 00 044015 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1546 031276 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1547 000000 AR1=0 ;EXPECTED RESULT IN AC 1548 031277 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1549 031300 003 13 0 00 030321 ER3 AC,30321 ;HIGH PRODUCT FAILED 1550 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1551 031301 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1552 031302 004 14 0 00 030322 ER4 AC+1,30322 ;LOW PRODUCT FAILED 1553 000200 000000 AEE=XX ;INITIAL C(E) 1554 031303 312 11 0 00 044015 CAME E,[XX] ;WAS C(E) CLOBBERED? 1555 031304 005 11 0 00 030323 ER5 E,30323 ;C(E) WAS CLOBBERED 1556 031305 321 15 0 00 031273 JUMPL AC+2,F30320 ;LOOP ON ERROR SWITCH^ 1557 1558 003033 ADR=ADR+1 1559 000400 000000 XX=XX+XX 1560 IFE XX, 1561 1562 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1563 MOP1 (\ADR,0,-1,XX,0,0)^ 1564 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1565 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1566 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1567 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1568 1569 000000 F30330: AA1=0 ;INITIAL C(AC) 1570 031306 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1571 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1572 031307 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1573 000400 000000 AEE=XX ;INITIAL C(E) 1574 031310 200 11 0 00 044016 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0046 1575 031311 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1576 000000 AR1=0 ;EXPECTED RESULT IN AC 1577 031312 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1578 031313 003 13 0 00 030331 ER3 AC,30331 ;HIGH PRODUCT FAILED 1579 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1580 031314 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1581 031315 004 14 0 00 030332 ER4 AC+1,30332 ;LOW PRODUCT FAILED 1582 000400 000000 AEE=XX ;INITIAL C(E) 1583 031316 312 11 0 00 044016 CAME E,[XX] ;WAS C(E) CLOBBERED? 1584 031317 005 11 0 00 030333 ER5 E,30333 ;C(E) WAS CLOBBERED 1585 031320 321 15 0 00 031306 JUMPL AC+2,F30330 ;LOOP ON ERROR SWITCH^ 1586 1587 003034 ADR=ADR+1 1588 001000 000000 XX=XX+XX 1589 IFE XX, 1590 1591 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1592 MOP1 (\ADR,0,-1,XX,0,0)^ 1593 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1594 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1595 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1596 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1597 1598 000000 F30340: AA1=0 ;INITIAL C(AC) 1599 031321 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1600 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1601 031322 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1602 001000 000000 AEE=XX ;INITIAL C(E) 1603 031323 200 11 0 00 044017 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1604 031324 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1605 000000 AR1=0 ;EXPECTED RESULT IN AC 1606 031325 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1607 031326 003 13 0 00 030341 ER3 AC,30341 ;HIGH PRODUCT FAILED 1608 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1609 031327 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1610 031330 004 14 0 00 030342 ER4 AC+1,30342 ;LOW PRODUCT FAILED 1611 001000 000000 AEE=XX ;INITIAL C(E) 1612 031331 312 11 0 00 044017 CAME E,[XX] ;WAS C(E) CLOBBERED? 1613 031332 005 11 0 00 030343 ER5 E,30343 ;C(E) WAS CLOBBERED 1614 031333 321 15 0 00 031321 JUMPL AC+2,F30340 ;LOOP ON ERROR SWITCH^ 1615 1616 003035 ADR=ADR+1 1617 002000 000000 XX=XX+XX 1618 IFE XX, 1619 1620 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1621 MOP1 (\ADR,0,-1,XX,0,0)^ 1622 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1623 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1624 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1625 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1626 1627 000000 F30350: AA1=0 ;INITIAL C(AC) 1628 031334 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1629 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0047 1630 031335 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1631 002000 000000 AEE=XX ;INITIAL C(E) 1632 031336 200 11 0 00 044020 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1633 031337 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1634 000000 AR1=0 ;EXPECTED RESULT IN AC 1635 031340 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1636 031341 003 13 0 00 030351 ER3 AC,30351 ;HIGH PRODUCT FAILED 1637 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1638 031342 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1639 031343 004 14 0 00 030352 ER4 AC+1,30352 ;LOW PRODUCT FAILED 1640 002000 000000 AEE=XX ;INITIAL C(E) 1641 031344 312 11 0 00 044020 CAME E,[XX] ;WAS C(E) CLOBBERED? 1642 031345 005 11 0 00 030353 ER5 E,30353 ;C(E) WAS CLOBBERED 1643 031346 321 15 0 00 031334 JUMPL AC+2,F30350 ;LOOP ON ERROR SWITCH^ 1644 1645 003036 ADR=ADR+1 1646 004000 000000 XX=XX+XX 1647 IFE XX, 1648 1649 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1650 MOP1 (\ADR,0,-1,XX,0,0)^ 1651 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1652 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1653 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1654 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1655 1656 000000 F30360: AA1=0 ;INITIAL C(AC) 1657 031347 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1658 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1659 031350 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1660 004000 000000 AEE=XX ;INITIAL C(E) 1661 031351 200 11 0 00 044021 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1662 031352 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1663 000000 AR1=0 ;EXPECTED RESULT IN AC 1664 031353 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1665 031354 003 13 0 00 030361 ER3 AC,30361 ;HIGH PRODUCT FAILED 1666 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1667 031355 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1668 031356 004 14 0 00 030362 ER4 AC+1,30362 ;LOW PRODUCT FAILED 1669 004000 000000 AEE=XX ;INITIAL C(E) 1670 031357 312 11 0 00 044021 CAME E,[XX] ;WAS C(E) CLOBBERED? 1671 031360 005 11 0 00 030363 ER5 E,30363 ;C(E) WAS CLOBBERED 1672 031361 321 15 0 00 031347 JUMPL AC+2,F30360 ;LOOP ON ERROR SWITCH^ 1673 1674 003037 ADR=ADR+1 1675 010000 000000 XX=XX+XX 1676 IFE XX, 1677 1678 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1679 MOP1 (\ADR,0,-1,XX,0,0)^ 1680 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1681 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1682 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1683 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1684 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0048 1685 000000 F30370: AA1=0 ;INITIAL C(AC) 1686 031362 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1687 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1688 031363 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1689 010000 000000 AEE=XX ;INITIAL C(E) 1690 031364 200 11 0 00 044022 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1691 031365 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1692 000000 AR1=0 ;EXPECTED RESULT IN AC 1693 031366 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1694 031367 003 13 0 00 030371 ER3 AC,30371 ;HIGH PRODUCT FAILED 1695 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1696 031370 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1697 031371 004 14 0 00 030372 ER4 AC+1,30372 ;LOW PRODUCT FAILED 1698 010000 000000 AEE=XX ;INITIAL C(E) 1699 031372 312 11 0 00 044022 CAME E,[XX] ;WAS C(E) CLOBBERED? 1700 031373 005 11 0 00 030373 ER5 E,30373 ;C(E) WAS CLOBBERED 1701 031374 321 15 0 00 031362 JUMPL AC+2,F30370 ;LOOP ON ERROR SWITCH^ 1702 1703 003040 ADR=ADR+1 1704 020000 000000 XX=XX+XX 1705 IFE XX, 1706 1707 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1708 MOP1 (\ADR,0,-1,XX,0,0)^ 1709 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1710 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1711 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1712 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1713 1714 000000 F30400: AA1=0 ;INITIAL C(AC) 1715 031375 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1716 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1717 031376 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1718 020000 000000 AEE=XX ;INITIAL C(E) 1719 031377 200 11 0 00 044023 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1720 031400 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1721 000000 AR1=0 ;EXPECTED RESULT IN AC 1722 031401 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1723 031402 003 13 0 00 030401 ER3 AC,30401 ;HIGH PRODUCT FAILED 1724 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1725 031403 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1726 031404 004 14 0 00 030402 ER4 AC+1,30402 ;LOW PRODUCT FAILED 1727 020000 000000 AEE=XX ;INITIAL C(E) 1728 031405 312 11 0 00 044023 CAME E,[XX] ;WAS C(E) CLOBBERED? 1729 031406 005 11 0 00 030403 ER5 E,30403 ;C(E) WAS CLOBBERED 1730 031407 321 15 0 00 031375 JUMPL AC+2,F30400 ;LOOP ON ERROR SWITCH^ 1731 1732 003041 ADR=ADR+1 1733 040000 000000 XX=XX+XX 1734 IFE XX, 1735 1736 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1737 MOP1 (\ADR,0,-1,XX,0,0)^ 1738 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1739 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0049 1740 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1741 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1742 1743 000000 F30410: AA1=0 ;INITIAL C(AC) 1744 031410 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1745 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1746 031411 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1747 040000 000000 AEE=XX ;INITIAL C(E) 1748 031412 200 11 0 00 044024 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1749 031413 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1750 000000 AR1=0 ;EXPECTED RESULT IN AC 1751 031414 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1752 031415 003 13 0 00 030411 ER3 AC,30411 ;HIGH PRODUCT FAILED 1753 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1754 031416 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1755 031417 004 14 0 00 030412 ER4 AC+1,30412 ;LOW PRODUCT FAILED 1756 040000 000000 AEE=XX ;INITIAL C(E) 1757 031420 312 11 0 00 044024 CAME E,[XX] ;WAS C(E) CLOBBERED? 1758 031421 005 11 0 00 030413 ER5 E,30413 ;C(E) WAS CLOBBERED 1759 031422 321 15 0 00 031410 JUMPL AC+2,F30410 ;LOOP ON ERROR SWITCH^ 1760 1761 003042 ADR=ADR+1 1762 100000 000000 XX=XX+XX 1763 IFE XX, 1764 1765 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1766 MOP1 (\ADR,0,-1,XX,0,0)^ 1767 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1768 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1769 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1770 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1771 1772 000000 F30420: AA1=0 ;INITIAL C(AC) 1773 031423 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1774 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1775 031424 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1776 100000 000000 AEE=XX ;INITIAL C(E) 1777 031425 200 11 0 00 044025 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1778 031426 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1779 000000 AR1=0 ;EXPECTED RESULT IN AC 1780 031427 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1781 031430 003 13 0 00 030421 ER3 AC,30421 ;HIGH PRODUCT FAILED 1782 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1783 031431 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1784 031432 004 14 0 00 030422 ER4 AC+1,30422 ;LOW PRODUCT FAILED 1785 100000 000000 AEE=XX ;INITIAL C(E) 1786 031433 312 11 0 00 044025 CAME E,[XX] ;WAS C(E) CLOBBERED? 1787 031434 005 11 0 00 030423 ER5 E,30423 ;C(E) WAS CLOBBERED 1788 031435 321 15 0 00 031423 JUMPL AC+2,F30420 ;LOOP ON ERROR SWITCH^ 1789 1790 003043 ADR=ADR+1 1791 200000 000000 XX=XX+XX 1792 IFE XX, 1793 1794 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 2-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0050 1795 MOP1 (\ADR,0,-1,XX,0,0)^ 1796 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1797 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1798 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1799 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1800 1801 000000 F30430: AA1=0 ;INITIAL C(AC) 1802 031436 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1803 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1804 031437 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1805 200000 000000 AEE=XX ;INITIAL C(E) 1806 031440 200 11 0 00 044026 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1807 031441 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1808 000000 AR1=0 ;EXPECTED RESULT IN AC 1809 031442 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1810 031443 003 13 0 00 030431 ER3 AC,30431 ;HIGH PRODUCT FAILED 1811 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1812 031444 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1813 031445 004 14 0 00 030432 ER4 AC+1,30432 ;LOW PRODUCT FAILED 1814 200000 000000 AEE=XX ;INITIAL C(E) 1815 031446 312 11 0 00 044026 CAME E,[XX] ;WAS C(E) CLOBBERED? 1816 031447 005 11 0 00 030433 ER5 E,30433 ;C(E) WAS CLOBBERED 1817 031450 321 15 0 00 031436 JUMPL AC+2,F30430 ;LOOP ON ERROR SWITCH^ 1818 1819 003044 ADR=ADR+1 1820 400000 000000 XX=XX+XX 1821 IFE XX, 1822 1823 ;MULTIPLY RIPPLED 1 BY 0 TO GET PRODUCT OF 0 1824 MOP1 (\ADR,0,-1,XX,0,0)^ 1825 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1826 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1827 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1828 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1829 1830 000000 F30440: AA1=0 ;INITIAL C(AC) 1831 031451 200 13 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1832 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1833 031452 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1834 400000 000000 AEE=XX ;INITIAL C(E) 1835 031453 200 11 0 00 044027 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1836 031454 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1837 000000 AR1=0 ;EXPECTED RESULT IN AC 1838 031455 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1839 031456 003 13 0 00 030441 ER3 AC,30441 ;HIGH PRODUCT FAILED 1840 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1841 031457 312 14 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1842 031460 004 14 0 00 030442 ER4 AC+1,30442 ;LOW PRODUCT FAILED 1843 400000 000000 AEE=XX ;INITIAL C(E) 1844 031461 312 11 0 00 044027 CAME E,[XX] ;WAS C(E) CLOBBERED? 1845 031462 005 11 0 00 030443 ER5 E,30443 ;C(E) WAS CLOBBERED 1846 031463 321 15 0 00 031451 JUMPL AC+2,F30440 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0051 1847 000012 AC=12 1848 000010 E=&17 1849 SAVEAC (1,1)^ 1850 031464 201 14 0 00 031464 MOVEI AC+2,. ;SAVE TEST PC 1851 031465 202 14 0 00 030051 MOVEM AC+2,TESTPC 1852 031466 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1853 031467 202 14 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1854 000000 XX=0 1855 1856 REPEAT ^D36,< 1857 ADR=ADR+1 1858 XX=XX+XX+1 1859 IFE , 1860 1861 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1862 MOP1 (\ADR,0,-1,XX,0,0)> 1863 1864 003045 ADR=ADR+1 1865 000001 XX=XX+XX+1 1866 777777 777776 IFE , 1867 1868 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1869 MOP1 (\ADR,0,-1,XX,0,0)^ 1870 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1871 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1872 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1873 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1874 1875 000000 F30450: AA1=0 ;INITIAL C(AC) 1876 031470 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1877 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1878 031471 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1879 777777 777776 AEE=XX ;INITIAL C(E) 1880 031472 200 10 0 00 044030 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1881 031473 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1882 000000 AR1=0 ;EXPECTED RESULT IN AC 1883 031474 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1884 031475 003 12 0 00 030451 ER3 AC,30451 ;HIGH PRODUCT FAILED 1885 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1886 031476 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1887 031477 004 13 0 00 030452 ER4 AC+1,30452 ;LOW PRODUCT FAILED 1888 777777 777776 AEE=XX ;INITIAL C(E) 1889 031500 312 10 0 00 044030 CAME E,[XX] ;WAS C(E) CLOBBERED? 1890 031501 005 10 0 00 030453 ER5 E,30453 ;C(E) WAS CLOBBERED 1891 031502 321 14 0 00 031470 JUMPL AC+2,F30450 ;LOOP ON ERROR SWITCH^ 1892 1893 003046 ADR=ADR+1 1894 777777 777775 XX=XX+XX+1 1895 IFE , 1896 1897 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1898 MOP1 (\ADR,0,-1,XX,0,0)^ 1899 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1900 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1901 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0052 1902 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1903 1904 000000 F30460: AA1=0 ;INITIAL C(AC) 1905 031503 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1906 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1907 031504 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1908 777777 777775 AEE=XX ;INITIAL C(E) 1909 031505 200 10 0 00 044031 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1910 031506 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1911 000000 AR1=0 ;EXPECTED RESULT IN AC 1912 031507 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1913 031510 003 12 0 00 030461 ER3 AC,30461 ;HIGH PRODUCT FAILED 1914 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1915 031511 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1916 031512 004 13 0 00 030462 ER4 AC+1,30462 ;LOW PRODUCT FAILED 1917 777777 777775 AEE=XX ;INITIAL C(E) 1918 031513 312 10 0 00 044031 CAME E,[XX] ;WAS C(E) CLOBBERED? 1919 031514 005 10 0 00 030463 ER5 E,30463 ;C(E) WAS CLOBBERED 1920 031515 321 14 0 00 031503 JUMPL AC+2,F30460 ;LOOP ON ERROR SWITCH^ 1921 1922 003047 ADR=ADR+1 1923 777777 777773 XX=XX+XX+1 1924 IFE , 1925 1926 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1927 MOP1 (\ADR,0,-1,XX,0,0)^ 1928 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1929 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1930 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1931 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1932 1933 000000 F30470: AA1=0 ;INITIAL C(AC) 1934 031516 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1935 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1936 031517 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1937 777777 777773 AEE=XX ;INITIAL C(E) 1938 031520 200 10 0 00 044032 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1939 031521 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1940 000000 AR1=0 ;EXPECTED RESULT IN AC 1941 031522 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1942 031523 003 12 0 00 030471 ER3 AC,30471 ;HIGH PRODUCT FAILED 1943 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1944 031524 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1945 031525 004 13 0 00 030472 ER4 AC+1,30472 ;LOW PRODUCT FAILED 1946 777777 777773 AEE=XX ;INITIAL C(E) 1947 031526 312 10 0 00 044032 CAME E,[XX] ;WAS C(E) CLOBBERED? 1948 031527 005 10 0 00 030473 ER5 E,30473 ;C(E) WAS CLOBBERED 1949 031530 321 14 0 00 031516 JUMPL AC+2,F30470 ;LOOP ON ERROR SWITCH^ 1950 1951 003050 ADR=ADR+1 1952 777777 777767 XX=XX+XX+1 1953 IFE , 1954 1955 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1956 MOP1 (\ADR,0,-1,XX,0,0)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0053 1957 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1958 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1959 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1960 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1961 1962 000000 F30500: AA1=0 ;INITIAL C(AC) 1963 031531 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1964 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1965 031532 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1966 777777 777767 AEE=XX ;INITIAL C(E) 1967 031533 200 10 0 00 044033 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1968 031534 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1969 000000 AR1=0 ;EXPECTED RESULT IN AC 1970 031535 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 1971 031536 003 12 0 00 030501 ER3 AC,30501 ;HIGH PRODUCT FAILED 1972 000000 AR2=0 ;EXPECTED RESULT IN AC+1 1973 031537 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 1974 031540 004 13 0 00 030502 ER4 AC+1,30502 ;LOW PRODUCT FAILED 1975 777777 777767 AEE=XX ;INITIAL C(E) 1976 031541 312 10 0 00 044033 CAME E,[XX] ;WAS C(E) CLOBBERED? 1977 031542 005 10 0 00 030503 ER5 E,30503 ;C(E) WAS CLOBBERED 1978 031543 321 14 0 00 031531 JUMPL AC+2,F30500 ;LOOP ON ERROR SWITCH^ 1979 1980 003051 ADR=ADR+1 1981 777777 777757 XX=XX+XX+1 1982 IFE , 1983 1984 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 1985 MOP1 (\ADR,0,-1,XX,0,0)^ 1986 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 1987 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1988 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 1989 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1990 1991 000000 F30510: AA1=0 ;INITIAL C(AC) 1992 031544 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 1993 777777 777777 AA2=-1 ;INITIAL C(AC+1) 1994 031545 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 1995 777777 777757 AEE=XX ;INITIAL C(E) 1996 031546 200 10 0 00 044034 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1997 031547 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1998 000000 AR1=0 ;EXPECTED RESULT IN AC 1999 031550 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2000 031551 003 12 0 00 030511 ER3 AC,30511 ;HIGH PRODUCT FAILED 2001 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2002 031552 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2003 031553 004 13 0 00 030512 ER4 AC+1,30512 ;LOW PRODUCT FAILED 2004 777777 777757 AEE=XX ;INITIAL C(E) 2005 031554 312 10 0 00 044034 CAME E,[XX] ;WAS C(E) CLOBBERED? 2006 031555 005 10 0 00 030513 ER5 E,30513 ;C(E) WAS CLOBBERED 2007 031556 321 14 0 00 031544 JUMPL AC+2,F30510 ;LOOP ON ERROR SWITCH^ 2008 2009 003052 ADR=ADR+1 2010 777777 777737 XX=XX+XX+1 2011 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0054 2012 2013 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2014 MOP1 (\ADR,0,-1,XX,0,0)^ 2015 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2016 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2017 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2018 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2019 2020 000000 F30520: AA1=0 ;INITIAL C(AC) 2021 031557 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2022 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2023 031560 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2024 777777 777737 AEE=XX ;INITIAL C(E) 2025 031561 200 10 0 00 044035 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2026 031562 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2027 000000 AR1=0 ;EXPECTED RESULT IN AC 2028 031563 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2029 031564 003 12 0 00 030521 ER3 AC,30521 ;HIGH PRODUCT FAILED 2030 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2031 031565 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2032 031566 004 13 0 00 030522 ER4 AC+1,30522 ;LOW PRODUCT FAILED 2033 777777 777737 AEE=XX ;INITIAL C(E) 2034 031567 312 10 0 00 044035 CAME E,[XX] ;WAS C(E) CLOBBERED? 2035 031570 005 10 0 00 030523 ER5 E,30523 ;C(E) WAS CLOBBERED 2036 031571 321 14 0 00 031557 JUMPL AC+2,F30520 ;LOOP ON ERROR SWITCH^ 2037 2038 003053 ADR=ADR+1 2039 777777 777677 XX=XX+XX+1 2040 IFE , 2041 2042 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2043 MOP1 (\ADR,0,-1,XX,0,0)^ 2044 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2045 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2046 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2047 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2048 2049 000000 F30530: AA1=0 ;INITIAL C(AC) 2050 031572 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2051 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2052 031573 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2053 777777 777677 AEE=XX ;INITIAL C(E) 2054 031574 200 10 0 00 044036 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2055 031575 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2056 000000 AR1=0 ;EXPECTED RESULT IN AC 2057 031576 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2058 031577 003 12 0 00 030531 ER3 AC,30531 ;HIGH PRODUCT FAILED 2059 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2060 031600 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2061 031601 004 13 0 00 030532 ER4 AC+1,30532 ;LOW PRODUCT FAILED 2062 777777 777677 AEE=XX ;INITIAL C(E) 2063 031602 312 10 0 00 044036 CAME E,[XX] ;WAS C(E) CLOBBERED? 2064 031603 005 10 0 00 030533 ER5 E,30533 ;C(E) WAS CLOBBERED 2065 031604 321 14 0 00 031572 JUMPL AC+2,F30530 ;LOOP ON ERROR SWITCH^ 2066 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0055 2067 003054 ADR=ADR+1 2068 777777 777577 XX=XX+XX+1 2069 IFE , 2070 2071 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2072 MOP1 (\ADR,0,-1,XX,0,0)^ 2073 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2074 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2075 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2076 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2077 2078 000000 F30540: AA1=0 ;INITIAL C(AC) 2079 031605 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2080 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2081 031606 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2082 777777 777577 AEE=XX ;INITIAL C(E) 2083 031607 200 10 0 00 044037 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2084 031610 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2085 000000 AR1=0 ;EXPECTED RESULT IN AC 2086 031611 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2087 031612 003 12 0 00 030541 ER3 AC,30541 ;HIGH PRODUCT FAILED 2088 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2089 031613 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2090 031614 004 13 0 00 030542 ER4 AC+1,30542 ;LOW PRODUCT FAILED 2091 777777 777577 AEE=XX ;INITIAL C(E) 2092 031615 312 10 0 00 044037 CAME E,[XX] ;WAS C(E) CLOBBERED? 2093 031616 005 10 0 00 030543 ER5 E,30543 ;C(E) WAS CLOBBERED 2094 031617 321 14 0 00 031605 JUMPL AC+2,F30540 ;LOOP ON ERROR SWITCH^ 2095 2096 003055 ADR=ADR+1 2097 777777 777377 XX=XX+XX+1 2098 IFE , 2099 2100 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2101 MOP1 (\ADR,0,-1,XX,0,0)^ 2102 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2103 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2104 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2105 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2106 2107 000000 F30550: AA1=0 ;INITIAL C(AC) 2108 031620 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2109 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2110 031621 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2111 777777 777377 AEE=XX ;INITIAL C(E) 2112 031622 200 10 0 00 044040 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2113 031623 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2114 000000 AR1=0 ;EXPECTED RESULT IN AC 2115 031624 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2116 031625 003 12 0 00 030551 ER3 AC,30551 ;HIGH PRODUCT FAILED 2117 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2118 031626 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2119 031627 004 13 0 00 030552 ER4 AC+1,30552 ;LOW PRODUCT FAILED 2120 777777 777377 AEE=XX ;INITIAL C(E) 2121 031630 312 10 0 00 044040 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0056 2122 031631 005 10 0 00 030553 ER5 E,30553 ;C(E) WAS CLOBBERED 2123 031632 321 14 0 00 031620 JUMPL AC+2,F30550 ;LOOP ON ERROR SWITCH^ 2124 2125 003056 ADR=ADR+1 2126 777777 776777 XX=XX+XX+1 2127 IFE , 2128 2129 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2130 MOP1 (\ADR,0,-1,XX,0,0)^ 2131 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2132 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2133 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2134 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2135 2136 000000 F30560: AA1=0 ;INITIAL C(AC) 2137 031633 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2138 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2139 031634 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2140 777777 776777 AEE=XX ;INITIAL C(E) 2141 031635 200 10 0 00 044041 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2142 031636 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2143 000000 AR1=0 ;EXPECTED RESULT IN AC 2144 031637 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2145 031640 003 12 0 00 030561 ER3 AC,30561 ;HIGH PRODUCT FAILED 2146 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2147 031641 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2148 031642 004 13 0 00 030562 ER4 AC+1,30562 ;LOW PRODUCT FAILED 2149 777777 776777 AEE=XX ;INITIAL C(E) 2150 031643 312 10 0 00 044041 CAME E,[XX] ;WAS C(E) CLOBBERED? 2151 031644 005 10 0 00 030563 ER5 E,30563 ;C(E) WAS CLOBBERED 2152 031645 321 14 0 00 031633 JUMPL AC+2,F30560 ;LOOP ON ERROR SWITCH^ 2153 2154 003057 ADR=ADR+1 2155 777777 775777 XX=XX+XX+1 2156 IFE , 2157 2158 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2159 MOP1 (\ADR,0,-1,XX,0,0)^ 2160 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2161 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2162 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2163 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2164 2165 000000 F30570: AA1=0 ;INITIAL C(AC) 2166 031646 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2167 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2168 031647 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2169 777777 775777 AEE=XX ;INITIAL C(E) 2170 031650 200 10 0 00 044042 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2171 031651 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2172 000000 AR1=0 ;EXPECTED RESULT IN AC 2173 031652 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2174 031653 003 12 0 00 030571 ER3 AC,30571 ;HIGH PRODUCT FAILED 2175 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2176 031654 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0057 2177 031655 004 13 0 00 030572 ER4 AC+1,30572 ;LOW PRODUCT FAILED 2178 777777 775777 AEE=XX ;INITIAL C(E) 2179 031656 312 10 0 00 044042 CAME E,[XX] ;WAS C(E) CLOBBERED? 2180 031657 005 10 0 00 030573 ER5 E,30573 ;C(E) WAS CLOBBERED 2181 031660 321 14 0 00 031646 JUMPL AC+2,F30570 ;LOOP ON ERROR SWITCH^ 2182 2183 003060 ADR=ADR+1 2184 777777 773777 XX=XX+XX+1 2185 IFE , 2186 2187 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2188 MOP1 (\ADR,0,-1,XX,0,0)^ 2189 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2190 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2191 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2192 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2193 2194 000000 F30600: AA1=0 ;INITIAL C(AC) 2195 031661 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2196 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2197 031662 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2198 777777 773777 AEE=XX ;INITIAL C(E) 2199 031663 200 10 0 00 044043 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2200 031664 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2201 000000 AR1=0 ;EXPECTED RESULT IN AC 2202 031665 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2203 031666 003 12 0 00 030601 ER3 AC,30601 ;HIGH PRODUCT FAILED 2204 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2205 031667 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2206 031670 004 13 0 00 030602 ER4 AC+1,30602 ;LOW PRODUCT FAILED 2207 777777 773777 AEE=XX ;INITIAL C(E) 2208 031671 312 10 0 00 044043 CAME E,[XX] ;WAS C(E) CLOBBERED? 2209 031672 005 10 0 00 030603 ER5 E,30603 ;C(E) WAS CLOBBERED 2210 031673 321 14 0 00 031661 JUMPL AC+2,F30600 ;LOOP ON ERROR SWITCH^ 2211 2212 003061 ADR=ADR+1 2213 777777 767777 XX=XX+XX+1 2214 IFE , 2215 2216 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2217 MOP1 (\ADR,0,-1,XX,0,0)^ 2218 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2219 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2220 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2221 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2222 2223 000000 F30610: AA1=0 ;INITIAL C(AC) 2224 031674 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2225 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2226 031675 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2227 777777 767777 AEE=XX ;INITIAL C(E) 2228 031676 200 10 0 00 044044 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2229 031677 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2230 000000 AR1=0 ;EXPECTED RESULT IN AC 2231 031700 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0058 2232 031701 003 12 0 00 030611 ER3 AC,30611 ;HIGH PRODUCT FAILED 2233 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2234 031702 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2235 031703 004 13 0 00 030612 ER4 AC+1,30612 ;LOW PRODUCT FAILED 2236 777777 767777 AEE=XX ;INITIAL C(E) 2237 031704 312 10 0 00 044044 CAME E,[XX] ;WAS C(E) CLOBBERED? 2238 031705 005 10 0 00 030613 ER5 E,30613 ;C(E) WAS CLOBBERED 2239 031706 321 14 0 00 031674 JUMPL AC+2,F30610 ;LOOP ON ERROR SWITCH^ 2240 2241 003062 ADR=ADR+1 2242 777777 757777 XX=XX+XX+1 2243 IFE , 2244 2245 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2246 MOP1 (\ADR,0,-1,XX,0,0)^ 2247 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2248 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2249 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2250 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2251 2252 000000 F30620: AA1=0 ;INITIAL C(AC) 2253 031707 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2254 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2255 031710 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2256 777777 757777 AEE=XX ;INITIAL C(E) 2257 031711 200 10 0 00 044045 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2258 031712 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2259 000000 AR1=0 ;EXPECTED RESULT IN AC 2260 031713 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2261 031714 003 12 0 00 030621 ER3 AC,30621 ;HIGH PRODUCT FAILED 2262 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2263 031715 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2264 031716 004 13 0 00 030622 ER4 AC+1,30622 ;LOW PRODUCT FAILED 2265 777777 757777 AEE=XX ;INITIAL C(E) 2266 031717 312 10 0 00 044045 CAME E,[XX] ;WAS C(E) CLOBBERED? 2267 031720 005 10 0 00 030623 ER5 E,30623 ;C(E) WAS CLOBBERED 2268 031721 321 14 0 00 031707 JUMPL AC+2,F30620 ;LOOP ON ERROR SWITCH^ 2269 2270 003063 ADR=ADR+1 2271 777777 737777 XX=XX+XX+1 2272 IFE , 2273 2274 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2275 MOP1 (\ADR,0,-1,XX,0,0)^ 2276 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2277 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2278 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2279 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2280 2281 000000 F30630: AA1=0 ;INITIAL C(AC) 2282 031722 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2283 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2284 031723 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2285 777777 737777 AEE=XX ;INITIAL C(E) 2286 031724 200 10 0 00 044046 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0059 2287 031725 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2288 000000 AR1=0 ;EXPECTED RESULT IN AC 2289 031726 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2290 031727 003 12 0 00 030631 ER3 AC,30631 ;HIGH PRODUCT FAILED 2291 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2292 031730 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2293 031731 004 13 0 00 030632 ER4 AC+1,30632 ;LOW PRODUCT FAILED 2294 777777 737777 AEE=XX ;INITIAL C(E) 2295 031732 312 10 0 00 044046 CAME E,[XX] ;WAS C(E) CLOBBERED? 2296 031733 005 10 0 00 030633 ER5 E,30633 ;C(E) WAS CLOBBERED 2297 031734 321 14 0 00 031722 JUMPL AC+2,F30630 ;LOOP ON ERROR SWITCH^ 2298 2299 003064 ADR=ADR+1 2300 777777 677777 XX=XX+XX+1 2301 IFE , 2302 2303 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2304 MOP1 (\ADR,0,-1,XX,0,0)^ 2305 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2306 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2307 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2308 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2309 2310 000000 F30640: AA1=0 ;INITIAL C(AC) 2311 031735 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2312 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2313 031736 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2314 777777 677777 AEE=XX ;INITIAL C(E) 2315 031737 200 10 0 00 044047 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2316 031740 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2317 000000 AR1=0 ;EXPECTED RESULT IN AC 2318 031741 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2319 031742 003 12 0 00 030641 ER3 AC,30641 ;HIGH PRODUCT FAILED 2320 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2321 031743 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2322 031744 004 13 0 00 030642 ER4 AC+1,30642 ;LOW PRODUCT FAILED 2323 777777 677777 AEE=XX ;INITIAL C(E) 2324 031745 312 10 0 00 044047 CAME E,[XX] ;WAS C(E) CLOBBERED? 2325 031746 005 10 0 00 030643 ER5 E,30643 ;C(E) WAS CLOBBERED 2326 031747 321 14 0 00 031735 JUMPL AC+2,F30640 ;LOOP ON ERROR SWITCH^ 2327 2328 003065 ADR=ADR+1 2329 777777 577777 XX=XX+XX+1 2330 IFE , 2331 2332 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2333 MOP1 (\ADR,0,-1,XX,0,0)^ 2334 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2335 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2336 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2337 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2338 2339 000000 F30650: AA1=0 ;INITIAL C(AC) 2340 031750 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2341 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0060 2342 031751 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2343 777777 577777 AEE=XX ;INITIAL C(E) 2344 031752 200 10 0 00 044050 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2345 031753 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2346 000000 AR1=0 ;EXPECTED RESULT IN AC 2347 031754 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2348 031755 003 12 0 00 030651 ER3 AC,30651 ;HIGH PRODUCT FAILED 2349 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2350 031756 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2351 031757 004 13 0 00 030652 ER4 AC+1,30652 ;LOW PRODUCT FAILED 2352 777777 577777 AEE=XX ;INITIAL C(E) 2353 031760 312 10 0 00 044050 CAME E,[XX] ;WAS C(E) CLOBBERED? 2354 031761 005 10 0 00 030653 ER5 E,30653 ;C(E) WAS CLOBBERED 2355 031762 321 14 0 00 031750 JUMPL AC+2,F30650 ;LOOP ON ERROR SWITCH^ 2356 2357 003066 ADR=ADR+1 2358 777777 377777 XX=XX+XX+1 2359 IFE , 2360 2361 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2362 MOP1 (\ADR,0,-1,XX,0,0)^ 2363 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2364 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2365 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2366 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2367 2368 000000 F30660: AA1=0 ;INITIAL C(AC) 2369 031763 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2370 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2371 031764 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2372 777777 377777 AEE=XX ;INITIAL C(E) 2373 031765 200 10 0 00 044051 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2374 031766 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2375 000000 AR1=0 ;EXPECTED RESULT IN AC 2376 031767 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2377 031770 003 12 0 00 030661 ER3 AC,30661 ;HIGH PRODUCT FAILED 2378 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2379 031771 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2380 031772 004 13 0 00 030662 ER4 AC+1,30662 ;LOW PRODUCT FAILED 2381 777777 377777 AEE=XX ;INITIAL C(E) 2382 031773 312 10 0 00 044051 CAME E,[XX] ;WAS C(E) CLOBBERED? 2383 031774 005 10 0 00 030663 ER5 E,30663 ;C(E) WAS CLOBBERED 2384 031775 321 14 0 00 031763 JUMPL AC+2,F30660 ;LOOP ON ERROR SWITCH^ 2385 2386 003067 ADR=ADR+1 2387 777776 777777 XX=XX+XX+1 2388 IFE , 2389 2390 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2391 MOP1 (\ADR,0,-1,XX,0,0)^ 2392 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2393 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2394 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2395 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2396 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0061 2397 000000 F30670: AA1=0 ;INITIAL C(AC) 2398 031776 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2399 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2400 031777 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2401 777776 777777 AEE=XX ;INITIAL C(E) 2402 032000 200 10 0 00 044052 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2403 032001 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2404 000000 AR1=0 ;EXPECTED RESULT IN AC 2405 032002 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2406 032003 003 12 0 00 030671 ER3 AC,30671 ;HIGH PRODUCT FAILED 2407 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2408 032004 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2409 032005 004 13 0 00 030672 ER4 AC+1,30672 ;LOW PRODUCT FAILED 2410 777776 777777 AEE=XX ;INITIAL C(E) 2411 032006 312 10 0 00 044052 CAME E,[XX] ;WAS C(E) CLOBBERED? 2412 032007 005 10 0 00 030673 ER5 E,30673 ;C(E) WAS CLOBBERED 2413 032010 321 14 0 00 031776 JUMPL AC+2,F30670 ;LOOP ON ERROR SWITCH^ 2414 2415 003070 ADR=ADR+1 2416 777775 777777 XX=XX+XX+1 2417 IFE , 2418 2419 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2420 MOP1 (\ADR,0,-1,XX,0,0)^ 2421 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2422 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2423 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2424 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2425 2426 000000 F30700: AA1=0 ;INITIAL C(AC) 2427 032011 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2428 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2429 032012 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2430 777775 777777 AEE=XX ;INITIAL C(E) 2431 032013 200 10 0 00 044053 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2432 032014 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2433 000000 AR1=0 ;EXPECTED RESULT IN AC 2434 032015 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2435 032016 003 12 0 00 030701 ER3 AC,30701 ;HIGH PRODUCT FAILED 2436 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2437 032017 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2438 032020 004 13 0 00 030702 ER4 AC+1,30702 ;LOW PRODUCT FAILED 2439 777775 777777 AEE=XX ;INITIAL C(E) 2440 032021 312 10 0 00 044053 CAME E,[XX] ;WAS C(E) CLOBBERED? 2441 032022 005 10 0 00 030703 ER5 E,30703 ;C(E) WAS CLOBBERED 2442 032023 321 14 0 00 032011 JUMPL AC+2,F30700 ;LOOP ON ERROR SWITCH^ 2443 2444 003071 ADR=ADR+1 2445 777773 777777 XX=XX+XX+1 2446 IFE , 2447 2448 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2449 MOP1 (\ADR,0,-1,XX,0,0)^ 2450 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2451 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0062 2452 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2453 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2454 2455 000000 F30710: AA1=0 ;INITIAL C(AC) 2456 032024 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2457 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2458 032025 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2459 777773 777777 AEE=XX ;INITIAL C(E) 2460 032026 200 10 0 00 044054 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2461 032027 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2462 000000 AR1=0 ;EXPECTED RESULT IN AC 2463 032030 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2464 032031 003 12 0 00 030711 ER3 AC,30711 ;HIGH PRODUCT FAILED 2465 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2466 032032 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2467 032033 004 13 0 00 030712 ER4 AC+1,30712 ;LOW PRODUCT FAILED 2468 777773 777777 AEE=XX ;INITIAL C(E) 2469 032034 312 10 0 00 044054 CAME E,[XX] ;WAS C(E) CLOBBERED? 2470 032035 005 10 0 00 030713 ER5 E,30713 ;C(E) WAS CLOBBERED 2471 032036 321 14 0 00 032024 JUMPL AC+2,F30710 ;LOOP ON ERROR SWITCH^ 2472 2473 003072 ADR=ADR+1 2474 777767 777777 XX=XX+XX+1 2475 IFE , 2476 2477 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2478 MOP1 (\ADR,0,-1,XX,0,0)^ 2479 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2480 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2481 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2482 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2483 2484 000000 F30720: AA1=0 ;INITIAL C(AC) 2485 032037 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2486 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2487 032040 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2488 777767 777777 AEE=XX ;INITIAL C(E) 2489 032041 200 10 0 00 044055 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2490 032042 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2491 000000 AR1=0 ;EXPECTED RESULT IN AC 2492 032043 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2493 032044 003 12 0 00 030721 ER3 AC,30721 ;HIGH PRODUCT FAILED 2494 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2495 032045 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2496 032046 004 13 0 00 030722 ER4 AC+1,30722 ;LOW PRODUCT FAILED 2497 777767 777777 AEE=XX ;INITIAL C(E) 2498 032047 312 10 0 00 044055 CAME E,[XX] ;WAS C(E) CLOBBERED? 2499 032050 005 10 0 00 030723 ER5 E,30723 ;C(E) WAS CLOBBERED 2500 032051 321 14 0 00 032037 JUMPL AC+2,F30720 ;LOOP ON ERROR SWITCH^ 2501 2502 003073 ADR=ADR+1 2503 777757 777777 XX=XX+XX+1 2504 IFE , 2505 2506 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0063 2507 MOP1 (\ADR,0,-1,XX,0,0)^ 2508 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2509 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2510 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2511 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2512 2513 000000 F30730: AA1=0 ;INITIAL C(AC) 2514 032052 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2515 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2516 032053 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2517 777757 777777 AEE=XX ;INITIAL C(E) 2518 032054 200 10 0 00 044056 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2519 032055 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2520 000000 AR1=0 ;EXPECTED RESULT IN AC 2521 032056 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2522 032057 003 12 0 00 030731 ER3 AC,30731 ;HIGH PRODUCT FAILED 2523 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2524 032060 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2525 032061 004 13 0 00 030732 ER4 AC+1,30732 ;LOW PRODUCT FAILED 2526 777757 777777 AEE=XX ;INITIAL C(E) 2527 032062 312 10 0 00 044056 CAME E,[XX] ;WAS C(E) CLOBBERED? 2528 032063 005 10 0 00 030733 ER5 E,30733 ;C(E) WAS CLOBBERED 2529 032064 321 14 0 00 032052 JUMPL AC+2,F30730 ;LOOP ON ERROR SWITCH^ 2530 2531 003074 ADR=ADR+1 2532 777737 777777 XX=XX+XX+1 2533 IFE , 2534 2535 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2536 MOP1 (\ADR,0,-1,XX,0,0)^ 2537 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2538 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2539 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2540 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2541 2542 000000 F30740: AA1=0 ;INITIAL C(AC) 2543 032065 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2544 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2545 032066 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2546 777737 777777 AEE=XX ;INITIAL C(E) 2547 032067 200 10 0 00 044057 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2548 032070 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2549 000000 AR1=0 ;EXPECTED RESULT IN AC 2550 032071 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2551 032072 003 12 0 00 030741 ER3 AC,30741 ;HIGH PRODUCT FAILED 2552 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2553 032073 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2554 032074 004 13 0 00 030742 ER4 AC+1,30742 ;LOW PRODUCT FAILED 2555 777737 777777 AEE=XX ;INITIAL C(E) 2556 032075 312 10 0 00 044057 CAME E,[XX] ;WAS C(E) CLOBBERED? 2557 032076 005 10 0 00 030743 ER5 E,30743 ;C(E) WAS CLOBBERED 2558 032077 321 14 0 00 032065 JUMPL AC+2,F30740 ;LOOP ON ERROR SWITCH^ 2559 2560 003075 ADR=ADR+1 2561 777677 777777 XX=XX+XX+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0064 2562 IFE , 2563 2564 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2565 MOP1 (\ADR,0,-1,XX,0,0)^ 2566 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2567 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2568 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2569 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2570 2571 000000 F30750: AA1=0 ;INITIAL C(AC) 2572 032100 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2573 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2574 032101 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2575 777677 777777 AEE=XX ;INITIAL C(E) 2576 032102 200 10 0 00 044060 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2577 032103 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2578 000000 AR1=0 ;EXPECTED RESULT IN AC 2579 032104 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2580 032105 003 12 0 00 030751 ER3 AC,30751 ;HIGH PRODUCT FAILED 2581 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2582 032106 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2583 032107 004 13 0 00 030752 ER4 AC+1,30752 ;LOW PRODUCT FAILED 2584 777677 777777 AEE=XX ;INITIAL C(E) 2585 032110 312 10 0 00 044060 CAME E,[XX] ;WAS C(E) CLOBBERED? 2586 032111 005 10 0 00 030753 ER5 E,30753 ;C(E) WAS CLOBBERED 2587 032112 321 14 0 00 032100 JUMPL AC+2,F30750 ;LOOP ON ERROR SWITCH^ 2588 2589 003076 ADR=ADR+1 2590 777577 777777 XX=XX+XX+1 2591 IFE , 2592 2593 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2594 MOP1 (\ADR,0,-1,XX,0,0)^ 2595 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2596 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2597 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2598 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2599 2600 000000 F30760: AA1=0 ;INITIAL C(AC) 2601 032113 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2602 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2603 032114 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2604 777577 777777 AEE=XX ;INITIAL C(E) 2605 032115 200 10 0 00 044061 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2606 032116 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2607 000000 AR1=0 ;EXPECTED RESULT IN AC 2608 032117 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2609 032120 003 12 0 00 030761 ER3 AC,30761 ;HIGH PRODUCT FAILED 2610 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2611 032121 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2612 032122 004 13 0 00 030762 ER4 AC+1,30762 ;LOW PRODUCT FAILED 2613 777577 777777 AEE=XX ;INITIAL C(E) 2614 032123 312 10 0 00 044061 CAME E,[XX] ;WAS C(E) CLOBBERED? 2615 032124 005 10 0 00 030763 ER5 E,30763 ;C(E) WAS CLOBBERED 2616 032125 321 14 0 00 032113 JUMPL AC+2,F30760 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0065 2617 2618 003077 ADR=ADR+1 2619 777377 777777 XX=XX+XX+1 2620 IFE , 2621 2622 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2623 MOP1 (\ADR,0,-1,XX,0,0)^ 2624 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2625 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2626 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2627 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2628 2629 000000 F30770: AA1=0 ;INITIAL C(AC) 2630 032126 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2631 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2632 032127 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2633 777377 777777 AEE=XX ;INITIAL C(E) 2634 032130 200 10 0 00 044062 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2635 032131 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2636 000000 AR1=0 ;EXPECTED RESULT IN AC 2637 032132 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2638 032133 003 12 0 00 030771 ER3 AC,30771 ;HIGH PRODUCT FAILED 2639 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2640 032134 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2641 032135 004 13 0 00 030772 ER4 AC+1,30772 ;LOW PRODUCT FAILED 2642 777377 777777 AEE=XX ;INITIAL C(E) 2643 032136 312 10 0 00 044062 CAME E,[XX] ;WAS C(E) CLOBBERED? 2644 032137 005 10 0 00 030773 ER5 E,30773 ;C(E) WAS CLOBBERED 2645 032140 321 14 0 00 032126 JUMPL AC+2,F30770 ;LOOP ON ERROR SWITCH^ 2646 2647 003100 ADR=ADR+1 2648 776777 777777 XX=XX+XX+1 2649 IFE , 2650 2651 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2652 MOP1 (\ADR,0,-1,XX,0,0)^ 2653 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2654 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2655 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2656 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2657 2658 000000 F31000: AA1=0 ;INITIAL C(AC) 2659 032141 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2660 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2661 032142 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2662 776777 777777 AEE=XX ;INITIAL C(E) 2663 032143 200 10 0 00 044063 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2664 032144 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2665 000000 AR1=0 ;EXPECTED RESULT IN AC 2666 032145 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2667 032146 003 12 0 00 031001 ER3 AC,31001 ;HIGH PRODUCT FAILED 2668 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2669 032147 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2670 032150 004 13 0 00 031002 ER4 AC+1,31002 ;LOW PRODUCT FAILED 2671 776777 777777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0066 2672 032151 312 10 0 00 044063 CAME E,[XX] ;WAS C(E) CLOBBERED? 2673 032152 005 10 0 00 031003 ER5 E,31003 ;C(E) WAS CLOBBERED 2674 032153 321 14 0 00 032141 JUMPL AC+2,F31000 ;LOOP ON ERROR SWITCH^ 2675 2676 003101 ADR=ADR+1 2677 775777 777777 XX=XX+XX+1 2678 IFE , 2679 2680 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2681 MOP1 (\ADR,0,-1,XX,0,0)^ 2682 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2683 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2684 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2685 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2686 2687 000000 F31010: AA1=0 ;INITIAL C(AC) 2688 032154 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2689 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2690 032155 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2691 775777 777777 AEE=XX ;INITIAL C(E) 2692 032156 200 10 0 00 044064 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2693 032157 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2694 000000 AR1=0 ;EXPECTED RESULT IN AC 2695 032160 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2696 032161 003 12 0 00 031011 ER3 AC,31011 ;HIGH PRODUCT FAILED 2697 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2698 032162 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2699 032163 004 13 0 00 031012 ER4 AC+1,31012 ;LOW PRODUCT FAILED 2700 775777 777777 AEE=XX ;INITIAL C(E) 2701 032164 312 10 0 00 044064 CAME E,[XX] ;WAS C(E) CLOBBERED? 2702 032165 005 10 0 00 031013 ER5 E,31013 ;C(E) WAS CLOBBERED 2703 032166 321 14 0 00 032154 JUMPL AC+2,F31010 ;LOOP ON ERROR SWITCH^ 2704 2705 003102 ADR=ADR+1 2706 773777 777777 XX=XX+XX+1 2707 IFE , 2708 2709 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2710 MOP1 (\ADR,0,-1,XX,0,0)^ 2711 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2712 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2713 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2714 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2715 2716 000000 F31020: AA1=0 ;INITIAL C(AC) 2717 032167 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2718 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2719 032170 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2720 773777 777777 AEE=XX ;INITIAL C(E) 2721 032171 200 10 0 00 044065 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2722 032172 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2723 000000 AR1=0 ;EXPECTED RESULT IN AC 2724 032173 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2725 032174 003 12 0 00 031021 ER3 AC,31021 ;HIGH PRODUCT FAILED 2726 000000 AR2=0 ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0067 2727 032175 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2728 032176 004 13 0 00 031022 ER4 AC+1,31022 ;LOW PRODUCT FAILED 2729 773777 777777 AEE=XX ;INITIAL C(E) 2730 032177 312 10 0 00 044065 CAME E,[XX] ;WAS C(E) CLOBBERED? 2731 032200 005 10 0 00 031023 ER5 E,31023 ;C(E) WAS CLOBBERED 2732 032201 321 14 0 00 032167 JUMPL AC+2,F31020 ;LOOP ON ERROR SWITCH^ 2733 2734 003103 ADR=ADR+1 2735 767777 777777 XX=XX+XX+1 2736 IFE , 2737 2738 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2739 MOP1 (\ADR,0,-1,XX,0,0)^ 2740 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2741 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2742 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2743 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2744 2745 000000 F31030: AA1=0 ;INITIAL C(AC) 2746 032202 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2747 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2748 032203 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2749 767777 777777 AEE=XX ;INITIAL C(E) 2750 032204 200 10 0 00 044066 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2751 032205 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2752 000000 AR1=0 ;EXPECTED RESULT IN AC 2753 032206 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2754 032207 003 12 0 00 031031 ER3 AC,31031 ;HIGH PRODUCT FAILED 2755 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2756 032210 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2757 032211 004 13 0 00 031032 ER4 AC+1,31032 ;LOW PRODUCT FAILED 2758 767777 777777 AEE=XX ;INITIAL C(E) 2759 032212 312 10 0 00 044066 CAME E,[XX] ;WAS C(E) CLOBBERED? 2760 032213 005 10 0 00 031033 ER5 E,31033 ;C(E) WAS CLOBBERED 2761 032214 321 14 0 00 032202 JUMPL AC+2,F31030 ;LOOP ON ERROR SWITCH^ 2762 2763 003104 ADR=ADR+1 2764 757777 777777 XX=XX+XX+1 2765 IFE , 2766 2767 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2768 MOP1 (\ADR,0,-1,XX,0,0)^ 2769 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2770 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2771 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2772 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2773 2774 000000 F31040: AA1=0 ;INITIAL C(AC) 2775 032215 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2776 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2777 032216 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2778 757777 777777 AEE=XX ;INITIAL C(E) 2779 032217 200 10 0 00 044067 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2780 032220 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2781 000000 AR1=0 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0068 2782 032221 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2783 032222 003 12 0 00 031041 ER3 AC,31041 ;HIGH PRODUCT FAILED 2784 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2785 032223 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2786 032224 004 13 0 00 031042 ER4 AC+1,31042 ;LOW PRODUCT FAILED 2787 757777 777777 AEE=XX ;INITIAL C(E) 2788 032225 312 10 0 00 044067 CAME E,[XX] ;WAS C(E) CLOBBERED? 2789 032226 005 10 0 00 031043 ER5 E,31043 ;C(E) WAS CLOBBERED 2790 032227 321 14 0 00 032215 JUMPL AC+2,F31040 ;LOOP ON ERROR SWITCH^ 2791 2792 003105 ADR=ADR+1 2793 737777 777777 XX=XX+XX+1 2794 IFE , 2795 2796 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2797 MOP1 (\ADR,0,-1,XX,0,0)^ 2798 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2799 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2800 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2801 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2802 2803 000000 F31050: AA1=0 ;INITIAL C(AC) 2804 032230 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2805 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2806 032231 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2807 737777 777777 AEE=XX ;INITIAL C(E) 2808 032232 200 10 0 00 044070 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2809 032233 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2810 000000 AR1=0 ;EXPECTED RESULT IN AC 2811 032234 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2812 032235 003 12 0 00 031051 ER3 AC,31051 ;HIGH PRODUCT FAILED 2813 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2814 032236 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2815 032237 004 13 0 00 031052 ER4 AC+1,31052 ;LOW PRODUCT FAILED 2816 737777 777777 AEE=XX ;INITIAL C(E) 2817 032240 312 10 0 00 044070 CAME E,[XX] ;WAS C(E) CLOBBERED? 2818 032241 005 10 0 00 031053 ER5 E,31053 ;C(E) WAS CLOBBERED 2819 032242 321 14 0 00 032230 JUMPL AC+2,F31050 ;LOOP ON ERROR SWITCH^ 2820 2821 003106 ADR=ADR+1 2822 677777 777777 XX=XX+XX+1 2823 IFE , 2824 2825 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2826 MOP1 (\ADR,0,-1,XX,0,0)^ 2827 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2828 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2829 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2830 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2831 2832 000000 F31060: AA1=0 ;INITIAL C(AC) 2833 032243 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2834 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2835 032244 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2836 677777 777777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0069 2837 032245 200 10 0 00 044071 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2838 032246 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2839 000000 AR1=0 ;EXPECTED RESULT IN AC 2840 032247 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2841 032250 003 12 0 00 031061 ER3 AC,31061 ;HIGH PRODUCT FAILED 2842 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2843 032251 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2844 032252 004 13 0 00 031062 ER4 AC+1,31062 ;LOW PRODUCT FAILED 2845 677777 777777 AEE=XX ;INITIAL C(E) 2846 032253 312 10 0 00 044071 CAME E,[XX] ;WAS C(E) CLOBBERED? 2847 032254 005 10 0 00 031063 ER5 E,31063 ;C(E) WAS CLOBBERED 2848 032255 321 14 0 00 032243 JUMPL AC+2,F31060 ;LOOP ON ERROR SWITCH^ 2849 2850 003107 ADR=ADR+1 2851 577777 777777 XX=XX+XX+1 2852 IFE , 2853 2854 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2855 MOP1 (\ADR,0,-1,XX,0,0)^ 2856 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2857 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2858 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2859 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2860 2861 000000 F31070: AA1=0 ;INITIAL C(AC) 2862 032256 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2863 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2864 032257 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2865 577777 777777 AEE=XX ;INITIAL C(E) 2866 032260 200 10 0 00 044072 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2867 032261 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2868 000000 AR1=0 ;EXPECTED RESULT IN AC 2869 032262 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2870 032263 003 12 0 00 031071 ER3 AC,31071 ;HIGH PRODUCT FAILED 2871 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2872 032264 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2873 032265 004 13 0 00 031072 ER4 AC+1,31072 ;LOW PRODUCT FAILED 2874 577777 777777 AEE=XX ;INITIAL C(E) 2875 032266 312 10 0 00 044072 CAME E,[XX] ;WAS C(E) CLOBBERED? 2876 032267 005 10 0 00 031073 ER5 E,31073 ;C(E) WAS CLOBBERED 2877 032270 321 14 0 00 032256 JUMPL AC+2,F31070 ;LOOP ON ERROR SWITCH^ 2878 2879 003110 ADR=ADR+1 2880 377777 777777 XX=XX+XX+1 2881 IFE , 2882 2883 ;MULTIPLY RIPPLED 0 BY 0 TO GET PRODUCT OF 0 2884 MOP1 (\ADR,0,-1,XX,0,0)^ 2885 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2886 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2887 ;AND E AGAINST [0], [0] AND [XX] RESPECTIVELY. 2888 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2889 2890 000000 F31100: AA1=0 ;INITIAL C(AC) 2891 032271 200 12 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0070 2892 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2893 032272 200 13 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2894 377777 777777 AEE=XX ;INITIAL C(E) 2895 032273 200 10 0 00 044073 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 2896 032274 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2897 000000 AR1=0 ;EXPECTED RESULT IN AC 2898 032275 312 12 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2899 032276 003 12 0 00 031101 ER3 AC,31101 ;HIGH PRODUCT FAILED 2900 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2901 032277 312 13 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2902 032300 004 13 0 00 031102 ER4 AC+1,31102 ;LOW PRODUCT FAILED 2903 377777 777777 AEE=XX ;INITIAL C(E) 2904 032301 312 10 0 00 044073 CAME E,[XX] ;WAS C(E) CLOBBERED? 2905 032302 005 10 0 00 031103 ER5 E,31103 ;C(E) WAS CLOBBERED 2906 032303 321 14 0 00 032271 JUMPL AC+2,F31100 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0071 2907 003111 ADR=ADR+1 2908 000014 AC=14 2909 000012 E=&17 2910 SAVEAC (1,1)^ 2911 032304 201 16 0 00 032304 MOVEI AC+2,. ;SAVE TEST PC 2912 032305 202 16 0 00 030051 MOVEM AC+2,TESTPC 2913 032306 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2914 032307 202 16 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2915 2916 ;MULTIPLY -1 BY 0 TO GET PRODUCT OF 0 2917 MOP1 (\ADR,0,-1,-1,0,0)^ 2918 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [0],[-1] AND 2919 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2920 ;AND E AGAINST [0], [0] AND [-1] RESPECTIVELY. 2921 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2922 2923 000000 F31110: AA1=0 ;INITIAL C(AC) 2924 032310 200 14 0 00 043762 MOVE AC,[0] ;PRELOAD AC (MULTIPLIER) 2925 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2926 032311 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 2927 777777 777777 AEE=-1 ;INITIAL C(E) 2928 032312 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 2929 032313 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2930 000000 AR1=0 ;EXPECTED RESULT IN AC 2931 032314 312 14 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 2932 032315 003 14 0 00 031111 ER3 AC,31111 ;HIGH PRODUCT FAILED 2933 000000 AR2=0 ;EXPECTED RESULT IN AC+1 2934 032316 312 15 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 2935 032317 004 15 0 00 031112 ER4 AC+1,31112 ;LOW PRODUCT FAILED 2936 777777 777777 AEE=-1 ;INITIAL C(E) 2937 032320 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 2938 032321 005 12 0 00 031113 ER5 E,31113 ;C(E) WAS CLOBBERED 2939 032322 321 16 0 00 032310 JUMPL AC+2,F31110 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0072 2940 SUBTTL DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM 2941 2942 000013 AC=13 2943 000011 E=&17 2944 SAVEAC (1,1)^ 2945 032323 201 15 0 00 032323 MOVEI AC+2,. ;SAVE TEST PC 2946 032324 202 15 0 00 030051 MOVEM AC+2,TESTPC 2947 032325 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2948 032326 202 15 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2949 2950 777777 777777 XX=-1 2951 2952 REPEAT ^D16,< ;MULTIPLICAND=1 2953 ;TEST MULTIPLICATION ALGORITHM 2954 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 2955 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 2956 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 2957 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 2958 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 2959 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 2960 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 2961 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 2962 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 2963 ;OF C(E). 2964 2965 ADR=ADR+1 2966 XX=XX+1 2967 2968 MOP1 (\ADR,XX,-1,1,0,XX)> 2969 ;MULTIPLICAND=1 2970 ;TEST MULTIPLICATION ALGORITHM 2971 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 2972 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 2973 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 2974 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 2975 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 2976 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 2977 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 2978 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 2979 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 2980 ;OF C(E). 2981 2982 003112 ADR=ADR+1 2983 000000 XX=XX+1 2984 2985 MOP1 (\ADR,XX,-1,1,0,XX)^ 2986 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 2987 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2988 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 2989 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2990 2991 000000 F31120: AA1=XX ;INITIAL C(AC) 2992 032327 200 13 0 00 043762 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2993 777777 777777 AA2=-1 ;INITIAL C(AC+1) 2994 032330 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0073 2995 000001 AEE=1 ;INITIAL C(E) 2996 032331 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 2997 032332 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2998 000000 AR1=0 ;EXPECTED RESULT IN AC 2999 032333 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3000 032334 003 13 0 00 031121 ER3 AC,31121 ;HIGH PRODUCT FAILED 3001 000000 AR2=XX ;EXPECTED RESULT IN AC+1 3002 032335 312 14 0 00 043762 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3003 032336 004 14 0 00 031122 ER4 AC+1,31122 ;LOW PRODUCT FAILED 3004 000001 AEE=1 ;INITIAL C(E) 3005 032337 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3006 032340 005 11 0 00 031123 ER5 E,31123 ;C(E) WAS CLOBBERED 3007 032341 321 15 0 00 032327 JUMPL AC+2,F31120 ;LOOP ON ERROR SWITCH^ 3008 ;MULTIPLICAND=1 3009 ;TEST MULTIPLICATION ALGORITHM 3010 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3011 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3012 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3013 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3014 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3015 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3016 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3017 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3018 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3019 ;OF C(E). 3020 3021 003113 ADR=ADR+1 3022 000001 XX=XX+1 3023 3024 MOP1 (\ADR,XX,-1,1,0,XX)^ 3025 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3026 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3027 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3028 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3029 3030 000001 F31130: AA1=XX ;INITIAL C(AC) 3031 032342 200 13 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3032 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3033 032343 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3034 000001 AEE=1 ;INITIAL C(E) 3035 032344 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3036 032345 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3037 000000 AR1=0 ;EXPECTED RESULT IN AC 3038 032346 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3039 032347 003 13 0 00 031131 ER3 AC,31131 ;HIGH PRODUCT FAILED 3040 000001 AR2=XX ;EXPECTED RESULT IN AC+1 3041 032350 312 14 0 00 043764 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3042 032351 004 14 0 00 031132 ER4 AC+1,31132 ;LOW PRODUCT FAILED 3043 000001 AEE=1 ;INITIAL C(E) 3044 032352 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3045 032353 005 11 0 00 031133 ER5 E,31133 ;C(E) WAS CLOBBERED 3046 032354 321 15 0 00 032342 JUMPL AC+2,F31130 ;LOOP ON ERROR SWITCH^ 3047 ;MULTIPLICAND=1 3048 ;TEST MULTIPLICATION ALGORITHM 3049 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0074 3050 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3051 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3052 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3053 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3054 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3055 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3056 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3057 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3058 ;OF C(E). 3059 3060 003114 ADR=ADR+1 3061 000002 XX=XX+1 3062 3063 MOP1 (\ADR,XX,-1,1,0,XX)^ 3064 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3065 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3066 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3067 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3068 3069 000002 F31140: AA1=XX ;INITIAL C(AC) 3070 032355 200 13 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3071 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3072 032356 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3073 000001 AEE=1 ;INITIAL C(E) 3074 032357 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3075 032360 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3076 000000 AR1=0 ;EXPECTED RESULT IN AC 3077 032361 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3078 032362 003 13 0 00 031141 ER3 AC,31141 ;HIGH PRODUCT FAILED 3079 000002 AR2=XX ;EXPECTED RESULT IN AC+1 3080 032363 312 14 0 00 043765 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3081 032364 004 14 0 00 031142 ER4 AC+1,31142 ;LOW PRODUCT FAILED 3082 000001 AEE=1 ;INITIAL C(E) 3083 032365 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3084 032366 005 11 0 00 031143 ER5 E,31143 ;C(E) WAS CLOBBERED 3085 032367 321 15 0 00 032355 JUMPL AC+2,F31140 ;LOOP ON ERROR SWITCH^ 3086 ;MULTIPLICAND=1 3087 ;TEST MULTIPLICATION ALGORITHM 3088 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3089 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3090 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3091 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3092 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3093 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3094 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3095 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3096 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3097 ;OF C(E). 3098 3099 003115 ADR=ADR+1 3100 000003 XX=XX+1 3101 3102 MOP1 (\ADR,XX,-1,1,0,XX)^ 3103 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3104 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0075 3105 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3106 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3107 3108 000003 F31150: AA1=XX ;INITIAL C(AC) 3109 032370 200 13 0 00 044074 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3110 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3111 032371 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3112 000001 AEE=1 ;INITIAL C(E) 3113 032372 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3114 032373 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3115 000000 AR1=0 ;EXPECTED RESULT IN AC 3116 032374 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3117 032375 003 13 0 00 031151 ER3 AC,31151 ;HIGH PRODUCT FAILED 3118 000003 AR2=XX ;EXPECTED RESULT IN AC+1 3119 032376 312 14 0 00 044074 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3120 032377 004 14 0 00 031152 ER4 AC+1,31152 ;LOW PRODUCT FAILED 3121 000001 AEE=1 ;INITIAL C(E) 3122 032400 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3123 032401 005 11 0 00 031153 ER5 E,31153 ;C(E) WAS CLOBBERED 3124 032402 321 15 0 00 032370 JUMPL AC+2,F31150 ;LOOP ON ERROR SWITCH^ 3125 ;MULTIPLICAND=1 3126 ;TEST MULTIPLICATION ALGORITHM 3127 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3128 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3129 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3130 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3131 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3132 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3133 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3134 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3135 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3136 ;OF C(E). 3137 3138 003116 ADR=ADR+1 3139 000004 XX=XX+1 3140 3141 MOP1 (\ADR,XX,-1,1,0,XX)^ 3142 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3143 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3144 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3145 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3146 3147 000004 F31160: AA1=XX ;INITIAL C(AC) 3148 032403 200 13 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3149 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3150 032404 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3151 000001 AEE=1 ;INITIAL C(E) 3152 032405 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3153 032406 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3154 000000 AR1=0 ;EXPECTED RESULT IN AC 3155 032407 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3156 032410 003 13 0 00 031161 ER3 AC,31161 ;HIGH PRODUCT FAILED 3157 000004 AR2=XX ;EXPECTED RESULT IN AC+1 3158 032411 312 14 0 00 043766 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3159 032412 004 14 0 00 031162 ER4 AC+1,31162 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0076 3160 000001 AEE=1 ;INITIAL C(E) 3161 032413 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3162 032414 005 11 0 00 031163 ER5 E,31163 ;C(E) WAS CLOBBERED 3163 032415 321 15 0 00 032403 JUMPL AC+2,F31160 ;LOOP ON ERROR SWITCH^ 3164 ;MULTIPLICAND=1 3165 ;TEST MULTIPLICATION ALGORITHM 3166 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3167 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3168 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3169 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3170 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3171 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3172 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3173 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3174 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3175 ;OF C(E). 3176 3177 003117 ADR=ADR+1 3178 000005 XX=XX+1 3179 3180 MOP1 (\ADR,XX,-1,1,0,XX)^ 3181 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3182 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3183 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3184 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3185 3186 000005 F31170: AA1=XX ;INITIAL C(AC) 3187 032416 200 13 0 00 044075 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3188 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3189 032417 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3190 000001 AEE=1 ;INITIAL C(E) 3191 032420 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3192 032421 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3193 000000 AR1=0 ;EXPECTED RESULT IN AC 3194 032422 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3195 032423 003 13 0 00 031171 ER3 AC,31171 ;HIGH PRODUCT FAILED 3196 000005 AR2=XX ;EXPECTED RESULT IN AC+1 3197 032424 312 14 0 00 044075 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3198 032425 004 14 0 00 031172 ER4 AC+1,31172 ;LOW PRODUCT FAILED 3199 000001 AEE=1 ;INITIAL C(E) 3200 032426 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3201 032427 005 11 0 00 031173 ER5 E,31173 ;C(E) WAS CLOBBERED 3202 032430 321 15 0 00 032416 JUMPL AC+2,F31170 ;LOOP ON ERROR SWITCH^ 3203 ;MULTIPLICAND=1 3204 ;TEST MULTIPLICATION ALGORITHM 3205 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3206 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3207 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3208 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3209 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3210 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3211 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3212 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3213 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3214 ;OF C(E). DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0077 3215 3216 003120 ADR=ADR+1 3217 000006 XX=XX+1 3218 3219 MOP1 (\ADR,XX,-1,1,0,XX)^ 3220 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3221 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3222 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3223 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3224 3225 000006 F31200: AA1=XX ;INITIAL C(AC) 3226 032431 200 13 0 00 044076 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3227 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3228 032432 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3229 000001 AEE=1 ;INITIAL C(E) 3230 032433 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3231 032434 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3232 000000 AR1=0 ;EXPECTED RESULT IN AC 3233 032435 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3234 032436 003 13 0 00 031201 ER3 AC,31201 ;HIGH PRODUCT FAILED 3235 000006 AR2=XX ;EXPECTED RESULT IN AC+1 3236 032437 312 14 0 00 044076 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3237 032440 004 14 0 00 031202 ER4 AC+1,31202 ;LOW PRODUCT FAILED 3238 000001 AEE=1 ;INITIAL C(E) 3239 032441 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3240 032442 005 11 0 00 031203 ER5 E,31203 ;C(E) WAS CLOBBERED 3241 032443 321 15 0 00 032431 JUMPL AC+2,F31200 ;LOOP ON ERROR SWITCH^ 3242 ;MULTIPLICAND=1 3243 ;TEST MULTIPLICATION ALGORITHM 3244 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3245 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3246 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3247 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3248 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3249 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3250 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3251 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3252 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3253 ;OF C(E). 3254 3255 003121 ADR=ADR+1 3256 000007 XX=XX+1 3257 3258 MOP1 (\ADR,XX,-1,1,0,XX)^ 3259 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3260 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3261 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3262 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3263 3264 000007 F31210: AA1=XX ;INITIAL C(AC) 3265 032444 200 13 0 00 044077 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3266 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3267 032445 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3268 000001 AEE=1 ;INITIAL C(E) 3269 032446 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0078 3270 032447 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3271 000000 AR1=0 ;EXPECTED RESULT IN AC 3272 032450 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3273 032451 003 13 0 00 031211 ER3 AC,31211 ;HIGH PRODUCT FAILED 3274 000007 AR2=XX ;EXPECTED RESULT IN AC+1 3275 032452 312 14 0 00 044077 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3276 032453 004 14 0 00 031212 ER4 AC+1,31212 ;LOW PRODUCT FAILED 3277 000001 AEE=1 ;INITIAL C(E) 3278 032454 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3279 032455 005 11 0 00 031213 ER5 E,31213 ;C(E) WAS CLOBBERED 3280 032456 321 15 0 00 032444 JUMPL AC+2,F31210 ;LOOP ON ERROR SWITCH^ 3281 ;MULTIPLICAND=1 3282 ;TEST MULTIPLICATION ALGORITHM 3283 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3284 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3285 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3286 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3287 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3288 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3289 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3290 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3291 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3292 ;OF C(E). 3293 3294 003122 ADR=ADR+1 3295 000010 XX=XX+1 3296 3297 MOP1 (\ADR,XX,-1,1,0,XX)^ 3298 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3299 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3300 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3301 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3302 3303 000010 F31220: AA1=XX ;INITIAL C(AC) 3304 032457 200 13 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3305 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3306 032460 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3307 000001 AEE=1 ;INITIAL C(E) 3308 032461 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3309 032462 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3310 000000 AR1=0 ;EXPECTED RESULT IN AC 3311 032463 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3312 032464 003 13 0 00 031221 ER3 AC,31221 ;HIGH PRODUCT FAILED 3313 000010 AR2=XX ;EXPECTED RESULT IN AC+1 3314 032465 312 14 0 00 043767 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3315 032466 004 14 0 00 031222 ER4 AC+1,31222 ;LOW PRODUCT FAILED 3316 000001 AEE=1 ;INITIAL C(E) 3317 032467 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3318 032470 005 11 0 00 031223 ER5 E,31223 ;C(E) WAS CLOBBERED 3319 032471 321 15 0 00 032457 JUMPL AC+2,F31220 ;LOOP ON ERROR SWITCH^ 3320 ;MULTIPLICAND=1 3321 ;TEST MULTIPLICATION ALGORITHM 3322 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3323 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3324 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0079 3325 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3326 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3327 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3328 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3329 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3330 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3331 ;OF C(E). 3332 3333 003123 ADR=ADR+1 3334 000011 XX=XX+1 3335 3336 MOP1 (\ADR,XX,-1,1,0,XX)^ 3337 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3338 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3339 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3340 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3341 3342 000011 F31230: AA1=XX ;INITIAL C(AC) 3343 032472 200 13 0 00 044100 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3344 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3345 032473 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3346 000001 AEE=1 ;INITIAL C(E) 3347 032474 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3348 032475 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3349 000000 AR1=0 ;EXPECTED RESULT IN AC 3350 032476 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3351 032477 003 13 0 00 031231 ER3 AC,31231 ;HIGH PRODUCT FAILED 3352 000011 AR2=XX ;EXPECTED RESULT IN AC+1 3353 032500 312 14 0 00 044100 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3354 032501 004 14 0 00 031232 ER4 AC+1,31232 ;LOW PRODUCT FAILED 3355 000001 AEE=1 ;INITIAL C(E) 3356 032502 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3357 032503 005 11 0 00 031233 ER5 E,31233 ;C(E) WAS CLOBBERED 3358 032504 321 15 0 00 032472 JUMPL AC+2,F31230 ;LOOP ON ERROR SWITCH^ 3359 ;MULTIPLICAND=1 3360 ;TEST MULTIPLICATION ALGORITHM 3361 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3362 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3363 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3364 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3365 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3366 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3367 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3368 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3369 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3370 ;OF C(E). 3371 3372 003124 ADR=ADR+1 3373 000012 XX=XX+1 3374 3375 MOP1 (\ADR,XX,-1,1,0,XX)^ 3376 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3377 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3378 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3379 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0080 3380 3381 000012 F31240: AA1=XX ;INITIAL C(AC) 3382 032505 200 13 0 00 044101 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3383 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3384 032506 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3385 000001 AEE=1 ;INITIAL C(E) 3386 032507 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3387 032510 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3388 000000 AR1=0 ;EXPECTED RESULT IN AC 3389 032511 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3390 032512 003 13 0 00 031241 ER3 AC,31241 ;HIGH PRODUCT FAILED 3391 000012 AR2=XX ;EXPECTED RESULT IN AC+1 3392 032513 312 14 0 00 044101 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3393 032514 004 14 0 00 031242 ER4 AC+1,31242 ;LOW PRODUCT FAILED 3394 000001 AEE=1 ;INITIAL C(E) 3395 032515 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3396 032516 005 11 0 00 031243 ER5 E,31243 ;C(E) WAS CLOBBERED 3397 032517 321 15 0 00 032505 JUMPL AC+2,F31240 ;LOOP ON ERROR SWITCH^ 3398 ;MULTIPLICAND=1 3399 ;TEST MULTIPLICATION ALGORITHM 3400 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3401 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3402 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3403 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3404 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3405 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3406 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3407 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3408 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3409 ;OF C(E). 3410 3411 003125 ADR=ADR+1 3412 000013 XX=XX+1 3413 3414 MOP1 (\ADR,XX,-1,1,0,XX)^ 3415 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3416 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3417 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3418 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3419 3420 000013 F31250: AA1=XX ;INITIAL C(AC) 3421 032520 200 13 0 00 044102 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3422 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3423 032521 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3424 000001 AEE=1 ;INITIAL C(E) 3425 032522 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3426 032523 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3427 000000 AR1=0 ;EXPECTED RESULT IN AC 3428 032524 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3429 032525 003 13 0 00 031251 ER3 AC,31251 ;HIGH PRODUCT FAILED 3430 000013 AR2=XX ;EXPECTED RESULT IN AC+1 3431 032526 312 14 0 00 044102 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3432 032527 004 14 0 00 031252 ER4 AC+1,31252 ;LOW PRODUCT FAILED 3433 000001 AEE=1 ;INITIAL C(E) 3434 032530 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0081 3435 032531 005 11 0 00 031253 ER5 E,31253 ;C(E) WAS CLOBBERED 3436 032532 321 15 0 00 032520 JUMPL AC+2,F31250 ;LOOP ON ERROR SWITCH^ 3437 ;MULTIPLICAND=1 3438 ;TEST MULTIPLICATION ALGORITHM 3439 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3440 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3441 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3442 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3443 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3444 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3445 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3446 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3447 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3448 ;OF C(E). 3449 3450 003126 ADR=ADR+1 3451 000014 XX=XX+1 3452 3453 MOP1 (\ADR,XX,-1,1,0,XX)^ 3454 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3455 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3456 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3457 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3458 3459 000014 F31260: AA1=XX ;INITIAL C(AC) 3460 032533 200 13 0 00 044103 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3461 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3462 032534 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3463 000001 AEE=1 ;INITIAL C(E) 3464 032535 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3465 032536 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3466 000000 AR1=0 ;EXPECTED RESULT IN AC 3467 032537 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3468 032540 003 13 0 00 031261 ER3 AC,31261 ;HIGH PRODUCT FAILED 3469 000014 AR2=XX ;EXPECTED RESULT IN AC+1 3470 032541 312 14 0 00 044103 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3471 032542 004 14 0 00 031262 ER4 AC+1,31262 ;LOW PRODUCT FAILED 3472 000001 AEE=1 ;INITIAL C(E) 3473 032543 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3474 032544 005 11 0 00 031263 ER5 E,31263 ;C(E) WAS CLOBBERED 3475 032545 321 15 0 00 032533 JUMPL AC+2,F31260 ;LOOP ON ERROR SWITCH^ 3476 ;MULTIPLICAND=1 3477 ;TEST MULTIPLICATION ALGORITHM 3478 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3479 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3480 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3481 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3482 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3483 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3484 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3485 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3486 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3487 ;OF C(E). 3488 3489 003127 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0082 3490 000015 XX=XX+1 3491 3492 MOP1 (\ADR,XX,-1,1,0,XX)^ 3493 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3494 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3495 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3496 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3497 3498 000015 F31270: AA1=XX ;INITIAL C(AC) 3499 032546 200 13 0 00 044104 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3500 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3501 032547 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3502 000001 AEE=1 ;INITIAL C(E) 3503 032550 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3504 032551 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3505 000000 AR1=0 ;EXPECTED RESULT IN AC 3506 032552 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3507 032553 003 13 0 00 031271 ER3 AC,31271 ;HIGH PRODUCT FAILED 3508 000015 AR2=XX ;EXPECTED RESULT IN AC+1 3509 032554 312 14 0 00 044104 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3510 032555 004 14 0 00 031272 ER4 AC+1,31272 ;LOW PRODUCT FAILED 3511 000001 AEE=1 ;INITIAL C(E) 3512 032556 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3513 032557 005 11 0 00 031273 ER5 E,31273 ;C(E) WAS CLOBBERED 3514 032560 321 15 0 00 032546 JUMPL AC+2,F31270 ;LOOP ON ERROR SWITCH^ 3515 ;MULTIPLICAND=1 3516 ;TEST MULTIPLICATION ALGORITHM 3517 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3518 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3519 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3520 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3521 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3522 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3523 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3524 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3525 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3526 ;OF C(E). 3527 3528 003130 ADR=ADR+1 3529 000016 XX=XX+1 3530 3531 MOP1 (\ADR,XX,-1,1,0,XX)^ 3532 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3533 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3534 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3535 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3536 3537 000016 F31300: AA1=XX ;INITIAL C(AC) 3538 032561 200 13 0 00 044105 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3539 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3540 032562 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3541 000001 AEE=1 ;INITIAL C(E) 3542 032563 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3543 032564 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3544 000000 AR1=0 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 5-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0083 3545 032565 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3546 032566 003 13 0 00 031301 ER3 AC,31301 ;HIGH PRODUCT FAILED 3547 000016 AR2=XX ;EXPECTED RESULT IN AC+1 3548 032567 312 14 0 00 044105 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3549 032570 004 14 0 00 031302 ER4 AC+1,31302 ;LOW PRODUCT FAILED 3550 000001 AEE=1 ;INITIAL C(E) 3551 032571 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3552 032572 005 11 0 00 031303 ER5 E,31303 ;C(E) WAS CLOBBERED 3553 032573 321 15 0 00 032561 JUMPL AC+2,F31300 ;LOOP ON ERROR SWITCH^ 3554 ;MULTIPLICAND=1 3555 ;TEST MULTIPLICATION ALGORITHM 3556 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3557 ;KI10 MULTIPLICATION ALGORITHM. I.E., THE TWO LEAST 3558 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3559 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3560 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3561 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3562 ;EXECUTED 16 TIMES WITH C(AC)=0,1,3,4,..., 17 AND 3563 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3564 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3565 ;OF C(E). 3566 3567 003131 ADR=ADR+1 3568 000017 XX=XX+1 3569 3570 MOP1 (\ADR,XX,-1,1,0,XX)^ 3571 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 3572 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3573 ;AND E AGAINST [0], [XX] AND [1] RESPECTIVELY. 3574 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3575 3576 000017 F31310: AA1=XX ;INITIAL C(AC) 3577 032574 200 13 0 00 044106 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3578 777777 777777 AA2=-1 ;INITIAL C(AC+1) 3579 032575 200 14 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 3580 000001 AEE=1 ;INITIAL C(E) 3581 032576 200 11 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 3582 032577 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3583 000000 AR1=0 ;EXPECTED RESULT IN AC 3584 032600 312 13 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 3585 032601 003 13 0 00 031311 ER3 AC,31311 ;HIGH PRODUCT FAILED 3586 000017 AR2=XX ;EXPECTED RESULT IN AC+1 3587 032602 312 14 0 00 044106 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 3588 032603 004 14 0 00 031312 ER4 AC+1,31312 ;LOW PRODUCT FAILED 3589 000001 AEE=1 ;INITIAL C(E) 3590 032604 312 11 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 3591 032605 005 11 0 00 031313 ER5 E,31313 ;C(E) WAS CLOBBERED 3592 032606 321 15 0 00 032574 JUMPL AC+2,F31310 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0084 3593 000012 AC=12 3594 000010 E=&17 3595 SAVEAC (1,1)^ 3596 032607 201 14 0 00 032607 MOVEI AC+2,. ;SAVE TEST PC 3597 032610 202 14 0 00 030051 MOVEM AC+2,TESTPC 3598 032611 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3599 032612 202 14 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3600 3601 777777 777777 XX=-1 3602 3603 REPEAT ^D16,< ;MULTIPLICAND=-1 3604 ;TEST MULTIPLICATION ALGORITHM 3605 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3606 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3607 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3608 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3609 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3610 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3611 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3612 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3613 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3614 ;OF C(E). 3615 3616 ADR=ADR+1 3617 XX=XX+1 3618 MX=-XX 3619 IFE XX,< 3620 V1=-1 3621 V2=0> 3622 IFN XX,< 3623 V1=0 3624 V2=-1> 3625 MOP1 (\ADR,XX,V1,-1,V2,MX)> 3626 ;MULTIPLICAND=-1 3627 ;TEST MULTIPLICATION ALGORITHM 3628 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3629 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3630 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3631 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3632 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3633 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3634 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3635 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3636 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3637 ;OF C(E). 3638 3639 003132 ADR=ADR+1 3640 000000 XX=XX+1 3641 000000 MX=-XX 3642 IFE XX,< 3643 777777 777777 V1=-1 3644 000000 V2=0> 3645 IFN XX,< 3646 V1=0 3647 V2=-1> DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0085 3648 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3649 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3650 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3651 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3652 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3653 3654 000000 F31320: AA1=XX ;INITIAL C(AC) 3655 032613 200 12 0 00 043762 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3656 777777 777777 AA2=V1 ;INITIAL C(AC+1) 3657 032614 200 13 0 00 043763 MOVE AC+1,[V1] ;PRELOAD AC+1 3658 777777 777777 AEE=-1 ;INITIAL C(E) 3659 032615 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3660 032616 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3661 000000 AR1=V2 ;EXPECTED RESULT IN AC 3662 032617 312 12 0 00 043762 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3663 032620 003 12 0 00 031321 ER3 AC,31321 ;HIGH PRODUCT FAILED 3664 000000 AR2=MX ;EXPECTED RESULT IN AC+1 3665 032621 312 13 0 00 043762 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3666 032622 004 13 0 00 031322 ER4 AC+1,31322 ;LOW PRODUCT FAILED 3667 777777 777777 AEE=-1 ;INITIAL C(E) 3668 032623 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3669 032624 005 10 0 00 031323 ER5 E,31323 ;C(E) WAS CLOBBERED 3670 032625 321 14 0 00 032613 JUMPL AC+2,F31320 ;LOOP ON ERROR SWITCH^ 3671 ;MULTIPLICAND=-1 3672 ;TEST MULTIPLICATION ALGORITHM 3673 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3674 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3675 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3676 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3677 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3678 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3679 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3680 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3681 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3682 ;OF C(E). 3683 3684 003133 ADR=ADR+1 3685 000001 XX=XX+1 3686 777777 777777 MX=-XX 3687 IFE XX,< 3688 V1=-1 3689 V2=0> 3690 IFN XX,< 3691 000000 V1=0 3692 777777 777777 V2=-1> 3693 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3694 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3695 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3696 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3697 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3698 3699 000001 F31330: AA1=XX ;INITIAL C(AC) 3700 032626 200 12 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3701 000000 AA2=V1 ;INITIAL C(AC+1) 3702 032627 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0086 3703 777777 777777 AEE=-1 ;INITIAL C(E) 3704 032630 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3705 032631 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3706 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3707 032632 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3708 032633 003 12 0 00 031331 ER3 AC,31331 ;HIGH PRODUCT FAILED 3709 777777 777777 AR2=MX ;EXPECTED RESULT IN AC+1 3710 032634 312 13 0 00 043763 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3711 032635 004 13 0 00 031332 ER4 AC+1,31332 ;LOW PRODUCT FAILED 3712 777777 777777 AEE=-1 ;INITIAL C(E) 3713 032636 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3714 032637 005 10 0 00 031333 ER5 E,31333 ;C(E) WAS CLOBBERED 3715 032640 321 14 0 00 032626 JUMPL AC+2,F31330 ;LOOP ON ERROR SWITCH^ 3716 ;MULTIPLICAND=-1 3717 ;TEST MULTIPLICATION ALGORITHM 3718 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3719 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3720 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3721 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3722 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3723 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3724 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3725 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3726 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3727 ;OF C(E). 3728 3729 003134 ADR=ADR+1 3730 000002 XX=XX+1 3731 777777 777776 MX=-XX 3732 IFE XX,< 3733 V1=-1 3734 V2=0> 3735 IFN XX,< 3736 000000 V1=0 3737 777777 777777 V2=-1> 3738 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3739 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3740 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3741 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3742 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3743 3744 000002 F31340: AA1=XX ;INITIAL C(AC) 3745 032641 200 12 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3746 000000 AA2=V1 ;INITIAL C(AC+1) 3747 032642 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3748 777777 777777 AEE=-1 ;INITIAL C(E) 3749 032643 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3750 032644 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3751 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3752 032645 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3753 032646 003 12 0 00 031341 ER3 AC,31341 ;HIGH PRODUCT FAILED 3754 777777 777776 AR2=MX ;EXPECTED RESULT IN AC+1 3755 032647 312 13 0 00 044030 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3756 032650 004 13 0 00 031342 ER4 AC+1,31342 ;LOW PRODUCT FAILED 3757 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0087 3758 032651 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3759 032652 005 10 0 00 031343 ER5 E,31343 ;C(E) WAS CLOBBERED 3760 032653 321 14 0 00 032641 JUMPL AC+2,F31340 ;LOOP ON ERROR SWITCH^ 3761 ;MULTIPLICAND=-1 3762 ;TEST MULTIPLICATION ALGORITHM 3763 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3764 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3765 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3766 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3767 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3768 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3769 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3770 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3771 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3772 ;OF C(E). 3773 3774 003135 ADR=ADR+1 3775 000003 XX=XX+1 3776 777777 777775 MX=-XX 3777 IFE XX,< 3778 V1=-1 3779 V2=0> 3780 IFN XX,< 3781 000000 V1=0 3782 777777 777777 V2=-1> 3783 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3784 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3785 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3786 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3787 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3788 3789 000003 F31350: AA1=XX ;INITIAL C(AC) 3790 032654 200 12 0 00 044074 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3791 000000 AA2=V1 ;INITIAL C(AC+1) 3792 032655 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3793 777777 777777 AEE=-1 ;INITIAL C(E) 3794 032656 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3795 032657 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3796 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3797 032660 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3798 032661 003 12 0 00 031351 ER3 AC,31351 ;HIGH PRODUCT FAILED 3799 777777 777775 AR2=MX ;EXPECTED RESULT IN AC+1 3800 032662 312 13 0 00 044031 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3801 032663 004 13 0 00 031352 ER4 AC+1,31352 ;LOW PRODUCT FAILED 3802 777777 777777 AEE=-1 ;INITIAL C(E) 3803 032664 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3804 032665 005 10 0 00 031353 ER5 E,31353 ;C(E) WAS CLOBBERED 3805 032666 321 14 0 00 032654 JUMPL AC+2,F31350 ;LOOP ON ERROR SWITCH^ 3806 ;MULTIPLICAND=-1 3807 ;TEST MULTIPLICATION ALGORITHM 3808 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3809 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3810 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3811 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3812 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0088 3813 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3814 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3815 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3816 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3817 ;OF C(E). 3818 3819 003136 ADR=ADR+1 3820 000004 XX=XX+1 3821 777777 777774 MX=-XX 3822 IFE XX,< 3823 V1=-1 3824 V2=0> 3825 IFN XX,< 3826 000000 V1=0 3827 777777 777777 V2=-1> 3828 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3829 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3830 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3831 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3832 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3833 3834 000004 F31360: AA1=XX ;INITIAL C(AC) 3835 032667 200 12 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3836 000000 AA2=V1 ;INITIAL C(AC+1) 3837 032670 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3838 777777 777777 AEE=-1 ;INITIAL C(E) 3839 032671 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3840 032672 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3841 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3842 032673 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3843 032674 003 12 0 00 031361 ER3 AC,31361 ;HIGH PRODUCT FAILED 3844 777777 777774 AR2=MX ;EXPECTED RESULT IN AC+1 3845 032675 312 13 0 00 044107 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3846 032676 004 13 0 00 031362 ER4 AC+1,31362 ;LOW PRODUCT FAILED 3847 777777 777777 AEE=-1 ;INITIAL C(E) 3848 032677 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3849 032700 005 10 0 00 031363 ER5 E,31363 ;C(E) WAS CLOBBERED 3850 032701 321 14 0 00 032667 JUMPL AC+2,F31360 ;LOOP ON ERROR SWITCH^ 3851 ;MULTIPLICAND=-1 3852 ;TEST MULTIPLICATION ALGORITHM 3853 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3854 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3855 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3856 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3857 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3858 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3859 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3860 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3861 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3862 ;OF C(E). 3863 3864 003137 ADR=ADR+1 3865 000005 XX=XX+1 3866 777777 777773 MX=-XX 3867 IFE XX,< DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0089 3868 V1=-1 3869 V2=0> 3870 IFN XX,< 3871 000000 V1=0 3872 777777 777777 V2=-1> 3873 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3874 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3875 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3876 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3877 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3878 3879 000005 F31370: AA1=XX ;INITIAL C(AC) 3880 032702 200 12 0 00 044075 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3881 000000 AA2=V1 ;INITIAL C(AC+1) 3882 032703 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3883 777777 777777 AEE=-1 ;INITIAL C(E) 3884 032704 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3885 032705 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3886 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3887 032706 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3888 032707 003 12 0 00 031371 ER3 AC,31371 ;HIGH PRODUCT FAILED 3889 777777 777773 AR2=MX ;EXPECTED RESULT IN AC+1 3890 032710 312 13 0 00 044032 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3891 032711 004 13 0 00 031372 ER4 AC+1,31372 ;LOW PRODUCT FAILED 3892 777777 777777 AEE=-1 ;INITIAL C(E) 3893 032712 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3894 032713 005 10 0 00 031373 ER5 E,31373 ;C(E) WAS CLOBBERED 3895 032714 321 14 0 00 032702 JUMPL AC+2,F31370 ;LOOP ON ERROR SWITCH^ 3896 ;MULTIPLICAND=-1 3897 ;TEST MULTIPLICATION ALGORITHM 3898 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3899 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3900 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3901 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3902 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3903 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3904 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3905 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3906 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3907 ;OF C(E). 3908 3909 003140 ADR=ADR+1 3910 000006 XX=XX+1 3911 777777 777772 MX=-XX 3912 IFE XX,< 3913 V1=-1 3914 V2=0> 3915 IFN XX,< 3916 000000 V1=0 3917 777777 777777 V2=-1> 3918 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3919 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3920 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3921 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3922 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0090 3923 3924 000006 F31400: AA1=XX ;INITIAL C(AC) 3925 032715 200 12 0 00 044076 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3926 000000 AA2=V1 ;INITIAL C(AC+1) 3927 032716 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3928 777777 777777 AEE=-1 ;INITIAL C(E) 3929 032717 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3930 032720 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3931 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3932 032721 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 3933 032722 003 12 0 00 031401 ER3 AC,31401 ;HIGH PRODUCT FAILED 3934 777777 777772 AR2=MX ;EXPECTED RESULT IN AC+1 3935 032723 312 13 0 00 044110 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3936 032724 004 13 0 00 031402 ER4 AC+1,31402 ;LOW PRODUCT FAILED 3937 777777 777777 AEE=-1 ;INITIAL C(E) 3938 032725 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3939 032726 005 10 0 00 031403 ER5 E,31403 ;C(E) WAS CLOBBERED 3940 032727 321 14 0 00 032715 JUMPL AC+2,F31400 ;LOOP ON ERROR SWITCH^ 3941 ;MULTIPLICAND=-1 3942 ;TEST MULTIPLICATION ALGORITHM 3943 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3944 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3945 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3946 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3947 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3948 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3949 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3950 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3951 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3952 ;OF C(E). 3953 3954 003141 ADR=ADR+1 3955 000007 XX=XX+1 3956 777777 777771 MX=-XX 3957 IFE XX,< 3958 V1=-1 3959 V2=0> 3960 IFN XX,< 3961 000000 V1=0 3962 777777 777777 V2=-1> 3963 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 3964 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 3965 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3966 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 3967 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3968 3969 000007 F31410: AA1=XX ;INITIAL C(AC) 3970 032730 200 12 0 00 044077 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3971 000000 AA2=V1 ;INITIAL C(AC+1) 3972 032731 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 3973 777777 777777 AEE=-1 ;INITIAL C(E) 3974 032732 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 3975 032733 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3976 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 3977 032734 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0091 3978 032735 003 12 0 00 031411 ER3 AC,31411 ;HIGH PRODUCT FAILED 3979 777777 777771 AR2=MX ;EXPECTED RESULT IN AC+1 3980 032736 312 13 0 00 044111 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 3981 032737 004 13 0 00 031412 ER4 AC+1,31412 ;LOW PRODUCT FAILED 3982 777777 777777 AEE=-1 ;INITIAL C(E) 3983 032740 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 3984 032741 005 10 0 00 031413 ER5 E,31413 ;C(E) WAS CLOBBERED 3985 032742 321 14 0 00 032730 JUMPL AC+2,F31410 ;LOOP ON ERROR SWITCH^ 3986 ;MULTIPLICAND=-1 3987 ;TEST MULTIPLICATION ALGORITHM 3988 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 3989 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 3990 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 3991 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 3992 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 3993 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 3994 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 3995 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 3996 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 3997 ;OF C(E). 3998 3999 003142 ADR=ADR+1 4000 000010 XX=XX+1 4001 777777 777770 MX=-XX 4002 IFE XX,< 4003 V1=-1 4004 V2=0> 4005 IFN XX,< 4006 000000 V1=0 4007 777777 777777 V2=-1> 4008 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4009 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4010 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4011 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4012 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4013 4014 000010 F31420: AA1=XX ;INITIAL C(AC) 4015 032743 200 12 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4016 000000 AA2=V1 ;INITIAL C(AC+1) 4017 032744 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4018 777777 777777 AEE=-1 ;INITIAL C(E) 4019 032745 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4020 032746 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4021 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4022 032747 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4023 032750 003 12 0 00 031421 ER3 AC,31421 ;HIGH PRODUCT FAILED 4024 777777 777770 AR2=MX ;EXPECTED RESULT IN AC+1 4025 032751 312 13 0 00 044112 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4026 032752 004 13 0 00 031422 ER4 AC+1,31422 ;LOW PRODUCT FAILED 4027 777777 777777 AEE=-1 ;INITIAL C(E) 4028 032753 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4029 032754 005 10 0 00 031423 ER5 E,31423 ;C(E) WAS CLOBBERED 4030 032755 321 14 0 00 032743 JUMPL AC+2,F31420 ;LOOP ON ERROR SWITCH^ 4031 ;MULTIPLICAND=-1 4032 ;TEST MULTIPLICATION ALGORITHM DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0092 4033 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4034 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4035 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4036 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4037 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4038 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4039 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4040 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4041 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4042 ;OF C(E). 4043 4044 003143 ADR=ADR+1 4045 000011 XX=XX+1 4046 777777 777767 MX=-XX 4047 IFE XX,< 4048 V1=-1 4049 V2=0> 4050 IFN XX,< 4051 000000 V1=0 4052 777777 777777 V2=-1> 4053 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4054 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4055 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4056 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4057 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4058 4059 000011 F31430: AA1=XX ;INITIAL C(AC) 4060 032756 200 12 0 00 044100 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4061 000000 AA2=V1 ;INITIAL C(AC+1) 4062 032757 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4063 777777 777777 AEE=-1 ;INITIAL C(E) 4064 032760 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4065 032761 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4066 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4067 032762 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4068 032763 003 12 0 00 031431 ER3 AC,31431 ;HIGH PRODUCT FAILED 4069 777777 777767 AR2=MX ;EXPECTED RESULT IN AC+1 4070 032764 312 13 0 00 044033 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4071 032765 004 13 0 00 031432 ER4 AC+1,31432 ;LOW PRODUCT FAILED 4072 777777 777777 AEE=-1 ;INITIAL C(E) 4073 032766 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4074 032767 005 10 0 00 031433 ER5 E,31433 ;C(E) WAS CLOBBERED 4075 032770 321 14 0 00 032756 JUMPL AC+2,F31430 ;LOOP ON ERROR SWITCH^ 4076 ;MULTIPLICAND=-1 4077 ;TEST MULTIPLICATION ALGORITHM 4078 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4079 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4080 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4081 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4082 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4083 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4084 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4085 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4086 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4087 ;OF C(E). DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0093 4088 4089 003144 ADR=ADR+1 4090 000012 XX=XX+1 4091 777777 777766 MX=-XX 4092 IFE XX,< 4093 V1=-1 4094 V2=0> 4095 IFN XX,< 4096 000000 V1=0 4097 777777 777777 V2=-1> 4098 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4099 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4100 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4101 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4102 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4103 4104 000012 F31440: AA1=XX ;INITIAL C(AC) 4105 032771 200 12 0 00 044101 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4106 000000 AA2=V1 ;INITIAL C(AC+1) 4107 032772 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4108 777777 777777 AEE=-1 ;INITIAL C(E) 4109 032773 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4110 032774 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4111 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4112 032775 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4113 032776 003 12 0 00 031441 ER3 AC,31441 ;HIGH PRODUCT FAILED 4114 777777 777766 AR2=MX ;EXPECTED RESULT IN AC+1 4115 032777 312 13 0 00 044113 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4116 033000 004 13 0 00 031442 ER4 AC+1,31442 ;LOW PRODUCT FAILED 4117 777777 777777 AEE=-1 ;INITIAL C(E) 4118 033001 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4119 033002 005 10 0 00 031443 ER5 E,31443 ;C(E) WAS CLOBBERED 4120 033003 321 14 0 00 032771 JUMPL AC+2,F31440 ;LOOP ON ERROR SWITCH^ 4121 ;MULTIPLICAND=-1 4122 ;TEST MULTIPLICATION ALGORITHM 4123 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4124 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4125 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4126 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4127 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4128 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4129 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4130 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4131 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4132 ;OF C(E). 4133 4134 003145 ADR=ADR+1 4135 000013 XX=XX+1 4136 777777 777765 MX=-XX 4137 IFE XX,< 4138 V1=-1 4139 V2=0> 4140 IFN XX,< 4141 000000 V1=0 4142 777777 777777 V2=-1> DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0094 4143 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4144 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4145 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4146 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4147 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4148 4149 000013 F31450: AA1=XX ;INITIAL C(AC) 4150 033004 200 12 0 00 044102 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4151 000000 AA2=V1 ;INITIAL C(AC+1) 4152 033005 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4153 777777 777777 AEE=-1 ;INITIAL C(E) 4154 033006 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4155 033007 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4156 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4157 033010 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4158 033011 003 12 0 00 031451 ER3 AC,31451 ;HIGH PRODUCT FAILED 4159 777777 777765 AR2=MX ;EXPECTED RESULT IN AC+1 4160 033012 312 13 0 00 044114 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4161 033013 004 13 0 00 031452 ER4 AC+1,31452 ;LOW PRODUCT FAILED 4162 777777 777777 AEE=-1 ;INITIAL C(E) 4163 033014 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4164 033015 005 10 0 00 031453 ER5 E,31453 ;C(E) WAS CLOBBERED 4165 033016 321 14 0 00 033004 JUMPL AC+2,F31450 ;LOOP ON ERROR SWITCH^ 4166 ;MULTIPLICAND=-1 4167 ;TEST MULTIPLICATION ALGORITHM 4168 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4169 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4170 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4171 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4172 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4173 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4174 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4175 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4176 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4177 ;OF C(E). 4178 4179 003146 ADR=ADR+1 4180 000014 XX=XX+1 4181 777777 777764 MX=-XX 4182 IFE XX,< 4183 V1=-1 4184 V2=0> 4185 IFN XX,< 4186 000000 V1=0 4187 777777 777777 V2=-1> 4188 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4189 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4190 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4191 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4192 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4193 4194 000014 F31460: AA1=XX ;INITIAL C(AC) 4195 033017 200 12 0 00 044103 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4196 000000 AA2=V1 ;INITIAL C(AC+1) 4197 033020 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0095 4198 777777 777777 AEE=-1 ;INITIAL C(E) 4199 033021 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4200 033022 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4201 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4202 033023 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4203 033024 003 12 0 00 031461 ER3 AC,31461 ;HIGH PRODUCT FAILED 4204 777777 777764 AR2=MX ;EXPECTED RESULT IN AC+1 4205 033025 312 13 0 00 044115 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4206 033026 004 13 0 00 031462 ER4 AC+1,31462 ;LOW PRODUCT FAILED 4207 777777 777777 AEE=-1 ;INITIAL C(E) 4208 033027 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4209 033030 005 10 0 00 031463 ER5 E,31463 ;C(E) WAS CLOBBERED 4210 033031 321 14 0 00 033017 JUMPL AC+2,F31460 ;LOOP ON ERROR SWITCH^ 4211 ;MULTIPLICAND=-1 4212 ;TEST MULTIPLICATION ALGORITHM 4213 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4214 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4215 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4216 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4217 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4218 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4219 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4220 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4221 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4222 ;OF C(E). 4223 4224 003147 ADR=ADR+1 4225 000015 XX=XX+1 4226 777777 777763 MX=-XX 4227 IFE XX,< 4228 V1=-1 4229 V2=0> 4230 IFN XX,< 4231 000000 V1=0 4232 777777 777777 V2=-1> 4233 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4234 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4235 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4236 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4237 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4238 4239 000015 F31470: AA1=XX ;INITIAL C(AC) 4240 033032 200 12 0 00 044104 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4241 000000 AA2=V1 ;INITIAL C(AC+1) 4242 033033 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4243 777777 777777 AEE=-1 ;INITIAL C(E) 4244 033034 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4245 033035 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4246 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4247 033036 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4248 033037 003 12 0 00 031471 ER3 AC,31471 ;HIGH PRODUCT FAILED 4249 777777 777763 AR2=MX ;EXPECTED RESULT IN AC+1 4250 033040 312 13 0 00 044116 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4251 033041 004 13 0 00 031472 ER4 AC+1,31472 ;LOW PRODUCT FAILED 4252 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0096 4253 033042 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4254 033043 005 10 0 00 031473 ER5 E,31473 ;C(E) WAS CLOBBERED 4255 033044 321 14 0 00 033032 JUMPL AC+2,F31470 ;LOOP ON ERROR SWITCH^ 4256 ;MULTIPLICAND=-1 4257 ;TEST MULTIPLICATION ALGORITHM 4258 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4259 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4260 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4261 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4262 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER 4263 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4264 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4265 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4266 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4267 ;OF C(E). 4268 4269 003150 ADR=ADR+1 4270 000016 XX=XX+1 4271 777777 777762 MX=-XX 4272 IFE XX,< 4273 V1=-1 4274 V2=0> 4275 IFN XX,< 4276 000000 V1=0 4277 777777 777777 V2=-1> 4278 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4279 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4280 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4281 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4282 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4283 4284 000016 F31500: AA1=XX ;INITIAL C(AC) 4285 033045 200 12 0 00 044105 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4286 000000 AA2=V1 ;INITIAL C(AC+1) 4287 033046 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4288 777777 777777 AEE=-1 ;INITIAL C(E) 4289 033047 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4290 033050 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4291 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4292 033051 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4293 033052 003 12 0 00 031501 ER3 AC,31501 ;HIGH PRODUCT FAILED 4294 777777 777762 AR2=MX ;EXPECTED RESULT IN AC+1 4295 033053 312 13 0 00 044117 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4296 033054 004 13 0 00 031502 ER4 AC+1,31502 ;LOW PRODUCT FAILED 4297 777777 777777 AEE=-1 ;INITIAL C(E) 4298 033055 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4299 033056 005 10 0 00 031503 ER5 E,31503 ;C(E) WAS CLOBBERED 4300 033057 321 14 0 00 033045 JUMPL AC+2,F31500 ;LOOP ON ERROR SWITCH^ 4301 ;MULTIPLICAND=-1 4302 ;TEST MULTIPLICATION ALGORITHM 4303 ;VERIFY THAT (-MPY SHIFT) WORKS AS SPECIFIED IN THE 4304 ;KI10 MULTIPLICATION ALGORITHM, I.E., THE TWO LEAST 4305 ;SIGNIFICANT BITS OF THE MULTIPLIER (C(AC)) ARE 4306 ;EXAMINED AND THEN THE MULTIPLICAND (C(E)) IS MULTIPLIED BY THEM. 4307 ;THIS PROCESS IS REPEATED 18 TIMES IN ORDER DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 6-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MULTIPLICATION ALGORITHM SEQ 0097 4308 ;TO MULTIPLY ALL 36 BITS OF THE AC. THIS TEST IS 4309 ;EXECUTED 16 TIMES WITH C(AC)=0, 1,2,3,4, . . ., 17 AND 4310 ;C(E)=1. IT IS EXECUTED ANOTHER 16 TIMES AS ABOVE 4311 ;EXCEPT C(E)=-1 TO VERIFY THAT THE ALGORITHM IS INDEPENDENT 4312 ;OF C(E). 4313 4314 003151 ADR=ADR+1 4315 000017 XX=XX+1 4316 777777 777761 MX=-XX 4317 IFE XX,< 4318 V1=-1 4319 V2=0> 4320 IFN XX,< 4321 000000 V1=0 4322 777777 777777 V2=-1> 4323 MOP1 (\ADR,XX,V1,-1,V2,MX)^ 4324 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[V1] AND 4325 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4326 ;AND E AGAINST [V2], [MX] AND [-1] RESPECTIVELY. 4327 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4328 4329 000017 F31510: AA1=XX ;INITIAL C(AC) 4330 033060 200 12 0 00 044106 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4331 000000 AA2=V1 ;INITIAL C(AC+1) 4332 033061 200 13 0 00 043762 MOVE AC+1,[V1] ;PRELOAD AC+1 4333 777777 777777 AEE=-1 ;INITIAL C(E) 4334 033062 200 10 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 4335 033063 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4336 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 4337 033064 312 12 0 00 043763 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4338 033065 003 12 0 00 031511 ER3 AC,31511 ;HIGH PRODUCT FAILED 4339 777777 777761 AR2=MX ;EXPECTED RESULT IN AC+1 4340 033066 312 13 0 00 044120 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 4341 033067 004 13 0 00 031512 ER4 AC+1,31512 ;LOW PRODUCT FAILED 4342 777777 777777 AEE=-1 ;INITIAL C(E) 4343 033070 312 10 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 4344 033071 005 10 0 00 031513 ER5 E,31513 ;C(E) WAS CLOBBERED 4345 033072 321 14 0 00 033060 JUMPL AC+2,F31510 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0098 4346 SUBTTL DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT 4347 4348 000011 AC=11 4349 000007 E=&17 4350 SAVEAC (1,1)^ 4351 033073 201 13 0 00 033073 MOVEI AC+2,. ;SAVE TEST PC 4352 033074 202 13 0 00 030051 MOVEM AC+2,TESTPC 4353 033075 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4354 033076 202 13 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4355 000000 XX=0 4356 4357 REPEAT ^D36,< 4358 ADR=ADR+1 4359 XX=XX+XX 4360 IFE XX, 4361 4362 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4363 MOP1 (\ADR,XX,-1,0,0,0)> 4364 4365 003152 ADR=ADR+1 4366 000000 XX=XX+XX 4367 000001 IFE XX, 4368 4369 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4370 MOP1 (\ADR,XX,-1,0,0,0)^ 4371 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4372 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4373 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4374 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4375 4376 000001 F31520: AA1=XX ;INITIAL C(AC) 4377 033077 200 11 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4378 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4379 033100 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4380 000000 AEE=0 ;INITIAL C(E) 4381 033101 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4382 033102 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4383 000000 AR1=0 ;EXPECTED RESULT IN AC 4384 033103 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4385 033104 003 11 0 00 031521 ER3 AC,31521 ;HIGH PRODUCT FAILED 4386 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4387 033105 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4388 033106 004 12 0 00 031522 ER4 AC+1,31522 ;LOW PRODUCT FAILED 4389 000000 AEE=0 ;INITIAL C(E) 4390 033107 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4391 033110 005 07 0 00 031523 ER5 E,31523 ;C(E) WAS CLOBBERED 4392 033111 321 13 0 00 033077 JUMPL AC+2,F31520 ;LOOP ON ERROR SWITCH^ 4393 4394 003153 ADR=ADR+1 4395 000002 XX=XX+XX 4396 IFE XX, 4397 4398 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4399 MOP1 (\ADR,XX,-1,0,0,0)^ 4400 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0099 4401 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4402 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4403 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4404 4405 000002 F31530: AA1=XX ;INITIAL C(AC) 4406 033112 200 11 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4407 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4408 033113 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4409 000000 AEE=0 ;INITIAL C(E) 4410 033114 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4411 033115 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4412 000000 AR1=0 ;EXPECTED RESULT IN AC 4413 033116 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4414 033117 003 11 0 00 031531 ER3 AC,31531 ;HIGH PRODUCT FAILED 4415 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4416 033120 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4417 033121 004 12 0 00 031532 ER4 AC+1,31532 ;LOW PRODUCT FAILED 4418 000000 AEE=0 ;INITIAL C(E) 4419 033122 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4420 033123 005 07 0 00 031533 ER5 E,31533 ;C(E) WAS CLOBBERED 4421 033124 321 13 0 00 033112 JUMPL AC+2,F31530 ;LOOP ON ERROR SWITCH^ 4422 4423 003154 ADR=ADR+1 4424 000004 XX=XX+XX 4425 IFE XX, 4426 4427 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4428 MOP1 (\ADR,XX,-1,0,0,0)^ 4429 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4430 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4431 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4432 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4433 4434 000004 F31540: AA1=XX ;INITIAL C(AC) 4435 033125 200 11 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4436 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4437 033126 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4438 000000 AEE=0 ;INITIAL C(E) 4439 033127 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4440 033130 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4441 000000 AR1=0 ;EXPECTED RESULT IN AC 4442 033131 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4443 033132 003 11 0 00 031541 ER3 AC,31541 ;HIGH PRODUCT FAILED 4444 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4445 033133 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4446 033134 004 12 0 00 031542 ER4 AC+1,31542 ;LOW PRODUCT FAILED 4447 000000 AEE=0 ;INITIAL C(E) 4448 033135 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4449 033136 005 07 0 00 031543 ER5 E,31543 ;C(E) WAS CLOBBERED 4450 033137 321 13 0 00 033125 JUMPL AC+2,F31540 ;LOOP ON ERROR SWITCH^ 4451 4452 003155 ADR=ADR+1 4453 000010 XX=XX+XX 4454 IFE XX, 4455 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0100 4456 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4457 MOP1 (\ADR,XX,-1,0,0,0)^ 4458 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4459 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4460 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4461 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4462 4463 000010 F31550: AA1=XX ;INITIAL C(AC) 4464 033140 200 11 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4465 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4466 033141 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4467 000000 AEE=0 ;INITIAL C(E) 4468 033142 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4469 033143 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4470 000000 AR1=0 ;EXPECTED RESULT IN AC 4471 033144 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4472 033145 003 11 0 00 031551 ER3 AC,31551 ;HIGH PRODUCT FAILED 4473 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4474 033146 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4475 033147 004 12 0 00 031552 ER4 AC+1,31552 ;LOW PRODUCT FAILED 4476 000000 AEE=0 ;INITIAL C(E) 4477 033150 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4478 033151 005 07 0 00 031553 ER5 E,31553 ;C(E) WAS CLOBBERED 4479 033152 321 13 0 00 033140 JUMPL AC+2,F31550 ;LOOP ON ERROR SWITCH^ 4480 4481 003156 ADR=ADR+1 4482 000020 XX=XX+XX 4483 IFE XX, 4484 4485 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4486 MOP1 (\ADR,XX,-1,0,0,0)^ 4487 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4488 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4489 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4490 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4491 4492 000020 F31560: AA1=XX ;INITIAL C(AC) 4493 033153 200 11 0 00 043770 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4494 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4495 033154 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4496 000000 AEE=0 ;INITIAL C(E) 4497 033155 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4498 033156 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4499 000000 AR1=0 ;EXPECTED RESULT IN AC 4500 033157 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4501 033160 003 11 0 00 031561 ER3 AC,31561 ;HIGH PRODUCT FAILED 4502 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4503 033161 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4504 033162 004 12 0 00 031562 ER4 AC+1,31562 ;LOW PRODUCT FAILED 4505 000000 AEE=0 ;INITIAL C(E) 4506 033163 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4507 033164 005 07 0 00 031563 ER5 E,31563 ;C(E) WAS CLOBBERED 4508 033165 321 13 0 00 033153 JUMPL AC+2,F31560 ;LOOP ON ERROR SWITCH^ 4509 4510 003157 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0101 4511 000040 XX=XX+XX 4512 IFE XX, 4513 4514 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4515 MOP1 (\ADR,XX,-1,0,0,0)^ 4516 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4517 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4518 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4519 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4520 4521 000040 F31570: AA1=XX ;INITIAL C(AC) 4522 033166 200 11 0 00 043771 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4523 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4524 033167 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4525 000000 AEE=0 ;INITIAL C(E) 4526 033170 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4527 033171 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4528 000000 AR1=0 ;EXPECTED RESULT IN AC 4529 033172 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4530 033173 003 11 0 00 031571 ER3 AC,31571 ;HIGH PRODUCT FAILED 4531 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4532 033174 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4533 033175 004 12 0 00 031572 ER4 AC+1,31572 ;LOW PRODUCT FAILED 4534 000000 AEE=0 ;INITIAL C(E) 4535 033176 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4536 033177 005 07 0 00 031573 ER5 E,31573 ;C(E) WAS CLOBBERED 4537 033200 321 13 0 00 033166 JUMPL AC+2,F31570 ;LOOP ON ERROR SWITCH^ 4538 4539 003160 ADR=ADR+1 4540 000100 XX=XX+XX 4541 IFE XX, 4542 4543 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4544 MOP1 (\ADR,XX,-1,0,0,0)^ 4545 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4546 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4547 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4548 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4549 4550 000100 F31600: AA1=XX ;INITIAL C(AC) 4551 033201 200 11 0 00 043772 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4552 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4553 033202 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4554 000000 AEE=0 ;INITIAL C(E) 4555 033203 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4556 033204 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4557 000000 AR1=0 ;EXPECTED RESULT IN AC 4558 033205 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4559 033206 003 11 0 00 031601 ER3 AC,31601 ;HIGH PRODUCT FAILED 4560 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4561 033207 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4562 033210 004 12 0 00 031602 ER4 AC+1,31602 ;LOW PRODUCT FAILED 4563 000000 AEE=0 ;INITIAL C(E) 4564 033211 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4565 033212 005 07 0 00 031603 ER5 E,31603 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0102 4566 033213 321 13 0 00 033201 JUMPL AC+2,F31600 ;LOOP ON ERROR SWITCH^ 4567 4568 003161 ADR=ADR+1 4569 000200 XX=XX+XX 4570 IFE XX, 4571 4572 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4573 MOP1 (\ADR,XX,-1,0,0,0)^ 4574 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4575 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4576 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4577 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4578 4579 000200 F31610: AA1=XX ;INITIAL C(AC) 4580 033214 200 11 0 00 043773 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4581 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4582 033215 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4583 000000 AEE=0 ;INITIAL C(E) 4584 033216 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4585 033217 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4586 000000 AR1=0 ;EXPECTED RESULT IN AC 4587 033220 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4588 033221 003 11 0 00 031611 ER3 AC,31611 ;HIGH PRODUCT FAILED 4589 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4590 033222 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4591 033223 004 12 0 00 031612 ER4 AC+1,31612 ;LOW PRODUCT FAILED 4592 000000 AEE=0 ;INITIAL C(E) 4593 033224 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4594 033225 005 07 0 00 031613 ER5 E,31613 ;C(E) WAS CLOBBERED 4595 033226 321 13 0 00 033214 JUMPL AC+2,F31610 ;LOOP ON ERROR SWITCH^ 4596 4597 003162 ADR=ADR+1 4598 000400 XX=XX+XX 4599 IFE XX, 4600 4601 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4602 MOP1 (\ADR,XX,-1,0,0,0)^ 4603 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4604 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4605 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4606 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4607 4608 000400 F31620: AA1=XX ;INITIAL C(AC) 4609 033227 200 11 0 00 043774 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4610 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4611 033230 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4612 000000 AEE=0 ;INITIAL C(E) 4613 033231 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4614 033232 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4615 000000 AR1=0 ;EXPECTED RESULT IN AC 4616 033233 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4617 033234 003 11 0 00 031621 ER3 AC,31621 ;HIGH PRODUCT FAILED 4618 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4619 033235 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4620 033236 004 12 0 00 031622 ER4 AC+1,31622 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0103 4621 000000 AEE=0 ;INITIAL C(E) 4622 033237 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4623 033240 005 07 0 00 031623 ER5 E,31623 ;C(E) WAS CLOBBERED 4624 033241 321 13 0 00 033227 JUMPL AC+2,F31620 ;LOOP ON ERROR SWITCH^ 4625 4626 003163 ADR=ADR+1 4627 001000 XX=XX+XX 4628 IFE XX, 4629 4630 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4631 MOP1 (\ADR,XX,-1,0,0,0)^ 4632 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4633 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4634 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4635 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4636 4637 001000 F31630: AA1=XX ;INITIAL C(AC) 4638 033242 200 11 0 00 043775 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4639 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4640 033243 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4641 000000 AEE=0 ;INITIAL C(E) 4642 033244 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4643 033245 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4644 000000 AR1=0 ;EXPECTED RESULT IN AC 4645 033246 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4646 033247 003 11 0 00 031631 ER3 AC,31631 ;HIGH PRODUCT FAILED 4647 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4648 033250 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4649 033251 004 12 0 00 031632 ER4 AC+1,31632 ;LOW PRODUCT FAILED 4650 000000 AEE=0 ;INITIAL C(E) 4651 033252 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4652 033253 005 07 0 00 031633 ER5 E,31633 ;C(E) WAS CLOBBERED 4653 033254 321 13 0 00 033242 JUMPL AC+2,F31630 ;LOOP ON ERROR SWITCH^ 4654 4655 003164 ADR=ADR+1 4656 002000 XX=XX+XX 4657 IFE XX, 4658 4659 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4660 MOP1 (\ADR,XX,-1,0,0,0)^ 4661 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4662 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4663 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4664 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4665 4666 002000 F31640: AA1=XX ;INITIAL C(AC) 4667 033255 200 11 0 00 043776 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4668 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4669 033256 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4670 000000 AEE=0 ;INITIAL C(E) 4671 033257 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4672 033260 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4673 000000 AR1=0 ;EXPECTED RESULT IN AC 4674 033261 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4675 033262 003 11 0 00 031641 ER3 AC,31641 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0104 4676 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4677 033263 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4678 033264 004 12 0 00 031642 ER4 AC+1,31642 ;LOW PRODUCT FAILED 4679 000000 AEE=0 ;INITIAL C(E) 4680 033265 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4681 033266 005 07 0 00 031643 ER5 E,31643 ;C(E) WAS CLOBBERED 4682 033267 321 13 0 00 033255 JUMPL AC+2,F31640 ;LOOP ON ERROR SWITCH^ 4683 4684 003165 ADR=ADR+1 4685 004000 XX=XX+XX 4686 IFE XX, 4687 4688 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4689 MOP1 (\ADR,XX,-1,0,0,0)^ 4690 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4691 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4692 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4693 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4694 4695 004000 F31650: AA1=XX ;INITIAL C(AC) 4696 033270 200 11 0 00 043777 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4697 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4698 033271 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4699 000000 AEE=0 ;INITIAL C(E) 4700 033272 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4701 033273 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4702 000000 AR1=0 ;EXPECTED RESULT IN AC 4703 033274 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4704 033275 003 11 0 00 031651 ER3 AC,31651 ;HIGH PRODUCT FAILED 4705 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4706 033276 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4707 033277 004 12 0 00 031652 ER4 AC+1,31652 ;LOW PRODUCT FAILED 4708 000000 AEE=0 ;INITIAL C(E) 4709 033300 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4710 033301 005 07 0 00 031653 ER5 E,31653 ;C(E) WAS CLOBBERED 4711 033302 321 13 0 00 033270 JUMPL AC+2,F31650 ;LOOP ON ERROR SWITCH^ 4712 4713 003166 ADR=ADR+1 4714 010000 XX=XX+XX 4715 IFE XX, 4716 4717 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4718 MOP1 (\ADR,XX,-1,0,0,0)^ 4719 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4720 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4721 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4722 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4723 4724 010000 F31660: AA1=XX ;INITIAL C(AC) 4725 033303 200 11 0 00 044000 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4726 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4727 033304 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4728 000000 AEE=0 ;INITIAL C(E) 4729 033305 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4730 033306 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0105 4731 000000 AR1=0 ;EXPECTED RESULT IN AC 4732 033307 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4733 033310 003 11 0 00 031661 ER3 AC,31661 ;HIGH PRODUCT FAILED 4734 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4735 033311 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4736 033312 004 12 0 00 031662 ER4 AC+1,31662 ;LOW PRODUCT FAILED 4737 000000 AEE=0 ;INITIAL C(E) 4738 033313 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4739 033314 005 07 0 00 031663 ER5 E,31663 ;C(E) WAS CLOBBERED 4740 033315 321 13 0 00 033303 JUMPL AC+2,F31660 ;LOOP ON ERROR SWITCH^ 4741 4742 003167 ADR=ADR+1 4743 020000 XX=XX+XX 4744 IFE XX, 4745 4746 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4747 MOP1 (\ADR,XX,-1,0,0,0)^ 4748 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4749 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4750 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4751 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4752 4753 020000 F31670: AA1=XX ;INITIAL C(AC) 4754 033316 200 11 0 00 044001 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4755 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4756 033317 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4757 000000 AEE=0 ;INITIAL C(E) 4758 033320 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4759 033321 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4760 000000 AR1=0 ;EXPECTED RESULT IN AC 4761 033322 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4762 033323 003 11 0 00 031671 ER3 AC,31671 ;HIGH PRODUCT FAILED 4763 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4764 033324 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4765 033325 004 12 0 00 031672 ER4 AC+1,31672 ;LOW PRODUCT FAILED 4766 000000 AEE=0 ;INITIAL C(E) 4767 033326 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4768 033327 005 07 0 00 031673 ER5 E,31673 ;C(E) WAS CLOBBERED 4769 033330 321 13 0 00 033316 JUMPL AC+2,F31670 ;LOOP ON ERROR SWITCH^ 4770 4771 003170 ADR=ADR+1 4772 040000 XX=XX+XX 4773 IFE XX, 4774 4775 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4776 MOP1 (\ADR,XX,-1,0,0,0)^ 4777 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4778 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4779 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4780 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4781 4782 040000 F31700: AA1=XX ;INITIAL C(AC) 4783 033331 200 11 0 00 044002 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4784 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4785 033332 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0106 4786 000000 AEE=0 ;INITIAL C(E) 4787 033333 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4788 033334 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4789 000000 AR1=0 ;EXPECTED RESULT IN AC 4790 033335 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4791 033336 003 11 0 00 031701 ER3 AC,31701 ;HIGH PRODUCT FAILED 4792 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4793 033337 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4794 033340 004 12 0 00 031702 ER4 AC+1,31702 ;LOW PRODUCT FAILED 4795 000000 AEE=0 ;INITIAL C(E) 4796 033341 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4797 033342 005 07 0 00 031703 ER5 E,31703 ;C(E) WAS CLOBBERED 4798 033343 321 13 0 00 033331 JUMPL AC+2,F31700 ;LOOP ON ERROR SWITCH^ 4799 4800 003171 ADR=ADR+1 4801 100000 XX=XX+XX 4802 IFE XX, 4803 4804 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4805 MOP1 (\ADR,XX,-1,0,0,0)^ 4806 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4807 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4808 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4809 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4810 4811 100000 F31710: AA1=XX ;INITIAL C(AC) 4812 033344 200 11 0 00 044003 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4813 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4814 033345 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4815 000000 AEE=0 ;INITIAL C(E) 4816 033346 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4817 033347 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4818 000000 AR1=0 ;EXPECTED RESULT IN AC 4819 033350 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4820 033351 003 11 0 00 031711 ER3 AC,31711 ;HIGH PRODUCT FAILED 4821 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4822 033352 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4823 033353 004 12 0 00 031712 ER4 AC+1,31712 ;LOW PRODUCT FAILED 4824 000000 AEE=0 ;INITIAL C(E) 4825 033354 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4826 033355 005 07 0 00 031713 ER5 E,31713 ;C(E) WAS CLOBBERED 4827 033356 321 13 0 00 033344 JUMPL AC+2,F31710 ;LOOP ON ERROR SWITCH^ 4828 4829 003172 ADR=ADR+1 4830 200000 XX=XX+XX 4831 IFE XX, 4832 4833 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4834 MOP1 (\ADR,XX,-1,0,0,0)^ 4835 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4836 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4837 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4838 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4839 4840 200000 F31720: AA1=XX ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0107 4841 033357 200 11 0 00 044004 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4842 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4843 033360 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4844 000000 AEE=0 ;INITIAL C(E) 4845 033361 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4846 033362 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4847 000000 AR1=0 ;EXPECTED RESULT IN AC 4848 033363 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4849 033364 003 11 0 00 031721 ER3 AC,31721 ;HIGH PRODUCT FAILED 4850 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4851 033365 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4852 033366 004 12 0 00 031722 ER4 AC+1,31722 ;LOW PRODUCT FAILED 4853 000000 AEE=0 ;INITIAL C(E) 4854 033367 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4855 033370 005 07 0 00 031723 ER5 E,31723 ;C(E) WAS CLOBBERED 4856 033371 321 13 0 00 033357 JUMPL AC+2,F31720 ;LOOP ON ERROR SWITCH^ 4857 4858 003173 ADR=ADR+1 4859 400000 XX=XX+XX 4860 IFE XX, 4861 4862 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4863 MOP1 (\ADR,XX,-1,0,0,0)^ 4864 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4865 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4866 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4867 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4868 4869 400000 F31730: AA1=XX ;INITIAL C(AC) 4870 033372 200 11 0 00 044005 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4871 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4872 033373 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4873 000000 AEE=0 ;INITIAL C(E) 4874 033374 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4875 033375 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4876 000000 AR1=0 ;EXPECTED RESULT IN AC 4877 033376 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4878 033377 003 11 0 00 031731 ER3 AC,31731 ;HIGH PRODUCT FAILED 4879 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4880 033400 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4881 033401 004 12 0 00 031732 ER4 AC+1,31732 ;LOW PRODUCT FAILED 4882 000000 AEE=0 ;INITIAL C(E) 4883 033402 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4884 033403 005 07 0 00 031733 ER5 E,31733 ;C(E) WAS CLOBBERED 4885 033404 321 13 0 00 033372 JUMPL AC+2,F31730 ;LOOP ON ERROR SWITCH^ 4886 4887 003174 ADR=ADR+1 4888 000001 000000 XX=XX+XX 4889 IFE XX, 4890 4891 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4892 MOP1 (\ADR,XX,-1,0,0,0)^ 4893 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4894 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4895 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0108 4896 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4897 4898 000001 000000 F31740: AA1=XX ;INITIAL C(AC) 4899 033405 200 11 0 00 044006 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4900 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4901 033406 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4902 000000 AEE=0 ;INITIAL C(E) 4903 033407 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4904 033410 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4905 000000 AR1=0 ;EXPECTED RESULT IN AC 4906 033411 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4907 033412 003 11 0 00 031741 ER3 AC,31741 ;HIGH PRODUCT FAILED 4908 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4909 033413 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4910 033414 004 12 0 00 031742 ER4 AC+1,31742 ;LOW PRODUCT FAILED 4911 000000 AEE=0 ;INITIAL C(E) 4912 033415 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4913 033416 005 07 0 00 031743 ER5 E,31743 ;C(E) WAS CLOBBERED 4914 033417 321 13 0 00 033405 JUMPL AC+2,F31740 ;LOOP ON ERROR SWITCH^ 4915 4916 003175 ADR=ADR+1 4917 000002 000000 XX=XX+XX 4918 IFE XX, 4919 4920 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4921 MOP1 (\ADR,XX,-1,0,0,0)^ 4922 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4923 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4924 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4925 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4926 4927 000002 000000 F31750: AA1=XX ;INITIAL C(AC) 4928 033420 200 11 0 00 044007 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4929 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4930 033421 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4931 000000 AEE=0 ;INITIAL C(E) 4932 033422 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4933 033423 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4934 000000 AR1=0 ;EXPECTED RESULT IN AC 4935 033424 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4936 033425 003 11 0 00 031751 ER3 AC,31751 ;HIGH PRODUCT FAILED 4937 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4938 033426 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4939 033427 004 12 0 00 031752 ER4 AC+1,31752 ;LOW PRODUCT FAILED 4940 000000 AEE=0 ;INITIAL C(E) 4941 033430 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4942 033431 005 07 0 00 031753 ER5 E,31753 ;C(E) WAS CLOBBERED 4943 033432 321 13 0 00 033420 JUMPL AC+2,F31750 ;LOOP ON ERROR SWITCH^ 4944 4945 003176 ADR=ADR+1 4946 000004 000000 XX=XX+XX 4947 IFE XX, 4948 4949 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4950 MOP1 (\ADR,XX,-1,0,0,0)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0109 4951 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4952 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4953 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4954 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4955 4956 000004 000000 F31760: AA1=XX ;INITIAL C(AC) 4957 033433 200 11 0 00 044010 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4958 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4959 033434 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4960 000000 AEE=0 ;INITIAL C(E) 4961 033435 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4962 033436 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4963 000000 AR1=0 ;EXPECTED RESULT IN AC 4964 033437 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4965 033440 003 11 0 00 031761 ER3 AC,31761 ;HIGH PRODUCT FAILED 4966 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4967 033441 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4968 033442 004 12 0 00 031762 ER4 AC+1,31762 ;LOW PRODUCT FAILED 4969 000000 AEE=0 ;INITIAL C(E) 4970 033443 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 4971 033444 005 07 0 00 031763 ER5 E,31763 ;C(E) WAS CLOBBERED 4972 033445 321 13 0 00 033433 JUMPL AC+2,F31760 ;LOOP ON ERROR SWITCH^ 4973 4974 003177 ADR=ADR+1 4975 000010 000000 XX=XX+XX 4976 IFE XX, 4977 4978 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 4979 MOP1 (\ADR,XX,-1,0,0,0)^ 4980 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4981 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4982 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 4983 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4984 4985 000010 000000 F31770: AA1=XX ;INITIAL C(AC) 4986 033446 200 11 0 00 044011 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4987 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4988 033447 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 4989 000000 AEE=0 ;INITIAL C(E) 4990 033450 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 4991 033451 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4992 000000 AR1=0 ;EXPECTED RESULT IN AC 4993 033452 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 4994 033453 003 11 0 00 031771 ER3 AC,31771 ;HIGH PRODUCT FAILED 4995 000000 AR2=0 ;EXPECTED RESULT IN AC+1 4996 033454 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 4997 033455 004 12 0 00 031772 ER4 AC+1,31772 ;LOW PRODUCT FAILED 4998 000000 AEE=0 ;INITIAL C(E) 4999 033456 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5000 033457 005 07 0 00 031773 ER5 E,31773 ;C(E) WAS CLOBBERED 5001 033460 321 13 0 00 033446 JUMPL AC+2,F31770 ;LOOP ON ERROR SWITCH^ 5002 5003 003200 ADR=ADR+1 5004 000020 000000 XX=XX+XX 5005 IFE XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0110 5006 5007 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5008 MOP1 (\ADR,XX,-1,0,0,0)^ 5009 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5010 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5011 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5012 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5013 5014 000020 000000 F32000: AA1=XX ;INITIAL C(AC) 5015 033461 200 11 0 00 044012 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5016 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5017 033462 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5018 000000 AEE=0 ;INITIAL C(E) 5019 033463 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5020 033464 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5021 000000 AR1=0 ;EXPECTED RESULT IN AC 5022 033465 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5023 033466 003 11 0 00 032001 ER3 AC,32001 ;HIGH PRODUCT FAILED 5024 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5025 033467 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5026 033470 004 12 0 00 032002 ER4 AC+1,32002 ;LOW PRODUCT FAILED 5027 000000 AEE=0 ;INITIAL C(E) 5028 033471 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5029 033472 005 07 0 00 032003 ER5 E,32003 ;C(E) WAS CLOBBERED 5030 033473 321 13 0 00 033461 JUMPL AC+2,F32000 ;LOOP ON ERROR SWITCH^ 5031 5032 003201 ADR=ADR+1 5033 000040 000000 XX=XX+XX 5034 IFE XX, 5035 5036 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5037 MOP1 (\ADR,XX,-1,0,0,0)^ 5038 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5039 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5040 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5041 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5042 5043 000040 000000 F32010: AA1=XX ;INITIAL C(AC) 5044 033474 200 11 0 00 044013 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5045 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5046 033475 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5047 000000 AEE=0 ;INITIAL C(E) 5048 033476 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5049 033477 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5050 000000 AR1=0 ;EXPECTED RESULT IN AC 5051 033500 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5052 033501 003 11 0 00 032011 ER3 AC,32011 ;HIGH PRODUCT FAILED 5053 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5054 033502 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5055 033503 004 12 0 00 032012 ER4 AC+1,32012 ;LOW PRODUCT FAILED 5056 000000 AEE=0 ;INITIAL C(E) 5057 033504 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5058 033505 005 07 0 00 032013 ER5 E,32013 ;C(E) WAS CLOBBERED 5059 033506 321 13 0 00 033474 JUMPL AC+2,F32010 ;LOOP ON ERROR SWITCH^ 5060 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0111 5061 003202 ADR=ADR+1 5062 000100 000000 XX=XX+XX 5063 IFE XX, 5064 5065 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5066 MOP1 (\ADR,XX,-1,0,0,0)^ 5067 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5068 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5069 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5070 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5071 5072 000100 000000 F32020: AA1=XX ;INITIAL C(AC) 5073 033507 200 11 0 00 044014 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5074 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5075 033510 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5076 000000 AEE=0 ;INITIAL C(E) 5077 033511 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5078 033512 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5079 000000 AR1=0 ;EXPECTED RESULT IN AC 5080 033513 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5081 033514 003 11 0 00 032021 ER3 AC,32021 ;HIGH PRODUCT FAILED 5082 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5083 033515 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5084 033516 004 12 0 00 032022 ER4 AC+1,32022 ;LOW PRODUCT FAILED 5085 000000 AEE=0 ;INITIAL C(E) 5086 033517 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5087 033520 005 07 0 00 032023 ER5 E,32023 ;C(E) WAS CLOBBERED 5088 033521 321 13 0 00 033507 JUMPL AC+2,F32020 ;LOOP ON ERROR SWITCH^ 5089 5090 003203 ADR=ADR+1 5091 000200 000000 XX=XX+XX 5092 IFE XX, 5093 5094 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5095 MOP1 (\ADR,XX,-1,0,0,0)^ 5096 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5097 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5098 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5099 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5100 5101 000200 000000 F32030: AA1=XX ;INITIAL C(AC) 5102 033522 200 11 0 00 044015 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5103 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5104 033523 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5105 000000 AEE=0 ;INITIAL C(E) 5106 033524 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5107 033525 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5108 000000 AR1=0 ;EXPECTED RESULT IN AC 5109 033526 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5110 033527 003 11 0 00 032031 ER3 AC,32031 ;HIGH PRODUCT FAILED 5111 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5112 033530 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5113 033531 004 12 0 00 032032 ER4 AC+1,32032 ;LOW PRODUCT FAILED 5114 000000 AEE=0 ;INITIAL C(E) 5115 033532 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0112 5116 033533 005 07 0 00 032033 ER5 E,32033 ;C(E) WAS CLOBBERED 5117 033534 321 13 0 00 033522 JUMPL AC+2,F32030 ;LOOP ON ERROR SWITCH^ 5118 5119 003204 ADR=ADR+1 5120 000400 000000 XX=XX+XX 5121 IFE XX, 5122 5123 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5124 MOP1 (\ADR,XX,-1,0,0,0)^ 5125 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5126 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5127 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5128 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5129 5130 000400 000000 F32040: AA1=XX ;INITIAL C(AC) 5131 033535 200 11 0 00 044016 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5132 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5133 033536 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5134 000000 AEE=0 ;INITIAL C(E) 5135 033537 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5136 033540 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5137 000000 AR1=0 ;EXPECTED RESULT IN AC 5138 033541 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5139 033542 003 11 0 00 032041 ER3 AC,32041 ;HIGH PRODUCT FAILED 5140 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5141 033543 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5142 033544 004 12 0 00 032042 ER4 AC+1,32042 ;LOW PRODUCT FAILED 5143 000000 AEE=0 ;INITIAL C(E) 5144 033545 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5145 033546 005 07 0 00 032043 ER5 E,32043 ;C(E) WAS CLOBBERED 5146 033547 321 13 0 00 033535 JUMPL AC+2,F32040 ;LOOP ON ERROR SWITCH^ 5147 5148 003205 ADR=ADR+1 5149 001000 000000 XX=XX+XX 5150 IFE XX, 5151 5152 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5153 MOP1 (\ADR,XX,-1,0,0,0)^ 5154 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5155 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5156 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5157 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5158 5159 001000 000000 F32050: AA1=XX ;INITIAL C(AC) 5160 033550 200 11 0 00 044017 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5161 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5162 033551 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5163 000000 AEE=0 ;INITIAL C(E) 5164 033552 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5165 033553 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5166 000000 AR1=0 ;EXPECTED RESULT IN AC 5167 033554 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5168 033555 003 11 0 00 032051 ER3 AC,32051 ;HIGH PRODUCT FAILED 5169 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5170 033556 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0113 5171 033557 004 12 0 00 032052 ER4 AC+1,32052 ;LOW PRODUCT FAILED 5172 000000 AEE=0 ;INITIAL C(E) 5173 033560 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5174 033561 005 07 0 00 032053 ER5 E,32053 ;C(E) WAS CLOBBERED 5175 033562 321 13 0 00 033550 JUMPL AC+2,F32050 ;LOOP ON ERROR SWITCH^ 5176 5177 003206 ADR=ADR+1 5178 002000 000000 XX=XX+XX 5179 IFE XX, 5180 5181 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5182 MOP1 (\ADR,XX,-1,0,0,0)^ 5183 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5184 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5185 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5186 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5187 5188 002000 000000 F32060: AA1=XX ;INITIAL C(AC) 5189 033563 200 11 0 00 044020 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5190 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5191 033564 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5192 000000 AEE=0 ;INITIAL C(E) 5193 033565 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5194 033566 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5195 000000 AR1=0 ;EXPECTED RESULT IN AC 5196 033567 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5197 033570 003 11 0 00 032061 ER3 AC,32061 ;HIGH PRODUCT FAILED 5198 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5199 033571 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5200 033572 004 12 0 00 032062 ER4 AC+1,32062 ;LOW PRODUCT FAILED 5201 000000 AEE=0 ;INITIAL C(E) 5202 033573 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5203 033574 005 07 0 00 032063 ER5 E,32063 ;C(E) WAS CLOBBERED 5204 033575 321 13 0 00 033563 JUMPL AC+2,F32060 ;LOOP ON ERROR SWITCH^ 5205 5206 003207 ADR=ADR+1 5207 004000 000000 XX=XX+XX 5208 IFE XX, 5209 5210 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5211 MOP1 (\ADR,XX,-1,0,0,0)^ 5212 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5213 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5214 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5215 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5216 5217 004000 000000 F32070: AA1=XX ;INITIAL C(AC) 5218 033576 200 11 0 00 044021 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5219 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5220 033577 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5221 000000 AEE=0 ;INITIAL C(E) 5222 033600 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5223 033601 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5224 000000 AR1=0 ;EXPECTED RESULT IN AC 5225 033602 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0114 5226 033603 003 11 0 00 032071 ER3 AC,32071 ;HIGH PRODUCT FAILED 5227 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5228 033604 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5229 033605 004 12 0 00 032072 ER4 AC+1,32072 ;LOW PRODUCT FAILED 5230 000000 AEE=0 ;INITIAL C(E) 5231 033606 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5232 033607 005 07 0 00 032073 ER5 E,32073 ;C(E) WAS CLOBBERED 5233 033610 321 13 0 00 033576 JUMPL AC+2,F32070 ;LOOP ON ERROR SWITCH^ 5234 5235 003210 ADR=ADR+1 5236 010000 000000 XX=XX+XX 5237 IFE XX, 5238 5239 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5240 MOP1 (\ADR,XX,-1,0,0,0)^ 5241 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5242 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5243 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5244 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5245 5246 010000 000000 F32100: AA1=XX ;INITIAL C(AC) 5247 033611 200 11 0 00 044022 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5248 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5249 033612 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5250 000000 AEE=0 ;INITIAL C(E) 5251 033613 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5252 033614 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5253 000000 AR1=0 ;EXPECTED RESULT IN AC 5254 033615 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5255 033616 003 11 0 00 032101 ER3 AC,32101 ;HIGH PRODUCT FAILED 5256 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5257 033617 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5258 033620 004 12 0 00 032102 ER4 AC+1,32102 ;LOW PRODUCT FAILED 5259 000000 AEE=0 ;INITIAL C(E) 5260 033621 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5261 033622 005 07 0 00 032103 ER5 E,32103 ;C(E) WAS CLOBBERED 5262 033623 321 13 0 00 033611 JUMPL AC+2,F32100 ;LOOP ON ERROR SWITCH^ 5263 5264 003211 ADR=ADR+1 5265 020000 000000 XX=XX+XX 5266 IFE XX, 5267 5268 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5269 MOP1 (\ADR,XX,-1,0,0,0)^ 5270 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5271 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5272 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5273 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5274 5275 020000 000000 F32110: AA1=XX ;INITIAL C(AC) 5276 033624 200 11 0 00 044023 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5277 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5278 033625 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5279 000000 AEE=0 ;INITIAL C(E) 5280 033626 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0115 5281 033627 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5282 000000 AR1=0 ;EXPECTED RESULT IN AC 5283 033630 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5284 033631 003 11 0 00 032111 ER3 AC,32111 ;HIGH PRODUCT FAILED 5285 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5286 033632 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5287 033633 004 12 0 00 032112 ER4 AC+1,32112 ;LOW PRODUCT FAILED 5288 000000 AEE=0 ;INITIAL C(E) 5289 033634 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5290 033635 005 07 0 00 032113 ER5 E,32113 ;C(E) WAS CLOBBERED 5291 033636 321 13 0 00 033624 JUMPL AC+2,F32110 ;LOOP ON ERROR SWITCH^ 5292 5293 003212 ADR=ADR+1 5294 040000 000000 XX=XX+XX 5295 IFE XX, 5296 5297 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5298 MOP1 (\ADR,XX,-1,0,0,0)^ 5299 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5300 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5301 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5302 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5303 5304 040000 000000 F32120: AA1=XX ;INITIAL C(AC) 5305 033637 200 11 0 00 044024 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5306 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5307 033640 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5308 000000 AEE=0 ;INITIAL C(E) 5309 033641 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5310 033642 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5311 000000 AR1=0 ;EXPECTED RESULT IN AC 5312 033643 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5313 033644 003 11 0 00 032121 ER3 AC,32121 ;HIGH PRODUCT FAILED 5314 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5315 033645 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5316 033646 004 12 0 00 032122 ER4 AC+1,32122 ;LOW PRODUCT FAILED 5317 000000 AEE=0 ;INITIAL C(E) 5318 033647 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5319 033650 005 07 0 00 032123 ER5 E,32123 ;C(E) WAS CLOBBERED 5320 033651 321 13 0 00 033637 JUMPL AC+2,F32120 ;LOOP ON ERROR SWITCH^ 5321 5322 003213 ADR=ADR+1 5323 100000 000000 XX=XX+XX 5324 IFE XX, 5325 5326 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5327 MOP1 (\ADR,XX,-1,0,0,0)^ 5328 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5329 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5330 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5331 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5332 5333 100000 000000 F32130: AA1=XX ;INITIAL C(AC) 5334 033652 200 11 0 00 044025 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5335 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0116 5336 033653 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5337 000000 AEE=0 ;INITIAL C(E) 5338 033654 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5339 033655 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5340 000000 AR1=0 ;EXPECTED RESULT IN AC 5341 033656 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5342 033657 003 11 0 00 032131 ER3 AC,32131 ;HIGH PRODUCT FAILED 5343 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5344 033660 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5345 033661 004 12 0 00 032132 ER4 AC+1,32132 ;LOW PRODUCT FAILED 5346 000000 AEE=0 ;INITIAL C(E) 5347 033662 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5348 033663 005 07 0 00 032133 ER5 E,32133 ;C(E) WAS CLOBBERED 5349 033664 321 13 0 00 033652 JUMPL AC+2,F32130 ;LOOP ON ERROR SWITCH^ 5350 5351 003214 ADR=ADR+1 5352 200000 000000 XX=XX+XX 5353 IFE XX, 5354 5355 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5356 MOP1 (\ADR,XX,-1,0,0,0)^ 5357 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5358 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5359 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5360 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5361 5362 200000 000000 F32140: AA1=XX ;INITIAL C(AC) 5363 033665 200 11 0 00 044026 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5364 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5365 033666 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5366 000000 AEE=0 ;INITIAL C(E) 5367 033667 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5368 033670 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5369 000000 AR1=0 ;EXPECTED RESULT IN AC 5370 033671 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5371 033672 003 11 0 00 032141 ER3 AC,32141 ;HIGH PRODUCT FAILED 5372 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5373 033673 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5374 033674 004 12 0 00 032142 ER4 AC+1,32142 ;LOW PRODUCT FAILED 5375 000000 AEE=0 ;INITIAL C(E) 5376 033675 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5377 033676 005 07 0 00 032143 ER5 E,32143 ;C(E) WAS CLOBBERED 5378 033677 321 13 0 00 033665 JUMPL AC+2,F32140 ;LOOP ON ERROR SWITCH^ 5379 5380 003215 ADR=ADR+1 5381 400000 000000 XX=XX+XX 5382 IFE XX, 5383 5384 ;MULTIPLY 0 BY RIPPLED 1 TO GET PRODUCT OF ZERO 5385 MOP1 (\ADR,XX,-1,0,0,0)^ 5386 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5387 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5388 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5389 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5390 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 7-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0117 5391 400000 000000 F32150: AA1=XX ;INITIAL C(AC) 5392 033700 200 11 0 00 044027 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5393 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5394 033701 200 12 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5395 000000 AEE=0 ;INITIAL C(E) 5396 033702 200 07 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5397 033703 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5398 000000 AR1=0 ;EXPECTED RESULT IN AC 5399 033704 312 11 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5400 033705 003 11 0 00 032151 ER3 AC,32151 ;HIGH PRODUCT FAILED 5401 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5402 033706 312 12 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5403 033707 004 12 0 00 032152 ER4 AC+1,32152 ;LOW PRODUCT FAILED 5404 000000 AEE=0 ;INITIAL C(E) 5405 033710 312 07 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5406 033711 005 07 0 00 032153 ER5 E,32153 ;C(E) WAS CLOBBERED 5407 033712 321 13 0 00 033700 JUMPL AC+2,F32150 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0118 5408 000010 AC=10 5409 000006 E=&17 5410 SAVEAC (1,1)^ 5411 033713 201 12 0 00 033713 MOVEI AC+2,. ;SAVE TEST PC 5412 033714 202 12 0 00 030051 MOVEM AC+2,TESTPC 5413 033715 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5414 033716 202 12 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5415 000000 XX=0 5416 5417 REPEAT ^D36,< 5418 ADR=ADR+1 5419 XX=XX+XX+1 5420 IFE , 5421 5422 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5423 MOP1 (\ADR,XX,-1,0,0,0)> 5424 5425 003216 ADR=ADR+1 5426 000001 XX=XX+XX+1 5427 777777 777776 IFE , 5428 5429 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5430 MOP1 (\ADR,XX,-1,0,0,0)^ 5431 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5432 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5433 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5434 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5435 5436 777777 777776 F32160: AA1=XX ;INITIAL C(AC) 5437 033717 200 10 0 00 044030 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5438 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5439 033720 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5440 000000 AEE=0 ;INITIAL C(E) 5441 033721 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5442 033722 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5443 000000 AR1=0 ;EXPECTED RESULT IN AC 5444 033723 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5445 033724 003 10 0 00 032161 ER3 AC,32161 ;HIGH PRODUCT FAILED 5446 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5447 033725 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5448 033726 004 11 0 00 032162 ER4 AC+1,32162 ;LOW PRODUCT FAILED 5449 000000 AEE=0 ;INITIAL C(E) 5450 033727 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5451 033730 005 06 0 00 032163 ER5 E,32163 ;C(E) WAS CLOBBERED 5452 033731 321 12 0 00 033717 JUMPL AC+2,F32160 ;LOOP ON ERROR SWITCH^ 5453 5454 003217 ADR=ADR+1 5455 777777 777775 XX=XX+XX+1 5456 IFE , 5457 5458 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5459 MOP1 (\ADR,XX,-1,0,0,0)^ 5460 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5461 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5462 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0119 5463 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5464 5465 777777 777775 F32170: AA1=XX ;INITIAL C(AC) 5466 033732 200 10 0 00 044031 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5467 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5468 033733 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5469 000000 AEE=0 ;INITIAL C(E) 5470 033734 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5471 033735 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5472 000000 AR1=0 ;EXPECTED RESULT IN AC 5473 033736 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5474 033737 003 10 0 00 032171 ER3 AC,32171 ;HIGH PRODUCT FAILED 5475 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5476 033740 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5477 033741 004 11 0 00 032172 ER4 AC+1,32172 ;LOW PRODUCT FAILED 5478 000000 AEE=0 ;INITIAL C(E) 5479 033742 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5480 033743 005 06 0 00 032173 ER5 E,32173 ;C(E) WAS CLOBBERED 5481 033744 321 12 0 00 033732 JUMPL AC+2,F32170 ;LOOP ON ERROR SWITCH^ 5482 5483 003220 ADR=ADR+1 5484 777777 777773 XX=XX+XX+1 5485 IFE , 5486 5487 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5488 MOP1 (\ADR,XX,-1,0,0,0)^ 5489 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5490 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5491 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5492 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5493 5494 777777 777773 F32200: AA1=XX ;INITIAL C(AC) 5495 033745 200 10 0 00 044032 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5496 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5497 033746 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5498 000000 AEE=0 ;INITIAL C(E) 5499 033747 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5500 033750 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5501 000000 AR1=0 ;EXPECTED RESULT IN AC 5502 033751 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5503 033752 003 10 0 00 032201 ER3 AC,32201 ;HIGH PRODUCT FAILED 5504 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5505 033753 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5506 033754 004 11 0 00 032202 ER4 AC+1,32202 ;LOW PRODUCT FAILED 5507 000000 AEE=0 ;INITIAL C(E) 5508 033755 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5509 033756 005 06 0 00 032203 ER5 E,32203 ;C(E) WAS CLOBBERED 5510 033757 321 12 0 00 033745 JUMPL AC+2,F32200 ;LOOP ON ERROR SWITCH^ 5511 5512 003221 ADR=ADR+1 5513 777777 777767 XX=XX+XX+1 5514 IFE , 5515 5516 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5517 MOP1 (\ADR,XX,-1,0,0,0)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0120 5518 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5519 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5520 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5521 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5522 5523 777777 777767 F32210: AA1=XX ;INITIAL C(AC) 5524 033760 200 10 0 00 044033 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5525 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5526 033761 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5527 000000 AEE=0 ;INITIAL C(E) 5528 033762 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5529 033763 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5530 000000 AR1=0 ;EXPECTED RESULT IN AC 5531 033764 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5532 033765 003 10 0 00 032211 ER3 AC,32211 ;HIGH PRODUCT FAILED 5533 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5534 033766 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5535 033767 004 11 0 00 032212 ER4 AC+1,32212 ;LOW PRODUCT FAILED 5536 000000 AEE=0 ;INITIAL C(E) 5537 033770 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5538 033771 005 06 0 00 032213 ER5 E,32213 ;C(E) WAS CLOBBERED 5539 033772 321 12 0 00 033760 JUMPL AC+2,F32210 ;LOOP ON ERROR SWITCH^ 5540 5541 003222 ADR=ADR+1 5542 777777 777757 XX=XX+XX+1 5543 IFE , 5544 5545 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5546 MOP1 (\ADR,XX,-1,0,0,0)^ 5547 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5548 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5549 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5550 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5551 5552 777777 777757 F32220: AA1=XX ;INITIAL C(AC) 5553 033773 200 10 0 00 044034 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5554 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5555 033774 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5556 000000 AEE=0 ;INITIAL C(E) 5557 033775 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5558 033776 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5559 000000 AR1=0 ;EXPECTED RESULT IN AC 5560 033777 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5561 034000 003 10 0 00 032221 ER3 AC,32221 ;HIGH PRODUCT FAILED 5562 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5563 034001 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5564 034002 004 11 0 00 032222 ER4 AC+1,32222 ;LOW PRODUCT FAILED 5565 000000 AEE=0 ;INITIAL C(E) 5566 034003 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5567 034004 005 06 0 00 032223 ER5 E,32223 ;C(E) WAS CLOBBERED 5568 034005 321 12 0 00 033773 JUMPL AC+2,F32220 ;LOOP ON ERROR SWITCH^ 5569 5570 003223 ADR=ADR+1 5571 777777 777737 XX=XX+XX+1 5572 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0121 5573 5574 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5575 MOP1 (\ADR,XX,-1,0,0,0)^ 5576 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5577 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5578 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5579 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5580 5581 777777 777737 F32230: AA1=XX ;INITIAL C(AC) 5582 034006 200 10 0 00 044035 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5583 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5584 034007 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5585 000000 AEE=0 ;INITIAL C(E) 5586 034010 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5587 034011 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5588 000000 AR1=0 ;EXPECTED RESULT IN AC 5589 034012 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5590 034013 003 10 0 00 032231 ER3 AC,32231 ;HIGH PRODUCT FAILED 5591 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5592 034014 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5593 034015 004 11 0 00 032232 ER4 AC+1,32232 ;LOW PRODUCT FAILED 5594 000000 AEE=0 ;INITIAL C(E) 5595 034016 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5596 034017 005 06 0 00 032233 ER5 E,32233 ;C(E) WAS CLOBBERED 5597 034020 321 12 0 00 034006 JUMPL AC+2,F32230 ;LOOP ON ERROR SWITCH^ 5598 5599 003224 ADR=ADR+1 5600 777777 777677 XX=XX+XX+1 5601 IFE , 5602 5603 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5604 MOP1 (\ADR,XX,-1,0,0,0)^ 5605 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5606 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5607 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5608 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5609 5610 777777 777677 F32240: AA1=XX ;INITIAL C(AC) 5611 034021 200 10 0 00 044036 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5612 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5613 034022 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5614 000000 AEE=0 ;INITIAL C(E) 5615 034023 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5616 034024 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5617 000000 AR1=0 ;EXPECTED RESULT IN AC 5618 034025 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5619 034026 003 10 0 00 032241 ER3 AC,32241 ;HIGH PRODUCT FAILED 5620 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5621 034027 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5622 034030 004 11 0 00 032242 ER4 AC+1,32242 ;LOW PRODUCT FAILED 5623 000000 AEE=0 ;INITIAL C(E) 5624 034031 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5625 034032 005 06 0 00 032243 ER5 E,32243 ;C(E) WAS CLOBBERED 5626 034033 321 12 0 00 034021 JUMPL AC+2,F32240 ;LOOP ON ERROR SWITCH^ 5627 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0122 5628 003225 ADR=ADR+1 5629 777777 777577 XX=XX+XX+1 5630 IFE , 5631 5632 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5633 MOP1 (\ADR,XX,-1,0,0,0)^ 5634 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5635 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5636 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5637 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5638 5639 777777 777577 F32250: AA1=XX ;INITIAL C(AC) 5640 034034 200 10 0 00 044037 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5641 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5642 034035 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5643 000000 AEE=0 ;INITIAL C(E) 5644 034036 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5645 034037 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5646 000000 AR1=0 ;EXPECTED RESULT IN AC 5647 034040 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5648 034041 003 10 0 00 032251 ER3 AC,32251 ;HIGH PRODUCT FAILED 5649 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5650 034042 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5651 034043 004 11 0 00 032252 ER4 AC+1,32252 ;LOW PRODUCT FAILED 5652 000000 AEE=0 ;INITIAL C(E) 5653 034044 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5654 034045 005 06 0 00 032253 ER5 E,32253 ;C(E) WAS CLOBBERED 5655 034046 321 12 0 00 034034 JUMPL AC+2,F32250 ;LOOP ON ERROR SWITCH^ 5656 5657 003226 ADR=ADR+1 5658 777777 777377 XX=XX+XX+1 5659 IFE , 5660 5661 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5662 MOP1 (\ADR,XX,-1,0,0,0)^ 5663 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5664 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5665 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5666 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5667 5668 777777 777377 F32260: AA1=XX ;INITIAL C(AC) 5669 034047 200 10 0 00 044040 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5670 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5671 034050 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5672 000000 AEE=0 ;INITIAL C(E) 5673 034051 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5674 034052 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5675 000000 AR1=0 ;EXPECTED RESULT IN AC 5676 034053 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5677 034054 003 10 0 00 032261 ER3 AC,32261 ;HIGH PRODUCT FAILED 5678 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5679 034055 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5680 034056 004 11 0 00 032262 ER4 AC+1,32262 ;LOW PRODUCT FAILED 5681 000000 AEE=0 ;INITIAL C(E) 5682 034057 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0123 5683 034060 005 06 0 00 032263 ER5 E,32263 ;C(E) WAS CLOBBERED 5684 034061 321 12 0 00 034047 JUMPL AC+2,F32260 ;LOOP ON ERROR SWITCH^ 5685 5686 003227 ADR=ADR+1 5687 777777 776777 XX=XX+XX+1 5688 IFE , 5689 5690 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5691 MOP1 (\ADR,XX,-1,0,0,0)^ 5692 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5693 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5694 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5695 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5696 5697 777777 776777 F32270: AA1=XX ;INITIAL C(AC) 5698 034062 200 10 0 00 044041 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5699 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5700 034063 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5701 000000 AEE=0 ;INITIAL C(E) 5702 034064 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5703 034065 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5704 000000 AR1=0 ;EXPECTED RESULT IN AC 5705 034066 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5706 034067 003 10 0 00 032271 ER3 AC,32271 ;HIGH PRODUCT FAILED 5707 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5708 034070 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5709 034071 004 11 0 00 032272 ER4 AC+1,32272 ;LOW PRODUCT FAILED 5710 000000 AEE=0 ;INITIAL C(E) 5711 034072 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5712 034073 005 06 0 00 032273 ER5 E,32273 ;C(E) WAS CLOBBERED 5713 034074 321 12 0 00 034062 JUMPL AC+2,F32270 ;LOOP ON ERROR SWITCH^ 5714 5715 003230 ADR=ADR+1 5716 777777 775777 XX=XX+XX+1 5717 IFE , 5718 5719 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5720 MOP1 (\ADR,XX,-1,0,0,0)^ 5721 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5722 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5723 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5724 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5725 5726 777777 775777 F32300: AA1=XX ;INITIAL C(AC) 5727 034075 200 10 0 00 044042 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5728 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5729 034076 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5730 000000 AEE=0 ;INITIAL C(E) 5731 034077 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5732 034100 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5733 000000 AR1=0 ;EXPECTED RESULT IN AC 5734 034101 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5735 034102 003 10 0 00 032301 ER3 AC,32301 ;HIGH PRODUCT FAILED 5736 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5737 034103 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0124 5738 034104 004 11 0 00 032302 ER4 AC+1,32302 ;LOW PRODUCT FAILED 5739 000000 AEE=0 ;INITIAL C(E) 5740 034105 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5741 034106 005 06 0 00 032303 ER5 E,32303 ;C(E) WAS CLOBBERED 5742 034107 321 12 0 00 034075 JUMPL AC+2,F32300 ;LOOP ON ERROR SWITCH^ 5743 5744 003231 ADR=ADR+1 5745 777777 773777 XX=XX+XX+1 5746 IFE , 5747 5748 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5749 MOP1 (\ADR,XX,-1,0,0,0)^ 5750 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5751 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5752 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5753 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5754 5755 777777 773777 F32310: AA1=XX ;INITIAL C(AC) 5756 034110 200 10 0 00 044043 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5757 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5758 034111 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5759 000000 AEE=0 ;INITIAL C(E) 5760 034112 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5761 034113 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5762 000000 AR1=0 ;EXPECTED RESULT IN AC 5763 034114 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5764 034115 003 10 0 00 032311 ER3 AC,32311 ;HIGH PRODUCT FAILED 5765 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5766 034116 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5767 034117 004 11 0 00 032312 ER4 AC+1,32312 ;LOW PRODUCT FAILED 5768 000000 AEE=0 ;INITIAL C(E) 5769 034120 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5770 034121 005 06 0 00 032313 ER5 E,32313 ;C(E) WAS CLOBBERED 5771 034122 321 12 0 00 034110 JUMPL AC+2,F32310 ;LOOP ON ERROR SWITCH^ 5772 5773 003232 ADR=ADR+1 5774 777777 767777 XX=XX+XX+1 5775 IFE , 5776 5777 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5778 MOP1 (\ADR,XX,-1,0,0,0)^ 5779 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5780 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5781 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5782 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5783 5784 777777 767777 F32320: AA1=XX ;INITIAL C(AC) 5785 034123 200 10 0 00 044044 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5786 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5787 034124 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5788 000000 AEE=0 ;INITIAL C(E) 5789 034125 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5790 034126 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5791 000000 AR1=0 ;EXPECTED RESULT IN AC 5792 034127 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0125 5793 034130 003 10 0 00 032321 ER3 AC,32321 ;HIGH PRODUCT FAILED 5794 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5795 034131 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5796 034132 004 11 0 00 032322 ER4 AC+1,32322 ;LOW PRODUCT FAILED 5797 000000 AEE=0 ;INITIAL C(E) 5798 034133 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5799 034134 005 06 0 00 032323 ER5 E,32323 ;C(E) WAS CLOBBERED 5800 034135 321 12 0 00 034123 JUMPL AC+2,F32320 ;LOOP ON ERROR SWITCH^ 5801 5802 003233 ADR=ADR+1 5803 777777 757777 XX=XX+XX+1 5804 IFE , 5805 5806 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5807 MOP1 (\ADR,XX,-1,0,0,0)^ 5808 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5809 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5810 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5811 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5812 5813 777777 757777 F32330: AA1=XX ;INITIAL C(AC) 5814 034136 200 10 0 00 044045 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5815 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5816 034137 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5817 000000 AEE=0 ;INITIAL C(E) 5818 034140 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5819 034141 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5820 000000 AR1=0 ;EXPECTED RESULT IN AC 5821 034142 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5822 034143 003 10 0 00 032331 ER3 AC,32331 ;HIGH PRODUCT FAILED 5823 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5824 034144 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5825 034145 004 11 0 00 032332 ER4 AC+1,32332 ;LOW PRODUCT FAILED 5826 000000 AEE=0 ;INITIAL C(E) 5827 034146 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5828 034147 005 06 0 00 032333 ER5 E,32333 ;C(E) WAS CLOBBERED 5829 034150 321 12 0 00 034136 JUMPL AC+2,F32330 ;LOOP ON ERROR SWITCH^ 5830 5831 003234 ADR=ADR+1 5832 777777 737777 XX=XX+XX+1 5833 IFE , 5834 5835 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5836 MOP1 (\ADR,XX,-1,0,0,0)^ 5837 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5838 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5839 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5840 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5841 5842 777777 737777 F32340: AA1=XX ;INITIAL C(AC) 5843 034151 200 10 0 00 044046 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5844 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5845 034152 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5846 000000 AEE=0 ;INITIAL C(E) 5847 034153 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0126 5848 034154 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5849 000000 AR1=0 ;EXPECTED RESULT IN AC 5850 034155 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5851 034156 003 10 0 00 032341 ER3 AC,32341 ;HIGH PRODUCT FAILED 5852 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5853 034157 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5854 034160 004 11 0 00 032342 ER4 AC+1,32342 ;LOW PRODUCT FAILED 5855 000000 AEE=0 ;INITIAL C(E) 5856 034161 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5857 034162 005 06 0 00 032343 ER5 E,32343 ;C(E) WAS CLOBBERED 5858 034163 321 12 0 00 034151 JUMPL AC+2,F32340 ;LOOP ON ERROR SWITCH^ 5859 5860 003235 ADR=ADR+1 5861 777777 677777 XX=XX+XX+1 5862 IFE , 5863 5864 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5865 MOP1 (\ADR,XX,-1,0,0,0)^ 5866 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5867 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5868 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5869 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5870 5871 777777 677777 F32350: AA1=XX ;INITIAL C(AC) 5872 034164 200 10 0 00 044047 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5873 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5874 034165 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5875 000000 AEE=0 ;INITIAL C(E) 5876 034166 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5877 034167 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5878 000000 AR1=0 ;EXPECTED RESULT IN AC 5879 034170 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5880 034171 003 10 0 00 032351 ER3 AC,32351 ;HIGH PRODUCT FAILED 5881 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5882 034172 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5883 034173 004 11 0 00 032352 ER4 AC+1,32352 ;LOW PRODUCT FAILED 5884 000000 AEE=0 ;INITIAL C(E) 5885 034174 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5886 034175 005 06 0 00 032353 ER5 E,32353 ;C(E) WAS CLOBBERED 5887 034176 321 12 0 00 034164 JUMPL AC+2,F32350 ;LOOP ON ERROR SWITCH^ 5888 5889 003236 ADR=ADR+1 5890 777777 577777 XX=XX+XX+1 5891 IFE , 5892 5893 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5894 MOP1 (\ADR,XX,-1,0,0,0)^ 5895 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5896 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5897 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5898 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5899 5900 777777 577777 F32360: AA1=XX ;INITIAL C(AC) 5901 034177 200 10 0 00 044050 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5902 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0127 5903 034200 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5904 000000 AEE=0 ;INITIAL C(E) 5905 034201 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5906 034202 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5907 000000 AR1=0 ;EXPECTED RESULT IN AC 5908 034203 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5909 034204 003 10 0 00 032361 ER3 AC,32361 ;HIGH PRODUCT FAILED 5910 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5911 034205 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5912 034206 004 11 0 00 032362 ER4 AC+1,32362 ;LOW PRODUCT FAILED 5913 000000 AEE=0 ;INITIAL C(E) 5914 034207 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5915 034210 005 06 0 00 032363 ER5 E,32363 ;C(E) WAS CLOBBERED 5916 034211 321 12 0 00 034177 JUMPL AC+2,F32360 ;LOOP ON ERROR SWITCH^ 5917 5918 003237 ADR=ADR+1 5919 777777 377777 XX=XX+XX+1 5920 IFE , 5921 5922 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5923 MOP1 (\ADR,XX,-1,0,0,0)^ 5924 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5925 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5926 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5927 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5928 5929 777777 377777 F32370: AA1=XX ;INITIAL C(AC) 5930 034212 200 10 0 00 044051 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5931 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5932 034213 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5933 000000 AEE=0 ;INITIAL C(E) 5934 034214 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5935 034215 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5936 000000 AR1=0 ;EXPECTED RESULT IN AC 5937 034216 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5938 034217 003 10 0 00 032371 ER3 AC,32371 ;HIGH PRODUCT FAILED 5939 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5940 034220 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5941 034221 004 11 0 00 032372 ER4 AC+1,32372 ;LOW PRODUCT FAILED 5942 000000 AEE=0 ;INITIAL C(E) 5943 034222 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5944 034223 005 06 0 00 032373 ER5 E,32373 ;C(E) WAS CLOBBERED 5945 034224 321 12 0 00 034212 JUMPL AC+2,F32370 ;LOOP ON ERROR SWITCH^ 5946 5947 003240 ADR=ADR+1 5948 777776 777777 XX=XX+XX+1 5949 IFE , 5950 5951 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5952 MOP1 (\ADR,XX,-1,0,0,0)^ 5953 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5954 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5955 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5956 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5957 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0128 5958 777776 777777 F32400: AA1=XX ;INITIAL C(AC) 5959 034225 200 10 0 00 044052 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5960 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5961 034226 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5962 000000 AEE=0 ;INITIAL C(E) 5963 034227 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5964 034230 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5965 000000 AR1=0 ;EXPECTED RESULT IN AC 5966 034231 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5967 034232 003 10 0 00 032401 ER3 AC,32401 ;HIGH PRODUCT FAILED 5968 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5969 034233 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5970 034234 004 11 0 00 032402 ER4 AC+1,32402 ;LOW PRODUCT FAILED 5971 000000 AEE=0 ;INITIAL C(E) 5972 034235 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 5973 034236 005 06 0 00 032403 ER5 E,32403 ;C(E) WAS CLOBBERED 5974 034237 321 12 0 00 034225 JUMPL AC+2,F32400 ;LOOP ON ERROR SWITCH^ 5975 5976 003241 ADR=ADR+1 5977 777775 777777 XX=XX+XX+1 5978 IFE , 5979 5980 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 5981 MOP1 (\ADR,XX,-1,0,0,0)^ 5982 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5983 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5984 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 5985 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5986 5987 777775 777777 F32410: AA1=XX ;INITIAL C(AC) 5988 034240 200 10 0 00 044053 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5989 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5990 034241 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 5991 000000 AEE=0 ;INITIAL C(E) 5992 034242 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 5993 034243 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5994 000000 AR1=0 ;EXPECTED RESULT IN AC 5995 034244 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 5996 034245 003 10 0 00 032411 ER3 AC,32411 ;HIGH PRODUCT FAILED 5997 000000 AR2=0 ;EXPECTED RESULT IN AC+1 5998 034246 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 5999 034247 004 11 0 00 032412 ER4 AC+1,32412 ;LOW PRODUCT FAILED 6000 000000 AEE=0 ;INITIAL C(E) 6001 034250 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6002 034251 005 06 0 00 032413 ER5 E,32413 ;C(E) WAS CLOBBERED 6003 034252 321 12 0 00 034240 JUMPL AC+2,F32410 ;LOOP ON ERROR SWITCH^ 6004 6005 003242 ADR=ADR+1 6006 777773 777777 XX=XX+XX+1 6007 IFE , 6008 6009 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6010 MOP1 (\ADR,XX,-1,0,0,0)^ 6011 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6012 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0129 6013 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6014 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6015 6016 777773 777777 F32420: AA1=XX ;INITIAL C(AC) 6017 034253 200 10 0 00 044054 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6018 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6019 034254 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6020 000000 AEE=0 ;INITIAL C(E) 6021 034255 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6022 034256 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6023 000000 AR1=0 ;EXPECTED RESULT IN AC 6024 034257 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6025 034260 003 10 0 00 032421 ER3 AC,32421 ;HIGH PRODUCT FAILED 6026 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6027 034261 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6028 034262 004 11 0 00 032422 ER4 AC+1,32422 ;LOW PRODUCT FAILED 6029 000000 AEE=0 ;INITIAL C(E) 6030 034263 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6031 034264 005 06 0 00 032423 ER5 E,32423 ;C(E) WAS CLOBBERED 6032 034265 321 12 0 00 034253 JUMPL AC+2,F32420 ;LOOP ON ERROR SWITCH^ 6033 6034 003243 ADR=ADR+1 6035 777767 777777 XX=XX+XX+1 6036 IFE , 6037 6038 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6039 MOP1 (\ADR,XX,-1,0,0,0)^ 6040 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6041 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6042 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6043 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6044 6045 777767 777777 F32430: AA1=XX ;INITIAL C(AC) 6046 034266 200 10 0 00 044055 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6047 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6048 034267 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6049 000000 AEE=0 ;INITIAL C(E) 6050 034270 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6051 034271 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6052 000000 AR1=0 ;EXPECTED RESULT IN AC 6053 034272 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6054 034273 003 10 0 00 032431 ER3 AC,32431 ;HIGH PRODUCT FAILED 6055 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6056 034274 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6057 034275 004 11 0 00 032432 ER4 AC+1,32432 ;LOW PRODUCT FAILED 6058 000000 AEE=0 ;INITIAL C(E) 6059 034276 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6060 034277 005 06 0 00 032433 ER5 E,32433 ;C(E) WAS CLOBBERED 6061 034300 321 12 0 00 034266 JUMPL AC+2,F32430 ;LOOP ON ERROR SWITCH^ 6062 6063 003244 ADR=ADR+1 6064 777757 777777 XX=XX+XX+1 6065 IFE , 6066 6067 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0130 6068 MOP1 (\ADR,XX,-1,0,0,0)^ 6069 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6070 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6071 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6072 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6073 6074 777757 777777 F32440: AA1=XX ;INITIAL C(AC) 6075 034301 200 10 0 00 044056 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6076 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6077 034302 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6078 000000 AEE=0 ;INITIAL C(E) 6079 034303 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6080 034304 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6081 000000 AR1=0 ;EXPECTED RESULT IN AC 6082 034305 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6083 034306 003 10 0 00 032441 ER3 AC,32441 ;HIGH PRODUCT FAILED 6084 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6085 034307 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6086 034310 004 11 0 00 032442 ER4 AC+1,32442 ;LOW PRODUCT FAILED 6087 000000 AEE=0 ;INITIAL C(E) 6088 034311 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6089 034312 005 06 0 00 032443 ER5 E,32443 ;C(E) WAS CLOBBERED 6090 034313 321 12 0 00 034301 JUMPL AC+2,F32440 ;LOOP ON ERROR SWITCH^ 6091 6092 003245 ADR=ADR+1 6093 777737 777777 XX=XX+XX+1 6094 IFE , 6095 6096 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6097 MOP1 (\ADR,XX,-1,0,0,0)^ 6098 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6099 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6100 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6101 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6102 6103 777737 777777 F32450: AA1=XX ;INITIAL C(AC) 6104 034314 200 10 0 00 044057 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6105 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6106 034315 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6107 000000 AEE=0 ;INITIAL C(E) 6108 034316 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6109 034317 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6110 000000 AR1=0 ;EXPECTED RESULT IN AC 6111 034320 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6112 034321 003 10 0 00 032451 ER3 AC,32451 ;HIGH PRODUCT FAILED 6113 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6114 034322 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6115 034323 004 11 0 00 032452 ER4 AC+1,32452 ;LOW PRODUCT FAILED 6116 000000 AEE=0 ;INITIAL C(E) 6117 034324 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6118 034325 005 06 0 00 032453 ER5 E,32453 ;C(E) WAS CLOBBERED 6119 034326 321 12 0 00 034314 JUMPL AC+2,F32450 ;LOOP ON ERROR SWITCH^ 6120 6121 003246 ADR=ADR+1 6122 777677 777777 XX=XX+XX+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0131 6123 IFE , 6124 6125 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6126 MOP1 (\ADR,XX,-1,0,0,0)^ 6127 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6128 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6129 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6130 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6131 6132 777677 777777 F32460: AA1=XX ;INITIAL C(AC) 6133 034327 200 10 0 00 044060 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6134 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6135 034330 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6136 000000 AEE=0 ;INITIAL C(E) 6137 034331 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6138 034332 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6139 000000 AR1=0 ;EXPECTED RESULT IN AC 6140 034333 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6141 034334 003 10 0 00 032461 ER3 AC,32461 ;HIGH PRODUCT FAILED 6142 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6143 034335 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6144 034336 004 11 0 00 032462 ER4 AC+1,32462 ;LOW PRODUCT FAILED 6145 000000 AEE=0 ;INITIAL C(E) 6146 034337 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6147 034340 005 06 0 00 032463 ER5 E,32463 ;C(E) WAS CLOBBERED 6148 034341 321 12 0 00 034327 JUMPL AC+2,F32460 ;LOOP ON ERROR SWITCH^ 6149 6150 003247 ADR=ADR+1 6151 777577 777777 XX=XX+XX+1 6152 IFE , 6153 6154 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6155 MOP1 (\ADR,XX,-1,0,0,0)^ 6156 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6157 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6158 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6159 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6160 6161 777577 777777 F32470: AA1=XX ;INITIAL C(AC) 6162 034342 200 10 0 00 044061 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6163 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6164 034343 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6165 000000 AEE=0 ;INITIAL C(E) 6166 034344 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6167 034345 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6168 000000 AR1=0 ;EXPECTED RESULT IN AC 6169 034346 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6170 034347 003 10 0 00 032471 ER3 AC,32471 ;HIGH PRODUCT FAILED 6171 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6172 034350 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6173 034351 004 11 0 00 032472 ER4 AC+1,32472 ;LOW PRODUCT FAILED 6174 000000 AEE=0 ;INITIAL C(E) 6175 034352 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6176 034353 005 06 0 00 032473 ER5 E,32473 ;C(E) WAS CLOBBERED 6177 034354 321 12 0 00 034342 JUMPL AC+2,F32470 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0132 6178 6179 003250 ADR=ADR+1 6180 777377 777777 XX=XX+XX+1 6181 IFE , 6182 6183 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6184 MOP1 (\ADR,XX,-1,0,0,0)^ 6185 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6186 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6187 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6188 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6189 6190 777377 777777 F32500: AA1=XX ;INITIAL C(AC) 6191 034355 200 10 0 00 044062 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6192 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6193 034356 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6194 000000 AEE=0 ;INITIAL C(E) 6195 034357 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6196 034360 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6197 000000 AR1=0 ;EXPECTED RESULT IN AC 6198 034361 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6199 034362 003 10 0 00 032501 ER3 AC,32501 ;HIGH PRODUCT FAILED 6200 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6201 034363 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6202 034364 004 11 0 00 032502 ER4 AC+1,32502 ;LOW PRODUCT FAILED 6203 000000 AEE=0 ;INITIAL C(E) 6204 034365 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6205 034366 005 06 0 00 032503 ER5 E,32503 ;C(E) WAS CLOBBERED 6206 034367 321 12 0 00 034355 JUMPL AC+2,F32500 ;LOOP ON ERROR SWITCH^ 6207 6208 003251 ADR=ADR+1 6209 776777 777777 XX=XX+XX+1 6210 IFE , 6211 6212 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6213 MOP1 (\ADR,XX,-1,0,0,0)^ 6214 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6215 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6216 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6217 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6218 6219 776777 777777 F32510: AA1=XX ;INITIAL C(AC) 6220 034370 200 10 0 00 044063 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6221 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6222 034371 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6223 000000 AEE=0 ;INITIAL C(E) 6224 034372 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6225 034373 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6226 000000 AR1=0 ;EXPECTED RESULT IN AC 6227 034374 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6228 034375 003 10 0 00 032511 ER3 AC,32511 ;HIGH PRODUCT FAILED 6229 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6230 034376 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6231 034377 004 11 0 00 032512 ER4 AC+1,32512 ;LOW PRODUCT FAILED 6232 000000 AEE=0 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0133 6233 034400 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6234 034401 005 06 0 00 032513 ER5 E,32513 ;C(E) WAS CLOBBERED 6235 034402 321 12 0 00 034370 JUMPL AC+2,F32510 ;LOOP ON ERROR SWITCH^ 6236 6237 003252 ADR=ADR+1 6238 775777 777777 XX=XX+XX+1 6239 IFE , 6240 6241 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6242 MOP1 (\ADR,XX,-1,0,0,0)^ 6243 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6244 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6245 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6246 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6247 6248 775777 777777 F32520: AA1=XX ;INITIAL C(AC) 6249 034403 200 10 0 00 044064 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6250 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6251 034404 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6252 000000 AEE=0 ;INITIAL C(E) 6253 034405 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6254 034406 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6255 000000 AR1=0 ;EXPECTED RESULT IN AC 6256 034407 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6257 034410 003 10 0 00 032521 ER3 AC,32521 ;HIGH PRODUCT FAILED 6258 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6259 034411 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6260 034412 004 11 0 00 032522 ER4 AC+1,32522 ;LOW PRODUCT FAILED 6261 000000 AEE=0 ;INITIAL C(E) 6262 034413 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6263 034414 005 06 0 00 032523 ER5 E,32523 ;C(E) WAS CLOBBERED 6264 034415 321 12 0 00 034403 JUMPL AC+2,F32520 ;LOOP ON ERROR SWITCH^ 6265 6266 003253 ADR=ADR+1 6267 773777 777777 XX=XX+XX+1 6268 IFE , 6269 6270 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6271 MOP1 (\ADR,XX,-1,0,0,0)^ 6272 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6273 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6274 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6275 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6276 6277 773777 777777 F32530: AA1=XX ;INITIAL C(AC) 6278 034416 200 10 0 00 044065 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6279 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6280 034417 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6281 000000 AEE=0 ;INITIAL C(E) 6282 034420 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6283 034421 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6284 000000 AR1=0 ;EXPECTED RESULT IN AC 6285 034422 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6286 034423 003 10 0 00 032531 ER3 AC,32531 ;HIGH PRODUCT FAILED 6287 000000 AR2=0 ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0134 6288 034424 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6289 034425 004 11 0 00 032532 ER4 AC+1,32532 ;LOW PRODUCT FAILED 6290 000000 AEE=0 ;INITIAL C(E) 6291 034426 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6292 034427 005 06 0 00 032533 ER5 E,32533 ;C(E) WAS CLOBBERED 6293 034430 321 12 0 00 034416 JUMPL AC+2,F32530 ;LOOP ON ERROR SWITCH^ 6294 6295 003254 ADR=ADR+1 6296 767777 777777 XX=XX+XX+1 6297 IFE , 6298 6299 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6300 MOP1 (\ADR,XX,-1,0,0,0)^ 6301 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6302 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6303 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6304 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6305 6306 767777 777777 F32540: AA1=XX ;INITIAL C(AC) 6307 034431 200 10 0 00 044066 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6308 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6309 034432 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6310 000000 AEE=0 ;INITIAL C(E) 6311 034433 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6312 034434 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6313 000000 AR1=0 ;EXPECTED RESULT IN AC 6314 034435 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6315 034436 003 10 0 00 032541 ER3 AC,32541 ;HIGH PRODUCT FAILED 6316 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6317 034437 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6318 034440 004 11 0 00 032542 ER4 AC+1,32542 ;LOW PRODUCT FAILED 6319 000000 AEE=0 ;INITIAL C(E) 6320 034441 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6321 034442 005 06 0 00 032543 ER5 E,32543 ;C(E) WAS CLOBBERED 6322 034443 321 12 0 00 034431 JUMPL AC+2,F32540 ;LOOP ON ERROR SWITCH^ 6323 6324 003255 ADR=ADR+1 6325 757777 777777 XX=XX+XX+1 6326 IFE , 6327 6328 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6329 MOP1 (\ADR,XX,-1,0,0,0)^ 6330 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6331 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6332 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6333 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6334 6335 757777 777777 F32550: AA1=XX ;INITIAL C(AC) 6336 034444 200 10 0 00 044067 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6337 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6338 034445 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6339 000000 AEE=0 ;INITIAL C(E) 6340 034446 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6341 034447 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6342 000000 AR1=0 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0135 6343 034450 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6344 034451 003 10 0 00 032551 ER3 AC,32551 ;HIGH PRODUCT FAILED 6345 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6346 034452 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6347 034453 004 11 0 00 032552 ER4 AC+1,32552 ;LOW PRODUCT FAILED 6348 000000 AEE=0 ;INITIAL C(E) 6349 034454 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6350 034455 005 06 0 00 032553 ER5 E,32553 ;C(E) WAS CLOBBERED 6351 034456 321 12 0 00 034444 JUMPL AC+2,F32550 ;LOOP ON ERROR SWITCH^ 6352 6353 003256 ADR=ADR+1 6354 737777 777777 XX=XX+XX+1 6355 IFE , 6356 6357 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6358 MOP1 (\ADR,XX,-1,0,0,0)^ 6359 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6360 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6361 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6362 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6363 6364 737777 777777 F32560: AA1=XX ;INITIAL C(AC) 6365 034457 200 10 0 00 044070 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6366 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6367 034460 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6368 000000 AEE=0 ;INITIAL C(E) 6369 034461 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6370 034462 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6371 000000 AR1=0 ;EXPECTED RESULT IN AC 6372 034463 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6373 034464 003 10 0 00 032561 ER3 AC,32561 ;HIGH PRODUCT FAILED 6374 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6375 034465 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6376 034466 004 11 0 00 032562 ER4 AC+1,32562 ;LOW PRODUCT FAILED 6377 000000 AEE=0 ;INITIAL C(E) 6378 034467 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6379 034470 005 06 0 00 032563 ER5 E,32563 ;C(E) WAS CLOBBERED 6380 034471 321 12 0 00 034457 JUMPL AC+2,F32560 ;LOOP ON ERROR SWITCH^ 6381 6382 003257 ADR=ADR+1 6383 677777 777777 XX=XX+XX+1 6384 IFE , 6385 6386 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6387 MOP1 (\ADR,XX,-1,0,0,0)^ 6388 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6389 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6390 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6391 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6392 6393 677777 777777 F32570: AA1=XX ;INITIAL C(AC) 6394 034472 200 10 0 00 044071 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6395 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6396 034473 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6397 000000 AEE=0 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0136 6398 034474 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6399 034475 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6400 000000 AR1=0 ;EXPECTED RESULT IN AC 6401 034476 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6402 034477 003 10 0 00 032571 ER3 AC,32571 ;HIGH PRODUCT FAILED 6403 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6404 034500 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6405 034501 004 11 0 00 032572 ER4 AC+1,32572 ;LOW PRODUCT FAILED 6406 000000 AEE=0 ;INITIAL C(E) 6407 034502 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6408 034503 005 06 0 00 032573 ER5 E,32573 ;C(E) WAS CLOBBERED 6409 034504 321 12 0 00 034472 JUMPL AC+2,F32570 ;LOOP ON ERROR SWITCH^ 6410 6411 003260 ADR=ADR+1 6412 577777 777777 XX=XX+XX+1 6413 IFE , 6414 6415 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6416 MOP1 (\ADR,XX,-1,0,0,0)^ 6417 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6418 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6419 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6420 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6421 6422 577777 777777 F32600: AA1=XX ;INITIAL C(AC) 6423 034505 200 10 0 00 044072 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6424 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6425 034506 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6426 000000 AEE=0 ;INITIAL C(E) 6427 034507 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6428 034510 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6429 000000 AR1=0 ;EXPECTED RESULT IN AC 6430 034511 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6431 034512 003 10 0 00 032601 ER3 AC,32601 ;HIGH PRODUCT FAILED 6432 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6433 034513 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6434 034514 004 11 0 00 032602 ER4 AC+1,32602 ;LOW PRODUCT FAILED 6435 000000 AEE=0 ;INITIAL C(E) 6436 034515 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6437 034516 005 06 0 00 032603 ER5 E,32603 ;C(E) WAS CLOBBERED 6438 034517 321 12 0 00 034505 JUMPL AC+2,F32600 ;LOOP ON ERROR SWITCH^ 6439 6440 003261 ADR=ADR+1 6441 377777 777777 XX=XX+XX+1 6442 IFE , 6443 6444 ;MULTIPLY 0 BY RIPPLED 0 TO GET PRODUCT OF 0 6445 MOP1 (\ADR,XX,-1,0,0,0)^ 6446 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6447 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6448 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6449 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6450 6451 377777 777777 F32610: AA1=XX ;INITIAL C(AC) 6452 034520 200 10 0 00 044073 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0137 6453 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6454 034521 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6455 000000 AEE=0 ;INITIAL C(E) 6456 034522 200 06 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6457 034523 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6458 000000 AR1=0 ;EXPECTED RESULT IN AC 6459 034524 312 10 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6460 034525 003 10 0 00 032611 ER3 AC,32611 ;HIGH PRODUCT FAILED 6461 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6462 034526 312 11 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6463 034527 004 11 0 00 032612 ER4 AC+1,32612 ;LOW PRODUCT FAILED 6464 000000 AEE=0 ;INITIAL C(E) 6465 034530 312 06 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6466 034531 005 06 0 00 032613 ER5 E,32613 ;C(E) WAS CLOBBERED 6467 034532 321 12 0 00 034520 JUMPL AC+2,F32610 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - ZERO PRODUCT SEQ 0138 6468 000007 AC=7 6469 000005 E=&17 6470 SAVEAC (1,1)^ 6471 034533 201 11 0 00 034533 MOVEI AC+2,. ;SAVE TEST PC 6472 034534 202 11 0 00 030051 MOVEM AC+2,TESTPC 6473 034535 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6474 034536 202 11 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6475 003262 ADR=ADR+1 6476 6477 ;MULTIPLY 0 BY -1 TO GET PRODUCT OF 0 6478 MOP1 (\ADR,-1,-1,0,0,0)^ 6479 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 6480 ;[0] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6481 ;AND E AGAINST [0], [0] AND [0] RESPECTIVELY. 6482 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6483 6484 777777 777777 F32620: AA1=-1 ;INITIAL C(AC) 6485 034537 200 07 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 6486 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6487 034540 200 10 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6488 000000 AEE=0 ;INITIAL C(E) 6489 034541 200 05 0 00 043762 MOVE E,[0] ;PRELOAD E (MULTIPLICAND) 6490 034542 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6491 000000 AR1=0 ;EXPECTED RESULT IN AC 6492 034543 312 07 0 00 043762 CAME AC,[0] ;IS HIGH PRODUCT CORRECT? 6493 034544 003 07 0 00 032621 ER3 AC,32621 ;HIGH PRODUCT FAILED 6494 000000 AR2=0 ;EXPECTED RESULT IN AC+1 6495 034545 312 10 0 00 043762 CAME AC+1,[0] ;IS LOW PRODUCT CORRECT? 6496 034546 004 10 0 00 032622 ER4 AC+1,32622 ;LOW PRODUCT FAILED 6497 000000 AEE=0 ;INITIAL C(E) 6498 034547 312 05 0 00 043762 CAME E,[0] ;WAS C(E) CLOBBERED? 6499 034550 005 05 0 00 032623 ER5 E,32623 ;C(E) WAS CLOBBERED 6500 034551 321 11 0 00 034537 JUMPL AC+2,F32620 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0139 6501 SUBTTL DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT 6502 6503 000006 AC=6 6504 000004 E=&17 6505 SAVEAC (1,1)^ 6506 034552 201 10 0 00 034552 MOVEI AC+2,. ;SAVE TEST PC 6507 034553 202 10 0 00 030051 MOVEM AC+2,TESTPC 6508 034554 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6509 034555 202 10 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6510 6511 000000 XX=0 6512 6513 REPEAT ^D36,< 6514 ADR=ADR+1 6515 XX=XX+XX 6516 IFE XX, 6517 6518 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6519 IFG XX, 6520 IFL XX, 6521 MOP1 (\ADR,1,-1,XX,V1,XX)> 6522 6523 003263 ADR=ADR+1 6524 000000 XX=XX+XX 6525 000001 IFE XX, 6526 6527 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6528 000000 IFG XX, 6529 IFL XX, 6530 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6531 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6532 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6533 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6534 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6535 6536 000001 F32630: AA1=1 ;INITIAL C(AC) 6537 034556 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6538 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6539 034557 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6540 000001 AEE=XX ;INITIAL C(E) 6541 034560 200 04 0 00 043764 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6542 034561 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6543 000000 AR1=V1 ;EXPECTED RESULT IN AC 6544 034562 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6545 034563 003 06 0 00 032631 ER3 AC,32631 ;HIGH PRODUCT FAILED 6546 000001 AR2=XX ;EXPECTED RESULT IN AC+1 6547 034564 312 07 0 00 043764 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6548 034565 004 07 0 00 032632 ER4 AC+1,32632 ;LOW PRODUCT FAILED 6549 000001 AEE=XX ;INITIAL C(E) 6550 034566 312 04 0 00 043764 CAME E,[XX] ;WAS C(E) CLOBBERED? 6551 034567 005 04 0 00 032633 ER5 E,32633 ;C(E) WAS CLOBBERED 6552 034570 321 10 0 00 034556 JUMPL AC+2,F32630 ;LOOP ON ERROR SWITCH^ 6553 6554 003264 ADR=ADR+1 6555 000002 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0140 6556 IFE XX, 6557 6558 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6559 000000 IFG XX, 6560 IFL XX, 6561 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6562 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6563 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6564 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6565 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6566 6567 000001 F32640: AA1=1 ;INITIAL C(AC) 6568 034571 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6569 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6570 034572 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6571 000002 AEE=XX ;INITIAL C(E) 6572 034573 200 04 0 00 043765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6573 034574 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6574 000000 AR1=V1 ;EXPECTED RESULT IN AC 6575 034575 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6576 034576 003 06 0 00 032641 ER3 AC,32641 ;HIGH PRODUCT FAILED 6577 000002 AR2=XX ;EXPECTED RESULT IN AC+1 6578 034577 312 07 0 00 043765 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6579 034600 004 07 0 00 032642 ER4 AC+1,32642 ;LOW PRODUCT FAILED 6580 000002 AEE=XX ;INITIAL C(E) 6581 034601 312 04 0 00 043765 CAME E,[XX] ;WAS C(E) CLOBBERED? 6582 034602 005 04 0 00 032643 ER5 E,32643 ;C(E) WAS CLOBBERED 6583 034603 321 10 0 00 034571 JUMPL AC+2,F32640 ;LOOP ON ERROR SWITCH^ 6584 6585 003265 ADR=ADR+1 6586 000004 XX=XX+XX 6587 IFE XX, 6588 6589 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6590 000000 IFG XX, 6591 IFL XX, 6592 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6593 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6594 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6595 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6596 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6597 6598 000001 F32650: AA1=1 ;INITIAL C(AC) 6599 034604 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6600 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6601 034605 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6602 000004 AEE=XX ;INITIAL C(E) 6603 034606 200 04 0 00 043766 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6604 034607 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6605 000000 AR1=V1 ;EXPECTED RESULT IN AC 6606 034610 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6607 034611 003 06 0 00 032651 ER3 AC,32651 ;HIGH PRODUCT FAILED 6608 000004 AR2=XX ;EXPECTED RESULT IN AC+1 6609 034612 312 07 0 00 043766 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6610 034613 004 07 0 00 032652 ER4 AC+1,32652 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0141 6611 000004 AEE=XX ;INITIAL C(E) 6612 034614 312 04 0 00 043766 CAME E,[XX] ;WAS C(E) CLOBBERED? 6613 034615 005 04 0 00 032653 ER5 E,32653 ;C(E) WAS CLOBBERED 6614 034616 321 10 0 00 034604 JUMPL AC+2,F32650 ;LOOP ON ERROR SWITCH^ 6615 6616 003266 ADR=ADR+1 6617 000010 XX=XX+XX 6618 IFE XX, 6619 6620 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6621 000000 IFG XX, 6622 IFL XX, 6623 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6624 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6625 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6626 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6627 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6628 6629 000001 F32660: AA1=1 ;INITIAL C(AC) 6630 034617 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6631 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6632 034620 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6633 000010 AEE=XX ;INITIAL C(E) 6634 034621 200 04 0 00 043767 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6635 034622 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6636 000000 AR1=V1 ;EXPECTED RESULT IN AC 6637 034623 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6638 034624 003 06 0 00 032661 ER3 AC,32661 ;HIGH PRODUCT FAILED 6639 000010 AR2=XX ;EXPECTED RESULT IN AC+1 6640 034625 312 07 0 00 043767 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6641 034626 004 07 0 00 032662 ER4 AC+1,32662 ;LOW PRODUCT FAILED 6642 000010 AEE=XX ;INITIAL C(E) 6643 034627 312 04 0 00 043767 CAME E,[XX] ;WAS C(E) CLOBBERED? 6644 034630 005 04 0 00 032663 ER5 E,32663 ;C(E) WAS CLOBBERED 6645 034631 321 10 0 00 034617 JUMPL AC+2,F32660 ;LOOP ON ERROR SWITCH^ 6646 6647 003267 ADR=ADR+1 6648 000020 XX=XX+XX 6649 IFE XX, 6650 6651 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6652 000000 IFG XX, 6653 IFL XX, 6654 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6655 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6656 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6657 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6658 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6659 6660 000001 F32670: AA1=1 ;INITIAL C(AC) 6661 034632 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6662 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6663 034633 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6664 000020 AEE=XX ;INITIAL C(E) 6665 034634 200 04 0 00 043770 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0142 6666 034635 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6667 000000 AR1=V1 ;EXPECTED RESULT IN AC 6668 034636 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6669 034637 003 06 0 00 032671 ER3 AC,32671 ;HIGH PRODUCT FAILED 6670 000020 AR2=XX ;EXPECTED RESULT IN AC+1 6671 034640 312 07 0 00 043770 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6672 034641 004 07 0 00 032672 ER4 AC+1,32672 ;LOW PRODUCT FAILED 6673 000020 AEE=XX ;INITIAL C(E) 6674 034642 312 04 0 00 043770 CAME E,[XX] ;WAS C(E) CLOBBERED? 6675 034643 005 04 0 00 032673 ER5 E,32673 ;C(E) WAS CLOBBERED 6676 034644 321 10 0 00 034632 JUMPL AC+2,F32670 ;LOOP ON ERROR SWITCH^ 6677 6678 003270 ADR=ADR+1 6679 000040 XX=XX+XX 6680 IFE XX, 6681 6682 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6683 000000 IFG XX, 6684 IFL XX, 6685 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6686 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6687 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6688 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6689 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6690 6691 000001 F32700: AA1=1 ;INITIAL C(AC) 6692 034645 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6693 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6694 034646 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6695 000040 AEE=XX ;INITIAL C(E) 6696 034647 200 04 0 00 043771 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6697 034650 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6698 000000 AR1=V1 ;EXPECTED RESULT IN AC 6699 034651 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6700 034652 003 06 0 00 032701 ER3 AC,32701 ;HIGH PRODUCT FAILED 6701 000040 AR2=XX ;EXPECTED RESULT IN AC+1 6702 034653 312 07 0 00 043771 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6703 034654 004 07 0 00 032702 ER4 AC+1,32702 ;LOW PRODUCT FAILED 6704 000040 AEE=XX ;INITIAL C(E) 6705 034655 312 04 0 00 043771 CAME E,[XX] ;WAS C(E) CLOBBERED? 6706 034656 005 04 0 00 032703 ER5 E,32703 ;C(E) WAS CLOBBERED 6707 034657 321 10 0 00 034645 JUMPL AC+2,F32700 ;LOOP ON ERROR SWITCH^ 6708 6709 003271 ADR=ADR+1 6710 000100 XX=XX+XX 6711 IFE XX, 6712 6713 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6714 000000 IFG XX, 6715 IFL XX, 6716 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6717 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6718 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6719 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6720 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0143 6721 6722 000001 F32710: AA1=1 ;INITIAL C(AC) 6723 034660 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6724 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6725 034661 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6726 000100 AEE=XX ;INITIAL C(E) 6727 034662 200 04 0 00 043772 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6728 034663 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6729 000000 AR1=V1 ;EXPECTED RESULT IN AC 6730 034664 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6731 034665 003 06 0 00 032711 ER3 AC,32711 ;HIGH PRODUCT FAILED 6732 000100 AR2=XX ;EXPECTED RESULT IN AC+1 6733 034666 312 07 0 00 043772 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6734 034667 004 07 0 00 032712 ER4 AC+1,32712 ;LOW PRODUCT FAILED 6735 000100 AEE=XX ;INITIAL C(E) 6736 034670 312 04 0 00 043772 CAME E,[XX] ;WAS C(E) CLOBBERED? 6737 034671 005 04 0 00 032713 ER5 E,32713 ;C(E) WAS CLOBBERED 6738 034672 321 10 0 00 034660 JUMPL AC+2,F32710 ;LOOP ON ERROR SWITCH^ 6739 6740 003272 ADR=ADR+1 6741 000200 XX=XX+XX 6742 IFE XX, 6743 6744 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6745 000000 IFG XX, 6746 IFL XX, 6747 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6748 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6749 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6750 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6751 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6752 6753 000001 F32720: AA1=1 ;INITIAL C(AC) 6754 034673 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6755 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6756 034674 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6757 000200 AEE=XX ;INITIAL C(E) 6758 034675 200 04 0 00 043773 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6759 034676 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6760 000000 AR1=V1 ;EXPECTED RESULT IN AC 6761 034677 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6762 034700 003 06 0 00 032721 ER3 AC,32721 ;HIGH PRODUCT FAILED 6763 000200 AR2=XX ;EXPECTED RESULT IN AC+1 6764 034701 312 07 0 00 043773 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6765 034702 004 07 0 00 032722 ER4 AC+1,32722 ;LOW PRODUCT FAILED 6766 000200 AEE=XX ;INITIAL C(E) 6767 034703 312 04 0 00 043773 CAME E,[XX] ;WAS C(E) CLOBBERED? 6768 034704 005 04 0 00 032723 ER5 E,32723 ;C(E) WAS CLOBBERED 6769 034705 321 10 0 00 034673 JUMPL AC+2,F32720 ;LOOP ON ERROR SWITCH^ 6770 6771 003273 ADR=ADR+1 6772 000400 XX=XX+XX 6773 IFE XX, 6774 6775 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0144 6776 000000 IFG XX, 6777 IFL XX, 6778 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6779 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6780 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6781 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6782 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6783 6784 000001 F32730: AA1=1 ;INITIAL C(AC) 6785 034706 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6786 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6787 034707 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6788 000400 AEE=XX ;INITIAL C(E) 6789 034710 200 04 0 00 043774 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6790 034711 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6791 000000 AR1=V1 ;EXPECTED RESULT IN AC 6792 034712 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6793 034713 003 06 0 00 032731 ER3 AC,32731 ;HIGH PRODUCT FAILED 6794 000400 AR2=XX ;EXPECTED RESULT IN AC+1 6795 034714 312 07 0 00 043774 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6796 034715 004 07 0 00 032732 ER4 AC+1,32732 ;LOW PRODUCT FAILED 6797 000400 AEE=XX ;INITIAL C(E) 6798 034716 312 04 0 00 043774 CAME E,[XX] ;WAS C(E) CLOBBERED? 6799 034717 005 04 0 00 032733 ER5 E,32733 ;C(E) WAS CLOBBERED 6800 034720 321 10 0 00 034706 JUMPL AC+2,F32730 ;LOOP ON ERROR SWITCH^ 6801 6802 003274 ADR=ADR+1 6803 001000 XX=XX+XX 6804 IFE XX, 6805 6806 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6807 000000 IFG XX, 6808 IFL XX, 6809 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6810 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6811 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6812 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6813 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6814 6815 000001 F32740: AA1=1 ;INITIAL C(AC) 6816 034721 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6817 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6818 034722 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6819 001000 AEE=XX ;INITIAL C(E) 6820 034723 200 04 0 00 043775 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6821 034724 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6822 000000 AR1=V1 ;EXPECTED RESULT IN AC 6823 034725 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6824 034726 003 06 0 00 032741 ER3 AC,32741 ;HIGH PRODUCT FAILED 6825 001000 AR2=XX ;EXPECTED RESULT IN AC+1 6826 034727 312 07 0 00 043775 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6827 034730 004 07 0 00 032742 ER4 AC+1,32742 ;LOW PRODUCT FAILED 6828 001000 AEE=XX ;INITIAL C(E) 6829 034731 312 04 0 00 043775 CAME E,[XX] ;WAS C(E) CLOBBERED? 6830 034732 005 04 0 00 032743 ER5 E,32743 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0145 6831 034733 321 10 0 00 034721 JUMPL AC+2,F32740 ;LOOP ON ERROR SWITCH^ 6832 6833 003275 ADR=ADR+1 6834 002000 XX=XX+XX 6835 IFE XX, 6836 6837 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6838 000000 IFG XX, 6839 IFL XX, 6840 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6841 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6842 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6843 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6844 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6845 6846 000001 F32750: AA1=1 ;INITIAL C(AC) 6847 034734 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6848 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6849 034735 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6850 002000 AEE=XX ;INITIAL C(E) 6851 034736 200 04 0 00 043776 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6852 034737 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6853 000000 AR1=V1 ;EXPECTED RESULT IN AC 6854 034740 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6855 034741 003 06 0 00 032751 ER3 AC,32751 ;HIGH PRODUCT FAILED 6856 002000 AR2=XX ;EXPECTED RESULT IN AC+1 6857 034742 312 07 0 00 043776 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6858 034743 004 07 0 00 032752 ER4 AC+1,32752 ;LOW PRODUCT FAILED 6859 002000 AEE=XX ;INITIAL C(E) 6860 034744 312 04 0 00 043776 CAME E,[XX] ;WAS C(E) CLOBBERED? 6861 034745 005 04 0 00 032753 ER5 E,32753 ;C(E) WAS CLOBBERED 6862 034746 321 10 0 00 034734 JUMPL AC+2,F32750 ;LOOP ON ERROR SWITCH^ 6863 6864 003276 ADR=ADR+1 6865 004000 XX=XX+XX 6866 IFE XX, 6867 6868 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6869 000000 IFG XX, 6870 IFL XX, 6871 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6872 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6873 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6874 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6875 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6876 6877 000001 F32760: AA1=1 ;INITIAL C(AC) 6878 034747 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6879 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6880 034750 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6881 004000 AEE=XX ;INITIAL C(E) 6882 034751 200 04 0 00 043777 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6883 034752 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6884 000000 AR1=V1 ;EXPECTED RESULT IN AC 6885 034753 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0146 6886 034754 003 06 0 00 032761 ER3 AC,32761 ;HIGH PRODUCT FAILED 6887 004000 AR2=XX ;EXPECTED RESULT IN AC+1 6888 034755 312 07 0 00 043777 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6889 034756 004 07 0 00 032762 ER4 AC+1,32762 ;LOW PRODUCT FAILED 6890 004000 AEE=XX ;INITIAL C(E) 6891 034757 312 04 0 00 043777 CAME E,[XX] ;WAS C(E) CLOBBERED? 6892 034760 005 04 0 00 032763 ER5 E,32763 ;C(E) WAS CLOBBERED 6893 034761 321 10 0 00 034747 JUMPL AC+2,F32760 ;LOOP ON ERROR SWITCH^ 6894 6895 003277 ADR=ADR+1 6896 010000 XX=XX+XX 6897 IFE XX, 6898 6899 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6900 000000 IFG XX, 6901 IFL XX, 6902 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6903 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6904 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6905 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6906 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6907 6908 000001 F32770: AA1=1 ;INITIAL C(AC) 6909 034762 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6910 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6911 034763 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6912 010000 AEE=XX ;INITIAL C(E) 6913 034764 200 04 0 00 044000 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6914 034765 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6915 000000 AR1=V1 ;EXPECTED RESULT IN AC 6916 034766 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6917 034767 003 06 0 00 032771 ER3 AC,32771 ;HIGH PRODUCT FAILED 6918 010000 AR2=XX ;EXPECTED RESULT IN AC+1 6919 034770 312 07 0 00 044000 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6920 034771 004 07 0 00 032772 ER4 AC+1,32772 ;LOW PRODUCT FAILED 6921 010000 AEE=XX ;INITIAL C(E) 6922 034772 312 04 0 00 044000 CAME E,[XX] ;WAS C(E) CLOBBERED? 6923 034773 005 04 0 00 032773 ER5 E,32773 ;C(E) WAS CLOBBERED 6924 034774 321 10 0 00 034762 JUMPL AC+2,F32770 ;LOOP ON ERROR SWITCH^ 6925 6926 003300 ADR=ADR+1 6927 020000 XX=XX+XX 6928 IFE XX, 6929 6930 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6931 000000 IFG XX, 6932 IFL XX, 6933 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6934 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6935 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6936 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6937 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6938 6939 000001 F33000: AA1=1 ;INITIAL C(AC) 6940 034775 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0147 6941 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6942 034776 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6943 020000 AEE=XX ;INITIAL C(E) 6944 034777 200 04 0 00 044001 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6945 035000 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6946 000000 AR1=V1 ;EXPECTED RESULT IN AC 6947 035001 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6948 035002 003 06 0 00 033001 ER3 AC,33001 ;HIGH PRODUCT FAILED 6949 020000 AR2=XX ;EXPECTED RESULT IN AC+1 6950 035003 312 07 0 00 044001 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6951 035004 004 07 0 00 033002 ER4 AC+1,33002 ;LOW PRODUCT FAILED 6952 020000 AEE=XX ;INITIAL C(E) 6953 035005 312 04 0 00 044001 CAME E,[XX] ;WAS C(E) CLOBBERED? 6954 035006 005 04 0 00 033003 ER5 E,33003 ;C(E) WAS CLOBBERED 6955 035007 321 10 0 00 034775 JUMPL AC+2,F33000 ;LOOP ON ERROR SWITCH^ 6956 6957 003301 ADR=ADR+1 6958 040000 XX=XX+XX 6959 IFE XX, 6960 6961 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6962 000000 IFG XX, 6963 IFL XX, 6964 MOP1 (\ADR,1,-1,XX,V1,XX)^ 6965 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6966 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6967 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6968 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6969 6970 000001 F33010: AA1=1 ;INITIAL C(AC) 6971 035010 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 6972 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6973 035011 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 6974 040000 AEE=XX ;INITIAL C(E) 6975 035012 200 04 0 00 044002 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6976 035013 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6977 000000 AR1=V1 ;EXPECTED RESULT IN AC 6978 035014 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 6979 035015 003 06 0 00 033011 ER3 AC,33011 ;HIGH PRODUCT FAILED 6980 040000 AR2=XX ;EXPECTED RESULT IN AC+1 6981 035016 312 07 0 00 044002 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 6982 035017 004 07 0 00 033012 ER4 AC+1,33012 ;LOW PRODUCT FAILED 6983 040000 AEE=XX ;INITIAL C(E) 6984 035020 312 04 0 00 044002 CAME E,[XX] ;WAS C(E) CLOBBERED? 6985 035021 005 04 0 00 033013 ER5 E,33013 ;C(E) WAS CLOBBERED 6986 035022 321 10 0 00 035010 JUMPL AC+2,F33010 ;LOOP ON ERROR SWITCH^ 6987 6988 003302 ADR=ADR+1 6989 100000 XX=XX+XX 6990 IFE XX, 6991 6992 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 6993 000000 IFG XX, 6994 IFL XX, 6995 MOP1 (\ADR,1,-1,XX,V1,XX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0148 6996 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 6997 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6998 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 6999 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7000 7001 000001 F33020: AA1=1 ;INITIAL C(AC) 7002 035023 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7003 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7004 035024 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7005 100000 AEE=XX ;INITIAL C(E) 7006 035025 200 04 0 00 044003 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7007 035026 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7008 000000 AR1=V1 ;EXPECTED RESULT IN AC 7009 035027 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7010 035030 003 06 0 00 033021 ER3 AC,33021 ;HIGH PRODUCT FAILED 7011 100000 AR2=XX ;EXPECTED RESULT IN AC+1 7012 035031 312 07 0 00 044003 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7013 035032 004 07 0 00 033022 ER4 AC+1,33022 ;LOW PRODUCT FAILED 7014 100000 AEE=XX ;INITIAL C(E) 7015 035033 312 04 0 00 044003 CAME E,[XX] ;WAS C(E) CLOBBERED? 7016 035034 005 04 0 00 033023 ER5 E,33023 ;C(E) WAS CLOBBERED 7017 035035 321 10 0 00 035023 JUMPL AC+2,F33020 ;LOOP ON ERROR SWITCH^ 7018 7019 003303 ADR=ADR+1 7020 200000 XX=XX+XX 7021 IFE XX, 7022 7023 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7024 000000 IFG XX, 7025 IFL XX, 7026 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7027 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7028 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7029 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7030 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7031 7032 000001 F33030: AA1=1 ;INITIAL C(AC) 7033 035036 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7034 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7035 035037 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7036 200000 AEE=XX ;INITIAL C(E) 7037 035040 200 04 0 00 044004 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7038 035041 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7039 000000 AR1=V1 ;EXPECTED RESULT IN AC 7040 035042 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7041 035043 003 06 0 00 033031 ER3 AC,33031 ;HIGH PRODUCT FAILED 7042 200000 AR2=XX ;EXPECTED RESULT IN AC+1 7043 035044 312 07 0 00 044004 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7044 035045 004 07 0 00 033032 ER4 AC+1,33032 ;LOW PRODUCT FAILED 7045 200000 AEE=XX ;INITIAL C(E) 7046 035046 312 04 0 00 044004 CAME E,[XX] ;WAS C(E) CLOBBERED? 7047 035047 005 04 0 00 033033 ER5 E,33033 ;C(E) WAS CLOBBERED 7048 035050 321 10 0 00 035036 JUMPL AC+2,F33030 ;LOOP ON ERROR SWITCH^ 7049 7050 003304 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0149 7051 400000 XX=XX+XX 7052 IFE XX, 7053 7054 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7055 000000 IFG XX, 7056 IFL XX, 7057 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7058 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7059 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7060 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7061 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7062 7063 000001 F33040: AA1=1 ;INITIAL C(AC) 7064 035051 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7065 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7066 035052 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7067 400000 AEE=XX ;INITIAL C(E) 7068 035053 200 04 0 00 044005 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7069 035054 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7070 000000 AR1=V1 ;EXPECTED RESULT IN AC 7071 035055 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7072 035056 003 06 0 00 033041 ER3 AC,33041 ;HIGH PRODUCT FAILED 7073 400000 AR2=XX ;EXPECTED RESULT IN AC+1 7074 035057 312 07 0 00 044005 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7075 035060 004 07 0 00 033042 ER4 AC+1,33042 ;LOW PRODUCT FAILED 7076 400000 AEE=XX ;INITIAL C(E) 7077 035061 312 04 0 00 044005 CAME E,[XX] ;WAS C(E) CLOBBERED? 7078 035062 005 04 0 00 033043 ER5 E,33043 ;C(E) WAS CLOBBERED 7079 035063 321 10 0 00 035051 JUMPL AC+2,F33040 ;LOOP ON ERROR SWITCH^ 7080 7081 003305 ADR=ADR+1 7082 000001 000000 XX=XX+XX 7083 IFE XX, 7084 7085 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7086 000000 IFG XX, 7087 IFL XX, 7088 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7089 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7090 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7091 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7092 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7093 7094 000001 F33050: AA1=1 ;INITIAL C(AC) 7095 035064 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7096 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7097 035065 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7098 000001 000000 AEE=XX ;INITIAL C(E) 7099 035066 200 04 0 00 044006 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7100 035067 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7101 000000 AR1=V1 ;EXPECTED RESULT IN AC 7102 035070 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7103 035071 003 06 0 00 033051 ER3 AC,33051 ;HIGH PRODUCT FAILED 7104 000001 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7105 035072 312 07 0 00 044006 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0150 7106 035073 004 07 0 00 033052 ER4 AC+1,33052 ;LOW PRODUCT FAILED 7107 000001 000000 AEE=XX ;INITIAL C(E) 7108 035074 312 04 0 00 044006 CAME E,[XX] ;WAS C(E) CLOBBERED? 7109 035075 005 04 0 00 033053 ER5 E,33053 ;C(E) WAS CLOBBERED 7110 035076 321 10 0 00 035064 JUMPL AC+2,F33050 ;LOOP ON ERROR SWITCH^ 7111 7112 003306 ADR=ADR+1 7113 000002 000000 XX=XX+XX 7114 IFE XX, 7115 7116 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7117 000000 IFG XX, 7118 IFL XX, 7119 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7120 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7121 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7122 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7123 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7124 7125 000001 F33060: AA1=1 ;INITIAL C(AC) 7126 035077 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7127 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7128 035100 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7129 000002 000000 AEE=XX ;INITIAL C(E) 7130 035101 200 04 0 00 044007 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7131 035102 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7132 000000 AR1=V1 ;EXPECTED RESULT IN AC 7133 035103 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7134 035104 003 06 0 00 033061 ER3 AC,33061 ;HIGH PRODUCT FAILED 7135 000002 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7136 035105 312 07 0 00 044007 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7137 035106 004 07 0 00 033062 ER4 AC+1,33062 ;LOW PRODUCT FAILED 7138 000002 000000 AEE=XX ;INITIAL C(E) 7139 035107 312 04 0 00 044007 CAME E,[XX] ;WAS C(E) CLOBBERED? 7140 035110 005 04 0 00 033063 ER5 E,33063 ;C(E) WAS CLOBBERED 7141 035111 321 10 0 00 035077 JUMPL AC+2,F33060 ;LOOP ON ERROR SWITCH^ 7142 7143 003307 ADR=ADR+1 7144 000004 000000 XX=XX+XX 7145 IFE XX, 7146 7147 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7148 000000 IFG XX, 7149 IFL XX, 7150 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7151 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7152 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7153 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7154 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7155 7156 000001 F33070: AA1=1 ;INITIAL C(AC) 7157 035112 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7158 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7159 035113 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7160 000004 000000 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0151 7161 035114 200 04 0 00 044010 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7162 035115 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7163 000000 AR1=V1 ;EXPECTED RESULT IN AC 7164 035116 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7165 035117 003 06 0 00 033071 ER3 AC,33071 ;HIGH PRODUCT FAILED 7166 000004 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7167 035120 312 07 0 00 044010 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7168 035121 004 07 0 00 033072 ER4 AC+1,33072 ;LOW PRODUCT FAILED 7169 000004 000000 AEE=XX ;INITIAL C(E) 7170 035122 312 04 0 00 044010 CAME E,[XX] ;WAS C(E) CLOBBERED? 7171 035123 005 04 0 00 033073 ER5 E,33073 ;C(E) WAS CLOBBERED 7172 035124 321 10 0 00 035112 JUMPL AC+2,F33070 ;LOOP ON ERROR SWITCH^ 7173 7174 003310 ADR=ADR+1 7175 000010 000000 XX=XX+XX 7176 IFE XX, 7177 7178 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7179 000000 IFG XX, 7180 IFL XX, 7181 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7182 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7183 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7184 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7185 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7186 7187 000001 F33100: AA1=1 ;INITIAL C(AC) 7188 035125 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7189 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7190 035126 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7191 000010 000000 AEE=XX ;INITIAL C(E) 7192 035127 200 04 0 00 044011 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7193 035130 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7194 000000 AR1=V1 ;EXPECTED RESULT IN AC 7195 035131 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7196 035132 003 06 0 00 033101 ER3 AC,33101 ;HIGH PRODUCT FAILED 7197 000010 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7198 035133 312 07 0 00 044011 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7199 035134 004 07 0 00 033102 ER4 AC+1,33102 ;LOW PRODUCT FAILED 7200 000010 000000 AEE=XX ;INITIAL C(E) 7201 035135 312 04 0 00 044011 CAME E,[XX] ;WAS C(E) CLOBBERED? 7202 035136 005 04 0 00 033103 ER5 E,33103 ;C(E) WAS CLOBBERED 7203 035137 321 10 0 00 035125 JUMPL AC+2,F33100 ;LOOP ON ERROR SWITCH^ 7204 7205 003311 ADR=ADR+1 7206 000020 000000 XX=XX+XX 7207 IFE XX, 7208 7209 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7210 000000 IFG XX, 7211 IFL XX, 7212 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7213 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7214 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7215 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0152 7216 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7217 7218 000001 F33110: AA1=1 ;INITIAL C(AC) 7219 035140 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7220 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7221 035141 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7222 000020 000000 AEE=XX ;INITIAL C(E) 7223 035142 200 04 0 00 044012 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7224 035143 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7225 000000 AR1=V1 ;EXPECTED RESULT IN AC 7226 035144 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7227 035145 003 06 0 00 033111 ER3 AC,33111 ;HIGH PRODUCT FAILED 7228 000020 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7229 035146 312 07 0 00 044012 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7230 035147 004 07 0 00 033112 ER4 AC+1,33112 ;LOW PRODUCT FAILED 7231 000020 000000 AEE=XX ;INITIAL C(E) 7232 035150 312 04 0 00 044012 CAME E,[XX] ;WAS C(E) CLOBBERED? 7233 035151 005 04 0 00 033113 ER5 E,33113 ;C(E) WAS CLOBBERED 7234 035152 321 10 0 00 035140 JUMPL AC+2,F33110 ;LOOP ON ERROR SWITCH^ 7235 7236 003312 ADR=ADR+1 7237 000040 000000 XX=XX+XX 7238 IFE XX, 7239 7240 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7241 000000 IFG XX, 7242 IFL XX, 7243 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7244 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7245 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7246 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7247 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7248 7249 000001 F33120: AA1=1 ;INITIAL C(AC) 7250 035153 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7251 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7252 035154 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7253 000040 000000 AEE=XX ;INITIAL C(E) 7254 035155 200 04 0 00 044013 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7255 035156 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7256 000000 AR1=V1 ;EXPECTED RESULT IN AC 7257 035157 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7258 035160 003 06 0 00 033121 ER3 AC,33121 ;HIGH PRODUCT FAILED 7259 000040 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7260 035161 312 07 0 00 044013 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7261 035162 004 07 0 00 033122 ER4 AC+1,33122 ;LOW PRODUCT FAILED 7262 000040 000000 AEE=XX ;INITIAL C(E) 7263 035163 312 04 0 00 044013 CAME E,[XX] ;WAS C(E) CLOBBERED? 7264 035164 005 04 0 00 033123 ER5 E,33123 ;C(E) WAS CLOBBERED 7265 035165 321 10 0 00 035153 JUMPL AC+2,F33120 ;LOOP ON ERROR SWITCH^ 7266 7267 003313 ADR=ADR+1 7268 000100 000000 XX=XX+XX 7269 IFE XX, 7270 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0153 7271 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7272 000000 IFG XX, 7273 IFL XX, 7274 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7275 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7276 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7277 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7278 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7279 7280 000001 F33130: AA1=1 ;INITIAL C(AC) 7281 035166 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7282 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7283 035167 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7284 000100 000000 AEE=XX ;INITIAL C(E) 7285 035170 200 04 0 00 044014 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7286 035171 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7287 000000 AR1=V1 ;EXPECTED RESULT IN AC 7288 035172 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7289 035173 003 06 0 00 033131 ER3 AC,33131 ;HIGH PRODUCT FAILED 7290 000100 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7291 035174 312 07 0 00 044014 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7292 035175 004 07 0 00 033132 ER4 AC+1,33132 ;LOW PRODUCT FAILED 7293 000100 000000 AEE=XX ;INITIAL C(E) 7294 035176 312 04 0 00 044014 CAME E,[XX] ;WAS C(E) CLOBBERED? 7295 035177 005 04 0 00 033133 ER5 E,33133 ;C(E) WAS CLOBBERED 7296 035200 321 10 0 00 035166 JUMPL AC+2,F33130 ;LOOP ON ERROR SWITCH^ 7297 7298 003314 ADR=ADR+1 7299 000200 000000 XX=XX+XX 7300 IFE XX, 7301 7302 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7303 000000 IFG XX, 7304 IFL XX, 7305 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7306 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7307 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7308 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7309 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7310 7311 000001 F33140: AA1=1 ;INITIAL C(AC) 7312 035201 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7313 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7314 035202 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7315 000200 000000 AEE=XX ;INITIAL C(E) 7316 035203 200 04 0 00 044015 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7317 035204 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7318 000000 AR1=V1 ;EXPECTED RESULT IN AC 7319 035205 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7320 035206 003 06 0 00 033141 ER3 AC,33141 ;HIGH PRODUCT FAILED 7321 000200 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7322 035207 312 07 0 00 044015 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7323 035210 004 07 0 00 033142 ER4 AC+1,33142 ;LOW PRODUCT FAILED 7324 000200 000000 AEE=XX ;INITIAL C(E) 7325 035211 312 04 0 00 044015 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0154 7326 035212 005 04 0 00 033143 ER5 E,33143 ;C(E) WAS CLOBBERED 7327 035213 321 10 0 00 035201 JUMPL AC+2,F33140 ;LOOP ON ERROR SWITCH^ 7328 7329 003315 ADR=ADR+1 7330 000400 000000 XX=XX+XX 7331 IFE XX, 7332 7333 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7334 000000 IFG XX, 7335 IFL XX, 7336 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7337 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7338 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7339 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7340 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7341 7342 000001 F33150: AA1=1 ;INITIAL C(AC) 7343 035214 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7344 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7345 035215 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7346 000400 000000 AEE=XX ;INITIAL C(E) 7347 035216 200 04 0 00 044016 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7348 035217 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7349 000000 AR1=V1 ;EXPECTED RESULT IN AC 7350 035220 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7351 035221 003 06 0 00 033151 ER3 AC,33151 ;HIGH PRODUCT FAILED 7352 000400 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7353 035222 312 07 0 00 044016 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7354 035223 004 07 0 00 033152 ER4 AC+1,33152 ;LOW PRODUCT FAILED 7355 000400 000000 AEE=XX ;INITIAL C(E) 7356 035224 312 04 0 00 044016 CAME E,[XX] ;WAS C(E) CLOBBERED? 7357 035225 005 04 0 00 033153 ER5 E,33153 ;C(E) WAS CLOBBERED 7358 035226 321 10 0 00 035214 JUMPL AC+2,F33150 ;LOOP ON ERROR SWITCH^ 7359 7360 003316 ADR=ADR+1 7361 001000 000000 XX=XX+XX 7362 IFE XX, 7363 7364 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7365 000000 IFG XX, 7366 IFL XX, 7367 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7368 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7369 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7370 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7371 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7372 7373 000001 F33160: AA1=1 ;INITIAL C(AC) 7374 035227 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7375 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7376 035230 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7377 001000 000000 AEE=XX ;INITIAL C(E) 7378 035231 200 04 0 00 044017 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7379 035232 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7380 000000 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0155 7381 035233 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7382 035234 003 06 0 00 033161 ER3 AC,33161 ;HIGH PRODUCT FAILED 7383 001000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7384 035235 312 07 0 00 044017 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7385 035236 004 07 0 00 033162 ER4 AC+1,33162 ;LOW PRODUCT FAILED 7386 001000 000000 AEE=XX ;INITIAL C(E) 7387 035237 312 04 0 00 044017 CAME E,[XX] ;WAS C(E) CLOBBERED? 7388 035240 005 04 0 00 033163 ER5 E,33163 ;C(E) WAS CLOBBERED 7389 035241 321 10 0 00 035227 JUMPL AC+2,F33160 ;LOOP ON ERROR SWITCH^ 7390 7391 003317 ADR=ADR+1 7392 002000 000000 XX=XX+XX 7393 IFE XX, 7394 7395 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7396 000000 IFG XX, 7397 IFL XX, 7398 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7399 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7400 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7401 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7402 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7403 7404 000001 F33170: AA1=1 ;INITIAL C(AC) 7405 035242 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7406 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7407 035243 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7408 002000 000000 AEE=XX ;INITIAL C(E) 7409 035244 200 04 0 00 044020 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7410 035245 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7411 000000 AR1=V1 ;EXPECTED RESULT IN AC 7412 035246 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7413 035247 003 06 0 00 033171 ER3 AC,33171 ;HIGH PRODUCT FAILED 7414 002000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7415 035250 312 07 0 00 044020 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7416 035251 004 07 0 00 033172 ER4 AC+1,33172 ;LOW PRODUCT FAILED 7417 002000 000000 AEE=XX ;INITIAL C(E) 7418 035252 312 04 0 00 044020 CAME E,[XX] ;WAS C(E) CLOBBERED? 7419 035253 005 04 0 00 033173 ER5 E,33173 ;C(E) WAS CLOBBERED 7420 035254 321 10 0 00 035242 JUMPL AC+2,F33170 ;LOOP ON ERROR SWITCH^ 7421 7422 003320 ADR=ADR+1 7423 004000 000000 XX=XX+XX 7424 IFE XX, 7425 7426 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7427 000000 IFG XX, 7428 IFL XX, 7429 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7430 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7431 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7432 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7433 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7434 7435 000001 F33200: AA1=1 ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0156 7436 035255 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7437 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7438 035256 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7439 004000 000000 AEE=XX ;INITIAL C(E) 7440 035257 200 04 0 00 044021 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7441 035260 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7442 000000 AR1=V1 ;EXPECTED RESULT IN AC 7443 035261 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7444 035262 003 06 0 00 033201 ER3 AC,33201 ;HIGH PRODUCT FAILED 7445 004000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7446 035263 312 07 0 00 044021 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7447 035264 004 07 0 00 033202 ER4 AC+1,33202 ;LOW PRODUCT FAILED 7448 004000 000000 AEE=XX ;INITIAL C(E) 7449 035265 312 04 0 00 044021 CAME E,[XX] ;WAS C(E) CLOBBERED? 7450 035266 005 04 0 00 033203 ER5 E,33203 ;C(E) WAS CLOBBERED 7451 035267 321 10 0 00 035255 JUMPL AC+2,F33200 ;LOOP ON ERROR SWITCH^ 7452 7453 003321 ADR=ADR+1 7454 010000 000000 XX=XX+XX 7455 IFE XX, 7456 7457 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7458 000000 IFG XX, 7459 IFL XX, 7460 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7461 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7462 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7463 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7464 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7465 7466 000001 F33210: AA1=1 ;INITIAL C(AC) 7467 035270 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7468 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7469 035271 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7470 010000 000000 AEE=XX ;INITIAL C(E) 7471 035272 200 04 0 00 044022 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7472 035273 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7473 000000 AR1=V1 ;EXPECTED RESULT IN AC 7474 035274 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7475 035275 003 06 0 00 033211 ER3 AC,33211 ;HIGH PRODUCT FAILED 7476 010000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7477 035276 312 07 0 00 044022 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7478 035277 004 07 0 00 033212 ER4 AC+1,33212 ;LOW PRODUCT FAILED 7479 010000 000000 AEE=XX ;INITIAL C(E) 7480 035300 312 04 0 00 044022 CAME E,[XX] ;WAS C(E) CLOBBERED? 7481 035301 005 04 0 00 033213 ER5 E,33213 ;C(E) WAS CLOBBERED 7482 035302 321 10 0 00 035270 JUMPL AC+2,F33210 ;LOOP ON ERROR SWITCH^ 7483 7484 003322 ADR=ADR+1 7485 020000 000000 XX=XX+XX 7486 IFE XX, 7487 7488 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7489 000000 IFG XX, 7490 IFL XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0157 7491 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7492 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7493 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7494 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7495 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7496 7497 000001 F33220: AA1=1 ;INITIAL C(AC) 7498 035303 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7499 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7500 035304 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7501 020000 000000 AEE=XX ;INITIAL C(E) 7502 035305 200 04 0 00 044023 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7503 035306 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7504 000000 AR1=V1 ;EXPECTED RESULT IN AC 7505 035307 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7506 035310 003 06 0 00 033221 ER3 AC,33221 ;HIGH PRODUCT FAILED 7507 020000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7508 035311 312 07 0 00 044023 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7509 035312 004 07 0 00 033222 ER4 AC+1,33222 ;LOW PRODUCT FAILED 7510 020000 000000 AEE=XX ;INITIAL C(E) 7511 035313 312 04 0 00 044023 CAME E,[XX] ;WAS C(E) CLOBBERED? 7512 035314 005 04 0 00 033223 ER5 E,33223 ;C(E) WAS CLOBBERED 7513 035315 321 10 0 00 035303 JUMPL AC+2,F33220 ;LOOP ON ERROR SWITCH^ 7514 7515 003323 ADR=ADR+1 7516 040000 000000 XX=XX+XX 7517 IFE XX, 7518 7519 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7520 000000 IFG XX, 7521 IFL XX, 7522 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7523 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7524 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7525 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7526 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7527 7528 000001 F33230: AA1=1 ;INITIAL C(AC) 7529 035316 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7530 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7531 035317 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7532 040000 000000 AEE=XX ;INITIAL C(E) 7533 035320 200 04 0 00 044024 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7534 035321 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7535 000000 AR1=V1 ;EXPECTED RESULT IN AC 7536 035322 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7537 035323 003 06 0 00 033231 ER3 AC,33231 ;HIGH PRODUCT FAILED 7538 040000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7539 035324 312 07 0 00 044024 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7540 035325 004 07 0 00 033232 ER4 AC+1,33232 ;LOW PRODUCT FAILED 7541 040000 000000 AEE=XX ;INITIAL C(E) 7542 035326 312 04 0 00 044024 CAME E,[XX] ;WAS C(E) CLOBBERED? 7543 035327 005 04 0 00 033233 ER5 E,33233 ;C(E) WAS CLOBBERED 7544 035330 321 10 0 00 035316 JUMPL AC+2,F33230 ;LOOP ON ERROR SWITCH^ 7545 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0158 7546 003324 ADR=ADR+1 7547 100000 000000 XX=XX+XX 7548 IFE XX, 7549 7550 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7551 000000 IFG XX, 7552 IFL XX, 7553 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7554 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7555 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7556 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7557 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7558 7559 000001 F33240: AA1=1 ;INITIAL C(AC) 7560 035331 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7561 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7562 035332 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7563 100000 000000 AEE=XX ;INITIAL C(E) 7564 035333 200 04 0 00 044025 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7565 035334 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7566 000000 AR1=V1 ;EXPECTED RESULT IN AC 7567 035335 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7568 035336 003 06 0 00 033241 ER3 AC,33241 ;HIGH PRODUCT FAILED 7569 100000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7570 035337 312 07 0 00 044025 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7571 035340 004 07 0 00 033242 ER4 AC+1,33242 ;LOW PRODUCT FAILED 7572 100000 000000 AEE=XX ;INITIAL C(E) 7573 035341 312 04 0 00 044025 CAME E,[XX] ;WAS C(E) CLOBBERED? 7574 035342 005 04 0 00 033243 ER5 E,33243 ;C(E) WAS CLOBBERED 7575 035343 321 10 0 00 035331 JUMPL AC+2,F33240 ;LOOP ON ERROR SWITCH^ 7576 7577 003325 ADR=ADR+1 7578 200000 000000 XX=XX+XX 7579 IFE XX, 7580 7581 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7582 000000 IFG XX, 7583 IFL XX, 7584 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7585 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7586 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7587 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7588 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7589 7590 000001 F33250: AA1=1 ;INITIAL C(AC) 7591 035344 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7592 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7593 035345 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7594 200000 000000 AEE=XX ;INITIAL C(E) 7595 035346 200 04 0 00 044026 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7596 035347 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7597 000000 AR1=V1 ;EXPECTED RESULT IN AC 7598 035350 312 06 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7599 035351 003 06 0 00 033251 ER3 AC,33251 ;HIGH PRODUCT FAILED 7600 200000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 10-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0159 7601 035352 312 07 0 00 044026 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7602 035353 004 07 0 00 033252 ER4 AC+1,33252 ;LOW PRODUCT FAILED 7603 200000 000000 AEE=XX ;INITIAL C(E) 7604 035354 312 04 0 00 044026 CAME E,[XX] ;WAS C(E) CLOBBERED? 7605 035355 005 04 0 00 033253 ER5 E,33253 ;C(E) WAS CLOBBERED 7606 035356 321 10 0 00 035344 JUMPL AC+2,F33250 ;LOOP ON ERROR SWITCH^ 7607 7608 003326 ADR=ADR+1 7609 400000 000000 XX=XX+XX 7610 IFE XX, 7611 7612 ;MULTIPLY A RIPPLED 1 BY 1 TO GET A PRODUCT OF RIPPLED 1 7613 IFG XX, 7614 777777 777777 IFL XX, 7615 MOP1 (\ADR,1,-1,XX,V1,XX)^ 7616 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[-1] AND 7617 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7618 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 7619 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7620 7621 000001 F33260: AA1=1 ;INITIAL C(AC) 7622 035357 200 06 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 7623 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7624 035360 200 07 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7625 400000 000000 AEE=XX ;INITIAL C(E) 7626 035361 200 04 0 00 044027 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7627 035362 224 06 0 00 000004 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7628 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 7629 035363 312 06 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7630 035364 003 06 0 00 033261 ER3 AC,33261 ;HIGH PRODUCT FAILED 7631 400000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 7632 035365 312 07 0 00 044027 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7633 035366 004 07 0 00 033262 ER4 AC+1,33262 ;LOW PRODUCT FAILED 7634 400000 000000 AEE=XX ;INITIAL C(E) 7635 035367 312 04 0 00 044027 CAME E,[XX] ;WAS C(E) CLOBBERED? 7636 035370 005 04 0 00 033263 ER5 E,33263 ;C(E) WAS CLOBBERED 7637 035371 321 10 0 00 035357 JUMPL AC+2,F33260 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0160 7638 000005 AC=5 7639 000003 E=&17 7640 SAVEAC (1,1)^ 7641 035372 201 07 0 00 035372 MOVEI AC+2,. ;SAVE TEST PC 7642 035373 202 07 0 00 030051 MOVEM AC+2,TESTPC 7643 035374 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7644 035375 202 07 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7645 000000 XX=0 7646 7647 REPEAT ^D36,< 7648 ADR=ADR+1 7649 XX=XX+XX 7650 IFE XX, 7651 7652 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7653 IFG XX, 7654 IFL XX, 7655 MOP1 (\ADR,XX,-1,1,V1,XX)> 7656 7657 003327 ADR=ADR+1 7658 000000 XX=XX+XX 7659 000001 IFE XX, 7660 7661 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7662 000000 IFG XX, 7663 IFL XX, 7664 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7665 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7666 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7667 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7668 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7669 7670 000001 F33270: AA1=XX ;INITIAL C(AC) 7671 035376 200 05 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7672 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7673 035377 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7674 000001 AEE=1 ;INITIAL C(E) 7675 035400 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7676 035401 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7677 000000 AR1=V1 ;EXPECTED RESULT IN AC 7678 035402 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7679 035403 003 05 0 00 033271 ER3 AC,33271 ;HIGH PRODUCT FAILED 7680 000001 AR2=XX ;EXPECTED RESULT IN AC+1 7681 035404 312 06 0 00 043764 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7682 035405 004 06 0 00 033272 ER4 AC+1,33272 ;LOW PRODUCT FAILED 7683 000001 AEE=1 ;INITIAL C(E) 7684 035406 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7685 035407 005 03 0 00 033273 ER5 E,33273 ;C(E) WAS CLOBBERED 7686 035410 321 07 0 00 035376 JUMPL AC+2,F33270 ;LOOP ON ERROR SWITCH^ 7687 7688 003330 ADR=ADR+1 7689 000002 XX=XX+XX 7690 IFE XX, 7691 7692 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0161 7693 000000 IFG XX, 7694 IFL XX, 7695 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7696 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7697 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7698 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7699 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7700 7701 000002 F33300: AA1=XX ;INITIAL C(AC) 7702 035411 200 05 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7703 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7704 035412 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7705 000001 AEE=1 ;INITIAL C(E) 7706 035413 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7707 035414 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7708 000000 AR1=V1 ;EXPECTED RESULT IN AC 7709 035415 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7710 035416 003 05 0 00 033301 ER3 AC,33301 ;HIGH PRODUCT FAILED 7711 000002 AR2=XX ;EXPECTED RESULT IN AC+1 7712 035417 312 06 0 00 043765 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7713 035420 004 06 0 00 033302 ER4 AC+1,33302 ;LOW PRODUCT FAILED 7714 000001 AEE=1 ;INITIAL C(E) 7715 035421 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7716 035422 005 03 0 00 033303 ER5 E,33303 ;C(E) WAS CLOBBERED 7717 035423 321 07 0 00 035411 JUMPL AC+2,F33300 ;LOOP ON ERROR SWITCH^ 7718 7719 003331 ADR=ADR+1 7720 000004 XX=XX+XX 7721 IFE XX, 7722 7723 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7724 000000 IFG XX, 7725 IFL XX, 7726 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7727 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7728 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7729 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7730 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7731 7732 000004 F33310: AA1=XX ;INITIAL C(AC) 7733 035424 200 05 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7734 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7735 035425 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7736 000001 AEE=1 ;INITIAL C(E) 7737 035426 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7738 035427 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7739 000000 AR1=V1 ;EXPECTED RESULT IN AC 7740 035430 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7741 035431 003 05 0 00 033311 ER3 AC,33311 ;HIGH PRODUCT FAILED 7742 000004 AR2=XX ;EXPECTED RESULT IN AC+1 7743 035432 312 06 0 00 043766 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7744 035433 004 06 0 00 033312 ER4 AC+1,33312 ;LOW PRODUCT FAILED 7745 000001 AEE=1 ;INITIAL C(E) 7746 035434 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7747 035435 005 03 0 00 033313 ER5 E,33313 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0162 7748 035436 321 07 0 00 035424 JUMPL AC+2,F33310 ;LOOP ON ERROR SWITCH^ 7749 7750 003332 ADR=ADR+1 7751 000010 XX=XX+XX 7752 IFE XX, 7753 7754 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7755 000000 IFG XX, 7756 IFL XX, 7757 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7758 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7759 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7760 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7761 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7762 7763 000010 F33320: AA1=XX ;INITIAL C(AC) 7764 035437 200 05 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7765 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7766 035440 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7767 000001 AEE=1 ;INITIAL C(E) 7768 035441 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7769 035442 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7770 000000 AR1=V1 ;EXPECTED RESULT IN AC 7771 035443 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7772 035444 003 05 0 00 033321 ER3 AC,33321 ;HIGH PRODUCT FAILED 7773 000010 AR2=XX ;EXPECTED RESULT IN AC+1 7774 035445 312 06 0 00 043767 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7775 035446 004 06 0 00 033322 ER4 AC+1,33322 ;LOW PRODUCT FAILED 7776 000001 AEE=1 ;INITIAL C(E) 7777 035447 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7778 035450 005 03 0 00 033323 ER5 E,33323 ;C(E) WAS CLOBBERED 7779 035451 321 07 0 00 035437 JUMPL AC+2,F33320 ;LOOP ON ERROR SWITCH^ 7780 7781 003333 ADR=ADR+1 7782 000020 XX=XX+XX 7783 IFE XX, 7784 7785 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7786 000000 IFG XX, 7787 IFL XX, 7788 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7789 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7790 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7791 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7792 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7793 7794 000020 F33330: AA1=XX ;INITIAL C(AC) 7795 035452 200 05 0 00 043770 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7796 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7797 035453 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7798 000001 AEE=1 ;INITIAL C(E) 7799 035454 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7800 035455 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7801 000000 AR1=V1 ;EXPECTED RESULT IN AC 7802 035456 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0163 7803 035457 003 05 0 00 033331 ER3 AC,33331 ;HIGH PRODUCT FAILED 7804 000020 AR2=XX ;EXPECTED RESULT IN AC+1 7805 035460 312 06 0 00 043770 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7806 035461 004 06 0 00 033332 ER4 AC+1,33332 ;LOW PRODUCT FAILED 7807 000001 AEE=1 ;INITIAL C(E) 7808 035462 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7809 035463 005 03 0 00 033333 ER5 E,33333 ;C(E) WAS CLOBBERED 7810 035464 321 07 0 00 035452 JUMPL AC+2,F33330 ;LOOP ON ERROR SWITCH^ 7811 7812 003334 ADR=ADR+1 7813 000040 XX=XX+XX 7814 IFE XX, 7815 7816 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7817 000000 IFG XX, 7818 IFL XX, 7819 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7820 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7821 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7822 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7823 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7824 7825 000040 F33340: AA1=XX ;INITIAL C(AC) 7826 035465 200 05 0 00 043771 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7827 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7828 035466 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7829 000001 AEE=1 ;INITIAL C(E) 7830 035467 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7831 035470 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7832 000000 AR1=V1 ;EXPECTED RESULT IN AC 7833 035471 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7834 035472 003 05 0 00 033341 ER3 AC,33341 ;HIGH PRODUCT FAILED 7835 000040 AR2=XX ;EXPECTED RESULT IN AC+1 7836 035473 312 06 0 00 043771 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7837 035474 004 06 0 00 033342 ER4 AC+1,33342 ;LOW PRODUCT FAILED 7838 000001 AEE=1 ;INITIAL C(E) 7839 035475 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7840 035476 005 03 0 00 033343 ER5 E,33343 ;C(E) WAS CLOBBERED 7841 035477 321 07 0 00 035465 JUMPL AC+2,F33340 ;LOOP ON ERROR SWITCH^ 7842 7843 003335 ADR=ADR+1 7844 000100 XX=XX+XX 7845 IFE XX, 7846 7847 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7848 000000 IFG XX, 7849 IFL XX, 7850 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7851 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7852 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7853 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7854 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7855 7856 000100 F33350: AA1=XX ;INITIAL C(AC) 7857 035500 200 05 0 00 043772 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0164 7858 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7859 035501 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7860 000001 AEE=1 ;INITIAL C(E) 7861 035502 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7862 035503 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7863 000000 AR1=V1 ;EXPECTED RESULT IN AC 7864 035504 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7865 035505 003 05 0 00 033351 ER3 AC,33351 ;HIGH PRODUCT FAILED 7866 000100 AR2=XX ;EXPECTED RESULT IN AC+1 7867 035506 312 06 0 00 043772 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7868 035507 004 06 0 00 033352 ER4 AC+1,33352 ;LOW PRODUCT FAILED 7869 000001 AEE=1 ;INITIAL C(E) 7870 035510 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7871 035511 005 03 0 00 033353 ER5 E,33353 ;C(E) WAS CLOBBERED 7872 035512 321 07 0 00 035500 JUMPL AC+2,F33350 ;LOOP ON ERROR SWITCH^ 7873 7874 003336 ADR=ADR+1 7875 000200 XX=XX+XX 7876 IFE XX, 7877 7878 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7879 000000 IFG XX, 7880 IFL XX, 7881 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7882 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7883 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7884 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7885 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7886 7887 000200 F33360: AA1=XX ;INITIAL C(AC) 7888 035513 200 05 0 00 043773 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7889 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7890 035514 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7891 000001 AEE=1 ;INITIAL C(E) 7892 035515 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7893 035516 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7894 000000 AR1=V1 ;EXPECTED RESULT IN AC 7895 035517 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7896 035520 003 05 0 00 033361 ER3 AC,33361 ;HIGH PRODUCT FAILED 7897 000200 AR2=XX ;EXPECTED RESULT IN AC+1 7898 035521 312 06 0 00 043773 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7899 035522 004 06 0 00 033362 ER4 AC+1,33362 ;LOW PRODUCT FAILED 7900 000001 AEE=1 ;INITIAL C(E) 7901 035523 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7902 035524 005 03 0 00 033363 ER5 E,33363 ;C(E) WAS CLOBBERED 7903 035525 321 07 0 00 035513 JUMPL AC+2,F33360 ;LOOP ON ERROR SWITCH^ 7904 7905 003337 ADR=ADR+1 7906 000400 XX=XX+XX 7907 IFE XX, 7908 7909 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7910 000000 IFG XX, 7911 IFL XX, 7912 MOP1 (\ADR,XX,-1,1,V1,XX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0165 7913 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7914 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7915 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7916 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7917 7918 000400 F33370: AA1=XX ;INITIAL C(AC) 7919 035526 200 05 0 00 043774 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7920 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7921 035527 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7922 000001 AEE=1 ;INITIAL C(E) 7923 035530 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7924 035531 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7925 000000 AR1=V1 ;EXPECTED RESULT IN AC 7926 035532 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7927 035533 003 05 0 00 033371 ER3 AC,33371 ;HIGH PRODUCT FAILED 7928 000400 AR2=XX ;EXPECTED RESULT IN AC+1 7929 035534 312 06 0 00 043774 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7930 035535 004 06 0 00 033372 ER4 AC+1,33372 ;LOW PRODUCT FAILED 7931 000001 AEE=1 ;INITIAL C(E) 7932 035536 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7933 035537 005 03 0 00 033373 ER5 E,33373 ;C(E) WAS CLOBBERED 7934 035540 321 07 0 00 035526 JUMPL AC+2,F33370 ;LOOP ON ERROR SWITCH^ 7935 7936 003340 ADR=ADR+1 7937 001000 XX=XX+XX 7938 IFE XX, 7939 7940 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7941 000000 IFG XX, 7942 IFL XX, 7943 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7944 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7945 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7946 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7947 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7948 7949 001000 F33400: AA1=XX ;INITIAL C(AC) 7950 035541 200 05 0 00 043775 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7951 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7952 035542 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7953 000001 AEE=1 ;INITIAL C(E) 7954 035543 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7955 035544 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7956 000000 AR1=V1 ;EXPECTED RESULT IN AC 7957 035545 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7958 035546 003 05 0 00 033401 ER3 AC,33401 ;HIGH PRODUCT FAILED 7959 001000 AR2=XX ;EXPECTED RESULT IN AC+1 7960 035547 312 06 0 00 043775 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7961 035550 004 06 0 00 033402 ER4 AC+1,33402 ;LOW PRODUCT FAILED 7962 000001 AEE=1 ;INITIAL C(E) 7963 035551 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7964 035552 005 03 0 00 033403 ER5 E,33403 ;C(E) WAS CLOBBERED 7965 035553 321 07 0 00 035541 JUMPL AC+2,F33400 ;LOOP ON ERROR SWITCH^ 7966 7967 003341 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0166 7968 002000 XX=XX+XX 7969 IFE XX, 7970 7971 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 7972 000000 IFG XX, 7973 IFL XX, 7974 MOP1 (\ADR,XX,-1,1,V1,XX)^ 7975 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 7976 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7977 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 7978 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7979 7980 002000 F33410: AA1=XX ;INITIAL C(AC) 7981 035554 200 05 0 00 043776 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 7982 777777 777777 AA2=-1 ;INITIAL C(AC+1) 7983 035555 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 7984 000001 AEE=1 ;INITIAL C(E) 7985 035556 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 7986 035557 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7987 000000 AR1=V1 ;EXPECTED RESULT IN AC 7988 035560 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 7989 035561 003 05 0 00 033411 ER3 AC,33411 ;HIGH PRODUCT FAILED 7990 002000 AR2=XX ;EXPECTED RESULT IN AC+1 7991 035562 312 06 0 00 043776 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 7992 035563 004 06 0 00 033412 ER4 AC+1,33412 ;LOW PRODUCT FAILED 7993 000001 AEE=1 ;INITIAL C(E) 7994 035564 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 7995 035565 005 03 0 00 033413 ER5 E,33413 ;C(E) WAS CLOBBERED 7996 035566 321 07 0 00 035554 JUMPL AC+2,F33410 ;LOOP ON ERROR SWITCH^ 7997 7998 003342 ADR=ADR+1 7999 004000 XX=XX+XX 8000 IFE XX, 8001 8002 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8003 000000 IFG XX, 8004 IFL XX, 8005 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8006 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8007 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8008 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8009 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8010 8011 004000 F33420: AA1=XX ;INITIAL C(AC) 8012 035567 200 05 0 00 043777 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8013 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8014 035570 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8015 000001 AEE=1 ;INITIAL C(E) 8016 035571 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8017 035572 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8018 000000 AR1=V1 ;EXPECTED RESULT IN AC 8019 035573 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8020 035574 003 05 0 00 033421 ER3 AC,33421 ;HIGH PRODUCT FAILED 8021 004000 AR2=XX ;EXPECTED RESULT IN AC+1 8022 035575 312 06 0 00 043777 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0167 8023 035576 004 06 0 00 033422 ER4 AC+1,33422 ;LOW PRODUCT FAILED 8024 000001 AEE=1 ;INITIAL C(E) 8025 035577 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8026 035600 005 03 0 00 033423 ER5 E,33423 ;C(E) WAS CLOBBERED 8027 035601 321 07 0 00 035567 JUMPL AC+2,F33420 ;LOOP ON ERROR SWITCH^ 8028 8029 003343 ADR=ADR+1 8030 010000 XX=XX+XX 8031 IFE XX, 8032 8033 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8034 000000 IFG XX, 8035 IFL XX, 8036 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8037 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8038 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8039 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8040 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8041 8042 010000 F33430: AA1=XX ;INITIAL C(AC) 8043 035602 200 05 0 00 044000 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8044 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8045 035603 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8046 000001 AEE=1 ;INITIAL C(E) 8047 035604 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8048 035605 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8049 000000 AR1=V1 ;EXPECTED RESULT IN AC 8050 035606 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8051 035607 003 05 0 00 033431 ER3 AC,33431 ;HIGH PRODUCT FAILED 8052 010000 AR2=XX ;EXPECTED RESULT IN AC+1 8053 035610 312 06 0 00 044000 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8054 035611 004 06 0 00 033432 ER4 AC+1,33432 ;LOW PRODUCT FAILED 8055 000001 AEE=1 ;INITIAL C(E) 8056 035612 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8057 035613 005 03 0 00 033433 ER5 E,33433 ;C(E) WAS CLOBBERED 8058 035614 321 07 0 00 035602 JUMPL AC+2,F33430 ;LOOP ON ERROR SWITCH^ 8059 8060 003344 ADR=ADR+1 8061 020000 XX=XX+XX 8062 IFE XX, 8063 8064 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8065 000000 IFG XX, 8066 IFL XX, 8067 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8068 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8069 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8070 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8071 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8072 8073 020000 F33440: AA1=XX ;INITIAL C(AC) 8074 035615 200 05 0 00 044001 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8075 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8076 035616 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8077 000001 AEE=1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0168 8078 035617 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8079 035620 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8080 000000 AR1=V1 ;EXPECTED RESULT IN AC 8081 035621 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8082 035622 003 05 0 00 033441 ER3 AC,33441 ;HIGH PRODUCT FAILED 8083 020000 AR2=XX ;EXPECTED RESULT IN AC+1 8084 035623 312 06 0 00 044001 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8085 035624 004 06 0 00 033442 ER4 AC+1,33442 ;LOW PRODUCT FAILED 8086 000001 AEE=1 ;INITIAL C(E) 8087 035625 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8088 035626 005 03 0 00 033443 ER5 E,33443 ;C(E) WAS CLOBBERED 8089 035627 321 07 0 00 035615 JUMPL AC+2,F33440 ;LOOP ON ERROR SWITCH^ 8090 8091 003345 ADR=ADR+1 8092 040000 XX=XX+XX 8093 IFE XX, 8094 8095 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8096 000000 IFG XX, 8097 IFL XX, 8098 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8099 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8100 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8101 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8102 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8103 8104 040000 F33450: AA1=XX ;INITIAL C(AC) 8105 035630 200 05 0 00 044002 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8106 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8107 035631 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8108 000001 AEE=1 ;INITIAL C(E) 8109 035632 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8110 035633 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8111 000000 AR1=V1 ;EXPECTED RESULT IN AC 8112 035634 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8113 035635 003 05 0 00 033451 ER3 AC,33451 ;HIGH PRODUCT FAILED 8114 040000 AR2=XX ;EXPECTED RESULT IN AC+1 8115 035636 312 06 0 00 044002 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8116 035637 004 06 0 00 033452 ER4 AC+1,33452 ;LOW PRODUCT FAILED 8117 000001 AEE=1 ;INITIAL C(E) 8118 035640 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8119 035641 005 03 0 00 033453 ER5 E,33453 ;C(E) WAS CLOBBERED 8120 035642 321 07 0 00 035630 JUMPL AC+2,F33450 ;LOOP ON ERROR SWITCH^ 8121 8122 003346 ADR=ADR+1 8123 100000 XX=XX+XX 8124 IFE XX, 8125 8126 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8127 000000 IFG XX, 8128 IFL XX, 8129 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8130 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8131 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8132 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0169 8133 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8134 8135 100000 F33460: AA1=XX ;INITIAL C(AC) 8136 035643 200 05 0 00 044003 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8137 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8138 035644 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8139 000001 AEE=1 ;INITIAL C(E) 8140 035645 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8141 035646 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8142 000000 AR1=V1 ;EXPECTED RESULT IN AC 8143 035647 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8144 035650 003 05 0 00 033461 ER3 AC,33461 ;HIGH PRODUCT FAILED 8145 100000 AR2=XX ;EXPECTED RESULT IN AC+1 8146 035651 312 06 0 00 044003 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8147 035652 004 06 0 00 033462 ER4 AC+1,33462 ;LOW PRODUCT FAILED 8148 000001 AEE=1 ;INITIAL C(E) 8149 035653 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8150 035654 005 03 0 00 033463 ER5 E,33463 ;C(E) WAS CLOBBERED 8151 035655 321 07 0 00 035643 JUMPL AC+2,F33460 ;LOOP ON ERROR SWITCH^ 8152 8153 003347 ADR=ADR+1 8154 200000 XX=XX+XX 8155 IFE XX, 8156 8157 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8158 000000 IFG XX, 8159 IFL XX, 8160 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8161 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8162 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8163 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8164 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8165 8166 200000 F33470: AA1=XX ;INITIAL C(AC) 8167 035656 200 05 0 00 044004 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8168 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8169 035657 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8170 000001 AEE=1 ;INITIAL C(E) 8171 035660 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8172 035661 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8173 000000 AR1=V1 ;EXPECTED RESULT IN AC 8174 035662 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8175 035663 003 05 0 00 033471 ER3 AC,33471 ;HIGH PRODUCT FAILED 8176 200000 AR2=XX ;EXPECTED RESULT IN AC+1 8177 035664 312 06 0 00 044004 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8178 035665 004 06 0 00 033472 ER4 AC+1,33472 ;LOW PRODUCT FAILED 8179 000001 AEE=1 ;INITIAL C(E) 8180 035666 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8181 035667 005 03 0 00 033473 ER5 E,33473 ;C(E) WAS CLOBBERED 8182 035670 321 07 0 00 035656 JUMPL AC+2,F33470 ;LOOP ON ERROR SWITCH^ 8183 8184 003350 ADR=ADR+1 8185 400000 XX=XX+XX 8186 IFE XX, 8187 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0170 8188 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8189 000000 IFG XX, 8190 IFL XX, 8191 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8192 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8193 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8194 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8195 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8196 8197 400000 F33500: AA1=XX ;INITIAL C(AC) 8198 035671 200 05 0 00 044005 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8199 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8200 035672 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8201 000001 AEE=1 ;INITIAL C(E) 8202 035673 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8203 035674 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8204 000000 AR1=V1 ;EXPECTED RESULT IN AC 8205 035675 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8206 035676 003 05 0 00 033501 ER3 AC,33501 ;HIGH PRODUCT FAILED 8207 400000 AR2=XX ;EXPECTED RESULT IN AC+1 8208 035677 312 06 0 00 044005 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8209 035700 004 06 0 00 033502 ER4 AC+1,33502 ;LOW PRODUCT FAILED 8210 000001 AEE=1 ;INITIAL C(E) 8211 035701 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8212 035702 005 03 0 00 033503 ER5 E,33503 ;C(E) WAS CLOBBERED 8213 035703 321 07 0 00 035671 JUMPL AC+2,F33500 ;LOOP ON ERROR SWITCH^ 8214 8215 003351 ADR=ADR+1 8216 000001 000000 XX=XX+XX 8217 IFE XX, 8218 8219 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8220 000000 IFG XX, 8221 IFL XX, 8222 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8223 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8224 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8225 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8226 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8227 8228 000001 000000 F33510: AA1=XX ;INITIAL C(AC) 8229 035704 200 05 0 00 044006 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8230 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8231 035705 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8232 000001 AEE=1 ;INITIAL C(E) 8233 035706 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8234 035707 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8235 000000 AR1=V1 ;EXPECTED RESULT IN AC 8236 035710 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8237 035711 003 05 0 00 033511 ER3 AC,33511 ;HIGH PRODUCT FAILED 8238 000001 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8239 035712 312 06 0 00 044006 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8240 035713 004 06 0 00 033512 ER4 AC+1,33512 ;LOW PRODUCT FAILED 8241 000001 AEE=1 ;INITIAL C(E) 8242 035714 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0171 8243 035715 005 03 0 00 033513 ER5 E,33513 ;C(E) WAS CLOBBERED 8244 035716 321 07 0 00 035704 JUMPL AC+2,F33510 ;LOOP ON ERROR SWITCH^ 8245 8246 003352 ADR=ADR+1 8247 000002 000000 XX=XX+XX 8248 IFE XX, 8249 8250 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8251 000000 IFG XX, 8252 IFL XX, 8253 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8254 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8255 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8256 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8257 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8258 8259 000002 000000 F33520: AA1=XX ;INITIAL C(AC) 8260 035717 200 05 0 00 044007 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8261 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8262 035720 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8263 000001 AEE=1 ;INITIAL C(E) 8264 035721 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8265 035722 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8266 000000 AR1=V1 ;EXPECTED RESULT IN AC 8267 035723 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8268 035724 003 05 0 00 033521 ER3 AC,33521 ;HIGH PRODUCT FAILED 8269 000002 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8270 035725 312 06 0 00 044007 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8271 035726 004 06 0 00 033522 ER4 AC+1,33522 ;LOW PRODUCT FAILED 8272 000001 AEE=1 ;INITIAL C(E) 8273 035727 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8274 035730 005 03 0 00 033523 ER5 E,33523 ;C(E) WAS CLOBBERED 8275 035731 321 07 0 00 035717 JUMPL AC+2,F33520 ;LOOP ON ERROR SWITCH^ 8276 8277 003353 ADR=ADR+1 8278 000004 000000 XX=XX+XX 8279 IFE XX, 8280 8281 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8282 000000 IFG XX, 8283 IFL XX, 8284 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8285 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8286 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8287 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8288 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8289 8290 000004 000000 F33530: AA1=XX ;INITIAL C(AC) 8291 035732 200 05 0 00 044010 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8292 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8293 035733 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8294 000001 AEE=1 ;INITIAL C(E) 8295 035734 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8296 035735 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8297 000000 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0172 8298 035736 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8299 035737 003 05 0 00 033531 ER3 AC,33531 ;HIGH PRODUCT FAILED 8300 000004 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8301 035740 312 06 0 00 044010 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8302 035741 004 06 0 00 033532 ER4 AC+1,33532 ;LOW PRODUCT FAILED 8303 000001 AEE=1 ;INITIAL C(E) 8304 035742 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8305 035743 005 03 0 00 033533 ER5 E,33533 ;C(E) WAS CLOBBERED 8306 035744 321 07 0 00 035732 JUMPL AC+2,F33530 ;LOOP ON ERROR SWITCH^ 8307 8308 003354 ADR=ADR+1 8309 000010 000000 XX=XX+XX 8310 IFE XX, 8311 8312 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8313 000000 IFG XX, 8314 IFL XX, 8315 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8316 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8317 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8318 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8319 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8320 8321 000010 000000 F33540: AA1=XX ;INITIAL C(AC) 8322 035745 200 05 0 00 044011 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8323 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8324 035746 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8325 000001 AEE=1 ;INITIAL C(E) 8326 035747 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8327 035750 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8328 000000 AR1=V1 ;EXPECTED RESULT IN AC 8329 035751 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8330 035752 003 05 0 00 033541 ER3 AC,33541 ;HIGH PRODUCT FAILED 8331 000010 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8332 035753 312 06 0 00 044011 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8333 035754 004 06 0 00 033542 ER4 AC+1,33542 ;LOW PRODUCT FAILED 8334 000001 AEE=1 ;INITIAL C(E) 8335 035755 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8336 035756 005 03 0 00 033543 ER5 E,33543 ;C(E) WAS CLOBBERED 8337 035757 321 07 0 00 035745 JUMPL AC+2,F33540 ;LOOP ON ERROR SWITCH^ 8338 8339 003355 ADR=ADR+1 8340 000020 000000 XX=XX+XX 8341 IFE XX, 8342 8343 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8344 000000 IFG XX, 8345 IFL XX, 8346 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8347 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8348 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8349 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8350 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8351 8352 000020 000000 F33550: AA1=XX ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0173 8353 035760 200 05 0 00 044012 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8354 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8355 035761 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8356 000001 AEE=1 ;INITIAL C(E) 8357 035762 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8358 035763 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8359 000000 AR1=V1 ;EXPECTED RESULT IN AC 8360 035764 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8361 035765 003 05 0 00 033551 ER3 AC,33551 ;HIGH PRODUCT FAILED 8362 000020 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8363 035766 312 06 0 00 044012 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8364 035767 004 06 0 00 033552 ER4 AC+1,33552 ;LOW PRODUCT FAILED 8365 000001 AEE=1 ;INITIAL C(E) 8366 035770 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8367 035771 005 03 0 00 033553 ER5 E,33553 ;C(E) WAS CLOBBERED 8368 035772 321 07 0 00 035760 JUMPL AC+2,F33550 ;LOOP ON ERROR SWITCH^ 8369 8370 003356 ADR=ADR+1 8371 000040 000000 XX=XX+XX 8372 IFE XX, 8373 8374 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8375 000000 IFG XX, 8376 IFL XX, 8377 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8378 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8379 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8380 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8381 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8382 8383 000040 000000 F33560: AA1=XX ;INITIAL C(AC) 8384 035773 200 05 0 00 044013 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8385 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8386 035774 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8387 000001 AEE=1 ;INITIAL C(E) 8388 035775 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8389 035776 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8390 000000 AR1=V1 ;EXPECTED RESULT IN AC 8391 035777 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8392 036000 003 05 0 00 033561 ER3 AC,33561 ;HIGH PRODUCT FAILED 8393 000040 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8394 036001 312 06 0 00 044013 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8395 036002 004 06 0 00 033562 ER4 AC+1,33562 ;LOW PRODUCT FAILED 8396 000001 AEE=1 ;INITIAL C(E) 8397 036003 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8398 036004 005 03 0 00 033563 ER5 E,33563 ;C(E) WAS CLOBBERED 8399 036005 321 07 0 00 035773 JUMPL AC+2,F33560 ;LOOP ON ERROR SWITCH^ 8400 8401 003357 ADR=ADR+1 8402 000100 000000 XX=XX+XX 8403 IFE XX, 8404 8405 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8406 000000 IFG XX, 8407 IFL XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0174 8408 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8409 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8410 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8411 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8412 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8413 8414 000100 000000 F33570: AA1=XX ;INITIAL C(AC) 8415 036006 200 05 0 00 044014 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8416 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8417 036007 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8418 000001 AEE=1 ;INITIAL C(E) 8419 036010 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8420 036011 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8421 000000 AR1=V1 ;EXPECTED RESULT IN AC 8422 036012 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8423 036013 003 05 0 00 033571 ER3 AC,33571 ;HIGH PRODUCT FAILED 8424 000100 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8425 036014 312 06 0 00 044014 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8426 036015 004 06 0 00 033572 ER4 AC+1,33572 ;LOW PRODUCT FAILED 8427 000001 AEE=1 ;INITIAL C(E) 8428 036016 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8429 036017 005 03 0 00 033573 ER5 E,33573 ;C(E) WAS CLOBBERED 8430 036020 321 07 0 00 036006 JUMPL AC+2,F33570 ;LOOP ON ERROR SWITCH^ 8431 8432 003360 ADR=ADR+1 8433 000200 000000 XX=XX+XX 8434 IFE XX, 8435 8436 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8437 000000 IFG XX, 8438 IFL XX, 8439 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8440 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8441 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8442 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8443 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8444 8445 000200 000000 F33600: AA1=XX ;INITIAL C(AC) 8446 036021 200 05 0 00 044015 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8447 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8448 036022 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8449 000001 AEE=1 ;INITIAL C(E) 8450 036023 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8451 036024 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8452 000000 AR1=V1 ;EXPECTED RESULT IN AC 8453 036025 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8454 036026 003 05 0 00 033601 ER3 AC,33601 ;HIGH PRODUCT FAILED 8455 000200 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8456 036027 312 06 0 00 044015 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8457 036030 004 06 0 00 033602 ER4 AC+1,33602 ;LOW PRODUCT FAILED 8458 000001 AEE=1 ;INITIAL C(E) 8459 036031 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8460 036032 005 03 0 00 033603 ER5 E,33603 ;C(E) WAS CLOBBERED 8461 036033 321 07 0 00 036021 JUMPL AC+2,F33600 ;LOOP ON ERROR SWITCH^ 8462 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0175 8463 003361 ADR=ADR+1 8464 000400 000000 XX=XX+XX 8465 IFE XX, 8466 8467 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8468 000000 IFG XX, 8469 IFL XX, 8470 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8471 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8472 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8473 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8474 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8475 8476 000400 000000 F33610: AA1=XX ;INITIAL C(AC) 8477 036034 200 05 0 00 044016 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8478 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8479 036035 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8480 000001 AEE=1 ;INITIAL C(E) 8481 036036 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8482 036037 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8483 000000 AR1=V1 ;EXPECTED RESULT IN AC 8484 036040 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8485 036041 003 05 0 00 033611 ER3 AC,33611 ;HIGH PRODUCT FAILED 8486 000400 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8487 036042 312 06 0 00 044016 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8488 036043 004 06 0 00 033612 ER4 AC+1,33612 ;LOW PRODUCT FAILED 8489 000001 AEE=1 ;INITIAL C(E) 8490 036044 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8491 036045 005 03 0 00 033613 ER5 E,33613 ;C(E) WAS CLOBBERED 8492 036046 321 07 0 00 036034 JUMPL AC+2,F33610 ;LOOP ON ERROR SWITCH^ 8493 8494 003362 ADR=ADR+1 8495 001000 000000 XX=XX+XX 8496 IFE XX, 8497 8498 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8499 000000 IFG XX, 8500 IFL XX, 8501 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8502 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8503 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8504 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8505 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8506 8507 001000 000000 F33620: AA1=XX ;INITIAL C(AC) 8508 036047 200 05 0 00 044017 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8509 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8510 036050 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8511 000001 AEE=1 ;INITIAL C(E) 8512 036051 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8513 036052 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8514 000000 AR1=V1 ;EXPECTED RESULT IN AC 8515 036053 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8516 036054 003 05 0 00 033621 ER3 AC,33621 ;HIGH PRODUCT FAILED 8517 001000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0176 8518 036055 312 06 0 00 044017 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8519 036056 004 06 0 00 033622 ER4 AC+1,33622 ;LOW PRODUCT FAILED 8520 000001 AEE=1 ;INITIAL C(E) 8521 036057 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8522 036060 005 03 0 00 033623 ER5 E,33623 ;C(E) WAS CLOBBERED 8523 036061 321 07 0 00 036047 JUMPL AC+2,F33620 ;LOOP ON ERROR SWITCH^ 8524 8525 003363 ADR=ADR+1 8526 002000 000000 XX=XX+XX 8527 IFE XX, 8528 8529 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8530 000000 IFG XX, 8531 IFL XX, 8532 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8533 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8534 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8535 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8536 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8537 8538 002000 000000 F33630: AA1=XX ;INITIAL C(AC) 8539 036062 200 05 0 00 044020 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8540 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8541 036063 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8542 000001 AEE=1 ;INITIAL C(E) 8543 036064 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8544 036065 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8545 000000 AR1=V1 ;EXPECTED RESULT IN AC 8546 036066 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8547 036067 003 05 0 00 033631 ER3 AC,33631 ;HIGH PRODUCT FAILED 8548 002000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8549 036070 312 06 0 00 044020 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8550 036071 004 06 0 00 033632 ER4 AC+1,33632 ;LOW PRODUCT FAILED 8551 000001 AEE=1 ;INITIAL C(E) 8552 036072 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8553 036073 005 03 0 00 033633 ER5 E,33633 ;C(E) WAS CLOBBERED 8554 036074 321 07 0 00 036062 JUMPL AC+2,F33630 ;LOOP ON ERROR SWITCH^ 8555 8556 003364 ADR=ADR+1 8557 004000 000000 XX=XX+XX 8558 IFE XX, 8559 8560 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8561 000000 IFG XX, 8562 IFL XX, 8563 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8564 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8565 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8566 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8567 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8568 8569 004000 000000 F33640: AA1=XX ;INITIAL C(AC) 8570 036075 200 05 0 00 044021 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8571 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8572 036076 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0177 8573 000001 AEE=1 ;INITIAL C(E) 8574 036077 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8575 036100 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8576 000000 AR1=V1 ;EXPECTED RESULT IN AC 8577 036101 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8578 036102 003 05 0 00 033641 ER3 AC,33641 ;HIGH PRODUCT FAILED 8579 004000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8580 036103 312 06 0 00 044021 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8581 036104 004 06 0 00 033642 ER4 AC+1,33642 ;LOW PRODUCT FAILED 8582 000001 AEE=1 ;INITIAL C(E) 8583 036105 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8584 036106 005 03 0 00 033643 ER5 E,33643 ;C(E) WAS CLOBBERED 8585 036107 321 07 0 00 036075 JUMPL AC+2,F33640 ;LOOP ON ERROR SWITCH^ 8586 8587 003365 ADR=ADR+1 8588 010000 000000 XX=XX+XX 8589 IFE XX, 8590 8591 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8592 000000 IFG XX, 8593 IFL XX, 8594 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8595 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8596 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8597 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8598 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8599 8600 010000 000000 F33650: AA1=XX ;INITIAL C(AC) 8601 036110 200 05 0 00 044022 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8602 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8603 036111 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8604 000001 AEE=1 ;INITIAL C(E) 8605 036112 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8606 036113 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8607 000000 AR1=V1 ;EXPECTED RESULT IN AC 8608 036114 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8609 036115 003 05 0 00 033651 ER3 AC,33651 ;HIGH PRODUCT FAILED 8610 010000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8611 036116 312 06 0 00 044022 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8612 036117 004 06 0 00 033652 ER4 AC+1,33652 ;LOW PRODUCT FAILED 8613 000001 AEE=1 ;INITIAL C(E) 8614 036120 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8615 036121 005 03 0 00 033653 ER5 E,33653 ;C(E) WAS CLOBBERED 8616 036122 321 07 0 00 036110 JUMPL AC+2,F33650 ;LOOP ON ERROR SWITCH^ 8617 8618 003366 ADR=ADR+1 8619 020000 000000 XX=XX+XX 8620 IFE XX, 8621 8622 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8623 000000 IFG XX, 8624 IFL XX, 8625 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8626 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8627 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0178 8628 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8629 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8630 8631 020000 000000 F33660: AA1=XX ;INITIAL C(AC) 8632 036123 200 05 0 00 044023 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8633 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8634 036124 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8635 000001 AEE=1 ;INITIAL C(E) 8636 036125 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8637 036126 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8638 000000 AR1=V1 ;EXPECTED RESULT IN AC 8639 036127 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8640 036130 003 05 0 00 033661 ER3 AC,33661 ;HIGH PRODUCT FAILED 8641 020000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8642 036131 312 06 0 00 044023 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8643 036132 004 06 0 00 033662 ER4 AC+1,33662 ;LOW PRODUCT FAILED 8644 000001 AEE=1 ;INITIAL C(E) 8645 036133 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8646 036134 005 03 0 00 033663 ER5 E,33663 ;C(E) WAS CLOBBERED 8647 036135 321 07 0 00 036123 JUMPL AC+2,F33660 ;LOOP ON ERROR SWITCH^ 8648 8649 003367 ADR=ADR+1 8650 040000 000000 XX=XX+XX 8651 IFE XX, 8652 8653 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8654 000000 IFG XX, 8655 IFL XX, 8656 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8657 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8658 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8659 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8660 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8661 8662 040000 000000 F33670: AA1=XX ;INITIAL C(AC) 8663 036136 200 05 0 00 044024 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8664 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8665 036137 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8666 000001 AEE=1 ;INITIAL C(E) 8667 036140 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8668 036141 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8669 000000 AR1=V1 ;EXPECTED RESULT IN AC 8670 036142 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8671 036143 003 05 0 00 033671 ER3 AC,33671 ;HIGH PRODUCT FAILED 8672 040000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8673 036144 312 06 0 00 044024 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8674 036145 004 06 0 00 033672 ER4 AC+1,33672 ;LOW PRODUCT FAILED 8675 000001 AEE=1 ;INITIAL C(E) 8676 036146 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8677 036147 005 03 0 00 033673 ER5 E,33673 ;C(E) WAS CLOBBERED 8678 036150 321 07 0 00 036136 JUMPL AC+2,F33670 ;LOOP ON ERROR SWITCH^ 8679 8680 003370 ADR=ADR+1 8681 100000 000000 XX=XX+XX 8682 IFE XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0179 8683 8684 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8685 000000 IFG XX, 8686 IFL XX, 8687 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8688 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8689 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8690 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8691 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8692 8693 100000 000000 F33700: AA1=XX ;INITIAL C(AC) 8694 036151 200 05 0 00 044025 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8695 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8696 036152 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8697 000001 AEE=1 ;INITIAL C(E) 8698 036153 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8699 036154 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8700 000000 AR1=V1 ;EXPECTED RESULT IN AC 8701 036155 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8702 036156 003 05 0 00 033701 ER3 AC,33701 ;HIGH PRODUCT FAILED 8703 100000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8704 036157 312 06 0 00 044025 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8705 036160 004 06 0 00 033702 ER4 AC+1,33702 ;LOW PRODUCT FAILED 8706 000001 AEE=1 ;INITIAL C(E) 8707 036161 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8708 036162 005 03 0 00 033703 ER5 E,33703 ;C(E) WAS CLOBBERED 8709 036163 321 07 0 00 036151 JUMPL AC+2,F33700 ;LOOP ON ERROR SWITCH^ 8710 8711 003371 ADR=ADR+1 8712 200000 000000 XX=XX+XX 8713 IFE XX, 8714 8715 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8716 000000 IFG XX, 8717 IFL XX, 8718 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8719 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8720 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8721 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8722 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8723 8724 200000 000000 F33710: AA1=XX ;INITIAL C(AC) 8725 036164 200 05 0 00 044026 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8726 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8727 036165 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8728 000001 AEE=1 ;INITIAL C(E) 8729 036166 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8730 036167 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8731 000000 AR1=V1 ;EXPECTED RESULT IN AC 8732 036170 312 05 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8733 036171 003 05 0 00 033711 ER3 AC,33711 ;HIGH PRODUCT FAILED 8734 200000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8735 036172 312 06 0 00 044026 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8736 036173 004 06 0 00 033712 ER4 AC+1,33712 ;LOW PRODUCT FAILED 8737 000001 AEE=1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 11-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0180 8738 036174 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8739 036175 005 03 0 00 033713 ER5 E,33713 ;C(E) WAS CLOBBERED 8740 036176 321 07 0 00 036164 JUMPL AC+2,F33710 ;LOOP ON ERROR SWITCH^ 8741 8742 003372 ADR=ADR+1 8743 400000 000000 XX=XX+XX 8744 IFE XX, 8745 8746 ;MULTIPLY A 1 BY A RIPPLED 1 TO GET PRODUCT OF RIPPLED 1 8747 IFG XX, 8748 777777 777777 IFL XX, 8749 MOP1 (\ADR,XX,-1,1,V1,XX)^ 8750 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 8751 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8752 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 8753 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8754 8755 400000 000000 F33720: AA1=XX ;INITIAL C(AC) 8756 036177 200 05 0 00 044027 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8757 777777 777777 AA2=-1 ;INITIAL C(AC+1) 8758 036200 200 06 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 8759 000001 AEE=1 ;INITIAL C(E) 8760 036201 200 03 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 8761 036202 224 05 0 00 000003 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8762 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8763 036203 312 05 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8764 036204 003 05 0 00 033721 ER3 AC,33721 ;HIGH PRODUCT FAILED 8765 400000 000000 AR2=XX ;EXPECTED RESULT IN AC+1 8766 036205 312 06 0 00 044027 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 8767 036206 004 06 0 00 033722 ER4 AC+1,33722 ;LOW PRODUCT FAILED 8768 000001 AEE=1 ;INITIAL C(E) 8769 036207 312 03 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 8770 036210 005 03 0 00 033723 ER5 E,33723 ;C(E) WAS CLOBBERED 8771 036211 321 07 0 00 036177 JUMPL AC+2,F33720 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0181 8772 000004 AC=4 8773 000002 E=&17 8774 SAVEAC (1,1)^ 8775 036212 201 06 0 00 036212 MOVEI AC+2,. ;SAVE TEST PC 8776 036213 202 06 0 00 030051 MOVEM AC+2,TESTPC 8777 036214 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8778 036215 202 06 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8779 000000 XX=0 8780 8781 REPEAT ^D36,< 8782 ADR=ADR+1 8783 XX=XX+XX 8784 IFE XX, 8785 8786 ;MULTIPLY A RIPPLED ONE BY -1 8787 IFG XX,< 8788 V1=-1 8789 V2=-XX> 8790 IFL XX,< 8791 V1=1 8792 V2=0> 8793 MOP1 (\ADR,-1,0,XX,V1,V2)> 8794 8795 003373 ADR=ADR+1 8796 000000 XX=XX+XX 8797 000001 IFE XX, 8798 8799 ;MULTIPLY A RIPPLED ONE BY -1 8800 IFG XX,< 8801 777777 777777 V1=-1 8802 777777 777777 V2=-XX> 8803 IFL XX,< 8804 V1=1 8805 V2=0> 8806 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8807 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8808 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8809 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8810 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8811 8812 777777 777777 F33730: AA1=-1 ;INITIAL C(AC) 8813 036216 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8814 000000 AA2=0 ;INITIAL C(AC+1) 8815 036217 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8816 000001 AEE=XX ;INITIAL C(E) 8817 036220 200 02 0 00 043764 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8818 036221 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8819 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8820 036222 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8821 036223 003 04 0 00 033731 ER3 AC,33731 ;HIGH PRODUCT FAILED 8822 777777 777777 AR2=V2 ;EXPECTED RESULT IN AC+1 8823 036224 312 05 0 00 043763 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8824 036225 004 05 0 00 033732 ER4 AC+1,33732 ;LOW PRODUCT FAILED 8825 000001 AEE=XX ;INITIAL C(E) 8826 036226 312 02 0 00 043764 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0182 8827 036227 005 02 0 00 033733 ER5 E,33733 ;C(E) WAS CLOBBERED 8828 036230 321 06 0 00 036216 JUMPL AC+2,F33730 ;LOOP ON ERROR SWITCH^ 8829 8830 003374 ADR=ADR+1 8831 000002 XX=XX+XX 8832 IFE XX, 8833 8834 ;MULTIPLY A RIPPLED ONE BY -1 8835 IFG XX,< 8836 777777 777777 V1=-1 8837 777777 777776 V2=-XX> 8838 IFL XX,< 8839 V1=1 8840 V2=0> 8841 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8842 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8843 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8844 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8845 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8846 8847 777777 777777 F33740: AA1=-1 ;INITIAL C(AC) 8848 036231 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8849 000000 AA2=0 ;INITIAL C(AC+1) 8850 036232 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8851 000002 AEE=XX ;INITIAL C(E) 8852 036233 200 02 0 00 043765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8853 036234 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8854 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8855 036235 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8856 036236 003 04 0 00 033741 ER3 AC,33741 ;HIGH PRODUCT FAILED 8857 777777 777776 AR2=V2 ;EXPECTED RESULT IN AC+1 8858 036237 312 05 0 00 044030 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8859 036240 004 05 0 00 033742 ER4 AC+1,33742 ;LOW PRODUCT FAILED 8860 000002 AEE=XX ;INITIAL C(E) 8861 036241 312 02 0 00 043765 CAME E,[XX] ;WAS C(E) CLOBBERED? 8862 036242 005 02 0 00 033743 ER5 E,33743 ;C(E) WAS CLOBBERED 8863 036243 321 06 0 00 036231 JUMPL AC+2,F33740 ;LOOP ON ERROR SWITCH^ 8864 8865 003375 ADR=ADR+1 8866 000004 XX=XX+XX 8867 IFE XX, 8868 8869 ;MULTIPLY A RIPPLED ONE BY -1 8870 IFG XX,< 8871 777777 777777 V1=-1 8872 777777 777774 V2=-XX> 8873 IFL XX,< 8874 V1=1 8875 V2=0> 8876 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8877 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8878 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8879 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8880 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8881 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0183 8882 777777 777777 F33750: AA1=-1 ;INITIAL C(AC) 8883 036244 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8884 000000 AA2=0 ;INITIAL C(AC+1) 8885 036245 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8886 000004 AEE=XX ;INITIAL C(E) 8887 036246 200 02 0 00 043766 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8888 036247 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8889 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8890 036250 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8891 036251 003 04 0 00 033751 ER3 AC,33751 ;HIGH PRODUCT FAILED 8892 777777 777774 AR2=V2 ;EXPECTED RESULT IN AC+1 8893 036252 312 05 0 00 044107 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8894 036253 004 05 0 00 033752 ER4 AC+1,33752 ;LOW PRODUCT FAILED 8895 000004 AEE=XX ;INITIAL C(E) 8896 036254 312 02 0 00 043766 CAME E,[XX] ;WAS C(E) CLOBBERED? 8897 036255 005 02 0 00 033753 ER5 E,33753 ;C(E) WAS CLOBBERED 8898 036256 321 06 0 00 036244 JUMPL AC+2,F33750 ;LOOP ON ERROR SWITCH^ 8899 8900 003376 ADR=ADR+1 8901 000010 XX=XX+XX 8902 IFE XX, 8903 8904 ;MULTIPLY A RIPPLED ONE BY -1 8905 IFG XX,< 8906 777777 777777 V1=-1 8907 777777 777770 V2=-XX> 8908 IFL XX,< 8909 V1=1 8910 V2=0> 8911 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8912 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8913 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8914 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8915 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8916 8917 777777 777777 F33760: AA1=-1 ;INITIAL C(AC) 8918 036257 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8919 000000 AA2=0 ;INITIAL C(AC+1) 8920 036260 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8921 000010 AEE=XX ;INITIAL C(E) 8922 036261 200 02 0 00 043767 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8923 036262 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8924 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8925 036263 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8926 036264 003 04 0 00 033761 ER3 AC,33761 ;HIGH PRODUCT FAILED 8927 777777 777770 AR2=V2 ;EXPECTED RESULT IN AC+1 8928 036265 312 05 0 00 044112 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8929 036266 004 05 0 00 033762 ER4 AC+1,33762 ;LOW PRODUCT FAILED 8930 000010 AEE=XX ;INITIAL C(E) 8931 036267 312 02 0 00 043767 CAME E,[XX] ;WAS C(E) CLOBBERED? 8932 036270 005 02 0 00 033763 ER5 E,33763 ;C(E) WAS CLOBBERED 8933 036271 321 06 0 00 036257 JUMPL AC+2,F33760 ;LOOP ON ERROR SWITCH^ 8934 8935 003377 ADR=ADR+1 8936 000020 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0184 8937 IFE XX, 8938 8939 ;MULTIPLY A RIPPLED ONE BY -1 8940 IFG XX,< 8941 777777 777777 V1=-1 8942 777777 777760 V2=-XX> 8943 IFL XX,< 8944 V1=1 8945 V2=0> 8946 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8947 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8948 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8949 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8950 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8951 8952 777777 777777 F33770: AA1=-1 ;INITIAL C(AC) 8953 036272 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8954 000000 AA2=0 ;INITIAL C(AC+1) 8955 036273 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8956 000020 AEE=XX ;INITIAL C(E) 8957 036274 200 02 0 00 043770 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8958 036275 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8959 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8960 036276 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8961 036277 003 04 0 00 033771 ER3 AC,33771 ;HIGH PRODUCT FAILED 8962 777777 777760 AR2=V2 ;EXPECTED RESULT IN AC+1 8963 036300 312 05 0 00 044121 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8964 036301 004 05 0 00 033772 ER4 AC+1,33772 ;LOW PRODUCT FAILED 8965 000020 AEE=XX ;INITIAL C(E) 8966 036302 312 02 0 00 043770 CAME E,[XX] ;WAS C(E) CLOBBERED? 8967 036303 005 02 0 00 033773 ER5 E,33773 ;C(E) WAS CLOBBERED 8968 036304 321 06 0 00 036272 JUMPL AC+2,F33770 ;LOOP ON ERROR SWITCH^ 8969 8970 003400 ADR=ADR+1 8971 000040 XX=XX+XX 8972 IFE XX, 8973 8974 ;MULTIPLY A RIPPLED ONE BY -1 8975 IFG XX,< 8976 777777 777777 V1=-1 8977 777777 777740 V2=-XX> 8978 IFL XX,< 8979 V1=1 8980 V2=0> 8981 MOP1 (\ADR,-1,0,XX,V1,V2)^ 8982 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 8983 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8984 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 8985 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8986 8987 777777 777777 F34000: AA1=-1 ;INITIAL C(AC) 8988 036305 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 8989 000000 AA2=0 ;INITIAL C(AC+1) 8990 036306 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 8991 000040 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0185 8992 036307 200 02 0 00 043771 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8993 036310 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8994 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 8995 036311 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 8996 036312 003 04 0 00 034001 ER3 AC,34001 ;HIGH PRODUCT FAILED 8997 777777 777740 AR2=V2 ;EXPECTED RESULT IN AC+1 8998 036313 312 05 0 00 044122 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 8999 036314 004 05 0 00 034002 ER4 AC+1,34002 ;LOW PRODUCT FAILED 9000 000040 AEE=XX ;INITIAL C(E) 9001 036315 312 02 0 00 043771 CAME E,[XX] ;WAS C(E) CLOBBERED? 9002 036316 005 02 0 00 034003 ER5 E,34003 ;C(E) WAS CLOBBERED 9003 036317 321 06 0 00 036305 JUMPL AC+2,F34000 ;LOOP ON ERROR SWITCH^ 9004 9005 003401 ADR=ADR+1 9006 000100 XX=XX+XX 9007 IFE XX, 9008 9009 ;MULTIPLY A RIPPLED ONE BY -1 9010 IFG XX,< 9011 777777 777777 V1=-1 9012 777777 777700 V2=-XX> 9013 IFL XX,< 9014 V1=1 9015 V2=0> 9016 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9017 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9018 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9019 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9020 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9021 9022 777777 777777 F34010: AA1=-1 ;INITIAL C(AC) 9023 036320 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9024 000000 AA2=0 ;INITIAL C(AC+1) 9025 036321 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9026 000100 AEE=XX ;INITIAL C(E) 9027 036322 200 02 0 00 043772 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9028 036323 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9029 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9030 036324 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9031 036325 003 04 0 00 034011 ER3 AC,34011 ;HIGH PRODUCT FAILED 9032 777777 777700 AR2=V2 ;EXPECTED RESULT IN AC+1 9033 036326 312 05 0 00 044123 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9034 036327 004 05 0 00 034012 ER4 AC+1,34012 ;LOW PRODUCT FAILED 9035 000100 AEE=XX ;INITIAL C(E) 9036 036330 312 02 0 00 043772 CAME E,[XX] ;WAS C(E) CLOBBERED? 9037 036331 005 02 0 00 034013 ER5 E,34013 ;C(E) WAS CLOBBERED 9038 036332 321 06 0 00 036320 JUMPL AC+2,F34010 ;LOOP ON ERROR SWITCH^ 9039 9040 003402 ADR=ADR+1 9041 000200 XX=XX+XX 9042 IFE XX, 9043 9044 ;MULTIPLY A RIPPLED ONE BY -1 9045 IFG XX,< 9046 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0186 9047 777777 777600 V2=-XX> 9048 IFL XX,< 9049 V1=1 9050 V2=0> 9051 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9052 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9053 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9054 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9055 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9056 9057 777777 777777 F34020: AA1=-1 ;INITIAL C(AC) 9058 036333 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9059 000000 AA2=0 ;INITIAL C(AC+1) 9060 036334 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9061 000200 AEE=XX ;INITIAL C(E) 9062 036335 200 02 0 00 043773 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9063 036336 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9064 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9065 036337 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9066 036340 003 04 0 00 034021 ER3 AC,34021 ;HIGH PRODUCT FAILED 9067 777777 777600 AR2=V2 ;EXPECTED RESULT IN AC+1 9068 036341 312 05 0 00 044124 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9069 036342 004 05 0 00 034022 ER4 AC+1,34022 ;LOW PRODUCT FAILED 9070 000200 AEE=XX ;INITIAL C(E) 9071 036343 312 02 0 00 043773 CAME E,[XX] ;WAS C(E) CLOBBERED? 9072 036344 005 02 0 00 034023 ER5 E,34023 ;C(E) WAS CLOBBERED 9073 036345 321 06 0 00 036333 JUMPL AC+2,F34020 ;LOOP ON ERROR SWITCH^ 9074 9075 003403 ADR=ADR+1 9076 000400 XX=XX+XX 9077 IFE XX, 9078 9079 ;MULTIPLY A RIPPLED ONE BY -1 9080 IFG XX,< 9081 777777 777777 V1=-1 9082 777777 777400 V2=-XX> 9083 IFL XX,< 9084 V1=1 9085 V2=0> 9086 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9087 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9088 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9089 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9090 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9091 9092 777777 777777 F34030: AA1=-1 ;INITIAL C(AC) 9093 036346 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9094 000000 AA2=0 ;INITIAL C(AC+1) 9095 036347 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9096 000400 AEE=XX ;INITIAL C(E) 9097 036350 200 02 0 00 043774 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9098 036351 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9099 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9100 036352 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9101 036353 003 04 0 00 034031 ER3 AC,34031 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0187 9102 777777 777400 AR2=V2 ;EXPECTED RESULT IN AC+1 9103 036354 312 05 0 00 044125 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9104 036355 004 05 0 00 034032 ER4 AC+1,34032 ;LOW PRODUCT FAILED 9105 000400 AEE=XX ;INITIAL C(E) 9106 036356 312 02 0 00 043774 CAME E,[XX] ;WAS C(E) CLOBBERED? 9107 036357 005 02 0 00 034033 ER5 E,34033 ;C(E) WAS CLOBBERED 9108 036360 321 06 0 00 036346 JUMPL AC+2,F34030 ;LOOP ON ERROR SWITCH^ 9109 9110 003404 ADR=ADR+1 9111 001000 XX=XX+XX 9112 IFE XX, 9113 9114 ;MULTIPLY A RIPPLED ONE BY -1 9115 IFG XX,< 9116 777777 777777 V1=-1 9117 777777 777000 V2=-XX> 9118 IFL XX,< 9119 V1=1 9120 V2=0> 9121 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9122 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9123 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9124 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9125 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9126 9127 777777 777777 F34040: AA1=-1 ;INITIAL C(AC) 9128 036361 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9129 000000 AA2=0 ;INITIAL C(AC+1) 9130 036362 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9131 001000 AEE=XX ;INITIAL C(E) 9132 036363 200 02 0 00 043775 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9133 036364 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9134 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9135 036365 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9136 036366 003 04 0 00 034041 ER3 AC,34041 ;HIGH PRODUCT FAILED 9137 777777 777000 AR2=V2 ;EXPECTED RESULT IN AC+1 9138 036367 312 05 0 00 044126 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9139 036370 004 05 0 00 034042 ER4 AC+1,34042 ;LOW PRODUCT FAILED 9140 001000 AEE=XX ;INITIAL C(E) 9141 036371 312 02 0 00 043775 CAME E,[XX] ;WAS C(E) CLOBBERED? 9142 036372 005 02 0 00 034043 ER5 E,34043 ;C(E) WAS CLOBBERED 9143 036373 321 06 0 00 036361 JUMPL AC+2,F34040 ;LOOP ON ERROR SWITCH^ 9144 9145 003405 ADR=ADR+1 9146 002000 XX=XX+XX 9147 IFE XX, 9148 9149 ;MULTIPLY A RIPPLED ONE BY -1 9150 IFG XX,< 9151 777777 777777 V1=-1 9152 777777 776000 V2=-XX> 9153 IFL XX,< 9154 V1=1 9155 V2=0> 9156 MOP1 (\ADR,-1,0,XX,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0188 9157 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9158 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9159 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9160 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9161 9162 777777 777777 F34050: AA1=-1 ;INITIAL C(AC) 9163 036374 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9164 000000 AA2=0 ;INITIAL C(AC+1) 9165 036375 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9166 002000 AEE=XX ;INITIAL C(E) 9167 036376 200 02 0 00 043776 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9168 036377 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9169 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9170 036400 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9171 036401 003 04 0 00 034051 ER3 AC,34051 ;HIGH PRODUCT FAILED 9172 777777 776000 AR2=V2 ;EXPECTED RESULT IN AC+1 9173 036402 312 05 0 00 044127 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9174 036403 004 05 0 00 034052 ER4 AC+1,34052 ;LOW PRODUCT FAILED 9175 002000 AEE=XX ;INITIAL C(E) 9176 036404 312 02 0 00 043776 CAME E,[XX] ;WAS C(E) CLOBBERED? 9177 036405 005 02 0 00 034053 ER5 E,34053 ;C(E) WAS CLOBBERED 9178 036406 321 06 0 00 036374 JUMPL AC+2,F34050 ;LOOP ON ERROR SWITCH^ 9179 9180 003406 ADR=ADR+1 9181 004000 XX=XX+XX 9182 IFE XX, 9183 9184 ;MULTIPLY A RIPPLED ONE BY -1 9185 IFG XX,< 9186 777777 777777 V1=-1 9187 777777 774000 V2=-XX> 9188 IFL XX,< 9189 V1=1 9190 V2=0> 9191 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9192 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9193 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9194 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9195 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9196 9197 777777 777777 F34060: AA1=-1 ;INITIAL C(AC) 9198 036407 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9199 000000 AA2=0 ;INITIAL C(AC+1) 9200 036410 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9201 004000 AEE=XX ;INITIAL C(E) 9202 036411 200 02 0 00 043777 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9203 036412 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9204 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9205 036413 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9206 036414 003 04 0 00 034061 ER3 AC,34061 ;HIGH PRODUCT FAILED 9207 777777 774000 AR2=V2 ;EXPECTED RESULT IN AC+1 9208 036415 312 05 0 00 044130 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9209 036416 004 05 0 00 034062 ER4 AC+1,34062 ;LOW PRODUCT FAILED 9210 004000 AEE=XX ;INITIAL C(E) 9211 036417 312 02 0 00 043777 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0189 9212 036420 005 02 0 00 034063 ER5 E,34063 ;C(E) WAS CLOBBERED 9213 036421 321 06 0 00 036407 JUMPL AC+2,F34060 ;LOOP ON ERROR SWITCH^ 9214 9215 003407 ADR=ADR+1 9216 010000 XX=XX+XX 9217 IFE XX, 9218 9219 ;MULTIPLY A RIPPLED ONE BY -1 9220 IFG XX,< 9221 777777 777777 V1=-1 9222 777777 770000 V2=-XX> 9223 IFL XX,< 9224 V1=1 9225 V2=0> 9226 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9227 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9228 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9229 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9230 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9231 9232 777777 777777 F34070: AA1=-1 ;INITIAL C(AC) 9233 036422 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9234 000000 AA2=0 ;INITIAL C(AC+1) 9235 036423 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9236 010000 AEE=XX ;INITIAL C(E) 9237 036424 200 02 0 00 044000 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9238 036425 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9239 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9240 036426 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9241 036427 003 04 0 00 034071 ER3 AC,34071 ;HIGH PRODUCT FAILED 9242 777777 770000 AR2=V2 ;EXPECTED RESULT IN AC+1 9243 036430 312 05 0 00 044131 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9244 036431 004 05 0 00 034072 ER4 AC+1,34072 ;LOW PRODUCT FAILED 9245 010000 AEE=XX ;INITIAL C(E) 9246 036432 312 02 0 00 044000 CAME E,[XX] ;WAS C(E) CLOBBERED? 9247 036433 005 02 0 00 034073 ER5 E,34073 ;C(E) WAS CLOBBERED 9248 036434 321 06 0 00 036422 JUMPL AC+2,F34070 ;LOOP ON ERROR SWITCH^ 9249 9250 003410 ADR=ADR+1 9251 020000 XX=XX+XX 9252 IFE XX, 9253 9254 ;MULTIPLY A RIPPLED ONE BY -1 9255 IFG XX,< 9256 777777 777777 V1=-1 9257 777777 760000 V2=-XX> 9258 IFL XX,< 9259 V1=1 9260 V2=0> 9261 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9262 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9263 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9264 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9265 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9266 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0190 9267 777777 777777 F34100: AA1=-1 ;INITIAL C(AC) 9268 036435 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9269 000000 AA2=0 ;INITIAL C(AC+1) 9270 036436 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9271 020000 AEE=XX ;INITIAL C(E) 9272 036437 200 02 0 00 044001 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9273 036440 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9274 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9275 036441 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9276 036442 003 04 0 00 034101 ER3 AC,34101 ;HIGH PRODUCT FAILED 9277 777777 760000 AR2=V2 ;EXPECTED RESULT IN AC+1 9278 036443 312 05 0 00 044132 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9279 036444 004 05 0 00 034102 ER4 AC+1,34102 ;LOW PRODUCT FAILED 9280 020000 AEE=XX ;INITIAL C(E) 9281 036445 312 02 0 00 044001 CAME E,[XX] ;WAS C(E) CLOBBERED? 9282 036446 005 02 0 00 034103 ER5 E,34103 ;C(E) WAS CLOBBERED 9283 036447 321 06 0 00 036435 JUMPL AC+2,F34100 ;LOOP ON ERROR SWITCH^ 9284 9285 003411 ADR=ADR+1 9286 040000 XX=XX+XX 9287 IFE XX, 9288 9289 ;MULTIPLY A RIPPLED ONE BY -1 9290 IFG XX,< 9291 777777 777777 V1=-1 9292 777777 740000 V2=-XX> 9293 IFL XX,< 9294 V1=1 9295 V2=0> 9296 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9297 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9298 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9299 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9300 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9301 9302 777777 777777 F34110: AA1=-1 ;INITIAL C(AC) 9303 036450 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9304 000000 AA2=0 ;INITIAL C(AC+1) 9305 036451 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9306 040000 AEE=XX ;INITIAL C(E) 9307 036452 200 02 0 00 044002 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9308 036453 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9309 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9310 036454 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9311 036455 003 04 0 00 034111 ER3 AC,34111 ;HIGH PRODUCT FAILED 9312 777777 740000 AR2=V2 ;EXPECTED RESULT IN AC+1 9313 036456 312 05 0 00 044133 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9314 036457 004 05 0 00 034112 ER4 AC+1,34112 ;LOW PRODUCT FAILED 9315 040000 AEE=XX ;INITIAL C(E) 9316 036460 312 02 0 00 044002 CAME E,[XX] ;WAS C(E) CLOBBERED? 9317 036461 005 02 0 00 034113 ER5 E,34113 ;C(E) WAS CLOBBERED 9318 036462 321 06 0 00 036450 JUMPL AC+2,F34110 ;LOOP ON ERROR SWITCH^ 9319 9320 003412 ADR=ADR+1 9321 100000 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0191 9322 IFE XX, 9323 9324 ;MULTIPLY A RIPPLED ONE BY -1 9325 IFG XX,< 9326 777777 777777 V1=-1 9327 777777 700000 V2=-XX> 9328 IFL XX,< 9329 V1=1 9330 V2=0> 9331 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9332 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9333 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9334 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9335 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9336 9337 777777 777777 F34120: AA1=-1 ;INITIAL C(AC) 9338 036463 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9339 000000 AA2=0 ;INITIAL C(AC+1) 9340 036464 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9341 100000 AEE=XX ;INITIAL C(E) 9342 036465 200 02 0 00 044003 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9343 036466 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9344 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9345 036467 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9346 036470 003 04 0 00 034121 ER3 AC,34121 ;HIGH PRODUCT FAILED 9347 777777 700000 AR2=V2 ;EXPECTED RESULT IN AC+1 9348 036471 312 05 0 00 044134 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9349 036472 004 05 0 00 034122 ER4 AC+1,34122 ;LOW PRODUCT FAILED 9350 100000 AEE=XX ;INITIAL C(E) 9351 036473 312 02 0 00 044003 CAME E,[XX] ;WAS C(E) CLOBBERED? 9352 036474 005 02 0 00 034123 ER5 E,34123 ;C(E) WAS CLOBBERED 9353 036475 321 06 0 00 036463 JUMPL AC+2,F34120 ;LOOP ON ERROR SWITCH^ 9354 9355 003413 ADR=ADR+1 9356 200000 XX=XX+XX 9357 IFE XX, 9358 9359 ;MULTIPLY A RIPPLED ONE BY -1 9360 IFG XX,< 9361 777777 777777 V1=-1 9362 777777 600000 V2=-XX> 9363 IFL XX,< 9364 V1=1 9365 V2=0> 9366 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9367 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9368 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9369 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9370 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9371 9372 777777 777777 F34130: AA1=-1 ;INITIAL C(AC) 9373 036476 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9374 000000 AA2=0 ;INITIAL C(AC+1) 9375 036477 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9376 200000 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0192 9377 036500 200 02 0 00 044004 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9378 036501 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9379 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9380 036502 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9381 036503 003 04 0 00 034131 ER3 AC,34131 ;HIGH PRODUCT FAILED 9382 777777 600000 AR2=V2 ;EXPECTED RESULT IN AC+1 9383 036504 312 05 0 00 044135 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9384 036505 004 05 0 00 034132 ER4 AC+1,34132 ;LOW PRODUCT FAILED 9385 200000 AEE=XX ;INITIAL C(E) 9386 036506 312 02 0 00 044004 CAME E,[XX] ;WAS C(E) CLOBBERED? 9387 036507 005 02 0 00 034133 ER5 E,34133 ;C(E) WAS CLOBBERED 9388 036510 321 06 0 00 036476 JUMPL AC+2,F34130 ;LOOP ON ERROR SWITCH^ 9389 9390 003414 ADR=ADR+1 9391 400000 XX=XX+XX 9392 IFE XX, 9393 9394 ;MULTIPLY A RIPPLED ONE BY -1 9395 IFG XX,< 9396 777777 777777 V1=-1 9397 777777 400000 V2=-XX> 9398 IFL XX,< 9399 V1=1 9400 V2=0> 9401 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9402 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9403 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9404 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9405 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9406 9407 777777 777777 F34140: AA1=-1 ;INITIAL C(AC) 9408 036511 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9409 000000 AA2=0 ;INITIAL C(AC+1) 9410 036512 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9411 400000 AEE=XX ;INITIAL C(E) 9412 036513 200 02 0 00 044005 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9413 036514 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9414 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9415 036515 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9416 036516 003 04 0 00 034141 ER3 AC,34141 ;HIGH PRODUCT FAILED 9417 777777 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 9418 036517 312 05 0 00 044136 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9419 036520 004 05 0 00 034142 ER4 AC+1,34142 ;LOW PRODUCT FAILED 9420 400000 AEE=XX ;INITIAL C(E) 9421 036521 312 02 0 00 044005 CAME E,[XX] ;WAS C(E) CLOBBERED? 9422 036522 005 02 0 00 034143 ER5 E,34143 ;C(E) WAS CLOBBERED 9423 036523 321 06 0 00 036511 JUMPL AC+2,F34140 ;LOOP ON ERROR SWITCH^ 9424 9425 003415 ADR=ADR+1 9426 000001 000000 XX=XX+XX 9427 IFE XX, 9428 9429 ;MULTIPLY A RIPPLED ONE BY -1 9430 IFG XX,< 9431 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0193 9432 777777 000000 V2=-XX> 9433 IFL XX,< 9434 V1=1 9435 V2=0> 9436 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9437 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9438 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9439 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9440 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9441 9442 777777 777777 F34150: AA1=-1 ;INITIAL C(AC) 9443 036524 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9444 000000 AA2=0 ;INITIAL C(AC+1) 9445 036525 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9446 000001 000000 AEE=XX ;INITIAL C(E) 9447 036526 200 02 0 00 044006 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9448 036527 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9449 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9450 036530 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9451 036531 003 04 0 00 034151 ER3 AC,34151 ;HIGH PRODUCT FAILED 9452 777777 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9453 036532 312 05 0 00 044137 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9454 036533 004 05 0 00 034152 ER4 AC+1,34152 ;LOW PRODUCT FAILED 9455 000001 000000 AEE=XX ;INITIAL C(E) 9456 036534 312 02 0 00 044006 CAME E,[XX] ;WAS C(E) CLOBBERED? 9457 036535 005 02 0 00 034153 ER5 E,34153 ;C(E) WAS CLOBBERED 9458 036536 321 06 0 00 036524 JUMPL AC+2,F34150 ;LOOP ON ERROR SWITCH^ 9459 9460 003416 ADR=ADR+1 9461 000002 000000 XX=XX+XX 9462 IFE XX, 9463 9464 ;MULTIPLY A RIPPLED ONE BY -1 9465 IFG XX,< 9466 777777 777777 V1=-1 9467 777776 000000 V2=-XX> 9468 IFL XX,< 9469 V1=1 9470 V2=0> 9471 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9472 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9473 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9474 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9475 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9476 9477 777777 777777 F34160: AA1=-1 ;INITIAL C(AC) 9478 036537 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9479 000000 AA2=0 ;INITIAL C(AC+1) 9480 036540 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9481 000002 000000 AEE=XX ;INITIAL C(E) 9482 036541 200 02 0 00 044007 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9483 036542 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9484 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9485 036543 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9486 036544 003 04 0 00 034161 ER3 AC,34161 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0194 9487 777776 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9488 036545 312 05 0 00 044140 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9489 036546 004 05 0 00 034162 ER4 AC+1,34162 ;LOW PRODUCT FAILED 9490 000002 000000 AEE=XX ;INITIAL C(E) 9491 036547 312 02 0 00 044007 CAME E,[XX] ;WAS C(E) CLOBBERED? 9492 036550 005 02 0 00 034163 ER5 E,34163 ;C(E) WAS CLOBBERED 9493 036551 321 06 0 00 036537 JUMPL AC+2,F34160 ;LOOP ON ERROR SWITCH^ 9494 9495 003417 ADR=ADR+1 9496 000004 000000 XX=XX+XX 9497 IFE XX, 9498 9499 ;MULTIPLY A RIPPLED ONE BY -1 9500 IFG XX,< 9501 777777 777777 V1=-1 9502 777774 000000 V2=-XX> 9503 IFL XX,< 9504 V1=1 9505 V2=0> 9506 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9507 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9508 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9509 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9510 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9511 9512 777777 777777 F34170: AA1=-1 ;INITIAL C(AC) 9513 036552 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9514 000000 AA2=0 ;INITIAL C(AC+1) 9515 036553 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9516 000004 000000 AEE=XX ;INITIAL C(E) 9517 036554 200 02 0 00 044010 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9518 036555 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9519 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9520 036556 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9521 036557 003 04 0 00 034171 ER3 AC,34171 ;HIGH PRODUCT FAILED 9522 777774 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9523 036560 312 05 0 00 044141 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9524 036561 004 05 0 00 034172 ER4 AC+1,34172 ;LOW PRODUCT FAILED 9525 000004 000000 AEE=XX ;INITIAL C(E) 9526 036562 312 02 0 00 044010 CAME E,[XX] ;WAS C(E) CLOBBERED? 9527 036563 005 02 0 00 034173 ER5 E,34173 ;C(E) WAS CLOBBERED 9528 036564 321 06 0 00 036552 JUMPL AC+2,F34170 ;LOOP ON ERROR SWITCH^ 9529 9530 003420 ADR=ADR+1 9531 000010 000000 XX=XX+XX 9532 IFE XX, 9533 9534 ;MULTIPLY A RIPPLED ONE BY -1 9535 IFG XX,< 9536 777777 777777 V1=-1 9537 777770 000000 V2=-XX> 9538 IFL XX,< 9539 V1=1 9540 V2=0> 9541 MOP1 (\ADR,-1,0,XX,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0195 9542 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9543 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9544 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9545 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9546 9547 777777 777777 F34200: AA1=-1 ;INITIAL C(AC) 9548 036565 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9549 000000 AA2=0 ;INITIAL C(AC+1) 9550 036566 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9551 000010 000000 AEE=XX ;INITIAL C(E) 9552 036567 200 02 0 00 044011 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9553 036570 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9554 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9555 036571 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9556 036572 003 04 0 00 034201 ER3 AC,34201 ;HIGH PRODUCT FAILED 9557 777770 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9558 036573 312 05 0 00 044142 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9559 036574 004 05 0 00 034202 ER4 AC+1,34202 ;LOW PRODUCT FAILED 9560 000010 000000 AEE=XX ;INITIAL C(E) 9561 036575 312 02 0 00 044011 CAME E,[XX] ;WAS C(E) CLOBBERED? 9562 036576 005 02 0 00 034203 ER5 E,34203 ;C(E) WAS CLOBBERED 9563 036577 321 06 0 00 036565 JUMPL AC+2,F34200 ;LOOP ON ERROR SWITCH^ 9564 9565 003421 ADR=ADR+1 9566 000020 000000 XX=XX+XX 9567 IFE XX, 9568 9569 ;MULTIPLY A RIPPLED ONE BY -1 9570 IFG XX,< 9571 777777 777777 V1=-1 9572 777760 000000 V2=-XX> 9573 IFL XX,< 9574 V1=1 9575 V2=0> 9576 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9577 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9578 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9579 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9580 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9581 9582 777777 777777 F34210: AA1=-1 ;INITIAL C(AC) 9583 036600 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9584 000000 AA2=0 ;INITIAL C(AC+1) 9585 036601 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9586 000020 000000 AEE=XX ;INITIAL C(E) 9587 036602 200 02 0 00 044012 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9588 036603 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9589 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9590 036604 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9591 036605 003 04 0 00 034211 ER3 AC,34211 ;HIGH PRODUCT FAILED 9592 777760 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9593 036606 312 05 0 00 044143 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9594 036607 004 05 0 00 034212 ER4 AC+1,34212 ;LOW PRODUCT FAILED 9595 000020 000000 AEE=XX ;INITIAL C(E) 9596 036610 312 02 0 00 044012 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0196 9597 036611 005 02 0 00 034213 ER5 E,34213 ;C(E) WAS CLOBBERED 9598 036612 321 06 0 00 036600 JUMPL AC+2,F34210 ;LOOP ON ERROR SWITCH^ 9599 9600 003422 ADR=ADR+1 9601 000040 000000 XX=XX+XX 9602 IFE XX, 9603 9604 ;MULTIPLY A RIPPLED ONE BY -1 9605 IFG XX,< 9606 777777 777777 V1=-1 9607 777740 000000 V2=-XX> 9608 IFL XX,< 9609 V1=1 9610 V2=0> 9611 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9612 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9613 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9614 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9615 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9616 9617 777777 777777 F34220: AA1=-1 ;INITIAL C(AC) 9618 036613 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9619 000000 AA2=0 ;INITIAL C(AC+1) 9620 036614 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9621 000040 000000 AEE=XX ;INITIAL C(E) 9622 036615 200 02 0 00 044013 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9623 036616 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9624 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9625 036617 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9626 036620 003 04 0 00 034221 ER3 AC,34221 ;HIGH PRODUCT FAILED 9627 777740 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9628 036621 312 05 0 00 044144 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9629 036622 004 05 0 00 034222 ER4 AC+1,34222 ;LOW PRODUCT FAILED 9630 000040 000000 AEE=XX ;INITIAL C(E) 9631 036623 312 02 0 00 044013 CAME E,[XX] ;WAS C(E) CLOBBERED? 9632 036624 005 02 0 00 034223 ER5 E,34223 ;C(E) WAS CLOBBERED 9633 036625 321 06 0 00 036613 JUMPL AC+2,F34220 ;LOOP ON ERROR SWITCH^ 9634 9635 003423 ADR=ADR+1 9636 000100 000000 XX=XX+XX 9637 IFE XX, 9638 9639 ;MULTIPLY A RIPPLED ONE BY -1 9640 IFG XX,< 9641 777777 777777 V1=-1 9642 777700 000000 V2=-XX> 9643 IFL XX,< 9644 V1=1 9645 V2=0> 9646 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9647 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9648 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9649 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9650 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9651 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0197 9652 777777 777777 F34230: AA1=-1 ;INITIAL C(AC) 9653 036626 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9654 000000 AA2=0 ;INITIAL C(AC+1) 9655 036627 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9656 000100 000000 AEE=XX ;INITIAL C(E) 9657 036630 200 02 0 00 044014 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9658 036631 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9659 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9660 036632 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9661 036633 003 04 0 00 034231 ER3 AC,34231 ;HIGH PRODUCT FAILED 9662 777700 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9663 036634 312 05 0 00 044145 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9664 036635 004 05 0 00 034232 ER4 AC+1,34232 ;LOW PRODUCT FAILED 9665 000100 000000 AEE=XX ;INITIAL C(E) 9666 036636 312 02 0 00 044014 CAME E,[XX] ;WAS C(E) CLOBBERED? 9667 036637 005 02 0 00 034233 ER5 E,34233 ;C(E) WAS CLOBBERED 9668 036640 321 06 0 00 036626 JUMPL AC+2,F34230 ;LOOP ON ERROR SWITCH^ 9669 9670 003424 ADR=ADR+1 9671 000200 000000 XX=XX+XX 9672 IFE XX, 9673 9674 ;MULTIPLY A RIPPLED ONE BY -1 9675 IFG XX,< 9676 777777 777777 V1=-1 9677 777600 000000 V2=-XX> 9678 IFL XX,< 9679 V1=1 9680 V2=0> 9681 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9682 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9683 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9684 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9685 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9686 9687 777777 777777 F34240: AA1=-1 ;INITIAL C(AC) 9688 036641 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9689 000000 AA2=0 ;INITIAL C(AC+1) 9690 036642 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9691 000200 000000 AEE=XX ;INITIAL C(E) 9692 036643 200 02 0 00 044015 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9693 036644 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9694 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9695 036645 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9696 036646 003 04 0 00 034241 ER3 AC,34241 ;HIGH PRODUCT FAILED 9697 777600 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9698 036647 312 05 0 00 044146 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9699 036650 004 05 0 00 034242 ER4 AC+1,34242 ;LOW PRODUCT FAILED 9700 000200 000000 AEE=XX ;INITIAL C(E) 9701 036651 312 02 0 00 044015 CAME E,[XX] ;WAS C(E) CLOBBERED? 9702 036652 005 02 0 00 034243 ER5 E,34243 ;C(E) WAS CLOBBERED 9703 036653 321 06 0 00 036641 JUMPL AC+2,F34240 ;LOOP ON ERROR SWITCH^ 9704 9705 003425 ADR=ADR+1 9706 000400 000000 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0198 9707 IFE XX, 9708 9709 ;MULTIPLY A RIPPLED ONE BY -1 9710 IFG XX,< 9711 777777 777777 V1=-1 9712 777400 000000 V2=-XX> 9713 IFL XX,< 9714 V1=1 9715 V2=0> 9716 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9717 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9718 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9719 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9720 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9721 9722 777777 777777 F34250: AA1=-1 ;INITIAL C(AC) 9723 036654 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9724 000000 AA2=0 ;INITIAL C(AC+1) 9725 036655 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9726 000400 000000 AEE=XX ;INITIAL C(E) 9727 036656 200 02 0 00 044016 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9728 036657 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9729 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9730 036660 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9731 036661 003 04 0 00 034251 ER3 AC,34251 ;HIGH PRODUCT FAILED 9732 777400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9733 036662 312 05 0 00 044147 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9734 036663 004 05 0 00 034252 ER4 AC+1,34252 ;LOW PRODUCT FAILED 9735 000400 000000 AEE=XX ;INITIAL C(E) 9736 036664 312 02 0 00 044016 CAME E,[XX] ;WAS C(E) CLOBBERED? 9737 036665 005 02 0 00 034253 ER5 E,34253 ;C(E) WAS CLOBBERED 9738 036666 321 06 0 00 036654 JUMPL AC+2,F34250 ;LOOP ON ERROR SWITCH^ 9739 9740 003426 ADR=ADR+1 9741 001000 000000 XX=XX+XX 9742 IFE XX, 9743 9744 ;MULTIPLY A RIPPLED ONE BY -1 9745 IFG XX,< 9746 777777 777777 V1=-1 9747 777000 000000 V2=-XX> 9748 IFL XX,< 9749 V1=1 9750 V2=0> 9751 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9752 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9753 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9754 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9755 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9756 9757 777777 777777 F34260: AA1=-1 ;INITIAL C(AC) 9758 036667 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9759 000000 AA2=0 ;INITIAL C(AC+1) 9760 036670 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9761 001000 000000 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0199 9762 036671 200 02 0 00 044017 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9763 036672 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9764 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9765 036673 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9766 036674 003 04 0 00 034261 ER3 AC,34261 ;HIGH PRODUCT FAILED 9767 777000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9768 036675 312 05 0 00 044150 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9769 036676 004 05 0 00 034262 ER4 AC+1,34262 ;LOW PRODUCT FAILED 9770 001000 000000 AEE=XX ;INITIAL C(E) 9771 036677 312 02 0 00 044017 CAME E,[XX] ;WAS C(E) CLOBBERED? 9772 036700 005 02 0 00 034263 ER5 E,34263 ;C(E) WAS CLOBBERED 9773 036701 321 06 0 00 036667 JUMPL AC+2,F34260 ;LOOP ON ERROR SWITCH^ 9774 9775 003427 ADR=ADR+1 9776 002000 000000 XX=XX+XX 9777 IFE XX, 9778 9779 ;MULTIPLY A RIPPLED ONE BY -1 9780 IFG XX,< 9781 777777 777777 V1=-1 9782 776000 000000 V2=-XX> 9783 IFL XX,< 9784 V1=1 9785 V2=0> 9786 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9787 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9788 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9789 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9790 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9791 9792 777777 777777 F34270: AA1=-1 ;INITIAL C(AC) 9793 036702 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9794 000000 AA2=0 ;INITIAL C(AC+1) 9795 036703 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9796 002000 000000 AEE=XX ;INITIAL C(E) 9797 036704 200 02 0 00 044020 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9798 036705 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9799 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9800 036706 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9801 036707 003 04 0 00 034271 ER3 AC,34271 ;HIGH PRODUCT FAILED 9802 776000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9803 036710 312 05 0 00 044151 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9804 036711 004 05 0 00 034272 ER4 AC+1,34272 ;LOW PRODUCT FAILED 9805 002000 000000 AEE=XX ;INITIAL C(E) 9806 036712 312 02 0 00 044020 CAME E,[XX] ;WAS C(E) CLOBBERED? 9807 036713 005 02 0 00 034273 ER5 E,34273 ;C(E) WAS CLOBBERED 9808 036714 321 06 0 00 036702 JUMPL AC+2,F34270 ;LOOP ON ERROR SWITCH^ 9809 9810 003430 ADR=ADR+1 9811 004000 000000 XX=XX+XX 9812 IFE XX, 9813 9814 ;MULTIPLY A RIPPLED ONE BY -1 9815 IFG XX,< 9816 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0200 9817 774000 000000 V2=-XX> 9818 IFL XX,< 9819 V1=1 9820 V2=0> 9821 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9822 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9823 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9824 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9825 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9826 9827 777777 777777 F34300: AA1=-1 ;INITIAL C(AC) 9828 036715 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9829 000000 AA2=0 ;INITIAL C(AC+1) 9830 036716 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9831 004000 000000 AEE=XX ;INITIAL C(E) 9832 036717 200 02 0 00 044021 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9833 036720 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9834 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9835 036721 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9836 036722 003 04 0 00 034301 ER3 AC,34301 ;HIGH PRODUCT FAILED 9837 774000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9838 036723 312 05 0 00 044152 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9839 036724 004 05 0 00 034302 ER4 AC+1,34302 ;LOW PRODUCT FAILED 9840 004000 000000 AEE=XX ;INITIAL C(E) 9841 036725 312 02 0 00 044021 CAME E,[XX] ;WAS C(E) CLOBBERED? 9842 036726 005 02 0 00 034303 ER5 E,34303 ;C(E) WAS CLOBBERED 9843 036727 321 06 0 00 036715 JUMPL AC+2,F34300 ;LOOP ON ERROR SWITCH^ 9844 9845 003431 ADR=ADR+1 9846 010000 000000 XX=XX+XX 9847 IFE XX, 9848 9849 ;MULTIPLY A RIPPLED ONE BY -1 9850 IFG XX,< 9851 777777 777777 V1=-1 9852 770000 000000 V2=-XX> 9853 IFL XX,< 9854 V1=1 9855 V2=0> 9856 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9857 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9858 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9859 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9860 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9861 9862 777777 777777 F34310: AA1=-1 ;INITIAL C(AC) 9863 036730 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9864 000000 AA2=0 ;INITIAL C(AC+1) 9865 036731 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9866 010000 000000 AEE=XX ;INITIAL C(E) 9867 036732 200 02 0 00 044022 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9868 036733 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9869 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9870 036734 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9871 036735 003 04 0 00 034311 ER3 AC,34311 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0201 9872 770000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9873 036736 312 05 0 00 044153 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9874 036737 004 05 0 00 034312 ER4 AC+1,34312 ;LOW PRODUCT FAILED 9875 010000 000000 AEE=XX ;INITIAL C(E) 9876 036740 312 02 0 00 044022 CAME E,[XX] ;WAS C(E) CLOBBERED? 9877 036741 005 02 0 00 034313 ER5 E,34313 ;C(E) WAS CLOBBERED 9878 036742 321 06 0 00 036730 JUMPL AC+2,F34310 ;LOOP ON ERROR SWITCH^ 9879 9880 003432 ADR=ADR+1 9881 020000 000000 XX=XX+XX 9882 IFE XX, 9883 9884 ;MULTIPLY A RIPPLED ONE BY -1 9885 IFG XX,< 9886 777777 777777 V1=-1 9887 760000 000000 V2=-XX> 9888 IFL XX,< 9889 V1=1 9890 V2=0> 9891 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9892 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9893 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9894 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9895 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9896 9897 777777 777777 F34320: AA1=-1 ;INITIAL C(AC) 9898 036743 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9899 000000 AA2=0 ;INITIAL C(AC+1) 9900 036744 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9901 020000 000000 AEE=XX ;INITIAL C(E) 9902 036745 200 02 0 00 044023 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9903 036746 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9904 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9905 036747 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9906 036750 003 04 0 00 034321 ER3 AC,34321 ;HIGH PRODUCT FAILED 9907 760000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9908 036751 312 05 0 00 044154 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9909 036752 004 05 0 00 034322 ER4 AC+1,34322 ;LOW PRODUCT FAILED 9910 020000 000000 AEE=XX ;INITIAL C(E) 9911 036753 312 02 0 00 044023 CAME E,[XX] ;WAS C(E) CLOBBERED? 9912 036754 005 02 0 00 034323 ER5 E,34323 ;C(E) WAS CLOBBERED 9913 036755 321 06 0 00 036743 JUMPL AC+2,F34320 ;LOOP ON ERROR SWITCH^ 9914 9915 003433 ADR=ADR+1 9916 040000 000000 XX=XX+XX 9917 IFE XX, 9918 9919 ;MULTIPLY A RIPPLED ONE BY -1 9920 IFG XX,< 9921 777777 777777 V1=-1 9922 740000 000000 V2=-XX> 9923 IFL XX,< 9924 V1=1 9925 V2=0> 9926 MOP1 (\ADR,-1,0,XX,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-21 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0202 9927 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9928 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9929 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9930 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9931 9932 777777 777777 F34330: AA1=-1 ;INITIAL C(AC) 9933 036756 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9934 000000 AA2=0 ;INITIAL C(AC+1) 9935 036757 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9936 040000 000000 AEE=XX ;INITIAL C(E) 9937 036760 200 02 0 00 044024 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9938 036761 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9939 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9940 036762 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9941 036763 003 04 0 00 034331 ER3 AC,34331 ;HIGH PRODUCT FAILED 9942 740000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9943 036764 312 05 0 00 044155 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9944 036765 004 05 0 00 034332 ER4 AC+1,34332 ;LOW PRODUCT FAILED 9945 040000 000000 AEE=XX ;INITIAL C(E) 9946 036766 312 02 0 00 044024 CAME E,[XX] ;WAS C(E) CLOBBERED? 9947 036767 005 02 0 00 034333 ER5 E,34333 ;C(E) WAS CLOBBERED 9948 036770 321 06 0 00 036756 JUMPL AC+2,F34330 ;LOOP ON ERROR SWITCH^ 9949 9950 003434 ADR=ADR+1 9951 100000 000000 XX=XX+XX 9952 IFE XX, 9953 9954 ;MULTIPLY A RIPPLED ONE BY -1 9955 IFG XX,< 9956 777777 777777 V1=-1 9957 700000 000000 V2=-XX> 9958 IFL XX,< 9959 V1=1 9960 V2=0> 9961 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9962 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9963 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9964 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 9965 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9966 9967 777777 777777 F34340: AA1=-1 ;INITIAL C(AC) 9968 036771 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 9969 000000 AA2=0 ;INITIAL C(AC+1) 9970 036772 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 9971 100000 000000 AEE=XX ;INITIAL C(E) 9972 036773 200 02 0 00 044025 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 9973 036774 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9974 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 9975 036775 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 9976 036776 003 04 0 00 034341 ER3 AC,34341 ;HIGH PRODUCT FAILED 9977 700000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 9978 036777 312 05 0 00 044156 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 9979 037000 004 05 0 00 034342 ER4 AC+1,34342 ;LOW PRODUCT FAILED 9980 100000 000000 AEE=XX ;INITIAL C(E) 9981 037001 312 02 0 00 044025 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-22 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0203 9982 037002 005 02 0 00 034343 ER5 E,34343 ;C(E) WAS CLOBBERED 9983 037003 321 06 0 00 036771 JUMPL AC+2,F34340 ;LOOP ON ERROR SWITCH^ 9984 9985 003435 ADR=ADR+1 9986 200000 000000 XX=XX+XX 9987 IFE XX, 9988 9989 ;MULTIPLY A RIPPLED ONE BY -1 9990 IFG XX,< 9991 777777 777777 V1=-1 9992 600000 000000 V2=-XX> 9993 IFL XX,< 9994 V1=1 9995 V2=0> 9996 MOP1 (\ADR,-1,0,XX,V1,V2)^ 9997 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 9998 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9999 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 10000 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10001 10002 777777 777777 F34350: AA1=-1 ;INITIAL C(AC) 10003 037004 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 10004 000000 AA2=0 ;INITIAL C(AC+1) 10005 037005 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10006 200000 000000 AEE=XX ;INITIAL C(E) 10007 037006 200 02 0 00 044026 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 10008 037007 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10009 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10010 037010 312 04 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10011 037011 003 04 0 00 034351 ER3 AC,34351 ;HIGH PRODUCT FAILED 10012 600000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10013 037012 312 05 0 00 044157 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10014 037013 004 05 0 00 034352 ER4 AC+1,34352 ;LOW PRODUCT FAILED 10015 200000 000000 AEE=XX ;INITIAL C(E) 10016 037014 312 02 0 00 044026 CAME E,[XX] ;WAS C(E) CLOBBERED? 10017 037015 005 02 0 00 034353 ER5 E,34353 ;C(E) WAS CLOBBERED 10018 037016 321 06 0 00 037004 JUMPL AC+2,F34350 ;LOOP ON ERROR SWITCH^ 10019 10020 003436 ADR=ADR+1 10021 400000 000000 XX=XX+XX 10022 IFE XX, 10023 10024 ;MULTIPLY A RIPPLED ONE BY -1 10025 IFG XX,< 10026 V1=-1 10027 V2=-XX> 10028 IFL XX,< 10029 000001 V1=1 10030 000000 V2=0> 10031 MOP1 (\ADR,-1,0,XX,V1,V2)^ 10032 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[0] AND 10033 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10034 ;AND E AGAINST [V1], [V2] AND [XX] RESPECTIVELY. 10035 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10036 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 12-23 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0204 10037 777777 777777 F34360: AA1=-1 ;INITIAL C(AC) 10038 037017 200 04 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 10039 000000 AA2=0 ;INITIAL C(AC+1) 10040 037020 200 05 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10041 400000 000000 AEE=XX ;INITIAL C(E) 10042 037021 200 02 0 00 044027 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 10043 037022 224 04 0 00 000002 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10044 000001 AR1=V1 ;EXPECTED RESULT IN AC 10045 037023 312 04 0 00 043764 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10046 037024 003 04 0 00 034361 ER3 AC,34361 ;HIGH PRODUCT FAILED 10047 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10048 037025 312 05 0 00 043762 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10049 037026 004 05 0 00 034362 ER4 AC+1,34362 ;LOW PRODUCT FAILED 10050 400000 000000 AEE=XX ;INITIAL C(E) 10051 037027 312 02 0 00 044027 CAME E,[XX] ;WAS C(E) CLOBBERED? 10052 037030 005 02 0 00 034363 ER5 E,34363 ;C(E) WAS CLOBBERED 10053 037031 321 06 0 00 037017 JUMPL AC+2,F34360 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0205 10054 000003 AC=3 10055 000001 E=&17 10056 SAVEAC (1,1)^ 10057 037032 201 05 0 00 037032 MOVEI AC+2,. ;SAVE TEST PC 10058 037033 202 05 0 00 030051 MOVEM AC+2,TESTPC 10059 037034 201 05 0 00 000005 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10060 037035 202 05 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10061 000000 XX=0 10062 10063 REPEAT ^D36,< 10064 ADR=ADR+1 10065 XX=XX+XX 10066 IFE XX, 10067 10068 ;MULTIPLY -1 BY A RIPPLED 1 10069 IFG XX,< 10070 V1=-1 10071 V2=-XX> 10072 IFL XX,< 10073 V1=1 10074 V2=0> 10075 MOP1 (\ADR,XX,0,-1,V1,V2)> 10076 10077 003437 ADR=ADR+1 10078 000000 XX=XX+XX 10079 000001 IFE XX, 10080 10081 ;MULTIPLY -1 BY A RIPPLED 1 10082 IFG XX,< 10083 777777 777777 V1=-1 10084 777777 777777 V2=-XX> 10085 IFL XX,< 10086 V1=1 10087 V2=0> 10088 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10089 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10090 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10091 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10092 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10093 10094 000001 F34370: AA1=XX ;INITIAL C(AC) 10095 037036 200 03 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10096 000000 AA2=0 ;INITIAL C(AC+1) 10097 037037 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10098 777777 777777 AEE=-1 ;INITIAL C(E) 10099 037040 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10100 037041 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10101 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10102 037042 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10103 037043 003 03 0 00 034371 ER3 AC,34371 ;HIGH PRODUCT FAILED 10104 777777 777777 AR2=V2 ;EXPECTED RESULT IN AC+1 10105 037044 312 04 0 00 043763 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10106 037045 004 04 0 00 034372 ER4 AC+1,34372 ;LOW PRODUCT FAILED 10107 777777 777777 AEE=-1 ;INITIAL C(E) 10108 037046 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0206 10109 037047 005 01 0 00 034373 ER5 E,34373 ;C(E) WAS CLOBBERED 10110 037050 321 05 0 00 037036 JUMPL AC+2,F34370 ;LOOP ON ERROR SWITCH^ 10111 10112 003440 ADR=ADR+1 10113 000002 XX=XX+XX 10114 IFE XX, 10115 10116 ;MULTIPLY -1 BY A RIPPLED 1 10117 IFG XX,< 10118 777777 777777 V1=-1 10119 777777 777776 V2=-XX> 10120 IFL XX,< 10121 V1=1 10122 V2=0> 10123 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10124 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10125 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10126 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10127 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10128 10129 000002 F34400: AA1=XX ;INITIAL C(AC) 10130 037051 200 03 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10131 000000 AA2=0 ;INITIAL C(AC+1) 10132 037052 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10133 777777 777777 AEE=-1 ;INITIAL C(E) 10134 037053 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10135 037054 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10136 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10137 037055 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10138 037056 003 03 0 00 034401 ER3 AC,34401 ;HIGH PRODUCT FAILED 10139 777777 777776 AR2=V2 ;EXPECTED RESULT IN AC+1 10140 037057 312 04 0 00 044030 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10141 037060 004 04 0 00 034402 ER4 AC+1,34402 ;LOW PRODUCT FAILED 10142 777777 777777 AEE=-1 ;INITIAL C(E) 10143 037061 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10144 037062 005 01 0 00 034403 ER5 E,34403 ;C(E) WAS CLOBBERED 10145 037063 321 05 0 00 037051 JUMPL AC+2,F34400 ;LOOP ON ERROR SWITCH^ 10146 10147 003441 ADR=ADR+1 10148 000004 XX=XX+XX 10149 IFE XX, 10150 10151 ;MULTIPLY -1 BY A RIPPLED 1 10152 IFG XX,< 10153 777777 777777 V1=-1 10154 777777 777774 V2=-XX> 10155 IFL XX,< 10156 V1=1 10157 V2=0> 10158 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10159 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10160 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10161 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10162 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10163 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0207 10164 000004 F34410: AA1=XX ;INITIAL C(AC) 10165 037064 200 03 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10166 000000 AA2=0 ;INITIAL C(AC+1) 10167 037065 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10168 777777 777777 AEE=-1 ;INITIAL C(E) 10169 037066 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10170 037067 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10171 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10172 037070 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10173 037071 003 03 0 00 034411 ER3 AC,34411 ;HIGH PRODUCT FAILED 10174 777777 777774 AR2=V2 ;EXPECTED RESULT IN AC+1 10175 037072 312 04 0 00 044107 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10176 037073 004 04 0 00 034412 ER4 AC+1,34412 ;LOW PRODUCT FAILED 10177 777777 777777 AEE=-1 ;INITIAL C(E) 10178 037074 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10179 037075 005 01 0 00 034413 ER5 E,34413 ;C(E) WAS CLOBBERED 10180 037076 321 05 0 00 037064 JUMPL AC+2,F34410 ;LOOP ON ERROR SWITCH^ 10181 10182 003442 ADR=ADR+1 10183 000010 XX=XX+XX 10184 IFE XX, 10185 10186 ;MULTIPLY -1 BY A RIPPLED 1 10187 IFG XX,< 10188 777777 777777 V1=-1 10189 777777 777770 V2=-XX> 10190 IFL XX,< 10191 V1=1 10192 V2=0> 10193 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10194 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10195 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10196 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10197 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10198 10199 000010 F34420: AA1=XX ;INITIAL C(AC) 10200 037077 200 03 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10201 000000 AA2=0 ;INITIAL C(AC+1) 10202 037100 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10203 777777 777777 AEE=-1 ;INITIAL C(E) 10204 037101 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10205 037102 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10206 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10207 037103 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10208 037104 003 03 0 00 034421 ER3 AC,34421 ;HIGH PRODUCT FAILED 10209 777777 777770 AR2=V2 ;EXPECTED RESULT IN AC+1 10210 037105 312 04 0 00 044112 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10211 037106 004 04 0 00 034422 ER4 AC+1,34422 ;LOW PRODUCT FAILED 10212 777777 777777 AEE=-1 ;INITIAL C(E) 10213 037107 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10214 037110 005 01 0 00 034423 ER5 E,34423 ;C(E) WAS CLOBBERED 10215 037111 321 05 0 00 037077 JUMPL AC+2,F34420 ;LOOP ON ERROR SWITCH^ 10216 10217 003443 ADR=ADR+1 10218 000020 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0208 10219 IFE XX, 10220 10221 ;MULTIPLY -1 BY A RIPPLED 1 10222 IFG XX,< 10223 777777 777777 V1=-1 10224 777777 777760 V2=-XX> 10225 IFL XX,< 10226 V1=1 10227 V2=0> 10228 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10229 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10230 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10231 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10232 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10233 10234 000020 F34430: AA1=XX ;INITIAL C(AC) 10235 037112 200 03 0 00 043770 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10236 000000 AA2=0 ;INITIAL C(AC+1) 10237 037113 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10238 777777 777777 AEE=-1 ;INITIAL C(E) 10239 037114 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10240 037115 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10241 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10242 037116 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10243 037117 003 03 0 00 034431 ER3 AC,34431 ;HIGH PRODUCT FAILED 10244 777777 777760 AR2=V2 ;EXPECTED RESULT IN AC+1 10245 037120 312 04 0 00 044121 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10246 037121 004 04 0 00 034432 ER4 AC+1,34432 ;LOW PRODUCT FAILED 10247 777777 777777 AEE=-1 ;INITIAL C(E) 10248 037122 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10249 037123 005 01 0 00 034433 ER5 E,34433 ;C(E) WAS CLOBBERED 10250 037124 321 05 0 00 037112 JUMPL AC+2,F34430 ;LOOP ON ERROR SWITCH^ 10251 10252 003444 ADR=ADR+1 10253 000040 XX=XX+XX 10254 IFE XX, 10255 10256 ;MULTIPLY -1 BY A RIPPLED 1 10257 IFG XX,< 10258 777777 777777 V1=-1 10259 777777 777740 V2=-XX> 10260 IFL XX,< 10261 V1=1 10262 V2=0> 10263 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10264 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10265 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10266 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10267 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10268 10269 000040 F34440: AA1=XX ;INITIAL C(AC) 10270 037125 200 03 0 00 043771 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10271 000000 AA2=0 ;INITIAL C(AC+1) 10272 037126 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10273 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0209 10274 037127 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10275 037130 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10276 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10277 037131 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10278 037132 003 03 0 00 034441 ER3 AC,34441 ;HIGH PRODUCT FAILED 10279 777777 777740 AR2=V2 ;EXPECTED RESULT IN AC+1 10280 037133 312 04 0 00 044122 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10281 037134 004 04 0 00 034442 ER4 AC+1,34442 ;LOW PRODUCT FAILED 10282 777777 777777 AEE=-1 ;INITIAL C(E) 10283 037135 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10284 037136 005 01 0 00 034443 ER5 E,34443 ;C(E) WAS CLOBBERED 10285 037137 321 05 0 00 037125 JUMPL AC+2,F34440 ;LOOP ON ERROR SWITCH^ 10286 10287 003445 ADR=ADR+1 10288 000100 XX=XX+XX 10289 IFE XX, 10290 10291 ;MULTIPLY -1 BY A RIPPLED 1 10292 IFG XX,< 10293 777777 777777 V1=-1 10294 777777 777700 V2=-XX> 10295 IFL XX,< 10296 V1=1 10297 V2=0> 10298 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10299 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10300 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10301 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10302 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10303 10304 000100 F34450: AA1=XX ;INITIAL C(AC) 10305 037140 200 03 0 00 043772 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10306 000000 AA2=0 ;INITIAL C(AC+1) 10307 037141 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10308 777777 777777 AEE=-1 ;INITIAL C(E) 10309 037142 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10310 037143 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10311 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10312 037144 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10313 037145 003 03 0 00 034451 ER3 AC,34451 ;HIGH PRODUCT FAILED 10314 777777 777700 AR2=V2 ;EXPECTED RESULT IN AC+1 10315 037146 312 04 0 00 044123 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10316 037147 004 04 0 00 034452 ER4 AC+1,34452 ;LOW PRODUCT FAILED 10317 777777 777777 AEE=-1 ;INITIAL C(E) 10318 037150 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10319 037151 005 01 0 00 034453 ER5 E,34453 ;C(E) WAS CLOBBERED 10320 037152 321 05 0 00 037140 JUMPL AC+2,F34450 ;LOOP ON ERROR SWITCH^ 10321 10322 003446 ADR=ADR+1 10323 000200 XX=XX+XX 10324 IFE XX, 10325 10326 ;MULTIPLY -1 BY A RIPPLED 1 10327 IFG XX,< 10328 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0210 10329 777777 777600 V2=-XX> 10330 IFL XX,< 10331 V1=1 10332 V2=0> 10333 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10334 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10335 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10336 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10337 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10338 10339 000200 F34460: AA1=XX ;INITIAL C(AC) 10340 037153 200 03 0 00 043773 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10341 000000 AA2=0 ;INITIAL C(AC+1) 10342 037154 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10343 777777 777777 AEE=-1 ;INITIAL C(E) 10344 037155 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10345 037156 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10346 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10347 037157 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10348 037160 003 03 0 00 034461 ER3 AC,34461 ;HIGH PRODUCT FAILED 10349 777777 777600 AR2=V2 ;EXPECTED RESULT IN AC+1 10350 037161 312 04 0 00 044124 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10351 037162 004 04 0 00 034462 ER4 AC+1,34462 ;LOW PRODUCT FAILED 10352 777777 777777 AEE=-1 ;INITIAL C(E) 10353 037163 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10354 037164 005 01 0 00 034463 ER5 E,34463 ;C(E) WAS CLOBBERED 10355 037165 321 05 0 00 037153 JUMPL AC+2,F34460 ;LOOP ON ERROR SWITCH^ 10356 10357 003447 ADR=ADR+1 10358 000400 XX=XX+XX 10359 IFE XX, 10360 10361 ;MULTIPLY -1 BY A RIPPLED 1 10362 IFG XX,< 10363 777777 777777 V1=-1 10364 777777 777400 V2=-XX> 10365 IFL XX,< 10366 V1=1 10367 V2=0> 10368 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10369 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10370 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10371 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10372 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10373 10374 000400 F34470: AA1=XX ;INITIAL C(AC) 10375 037166 200 03 0 00 043774 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10376 000000 AA2=0 ;INITIAL C(AC+1) 10377 037167 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10378 777777 777777 AEE=-1 ;INITIAL C(E) 10379 037170 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10380 037171 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10381 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10382 037172 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10383 037173 003 03 0 00 034471 ER3 AC,34471 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0211 10384 777777 777400 AR2=V2 ;EXPECTED RESULT IN AC+1 10385 037174 312 04 0 00 044125 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10386 037175 004 04 0 00 034472 ER4 AC+1,34472 ;LOW PRODUCT FAILED 10387 777777 777777 AEE=-1 ;INITIAL C(E) 10388 037176 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10389 037177 005 01 0 00 034473 ER5 E,34473 ;C(E) WAS CLOBBERED 10390 037200 321 05 0 00 037166 JUMPL AC+2,F34470 ;LOOP ON ERROR SWITCH^ 10391 10392 003450 ADR=ADR+1 10393 001000 XX=XX+XX 10394 IFE XX, 10395 10396 ;MULTIPLY -1 BY A RIPPLED 1 10397 IFG XX,< 10398 777777 777777 V1=-1 10399 777777 777000 V2=-XX> 10400 IFL XX,< 10401 V1=1 10402 V2=0> 10403 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10404 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10405 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10406 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10407 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10408 10409 001000 F34500: AA1=XX ;INITIAL C(AC) 10410 037201 200 03 0 00 043775 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10411 000000 AA2=0 ;INITIAL C(AC+1) 10412 037202 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10413 777777 777777 AEE=-1 ;INITIAL C(E) 10414 037203 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10415 037204 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10416 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10417 037205 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10418 037206 003 03 0 00 034501 ER3 AC,34501 ;HIGH PRODUCT FAILED 10419 777777 777000 AR2=V2 ;EXPECTED RESULT IN AC+1 10420 037207 312 04 0 00 044126 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10421 037210 004 04 0 00 034502 ER4 AC+1,34502 ;LOW PRODUCT FAILED 10422 777777 777777 AEE=-1 ;INITIAL C(E) 10423 037211 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10424 037212 005 01 0 00 034503 ER5 E,34503 ;C(E) WAS CLOBBERED 10425 037213 321 05 0 00 037201 JUMPL AC+2,F34500 ;LOOP ON ERROR SWITCH^ 10426 10427 003451 ADR=ADR+1 10428 002000 XX=XX+XX 10429 IFE XX, 10430 10431 ;MULTIPLY -1 BY A RIPPLED 1 10432 IFG XX,< 10433 777777 777777 V1=-1 10434 777777 776000 V2=-XX> 10435 IFL XX,< 10436 V1=1 10437 V2=0> 10438 MOP1 (\ADR,XX,0,-1,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0212 10439 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10440 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10441 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10442 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10443 10444 002000 F34510: AA1=XX ;INITIAL C(AC) 10445 037214 200 03 0 00 043776 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10446 000000 AA2=0 ;INITIAL C(AC+1) 10447 037215 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10448 777777 777777 AEE=-1 ;INITIAL C(E) 10449 037216 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10450 037217 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10451 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10452 037220 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10453 037221 003 03 0 00 034511 ER3 AC,34511 ;HIGH PRODUCT FAILED 10454 777777 776000 AR2=V2 ;EXPECTED RESULT IN AC+1 10455 037222 312 04 0 00 044127 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10456 037223 004 04 0 00 034512 ER4 AC+1,34512 ;LOW PRODUCT FAILED 10457 777777 777777 AEE=-1 ;INITIAL C(E) 10458 037224 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10459 037225 005 01 0 00 034513 ER5 E,34513 ;C(E) WAS CLOBBERED 10460 037226 321 05 0 00 037214 JUMPL AC+2,F34510 ;LOOP ON ERROR SWITCH^ 10461 10462 003452 ADR=ADR+1 10463 004000 XX=XX+XX 10464 IFE XX, 10465 10466 ;MULTIPLY -1 BY A RIPPLED 1 10467 IFG XX,< 10468 777777 777777 V1=-1 10469 777777 774000 V2=-XX> 10470 IFL XX,< 10471 V1=1 10472 V2=0> 10473 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10474 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10475 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10476 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10477 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10478 10479 004000 F34520: AA1=XX ;INITIAL C(AC) 10480 037227 200 03 0 00 043777 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10481 000000 AA2=0 ;INITIAL C(AC+1) 10482 037230 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10483 777777 777777 AEE=-1 ;INITIAL C(E) 10484 037231 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10485 037232 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10486 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10487 037233 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10488 037234 003 03 0 00 034521 ER3 AC,34521 ;HIGH PRODUCT FAILED 10489 777777 774000 AR2=V2 ;EXPECTED RESULT IN AC+1 10490 037235 312 04 0 00 044130 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10491 037236 004 04 0 00 034522 ER4 AC+1,34522 ;LOW PRODUCT FAILED 10492 777777 777777 AEE=-1 ;INITIAL C(E) 10493 037237 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0213 10494 037240 005 01 0 00 034523 ER5 E,34523 ;C(E) WAS CLOBBERED 10495 037241 321 05 0 00 037227 JUMPL AC+2,F34520 ;LOOP ON ERROR SWITCH^ 10496 10497 003453 ADR=ADR+1 10498 010000 XX=XX+XX 10499 IFE XX, 10500 10501 ;MULTIPLY -1 BY A RIPPLED 1 10502 IFG XX,< 10503 777777 777777 V1=-1 10504 777777 770000 V2=-XX> 10505 IFL XX,< 10506 V1=1 10507 V2=0> 10508 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10509 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10510 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10511 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10512 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10513 10514 010000 F34530: AA1=XX ;INITIAL C(AC) 10515 037242 200 03 0 00 044000 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10516 000000 AA2=0 ;INITIAL C(AC+1) 10517 037243 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10518 777777 777777 AEE=-1 ;INITIAL C(E) 10519 037244 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10520 037245 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10521 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10522 037246 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10523 037247 003 03 0 00 034531 ER3 AC,34531 ;HIGH PRODUCT FAILED 10524 777777 770000 AR2=V2 ;EXPECTED RESULT IN AC+1 10525 037250 312 04 0 00 044131 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10526 037251 004 04 0 00 034532 ER4 AC+1,34532 ;LOW PRODUCT FAILED 10527 777777 777777 AEE=-1 ;INITIAL C(E) 10528 037252 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10529 037253 005 01 0 00 034533 ER5 E,34533 ;C(E) WAS CLOBBERED 10530 037254 321 05 0 00 037242 JUMPL AC+2,F34530 ;LOOP ON ERROR SWITCH^ 10531 10532 003454 ADR=ADR+1 10533 020000 XX=XX+XX 10534 IFE XX, 10535 10536 ;MULTIPLY -1 BY A RIPPLED 1 10537 IFG XX,< 10538 777777 777777 V1=-1 10539 777777 760000 V2=-XX> 10540 IFL XX,< 10541 V1=1 10542 V2=0> 10543 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10544 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10545 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10546 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10547 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10548 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0214 10549 020000 F34540: AA1=XX ;INITIAL C(AC) 10550 037255 200 03 0 00 044001 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10551 000000 AA2=0 ;INITIAL C(AC+1) 10552 037256 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10553 777777 777777 AEE=-1 ;INITIAL C(E) 10554 037257 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10555 037260 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10556 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10557 037261 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10558 037262 003 03 0 00 034541 ER3 AC,34541 ;HIGH PRODUCT FAILED 10559 777777 760000 AR2=V2 ;EXPECTED RESULT IN AC+1 10560 037263 312 04 0 00 044132 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10561 037264 004 04 0 00 034542 ER4 AC+1,34542 ;LOW PRODUCT FAILED 10562 777777 777777 AEE=-1 ;INITIAL C(E) 10563 037265 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10564 037266 005 01 0 00 034543 ER5 E,34543 ;C(E) WAS CLOBBERED 10565 037267 321 05 0 00 037255 JUMPL AC+2,F34540 ;LOOP ON ERROR SWITCH^ 10566 10567 003455 ADR=ADR+1 10568 040000 XX=XX+XX 10569 IFE XX, 10570 10571 ;MULTIPLY -1 BY A RIPPLED 1 10572 IFG XX,< 10573 777777 777777 V1=-1 10574 777777 740000 V2=-XX> 10575 IFL XX,< 10576 V1=1 10577 V2=0> 10578 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10579 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10580 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10581 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10582 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10583 10584 040000 F34550: AA1=XX ;INITIAL C(AC) 10585 037270 200 03 0 00 044002 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10586 000000 AA2=0 ;INITIAL C(AC+1) 10587 037271 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10588 777777 777777 AEE=-1 ;INITIAL C(E) 10589 037272 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10590 037273 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10591 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10592 037274 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10593 037275 003 03 0 00 034551 ER3 AC,34551 ;HIGH PRODUCT FAILED 10594 777777 740000 AR2=V2 ;EXPECTED RESULT IN AC+1 10595 037276 312 04 0 00 044133 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10596 037277 004 04 0 00 034552 ER4 AC+1,34552 ;LOW PRODUCT FAILED 10597 777777 777777 AEE=-1 ;INITIAL C(E) 10598 037300 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10599 037301 005 01 0 00 034553 ER5 E,34553 ;C(E) WAS CLOBBERED 10600 037302 321 05 0 00 037270 JUMPL AC+2,F34550 ;LOOP ON ERROR SWITCH^ 10601 10602 003456 ADR=ADR+1 10603 100000 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0215 10604 IFE XX, 10605 10606 ;MULTIPLY -1 BY A RIPPLED 1 10607 IFG XX,< 10608 777777 777777 V1=-1 10609 777777 700000 V2=-XX> 10610 IFL XX,< 10611 V1=1 10612 V2=0> 10613 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10614 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10615 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10616 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10617 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10618 10619 100000 F34560: AA1=XX ;INITIAL C(AC) 10620 037303 200 03 0 00 044003 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10621 000000 AA2=0 ;INITIAL C(AC+1) 10622 037304 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10623 777777 777777 AEE=-1 ;INITIAL C(E) 10624 037305 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10625 037306 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10626 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10627 037307 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10628 037310 003 03 0 00 034561 ER3 AC,34561 ;HIGH PRODUCT FAILED 10629 777777 700000 AR2=V2 ;EXPECTED RESULT IN AC+1 10630 037311 312 04 0 00 044134 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10631 037312 004 04 0 00 034562 ER4 AC+1,34562 ;LOW PRODUCT FAILED 10632 777777 777777 AEE=-1 ;INITIAL C(E) 10633 037313 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10634 037314 005 01 0 00 034563 ER5 E,34563 ;C(E) WAS CLOBBERED 10635 037315 321 05 0 00 037303 JUMPL AC+2,F34560 ;LOOP ON ERROR SWITCH^ 10636 10637 003457 ADR=ADR+1 10638 200000 XX=XX+XX 10639 IFE XX, 10640 10641 ;MULTIPLY -1 BY A RIPPLED 1 10642 IFG XX,< 10643 777777 777777 V1=-1 10644 777777 600000 V2=-XX> 10645 IFL XX,< 10646 V1=1 10647 V2=0> 10648 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10649 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10650 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10651 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10652 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10653 10654 200000 F34570: AA1=XX ;INITIAL C(AC) 10655 037316 200 03 0 00 044004 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10656 000000 AA2=0 ;INITIAL C(AC+1) 10657 037317 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10658 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0216 10659 037320 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10660 037321 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10661 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10662 037322 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10663 037323 003 03 0 00 034571 ER3 AC,34571 ;HIGH PRODUCT FAILED 10664 777777 600000 AR2=V2 ;EXPECTED RESULT IN AC+1 10665 037324 312 04 0 00 044135 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10666 037325 004 04 0 00 034572 ER4 AC+1,34572 ;LOW PRODUCT FAILED 10667 777777 777777 AEE=-1 ;INITIAL C(E) 10668 037326 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10669 037327 005 01 0 00 034573 ER5 E,34573 ;C(E) WAS CLOBBERED 10670 037330 321 05 0 00 037316 JUMPL AC+2,F34570 ;LOOP ON ERROR SWITCH^ 10671 10672 003460 ADR=ADR+1 10673 400000 XX=XX+XX 10674 IFE XX, 10675 10676 ;MULTIPLY -1 BY A RIPPLED 1 10677 IFG XX,< 10678 777777 777777 V1=-1 10679 777777 400000 V2=-XX> 10680 IFL XX,< 10681 V1=1 10682 V2=0> 10683 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10684 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10685 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10686 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10687 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10688 10689 400000 F34600: AA1=XX ;INITIAL C(AC) 10690 037331 200 03 0 00 044005 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10691 000000 AA2=0 ;INITIAL C(AC+1) 10692 037332 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10693 777777 777777 AEE=-1 ;INITIAL C(E) 10694 037333 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10695 037334 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10696 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10697 037335 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10698 037336 003 03 0 00 034601 ER3 AC,34601 ;HIGH PRODUCT FAILED 10699 777777 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 10700 037337 312 04 0 00 044136 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10701 037340 004 04 0 00 034602 ER4 AC+1,34602 ;LOW PRODUCT FAILED 10702 777777 777777 AEE=-1 ;INITIAL C(E) 10703 037341 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10704 037342 005 01 0 00 034603 ER5 E,34603 ;C(E) WAS CLOBBERED 10705 037343 321 05 0 00 037331 JUMPL AC+2,F34600 ;LOOP ON ERROR SWITCH^ 10706 10707 003461 ADR=ADR+1 10708 000001 000000 XX=XX+XX 10709 IFE XX, 10710 10711 ;MULTIPLY -1 BY A RIPPLED 1 10712 IFG XX,< 10713 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0217 10714 777777 000000 V2=-XX> 10715 IFL XX,< 10716 V1=1 10717 V2=0> 10718 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10719 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10720 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10721 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10722 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10723 10724 000001 000000 F34610: AA1=XX ;INITIAL C(AC) 10725 037344 200 03 0 00 044006 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10726 000000 AA2=0 ;INITIAL C(AC+1) 10727 037345 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10728 777777 777777 AEE=-1 ;INITIAL C(E) 10729 037346 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10730 037347 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10731 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10732 037350 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10733 037351 003 03 0 00 034611 ER3 AC,34611 ;HIGH PRODUCT FAILED 10734 777777 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10735 037352 312 04 0 00 044137 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10736 037353 004 04 0 00 034612 ER4 AC+1,34612 ;LOW PRODUCT FAILED 10737 777777 777777 AEE=-1 ;INITIAL C(E) 10738 037354 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10739 037355 005 01 0 00 034613 ER5 E,34613 ;C(E) WAS CLOBBERED 10740 037356 321 05 0 00 037344 JUMPL AC+2,F34610 ;LOOP ON ERROR SWITCH^ 10741 10742 003462 ADR=ADR+1 10743 000002 000000 XX=XX+XX 10744 IFE XX, 10745 10746 ;MULTIPLY -1 BY A RIPPLED 1 10747 IFG XX,< 10748 777777 777777 V1=-1 10749 777776 000000 V2=-XX> 10750 IFL XX,< 10751 V1=1 10752 V2=0> 10753 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10754 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10755 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10756 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10757 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10758 10759 000002 000000 F34620: AA1=XX ;INITIAL C(AC) 10760 037357 200 03 0 00 044007 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10761 000000 AA2=0 ;INITIAL C(AC+1) 10762 037360 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10763 777777 777777 AEE=-1 ;INITIAL C(E) 10764 037361 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10765 037362 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10766 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10767 037363 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10768 037364 003 03 0 00 034621 ER3 AC,34621 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0218 10769 777776 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10770 037365 312 04 0 00 044140 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10771 037366 004 04 0 00 034622 ER4 AC+1,34622 ;LOW PRODUCT FAILED 10772 777777 777777 AEE=-1 ;INITIAL C(E) 10773 037367 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10774 037370 005 01 0 00 034623 ER5 E,34623 ;C(E) WAS CLOBBERED 10775 037371 321 05 0 00 037357 JUMPL AC+2,F34620 ;LOOP ON ERROR SWITCH^ 10776 10777 003463 ADR=ADR+1 10778 000004 000000 XX=XX+XX 10779 IFE XX, 10780 10781 ;MULTIPLY -1 BY A RIPPLED 1 10782 IFG XX,< 10783 777777 777777 V1=-1 10784 777774 000000 V2=-XX> 10785 IFL XX,< 10786 V1=1 10787 V2=0> 10788 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10789 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10790 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10791 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10792 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10793 10794 000004 000000 F34630: AA1=XX ;INITIAL C(AC) 10795 037372 200 03 0 00 044010 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10796 000000 AA2=0 ;INITIAL C(AC+1) 10797 037373 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10798 777777 777777 AEE=-1 ;INITIAL C(E) 10799 037374 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10800 037375 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10801 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10802 037376 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10803 037377 003 03 0 00 034631 ER3 AC,34631 ;HIGH PRODUCT FAILED 10804 777774 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10805 037400 312 04 0 00 044141 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10806 037401 004 04 0 00 034632 ER4 AC+1,34632 ;LOW PRODUCT FAILED 10807 777777 777777 AEE=-1 ;INITIAL C(E) 10808 037402 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10809 037403 005 01 0 00 034633 ER5 E,34633 ;C(E) WAS CLOBBERED 10810 037404 321 05 0 00 037372 JUMPL AC+2,F34630 ;LOOP ON ERROR SWITCH^ 10811 10812 003464 ADR=ADR+1 10813 000010 000000 XX=XX+XX 10814 IFE XX, 10815 10816 ;MULTIPLY -1 BY A RIPPLED 1 10817 IFG XX,< 10818 777777 777777 V1=-1 10819 777770 000000 V2=-XX> 10820 IFL XX,< 10821 V1=1 10822 V2=0> 10823 MOP1 (\ADR,XX,0,-1,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0219 10824 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10825 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10826 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10827 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10828 10829 000010 000000 F34640: AA1=XX ;INITIAL C(AC) 10830 037405 200 03 0 00 044011 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10831 000000 AA2=0 ;INITIAL C(AC+1) 10832 037406 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10833 777777 777777 AEE=-1 ;INITIAL C(E) 10834 037407 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10835 037410 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10836 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10837 037411 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10838 037412 003 03 0 00 034641 ER3 AC,34641 ;HIGH PRODUCT FAILED 10839 777770 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10840 037413 312 04 0 00 044142 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10841 037414 004 04 0 00 034642 ER4 AC+1,34642 ;LOW PRODUCT FAILED 10842 777777 777777 AEE=-1 ;INITIAL C(E) 10843 037415 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10844 037416 005 01 0 00 034643 ER5 E,34643 ;C(E) WAS CLOBBERED 10845 037417 321 05 0 00 037405 JUMPL AC+2,F34640 ;LOOP ON ERROR SWITCH^ 10846 10847 003465 ADR=ADR+1 10848 000020 000000 XX=XX+XX 10849 IFE XX, 10850 10851 ;MULTIPLY -1 BY A RIPPLED 1 10852 IFG XX,< 10853 777777 777777 V1=-1 10854 777760 000000 V2=-XX> 10855 IFL XX,< 10856 V1=1 10857 V2=0> 10858 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10859 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10860 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10861 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10862 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10863 10864 000020 000000 F34650: AA1=XX ;INITIAL C(AC) 10865 037420 200 03 0 00 044012 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10866 000000 AA2=0 ;INITIAL C(AC+1) 10867 037421 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10868 777777 777777 AEE=-1 ;INITIAL C(E) 10869 037422 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10870 037423 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10871 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10872 037424 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10873 037425 003 03 0 00 034651 ER3 AC,34651 ;HIGH PRODUCT FAILED 10874 777760 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10875 037426 312 04 0 00 044143 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10876 037427 004 04 0 00 034652 ER4 AC+1,34652 ;LOW PRODUCT FAILED 10877 777777 777777 AEE=-1 ;INITIAL C(E) 10878 037430 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0220 10879 037431 005 01 0 00 034653 ER5 E,34653 ;C(E) WAS CLOBBERED 10880 037432 321 05 0 00 037420 JUMPL AC+2,F34650 ;LOOP ON ERROR SWITCH^ 10881 10882 003466 ADR=ADR+1 10883 000040 000000 XX=XX+XX 10884 IFE XX, 10885 10886 ;MULTIPLY -1 BY A RIPPLED 1 10887 IFG XX,< 10888 777777 777777 V1=-1 10889 777740 000000 V2=-XX> 10890 IFL XX,< 10891 V1=1 10892 V2=0> 10893 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10894 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10895 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10896 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10897 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10898 10899 000040 000000 F34660: AA1=XX ;INITIAL C(AC) 10900 037433 200 03 0 00 044013 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10901 000000 AA2=0 ;INITIAL C(AC+1) 10902 037434 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10903 777777 777777 AEE=-1 ;INITIAL C(E) 10904 037435 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10905 037436 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10906 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10907 037437 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10908 037440 003 03 0 00 034661 ER3 AC,34661 ;HIGH PRODUCT FAILED 10909 777740 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10910 037441 312 04 0 00 044144 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10911 037442 004 04 0 00 034662 ER4 AC+1,34662 ;LOW PRODUCT FAILED 10912 777777 777777 AEE=-1 ;INITIAL C(E) 10913 037443 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10914 037444 005 01 0 00 034663 ER5 E,34663 ;C(E) WAS CLOBBERED 10915 037445 321 05 0 00 037433 JUMPL AC+2,F34660 ;LOOP ON ERROR SWITCH^ 10916 10917 003467 ADR=ADR+1 10918 000100 000000 XX=XX+XX 10919 IFE XX, 10920 10921 ;MULTIPLY -1 BY A RIPPLED 1 10922 IFG XX,< 10923 777777 777777 V1=-1 10924 777700 000000 V2=-XX> 10925 IFL XX,< 10926 V1=1 10927 V2=0> 10928 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10929 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10930 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10931 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10932 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10933 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0221 10934 000100 000000 F34670: AA1=XX ;INITIAL C(AC) 10935 037446 200 03 0 00 044014 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10936 000000 AA2=0 ;INITIAL C(AC+1) 10937 037447 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10938 777777 777777 AEE=-1 ;INITIAL C(E) 10939 037450 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10940 037451 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10941 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10942 037452 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10943 037453 003 03 0 00 034671 ER3 AC,34671 ;HIGH PRODUCT FAILED 10944 777700 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10945 037454 312 04 0 00 044145 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10946 037455 004 04 0 00 034672 ER4 AC+1,34672 ;LOW PRODUCT FAILED 10947 777777 777777 AEE=-1 ;INITIAL C(E) 10948 037456 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10949 037457 005 01 0 00 034673 ER5 E,34673 ;C(E) WAS CLOBBERED 10950 037460 321 05 0 00 037446 JUMPL AC+2,F34670 ;LOOP ON ERROR SWITCH^ 10951 10952 003470 ADR=ADR+1 10953 000200 000000 XX=XX+XX 10954 IFE XX, 10955 10956 ;MULTIPLY -1 BY A RIPPLED 1 10957 IFG XX,< 10958 777777 777777 V1=-1 10959 777600 000000 V2=-XX> 10960 IFL XX,< 10961 V1=1 10962 V2=0> 10963 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10964 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 10965 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 10966 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 10967 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 10968 10969 000200 000000 F34700: AA1=XX ;INITIAL C(AC) 10970 037461 200 03 0 00 044015 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 10971 000000 AA2=0 ;INITIAL C(AC+1) 10972 037462 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 10973 777777 777777 AEE=-1 ;INITIAL C(E) 10974 037463 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 10975 037464 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 10976 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 10977 037465 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 10978 037466 003 03 0 00 034701 ER3 AC,34701 ;HIGH PRODUCT FAILED 10979 777600 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 10980 037467 312 04 0 00 044146 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 10981 037470 004 04 0 00 034702 ER4 AC+1,34702 ;LOW PRODUCT FAILED 10982 777777 777777 AEE=-1 ;INITIAL C(E) 10983 037471 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 10984 037472 005 01 0 00 034703 ER5 E,34703 ;C(E) WAS CLOBBERED 10985 037473 321 05 0 00 037461 JUMPL AC+2,F34700 ;LOOP ON ERROR SWITCH^ 10986 10987 003471 ADR=ADR+1 10988 000400 000000 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0222 10989 IFE XX, 10990 10991 ;MULTIPLY -1 BY A RIPPLED 1 10992 IFG XX,< 10993 777777 777777 V1=-1 10994 777400 000000 V2=-XX> 10995 IFL XX,< 10996 V1=1 10997 V2=0> 10998 MOP1 (\ADR,XX,0,-1,V1,V2)^ 10999 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11000 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11001 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11002 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11003 11004 000400 000000 F34710: AA1=XX ;INITIAL C(AC) 11005 037474 200 03 0 00 044016 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11006 000000 AA2=0 ;INITIAL C(AC+1) 11007 037475 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11008 777777 777777 AEE=-1 ;INITIAL C(E) 11009 037476 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11010 037477 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11011 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11012 037500 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11013 037501 003 03 0 00 034711 ER3 AC,34711 ;HIGH PRODUCT FAILED 11014 777400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11015 037502 312 04 0 00 044147 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11016 037503 004 04 0 00 034712 ER4 AC+1,34712 ;LOW PRODUCT FAILED 11017 777777 777777 AEE=-1 ;INITIAL C(E) 11018 037504 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11019 037505 005 01 0 00 034713 ER5 E,34713 ;C(E) WAS CLOBBERED 11020 037506 321 05 0 00 037474 JUMPL AC+2,F34710 ;LOOP ON ERROR SWITCH^ 11021 11022 003472 ADR=ADR+1 11023 001000 000000 XX=XX+XX 11024 IFE XX, 11025 11026 ;MULTIPLY -1 BY A RIPPLED 1 11027 IFG XX,< 11028 777777 777777 V1=-1 11029 777000 000000 V2=-XX> 11030 IFL XX,< 11031 V1=1 11032 V2=0> 11033 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11034 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11035 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11036 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11037 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11038 11039 001000 000000 F34720: AA1=XX ;INITIAL C(AC) 11040 037507 200 03 0 00 044017 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11041 000000 AA2=0 ;INITIAL C(AC+1) 11042 037510 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11043 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0223 11044 037511 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11045 037512 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11046 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11047 037513 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11048 037514 003 03 0 00 034721 ER3 AC,34721 ;HIGH PRODUCT FAILED 11049 777000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11050 037515 312 04 0 00 044150 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11051 037516 004 04 0 00 034722 ER4 AC+1,34722 ;LOW PRODUCT FAILED 11052 777777 777777 AEE=-1 ;INITIAL C(E) 11053 037517 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11054 037520 005 01 0 00 034723 ER5 E,34723 ;C(E) WAS CLOBBERED 11055 037521 321 05 0 00 037507 JUMPL AC+2,F34720 ;LOOP ON ERROR SWITCH^ 11056 11057 003473 ADR=ADR+1 11058 002000 000000 XX=XX+XX 11059 IFE XX, 11060 11061 ;MULTIPLY -1 BY A RIPPLED 1 11062 IFG XX,< 11063 777777 777777 V1=-1 11064 776000 000000 V2=-XX> 11065 IFL XX,< 11066 V1=1 11067 V2=0> 11068 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11069 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11070 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11071 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11072 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11073 11074 002000 000000 F34730: AA1=XX ;INITIAL C(AC) 11075 037522 200 03 0 00 044020 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11076 000000 AA2=0 ;INITIAL C(AC+1) 11077 037523 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11078 777777 777777 AEE=-1 ;INITIAL C(E) 11079 037524 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11080 037525 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11081 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11082 037526 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11083 037527 003 03 0 00 034731 ER3 AC,34731 ;HIGH PRODUCT FAILED 11084 776000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11085 037530 312 04 0 00 044151 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11086 037531 004 04 0 00 034732 ER4 AC+1,34732 ;LOW PRODUCT FAILED 11087 777777 777777 AEE=-1 ;INITIAL C(E) 11088 037532 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11089 037533 005 01 0 00 034733 ER5 E,34733 ;C(E) WAS CLOBBERED 11090 037534 321 05 0 00 037522 JUMPL AC+2,F34730 ;LOOP ON ERROR SWITCH^ 11091 11092 003474 ADR=ADR+1 11093 004000 000000 XX=XX+XX 11094 IFE XX, 11095 11096 ;MULTIPLY -1 BY A RIPPLED 1 11097 IFG XX,< 11098 777777 777777 V1=-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0224 11099 774000 000000 V2=-XX> 11100 IFL XX,< 11101 V1=1 11102 V2=0> 11103 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11104 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11105 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11106 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11107 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11108 11109 004000 000000 F34740: AA1=XX ;INITIAL C(AC) 11110 037535 200 03 0 00 044021 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11111 000000 AA2=0 ;INITIAL C(AC+1) 11112 037536 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11113 777777 777777 AEE=-1 ;INITIAL C(E) 11114 037537 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11115 037540 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11116 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11117 037541 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11118 037542 003 03 0 00 034741 ER3 AC,34741 ;HIGH PRODUCT FAILED 11119 774000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11120 037543 312 04 0 00 044152 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11121 037544 004 04 0 00 034742 ER4 AC+1,34742 ;LOW PRODUCT FAILED 11122 777777 777777 AEE=-1 ;INITIAL C(E) 11123 037545 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11124 037546 005 01 0 00 034743 ER5 E,34743 ;C(E) WAS CLOBBERED 11125 037547 321 05 0 00 037535 JUMPL AC+2,F34740 ;LOOP ON ERROR SWITCH^ 11126 11127 003475 ADR=ADR+1 11128 010000 000000 XX=XX+XX 11129 IFE XX, 11130 11131 ;MULTIPLY -1 BY A RIPPLED 1 11132 IFG XX,< 11133 777777 777777 V1=-1 11134 770000 000000 V2=-XX> 11135 IFL XX,< 11136 V1=1 11137 V2=0> 11138 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11139 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11140 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11141 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11142 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11143 11144 010000 000000 F34750: AA1=XX ;INITIAL C(AC) 11145 037550 200 03 0 00 044022 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11146 000000 AA2=0 ;INITIAL C(AC+1) 11147 037551 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11148 777777 777777 AEE=-1 ;INITIAL C(E) 11149 037552 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11150 037553 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11151 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11152 037554 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11153 037555 003 03 0 00 034751 ER3 AC,34751 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0225 11154 770000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11155 037556 312 04 0 00 044153 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11156 037557 004 04 0 00 034752 ER4 AC+1,34752 ;LOW PRODUCT FAILED 11157 777777 777777 AEE=-1 ;INITIAL C(E) 11158 037560 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11159 037561 005 01 0 00 034753 ER5 E,34753 ;C(E) WAS CLOBBERED 11160 037562 321 05 0 00 037550 JUMPL AC+2,F34750 ;LOOP ON ERROR SWITCH^ 11161 11162 003476 ADR=ADR+1 11163 020000 000000 XX=XX+XX 11164 IFE XX, 11165 11166 ;MULTIPLY -1 BY A RIPPLED 1 11167 IFG XX,< 11168 777777 777777 V1=-1 11169 760000 000000 V2=-XX> 11170 IFL XX,< 11171 V1=1 11172 V2=0> 11173 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11174 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11175 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11176 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11177 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11178 11179 020000 000000 F34760: AA1=XX ;INITIAL C(AC) 11180 037563 200 03 0 00 044023 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11181 000000 AA2=0 ;INITIAL C(AC+1) 11182 037564 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11183 777777 777777 AEE=-1 ;INITIAL C(E) 11184 037565 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11185 037566 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11186 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11187 037567 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11188 037570 003 03 0 00 034761 ER3 AC,34761 ;HIGH PRODUCT FAILED 11189 760000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11190 037571 312 04 0 00 044154 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11191 037572 004 04 0 00 034762 ER4 AC+1,34762 ;LOW PRODUCT FAILED 11192 777777 777777 AEE=-1 ;INITIAL C(E) 11193 037573 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11194 037574 005 01 0 00 034763 ER5 E,34763 ;C(E) WAS CLOBBERED 11195 037575 321 05 0 00 037563 JUMPL AC+2,F34760 ;LOOP ON ERROR SWITCH^ 11196 11197 003477 ADR=ADR+1 11198 040000 000000 XX=XX+XX 11199 IFE XX, 11200 11201 ;MULTIPLY -1 BY A RIPPLED 1 11202 IFG XX,< 11203 777777 777777 V1=-1 11204 740000 000000 V2=-XX> 11205 IFL XX,< 11206 V1=1 11207 V2=0> 11208 MOP1 (\ADR,XX,0,-1,V1,V2)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-21 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0226 11209 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11210 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11211 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11212 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11213 11214 040000 000000 F34770: AA1=XX ;INITIAL C(AC) 11215 037576 200 03 0 00 044024 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11216 000000 AA2=0 ;INITIAL C(AC+1) 11217 037577 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11218 777777 777777 AEE=-1 ;INITIAL C(E) 11219 037600 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11220 037601 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11221 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11222 037602 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11223 037603 003 03 0 00 034771 ER3 AC,34771 ;HIGH PRODUCT FAILED 11224 740000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11225 037604 312 04 0 00 044155 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11226 037605 004 04 0 00 034772 ER4 AC+1,34772 ;LOW PRODUCT FAILED 11227 777777 777777 AEE=-1 ;INITIAL C(E) 11228 037606 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11229 037607 005 01 0 00 034773 ER5 E,34773 ;C(E) WAS CLOBBERED 11230 037610 321 05 0 00 037576 JUMPL AC+2,F34770 ;LOOP ON ERROR SWITCH^ 11231 11232 003500 ADR=ADR+1 11233 100000 000000 XX=XX+XX 11234 IFE XX, 11235 11236 ;MULTIPLY -1 BY A RIPPLED 1 11237 IFG XX,< 11238 777777 777777 V1=-1 11239 700000 000000 V2=-XX> 11240 IFL XX,< 11241 V1=1 11242 V2=0> 11243 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11244 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11245 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11246 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11247 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11248 11249 100000 000000 F35000: AA1=XX ;INITIAL C(AC) 11250 037611 200 03 0 00 044025 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11251 000000 AA2=0 ;INITIAL C(AC+1) 11252 037612 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11253 777777 777777 AEE=-1 ;INITIAL C(E) 11254 037613 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11255 037614 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11256 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11257 037615 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11258 037616 003 03 0 00 035001 ER3 AC,35001 ;HIGH PRODUCT FAILED 11259 700000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11260 037617 312 04 0 00 044156 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11261 037620 004 04 0 00 035002 ER4 AC+1,35002 ;LOW PRODUCT FAILED 11262 777777 777777 AEE=-1 ;INITIAL C(E) 11263 037621 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-22 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0227 11264 037622 005 01 0 00 035003 ER5 E,35003 ;C(E) WAS CLOBBERED 11265 037623 321 05 0 00 037611 JUMPL AC+2,F35000 ;LOOP ON ERROR SWITCH^ 11266 11267 003501 ADR=ADR+1 11268 200000 000000 XX=XX+XX 11269 IFE XX, 11270 11271 ;MULTIPLY -1 BY A RIPPLED 1 11272 IFG XX,< 11273 777777 777777 V1=-1 11274 600000 000000 V2=-XX> 11275 IFL XX,< 11276 V1=1 11277 V2=0> 11278 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11279 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11280 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11281 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11282 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11283 11284 200000 000000 F35010: AA1=XX ;INITIAL C(AC) 11285 037624 200 03 0 00 044026 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11286 000000 AA2=0 ;INITIAL C(AC+1) 11287 037625 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11288 777777 777777 AEE=-1 ;INITIAL C(E) 11289 037626 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11290 037627 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11291 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11292 037630 312 03 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11293 037631 003 03 0 00 035011 ER3 AC,35011 ;HIGH PRODUCT FAILED 11294 600000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11295 037632 312 04 0 00 044157 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11296 037633 004 04 0 00 035012 ER4 AC+1,35012 ;LOW PRODUCT FAILED 11297 777777 777777 AEE=-1 ;INITIAL C(E) 11298 037634 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11299 037635 005 01 0 00 035013 ER5 E,35013 ;C(E) WAS CLOBBERED 11300 037636 321 05 0 00 037624 JUMPL AC+2,F35010 ;LOOP ON ERROR SWITCH^ 11301 11302 003502 ADR=ADR+1 11303 400000 000000 XX=XX+XX 11304 IFE XX, 11305 11306 ;MULTIPLY -1 BY A RIPPLED 1 11307 IFG XX,< 11308 V1=-1 11309 V2=-XX> 11310 IFL XX,< 11311 000001 V1=1 11312 000000 V2=0> 11313 MOP1 (\ADR,XX,0,-1,V1,V2)^ 11314 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 11315 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11316 ;AND E AGAINST [V1], [V2] AND [-1] RESPECTIVELY. 11317 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11318 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 13-23 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0228 11319 400000 000000 F35020: AA1=XX ;INITIAL C(AC) 11320 037637 200 03 0 00 044027 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 11321 000000 AA2=0 ;INITIAL C(AC+1) 11322 037640 200 04 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11323 777777 777777 AEE=-1 ;INITIAL C(E) 11324 037641 200 01 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 11325 037642 224 03 0 00 000001 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11326 000001 AR1=V1 ;EXPECTED RESULT IN AC 11327 037643 312 03 0 00 043764 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11328 037644 003 03 0 00 035021 ER3 AC,35021 ;HIGH PRODUCT FAILED 11329 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 11330 037645 312 04 0 00 043762 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 11331 037646 004 04 0 00 035022 ER4 AC+1,35022 ;LOW PRODUCT FAILED 11332 777777 777777 AEE=-1 ;INITIAL C(E) 11333 037647 312 01 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 11334 037650 005 01 0 00 035023 ER5 E,35023 ;C(E) WAS CLOBBERED 11335 037651 321 05 0 00 037637 JUMPL AC+2,F35020 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0229 11336 000002 AC=2 11337 000000 E=&17 11338 SAVEAC (1,1)^ 11339 037652 201 04 0 00 037652 MOVEI AC+2,. ;SAVE TEST PC 11340 037653 202 04 0 00 030051 MOVEM AC+2,TESTPC 11341 037654 201 04 0 00 000004 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11342 037655 202 04 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11343 000000 XX=0 11344 11345 REPEAT ^D36,< 11346 ADR=ADR+1 11347 XX=XX+XX+1 11348 IFE , 11349 11350 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11351 IFL XX, 11352 IFG XX, 11353 MOP1 (\ADR,1,0,XX,V1,XX)> 11354 11355 003503 ADR=ADR+1 11356 000001 XX=XX+XX+1 11357 777777 777776 IFE , 11358 11359 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11360 777777 777777 IFL XX, 11361 IFG XX, 11362 MOP1 (\ADR,1,0,XX,V1,XX)^ 11363 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11364 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11365 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11366 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11367 11368 000001 F35030: AA1=1 ;INITIAL C(AC) 11369 037656 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11370 000000 AA2=0 ;INITIAL C(AC+1) 11371 037657 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11372 777777 777776 AEE=XX ;INITIAL C(E) 11373 037660 200 00 0 00 044030 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11374 037661 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11375 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11376 037662 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11377 037663 003 02 0 00 035031 ER3 AC,35031 ;HIGH PRODUCT FAILED 11378 777777 777776 AR2=XX ;EXPECTED RESULT IN AC+1 11379 037664 312 03 0 00 044030 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11380 037665 004 03 0 00 035032 ER4 AC+1,35032 ;LOW PRODUCT FAILED 11381 777777 777776 AEE=XX ;INITIAL C(E) 11382 037666 312 00 0 00 044030 CAME E,[XX] ;WAS C(E) CLOBBERED? 11383 037667 005 00 0 00 035033 ER5 E,35033 ;C(E) WAS CLOBBERED 11384 037670 321 04 0 00 037656 JUMPL AC+2,F35030 ;LOOP ON ERROR SWITCH^ 11385 11386 003504 ADR=ADR+1 11387 777777 777775 XX=XX+XX+1 11388 IFE , 11389 11390 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0230 11391 777777 777777 IFL XX, 11392 IFG XX, 11393 MOP1 (\ADR,1,0,XX,V1,XX)^ 11394 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11395 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11396 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11397 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11398 11399 000001 F35040: AA1=1 ;INITIAL C(AC) 11400 037671 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11401 000000 AA2=0 ;INITIAL C(AC+1) 11402 037672 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11403 777777 777775 AEE=XX ;INITIAL C(E) 11404 037673 200 00 0 00 044031 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11405 037674 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11406 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11407 037675 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11408 037676 003 02 0 00 035041 ER3 AC,35041 ;HIGH PRODUCT FAILED 11409 777777 777775 AR2=XX ;EXPECTED RESULT IN AC+1 11410 037677 312 03 0 00 044031 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11411 037700 004 03 0 00 035042 ER4 AC+1,35042 ;LOW PRODUCT FAILED 11412 777777 777775 AEE=XX ;INITIAL C(E) 11413 037701 312 00 0 00 044031 CAME E,[XX] ;WAS C(E) CLOBBERED? 11414 037702 005 00 0 00 035043 ER5 E,35043 ;C(E) WAS CLOBBERED 11415 037703 321 04 0 00 037671 JUMPL AC+2,F35040 ;LOOP ON ERROR SWITCH^ 11416 11417 003505 ADR=ADR+1 11418 777777 777773 XX=XX+XX+1 11419 IFE , 11420 11421 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11422 777777 777777 IFL XX, 11423 IFG XX, 11424 MOP1 (\ADR,1,0,XX,V1,XX)^ 11425 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11426 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11427 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11428 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11429 11430 000001 F35050: AA1=1 ;INITIAL C(AC) 11431 037704 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11432 000000 AA2=0 ;INITIAL C(AC+1) 11433 037705 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11434 777777 777773 AEE=XX ;INITIAL C(E) 11435 037706 200 00 0 00 044032 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11436 037707 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11437 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11438 037710 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11439 037711 003 02 0 00 035051 ER3 AC,35051 ;HIGH PRODUCT FAILED 11440 777777 777773 AR2=XX ;EXPECTED RESULT IN AC+1 11441 037712 312 03 0 00 044032 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11442 037713 004 03 0 00 035052 ER4 AC+1,35052 ;LOW PRODUCT FAILED 11443 777777 777773 AEE=XX ;INITIAL C(E) 11444 037714 312 00 0 00 044032 CAME E,[XX] ;WAS C(E) CLOBBERED? 11445 037715 005 00 0 00 035053 ER5 E,35053 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0231 11446 037716 321 04 0 00 037704 JUMPL AC+2,F35050 ;LOOP ON ERROR SWITCH^ 11447 11448 003506 ADR=ADR+1 11449 777777 777767 XX=XX+XX+1 11450 IFE , 11451 11452 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11453 777777 777777 IFL XX, 11454 IFG XX, 11455 MOP1 (\ADR,1,0,XX,V1,XX)^ 11456 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11457 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11458 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11459 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11460 11461 000001 F35060: AA1=1 ;INITIAL C(AC) 11462 037717 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11463 000000 AA2=0 ;INITIAL C(AC+1) 11464 037720 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11465 777777 777767 AEE=XX ;INITIAL C(E) 11466 037721 200 00 0 00 044033 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11467 037722 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11468 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11469 037723 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11470 037724 003 02 0 00 035061 ER3 AC,35061 ;HIGH PRODUCT FAILED 11471 777777 777767 AR2=XX ;EXPECTED RESULT IN AC+1 11472 037725 312 03 0 00 044033 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11473 037726 004 03 0 00 035062 ER4 AC+1,35062 ;LOW PRODUCT FAILED 11474 777777 777767 AEE=XX ;INITIAL C(E) 11475 037727 312 00 0 00 044033 CAME E,[XX] ;WAS C(E) CLOBBERED? 11476 037730 005 00 0 00 035063 ER5 E,35063 ;C(E) WAS CLOBBERED 11477 037731 321 04 0 00 037717 JUMPL AC+2,F35060 ;LOOP ON ERROR SWITCH^ 11478 11479 003507 ADR=ADR+1 11480 777777 777757 XX=XX+XX+1 11481 IFE , 11482 11483 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11484 777777 777777 IFL XX, 11485 IFG XX, 11486 MOP1 (\ADR,1,0,XX,V1,XX)^ 11487 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11488 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11489 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11490 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11491 11492 000001 F35070: AA1=1 ;INITIAL C(AC) 11493 037732 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11494 000000 AA2=0 ;INITIAL C(AC+1) 11495 037733 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11496 777777 777757 AEE=XX ;INITIAL C(E) 11497 037734 200 00 0 00 044034 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11498 037735 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11499 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11500 037736 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0232 11501 037737 003 02 0 00 035071 ER3 AC,35071 ;HIGH PRODUCT FAILED 11502 777777 777757 AR2=XX ;EXPECTED RESULT IN AC+1 11503 037740 312 03 0 00 044034 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11504 037741 004 03 0 00 035072 ER4 AC+1,35072 ;LOW PRODUCT FAILED 11505 777777 777757 AEE=XX ;INITIAL C(E) 11506 037742 312 00 0 00 044034 CAME E,[XX] ;WAS C(E) CLOBBERED? 11507 037743 005 00 0 00 035073 ER5 E,35073 ;C(E) WAS CLOBBERED 11508 037744 321 04 0 00 037732 JUMPL AC+2,F35070 ;LOOP ON ERROR SWITCH^ 11509 11510 003510 ADR=ADR+1 11511 777777 777737 XX=XX+XX+1 11512 IFE , 11513 11514 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11515 777777 777777 IFL XX, 11516 IFG XX, 11517 MOP1 (\ADR,1,0,XX,V1,XX)^ 11518 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11519 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11520 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11521 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11522 11523 000001 F35100: AA1=1 ;INITIAL C(AC) 11524 037745 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11525 000000 AA2=0 ;INITIAL C(AC+1) 11526 037746 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11527 777777 777737 AEE=XX ;INITIAL C(E) 11528 037747 200 00 0 00 044035 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11529 037750 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11530 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11531 037751 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11532 037752 003 02 0 00 035101 ER3 AC,35101 ;HIGH PRODUCT FAILED 11533 777777 777737 AR2=XX ;EXPECTED RESULT IN AC+1 11534 037753 312 03 0 00 044035 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11535 037754 004 03 0 00 035102 ER4 AC+1,35102 ;LOW PRODUCT FAILED 11536 777777 777737 AEE=XX ;INITIAL C(E) 11537 037755 312 00 0 00 044035 CAME E,[XX] ;WAS C(E) CLOBBERED? 11538 037756 005 00 0 00 035103 ER5 E,35103 ;C(E) WAS CLOBBERED 11539 037757 321 04 0 00 037745 JUMPL AC+2,F35100 ;LOOP ON ERROR SWITCH^ 11540 11541 003511 ADR=ADR+1 11542 777777 777677 XX=XX+XX+1 11543 IFE , 11544 11545 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11546 777777 777777 IFL XX, 11547 IFG XX, 11548 MOP1 (\ADR,1,0,XX,V1,XX)^ 11549 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11550 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11551 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11552 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11553 11554 000001 F35110: AA1=1 ;INITIAL C(AC) 11555 037760 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0233 11556 000000 AA2=0 ;INITIAL C(AC+1) 11557 037761 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11558 777777 777677 AEE=XX ;INITIAL C(E) 11559 037762 200 00 0 00 044036 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11560 037763 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11561 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11562 037764 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11563 037765 003 02 0 00 035111 ER3 AC,35111 ;HIGH PRODUCT FAILED 11564 777777 777677 AR2=XX ;EXPECTED RESULT IN AC+1 11565 037766 312 03 0 00 044036 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11566 037767 004 03 0 00 035112 ER4 AC+1,35112 ;LOW PRODUCT FAILED 11567 777777 777677 AEE=XX ;INITIAL C(E) 11568 037770 312 00 0 00 044036 CAME E,[XX] ;WAS C(E) CLOBBERED? 11569 037771 005 00 0 00 035113 ER5 E,35113 ;C(E) WAS CLOBBERED 11570 037772 321 04 0 00 037760 JUMPL AC+2,F35110 ;LOOP ON ERROR SWITCH^ 11571 11572 003512 ADR=ADR+1 11573 777777 777577 XX=XX+XX+1 11574 IFE , 11575 11576 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11577 777777 777777 IFL XX, 11578 IFG XX, 11579 MOP1 (\ADR,1,0,XX,V1,XX)^ 11580 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11581 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11582 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11583 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11584 11585 000001 F35120: AA1=1 ;INITIAL C(AC) 11586 037773 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11587 000000 AA2=0 ;INITIAL C(AC+1) 11588 037774 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11589 777777 777577 AEE=XX ;INITIAL C(E) 11590 037775 200 00 0 00 044037 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11591 037776 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11592 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11593 037777 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11594 040000 003 02 0 00 035121 ER3 AC,35121 ;HIGH PRODUCT FAILED 11595 777777 777577 AR2=XX ;EXPECTED RESULT IN AC+1 11596 040001 312 03 0 00 044037 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11597 040002 004 03 0 00 035122 ER4 AC+1,35122 ;LOW PRODUCT FAILED 11598 777777 777577 AEE=XX ;INITIAL C(E) 11599 040003 312 00 0 00 044037 CAME E,[XX] ;WAS C(E) CLOBBERED? 11600 040004 005 00 0 00 035123 ER5 E,35123 ;C(E) WAS CLOBBERED 11601 040005 321 04 0 00 037773 JUMPL AC+2,F35120 ;LOOP ON ERROR SWITCH^ 11602 11603 003513 ADR=ADR+1 11604 777777 777377 XX=XX+XX+1 11605 IFE , 11606 11607 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11608 777777 777777 IFL XX, 11609 IFG XX, 11610 MOP1 (\ADR,1,0,XX,V1,XX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0234 11611 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11612 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11613 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11614 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11615 11616 000001 F35130: AA1=1 ;INITIAL C(AC) 11617 040006 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11618 000000 AA2=0 ;INITIAL C(AC+1) 11619 040007 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11620 777777 777377 AEE=XX ;INITIAL C(E) 11621 040010 200 00 0 00 044040 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11622 040011 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11623 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11624 040012 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11625 040013 003 02 0 00 035131 ER3 AC,35131 ;HIGH PRODUCT FAILED 11626 777777 777377 AR2=XX ;EXPECTED RESULT IN AC+1 11627 040014 312 03 0 00 044040 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11628 040015 004 03 0 00 035132 ER4 AC+1,35132 ;LOW PRODUCT FAILED 11629 777777 777377 AEE=XX ;INITIAL C(E) 11630 040016 312 00 0 00 044040 CAME E,[XX] ;WAS C(E) CLOBBERED? 11631 040017 005 00 0 00 035133 ER5 E,35133 ;C(E) WAS CLOBBERED 11632 040020 321 04 0 00 040006 JUMPL AC+2,F35130 ;LOOP ON ERROR SWITCH^ 11633 11634 003514 ADR=ADR+1 11635 777777 776777 XX=XX+XX+1 11636 IFE , 11637 11638 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11639 777777 777777 IFL XX, 11640 IFG XX, 11641 MOP1 (\ADR,1,0,XX,V1,XX)^ 11642 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11643 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11644 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11645 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11646 11647 000001 F35140: AA1=1 ;INITIAL C(AC) 11648 040021 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11649 000000 AA2=0 ;INITIAL C(AC+1) 11650 040022 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11651 777777 776777 AEE=XX ;INITIAL C(E) 11652 040023 200 00 0 00 044041 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11653 040024 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11654 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11655 040025 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11656 040026 003 02 0 00 035141 ER3 AC,35141 ;HIGH PRODUCT FAILED 11657 777777 776777 AR2=XX ;EXPECTED RESULT IN AC+1 11658 040027 312 03 0 00 044041 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11659 040030 004 03 0 00 035142 ER4 AC+1,35142 ;LOW PRODUCT FAILED 11660 777777 776777 AEE=XX ;INITIAL C(E) 11661 040031 312 00 0 00 044041 CAME E,[XX] ;WAS C(E) CLOBBERED? 11662 040032 005 00 0 00 035143 ER5 E,35143 ;C(E) WAS CLOBBERED 11663 040033 321 04 0 00 040021 JUMPL AC+2,F35140 ;LOOP ON ERROR SWITCH^ 11664 11665 003515 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0235 11666 777777 775777 XX=XX+XX+1 11667 IFE , 11668 11669 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11670 777777 777777 IFL XX, 11671 IFG XX, 11672 MOP1 (\ADR,1,0,XX,V1,XX)^ 11673 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11674 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11675 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11676 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11677 11678 000001 F35150: AA1=1 ;INITIAL C(AC) 11679 040034 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11680 000000 AA2=0 ;INITIAL C(AC+1) 11681 040035 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11682 777777 775777 AEE=XX ;INITIAL C(E) 11683 040036 200 00 0 00 044042 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11684 040037 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11685 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11686 040040 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11687 040041 003 02 0 00 035151 ER3 AC,35151 ;HIGH PRODUCT FAILED 11688 777777 775777 AR2=XX ;EXPECTED RESULT IN AC+1 11689 040042 312 03 0 00 044042 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11690 040043 004 03 0 00 035152 ER4 AC+1,35152 ;LOW PRODUCT FAILED 11691 777777 775777 AEE=XX ;INITIAL C(E) 11692 040044 312 00 0 00 044042 CAME E,[XX] ;WAS C(E) CLOBBERED? 11693 040045 005 00 0 00 035153 ER5 E,35153 ;C(E) WAS CLOBBERED 11694 040046 321 04 0 00 040034 JUMPL AC+2,F35150 ;LOOP ON ERROR SWITCH^ 11695 11696 003516 ADR=ADR+1 11697 777777 773777 XX=XX+XX+1 11698 IFE , 11699 11700 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11701 777777 777777 IFL XX, 11702 IFG XX, 11703 MOP1 (\ADR,1,0,XX,V1,XX)^ 11704 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11705 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11706 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11707 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11708 11709 000001 F35160: AA1=1 ;INITIAL C(AC) 11710 040047 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11711 000000 AA2=0 ;INITIAL C(AC+1) 11712 040050 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11713 777777 773777 AEE=XX ;INITIAL C(E) 11714 040051 200 00 0 00 044043 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11715 040052 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11716 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11717 040053 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11718 040054 003 02 0 00 035161 ER3 AC,35161 ;HIGH PRODUCT FAILED 11719 777777 773777 AR2=XX ;EXPECTED RESULT IN AC+1 11720 040055 312 03 0 00 044043 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0236 11721 040056 004 03 0 00 035162 ER4 AC+1,35162 ;LOW PRODUCT FAILED 11722 777777 773777 AEE=XX ;INITIAL C(E) 11723 040057 312 00 0 00 044043 CAME E,[XX] ;WAS C(E) CLOBBERED? 11724 040060 005 00 0 00 035163 ER5 E,35163 ;C(E) WAS CLOBBERED 11725 040061 321 04 0 00 040047 JUMPL AC+2,F35160 ;LOOP ON ERROR SWITCH^ 11726 11727 003517 ADR=ADR+1 11728 777777 767777 XX=XX+XX+1 11729 IFE , 11730 11731 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11732 777777 777777 IFL XX, 11733 IFG XX, 11734 MOP1 (\ADR,1,0,XX,V1,XX)^ 11735 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11736 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11737 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11738 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11739 11740 000001 F35170: AA1=1 ;INITIAL C(AC) 11741 040062 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11742 000000 AA2=0 ;INITIAL C(AC+1) 11743 040063 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11744 777777 767777 AEE=XX ;INITIAL C(E) 11745 040064 200 00 0 00 044044 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11746 040065 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11747 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11748 040066 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11749 040067 003 02 0 00 035171 ER3 AC,35171 ;HIGH PRODUCT FAILED 11750 777777 767777 AR2=XX ;EXPECTED RESULT IN AC+1 11751 040070 312 03 0 00 044044 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11752 040071 004 03 0 00 035172 ER4 AC+1,35172 ;LOW PRODUCT FAILED 11753 777777 767777 AEE=XX ;INITIAL C(E) 11754 040072 312 00 0 00 044044 CAME E,[XX] ;WAS C(E) CLOBBERED? 11755 040073 005 00 0 00 035173 ER5 E,35173 ;C(E) WAS CLOBBERED 11756 040074 321 04 0 00 040062 JUMPL AC+2,F35170 ;LOOP ON ERROR SWITCH^ 11757 11758 003520 ADR=ADR+1 11759 777777 757777 XX=XX+XX+1 11760 IFE , 11761 11762 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11763 777777 777777 IFL XX, 11764 IFG XX, 11765 MOP1 (\ADR,1,0,XX,V1,XX)^ 11766 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11767 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11768 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11769 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11770 11771 000001 F35200: AA1=1 ;INITIAL C(AC) 11772 040075 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11773 000000 AA2=0 ;INITIAL C(AC+1) 11774 040076 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11775 777777 757777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0237 11776 040077 200 00 0 00 044045 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11777 040100 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11778 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11779 040101 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11780 040102 003 02 0 00 035201 ER3 AC,35201 ;HIGH PRODUCT FAILED 11781 777777 757777 AR2=XX ;EXPECTED RESULT IN AC+1 11782 040103 312 03 0 00 044045 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11783 040104 004 03 0 00 035202 ER4 AC+1,35202 ;LOW PRODUCT FAILED 11784 777777 757777 AEE=XX ;INITIAL C(E) 11785 040105 312 00 0 00 044045 CAME E,[XX] ;WAS C(E) CLOBBERED? 11786 040106 005 00 0 00 035203 ER5 E,35203 ;C(E) WAS CLOBBERED 11787 040107 321 04 0 00 040075 JUMPL AC+2,F35200 ;LOOP ON ERROR SWITCH^ 11788 11789 003521 ADR=ADR+1 11790 777777 737777 XX=XX+XX+1 11791 IFE , 11792 11793 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11794 777777 777777 IFL XX, 11795 IFG XX, 11796 MOP1 (\ADR,1,0,XX,V1,XX)^ 11797 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11798 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11799 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11800 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11801 11802 000001 F35210: AA1=1 ;INITIAL C(AC) 11803 040110 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11804 000000 AA2=0 ;INITIAL C(AC+1) 11805 040111 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11806 777777 737777 AEE=XX ;INITIAL C(E) 11807 040112 200 00 0 00 044046 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11808 040113 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11809 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11810 040114 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11811 040115 003 02 0 00 035211 ER3 AC,35211 ;HIGH PRODUCT FAILED 11812 777777 737777 AR2=XX ;EXPECTED RESULT IN AC+1 11813 040116 312 03 0 00 044046 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11814 040117 004 03 0 00 035212 ER4 AC+1,35212 ;LOW PRODUCT FAILED 11815 777777 737777 AEE=XX ;INITIAL C(E) 11816 040120 312 00 0 00 044046 CAME E,[XX] ;WAS C(E) CLOBBERED? 11817 040121 005 00 0 00 035213 ER5 E,35213 ;C(E) WAS CLOBBERED 11818 040122 321 04 0 00 040110 JUMPL AC+2,F35210 ;LOOP ON ERROR SWITCH^ 11819 11820 003522 ADR=ADR+1 11821 777777 677777 XX=XX+XX+1 11822 IFE , 11823 11824 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11825 777777 777777 IFL XX, 11826 IFG XX, 11827 MOP1 (\ADR,1,0,XX,V1,XX)^ 11828 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11829 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11830 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0238 11831 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11832 11833 000001 F35220: AA1=1 ;INITIAL C(AC) 11834 040123 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11835 000000 AA2=0 ;INITIAL C(AC+1) 11836 040124 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11837 777777 677777 AEE=XX ;INITIAL C(E) 11838 040125 200 00 0 00 044047 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11839 040126 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11840 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11841 040127 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11842 040130 003 02 0 00 035221 ER3 AC,35221 ;HIGH PRODUCT FAILED 11843 777777 677777 AR2=XX ;EXPECTED RESULT IN AC+1 11844 040131 312 03 0 00 044047 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11845 040132 004 03 0 00 035222 ER4 AC+1,35222 ;LOW PRODUCT FAILED 11846 777777 677777 AEE=XX ;INITIAL C(E) 11847 040133 312 00 0 00 044047 CAME E,[XX] ;WAS C(E) CLOBBERED? 11848 040134 005 00 0 00 035223 ER5 E,35223 ;C(E) WAS CLOBBERED 11849 040135 321 04 0 00 040123 JUMPL AC+2,F35220 ;LOOP ON ERROR SWITCH^ 11850 11851 003523 ADR=ADR+1 11852 777777 577777 XX=XX+XX+1 11853 IFE , 11854 11855 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11856 777777 777777 IFL XX, 11857 IFG XX, 11858 MOP1 (\ADR,1,0,XX,V1,XX)^ 11859 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11860 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11861 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11862 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11863 11864 000001 F35230: AA1=1 ;INITIAL C(AC) 11865 040136 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11866 000000 AA2=0 ;INITIAL C(AC+1) 11867 040137 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11868 777777 577777 AEE=XX ;INITIAL C(E) 11869 040140 200 00 0 00 044050 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11870 040141 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11871 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11872 040142 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11873 040143 003 02 0 00 035231 ER3 AC,35231 ;HIGH PRODUCT FAILED 11874 777777 577777 AR2=XX ;EXPECTED RESULT IN AC+1 11875 040144 312 03 0 00 044050 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11876 040145 004 03 0 00 035232 ER4 AC+1,35232 ;LOW PRODUCT FAILED 11877 777777 577777 AEE=XX ;INITIAL C(E) 11878 040146 312 00 0 00 044050 CAME E,[XX] ;WAS C(E) CLOBBERED? 11879 040147 005 00 0 00 035233 ER5 E,35233 ;C(E) WAS CLOBBERED 11880 040150 321 04 0 00 040136 JUMPL AC+2,F35230 ;LOOP ON ERROR SWITCH^ 11881 11882 003524 ADR=ADR+1 11883 777777 377777 XX=XX+XX+1 11884 IFE , 11885 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0239 11886 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11887 777777 777777 IFL XX, 11888 IFG XX, 11889 MOP1 (\ADR,1,0,XX,V1,XX)^ 11890 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11891 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11892 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11893 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11894 11895 000001 F35240: AA1=1 ;INITIAL C(AC) 11896 040151 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11897 000000 AA2=0 ;INITIAL C(AC+1) 11898 040152 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11899 777777 377777 AEE=XX ;INITIAL C(E) 11900 040153 200 00 0 00 044051 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11901 040154 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11902 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11903 040155 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11904 040156 003 02 0 00 035241 ER3 AC,35241 ;HIGH PRODUCT FAILED 11905 777777 377777 AR2=XX ;EXPECTED RESULT IN AC+1 11906 040157 312 03 0 00 044051 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11907 040160 004 03 0 00 035242 ER4 AC+1,35242 ;LOW PRODUCT FAILED 11908 777777 377777 AEE=XX ;INITIAL C(E) 11909 040161 312 00 0 00 044051 CAME E,[XX] ;WAS C(E) CLOBBERED? 11910 040162 005 00 0 00 035243 ER5 E,35243 ;C(E) WAS CLOBBERED 11911 040163 321 04 0 00 040151 JUMPL AC+2,F35240 ;LOOP ON ERROR SWITCH^ 11912 11913 003525 ADR=ADR+1 11914 777776 777777 XX=XX+XX+1 11915 IFE , 11916 11917 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11918 777777 777777 IFL XX, 11919 IFG XX, 11920 MOP1 (\ADR,1,0,XX,V1,XX)^ 11921 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11922 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11923 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11924 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11925 11926 000001 F35250: AA1=1 ;INITIAL C(AC) 11927 040164 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11928 000000 AA2=0 ;INITIAL C(AC+1) 11929 040165 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11930 777776 777777 AEE=XX ;INITIAL C(E) 11931 040166 200 00 0 00 044052 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11932 040167 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11933 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11934 040170 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11935 040171 003 02 0 00 035251 ER3 AC,35251 ;HIGH PRODUCT FAILED 11936 777776 777777 AR2=XX ;EXPECTED RESULT IN AC+1 11937 040172 312 03 0 00 044052 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11938 040173 004 03 0 00 035252 ER4 AC+1,35252 ;LOW PRODUCT FAILED 11939 777776 777777 AEE=XX ;INITIAL C(E) 11940 040174 312 00 0 00 044052 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0240 11941 040175 005 00 0 00 035253 ER5 E,35253 ;C(E) WAS CLOBBERED 11942 040176 321 04 0 00 040164 JUMPL AC+2,F35250 ;LOOP ON ERROR SWITCH^ 11943 11944 003526 ADR=ADR+1 11945 777775 777777 XX=XX+XX+1 11946 IFE , 11947 11948 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11949 777777 777777 IFL XX, 11950 IFG XX, 11951 MOP1 (\ADR,1,0,XX,V1,XX)^ 11952 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11953 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11954 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11955 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11956 11957 000001 F35260: AA1=1 ;INITIAL C(AC) 11958 040177 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11959 000000 AA2=0 ;INITIAL C(AC+1) 11960 040200 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11961 777775 777777 AEE=XX ;INITIAL C(E) 11962 040201 200 00 0 00 044053 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11963 040202 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11964 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 11965 040203 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11966 040204 003 02 0 00 035261 ER3 AC,35261 ;HIGH PRODUCT FAILED 11967 777775 777777 AR2=XX ;EXPECTED RESULT IN AC+1 11968 040205 312 03 0 00 044053 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 11969 040206 004 03 0 00 035262 ER4 AC+1,35262 ;LOW PRODUCT FAILED 11970 777775 777777 AEE=XX ;INITIAL C(E) 11971 040207 312 00 0 00 044053 CAME E,[XX] ;WAS C(E) CLOBBERED? 11972 040210 005 00 0 00 035263 ER5 E,35263 ;C(E) WAS CLOBBERED 11973 040211 321 04 0 00 040177 JUMPL AC+2,F35260 ;LOOP ON ERROR SWITCH^ 11974 11975 003527 ADR=ADR+1 11976 777773 777777 XX=XX+XX+1 11977 IFE , 11978 11979 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 11980 777777 777777 IFL XX, 11981 IFG XX, 11982 MOP1 (\ADR,1,0,XX,V1,XX)^ 11983 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 11984 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 11985 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 11986 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 11987 11988 000001 F35270: AA1=1 ;INITIAL C(AC) 11989 040212 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 11990 000000 AA2=0 ;INITIAL C(AC+1) 11991 040213 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 11992 777773 777777 AEE=XX ;INITIAL C(E) 11993 040214 200 00 0 00 044054 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 11994 040215 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 11995 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0241 11996 040216 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 11997 040217 003 02 0 00 035271 ER3 AC,35271 ;HIGH PRODUCT FAILED 11998 777773 777777 AR2=XX ;EXPECTED RESULT IN AC+1 11999 040220 312 03 0 00 044054 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12000 040221 004 03 0 00 035272 ER4 AC+1,35272 ;LOW PRODUCT FAILED 12001 777773 777777 AEE=XX ;INITIAL C(E) 12002 040222 312 00 0 00 044054 CAME E,[XX] ;WAS C(E) CLOBBERED? 12003 040223 005 00 0 00 035273 ER5 E,35273 ;C(E) WAS CLOBBERED 12004 040224 321 04 0 00 040212 JUMPL AC+2,F35270 ;LOOP ON ERROR SWITCH^ 12005 12006 003530 ADR=ADR+1 12007 777767 777777 XX=XX+XX+1 12008 IFE , 12009 12010 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12011 777777 777777 IFL XX, 12012 IFG XX, 12013 MOP1 (\ADR,1,0,XX,V1,XX)^ 12014 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12015 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12016 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12017 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12018 12019 000001 F35300: AA1=1 ;INITIAL C(AC) 12020 040225 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12021 000000 AA2=0 ;INITIAL C(AC+1) 12022 040226 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12023 777767 777777 AEE=XX ;INITIAL C(E) 12024 040227 200 00 0 00 044055 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12025 040230 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12026 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12027 040231 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12028 040232 003 02 0 00 035301 ER3 AC,35301 ;HIGH PRODUCT FAILED 12029 777767 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12030 040233 312 03 0 00 044055 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12031 040234 004 03 0 00 035302 ER4 AC+1,35302 ;LOW PRODUCT FAILED 12032 777767 777777 AEE=XX ;INITIAL C(E) 12033 040235 312 00 0 00 044055 CAME E,[XX] ;WAS C(E) CLOBBERED? 12034 040236 005 00 0 00 035303 ER5 E,35303 ;C(E) WAS CLOBBERED 12035 040237 321 04 0 00 040225 JUMPL AC+2,F35300 ;LOOP ON ERROR SWITCH^ 12036 12037 003531 ADR=ADR+1 12038 777757 777777 XX=XX+XX+1 12039 IFE , 12040 12041 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12042 777777 777777 IFL XX, 12043 IFG XX, 12044 MOP1 (\ADR,1,0,XX,V1,XX)^ 12045 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12046 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12047 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12048 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12049 12050 000001 F35310: AA1=1 ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0242 12051 040240 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12052 000000 AA2=0 ;INITIAL C(AC+1) 12053 040241 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12054 777757 777777 AEE=XX ;INITIAL C(E) 12055 040242 200 00 0 00 044056 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12056 040243 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12057 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12058 040244 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12059 040245 003 02 0 00 035311 ER3 AC,35311 ;HIGH PRODUCT FAILED 12060 777757 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12061 040246 312 03 0 00 044056 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12062 040247 004 03 0 00 035312 ER4 AC+1,35312 ;LOW PRODUCT FAILED 12063 777757 777777 AEE=XX ;INITIAL C(E) 12064 040250 312 00 0 00 044056 CAME E,[XX] ;WAS C(E) CLOBBERED? 12065 040251 005 00 0 00 035313 ER5 E,35313 ;C(E) WAS CLOBBERED 12066 040252 321 04 0 00 040240 JUMPL AC+2,F35310 ;LOOP ON ERROR SWITCH^ 12067 12068 003532 ADR=ADR+1 12069 777737 777777 XX=XX+XX+1 12070 IFE , 12071 12072 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12073 777777 777777 IFL XX, 12074 IFG XX, 12075 MOP1 (\ADR,1,0,XX,V1,XX)^ 12076 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12077 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12078 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12079 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12080 12081 000001 F35320: AA1=1 ;INITIAL C(AC) 12082 040253 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12083 000000 AA2=0 ;INITIAL C(AC+1) 12084 040254 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12085 777737 777777 AEE=XX ;INITIAL C(E) 12086 040255 200 00 0 00 044057 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12087 040256 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12088 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12089 040257 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12090 040260 003 02 0 00 035321 ER3 AC,35321 ;HIGH PRODUCT FAILED 12091 777737 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12092 040261 312 03 0 00 044057 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12093 040262 004 03 0 00 035322 ER4 AC+1,35322 ;LOW PRODUCT FAILED 12094 777737 777777 AEE=XX ;INITIAL C(E) 12095 040263 312 00 0 00 044057 CAME E,[XX] ;WAS C(E) CLOBBERED? 12096 040264 005 00 0 00 035323 ER5 E,35323 ;C(E) WAS CLOBBERED 12097 040265 321 04 0 00 040253 JUMPL AC+2,F35320 ;LOOP ON ERROR SWITCH^ 12098 12099 003533 ADR=ADR+1 12100 777677 777777 XX=XX+XX+1 12101 IFE , 12102 12103 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12104 777777 777777 IFL XX, 12105 IFG XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0243 12106 MOP1 (\ADR,1,0,XX,V1,XX)^ 12107 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12108 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12109 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12110 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12111 12112 000001 F35330: AA1=1 ;INITIAL C(AC) 12113 040266 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12114 000000 AA2=0 ;INITIAL C(AC+1) 12115 040267 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12116 777677 777777 AEE=XX ;INITIAL C(E) 12117 040270 200 00 0 00 044060 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12118 040271 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12119 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12120 040272 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12121 040273 003 02 0 00 035331 ER3 AC,35331 ;HIGH PRODUCT FAILED 12122 777677 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12123 040274 312 03 0 00 044060 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12124 040275 004 03 0 00 035332 ER4 AC+1,35332 ;LOW PRODUCT FAILED 12125 777677 777777 AEE=XX ;INITIAL C(E) 12126 040276 312 00 0 00 044060 CAME E,[XX] ;WAS C(E) CLOBBERED? 12127 040277 005 00 0 00 035333 ER5 E,35333 ;C(E) WAS CLOBBERED 12128 040300 321 04 0 00 040266 JUMPL AC+2,F35330 ;LOOP ON ERROR SWITCH^ 12129 12130 003534 ADR=ADR+1 12131 777577 777777 XX=XX+XX+1 12132 IFE , 12133 12134 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12135 777777 777777 IFL XX, 12136 IFG XX, 12137 MOP1 (\ADR,1,0,XX,V1,XX)^ 12138 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12139 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12140 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12141 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12142 12143 000001 F35340: AA1=1 ;INITIAL C(AC) 12144 040301 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12145 000000 AA2=0 ;INITIAL C(AC+1) 12146 040302 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12147 777577 777777 AEE=XX ;INITIAL C(E) 12148 040303 200 00 0 00 044061 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12149 040304 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12150 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12151 040305 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12152 040306 003 02 0 00 035341 ER3 AC,35341 ;HIGH PRODUCT FAILED 12153 777577 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12154 040307 312 03 0 00 044061 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12155 040310 004 03 0 00 035342 ER4 AC+1,35342 ;LOW PRODUCT FAILED 12156 777577 777777 AEE=XX ;INITIAL C(E) 12157 040311 312 00 0 00 044061 CAME E,[XX] ;WAS C(E) CLOBBERED? 12158 040312 005 00 0 00 035343 ER5 E,35343 ;C(E) WAS CLOBBERED 12159 040313 321 04 0 00 040301 JUMPL AC+2,F35340 ;LOOP ON ERROR SWITCH^ 12160 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0244 12161 003535 ADR=ADR+1 12162 777377 777777 XX=XX+XX+1 12163 IFE , 12164 12165 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12166 777777 777777 IFL XX, 12167 IFG XX, 12168 MOP1 (\ADR,1,0,XX,V1,XX)^ 12169 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12170 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12171 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12172 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12173 12174 000001 F35350: AA1=1 ;INITIAL C(AC) 12175 040314 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12176 000000 AA2=0 ;INITIAL C(AC+1) 12177 040315 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12178 777377 777777 AEE=XX ;INITIAL C(E) 12179 040316 200 00 0 00 044062 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12180 040317 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12181 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12182 040320 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12183 040321 003 02 0 00 035351 ER3 AC,35351 ;HIGH PRODUCT FAILED 12184 777377 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12185 040322 312 03 0 00 044062 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12186 040323 004 03 0 00 035352 ER4 AC+1,35352 ;LOW PRODUCT FAILED 12187 777377 777777 AEE=XX ;INITIAL C(E) 12188 040324 312 00 0 00 044062 CAME E,[XX] ;WAS C(E) CLOBBERED? 12189 040325 005 00 0 00 035353 ER5 E,35353 ;C(E) WAS CLOBBERED 12190 040326 321 04 0 00 040314 JUMPL AC+2,F35350 ;LOOP ON ERROR SWITCH^ 12191 12192 003536 ADR=ADR+1 12193 776777 777777 XX=XX+XX+1 12194 IFE , 12195 12196 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12197 777777 777777 IFL XX, 12198 IFG XX, 12199 MOP1 (\ADR,1,0,XX,V1,XX)^ 12200 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12201 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12202 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12203 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12204 12205 000001 F35360: AA1=1 ;INITIAL C(AC) 12206 040327 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12207 000000 AA2=0 ;INITIAL C(AC+1) 12208 040330 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12209 776777 777777 AEE=XX ;INITIAL C(E) 12210 040331 200 00 0 00 044063 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12211 040332 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12212 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12213 040333 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12214 040334 003 02 0 00 035361 ER3 AC,35361 ;HIGH PRODUCT FAILED 12215 776777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0245 12216 040335 312 03 0 00 044063 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12217 040336 004 03 0 00 035362 ER4 AC+1,35362 ;LOW PRODUCT FAILED 12218 776777 777777 AEE=XX ;INITIAL C(E) 12219 040337 312 00 0 00 044063 CAME E,[XX] ;WAS C(E) CLOBBERED? 12220 040340 005 00 0 00 035363 ER5 E,35363 ;C(E) WAS CLOBBERED 12221 040341 321 04 0 00 040327 JUMPL AC+2,F35360 ;LOOP ON ERROR SWITCH^ 12222 12223 003537 ADR=ADR+1 12224 775777 777777 XX=XX+XX+1 12225 IFE , 12226 12227 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12228 777777 777777 IFL XX, 12229 IFG XX, 12230 MOP1 (\ADR,1,0,XX,V1,XX)^ 12231 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12232 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12233 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12234 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12235 12236 000001 F35370: AA1=1 ;INITIAL C(AC) 12237 040342 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12238 000000 AA2=0 ;INITIAL C(AC+1) 12239 040343 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12240 775777 777777 AEE=XX ;INITIAL C(E) 12241 040344 200 00 0 00 044064 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12242 040345 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12243 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12244 040346 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12245 040347 003 02 0 00 035371 ER3 AC,35371 ;HIGH PRODUCT FAILED 12246 775777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12247 040350 312 03 0 00 044064 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12248 040351 004 03 0 00 035372 ER4 AC+1,35372 ;LOW PRODUCT FAILED 12249 775777 777777 AEE=XX ;INITIAL C(E) 12250 040352 312 00 0 00 044064 CAME E,[XX] ;WAS C(E) CLOBBERED? 12251 040353 005 00 0 00 035373 ER5 E,35373 ;C(E) WAS CLOBBERED 12252 040354 321 04 0 00 040342 JUMPL AC+2,F35370 ;LOOP ON ERROR SWITCH^ 12253 12254 003540 ADR=ADR+1 12255 773777 777777 XX=XX+XX+1 12256 IFE , 12257 12258 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12259 777777 777777 IFL XX, 12260 IFG XX, 12261 MOP1 (\ADR,1,0,XX,V1,XX)^ 12262 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12263 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12264 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12265 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12266 12267 000001 F35400: AA1=1 ;INITIAL C(AC) 12268 040355 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12269 000000 AA2=0 ;INITIAL C(AC+1) 12270 040356 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0246 12271 773777 777777 AEE=XX ;INITIAL C(E) 12272 040357 200 00 0 00 044065 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12273 040360 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12274 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12275 040361 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12276 040362 003 02 0 00 035401 ER3 AC,35401 ;HIGH PRODUCT FAILED 12277 773777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12278 040363 312 03 0 00 044065 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12279 040364 004 03 0 00 035402 ER4 AC+1,35402 ;LOW PRODUCT FAILED 12280 773777 777777 AEE=XX ;INITIAL C(E) 12281 040365 312 00 0 00 044065 CAME E,[XX] ;WAS C(E) CLOBBERED? 12282 040366 005 00 0 00 035403 ER5 E,35403 ;C(E) WAS CLOBBERED 12283 040367 321 04 0 00 040355 JUMPL AC+2,F35400 ;LOOP ON ERROR SWITCH^ 12284 12285 003541 ADR=ADR+1 12286 767777 777777 XX=XX+XX+1 12287 IFE , 12288 12289 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12290 777777 777777 IFL XX, 12291 IFG XX, 12292 MOP1 (\ADR,1,0,XX,V1,XX)^ 12293 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12294 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12295 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12296 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12297 12298 000001 F35410: AA1=1 ;INITIAL C(AC) 12299 040370 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12300 000000 AA2=0 ;INITIAL C(AC+1) 12301 040371 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12302 767777 777777 AEE=XX ;INITIAL C(E) 12303 040372 200 00 0 00 044066 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12304 040373 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12305 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12306 040374 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12307 040375 003 02 0 00 035411 ER3 AC,35411 ;HIGH PRODUCT FAILED 12308 767777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12309 040376 312 03 0 00 044066 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12310 040377 004 03 0 00 035412 ER4 AC+1,35412 ;LOW PRODUCT FAILED 12311 767777 777777 AEE=XX ;INITIAL C(E) 12312 040400 312 00 0 00 044066 CAME E,[XX] ;WAS C(E) CLOBBERED? 12313 040401 005 00 0 00 035413 ER5 E,35413 ;C(E) WAS CLOBBERED 12314 040402 321 04 0 00 040370 JUMPL AC+2,F35410 ;LOOP ON ERROR SWITCH^ 12315 12316 003542 ADR=ADR+1 12317 757777 777777 XX=XX+XX+1 12318 IFE , 12319 12320 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12321 777777 777777 IFL XX, 12322 IFG XX, 12323 MOP1 (\ADR,1,0,XX,V1,XX)^ 12324 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12325 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0247 12326 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12327 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12328 12329 000001 F35420: AA1=1 ;INITIAL C(AC) 12330 040403 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12331 000000 AA2=0 ;INITIAL C(AC+1) 12332 040404 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12333 757777 777777 AEE=XX ;INITIAL C(E) 12334 040405 200 00 0 00 044067 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12335 040406 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12336 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12337 040407 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12338 040410 003 02 0 00 035421 ER3 AC,35421 ;HIGH PRODUCT FAILED 12339 757777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12340 040411 312 03 0 00 044067 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12341 040412 004 03 0 00 035422 ER4 AC+1,35422 ;LOW PRODUCT FAILED 12342 757777 777777 AEE=XX ;INITIAL C(E) 12343 040413 312 00 0 00 044067 CAME E,[XX] ;WAS C(E) CLOBBERED? 12344 040414 005 00 0 00 035423 ER5 E,35423 ;C(E) WAS CLOBBERED 12345 040415 321 04 0 00 040403 JUMPL AC+2,F35420 ;LOOP ON ERROR SWITCH^ 12346 12347 003543 ADR=ADR+1 12348 737777 777777 XX=XX+XX+1 12349 IFE , 12350 12351 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12352 777777 777777 IFL XX, 12353 IFG XX, 12354 MOP1 (\ADR,1,0,XX,V1,XX)^ 12355 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12356 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12357 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12358 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12359 12360 000001 F35430: AA1=1 ;INITIAL C(AC) 12361 040416 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12362 000000 AA2=0 ;INITIAL C(AC+1) 12363 040417 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12364 737777 777777 AEE=XX ;INITIAL C(E) 12365 040420 200 00 0 00 044070 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12366 040421 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12367 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12368 040422 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12369 040423 003 02 0 00 035431 ER3 AC,35431 ;HIGH PRODUCT FAILED 12370 737777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12371 040424 312 03 0 00 044070 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12372 040425 004 03 0 00 035432 ER4 AC+1,35432 ;LOW PRODUCT FAILED 12373 737777 777777 AEE=XX ;INITIAL C(E) 12374 040426 312 00 0 00 044070 CAME E,[XX] ;WAS C(E) CLOBBERED? 12375 040427 005 00 0 00 035433 ER5 E,35433 ;C(E) WAS CLOBBERED 12376 040430 321 04 0 00 040416 JUMPL AC+2,F35430 ;LOOP ON ERROR SWITCH^ 12377 12378 003544 ADR=ADR+1 12379 677777 777777 XX=XX+XX+1 12380 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0248 12381 12382 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12383 777777 777777 IFL XX, 12384 IFG XX, 12385 MOP1 (\ADR,1,0,XX,V1,XX)^ 12386 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12387 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12388 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12389 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12390 12391 000001 F35440: AA1=1 ;INITIAL C(AC) 12392 040431 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12393 000000 AA2=0 ;INITIAL C(AC+1) 12394 040432 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12395 677777 777777 AEE=XX ;INITIAL C(E) 12396 040433 200 00 0 00 044071 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12397 040434 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12398 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12399 040435 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12400 040436 003 02 0 00 035441 ER3 AC,35441 ;HIGH PRODUCT FAILED 12401 677777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12402 040437 312 03 0 00 044071 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12403 040440 004 03 0 00 035442 ER4 AC+1,35442 ;LOW PRODUCT FAILED 12404 677777 777777 AEE=XX ;INITIAL C(E) 12405 040441 312 00 0 00 044071 CAME E,[XX] ;WAS C(E) CLOBBERED? 12406 040442 005 00 0 00 035443 ER5 E,35443 ;C(E) WAS CLOBBERED 12407 040443 321 04 0 00 040431 JUMPL AC+2,F35440 ;LOOP ON ERROR SWITCH^ 12408 12409 003545 ADR=ADR+1 12410 577777 777777 XX=XX+XX+1 12411 IFE , 12412 12413 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12414 777777 777777 IFL XX, 12415 IFG XX, 12416 MOP1 (\ADR,1,0,XX,V1,XX)^ 12417 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12418 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12419 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12420 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12421 12422 000001 F35450: AA1=1 ;INITIAL C(AC) 12423 040444 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12424 000000 AA2=0 ;INITIAL C(AC+1) 12425 040445 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12426 577777 777777 AEE=XX ;INITIAL C(E) 12427 040446 200 00 0 00 044072 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12428 040447 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12429 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12430 040450 312 02 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12431 040451 003 02 0 00 035451 ER3 AC,35451 ;HIGH PRODUCT FAILED 12432 577777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12433 040452 312 03 0 00 044072 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12434 040453 004 03 0 00 035452 ER4 AC+1,35452 ;LOW PRODUCT FAILED 12435 577777 777777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 14-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0249 12436 040454 312 00 0 00 044072 CAME E,[XX] ;WAS C(E) CLOBBERED? 12437 040455 005 00 0 00 035453 ER5 E,35453 ;C(E) WAS CLOBBERED 12438 040456 321 04 0 00 040444 JUMPL AC+2,F35450 ;LOOP ON ERROR SWITCH^ 12439 12440 003546 ADR=ADR+1 12441 377777 777777 XX=XX+XX+1 12442 IFE , 12443 12444 ;MULTIPLY RIPPLED 0 BY 1 TO GET PRODUCT OF RIPPLED 0 12445 IFL XX, 12446 000000 IFG XX, 12447 MOP1 (\ADR,1,0,XX,V1,XX)^ 12448 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [1],[0] AND 12449 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12450 ;AND E AGAINST [V1], [XX] AND [XX] RESPECTIVELY. 12451 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12452 12453 000001 F35460: AA1=1 ;INITIAL C(AC) 12454 040457 200 02 0 00 043764 MOVE AC,[1] ;PRELOAD AC (MULTIPLIER) 12455 000000 AA2=0 ;INITIAL C(AC+1) 12456 040460 200 03 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12457 377777 777777 AEE=XX ;INITIAL C(E) 12458 040461 200 00 0 00 044073 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 12459 040462 224 02 0 00 000000 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12460 000000 AR1=V1 ;EXPECTED RESULT IN AC 12461 040463 312 02 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12462 040464 003 02 0 00 035461 ER3 AC,35461 ;HIGH PRODUCT FAILED 12463 377777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 12464 040465 312 03 0 00 044073 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12465 040466 004 03 0 00 035462 ER4 AC+1,35462 ;LOW PRODUCT FAILED 12466 377777 777777 AEE=XX ;INITIAL C(E) 12467 040467 312 00 0 00 044073 CAME E,[XX] ;WAS C(E) CLOBBERED? 12468 040470 005 00 0 00 035463 ER5 E,35463 ;C(E) WAS CLOBBERED 12469 040471 321 04 0 00 040457 JUMPL AC+2,F35460 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0250 12470 000010 AC=10 12471 000006 E=&17 12472 SAVEAC (1,1)^ 12473 040472 201 12 0 00 040472 MOVEI AC+2,. ;SAVE TEST PC 12474 040473 202 12 0 00 030051 MOVEM AC+2,TESTPC 12475 040474 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12476 040475 202 12 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12477 000000 XX=0 12478 12479 REPEAT ^D36,< 12480 ADR=ADR+1 12481 XX=XX+XX+1 12482 IFE , 12483 12484 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12485 IFL XX, 12486 IFG XX, 12487 MOP1 (\ADR,XX,0,1,V1,XX)> 12488 12489 003547 ADR=ADR+1 12490 000001 XX=XX+XX+1 12491 777777 777776 IFE , 12492 12493 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12494 777777 777777 IFL XX, 12495 IFG XX, 12496 MOP1 (\ADR,XX,0,1,V1,XX)^ 12497 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12498 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12499 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12500 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12501 12502 777777 777776 F35470: AA1=XX ;INITIAL C(AC) 12503 040476 200 10 0 00 044030 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12504 000000 AA2=0 ;INITIAL C(AC+1) 12505 040477 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12506 000001 AEE=1 ;INITIAL C(E) 12507 040500 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12508 040501 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12509 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12510 040502 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12511 040503 003 10 0 00 035471 ER3 AC,35471 ;HIGH PRODUCT FAILED 12512 777777 777776 AR2=XX ;EXPECTED RESULT IN AC+1 12513 040504 312 11 0 00 044030 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12514 040505 004 11 0 00 035472 ER4 AC+1,35472 ;LOW PRODUCT FAILED 12515 000001 AEE=1 ;INITIAL C(E) 12516 040506 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12517 040507 005 06 0 00 035473 ER5 E,35473 ;C(E) WAS CLOBBERED 12518 040510 321 12 0 00 040476 JUMPL AC+2,F35470 ;LOOP ON ERROR SWITCH^ 12519 12520 003550 ADR=ADR+1 12521 777777 777775 XX=XX+XX+1 12522 IFE , 12523 12524 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0251 12525 777777 777777 IFL XX, 12526 IFG XX, 12527 MOP1 (\ADR,XX,0,1,V1,XX)^ 12528 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12529 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12530 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12531 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12532 12533 777777 777775 F35500: AA1=XX ;INITIAL C(AC) 12534 040511 200 10 0 00 044031 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12535 000000 AA2=0 ;INITIAL C(AC+1) 12536 040512 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12537 000001 AEE=1 ;INITIAL C(E) 12538 040513 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12539 040514 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12540 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12541 040515 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12542 040516 003 10 0 00 035501 ER3 AC,35501 ;HIGH PRODUCT FAILED 12543 777777 777775 AR2=XX ;EXPECTED RESULT IN AC+1 12544 040517 312 11 0 00 044031 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12545 040520 004 11 0 00 035502 ER4 AC+1,35502 ;LOW PRODUCT FAILED 12546 000001 AEE=1 ;INITIAL C(E) 12547 040521 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12548 040522 005 06 0 00 035503 ER5 E,35503 ;C(E) WAS CLOBBERED 12549 040523 321 12 0 00 040511 JUMPL AC+2,F35500 ;LOOP ON ERROR SWITCH^ 12550 12551 003551 ADR=ADR+1 12552 777777 777773 XX=XX+XX+1 12553 IFE , 12554 12555 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12556 777777 777777 IFL XX, 12557 IFG XX, 12558 MOP1 (\ADR,XX,0,1,V1,XX)^ 12559 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12560 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12561 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12562 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12563 12564 777777 777773 F35510: AA1=XX ;INITIAL C(AC) 12565 040524 200 10 0 00 044032 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12566 000000 AA2=0 ;INITIAL C(AC+1) 12567 040525 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12568 000001 AEE=1 ;INITIAL C(E) 12569 040526 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12570 040527 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12571 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12572 040530 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12573 040531 003 10 0 00 035511 ER3 AC,35511 ;HIGH PRODUCT FAILED 12574 777777 777773 AR2=XX ;EXPECTED RESULT IN AC+1 12575 040532 312 11 0 00 044032 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12576 040533 004 11 0 00 035512 ER4 AC+1,35512 ;LOW PRODUCT FAILED 12577 000001 AEE=1 ;INITIAL C(E) 12578 040534 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12579 040535 005 06 0 00 035513 ER5 E,35513 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0252 12580 040536 321 12 0 00 040524 JUMPL AC+2,F35510 ;LOOP ON ERROR SWITCH^ 12581 12582 003552 ADR=ADR+1 12583 777777 777767 XX=XX+XX+1 12584 IFE , 12585 12586 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12587 777777 777777 IFL XX, 12588 IFG XX, 12589 MOP1 (\ADR,XX,0,1,V1,XX)^ 12590 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12591 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12592 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12593 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12594 12595 777777 777767 F35520: AA1=XX ;INITIAL C(AC) 12596 040537 200 10 0 00 044033 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12597 000000 AA2=0 ;INITIAL C(AC+1) 12598 040540 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12599 000001 AEE=1 ;INITIAL C(E) 12600 040541 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12601 040542 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12602 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12603 040543 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12604 040544 003 10 0 00 035521 ER3 AC,35521 ;HIGH PRODUCT FAILED 12605 777777 777767 AR2=XX ;EXPECTED RESULT IN AC+1 12606 040545 312 11 0 00 044033 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12607 040546 004 11 0 00 035522 ER4 AC+1,35522 ;LOW PRODUCT FAILED 12608 000001 AEE=1 ;INITIAL C(E) 12609 040547 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12610 040550 005 06 0 00 035523 ER5 E,35523 ;C(E) WAS CLOBBERED 12611 040551 321 12 0 00 040537 JUMPL AC+2,F35520 ;LOOP ON ERROR SWITCH^ 12612 12613 003553 ADR=ADR+1 12614 777777 777757 XX=XX+XX+1 12615 IFE , 12616 12617 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12618 777777 777777 IFL XX, 12619 IFG XX, 12620 MOP1 (\ADR,XX,0,1,V1,XX)^ 12621 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12622 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12623 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12624 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12625 12626 777777 777757 F35530: AA1=XX ;INITIAL C(AC) 12627 040552 200 10 0 00 044034 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12628 000000 AA2=0 ;INITIAL C(AC+1) 12629 040553 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12630 000001 AEE=1 ;INITIAL C(E) 12631 040554 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12632 040555 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12633 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12634 040556 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0253 12635 040557 003 10 0 00 035531 ER3 AC,35531 ;HIGH PRODUCT FAILED 12636 777777 777757 AR2=XX ;EXPECTED RESULT IN AC+1 12637 040560 312 11 0 00 044034 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12638 040561 004 11 0 00 035532 ER4 AC+1,35532 ;LOW PRODUCT FAILED 12639 000001 AEE=1 ;INITIAL C(E) 12640 040562 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12641 040563 005 06 0 00 035533 ER5 E,35533 ;C(E) WAS CLOBBERED 12642 040564 321 12 0 00 040552 JUMPL AC+2,F35530 ;LOOP ON ERROR SWITCH^ 12643 12644 003554 ADR=ADR+1 12645 777777 777737 XX=XX+XX+1 12646 IFE , 12647 12648 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12649 777777 777777 IFL XX, 12650 IFG XX, 12651 MOP1 (\ADR,XX,0,1,V1,XX)^ 12652 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12653 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12654 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12655 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12656 12657 777777 777737 F35540: AA1=XX ;INITIAL C(AC) 12658 040565 200 10 0 00 044035 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12659 000000 AA2=0 ;INITIAL C(AC+1) 12660 040566 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12661 000001 AEE=1 ;INITIAL C(E) 12662 040567 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12663 040570 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12664 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12665 040571 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12666 040572 003 10 0 00 035541 ER3 AC,35541 ;HIGH PRODUCT FAILED 12667 777777 777737 AR2=XX ;EXPECTED RESULT IN AC+1 12668 040573 312 11 0 00 044035 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12669 040574 004 11 0 00 035542 ER4 AC+1,35542 ;LOW PRODUCT FAILED 12670 000001 AEE=1 ;INITIAL C(E) 12671 040575 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12672 040576 005 06 0 00 035543 ER5 E,35543 ;C(E) WAS CLOBBERED 12673 040577 321 12 0 00 040565 JUMPL AC+2,F35540 ;LOOP ON ERROR SWITCH^ 12674 12675 003555 ADR=ADR+1 12676 777777 777677 XX=XX+XX+1 12677 IFE , 12678 12679 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12680 777777 777777 IFL XX, 12681 IFG XX, 12682 MOP1 (\ADR,XX,0,1,V1,XX)^ 12683 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12684 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12685 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12686 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12687 12688 777777 777677 F35550: AA1=XX ;INITIAL C(AC) 12689 040600 200 10 0 00 044036 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0254 12690 000000 AA2=0 ;INITIAL C(AC+1) 12691 040601 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12692 000001 AEE=1 ;INITIAL C(E) 12693 040602 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12694 040603 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12695 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12696 040604 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12697 040605 003 10 0 00 035551 ER3 AC,35551 ;HIGH PRODUCT FAILED 12698 777777 777677 AR2=XX ;EXPECTED RESULT IN AC+1 12699 040606 312 11 0 00 044036 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12700 040607 004 11 0 00 035552 ER4 AC+1,35552 ;LOW PRODUCT FAILED 12701 000001 AEE=1 ;INITIAL C(E) 12702 040610 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12703 040611 005 06 0 00 035553 ER5 E,35553 ;C(E) WAS CLOBBERED 12704 040612 321 12 0 00 040600 JUMPL AC+2,F35550 ;LOOP ON ERROR SWITCH^ 12705 12706 003556 ADR=ADR+1 12707 777777 777577 XX=XX+XX+1 12708 IFE , 12709 12710 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12711 777777 777777 IFL XX, 12712 IFG XX, 12713 MOP1 (\ADR,XX,0,1,V1,XX)^ 12714 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12715 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12716 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12717 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12718 12719 777777 777577 F35560: AA1=XX ;INITIAL C(AC) 12720 040613 200 10 0 00 044037 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12721 000000 AA2=0 ;INITIAL C(AC+1) 12722 040614 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12723 000001 AEE=1 ;INITIAL C(E) 12724 040615 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12725 040616 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12726 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12727 040617 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12728 040620 003 10 0 00 035561 ER3 AC,35561 ;HIGH PRODUCT FAILED 12729 777777 777577 AR2=XX ;EXPECTED RESULT IN AC+1 12730 040621 312 11 0 00 044037 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12731 040622 004 11 0 00 035562 ER4 AC+1,35562 ;LOW PRODUCT FAILED 12732 000001 AEE=1 ;INITIAL C(E) 12733 040623 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12734 040624 005 06 0 00 035563 ER5 E,35563 ;C(E) WAS CLOBBERED 12735 040625 321 12 0 00 040613 JUMPL AC+2,F35560 ;LOOP ON ERROR SWITCH^ 12736 12737 003557 ADR=ADR+1 12738 777777 777377 XX=XX+XX+1 12739 IFE , 12740 12741 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12742 777777 777777 IFL XX, 12743 IFG XX, 12744 MOP1 (\ADR,XX,0,1,V1,XX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0255 12745 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12746 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12747 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12748 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12749 12750 777777 777377 F35570: AA1=XX ;INITIAL C(AC) 12751 040626 200 10 0 00 044040 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12752 000000 AA2=0 ;INITIAL C(AC+1) 12753 040627 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12754 000001 AEE=1 ;INITIAL C(E) 12755 040630 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12756 040631 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12757 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12758 040632 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12759 040633 003 10 0 00 035571 ER3 AC,35571 ;HIGH PRODUCT FAILED 12760 777777 777377 AR2=XX ;EXPECTED RESULT IN AC+1 12761 040634 312 11 0 00 044040 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12762 040635 004 11 0 00 035572 ER4 AC+1,35572 ;LOW PRODUCT FAILED 12763 000001 AEE=1 ;INITIAL C(E) 12764 040636 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12765 040637 005 06 0 00 035573 ER5 E,35573 ;C(E) WAS CLOBBERED 12766 040640 321 12 0 00 040626 JUMPL AC+2,F35570 ;LOOP ON ERROR SWITCH^ 12767 12768 003560 ADR=ADR+1 12769 777777 776777 XX=XX+XX+1 12770 IFE , 12771 12772 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12773 777777 777777 IFL XX, 12774 IFG XX, 12775 MOP1 (\ADR,XX,0,1,V1,XX)^ 12776 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12777 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12778 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12779 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12780 12781 777777 776777 F35600: AA1=XX ;INITIAL C(AC) 12782 040641 200 10 0 00 044041 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12783 000000 AA2=0 ;INITIAL C(AC+1) 12784 040642 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12785 000001 AEE=1 ;INITIAL C(E) 12786 040643 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12787 040644 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12788 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12789 040645 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12790 040646 003 10 0 00 035601 ER3 AC,35601 ;HIGH PRODUCT FAILED 12791 777777 776777 AR2=XX ;EXPECTED RESULT IN AC+1 12792 040647 312 11 0 00 044041 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12793 040650 004 11 0 00 035602 ER4 AC+1,35602 ;LOW PRODUCT FAILED 12794 000001 AEE=1 ;INITIAL C(E) 12795 040651 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12796 040652 005 06 0 00 035603 ER5 E,35603 ;C(E) WAS CLOBBERED 12797 040653 321 12 0 00 040641 JUMPL AC+2,F35600 ;LOOP ON ERROR SWITCH^ 12798 12799 003561 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0256 12800 777777 775777 XX=XX+XX+1 12801 IFE , 12802 12803 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12804 777777 777777 IFL XX, 12805 IFG XX, 12806 MOP1 (\ADR,XX,0,1,V1,XX)^ 12807 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12808 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12809 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12810 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12811 12812 777777 775777 F35610: AA1=XX ;INITIAL C(AC) 12813 040654 200 10 0 00 044042 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12814 000000 AA2=0 ;INITIAL C(AC+1) 12815 040655 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12816 000001 AEE=1 ;INITIAL C(E) 12817 040656 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12818 040657 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12819 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12820 040660 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12821 040661 003 10 0 00 035611 ER3 AC,35611 ;HIGH PRODUCT FAILED 12822 777777 775777 AR2=XX ;EXPECTED RESULT IN AC+1 12823 040662 312 11 0 00 044042 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12824 040663 004 11 0 00 035612 ER4 AC+1,35612 ;LOW PRODUCT FAILED 12825 000001 AEE=1 ;INITIAL C(E) 12826 040664 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12827 040665 005 06 0 00 035613 ER5 E,35613 ;C(E) WAS CLOBBERED 12828 040666 321 12 0 00 040654 JUMPL AC+2,F35610 ;LOOP ON ERROR SWITCH^ 12829 12830 003562 ADR=ADR+1 12831 777777 773777 XX=XX+XX+1 12832 IFE , 12833 12834 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12835 777777 777777 IFL XX, 12836 IFG XX, 12837 MOP1 (\ADR,XX,0,1,V1,XX)^ 12838 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12839 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12840 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12841 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12842 12843 777777 773777 F35620: AA1=XX ;INITIAL C(AC) 12844 040667 200 10 0 00 044043 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12845 000000 AA2=0 ;INITIAL C(AC+1) 12846 040670 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12847 000001 AEE=1 ;INITIAL C(E) 12848 040671 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12849 040672 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12850 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12851 040673 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12852 040674 003 10 0 00 035621 ER3 AC,35621 ;HIGH PRODUCT FAILED 12853 777777 773777 AR2=XX ;EXPECTED RESULT IN AC+1 12854 040675 312 11 0 00 044043 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0257 12855 040676 004 11 0 00 035622 ER4 AC+1,35622 ;LOW PRODUCT FAILED 12856 000001 AEE=1 ;INITIAL C(E) 12857 040677 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12858 040700 005 06 0 00 035623 ER5 E,35623 ;C(E) WAS CLOBBERED 12859 040701 321 12 0 00 040667 JUMPL AC+2,F35620 ;LOOP ON ERROR SWITCH^ 12860 12861 003563 ADR=ADR+1 12862 777777 767777 XX=XX+XX+1 12863 IFE , 12864 12865 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12866 777777 777777 IFL XX, 12867 IFG XX, 12868 MOP1 (\ADR,XX,0,1,V1,XX)^ 12869 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12870 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12871 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12872 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12873 12874 777777 767777 F35630: AA1=XX ;INITIAL C(AC) 12875 040702 200 10 0 00 044044 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12876 000000 AA2=0 ;INITIAL C(AC+1) 12877 040703 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12878 000001 AEE=1 ;INITIAL C(E) 12879 040704 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12880 040705 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12881 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12882 040706 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12883 040707 003 10 0 00 035631 ER3 AC,35631 ;HIGH PRODUCT FAILED 12884 777777 767777 AR2=XX ;EXPECTED RESULT IN AC+1 12885 040710 312 11 0 00 044044 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12886 040711 004 11 0 00 035632 ER4 AC+1,35632 ;LOW PRODUCT FAILED 12887 000001 AEE=1 ;INITIAL C(E) 12888 040712 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12889 040713 005 06 0 00 035633 ER5 E,35633 ;C(E) WAS CLOBBERED 12890 040714 321 12 0 00 040702 JUMPL AC+2,F35630 ;LOOP ON ERROR SWITCH^ 12891 12892 003564 ADR=ADR+1 12893 777777 757777 XX=XX+XX+1 12894 IFE , 12895 12896 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12897 777777 777777 IFL XX, 12898 IFG XX, 12899 MOP1 (\ADR,XX,0,1,V1,XX)^ 12900 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12901 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12902 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12903 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12904 12905 777777 757777 F35640: AA1=XX ;INITIAL C(AC) 12906 040715 200 10 0 00 044045 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12907 000000 AA2=0 ;INITIAL C(AC+1) 12908 040716 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12909 000001 AEE=1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0258 12910 040717 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12911 040720 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12912 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12913 040721 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12914 040722 003 10 0 00 035641 ER3 AC,35641 ;HIGH PRODUCT FAILED 12915 777777 757777 AR2=XX ;EXPECTED RESULT IN AC+1 12916 040723 312 11 0 00 044045 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12917 040724 004 11 0 00 035642 ER4 AC+1,35642 ;LOW PRODUCT FAILED 12918 000001 AEE=1 ;INITIAL C(E) 12919 040725 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12920 040726 005 06 0 00 035643 ER5 E,35643 ;C(E) WAS CLOBBERED 12921 040727 321 12 0 00 040715 JUMPL AC+2,F35640 ;LOOP ON ERROR SWITCH^ 12922 12923 003565 ADR=ADR+1 12924 777777 737777 XX=XX+XX+1 12925 IFE , 12926 12927 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12928 777777 777777 IFL XX, 12929 IFG XX, 12930 MOP1 (\ADR,XX,0,1,V1,XX)^ 12931 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12932 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12933 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12934 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12935 12936 777777 737777 F35650: AA1=XX ;INITIAL C(AC) 12937 040730 200 10 0 00 044046 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12938 000000 AA2=0 ;INITIAL C(AC+1) 12939 040731 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12940 000001 AEE=1 ;INITIAL C(E) 12941 040732 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12942 040733 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12943 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12944 040734 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12945 040735 003 10 0 00 035651 ER3 AC,35651 ;HIGH PRODUCT FAILED 12946 777777 737777 AR2=XX ;EXPECTED RESULT IN AC+1 12947 040736 312 11 0 00 044046 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12948 040737 004 11 0 00 035652 ER4 AC+1,35652 ;LOW PRODUCT FAILED 12949 000001 AEE=1 ;INITIAL C(E) 12950 040740 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12951 040741 005 06 0 00 035653 ER5 E,35653 ;C(E) WAS CLOBBERED 12952 040742 321 12 0 00 040730 JUMPL AC+2,F35650 ;LOOP ON ERROR SWITCH^ 12953 12954 003566 ADR=ADR+1 12955 777777 677777 XX=XX+XX+1 12956 IFE , 12957 12958 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12959 777777 777777 IFL XX, 12960 IFG XX, 12961 MOP1 (\ADR,XX,0,1,V1,XX)^ 12962 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12963 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12964 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0259 12965 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12966 12967 777777 677777 F35660: AA1=XX ;INITIAL C(AC) 12968 040743 200 10 0 00 044047 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 12969 000000 AA2=0 ;INITIAL C(AC+1) 12970 040744 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 12971 000001 AEE=1 ;INITIAL C(E) 12972 040745 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 12973 040746 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 12974 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 12975 040747 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 12976 040750 003 10 0 00 035661 ER3 AC,35661 ;HIGH PRODUCT FAILED 12977 777777 677777 AR2=XX ;EXPECTED RESULT IN AC+1 12978 040751 312 11 0 00 044047 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 12979 040752 004 11 0 00 035662 ER4 AC+1,35662 ;LOW PRODUCT FAILED 12980 000001 AEE=1 ;INITIAL C(E) 12981 040753 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 12982 040754 005 06 0 00 035663 ER5 E,35663 ;C(E) WAS CLOBBERED 12983 040755 321 12 0 00 040743 JUMPL AC+2,F35660 ;LOOP ON ERROR SWITCH^ 12984 12985 003567 ADR=ADR+1 12986 777777 577777 XX=XX+XX+1 12987 IFE , 12988 12989 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 12990 777777 777777 IFL XX, 12991 IFG XX, 12992 MOP1 (\ADR,XX,0,1,V1,XX)^ 12993 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 12994 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 12995 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 12996 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 12997 12998 777777 577777 F35670: AA1=XX ;INITIAL C(AC) 12999 040756 200 10 0 00 044050 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13000 000000 AA2=0 ;INITIAL C(AC+1) 13001 040757 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13002 000001 AEE=1 ;INITIAL C(E) 13003 040760 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13004 040761 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13005 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13006 040762 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13007 040763 003 10 0 00 035671 ER3 AC,35671 ;HIGH PRODUCT FAILED 13008 777777 577777 AR2=XX ;EXPECTED RESULT IN AC+1 13009 040764 312 11 0 00 044050 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13010 040765 004 11 0 00 035672 ER4 AC+1,35672 ;LOW PRODUCT FAILED 13011 000001 AEE=1 ;INITIAL C(E) 13012 040766 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13013 040767 005 06 0 00 035673 ER5 E,35673 ;C(E) WAS CLOBBERED 13014 040770 321 12 0 00 040756 JUMPL AC+2,F35670 ;LOOP ON ERROR SWITCH^ 13015 13016 003570 ADR=ADR+1 13017 777777 377777 XX=XX+XX+1 13018 IFE , 13019 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0260 13020 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13021 777777 777777 IFL XX, 13022 IFG XX, 13023 MOP1 (\ADR,XX,0,1,V1,XX)^ 13024 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13025 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13026 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13027 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13028 13029 777777 377777 F35700: AA1=XX ;INITIAL C(AC) 13030 040771 200 10 0 00 044051 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13031 000000 AA2=0 ;INITIAL C(AC+1) 13032 040772 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13033 000001 AEE=1 ;INITIAL C(E) 13034 040773 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13035 040774 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13036 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13037 040775 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13038 040776 003 10 0 00 035701 ER3 AC,35701 ;HIGH PRODUCT FAILED 13039 777777 377777 AR2=XX ;EXPECTED RESULT IN AC+1 13040 040777 312 11 0 00 044051 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13041 041000 004 11 0 00 035702 ER4 AC+1,35702 ;LOW PRODUCT FAILED 13042 000001 AEE=1 ;INITIAL C(E) 13043 041001 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13044 041002 005 06 0 00 035703 ER5 E,35703 ;C(E) WAS CLOBBERED 13045 041003 321 12 0 00 040771 JUMPL AC+2,F35700 ;LOOP ON ERROR SWITCH^ 13046 13047 003571 ADR=ADR+1 13048 777776 777777 XX=XX+XX+1 13049 IFE , 13050 13051 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13052 777777 777777 IFL XX, 13053 IFG XX, 13054 MOP1 (\ADR,XX,0,1,V1,XX)^ 13055 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13056 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13057 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13058 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13059 13060 777776 777777 F35710: AA1=XX ;INITIAL C(AC) 13061 041004 200 10 0 00 044052 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13062 000000 AA2=0 ;INITIAL C(AC+1) 13063 041005 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13064 000001 AEE=1 ;INITIAL C(E) 13065 041006 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13066 041007 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13067 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13068 041010 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13069 041011 003 10 0 00 035711 ER3 AC,35711 ;HIGH PRODUCT FAILED 13070 777776 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13071 041012 312 11 0 00 044052 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13072 041013 004 11 0 00 035712 ER4 AC+1,35712 ;LOW PRODUCT FAILED 13073 000001 AEE=1 ;INITIAL C(E) 13074 041014 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0261 13075 041015 005 06 0 00 035713 ER5 E,35713 ;C(E) WAS CLOBBERED 13076 041016 321 12 0 00 041004 JUMPL AC+2,F35710 ;LOOP ON ERROR SWITCH^ 13077 13078 003572 ADR=ADR+1 13079 777775 777777 XX=XX+XX+1 13080 IFE , 13081 13082 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13083 777777 777777 IFL XX, 13084 IFG XX, 13085 MOP1 (\ADR,XX,0,1,V1,XX)^ 13086 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13087 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13088 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13089 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13090 13091 777775 777777 F35720: AA1=XX ;INITIAL C(AC) 13092 041017 200 10 0 00 044053 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13093 000000 AA2=0 ;INITIAL C(AC+1) 13094 041020 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13095 000001 AEE=1 ;INITIAL C(E) 13096 041021 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13097 041022 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13098 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13099 041023 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13100 041024 003 10 0 00 035721 ER3 AC,35721 ;HIGH PRODUCT FAILED 13101 777775 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13102 041025 312 11 0 00 044053 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13103 041026 004 11 0 00 035722 ER4 AC+1,35722 ;LOW PRODUCT FAILED 13104 000001 AEE=1 ;INITIAL C(E) 13105 041027 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13106 041030 005 06 0 00 035723 ER5 E,35723 ;C(E) WAS CLOBBERED 13107 041031 321 12 0 00 041017 JUMPL AC+2,F35720 ;LOOP ON ERROR SWITCH^ 13108 13109 003573 ADR=ADR+1 13110 777773 777777 XX=XX+XX+1 13111 IFE , 13112 13113 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13114 777777 777777 IFL XX, 13115 IFG XX, 13116 MOP1 (\ADR,XX,0,1,V1,XX)^ 13117 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13118 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13119 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13120 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13121 13122 777773 777777 F35730: AA1=XX ;INITIAL C(AC) 13123 041032 200 10 0 00 044054 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13124 000000 AA2=0 ;INITIAL C(AC+1) 13125 041033 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13126 000001 AEE=1 ;INITIAL C(E) 13127 041034 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13128 041035 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13129 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0262 13130 041036 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13131 041037 003 10 0 00 035731 ER3 AC,35731 ;HIGH PRODUCT FAILED 13132 777773 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13133 041040 312 11 0 00 044054 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13134 041041 004 11 0 00 035732 ER4 AC+1,35732 ;LOW PRODUCT FAILED 13135 000001 AEE=1 ;INITIAL C(E) 13136 041042 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13137 041043 005 06 0 00 035733 ER5 E,35733 ;C(E) WAS CLOBBERED 13138 041044 321 12 0 00 041032 JUMPL AC+2,F35730 ;LOOP ON ERROR SWITCH^ 13139 13140 003574 ADR=ADR+1 13141 777767 777777 XX=XX+XX+1 13142 IFE , 13143 13144 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13145 777777 777777 IFL XX, 13146 IFG XX, 13147 MOP1 (\ADR,XX,0,1,V1,XX)^ 13148 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13149 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13150 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13151 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13152 13153 777767 777777 F35740: AA1=XX ;INITIAL C(AC) 13154 041045 200 10 0 00 044055 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13155 000000 AA2=0 ;INITIAL C(AC+1) 13156 041046 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13157 000001 AEE=1 ;INITIAL C(E) 13158 041047 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13159 041050 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13160 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13161 041051 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13162 041052 003 10 0 00 035741 ER3 AC,35741 ;HIGH PRODUCT FAILED 13163 777767 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13164 041053 312 11 0 00 044055 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13165 041054 004 11 0 00 035742 ER4 AC+1,35742 ;LOW PRODUCT FAILED 13166 000001 AEE=1 ;INITIAL C(E) 13167 041055 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13168 041056 005 06 0 00 035743 ER5 E,35743 ;C(E) WAS CLOBBERED 13169 041057 321 12 0 00 041045 JUMPL AC+2,F35740 ;LOOP ON ERROR SWITCH^ 13170 13171 003575 ADR=ADR+1 13172 777757 777777 XX=XX+XX+1 13173 IFE , 13174 13175 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13176 777777 777777 IFL XX, 13177 IFG XX, 13178 MOP1 (\ADR,XX,0,1,V1,XX)^ 13179 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13180 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13181 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13182 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13183 13184 777757 777777 F35750: AA1=XX ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0263 13185 041060 200 10 0 00 044056 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13186 000000 AA2=0 ;INITIAL C(AC+1) 13187 041061 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13188 000001 AEE=1 ;INITIAL C(E) 13189 041062 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13190 041063 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13191 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13192 041064 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13193 041065 003 10 0 00 035751 ER3 AC,35751 ;HIGH PRODUCT FAILED 13194 777757 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13195 041066 312 11 0 00 044056 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13196 041067 004 11 0 00 035752 ER4 AC+1,35752 ;LOW PRODUCT FAILED 13197 000001 AEE=1 ;INITIAL C(E) 13198 041070 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13199 041071 005 06 0 00 035753 ER5 E,35753 ;C(E) WAS CLOBBERED 13200 041072 321 12 0 00 041060 JUMPL AC+2,F35750 ;LOOP ON ERROR SWITCH^ 13201 13202 003576 ADR=ADR+1 13203 777737 777777 XX=XX+XX+1 13204 IFE , 13205 13206 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13207 777777 777777 IFL XX, 13208 IFG XX, 13209 MOP1 (\ADR,XX,0,1,V1,XX)^ 13210 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13211 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13212 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13213 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13214 13215 777737 777777 F35760: AA1=XX ;INITIAL C(AC) 13216 041073 200 10 0 00 044057 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13217 000000 AA2=0 ;INITIAL C(AC+1) 13218 041074 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13219 000001 AEE=1 ;INITIAL C(E) 13220 041075 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13221 041076 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13222 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13223 041077 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13224 041100 003 10 0 00 035761 ER3 AC,35761 ;HIGH PRODUCT FAILED 13225 777737 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13226 041101 312 11 0 00 044057 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13227 041102 004 11 0 00 035762 ER4 AC+1,35762 ;LOW PRODUCT FAILED 13228 000001 AEE=1 ;INITIAL C(E) 13229 041103 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13230 041104 005 06 0 00 035763 ER5 E,35763 ;C(E) WAS CLOBBERED 13231 041105 321 12 0 00 041073 JUMPL AC+2,F35760 ;LOOP ON ERROR SWITCH^ 13232 13233 003577 ADR=ADR+1 13234 777677 777777 XX=XX+XX+1 13235 IFE , 13236 13237 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13238 777777 777777 IFL XX, 13239 IFG XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0264 13240 MOP1 (\ADR,XX,0,1,V1,XX)^ 13241 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13242 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13243 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13244 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13245 13246 777677 777777 F35770: AA1=XX ;INITIAL C(AC) 13247 041106 200 10 0 00 044060 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13248 000000 AA2=0 ;INITIAL C(AC+1) 13249 041107 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13250 000001 AEE=1 ;INITIAL C(E) 13251 041110 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13252 041111 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13253 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13254 041112 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13255 041113 003 10 0 00 035771 ER3 AC,35771 ;HIGH PRODUCT FAILED 13256 777677 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13257 041114 312 11 0 00 044060 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13258 041115 004 11 0 00 035772 ER4 AC+1,35772 ;LOW PRODUCT FAILED 13259 000001 AEE=1 ;INITIAL C(E) 13260 041116 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13261 041117 005 06 0 00 035773 ER5 E,35773 ;C(E) WAS CLOBBERED 13262 041120 321 12 0 00 041106 JUMPL AC+2,F35770 ;LOOP ON ERROR SWITCH^ 13263 13264 003600 ADR=ADR+1 13265 777577 777777 XX=XX+XX+1 13266 IFE , 13267 13268 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13269 777777 777777 IFL XX, 13270 IFG XX, 13271 MOP1 (\ADR,XX,0,1,V1,XX)^ 13272 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13273 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13274 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13275 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13276 13277 777577 777777 F36000: AA1=XX ;INITIAL C(AC) 13278 041121 200 10 0 00 044061 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13279 000000 AA2=0 ;INITIAL C(AC+1) 13280 041122 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13281 000001 AEE=1 ;INITIAL C(E) 13282 041123 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13283 041124 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13284 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13285 041125 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13286 041126 003 10 0 00 036001 ER3 AC,36001 ;HIGH PRODUCT FAILED 13287 777577 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13288 041127 312 11 0 00 044061 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13289 041130 004 11 0 00 036002 ER4 AC+1,36002 ;LOW PRODUCT FAILED 13290 000001 AEE=1 ;INITIAL C(E) 13291 041131 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13292 041132 005 06 0 00 036003 ER5 E,36003 ;C(E) WAS CLOBBERED 13293 041133 321 12 0 00 041121 JUMPL AC+2,F36000 ;LOOP ON ERROR SWITCH^ 13294 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0265 13295 003601 ADR=ADR+1 13296 777377 777777 XX=XX+XX+1 13297 IFE , 13298 13299 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13300 777777 777777 IFL XX, 13301 IFG XX, 13302 MOP1 (\ADR,XX,0,1,V1,XX)^ 13303 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13304 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13305 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13306 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13307 13308 777377 777777 F36010: AA1=XX ;INITIAL C(AC) 13309 041134 200 10 0 00 044062 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13310 000000 AA2=0 ;INITIAL C(AC+1) 13311 041135 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13312 000001 AEE=1 ;INITIAL C(E) 13313 041136 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13314 041137 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13315 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13316 041140 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13317 041141 003 10 0 00 036011 ER3 AC,36011 ;HIGH PRODUCT FAILED 13318 777377 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13319 041142 312 11 0 00 044062 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13320 041143 004 11 0 00 036012 ER4 AC+1,36012 ;LOW PRODUCT FAILED 13321 000001 AEE=1 ;INITIAL C(E) 13322 041144 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13323 041145 005 06 0 00 036013 ER5 E,36013 ;C(E) WAS CLOBBERED 13324 041146 321 12 0 00 041134 JUMPL AC+2,F36010 ;LOOP ON ERROR SWITCH^ 13325 13326 003602 ADR=ADR+1 13327 776777 777777 XX=XX+XX+1 13328 IFE , 13329 13330 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13331 777777 777777 IFL XX, 13332 IFG XX, 13333 MOP1 (\ADR,XX,0,1,V1,XX)^ 13334 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13335 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13336 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13337 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13338 13339 776777 777777 F36020: AA1=XX ;INITIAL C(AC) 13340 041147 200 10 0 00 044063 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13341 000000 AA2=0 ;INITIAL C(AC+1) 13342 041150 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13343 000001 AEE=1 ;INITIAL C(E) 13344 041151 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13345 041152 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13346 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13347 041153 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13348 041154 003 10 0 00 036021 ER3 AC,36021 ;HIGH PRODUCT FAILED 13349 776777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0266 13350 041155 312 11 0 00 044063 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13351 041156 004 11 0 00 036022 ER4 AC+1,36022 ;LOW PRODUCT FAILED 13352 000001 AEE=1 ;INITIAL C(E) 13353 041157 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13354 041160 005 06 0 00 036023 ER5 E,36023 ;C(E) WAS CLOBBERED 13355 041161 321 12 0 00 041147 JUMPL AC+2,F36020 ;LOOP ON ERROR SWITCH^ 13356 13357 003603 ADR=ADR+1 13358 775777 777777 XX=XX+XX+1 13359 IFE , 13360 13361 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13362 777777 777777 IFL XX, 13363 IFG XX, 13364 MOP1 (\ADR,XX,0,1,V1,XX)^ 13365 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13366 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13367 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13368 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13369 13370 775777 777777 F36030: AA1=XX ;INITIAL C(AC) 13371 041162 200 10 0 00 044064 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13372 000000 AA2=0 ;INITIAL C(AC+1) 13373 041163 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13374 000001 AEE=1 ;INITIAL C(E) 13375 041164 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13376 041165 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13377 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13378 041166 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13379 041167 003 10 0 00 036031 ER3 AC,36031 ;HIGH PRODUCT FAILED 13380 775777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13381 041170 312 11 0 00 044064 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13382 041171 004 11 0 00 036032 ER4 AC+1,36032 ;LOW PRODUCT FAILED 13383 000001 AEE=1 ;INITIAL C(E) 13384 041172 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13385 041173 005 06 0 00 036033 ER5 E,36033 ;C(E) WAS CLOBBERED 13386 041174 321 12 0 00 041162 JUMPL AC+2,F36030 ;LOOP ON ERROR SWITCH^ 13387 13388 003604 ADR=ADR+1 13389 773777 777777 XX=XX+XX+1 13390 IFE , 13391 13392 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13393 777777 777777 IFL XX, 13394 IFG XX, 13395 MOP1 (\ADR,XX,0,1,V1,XX)^ 13396 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13397 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13398 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13399 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13400 13401 773777 777777 F36040: AA1=XX ;INITIAL C(AC) 13402 041175 200 10 0 00 044065 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13403 000000 AA2=0 ;INITIAL C(AC+1) 13404 041176 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0267 13405 000001 AEE=1 ;INITIAL C(E) 13406 041177 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13407 041200 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13408 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13409 041201 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13410 041202 003 10 0 00 036041 ER3 AC,36041 ;HIGH PRODUCT FAILED 13411 773777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13412 041203 312 11 0 00 044065 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13413 041204 004 11 0 00 036042 ER4 AC+1,36042 ;LOW PRODUCT FAILED 13414 000001 AEE=1 ;INITIAL C(E) 13415 041205 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13416 041206 005 06 0 00 036043 ER5 E,36043 ;C(E) WAS CLOBBERED 13417 041207 321 12 0 00 041175 JUMPL AC+2,F36040 ;LOOP ON ERROR SWITCH^ 13418 13419 003605 ADR=ADR+1 13420 767777 777777 XX=XX+XX+1 13421 IFE , 13422 13423 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13424 777777 777777 IFL XX, 13425 IFG XX, 13426 MOP1 (\ADR,XX,0,1,V1,XX)^ 13427 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13428 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13429 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13430 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13431 13432 767777 777777 F36050: AA1=XX ;INITIAL C(AC) 13433 041210 200 10 0 00 044066 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13434 000000 AA2=0 ;INITIAL C(AC+1) 13435 041211 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13436 000001 AEE=1 ;INITIAL C(E) 13437 041212 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13438 041213 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13439 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13440 041214 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13441 041215 003 10 0 00 036051 ER3 AC,36051 ;HIGH PRODUCT FAILED 13442 767777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13443 041216 312 11 0 00 044066 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13444 041217 004 11 0 00 036052 ER4 AC+1,36052 ;LOW PRODUCT FAILED 13445 000001 AEE=1 ;INITIAL C(E) 13446 041220 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13447 041221 005 06 0 00 036053 ER5 E,36053 ;C(E) WAS CLOBBERED 13448 041222 321 12 0 00 041210 JUMPL AC+2,F36050 ;LOOP ON ERROR SWITCH^ 13449 13450 003606 ADR=ADR+1 13451 757777 777777 XX=XX+XX+1 13452 IFE , 13453 13454 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13455 777777 777777 IFL XX, 13456 IFG XX, 13457 MOP1 (\ADR,XX,0,1,V1,XX)^ 13458 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13459 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0268 13460 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13461 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13462 13463 757777 777777 F36060: AA1=XX ;INITIAL C(AC) 13464 041223 200 10 0 00 044067 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13465 000000 AA2=0 ;INITIAL C(AC+1) 13466 041224 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13467 000001 AEE=1 ;INITIAL C(E) 13468 041225 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13469 041226 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13470 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13471 041227 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13472 041230 003 10 0 00 036061 ER3 AC,36061 ;HIGH PRODUCT FAILED 13473 757777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13474 041231 312 11 0 00 044067 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13475 041232 004 11 0 00 036062 ER4 AC+1,36062 ;LOW PRODUCT FAILED 13476 000001 AEE=1 ;INITIAL C(E) 13477 041233 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13478 041234 005 06 0 00 036063 ER5 E,36063 ;C(E) WAS CLOBBERED 13479 041235 321 12 0 00 041223 JUMPL AC+2,F36060 ;LOOP ON ERROR SWITCH^ 13480 13481 003607 ADR=ADR+1 13482 737777 777777 XX=XX+XX+1 13483 IFE , 13484 13485 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13486 777777 777777 IFL XX, 13487 IFG XX, 13488 MOP1 (\ADR,XX,0,1,V1,XX)^ 13489 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13490 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13491 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13492 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13493 13494 737777 777777 F36070: AA1=XX ;INITIAL C(AC) 13495 041236 200 10 0 00 044070 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13496 000000 AA2=0 ;INITIAL C(AC+1) 13497 041237 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13498 000001 AEE=1 ;INITIAL C(E) 13499 041240 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13500 041241 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13501 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13502 041242 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13503 041243 003 10 0 00 036071 ER3 AC,36071 ;HIGH PRODUCT FAILED 13504 737777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13505 041244 312 11 0 00 044070 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13506 041245 004 11 0 00 036072 ER4 AC+1,36072 ;LOW PRODUCT FAILED 13507 000001 AEE=1 ;INITIAL C(E) 13508 041246 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13509 041247 005 06 0 00 036073 ER5 E,36073 ;C(E) WAS CLOBBERED 13510 041250 321 12 0 00 041236 JUMPL AC+2,F36070 ;LOOP ON ERROR SWITCH^ 13511 13512 003610 ADR=ADR+1 13513 677777 777777 XX=XX+XX+1 13514 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0269 13515 13516 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13517 777777 777777 IFL XX, 13518 IFG XX, 13519 MOP1 (\ADR,XX,0,1,V1,XX)^ 13520 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13521 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13522 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13523 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13524 13525 677777 777777 F36100: AA1=XX ;INITIAL C(AC) 13526 041251 200 10 0 00 044071 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13527 000000 AA2=0 ;INITIAL C(AC+1) 13528 041252 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13529 000001 AEE=1 ;INITIAL C(E) 13530 041253 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13531 041254 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13532 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13533 041255 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13534 041256 003 10 0 00 036101 ER3 AC,36101 ;HIGH PRODUCT FAILED 13535 677777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13536 041257 312 11 0 00 044071 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13537 041260 004 11 0 00 036102 ER4 AC+1,36102 ;LOW PRODUCT FAILED 13538 000001 AEE=1 ;INITIAL C(E) 13539 041261 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13540 041262 005 06 0 00 036103 ER5 E,36103 ;C(E) WAS CLOBBERED 13541 041263 321 12 0 00 041251 JUMPL AC+2,F36100 ;LOOP ON ERROR SWITCH^ 13542 13543 003611 ADR=ADR+1 13544 577777 777777 XX=XX+XX+1 13545 IFE , 13546 13547 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13548 777777 777777 IFL XX, 13549 IFG XX, 13550 MOP1 (\ADR,XX,0,1,V1,XX)^ 13551 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13552 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13553 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13554 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13555 13556 577777 777777 F36110: AA1=XX ;INITIAL C(AC) 13557 041264 200 10 0 00 044072 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13558 000000 AA2=0 ;INITIAL C(AC+1) 13559 041265 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13560 000001 AEE=1 ;INITIAL C(E) 13561 041266 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13562 041267 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13563 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 13564 041270 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13565 041271 003 10 0 00 036111 ER3 AC,36111 ;HIGH PRODUCT FAILED 13566 577777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13567 041272 312 11 0 00 044072 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13568 041273 004 11 0 00 036112 ER4 AC+1,36112 ;LOW PRODUCT FAILED 13569 000001 AEE=1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 15-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0270 13570 041274 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13571 041275 005 06 0 00 036113 ER5 E,36113 ;C(E) WAS CLOBBERED 13572 041276 321 12 0 00 041264 JUMPL AC+2,F36110 ;LOOP ON ERROR SWITCH^ 13573 13574 003612 ADR=ADR+1 13575 377777 777777 XX=XX+XX+1 13576 IFE , 13577 13578 ;MULTIPLY 1 BY RIPPLED 0 TO GET PRODUCT OF RIPPLED 0 13579 IFL XX, 13580 000000 IFG XX, 13581 MOP1 (\ADR,XX,0,1,V1,XX)^ 13582 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 13583 ;[1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13584 ;AND E AGAINST [V1], [XX] AND [1] RESPECTIVELY. 13585 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13586 13587 377777 777777 F36120: AA1=XX ;INITIAL C(AC) 13588 041277 200 10 0 00 044073 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 13589 000000 AA2=0 ;INITIAL C(AC+1) 13590 041300 200 11 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 13591 000001 AEE=1 ;INITIAL C(E) 13592 041301 200 06 0 00 043764 MOVE E,[1] ;PRELOAD E (MULTIPLICAND) 13593 041302 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13594 000000 AR1=V1 ;EXPECTED RESULT IN AC 13595 041303 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13596 041304 003 10 0 00 036121 ER3 AC,36121 ;HIGH PRODUCT FAILED 13597 377777 777777 AR2=XX ;EXPECTED RESULT IN AC+1 13598 041305 312 11 0 00 044073 CAME AC+1,[XX] ;IS LOW PRODUCT CORRECT? 13599 041306 004 11 0 00 036122 ER4 AC+1,36122 ;LOW PRODUCT FAILED 13600 000001 AEE=1 ;INITIAL C(E) 13601 041307 312 06 0 00 043764 CAME E,[1] ;WAS C(E) CLOBBERED? 13602 041310 005 06 0 00 036123 ER5 E,36123 ;C(E) WAS CLOBBERED 13603 041311 321 12 0 00 041277 JUMPL AC+2,F36120 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0271 13604 000010 AC=10 13605 000006 E=&17 13606 SAVEAC (1,1)^ 13607 041312 201 12 0 00 041312 MOVEI AC+2,. ;SAVE TEST PC 13608 041313 202 12 0 00 030051 MOVEM AC+2,TESTPC 13609 041314 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13610 041315 202 12 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13611 000000 XX=0 13612 13613 REPEAT ^D36, < 13614 ADR=ADR+1 13615 XX=XX+XX+1 13616 IFE , 13617 13618 ;MULTIPLY A RIPPLED 0 BY -1 13619 MX=-XX 13620 IFL XX, 13621 IFG XX, 13622 MOP1 (\ADR,-1,-1,XX,V1,MX)> 13623 13624 003613 ADR=ADR+1 13625 000001 XX=XX+XX+1 13626 777777 777776 IFE , 13627 13628 ;MULTIPLY A RIPPLED 0 BY -1 13629 000002 MX=-XX 13630 000000 IFL XX, 13631 IFG XX, 13632 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13633 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13634 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13635 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13636 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13637 13638 777777 777777 F36130: AA1=-1 ;INITIAL C(AC) 13639 041316 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13640 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13641 041317 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13642 777777 777776 AEE=XX ;INITIAL C(E) 13643 041320 200 06 0 00 044030 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13644 041321 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13645 000000 AR1=V1 ;EXPECTED RESULT IN AC 13646 041322 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13647 041323 003 10 0 00 036131 ER3 AC,36131 ;HIGH PRODUCT FAILED 13648 000002 AR2=MX ;EXPECTED RESULT IN AC+1 13649 041324 312 11 0 00 043765 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13650 041325 004 11 0 00 036132 ER4 AC+1,36132 ;LOW PRODUCT FAILED 13651 777777 777776 AEE=XX ;INITIAL C(E) 13652 041326 312 06 0 00 044030 CAME E,[XX] ;WAS C(E) CLOBBERED? 13653 041327 005 06 0 00 036133 ER5 E,36133 ;C(E) WAS CLOBBERED 13654 041330 321 12 0 00 041316 JUMPL AC+2,F36130 ;LOOP ON ERROR SWITCH^ 13655 13656 003614 ADR=ADR+1 13657 777777 777775 XX=XX+XX+1 13658 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0272 13659 13660 ;MULTIPLY A RIPPLED 0 BY -1 13661 000003 MX=-XX 13662 000000 IFL XX, 13663 IFG XX, 13664 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13665 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13666 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13667 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13668 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13669 13670 777777 777777 F36140: AA1=-1 ;INITIAL C(AC) 13671 041331 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13672 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13673 041332 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13674 777777 777775 AEE=XX ;INITIAL C(E) 13675 041333 200 06 0 00 044031 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13676 041334 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13677 000000 AR1=V1 ;EXPECTED RESULT IN AC 13678 041335 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13679 041336 003 10 0 00 036141 ER3 AC,36141 ;HIGH PRODUCT FAILED 13680 000003 AR2=MX ;EXPECTED RESULT IN AC+1 13681 041337 312 11 0 00 044074 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13682 041340 004 11 0 00 036142 ER4 AC+1,36142 ;LOW PRODUCT FAILED 13683 777777 777775 AEE=XX ;INITIAL C(E) 13684 041341 312 06 0 00 044031 CAME E,[XX] ;WAS C(E) CLOBBERED? 13685 041342 005 06 0 00 036143 ER5 E,36143 ;C(E) WAS CLOBBERED 13686 041343 321 12 0 00 041331 JUMPL AC+2,F36140 ;LOOP ON ERROR SWITCH^ 13687 13688 003615 ADR=ADR+1 13689 777777 777773 XX=XX+XX+1 13690 IFE , 13691 13692 ;MULTIPLY A RIPPLED 0 BY -1 13693 000005 MX=-XX 13694 000000 IFL XX, 13695 IFG XX, 13696 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13697 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13698 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13699 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13700 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13701 13702 777777 777777 F36150: AA1=-1 ;INITIAL C(AC) 13703 041344 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13704 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13705 041345 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13706 777777 777773 AEE=XX ;INITIAL C(E) 13707 041346 200 06 0 00 044032 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13708 041347 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13709 000000 AR1=V1 ;EXPECTED RESULT IN AC 13710 041350 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13711 041351 003 10 0 00 036151 ER3 AC,36151 ;HIGH PRODUCT FAILED 13712 000005 AR2=MX ;EXPECTED RESULT IN AC+1 13713 041352 312 11 0 00 044075 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0273 13714 041353 004 11 0 00 036152 ER4 AC+1,36152 ;LOW PRODUCT FAILED 13715 777777 777773 AEE=XX ;INITIAL C(E) 13716 041354 312 06 0 00 044032 CAME E,[XX] ;WAS C(E) CLOBBERED? 13717 041355 005 06 0 00 036153 ER5 E,36153 ;C(E) WAS CLOBBERED 13718 041356 321 12 0 00 041344 JUMPL AC+2,F36150 ;LOOP ON ERROR SWITCH^ 13719 13720 003616 ADR=ADR+1 13721 777777 777767 XX=XX+XX+1 13722 IFE , 13723 13724 ;MULTIPLY A RIPPLED 0 BY -1 13725 000011 MX=-XX 13726 000000 IFL XX, 13727 IFG XX, 13728 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13729 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13730 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13731 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13732 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13733 13734 777777 777777 F36160: AA1=-1 ;INITIAL C(AC) 13735 041357 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13736 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13737 041360 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13738 777777 777767 AEE=XX ;INITIAL C(E) 13739 041361 200 06 0 00 044033 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13740 041362 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13741 000000 AR1=V1 ;EXPECTED RESULT IN AC 13742 041363 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13743 041364 003 10 0 00 036161 ER3 AC,36161 ;HIGH PRODUCT FAILED 13744 000011 AR2=MX ;EXPECTED RESULT IN AC+1 13745 041365 312 11 0 00 044100 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13746 041366 004 11 0 00 036162 ER4 AC+1,36162 ;LOW PRODUCT FAILED 13747 777777 777767 AEE=XX ;INITIAL C(E) 13748 041367 312 06 0 00 044033 CAME E,[XX] ;WAS C(E) CLOBBERED? 13749 041370 005 06 0 00 036163 ER5 E,36163 ;C(E) WAS CLOBBERED 13750 041371 321 12 0 00 041357 JUMPL AC+2,F36160 ;LOOP ON ERROR SWITCH^ 13751 13752 003617 ADR=ADR+1 13753 777777 777757 XX=XX+XX+1 13754 IFE , 13755 13756 ;MULTIPLY A RIPPLED 0 BY -1 13757 000021 MX=-XX 13758 000000 IFL XX, 13759 IFG XX, 13760 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13761 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13762 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13763 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13764 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13765 13766 777777 777777 F36170: AA1=-1 ;INITIAL C(AC) 13767 041372 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13768 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0274 13769 041373 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13770 777777 777757 AEE=XX ;INITIAL C(E) 13771 041374 200 06 0 00 044034 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13772 041375 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13773 000000 AR1=V1 ;EXPECTED RESULT IN AC 13774 041376 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13775 041377 003 10 0 00 036171 ER3 AC,36171 ;HIGH PRODUCT FAILED 13776 000021 AR2=MX ;EXPECTED RESULT IN AC+1 13777 041400 312 11 0 00 044160 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13778 041401 004 11 0 00 036172 ER4 AC+1,36172 ;LOW PRODUCT FAILED 13779 777777 777757 AEE=XX ;INITIAL C(E) 13780 041402 312 06 0 00 044034 CAME E,[XX] ;WAS C(E) CLOBBERED? 13781 041403 005 06 0 00 036173 ER5 E,36173 ;C(E) WAS CLOBBERED 13782 041404 321 12 0 00 041372 JUMPL AC+2,F36170 ;LOOP ON ERROR SWITCH^ 13783 13784 003620 ADR=ADR+1 13785 777777 777737 XX=XX+XX+1 13786 IFE , 13787 13788 ;MULTIPLY A RIPPLED 0 BY -1 13789 000041 MX=-XX 13790 000000 IFL XX, 13791 IFG XX, 13792 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13793 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13794 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13795 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13796 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13797 13798 777777 777777 F36200: AA1=-1 ;INITIAL C(AC) 13799 041405 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13800 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13801 041406 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13802 777777 777737 AEE=XX ;INITIAL C(E) 13803 041407 200 06 0 00 044035 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13804 041410 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13805 000000 AR1=V1 ;EXPECTED RESULT IN AC 13806 041411 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13807 041412 003 10 0 00 036201 ER3 AC,36201 ;HIGH PRODUCT FAILED 13808 000041 AR2=MX ;EXPECTED RESULT IN AC+1 13809 041413 312 11 0 00 044161 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13810 041414 004 11 0 00 036202 ER4 AC+1,36202 ;LOW PRODUCT FAILED 13811 777777 777737 AEE=XX ;INITIAL C(E) 13812 041415 312 06 0 00 044035 CAME E,[XX] ;WAS C(E) CLOBBERED? 13813 041416 005 06 0 00 036203 ER5 E,36203 ;C(E) WAS CLOBBERED 13814 041417 321 12 0 00 041405 JUMPL AC+2,F36200 ;LOOP ON ERROR SWITCH^ 13815 13816 003621 ADR=ADR+1 13817 777777 777677 XX=XX+XX+1 13818 IFE , 13819 13820 ;MULTIPLY A RIPPLED 0 BY -1 13821 000101 MX=-XX 13822 000000 IFL XX, 13823 IFG XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0275 13824 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13825 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13826 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13827 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13828 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13829 13830 777777 777777 F36210: AA1=-1 ;INITIAL C(AC) 13831 041420 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13832 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13833 041421 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13834 777777 777677 AEE=XX ;INITIAL C(E) 13835 041422 200 06 0 00 044036 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13836 041423 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13837 000000 AR1=V1 ;EXPECTED RESULT IN AC 13838 041424 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13839 041425 003 10 0 00 036211 ER3 AC,36211 ;HIGH PRODUCT FAILED 13840 000101 AR2=MX ;EXPECTED RESULT IN AC+1 13841 041426 312 11 0 00 044162 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13842 041427 004 11 0 00 036212 ER4 AC+1,36212 ;LOW PRODUCT FAILED 13843 777777 777677 AEE=XX ;INITIAL C(E) 13844 041430 312 06 0 00 044036 CAME E,[XX] ;WAS C(E) CLOBBERED? 13845 041431 005 06 0 00 036213 ER5 E,36213 ;C(E) WAS CLOBBERED 13846 041432 321 12 0 00 041420 JUMPL AC+2,F36210 ;LOOP ON ERROR SWITCH^ 13847 13848 003622 ADR=ADR+1 13849 777777 777577 XX=XX+XX+1 13850 IFE , 13851 13852 ;MULTIPLY A RIPPLED 0 BY -1 13853 000201 MX=-XX 13854 000000 IFL XX, 13855 IFG XX, 13856 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13857 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13858 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13859 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13860 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13861 13862 777777 777777 F36220: AA1=-1 ;INITIAL C(AC) 13863 041433 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13864 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13865 041434 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13866 777777 777577 AEE=XX ;INITIAL C(E) 13867 041435 200 06 0 00 044037 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13868 041436 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13869 000000 AR1=V1 ;EXPECTED RESULT IN AC 13870 041437 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13871 041440 003 10 0 00 036221 ER3 AC,36221 ;HIGH PRODUCT FAILED 13872 000201 AR2=MX ;EXPECTED RESULT IN AC+1 13873 041441 312 11 0 00 044163 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13874 041442 004 11 0 00 036222 ER4 AC+1,36222 ;LOW PRODUCT FAILED 13875 777777 777577 AEE=XX ;INITIAL C(E) 13876 041443 312 06 0 00 044037 CAME E,[XX] ;WAS C(E) CLOBBERED? 13877 041444 005 06 0 00 036223 ER5 E,36223 ;C(E) WAS CLOBBERED 13878 041445 321 12 0 00 041433 JUMPL AC+2,F36220 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0276 13879 13880 003623 ADR=ADR+1 13881 777777 777377 XX=XX+XX+1 13882 IFE , 13883 13884 ;MULTIPLY A RIPPLED 0 BY -1 13885 000401 MX=-XX 13886 000000 IFL XX, 13887 IFG XX, 13888 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13889 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13890 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13891 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13892 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13893 13894 777777 777777 F36230: AA1=-1 ;INITIAL C(AC) 13895 041446 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13896 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13897 041447 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13898 777777 777377 AEE=XX ;INITIAL C(E) 13899 041450 200 06 0 00 044040 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13900 041451 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13901 000000 AR1=V1 ;EXPECTED RESULT IN AC 13902 041452 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13903 041453 003 10 0 00 036231 ER3 AC,36231 ;HIGH PRODUCT FAILED 13904 000401 AR2=MX ;EXPECTED RESULT IN AC+1 13905 041454 312 11 0 00 044164 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13906 041455 004 11 0 00 036232 ER4 AC+1,36232 ;LOW PRODUCT FAILED 13907 777777 777377 AEE=XX ;INITIAL C(E) 13908 041456 312 06 0 00 044040 CAME E,[XX] ;WAS C(E) CLOBBERED? 13909 041457 005 06 0 00 036233 ER5 E,36233 ;C(E) WAS CLOBBERED 13910 041460 321 12 0 00 041446 JUMPL AC+2,F36230 ;LOOP ON ERROR SWITCH^ 13911 13912 003624 ADR=ADR+1 13913 777777 776777 XX=XX+XX+1 13914 IFE , 13915 13916 ;MULTIPLY A RIPPLED 0 BY -1 13917 001001 MX=-XX 13918 000000 IFL XX, 13919 IFG XX, 13920 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13921 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13922 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13923 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13924 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13925 13926 777777 777777 F36240: AA1=-1 ;INITIAL C(AC) 13927 041461 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13928 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13929 041462 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13930 777777 776777 AEE=XX ;INITIAL C(E) 13931 041463 200 06 0 00 044041 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13932 041464 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13933 000000 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0277 13934 041465 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13935 041466 003 10 0 00 036241 ER3 AC,36241 ;HIGH PRODUCT FAILED 13936 001001 AR2=MX ;EXPECTED RESULT IN AC+1 13937 041467 312 11 0 00 044165 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13938 041470 004 11 0 00 036242 ER4 AC+1,36242 ;LOW PRODUCT FAILED 13939 777777 776777 AEE=XX ;INITIAL C(E) 13940 041471 312 06 0 00 044041 CAME E,[XX] ;WAS C(E) CLOBBERED? 13941 041472 005 06 0 00 036243 ER5 E,36243 ;C(E) WAS CLOBBERED 13942 041473 321 12 0 00 041461 JUMPL AC+2,F36240 ;LOOP ON ERROR SWITCH^ 13943 13944 003625 ADR=ADR+1 13945 777777 775777 XX=XX+XX+1 13946 IFE , 13947 13948 ;MULTIPLY A RIPPLED 0 BY -1 13949 002001 MX=-XX 13950 000000 IFL XX, 13951 IFG XX, 13952 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13953 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13954 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13955 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13956 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 13957 13958 777777 777777 F36250: AA1=-1 ;INITIAL C(AC) 13959 041474 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13960 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13961 041475 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13962 777777 775777 AEE=XX ;INITIAL C(E) 13963 041476 200 06 0 00 044042 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13964 041477 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13965 000000 AR1=V1 ;EXPECTED RESULT IN AC 13966 041500 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13967 041501 003 10 0 00 036251 ER3 AC,36251 ;HIGH PRODUCT FAILED 13968 002001 AR2=MX ;EXPECTED RESULT IN AC+1 13969 041502 312 11 0 00 044166 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 13970 041503 004 11 0 00 036252 ER4 AC+1,36252 ;LOW PRODUCT FAILED 13971 777777 775777 AEE=XX ;INITIAL C(E) 13972 041504 312 06 0 00 044042 CAME E,[XX] ;WAS C(E) CLOBBERED? 13973 041505 005 06 0 00 036253 ER5 E,36253 ;C(E) WAS CLOBBERED 13974 041506 321 12 0 00 041474 JUMPL AC+2,F36250 ;LOOP ON ERROR SWITCH^ 13975 13976 003626 ADR=ADR+1 13977 777777 773777 XX=XX+XX+1 13978 IFE , 13979 13980 ;MULTIPLY A RIPPLED 0 BY -1 13981 004001 MX=-XX 13982 000000 IFL XX, 13983 IFG XX, 13984 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 13985 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 13986 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 13987 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 13988 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0278 13989 13990 777777 777777 F36260: AA1=-1 ;INITIAL C(AC) 13991 041507 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 13992 777777 777777 AA2=-1 ;INITIAL C(AC+1) 13993 041510 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 13994 777777 773777 AEE=XX ;INITIAL C(E) 13995 041511 200 06 0 00 044043 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 13996 041512 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 13997 000000 AR1=V1 ;EXPECTED RESULT IN AC 13998 041513 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 13999 041514 003 10 0 00 036261 ER3 AC,36261 ;HIGH PRODUCT FAILED 14000 004001 AR2=MX ;EXPECTED RESULT IN AC+1 14001 041515 312 11 0 00 044167 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14002 041516 004 11 0 00 036262 ER4 AC+1,36262 ;LOW PRODUCT FAILED 14003 777777 773777 AEE=XX ;INITIAL C(E) 14004 041517 312 06 0 00 044043 CAME E,[XX] ;WAS C(E) CLOBBERED? 14005 041520 005 06 0 00 036263 ER5 E,36263 ;C(E) WAS CLOBBERED 14006 041521 321 12 0 00 041507 JUMPL AC+2,F36260 ;LOOP ON ERROR SWITCH^ 14007 14008 003627 ADR=ADR+1 14009 777777 767777 XX=XX+XX+1 14010 IFE , 14011 14012 ;MULTIPLY A RIPPLED 0 BY -1 14013 010001 MX=-XX 14014 000000 IFL XX, 14015 IFG XX, 14016 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14017 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14018 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14019 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14020 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14021 14022 777777 777777 F36270: AA1=-1 ;INITIAL C(AC) 14023 041522 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14024 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14025 041523 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14026 777777 767777 AEE=XX ;INITIAL C(E) 14027 041524 200 06 0 00 044044 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14028 041525 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14029 000000 AR1=V1 ;EXPECTED RESULT IN AC 14030 041526 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14031 041527 003 10 0 00 036271 ER3 AC,36271 ;HIGH PRODUCT FAILED 14032 010001 AR2=MX ;EXPECTED RESULT IN AC+1 14033 041530 312 11 0 00 044170 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14034 041531 004 11 0 00 036272 ER4 AC+1,36272 ;LOW PRODUCT FAILED 14035 777777 767777 AEE=XX ;INITIAL C(E) 14036 041532 312 06 0 00 044044 CAME E,[XX] ;WAS C(E) CLOBBERED? 14037 041533 005 06 0 00 036273 ER5 E,36273 ;C(E) WAS CLOBBERED 14038 041534 321 12 0 00 041522 JUMPL AC+2,F36270 ;LOOP ON ERROR SWITCH^ 14039 14040 003630 ADR=ADR+1 14041 777777 757777 XX=XX+XX+1 14042 IFE , 14043 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0279 14044 ;MULTIPLY A RIPPLED 0 BY -1 14045 020001 MX=-XX 14046 000000 IFL XX, 14047 IFG XX, 14048 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14049 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14050 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14051 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14052 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14053 14054 777777 777777 F36300: AA1=-1 ;INITIAL C(AC) 14055 041535 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14056 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14057 041536 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14058 777777 757777 AEE=XX ;INITIAL C(E) 14059 041537 200 06 0 00 044045 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14060 041540 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14061 000000 AR1=V1 ;EXPECTED RESULT IN AC 14062 041541 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14063 041542 003 10 0 00 036301 ER3 AC,36301 ;HIGH PRODUCT FAILED 14064 020001 AR2=MX ;EXPECTED RESULT IN AC+1 14065 041543 312 11 0 00 044171 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14066 041544 004 11 0 00 036302 ER4 AC+1,36302 ;LOW PRODUCT FAILED 14067 777777 757777 AEE=XX ;INITIAL C(E) 14068 041545 312 06 0 00 044045 CAME E,[XX] ;WAS C(E) CLOBBERED? 14069 041546 005 06 0 00 036303 ER5 E,36303 ;C(E) WAS CLOBBERED 14070 041547 321 12 0 00 041535 JUMPL AC+2,F36300 ;LOOP ON ERROR SWITCH^ 14071 14072 003631 ADR=ADR+1 14073 777777 737777 XX=XX+XX+1 14074 IFE , 14075 14076 ;MULTIPLY A RIPPLED 0 BY -1 14077 040001 MX=-XX 14078 000000 IFL XX, 14079 IFG XX, 14080 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14081 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14082 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14083 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14084 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14085 14086 777777 777777 F36310: AA1=-1 ;INITIAL C(AC) 14087 041550 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14088 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14089 041551 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14090 777777 737777 AEE=XX ;INITIAL C(E) 14091 041552 200 06 0 00 044046 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14092 041553 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14093 000000 AR1=V1 ;EXPECTED RESULT IN AC 14094 041554 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14095 041555 003 10 0 00 036311 ER3 AC,36311 ;HIGH PRODUCT FAILED 14096 040001 AR2=MX ;EXPECTED RESULT IN AC+1 14097 041556 312 11 0 00 044172 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14098 041557 004 11 0 00 036312 ER4 AC+1,36312 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0280 14099 777777 737777 AEE=XX ;INITIAL C(E) 14100 041560 312 06 0 00 044046 CAME E,[XX] ;WAS C(E) CLOBBERED? 14101 041561 005 06 0 00 036313 ER5 E,36313 ;C(E) WAS CLOBBERED 14102 041562 321 12 0 00 041550 JUMPL AC+2,F36310 ;LOOP ON ERROR SWITCH^ 14103 14104 003632 ADR=ADR+1 14105 777777 677777 XX=XX+XX+1 14106 IFE , 14107 14108 ;MULTIPLY A RIPPLED 0 BY -1 14109 100001 MX=-XX 14110 000000 IFL XX, 14111 IFG XX, 14112 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14113 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14114 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14115 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14116 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14117 14118 777777 777777 F36320: AA1=-1 ;INITIAL C(AC) 14119 041563 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14120 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14121 041564 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14122 777777 677777 AEE=XX ;INITIAL C(E) 14123 041565 200 06 0 00 044047 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14124 041566 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14125 000000 AR1=V1 ;EXPECTED RESULT IN AC 14126 041567 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14127 041570 003 10 0 00 036321 ER3 AC,36321 ;HIGH PRODUCT FAILED 14128 100001 AR2=MX ;EXPECTED RESULT IN AC+1 14129 041571 312 11 0 00 044173 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14130 041572 004 11 0 00 036322 ER4 AC+1,36322 ;LOW PRODUCT FAILED 14131 777777 677777 AEE=XX ;INITIAL C(E) 14132 041573 312 06 0 00 044047 CAME E,[XX] ;WAS C(E) CLOBBERED? 14133 041574 005 06 0 00 036323 ER5 E,36323 ;C(E) WAS CLOBBERED 14134 041575 321 12 0 00 041563 JUMPL AC+2,F36320 ;LOOP ON ERROR SWITCH^ 14135 14136 003633 ADR=ADR+1 14137 777777 577777 XX=XX+XX+1 14138 IFE , 14139 14140 ;MULTIPLY A RIPPLED 0 BY -1 14141 200001 MX=-XX 14142 000000 IFL XX, 14143 IFG XX, 14144 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14145 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14146 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14147 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14148 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14149 14150 777777 777777 F36330: AA1=-1 ;INITIAL C(AC) 14151 041576 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14152 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14153 041577 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0281 14154 777777 577777 AEE=XX ;INITIAL C(E) 14155 041600 200 06 0 00 044050 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14156 041601 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14157 000000 AR1=V1 ;EXPECTED RESULT IN AC 14158 041602 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14159 041603 003 10 0 00 036331 ER3 AC,36331 ;HIGH PRODUCT FAILED 14160 200001 AR2=MX ;EXPECTED RESULT IN AC+1 14161 041604 312 11 0 00 044174 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14162 041605 004 11 0 00 036332 ER4 AC+1,36332 ;LOW PRODUCT FAILED 14163 777777 577777 AEE=XX ;INITIAL C(E) 14164 041606 312 06 0 00 044050 CAME E,[XX] ;WAS C(E) CLOBBERED? 14165 041607 005 06 0 00 036333 ER5 E,36333 ;C(E) WAS CLOBBERED 14166 041610 321 12 0 00 041576 JUMPL AC+2,F36330 ;LOOP ON ERROR SWITCH^ 14167 14168 003634 ADR=ADR+1 14169 777777 377777 XX=XX+XX+1 14170 IFE , 14171 14172 ;MULTIPLY A RIPPLED 0 BY -1 14173 400001 MX=-XX 14174 000000 IFL XX, 14175 IFG XX, 14176 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14177 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14178 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14179 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14180 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14181 14182 777777 777777 F36340: AA1=-1 ;INITIAL C(AC) 14183 041611 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14184 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14185 041612 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14186 777777 377777 AEE=XX ;INITIAL C(E) 14187 041613 200 06 0 00 044051 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14188 041614 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14189 000000 AR1=V1 ;EXPECTED RESULT IN AC 14190 041615 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14191 041616 003 10 0 00 036341 ER3 AC,36341 ;HIGH PRODUCT FAILED 14192 400001 AR2=MX ;EXPECTED RESULT IN AC+1 14193 041617 312 11 0 00 044175 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14194 041620 004 11 0 00 036342 ER4 AC+1,36342 ;LOW PRODUCT FAILED 14195 777777 377777 AEE=XX ;INITIAL C(E) 14196 041621 312 06 0 00 044051 CAME E,[XX] ;WAS C(E) CLOBBERED? 14197 041622 005 06 0 00 036343 ER5 E,36343 ;C(E) WAS CLOBBERED 14198 041623 321 12 0 00 041611 JUMPL AC+2,F36340 ;LOOP ON ERROR SWITCH^ 14199 14200 003635 ADR=ADR+1 14201 777776 777777 XX=XX+XX+1 14202 IFE , 14203 14204 ;MULTIPLY A RIPPLED 0 BY -1 14205 000001 000001 MX=-XX 14206 000000 IFL XX, 14207 IFG XX, 14208 MOP1 (\ADR,-1,-1,XX,V1,MX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0282 14209 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14210 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14211 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14212 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14213 14214 777777 777777 F36350: AA1=-1 ;INITIAL C(AC) 14215 041624 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14216 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14217 041625 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14218 777776 777777 AEE=XX ;INITIAL C(E) 14219 041626 200 06 0 00 044052 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14220 041627 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14221 000000 AR1=V1 ;EXPECTED RESULT IN AC 14222 041630 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14223 041631 003 10 0 00 036351 ER3 AC,36351 ;HIGH PRODUCT FAILED 14224 000001 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14225 041632 312 11 0 00 044176 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14226 041633 004 11 0 00 036352 ER4 AC+1,36352 ;LOW PRODUCT FAILED 14227 777776 777777 AEE=XX ;INITIAL C(E) 14228 041634 312 06 0 00 044052 CAME E,[XX] ;WAS C(E) CLOBBERED? 14229 041635 005 06 0 00 036353 ER5 E,36353 ;C(E) WAS CLOBBERED 14230 041636 321 12 0 00 041624 JUMPL AC+2,F36350 ;LOOP ON ERROR SWITCH^ 14231 14232 003636 ADR=ADR+1 14233 777775 777777 XX=XX+XX+1 14234 IFE , 14235 14236 ;MULTIPLY A RIPPLED 0 BY -1 14237 000002 000001 MX=-XX 14238 000000 IFL XX, 14239 IFG XX, 14240 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14241 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14242 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14243 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14244 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14245 14246 777777 777777 F36360: AA1=-1 ;INITIAL C(AC) 14247 041637 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14248 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14249 041640 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14250 777775 777777 AEE=XX ;INITIAL C(E) 14251 041641 200 06 0 00 044053 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14252 041642 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14253 000000 AR1=V1 ;EXPECTED RESULT IN AC 14254 041643 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14255 041644 003 10 0 00 036361 ER3 AC,36361 ;HIGH PRODUCT FAILED 14256 000002 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14257 041645 312 11 0 00 044177 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14258 041646 004 11 0 00 036362 ER4 AC+1,36362 ;LOW PRODUCT FAILED 14259 777775 777777 AEE=XX ;INITIAL C(E) 14260 041647 312 06 0 00 044053 CAME E,[XX] ;WAS C(E) CLOBBERED? 14261 041650 005 06 0 00 036363 ER5 E,36363 ;C(E) WAS CLOBBERED 14262 041651 321 12 0 00 041637 JUMPL AC+2,F36360 ;LOOP ON ERROR SWITCH^ 14263 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0283 14264 003637 ADR=ADR+1 14265 777773 777777 XX=XX+XX+1 14266 IFE , 14267 14268 ;MULTIPLY A RIPPLED 0 BY -1 14269 000004 000001 MX=-XX 14270 000000 IFL XX, 14271 IFG XX, 14272 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14273 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14274 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14275 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14276 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14277 14278 777777 777777 F36370: AA1=-1 ;INITIAL C(AC) 14279 041652 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14280 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14281 041653 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14282 777773 777777 AEE=XX ;INITIAL C(E) 14283 041654 200 06 0 00 044054 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14284 041655 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14285 000000 AR1=V1 ;EXPECTED RESULT IN AC 14286 041656 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14287 041657 003 10 0 00 036371 ER3 AC,36371 ;HIGH PRODUCT FAILED 14288 000004 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14289 041660 312 11 0 00 044200 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14290 041661 004 11 0 00 036372 ER4 AC+1,36372 ;LOW PRODUCT FAILED 14291 777773 777777 AEE=XX ;INITIAL C(E) 14292 041662 312 06 0 00 044054 CAME E,[XX] ;WAS C(E) CLOBBERED? 14293 041663 005 06 0 00 036373 ER5 E,36373 ;C(E) WAS CLOBBERED 14294 041664 321 12 0 00 041652 JUMPL AC+2,F36370 ;LOOP ON ERROR SWITCH^ 14295 14296 003640 ADR=ADR+1 14297 777767 777777 XX=XX+XX+1 14298 IFE , 14299 14300 ;MULTIPLY A RIPPLED 0 BY -1 14301 000010 000001 MX=-XX 14302 000000 IFL XX, 14303 IFG XX, 14304 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14305 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14306 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14307 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14308 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14309 14310 777777 777777 F36400: AA1=-1 ;INITIAL C(AC) 14311 041665 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14312 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14313 041666 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14314 777767 777777 AEE=XX ;INITIAL C(E) 14315 041667 200 06 0 00 044055 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14316 041670 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14317 000000 AR1=V1 ;EXPECTED RESULT IN AC 14318 041671 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0284 14319 041672 003 10 0 00 036401 ER3 AC,36401 ;HIGH PRODUCT FAILED 14320 000010 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14321 041673 312 11 0 00 044201 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14322 041674 004 11 0 00 036402 ER4 AC+1,36402 ;LOW PRODUCT FAILED 14323 777767 777777 AEE=XX ;INITIAL C(E) 14324 041675 312 06 0 00 044055 CAME E,[XX] ;WAS C(E) CLOBBERED? 14325 041676 005 06 0 00 036403 ER5 E,36403 ;C(E) WAS CLOBBERED 14326 041677 321 12 0 00 041665 JUMPL AC+2,F36400 ;LOOP ON ERROR SWITCH^ 14327 14328 003641 ADR=ADR+1 14329 777757 777777 XX=XX+XX+1 14330 IFE , 14331 14332 ;MULTIPLY A RIPPLED 0 BY -1 14333 000020 000001 MX=-XX 14334 000000 IFL XX, 14335 IFG XX, 14336 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14337 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14338 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14339 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14340 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14341 14342 777777 777777 F36410: AA1=-1 ;INITIAL C(AC) 14343 041700 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14344 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14345 041701 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14346 777757 777777 AEE=XX ;INITIAL C(E) 14347 041702 200 06 0 00 044056 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14348 041703 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14349 000000 AR1=V1 ;EXPECTED RESULT IN AC 14350 041704 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14351 041705 003 10 0 00 036411 ER3 AC,36411 ;HIGH PRODUCT FAILED 14352 000020 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14353 041706 312 11 0 00 044202 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14354 041707 004 11 0 00 036412 ER4 AC+1,36412 ;LOW PRODUCT FAILED 14355 777757 777777 AEE=XX ;INITIAL C(E) 14356 041710 312 06 0 00 044056 CAME E,[XX] ;WAS C(E) CLOBBERED? 14357 041711 005 06 0 00 036413 ER5 E,36413 ;C(E) WAS CLOBBERED 14358 041712 321 12 0 00 041700 JUMPL AC+2,F36410 ;LOOP ON ERROR SWITCH^ 14359 14360 003642 ADR=ADR+1 14361 777737 777777 XX=XX+XX+1 14362 IFE , 14363 14364 ;MULTIPLY A RIPPLED 0 BY -1 14365 000040 000001 MX=-XX 14366 000000 IFL XX, 14367 IFG XX, 14368 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14369 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14370 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14371 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14372 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14373 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0285 14374 777777 777777 F36420: AA1=-1 ;INITIAL C(AC) 14375 041713 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14376 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14377 041714 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14378 777737 777777 AEE=XX ;INITIAL C(E) 14379 041715 200 06 0 00 044057 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14380 041716 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14381 000000 AR1=V1 ;EXPECTED RESULT IN AC 14382 041717 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14383 041720 003 10 0 00 036421 ER3 AC,36421 ;HIGH PRODUCT FAILED 14384 000040 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14385 041721 312 11 0 00 044203 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14386 041722 004 11 0 00 036422 ER4 AC+1,36422 ;LOW PRODUCT FAILED 14387 777737 777777 AEE=XX ;INITIAL C(E) 14388 041723 312 06 0 00 044057 CAME E,[XX] ;WAS C(E) CLOBBERED? 14389 041724 005 06 0 00 036423 ER5 E,36423 ;C(E) WAS CLOBBERED 14390 041725 321 12 0 00 041713 JUMPL AC+2,F36420 ;LOOP ON ERROR SWITCH^ 14391 14392 003643 ADR=ADR+1 14393 777677 777777 XX=XX+XX+1 14394 IFE , 14395 14396 ;MULTIPLY A RIPPLED 0 BY -1 14397 000100 000001 MX=-XX 14398 000000 IFL XX, 14399 IFG XX, 14400 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14401 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14402 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14403 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14404 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14405 14406 777777 777777 F36430: AA1=-1 ;INITIAL C(AC) 14407 041726 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14408 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14409 041727 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14410 777677 777777 AEE=XX ;INITIAL C(E) 14411 041730 200 06 0 00 044060 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14412 041731 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14413 000000 AR1=V1 ;EXPECTED RESULT IN AC 14414 041732 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14415 041733 003 10 0 00 036431 ER3 AC,36431 ;HIGH PRODUCT FAILED 14416 000100 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14417 041734 312 11 0 00 044204 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14418 041735 004 11 0 00 036432 ER4 AC+1,36432 ;LOW PRODUCT FAILED 14419 777677 777777 AEE=XX ;INITIAL C(E) 14420 041736 312 06 0 00 044060 CAME E,[XX] ;WAS C(E) CLOBBERED? 14421 041737 005 06 0 00 036433 ER5 E,36433 ;C(E) WAS CLOBBERED 14422 041740 321 12 0 00 041726 JUMPL AC+2,F36430 ;LOOP ON ERROR SWITCH^ 14423 14424 003644 ADR=ADR+1 14425 777577 777777 XX=XX+XX+1 14426 IFE , 14427 14428 ;MULTIPLY A RIPPLED 0 BY -1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0286 14429 000200 000001 MX=-XX 14430 000000 IFL XX, 14431 IFG XX, 14432 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14433 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14434 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14435 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14436 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14437 14438 777777 777777 F36440: AA1=-1 ;INITIAL C(AC) 14439 041741 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14440 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14441 041742 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14442 777577 777777 AEE=XX ;INITIAL C(E) 14443 041743 200 06 0 00 044061 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14444 041744 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14445 000000 AR1=V1 ;EXPECTED RESULT IN AC 14446 041745 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14447 041746 003 10 0 00 036441 ER3 AC,36441 ;HIGH PRODUCT FAILED 14448 000200 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14449 041747 312 11 0 00 044205 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14450 041750 004 11 0 00 036442 ER4 AC+1,36442 ;LOW PRODUCT FAILED 14451 777577 777777 AEE=XX ;INITIAL C(E) 14452 041751 312 06 0 00 044061 CAME E,[XX] ;WAS C(E) CLOBBERED? 14453 041752 005 06 0 00 036443 ER5 E,36443 ;C(E) WAS CLOBBERED 14454 041753 321 12 0 00 041741 JUMPL AC+2,F36440 ;LOOP ON ERROR SWITCH^ 14455 14456 003645 ADR=ADR+1 14457 777377 777777 XX=XX+XX+1 14458 IFE , 14459 14460 ;MULTIPLY A RIPPLED 0 BY -1 14461 000400 000001 MX=-XX 14462 000000 IFL XX, 14463 IFG XX, 14464 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14465 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14466 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14467 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14468 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14469 14470 777777 777777 F36450: AA1=-1 ;INITIAL C(AC) 14471 041754 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14472 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14473 041755 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14474 777377 777777 AEE=XX ;INITIAL C(E) 14475 041756 200 06 0 00 044062 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14476 041757 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14477 000000 AR1=V1 ;EXPECTED RESULT IN AC 14478 041760 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14479 041761 003 10 0 00 036451 ER3 AC,36451 ;HIGH PRODUCT FAILED 14480 000400 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14481 041762 312 11 0 00 044206 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14482 041763 004 11 0 00 036452 ER4 AC+1,36452 ;LOW PRODUCT FAILED 14483 777377 777777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0287 14484 041764 312 06 0 00 044062 CAME E,[XX] ;WAS C(E) CLOBBERED? 14485 041765 005 06 0 00 036453 ER5 E,36453 ;C(E) WAS CLOBBERED 14486 041766 321 12 0 00 041754 JUMPL AC+2,F36450 ;LOOP ON ERROR SWITCH^ 14487 14488 003646 ADR=ADR+1 14489 776777 777777 XX=XX+XX+1 14490 IFE , 14491 14492 ;MULTIPLY A RIPPLED 0 BY -1 14493 001000 000001 MX=-XX 14494 000000 IFL XX, 14495 IFG XX, 14496 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14497 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14498 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14499 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14500 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14501 14502 777777 777777 F36460: AA1=-1 ;INITIAL C(AC) 14503 041767 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14504 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14505 041770 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14506 776777 777777 AEE=XX ;INITIAL C(E) 14507 041771 200 06 0 00 044063 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14508 041772 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14509 000000 AR1=V1 ;EXPECTED RESULT IN AC 14510 041773 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14511 041774 003 10 0 00 036461 ER3 AC,36461 ;HIGH PRODUCT FAILED 14512 001000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14513 041775 312 11 0 00 044207 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14514 041776 004 11 0 00 036462 ER4 AC+1,36462 ;LOW PRODUCT FAILED 14515 776777 777777 AEE=XX ;INITIAL C(E) 14516 041777 312 06 0 00 044063 CAME E,[XX] ;WAS C(E) CLOBBERED? 14517 042000 005 06 0 00 036463 ER5 E,36463 ;C(E) WAS CLOBBERED 14518 042001 321 12 0 00 041767 JUMPL AC+2,F36460 ;LOOP ON ERROR SWITCH^ 14519 14520 003647 ADR=ADR+1 14521 775777 777777 XX=XX+XX+1 14522 IFE , 14523 14524 ;MULTIPLY A RIPPLED 0 BY -1 14525 002000 000001 MX=-XX 14526 000000 IFL XX, 14527 IFG XX, 14528 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14529 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14530 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14531 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14532 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14533 14534 777777 777777 F36470: AA1=-1 ;INITIAL C(AC) 14535 042002 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14536 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14537 042003 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14538 775777 777777 AEE=XX ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0288 14539 042004 200 06 0 00 044064 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14540 042005 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14541 000000 AR1=V1 ;EXPECTED RESULT IN AC 14542 042006 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14543 042007 003 10 0 00 036471 ER3 AC,36471 ;HIGH PRODUCT FAILED 14544 002000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14545 042010 312 11 0 00 044210 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14546 042011 004 11 0 00 036472 ER4 AC+1,36472 ;LOW PRODUCT FAILED 14547 775777 777777 AEE=XX ;INITIAL C(E) 14548 042012 312 06 0 00 044064 CAME E,[XX] ;WAS C(E) CLOBBERED? 14549 042013 005 06 0 00 036473 ER5 E,36473 ;C(E) WAS CLOBBERED 14550 042014 321 12 0 00 042002 JUMPL AC+2,F36470 ;LOOP ON ERROR SWITCH^ 14551 14552 003650 ADR=ADR+1 14553 773777 777777 XX=XX+XX+1 14554 IFE , 14555 14556 ;MULTIPLY A RIPPLED 0 BY -1 14557 004000 000001 MX=-XX 14558 000000 IFL XX, 14559 IFG XX, 14560 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14561 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14562 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14563 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14564 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14565 14566 777777 777777 F36500: AA1=-1 ;INITIAL C(AC) 14567 042015 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14568 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14569 042016 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14570 773777 777777 AEE=XX ;INITIAL C(E) 14571 042017 200 06 0 00 044065 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14572 042020 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14573 000000 AR1=V1 ;EXPECTED RESULT IN AC 14574 042021 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14575 042022 003 10 0 00 036501 ER3 AC,36501 ;HIGH PRODUCT FAILED 14576 004000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14577 042023 312 11 0 00 044211 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14578 042024 004 11 0 00 036502 ER4 AC+1,36502 ;LOW PRODUCT FAILED 14579 773777 777777 AEE=XX ;INITIAL C(E) 14580 042025 312 06 0 00 044065 CAME E,[XX] ;WAS C(E) CLOBBERED? 14581 042026 005 06 0 00 036503 ER5 E,36503 ;C(E) WAS CLOBBERED 14582 042027 321 12 0 00 042015 JUMPL AC+2,F36500 ;LOOP ON ERROR SWITCH^ 14583 14584 003651 ADR=ADR+1 14585 767777 777777 XX=XX+XX+1 14586 IFE , 14587 14588 ;MULTIPLY A RIPPLED 0 BY -1 14589 010000 000001 MX=-XX 14590 000000 IFL XX, 14591 IFG XX, 14592 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14593 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0289 14594 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14595 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14596 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14597 14598 777777 777777 F36510: AA1=-1 ;INITIAL C(AC) 14599 042030 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14600 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14601 042031 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14602 767777 777777 AEE=XX ;INITIAL C(E) 14603 042032 200 06 0 00 044066 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14604 042033 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14605 000000 AR1=V1 ;EXPECTED RESULT IN AC 14606 042034 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14607 042035 003 10 0 00 036511 ER3 AC,36511 ;HIGH PRODUCT FAILED 14608 010000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14609 042036 312 11 0 00 044212 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14610 042037 004 11 0 00 036512 ER4 AC+1,36512 ;LOW PRODUCT FAILED 14611 767777 777777 AEE=XX ;INITIAL C(E) 14612 042040 312 06 0 00 044066 CAME E,[XX] ;WAS C(E) CLOBBERED? 14613 042041 005 06 0 00 036513 ER5 E,36513 ;C(E) WAS CLOBBERED 14614 042042 321 12 0 00 042030 JUMPL AC+2,F36510 ;LOOP ON ERROR SWITCH^ 14615 14616 003652 ADR=ADR+1 14617 757777 777777 XX=XX+XX+1 14618 IFE , 14619 14620 ;MULTIPLY A RIPPLED 0 BY -1 14621 020000 000001 MX=-XX 14622 000000 IFL XX, 14623 IFG XX, 14624 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14625 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14626 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14627 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14628 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14629 14630 777777 777777 F36520: AA1=-1 ;INITIAL C(AC) 14631 042043 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14632 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14633 042044 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14634 757777 777777 AEE=XX ;INITIAL C(E) 14635 042045 200 06 0 00 044067 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14636 042046 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14637 000000 AR1=V1 ;EXPECTED RESULT IN AC 14638 042047 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14639 042050 003 10 0 00 036521 ER3 AC,36521 ;HIGH PRODUCT FAILED 14640 020000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14641 042051 312 11 0 00 044213 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14642 042052 004 11 0 00 036522 ER4 AC+1,36522 ;LOW PRODUCT FAILED 14643 757777 777777 AEE=XX ;INITIAL C(E) 14644 042053 312 06 0 00 044067 CAME E,[XX] ;WAS C(E) CLOBBERED? 14645 042054 005 06 0 00 036523 ER5 E,36523 ;C(E) WAS CLOBBERED 14646 042055 321 12 0 00 042043 JUMPL AC+2,F36520 ;LOOP ON ERROR SWITCH^ 14647 14648 003653 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0290 14649 737777 777777 XX=XX+XX+1 14650 IFE , 14651 14652 ;MULTIPLY A RIPPLED 0 BY -1 14653 040000 000001 MX=-XX 14654 000000 IFL XX, 14655 IFG XX, 14656 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14657 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14658 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14659 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14660 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14661 14662 777777 777777 F36530: AA1=-1 ;INITIAL C(AC) 14663 042056 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14664 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14665 042057 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14666 737777 777777 AEE=XX ;INITIAL C(E) 14667 042060 200 06 0 00 044070 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14668 042061 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14669 000000 AR1=V1 ;EXPECTED RESULT IN AC 14670 042062 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14671 042063 003 10 0 00 036531 ER3 AC,36531 ;HIGH PRODUCT FAILED 14672 040000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14673 042064 312 11 0 00 044214 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14674 042065 004 11 0 00 036532 ER4 AC+1,36532 ;LOW PRODUCT FAILED 14675 737777 777777 AEE=XX ;INITIAL C(E) 14676 042066 312 06 0 00 044070 CAME E,[XX] ;WAS C(E) CLOBBERED? 14677 042067 005 06 0 00 036533 ER5 E,36533 ;C(E) WAS CLOBBERED 14678 042070 321 12 0 00 042056 JUMPL AC+2,F36530 ;LOOP ON ERROR SWITCH^ 14679 14680 003654 ADR=ADR+1 14681 677777 777777 XX=XX+XX+1 14682 IFE , 14683 14684 ;MULTIPLY A RIPPLED 0 BY -1 14685 100000 000001 MX=-XX 14686 000000 IFL XX, 14687 IFG XX, 14688 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14689 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14690 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14691 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14692 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14693 14694 777777 777777 F36540: AA1=-1 ;INITIAL C(AC) 14695 042071 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14696 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14697 042072 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14698 677777 777777 AEE=XX ;INITIAL C(E) 14699 042073 200 06 0 00 044071 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14700 042074 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14701 000000 AR1=V1 ;EXPECTED RESULT IN AC 14702 042075 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14703 042076 003 10 0 00 036541 ER3 AC,36541 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0291 14704 100000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14705 042077 312 11 0 00 044215 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14706 042100 004 11 0 00 036542 ER4 AC+1,36542 ;LOW PRODUCT FAILED 14707 677777 777777 AEE=XX ;INITIAL C(E) 14708 042101 312 06 0 00 044071 CAME E,[XX] ;WAS C(E) CLOBBERED? 14709 042102 005 06 0 00 036543 ER5 E,36543 ;C(E) WAS CLOBBERED 14710 042103 321 12 0 00 042071 JUMPL AC+2,F36540 ;LOOP ON ERROR SWITCH^ 14711 14712 003655 ADR=ADR+1 14713 577777 777777 XX=XX+XX+1 14714 IFE , 14715 14716 ;MULTIPLY A RIPPLED 0 BY -1 14717 200000 000001 MX=-XX 14718 000000 IFL XX, 14719 IFG XX, 14720 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14721 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14722 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14723 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14724 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14725 14726 777777 777777 F36550: AA1=-1 ;INITIAL C(AC) 14727 042104 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14728 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14729 042105 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14730 577777 777777 AEE=XX ;INITIAL C(E) 14731 042106 200 06 0 00 044072 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14732 042107 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14733 000000 AR1=V1 ;EXPECTED RESULT IN AC 14734 042110 312 10 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14735 042111 003 10 0 00 036551 ER3 AC,36551 ;HIGH PRODUCT FAILED 14736 200000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14737 042112 312 11 0 00 044216 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14738 042113 004 11 0 00 036552 ER4 AC+1,36552 ;LOW PRODUCT FAILED 14739 577777 777777 AEE=XX ;INITIAL C(E) 14740 042114 312 06 0 00 044072 CAME E,[XX] ;WAS C(E) CLOBBERED? 14741 042115 005 06 0 00 036553 ER5 E,36553 ;C(E) WAS CLOBBERED 14742 042116 321 12 0 00 042104 JUMPL AC+2,F36550 ;LOOP ON ERROR SWITCH^ 14743 14744 003656 ADR=ADR+1 14745 377777 777777 XX=XX+XX+1 14746 IFE , 14747 14748 ;MULTIPLY A RIPPLED 0 BY -1 14749 400000 000001 MX=-XX 14750 IFL XX, 14751 777777 777777 IFG XX, 14752 MOP1 (\ADR,-1,-1,XX,V1,MX)^ 14753 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [-1],[-1] AND 14754 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14755 ;AND E AGAINST [V1], [MX] AND [XX] RESPECTIVELY. 14756 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14757 14758 777777 777777 F36560: AA1=-1 ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 16-21 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0292 14759 042117 200 10 0 00 043763 MOVE AC,[-1] ;PRELOAD AC (MULTIPLIER) 14760 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14761 042120 200 11 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14762 377777 777777 AEE=XX ;INITIAL C(E) 14763 042121 200 06 0 00 044073 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 14764 042122 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14765 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 14766 042123 312 10 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14767 042124 003 10 0 00 036561 ER3 AC,36561 ;HIGH PRODUCT FAILED 14768 400000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 14769 042125 312 11 0 00 044217 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14770 042126 004 11 0 00 036562 ER4 AC+1,36562 ;LOW PRODUCT FAILED 14771 377777 777777 AEE=XX ;INITIAL C(E) 14772 042127 312 06 0 00 044073 CAME E,[XX] ;WAS C(E) CLOBBERED? 14773 042130 005 06 0 00 036563 ER5 E,36563 ;C(E) WAS CLOBBERED 14774 042131 321 12 0 00 042117 JUMPL AC+2,F36560 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0293 14775 000014 AC=14 14776 000012 E=&17 14777 SAVEAC (1,1)^ 14778 042132 201 16 0 00 042132 MOVEI AC+2,. ;SAVE TEST PC 14779 042133 202 16 0 00 030051 MOVEM AC+2,TESTPC 14780 042134 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 14781 042135 202 16 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 14782 000000 XX=0 14783 14784 REPEAT ^D36, < 14785 ADR=ADR+1 14786 XX=XX+XX+1 14787 IFE , 14788 14789 ;MULTIPLY -1 BY A RIPPLED 0 14790 MX=-XX 14791 IFL XX, 14792 IFG XX, 14793 MOP1 (\ADR,XX,-1,-1,V1,MX)> 14794 14795 003657 ADR=ADR+1 14796 000001 XX=XX+XX+1 14797 777777 777776 IFE , 14798 14799 ;MULTIPLY -1 BY A RIPPLED 0 14800 000002 MX=-XX 14801 000000 IFL XX, 14802 IFG XX, 14803 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14804 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14805 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14806 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14807 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14808 14809 777777 777776 F36570: AA1=XX ;INITIAL C(AC) 14810 042136 200 14 0 00 044030 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14811 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14812 042137 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14813 777777 777777 AEE=-1 ;INITIAL C(E) 14814 042140 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14815 042141 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14816 000000 AR1=V1 ;EXPECTED RESULT IN AC 14817 042142 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14818 042143 003 14 0 00 036571 ER3 AC,36571 ;HIGH PRODUCT FAILED 14819 000002 AR2=MX ;EXPECTED RESULT IN AC+1 14820 042144 312 15 0 00 043765 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14821 042145 004 15 0 00 036572 ER4 AC+1,36572 ;LOW PRODUCT FAILED 14822 777777 777777 AEE=-1 ;INITIAL C(E) 14823 042146 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14824 042147 005 12 0 00 036573 ER5 E,36573 ;C(E) WAS CLOBBERED 14825 042150 321 16 0 00 042136 JUMPL AC+2,F36570 ;LOOP ON ERROR SWITCH^ 14826 14827 003660 ADR=ADR+1 14828 777777 777775 XX=XX+XX+1 14829 IFE , DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0294 14830 14831 ;MULTIPLY -1 BY A RIPPLED 0 14832 000003 MX=-XX 14833 000000 IFL XX, 14834 IFG XX, 14835 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14836 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14837 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14838 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14839 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14840 14841 777777 777775 F36600: AA1=XX ;INITIAL C(AC) 14842 042151 200 14 0 00 044031 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14843 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14844 042152 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14845 777777 777777 AEE=-1 ;INITIAL C(E) 14846 042153 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14847 042154 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14848 000000 AR1=V1 ;EXPECTED RESULT IN AC 14849 042155 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14850 042156 003 14 0 00 036601 ER3 AC,36601 ;HIGH PRODUCT FAILED 14851 000003 AR2=MX ;EXPECTED RESULT IN AC+1 14852 042157 312 15 0 00 044074 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14853 042160 004 15 0 00 036602 ER4 AC+1,36602 ;LOW PRODUCT FAILED 14854 777777 777777 AEE=-1 ;INITIAL C(E) 14855 042161 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14856 042162 005 12 0 00 036603 ER5 E,36603 ;C(E) WAS CLOBBERED 14857 042163 321 16 0 00 042151 JUMPL AC+2,F36600 ;LOOP ON ERROR SWITCH^ 14858 14859 003661 ADR=ADR+1 14860 777777 777773 XX=XX+XX+1 14861 IFE , 14862 14863 ;MULTIPLY -1 BY A RIPPLED 0 14864 000005 MX=-XX 14865 000000 IFL XX, 14866 IFG XX, 14867 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14868 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14869 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14870 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14871 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14872 14873 777777 777773 F36610: AA1=XX ;INITIAL C(AC) 14874 042164 200 14 0 00 044032 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14875 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14876 042165 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14877 777777 777777 AEE=-1 ;INITIAL C(E) 14878 042166 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14879 042167 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14880 000000 AR1=V1 ;EXPECTED RESULT IN AC 14881 042170 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14882 042171 003 14 0 00 036611 ER3 AC,36611 ;HIGH PRODUCT FAILED 14883 000005 AR2=MX ;EXPECTED RESULT IN AC+1 14884 042172 312 15 0 00 044075 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0295 14885 042173 004 15 0 00 036612 ER4 AC+1,36612 ;LOW PRODUCT FAILED 14886 777777 777777 AEE=-1 ;INITIAL C(E) 14887 042174 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14888 042175 005 12 0 00 036613 ER5 E,36613 ;C(E) WAS CLOBBERED 14889 042176 321 16 0 00 042164 JUMPL AC+2,F36610 ;LOOP ON ERROR SWITCH^ 14890 14891 003662 ADR=ADR+1 14892 777777 777767 XX=XX+XX+1 14893 IFE , 14894 14895 ;MULTIPLY -1 BY A RIPPLED 0 14896 000011 MX=-XX 14897 000000 IFL XX, 14898 IFG XX, 14899 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14900 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14901 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14902 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14903 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14904 14905 777777 777767 F36620: AA1=XX ;INITIAL C(AC) 14906 042177 200 14 0 00 044033 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14907 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14908 042200 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14909 777777 777777 AEE=-1 ;INITIAL C(E) 14910 042201 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14911 042202 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14912 000000 AR1=V1 ;EXPECTED RESULT IN AC 14913 042203 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14914 042204 003 14 0 00 036621 ER3 AC,36621 ;HIGH PRODUCT FAILED 14915 000011 AR2=MX ;EXPECTED RESULT IN AC+1 14916 042205 312 15 0 00 044100 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14917 042206 004 15 0 00 036622 ER4 AC+1,36622 ;LOW PRODUCT FAILED 14918 777777 777777 AEE=-1 ;INITIAL C(E) 14919 042207 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14920 042210 005 12 0 00 036623 ER5 E,36623 ;C(E) WAS CLOBBERED 14921 042211 321 16 0 00 042177 JUMPL AC+2,F36620 ;LOOP ON ERROR SWITCH^ 14922 14923 003663 ADR=ADR+1 14924 777777 777757 XX=XX+XX+1 14925 IFE , 14926 14927 ;MULTIPLY -1 BY A RIPPLED 0 14928 000021 MX=-XX 14929 000000 IFL XX, 14930 IFG XX, 14931 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14932 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14933 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14934 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14935 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14936 14937 777777 777757 F36630: AA1=XX ;INITIAL C(AC) 14938 042212 200 14 0 00 044034 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14939 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0296 14940 042213 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14941 777777 777777 AEE=-1 ;INITIAL C(E) 14942 042214 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14943 042215 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14944 000000 AR1=V1 ;EXPECTED RESULT IN AC 14945 042216 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14946 042217 003 14 0 00 036631 ER3 AC,36631 ;HIGH PRODUCT FAILED 14947 000021 AR2=MX ;EXPECTED RESULT IN AC+1 14948 042220 312 15 0 00 044160 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14949 042221 004 15 0 00 036632 ER4 AC+1,36632 ;LOW PRODUCT FAILED 14950 777777 777777 AEE=-1 ;INITIAL C(E) 14951 042222 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14952 042223 005 12 0 00 036633 ER5 E,36633 ;C(E) WAS CLOBBERED 14953 042224 321 16 0 00 042212 JUMPL AC+2,F36630 ;LOOP ON ERROR SWITCH^ 14954 14955 003664 ADR=ADR+1 14956 777777 777737 XX=XX+XX+1 14957 IFE , 14958 14959 ;MULTIPLY -1 BY A RIPPLED 0 14960 000041 MX=-XX 14961 000000 IFL XX, 14962 IFG XX, 14963 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14964 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14965 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14966 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14967 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 14968 14969 777777 777737 F36640: AA1=XX ;INITIAL C(AC) 14970 042225 200 14 0 00 044035 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 14971 777777 777777 AA2=-1 ;INITIAL C(AC+1) 14972 042226 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 14973 777777 777777 AEE=-1 ;INITIAL C(E) 14974 042227 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 14975 042230 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 14976 000000 AR1=V1 ;EXPECTED RESULT IN AC 14977 042231 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 14978 042232 003 14 0 00 036641 ER3 AC,36641 ;HIGH PRODUCT FAILED 14979 000041 AR2=MX ;EXPECTED RESULT IN AC+1 14980 042233 312 15 0 00 044161 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 14981 042234 004 15 0 00 036642 ER4 AC+1,36642 ;LOW PRODUCT FAILED 14982 777777 777777 AEE=-1 ;INITIAL C(E) 14983 042235 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 14984 042236 005 12 0 00 036643 ER5 E,36643 ;C(E) WAS CLOBBERED 14985 042237 321 16 0 00 042225 JUMPL AC+2,F36640 ;LOOP ON ERROR SWITCH^ 14986 14987 003665 ADR=ADR+1 14988 777777 777677 XX=XX+XX+1 14989 IFE , 14990 14991 ;MULTIPLY -1 BY A RIPPLED 0 14992 000101 MX=-XX 14993 000000 IFL XX, 14994 IFG XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0297 14995 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 14996 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 14997 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 14998 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 14999 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15000 15001 777777 777677 F36650: AA1=XX ;INITIAL C(AC) 15002 042240 200 14 0 00 044036 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15003 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15004 042241 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15005 777777 777777 AEE=-1 ;INITIAL C(E) 15006 042242 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15007 042243 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15008 000000 AR1=V1 ;EXPECTED RESULT IN AC 15009 042244 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15010 042245 003 14 0 00 036651 ER3 AC,36651 ;HIGH PRODUCT FAILED 15011 000101 AR2=MX ;EXPECTED RESULT IN AC+1 15012 042246 312 15 0 00 044162 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15013 042247 004 15 0 00 036652 ER4 AC+1,36652 ;LOW PRODUCT FAILED 15014 777777 777777 AEE=-1 ;INITIAL C(E) 15015 042250 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15016 042251 005 12 0 00 036653 ER5 E,36653 ;C(E) WAS CLOBBERED 15017 042252 321 16 0 00 042240 JUMPL AC+2,F36650 ;LOOP ON ERROR SWITCH^ 15018 15019 003666 ADR=ADR+1 15020 777777 777577 XX=XX+XX+1 15021 IFE , 15022 15023 ;MULTIPLY -1 BY A RIPPLED 0 15024 000201 MX=-XX 15025 000000 IFL XX, 15026 IFG XX, 15027 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15028 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15029 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15030 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15031 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15032 15033 777777 777577 F36660: AA1=XX ;INITIAL C(AC) 15034 042253 200 14 0 00 044037 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15035 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15036 042254 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15037 777777 777777 AEE=-1 ;INITIAL C(E) 15038 042255 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15039 042256 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15040 000000 AR1=V1 ;EXPECTED RESULT IN AC 15041 042257 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15042 042260 003 14 0 00 036661 ER3 AC,36661 ;HIGH PRODUCT FAILED 15043 000201 AR2=MX ;EXPECTED RESULT IN AC+1 15044 042261 312 15 0 00 044163 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15045 042262 004 15 0 00 036662 ER4 AC+1,36662 ;LOW PRODUCT FAILED 15046 777777 777777 AEE=-1 ;INITIAL C(E) 15047 042263 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15048 042264 005 12 0 00 036663 ER5 E,36663 ;C(E) WAS CLOBBERED 15049 042265 321 16 0 00 042253 JUMPL AC+2,F36660 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0298 15050 15051 003667 ADR=ADR+1 15052 777777 777377 XX=XX+XX+1 15053 IFE , 15054 15055 ;MULTIPLY -1 BY A RIPPLED 0 15056 000401 MX=-XX 15057 000000 IFL XX, 15058 IFG XX, 15059 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15060 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15061 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15062 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15063 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15064 15065 777777 777377 F36670: AA1=XX ;INITIAL C(AC) 15066 042266 200 14 0 00 044040 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15067 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15068 042267 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15069 777777 777777 AEE=-1 ;INITIAL C(E) 15070 042270 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15071 042271 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15072 000000 AR1=V1 ;EXPECTED RESULT IN AC 15073 042272 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15074 042273 003 14 0 00 036671 ER3 AC,36671 ;HIGH PRODUCT FAILED 15075 000401 AR2=MX ;EXPECTED RESULT IN AC+1 15076 042274 312 15 0 00 044164 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15077 042275 004 15 0 00 036672 ER4 AC+1,36672 ;LOW PRODUCT FAILED 15078 777777 777777 AEE=-1 ;INITIAL C(E) 15079 042276 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15080 042277 005 12 0 00 036673 ER5 E,36673 ;C(E) WAS CLOBBERED 15081 042300 321 16 0 00 042266 JUMPL AC+2,F36670 ;LOOP ON ERROR SWITCH^ 15082 15083 003670 ADR=ADR+1 15084 777777 776777 XX=XX+XX+1 15085 IFE , 15086 15087 ;MULTIPLY -1 BY A RIPPLED 0 15088 001001 MX=-XX 15089 000000 IFL XX, 15090 IFG XX, 15091 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15092 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15093 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15094 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15095 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15096 15097 777777 776777 F36700: AA1=XX ;INITIAL C(AC) 15098 042301 200 14 0 00 044041 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15099 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15100 042302 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15101 777777 777777 AEE=-1 ;INITIAL C(E) 15102 042303 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15103 042304 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15104 000000 AR1=V1 ;EXPECTED RESULT IN AC DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0299 15105 042305 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15106 042306 003 14 0 00 036701 ER3 AC,36701 ;HIGH PRODUCT FAILED 15107 001001 AR2=MX ;EXPECTED RESULT IN AC+1 15108 042307 312 15 0 00 044165 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15109 042310 004 15 0 00 036702 ER4 AC+1,36702 ;LOW PRODUCT FAILED 15110 777777 777777 AEE=-1 ;INITIAL C(E) 15111 042311 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15112 042312 005 12 0 00 036703 ER5 E,36703 ;C(E) WAS CLOBBERED 15113 042313 321 16 0 00 042301 JUMPL AC+2,F36700 ;LOOP ON ERROR SWITCH^ 15114 15115 003671 ADR=ADR+1 15116 777777 775777 XX=XX+XX+1 15117 IFE , 15118 15119 ;MULTIPLY -1 BY A RIPPLED 0 15120 002001 MX=-XX 15121 000000 IFL XX, 15122 IFG XX, 15123 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15124 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15125 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15126 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15127 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15128 15129 777777 775777 F36710: AA1=XX ;INITIAL C(AC) 15130 042314 200 14 0 00 044042 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15131 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15132 042315 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15133 777777 777777 AEE=-1 ;INITIAL C(E) 15134 042316 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15135 042317 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15136 000000 AR1=V1 ;EXPECTED RESULT IN AC 15137 042320 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15138 042321 003 14 0 00 036711 ER3 AC,36711 ;HIGH PRODUCT FAILED 15139 002001 AR2=MX ;EXPECTED RESULT IN AC+1 15140 042322 312 15 0 00 044166 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15141 042323 004 15 0 00 036712 ER4 AC+1,36712 ;LOW PRODUCT FAILED 15142 777777 777777 AEE=-1 ;INITIAL C(E) 15143 042324 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15144 042325 005 12 0 00 036713 ER5 E,36713 ;C(E) WAS CLOBBERED 15145 042326 321 16 0 00 042314 JUMPL AC+2,F36710 ;LOOP ON ERROR SWITCH^ 15146 15147 003672 ADR=ADR+1 15148 777777 773777 XX=XX+XX+1 15149 IFE , 15150 15151 ;MULTIPLY -1 BY A RIPPLED 0 15152 004001 MX=-XX 15153 000000 IFL XX, 15154 IFG XX, 15155 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15156 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15157 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15158 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15159 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0300 15160 15161 777777 773777 F36720: AA1=XX ;INITIAL C(AC) 15162 042327 200 14 0 00 044043 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15163 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15164 042330 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15165 777777 777777 AEE=-1 ;INITIAL C(E) 15166 042331 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15167 042332 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15168 000000 AR1=V1 ;EXPECTED RESULT IN AC 15169 042333 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15170 042334 003 14 0 00 036721 ER3 AC,36721 ;HIGH PRODUCT FAILED 15171 004001 AR2=MX ;EXPECTED RESULT IN AC+1 15172 042335 312 15 0 00 044167 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15173 042336 004 15 0 00 036722 ER4 AC+1,36722 ;LOW PRODUCT FAILED 15174 777777 777777 AEE=-1 ;INITIAL C(E) 15175 042337 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15176 042340 005 12 0 00 036723 ER5 E,36723 ;C(E) WAS CLOBBERED 15177 042341 321 16 0 00 042327 JUMPL AC+2,F36720 ;LOOP ON ERROR SWITCH^ 15178 15179 003673 ADR=ADR+1 15180 777777 767777 XX=XX+XX+1 15181 IFE , 15182 15183 ;MULTIPLY -1 BY A RIPPLED 0 15184 010001 MX=-XX 15185 000000 IFL XX, 15186 IFG XX, 15187 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15188 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15189 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15190 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15191 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15192 15193 777777 767777 F36730: AA1=XX ;INITIAL C(AC) 15194 042342 200 14 0 00 044044 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15195 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15196 042343 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15197 777777 777777 AEE=-1 ;INITIAL C(E) 15198 042344 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15199 042345 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15200 000000 AR1=V1 ;EXPECTED RESULT IN AC 15201 042346 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15202 042347 003 14 0 00 036731 ER3 AC,36731 ;HIGH PRODUCT FAILED 15203 010001 AR2=MX ;EXPECTED RESULT IN AC+1 15204 042350 312 15 0 00 044170 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15205 042351 004 15 0 00 036732 ER4 AC+1,36732 ;LOW PRODUCT FAILED 15206 777777 777777 AEE=-1 ;INITIAL C(E) 15207 042352 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15208 042353 005 12 0 00 036733 ER5 E,36733 ;C(E) WAS CLOBBERED 15209 042354 321 16 0 00 042342 JUMPL AC+2,F36730 ;LOOP ON ERROR SWITCH^ 15210 15211 003674 ADR=ADR+1 15212 777777 757777 XX=XX+XX+1 15213 IFE , 15214 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0301 15215 ;MULTIPLY -1 BY A RIPPLED 0 15216 020001 MX=-XX 15217 000000 IFL XX, 15218 IFG XX, 15219 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15220 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15221 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15222 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15223 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15224 15225 777777 757777 F36740: AA1=XX ;INITIAL C(AC) 15226 042355 200 14 0 00 044045 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15227 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15228 042356 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15229 777777 777777 AEE=-1 ;INITIAL C(E) 15230 042357 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15231 042360 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15232 000000 AR1=V1 ;EXPECTED RESULT IN AC 15233 042361 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15234 042362 003 14 0 00 036741 ER3 AC,36741 ;HIGH PRODUCT FAILED 15235 020001 AR2=MX ;EXPECTED RESULT IN AC+1 15236 042363 312 15 0 00 044171 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15237 042364 004 15 0 00 036742 ER4 AC+1,36742 ;LOW PRODUCT FAILED 15238 777777 777777 AEE=-1 ;INITIAL C(E) 15239 042365 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15240 042366 005 12 0 00 036743 ER5 E,36743 ;C(E) WAS CLOBBERED 15241 042367 321 16 0 00 042355 JUMPL AC+2,F36740 ;LOOP ON ERROR SWITCH^ 15242 15243 003675 ADR=ADR+1 15244 777777 737777 XX=XX+XX+1 15245 IFE , 15246 15247 ;MULTIPLY -1 BY A RIPPLED 0 15248 040001 MX=-XX 15249 000000 IFL XX, 15250 IFG XX, 15251 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15252 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15253 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15254 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15255 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15256 15257 777777 737777 F36750: AA1=XX ;INITIAL C(AC) 15258 042370 200 14 0 00 044046 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15259 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15260 042371 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15261 777777 777777 AEE=-1 ;INITIAL C(E) 15262 042372 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15263 042373 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15264 000000 AR1=V1 ;EXPECTED RESULT IN AC 15265 042374 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15266 042375 003 14 0 00 036751 ER3 AC,36751 ;HIGH PRODUCT FAILED 15267 040001 AR2=MX ;EXPECTED RESULT IN AC+1 15268 042376 312 15 0 00 044172 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15269 042377 004 15 0 00 036752 ER4 AC+1,36752 ;LOW PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0302 15270 777777 777777 AEE=-1 ;INITIAL C(E) 15271 042400 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15272 042401 005 12 0 00 036753 ER5 E,36753 ;C(E) WAS CLOBBERED 15273 042402 321 16 0 00 042370 JUMPL AC+2,F36750 ;LOOP ON ERROR SWITCH^ 15274 15275 003676 ADR=ADR+1 15276 777777 677777 XX=XX+XX+1 15277 IFE , 15278 15279 ;MULTIPLY -1 BY A RIPPLED 0 15280 100001 MX=-XX 15281 000000 IFL XX, 15282 IFG XX, 15283 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15284 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15285 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15286 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15287 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15288 15289 777777 677777 F36760: AA1=XX ;INITIAL C(AC) 15290 042403 200 14 0 00 044047 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15291 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15292 042404 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15293 777777 777777 AEE=-1 ;INITIAL C(E) 15294 042405 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15295 042406 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15296 000000 AR1=V1 ;EXPECTED RESULT IN AC 15297 042407 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15298 042410 003 14 0 00 036761 ER3 AC,36761 ;HIGH PRODUCT FAILED 15299 100001 AR2=MX ;EXPECTED RESULT IN AC+1 15300 042411 312 15 0 00 044173 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15301 042412 004 15 0 00 036762 ER4 AC+1,36762 ;LOW PRODUCT FAILED 15302 777777 777777 AEE=-1 ;INITIAL C(E) 15303 042413 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15304 042414 005 12 0 00 036763 ER5 E,36763 ;C(E) WAS CLOBBERED 15305 042415 321 16 0 00 042403 JUMPL AC+2,F36760 ;LOOP ON ERROR SWITCH^ 15306 15307 003677 ADR=ADR+1 15308 777777 577777 XX=XX+XX+1 15309 IFE , 15310 15311 ;MULTIPLY -1 BY A RIPPLED 0 15312 200001 MX=-XX 15313 000000 IFL XX, 15314 IFG XX, 15315 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15316 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15317 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15318 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15319 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15320 15321 777777 577777 F36770: AA1=XX ;INITIAL C(AC) 15322 042416 200 14 0 00 044050 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15323 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15324 042417 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0303 15325 777777 777777 AEE=-1 ;INITIAL C(E) 15326 042420 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15327 042421 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15328 000000 AR1=V1 ;EXPECTED RESULT IN AC 15329 042422 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15330 042423 003 14 0 00 036771 ER3 AC,36771 ;HIGH PRODUCT FAILED 15331 200001 AR2=MX ;EXPECTED RESULT IN AC+1 15332 042424 312 15 0 00 044174 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15333 042425 004 15 0 00 036772 ER4 AC+1,36772 ;LOW PRODUCT FAILED 15334 777777 777777 AEE=-1 ;INITIAL C(E) 15335 042426 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15336 042427 005 12 0 00 036773 ER5 E,36773 ;C(E) WAS CLOBBERED 15337 042430 321 16 0 00 042416 JUMPL AC+2,F36770 ;LOOP ON ERROR SWITCH^ 15338 15339 003700 ADR=ADR+1 15340 777777 377777 XX=XX+XX+1 15341 IFE , 15342 15343 ;MULTIPLY -1 BY A RIPPLED 0 15344 400001 MX=-XX 15345 000000 IFL XX, 15346 IFG XX, 15347 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15348 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15349 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15350 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15351 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15352 15353 777777 377777 F37000: AA1=XX ;INITIAL C(AC) 15354 042431 200 14 0 00 044051 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15355 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15356 042432 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15357 777777 777777 AEE=-1 ;INITIAL C(E) 15358 042433 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15359 042434 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15360 000000 AR1=V1 ;EXPECTED RESULT IN AC 15361 042435 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15362 042436 003 14 0 00 037001 ER3 AC,37001 ;HIGH PRODUCT FAILED 15363 400001 AR2=MX ;EXPECTED RESULT IN AC+1 15364 042437 312 15 0 00 044175 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15365 042440 004 15 0 00 037002 ER4 AC+1,37002 ;LOW PRODUCT FAILED 15366 777777 777777 AEE=-1 ;INITIAL C(E) 15367 042441 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15368 042442 005 12 0 00 037003 ER5 E,37003 ;C(E) WAS CLOBBERED 15369 042443 321 16 0 00 042431 JUMPL AC+2,F37000 ;LOOP ON ERROR SWITCH^ 15370 15371 003701 ADR=ADR+1 15372 777776 777777 XX=XX+XX+1 15373 IFE , 15374 15375 ;MULTIPLY -1 BY A RIPPLED 0 15376 000001 000001 MX=-XX 15377 000000 IFL XX, 15378 IFG XX, 15379 MOP1 (\ADR,XX,-1,-1,V1,MX)^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0304 15380 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15381 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15382 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15383 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15384 15385 777776 777777 F37010: AA1=XX ;INITIAL C(AC) 15386 042444 200 14 0 00 044052 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15387 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15388 042445 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15389 777777 777777 AEE=-1 ;INITIAL C(E) 15390 042446 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15391 042447 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15392 000000 AR1=V1 ;EXPECTED RESULT IN AC 15393 042450 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15394 042451 003 14 0 00 037011 ER3 AC,37011 ;HIGH PRODUCT FAILED 15395 000001 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15396 042452 312 15 0 00 044176 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15397 042453 004 15 0 00 037012 ER4 AC+1,37012 ;LOW PRODUCT FAILED 15398 777777 777777 AEE=-1 ;INITIAL C(E) 15399 042454 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15400 042455 005 12 0 00 037013 ER5 E,37013 ;C(E) WAS CLOBBERED 15401 042456 321 16 0 00 042444 JUMPL AC+2,F37010 ;LOOP ON ERROR SWITCH^ 15402 15403 003702 ADR=ADR+1 15404 777775 777777 XX=XX+XX+1 15405 IFE , 15406 15407 ;MULTIPLY -1 BY A RIPPLED 0 15408 000002 000001 MX=-XX 15409 000000 IFL XX, 15410 IFG XX, 15411 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15412 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15413 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15414 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15415 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15416 15417 777775 777777 F37020: AA1=XX ;INITIAL C(AC) 15418 042457 200 14 0 00 044053 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15419 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15420 042460 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15421 777777 777777 AEE=-1 ;INITIAL C(E) 15422 042461 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15423 042462 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15424 000000 AR1=V1 ;EXPECTED RESULT IN AC 15425 042463 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15426 042464 003 14 0 00 037021 ER3 AC,37021 ;HIGH PRODUCT FAILED 15427 000002 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15428 042465 312 15 0 00 044177 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15429 042466 004 15 0 00 037022 ER4 AC+1,37022 ;LOW PRODUCT FAILED 15430 777777 777777 AEE=-1 ;INITIAL C(E) 15431 042467 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15432 042470 005 12 0 00 037023 ER5 E,37023 ;C(E) WAS CLOBBERED 15433 042471 321 16 0 00 042457 JUMPL AC+2,F37020 ;LOOP ON ERROR SWITCH^ 15434 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0305 15435 003703 ADR=ADR+1 15436 777773 777777 XX=XX+XX+1 15437 IFE , 15438 15439 ;MULTIPLY -1 BY A RIPPLED 0 15440 000004 000001 MX=-XX 15441 000000 IFL XX, 15442 IFG XX, 15443 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15444 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15445 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15446 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15447 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15448 15449 777773 777777 F37030: AA1=XX ;INITIAL C(AC) 15450 042472 200 14 0 00 044054 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15451 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15452 042473 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15453 777777 777777 AEE=-1 ;INITIAL C(E) 15454 042474 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15455 042475 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15456 000000 AR1=V1 ;EXPECTED RESULT IN AC 15457 042476 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15458 042477 003 14 0 00 037031 ER3 AC,37031 ;HIGH PRODUCT FAILED 15459 000004 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15460 042500 312 15 0 00 044200 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15461 042501 004 15 0 00 037032 ER4 AC+1,37032 ;LOW PRODUCT FAILED 15462 777777 777777 AEE=-1 ;INITIAL C(E) 15463 042502 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15464 042503 005 12 0 00 037033 ER5 E,37033 ;C(E) WAS CLOBBERED 15465 042504 321 16 0 00 042472 JUMPL AC+2,F37030 ;LOOP ON ERROR SWITCH^ 15466 15467 003704 ADR=ADR+1 15468 777767 777777 XX=XX+XX+1 15469 IFE , 15470 15471 ;MULTIPLY -1 BY A RIPPLED 0 15472 000010 000001 MX=-XX 15473 000000 IFL XX, 15474 IFG XX, 15475 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15476 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15477 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15478 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15479 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15480 15481 777767 777777 F37040: AA1=XX ;INITIAL C(AC) 15482 042505 200 14 0 00 044055 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15483 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15484 042506 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15485 777777 777777 AEE=-1 ;INITIAL C(E) 15486 042507 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15487 042510 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15488 000000 AR1=V1 ;EXPECTED RESULT IN AC 15489 042511 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0306 15490 042512 003 14 0 00 037041 ER3 AC,37041 ;HIGH PRODUCT FAILED 15491 000010 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15492 042513 312 15 0 00 044201 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15493 042514 004 15 0 00 037042 ER4 AC+1,37042 ;LOW PRODUCT FAILED 15494 777777 777777 AEE=-1 ;INITIAL C(E) 15495 042515 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15496 042516 005 12 0 00 037043 ER5 E,37043 ;C(E) WAS CLOBBERED 15497 042517 321 16 0 00 042505 JUMPL AC+2,F37040 ;LOOP ON ERROR SWITCH^ 15498 15499 003705 ADR=ADR+1 15500 777757 777777 XX=XX+XX+1 15501 IFE , 15502 15503 ;MULTIPLY -1 BY A RIPPLED 0 15504 000020 000001 MX=-XX 15505 000000 IFL XX, 15506 IFG XX, 15507 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15508 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15509 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15510 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15511 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15512 15513 777757 777777 F37050: AA1=XX ;INITIAL C(AC) 15514 042520 200 14 0 00 044056 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15515 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15516 042521 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15517 777777 777777 AEE=-1 ;INITIAL C(E) 15518 042522 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15519 042523 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15520 000000 AR1=V1 ;EXPECTED RESULT IN AC 15521 042524 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15522 042525 003 14 0 00 037051 ER3 AC,37051 ;HIGH PRODUCT FAILED 15523 000020 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15524 042526 312 15 0 00 044202 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15525 042527 004 15 0 00 037052 ER4 AC+1,37052 ;LOW PRODUCT FAILED 15526 777777 777777 AEE=-1 ;INITIAL C(E) 15527 042530 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15528 042531 005 12 0 00 037053 ER5 E,37053 ;C(E) WAS CLOBBERED 15529 042532 321 16 0 00 042520 JUMPL AC+2,F37050 ;LOOP ON ERROR SWITCH^ 15530 15531 003706 ADR=ADR+1 15532 777737 777777 XX=XX+XX+1 15533 IFE , 15534 15535 ;MULTIPLY -1 BY A RIPPLED 0 15536 000040 000001 MX=-XX 15537 000000 IFL XX, 15538 IFG XX, 15539 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15540 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15541 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15542 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15543 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15544 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0307 15545 777737 777777 F37060: AA1=XX ;INITIAL C(AC) 15546 042533 200 14 0 00 044057 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15547 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15548 042534 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15549 777777 777777 AEE=-1 ;INITIAL C(E) 15550 042535 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15551 042536 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15552 000000 AR1=V1 ;EXPECTED RESULT IN AC 15553 042537 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15554 042540 003 14 0 00 037061 ER3 AC,37061 ;HIGH PRODUCT FAILED 15555 000040 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15556 042541 312 15 0 00 044203 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15557 042542 004 15 0 00 037062 ER4 AC+1,37062 ;LOW PRODUCT FAILED 15558 777777 777777 AEE=-1 ;INITIAL C(E) 15559 042543 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15560 042544 005 12 0 00 037063 ER5 E,37063 ;C(E) WAS CLOBBERED 15561 042545 321 16 0 00 042533 JUMPL AC+2,F37060 ;LOOP ON ERROR SWITCH^ 15562 15563 003707 ADR=ADR+1 15564 777677 777777 XX=XX+XX+1 15565 IFE , 15566 15567 ;MULTIPLY -1 BY A RIPPLED 0 15568 000100 000001 MX=-XX 15569 000000 IFL XX, 15570 IFG XX, 15571 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15572 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15573 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15574 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15575 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15576 15577 777677 777777 F37070: AA1=XX ;INITIAL C(AC) 15578 042546 200 14 0 00 044060 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15579 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15580 042547 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15581 777777 777777 AEE=-1 ;INITIAL C(E) 15582 042550 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15583 042551 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15584 000000 AR1=V1 ;EXPECTED RESULT IN AC 15585 042552 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15586 042553 003 14 0 00 037071 ER3 AC,37071 ;HIGH PRODUCT FAILED 15587 000100 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15588 042554 312 15 0 00 044204 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15589 042555 004 15 0 00 037072 ER4 AC+1,37072 ;LOW PRODUCT FAILED 15590 777777 777777 AEE=-1 ;INITIAL C(E) 15591 042556 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15592 042557 005 12 0 00 037073 ER5 E,37073 ;C(E) WAS CLOBBERED 15593 042560 321 16 0 00 042546 JUMPL AC+2,F37070 ;LOOP ON ERROR SWITCH^ 15594 15595 003710 ADR=ADR+1 15596 777577 777777 XX=XX+XX+1 15597 IFE , 15598 15599 ;MULTIPLY -1 BY A RIPPLED 0 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0308 15600 000200 000001 MX=-XX 15601 000000 IFL XX, 15602 IFG XX, 15603 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15604 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15605 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15606 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15607 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15608 15609 777577 777777 F37100: AA1=XX ;INITIAL C(AC) 15610 042561 200 14 0 00 044061 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15611 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15612 042562 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15613 777777 777777 AEE=-1 ;INITIAL C(E) 15614 042563 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15615 042564 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15616 000000 AR1=V1 ;EXPECTED RESULT IN AC 15617 042565 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15618 042566 003 14 0 00 037101 ER3 AC,37101 ;HIGH PRODUCT FAILED 15619 000200 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15620 042567 312 15 0 00 044205 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15621 042570 004 15 0 00 037102 ER4 AC+1,37102 ;LOW PRODUCT FAILED 15622 777777 777777 AEE=-1 ;INITIAL C(E) 15623 042571 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15624 042572 005 12 0 00 037103 ER5 E,37103 ;C(E) WAS CLOBBERED 15625 042573 321 16 0 00 042561 JUMPL AC+2,F37100 ;LOOP ON ERROR SWITCH^ 15626 15627 003711 ADR=ADR+1 15628 777377 777777 XX=XX+XX+1 15629 IFE , 15630 15631 ;MULTIPLY -1 BY A RIPPLED 0 15632 000400 000001 MX=-XX 15633 000000 IFL XX, 15634 IFG XX, 15635 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15636 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15637 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15638 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15639 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15640 15641 777377 777777 F37110: AA1=XX ;INITIAL C(AC) 15642 042574 200 14 0 00 044062 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15643 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15644 042575 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15645 777777 777777 AEE=-1 ;INITIAL C(E) 15646 042576 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15647 042577 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15648 000000 AR1=V1 ;EXPECTED RESULT IN AC 15649 042600 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15650 042601 003 14 0 00 037111 ER3 AC,37111 ;HIGH PRODUCT FAILED 15651 000400 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15652 042602 312 15 0 00 044206 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15653 042603 004 15 0 00 037112 ER4 AC+1,37112 ;LOW PRODUCT FAILED 15654 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0309 15655 042604 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15656 042605 005 12 0 00 037113 ER5 E,37113 ;C(E) WAS CLOBBERED 15657 042606 321 16 0 00 042574 JUMPL AC+2,F37110 ;LOOP ON ERROR SWITCH^ 15658 15659 003712 ADR=ADR+1 15660 776777 777777 XX=XX+XX+1 15661 IFE , 15662 15663 ;MULTIPLY -1 BY A RIPPLED 0 15664 001000 000001 MX=-XX 15665 000000 IFL XX, 15666 IFG XX, 15667 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15668 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15669 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15670 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15671 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15672 15673 776777 777777 F37120: AA1=XX ;INITIAL C(AC) 15674 042607 200 14 0 00 044063 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15675 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15676 042610 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15677 777777 777777 AEE=-1 ;INITIAL C(E) 15678 042611 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15679 042612 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15680 000000 AR1=V1 ;EXPECTED RESULT IN AC 15681 042613 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15682 042614 003 14 0 00 037121 ER3 AC,37121 ;HIGH PRODUCT FAILED 15683 001000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15684 042615 312 15 0 00 044207 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15685 042616 004 15 0 00 037122 ER4 AC+1,37122 ;LOW PRODUCT FAILED 15686 777777 777777 AEE=-1 ;INITIAL C(E) 15687 042617 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15688 042620 005 12 0 00 037123 ER5 E,37123 ;C(E) WAS CLOBBERED 15689 042621 321 16 0 00 042607 JUMPL AC+2,F37120 ;LOOP ON ERROR SWITCH^ 15690 15691 003713 ADR=ADR+1 15692 775777 777777 XX=XX+XX+1 15693 IFE , 15694 15695 ;MULTIPLY -1 BY A RIPPLED 0 15696 002000 000001 MX=-XX 15697 000000 IFL XX, 15698 IFG XX, 15699 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15700 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15701 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15702 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15703 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15704 15705 775777 777777 F37130: AA1=XX ;INITIAL C(AC) 15706 042622 200 14 0 00 044064 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15707 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15708 042623 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15709 777777 777777 AEE=-1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0310 15710 042624 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15711 042625 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15712 000000 AR1=V1 ;EXPECTED RESULT IN AC 15713 042626 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15714 042627 003 14 0 00 037131 ER3 AC,37131 ;HIGH PRODUCT FAILED 15715 002000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15716 042630 312 15 0 00 044210 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15717 042631 004 15 0 00 037132 ER4 AC+1,37132 ;LOW PRODUCT FAILED 15718 777777 777777 AEE=-1 ;INITIAL C(E) 15719 042632 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15720 042633 005 12 0 00 037133 ER5 E,37133 ;C(E) WAS CLOBBERED 15721 042634 321 16 0 00 042622 JUMPL AC+2,F37130 ;LOOP ON ERROR SWITCH^ 15722 15723 003714 ADR=ADR+1 15724 773777 777777 XX=XX+XX+1 15725 IFE , 15726 15727 ;MULTIPLY -1 BY A RIPPLED 0 15728 004000 000001 MX=-XX 15729 000000 IFL XX, 15730 IFG XX, 15731 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15732 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15733 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15734 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15735 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15736 15737 773777 777777 F37140: AA1=XX ;INITIAL C(AC) 15738 042635 200 14 0 00 044065 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15739 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15740 042636 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15741 777777 777777 AEE=-1 ;INITIAL C(E) 15742 042637 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15743 042640 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15744 000000 AR1=V1 ;EXPECTED RESULT IN AC 15745 042641 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15746 042642 003 14 0 00 037141 ER3 AC,37141 ;HIGH PRODUCT FAILED 15747 004000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15748 042643 312 15 0 00 044211 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15749 042644 004 15 0 00 037142 ER4 AC+1,37142 ;LOW PRODUCT FAILED 15750 777777 777777 AEE=-1 ;INITIAL C(E) 15751 042645 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15752 042646 005 12 0 00 037143 ER5 E,37143 ;C(E) WAS CLOBBERED 15753 042647 321 16 0 00 042635 JUMPL AC+2,F37140 ;LOOP ON ERROR SWITCH^ 15754 15755 003715 ADR=ADR+1 15756 767777 777777 XX=XX+XX+1 15757 IFE , 15758 15759 ;MULTIPLY -1 BY A RIPPLED 0 15760 010000 000001 MX=-XX 15761 000000 IFL XX, 15762 IFG XX, 15763 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15764 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0311 15765 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15766 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15767 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15768 15769 767777 777777 F37150: AA1=XX ;INITIAL C(AC) 15770 042650 200 14 0 00 044066 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15771 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15772 042651 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15773 777777 777777 AEE=-1 ;INITIAL C(E) 15774 042652 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15775 042653 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15776 000000 AR1=V1 ;EXPECTED RESULT IN AC 15777 042654 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15778 042655 003 14 0 00 037151 ER3 AC,37151 ;HIGH PRODUCT FAILED 15779 010000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15780 042656 312 15 0 00 044212 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15781 042657 004 15 0 00 037152 ER4 AC+1,37152 ;LOW PRODUCT FAILED 15782 777777 777777 AEE=-1 ;INITIAL C(E) 15783 042660 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15784 042661 005 12 0 00 037153 ER5 E,37153 ;C(E) WAS CLOBBERED 15785 042662 321 16 0 00 042650 JUMPL AC+2,F37150 ;LOOP ON ERROR SWITCH^ 15786 15787 003716 ADR=ADR+1 15788 757777 777777 XX=XX+XX+1 15789 IFE , 15790 15791 ;MULTIPLY -1 BY A RIPPLED 0 15792 020000 000001 MX=-XX 15793 000000 IFL XX, 15794 IFG XX, 15795 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15796 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15797 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15798 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15799 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15800 15801 757777 777777 F37160: AA1=XX ;INITIAL C(AC) 15802 042663 200 14 0 00 044067 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15803 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15804 042664 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15805 777777 777777 AEE=-1 ;INITIAL C(E) 15806 042665 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15807 042666 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15808 000000 AR1=V1 ;EXPECTED RESULT IN AC 15809 042667 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15810 042670 003 14 0 00 037161 ER3 AC,37161 ;HIGH PRODUCT FAILED 15811 020000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15812 042671 312 15 0 00 044213 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15813 042672 004 15 0 00 037162 ER4 AC+1,37162 ;LOW PRODUCT FAILED 15814 777777 777777 AEE=-1 ;INITIAL C(E) 15815 042673 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15816 042674 005 12 0 00 037163 ER5 E,37163 ;C(E) WAS CLOBBERED 15817 042675 321 16 0 00 042663 JUMPL AC+2,F37160 ;LOOP ON ERROR SWITCH^ 15818 15819 003717 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0312 15820 737777 777777 XX=XX+XX+1 15821 IFE , 15822 15823 ;MULTIPLY -1 BY A RIPPLED 0 15824 040000 000001 MX=-XX 15825 000000 IFL XX, 15826 IFG XX, 15827 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15828 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15829 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15830 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15831 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15832 15833 737777 777777 F37170: AA1=XX ;INITIAL C(AC) 15834 042676 200 14 0 00 044070 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15835 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15836 042677 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15837 777777 777777 AEE=-1 ;INITIAL C(E) 15838 042700 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15839 042701 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15840 000000 AR1=V1 ;EXPECTED RESULT IN AC 15841 042702 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15842 042703 003 14 0 00 037171 ER3 AC,37171 ;HIGH PRODUCT FAILED 15843 040000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15844 042704 312 15 0 00 044214 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15845 042705 004 15 0 00 037172 ER4 AC+1,37172 ;LOW PRODUCT FAILED 15846 777777 777777 AEE=-1 ;INITIAL C(E) 15847 042706 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15848 042707 005 12 0 00 037173 ER5 E,37173 ;C(E) WAS CLOBBERED 15849 042710 321 16 0 00 042676 JUMPL AC+2,F37170 ;LOOP ON ERROR SWITCH^ 15850 15851 003720 ADR=ADR+1 15852 677777 777777 XX=XX+XX+1 15853 IFE , 15854 15855 ;MULTIPLY -1 BY A RIPPLED 0 15856 100000 000001 MX=-XX 15857 000000 IFL XX, 15858 IFG XX, 15859 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15860 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15861 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15862 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15863 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15864 15865 677777 777777 F37200: AA1=XX ;INITIAL C(AC) 15866 042711 200 14 0 00 044071 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15867 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15868 042712 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15869 777777 777777 AEE=-1 ;INITIAL C(E) 15870 042713 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15871 042714 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15872 000000 AR1=V1 ;EXPECTED RESULT IN AC 15873 042715 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15874 042716 003 14 0 00 037201 ER3 AC,37201 ;HIGH PRODUCT FAILED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0313 15875 100000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15876 042717 312 15 0 00 044215 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15877 042720 004 15 0 00 037202 ER4 AC+1,37202 ;LOW PRODUCT FAILED 15878 777777 777777 AEE=-1 ;INITIAL C(E) 15879 042721 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15880 042722 005 12 0 00 037203 ER5 E,37203 ;C(E) WAS CLOBBERED 15881 042723 321 16 0 00 042711 JUMPL AC+2,F37200 ;LOOP ON ERROR SWITCH^ 15882 15883 003721 ADR=ADR+1 15884 577777 777777 XX=XX+XX+1 15885 IFE , 15886 15887 ;MULTIPLY -1 BY A RIPPLED 0 15888 200000 000001 MX=-XX 15889 000000 IFL XX, 15890 IFG XX, 15891 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15892 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15893 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15894 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15895 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15896 15897 577777 777777 F37210: AA1=XX ;INITIAL C(AC) 15898 042724 200 14 0 00 044072 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15899 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15900 042725 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15901 777777 777777 AEE=-1 ;INITIAL C(E) 15902 042726 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15903 042727 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15904 000000 AR1=V1 ;EXPECTED RESULT IN AC 15905 042730 312 14 0 00 043762 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15906 042731 003 14 0 00 037211 ER3 AC,37211 ;HIGH PRODUCT FAILED 15907 200000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15908 042732 312 15 0 00 044216 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15909 042733 004 15 0 00 037212 ER4 AC+1,37212 ;LOW PRODUCT FAILED 15910 777777 777777 AEE=-1 ;INITIAL C(E) 15911 042734 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15912 042735 005 12 0 00 037213 ER5 E,37213 ;C(E) WAS CLOBBERED 15913 042736 321 16 0 00 042724 JUMPL AC+2,F37210 ;LOOP ON ERROR SWITCH^ 15914 15915 003722 ADR=ADR+1 15916 377777 777777 XX=XX+XX+1 15917 IFE , 15918 15919 ;MULTIPLY -1 BY A RIPPLED 0 15920 400000 000001 MX=-XX 15921 IFL XX, 15922 777777 777777 IFG XX, 15923 MOP1 (\ADR,XX,-1,-1,V1,MX)^ 15924 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 15925 ;[-1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15926 ;AND E AGAINST [V1], [MX] AND [-1] RESPECTIVELY. 15927 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15928 15929 377777 777777 F37220: AA1=XX ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 17-21 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0314 15930 042737 200 14 0 00 044073 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15931 777777 777777 AA2=-1 ;INITIAL C(AC+1) 15932 042740 200 15 0 00 043763 MOVE AC+1,[-1] ;PRELOAD AC+1 15933 777777 777777 AEE=-1 ;INITIAL C(E) 15934 042741 200 12 0 00 043763 MOVE E,[-1] ;PRELOAD E (MULTIPLICAND) 15935 042742 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 15936 777777 777777 AR1=V1 ;EXPECTED RESULT IN AC 15937 042743 312 14 0 00 043763 CAME AC,[V1] ;IS HIGH PRODUCT CORRECT? 15938 042744 003 14 0 00 037221 ER3 AC,37221 ;HIGH PRODUCT FAILED 15939 400000 000001 AR2=MX ;EXPECTED RESULT IN AC+1 15940 042745 312 15 0 00 044217 CAME AC+1,[MX] ;IS LOW PRODUCT CORRECT? 15941 042746 004 15 0 00 037222 ER4 AC+1,37222 ;LOW PRODUCT FAILED 15942 777777 777777 AEE=-1 ;INITIAL C(E) 15943 042747 312 12 0 00 043763 CAME E,[-1] ;WAS C(E) CLOBBERED? 15944 042750 005 12 0 00 037223 ER5 E,37223 ;C(E) WAS CLOBBERED 15945 042751 321 16 0 00 042737 JUMPL AC+2,F37220 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0315 15946 525252 525252 N1=525252525252 15947 252525 252525 N2=252525252525 15948 000013 AC=13 15949 000011 E=&17 15950 SAVEAC (1,1)^ 15951 042752 201 15 0 00 042752 MOVEI AC+2,. ;SAVE TEST PC 15952 042753 202 15 0 00 030051 MOVEM AC+2,TESTPC 15953 042754 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15954 042755 202 15 0 00 044437 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15955 000044 WW=^D36 15956 000000 XX=0 15957 000000 ZZ=0 15958 15959 REPEAT ^D36, < 15960 ADR=ADR+1 15961 WW=WW-1 15962 XX=XX+XX 15963 ZZ=ZZ+1 15964 IFE XX, 15965 IFE XX, 15966 15967 ;MULTIPLY 1010...1010 BY A FLOATING 1 15968 V1=N1 15969 V2=!1B0 15970 IFE WW, 15971 IFL XX, 15972 IFG XX,>!>>> 15973 MOP1 (\ADR,XX,0,V1,V3,V2)> 15974 15975 003723 ADR=ADR+1 15976 000043 WW=WW-1 15977 000000 XX=XX+XX 15978 000001 ZZ=ZZ+1 15979 000000 IFE XX, 15980 000001 IFE XX, 15981 15982 ;MULTIPLY 1010...1010 BY A FLOATING 1 15983 525252 525252 V1=N1 15984 525252 525252 V2=!1B0 15985 IFE WW, 15986 IFL XX, 15987 777777 777777 IFG XX,>!>>> 15988 MOP1 (\ADR,XX,0,V1,V3,V2)^ 15989 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 15990 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 15991 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 15992 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 15993 15994 000001 F37230: AA1=XX ;INITIAL C(AC) 15995 042756 200 13 0 00 043764 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 15996 000000 AA2=0 ;INITIAL C(AC+1) 15997 042757 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 15998 525252 525252 AEE=V1 ;INITIAL C(E) 15999 042760 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16000 042761 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-1 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0316 16001 777777 777777 AR1=V3 ;EXPECTED RESULT IN AC 16002 042762 312 13 0 00 043763 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16003 042763 003 13 0 00 037231 ER3 AC,37231 ;HIGH PRODUCT FAILED 16004 525252 525252 AR2=V2 ;EXPECTED RESULT IN AC+1 16005 042764 312 14 0 00 044220 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16006 042765 004 14 0 00 037232 ER4 AC+1,37232 ;LOW PRODUCT FAILED 16007 525252 525252 AEE=V1 ;INITIAL C(E) 16008 042766 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16009 042767 005 11 0 00 037233 ER5 E,37233 ;C(E) WAS CLOBBERED 16010 042770 321 15 0 00 042756 JUMPL AC+2,F37230 ;LOOP ON ERROR SWITCH^ 16011 16012 003724 ADR=ADR+1 16013 000042 WW=WW-1 16014 000002 XX=XX+XX 16015 000001 ZZ=ZZ+1 16016 IFE XX, 16017 IFE XX, 16018 16019 ;MULTIPLY 1010...1010 BY A FLOATING 1 16020 525252 525252 V1=N1 16021 652525 252524 V2=!1B0 16022 IFE WW, 16023 IFL XX, 16024 777777 777776 IFG XX,>!>>> 16025 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16026 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16027 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16028 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16029 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16030 16031 000002 F37240: AA1=XX ;INITIAL C(AC) 16032 042771 200 13 0 00 043765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16033 000000 AA2=0 ;INITIAL C(AC+1) 16034 042772 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16035 525252 525252 AEE=V1 ;INITIAL C(E) 16036 042773 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16037 042774 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16038 777777 777776 AR1=V3 ;EXPECTED RESULT IN AC 16039 042775 312 13 0 00 044030 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16040 042776 003 13 0 00 037241 ER3 AC,37241 ;HIGH PRODUCT FAILED 16041 652525 252524 AR2=V2 ;EXPECTED RESULT IN AC+1 16042 042777 312 14 0 00 044221 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16043 043000 004 14 0 00 037242 ER4 AC+1,37242 ;LOW PRODUCT FAILED 16044 525252 525252 AEE=V1 ;INITIAL C(E) 16045 043001 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16046 043002 005 11 0 00 037243 ER5 E,37243 ;C(E) WAS CLOBBERED 16047 043003 321 15 0 00 042771 JUMPL AC+2,F37240 ;LOOP ON ERROR SWITCH^ 16048 16049 003725 ADR=ADR+1 16050 000041 WW=WW-1 16051 000004 XX=XX+XX 16052 000002 ZZ=ZZ+1 16053 IFE XX, 16054 IFE XX, 16055 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-2 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0317 16056 ;MULTIPLY 1010...1010 BY A FLOATING 1 16057 525252 525252 V1=N1 16058 525252 525250 V2=!1B0 16059 IFE WW, 16060 IFL XX, 16061 777777 777775 IFG XX,>!>>> 16062 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16063 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16064 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16065 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16066 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16067 16068 000004 F37250: AA1=XX ;INITIAL C(AC) 16069 043004 200 13 0 00 043766 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16070 000000 AA2=0 ;INITIAL C(AC+1) 16071 043005 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16072 525252 525252 AEE=V1 ;INITIAL C(E) 16073 043006 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16074 043007 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16075 777777 777775 AR1=V3 ;EXPECTED RESULT IN AC 16076 043010 312 13 0 00 044031 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16077 043011 003 13 0 00 037251 ER3 AC,37251 ;HIGH PRODUCT FAILED 16078 525252 525250 AR2=V2 ;EXPECTED RESULT IN AC+1 16079 043012 312 14 0 00 044222 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16080 043013 004 14 0 00 037252 ER4 AC+1,37252 ;LOW PRODUCT FAILED 16081 525252 525252 AEE=V1 ;INITIAL C(E) 16082 043014 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16083 043015 005 11 0 00 037253 ER5 E,37253 ;C(E) WAS CLOBBERED 16084 043016 321 15 0 00 043004 JUMPL AC+2,F37250 ;LOOP ON ERROR SWITCH^ 16085 16086 003726 ADR=ADR+1 16087 000040 WW=WW-1 16088 000010 XX=XX+XX 16089 000003 ZZ=ZZ+1 16090 IFE XX, 16091 IFE XX, 16092 16093 ;MULTIPLY 1010...1010 BY A FLOATING 1 16094 525252 525252 V1=N1 16095 652525 252520 V2=!1B0 16096 IFE WW, 16097 IFL XX, 16098 777777 777772 IFG XX,>!>>> 16099 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16100 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16101 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16102 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16103 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16104 16105 000010 F37260: AA1=XX ;INITIAL C(AC) 16106 043017 200 13 0 00 043767 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16107 000000 AA2=0 ;INITIAL C(AC+1) 16108 043020 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16109 525252 525252 AEE=V1 ;INITIAL C(E) 16110 043021 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-3 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0318 16111 043022 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16112 777777 777772 AR1=V3 ;EXPECTED RESULT IN AC 16113 043023 312 13 0 00 044110 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16114 043024 003 13 0 00 037261 ER3 AC,37261 ;HIGH PRODUCT FAILED 16115 652525 252520 AR2=V2 ;EXPECTED RESULT IN AC+1 16116 043025 312 14 0 00 044223 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16117 043026 004 14 0 00 037262 ER4 AC+1,37262 ;LOW PRODUCT FAILED 16118 525252 525252 AEE=V1 ;INITIAL C(E) 16119 043027 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16120 043030 005 11 0 00 037263 ER5 E,37263 ;C(E) WAS CLOBBERED 16121 043031 321 15 0 00 043017 JUMPL AC+2,F37260 ;LOOP ON ERROR SWITCH^ 16122 16123 003727 ADR=ADR+1 16124 000037 WW=WW-1 16125 000020 XX=XX+XX 16126 000004 ZZ=ZZ+1 16127 IFE XX, 16128 IFE XX, 16129 16130 ;MULTIPLY 1010...1010 BY A FLOATING 1 16131 525252 525252 V1=N1 16132 525252 525240 V2=!1B0 16133 IFE WW, 16134 IFL XX, 16135 777777 777765 IFG XX,>!>>> 16136 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16137 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16138 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16139 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16140 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16141 16142 000020 F37270: AA1=XX ;INITIAL C(AC) 16143 043032 200 13 0 00 043770 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16144 000000 AA2=0 ;INITIAL C(AC+1) 16145 043033 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16146 525252 525252 AEE=V1 ;INITIAL C(E) 16147 043034 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16148 043035 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16149 777777 777765 AR1=V3 ;EXPECTED RESULT IN AC 16150 043036 312 13 0 00 044114 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16151 043037 003 13 0 00 037271 ER3 AC,37271 ;HIGH PRODUCT FAILED 16152 525252 525240 AR2=V2 ;EXPECTED RESULT IN AC+1 16153 043040 312 14 0 00 044224 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16154 043041 004 14 0 00 037272 ER4 AC+1,37272 ;LOW PRODUCT FAILED 16155 525252 525252 AEE=V1 ;INITIAL C(E) 16156 043042 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16157 043043 005 11 0 00 037273 ER5 E,37273 ;C(E) WAS CLOBBERED 16158 043044 321 15 0 00 043032 JUMPL AC+2,F37270 ;LOOP ON ERROR SWITCH^ 16159 16160 003730 ADR=ADR+1 16161 000036 WW=WW-1 16162 000040 XX=XX+XX 16163 000005 ZZ=ZZ+1 16164 IFE XX, 16165 IFE XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-4 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0319 16166 16167 ;MULTIPLY 1010...1010 BY A FLOATING 1 16168 525252 525252 V1=N1 16169 652525 252500 V2=!1B0 16170 IFE WW, 16171 IFL XX, 16172 777777 777752 IFG XX,>!>>> 16173 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16174 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16175 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16176 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16177 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16178 16179 000040 F37300: AA1=XX ;INITIAL C(AC) 16180 043045 200 13 0 00 043771 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16181 000000 AA2=0 ;INITIAL C(AC+1) 16182 043046 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16183 525252 525252 AEE=V1 ;INITIAL C(E) 16184 043047 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16185 043050 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16186 777777 777752 AR1=V3 ;EXPECTED RESULT IN AC 16187 043051 312 13 0 00 044225 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16188 043052 003 13 0 00 037301 ER3 AC,37301 ;HIGH PRODUCT FAILED 16189 652525 252500 AR2=V2 ;EXPECTED RESULT IN AC+1 16190 043053 312 14 0 00 044226 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16191 043054 004 14 0 00 037302 ER4 AC+1,37302 ;LOW PRODUCT FAILED 16192 525252 525252 AEE=V1 ;INITIAL C(E) 16193 043055 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16194 043056 005 11 0 00 037303 ER5 E,37303 ;C(E) WAS CLOBBERED 16195 043057 321 15 0 00 043045 JUMPL AC+2,F37300 ;LOOP ON ERROR SWITCH^ 16196 16197 003731 ADR=ADR+1 16198 000035 WW=WW-1 16199 000100 XX=XX+XX 16200 000006 ZZ=ZZ+1 16201 IFE XX, 16202 IFE XX, 16203 16204 ;MULTIPLY 1010...1010 BY A FLOATING 1 16205 525252 525252 V1=N1 16206 525252 525200 V2=!1B0 16207 IFE WW, 16208 IFL XX, 16209 777777 777725 IFG XX,>!>>> 16210 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16211 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16212 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16213 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16214 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16215 16216 000100 F37310: AA1=XX ;INITIAL C(AC) 16217 043060 200 13 0 00 043772 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16218 000000 AA2=0 ;INITIAL C(AC+1) 16219 043061 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16220 525252 525252 AEE=V1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-5 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0320 16221 043062 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16222 043063 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16223 777777 777725 AR1=V3 ;EXPECTED RESULT IN AC 16224 043064 312 13 0 00 044227 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16225 043065 003 13 0 00 037311 ER3 AC,37311 ;HIGH PRODUCT FAILED 16226 525252 525200 AR2=V2 ;EXPECTED RESULT IN AC+1 16227 043066 312 14 0 00 044230 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16228 043067 004 14 0 00 037312 ER4 AC+1,37312 ;LOW PRODUCT FAILED 16229 525252 525252 AEE=V1 ;INITIAL C(E) 16230 043070 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16231 043071 005 11 0 00 037313 ER5 E,37313 ;C(E) WAS CLOBBERED 16232 043072 321 15 0 00 043060 JUMPL AC+2,F37310 ;LOOP ON ERROR SWITCH^ 16233 16234 003732 ADR=ADR+1 16235 000034 WW=WW-1 16236 000200 XX=XX+XX 16237 000007 ZZ=ZZ+1 16238 IFE XX, 16239 IFE XX, 16240 16241 ;MULTIPLY 1010...1010 BY A FLOATING 1 16242 525252 525252 V1=N1 16243 652525 252400 V2=!1B0 16244 IFE WW, 16245 IFL XX, 16246 777777 777652 IFG XX,>!>>> 16247 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16248 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16249 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16250 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16251 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16252 16253 000200 F37320: AA1=XX ;INITIAL C(AC) 16254 043073 200 13 0 00 043773 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16255 000000 AA2=0 ;INITIAL C(AC+1) 16256 043074 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16257 525252 525252 AEE=V1 ;INITIAL C(E) 16258 043075 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16259 043076 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16260 777777 777652 AR1=V3 ;EXPECTED RESULT IN AC 16261 043077 312 13 0 00 044231 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16262 043100 003 13 0 00 037321 ER3 AC,37321 ;HIGH PRODUCT FAILED 16263 652525 252400 AR2=V2 ;EXPECTED RESULT IN AC+1 16264 043101 312 14 0 00 044232 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16265 043102 004 14 0 00 037322 ER4 AC+1,37322 ;LOW PRODUCT FAILED 16266 525252 525252 AEE=V1 ;INITIAL C(E) 16267 043103 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16268 043104 005 11 0 00 037323 ER5 E,37323 ;C(E) WAS CLOBBERED 16269 043105 321 15 0 00 043073 JUMPL AC+2,F37320 ;LOOP ON ERROR SWITCH^ 16270 16271 003733 ADR=ADR+1 16272 000033 WW=WW-1 16273 000400 XX=XX+XX 16274 000010 ZZ=ZZ+1 16275 IFE XX, DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-6 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0321 16276 IFE XX, 16277 16278 ;MULTIPLY 1010...1010 BY A FLOATING 1 16279 525252 525252 V1=N1 16280 525252 525000 V2=!1B0 16281 IFE WW, 16282 IFL XX, 16283 777777 777525 IFG XX,>!>>> 16284 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16285 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16286 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16287 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16288 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16289 16290 000400 F37330: AA1=XX ;INITIAL C(AC) 16291 043106 200 13 0 00 043774 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16292 000000 AA2=0 ;INITIAL C(AC+1) 16293 043107 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16294 525252 525252 AEE=V1 ;INITIAL C(E) 16295 043110 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16296 043111 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16297 777777 777525 AR1=V3 ;EXPECTED RESULT IN AC 16298 043112 312 13 0 00 044233 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16299 043113 003 13 0 00 037331 ER3 AC,37331 ;HIGH PRODUCT FAILED 16300 525252 525000 AR2=V2 ;EXPECTED RESULT IN AC+1 16301 043114 312 14 0 00 044234 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16302 043115 004 14 0 00 037332 ER4 AC+1,37332 ;LOW PRODUCT FAILED 16303 525252 525252 AEE=V1 ;INITIAL C(E) 16304 043116 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16305 043117 005 11 0 00 037333 ER5 E,37333 ;C(E) WAS CLOBBERED 16306 043120 321 15 0 00 043106 JUMPL AC+2,F37330 ;LOOP ON ERROR SWITCH^ 16307 16308 003734 ADR=ADR+1 16309 000032 WW=WW-1 16310 001000 XX=XX+XX 16311 000011 ZZ=ZZ+1 16312 IFE XX, 16313 IFE XX, 16314 16315 ;MULTIPLY 1010...1010 BY A FLOATING 1 16316 525252 525252 V1=N1 16317 652525 252000 V2=!1B0 16318 IFE WW, 16319 IFL XX, 16320 777777 777252 IFG XX,>!>>> 16321 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16322 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16323 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16324 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16325 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16326 16327 001000 F37340: AA1=XX ;INITIAL C(AC) 16328 043121 200 13 0 00 043775 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16329 000000 AA2=0 ;INITIAL C(AC+1) 16330 043122 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-7 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0322 16331 525252 525252 AEE=V1 ;INITIAL C(E) 16332 043123 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16333 043124 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16334 777777 777252 AR1=V3 ;EXPECTED RESULT IN AC 16335 043125 312 13 0 00 044235 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16336 043126 003 13 0 00 037341 ER3 AC,37341 ;HIGH PRODUCT FAILED 16337 652525 252000 AR2=V2 ;EXPECTED RESULT IN AC+1 16338 043127 312 14 0 00 044236 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16339 043130 004 14 0 00 037342 ER4 AC+1,37342 ;LOW PRODUCT FAILED 16340 525252 525252 AEE=V1 ;INITIAL C(E) 16341 043131 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16342 043132 005 11 0 00 037343 ER5 E,37343 ;C(E) WAS CLOBBERED 16343 043133 321 15 0 00 043121 JUMPL AC+2,F37340 ;LOOP ON ERROR SWITCH^ 16344 16345 003735 ADR=ADR+1 16346 000031 WW=WW-1 16347 002000 XX=XX+XX 16348 000012 ZZ=ZZ+1 16349 IFE XX, 16350 IFE XX, 16351 16352 ;MULTIPLY 1010...1010 BY A FLOATING 1 16353 525252 525252 V1=N1 16354 525252 524000 V2=!1B0 16355 IFE WW, 16356 IFL XX, 16357 777777 776525 IFG XX,>!>>> 16358 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16359 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16360 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16361 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16362 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16363 16364 002000 F37350: AA1=XX ;INITIAL C(AC) 16365 043134 200 13 0 00 043776 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16366 000000 AA2=0 ;INITIAL C(AC+1) 16367 043135 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16368 525252 525252 AEE=V1 ;INITIAL C(E) 16369 043136 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16370 043137 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16371 777777 776525 AR1=V3 ;EXPECTED RESULT IN AC 16372 043140 312 13 0 00 044237 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16373 043141 003 13 0 00 037351 ER3 AC,37351 ;HIGH PRODUCT FAILED 16374 525252 524000 AR2=V2 ;EXPECTED RESULT IN AC+1 16375 043142 312 14 0 00 044240 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16376 043143 004 14 0 00 037352 ER4 AC+1,37352 ;LOW PRODUCT FAILED 16377 525252 525252 AEE=V1 ;INITIAL C(E) 16378 043144 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16379 043145 005 11 0 00 037353 ER5 E,37353 ;C(E) WAS CLOBBERED 16380 043146 321 15 0 00 043134 JUMPL AC+2,F37350 ;LOOP ON ERROR SWITCH^ 16381 16382 003736 ADR=ADR+1 16383 000030 WW=WW-1 16384 004000 XX=XX+XX 16385 000013 ZZ=ZZ+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-8 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0323 16386 IFE XX, 16387 IFE XX, 16388 16389 ;MULTIPLY 1010...1010 BY A FLOATING 1 16390 525252 525252 V1=N1 16391 652525 250000 V2=!1B0 16392 IFE WW, 16393 IFL XX, 16394 777777 775252 IFG XX,>!>>> 16395 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16396 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16397 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16398 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16399 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16400 16401 004000 F37360: AA1=XX ;INITIAL C(AC) 16402 043147 200 13 0 00 043777 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16403 000000 AA2=0 ;INITIAL C(AC+1) 16404 043150 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16405 525252 525252 AEE=V1 ;INITIAL C(E) 16406 043151 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16407 043152 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16408 777777 775252 AR1=V3 ;EXPECTED RESULT IN AC 16409 043153 312 13 0 00 044241 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16410 043154 003 13 0 00 037361 ER3 AC,37361 ;HIGH PRODUCT FAILED 16411 652525 250000 AR2=V2 ;EXPECTED RESULT IN AC+1 16412 043155 312 14 0 00 044242 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16413 043156 004 14 0 00 037362 ER4 AC+1,37362 ;LOW PRODUCT FAILED 16414 525252 525252 AEE=V1 ;INITIAL C(E) 16415 043157 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16416 043160 005 11 0 00 037363 ER5 E,37363 ;C(E) WAS CLOBBERED 16417 043161 321 15 0 00 043147 JUMPL AC+2,F37360 ;LOOP ON ERROR SWITCH^ 16418 16419 003737 ADR=ADR+1 16420 000027 WW=WW-1 16421 010000 XX=XX+XX 16422 000014 ZZ=ZZ+1 16423 IFE XX, 16424 IFE XX, 16425 16426 ;MULTIPLY 1010...1010 BY A FLOATING 1 16427 525252 525252 V1=N1 16428 525252 520000 V2=!1B0 16429 IFE WW, 16430 IFL XX, 16431 777777 772525 IFG XX,>!>>> 16432 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16433 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16434 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16435 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16436 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16437 16438 010000 F37370: AA1=XX ;INITIAL C(AC) 16439 043162 200 13 0 00 044000 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16440 000000 AA2=0 ;INITIAL C(AC+1) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-9 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0324 16441 043163 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16442 525252 525252 AEE=V1 ;INITIAL C(E) 16443 043164 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16444 043165 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16445 777777 772525 AR1=V3 ;EXPECTED RESULT IN AC 16446 043166 312 13 0 00 044243 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16447 043167 003 13 0 00 037371 ER3 AC,37371 ;HIGH PRODUCT FAILED 16448 525252 520000 AR2=V2 ;EXPECTED RESULT IN AC+1 16449 043170 312 14 0 00 044244 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16450 043171 004 14 0 00 037372 ER4 AC+1,37372 ;LOW PRODUCT FAILED 16451 525252 525252 AEE=V1 ;INITIAL C(E) 16452 043172 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16453 043173 005 11 0 00 037373 ER5 E,37373 ;C(E) WAS CLOBBERED 16454 043174 321 15 0 00 043162 JUMPL AC+2,F37370 ;LOOP ON ERROR SWITCH^ 16455 16456 003740 ADR=ADR+1 16457 000026 WW=WW-1 16458 020000 XX=XX+XX 16459 000015 ZZ=ZZ+1 16460 IFE XX, 16461 IFE XX, 16462 16463 ;MULTIPLY 1010...1010 BY A FLOATING 1 16464 525252 525252 V1=N1 16465 652525 240000 V2=!1B0 16466 IFE WW, 16467 IFL XX, 16468 777777 765252 IFG XX,>!>>> 16469 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16470 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16471 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16472 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16473 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16474 16475 020000 F37400: AA1=XX ;INITIAL C(AC) 16476 043175 200 13 0 00 044001 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16477 000000 AA2=0 ;INITIAL C(AC+1) 16478 043176 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16479 525252 525252 AEE=V1 ;INITIAL C(E) 16480 043177 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16481 043200 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16482 777777 765252 AR1=V3 ;EXPECTED RESULT IN AC 16483 043201 312 13 0 00 044245 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16484 043202 003 13 0 00 037401 ER3 AC,37401 ;HIGH PRODUCT FAILED 16485 652525 240000 AR2=V2 ;EXPECTED RESULT IN AC+1 16486 043203 312 14 0 00 044246 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16487 043204 004 14 0 00 037402 ER4 AC+1,37402 ;LOW PRODUCT FAILED 16488 525252 525252 AEE=V1 ;INITIAL C(E) 16489 043205 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16490 043206 005 11 0 00 037403 ER5 E,37403 ;C(E) WAS CLOBBERED 16491 043207 321 15 0 00 043175 JUMPL AC+2,F37400 ;LOOP ON ERROR SWITCH^ 16492 16493 003741 ADR=ADR+1 16494 000025 WW=WW-1 16495 040000 XX=XX+XX DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-10 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0325 16496 000016 ZZ=ZZ+1 16497 IFE XX, 16498 IFE XX, 16499 16500 ;MULTIPLY 1010...1010 BY A FLOATING 1 16501 525252 525252 V1=N1 16502 525252 500000 V2=!1B0 16503 IFE WW, 16504 IFL XX, 16505 777777 752525 IFG XX,>!>>> 16506 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16507 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16508 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16509 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16510 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16511 16512 040000 F37410: AA1=XX ;INITIAL C(AC) 16513 043210 200 13 0 00 044002 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16514 000000 AA2=0 ;INITIAL C(AC+1) 16515 043211 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16516 525252 525252 AEE=V1 ;INITIAL C(E) 16517 043212 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16518 043213 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16519 777777 752525 AR1=V3 ;EXPECTED RESULT IN AC 16520 043214 312 13 0 00 044247 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16521 043215 003 13 0 00 037411 ER3 AC,37411 ;HIGH PRODUCT FAILED 16522 525252 500000 AR2=V2 ;EXPECTED RESULT IN AC+1 16523 043216 312 14 0 00 044250 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16524 043217 004 14 0 00 037412 ER4 AC+1,37412 ;LOW PRODUCT FAILED 16525 525252 525252 AEE=V1 ;INITIAL C(E) 16526 043220 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16527 043221 005 11 0 00 037413 ER5 E,37413 ;C(E) WAS CLOBBERED 16528 043222 321 15 0 00 043210 JUMPL AC+2,F37410 ;LOOP ON ERROR SWITCH^ 16529 16530 003742 ADR=ADR+1 16531 000024 WW=WW-1 16532 100000 XX=XX+XX 16533 000017 ZZ=ZZ+1 16534 IFE XX, 16535 IFE XX, 16536 16537 ;MULTIPLY 1010...1010 BY A FLOATING 1 16538 525252 525252 V1=N1 16539 652525 200000 V2=!1B0 16540 IFE WW, 16541 IFL XX, 16542 777777 725252 IFG XX,>!>>> 16543 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16544 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16545 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16546 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16547 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16548 16549 100000 F37420: AA1=XX ;INITIAL C(AC) 16550 043223 200 13 0 00 044003 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-11 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0326 16551 000000 AA2=0 ;INITIAL C(AC+1) 16552 043224 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16553 525252 525252 AEE=V1 ;INITIAL C(E) 16554 043225 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16555 043226 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16556 777777 725252 AR1=V3 ;EXPECTED RESULT IN AC 16557 043227 312 13 0 00 044251 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16558 043230 003 13 0 00 037421 ER3 AC,37421 ;HIGH PRODUCT FAILED 16559 652525 200000 AR2=V2 ;EXPECTED RESULT IN AC+1 16560 043231 312 14 0 00 044252 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16561 043232 004 14 0 00 037422 ER4 AC+1,37422 ;LOW PRODUCT FAILED 16562 525252 525252 AEE=V1 ;INITIAL C(E) 16563 043233 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16564 043234 005 11 0 00 037423 ER5 E,37423 ;C(E) WAS CLOBBERED 16565 043235 321 15 0 00 043223 JUMPL AC+2,F37420 ;LOOP ON ERROR SWITCH^ 16566 16567 003743 ADR=ADR+1 16568 000023 WW=WW-1 16569 200000 XX=XX+XX 16570 000020 ZZ=ZZ+1 16571 IFE XX, 16572 IFE XX, 16573 16574 ;MULTIPLY 1010...1010 BY A FLOATING 1 16575 525252 525252 V1=N1 16576 525252 400000 V2=!1B0 16577 IFE WW, 16578 IFL XX, 16579 777777 652525 IFG XX,>!>>> 16580 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16581 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16582 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16583 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16584 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16585 16586 200000 F37430: AA1=XX ;INITIAL C(AC) 16587 043236 200 13 0 00 044004 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16588 000000 AA2=0 ;INITIAL C(AC+1) 16589 043237 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16590 525252 525252 AEE=V1 ;INITIAL C(E) 16591 043240 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16592 043241 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16593 777777 652525 AR1=V3 ;EXPECTED RESULT IN AC 16594 043242 312 13 0 00 044253 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16595 043243 003 13 0 00 037431 ER3 AC,37431 ;HIGH PRODUCT FAILED 16596 525252 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 16597 043244 312 14 0 00 044254 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16598 043245 004 14 0 00 037432 ER4 AC+1,37432 ;LOW PRODUCT FAILED 16599 525252 525252 AEE=V1 ;INITIAL C(E) 16600 043246 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16601 043247 005 11 0 00 037433 ER5 E,37433 ;C(E) WAS CLOBBERED 16602 043250 321 15 0 00 043236 JUMPL AC+2,F37430 ;LOOP ON ERROR SWITCH^ 16603 16604 003744 ADR=ADR+1 16605 000022 WW=WW-1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-12 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0327 16606 400000 XX=XX+XX 16607 000021 ZZ=ZZ+1 16608 IFE XX, 16609 IFE XX, 16610 16611 ;MULTIPLY 1010...1010 BY A FLOATING 1 16612 525252 525252 V1=N1 16613 652525 000000 V2=!1B0 16614 IFE WW, 16615 IFL XX, 16616 777777 525252 IFG XX,>!>>> 16617 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16618 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16619 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16620 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16621 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16622 16623 400000 F37440: AA1=XX ;INITIAL C(AC) 16624 043251 200 13 0 00 044005 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16625 000000 AA2=0 ;INITIAL C(AC+1) 16626 043252 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16627 525252 525252 AEE=V1 ;INITIAL C(E) 16628 043253 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16629 043254 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16630 777777 525252 AR1=V3 ;EXPECTED RESULT IN AC 16631 043255 312 13 0 00 044255 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16632 043256 003 13 0 00 037441 ER3 AC,37441 ;HIGH PRODUCT FAILED 16633 652525 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16634 043257 312 14 0 00 044256 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16635 043260 004 14 0 00 037442 ER4 AC+1,37442 ;LOW PRODUCT FAILED 16636 525252 525252 AEE=V1 ;INITIAL C(E) 16637 043261 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16638 043262 005 11 0 00 037443 ER5 E,37443 ;C(E) WAS CLOBBERED 16639 043263 321 15 0 00 043251 JUMPL AC+2,F37440 ;LOOP ON ERROR SWITCH^ 16640 16641 003745 ADR=ADR+1 16642 000021 WW=WW-1 16643 000001 000000 XX=XX+XX 16644 000022 ZZ=ZZ+1 16645 IFE XX, 16646 IFE XX, 16647 16648 ;MULTIPLY 1010...1010 BY A FLOATING 1 16649 525252 525252 V1=N1 16650 525252 000000 V2=!1B0 16651 IFE WW, 16652 IFL XX, 16653 777777 252525 IFG XX,>!>>> 16654 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16655 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16656 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16657 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16658 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16659 16660 000001 000000 F37450: AA1=XX ;INITIAL C(AC) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-13 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0328 16661 043264 200 13 0 00 044006 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16662 000000 AA2=0 ;INITIAL C(AC+1) 16663 043265 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16664 525252 525252 AEE=V1 ;INITIAL C(E) 16665 043266 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16666 043267 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16667 777777 252525 AR1=V3 ;EXPECTED RESULT IN AC 16668 043270 312 13 0 00 044257 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16669 043271 003 13 0 00 037451 ER3 AC,37451 ;HIGH PRODUCT FAILED 16670 525252 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16671 043272 312 14 0 00 044260 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16672 043273 004 14 0 00 037452 ER4 AC+1,37452 ;LOW PRODUCT FAILED 16673 525252 525252 AEE=V1 ;INITIAL C(E) 16674 043274 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16675 043275 005 11 0 00 037453 ER5 E,37453 ;C(E) WAS CLOBBERED 16676 043276 321 15 0 00 043264 JUMPL AC+2,F37450 ;LOOP ON ERROR SWITCH^ 16677 16678 003746 ADR=ADR+1 16679 000020 WW=WW-1 16680 000002 000000 XX=XX+XX 16681 000023 ZZ=ZZ+1 16682 IFE XX, 16683 IFE XX, 16684 16685 ;MULTIPLY 1010...1010 BY A FLOATING 1 16686 525252 525252 V1=N1 16687 652524 000000 V2=!1B0 16688 IFE WW, 16689 IFL XX, 16690 777776 525252 IFG XX,>!>>> 16691 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16692 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16693 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16694 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16695 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16696 16697 000002 000000 F37460: AA1=XX ;INITIAL C(AC) 16698 043277 200 13 0 00 044007 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16699 000000 AA2=0 ;INITIAL C(AC+1) 16700 043300 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16701 525252 525252 AEE=V1 ;INITIAL C(E) 16702 043301 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16703 043302 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16704 777776 525252 AR1=V3 ;EXPECTED RESULT IN AC 16705 043303 312 13 0 00 044261 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16706 043304 003 13 0 00 037461 ER3 AC,37461 ;HIGH PRODUCT FAILED 16707 652524 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16708 043305 312 14 0 00 044262 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16709 043306 004 14 0 00 037462 ER4 AC+1,37462 ;LOW PRODUCT FAILED 16710 525252 525252 AEE=V1 ;INITIAL C(E) 16711 043307 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16712 043310 005 11 0 00 037463 ER5 E,37463 ;C(E) WAS CLOBBERED 16713 043311 321 15 0 00 043277 JUMPL AC+2,F37460 ;LOOP ON ERROR SWITCH^ 16714 16715 003747 ADR=ADR+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-14 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0329 16716 000017 WW=WW-1 16717 000004 000000 XX=XX+XX 16718 000024 ZZ=ZZ+1 16719 IFE XX, 16720 IFE XX, 16721 16722 ;MULTIPLY 1010...1010 BY A FLOATING 1 16723 525252 525252 V1=N1 16724 525250 000000 V2=!1B0 16725 IFE WW, 16726 IFL XX, 16727 777775 252525 IFG XX,>!>>> 16728 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16729 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16730 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16731 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16732 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16733 16734 000004 000000 F37470: AA1=XX ;INITIAL C(AC) 16735 043312 200 13 0 00 044010 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16736 000000 AA2=0 ;INITIAL C(AC+1) 16737 043313 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16738 525252 525252 AEE=V1 ;INITIAL C(E) 16739 043314 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16740 043315 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16741 777775 252525 AR1=V3 ;EXPECTED RESULT IN AC 16742 043316 312 13 0 00 044263 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16743 043317 003 13 0 00 037471 ER3 AC,37471 ;HIGH PRODUCT FAILED 16744 525250 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16745 043320 312 14 0 00 044264 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16746 043321 004 14 0 00 037472 ER4 AC+1,37472 ;LOW PRODUCT FAILED 16747 525252 525252 AEE=V1 ;INITIAL C(E) 16748 043322 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16749 043323 005 11 0 00 037473 ER5 E,37473 ;C(E) WAS CLOBBERED 16750 043324 321 15 0 00 043312 JUMPL AC+2,F37470 ;LOOP ON ERROR SWITCH^ 16751 16752 003750 ADR=ADR+1 16753 000016 WW=WW-1 16754 000010 000000 XX=XX+XX 16755 000025 ZZ=ZZ+1 16756 IFE XX, 16757 IFE XX, 16758 16759 ;MULTIPLY 1010...1010 BY A FLOATING 1 16760 525252 525252 V1=N1 16761 652520 000000 V2=!1B0 16762 IFE WW, 16763 IFL XX, 16764 777772 525252 IFG XX,>!>>> 16765 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16766 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16767 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16768 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16769 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16770 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-15 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0330 16771 000010 000000 F37500: AA1=XX ;INITIAL C(AC) 16772 043325 200 13 0 00 044011 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16773 000000 AA2=0 ;INITIAL C(AC+1) 16774 043326 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16775 525252 525252 AEE=V1 ;INITIAL C(E) 16776 043327 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16777 043330 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16778 777772 525252 AR1=V3 ;EXPECTED RESULT IN AC 16779 043331 312 13 0 00 044265 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16780 043332 003 13 0 00 037501 ER3 AC,37501 ;HIGH PRODUCT FAILED 16781 652520 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16782 043333 312 14 0 00 044266 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16783 043334 004 14 0 00 037502 ER4 AC+1,37502 ;LOW PRODUCT FAILED 16784 525252 525252 AEE=V1 ;INITIAL C(E) 16785 043335 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16786 043336 005 11 0 00 037503 ER5 E,37503 ;C(E) WAS CLOBBERED 16787 043337 321 15 0 00 043325 JUMPL AC+2,F37500 ;LOOP ON ERROR SWITCH^ 16788 16789 003751 ADR=ADR+1 16790 000015 WW=WW-1 16791 000020 000000 XX=XX+XX 16792 000026 ZZ=ZZ+1 16793 IFE XX, 16794 IFE XX, 16795 16796 ;MULTIPLY 1010...1010 BY A FLOATING 1 16797 525252 525252 V1=N1 16798 525240 000000 V2=!1B0 16799 IFE WW, 16800 IFL XX, 16801 777765 252525 IFG XX,>!>>> 16802 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16803 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16804 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16805 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16806 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16807 16808 000020 000000 F37510: AA1=XX ;INITIAL C(AC) 16809 043340 200 13 0 00 044012 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16810 000000 AA2=0 ;INITIAL C(AC+1) 16811 043341 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16812 525252 525252 AEE=V1 ;INITIAL C(E) 16813 043342 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16814 043343 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16815 777765 252525 AR1=V3 ;EXPECTED RESULT IN AC 16816 043344 312 13 0 00 044267 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16817 043345 003 13 0 00 037511 ER3 AC,37511 ;HIGH PRODUCT FAILED 16818 525240 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16819 043346 312 14 0 00 044270 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16820 043347 004 14 0 00 037512 ER4 AC+1,37512 ;LOW PRODUCT FAILED 16821 525252 525252 AEE=V1 ;INITIAL C(E) 16822 043350 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16823 043351 005 11 0 00 037513 ER5 E,37513 ;C(E) WAS CLOBBERED 16824 043352 321 15 0 00 043340 JUMPL AC+2,F37510 ;LOOP ON ERROR SWITCH^ 16825 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-16 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0331 16826 003752 ADR=ADR+1 16827 000014 WW=WW-1 16828 000040 000000 XX=XX+XX 16829 000027 ZZ=ZZ+1 16830 IFE XX, 16831 IFE XX, 16832 16833 ;MULTIPLY 1010...1010 BY A FLOATING 1 16834 525252 525252 V1=N1 16835 652500 000000 V2=!1B0 16836 IFE WW, 16837 IFL XX, 16838 777752 525252 IFG XX,>!>>> 16839 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16840 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16841 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16842 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16843 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16844 16845 000040 000000 F37520: AA1=XX ;INITIAL C(AC) 16846 043353 200 13 0 00 044013 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16847 000000 AA2=0 ;INITIAL C(AC+1) 16848 043354 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16849 525252 525252 AEE=V1 ;INITIAL C(E) 16850 043355 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16851 043356 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16852 777752 525252 AR1=V3 ;EXPECTED RESULT IN AC 16853 043357 312 13 0 00 044271 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16854 043360 003 13 0 00 037521 ER3 AC,37521 ;HIGH PRODUCT FAILED 16855 652500 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16856 043361 312 14 0 00 044272 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16857 043362 004 14 0 00 037522 ER4 AC+1,37522 ;LOW PRODUCT FAILED 16858 525252 525252 AEE=V1 ;INITIAL C(E) 16859 043363 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16860 043364 005 11 0 00 037523 ER5 E,37523 ;C(E) WAS CLOBBERED 16861 043365 321 15 0 00 043353 JUMPL AC+2,F37520 ;LOOP ON ERROR SWITCH^ 16862 16863 003753 ADR=ADR+1 16864 000013 WW=WW-1 16865 000100 000000 XX=XX+XX 16866 000030 ZZ=ZZ+1 16867 IFE XX, 16868 IFE XX, 16869 16870 ;MULTIPLY 1010...1010 BY A FLOATING 1 16871 525252 525252 V1=N1 16872 525200 000000 V2=!1B0 16873 IFE WW, 16874 IFL XX, 16875 777725 252525 IFG XX,>!>>> 16876 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16877 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16878 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16879 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16880 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-17 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0332 16881 16882 000100 000000 F37530: AA1=XX ;INITIAL C(AC) 16883 043366 200 13 0 00 044014 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16884 000000 AA2=0 ;INITIAL C(AC+1) 16885 043367 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16886 525252 525252 AEE=V1 ;INITIAL C(E) 16887 043370 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16888 043371 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16889 777725 252525 AR1=V3 ;EXPECTED RESULT IN AC 16890 043372 312 13 0 00 044273 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16891 043373 003 13 0 00 037531 ER3 AC,37531 ;HIGH PRODUCT FAILED 16892 525200 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16893 043374 312 14 0 00 044274 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16894 043375 004 14 0 00 037532 ER4 AC+1,37532 ;LOW PRODUCT FAILED 16895 525252 525252 AEE=V1 ;INITIAL C(E) 16896 043376 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16897 043377 005 11 0 00 037533 ER5 E,37533 ;C(E) WAS CLOBBERED 16898 043400 321 15 0 00 043366 JUMPL AC+2,F37530 ;LOOP ON ERROR SWITCH^ 16899 16900 003754 ADR=ADR+1 16901 000012 WW=WW-1 16902 000200 000000 XX=XX+XX 16903 000031 ZZ=ZZ+1 16904 IFE XX, 16905 IFE XX, 16906 16907 ;MULTIPLY 1010...1010 BY A FLOATING 1 16908 525252 525252 V1=N1 16909 652400 000000 V2=!1B0 16910 IFE WW, 16911 IFL XX, 16912 777652 525252 IFG XX,>!>>> 16913 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16914 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16915 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16916 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16917 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16918 16919 000200 000000 F37540: AA1=XX ;INITIAL C(AC) 16920 043401 200 13 0 00 044015 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16921 000000 AA2=0 ;INITIAL C(AC+1) 16922 043402 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16923 525252 525252 AEE=V1 ;INITIAL C(E) 16924 043403 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16925 043404 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16926 777652 525252 AR1=V3 ;EXPECTED RESULT IN AC 16927 043405 312 13 0 00 044275 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16928 043406 003 13 0 00 037541 ER3 AC,37541 ;HIGH PRODUCT FAILED 16929 652400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16930 043407 312 14 0 00 044276 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16931 043410 004 14 0 00 037542 ER4 AC+1,37542 ;LOW PRODUCT FAILED 16932 525252 525252 AEE=V1 ;INITIAL C(E) 16933 043411 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16934 043412 005 11 0 00 037543 ER5 E,37543 ;C(E) WAS CLOBBERED 16935 043413 321 15 0 00 043401 JUMPL AC+2,F37540 ;LOOP ON ERROR SWITCH^ DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-18 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0333 16936 16937 003755 ADR=ADR+1 16938 000011 WW=WW-1 16939 000400 000000 XX=XX+XX 16940 000032 ZZ=ZZ+1 16941 IFE XX, 16942 IFE XX, 16943 16944 ;MULTIPLY 1010...1010 BY A FLOATING 1 16945 525252 525252 V1=N1 16946 525000 000000 V2=!1B0 16947 IFE WW, 16948 IFL XX, 16949 777525 252525 IFG XX,>!>>> 16950 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16951 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16952 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16953 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 16954 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16955 16956 000400 000000 F37550: AA1=XX ;INITIAL C(AC) 16957 043414 200 13 0 00 044016 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16958 000000 AA2=0 ;INITIAL C(AC+1) 16959 043415 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16960 525252 525252 AEE=V1 ;INITIAL C(E) 16961 043416 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16962 043417 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 16963 777525 252525 AR1=V3 ;EXPECTED RESULT IN AC 16964 043420 312 13 0 00 044277 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 16965 043421 003 13 0 00 037551 ER3 AC,37551 ;HIGH PRODUCT FAILED 16966 525000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 16967 043422 312 14 0 00 044300 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 16968 043423 004 14 0 00 037552 ER4 AC+1,37552 ;LOW PRODUCT FAILED 16969 525252 525252 AEE=V1 ;INITIAL C(E) 16970 043424 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 16971 043425 005 11 0 00 037553 ER5 E,37553 ;C(E) WAS CLOBBERED 16972 043426 321 15 0 00 043414 JUMPL AC+2,F37550 ;LOOP ON ERROR SWITCH^ 16973 16974 003756 ADR=ADR+1 16975 000010 WW=WW-1 16976 001000 000000 XX=XX+XX 16977 000033 ZZ=ZZ+1 16978 IFE XX, 16979 IFE XX, 16980 16981 ;MULTIPLY 1010...1010 BY A FLOATING 1 16982 525252 525252 V1=N1 16983 652000 000000 V2=!1B0 16984 IFE WW, 16985 IFL XX, 16986 777252 525252 IFG XX,>!>>> 16987 MOP1 (\ADR,XX,0,V1,V3,V2)^ 16988 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 16989 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 16990 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-19 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0334 16991 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 16992 16993 001000 000000 F37560: AA1=XX ;INITIAL C(AC) 16994 043427 200 13 0 00 044017 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 16995 000000 AA2=0 ;INITIAL C(AC+1) 16996 043430 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 16997 525252 525252 AEE=V1 ;INITIAL C(E) 16998 043431 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 16999 043432 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17000 777252 525252 AR1=V3 ;EXPECTED RESULT IN AC 17001 043433 312 13 0 00 044301 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17002 043434 003 13 0 00 037561 ER3 AC,37561 ;HIGH PRODUCT FAILED 17003 652000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17004 043435 312 14 0 00 044302 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17005 043436 004 14 0 00 037562 ER4 AC+1,37562 ;LOW PRODUCT FAILED 17006 525252 525252 AEE=V1 ;INITIAL C(E) 17007 043437 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17008 043440 005 11 0 00 037563 ER5 E,37563 ;C(E) WAS CLOBBERED 17009 043441 321 15 0 00 043427 JUMPL AC+2,F37560 ;LOOP ON ERROR SWITCH^ 17010 17011 003757 ADR=ADR+1 17012 000007 WW=WW-1 17013 002000 000000 XX=XX+XX 17014 000034 ZZ=ZZ+1 17015 IFE XX, 17016 IFE XX, 17017 17018 ;MULTIPLY 1010...1010 BY A FLOATING 1 17019 525252 525252 V1=N1 17020 524000 000000 V2=!1B0 17021 IFE WW, 17022 IFL XX, 17023 776525 252525 IFG XX,>!>>> 17024 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17025 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17026 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17027 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17028 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17029 17030 002000 000000 F37570: AA1=XX ;INITIAL C(AC) 17031 043442 200 13 0 00 044020 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17032 000000 AA2=0 ;INITIAL C(AC+1) 17033 043443 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17034 525252 525252 AEE=V1 ;INITIAL C(E) 17035 043444 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17036 043445 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17037 776525 252525 AR1=V3 ;EXPECTED RESULT IN AC 17038 043446 312 13 0 00 044303 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17039 043447 003 13 0 00 037571 ER3 AC,37571 ;HIGH PRODUCT FAILED 17040 524000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17041 043450 312 14 0 00 044304 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17042 043451 004 14 0 00 037572 ER4 AC+1,37572 ;LOW PRODUCT FAILED 17043 525252 525252 AEE=V1 ;INITIAL C(E) 17044 043452 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17045 043453 005 11 0 00 037573 ER5 E,37573 ;C(E) WAS CLOBBERED DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-20 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0335 17046 043454 321 15 0 00 043442 JUMPL AC+2,F37570 ;LOOP ON ERROR SWITCH^ 17047 17048 003760 ADR=ADR+1 17049 000006 WW=WW-1 17050 004000 000000 XX=XX+XX 17051 000035 ZZ=ZZ+1 17052 IFE XX, 17053 IFE XX, 17054 17055 ;MULTIPLY 1010...1010 BY A FLOATING 1 17056 525252 525252 V1=N1 17057 650000 000000 V2=!1B0 17058 IFE WW, 17059 IFL XX, 17060 775252 525252 IFG XX,>!>>> 17061 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17062 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17063 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17064 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17065 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17066 17067 004000 000000 F37600: AA1=XX ;INITIAL C(AC) 17068 043455 200 13 0 00 044021 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17069 000000 AA2=0 ;INITIAL C(AC+1) 17070 043456 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17071 525252 525252 AEE=V1 ;INITIAL C(E) 17072 043457 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17073 043460 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17074 775252 525252 AR1=V3 ;EXPECTED RESULT IN AC 17075 043461 312 13 0 00 044305 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17076 043462 003 13 0 00 037601 ER3 AC,37601 ;HIGH PRODUCT FAILED 17077 650000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17078 043463 312 14 0 00 044306 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17079 043464 004 14 0 00 037602 ER4 AC+1,37602 ;LOW PRODUCT FAILED 17080 525252 525252 AEE=V1 ;INITIAL C(E) 17081 043465 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17082 043466 005 11 0 00 037603 ER5 E,37603 ;C(E) WAS CLOBBERED 17083 043467 321 15 0 00 043455 JUMPL AC+2,F37600 ;LOOP ON ERROR SWITCH^ 17084 17085 003761 ADR=ADR+1 17086 000005 WW=WW-1 17087 010000 000000 XX=XX+XX 17088 000036 ZZ=ZZ+1 17089 IFE XX, 17090 IFE XX, 17091 17092 ;MULTIPLY 1010...1010 BY A FLOATING 1 17093 525252 525252 V1=N1 17094 520000 000000 V2=!1B0 17095 IFE WW, 17096 IFL XX, 17097 772525 252525 IFG XX,>!>>> 17098 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17099 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17100 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-21 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0336 17101 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17102 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17103 17104 010000 000000 F37610: AA1=XX ;INITIAL C(AC) 17105 043470 200 13 0 00 044022 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17106 000000 AA2=0 ;INITIAL C(AC+1) 17107 043471 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17108 525252 525252 AEE=V1 ;INITIAL C(E) 17109 043472 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17110 043473 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17111 772525 252525 AR1=V3 ;EXPECTED RESULT IN AC 17112 043474 312 13 0 00 044307 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17113 043475 003 13 0 00 037611 ER3 AC,37611 ;HIGH PRODUCT FAILED 17114 520000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17115 043476 312 14 0 00 044310 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17116 043477 004 14 0 00 037612 ER4 AC+1,37612 ;LOW PRODUCT FAILED 17117 525252 525252 AEE=V1 ;INITIAL C(E) 17118 043500 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17119 043501 005 11 0 00 037613 ER5 E,37613 ;C(E) WAS CLOBBERED 17120 043502 321 15 0 00 043470 JUMPL AC+2,F37610 ;LOOP ON ERROR SWITCH^ 17121 17122 003762 ADR=ADR+1 17123 000004 WW=WW-1 17124 020000 000000 XX=XX+XX 17125 000037 ZZ=ZZ+1 17126 IFE XX, 17127 IFE XX, 17128 17129 ;MULTIPLY 1010...1010 BY A FLOATING 1 17130 525252 525252 V1=N1 17131 640000 000000 V2=!1B0 17132 IFE WW, 17133 IFL XX, 17134 765252 525252 IFG XX,>!>>> 17135 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17136 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17137 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17138 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17139 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17140 17141 020000 000000 F37620: AA1=XX ;INITIAL C(AC) 17142 043503 200 13 0 00 044023 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17143 000000 AA2=0 ;INITIAL C(AC+1) 17144 043504 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17145 525252 525252 AEE=V1 ;INITIAL C(E) 17146 043505 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17147 043506 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17148 765252 525252 AR1=V3 ;EXPECTED RESULT IN AC 17149 043507 312 13 0 00 044311 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17150 043510 003 13 0 00 037621 ER3 AC,37621 ;HIGH PRODUCT FAILED 17151 640000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17152 043511 312 14 0 00 044312 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17153 043512 004 14 0 00 037622 ER4 AC+1,37622 ;LOW PRODUCT FAILED 17154 525252 525252 AEE=V1 ;INITIAL C(E) 17155 043513 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-22 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0337 17156 043514 005 11 0 00 037623 ER5 E,37623 ;C(E) WAS CLOBBERED 17157 043515 321 15 0 00 043503 JUMPL AC+2,F37620 ;LOOP ON ERROR SWITCH^ 17158 17159 003763 ADR=ADR+1 17160 000003 WW=WW-1 17161 040000 000000 XX=XX+XX 17162 000040 ZZ=ZZ+1 17163 IFE XX, 17164 IFE XX, 17165 17166 ;MULTIPLY 1010...1010 BY A FLOATING 1 17167 525252 525252 V1=N1 17168 500000 000000 V2=!1B0 17169 IFE WW, 17170 IFL XX, 17171 752525 252525 IFG XX,>!>>> 17172 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17173 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17174 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17175 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17176 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17177 17178 040000 000000 F37630: AA1=XX ;INITIAL C(AC) 17179 043516 200 13 0 00 044024 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17180 000000 AA2=0 ;INITIAL C(AC+1) 17181 043517 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17182 525252 525252 AEE=V1 ;INITIAL C(E) 17183 043520 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17184 043521 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17185 752525 252525 AR1=V3 ;EXPECTED RESULT IN AC 17186 043522 312 13 0 00 044313 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17187 043523 003 13 0 00 037631 ER3 AC,37631 ;HIGH PRODUCT FAILED 17188 500000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17189 043524 312 14 0 00 044314 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17190 043525 004 14 0 00 037632 ER4 AC+1,37632 ;LOW PRODUCT FAILED 17191 525252 525252 AEE=V1 ;INITIAL C(E) 17192 043526 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17193 043527 005 11 0 00 037633 ER5 E,37633 ;C(E) WAS CLOBBERED 17194 043530 321 15 0 00 043516 JUMPL AC+2,F37630 ;LOOP ON ERROR SWITCH^ 17195 17196 003764 ADR=ADR+1 17197 000002 WW=WW-1 17198 100000 000000 XX=XX+XX 17199 000041 ZZ=ZZ+1 17200 IFE XX, 17201 IFE XX, 17202 17203 ;MULTIPLY 1010...1010 BY A FLOATING 1 17204 525252 525252 V1=N1 17205 600000 000000 V2=!1B0 17206 IFE WW, 17207 IFL XX, 17208 725252 525252 IFG XX,>!>>> 17209 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17210 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-23 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0338 17211 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17212 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17213 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17214 17215 100000 000000 F37640: AA1=XX ;INITIAL C(AC) 17216 043531 200 13 0 00 044025 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17217 000000 AA2=0 ;INITIAL C(AC+1) 17218 043532 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17219 525252 525252 AEE=V1 ;INITIAL C(E) 17220 043533 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17221 043534 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17222 725252 525252 AR1=V3 ;EXPECTED RESULT IN AC 17223 043535 312 13 0 00 044315 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17224 043536 003 13 0 00 037641 ER3 AC,37641 ;HIGH PRODUCT FAILED 17225 600000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17226 043537 312 14 0 00 044157 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17227 043540 004 14 0 00 037642 ER4 AC+1,37642 ;LOW PRODUCT FAILED 17228 525252 525252 AEE=V1 ;INITIAL C(E) 17229 043541 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17230 043542 005 11 0 00 037643 ER5 E,37643 ;C(E) WAS CLOBBERED 17231 043543 321 15 0 00 043531 JUMPL AC+2,F37640 ;LOOP ON ERROR SWITCH^ 17232 17233 003765 ADR=ADR+1 17234 000001 WW=WW-1 17235 200000 000000 XX=XX+XX 17236 000042 ZZ=ZZ+1 17237 IFE XX, 17238 IFE XX, 17239 17240 ;MULTIPLY 1010...1010 BY A FLOATING 1 17241 525252 525252 V1=N1 17242 400000 000000 V2=!1B0 17243 IFE WW, 17244 IFL XX, 17245 652525 252525 IFG XX,>!>>> 17246 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17247 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17248 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17249 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17250 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17251 17252 200000 000000 F37650: AA1=XX ;INITIAL C(AC) 17253 043544 200 13 0 00 044026 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17254 000000 AA2=0 ;INITIAL C(AC+1) 17255 043545 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17256 525252 525252 AEE=V1 ;INITIAL C(E) 17257 043546 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17258 043547 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17259 652525 252525 AR1=V3 ;EXPECTED RESULT IN AC 17260 043550 312 13 0 00 044316 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17261 043551 003 13 0 00 037651 ER3 AC,37651 ;HIGH PRODUCT FAILED 17262 400000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17263 043552 312 14 0 00 044027 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17264 043553 004 14 0 00 037652 ER4 AC+1,37652 ;LOW PRODUCT FAILED 17265 525252 525252 AEE=V1 ;INITIAL C(E) DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 18-24 DSKAK1 MAC 29-Mar-78 09:56 DIAGNOSTIC SECTION - MPY TEST - NON-ZERO PRODUCT SEQ 0339 17266 043554 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17267 043555 005 11 0 00 037653 ER5 E,37653 ;C(E) WAS CLOBBERED 17268 043556 321 15 0 00 043544 JUMPL AC+2,F37650 ;LOOP ON ERROR SWITCH^ 17269 17270 003766 ADR=ADR+1 17271 000000 WW=WW-1 17272 400000 000000 XX=XX+XX 17273 000043 ZZ=ZZ+1 17274 IFE XX, 17275 IFE XX, 17276 17277 ;MULTIPLY 1010...1010 BY A FLOATING 1 17278 525252 525252 V1=N1 17279 400000 000000 V2=!1B0 17280 000000 IFE WW, 17281 252525 252526 IFL XX, 17282 IFG XX,>!>>> 17283 MOP1 (\ADR,XX,0,V1,V3,V2)^ 17284 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 17285 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 17286 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 17287 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 17288 17289 400000 000000 F37660: AA1=XX ;INITIAL C(AC) 17290 043557 200 13 0 00 044027 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 17291 000000 AA2=0 ;INITIAL C(AC+1) 17292 043560 200 14 0 00 043762 MOVE AC+1,[0] ;PRELOAD AC+1 17293 525252 525252 AEE=V1 ;INITIAL C(E) 17294 043561 200 11 0 00 044220 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 17295 043562 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 17296 252525 252526 AR1=V3 ;EXPECTED RESULT IN AC 17297 043563 312 13 0 00 044317 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 17298 043564 003 13 0 00 037661 ER3 AC,37661 ;HIGH PRODUCT FAILED 17299 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 17300 043565 312 14 0 00 043762 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 17301 043566 004 14 0 00 037662 ER4 AC+1,37662 ;LOW PRODUCT FAILED 17302 525252 525252 AEE=V1 ;INITIAL C(E) 17303 043567 312 11 0 00 044220 CAME E,[V1] ;WAS C(E) CLOBBERED? 17304 043570 005 11 0 00 037663 ER5 E,37663 ;C(E) WAS CLOBBERED 17305 043571 321 15 0 00 043557 JUMPL AC+2,F37660 ;LOOP ON ERROR SWITCH^ 17306 17307 043572 254 00 0 00 030057 JRST BEGEND DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0340 17308 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 17309 17310 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 17311 17312 043573 202 00 0 00 044443 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 17313 043574 202 01 0 00 044444 MOVEM 1,%ERAC1# ;SAVE AC1 17314 043575 202 02 0 00 044445 MOVEM 2,%ERAC2# ;SAVE AC2 17315 043576 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 17316 043577 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 17317 043600 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 17318 043601 350 00 0 00 044440 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 17319 043602 200 00 0 00 044440 MOVE 0,MICNT 17320 043603 504 00 0 00 030114 HRL 0,$SVUPC 17321 043604 402 00 0 00 044441 SETZM PROCED# ;CLEAR PROCEED FLAG 17322 043605 037 10 0 00 000002 SWITCH 17323 043606 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 17324 043607 254 00 0 00 043721 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 17325 043610 200 01 0 00 030113 MOVE 1,$SVUUO 17326 043611 242 01 0 00 777745 LSH 1,-^D27 17327 043612 202 01 0 00 044442 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 17328 043613 200 00 0 00 044443 MOVE 0,%ERAC0 17329 043614 200 01 0 00 044444 MOVE 1,%ERAC1 17330 043615 335 00 1 00 044437 SKIPGE @@ERRLOP ;ERR LOOP AC > OR = 0 ? 17331 043616 254 00 0 00 043753 JRST %ERRS4 ;NO, SEE IF PRINT ALL 17332 043617 402 00 0 00 044440 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 17333 043620 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 17334 043621 254 00 0 00 043625 JRST .+4 ;NO, DON'T NEED TITLE 17335 043622 336 00 0 00 044446 SKIPN %ERFST# ;FIRST ERROR ? 17336 043623 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 17337 043624 476 00 0 00 044446 SETOM %ERFST 17338 043625 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 17339 043626 254 00 0 00 043632 JRST .+4 ;YES 17340 PMSG <^TEST PASS COUNT = >^ 17341 043627 037 02 0 00 044320 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 17342 043630 200 00 0 00 030047 MOVE PASCNT 17343 043631 037 15 0 00 000000 PNTDEC 17344 PMSG <^PC = >^ 17345 043632 037 02 0 00 044324 PSIXM [SIXBIT\^PC = _\]^ 17346 043633 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 17347 043634 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 17348 043635 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 17349 XLIST 17350 IFDEF ERDIAG,^ 17356 043636 037 02 0 00 044326 PSIXM [SIXBIT\^RESULT = _\]^ 17357 043637 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 17358 043640 242 01 0 00 777751 LSH 1,-27 17359 043641 405 01 0 00 000017 ANDI 1,17 17360 043642 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 17361 043643 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 17362 043644 200 00 0 01 044443 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 17363 043645 037 13 0 00 000000 PNTHW ;PRINT C(AC) 17364 17365 043646 200 00 0 00 030046 MOVE CONSW 17366 043647 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 17367 043650 254 00 0 00 043717 JRST %ERMORE ;NO, RESTORE AC'S ETC. 17368 17369 ;PRINT FAILURE DESCRIPTOR 17370 17371 043651 200 01 0 00 044442 MOVE 1,%ACS1A ;GET UUO NUMBER 17372 043652 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 17373 043653 254 00 0 00 043657 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 17374 043654 037 00 0 00 030242 PCRL 17375 043655 200 00 0 01 043703 MOVE %FLTTB(1) 17376 043656 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 17377 17378 ;PRINT FAULT NUMBER 17379 17380 043657 %ERMS3: PMSG <^FAULT NUMBER = >^ 17381 043657 037 02 0 00 044330 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 17382 043660 201 00 0 00 043702 MOVEI TLET 17383 043661 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0342 17384 17385 043662 550 00 0 00 030113 HRRZ $SVUUO 17386 043663 602 00 0 00 700000 TRNE 700000 17387 043664 254 00 0 00 043700 JRST %ER6X 17388 043665 602 00 0 00 070000 TRNE 070000 17389 043666 254 00 0 00 043676 JRST %ER5X 17390 043667 602 00 0 00 007000 TRNE 007000 17391 043670 254 00 0 00 043674 JRST %ER4X 17392 043671 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 17393 043672 037 00 0 00 030242 %ER7X: PCRL 17394 043673 254 00 0 00 043717 JRST %ERMORE 17395 17396 043674 037 04 0 00 000000 %ER4X: PNT4 17397 043675 254 00 0 00 043672 JRST %ER7X 17398 043676 037 05 0 00 000000 %ER5X: PNT5 17399 043677 254 00 0 00 043672 JRST %ER7X 17400 043700 037 06 0 00 000000 %ER6X: PNT6 17401 043701 254 00 0 00 043672 JRST %ER7X 17402 17403 ;FAILURE DESCRIPTORS 17404 17405 043702 000000 000000 TLET: 0 ;TEST LETTER 17406 043703 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 17407 043704 000000 043762 %NODES: [0] ;NO DESCRIPTOR 17408 043705 000000 043762 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 17409 043706 000000 044333 $ACF: [ASCIZ/C(AC) FAILED/] 17410 043707 000000 044336 %AC1F: [ASCIZ/C(AC+1) FAILED/] 17411 043710 000000 044341 %EF: [ASCIZ/C(E) FAILED/] 17412 043711 000000 044344 %E1F: [ASCIZ/C(E+1) FAILED/] 17413 043712 000000 044347 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 17414 043713 000000 044353 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 17415 043714 000000 044357 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 17416 043715 000000 044363 %EEF: [ASCIZ/C(C(E)) FAILED/] 17417 043716 000000 044366 %FF: [ASCIZ/FLAG FAILED/] 17418 > 17419 XLIST 17420 LIST DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0343 17421 ;RESTORE AC'S AND RETURN OR HALT 17422 17423 043717 256 00 0 00 030101 %ERMORE:XCT ERMORE 17424 043720 037 10 0 00 000002 SWITCH 17425 17426 043721 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 17427 043722 254 00 0 00 043726 JRST .+4 ;NONE 17428 043723 201 00 0 00 043726 MOVEI .+3 ;SAVE CONT ADDRESS 17429 043724 202 00 0 00 000130 MOVEM JOBOPC 17430 043725 254 00 1 00 030063 JRST @@ALTMGO ;PERFORM TRANSFER 17431 043726 200 00 0 00 030046 MOVE CONSW 17432 043727 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 17433 043730 037 14 0 00 000004 ERRHLT ;YES 17434 043731 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 17435 043732 476 00 0 00 044441 SETOM PROCED ;NO, SET THE PROCEED FLAG 17436 043733 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 17437 043734 037 01 0 00 000007 PBELL ;YES, GO RING BELL 17438 17439 043735 200 02 0 00 044445 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 17440 043736 200 01 0 00 044444 MOVE 1,%ERAC1 17441 043737 476 00 1 00 044437 SETOM @@ERRLOP ;SET C(ERR LOOP AC) TO -1 17442 043740 336 00 0 00 044441 SKIPN PROCED ;LOOP ON ERROR ? 17443 043741 254 00 0 00 043751 JRST %ERRS5 ;YES 17444 043742 350 00 1 00 044437 AOS @@ERRLOP ;NO, INC C(ERR LOOP AC) 17445 043743 350 00 1 00 044437 AOS @@ERRLOP ;SO IT ='S 1 17446 043744 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 17447 043745 254 00 0 00 043751 JRST %ERRS5 ;NO, CONTINUE PROGRAM 17448 043746 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 17449 043747 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 17450 043750 254 00 0 00 043757 JRST %ERRS6 17451 17452 043751 200 00 0 00 044443 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 17453 043752 254 00 0 00 030065 JRST UUOEXT 17454 17455 043753 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 17456 043754 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 17457 043755 254 00 0 00 043721 JRST %ERRS1 ;NO 17458 043756 254 00 0 00 043617 JRST %ERMS1 ;YES 17459 17460 043757 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 17461 043757 037 04 0 00 044371 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 17462 043760 254 00 0 00 030061 JRST $BEND2 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0344 17463 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 17464 17465 ;PROGRAM LITERALS 17466 17467 XLIST 17468 IFNDEF $LPAPER, 17469 043761 LIT 17470 043761 101 113 000 000 000 17471 043762 000000 000000 17472 043763 777777 777777 17473 043764 000000 000001 17474 043765 000000 000002 17475 043766 000000 000004 17476 043767 000000 000010 17477 043770 000000 000020 17478 043771 000000 000040 17479 043772 000000 000100 17480 043773 000000 000200 17481 043774 000000 000400 17482 043775 000000 001000 17483 043776 000000 002000 17484 043777 000000 004000 17485 044000 000000 010000 17486 044001 000000 020000 17487 044002 000000 040000 17488 044003 000000 100000 17489 044004 000000 200000 17490 044005 000000 400000 17491 044006 000001 000000 17492 044007 000002 000000 17493 044010 000004 000000 17494 044011 000010 000000 17495 044012 000020 000000 17496 044013 000040 000000 17497 044014 000100 000000 17498 044015 000200 000000 17499 044016 000400 000000 17500 044017 001000 000000 17501 044020 002000 000000 17502 044021 004000 000000 17503 044022 010000 000000 17504 044023 020000 000000 17505 044024 040000 000000 17506 044025 100000 000000 17507 044026 200000 000000 17508 044027 400000 000000 17509 044030 777777 777776 17510 044031 777777 777775 17511 044032 777777 777773 17512 044033 777777 777767 17513 044034 777777 777757 17514 044035 777777 777737 17515 044036 777777 777677 17516 044037 777777 777577 17517 044040 777777 777377 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0345 17518 044041 777777 776777 17519 044042 777777 775777 17520 044043 777777 773777 17521 044044 777777 767777 17522 044045 777777 757777 17523 044046 777777 737777 17524 044047 777777 677777 17525 044050 777777 577777 17526 044051 777777 377777 17527 044052 777776 777777 17528 044053 777775 777777 17529 044054 777773 777777 17530 044055 777767 777777 17531 044056 777757 777777 17532 044057 777737 777777 17533 044060 777677 777777 17534 044061 777577 777777 17535 044062 777377 777777 17536 044063 776777 777777 17537 044064 775777 777777 17538 044065 773777 777777 17539 044066 767777 777777 17540 044067 757777 777777 17541 044070 737777 777777 17542 044071 677777 777777 17543 044072 577777 777777 17544 044073 377777 777777 17545 044074 000000 000003 17546 044075 000000 000005 17547 044076 000000 000006 17548 044077 000000 000007 17549 044100 000000 000011 17550 044101 000000 000012 17551 044102 000000 000013 17552 044103 000000 000014 17553 044104 000000 000015 17554 044105 000000 000016 17555 044106 000000 000017 17556 044107 777777 777774 17557 044110 777777 777772 17558 044111 777777 777771 17559 044112 777777 777770 17560 044113 777777 777766 17561 044114 777777 777765 17562 044115 777777 777764 17563 044116 777777 777763 17564 044117 777777 777762 17565 044120 777777 777761 17566 044121 777777 777760 17567 044122 777777 777740 17568 044123 777777 777700 17569 044124 777777 777600 17570 044125 777777 777400 17571 044126 777777 777000 17572 044127 777777 776000 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0346 17573 044130 777777 774000 17574 044131 777777 770000 17575 044132 777777 760000 17576 044133 777777 740000 17577 044134 777777 700000 17578 044135 777777 600000 17579 044136 777777 400000 17580 044137 777777 000000 17581 044140 777776 000000 17582 044141 777774 000000 17583 044142 777770 000000 17584 044143 777760 000000 17585 044144 777740 000000 17586 044145 777700 000000 17587 044146 777600 000000 17588 044147 777400 000000 17589 044150 777000 000000 17590 044151 776000 000000 17591 044152 774000 000000 17592 044153 770000 000000 17593 044154 760000 000000 17594 044155 740000 000000 17595 044156 700000 000000 17596 044157 600000 000000 17597 044160 000000 000021 17598 044161 000000 000041 17599 044162 000000 000101 17600 044163 000000 000201 17601 044164 000000 000401 17602 044165 000000 001001 17603 044166 000000 002001 17604 044167 000000 004001 17605 044170 000000 010001 17606 044171 000000 020001 17607 044172 000000 040001 17608 044173 000000 100001 17609 044174 000000 200001 17610 044175 000000 400001 17611 044176 000001 000001 17612 044177 000002 000001 17613 044200 000004 000001 17614 044201 000010 000001 17615 044202 000020 000001 17616 044203 000040 000001 17617 044204 000100 000001 17618 044205 000200 000001 17619 044206 000400 000001 17620 044207 001000 000001 17621 044210 002000 000001 17622 044211 004000 000001 17623 044212 010000 000001 17624 044213 020000 000001 17625 044214 040000 000001 17626 044215 100000 000001 17627 044216 200000 000001 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0347 17628 044217 400000 000001 17629 044220 525252 525252 17630 044221 652525 252524 17631 044222 525252 525250 17632 044223 652525 252520 17633 044224 525252 525240 17634 044225 777777 777752 17635 044226 652525 252500 17636 044227 777777 777725 17637 044230 525252 525200 17638 044231 777777 777652 17639 044232 652525 252400 17640 044233 777777 777525 17641 044234 525252 525000 17642 044235 777777 777252 17643 044236 652525 252000 17644 044237 777777 776525 17645 044240 525252 524000 17646 044241 777777 775252 17647 044242 652525 250000 17648 044243 777777 772525 17649 044244 525252 520000 17650 044245 777777 765252 17651 044246 652525 240000 17652 044247 777777 752525 17653 044250 525252 500000 17654 044251 777777 725252 17655 044252 652525 200000 17656 044253 777777 652525 17657 044254 525252 400000 17658 044255 777777 525252 17659 044256 652525 000000 17660 044257 777777 252525 17661 044260 525252 000000 17662 044261 777776 525252 17663 044262 652524 000000 17664 044263 777775 252525 17665 044264 525250 000000 17666 044265 777772 525252 17667 044266 652520 000000 17668 044267 777765 252525 17669 044270 525240 000000 17670 044271 777752 525252 17671 044272 652500 000000 17672 044273 777725 252525 17673 044274 525200 000000 17674 044275 777652 525252 17675 044276 652400 000000 17676 044277 777525 252525 17677 044300 525000 000000 17678 044301 777252 525252 17679 044302 652000 000000 17680 044303 776525 252525 17681 044304 524000 000000 17682 044305 775252 525252 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1-4 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0348 17683 044306 650000 000000 17684 044307 772525 252525 17685 044310 520000 000000 17686 044311 765252 525252 17687 044312 640000 000000 17688 044313 752525 252525 17689 044314 500000 000000 17690 044315 725252 525252 17691 044316 652525 252525 17692 044317 252525 252526 17693 044320 76 64 45 63 64 00 17694 044321 60 41 63 63 00 43 17695 044322 57 65 56 64 00 35 17696 044323 00 77 00 00 00 00 17697 044324 76 60 43 00 35 00 17698 044325 00 00 77 00 00 00 17699 044326 76 62 45 63 65 54 17700 044327 64 00 00 35 00 77 17701 044330 76 46 41 65 54 64 17702 044331 00 56 65 55 42 45 17703 044332 62 00 35 00 77 00 17704 044333 103 050 101 103 051 17705 044334 040 106 101 111 114 17706 044335 105 104 000 000 000 17707 044336 103 050 101 103 053 17708 044337 061 051 040 106 101 17709 044340 111 114 105 104 000 17710 044341 103 050 105 051 040 17711 044342 106 101 111 114 105 17712 044343 104 000 000 000 000 17713 044344 103 050 105 053 061 17714 044345 051 040 106 101 111 17715 044346 114 105 104 000 000 17716 044347 103 050 103 050 101 17717 044350 103 122 051 051 040 17718 044351 106 101 111 114 105 17719 044352 104 000 000 000 000 17720 044353 103 050 103 050 101 17721 044354 103 122 053 061 051 17722 044355 051 040 106 101 111 17723 044356 114 105 104 000 000 17724 044357 103 050 103 050 101 17725 044360 103 114 051 051 040 17726 044361 106 101 111 114 105 17727 044362 104 000 000 000 000 17728 044363 103 050 103 050 105 17729 044364 051 051 040 106 101 17730 044365 111 114 105 104 000 17731 044366 106 114 101 107 040 17732 044367 106 101 111 114 105 17733 044370 104 000 000 000 000 17734 044371 76 45 70 43 45 45 17735 044372 44 45 44 00 41 54 17736 044373 54 57 67 45 44 00 17737 044374 45 62 62 57 62 63 DSKAK DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) 0,1 MACRO %53(1020) 10:50 29-Mar-78 Page 1-5 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0349 17738 044375 76 77 00 00 00 00 17739 LIST 17740 044376 000000 000000 ENDSLD: 0 17741 17742 IFDEF DEBUG,< 17743 044377 PATCH: BLOCK DEBUG ;PATCHING AREA 17744 > 17745 17746 ;PROGRAM VARIABLES 17747 044437 VAR 17748 17749 IFDEF PGMEND,< 17750 044447 000000 000000 END: 0 17751 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 044450 CPU TIME USED 00:53.681 34P CORE USED AA1 769# 815# 844# 873# 902# 931# 960# 989# 1018# 1047# 1076# 1105# 1134# 1163# 1192# 1221# 1250# 1279# 1308# 1337# 1366# 1395# 1424# 1453# 1482# 1511# 1540# 1569# SEQ 0350 1598# 1627# 1656# 1685# 1714# 1743# 1772# 1801# 1830# 1875# 1904# 1933# 1962# 1991# 2020# 2049# 2078# 2107# 2136# 2165# 2194# 2223# 2252# 2281# 2310# 2339# 2368# 2397# 2426# 2455# 2484# 2513# 2542# 2571# 2600# 2629# 2658# 2687# 2716# 2745# 2774# 2803# 2832# 2861# 2890# 2923# 2991# 3030# 3069# 3108# 3147# 3186# 3225# 3264# 3303# 3342# 3381# 3420# 3459# 3498# 3537# 3576# 3654# 3699# 3744# 3789# 3834# 3879# 3924# 3969# 4014# 4059# 4104# 4149# 4194# 4239# 4284# 4329# 4376# 4405# 4434# 4463# 4492# 4521# 4550# 4579# 4608# 4637# 4666# 4695# 4724# 4753# 4782# 4811# 4840# 4869# 4898# 4927# 4956# 4985# 5014# 5043# 5072# 5101# 5130# 5159# 5188# 5217# 5246# 5275# 5304# 5333# 5362# 5391# 5436# 5465# 5494# 5523# 5552# 5581# 5610# 5639# 5668# 5697# 5726# 5755# 5784# 5813# 5842# 5871# 5900# 5929# 5958# 5987# 6016# 6045# 6074# 6103# 6132# 6161# 6190# 6219# 6248# 6277# 6306# 6335# 6364# 6393# 6422# 6451# 6484# 6536# 6567# 6598# 6629# 6660# 6691# 6722# 6753# 6784# 6815# 6846# 6877# 6908# 6939# 6970# 7001# 7032# 7063# 7094# 7125# 7156# 7187# 7218# 7249# 7280# 7311# 7342# 7373# 7404# 7435# 7466# 7497# 7528# 7559# 7590# 7621# 7670# 7701# 7732# 7763# 7794# 7825# 7856# 7887# 7918# 7949# 7980# 8011# 8042# 8073# 8104# 8135# 8166# 8197# 8228# 8259# 8290# 8321# 8352# 8383# 8414# 8445# 8476# 8507# 8538# 8569# 8600# 8631# 8662# 8693# 8724# 8755# 8812# 8847# 8882# 8917# 8952# 8987# 9022# 9057# 9092# 9127# 9162# 9197# 9232# 9267# 9302# 9337# 9372# 9407# 9442# 9477# 9512# 9547# 9582# 9617# 9652# 9687# 9722# 9757# 9792# 9827# 9862# 9897# 9932# 9967# 10002# 10037# 10094# 10129# 10164# 10199# 10234# 10269# 10304# 10339# 10374# 10409# 10444# 10479# 10514# 10549# 10584# 10619# 10654# 10689# 10724# 10759# 10794# 10829# 10864# 10899# 10934# 10969# 11004# 11039# 11074# 11109# 11144# 11179# 11214# 11249# 11284# 11319# 11368# 11399# 11430# 11461# 11492# 11523# 11554# 11585# 11616# 11647# 11678# 11709# 11740# 11771# 11802# 11833# 11864# 11895# 11926# 11957# 11988# 12019# 12050# 12081# 12112# 12143# 12174# 12205# 12236# 12267# 12298# 12329# 12360# 12391# 12422# 12453# 12502# 12533# 12564# 12595# 12626# 12657# 12688# 12719# 12750# 12781# 12812# 12843# 12874# 12905# 12936# 12967# 12998# 13029# 13060# 13091# 13122# 13153# 13184# 13215# 13246# 13277# 13308# 13339# 13370# 13401# 13432# 13463# 13494# 13525# 13556# 13587# 13638# 13670# 13702# 13734# 13766# 13798# 13830# 13862# 13894# 13926# 13958# 13990# 14022# 14054# 14086# 14118# 14150# 14182# 14214# 14246# 14278# 14310# 14342# 14374# 14406# 14438# 14470# 14502# 14534# 14566# 14598# 14630# 14662# 14694# 14726# 14758# 14809# 14841# 14873# 14905# 14937# 14969# 15001# 15033# 15065# 15097# 15129# 15161# 15193# 15225# 15257# 15289# 15321# 15353# 15385# 15417# 15449# 15481# 15513# 15545# 15577# 15609# 15641# 15673# 15705# 15737# 15769# 15801# 15833# 15865# 15897# 15929# 15994# 16031# 16068# 16105# 16142# 16179# 16216# 16253# 16290# 16327# 16364# 16401# 16438# 16475# 16512# 16549# 16586# 16623# 16660# 16697# 16734# 16771# 16808# 16845# 16882# 16919# 16956# 16993# 17030# 17067# 17104# 17141# 17178# 17215# 17252# 17289# AA2 771# 817# 846# 875# 904# 933# 962# 991# 1020# 1049# 1078# 1107# 1136# 1165# 1194# 1223# 1252# 1281# 1310# 1339# 1368# 1397# 1426# 1455# 1484# 1513# 1542# 1571# 1600# 1629# 1658# 1687# 1716# 1745# 1774# 1803# 1832# 1877# 1906# 1935# 1964# 1993# 2022# 2051# 2080# 2109# 2138# 2167# 2196# 2225# 2254# 2283# 2312# 2341# 2370# 2399# 2428# 2457# 2486# 2515# 2544# 2573# 2602# 2631# 2660# 2689# 2718# 2747# 2776# 2805# 2834# 2863# 2892# 2925# 2993# 3032# 3071# 3110# 3149# 3188# 3227# 3266# 3305# 3344# 3383# 3422# 3461# 3500# 3539# 3578# 3656# 3701# 3746# 3791# 3836# 3881# 3926# 3971# 4016# 4061# 4106# 4151# 4196# 4241# 4286# 4331# 4378# 4407# 4436# 4465# 4494# 4523# 4552# 4581# 4610# 4639# 4668# 4697# 4726# 4755# 4784# 4813# 4842# 4871# 4900# 4929# 4958# 4987# 5016# 5045# 5074# 5103# 5132# 5161# 5190# 5219# 5248# 5277# 5306# 5335# 5364# 5393# 5438# 5467# 5496# 5525# 5554# 5583# 5612# 5641# 5670# 5699# 5728# 5757# 5786# 5815# 5844# 5873# 5902# 5931# 5960# 5989# 6018# 6047# 6076# 6105# 6134# 6163# 6192# 6221# 6250# 6279# 6308# 6337# 6366# 6395# 6424# 6453# 6486# 6538# 6569# 6600# 6631# 6662# 6693# 6724# 6755# 6786# 6817# 6848# 6879# 6910# 6941# 6972# 7003# 7034# 7065# 7096# 7127# 7158# 7189# 7220# 7251# 7282# 7313# 7344# 7375# 7406# 7437# 7468# 7499# 7530# 7561# 7592# 7623# 7672# 7703# 7734# 7765# 7796# 7827# 7858# 7889# 7920# 7951# 7982# 8013# 8044# 8075# 8106# 8137# 8168# 8199# 8230# 8261# 8292# 8323# 8354# 8385# 8416# 8447# 8478# 8509# 8540# 8571# 8602# 8633# 8664# 8695# 8726# 8757# 8814# 8849# 8884# 8919# 8954# 8989# 9024# 9059# 9094# 9129# 9164# 9199# 9234# 9269# 9304# SEQ 0351 9339# 9374# 9409# 9444# 9479# 9514# 9549# 9584# 9619# 9654# 9689# 9724# 9759# 9794# 9829# 9864# 9899# 9934# 9969# 10004# 10039# 10096# 10131# 10166# 10201# 10236# 10271# 10306# 10341# 10376# 10411# 10446# 10481# 10516# 10551# 10586# 10621# 10656# 10691# 10726# 10761# 10796# 10831# 10866# 10901# 10936# 10971# 11006# 11041# 11076# 11111# 11146# 11181# 11216# 11251# 11286# 11321# 11370# 11401# 11432# 11463# 11494# 11525# 11556# 11587# 11618# 11649# 11680# 11711# 11742# 11773# 11804# 11835# 11866# 11897# 11928# 11959# 11990# 12021# 12052# 12083# 12114# 12145# 12176# 12207# 12238# 12269# 12300# 12331# 12362# 12393# 12424# 12455# 12504# 12535# 12566# 12597# 12628# 12659# 12690# 12721# 12752# 12783# 12814# 12845# 12876# 12907# 12938# 12969# 13000# 13031# 13062# 13093# 13124# 13155# 13186# 13217# 13248# 13279# 13310# 13341# 13372# 13403# 13434# 13465# 13496# 13527# 13558# 13589# 13640# 13672# 13704# 13736# 13768# 13800# 13832# 13864# 13896# 13928# 13960# 13992# 14024# 14056# 14088# 14120# 14152# 14184# 14216# 14248# 14280# 14312# 14344# 14376# 14408# 14440# 14472# 14504# 14536# 14568# 14600# 14632# 14664# 14696# 14728# 14760# 14811# 14843# 14875# 14907# 14939# 14971# 15003# 15035# 15067# 15099# 15131# 15163# 15195# 15227# 15259# 15291# 15323# 15355# 15387# 15419# 15451# 15483# 15515# 15547# 15579# 15611# 15643# 15675# 15707# 15739# 15771# 15803# 15835# 15867# 15899# 15931# 15996# 16033# 16070# 16107# 16144# 16181# 16218# 16255# 16292# 16329# 16366# 16403# 16440# 16477# 16514# 16551# 16588# 16625# 16662# 16699# 16736# 16773# 16810# 16847# 16884# 16921# 16958# 16995# 17032# 17069# 17106# 17143# 17180# 17217# 17254# 17291# ABORT 130# AC 753# 754 757 758 759 760 770 772 775 777 778 780 781 785 787# 788 790 791 792 793 816 818 821 823 824 826 827 831 845 847 850 852 853 855 856 860 874 876 879 881 882 884 885 889 903 905 908 910 911 913 914 918 932 934 937 939 940 942 943 947 961 963 966 968 969 971 972 976 990 992 995 997 998 1000 1001 1005 1019 1021 1024 1026 1027 1029 1030 1034 1048 1050 1053 1055 1056 1058 1059 1063 1077 1079 1082 1084 1085 1087 1088 1092 1106 1108 1111 1113 1114 1116 1117 1121 1135 1137 1140 1142 1143 1145 1146 1150 1164 1166 1169 1171 1172 1174 1175 1179 1193 1195 1198 1200 1201 1203 1204 1208 1222 1224 1227 1229 1230 1232 1233 1237 1251 1253 1256 1258 1259 1261 1262 1266 1280 1282 1285 1287 1288 1290 1291 1295 1309 1311 1314 1316 1317 1319 1320 1324 1338 1340 1343 1345 1346 1348 1349 1353 1367 1369 1372 1374 1375 1377 1378 1382 1396 1398 1401 1403 1404 1406 1407 1411 1425 1427 1430 1432 1433 1435 1436 1440 1454 1456 1459 1461 1462 1464 1465 1469 1483 1485 1488 1490 1491 1493 1494 1498 1512 1514 1517 1519 1520 1522 1523 1527 1541 1543 1546 1548 1549 1551 1552 1556 1570 1572 1575 1577 1578 1580 1581 1585 1599 1601 1604 1606 1607 1609 1610 1614 1628 1630 1633 1635 1636 1638 1639 1643 1657 1659 1662 1664 1665 1667 1668 1672 1686 1688 1691 1693 1694 1696 1697 1701 1715 1717 1720 1722 1723 1725 1726 1730 1744 1746 1749 1751 1752 1754 1755 1759 1773 1775 1778 1780 1781 1783 1784 1788 1802 1804 1807 1809 1810 1812 1813 1817 1831 1833 1836 1838 1839 1841 1842 1846 1847# 1848 1850 1851 1852 1853 1876 1878 1881 1883 1884 1886 1887 1891 1905 1907 1910 1912 1913 1915 1916 1920 1934 1936 1939 1941 1942 1944 1945 1949 1963 1965 1968 1970 1971 1973 1974 1978 1992 1994 1997 1999 2000 2002 2003 2007 2021 2023 2026 2028 2029 2031 2032 2036 2050 2052 2055 2057 2058 2060 2061 2065 2079 2081 2084 2086 2087 2089 2090 2094 2108 2110 2113 2115 2116 2118 2119 2123 2137 2139 2142 2144 2145 2147 2148 2152 2166 2168 2171 2173 2174 2176 2177 2181 2195 2197 2200 2202 2203 2205 2206 2210 2224 2226 2229 2231 2232 2234 2235 2239 2253 2255 2258 2260 2261 2263 2264 2268 2282 2284 2287 2289 2290 2292 2293 2297 2311 2313 2316 2318 2319 2321 2322 2326 2340 2342 2345 2347 2348 2350 2351 2355 2369 2371 2374 2376 2377 2379 2380 2384 2398 2400 2403 2405 2406 2408 2409 2413 2427 2429 2432 2434 2435 2437 2438 2442 2456 2458 2461 2463 2464 2466 2467 2471 2485 2487 2490 2492 2493 2495 2496 2500 SEQ 0352 2514 2516 2519 2521 2522 2524 2525 2529 2543 2545 2548 2550 2551 2553 2554 2558 2572 2574 2577 2579 2580 2582 2583 2587 2601 2603 2606 2608 2609 2611 2612 2616 2630 2632 2635 2637 2638 2640 2641 2645 2659 2661 2664 2666 2667 2669 2670 2674 2688 2690 2693 2695 2696 2698 2699 2703 2717 2719 2722 2724 2725 2727 2728 2732 2746 2748 2751 2753 2754 2756 2757 2761 2775 2777 2780 2782 2783 2785 2786 2790 2804 2806 2809 2811 2812 2814 2815 2819 2833 2835 2838 2840 2841 2843 2844 2848 2862 2864 2867 2869 2870 2872 2873 2877 2891 2893 2896 2898 2899 2901 2902 2906 2908# 2909 2911 2912 2913 2914 2924 2926 2929 2931 2932 2934 2935 2939 2942# 2943 2945 2946 2947 2948 2992 2994 2997 2999 3000 3002 3003 3007 3031 3033 3036 3038 3039 3041 3042 3046 3070 3072 3075 3077 3078 3080 3081 3085 3109 3111 3114 3116 3117 3119 3120 3124 3148 3150 3153 3155 3156 3158 3159 3163 3187 3189 3192 3194 3195 3197 3198 3202 3226 3228 3231 3233 3234 3236 3237 3241 3265 3267 3270 3272 3273 3275 3276 3280 3304 3306 3309 3311 3312 3314 3315 3319 3343 3345 3348 3350 3351 3353 3354 3358 3382 3384 3387 3389 3390 3392 3393 3397 3421 3423 3426 3428 3429 3431 3432 3436 3460 3462 3465 3467 3468 3470 3471 3475 3499 3501 3504 3506 3507 3509 3510 3514 3538 3540 3543 3545 3546 3548 3549 3553 3577 3579 3582 3584 3585 3587 3588 3592 3593# 3594 3596 3597 3598 3599 3655 3657 3660 3662 3663 3665 3666 3670 3700 3702 3705 3707 3708 3710 3711 3715 3745 3747 3750 3752 3753 3755 3756 3760 3790 3792 3795 3797 3798 3800 3801 3805 3835 3837 3840 3842 3843 3845 3846 3850 3880 3882 3885 3887 3888 3890 3891 3895 3925 3927 3930 3932 3933 3935 3936 3940 3970 3972 3975 3977 3978 3980 3981 3985 4015 4017 4020 4022 4023 4025 4026 4030 4060 4062 4065 4067 4068 4070 4071 4075 4105 4107 4110 4112 4113 4115 4116 4120 4150 4152 4155 4157 4158 4160 4161 4165 4195 4197 4200 4202 4203 4205 4206 4210 4240 4242 4245 4247 4248 4250 4251 4255 4285 4287 4290 4292 4293 4295 4296 4300 4330 4332 4335 4337 4338 4340 4341 4345 4348# 4349 4351 4352 4353 4354 4377 4379 4382 4384 4385 4387 4388 4392 4406 4408 4411 4413 4414 4416 4417 4421 4435 4437 4440 4442 4443 4445 4446 4450 4464 4466 4469 4471 4472 4474 4475 4479 4493 4495 4498 4500 4501 4503 4504 4508 4522 4524 4527 4529 4530 4532 4533 4537 4551 4553 4556 4558 4559 4561 4562 4566 4580 4582 4585 4587 4588 4590 4591 4595 4609 4611 4614 4616 4617 4619 4620 4624 4638 4640 4643 4645 4646 4648 4649 4653 4667 4669 4672 4674 4675 4677 4678 4682 4696 4698 4701 4703 4704 4706 4707 4711 4725 4727 4730 4732 4733 4735 4736 4740 4754 4756 4759 4761 4762 4764 4765 4769 4783 4785 4788 4790 4791 4793 4794 4798 4812 4814 4817 4819 4820 4822 4823 4827 4841 4843 4846 4848 4849 4851 4852 4856 4870 4872 4875 4877 4878 4880 4881 4885 4899 4901 4904 4906 4907 4909 4910 4914 4928 4930 4933 4935 4936 4938 4939 4943 4957 4959 4962 4964 4965 4967 4968 4972 4986 4988 4991 4993 4994 4996 4997 5001 5015 5017 5020 5022 5023 5025 5026 5030 5044 5046 5049 5051 5052 5054 5055 5059 5073 5075 5078 5080 5081 5083 5084 5088 5102 5104 5107 5109 5110 5112 5113 5117 5131 5133 5136 5138 5139 5141 5142 5146 5160 5162 5165 5167 5168 5170 5171 5175 5189 5191 5194 5196 5197 5199 5200 5204 5218 5220 5223 5225 5226 5228 5229 5233 5247 5249 5252 5254 5255 5257 5258 5262 5276 5278 5281 5283 5284 5286 5287 5291 5305 5307 5310 5312 5313 5315 5316 5320 5334 5336 5339 5341 5342 5344 5345 5349 5363 5365 5368 5370 5371 5373 5374 5378 5392 5394 5397 5399 5400 5402 5403 5407 5408# 5409 5411 5412 5413 5414 5437 5439 5442 5444 5445 5447 5448 5452 5466 5468 5471 5473 5474 5476 5477 5481 5495 5497 5500 5502 5503 5505 5506 5510 5524 5526 5529 5531 5532 5534 5535 5539 5553 5555 5558 5560 5561 5563 5564 5568 5582 5584 5587 5589 5590 5592 5593 5597 SEQ 0353 5611 5613 5616 5618 5619 5621 5622 5626 5640 5642 5645 5647 5648 5650 5651 5655 5669 5671 5674 5676 5677 5679 5680 5684 5698 5700 5703 5705 5706 5708 5709 5713 5727 5729 5732 5734 5735 5737 5738 5742 5756 5758 5761 5763 5764 5766 5767 5771 5785 5787 5790 5792 5793 5795 5796 5800 5814 5816 5819 5821 5822 5824 5825 5829 5843 5845 5848 5850 5851 5853 5854 5858 5872 5874 5877 5879 5880 5882 5883 5887 5901 5903 5906 5908 5909 5911 5912 5916 5930 5932 5935 5937 5938 5940 5941 5945 5959 5961 5964 5966 5967 5969 5970 5974 5988 5990 5993 5995 5996 5998 5999 6003 6017 6019 6022 6024 6025 6027 6028 6032 6046 6048 6051 6053 6054 6056 6057 6061 6075 6077 6080 6082 6083 6085 6086 6090 6104 6106 6109 6111 6112 6114 6115 6119 6133 6135 6138 6140 6141 6143 6144 6148 6162 6164 6167 6169 6170 6172 6173 6177 6191 6193 6196 6198 6199 6201 6202 6206 6220 6222 6225 6227 6228 6230 6231 6235 6249 6251 6254 6256 6257 6259 6260 6264 6278 6280 6283 6285 6286 6288 6289 6293 6307 6309 6312 6314 6315 6317 6318 6322 6336 6338 6341 6343 6344 6346 6347 6351 6365 6367 6370 6372 6373 6375 6376 6380 6394 6396 6399 6401 6402 6404 6405 6409 6423 6425 6428 6430 6431 6433 6434 6438 6452 6454 6457 6459 6460 6462 6463 6467 6468# 6469 6471 6472 6473 6474 6485 6487 6490 6492 6493 6495 6496 6500 6503# 6504 6506 6507 6508 6509 6537 6539 6542 6544 6545 6547 6548 6552 6568 6570 6573 6575 6576 6578 6579 6583 6599 6601 6604 6606 6607 6609 6610 6614 6630 6632 6635 6637 6638 6640 6641 6645 6661 6663 6666 6668 6669 6671 6672 6676 6692 6694 6697 6699 6700 6702 6703 6707 6723 6725 6728 6730 6731 6733 6734 6738 6754 6756 6759 6761 6762 6764 6765 6769 6785 6787 6790 6792 6793 6795 6796 6800 6816 6818 6821 6823 6824 6826 6827 6831 6847 6849 6852 6854 6855 6857 6858 6862 6878 6880 6883 6885 6886 6888 6889 6893 6909 6911 6914 6916 6917 6919 6920 6924 6940 6942 6945 6947 6948 6950 6951 6955 6971 6973 6976 6978 6979 6981 6982 6986 7002 7004 7007 7009 7010 7012 7013 7017 7033 7035 7038 7040 7041 7043 7044 7048 7064 7066 7069 7071 7072 7074 7075 7079 7095 7097 7100 7102 7103 7105 7106 7110 7126 7128 7131 7133 7134 7136 7137 7141 7157 7159 7162 7164 7165 7167 7168 7172 7188 7190 7193 7195 7196 7198 7199 7203 7219 7221 7224 7226 7227 7229 7230 7234 7250 7252 7255 7257 7258 7260 7261 7265 7281 7283 7286 7288 7289 7291 7292 7296 7312 7314 7317 7319 7320 7322 7323 7327 7343 7345 7348 7350 7351 7353 7354 7358 7374 7376 7379 7381 7382 7384 7385 7389 7405 7407 7410 7412 7413 7415 7416 7420 7436 7438 7441 7443 7444 7446 7447 7451 7467 7469 7472 7474 7475 7477 7478 7482 7498 7500 7503 7505 7506 7508 7509 7513 7529 7531 7534 7536 7537 7539 7540 7544 7560 7562 7565 7567 7568 7570 7571 7575 7591 7593 7596 7598 7599 7601 7602 7606 7622 7624 7627 7629 7630 7632 7633 7637 7638# 7639 7641 7642 7643 7644 7671 7673 7676 7678 7679 7681 7682 7686 7702 7704 7707 7709 7710 7712 7713 7717 7733 7735 7738 7740 7741 7743 7744 7748 7764 7766 7769 7771 7772 7774 7775 7779 7795 7797 7800 7802 7803 7805 7806 7810 7826 7828 7831 7833 7834 7836 7837 7841 7857 7859 7862 7864 7865 7867 7868 7872 7888 7890 7893 7895 7896 7898 7899 7903 7919 7921 7924 7926 7927 7929 7930 7934 7950 7952 7955 7957 7958 7960 7961 7965 7981 7983 7986 7988 7989 7991 7992 7996 8012 8014 8017 8019 8020 8022 8023 8027 8043 8045 8048 8050 8051 8053 8054 8058 8074 8076 8079 8081 8082 8084 8085 8089 8105 8107 8110 8112 8113 8115 8116 8120 8136 8138 8141 8143 8144 8146 8147 8151 8167 8169 8172 8174 8175 8177 8178 8182 8198 8200 8203 8205 8206 8208 8209 8213 8229 8231 8234 8236 8237 8239 8240 8244 8260 8262 8265 8267 8268 8270 8271 8275 8291 8293 8296 8298 8299 8301 8302 8306 8322 8324 8327 8329 8330 8332 8333 8337 8353 8355 8358 8360 8361 8363 8364 8368 8384 8386 8389 8391 SEQ 0354 8392 8394 8395 8399 8415 8417 8420 8422 8423 8425 8426 8430 8446 8448 8451 8453 8454 8456 8457 8461 8477 8479 8482 8484 8485 8487 8488 8492 8508 8510 8513 8515 8516 8518 8519 8523 8539 8541 8544 8546 8547 8549 8550 8554 8570 8572 8575 8577 8578 8580 8581 8585 8601 8603 8606 8608 8609 8611 8612 8616 8632 8634 8637 8639 8640 8642 8643 8647 8663 8665 8668 8670 8671 8673 8674 8678 8694 8696 8699 8701 8702 8704 8705 8709 8725 8727 8730 8732 8733 8735 8736 8740 8756 8758 8761 8763 8764 8766 8767 8771 8772# 8773 8775 8776 8777 8778 8813 8815 8818 8820 8821 8823 8824 8828 8848 8850 8853 8855 8856 8858 8859 8863 8883 8885 8888 8890 8891 8893 8894 8898 8918 8920 8923 8925 8926 8928 8929 8933 8953 8955 8958 8960 8961 8963 8964 8968 8988 8990 8993 8995 8996 8998 8999 9003 9023 9025 9028 9030 9031 9033 9034 9038 9058 9060 9063 9065 9066 9068 9069 9073 9093 9095 9098 9100 9101 9103 9104 9108 9128 9130 9133 9135 9136 9138 9139 9143 9163 9165 9168 9170 9171 9173 9174 9178 9198 9200 9203 9205 9206 9208 9209 9213 9233 9235 9238 9240 9241 9243 9244 9248 9268 9270 9273 9275 9276 9278 9279 9283 9303 9305 9308 9310 9311 9313 9314 9318 9338 9340 9343 9345 9346 9348 9349 9353 9373 9375 9378 9380 9381 9383 9384 9388 9408 9410 9413 9415 9416 9418 9419 9423 9443 9445 9448 9450 9451 9453 9454 9458 9478 9480 9483 9485 9486 9488 9489 9493 9513 9515 9518 9520 9521 9523 9524 9528 9548 9550 9553 9555 9556 9558 9559 9563 9583 9585 9588 9590 9591 9593 9594 9598 9618 9620 9623 9625 9626 9628 9629 9633 9653 9655 9658 9660 9661 9663 9664 9668 9688 9690 9693 9695 9696 9698 9699 9703 9723 9725 9728 9730 9731 9733 9734 9738 9758 9760 9763 9765 9766 9768 9769 9773 9793 9795 9798 9800 9801 9803 9804 9808 9828 9830 9833 9835 9836 9838 9839 9843 9863 9865 9868 9870 9871 9873 9874 9878 9898 9900 9903 9905 9906 9908 9909 9913 9933 9935 9938 9940 9941 9943 9944 9948 9968 9970 9973 9975 9976 9978 9979 9983 10003 10005 10008 10010 10011 10013 10014 10018 10038 10040 10043 10045 10046 10048 10049 10053 10054# 10055 10057 10058 10059 10060 10095 10097 10100 10102 10103 10105 10106 10110 10130 10132 10135 10137 10138 10140 10141 10145 10165 10167 10170 10172 10173 10175 10176 10180 10200 10202 10205 10207 10208 10210 10211 10215 10235 10237 10240 10242 10243 10245 10246 10250 10270 10272 10275 10277 10278 10280 10281 10285 10305 10307 10310 10312 10313 10315 10316 10320 10340 10342 10345 10347 10348 10350 10351 10355 10375 10377 10380 10382 10383 10385 10386 10390 10410 10412 10415 10417 10418 10420 10421 10425 10445 10447 10450 10452 10453 10455 10456 10460 10480 10482 10485 10487 10488 10490 10491 10495 10515 10517 10520 10522 10523 10525 10526 10530 10550 10552 10555 10557 10558 10560 10561 10565 10585 10587 10590 10592 10593 10595 10596 10600 10620 10622 10625 10627 10628 10630 10631 10635 10655 10657 10660 10662 10663 10665 10666 10670 10690 10692 10695 10697 10698 10700 10701 10705 10725 10727 10730 10732 10733 10735 10736 10740 10760 10762 10765 10767 10768 10770 10771 10775 10795 10797 10800 10802 10803 10805 10806 10810 10830 10832 10835 10837 10838 10840 10841 10845 10865 10867 10870 10872 10873 10875 10876 10880 10900 10902 10905 10907 10908 10910 10911 10915 10935 10937 10940 10942 10943 10945 10946 10950 10970 10972 10975 10977 10978 10980 10981 10985 11005 11007 11010 11012 11013 11015 11016 11020 11040 11042 11045 11047 11048 11050 11051 11055 11075 11077 11080 11082 11083 11085 11086 11090 11110 11112 11115 11117 11118 11120 11121 11125 11145 11147 11150 11152 11153 11155 11156 11160 11180 11182 11185 11187 11188 11190 11191 11195 11215 11217 11220 11222 11223 11225 11226 11230 11250 11252 11255 11257 11258 11260 11261 11265 11285 11287 11290 11292 11293 11295 11296 11300 11320 11322 11325 11327 11328 11330 11331 11335 11336# 11337 11339 11340 11341 11342 11369 11371 11374 11376 11377 11379 11380 11384 11400 11402 11405 11407 11408 11410 11411 11415 11431 11433 11436 11438 11439 11441 11442 11446 11462 11464 11467 11469 11470 11472 11473 11477 11493 11495 11498 11500 11501 11503 11504 11508 11524 11526 11529 11531 11532 11534 11535 11539 SEQ 0355 11555 11557 11560 11562 11563 11565 11566 11570 11586 11588 11591 11593 11594 11596 11597 11601 11617 11619 11622 11624 11625 11627 11628 11632 11648 11650 11653 11655 11656 11658 11659 11663 11679 11681 11684 11686 11687 11689 11690 11694 11710 11712 11715 11717 11718 11720 11721 11725 11741 11743 11746 11748 11749 11751 11752 11756 11772 11774 11777 11779 11780 11782 11783 11787 11803 11805 11808 11810 11811 11813 11814 11818 11834 11836 11839 11841 11842 11844 11845 11849 11865 11867 11870 11872 11873 11875 11876 11880 11896 11898 11901 11903 11904 11906 11907 11911 11927 11929 11932 11934 11935 11937 11938 11942 11958 11960 11963 11965 11966 11968 11969 11973 11989 11991 11994 11996 11997 11999 12000 12004 12020 12022 12025 12027 12028 12030 12031 12035 12051 12053 12056 12058 12059 12061 12062 12066 12082 12084 12087 12089 12090 12092 12093 12097 12113 12115 12118 12120 12121 12123 12124 12128 12144 12146 12149 12151 12152 12154 12155 12159 12175 12177 12180 12182 12183 12185 12186 12190 12206 12208 12211 12213 12214 12216 12217 12221 12237 12239 12242 12244 12245 12247 12248 12252 12268 12270 12273 12275 12276 12278 12279 12283 12299 12301 12304 12306 12307 12309 12310 12314 12330 12332 12335 12337 12338 12340 12341 12345 12361 12363 12366 12368 12369 12371 12372 12376 12392 12394 12397 12399 12400 12402 12403 12407 12423 12425 12428 12430 12431 12433 12434 12438 12454 12456 12459 12461 12462 12464 12465 12469 12470# 12471 12473 12474 12475 12476 12503 12505 12508 12510 12511 12513 12514 12518 12534 12536 12539 12541 12542 12544 12545 12549 12565 12567 12570 12572 12573 12575 12576 12580 12596 12598 12601 12603 12604 12606 12607 12611 12627 12629 12632 12634 12635 12637 12638 12642 12658 12660 12663 12665 12666 12668 12669 12673 12689 12691 12694 12696 12697 12699 12700 12704 12720 12722 12725 12727 12728 12730 12731 12735 12751 12753 12756 12758 12759 12761 12762 12766 12782 12784 12787 12789 12790 12792 12793 12797 12813 12815 12818 12820 12821 12823 12824 12828 12844 12846 12849 12851 12852 12854 12855 12859 12875 12877 12880 12882 12883 12885 12886 12890 12906 12908 12911 12913 12914 12916 12917 12921 12937 12939 12942 12944 12945 12947 12948 12952 12968 12970 12973 12975 12976 12978 12979 12983 12999 13001 13004 13006 13007 13009 13010 13014 13030 13032 13035 13037 13038 13040 13041 13045 13061 13063 13066 13068 13069 13071 13072 13076 13092 13094 13097 13099 13100 13102 13103 13107 13123 13125 13128 13130 13131 13133 13134 13138 13154 13156 13159 13161 13162 13164 13165 13169 13185 13187 13190 13192 13193 13195 13196 13200 13216 13218 13221 13223 13224 13226 13227 13231 13247 13249 13252 13254 13255 13257 13258 13262 13278 13280 13283 13285 13286 13288 13289 13293 13309 13311 13314 13316 13317 13319 13320 13324 13340 13342 13345 13347 13348 13350 13351 13355 13371 13373 13376 13378 13379 13381 13382 13386 13402 13404 13407 13409 13410 13412 13413 13417 13433 13435 13438 13440 13441 13443 13444 13448 13464 13466 13469 13471 13472 13474 13475 13479 13495 13497 13500 13502 13503 13505 13506 13510 13526 13528 13531 13533 13534 13536 13537 13541 13557 13559 13562 13564 13565 13567 13568 13572 13588 13590 13593 13595 13596 13598 13599 13603 13604# 13605 13607 13608 13609 13610 13639 13641 13644 13646 13647 13649 13650 13654 13671 13673 13676 13678 13679 13681 13682 13686 13703 13705 13708 13710 13711 13713 13714 13718 13735 13737 13740 13742 13743 13745 13746 13750 13767 13769 13772 13774 13775 13777 13778 13782 13799 13801 13804 13806 13807 13809 13810 13814 13831 13833 13836 13838 13839 13841 13842 13846 13863 13865 13868 13870 13871 13873 13874 13878 13895 13897 13900 13902 13903 13905 13906 13910 13927 13929 13932 13934 13935 13937 13938 13942 13959 13961 13964 13966 13967 13969 13970 13974 13991 13993 13996 13998 13999 14001 14002 14006 14023 14025 14028 14030 14031 14033 14034 14038 14055 14057 14060 14062 14063 14065 14066 14070 14087 14089 14092 14094 14095 14097 14098 14102 14119 14121 14124 14126 14127 14129 14130 14134 14151 14153 14156 14158 14159 14161 14162 14166 14183 14185 14188 14190 14191 14193 14194 14198 14215 14217 14220 14222 14223 14225 14226 14230 14247 14249 14252 14254 14255 14257 14258 14262 14279 14281 14284 14286 14287 14289 14290 14294 14311 14313 14316 14318 14319 14321 14322 14326 14343 14345 14348 14350 14351 14353 14354 14358 14375 14377 14380 14382 14383 14385 14386 14390 14407 14409 14412 14414 14415 14417 14418 14422 14439 14441 SEQ 0356 14444 14446 14447 14449 14450 14454 14471 14473 14476 14478 14479 14481 14482 14486 14503 14505 14508 14510 14511 14513 14514 14518 14535 14537 14540 14542 14543 14545 14546 14550 14567 14569 14572 14574 14575 14577 14578 14582 14599 14601 14604 14606 14607 14609 14610 14614 14631 14633 14636 14638 14639 14641 14642 14646 14663 14665 14668 14670 14671 14673 14674 14678 14695 14697 14700 14702 14703 14705 14706 14710 14727 14729 14732 14734 14735 14737 14738 14742 14759 14761 14764 14766 14767 14769 14770 14774 14775# 14776 14778 14779 14780 14781 14810 14812 14815 14817 14818 14820 14821 14825 14842 14844 14847 14849 14850 14852 14853 14857 14874 14876 14879 14881 14882 14884 14885 14889 14906 14908 14911 14913 14914 14916 14917 14921 14938 14940 14943 14945 14946 14948 14949 14953 14970 14972 14975 14977 14978 14980 14981 14985 15002 15004 15007 15009 15010 15012 15013 15017 15034 15036 15039 15041 15042 15044 15045 15049 15066 15068 15071 15073 15074 15076 15077 15081 15098 15100 15103 15105 15106 15108 15109 15113 15130 15132 15135 15137 15138 15140 15141 15145 15162 15164 15167 15169 15170 15172 15173 15177 15194 15196 15199 15201 15202 15204 15205 15209 15226 15228 15231 15233 15234 15236 15237 15241 15258 15260 15263 15265 15266 15268 15269 15273 15290 15292 15295 15297 15298 15300 15301 15305 15322 15324 15327 15329 15330 15332 15333 15337 15354 15356 15359 15361 15362 15364 15365 15369 15386 15388 15391 15393 15394 15396 15397 15401 15418 15420 15423 15425 15426 15428 15429 15433 15450 15452 15455 15457 15458 15460 15461 15465 15482 15484 15487 15489 15490 15492 15493 15497 15514 15516 15519 15521 15522 15524 15525 15529 15546 15548 15551 15553 15554 15556 15557 15561 15578 15580 15583 15585 15586 15588 15589 15593 15610 15612 15615 15617 15618 15620 15621 15625 15642 15644 15647 15649 15650 15652 15653 15657 15674 15676 15679 15681 15682 15684 15685 15689 15706 15708 15711 15713 15714 15716 15717 15721 15738 15740 15743 15745 15746 15748 15749 15753 15770 15772 15775 15777 15778 15780 15781 15785 15802 15804 15807 15809 15810 15812 15813 15817 15834 15836 15839 15841 15842 15844 15845 15849 15866 15868 15871 15873 15874 15876 15877 15881 15898 15900 15903 15905 15906 15908 15909 15913 15930 15932 15935 15937 15938 15940 15941 15945 15948# 15949 15951 15952 15953 15954 15995 15997 16000 16002 16003 16005 16006 16010 16032 16034 16037 16039 16040 16042 16043 16047 16069 16071 16074 16076 16077 16079 16080 16084 16106 16108 16111 16113 16114 16116 16117 16121 16143 16145 16148 16150 16151 16153 16154 16158 16180 16182 16185 16187 16188 16190 16191 16195 16217 16219 16222 16224 16225 16227 16228 16232 16254 16256 16259 16261 16262 16264 16265 16269 16291 16293 16296 16298 16299 16301 16302 16306 16328 16330 16333 16335 16336 16338 16339 16343 16365 16367 16370 16372 16373 16375 16376 16380 16402 16404 16407 16409 16410 16412 16413 16417 16439 16441 16444 16446 16447 16449 16450 16454 16476 16478 16481 16483 16484 16486 16487 16491 16513 16515 16518 16520 16521 16523 16524 16528 16550 16552 16555 16557 16558 16560 16561 16565 16587 16589 16592 16594 16595 16597 16598 16602 16624 16626 16629 16631 16632 16634 16635 16639 16661 16663 16666 16668 16669 16671 16672 16676 16698 16700 16703 16705 16706 16708 16709 16713 16735 16737 16740 16742 16743 16745 16746 16750 16772 16774 16777 16779 16780 16782 16783 16787 16809 16811 16814 16816 16817 16819 16820 16824 16846 16848 16851 16853 16854 16856 16857 16861 16883 16885 16888 16890 16891 16893 16894 16898 16920 16922 16925 16927 16928 16930 16931 16935 16957 16959 16962 16964 16965 16967 16968 16972 16994 16996 16999 17001 17002 17004 17005 17009 17031 17033 17036 17038 17039 17041 17042 17046 17068 17070 17073 17075 17076 17078 17079 17083 17105 17107 17110 17112 17113 17115 17116 17120 17142 17144 17147 17149 17150 17152 17153 17157 17179 17181 17184 17186 17187 17189 17190 17194 17216 17218 17221 17223 17224 17226 17227 17231 17253 17255 17258 17260 17261 17263 17264 17268 17290 17292 17295 17297 17298 17300 17301 17305 ADR 752# 763 804 804# 809 833 833# 838 862 862# 867 891 891# 896 920 920# 925 949 949# 954 978 978# 983 1007 1007# 1012 1036 1036# 1041 1065 1065# 1070 1094 1094# 1099 1123 1123# 1128 1152 1152# 1157 1181 1181# 1186 1210 1210# 1215 1239 1239# 1244 1268 1268# 1273 1297 1297# 1302 SEQ 0357 1326 1326# 1331 1355 1355# 1360 1384 1384# 1389 1413 1413# 1418 1442 1442# 1447 1471 1471# 1476 1500 1500# 1505 1529 1529# 1534 1558 1558# 1563 1587 1587# 1592 1616 1616# 1621 1645 1645# 1650 1674 1674# 1679 1703 1703# 1708 1732 1732# 1737 1761 1761# 1766 1790 1790# 1795 1819 1819# 1824 1864 1864# 1869 1893 1893# 1898 1922 1922# 1927 1951 1951# 1956 1980 1980# 1985 2009 2009# 2014 2038 2038# 2043 2067 2067# 2072 2096 2096# 2101 2125 2125# 2130 2154 2154# 2159 2183 2183# 2188 2212 2212# 2217 2241 2241# 2246 2270 2270# 2275 2299 2299# 2304 2328 2328# 2333 2357 2357# 2362 2386 2386# 2391 2415 2415# 2420 2444 2444# 2449 2473 2473# 2478 2502 2502# 2507 2531 2531# 2536 2560 2560# 2565 2589 2589# 2594 2618 2618# 2623 2647 2647# 2652 2676 2676# 2681 2705 2705# 2710 2734 2734# 2739 2763 2763# 2768 2792 2792# 2797 2821 2821# 2826 2850 2850# 2855 2879 2879# 2884 2907 2907# 2917 2982 2982# 2985 3021 3021# 3024 3060 3060# 3063 3099 3099# 3102 3138 3138# 3141 3177 3177# 3180 3216 3216# 3219 3255 3255# 3258 3294 3294# 3297 3333 3333# 3336 3372 3372# 3375 3411 3411# 3414 3450 3450# 3453 3489 3489# 3492 3528 3528# 3531 3567 3567# 3570 3639 3639# 3648 3684 3684# 3693 3729 3729# 3738 3774 3774# 3783 3819 3819# 3828 3864 3864# 3873 3909 3909# 3918 3954 3954# 3963 3999 3999# 4008 4044 4044# 4053 4089 4089# 4098 4134 4134# 4143 4179 4179# 4188 4224 4224# 4233 4269 4269# 4278 4314 4314# 4323 4365 4365# 4370 4394 4394# 4399 4423 4423# 4428 4452 4452# 4457 4481 4481# 4486 4510 4510# 4515 4539 4539# 4544 4568 4568# 4573 4597 4597# 4602 4626 4626# 4631 4655 4655# 4660 4684 4684# 4689 4713 4713# 4718 4742 4742# 4747 4771 4771# 4776 4800 4800# 4805 4829 4829# 4834 4858 4858# 4863 4887 4887# 4892 4916 4916# 4921 4945 4945# 4950 4974 4974# 4979 5003 5003# 5008 5032 5032# 5037 5061 5061# 5066 5090 5090# 5095 5119 5119# 5124 5148 5148# 5153 5177 5177# 5182 5206 5206# 5211 5235 5235# 5240 5264 5264# 5269 5293 5293# 5298 5322 5322# 5327 5351 5351# 5356 5380 5380# 5385 5425 5425# 5430 5454 5454# 5459 5483 5483# 5488 5512 5512# 5517 5541 5541# 5546 5570 5570# 5575 5599 5599# 5604 5628 5628# 5633 5657 5657# 5662 5686 5686# 5691 5715 5715# 5720 5744 5744# 5749 5773 5773# 5778 5802 5802# 5807 5831 5831# 5836 5860 5860# 5865 5889 5889# 5894 5918 5918# 5923 5947 5947# 5952 5976 5976# 5981 6005 6005# 6010 6034 6034# 6039 6063 6063# 6068 6092 6092# 6097 6121 6121# 6126 6150 6150# 6155 6179 6179# 6184 6208 6208# 6213 6237 6237# 6242 6266 6266# 6271 6295 6295# 6300 6324 6324# 6329 6353 6353# 6358 6382 6382# 6387 6411 6411# 6416 6440 6440# 6445 6475 6475# 6478 6523 6523# 6530 6554 6554# 6561 6585 6585# 6592 6616 6616# 6623 6647 6647# 6654 6678 6678# 6685 6709 6709# 6716 6740 6740# 6747 6771 6771# 6778 6802 6802# 6809 6833 6833# 6840 6864 6864# 6871 6895 6895# 6902 6926 6926# 6933 6957 6957# 6964 6988 6988# 6995 7019 7019# 7026 7050 7050# 7057 7081 7081# 7088 7112 7112# 7119 7143 7143# 7150 7174 7174# 7181 7205 7205# 7212 7236 7236# 7243 7267 7267# 7274 7298 7298# 7305 7329 7329# 7336 7360 7360# 7367 7391 7391# 7398 7422 7422# 7429 7453 7453# 7460 7484 7484# 7491 7515 7515# 7522 7546 7546# 7553 7577 7577# 7584 7608 7608# 7615 7657 7657# 7664 7688 7688# 7695 7719 7719# 7726 7750 7750# 7757 7781 7781# 7788 7812 7812# 7819 7843 7843# 7850 7874 7874# 7881 7905 7905# 7912 7936 7936# 7943 7967 7967# 7974 7998 7998# 8005 8029 8029# 8036 8060 8060# 8067 8091 8091# 8098 8122 8122# 8129 8153 8153# 8160 8184 8184# 8191 8215 8215# 8222 8246 8246# 8253 8277 8277# 8284 8308 8308# 8315 8339 8339# 8346 8370 8370# 8377 8401 8401# 8408 8432 8432# 8439 8463 8463# 8470 8494 8494# 8501 8525 8525# 8532 8556 8556# 8563 8587 8587# 8594 8618 8618# 8625 8649 8649# 8656 8680 8680# 8687 8711 8711# 8718 8742 8742# 8749 8795 8795# 8806 8830 8830# 8841 8865 8865# 8876 8900 8900# 8911 8935 8935# 8946 8970 8970# 8981 9005 9005# 9016 9040 9040# 9051 9075 9075# 9086 9110 9110# 9121 9145 9145# 9156 9180 9180# 9191 9215 9215# 9226 9250 9250# 9261 9285 9285# 9296 9320 SEQ 0358 9320# 9331 9355 9355# 9366 9390 9390# 9401 9425 9425# 9436 9460 9460# 9471 9495 9495# 9506 9530 9530# 9541 9565 9565# 9576 9600 9600# 9611 9635 9635# 9646 9670 9670# 9681 9705 9705# 9716 9740 9740# 9751 9775 9775# 9786 9810 9810# 9821 9845 9845# 9856 9880 9880# 9891 9915 9915# 9926 9950 9950# 9961 9985 9985# 9996 10020 10020# 10031 10077 10077# 10088 10112 10112# 10123 10147 10147# 10158 10182 10182# 10193 10217 10217# 10228 10252 10252# 10263 10287 10287# 10298 10322 10322# 10333 10357 10357# 10368 10392 10392# 10403 10427 10427# 10438 10462 10462# 10473 10497 10497# 10508 10532 10532# 10543 10567 10567# 10578 10602 10602# 10613 10637 10637# 10648 10672 10672# 10683 10707 10707# 10718 10742 10742# 10753 10777 10777# 10788 10812 10812# 10823 10847 10847# 10858 10882 10882# 10893 10917 10917# 10928 10952 10952# 10963 10987 10987# 10998 11022 11022# 11033 11057 11057# 11068 11092 11092# 11103 11127 11127# 11138 11162 11162# 11173 11197 11197# 11208 11232 11232# 11243 11267 11267# 11278 11302 11302# 11313 11355 11355# 11362 11386 11386# 11393 11417 11417# 11424 11448 11448# 11455 11479 11479# 11486 11510 11510# 11517 11541 11541# 11548 11572 11572# 11579 11603 11603# 11610 11634 11634# 11641 11665 11665# 11672 11696 11696# 11703 11727 11727# 11734 11758 11758# 11765 11789 11789# 11796 11820 11820# 11827 11851 11851# 11858 11882 11882# 11889 11913 11913# 11920 11944 11944# 11951 11975 11975# 11982 12006 12006# 12013 12037 12037# 12044 12068 12068# 12075 12099 12099# 12106 12130 12130# 12137 12161 12161# 12168 12192 12192# 12199 12223 12223# 12230 12254 12254# 12261 12285 12285# 12292 12316 12316# 12323 12347 12347# 12354 12378 12378# 12385 12409 12409# 12416 12440 12440# 12447 12489 12489# 12496 12520 12520# 12527 12551 12551# 12558 12582 12582# 12589 12613 12613# 12620 12644 12644# 12651 12675 12675# 12682 12706 12706# 12713 12737 12737# 12744 12768 12768# 12775 12799 12799# 12806 12830 12830# 12837 12861 12861# 12868 12892 12892# 12899 12923 12923# 12930 12954 12954# 12961 12985 12985# 12992 13016 13016# 13023 13047 13047# 13054 13078 13078# 13085 13109 13109# 13116 13140 13140# 13147 13171 13171# 13178 13202 13202# 13209 13233 13233# 13240 13264 13264# 13271 13295 13295# 13302 13326 13326# 13333 13357 13357# 13364 13388 13388# 13395 13419 13419# 13426 13450 13450# 13457 13481 13481# 13488 13512 13512# 13519 13543 13543# 13550 13574 13574# 13581 13624 13624# 13632 13656 13656# 13664 13688 13688# 13696 13720 13720# 13728 13752 13752# 13760 13784 13784# 13792 13816 13816# 13824 13848 13848# 13856 13880 13880# 13888 13912 13912# 13920 13944 13944# 13952 13976 13976# 13984 14008 14008# 14016 14040 14040# 14048 14072 14072# 14080 14104 14104# 14112 14136 14136# 14144 14168 14168# 14176 14200 14200# 14208 14232 14232# 14240 14264 14264# 14272 14296 14296# 14304 14328 14328# 14336 14360 14360# 14368 14392 14392# 14400 14424 14424# 14432 14456 14456# 14464 14488 14488# 14496 14520 14520# 14528 14552 14552# 14560 14584 14584# 14592 14616 14616# 14624 14648 14648# 14656 14680 14680# 14688 14712 14712# 14720 14744 14744# 14752 14795 14795# 14803 14827 14827# 14835 14859 14859# 14867 14891 14891# 14899 14923 14923# 14931 14955 14955# 14963 14987 14987# 14995 15019 15019# 15027 15051 15051# 15059 15083 15083# 15091 15115 15115# 15123 15147 15147# 15155 15179 15179# 15187 15211 15211# 15219 15243 15243# 15251 15275 15275# 15283 15307 15307# 15315 15339 15339# 15347 15371 15371# 15379 15403 15403# 15411 15435 15435# 15443 15467 15467# 15475 15499 15499# 15507 15531 15531# 15539 15563 15563# 15571 15595 15595# 15603 15627 15627# 15635 15659 15659# 15667 15691 15691# 15699 15723 15723# 15731 15755 15755# 15763 15787 15787# 15795 15819 15819# 15827 15851 15851# 15859 15883 15883# 15891 15915 15915# 15923 15975 15975# 15988 16012 16012# 16025 16049 16049# 16062 16086 16086# 16099 16123 16123# 16136 16160 16160# 16173 16197 16197# 16210 16234 16234# 16247 16271 16271# 16284 16308 16308# 16321 16345 16345# 16358 16382 16382# 16395 16419 16419# 16432 16456 16456# 16469 16493 16493# 16506 16530 16530# 16543 16567 16567# 16580 16604 16604# 16617 16641 16641# 16654 16678 16678# 16691 16715 16715# 16728 16752 16752# 16765 16789 16789# 16802 16826 16826# 16839 16863 16863# 16876 16900 16900# 16913 16937 16937# 16950 16974 16974# 16987 17011 17011# 17024 17048 17048# 17061 17085 17085# 17098 17122 17122# 17135 17159 17159# 17172 17196 17196# 17209 17233 17233# 17246 17270 17270# 17283 AEE 773# 782# 819# 828# 848# 857# 877# 886# 906# 915# 935# 944# 964# 973# 993# 1002# 1022# 1031# 1051# 1060# 1080# 1089# 1109# 1118# 1138# 1147# 1167# 1176# SEQ 0359 1196# 1205# 1225# 1234# 1254# 1263# 1283# 1292# 1312# 1321# 1341# 1350# 1370# 1379# 1399# 1408# 1428# 1437# 1457# 1466# 1486# 1495# 1515# 1524# 1544# 1553# 1573# 1582# 1602# 1611# 1631# 1640# 1660# 1669# 1689# 1698# 1718# 1727# 1747# 1756# 1776# 1785# 1805# 1814# 1834# 1843# 1879# 1888# 1908# 1917# 1937# 1946# 1966# 1975# 1995# 2004# 2024# 2033# 2053# 2062# 2082# 2091# 2111# 2120# 2140# 2149# 2169# 2178# 2198# 2207# 2227# 2236# 2256# 2265# 2285# 2294# 2314# 2323# 2343# 2352# 2372# 2381# 2401# 2410# 2430# 2439# 2459# 2468# 2488# 2497# 2517# 2526# 2546# 2555# 2575# 2584# 2604# 2613# 2633# 2642# 2662# 2671# 2691# 2700# 2720# 2729# 2749# 2758# 2778# 2787# 2807# 2816# 2836# 2845# 2865# 2874# 2894# 2903# 2927# 2936# 2995# 3004# 3034# 3043# 3073# 3082# 3112# 3121# 3151# 3160# 3190# 3199# 3229# 3238# 3268# 3277# 3307# 3316# 3346# 3355# 3385# 3394# 3424# 3433# 3463# 3472# 3502# 3511# 3541# 3550# 3580# 3589# 3658# 3667# 3703# 3712# 3748# 3757# 3793# 3802# 3838# 3847# 3883# 3892# 3928# 3937# 3973# 3982# 4018# 4027# 4063# 4072# 4108# 4117# 4153# 4162# 4198# 4207# 4243# 4252# 4288# 4297# 4333# 4342# 4380# 4389# 4409# 4418# 4438# 4447# 4467# 4476# 4496# 4505# 4525# 4534# 4554# 4563# 4583# 4592# 4612# 4621# 4641# 4650# 4670# 4679# 4699# 4708# 4728# 4737# 4757# 4766# 4786# 4795# 4815# 4824# 4844# 4853# 4873# 4882# 4902# 4911# 4931# 4940# 4960# 4969# 4989# 4998# 5018# 5027# 5047# 5056# 5076# 5085# 5105# 5114# 5134# 5143# 5163# 5172# 5192# 5201# 5221# 5230# 5250# 5259# 5279# 5288# 5308# 5317# 5337# 5346# 5366# 5375# 5395# 5404# 5440# 5449# 5469# 5478# 5498# 5507# 5527# 5536# 5556# 5565# 5585# 5594# 5614# 5623# 5643# 5652# 5672# 5681# 5701# 5710# 5730# 5739# 5759# 5768# 5788# 5797# 5817# 5826# 5846# 5855# 5875# 5884# 5904# 5913# 5933# 5942# 5962# 5971# 5991# 6000# 6020# 6029# 6049# 6058# 6078# 6087# 6107# 6116# 6136# 6145# 6165# 6174# 6194# 6203# 6223# 6232# 6252# 6261# 6281# 6290# 6310# 6319# 6339# 6348# 6368# 6377# 6397# 6406# 6426# 6435# 6455# 6464# 6488# 6497# 6540# 6549# 6571# 6580# 6602# 6611# 6633# 6642# 6664# 6673# 6695# 6704# 6726# 6735# 6757# 6766# 6788# 6797# 6819# 6828# 6850# 6859# 6881# 6890# 6912# 6921# 6943# 6952# 6974# 6983# 7005# 7014# 7036# 7045# 7067# 7076# 7098# 7107# 7129# 7138# 7160# 7169# 7191# 7200# 7222# 7231# 7253# 7262# 7284# 7293# 7315# 7324# 7346# 7355# 7377# 7386# 7408# 7417# 7439# 7448# 7470# 7479# 7501# 7510# 7532# 7541# 7563# 7572# 7594# 7603# 7625# 7634# 7674# 7683# 7705# 7714# 7736# 7745# 7767# 7776# 7798# 7807# 7829# 7838# 7860# 7869# 7891# 7900# 7922# 7931# 7953# 7962# 7984# 7993# 8015# 8024# 8046# 8055# 8077# 8086# 8108# 8117# 8139# 8148# 8170# 8179# 8201# 8210# 8232# 8241# 8263# 8272# 8294# 8303# 8325# 8334# 8356# 8365# 8387# 8396# 8418# 8427# 8449# 8458# 8480# 8489# 8511# 8520# 8542# 8551# 8573# 8582# 8604# 8613# 8635# 8644# 8666# 8675# 8697# 8706# 8728# 8737# 8759# 8768# 8816# 8825# 8851# 8860# 8886# 8895# 8921# 8930# 8956# 8965# 8991# 9000# 9026# 9035# 9061# 9070# 9096# 9105# 9131# 9140# 9166# 9175# 9201# 9210# 9236# 9245# 9271# 9280# 9306# 9315# 9341# 9350# 9376# 9385# 9411# 9420# 9446# 9455# 9481# 9490# 9516# 9525# 9551# 9560# 9586# 9595# 9621# 9630# 9656# 9665# 9691# 9700# 9726# 9735# 9761# 9770# 9796# 9805# 9831# 9840# 9866# 9875# 9901# 9910# 9936# 9945# 9971# 9980# 10006# 10015# 10041# 10050# 10098# 10107# 10133# 10142# 10168# 10177# 10203# 10212# 10238# 10247# 10273# 10282# 10308# 10317# 10343# 10352# 10378# 10387# 10413# 10422# 10448# 10457# 10483# 10492# 10518# 10527# 10553# 10562# 10588# 10597# 10623# 10632# 10658# 10667# 10693# 10702# 10728# 10737# 10763# 10772# 10798# 10807# 10833# 10842# 10868# 10877# 10903# 10912# 10938# 10947# 10973# 10982# 11008# 11017# 11043# 11052# 11078# 11087# 11113# 11122# 11148# 11157# 11183# 11192# 11218# 11227# 11253# 11262# 11288# 11297# 11323# 11332# 11372# 11381# 11403# 11412# 11434# 11443# 11465# 11474# 11496# 11505# 11527# 11536# 11558# 11567# 11589# 11598# 11620# 11629# 11651# 11660# 11682# 11691# 11713# 11722# 11744# 11753# 11775# 11784# 11806# 11815# 11837# 11846# 11868# 11877# 11899# 11908# 11930# 11939# 11961# 11970# 11992# 12001# 12023# 12032# 12054# 12063# 12085# 12094# 12116# 12125# 12147# 12156# 12178# 12187# 12209# 12218# 12240# 12249# 12271# 12280# 12302# 12311# 12333# 12342# 12364# 12373# 12395# 12404# 12426# 12435# 12457# 12466# 12506# 12515# 12537# 12546# 12568# 12577# 12599# 12608# 12630# 12639# 12661# 12670# 12692# 12701# 12723# 12732# 12754# 12763# 12785# 12794# 12816# 12825# 12847# 12856# 12878# 12887# 12909# 12918# 12940# 12949# 12971# 12980# 13002# 13011# 13033# 13042# 13064# 13073# 13095# 13104# 13126# 13135# 13157# 13166# 13188# 13197# 13219# 13228# 13250# 13259# 13281# 13290# SEQ 0360 13312# 13321# 13343# 13352# 13374# 13383# 13405# 13414# 13436# 13445# 13467# 13476# 13498# 13507# 13529# 13538# 13560# 13569# 13591# 13600# 13642# 13651# 13674# 13683# 13706# 13715# 13738# 13747# 13770# 13779# 13802# 13811# 13834# 13843# 13866# 13875# 13898# 13907# 13930# 13939# 13962# 13971# 13994# 14003# 14026# 14035# 14058# 14067# 14090# 14099# 14122# 14131# 14154# 14163# 14186# 14195# 14218# 14227# 14250# 14259# 14282# 14291# 14314# 14323# 14346# 14355# 14378# 14387# 14410# 14419# 14442# 14451# 14474# 14483# 14506# 14515# 14538# 14547# 14570# 14579# 14602# 14611# 14634# 14643# 14666# 14675# 14698# 14707# 14730# 14739# 14762# 14771# 14813# 14822# 14845# 14854# 14877# 14886# 14909# 14918# 14941# 14950# 14973# 14982# 15005# 15014# 15037# 15046# 15069# 15078# 15101# 15110# 15133# 15142# 15165# 15174# 15197# 15206# 15229# 15238# 15261# 15270# 15293# 15302# 15325# 15334# 15357# 15366# 15389# 15398# 15421# 15430# 15453# 15462# 15485# 15494# 15517# 15526# 15549# 15558# 15581# 15590# 15613# 15622# 15645# 15654# 15677# 15686# 15709# 15718# 15741# 15750# 15773# 15782# 15805# 15814# 15837# 15846# 15869# 15878# 15901# 15910# 15933# 15942# 15998# 16007# 16035# 16044# 16072# 16081# 16109# 16118# 16146# 16155# 16183# 16192# 16220# 16229# 16257# 16266# 16294# 16303# 16331# 16340# 16368# 16377# 16405# 16414# 16442# 16451# 16479# 16488# 16516# 16525# 16553# 16562# 16590# 16599# 16627# 16636# 16664# 16673# 16701# 16710# 16738# 16747# 16775# 16784# 16812# 16821# 16849# 16858# 16886# 16895# 16923# 16932# 16960# 16969# 16997# 17006# 17034# 17043# 17071# 17080# 17108# 17117# 17145# 17154# 17182# 17191# 17219# 17228# 17256# 17265# 17293# 17302# ALTMGO 480# 17430 AR1 776# 822# 851# 880# 909# 938# 967# 996# 1025# 1054# 1083# 1112# 1141# 1170# 1199# 1228# 1257# 1286# 1315# 1344# 1373# 1402# 1431# 1460# 1489# 1518# 1547# 1576# 1605# 1634# 1663# 1692# 1721# 1750# 1779# 1808# 1837# 1882# 1911# 1940# 1969# 1998# 2027# 2056# 2085# 2114# 2143# 2172# 2201# 2230# 2259# 2288# 2317# 2346# 2375# 2404# 2433# 2462# 2491# 2520# 2549# 2578# 2607# 2636# 2665# 2694# 2723# 2752# 2781# 2810# 2839# 2868# 2897# 2930# 2998# 3037# 3076# 3115# 3154# 3193# 3232# 3271# 3310# 3349# 3388# 3427# 3466# 3505# 3544# 3583# 3661# 3706# 3751# 3796# 3841# 3886# 3931# 3976# 4021# 4066# 4111# 4156# 4201# 4246# 4291# 4336# 4383# 4412# 4441# 4470# 4499# 4528# 4557# 4586# 4615# 4644# 4673# 4702# 4731# 4760# 4789# 4818# 4847# 4876# 4905# 4934# 4963# 4992# 5021# 5050# 5079# 5108# 5137# 5166# 5195# 5224# 5253# 5282# 5311# 5340# 5369# 5398# 5443# 5472# 5501# 5530# 5559# 5588# 5617# 5646# 5675# 5704# 5733# 5762# 5791# 5820# 5849# 5878# 5907# 5936# 5965# 5994# 6023# 6052# 6081# 6110# 6139# 6168# 6197# 6226# 6255# 6284# 6313# 6342# 6371# 6400# 6429# 6458# 6491# 6543# 6574# 6605# 6636# 6667# 6698# 6729# 6760# 6791# 6822# 6853# 6884# 6915# 6946# 6977# 7008# 7039# 7070# 7101# 7132# 7163# 7194# 7225# 7256# 7287# 7318# 7349# 7380# 7411# 7442# 7473# 7504# 7535# 7566# 7597# 7628# 7677# 7708# 7739# 7770# 7801# 7832# 7863# 7894# 7925# 7956# 7987# 8018# 8049# 8080# 8111# 8142# 8173# 8204# 8235# 8266# 8297# 8328# 8359# 8390# 8421# 8452# 8483# 8514# 8545# 8576# 8607# 8638# 8669# 8700# 8731# 8762# 8819# 8854# 8889# 8924# 8959# 8994# 9029# 9064# 9099# 9134# 9169# 9204# 9239# 9274# 9309# 9344# 9379# 9414# 9449# 9484# 9519# 9554# 9589# 9624# 9659# 9694# 9729# 9764# 9799# 9834# 9869# 9904# 9939# 9974# 10009# 10044# 10101# 10136# 10171# 10206# 10241# 10276# 10311# 10346# 10381# 10416# 10451# 10486# 10521# 10556# 10591# 10626# 10661# 10696# 10731# 10766# 10801# 10836# 10871# 10906# 10941# 10976# 11011# 11046# 11081# 11116# 11151# 11186# 11221# 11256# 11291# 11326# 11375# 11406# 11437# 11468# 11499# 11530# 11561# 11592# 11623# 11654# 11685# 11716# 11747# 11778# 11809# 11840# 11871# 11902# 11933# 11964# 11995# 12026# 12057# 12088# 12119# 12150# 12181# 12212# 12243# 12274# 12305# 12336# 12367# 12398# 12429# 12460# 12509# 12540# 12571# 12602# 12633# 12664# 12695# 12726# 12757# 12788# 12819# 12850# 12881# 12912# 12943# 12974# 13005# 13036# 13067# 13098# 13129# 13160# 13191# 13222# 13253# 13284# 13315# 13346# 13377# 13408# 13439# 13470# 13501# 13532# 13563# 13594# 13645# 13677# 13709# 13741# 13773# 13805# 13837# 13869# 13901# 13933# 13965# 13997# 14029# 14061# 14093# 14125# 14157# 14189# 14221# 14253# 14285# 14317# 14349# 14381# 14413# 14445# 14477# 14509# 14541# 14573# 14605# 14637# 14669# 14701# 14733# 14765# 14816# 14848# 14880# 14912# 14944# 14976# 15008# 15040# 15072# 15104# 15136# 15168# 15200# 15232# 15264# 15296# 15328# 15360# 15392# 15424# 15456# 15488# 15520# 15552# 15584# 15616# 15648# 15680# 15712# 15744# 15776# 15808# 15840# 15872# 15904# 15936# 16001# 16038# 16075# 16112# 16149# 16186# 16223# 16260# 16297# 16334# 16371# 16408# 16445# 16482# 16519# 16556# 16593# 16630# 16667# 16704# 16741# 16778# 16815# SEQ 0361 16852# 16889# 16926# 16963# 17000# 17037# 17074# 17111# 17148# 17185# 17222# 17259# 17296# AR2 779# 825# 854# 883# 912# 941# 970# 999# 1028# 1057# 1086# 1115# 1144# 1173# 1202# 1231# 1260# 1289# 1318# 1347# 1376# 1405# 1434# 1463# 1492# 1521# 1550# 1579# 1608# 1637# 1666# 1695# 1724# 1753# 1782# 1811# 1840# 1885# 1914# 1943# 1972# 2001# 2030# 2059# 2088# 2117# 2146# 2175# 2204# 2233# 2262# 2291# 2320# 2349# 2378# 2407# 2436# 2465# 2494# 2523# 2552# 2581# 2610# 2639# 2668# 2697# 2726# 2755# 2784# 2813# 2842# 2871# 2900# 2933# 3001# 3040# 3079# 3118# 3157# 3196# 3235# 3274# 3313# 3352# 3391# 3430# 3469# 3508# 3547# 3586# 3664# 3709# 3754# 3799# 3844# 3889# 3934# 3979# 4024# 4069# 4114# 4159# 4204# 4249# 4294# 4339# 4386# 4415# 4444# 4473# 4502# 4531# 4560# 4589# 4618# 4647# 4676# 4705# 4734# 4763# 4792# 4821# 4850# 4879# 4908# 4937# 4966# 4995# 5024# 5053# 5082# 5111# 5140# 5169# 5198# 5227# 5256# 5285# 5314# 5343# 5372# 5401# 5446# 5475# 5504# 5533# 5562# 5591# 5620# 5649# 5678# 5707# 5736# 5765# 5794# 5823# 5852# 5881# 5910# 5939# 5968# 5997# 6026# 6055# 6084# 6113# 6142# 6171# 6200# 6229# 6258# 6287# 6316# 6345# 6374# 6403# 6432# 6461# 6494# 6546# 6577# 6608# 6639# 6670# 6701# 6732# 6763# 6794# 6825# 6856# 6887# 6918# 6949# 6980# 7011# 7042# 7073# 7104# 7135# 7166# 7197# 7228# 7259# 7290# 7321# 7352# 7383# 7414# 7445# 7476# 7507# 7538# 7569# 7600# 7631# 7680# 7711# 7742# 7773# 7804# 7835# 7866# 7897# 7928# 7959# 7990# 8021# 8052# 8083# 8114# 8145# 8176# 8207# 8238# 8269# 8300# 8331# 8362# 8393# 8424# 8455# 8486# 8517# 8548# 8579# 8610# 8641# 8672# 8703# 8734# 8765# 8822# 8857# 8892# 8927# 8962# 8997# 9032# 9067# 9102# 9137# 9172# 9207# 9242# 9277# 9312# 9347# 9382# 9417# 9452# 9487# 9522# 9557# 9592# 9627# 9662# 9697# 9732# 9767# 9802# 9837# 9872# 9907# 9942# 9977# 10012# 10047# 10104# 10139# 10174# 10209# 10244# 10279# 10314# 10349# 10384# 10419# 10454# 10489# 10524# 10559# 10594# 10629# 10664# 10699# 10734# 10769# 10804# 10839# 10874# 10909# 10944# 10979# 11014# 11049# 11084# 11119# 11154# 11189# 11224# 11259# 11294# 11329# 11378# 11409# 11440# 11471# 11502# 11533# 11564# 11595# 11626# 11657# 11688# 11719# 11750# 11781# 11812# 11843# 11874# 11905# 11936# 11967# 11998# 12029# 12060# 12091# 12122# 12153# 12184# 12215# 12246# 12277# 12308# 12339# 12370# 12401# 12432# 12463# 12512# 12543# 12574# 12605# 12636# 12667# 12698# 12729# 12760# 12791# 12822# 12853# 12884# 12915# 12946# 12977# 13008# 13039# 13070# 13101# 13132# 13163# 13194# 13225# 13256# 13287# 13318# 13349# 13380# 13411# 13442# 13473# 13504# 13535# 13566# 13597# 13648# 13680# 13712# 13744# 13776# 13808# 13840# 13872# 13904# 13936# 13968# 14000# 14032# 14064# 14096# 14128# 14160# 14192# 14224# 14256# 14288# 14320# 14352# 14384# 14416# 14448# 14480# 14512# 14544# 14576# 14608# 14640# 14672# 14704# 14736# 14768# 14819# 14851# 14883# 14915# 14947# 14979# 15011# 15043# 15075# 15107# 15139# 15171# 15203# 15235# 15267# 15299# 15331# 15363# 15395# 15427# 15459# 15491# 15523# 15555# 15587# 15619# 15651# 15683# 15715# 15747# 15779# 15811# 15843# 15875# 15907# 15939# 16004# 16041# 16078# 16115# 16152# 16189# 16226# 16263# 16300# 16337# 16374# 16411# 16448# 16485# 16522# 16559# 16596# 16633# 16670# 16707# 16744# 16781# 16818# 16855# 16892# 16929# 16966# 17003# 17040# 17077# 17114# 17151# 17188# 17225# 17262# 17299# AROV 394# AROVTP 394# AROVU 394# AST 595# ATSIN 596# BEGEND 476# 17307 BEGIN 67 68 69 72 73 74 75 76 77 345 346 407# 17751 BEGIN1 423# 477 BELL 599# BIS 394# CCA 394# CHAIN 150# CHNOFF 394# CHNON 394# CLKU 394# CLOCKF 462# SEQ 0362 CNTLC 479# CNTRP 394# COMMA 588# CONSW 463# 17365 17431 17455 CPOPJ 483# CPOPJ1 481# CRLF 280 281 583# CRLF2 284 285 585# CRY0 394# CRY1 394# CSHFLG 642# CSHMEM 643# CTRP 394# CYCL60 636# DCK 394# DDTLNK 164# 421 DDTSRT 421# DEBUG 59# 17742 17743 DECVER 4# 11 26 442 DF22F 547# DIAGMN 410# DING 136# 17436 DOLLAR 602# DSKUPD 447 E 754# 774 775 783 784 788# 820 821 829 830 849 850 858 859 878 879 887 888 907 908 916 917 936 937 945 946 965 966 974 975 994 995 1003 1004 1023 1024 1032 1033 1052 1053 1061 1062 1081 1082 1090 1091 1110 1111 1119 1120 1139 1140 1148 1149 1168 1169 1177 1178 1197 1198 1206 1207 1226 1227 1235 1236 1255 1256 1264 1265 1284 1285 1293 1294 1313 1314 1322 1323 1342 1343 1351 1352 1371 1372 1380 1381 1400 1401 1409 1410 1429 1430 1438 1439 1458 1459 1467 1468 1487 1488 1496 1497 1516 1517 1525 1526 1545 1546 1554 1555 1574 1575 1583 1584 1603 1604 1612 1613 1632 1633 1641 1642 1661 1662 1670 1671 1690 1691 1699 1700 1719 1720 1728 1729 1748 1749 1757 1758 1777 1778 1786 1787 1806 1807 1815 1816 1835 1836 1844 1845 1848# 1880 1881 1889 1890 1909 1910 1918 1919 1938 1939 1947 1948 1967 1968 1976 1977 1996 1997 2005 2006 2025 2026 2034 2035 2054 2055 2063 2064 2083 2084 2092 2093 2112 2113 2121 2122 2141 2142 2150 2151 2170 2171 2179 2180 2199 2200 2208 2209 2228 2229 2237 2238 2257 2258 2266 2267 2286 2287 2295 2296 2315 2316 2324 2325 2344 2345 2353 2354 2373 2374 2382 2383 2402 2403 2411 2412 2431 2432 2440 2441 2460 2461 2469 2470 2489 2490 2498 2499 2518 2519 2527 2528 2547 2548 2556 2557 2576 2577 2585 2586 2605 2606 2614 2615 2634 2635 2643 2644 2663 2664 2672 2673 2692 2693 2701 2702 2721 2722 2730 2731 2750 2751 2759 2760 2779 2780 2788 2789 2808 2809 2817 2818 2837 2838 2846 2847 2866 2867 2875 2876 2895 2896 2904 2905 2909# 2928 2929 2937 2938 2943# 2996 2997 3005 3006 3035 3036 3044 3045 3074 3075 3083 3084 3113 3114 3122 3123 3152 3153 3161 3162 3191 3192 3200 3201 3230 3231 3239 3240 3269 3270 3278 3279 3308 3309 3317 3318 3347 3348 3356 3357 3386 3387 3395 3396 3425 3426 3434 3435 3464 3465 3473 3474 3503 3504 3512 3513 3542 3543 3551 3552 3581 3582 3590 3591 3594# 3659 3660 3668 3669 3704 3705 3713 3714 3749 3750 3758 3759 3794 3795 3803 3804 3839 3840 3848 3849 3884 3885 3893 3894 3929 3930 3938 3939 3974 3975 3983 3984 4019 4020 4028 4029 4064 4065 4073 4074 SEQ 0363 4109 4110 4118 4119 4154 4155 4163 4164 4199 4200 4208 4209 4244 4245 4253 4254 4289 4290 4298 4299 4334 4335 4343 4344 4349# 4381 4382 4390 4391 4410 4411 4419 4420 4439 4440 4448 4449 4468 4469 4477 4478 4497 4498 4506 4507 4526 4527 4535 4536 4555 4556 4564 4565 4584 4585 4593 4594 4613 4614 4622 4623 4642 4643 4651 4652 4671 4672 4680 4681 4700 4701 4709 4710 4729 4730 4738 4739 4758 4759 4767 4768 4787 4788 4796 4797 4816 4817 4825 4826 4845 4846 4854 4855 4874 4875 4883 4884 4903 4904 4912 4913 4932 4933 4941 4942 4961 4962 4970 4971 4990 4991 4999 5000 5019 5020 5028 5029 5048 5049 5057 5058 5077 5078 5086 5087 5106 5107 5115 5116 5135 5136 5144 5145 5164 5165 5173 5174 5193 5194 5202 5203 5222 5223 5231 5232 5251 5252 5260 5261 5280 5281 5289 5290 5309 5310 5318 5319 5338 5339 5347 5348 5367 5368 5376 5377 5396 5397 5405 5406 5409# 5441 5442 5450 5451 5470 5471 5479 5480 5499 5500 5508 5509 5528 5529 5537 5538 5557 5558 5566 5567 5586 5587 5595 5596 5615 5616 5624 5625 5644 5645 5653 5654 5673 5674 5682 5683 5702 5703 5711 5712 5731 5732 5740 5741 5760 5761 5769 5770 5789 5790 5798 5799 5818 5819 5827 5828 5847 5848 5856 5857 5876 5877 5885 5886 5905 5906 5914 5915 5934 5935 5943 5944 5963 5964 5972 5973 5992 5993 6001 6002 6021 6022 6030 6031 6050 6051 6059 6060 6079 6080 6088 6089 6108 6109 6117 6118 6137 6138 6146 6147 6166 6167 6175 6176 6195 6196 6204 6205 6224 6225 6233 6234 6253 6254 6262 6263 6282 6283 6291 6292 6311 6312 6320 6321 6340 6341 6349 6350 6369 6370 6378 6379 6398 6399 6407 6408 6427 6428 6436 6437 6456 6457 6465 6466 6469# 6489 6490 6498 6499 6504# 6541 6542 6550 6551 6572 6573 6581 6582 6603 6604 6612 6613 6634 6635 6643 6644 6665 6666 6674 6675 6696 6697 6705 6706 6727 6728 6736 6737 6758 6759 6767 6768 6789 6790 6798 6799 6820 6821 6829 6830 6851 6852 6860 6861 6882 6883 6891 6892 6913 6914 6922 6923 6944 6945 6953 6954 6975 6976 6984 6985 7006 7007 7015 7016 7037 7038 7046 7047 7068 7069 7077 7078 7099 7100 7108 7109 7130 7131 7139 7140 7161 7162 7170 7171 7192 7193 7201 7202 7223 7224 7232 7233 7254 7255 7263 7264 7285 7286 7294 7295 7316 7317 7325 7326 7347 7348 7356 7357 7378 7379 7387 7388 7409 7410 7418 7419 7440 7441 7449 7450 7471 7472 7480 7481 7502 7503 7511 7512 7533 7534 7542 7543 7564 7565 7573 7574 7595 7596 7604 7605 7626 7627 7635 7636 7639# 7675 7676 7684 7685 7706 7707 7715 7716 7737 7738 7746 7747 7768 7769 7777 7778 7799 7800 7808 7809 7830 7831 7839 7840 7861 7862 7870 7871 7892 7893 7901 7902 7923 7924 7932 7933 7954 7955 7963 7964 7985 7986 7994 7995 8016 8017 8025 8026 8047 8048 8056 8057 8078 8079 8087 8088 8109 8110 8118 8119 8140 8141 8149 8150 8171 8172 8180 8181 8202 8203 8211 8212 8233 8234 8242 8243 8264 8265 8273 8274 8295 8296 8304 8305 8326 8327 8335 8336 8357 8358 8366 8367 8388 8389 8397 8398 8419 8420 8428 8429 8450 8451 8459 8460 8481 8482 8490 8491 8512 8513 8521 8522 8543 8544 8552 8553 8574 8575 8583 8584 8605 8606 8614 8615 8636 8637 8645 8646 8667 8668 8676 8677 8698 8699 8707 8708 8729 8730 8738 8739 8760 8761 8769 8770 8773# 8817 8818 8826 8827 8852 8853 8861 8862 8887 8888 8896 8897 8922 8923 8931 8932 8957 8958 8966 8967 8992 8993 9001 9002 9027 9028 9036 9037 9062 9063 9071 9072 9097 9098 9106 9107 9132 9133 9141 9142 9167 9168 9176 9177 9202 9203 9211 9212 9237 9238 9246 9247 9272 9273 9281 9282 9307 9308 9316 9317 9342 9343 9351 9352 9377 9378 9386 9387 9412 9413 9421 9422 9447 9448 9456 9457 9482 9483 9491 9492 9517 9518 9526 9527 9552 9553 9561 9562 9587 9588 9596 9597 9622 9623 9631 9632 9657 9658 9666 9667 9692 9693 9701 9702 9727 9728 9736 9737 9762 9763 9771 9772 9797 9798 9806 9807 9832 9833 9841 9842 9867 9868 9876 9877 9902 9903 9911 9912 9937 9938 9946 9947 SEQ 0364 9972 9973 9981 9982 10007 10008 10016 10017 10042 10043 10051 10052 10055# 10099 10100 10108 10109 10134 10135 10143 10144 10169 10170 10178 10179 10204 10205 10213 10214 10239 10240 10248 10249 10274 10275 10283 10284 10309 10310 10318 10319 10344 10345 10353 10354 10379 10380 10388 10389 10414 10415 10423 10424 10449 10450 10458 10459 10484 10485 10493 10494 10519 10520 10528 10529 10554 10555 10563 10564 10589 10590 10598 10599 10624 10625 10633 10634 10659 10660 10668 10669 10694 10695 10703 10704 10729 10730 10738 10739 10764 10765 10773 10774 10799 10800 10808 10809 10834 10835 10843 10844 10869 10870 10878 10879 10904 10905 10913 10914 10939 10940 10948 10949 10974 10975 10983 10984 11009 11010 11018 11019 11044 11045 11053 11054 11079 11080 11088 11089 11114 11115 11123 11124 11149 11150 11158 11159 11184 11185 11193 11194 11219 11220 11228 11229 11254 11255 11263 11264 11289 11290 11298 11299 11324 11325 11333 11334 11337# 11373 11374 11382 11383 11404 11405 11413 11414 11435 11436 11444 11445 11466 11467 11475 11476 11497 11498 11506 11507 11528 11529 11537 11538 11559 11560 11568 11569 11590 11591 11599 11600 11621 11622 11630 11631 11652 11653 11661 11662 11683 11684 11692 11693 11714 11715 11723 11724 11745 11746 11754 11755 11776 11777 11785 11786 11807 11808 11816 11817 11838 11839 11847 11848 11869 11870 11878 11879 11900 11901 11909 11910 11931 11932 11940 11941 11962 11963 11971 11972 11993 11994 12002 12003 12024 12025 12033 12034 12055 12056 12064 12065 12086 12087 12095 12096 12117 12118 12126 12127 12148 12149 12157 12158 12179 12180 12188 12189 12210 12211 12219 12220 12241 12242 12250 12251 12272 12273 12281 12282 12303 12304 12312 12313 12334 12335 12343 12344 12365 12366 12374 12375 12396 12397 12405 12406 12427 12428 12436 12437 12458 12459 12467 12468 12471# 12507 12508 12516 12517 12538 12539 12547 12548 12569 12570 12578 12579 12600 12601 12609 12610 12631 12632 12640 12641 12662 12663 12671 12672 12693 12694 12702 12703 12724 12725 12733 12734 12755 12756 12764 12765 12786 12787 12795 12796 12817 12818 12826 12827 12848 12849 12857 12858 12879 12880 12888 12889 12910 12911 12919 12920 12941 12942 12950 12951 12972 12973 12981 12982 13003 13004 13012 13013 13034 13035 13043 13044 13065 13066 13074 13075 13096 13097 13105 13106 13127 13128 13136 13137 13158 13159 13167 13168 13189 13190 13198 13199 13220 13221 13229 13230 13251 13252 13260 13261 13282 13283 13291 13292 13313 13314 13322 13323 13344 13345 13353 13354 13375 13376 13384 13385 13406 13407 13415 13416 13437 13438 13446 13447 13468 13469 13477 13478 13499 13500 13508 13509 13530 13531 13539 13540 13561 13562 13570 13571 13592 13593 13601 13602 13605# 13643 13644 13652 13653 13675 13676 13684 13685 13707 13708 13716 13717 13739 13740 13748 13749 13771 13772 13780 13781 13803 13804 13812 13813 13835 13836 13844 13845 13867 13868 13876 13877 13899 13900 13908 13909 13931 13932 13940 13941 13963 13964 13972 13973 13995 13996 14004 14005 14027 14028 14036 14037 14059 14060 14068 14069 14091 14092 14100 14101 14123 14124 14132 14133 14155 14156 14164 14165 14187 14188 14196 14197 14219 14220 14228 14229 14251 14252 14260 14261 14283 14284 14292 14293 14315 14316 14324 14325 14347 14348 14356 14357 14379 14380 14388 14389 14411 14412 14420 14421 14443 14444 14452 14453 14475 14476 14484 14485 14507 14508 14516 14517 14539 14540 14548 14549 14571 14572 14580 14581 14603 14604 14612 14613 14635 14636 14644 14645 14667 14668 14676 14677 14699 14700 14708 14709 14731 14732 14740 14741 14763 14764 14772 14773 14776# 14814 14815 14823 14824 14846 14847 14855 14856 14878 14879 14887 14888 14910 14911 14919 14920 14942 14943 14951 14952 14974 14975 14983 14984 15006 15007 15015 15016 15038 15039 15047 15048 15070 15071 15079 15080 15102 15103 15111 15112 15134 15135 15143 15144 15166 15167 15175 15176 15198 15199 15207 15208 15230 15231 15239 15240 15262 15263 15271 15272 15294 15295 15303 15304 15326 15327 15335 15336 15358 15359 15367 15368 15390 15391 15399 15400 15422 15423 15431 15432 15454 15455 15463 15464 15486 15487 15495 15496 15518 15519 15527 15528 15550 15551 15559 15560 15582 15583 15591 15592 15614 15615 15623 15624 15646 15647 15655 15656 15678 15679 15687 15688 15710 15711 15719 15720 15742 15743 15751 15752 15774 15775 15783 15784 15806 15807 15815 15816 15838 15839 15847 15848 15870 15871 15879 15880 15902 15903 15911 15912 15934 15935 15943 15944 15949# 15999 16000 16008 16009 SEQ 0365 16036 16037 16045 16046 16073 16074 16082 16083 16110 16111 16119 16120 16147 16148 16156 16157 16184 16185 16193 16194 16221 16222 16230 16231 16258 16259 16267 16268 16295 16296 16304 16305 16332 16333 16341 16342 16369 16370 16378 16379 16406 16407 16415 16416 16443 16444 16452 16453 16480 16481 16489 16490 16517 16518 16526 16527 16554 16555 16563 16564 16591 16592 16600 16601 16628 16629 16637 16638 16665 16666 16674 16675 16702 16703 16711 16712 16739 16740 16748 16749 16776 16777 16785 16786 16813 16814 16822 16823 16850 16851 16859 16860 16887 16888 16896 16897 16924 16925 16933 16934 16961 16962 16970 16971 16998 16999 17007 17008 17035 17036 17044 17045 17072 17073 17081 17082 17109 17110 17118 17119 17146 17147 17155 17156 17183 17184 17192 17193 17220 17221 17229 17230 17257 17258 17266 17267 17294 17295 17303 17304 EBIT0 394# EBIT1 394# EBIT10 394# EBIT11 394# EBIT12 394# EBIT13 394# EBIT14 394# EBIT15 394# EBIT2 394# EBIT3 394# EBIT4 394# EBIT5 394# EBIT6 394# EBIT7 394# EBIT8 394# EBIT9 394# END 17750# ENDFIX 722# ENDSLD 17740# ERDIAG 63# 17350 ERMORE 496# 17423 EROLD 356 ERRELB 17420 ERRLOP 760# 760 793# 793 1853# 1853 2914# 2914 2948# 2948 3599# 3599 4354# 4354 5414# 5414 6474# 6474 6509# 6509 7644# 7644 8778# 8778 10060# 10060 11342# 11342 12476# 12476 13610# 13610 14781# 14781 15954# 15954 17330 17441 17444 17445 ERRMES 46 47 48 49 50 51 52 53 54 55 56 17312# ERRPC 467# 17317 17347 ERRTLS 468# 17315 17448 ERSTOP 139# 17432 EXCASB 60# 445 EXIOT 394# EXIT 723# 724 F30000 769# 785 F30010 815# 831 F30020 844# 860 F30030 873# 889 F30040 902# 918 F30050 931# 947 F30060 960# 976 F30070 989# 1005 F30100 1018# 1034 F30110 1047# 1063 SEQ 0366 F30120 1076# 1092 F30130 1105# 1121 F30140 1134# 1150 F30150 1163# 1179 F30160 1192# 1208 F30170 1221# 1237 F30200 1250# 1266 F30210 1279# 1295 F30220 1308# 1324 F30230 1337# 1353 F30240 1366# 1382 F30250 1395# 1411 F30260 1424# 1440 F30270 1453# 1469 F30300 1482# 1498 F30310 1511# 1527 F30320 1540# 1556 F30330 1569# 1585 F30340 1598# 1614 F30350 1627# 1643 F30360 1656# 1672 F30370 1685# 1701 F30400 1714# 1730 F30410 1743# 1759 F30420 1772# 1788 F30430 1801# 1817 F30440 1830# 1846 F30450 1875# 1891 F30460 1904# 1920 F30470 1933# 1949 F30500 1962# 1978 F30510 1991# 2007 F30520 2020# 2036 F30530 2049# 2065 F30540 2078# 2094 F30550 2107# 2123 F30560 2136# 2152 F30570 2165# 2181 F30600 2194# 2210 F30610 2223# 2239 F30620 2252# 2268 F30630 2281# 2297 F30640 2310# 2326 F30650 2339# 2355 F30660 2368# 2384 F30670 2397# 2413 F30700 2426# 2442 F30710 2455# 2471 F30720 2484# 2500 F30730 2513# 2529 F30740 2542# 2558 F30750 2571# 2587 F30760 2600# 2616 SEQ 0367 F30770 2629# 2645 F31000 2658# 2674 F31010 2687# 2703 F31020 2716# 2732 F31030 2745# 2761 F31040 2774# 2790 F31050 2803# 2819 F31060 2832# 2848 F31070 2861# 2877 F31100 2890# 2906 F31110 2923# 2939 F31120 2991# 3007 F31130 3030# 3046 F31140 3069# 3085 F31150 3108# 3124 F31160 3147# 3163 F31170 3186# 3202 F31200 3225# 3241 F31210 3264# 3280 F31220 3303# 3319 F31230 3342# 3358 F31240 3381# 3397 F31250 3420# 3436 F31260 3459# 3475 F31270 3498# 3514 F31300 3537# 3553 F31310 3576# 3592 F31320 3654# 3670 F31330 3699# 3715 F31340 3744# 3760 F31350 3789# 3805 F31360 3834# 3850 F31370 3879# 3895 F31400 3924# 3940 F31410 3969# 3985 F31420 4014# 4030 F31430 4059# 4075 F31440 4104# 4120 F31450 4149# 4165 F31460 4194# 4210 F31470 4239# 4255 F31500 4284# 4300 F31510 4329# 4345 F31520 4376# 4392 F31530 4405# 4421 F31540 4434# 4450 F31550 4463# 4479 F31560 4492# 4508 F31570 4521# 4537 F31600 4550# 4566 F31610 4579# 4595 F31620 4608# 4624 F31630 4637# 4653 SEQ 0368 F31640 4666# 4682 F31650 4695# 4711 F31660 4724# 4740 F31670 4753# 4769 F31700 4782# 4798 F31710 4811# 4827 F31720 4840# 4856 F31730 4869# 4885 F31740 4898# 4914 F31750 4927# 4943 F31760 4956# 4972 F31770 4985# 5001 F32000 5014# 5030 F32010 5043# 5059 F32020 5072# 5088 F32030 5101# 5117 F32040 5130# 5146 F32050 5159# 5175 F32060 5188# 5204 F32070 5217# 5233 F32100 5246# 5262 F32110 5275# 5291 F32120 5304# 5320 F32130 5333# 5349 F32140 5362# 5378 F32150 5391# 5407 F32160 5436# 5452 F32170 5465# 5481 F32200 5494# 5510 F32210 5523# 5539 F32220 5552# 5568 F32230 5581# 5597 F32240 5610# 5626 F32250 5639# 5655 F32260 5668# 5684 F32270 5697# 5713 F32300 5726# 5742 F32310 5755# 5771 F32320 5784# 5800 F32330 5813# 5829 F32340 5842# 5858 F32350 5871# 5887 F32360 5900# 5916 F32370 5929# 5945 F32400 5958# 5974 F32410 5987# 6003 F32420 6016# 6032 F32430 6045# 6061 F32440 6074# 6090 F32450 6103# 6119 F32460 6132# 6148 F32470 6161# 6177 F32500 6190# 6206 SEQ 0369 F32510 6219# 6235 F32520 6248# 6264 F32530 6277# 6293 F32540 6306# 6322 F32550 6335# 6351 F32560 6364# 6380 F32570 6393# 6409 F32600 6422# 6438 F32610 6451# 6467 F32620 6484# 6500 F32630 6536# 6552 F32640 6567# 6583 F32650 6598# 6614 F32660 6629# 6645 F32670 6660# 6676 F32700 6691# 6707 F32710 6722# 6738 F32720 6753# 6769 F32730 6784# 6800 F32740 6815# 6831 F32750 6846# 6862 F32760 6877# 6893 F32770 6908# 6924 F33000 6939# 6955 F33010 6970# 6986 F33020 7001# 7017 F33030 7032# 7048 F33040 7063# 7079 F33050 7094# 7110 F33060 7125# 7141 F33070 7156# 7172 F33100 7187# 7203 F33110 7218# 7234 F33120 7249# 7265 F33130 7280# 7296 F33140 7311# 7327 F33150 7342# 7358 F33160 7373# 7389 F33170 7404# 7420 F33200 7435# 7451 F33210 7466# 7482 F33220 7497# 7513 F33230 7528# 7544 F33240 7559# 7575 F33250 7590# 7606 F33260 7621# 7637 F33270 7670# 7686 F33300 7701# 7717 F33310 7732# 7748 F33320 7763# 7779 F33330 7794# 7810 F33340 7825# 7841 F33350 7856# 7872 SEQ 0370 F33360 7887# 7903 F33370 7918# 7934 F33400 7949# 7965 F33410 7980# 7996 F33420 8011# 8027 F33430 8042# 8058 F33440 8073# 8089 F33450 8104# 8120 F33460 8135# 8151 F33470 8166# 8182 F33500 8197# 8213 F33510 8228# 8244 F33520 8259# 8275 F33530 8290# 8306 F33540 8321# 8337 F33550 8352# 8368 F33560 8383# 8399 F33570 8414# 8430 F33600 8445# 8461 F33610 8476# 8492 F33620 8507# 8523 F33630 8538# 8554 F33640 8569# 8585 F33650 8600# 8616 F33660 8631# 8647 F33670 8662# 8678 F33700 8693# 8709 F33710 8724# 8740 F33720 8755# 8771 F33730 8812# 8828 F33740 8847# 8863 F33750 8882# 8898 F33760 8917# 8933 F33770 8952# 8968 F34000 8987# 9003 F34010 9022# 9038 F34020 9057# 9073 F34030 9092# 9108 F34040 9127# 9143 F34050 9162# 9178 F34060 9197# 9213 F34070 9232# 9248 F34100 9267# 9283 F34110 9302# 9318 F34120 9337# 9353 F34130 9372# 9388 F34140 9407# 9423 F34150 9442# 9458 F34160 9477# 9493 F34170 9512# 9528 F34200 9547# 9563 F34210 9582# 9598 F34220 9617# 9633 SEQ 0371 F34230 9652# 9668 F34240 9687# 9703 F34250 9722# 9738 F34260 9757# 9773 F34270 9792# 9808 F34300 9827# 9843 F34310 9862# 9878 F34320 9897# 9913 F34330 9932# 9948 F34340 9967# 9983 F34350 10002# 10018 F34360 10037# 10053 F34370 10094# 10110 F34400 10129# 10145 F34410 10164# 10180 F34420 10199# 10215 F34430 10234# 10250 F34440 10269# 10285 F34450 10304# 10320 F34460 10339# 10355 F34470 10374# 10390 F34500 10409# 10425 F34510 10444# 10460 F34520 10479# 10495 F34530 10514# 10530 F34540 10549# 10565 F34550 10584# 10600 F34560 10619# 10635 F34570 10654# 10670 F34600 10689# 10705 F34610 10724# 10740 F34620 10759# 10775 F34630 10794# 10810 F34640 10829# 10845 F34650 10864# 10880 F34660 10899# 10915 F34670 10934# 10950 F34700 10969# 10985 F34710 11004# 11020 F34720 11039# 11055 F34730 11074# 11090 F34740 11109# 11125 F34750 11144# 11160 F34760 11179# 11195 F34770 11214# 11230 F35000 11249# 11265 F35010 11284# 11300 F35020 11319# 11335 F35030 11368# 11384 F35040 11399# 11415 F35050 11430# 11446 F35060 11461# 11477 F35070 11492# 11508 SEQ 0372 F35100 11523# 11539 F35110 11554# 11570 F35120 11585# 11601 F35130 11616# 11632 F35140 11647# 11663 F35150 11678# 11694 F35160 11709# 11725 F35170 11740# 11756 F35200 11771# 11787 F35210 11802# 11818 F35220 11833# 11849 F35230 11864# 11880 F35240 11895# 11911 F35250 11926# 11942 F35260 11957# 11973 F35270 11988# 12004 F35300 12019# 12035 F35310 12050# 12066 F35320 12081# 12097 F35330 12112# 12128 F35340 12143# 12159 F35350 12174# 12190 F35360 12205# 12221 F35370 12236# 12252 F35400 12267# 12283 F35410 12298# 12314 F35420 12329# 12345 F35430 12360# 12376 F35440 12391# 12407 F35450 12422# 12438 F35460 12453# 12469 F35470 12502# 12518 F35500 12533# 12549 F35510 12564# 12580 F35520 12595# 12611 F35530 12626# 12642 F35540 12657# 12673 F35550 12688# 12704 F35560 12719# 12735 F35570 12750# 12766 F35600 12781# 12797 F35610 12812# 12828 F35620 12843# 12859 F35630 12874# 12890 F35640 12905# 12921 F35650 12936# 12952 F35660 12967# 12983 F35670 12998# 13014 F35700 13029# 13045 F35710 13060# 13076 F35720 13091# 13107 F35730 13122# 13138 F35740 13153# 13169 SEQ 0373 F35750 13184# 13200 F35760 13215# 13231 F35770 13246# 13262 F36000 13277# 13293 F36010 13308# 13324 F36020 13339# 13355 F36030 13370# 13386 F36040 13401# 13417 F36050 13432# 13448 F36060 13463# 13479 F36070 13494# 13510 F36100 13525# 13541 F36110 13556# 13572 F36120 13587# 13603 F36130 13638# 13654 F36140 13670# 13686 F36150 13702# 13718 F36160 13734# 13750 F36170 13766# 13782 F36200 13798# 13814 F36210 13830# 13846 F36220 13862# 13878 F36230 13894# 13910 F36240 13926# 13942 F36250 13958# 13974 F36260 13990# 14006 F36270 14022# 14038 F36300 14054# 14070 F36310 14086# 14102 F36320 14118# 14134 F36330 14150# 14166 F36340 14182# 14198 F36350 14214# 14230 F36360 14246# 14262 F36370 14278# 14294 F36400 14310# 14326 F36410 14342# 14358 F36420 14374# 14390 F36430 14406# 14422 F36440 14438# 14454 F36450 14470# 14486 F36460 14502# 14518 F36470 14534# 14550 F36500 14566# 14582 F36510 14598# 14614 F36520 14630# 14646 F36530 14662# 14678 F36540 14694# 14710 F36550 14726# 14742 F36560 14758# 14774 F36570 14809# 14825 F36600 14841# 14857 F36610 14873# 14889 SEQ 0374 F36620 14905# 14921 F36630 14937# 14953 F36640 14969# 14985 F36650 15001# 15017 F36660 15033# 15049 F36670 15065# 15081 F36700 15097# 15113 F36710 15129# 15145 F36720 15161# 15177 F36730 15193# 15209 F36740 15225# 15241 F36750 15257# 15273 F36760 15289# 15305 F36770 15321# 15337 F37000 15353# 15369 F37010 15385# 15401 F37020 15417# 15433 F37030 15449# 15465 F37040 15481# 15497 F37050 15513# 15529 F37060 15545# 15561 F37070 15577# 15593 F37100 15609# 15625 F37110 15641# 15657 F37120 15673# 15689 F37130 15705# 15721 F37140 15737# 15753 F37150 15769# 15785 F37160 15801# 15817 F37170 15833# 15849 F37200 15865# 15881 F37210 15897# 15913 F37220 15929# 15945 F37230 15994# 16010 F37240 16031# 16047 F37250 16068# 16084 F37260 16105# 16121 F37270 16142# 16158 F37300 16179# 16195 F37310 16216# 16232 F37320 16253# 16269 F37330 16290# 16306 F37340 16327# 16343 F37350 16364# 16380 F37360 16401# 16417 F37370 16438# 16454 F37400 16475# 16491 F37410 16512# 16528 F37420 16549# 16565 F37430 16586# 16602 F37440 16623# 16639 F37450 16660# 16676 F37460 16697# 16713 SEQ 0375 F37470 16734# 16750 F37500 16771# 16787 F37510 16808# 16824 F37520 16845# 16861 F37530 16882# 16898 F37540 16919# 16935 F37550 16956# 16972 F37560 16993# 17009 F37570 17030# 17046 F37600 17067# 17083 F37610 17104# 17120 F37620 17141# 17157 F37630 17178# 17194 F37640 17215# 17231 F37650 17252# 17268 F37660 17289# 17305 FOV 394# FOVU 394# FRDLNK 162# FSELNK 161# FXU 394# HYPEN 593# INHCSH 147# INHPAG 144# IOCLR 394# ITERAT 88# 440 ITRCH1 500# ITRCNT 440# JOB41 394# JOBAPR 394# JOBCNI 394# JOBDDT 394# JOBFF 394# JOBOPC 394# 17429 JOBREL 394# JOBREN 394# JOBSA 394# JOBSYM 394# JOBTPC 394# JOBUSY 394# JOBUUO 394# JOBVER 394# KAIFLG 457# KLFLG 458# KNTRP 394# KTRP 394# LACLK 394# LACLKE 394# LAPRAL 394# LAPRP1 394# LAPRP2 394# LAPRP3 394# LAPRP4 394# SEQ 0376 LAPRP5 394# LAPRP6 394# LAPRP7 394# LCHNOF 394# LCHNON 394# LCNTXT 394# LCNXER 394# LCPAER 394# LCPSFT 394# LCPWRF 394# LDATAF 394# LDLNK 163# 410 412 LDNXER 394# LDPAER 394# LDPSFT 394# LDPWRF 394# LEBXMH 394# LEBXML 394# LENXER 394# LEPAER 394# LEPSFT 394# LEPWRF 394# LEUPFW 394# LEXCMP 394# LFLGCL 394# LFLGDS 394# LFLGEN 394# LFLGST 394# LFP 597# LINSTF 394# LINT 394# LIOCLR 394# LLACBL 394# LLDUSB 394# LMBXMH 394# LMBXML 394# LNXMEN 394# LNXMER 394# LOOPER 138# 17434 LPAREN 394# LPARER 394# LPFWPC 394# LPGFTR 394# LPICH1 394# LPICH2 394# LPICH3 394# LPICH4 394# LPICH5 394# LPICH6 394# LPICH7 394# LPICHA 394# LPICLR 394# LPIIP1 394# SEQ 0377 LPIIP2 394# LPIIP3 394# LPIIP4 394# LPIIP5 394# LPIIP6 394# LPIIP7 394# LPIOFF 394# LPION 394# LPRCH1 394# LPRCH2 394# LPRCH3 394# LPRCH4 394# LPRCH5 394# LPRCH6 394# LPRCH7 394# LPRFMH 394# LPRFML 394# LPSFT 394# LPSFTE 394# LPWRFE 394# LPWRFL 394# LREQSE 394# LRQCLR 394# LSECMO 394# LSMODE 394# LSNXER 394# LSPAER 394# LSPSFT 394# LSPWRF 394# LTBASH 394# LTBASL 394# LTRPAE 394# LTRPEN 394# LUSCMP 394# LUUO 394# LUUO1 46# 527 528 LUUO10 53# 527 532 LUUO11 54# 527 532 LUUO12 55# 527 533 LUUO13 56# 527 533 LUUO14 527 534 LUUO15 527 534 LUUO16 527 535 LUUO17 527 535 LUUO2 47# 527 529 LUUO20 527 536 LUUO21 527 536 LUUO22 527 537 LUUO23 527 537 LUUO24 527 538 LUUO25 527 538 LUUO26 527 539 LUUO27 527 539 SEQ 0378 LUUO3 48# 527 529 LUUO30 527 540 LUUO31 527 540 LUUO32 527 541 LUUO33 527 541 LUUO4 49# 527 530 LUUO5 50# 527 530 LUUO6 51# 527 531 LUUO7 52# 527 531 LUUOI 394# LWRITE 394# MAPNEW 548# MARGIN 470# MCNVER 3# 11 26 442 MEMLOW 550# MEMMAP 448 MEMSIZ 551# MEMTOT 549# MICNT 17318# 17318 17319 17332 MINUS 592# MODDVC 146# MODDVL 345 345# 443 MODDVU 346 346# 444 MODLNK 165# 407 MONCTL 460# 17333 17446 MONFLG 459# MONTEN 461# MONTYP 674# MPVU 394# MUUO 394# MUUOPC 394# MX 3641# 3664 3665 3686# 3709 3710 3731# 3754 3755 3776# 3799 3800 3821# 3844 3845 3866# 3889 3890 3911# 3934 3935 3956# 3979 3980 4001# 4024 4025 4046# 4069 4070 4091# 4114 4115 4136# 4159 4160 4181# 4204 4205 4226# 4249 4250 4271# 4294 4295 4316# 4339 4340 13629# 13648 13649 13661# 13680 13681 13693# 13712 13713 13725# 13744 13745 13757# 13776 13777 13789# 13808 13809 13821# 13840 13841 13853# 13872 13873 13885# 13904 13905 13917# 13936 13937 13949# 13968 13969 13981# 14000 14001 14013# 14032 14033 14045# 14064 14065 14077# 14096 14097 14109# 14128 14129 14141# 14160 14161 14173# 14192 14193 14205# 14224 14225 14237# 14256 14257 14269# 14288 14289 14301# 14320 14321 14333# 14352 14353 14365# 14384 14385 14397# 14416 14417 14429# 14448 14449 14461# 14480 14481 14493# 14512 14513 14525# 14544 14545 14557# 14576 14577 14589# 14608 14609 14621# 14640 14641 14653# 14672 14673 14685# 14704 14705 14717# 14736 14737 14749# 14768 14769 14800# 14819 14820 14832# 14851 14852 14864# 14883 14884 14896# 14915 14916 14928# 14947 14948 14960# 14979 14980 14992# 15011 15012 15024# 15043 15044 15056# 15075 15076 15088# 15107 15108 15120# 15139 15140 15152# 15171 15172 15184# 15203 15204 15216# 15235 15236 15248# 15267 15268 15280# 15299 15300 15312# 15331 15332 15344# 15363 15364 15376# 15395 15396 15408# 15427 15428 15440# 15459 15460 15472# 15491 15492 15504# 15523 15524 15536# 15555 15556 15568# 15587 15588 15600# 15619 15620 15632# 15651 15652 15664# 15683 15684 15696# 15715 15716 15728# 15747 15748 15760# 15779 15780 15792# 15811 15812 15824# 15843 15844 15856# 15875 15876 15888# 15907 15908 15920# 15939 15940 N1 15946# 15983 15984 15987 16020 16021 16024 16057 16058 16061 16094 16095 16098 16131 16132 16135 16168 16169 16172 16205 16206 16209 16242 16243 16246 16279 16280 16283 16316 16317 16320 16353 16354 16357 16390 16391 16394 16427 16428 16431 16464 16465 SEQ 0379 16468 16501 16502 16505 16538 16539 16542 16575 16576 16579 16612 16613 16616 16649 16650 16653 16686 16687 16690 16723 16724 16727 16760 16761 16764 16797 16798 16801 16834 16835 16838 16871 16872 16875 16908 16909 16912 16945 16946 16949 16982 16983 16986 17019 17020 17023 17056 17057 17060 17093 17094 17097 17130 17131 17134 17167 17168 17171 17204 17205 17208 17241 17242 17245 17278 17279 N2 15947# 17281 NOPNT 134# 17323 NXMU 394# OPRSEL 148# OPTIME 562# P 191 192 193 194 394# 482 PAG 394# PALERS 140# 17456 PAREA0 81# PAREA1 82# 438 PAREA2 83# 439 PAREA3 84# 436 PAREA4 85# 437 PAREA5 86# 449 PAREA6 87# 450 PAREA7 449# PAREA8 450# PART1 749 756# PARU 394# PASCNT 464# 17338 17342 PATCH 17743# PDISF 559# PDLOVU 394# PDOVTP 394# PERIOD 589# PFSTRT 416# PGMEND 62# 17749 PGMNAM 441 726# PICHN1 394# PICHN2 394# PICHN3 394# PICHN4 394# PICHN5 394# PICHN6 394# PICHN7 394# PICHNA 394# PICLR 394# PIOFF 394# PION 394# PLIST 628# 628 PLISTE 628 630# PLISTS 629# PLUS 594# PNTENB 558# PNTEXT 437# PNTFLG 557# PNTINH 560# PNTLPT 135# SEQ 0380 PNTNAM 436# PNTRP 394# PNTSPC 561# PROCED 17321# 17321 17435 17442 PTRP 394# PVPAGI 655# QUEST 600# RADIX 603# RADLSC 605# RADLSP 604# RANDBS 438# REENTR 418# RELIAB 142# REPT 394# REPT1 394# REPTU 516# REQSET 394# RESRT1 493# RESRT2 494# RETURN 425# RSTART 131# RTP 598# RUNFLG 465# SADR1 67# 414 SADR10 76# 430 SADR11 77# 431 SADR2 68# 416 SADR3 69# 418 SADR4 70# SADR5 71# 479 SADR6 72# 480 SADR7 73# 427 SADR8 74# 428 SADR9 75# 429 SBINIT 204 424# SCOPE 517# SFSTRT 414# SLASH 601# SM10 705# SNTRP 394# SPACE 590# SPDES 17408# SRTDDT 70 420# START 408 745# START1 427# START2 428# START3 429# START4 430# START5 431# STARTA 423 749# STRP 394# SUBLNK 166# 424 SWPTAB 711# SEQ 0381 SWTEXR 439# SYSEXR 412# TAB 591# TESTPC 466# 758 791 1851 2912 2946 3597 4352 5412 6472 6507 7642 8776 10058 11340 12474 13608 14779 15952 TICKS 469# TLET 747 17382 17405# TN0 394# TN1 394# TOTALS 132# TRP3TP 394# TTNBRF 649# TTYFIL 565# TTYSPD 566# TXTINH 143# 17366 UBAVEC 394# USER 456# USERF 394# USRASB 61# 446 USRCRF 575# USRLFF 574# UUODIS 528# UUOEXT 484# 17453 UUORTN 485# UUOSKP 482# V1 3643# 3656 3657 3691# 3701 3702 3736# 3746 3747 3781# 3791 3792 3826# 3836 3837 3871# 3881 3882 3916# 3926 3927 3961# 3971 3972 4006# 4016 4017 4051# 4061 4062 4096# 4106 4107 4141# 4151 4152 4186# 4196 4197 4231# 4241 4242 4276# 4286 4287 4321# 4331 4332 6528# 6543 6544 6559# 6574 6575 6590# 6605 6606 6621# 6636 6637 6652# 6667 6668 6683# 6698 6699 6714# 6729 6730 6745# 6760 6761 6776# 6791 6792 6807# 6822 6823 6838# 6853 6854 6869# 6884 6885 6900# 6915 6916 6931# 6946 6947 6962# 6977 6978 6993# 7008 7009 7024# 7039 7040 7055# 7070 7071 7086# 7101 7102 7117# 7132 7133 7148# 7163 7164 7179# 7194 7195 7210# 7225 7226 7241# 7256 7257 7272# 7287 7288 7303# 7318 7319 7334# 7349 7350 7365# 7380 7381 7396# 7411 7412 7427# 7442 7443 7458# 7473 7474 7489# 7504 7505 7520# 7535 7536 7551# 7566 7567 7582# 7597 7598 7614# 7628 7629 7662# 7677 7678 7693# 7708 7709 7724# 7739 7740 7755# 7770 7771 7786# 7801 7802 7817# 7832 7833 7848# 7863 7864 7879# 7894 7895 7910# 7925 7926 7941# 7956 7957 7972# 7987 7988 8003# 8018 8019 8034# 8049 8050 8065# 8080 8081 8096# 8111 8112 8127# 8142 8143 8158# 8173 8174 8189# 8204 8205 8220# 8235 8236 8251# 8266 8267 8282# 8297 8298 8313# 8328 8329 8344# 8359 8360 8375# 8390 8391 8406# 8421 8422 8437# 8452 8453 8468# 8483 8484 8499# 8514 8515 8530# 8545 8546 8561# 8576 8577 8592# 8607 8608 8623# 8638 8639 8654# 8669 8670 8685# 8700 8701 8716# 8731 8732 8748# 8762 8763 8801# 8819 8820 8836# 8854 8855 8871# 8889 8890 8906# 8924 8925 8941# 8959 8960 8976# 8994 8995 9011# 9029 9030 9046# 9064 9065 9081# 9099 9100 9116# 9134 9135 9151# 9169 9170 9186# 9204 9205 9221# 9239 9240 9256# 9274 9275 9291# 9309 9310 9326# 9344 9345 9361# 9379 9380 9396# 9414 9415 9431# 9449 9450 9466# 9484 9485 9501# 9519 9520 9536# 9554 9555 9571# 9589 9590 9606# 9624 9625 9641# 9659 9660 9676# 9694 9695 9711# 9729 9730 9746# 9764 9765 9781# 9799 9800 9816# 9834 9835 9851# 9869 9870 9886# 9904 9905 9921# 9939 9940 9956# 9974 9975 9991# 10009 10010 10029# 10044 10045 10083# 10101 10102 10118# 10136 10137 10153# 10171 10172 10188# 10206 10207 10223# 10241 10242 10258# 10276 10277 10293# 10311 SEQ 0382 10312 10328# 10346 10347 10363# 10381 10382 10398# 10416 10417 10433# 10451 10452 10468# 10486 10487 10503# 10521 10522 10538# 10556 10557 10573# 10591 10592 10608# 10626 10627 10643# 10661 10662 10678# 10696 10697 10713# 10731 10732 10748# 10766 10767 10783# 10801 10802 10818# 10836 10837 10853# 10871 10872 10888# 10906 10907 10923# 10941 10942 10958# 10976 10977 10993# 11011 11012 11028# 11046 11047 11063# 11081 11082 11098# 11116 11117 11133# 11151 11152 11168# 11186 11187 11203# 11221 11222 11238# 11256 11257 11273# 11291 11292 11311# 11326 11327 11360# 11375 11376 11391# 11406 11407 11422# 11437 11438 11453# 11468 11469 11484# 11499 11500 11515# 11530 11531 11546# 11561 11562 11577# 11592 11593 11608# 11623 11624 11639# 11654 11655 11670# 11685 11686 11701# 11716 11717 11732# 11747 11748 11763# 11778 11779 11794# 11809 11810 11825# 11840 11841 11856# 11871 11872 11887# 11902 11903 11918# 11933 11934 11949# 11964 11965 11980# 11995 11996 12011# 12026 12027 12042# 12057 12058 12073# 12088 12089 12104# 12119 12120 12135# 12150 12151 12166# 12181 12182 12197# 12212 12213 12228# 12243 12244 12259# 12274 12275 12290# 12305 12306 12321# 12336 12337 12352# 12367 12368 12383# 12398 12399 12414# 12429 12430 12446# 12460 12461 12494# 12509 12510 12525# 12540 12541 12556# 12571 12572 12587# 12602 12603 12618# 12633 12634 12649# 12664 12665 12680# 12695 12696 12711# 12726 12727 12742# 12757 12758 12773# 12788 12789 12804# 12819 12820 12835# 12850 12851 12866# 12881 12882 12897# 12912 12913 12928# 12943 12944 12959# 12974 12975 12990# 13005 13006 13021# 13036 13037 13052# 13067 13068 13083# 13098 13099 13114# 13129 13130 13145# 13160 13161 13176# 13191 13192 13207# 13222 13223 13238# 13253 13254 13269# 13284 13285 13300# 13315 13316 13331# 13346 13347 13362# 13377 13378 13393# 13408 13409 13424# 13439 13440 13455# 13470 13471 13486# 13501 13502 13517# 13532 13533 13548# 13563 13564 13580# 13594 13595 13630# 13645 13646 13662# 13677 13678 13694# 13709 13710 13726# 13741 13742 13758# 13773 13774 13790# 13805 13806 13822# 13837 13838 13854# 13869 13870 13886# 13901 13902 13918# 13933 13934 13950# 13965 13966 13982# 13997 13998 14014# 14029 14030 14046# 14061 14062 14078# 14093 14094 14110# 14125 14126 14142# 14157 14158 14174# 14189 14190 14206# 14221 14222 14238# 14253 14254 14270# 14285 14286 14302# 14317 14318 14334# 14349 14350 14366# 14381 14382 14398# 14413 14414 14430# 14445 14446 14462# 14477 14478 14494# 14509 14510 14526# 14541 14542 14558# 14573 14574 14590# 14605 14606 14622# 14637 14638 14654# 14669 14670 14686# 14701 14702 14718# 14733 14734 14751# 14765 14766 14801# 14816 14817 14833# 14848 14849 14865# 14880 14881 14897# 14912 14913 14929# 14944 14945 14961# 14976 14977 14993# 15008 15009 15025# 15040 15041 15057# 15072 15073 15089# 15104 15105 15121# 15136 15137 15153# 15168 15169 15185# 15200 15201 15217# 15232 15233 15249# 15264 15265 15281# 15296 15297 15313# 15328 15329 15345# 15360 15361 15377# 15392 15393 15409# 15424 15425 15441# 15456 15457 15473# 15488 15489 15505# 15520 15521 15537# 15552 15553 15569# 15584 15585 15601# 15616 15617 15633# 15648 15649 15665# 15680 15681 15697# 15712 15713 15729# 15744 15745 15761# 15776 15777 15793# 15808 15809 15825# 15840 15841 15857# 15872 15873 15889# 15904 15905 15922# 15936 15937 15983# 15998 15999 16007 16008 16020# 16035 16036 16044 16045 16057# 16072 16073 16081 16082 16094# 16109 16110 16118 16119 16131# 16146 16147 16155 16156 16168# 16183 16184 16192 16193 16205# 16220 16221 16229 16230 16242# 16257 16258 16266 16267 16279# 16294 16295 16303 16304 16316# 16331 16332 16340 16341 16353# 16368 16369 16377 16378 16390# 16405 16406 16414 16415 16427# 16442 16443 16451 16452 16464# 16479 16480 16488 16489 16501# 16516 16517 16525 16526 16538# 16553 16554 16562 16563 16575# 16590 16591 16599 16600 16612# 16627 16628 16636 16637 16649# 16664 16665 16673 16674 16686# 16701 16702 16710 16711 16723# 16738 16739 16747 16748 16760# 16775 16776 16784 16785 16797# 16812 16813 16821 16822 16834# 16849 16850 16858 16859 16871# 16886 16887 16895 16896 16908# 16923 16924 16932 16933 16945# 16960 16961 16969 16970 16982# 16997 16998 17006 17007 17019# 17034 17035 17043 17044 17056# 17071 17072 17080 17081 17093# 17108 17109 17117 17118 17130# 17145 17146 17154 17155 17167# 17182 17183 17191 17192 17204# 17219 17220 17228 17229 17241# 17256 17257 17265 17266 17278# 17293 17294 17302 17303 V2 3644# 3661 3662 3692# 3706 3707 3737# 3751 3752 3782# 3796 3797 3827# 3841 3842 3872# 3886 3887 3917# 3931 3932 3962# 3976 3977 4007# 4021 4022 4052# 4066 4067 4097# 4111 4112 4142# 4156 4157 4187# 4201 4202 4232# 4246 4247 SEQ 0383 4277# 4291 4292 4322# 4336 4337 8802# 8822 8823 8837# 8857 8858 8872# 8892 8893 8907# 8927 8928 8942# 8962 8963 8977# 8997 8998 9012# 9032 9033 9047# 9067 9068 9082# 9102 9103 9117# 9137 9138 9152# 9172 9173 9187# 9207 9208 9222# 9242 9243 9257# 9277 9278 9292# 9312 9313 9327# 9347 9348 9362# 9382 9383 9397# 9417 9418 9432# 9452 9453 9467# 9487 9488 9502# 9522 9523 9537# 9557 9558 9572# 9592 9593 9607# 9627 9628 9642# 9662 9663 9677# 9697 9698 9712# 9732 9733 9747# 9767 9768 9782# 9802 9803 9817# 9837 9838 9852# 9872 9873 9887# 9907 9908 9922# 9942 9943 9957# 9977 9978 9992# 10012 10013 10030# 10047 10048 10084# 10104 10105 10119# 10139 10140 10154# 10174 10175 10189# 10209 10210 10224# 10244 10245 10259# 10279 10280 10294# 10314 10315 10329# 10349 10350 10364# 10384 10385 10399# 10419 10420 10434# 10454 10455 10469# 10489 10490 10504# 10524 10525 10539# 10559 10560 10574# 10594 10595 10609# 10629 10630 10644# 10664 10665 10679# 10699 10700 10714# 10734 10735 10749# 10769 10770 10784# 10804 10805 10819# 10839 10840 10854# 10874 10875 10889# 10909 10910 10924# 10944 10945 10959# 10979 10980 10994# 11014 11015 11029# 11049 11050 11064# 11084 11085 11099# 11119 11120 11134# 11154 11155 11169# 11189 11190 11204# 11224 11225 11239# 11259 11260 11274# 11294 11295 11312# 11329 11330 15984# 16004 16005 16021# 16041 16042 16058# 16078 16079 16095# 16115 16116 16132# 16152 16153 16169# 16189 16190 16206# 16226 16227 16243# 16263 16264 16280# 16300 16301 16317# 16337 16338 16354# 16374 16375 16391# 16411 16412 16428# 16448 16449 16465# 16485 16486 16502# 16522 16523 16539# 16559 16560 16576# 16596 16597 16613# 16633 16634 16650# 16670 16671 16687# 16707 16708 16724# 16744 16745 16761# 16781 16782 16798# 16818 16819 16835# 16855 16856 16872# 16892 16893 16909# 16929 16930 16946# 16966 16967 16983# 17003 17004 17020# 17040 17041 17057# 17077 17078 17094# 17114 17115 17131# 17151 17152 17168# 17188 17189 17205# 17225 17226 17242# 17262 17263 17279# 17280# 17299 17300 V3 15987# 16001 16002 16024# 16038 16039 16061# 16075 16076 16098# 16112 16113 16135# 16149 16150 16172# 16186 16187 16209# 16223 16224 16246# 16260 16261 16283# 16297 16298 16320# 16334 16335 16357# 16371 16372 16394# 16408 16409 16431# 16445 16446 16468# 16482 16483 16505# 16519 16520 16542# 16556 16557 16579# 16593 16594 16616# 16630 16631 16653# 16667 16668 16690# 16704 16705 16727# 16741 16742 16764# 16778 16779 16801# 16815 16816 16838# 16852 16853 16875# 16889 16890 16912# 16926 16927 16949# 16963 16964 16986# 17000 17001 17023# 17037 17038 17060# 17074 17075 17097# 17111 17112 17134# 17148 17149 17171# 17185 17186 17208# 17222 17223 17245# 17259 17260 17281# 17296 17297 WW 15955# 15976 15976# 15985 15987 16013 16013# 16022 16024 16050 16050# 16059 16061 16087 16087# 16096 16098 16124 16124# 16133 16135 16161 16161# 16170 16172 16198 16198# 16207 16209 16235 16235# 16244 16246 16272 16272# 16281 16283 16309 16309# 16318 16320 16346 16346# 16355 16357 16383 16383# 16392 16394 16420 16420# 16429 16431 16457 16457# 16466 16468 16494 16494# 16503 16505 16531 16531# 16540 16542 16568 16568# 16577 16579 16605 16605# 16614 16616 16642 16642# 16651 16653 16679 16679# 16688 16690 16716 16716# 16725 16727 16753 16753# 16762 16764 16790 16790# 16799 16801 16827 16827# 16836 16838 16864 16864# 16873 16875 16901 16901# 16910 16912 16938 16938# 16947 16949 16975 16975# 16984 16986 17012 17012# 17021 17023 17049 17049# 17058 17060 17086 17086# 17095 17097 17123 17123# 17132 17134 17160 17160# 17169 17171 17197 17197# 17206 17208 17234 17234# 17243 17245 17271 17271# 17280 XX 794# 805 805# 806 806# 819 820 828 829 834 834# 835 848 849 857 858 863 863# 864 877 878 886 887 892 892# 893 906 907 915 916 921 921# 922 935 936 944 945 950 950# 951 964 965 973 974 979 979# 980 993 994 1002 1003 1008 1008# 1009 1022 1023 1031 1032 1037 1037# 1038 1051 1052 1060 1061 1066 1066# 1067 1080 1081 1089 1090 1095 1095# 1096 1109 1110 1118 1119 1124 1124# 1125 1138 1139 1147 1148 1153 1153# 1154 1167 1168 1176 1177 1182 1182# 1183 1196 1197 1205 1206 1211 1211# 1212 1225 1226 1234 1235 1240 1240# 1241 1254 1255 1263 1264 1269 1269# 1270 1283 1284 1292 1293 1298 1298# 1299 1312 1313 1321 1322 1327 1327# 1328 1341 1342 1350 1351 1356 1356# 1357 1370 1371 SEQ 0384 1379 1380 1385 1385# 1386 1399 1400 1408 1409 1414 1414# 1415 1428 1429 1437 1438 1443 1443# 1444 1457 1458 1466 1467 1472 1472# 1473 1486 1487 1495 1496 1501 1501# 1502 1515 1516 1524 1525 1530 1530# 1531 1544 1545 1553 1554 1559 1559# 1560 1573 1574 1582 1583 1588 1588# 1589 1602 1603 1611 1612 1617 1617# 1618 1631 1632 1640 1641 1646 1646# 1647 1660 1661 1669 1670 1675 1675# 1676 1689 1690 1698 1699 1704 1704# 1705 1718 1719 1727 1728 1733 1733# 1734 1747 1748 1756 1757 1762 1762# 1763 1776 1777 1785 1786 1791 1791# 1792 1805 1806 1814 1815 1820 1820# 1821 1834 1835 1843 1844 1854# 1865 1865# 1866 1866# 1879 1880 1888 1889 1894 1894# 1895 1908 1909 1917 1918 1923 1923# 1924 1937 1938 1946 1947 1952 1952# 1953 1966 1967 1975 1976 1981 1981# 1982 1995 1996 2004 2005 2010 2010# 2011 2024 2025 2033 2034 2039 2039# 2040 2053 2054 2062 2063 2068 2068# 2069 2082 2083 2091 2092 2097 2097# 2098 2111 2112 2120 2121 2126 2126# 2127 2140 2141 2149 2150 2155 2155# 2156 2169 2170 2178 2179 2184 2184# 2185 2198 2199 2207 2208 2213 2213# 2214 2227 2228 2236 2237 2242 2242# 2243 2256 2257 2265 2266 2271 2271# 2272 2285 2286 2294 2295 2300 2300# 2301 2314 2315 2323 2324 2329 2329# 2330 2343 2344 2352 2353 2358 2358# 2359 2372 2373 2381 2382 2387 2387# 2388 2401 2402 2410 2411 2416 2416# 2417 2430 2431 2439 2440 2445 2445# 2446 2459 2460 2468 2469 2474 2474# 2475 2488 2489 2497 2498 2503 2503# 2504 2517 2518 2526 2527 2532 2532# 2533 2546 2547 2555 2556 2561 2561# 2562 2575 2576 2584 2585 2590 2590# 2591 2604 2605 2613 2614 2619 2619# 2620 2633 2634 2642 2643 2648 2648# 2649 2662 2663 2671 2672 2677 2677# 2678 2691 2692 2700 2701 2706 2706# 2707 2720 2721 2729 2730 2735 2735# 2736 2749 2750 2758 2759 2764 2764# 2765 2778 2779 2787 2788 2793 2793# 2794 2807 2808 2816 2817 2822 2822# 2823 2836 2837 2845 2846 2851 2851# 2852 2865 2866 2874 2875 2880 2880# 2881 2894 2895 2903 2904 2950# 2983 2983# 2991 2992 3001 3002 3022 3022# 3030 3031 3040 3041 3061 3061# 3069 3070 3079 3080 3100 3100# 3108 3109 3118 3119 3139 3139# 3147 3148 3157 3158 3178 3178# 3186 3187 3196 3197 3217 3217# 3225 3226 3235 3236 3256 3256# 3264 3265 3274 3275 3295 3295# 3303 3304 3313 3314 3334 3334# 3342 3343 3352 3353 3373 3373# 3381 3382 3391 3392 3412 3412# 3420 3421 3430 3431 3451 3451# 3459 3460 3469 3470 3490 3490# 3498 3499 3508 3509 3529 3529# 3537 3538 3547 3548 3568 3568# 3576 3577 3586 3587 3601# 3640 3640# 3641 3642 3645 3654 3655 3685 3685# 3686 3687 3690 3699 3700 3730 3730# 3731 3732 3735 3744 3745 3775 3775# 3776 3777 3780 3789 3790 3820 3820# 3821 3822 3825 3834 3835 3865 3865# 3866 3867 3870 3879 3880 3910 3910# 3911 3912 3915 3924 3925 3955 3955# 3956 3957 3960 3969 3970 4000 4000# 4001 4002 4005 4014 4015 4045 4045# 4046 4047 4050 4059 4060 4090 4090# 4091 4092 4095 4104 4105 4135 4135# 4136 4137 4140 4149 4150 4180 4180# 4181 4182 4185 4194 4195 4225 4225# 4226 4227 4230 4239 4240 4270 4270# 4271 4272 4275 4284 4285 4315 4315# 4316 4317 4320 4329 4330 4355# 4366 4366# 4367 4367# 4376 4377 4395 4395# 4396 4405 4406 4424 4424# 4425 4434 4435 4453 4453# 4454 4463 4464 4482 4482# 4483 4492 4493 4511 4511# 4512 4521 4522 4540 4540# 4541 4550 4551 4569 4569# 4570 4579 4580 4598 4598# 4599 4608 4609 4627 4627# 4628 4637 4638 4656 4656# 4657 4666 4667 4685 4685# 4686 4695 4696 4714 4714# 4715 4724 4725 4743 4743# 4744 4753 4754 4772 4772# 4773 4782 4783 4801 4801# 4802 4811 4812 4830 4830# 4831 4840 4841 4859 4859# 4860 4869 4870 4888 4888# 4889 4898 4899 4917 4917# 4918 4927 4928 4946 4946# 4947 4956 4957 4975 4975# 4976 4985 4986 5004 5004# 5005 5014 5015 5033 5033# 5034 5043 5044 5062 5062# 5063 5072 5073 5091 5091# 5092 5101 5102 5120 5120# 5121 5130 5131 5149 5149# 5150 5159 5160 5178 5178# 5179 5188 5189 5207 5207# 5208 5217 5218 5236 5236# 5237 5246 5247 5265 5265# 5266 5275 5276 5294 5294# SEQ 0385 5295 5304 5305 5323 5323# 5324 5333 5334 5352 5352# 5353 5362 5363 5381 5381# 5382 5391 5392 5415# 5426 5426# 5427 5427# 5436 5437 5455 5455# 5456 5465 5466 5484 5484# 5485 5494 5495 5513 5513# 5514 5523 5524 5542 5542# 5543 5552 5553 5571 5571# 5572 5581 5582 5600 5600# 5601 5610 5611 5629 5629# 5630 5639 5640 5658 5658# 5659 5668 5669 5687 5687# 5688 5697 5698 5716 5716# 5717 5726 5727 5745 5745# 5746 5755 5756 5774 5774# 5775 5784 5785 5803 5803# 5804 5813 5814 5832 5832# 5833 5842 5843 5861 5861# 5862 5871 5872 5890 5890# 5891 5900 5901 5919 5919# 5920 5929 5930 5948 5948# 5949 5958 5959 5977 5977# 5978 5987 5988 6006 6006# 6007 6016 6017 6035 6035# 6036 6045 6046 6064 6064# 6065 6074 6075 6093 6093# 6094 6103 6104 6122 6122# 6123 6132 6133 6151 6151# 6152 6161 6162 6180 6180# 6181 6190 6191 6209 6209# 6210 6219 6220 6238 6238# 6239 6248 6249 6267 6267# 6268 6277 6278 6296 6296# 6297 6306 6307 6325 6325# 6326 6335 6336 6354 6354# 6355 6364 6365 6383 6383# 6384 6393 6394 6412 6412# 6413 6422 6423 6441 6441# 6442 6451 6452 6511# 6524 6524# 6525 6525# 6528 6529 6540 6541 6546 6547 6549 6550 6555 6555# 6556 6559 6560 6571 6572 6577 6578 6580 6581 6586 6586# 6587 6590 6591 6602 6603 6608 6609 6611 6612 6617 6617# 6618 6621 6622 6633 6634 6639 6640 6642 6643 6648 6648# 6649 6652 6653 6664 6665 6670 6671 6673 6674 6679 6679# 6680 6683 6684 6695 6696 6701 6702 6704 6705 6710 6710# 6711 6714 6715 6726 6727 6732 6733 6735 6736 6741 6741# 6742 6745 6746 6757 6758 6763 6764 6766 6767 6772 6772# 6773 6776 6777 6788 6789 6794 6795 6797 6798 6803 6803# 6804 6807 6808 6819 6820 6825 6826 6828 6829 6834 6834# 6835 6838 6839 6850 6851 6856 6857 6859 6860 6865 6865# 6866 6869 6870 6881 6882 6887 6888 6890 6891 6896 6896# 6897 6900 6901 6912 6913 6918 6919 6921 6922 6927 6927# 6928 6931 6932 6943 6944 6949 6950 6952 6953 6958 6958# 6959 6962 6963 6974 6975 6980 6981 6983 6984 6989 6989# 6990 6993 6994 7005 7006 7011 7012 7014 7015 7020 7020# 7021 7024 7025 7036 7037 7042 7043 7045 7046 7051 7051# 7052 7055 7056 7067 7068 7073 7074 7076 7077 7082 7082# 7083 7086 7087 7098 7099 7104 7105 7107 7108 7113 7113# 7114 7117 7118 7129 7130 7135 7136 7138 7139 7144 7144# 7145 7148 7149 7160 7161 7166 7167 7169 7170 7175 7175# 7176 7179 7180 7191 7192 7197 7198 7200 7201 7206 7206# 7207 7210 7211 7222 7223 7228 7229 7231 7232 7237 7237# 7238 7241 7242 7253 7254 7259 7260 7262 7263 7268 7268# 7269 7272 7273 7284 7285 7290 7291 7293 7294 7299 7299# 7300 7303 7304 7315 7316 7321 7322 7324 7325 7330 7330# 7331 7334 7335 7346 7347 7352 7353 7355 7356 7361 7361# 7362 7365 7366 7377 7378 7383 7384 7386 7387 7392 7392# 7393 7396 7397 7408 7409 7414 7415 7417 7418 7423 7423# 7424 7427 7428 7439 7440 7445 7446 7448 7449 7454 7454# 7455 7458 7459 7470 7471 7476 7477 7479 7480 7485 7485# 7486 7489 7490 7501 7502 7507 7508 7510 7511 7516 7516# 7517 7520 7521 7532 7533 7538 7539 7541 7542 7547 7547# 7548 7551 7552 7563 7564 7569 7570 7572 7573 7578 7578# 7579 7582 7583 7594 7595 7600 7601 7603 7604 7609 7609# 7610 7613 7614 7625 7626 7631 7632 7634 7635 7645# 7658 7658# 7659 7659# 7662 7663 7670 7671 7680 7681 7689 7689# 7690 7693 7694 7701 7702 7711 7712 7720 7720# 7721 7724 7725 7732 7733 7742 7743 7751 7751# 7752 7755 7756 7763 7764 7773 7774 7782 7782# 7783 7786 7787 7794 7795 7804 7805 7813 7813# 7814 7817 7818 7825 7826 7835 7836 7844 7844# 7845 7848 7849 7856 7857 7866 7867 7875 7875# 7876 7879 7880 7887 7888 7897 7898 7906 7906# 7907 7910 7911 7918 7919 7928 7929 7937 7937# 7938 7941 7942 7949 7950 7959 7960 7968 7968# 7969 7972 7973 7980 7981 7990 7991 7999 7999# 8000 8003 8004 8011 8012 8021 8022 8030 8030# 8031 8034 8035 8042 8043 8052 8053 8061 8061# 8062 8065 8066 8073 8074 8083 8084 8092 8092# 8093 8096 8097 8104 8105 8114 8115 8123 8123# 8124 8127 8128 8135 8136 SEQ 0386 8145 8146 8154 8154# 8155 8158 8159 8166 8167 8176 8177 8185 8185# 8186 8189 8190 8197 8198 8207 8208 8216 8216# 8217 8220 8221 8228 8229 8238 8239 8247 8247# 8248 8251 8252 8259 8260 8269 8270 8278 8278# 8279 8282 8283 8290 8291 8300 8301 8309 8309# 8310 8313 8314 8321 8322 8331 8332 8340 8340# 8341 8344 8345 8352 8353 8362 8363 8371 8371# 8372 8375 8376 8383 8384 8393 8394 8402 8402# 8403 8406 8407 8414 8415 8424 8425 8433 8433# 8434 8437 8438 8445 8446 8455 8456 8464 8464# 8465 8468 8469 8476 8477 8486 8487 8495 8495# 8496 8499 8500 8507 8508 8517 8518 8526 8526# 8527 8530 8531 8538 8539 8548 8549 8557 8557# 8558 8561 8562 8569 8570 8579 8580 8588 8588# 8589 8592 8593 8600 8601 8610 8611 8619 8619# 8620 8623 8624 8631 8632 8641 8642 8650 8650# 8651 8654 8655 8662 8663 8672 8673 8681 8681# 8682 8685 8686 8693 8694 8703 8704 8712 8712# 8713 8716 8717 8724 8725 8734 8735 8743 8743# 8744 8747 8748 8755 8756 8765 8766 8779# 8796 8796# 8797 8797# 8800 8802 8803 8816 8817 8825 8826 8831 8831# 8832 8835 8837 8838 8851 8852 8860 8861 8866 8866# 8867 8870 8872 8873 8886 8887 8895 8896 8901 8901# 8902 8905 8907 8908 8921 8922 8930 8931 8936 8936# 8937 8940 8942 8943 8956 8957 8965 8966 8971 8971# 8972 8975 8977 8978 8991 8992 9000 9001 9006 9006# 9007 9010 9012 9013 9026 9027 9035 9036 9041 9041# 9042 9045 9047 9048 9061 9062 9070 9071 9076 9076# 9077 9080 9082 9083 9096 9097 9105 9106 9111 9111# 9112 9115 9117 9118 9131 9132 9140 9141 9146 9146# 9147 9150 9152 9153 9166 9167 9175 9176 9181 9181# 9182 9185 9187 9188 9201 9202 9210 9211 9216 9216# 9217 9220 9222 9223 9236 9237 9245 9246 9251 9251# 9252 9255 9257 9258 9271 9272 9280 9281 9286 9286# 9287 9290 9292 9293 9306 9307 9315 9316 9321 9321# 9322 9325 9327 9328 9341 9342 9350 9351 9356 9356# 9357 9360 9362 9363 9376 9377 9385 9386 9391 9391# 9392 9395 9397 9398 9411 9412 9420 9421 9426 9426# 9427 9430 9432 9433 9446 9447 9455 9456 9461 9461# 9462 9465 9467 9468 9481 9482 9490 9491 9496 9496# 9497 9500 9502 9503 9516 9517 9525 9526 9531 9531# 9532 9535 9537 9538 9551 9552 9560 9561 9566 9566# 9567 9570 9572 9573 9586 9587 9595 9596 9601 9601# 9602 9605 9607 9608 9621 9622 9630 9631 9636 9636# 9637 9640 9642 9643 9656 9657 9665 9666 9671 9671# 9672 9675 9677 9678 9691 9692 9700 9701 9706 9706# 9707 9710 9712 9713 9726 9727 9735 9736 9741 9741# 9742 9745 9747 9748 9761 9762 9770 9771 9776 9776# 9777 9780 9782 9783 9796 9797 9805 9806 9811 9811# 9812 9815 9817 9818 9831 9832 9840 9841 9846 9846# 9847 9850 9852 9853 9866 9867 9875 9876 9881 9881# 9882 9885 9887 9888 9901 9902 9910 9911 9916 9916# 9917 9920 9922 9923 9936 9937 9945 9946 9951 9951# 9952 9955 9957 9958 9971 9972 9980 9981 9986 9986# 9987 9990 9992 9993 10006 10007 10015 10016 10021 10021# 10022 10025 10028 10041 10042 10050 10051 10061# 10078 10078# 10079 10079# 10082 10084 10085 10094 10095 10113 10113# 10114 10117 10119 10120 10129 10130 10148 10148# 10149 10152 10154 10155 10164 10165 10183 10183# 10184 10187 10189 10190 10199 10200 10218 10218# 10219 10222 10224 10225 10234 10235 10253 10253# 10254 10257 10259 10260 10269 10270 10288 10288# 10289 10292 10294 10295 10304 10305 10323 10323# 10324 10327 10329 10330 10339 10340 10358 10358# 10359 10362 10364 10365 10374 10375 10393 10393# 10394 10397 10399 10400 10409 10410 10428 10428# 10429 10432 10434 10435 10444 10445 10463 10463# 10464 10467 10469 10470 10479 10480 10498 10498# 10499 10502 10504 10505 10514 10515 10533 10533# 10534 10537 10539 10540 10549 10550 10568 10568# 10569 10572 10574 10575 10584 10585 10603 10603# 10604 10607 10609 10610 10619 10620 10638 10638# 10639 10642 10644 10645 10654 10655 10673 10673# 10674 10677 10679 10680 10689 10690 10708 10708# 10709 10712 10714 10715 10724 10725 10743 10743# 10744 10747 10749 10750 10759 10760 10778 10778# 10779 10782 10784 10785 10794 10795 10813 10813# 10814 10817 10819 10820 10829 10830 10848 10848# 10849 10852 10854 10855 10864 10865 10883 10883# 10884 10887 10889 10890 10899 10900 10918 10918# 10919 10922 10924 SEQ 0387 10925 10934 10935 10953 10953# 10954 10957 10959 10960 10969 10970 10988 10988# 10989 10992 10994 10995 11004 11005 11023 11023# 11024 11027 11029 11030 11039 11040 11058 11058# 11059 11062 11064 11065 11074 11075 11093 11093# 11094 11097 11099 11100 11109 11110 11128 11128# 11129 11132 11134 11135 11144 11145 11163 11163# 11164 11167 11169 11170 11179 11180 11198 11198# 11199 11202 11204 11205 11214 11215 11233 11233# 11234 11237 11239 11240 11249 11250 11268 11268# 11269 11272 11274 11275 11284 11285 11303 11303# 11304 11307 11310 11319 11320 11343# 11356 11356# 11357 11357# 11360 11361 11372 11373 11378 11379 11381 11382 11387 11387# 11388 11391 11392 11403 11404 11409 11410 11412 11413 11418 11418# 11419 11422 11423 11434 11435 11440 11441 11443 11444 11449 11449# 11450 11453 11454 11465 11466 11471 11472 11474 11475 11480 11480# 11481 11484 11485 11496 11497 11502 11503 11505 11506 11511 11511# 11512 11515 11516 11527 11528 11533 11534 11536 11537 11542 11542# 11543 11546 11547 11558 11559 11564 11565 11567 11568 11573 11573# 11574 11577 11578 11589 11590 11595 11596 11598 11599 11604 11604# 11605 11608 11609 11620 11621 11626 11627 11629 11630 11635 11635# 11636 11639 11640 11651 11652 11657 11658 11660 11661 11666 11666# 11667 11670 11671 11682 11683 11688 11689 11691 11692 11697 11697# 11698 11701 11702 11713 11714 11719 11720 11722 11723 11728 11728# 11729 11732 11733 11744 11745 11750 11751 11753 11754 11759 11759# 11760 11763 11764 11775 11776 11781 11782 11784 11785 11790 11790# 11791 11794 11795 11806 11807 11812 11813 11815 11816 11821 11821# 11822 11825 11826 11837 11838 11843 11844 11846 11847 11852 11852# 11853 11856 11857 11868 11869 11874 11875 11877 11878 11883 11883# 11884 11887 11888 11899 11900 11905 11906 11908 11909 11914 11914# 11915 11918 11919 11930 11931 11936 11937 11939 11940 11945 11945# 11946 11949 11950 11961 11962 11967 11968 11970 11971 11976 11976# 11977 11980 11981 11992 11993 11998 11999 12001 12002 12007 12007# 12008 12011 12012 12023 12024 12029 12030 12032 12033 12038 12038# 12039 12042 12043 12054 12055 12060 12061 12063 12064 12069 12069# 12070 12073 12074 12085 12086 12091 12092 12094 12095 12100 12100# 12101 12104 12105 12116 12117 12122 12123 12125 12126 12131 12131# 12132 12135 12136 12147 12148 12153 12154 12156 12157 12162 12162# 12163 12166 12167 12178 12179 12184 12185 12187 12188 12193 12193# 12194 12197 12198 12209 12210 12215 12216 12218 12219 12224 12224# 12225 12228 12229 12240 12241 12246 12247 12249 12250 12255 12255# 12256 12259 12260 12271 12272 12277 12278 12280 12281 12286 12286# 12287 12290 12291 12302 12303 12308 12309 12311 12312 12317 12317# 12318 12321 12322 12333 12334 12339 12340 12342 12343 12348 12348# 12349 12352 12353 12364 12365 12370 12371 12373 12374 12379 12379# 12380 12383 12384 12395 12396 12401 12402 12404 12405 12410 12410# 12411 12414 12415 12426 12427 12432 12433 12435 12436 12441 12441# 12442 12445 12446 12457 12458 12463 12464 12466 12467 12477# 12490 12490# 12491 12491# 12494 12495 12502 12503 12512 12513 12521 12521# 12522 12525 12526 12533 12534 12543 12544 12552 12552# 12553 12556 12557 12564 12565 12574 12575 12583 12583# 12584 12587 12588 12595 12596 12605 12606 12614 12614# 12615 12618 12619 12626 12627 12636 12637 12645 12645# 12646 12649 12650 12657 12658 12667 12668 12676 12676# 12677 12680 12681 12688 12689 12698 12699 12707 12707# 12708 12711 12712 12719 12720 12729 12730 12738 12738# 12739 12742 12743 12750 12751 12760 12761 12769 12769# 12770 12773 12774 12781 12782 12791 12792 12800 12800# 12801 12804 12805 12812 12813 12822 12823 12831 12831# 12832 12835 12836 12843 12844 12853 12854 12862 12862# 12863 12866 12867 12874 12875 12884 12885 12893 12893# 12894 12897 12898 12905 12906 12915 12916 12924 12924# 12925 12928 12929 12936 12937 12946 12947 12955 12955# 12956 12959 12960 12967 12968 12977 12978 12986 12986# 12987 12990 12991 12998 12999 13008 13009 13017 13017# 13018 13021 13022 13029 13030 13039 13040 13048 13048# 13049 13052 13053 13060 13061 13070 13071 13079 13079# 13080 13083 13084 13091 13092 13101 13102 13110 13110# 13111 13114 13115 13122 13123 13132 13133 13141 13141# 13142 13145 13146 13153 13154 13163 13164 13172 13172# 13173 13176 13177 13184 13185 13194 13195 13203 13203# 13204 13207 13208 13215 13216 13225 13226 13234 13234# 13235 13238 13239 13246 13247 13256 13257 13265 13265# 13266 13269 13270 13277 13278 13287 13288 13296 13296# 13297 13300 13301 13308 13309 13318 13319 13327 13327# 13328 13331 13332 13339 13340 13349 13350 SEQ 0388 13358 13358# 13359 13362 13363 13370 13371 13380 13381 13389 13389# 13390 13393 13394 13401 13402 13411 13412 13420 13420# 13421 13424 13425 13432 13433 13442 13443 13451 13451# 13452 13455 13456 13463 13464 13473 13474 13482 13482# 13483 13486 13487 13494 13495 13504 13505 13513 13513# 13514 13517 13518 13525 13526 13535 13536 13544 13544# 13545 13548 13549 13556 13557 13566 13567 13575 13575# 13576 13579 13580 13587 13588 13597 13598 13611# 13625 13625# 13626 13626# 13629 13630 13631 13642 13643 13651 13652 13657 13657# 13658 13661 13662 13663 13674 13675 13683 13684 13689 13689# 13690 13693 13694 13695 13706 13707 13715 13716 13721 13721# 13722 13725 13726 13727 13738 13739 13747 13748 13753 13753# 13754 13757 13758 13759 13770 13771 13779 13780 13785 13785# 13786 13789 13790 13791 13802 13803 13811 13812 13817 13817# 13818 13821 13822 13823 13834 13835 13843 13844 13849 13849# 13850 13853 13854 13855 13866 13867 13875 13876 13881 13881# 13882 13885 13886 13887 13898 13899 13907 13908 13913 13913# 13914 13917 13918 13919 13930 13931 13939 13940 13945 13945# 13946 13949 13950 13951 13962 13963 13971 13972 13977 13977# 13978 13981 13982 13983 13994 13995 14003 14004 14009 14009# 14010 14013 14014 14015 14026 14027 14035 14036 14041 14041# 14042 14045 14046 14047 14058 14059 14067 14068 14073 14073# 14074 14077 14078 14079 14090 14091 14099 14100 14105 14105# 14106 14109 14110 14111 14122 14123 14131 14132 14137 14137# 14138 14141 14142 14143 14154 14155 14163 14164 14169 14169# 14170 14173 14174 14175 14186 14187 14195 14196 14201 14201# 14202 14205 14206 14207 14218 14219 14227 14228 14233 14233# 14234 14237 14238 14239 14250 14251 14259 14260 14265 14265# 14266 14269 14270 14271 14282 14283 14291 14292 14297 14297# 14298 14301 14302 14303 14314 14315 14323 14324 14329 14329# 14330 14333 14334 14335 14346 14347 14355 14356 14361 14361# 14362 14365 14366 14367 14378 14379 14387 14388 14393 14393# 14394 14397 14398 14399 14410 14411 14419 14420 14425 14425# 14426 14429 14430 14431 14442 14443 14451 14452 14457 14457# 14458 14461 14462 14463 14474 14475 14483 14484 14489 14489# 14490 14493 14494 14495 14506 14507 14515 14516 14521 14521# 14522 14525 14526 14527 14538 14539 14547 14548 14553 14553# 14554 14557 14558 14559 14570 14571 14579 14580 14585 14585# 14586 14589 14590 14591 14602 14603 14611 14612 14617 14617# 14618 14621 14622 14623 14634 14635 14643 14644 14649 14649# 14650 14653 14654 14655 14666 14667 14675 14676 14681 14681# 14682 14685 14686 14687 14698 14699 14707 14708 14713 14713# 14714 14717 14718 14719 14730 14731 14739 14740 14745 14745# 14746 14749 14750 14751 14762 14763 14771 14772 14782# 14796 14796# 14797 14797# 14800 14801 14802 14809 14810 14828 14828# 14829 14832 14833 14834 14841 14842 14860 14860# 14861 14864 14865 14866 14873 14874 14892 14892# 14893 14896 14897 14898 14905 14906 14924 14924# 14925 14928 14929 14930 14937 14938 14956 14956# 14957 14960 14961 14962 14969 14970 14988 14988# 14989 14992 14993 14994 15001 15002 15020 15020# 15021 15024 15025 15026 15033 15034 15052 15052# 15053 15056 15057 15058 15065 15066 15084 15084# 15085 15088 15089 15090 15097 15098 15116 15116# 15117 15120 15121 15122 15129 15130 15148 15148# 15149 15152 15153 15154 15161 15162 15180 15180# 15181 15184 15185 15186 15193 15194 15212 15212# 15213 15216 15217 15218 15225 15226 15244 15244# 15245 15248 15249 15250 15257 15258 15276 15276# 15277 15280 15281 15282 15289 15290 15308 15308# 15309 15312 15313 15314 15321 15322 15340 15340# 15341 15344 15345 15346 15353 15354 15372 15372# 15373 15376 15377 15378 15385 15386 15404 15404# 15405 15408 15409 15410 15417 15418 15436 15436# 15437 15440 15441 15442 15449 15450 15468 15468# 15469 15472 15473 15474 15481 15482 15500 15500# 15501 15504 15505 15506 15513 15514 15532 15532# 15533 15536 15537 15538 15545 15546 15564 15564# 15565 15568 15569 15570 15577 15578 15596 15596# 15597 15600 15601 15602 15609 15610 15628 15628# 15629 15632 15633 15634 15641 15642 15660 15660# 15661 15664 15665 15666 15673 15674 15692 15692# 15693 15696 15697 15698 15705 15706 15724 15724# 15725 15728 15729 15730 15737 15738 15756 15756# 15757 15760 15761 15762 15769 15770 15788 15788# 15789 15792 15793 15794 15801 15802 15820 15820# 15821 15824 15825 15826 15833 15834 15852 15852# 15853 15856 15857 15858 15865 15866 15884 15884# 15885 15888 15889 15890 15897 15898 15916 15916# 15917 15920 15921 15922 15929 15930 15956# 15977 15977# 15979 15980 15980# 15986 15987 15994 15995 16014 16014# 16016 16017 16023 16024 16031 16032 SEQ 0389 16051 16051# 16053 16054 16060 16061 16068 16069 16088 16088# 16090 16091 16097 16098 16105 16106 16125 16125# 16127 16128 16134 16135 16142 16143 16162 16162# 16164 16165 16171 16172 16179 16180 16199 16199# 16201 16202 16208 16209 16216 16217 16236 16236# 16238 16239 16245 16246 16253 16254 16273 16273# 16275 16276 16282 16283 16290 16291 16310 16310# 16312 16313 16319 16320 16327 16328 16347 16347# 16349 16350 16356 16357 16364 16365 16384 16384# 16386 16387 16393 16394 16401 16402 16421 16421# 16423 16424 16430 16431 16438 16439 16458 16458# 16460 16461 16467 16468 16475 16476 16495 16495# 16497 16498 16504 16505 16512 16513 16532 16532# 16534 16535 16541 16542 16549 16550 16569 16569# 16571 16572 16578 16579 16586 16587 16606 16606# 16608 16609 16615 16616 16623 16624 16643 16643# 16645 16646 16652 16653 16660 16661 16680 16680# 16682 16683 16689 16690 16697 16698 16717 16717# 16719 16720 16726 16727 16734 16735 16754 16754# 16756 16757 16763 16764 16771 16772 16791 16791# 16793 16794 16800 16801 16808 16809 16828 16828# 16830 16831 16837 16838 16845 16846 16865 16865# 16867 16868 16874 16875 16882 16883 16902 16902# 16904 16905 16911 16912 16919 16920 16939 16939# 16941 16942 16948 16949 16956 16957 16976 16976# 16978 16979 16985 16986 16993 16994 17013 17013# 17015 17016 17022 17023 17030 17031 17050 17050# 17052 17053 17059 17060 17067 17068 17087 17087# 17089 17090 17096 17097 17104 17105 17124 17124# 17126 17127 17133 17134 17141 17142 17161 17161# 17163 17164 17170 17171 17178 17179 17198 17198# 17200 17201 17207 17208 17215 17216 17235 17235# 17237 17238 17244 17245 17252 17253 17272 17272# 17274 17275 17281 17282 17289 17290 ZZ 15957# 15978 15978# 15979# 15984 16015 16015# 16021 16052 16052# 16058 16089 16089# 16095 16126 16126# 16132 16163 16163# 16169 16200 16200# 16206 16237 16237# 16243 16274 16274# 16280 16311 16311# 16317 16348 16348# 16354 16385 16385# 16391 16422 16422# 16428 16459 16459# 16465 16496 16496# 16502 16533 16533# 16539 16570 16570# 16576 16607 16607# 16613 16644 16644# 16650 16681 16681# 16687 16718 16718# 16724 16755 16755# 16761 16792 16792# 16798 16829 16829# 16835 16866 16866# 16872 16903 16903# 16909 16940 16940# 16946 16977 16977# 16983 17014 17014# 17020 17051 17051# 17057 17088 17088# 17094 17125 17125# 17131 17162 17162# 17168 17199 17199# 17205 17236 17236# 17242 17273 17273# 17279 $$MUUO 680# $$OUTE 686# $$TAX1 698# $$TAX2 699# $$TOGG 692# $$UUO 669# $ACC0 507# $ACF 17409# $BEND1 477# $BEND2 71 478# 17462 $CHRIN 568# $CRLF 570# $DEVCH 394# $DSKUP 447# $DVOFF 564# $EMODE 445# $FFF 572# $IBUF 620# $INEXT 622# $INNM 621# $ITRHL 488# $ITRX1 489# $LPAPE 17468 $MMAP 448# $MODVL 443# SEQ 0390 $MODVU 444# $OBUF 611# $ONETM 471# $OUTEX 613# $OUTNM 612# $PAPER 394 $PARER 495# $PNAME 441# $PSHER 499# $PVER 442# $RSRTX 491# $RSRTY 492# $SPAG1 511# $START 408# $SVAPR 509# $SVPAG 510# $SVPI 508# $SVUPC 514# 17316 17320 17346 $SVUUO 513# 17325 17357 17385 $TABF 571# $TTCHR 567# $TWCNT 563# $TYPNB 569# $UMODE 446# $UORTX 486# $USRHL 490# $UUOER 487# 528 $VTF 573# %AC1F 17410# %ACS1A 17327# 17327 17371 %ACTFL 520# %ACTUL 521# %ALF 17415# %AR1F 17414# %ARF 17413# %COREC 519# %CORFL 518# %DISCR 522# %E1F 17412# %EEF 17416# %EF 17411# %ER4X 17391 17396# %ER5X 17389 17398# %ER6X 17387 17400# %ER7X 17393# 17397 17399 17401 %ERAC0 17312# 17312 17328 17362 17452 %ERAC1 17313# 17313 17329 17440 %ERAC2 17314# 17314 17439 %ERFST 17335# 17335 17337 %ERHI1 661# %ERHI2 662# %ERHI3 663# %ERMOR 17367 17394 17423# SEQ 0391 %ERMS1 17332# 17458 %ERMS2 17355# %ERMS3 17373 17380# %ERRS1 17324 17426# 17457 %ERRS2 17439# %ERRS4 17331 17455# %ERRS5 17443 17447 17452# %ERRS6 17450 17460# %FF 17417# %FLTTB 17375 17406# %NODES 17407# .JB41 394# .JBAPR 394# .JBCNI 394# .JBDDT 394# .JBFF 394# .JBOPC 394# .JBREL 394# .JBREN 394# .JBSA 394# .JBSYM 394# .JBTPC 394# .JBUSY 394# .JBUUO 394# .JBVER 394# APRID 394# BCIO 394# SEQ 0392 BCIOB 394# BSIO 394# BSIOB 394# CFLUSH 316# CINVAL 315# CLOKOP 310# CLRPT 394# CWRTBI 317# DROPDV 277# 723 ENDUUO 323# 476 EOPUUO 324# 478 ER1 34# ER10 41# ER11 42# ER12 43# ER13 44# ER2 35# ER3 36# 778 824 853 882 911 940 969 998 1027 1056 1085 1114 1143 1172 1201 1230 1259 1288 1317 1346 1375 1404 1433 1462 1491 1520 1549 1578 1607 1636 1665 1694 1723 1752 1781 1810 1839 1884 1913 1942 1971 2000 2029 2058 2087 2116 2145 2174 2203 2232 2261 2290 2319 2348 2377 2406 2435 2464 2493 2522 2551 2580 2609 2638 2667 2696 2725 2754 2783 2812 2841 2870 2899 2932 3000 3039 3078 3117 3156 3195 3234 3273 3312 3351 3390 3429 3468 3507 3546 3585 3663 3708 3753 3798 3843 3888 3933 3978 4023 4068 4113 4158 4203 4248 4293 4338 4385 4414 4443 4472 4501 4530 4559 4588 4617 4646 4675 4704 4733 4762 4791 4820 4849 4878 4907 4936 4965 4994 5023 5052 5081 5110 5139 5168 5197 5226 5255 5284 5313 5342 5371 5400 5445 5474 5503 5532 5561 5590 5619 5648 5677 5706 5735 5764 5793 5822 5851 5880 5909 5938 5967 5996 6025 6054 6083 6112 6141 6170 6199 6228 6257 6286 6315 6344 6373 6402 6431 6460 6493 6545 6576 6607 6638 6669 6700 6731 6762 6793 6824 6855 6886 6917 6948 6979 7010 7041 7072 7103 7134 7165 7196 7227 7258 7289 7320 7351 7382 7413 7444 7475 7506 7537 7568 7599 7630 7679 7710 7741 7772 7803 7834 7865 7896 7927 7958 7989 8020 8051 8082 8113 8144 8175 8206 8237 8268 8299 8330 8361 8392 8423 8454 8485 8516 8547 8578 8609 8640 8671 8702 8733 8764 8821 8856 8891 8926 8961 8996 9031 9066 9101 9136 9171 9206 9241 9276 9311 9346 9381 9416 9451 9486 9521 9556 9591 9626 9661 9696 9731 9766 9801 9836 9871 9906 9941 9976 10011 10046 10103 10138 10173 10208 10243 10278 10313 10348 10383 10418 10453 10488 10523 10558 10593 10628 10663 10698 10733 10768 10803 10838 10873 10908 10943 10978 11013 11048 11083 11118 11153 11188 11223 11258 11293 11328 11377 11408 11439 11470 11501 11532 11563 11594 11625 11656 11687 11718 11749 11780 11811 11842 11873 11904 11935 11966 11997 12028 12059 12090 12121 12152 12183 12214 12245 12276 12307 12338 12369 12400 12431 12462 12511 12542 12573 12604 12635 12666 12697 12728 12759 12790 12821 12852 12883 12914 12945 12976 13007 13038 13069 13100 13131 13162 13193 13224 13255 13286 13317 13348 13379 13410 13441 13472 13503 13534 13565 13596 13647 13679 13711 13743 13775 13807 13839 13871 13903 13935 13967 13999 14031 14063 14095 14127 14159 14191 14223 14255 14287 14319 14351 14383 14415 14447 14479 14511 14543 14575 14607 14639 14671 14703 14735 14767 14818 14850 14882 14914 14946 14978 15010 15042 15074 15106 15138 15170 15202 15234 15266 15298 15330 15362 15394 15426 15458 15490 15522 15554 15586 15618 15650 15682 15714 15746 15778 15810 15842 15874 15906 15938 16003 16040 16077 16114 16151 16188 16225 16262 16299 16336 16373 16410 16447 16484 16521 16558 16595 16632 16669 16706 16743 16780 16817 16854 16891 16928 16965 17002 17039 17076 17113 17150 17187 17224 17261 17298 SEQ 0393 ER4 37# 781 827 856 885 914 943 972 1001 1030 1059 1088 1117 1146 1175 1204 1233 1262 1291 1320 1349 1378 1407 1436 1465 1494 1523 1552 1581 1610 1639 1668 1697 1726 1755 1784 1813 1842 1887 1916 1945 1974 2003 2032 2061 2090 2119 2148 2177 2206 2235 2264 2293 2322 2351 2380 2409 2438 2467 2496 2525 2554 2583 2612 2641 2670 2699 2728 2757 2786 2815 2844 2873 2902 2935 3003 3042 3081 3120 3159 3198 3237 3276 3315 3354 3393 3432 3471 3510 3549 3588 3666 3711 3756 3801 3846 3891 3936 3981 4026 4071 4116 4161 4206 4251 4296 4341 4388 4417 4446 4475 4504 4533 4562 4591 4620 4649 4678 4707 4736 4765 4794 4823 4852 4881 4910 4939 4968 4997 5026 5055 5084 5113 5142 5171 5200 5229 5258 5287 5316 5345 5374 5403 5448 5477 5506 5535 5564 5593 5622 5651 5680 5709 5738 5767 5796 5825 5854 5883 5912 5941 5970 5999 6028 6057 6086 6115 6144 6173 6202 6231 6260 6289 6318 6347 6376 6405 6434 6463 6496 6548 6579 6610 6641 6672 6703 6734 6765 6796 6827 6858 6889 6920 6951 6982 7013 7044 7075 7106 7137 7168 7199 7230 7261 7292 7323 7354 7385 7416 7447 7478 7509 7540 7571 7602 7633 7682 7713 7744 7775 7806 7837 7868 7899 7930 7961 7992 8023 8054 8085 8116 8147 8178 8209 8240 8271 8302 8333 8364 8395 8426 8457 8488 8519 8550 8581 8612 8643 8674 8705 8736 8767 8824 8859 8894 8929 8964 8999 9034 9069 9104 9139 9174 9209 9244 9279 9314 9349 9384 9419 9454 9489 9524 9559 9594 9629 9664 9699 9734 9769 9804 9839 9874 9909 9944 9979 10014 10049 10106 10141 10176 10211 10246 10281 10316 10351 10386 10421 10456 10491 10526 10561 10596 10631 10666 10701 10736 10771 10806 10841 10876 10911 10946 10981 11016 11051 11086 11121 11156 11191 11226 11261 11296 11331 11380 11411 11442 11473 11504 11535 11566 11597 11628 11659 11690 11721 11752 11783 11814 11845 11876 11907 11938 11969 12000 12031 12062 12093 12124 12155 12186 12217 12248 12279 12310 12341 12372 12403 12434 12465 12514 12545 12576 12607 12638 12669 12700 12731 12762 12793 12824 12855 12886 12917 12948 12979 13010 13041 13072 13103 13134 13165 13196 13227 13258 13289 13320 13351 13382 13413 13444 13475 13506 13537 13568 13599 13650 13682 13714 13746 13778 13810 13842 13874 13906 13938 13970 14002 14034 14066 14098 14130 14162 14194 14226 14258 14290 14322 14354 14386 14418 14450 14482 14514 14546 14578 14610 14642 14674 14706 14738 14770 14821 14853 14885 14917 14949 14981 15013 15045 15077 15109 15141 15173 15205 15237 15269 15301 15333 15365 15397 15429 15461 15493 15525 15557 15589 15621 15653 15685 15717 15749 15781 15813 15845 15877 15909 15941 16006 16043 16080 16117 16154 16191 16228 16265 16302 16339 16376 16413 16450 16487 16524 16561 16598 16635 16672 16709 16746 16783 16820 16857 16894 16931 16968 17005 17042 17079 17116 17153 17190 17227 17264 17301 ER5 38# 784 830 859 888 917 946 975 1004 1033 1062 1091 1120 1149 1178 1207 1236 1265 1294 1323 1352 1381 1410 1439 1468 1497 1526 1555 1584 1613 1642 1671 1700 1729 1758 1787 1816 1845 1890 1919 1948 1977 2006 2035 2064 2093 2122 2151 2180 2209 2238 2267 2296 2325 2354 2383 2412 2441 2470 2499 2528 2557 2586 2615 2644 2673 2702 2731 2760 2789 2818 2847 2876 2905 2938 3006 3045 3084 3123 3162 3201 3240 3279 3318 3357 3396 3435 3474 3513 3552 3591 3669 3714 3759 3804 3849 3894 3939 3984 4029 4074 4119 4164 4209 4254 4299 4344 4391 4420 4449 4478 4507 4536 4565 4594 4623 4652 4681 4710 4739 4768 4797 4826 4855 4884 4913 4942 4971 5000 5029 5058 5087 5116 5145 5174 5203 5232 5261 5290 5319 5348 5377 5406 5451 5480 5509 5538 5567 5596 5625 5654 5683 5712 5741 5770 5799 5828 5857 5886 5915 5944 5973 6002 6031 6060 6089 6118 6147 6176 6205 6234 6263 6292 6321 6350 6379 6408 6437 6466 6499 6551 6582 6613 6644 6675 6706 6737 6768 6799 6830 6861 6892 6923 6954 6985 7016 7047 7078 7109 7140 7171 7202 7233 7264 7295 7326 7357 7388 7419 7450 7481 7512 7543 7574 7605 7636 7685 7716 7747 7778 7809 7840 7871 7902 7933 7964 7995 8026 8057 8088 8119 8150 8181 8212 8243 8274 8305 8336 SEQ 0394 8367 8398 8429 8460 8491 8522 8553 8584 8615 8646 8677 8708 8739 8770 8827 8862 8897 8932 8967 9002 9037 9072 9107 9142 9177 9212 9247 9282 9317 9352 9387 9422 9457 9492 9527 9562 9597 9632 9667 9702 9737 9772 9807 9842 9877 9912 9947 9982 10017 10052 10109 10144 10179 10214 10249 10284 10319 10354 10389 10424 10459 10494 10529 10564 10599 10634 10669 10704 10739 10774 10809 10844 10879 10914 10949 10984 11019 11054 11089 11124 11159 11194 11229 11264 11299 11334 11383 11414 11445 11476 11507 11538 11569 11600 11631 11662 11693 11724 11755 11786 11817 11848 11879 11910 11941 11972 12003 12034 12065 12096 12127 12158 12189 12220 12251 12282 12313 12344 12375 12406 12437 12468 12517 12548 12579 12610 12641 12672 12703 12734 12765 12796 12827 12858 12889 12920 12951 12982 13013 13044 13075 13106 13137 13168 13199 13230 13261 13292 13323 13354 13385 13416 13447 13478 13509 13540 13571 13602 13653 13685 13717 13749 13781 13813 13845 13877 13909 13941 13973 14005 14037 14069 14101 14133 14165 14197 14229 14261 14293 14325 14357 14389 14421 14453 14485 14517 14549 14581 14613 14645 14677 14709 14741 14773 14824 14856 14888 14920 14952 14984 15016 15048 15080 15112 15144 15176 15208 15240 15272 15304 15336 15368 15400 15432 15464 15496 15528 15560 15592 15624 15656 15688 15720 15752 15784 15816 15848 15880 15912 15944 16009 16046 16083 16120 16157 16194 16231 16268 16305 16342 16379 16416 16453 16490 16527 16564 16601 16638 16675 16712 16749 16786 16823 16860 16897 16934 16971 17008 17045 17082 17119 17156 17193 17230 17267 17304 ER6 39# ER7 40# ERLOOP 364# ERLP1 365# ERLP2 366# ERRHLT 211# 17433 ERROR 373# ERROR1 384# ERUUO 363# FATAL 210# FRD36 352# FRD8 353# FREAD 351# FSELEC 350# GET 194# GO 191# HALT 196# 497 JEN 198# JRSTF 197# MAPADR 333# MAPCNK 334# MAPMEM 330# MAPPNT 336# MAPSET 335# MEMSEG 332# MEMZRO 331# MODPCP 343# MODPCU 342# MOP1 97# 763 809 838 867 896 925 954 983 1012 1041 1070 1099 1128 1157 1186 1215 1244 1273 1302 1331 1360 1389 1418 1447 1476 1505 1534 1563 1592 1621 1650 1679 1708 1737 1766 1795 1824 1869 1898 1927 1956 1985 2014 2043 2072 2101 2130 2159 2188 2217 2246 2275 2304 2333 2362 2391 2420 2449 2478 2507 2536 2565 2594 2623 2652 2681 2710 2739 2768 2797 2826 2855 2884 2917 2985 3024 3063 3102 3141 3180 3219 3258 3297 SEQ 0395 3336 3375 3414 3453 3492 3531 3570 3648 3693 3738 3783 3828 3873 3918 3963 4008 4053 4098 4143 4188 4233 4278 4323 4370 4399 4428 4457 4486 4515 4544 4573 4602 4631 4660 4689 4718 4747 4776 4805 4834 4863 4892 4921 4950 4979 5008 5037 5066 5095 5124 5153 5182 5211 5240 5269 5298 5327 5356 5385 5430 5459 5488 5517 5546 5575 5604 5633 5662 5691 5720 5749 5778 5807 5836 5865 5894 5923 5952 5981 6010 6039 6068 6097 6126 6155 6184 6213 6242 6271 6300 6329 6358 6387 6416 6445 6478 6530 6561 6592 6623 6654 6685 6716 6747 6778 6809 6840 6871 6902 6933 6964 6995 7026 7057 7088 7119 7150 7181 7212 7243 7274 7305 7336 7367 7398 7429 7460 7491 7522 7553 7584 7615 7664 7695 7726 7757 7788 7819 7850 7881 7912 7943 7974 8005 8036 8067 8098 8129 8160 8191 8222 8253 8284 8315 8346 8377 8408 8439 8470 8501 8532 8563 8594 8625 8656 8687 8718 8749 8806 8841 8876 8911 8946 8981 9016 9051 9086 9121 9156 9191 9226 9261 9296 9331 9366 9401 9436 9471 9506 9541 9576 9611 9646 9681 9716 9751 9786 9821 9856 9891 9926 9961 9996 10031 10088 10123 10158 10193 10228 10263 10298 10333 10368 10403 10438 10473 10508 10543 10578 10613 10648 10683 10718 10753 10788 10823 10858 10893 10928 10963 10998 11033 11068 11103 11138 11173 11208 11243 11278 11313 11362 11393 11424 11455 11486 11517 11548 11579 11610 11641 11672 11703 11734 11765 11796 11827 11858 11889 11920 11951 11982 12013 12044 12075 12106 12137 12168 12199 12230 12261 12292 12323 12354 12385 12416 12447 12496 12527 12558 12589 12620 12651 12682 12713 12744 12775 12806 12837 12868 12899 12930 12961 12992 13023 13054 13085 13116 13147 13178 13209 13240 13271 13302 13333 13364 13395 13426 13457 13488 13519 13550 13581 13632 13664 13696 13728 13760 13792 13824 13856 13888 13920 13952 13984 14016 14048 14080 14112 14144 14176 14208 14240 14272 14304 14336 14368 14400 14432 14464 14496 14528 14560 14592 14624 14656 14688 14720 14752 14803 14835 14867 14899 14931 14963 14995 15027 15059 15091 15123 15155 15187 15219 15251 15283 15315 15347 15379 15411 15443 15475 15507 15539 15571 15603 15635 15667 15699 15731 15763 15795 15827 15859 15891 15923 15988 16025 16062 16099 16136 16173 16210 16247 16284 16321 16358 16395 16432 16469 16506 16543 16580 16617 16654 16691 16728 16765 16802 16839 16876 16913 16950 16987 17024 17061 17098 17135 17172 17209 17246 17283 MTROP 311# NAME 8# 11 PBELL 286# 17437 PCRL 280# 17374 17393 PCRL2 284# PCRL2F 285# PCRLF 281# PFORCE 288# PGMINT 204# 745 PJRST 195# PMSG 290# 17340 17344 17355 17380 PMSGF 293# 17460 PNT1 246# PNT11 260# PNT11F 261# PNT1F 247# PNT2 248# PNT2F 249# PNT3 250# 17392 PNT3F 251# PNT4 252# 17396 PNT4F 253# PNT5 254# 17398 SEQ 0396 PNT5F 255# PNT6 256# 17348 17400 PNT6F 257# PNT7 258# PNT7F 259# PNTA 232# 17383 PNTADF 263# PNTADR 262# PNTAF 233# PNTAL 234# 17376 PNTALF 235# PNTCHF 245# PNTCHR 244# PNTCI 242# PNTCIF 243# PNTCW 278# PNTCWF 279# PNTDCF 271# PNTDEC 270# 17343 PNTDS 272# PNTDSF 273# PNTHW 266# 17363 PNTHWF 267# PNTMSF 239# PNTMSG 238# PNTNM 274# 17336 PNTOCF 269# PNTOCS 268# PNTOCT 264# PNTOTF 265# PNTSIX 275# PNTSXF 276# PSIXL 236# PSIXLF 237# PSIXM 240# 17341 17345 17356 17381 PSIXMF 241# 17461 PSP 282# PSPF 283# PUT 193# RDAPR 394# RDCSB 394# RDCSTM 394# RDEBR 394# RDHSB 394# RDINT 394# RDIO 394# RDIOB 394# RDPI 394# RDPUR 394# RDSPB 394# RDTIM 394# RDUBR 394# REPTUO 367# SEQ 0397 RTN 192# 484 S 122# 124 128 157 159 168 171 186 187 189 200 202 206 208 213 217 359 361 394 399 405 432 434 452 454 472 474 503 505 523 525 543 545 553 555 576 581 607 609 616 618 624 626 632 634 638 640 645 647 651 653 657 659 665 667 670 672 676 678 682 684 688 690 694 696 701 703 707 709 713 715 717 719 SAVEAC 92# 756 789 1849 2910 2944 3595 4350 5410 6470 6505 7640 8774 10056 11338 12472 13606 14777 15950 SIXBTZ 299# SWITCH 305# 17322 17424 TIOE 394# TIOEB 394# TION 394# TIONB 394# TTALTM 226# 17426 TTICHR 219# TTICLR 229# TTICNV 224# TTIDEC 223# TTINO 221# TTIOCT 222# TTIYES 220# TTLOOK 225# TTSIXB 227# TTYINP 228# WRAPR 394# WRCSB 394# WRCSTM 394# WREBR 394# WRHSB 394# WRINT 394# WRIO 394# WRIOB 394# WRPI 394# WRPUR 394# WRSPB 394# WRTIM 394# WRUBR 394# ANDI 17359 AOS 482 17315 17318 17444 17445 SEQ 0398 ASCII 583 585 588 589 590 591 593 594 595 596 597 598 600 601 602 ASCIZ 726 746 17409 17410 17411 17412 17413 17414 17415 17416 17417 BLOCK 551 611 614 620 623 629 17743 BYTE 599 CAIG 17361 17372 CAIL 17449 CAME 777 780 783 823 826 829 852 855 858 881 884 887 910 913 916 939 942 945 968 971 974 997 1000 1003 1026 1029 1032 1055 1058 1061 1084 1087 1090 1113 1116 1119 1142 1145 1148 1171 1174 1177 1200 1203 1206 1229 1232 1235 1258 1261 1264 1287 1290 1293 1316 1319 1322 1345 1348 1351 1374 1377 1380 1403 1406 1409 1432 1435 1438 1461 1464 1467 1490 1493 1496 1519 1522 1525 1548 1551 1554 1577 1580 1583 1606 1609 1612 1635 1638 1641 1664 1667 1670 1693 1696 1699 1722 1725 1728 1751 1754 1757 1780 1783 1786 1809 1812 1815 1838 1841 1844 1883 1886 1889 1912 1915 1918 1941 1944 1947 1970 1973 1976 1999 2002 2005 2028 2031 2034 2057 2060 2063 2086 2089 2092 2115 2118 2121 2144 2147 2150 2173 2176 2179 2202 2205 2208 2231 2234 2237 2260 2263 2266 2289 2292 2295 2318 2321 2324 2347 2350 2353 2376 2379 2382 2405 2408 2411 2434 2437 2440 2463 2466 2469 2492 2495 2498 2521 2524 2527 2550 2553 2556 2579 2582 2585 2608 2611 2614 2637 2640 2643 2666 2669 2672 2695 2698 2701 2724 2727 2730 2753 2756 2759 2782 2785 2788 2811 2814 2817 2840 2843 2846 2869 2872 2875 2898 2901 2904 2931 2934 2937 2999 3002 3005 3038 3041 3044 3077 3080 3083 3116 3119 3122 3155 3158 3161 3194 3197 3200 3233 3236 3239 3272 3275 3278 3311 3314 3317 3350 3353 3356 3389 3392 3395 3428 3431 3434 3467 3470 3473 3506 3509 3512 3545 3548 3551 3584 3587 3590 3662 3665 3668 3707 3710 3713 3752 3755 3758 3797 3800 3803 3842 3845 3848 3887 3890 3893 3932 3935 3938 3977 3980 3983 4022 4025 4028 4067 4070 4073 4112 4115 4118 4157 4160 4163 4202 4205 4208 4247 4250 4253 4292 4295 4298 4337 4340 4343 4384 4387 4390 4413 4416 4419 4442 4445 4448 4471 4474 4477 4500 4503 4506 4529 4532 4535 4558 4561 4564 4587 4590 4593 4616 4619 4622 4645 4648 4651 4674 4677 4680 4703 4706 4709 4732 4735 4738 4761 4764 4767 4790 4793 4796 4819 4822 4825 4848 4851 4854 4877 4880 4883 4906 4909 4912 4935 4938 4941 4964 4967 4970 4993 4996 4999 5022 5025 5028 5051 5054 5057 5080 5083 5086 5109 5112 5115 5138 5141 5144 5167 5170 5173 5196 5199 5202 5225 5228 5231 5254 5257 5260 5283 5286 5289 5312 5315 5318 5341 5344 5347 5370 5373 5376 5399 5402 5405 5444 5447 5450 5473 5476 5479 5502 5505 5508 5531 5534 5537 5560 5563 5566 5589 5592 5595 5618 5621 5624 5647 5650 5653 5676 5679 5682 5705 5708 5711 5734 5737 5740 5763 5766 5769 5792 5795 5798 5821 5824 5827 5850 5853 5856 5879 5882 5885 5908 5911 5914 5937 5940 5943 5966 5969 5972 5995 5998 6001 6024 6027 6030 6053 6056 6059 6082 6085 6088 6111 6114 6117 6140 6143 6146 6169 6172 6175 6198 6201 6204 6227 6230 6233 6256 6259 6262 6285 6288 6291 6314 6317 6320 6343 6346 6349 6372 6375 6378 6401 6404 6407 6430 6433 6436 6459 6462 6465 6492 6495 6498 6544 6547 6550 6575 6578 6581 6606 6609 6612 6637 6640 6643 6668 6671 6674 6699 6702 6705 6730 6733 6736 6761 6764 6767 6792 6795 6798 6823 6826 6829 6854 6857 6860 6885 6888 6891 6916 6919 6922 6947 6950 6953 6978 6981 6984 7009 7012 7015 7040 7043 7046 7071 7074 7077 7102 7105 7108 7133 7136 7139 7164 7167 7170 7195 7198 7201 7226 7229 7232 7257 7260 7263 7288 7291 7294 7319 7322 7325 7350 7353 7356 7381 7384 7387 7412 7415 7418 7443 7446 7449 7474 7477 7480 7505 7508 7511 7536 7539 7542 7567 7570 7573 7598 7601 7604 7629 7632 SEQ 0399 7635 7678 7681 7684 7709 7712 7715 7740 7743 7746 7771 7774 7777 7802 7805 7808 7833 7836 7839 7864 7867 7870 7895 7898 7901 7926 7929 7932 7957 7960 7963 7988 7991 7994 8019 8022 8025 8050 8053 8056 8081 8084 8087 8112 8115 8118 8143 8146 8149 8174 8177 8180 8205 8208 8211 8236 8239 8242 8267 8270 8273 8298 8301 8304 8329 8332 8335 8360 8363 8366 8391 8394 8397 8422 8425 8428 8453 8456 8459 8484 8487 8490 8515 8518 8521 8546 8549 8552 8577 8580 8583 8608 8611 8614 8639 8642 8645 8670 8673 8676 8701 8704 8707 8732 8735 8738 8763 8766 8769 8820 8823 8826 8855 8858 8861 8890 8893 8896 8925 8928 8931 8960 8963 8966 8995 8998 9001 9030 9033 9036 9065 9068 9071 9100 9103 9106 9135 9138 9141 9170 9173 9176 9205 9208 9211 9240 9243 9246 9275 9278 9281 9310 9313 9316 9345 9348 9351 9380 9383 9386 9415 9418 9421 9450 9453 9456 9485 9488 9491 9520 9523 9526 9555 9558 9561 9590 9593 9596 9625 9628 9631 9660 9663 9666 9695 9698 9701 9730 9733 9736 9765 9768 9771 9800 9803 9806 9835 9838 9841 9870 9873 9876 9905 9908 9911 9940 9943 9946 9975 9978 9981 10010 10013 10016 10045 10048 10051 10102 10105 10108 10137 10140 10143 10172 10175 10178 10207 10210 10213 10242 10245 10248 10277 10280 10283 10312 10315 10318 10347 10350 10353 10382 10385 10388 10417 10420 10423 10452 10455 10458 10487 10490 10493 10522 10525 10528 10557 10560 10563 10592 10595 10598 10627 10630 10633 10662 10665 10668 10697 10700 10703 10732 10735 10738 10767 10770 10773 10802 10805 10808 10837 10840 10843 10872 10875 10878 10907 10910 10913 10942 10945 10948 10977 10980 10983 11012 11015 11018 11047 11050 11053 11082 11085 11088 11117 11120 11123 11152 11155 11158 11187 11190 11193 11222 11225 11228 11257 11260 11263 11292 11295 11298 11327 11330 11333 11376 11379 11382 11407 11410 11413 11438 11441 11444 11469 11472 11475 11500 11503 11506 11531 11534 11537 11562 11565 11568 11593 11596 11599 11624 11627 11630 11655 11658 11661 11686 11689 11692 11717 11720 11723 11748 11751 11754 11779 11782 11785 11810 11813 11816 11841 11844 11847 11872 11875 11878 11903 11906 11909 11934 11937 11940 11965 11968 11971 11996 11999 12002 12027 12030 12033 12058 12061 12064 12089 12092 12095 12120 12123 12126 12151 12154 12157 12182 12185 12188 12213 12216 12219 12244 12247 12250 12275 12278 12281 12306 12309 12312 12337 12340 12343 12368 12371 12374 12399 12402 12405 12430 12433 12436 12461 12464 12467 12510 12513 12516 12541 12544 12547 12572 12575 12578 12603 12606 12609 12634 12637 12640 12665 12668 12671 12696 12699 12702 12727 12730 12733 12758 12761 12764 12789 12792 12795 12820 12823 12826 12851 12854 12857 12882 12885 12888 12913 12916 12919 12944 12947 12950 12975 12978 12981 13006 13009 13012 13037 13040 13043 13068 13071 13074 13099 13102 13105 13130 13133 13136 13161 13164 13167 13192 13195 13198 13223 13226 13229 13254 13257 13260 13285 13288 13291 13316 13319 13322 13347 13350 13353 13378 13381 13384 13409 13412 13415 13440 13443 13446 13471 13474 13477 13502 13505 13508 13533 13536 13539 13564 13567 13570 13595 13598 13601 13646 13649 13652 13678 13681 13684 13710 13713 13716 13742 13745 13748 13774 13777 13780 13806 13809 13812 13838 13841 13844 13870 13873 13876 13902 13905 13908 13934 13937 13940 13966 13969 13972 13998 14001 14004 14030 14033 14036 14062 14065 14068 14094 14097 14100 14126 14129 14132 14158 14161 14164 14190 14193 14196 14222 14225 14228 14254 14257 14260 14286 14289 14292 14318 14321 14324 14350 14353 14356 14382 14385 14388 14414 14417 14420 14446 14449 14452 14478 14481 14484 14510 14513 14516 14542 14545 14548 14574 14577 14580 14606 14609 14612 14638 14641 14644 14670 14673 14676 14702 14705 14708 14734 14737 14740 14766 14769 14772 14817 14820 14823 14849 14852 14855 14881 14884 14887 14913 14916 14919 14945 14948 14951 14977 14980 14983 15009 15012 15015 15041 15044 15047 15073 15076 15079 15105 15108 15111 15137 15140 15143 15169 15172 15175 15201 15204 15207 15233 15236 15239 15265 15268 15271 15297 15300 15303 15329 15332 15335 15361 15364 15367 15393 15396 15399 15425 15428 15431 15457 15460 15463 15489 15492 15495 15521 15524 15527 15553 15556 15559 15585 15588 15591 15617 15620 15623 15649 15652 15655 15681 15684 15687 15713 15716 15719 15745 15748 15751 15777 15780 15783 SEQ 0400 15809 15812 15815 15841 15844 15847 15873 15876 15879 15905 15908 15911 15937 15940 15943 16002 16005 16008 16039 16042 16045 16076 16079 16082 16113 16116 16119 16150 16153 16156 16187 16190 16193 16224 16227 16230 16261 16264 16267 16298 16301 16304 16335 16338 16341 16372 16375 16378 16409 16412 16415 16446 16449 16452 16483 16486 16489 16520 16523 16526 16557 16560 16563 16594 16597 16600 16631 16634 16637 16668 16671 16674 16705 16708 16711 16742 16745 16748 16779 16782 16785 16816 16819 16822 16853 16856 16859 16890 16893 16896 16927 16930 16933 16964 16967 16970 17001 17004 17007 17038 17041 17044 17075 17078 17081 17112 17115 17118 17149 17152 17155 17186 17189 17192 17223 17226 17229 17260 17263 17266 17297 17300 17303 CAMN 17317 DEFINE 8 92 97 122 290 293 299 373 384 END 17751 HRL 17320 HRRZ 17316 17346 17385 IFDEF 394 445 446 447 448 17350 17420 17742 17749 IFE 806 835 864 893 922 951 980 1009 1038 1067 1096 1125 1154 1183 1212 1241 1270 1299 1328 1357 1386 1415 1444 1473 1502 1531 1560 1589 1618 1647 1676 1705 1734 1763 1792 1821 1866 1895 1924 1953 1982 2011 2040 2069 2098 2127 2156 2185 2214 2243 2272 2301 2330 2359 2388 2417 2446 2475 2504 2533 2562 2591 2620 2649 2678 2707 2736 2765 2794 2823 2852 2881 3642 3687 3732 3777 3822 3867 3912 3957 4002 4047 4092 4137 4182 4227 4272 4317 4367 4396 4425 4454 4483 4512 4541 4570 4599 4628 4657 4686 4715 4744 4773 4802 4831 4860 4889 4918 4947 4976 5005 5034 5063 5092 5121 5150 5179 5208 5237 5266 5295 5324 5353 5382 5427 5456 5485 5514 5543 5572 5601 5630 5659 5688 5717 5746 5775 5804 5833 5862 5891 5920 5949 5978 6007 6036 6065 6094 6123 6152 6181 6210 6239 6268 6297 6326 6355 6384 6413 6442 6525 6556 6587 6618 6649 6680 6711 6742 6773 6804 6835 6866 6897 6928 6959 6990 7021 7052 7083 7114 7145 7176 7207 7238 7269 7300 7331 7362 7393 7424 7455 7486 7517 7548 7579 7610 7659 7690 7721 7752 7783 7814 7845 7876 7907 7938 7969 8000 8031 8062 8093 8124 8155 8186 8217 8248 8279 8310 8341 8372 8403 8434 8465 8496 8527 8558 8589 8620 8651 8682 8713 8744 8797 8832 8867 8902 8937 8972 9007 9042 9077 9112 9147 9182 9217 9252 9287 9322 9357 9392 9427 9462 9497 9532 9567 9602 9637 9672 9707 9742 9777 9812 9847 9882 9917 9952 9987 10022 10079 10114 10149 10184 10219 10254 10289 10324 10359 10394 10429 10464 10499 10534 10569 10604 10639 10674 10709 10744 10779 10814 10849 10884 10919 10954 10989 11024 11059 11094 11129 11164 11199 11234 11269 11304 11357 11388 11419 11450 11481 11512 11543 11574 11605 11636 11667 11698 11729 11760 11791 11822 11853 11884 11915 11946 11977 12008 12039 12070 12101 12132 12163 12194 12225 12256 12287 12318 12349 12380 12411 12442 12491 12522 12553 12584 12615 12646 12677 12708 12739 12770 12801 12832 12863 12894 12925 12956 12987 13018 13049 13080 13111 13142 13173 13204 13235 13266 13297 13328 13359 13390 13421 13452 13483 13514 13545 13576 13626 13658 13690 13722 13754 13786 13818 13850 13882 13914 13946 13978 14010 14042 14074 14106 14138 14170 14202 14234 14266 14298 14330 14362 14394 14426 14458 14490 14522 14554 14586 14618 14650 14682 14714 14746 14797 14829 14861 14893 14925 14957 14989 15021 15053 15085 15117 15149 15181 15213 15245 15277 15309 15341 15373 15405 15437 15469 15501 15533 15565 15597 15629 15661 15693 15725 15757 15789 15821 15853 15885 15917 15979 15980 15985 16016 16017 16022 16053 16054 16059 16090 16091 16096 16127 16128 16133 16164 16165 16170 16201 16202 16207 16238 16239 16244 16275 16276 16281 16312 16313 16318 16349 16350 16355 16386 16387 16392 16423 16424 16429 16460 16461 16466 16497 16498 16503 16534 16535 16540 16571 16572 16577 16608 16609 16614 16645 16646 16651 16682 16683 16688 16719 16720 16725 16756 16757 16762 16793 16794 16799 16830 16831 16836 16867 16868 16873 16904 16905 16910 16941 16942 16947 16978 16979 16984 SEQ 0401 17015 17016 17021 17052 17053 17058 17089 17090 17095 17126 17127 17132 17163 17164 17169 17200 17201 17206 17237 17238 17243 17274 17275 17280 IFG 6528 6559 6590 6621 6652 6683 6714 6745 6776 6807 6838 6869 6900 6931 6962 6993 7024 7055 7086 7117 7148 7179 7210 7241 7272 7303 7334 7365 7396 7427 7458 7489 7520 7551 7582 7613 7662 7693 7724 7755 7786 7817 7848 7879 7910 7941 7972 8003 8034 8065 8096 8127 8158 8189 8220 8251 8282 8313 8344 8375 8406 8437 8468 8499 8530 8561 8592 8623 8654 8685 8716 8747 8800 8835 8870 8905 8940 8975 9010 9045 9080 9115 9150 9185 9220 9255 9290 9325 9360 9395 9430 9465 9500 9535 9570 9605 9640 9675 9710 9745 9780 9815 9850 9885 9920 9955 9990 10025 10082 10117 10152 10187 10222 10257 10292 10327 10362 10397 10432 10467 10502 10537 10572 10607 10642 10677 10712 10747 10782 10817 10852 10887 10922 10957 10992 11027 11062 11097 11132 11167 11202 11237 11272 11307 11361 11392 11423 11454 11485 11516 11547 11578 11609 11640 11671 11702 11733 11764 11795 11826 11857 11888 11919 11950 11981 12012 12043 12074 12105 12136 12167 12198 12229 12260 12291 12322 12353 12384 12415 12446 12495 12526 12557 12588 12619 12650 12681 12712 12743 12774 12805 12836 12867 12898 12929 12960 12991 13022 13053 13084 13115 13146 13177 13208 13239 13270 13301 13332 13363 13394 13425 13456 13487 13518 13549 13580 13631 13663 13695 13727 13759 13791 13823 13855 13887 13919 13951 13983 14015 14047 14079 14111 14143 14175 14207 14239 14271 14303 14335 14367 14399 14431 14463 14495 14527 14559 14591 14623 14655 14687 14719 14751 14802 14834 14866 14898 14930 14962 14994 15026 15058 15090 15122 15154 15186 15218 15250 15282 15314 15346 15378 15410 15442 15474 15506 15538 15570 15602 15634 15666 15698 15730 15762 15794 15826 15858 15890 15922 15987 16024 16061 16098 16135 16172 16209 16246 16283 16320 16357 16394 16431 16468 16505 16542 16579 16616 16653 16690 16727 16764 16801 16838 16875 16912 16949 16986 17023 17060 17097 17134 17171 17208 17245 17282 IFL 6529 6560 6591 6622 6653 6684 6715 6746 6777 6808 6839 6870 6901 6932 6963 6994 7025 7056 7087 7118 7149 7180 7211 7242 7273 7304 7335 7366 7397 7428 7459 7490 7521 7552 7583 7614 7663 7694 7725 7756 7787 7818 7849 7880 7911 7942 7973 8004 8035 8066 8097 8128 8159 8190 8221 8252 8283 8314 8345 8376 8407 8438 8469 8500 8531 8562 8593 8624 8655 8686 8717 8748 8803 8838 8873 8908 8943 8978 9013 9048 9083 9118 9153 9188 9223 9258 9293 9328 9363 9398 9433 9468 9503 9538 9573 9608 9643 9678 9713 9748 9783 9818 9853 9888 9923 9958 9993 10028 10085 10120 10155 10190 10225 10260 10295 10330 10365 10400 10435 10470 10505 10540 10575 10610 10645 10680 10715 10750 10785 10820 10855 10890 10925 10960 10995 11030 11065 11100 11135 11170 11205 11240 11275 11310 11360 11391 11422 11453 11484 11515 11546 11577 11608 11639 11670 11701 11732 11763 11794 11825 11856 11887 11918 11949 11980 12011 12042 12073 12104 12135 12166 12197 12228 12259 12290 12321 12352 12383 12414 12445 12494 12525 12556 12587 12618 12649 12680 12711 12742 12773 12804 12835 12866 12897 12928 12959 12990 13021 13052 13083 13114 13145 13176 13207 13238 13269 13300 13331 13362 13393 13424 13455 13486 13517 13548 13579 13630 13662 13694 13726 13758 13790 13822 13854 13886 13918 13950 13982 14014 14046 14078 14110 14142 14174 14206 14238 14270 14302 14334 14366 14398 14430 14462 14494 14526 14558 14590 14622 14654 14686 14718 14750 14801 14833 14865 14897 14929 14961 14993 15025 15057 15089 15121 15153 15185 15217 15249 15281 15313 15345 15377 15409 15441 15473 15505 15537 15569 15601 15633 15665 15697 15729 15761 15793 15825 15857 15889 15921 15986 16023 16060 16097 16134 16171 16208 16245 16282 16319 16356 16393 16430 16467 16504 16541 16578 16615 16652 16689 16726 16763 16800 16837 16874 16911 16948 16985 17022 17059 17096 17133 17170 17207 17244 17281 IFN 3645 3690 3735 3780 3825 3870 3915 3960 4005 4050 4095 4140 4185 4230 4275 4320 IFNDEF 345 346 356 445 446 447 448 527 17468 SEQ 0402 JFCL 485 486 487 488 489 490 491 492 493 494 495 496 JRST 71 72 73 74 75 76 77 195 196 197 198 407 408 410 412 414 416 418 421 423 424 477 749 17307 17324 17331 17334 17339 17367 17373 17387 17389 17391 17394 17397 17399 17401 17427 17430 17443 17447 17450 17453 17457 17458 17462 JSP 204 JUMPL 785 831 860 889 918 947 976 1005 1034 1063 1092 1121 1150 1179 1208 1237 1266 1295 1324 1353 1382 1411 1440 1469 1498 1527 1556 1585 1614 1643 1672 1701 1730 1759 1788 1817 1846 1891 1920 1949 1978 2007 2036 2065 2094 2123 2152 2181 2210 2239 2268 2297 2326 2355 2384 2413 2442 2471 2500 2529 2558 2587 2616 2645 2674 2703 2732 2761 2790 2819 2848 2877 2906 2939 3007 3046 3085 3124 3163 3202 3241 3280 3319 3358 3397 3436 3475 3514 3553 3592 3670 3715 3760 3805 3850 3895 3940 3985 4030 4075 4120 4165 4210 4255 4300 4345 4392 4421 4450 4479 4508 4537 4566 4595 4624 4653 4682 4711 4740 4769 4798 4827 4856 4885 4914 4943 4972 5001 5030 5059 5088 5117 5146 5175 5204 5233 5262 5291 5320 5349 5378 5407 5452 5481 5510 5539 5568 5597 5626 5655 5684 5713 5742 5771 5800 5829 5858 5887 5916 5945 5974 6003 6032 6061 6090 6119 6148 6177 6206 6235 6264 6293 6322 6351 6380 6409 6438 6467 6500 6552 6583 6614 6645 6676 6707 6738 6769 6800 6831 6862 6893 6924 6955 6986 7017 7048 7079 7110 7141 7172 7203 7234 7265 7296 7327 7358 7389 7420 7451 7482 7513 7544 7575 7606 7637 7686 7717 7748 7779 7810 7841 7872 7903 7934 7965 7996 8027 8058 8089 8120 8151 8182 8213 8244 8275 8306 8337 8368 8399 8430 8461 8492 8523 8554 8585 8616 8647 8678 8709 8740 8771 8828 8863 8898 8933 8968 9003 9038 9073 9108 9143 9178 9213 9248 9283 9318 9353 9388 9423 9458 9493 9528 9563 9598 9633 9668 9703 9738 9773 9808 9843 9878 9913 9948 9983 10018 10053 10110 10145 10180 10215 10250 10285 10320 10355 10390 10425 10460 10495 10530 10565 10600 10635 10670 10705 10740 10775 10810 10845 10880 10915 10950 10985 11020 11055 11090 11125 11160 11195 11230 11265 11300 11335 11384 11415 11446 11477 11508 11539 11570 11601 11632 11663 11694 11725 11756 11787 11818 11849 11880 11911 11942 11973 12004 12035 12066 12097 12128 12159 12190 12221 12252 12283 12314 12345 12376 12407 12438 12469 12518 12549 12580 12611 12642 12673 12704 12735 12766 12797 12828 12859 12890 12921 12952 12983 13014 13045 13076 13107 13138 13169 13200 13231 13262 13293 13324 13355 13386 13417 13448 13479 13510 13541 13572 13603 13654 13686 13718 13750 13782 13814 13846 13878 13910 13942 13974 14006 14038 14070 14102 14134 14166 14198 14230 14262 14294 14326 14358 14390 14422 14454 14486 14518 14550 14582 14614 14646 14678 14710 14742 14774 14825 14857 14889 14921 14953 14985 15017 15049 15081 15113 15145 15177 15209 15241 15273 15305 15337 15369 15401 15433 15465 15497 15529 15561 15593 15625 15657 15689 15721 15753 15785 15817 15849 15881 15913 15945 16010 16047 16084 16121 16158 16195 16232 16269 16306 16343 16380 16417 16454 16491 16528 16565 16602 16639 16676 16713 16750 16787 16824 16861 16898 16935 16972 17009 17046 17083 17120 17157 17194 17231 17268 17305 LALL 9 LIST 8 356 394 527 17350 17420 17468 17739 LIT 17469 LOC 25 397 721 LSH 17326 17358 MOVE 746 770 772 774 816 818 820 845 847 849 874 876 878 903 905 907 932 934 936 961 963 965 990 992 994 1019 1021 1023 1048 1050 1052 1077 1079 1081 1106 1108 1110 1135 1137 1139 1164 1166 1168 1193 1195 1197 1222 1224 1226 1251 1253 1255 1280 1282 1284 1309 1311 1313 1338 1340 1342 1367 1369 1371 1396 1398 1400 1425 1427 1429 1454 1456 1458 1483 1485 1487 1512 1514 1516 1541 1543 1545 1570 1572 SEQ 0403 1574 1599 1601 1603 1628 1630 1632 1657 1659 1661 1686 1688 1690 1715 1717 1719 1744 1746 1748 1773 1775 1777 1802 1804 1806 1831 1833 1835 1876 1878 1880 1905 1907 1909 1934 1936 1938 1963 1965 1967 1992 1994 1996 2021 2023 2025 2050 2052 2054 2079 2081 2083 2108 2110 2112 2137 2139 2141 2166 2168 2170 2195 2197 2199 2224 2226 2228 2253 2255 2257 2282 2284 2286 2311 2313 2315 2340 2342 2344 2369 2371 2373 2398 2400 2402 2427 2429 2431 2456 2458 2460 2485 2487 2489 2514 2516 2518 2543 2545 2547 2572 2574 2576 2601 2603 2605 2630 2632 2634 2659 2661 2663 2688 2690 2692 2717 2719 2721 2746 2748 2750 2775 2777 2779 2804 2806 2808 2833 2835 2837 2862 2864 2866 2891 2893 2895 2924 2926 2928 2992 2994 2996 3031 3033 3035 3070 3072 3074 3109 3111 3113 3148 3150 3152 3187 3189 3191 3226 3228 3230 3265 3267 3269 3304 3306 3308 3343 3345 3347 3382 3384 3386 3421 3423 3425 3460 3462 3464 3499 3501 3503 3538 3540 3542 3577 3579 3581 3655 3657 3659 3700 3702 3704 3745 3747 3749 3790 3792 3794 3835 3837 3839 3880 3882 3884 3925 3927 3929 3970 3972 3974 4015 4017 4019 4060 4062 4064 4105 4107 4109 4150 4152 4154 4195 4197 4199 4240 4242 4244 4285 4287 4289 4330 4332 4334 4377 4379 4381 4406 4408 4410 4435 4437 4439 4464 4466 4468 4493 4495 4497 4522 4524 4526 4551 4553 4555 4580 4582 4584 4609 4611 4613 4638 4640 4642 4667 4669 4671 4696 4698 4700 4725 4727 4729 4754 4756 4758 4783 4785 4787 4812 4814 4816 4841 4843 4845 4870 4872 4874 4899 4901 4903 4928 4930 4932 4957 4959 4961 4986 4988 4990 5015 5017 5019 5044 5046 5048 5073 5075 5077 5102 5104 5106 5131 5133 5135 5160 5162 5164 5189 5191 5193 5218 5220 5222 5247 5249 5251 5276 5278 5280 5305 5307 5309 5334 5336 5338 5363 5365 5367 5392 5394 5396 5437 5439 5441 5466 5468 5470 5495 5497 5499 5524 5526 5528 5553 5555 5557 5582 5584 5586 5611 5613 5615 5640 5642 5644 5669 5671 5673 5698 5700 5702 5727 5729 5731 5756 5758 5760 5785 5787 5789 5814 5816 5818 5843 5845 5847 5872 5874 5876 5901 5903 5905 5930 5932 5934 5959 5961 5963 5988 5990 5992 6017 6019 6021 6046 6048 6050 6075 6077 6079 6104 6106 6108 6133 6135 6137 6162 6164 6166 6191 6193 6195 6220 6222 6224 6249 6251 6253 6278 6280 6282 6307 6309 6311 6336 6338 6340 6365 6367 6369 6394 6396 6398 6423 6425 6427 6452 6454 6456 6485 6487 6489 6537 6539 6541 6568 6570 6572 6599 6601 6603 6630 6632 6634 6661 6663 6665 6692 6694 6696 6723 6725 6727 6754 6756 6758 6785 6787 6789 6816 6818 6820 6847 6849 6851 6878 6880 6882 6909 6911 6913 6940 6942 6944 6971 6973 6975 7002 7004 7006 7033 7035 7037 7064 7066 7068 7095 7097 7099 7126 7128 7130 7157 7159 7161 7188 7190 7192 7219 7221 7223 7250 7252 7254 7281 7283 7285 7312 7314 7316 7343 7345 7347 7374 7376 7378 7405 7407 7409 7436 7438 7440 7467 7469 7471 7498 7500 7502 7529 7531 7533 7560 7562 7564 7591 7593 7595 7622 7624 7626 7671 7673 7675 7702 7704 7706 7733 7735 7737 7764 7766 7768 7795 7797 7799 7826 7828 7830 7857 7859 7861 7888 7890 7892 7919 7921 7923 7950 7952 7954 7981 7983 7985 8012 8014 8016 8043 8045 8047 8074 8076 8078 8105 8107 8109 8136 8138 8140 8167 8169 8171 8198 8200 8202 8229 8231 8233 8260 8262 8264 8291 8293 8295 8322 8324 8326 8353 8355 8357 8384 8386 8388 8415 8417 8419 8446 8448 8450 8477 8479 8481 8508 8510 8512 8539 8541 8543 8570 8572 8574 8601 8603 8605 8632 8634 8636 8663 8665 8667 8694 8696 8698 8725 8727 8729 8756 8758 8760 8813 8815 8817 8848 8850 8852 8883 8885 8887 8918 8920 8922 8953 8955 8957 8988 8990 8992 9023 9025 9027 9058 9060 9062 9093 9095 9097 9128 9130 9132 9163 9165 9167 9198 9200 9202 9233 9235 9237 9268 9270 9272 9303 9305 9307 9338 9340 9342 9373 9375 9377 9408 9410 9412 9443 9445 9447 9478 9480 9482 9513 9515 9517 9548 9550 9552 9583 9585 9587 9618 9620 9622 SEQ 0404 9653 9655 9657 9688 9690 9692 9723 9725 9727 9758 9760 9762 9793 9795 9797 9828 9830 9832 9863 9865 9867 9898 9900 9902 9933 9935 9937 9968 9970 9972 10003 10005 10007 10038 10040 10042 10095 10097 10099 10130 10132 10134 10165 10167 10169 10200 10202 10204 10235 10237 10239 10270 10272 10274 10305 10307 10309 10340 10342 10344 10375 10377 10379 10410 10412 10414 10445 10447 10449 10480 10482 10484 10515 10517 10519 10550 10552 10554 10585 10587 10589 10620 10622 10624 10655 10657 10659 10690 10692 10694 10725 10727 10729 10760 10762 10764 10795 10797 10799 10830 10832 10834 10865 10867 10869 10900 10902 10904 10935 10937 10939 10970 10972 10974 11005 11007 11009 11040 11042 11044 11075 11077 11079 11110 11112 11114 11145 11147 11149 11180 11182 11184 11215 11217 11219 11250 11252 11254 11285 11287 11289 11320 11322 11324 11369 11371 11373 11400 11402 11404 11431 11433 11435 11462 11464 11466 11493 11495 11497 11524 11526 11528 11555 11557 11559 11586 11588 11590 11617 11619 11621 11648 11650 11652 11679 11681 11683 11710 11712 11714 11741 11743 11745 11772 11774 11776 11803 11805 11807 11834 11836 11838 11865 11867 11869 11896 11898 11900 11927 11929 11931 11958 11960 11962 11989 11991 11993 12020 12022 12024 12051 12053 12055 12082 12084 12086 12113 12115 12117 12144 12146 12148 12175 12177 12179 12206 12208 12210 12237 12239 12241 12268 12270 12272 12299 12301 12303 12330 12332 12334 12361 12363 12365 12392 12394 12396 12423 12425 12427 12454 12456 12458 12503 12505 12507 12534 12536 12538 12565 12567 12569 12596 12598 12600 12627 12629 12631 12658 12660 12662 12689 12691 12693 12720 12722 12724 12751 12753 12755 12782 12784 12786 12813 12815 12817 12844 12846 12848 12875 12877 12879 12906 12908 12910 12937 12939 12941 12968 12970 12972 12999 13001 13003 13030 13032 13034 13061 13063 13065 13092 13094 13096 13123 13125 13127 13154 13156 13158 13185 13187 13189 13216 13218 13220 13247 13249 13251 13278 13280 13282 13309 13311 13313 13340 13342 13344 13371 13373 13375 13402 13404 13406 13433 13435 13437 13464 13466 13468 13495 13497 13499 13526 13528 13530 13557 13559 13561 13588 13590 13592 13639 13641 13643 13671 13673 13675 13703 13705 13707 13735 13737 13739 13767 13769 13771 13799 13801 13803 13831 13833 13835 13863 13865 13867 13895 13897 13899 13927 13929 13931 13959 13961 13963 13991 13993 13995 14023 14025 14027 14055 14057 14059 14087 14089 14091 14119 14121 14123 14151 14153 14155 14183 14185 14187 14215 14217 14219 14247 14249 14251 14279 14281 14283 14311 14313 14315 14343 14345 14347 14375 14377 14379 14407 14409 14411 14439 14441 14443 14471 14473 14475 14503 14505 14507 14535 14537 14539 14567 14569 14571 14599 14601 14603 14631 14633 14635 14663 14665 14667 14695 14697 14699 14727 14729 14731 14759 14761 14763 14810 14812 14814 14842 14844 14846 14874 14876 14878 14906 14908 14910 14938 14940 14942 14970 14972 14974 15002 15004 15006 15034 15036 15038 15066 15068 15070 15098 15100 15102 15130 15132 15134 15162 15164 15166 15194 15196 15198 15226 15228 15230 15258 15260 15262 15290 15292 15294 15322 15324 15326 15354 15356 15358 15386 15388 15390 15418 15420 15422 15450 15452 15454 15482 15484 15486 15514 15516 15518 15546 15548 15550 15578 15580 15582 15610 15612 15614 15642 15644 15646 15674 15676 15678 15706 15708 15710 15738 15740 15742 15770 15772 15774 15802 15804 15806 15834 15836 15838 15866 15868 15870 15898 15900 15902 15930 15932 15934 15995 15997 15999 16032 16034 16036 16069 16071 16073 16106 16108 16110 16143 16145 16147 16180 16182 16184 16217 16219 16221 16254 16256 16258 16291 16293 16295 16328 16330 16332 16365 16367 16369 16402 16404 16406 16439 16441 16443 16476 16478 16480 16513 16515 16517 16550 16552 16554 16587 16589 16591 16624 16626 16628 16661 16663 16665 16698 16700 16702 16735 16737 16739 16772 16774 16776 16809 16811 16813 16846 16848 16850 16883 16885 16887 16920 16922 16924 16957 16959 16961 16994 16996 16998 17031 17033 17035 17068 17070 17072 17105 17107 17109 17142 17144 17146 17179 17181 17183 17216 17218 17220 17253 17255 17257 17290 17292 17294 17319 17325 17328 17329 17342 17357 17360 17362 17365 17371 17375 17431 17439 17440 17448 17452 17455 MOVEI 757 759 790 792 1850 1852 2911 2913 2945 2947 3596 3598 4351 4353 5411 5413 6471 6473 6506 6508 7641 7643 8775 8777 10057 10059 11339 11341 SEQ 0405 12473 12475 13607 13609 14778 14780 15951 15953 17382 17428 MOVEM 747 758 760 791 793 1851 1853 2912 2914 2946 2948 3597 3599 4352 4354 5412 5414 6472 6474 6507 6509 7642 7644 8776 8778 10058 10060 11340 11342 12474 12476 13608 13610 14779 14781 15952 15954 17312 17313 17314 17327 17347 17429 MUL 775 821 850 879 908 937 966 995 1024 1053 1082 1111 1140 1169 1198 1227 1256 1285 1314 1343 1372 1401 1430 1459 1488 1517 1546 1575 1604 1633 1662 1691 1720 1749 1778 1807 1836 1881 1910 1939 1968 1997 2026 2055 2084 2113 2142 2171 2200 2229 2258 2287 2316 2345 2374 2403 2432 2461 2490 2519 2548 2577 2606 2635 2664 2693 2722 2751 2780 2809 2838 2867 2896 2929 2997 3036 3075 3114 3153 3192 3231 3270 3309 3348 3387 3426 3465 3504 3543 3582 3660 3705 3750 3795 3840 3885 3930 3975 4020 4065 4110 4155 4200 4245 4290 4335 4382 4411 4440 4469 4498 4527 4556 4585 4614 4643 4672 4701 4730 4759 4788 4817 4846 4875 4904 4933 4962 4991 5020 5049 5078 5107 5136 5165 5194 5223 5252 5281 5310 5339 5368 5397 5442 5471 5500 5529 5558 5587 5616 5645 5674 5703 5732 5761 5790 5819 5848 5877 5906 5935 5964 5993 6022 6051 6080 6109 6138 6167 6196 6225 6254 6283 6312 6341 6370 6399 6428 6457 6490 6542 6573 6604 6635 6666 6697 6728 6759 6790 6821 6852 6883 6914 6945 6976 7007 7038 7069 7100 7131 7162 7193 7224 7255 7286 7317 7348 7379 7410 7441 7472 7503 7534 7565 7596 7627 7676 7707 7738 7769 7800 7831 7862 7893 7924 7955 7986 8017 8048 8079 8110 8141 8172 8203 8234 8265 8296 8327 8358 8389 8420 8451 8482 8513 8544 8575 8606 8637 8668 8699 8730 8761 8818 8853 8888 8923 8958 8993 9028 9063 9098 9133 9168 9203 9238 9273 9308 9343 9378 9413 9448 9483 9518 9553 9588 9623 9658 9693 9728 9763 9798 9833 9868 9903 9938 9973 10008 10043 10100 10135 10170 10205 10240 10275 10310 10345 10380 10415 10450 10485 10520 10555 10590 10625 10660 10695 10730 10765 10800 10835 10870 10905 10940 10975 11010 11045 11080 11115 11150 11185 11220 11255 11290 11325 11374 11405 11436 11467 11498 11529 11560 11591 11622 11653 11684 11715 11746 11777 11808 11839 11870 11901 11932 11963 11994 12025 12056 12087 12118 12149 12180 12211 12242 12273 12304 12335 12366 12397 12428 12459 12508 12539 12570 12601 12632 12663 12694 12725 12756 12787 12818 12849 12880 12911 12942 12973 13004 13035 13066 13097 13128 13159 13190 13221 13252 13283 13314 13345 13376 13407 13438 13469 13500 13531 13562 13593 13644 13676 13708 13740 13772 13804 13836 13868 13900 13932 13964 13996 14028 14060 14092 14124 14156 14188 14220 14252 14284 14316 14348 14380 14412 14444 14476 14508 14540 14572 14604 14636 14668 14700 14732 14764 14815 14847 14879 14911 14943 14975 15007 15039 15071 15103 15135 15167 15199 15231 15263 15295 15327 15359 15391 15423 15455 15487 15519 15551 15583 15615 15647 15679 15711 15743 15775 15807 15839 15871 15903 15935 16000 16037 16074 16111 16148 16185 16222 16259 16296 16333 16370 16407 16444 16481 16518 16555 16592 16629 16666 16703 16740 16777 16814 16851 16888 16925 16962 16999 17036 17073 17110 17147 17184 17221 17258 17295 NOSYM 29 OPDEF 34 35 36 37 38 39 40 41 42 43 44 191 192 193 194 195 196 197 198 204 210 211 219 220 221 222 223 224 225 226 227 228 229 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 288 305 310 311 315 316 317 323 324 330 331 332 333 334 335 336 342 343 350 351 352 353 363 364 365 366 367 394 POP 194 POPJ 192 SEQ 0406 PUSH 193 PUSHJ 191 REPEAT 796 1856 2952 3603 4357 5417 6513 7647 8781 10063 11345 12479 13613 14784 15959 SETOM 17337 17435 17441 SETZM 17321 17332 SIXBIT 84 85 612 613 621 622 17341 17345 17356 17381 17461 SKIPGE 17330 SKIPL 17333 17446 SKIPN 17335 17338 17442 SUBTTL 30 120 155 357 394 395 750 2940 4346 6501 17308 17463 TITLE 13 TLNE 17323 17366 17432 17436 TLNN 17434 17456 TRNE 17386 17388 17390 VAR 17747 XCT 17423 XLIST 7 355 393 526 17349 17419 17467 .DIREC 28 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0407 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 *030634 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030653 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030666 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030701 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030714 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0408 *030727 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030742 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030755 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030770 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031003 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0409 *031016 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031031 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031044 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031057 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031072 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0410 *031105 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031120 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031133 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031146 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031161 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000001 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 5 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0411 *031174 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031207 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031222 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031235 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031250 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000040 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 6 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0412 *031263 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031276 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031311 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031324 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031337 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 002000 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 7 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0413 *031352 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031365 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031400 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031413 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031426 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 100000 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 8 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0414 *031441 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031454 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031473 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031506 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777775 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031521 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777773 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0415 *031534 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777767 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031547 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777757 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031562 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777737 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031575 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777677 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031610 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777577 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0416 *031623 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777377 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031636 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 776777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031651 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 775777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031664 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 773777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031677 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 767777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0417 *031712 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 757777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031725 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 737777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031740 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 677777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031753 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 577777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031766 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 377777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0418 *032001 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777776 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032014 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777775 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032027 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777773 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032042 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777767 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032055 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777757 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0419 *032070 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777737 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032103 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777677 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032116 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777577 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032131 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777377 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032144 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 776777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0420 *032157 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 775777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032172 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 773777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032205 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 767777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032220 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 757777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032233 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 737777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0421 *032246 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 677777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032261 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 577777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032274 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032313 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032332 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0422 *032345 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *032360 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *032373 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000003 ---------- *032406 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *032421 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0423 *032434 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 ---------- *032447 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000007 ---------- *032462 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *032475 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000011 ---------- *032510 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0424 *032523 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000013 ---------- *032536 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000014 ---------- *032551 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000015 ---------- *032564 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000016 ---------- *032577 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0425 *032616 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032631 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *032644 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *032657 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *032672 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0426 *032705 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *032720 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777772 ---------- *032733 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777771 ---------- *032746 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777770 ---------- *032761 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0427 *032774 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777766 ---------- *033007 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777765 ---------- *033022 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777764 ---------- *033035 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777763 ---------- *033050 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000016 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777762 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0428 *033063 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777761 ---------- *033102 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033115 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033130 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033143 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 777777 777777 C(E)= 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 23 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0429 *033156 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033171 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033204 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033217 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033232 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 777777 777777 C(E)= 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 24 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0430 *033245 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033260 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033273 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033306 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033321 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 777777 777777 C(E)= 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 25 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0431 *033334 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033347 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033362 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033375 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033410 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 777777 777777 C(E)= 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 26 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0432 *033423 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033436 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033451 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033464 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033477 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 777777 777777 C(E)= 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 27 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0433 *033512 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033525 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033540 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033553 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033566 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 777777 777777 C(E)= 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 28 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0434 *033601 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033614 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033627 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033642 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033655 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 777777 777777 C(E)= 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 29 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0435 *033670 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033703 MUL 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033722 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033735 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033750 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 C(E)= 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 30 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0436 *033763 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033776 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034011 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034024 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034037 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(AC+1)= 777777 777777 C(E)= 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 31 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0437 *034052 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034065 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034100 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034113 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034126 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(AC+1)= 777777 777777 C(E)= 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 32 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0438 *034141 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034154 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034167 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034202 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034215 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(AC+1)= 777777 777777 C(E)= 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 33 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0439 *034230 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034243 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034256 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034271 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034304 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(AC+1)= 777777 777777 C(E)= 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 34 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0440 *034317 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034332 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034345 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034360 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034373 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(AC+1)= 777777 777777 C(E)= 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 35 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0441 *034406 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034421 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034434 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034447 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034462 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(AC+1)= 777777 777777 C(E)= 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 36 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0442 *034475 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034510 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034523 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034542 MUL 7,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034561 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0443 *034574 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *034607 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *034622 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *034635 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *034650 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0444 *034663 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- *034676 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- *034711 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *034724 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- *034737 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0445 *034752 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- *034765 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- *035000 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *035013 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *035026 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0446 *035041 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- *035054 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- *035067 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000001 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *035102 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000002 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- *035115 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000004 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0447 *035130 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000010 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- *035143 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000020 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- *035156 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000040 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *035171 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000100 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *035204 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000200 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0448 *035217 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000400 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- *035232 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 001000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- *035245 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 002000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *035260 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 004000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- *035273 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 010000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0449 *035306 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 020000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- *035321 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 040000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- *035334 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *035347 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *035362 MUL 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 400000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0450 *035401 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *035414 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *035427 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *035442 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *035455 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0451 *035470 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- *035503 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- *035516 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 ---------- *035531 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *035544 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0452 *035557 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- *035572 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 ---------- *035605 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- *035620 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 ---------- *035633 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0453 *035646 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 ---------- *035661 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- *035674 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 ---------- *035707 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *035722 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0454 *035735 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- *035750 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 ---------- *035763 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- *035776 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 ---------- *036011 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0455 *036024 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 ---------- *036037 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- *036052 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 ---------- *036065 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *036100 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0456 *036113 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- *036126 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 ---------- *036141 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- *036154 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 ---------- *036167 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0457 *036202 MUL 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 400000 000000 ---------- *036221 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *036234 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *036247 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 ---------- *036262 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777770 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0458 *036275 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777760 ---------- *036310 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777740 ---------- *036323 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777700 ---------- *036336 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777600 ---------- *036351 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0459 *036364 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777000 ---------- *036377 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776000 ---------- *036412 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 774000 ---------- *036425 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 770000 ---------- *036440 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 760000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0460 *036453 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 740000 ---------- *036466 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 700000 ---------- *036501 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 600000 ---------- *036514 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 400000 ---------- *036527 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0461 *036542 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 000000 ---------- *036555 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777774 000000 ---------- *036570 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777770 000000 ---------- *036603 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777760 000000 ---------- *036616 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777740 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0462 *036631 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777700 000000 ---------- *036644 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777600 000000 ---------- *036657 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777400 000000 ---------- *036672 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 777000 000000 ---------- *036705 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 776000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0463 *036720 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 774000 000000 ---------- *036733 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 770000 000000 ---------- *036746 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 760000 000000 ---------- *036761 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 740000 000000 ---------- *036774 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 700000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0464 *037007 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 600000 000000 ---------- *037022 MUL 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037041 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *037054 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *037067 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0465 *037102 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777770 ---------- *037115 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777760 ---------- *037130 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777740 ---------- *037143 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777700 ---------- *037156 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0466 *037171 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777400 ---------- *037204 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777000 ---------- *037217 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776000 ---------- *037232 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 774000 ---------- *037245 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 770000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0467 *037260 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 760000 ---------- *037273 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 740000 ---------- *037306 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 700000 ---------- *037321 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 600000 ---------- *037334 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0468 *037347 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 000000 ---------- *037362 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 000000 ---------- *037375 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777774 000000 ---------- *037410 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777770 000000 ---------- *037423 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777760 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0469 *037436 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777740 000000 ---------- *037451 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777700 000000 ---------- *037464 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777600 000000 ---------- *037477 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777400 000000 ---------- *037512 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0470 *037525 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 776000 000000 ---------- *037540 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 774000 000000 ---------- *037553 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 770000 000000 ---------- *037566 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 760000 000000 ---------- *037601 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 740000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0471 *037614 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 700000 000000 ---------- *037627 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 600000 000000 ---------- *037642 MUL 3,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037661 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *037674 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0472 *037707 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *037722 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- *037735 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 ---------- *037750 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 ---------- *037763 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0473 *037776 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 ---------- *040011 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 ---------- *040024 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 ---------- *040037 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 ---------- *040052 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0474 *040065 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 ---------- *040100 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 ---------- *040113 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 ---------- *040126 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 ---------- *040141 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0475 *040154 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *040167 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 ---------- *040202 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 ---------- *040215 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 ---------- *040230 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0476 *040243 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 ---------- *040256 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 ---------- *040271 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 ---------- *040304 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 ---------- *040317 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0477 *040332 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 ---------- *040345 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 ---------- *040360 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 ---------- *040373 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 ---------- *040406 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0478 *040421 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 ---------- *040434 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 ---------- *040447 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *040462 MUL 2,000000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 ---------- *040501 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0479 *040514 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *040527 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777773 ---------- *040542 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777767 ---------- *040555 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777757 ---------- *040570 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777737 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0480 *040603 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777677 ---------- *040616 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777577 ---------- *040631 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777377 ---------- *040644 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 776777 ---------- *040657 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0481 *040672 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 773777 ---------- *040705 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767777 ---------- *040720 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 757777 ---------- *040733 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737777 ---------- *040746 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0482 *040761 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577777 ---------- *040774 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 377777 ---------- *041007 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777777 ---------- *041022 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777775 777777 ---------- *041035 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0483 *041050 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777767 777777 ---------- *041063 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 777777 ---------- *041076 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777737 777777 ---------- *041111 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 777777 ---------- *041124 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777577 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0484 *041137 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 777777 ---------- *041152 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 776777 777777 ---------- *041165 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 777777 ---------- *041200 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 773777 777777 ---------- *041213 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0485 *041226 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 757777 777777 ---------- *041241 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 777777 ---------- *041254 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 677777 777777 ---------- *041267 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 777777 ---------- *041302 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 000000 000000 C(E)= 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 80 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0486 *041321 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *041334 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777775 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000003 ---------- *041347 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777773 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000005 ---------- *041362 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777767 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000011 ---------- *041375 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777757 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000021 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0487 *041410 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777737 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000041 ---------- *041423 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777677 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000101 ---------- *041436 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777577 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000201 ---------- *041451 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777377 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000401 ---------- *041464 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 776777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0488 *041477 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 775777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002001 ---------- *041512 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 773777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004001 ---------- *041525 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 767777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010001 ---------- *041540 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 757777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020001 ---------- *041553 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 737777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0489 *041566 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 677777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100001 ---------- *041601 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 577777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200001 ---------- *041614 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 377777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400001 ---------- *041627 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777776 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000001 ---------- *041642 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777775 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0490 *041655 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777773 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000001 ---------- *041670 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777767 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000001 ---------- *041703 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777757 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000001 ---------- *041716 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777737 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000001 ---------- *041731 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777677 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0491 *041744 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777577 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000001 ---------- *041757 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777377 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000001 ---------- *041772 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 776777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000001 ---------- *042005 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 775777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000001 ---------- *042020 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 773777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0492 *042033 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 767777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000001 ---------- *042046 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 757777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000001 ---------- *042061 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 737777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000001 ---------- *042074 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 677777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000001 ---------- *042107 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 577777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0493 *042122 MUL 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 400000 000001 ---------- *042141 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *042154 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000003 ---------- *042167 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000005 ---------- *042202 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000011 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0494 *042215 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000021 ---------- *042230 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000041 ---------- *042243 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000101 ---------- *042256 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000201 ---------- *042271 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000401 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0495 *042304 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 001001 ---------- *042317 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002001 ---------- *042332 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 004001 ---------- *042345 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010001 ---------- *042360 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 020001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0496 *042373 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040001 ---------- *042406 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 100001 ---------- *042421 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200001 ---------- *042434 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 400001 ---------- *042447 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0497 *042462 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000002 000001 ---------- *042475 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000001 ---------- *042510 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000010 000001 ---------- *042523 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000001 ---------- *042536 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000040 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0498 *042551 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000001 ---------- *042564 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000200 000001 ---------- *042577 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000001 ---------- *042612 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 001000 000001 ---------- *042625 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0499 *042640 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 004000 000001 ---------- *042653 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000001 ---------- *042666 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 020000 000001 ---------- *042701 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000001 ---------- *042714 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 100000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0500 *042727 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000001 ---------- *042742 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 400000 000001 ---------- *042761 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777777 C(AC+1)= 525252 525252 ---------- *042774 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777776 C(AC+1)= 652525 252524 ---------- *043007 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777775 C(AC+1)= 525252 525250 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0501 *043022 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777772 C(AC+1)= 652525 252520 ---------- *043035 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777765 C(AC+1)= 525252 525240 ---------- *043050 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777752 C(AC+1)= 652525 252500 ---------- *043063 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777725 C(AC+1)= 525252 525200 ---------- *043076 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777652 C(AC+1)= 652525 252400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0502 *043111 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777525 C(AC+1)= 525252 525000 ---------- *043124 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 777252 C(AC+1)= 652525 252000 ---------- *043137 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 776525 C(AC+1)= 525252 524000 ---------- *043152 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 775252 C(AC+1)= 652525 250000 ---------- *043165 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 772525 C(AC+1)= 525252 520000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0503 *043200 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 765252 C(AC+1)= 652525 240000 ---------- *043213 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 752525 C(AC+1)= 525252 500000 ---------- *043226 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 725252 C(AC+1)= 652525 200000 ---------- *043241 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 652525 C(AC+1)= 525252 400000 ---------- *043254 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 525252 C(AC+1)= 652525 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0504 *043267 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777777 252525 C(AC+1)= 525252 000000 ---------- *043302 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777776 525252 C(AC+1)= 652524 000000 ---------- *043315 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777775 252525 C(AC+1)= 525250 000000 ---------- *043330 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777772 525252 C(AC+1)= 652520 000000 ---------- *043343 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777765 252525 C(AC+1)= 525240 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0505 *043356 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777752 525252 C(AC+1)= 652500 000000 ---------- *043371 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777725 252525 C(AC+1)= 525200 000000 ---------- *043404 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777652 525252 C(AC+1)= 652400 000000 ---------- *043417 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777525 252525 C(AC+1)= 525000 000000 ---------- *043432 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 777252 525252 C(AC+1)= 652000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0506 *043445 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 776525 252525 C(AC+1)= 524000 000000 ---------- *043460 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 775252 525252 C(AC+1)= 650000 000000 ---------- *043473 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 772525 252525 C(AC+1)= 520000 000000 ---------- *043506 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 765252 525252 C(AC+1)= 640000 000000 ---------- *043521 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 752525 252525 C(AC+1)= 500000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101 DSKAK 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0507 *043534 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 725252 525252 C(AC+1)= 600000 000000 ---------- *043547 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 652525 252525 C(AC+1)= 400000 000000 ---------- *043562 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 525252 525252 FINAL C(AC)= 252525 252526 C(AC+1)= 000000 000000 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAL.txt,v0000444000175100010010000464162712052635162014416 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.20.08.08.07; author Rob; state Exp; branches; next ; desc @@ 1.1 log @Initial revision @ text @;DSKAL IDENTIFICATION -------------- PRODUCT CODE: AH-E319A-DD DIAGNOSTIC CODE: DSKAL PRODUCT NAME: DSKALA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 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-DSKAL.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-DSKAL.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE TWELVETH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE MULTIPLY, INTERGER MULTIPLY, DIVIDE AND INTEGER DIVIDE FUNCTIONS. 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-DSKAL.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-DSKAL.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-DSKAL.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-DSKAL.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-DSKAL.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 'DSKAL.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-DSKAL.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 DSKAL SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAL TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 DSKALT MAC 29-Mar-78 10:09 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;DSKAL 2 3 000000 MCNVER==0 4 000001 DECVER==1 5 6 7 XLIST 8 LIST 9 LALL 10 11 NAME \MCNVER,\DECVER^ 12 13 TITLE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 14 ^ 15 16 17 ;MULTIPLY, INTERGER MULTIPLY, DIVIDE, INTERGER DIVIDE 18 19 ;COPYRIGHT 1978 20 ;DIGITAL EQUIPMENT CORPORATION 21 ;MARLBORO, MASS. 01752 22 23 ;JOHN R. KIRCHOFF 24 25 000137 LOC 137 26 000137 000000 000001 MCNVER,,DECVER 27 28 .DIRECTIVE .OKOVL 29 NOSYM DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2 DSKALT MAC 29-Mar-78 10:09 DIAGNOSTIC PARAMETERS SEQ 0013 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;OPERATOR DEFINITIONS 33 34 001000 000000 OPDEF ER1 [1B8] 35 002000 000000 OPDEF ER2 [2B8] 36 003000 000000 OPDEF ER3 [3B8] 37 004000 000000 OPDEF ER4 [4B8] 38 005000 000000 OPDEF ER5 [5B8] 39 006000 000000 OPDEF ER6 [6B8] 40 007000 000000 OPDEF ER7 [7B8] 41 010000 000000 OPDEF ER10 [10B8] 42 011000 000000 OPDEF ER11 [11B8] 43 012000 000000 OPDEF ER12 [12B8] 44 013000 000000 OPDEF ER13 [13B8] 45 46 044425 LUUO1=ERRMES 47 044425 LUUO2=ERRMES 48 044425 LUUO3=ERRMES 49 044425 LUUO4=ERRMES 50 044425 LUUO5=ERRMES 51 044425 LUUO6=ERRMES 52 044425 LUUO7=ERRMES 53 044425 LUUO10=ERRMES 54 044425 LUUO11=ERRMES 55 044425 LUUO12=ERRMES 56 044425 LUUO13=ERRMES DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3 DSKALT MAC 29-Mar-78 10:09 DIAGNOSTIC PARAMETERS SEQ 0014 57 ;SUBROUTINE ASSEMBLY DEFINITIONS 58 59 000040 DEBUG=40 60 000001 EXCASB=1 61 000001 USRASB=1 62 000001 PGMEND=1 63 000001 ERDIAG=1 64 65 ;SPECIAL FEATURE DEFINITIONS 66 67 030000 SADR1=BEGIN 68 030000 SADR2=BEGIN 69 030000 SADR3=BEGIN 70 030007 SADR4=SRTDDT 71 254000 030061 SADR5=JRST $BEND2 72 254000 030000 SADR6=JRST BEGIN 73 254000 030000 SADR7=JRST BEGIN 74 254000 030000 SADR8=JRST BEGIN 75 254000 030000 SADR9=JRST BEGIN 76 254000 030000 SADR10=JRST BEGIN 77 254000 030000 SADR11=JRST BEGIN 78 79 ;SPECIAL FEATURE PARAMETERS 80 81 000000 PAREA0=0 82 000000 PAREA1=0 83 000000 PAREA2=0 84 446353 415400 PAREA3=SIXBIT/DSKAL/ 85 645560 000000 PAREA4=SIXBIT/TMP/ 86 000000 PAREA5=0 87 000000 PAREA6=0 88 000001 ITERAT==1 89 90 ;MACROS 91 92 DEFINE SAVEAC (A,B)< 93 MOVEI AC+2,. ;SAVE TEST PC 94 MOVEM AC+2,TESTPC 95 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 96 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4 DSKALT MAC 29-Mar-78 10:09 DIAGNOSTIC PARAMETERS SEQ 0015 97 DEFINE MOP1 (T,A1,A2,EE,R1,R2)< 98 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [A1],[A2] AND 99 ;[EE] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 100 ;AND E AGAINST [R1], [R2] AND [EE] RESPECTIVELY. 101 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 102 103 F'T'0: AA1=A1 ;INITIAL C(AC) 104 MOVE AC,[A1] ;PRELOAD AC (MULTIPLIER) 105 AA2=A2 ;INITIAL C(AC+1) 106 MOVE AC+1,[A2] ;PRELOAD AC+1 107 AEE=EE ;INITIAL C(E) 108 MOVE E,[EE] ;PRELOAD E (MULTIPLICAND) 109 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 110 AR1=R1 ;EXPECTED RESULT IN AC 111 CAME AC,[R1] ;IS HIGH PRODUCT CORRECT? 112 ER3 AC,T'1 ;HIGH PRODUCT FAILED 113 AR2=R2 ;EXPECTED RESULT IN AC+1 114 CAME AC+1,[R2] ;IS LOW PRODUCT CORRECT? 115 ER4 AC+1,T'2 ;LOW PRODUCT FAILED 116 AEE=EE ;INITIAL C(E) 117 CAME E,[EE] ;WAS C(E) CLOBBERED? 118 ER5 E,T'3 ;C(E) WAS CLOBBERED 119 JUMPL AC+2,F'T'0 ;LOOP ON ERROR SWITCH> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0016 120 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 121 122 DEFINE S,<;*********************************************************************> 123 124 S^;*********************************************************************^ 125 ;*DATA SWITCHES 126 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 127 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 128 S^;*********************************************************************^ 129 130 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 131 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 132 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 133 134 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 135 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 136 010000 DING== 010000 ;RING BELL ON ERROR 137 138 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 139 002000 ERSTOP==002000 ;HALT ON TEST ERROR 140 001000 PALERS==001000 ;PRINT ALL ERRORS 141 142 000400 RELIAB==000400 ;RELIABILITY MODE 143 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 144 000100 INHPAG==000100 ;INHIBIT PAGING 145 146 000040 MODDVC==000040 ;MODIFY DEVICE CODE 147 000020 INHCSH==000020 ;INHIBIT CACHE 148 000010 OPRSEL==000010 ;OPERATOR SELECTION 149 150 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 151 152 ;SWITCH 16 RESERVED 153 154 ;SWITCH 17 RESERVED !!! DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0017 155 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 156 157 S^;*********************************************************************^ 158 ;*SPECIAL SUBPROGRAM LINKAGES 159 S^;*********************************************************************^ 160 161 027772 FSELNK= 27772 ;FILE SELECT LINK 162 027773 FRDLNK= 27773 ;FILE READ LINK 163 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 164 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 165 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 166 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 167 168 S^;*********************************************************************^ 169 ;*SPECIAL SUBROUTINE FATAL HALTS 170 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 171 S^;*********************************************************************^ 172 173 ;ADDRESS TAG REASON 174 ;--------------------- 175 176 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 177 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 178 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 179 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 180 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 181 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 182 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 183 ; 1017 EOPERR ;END OF PROGRAM ERROR 184 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 185 186 S^;*********************************************************************^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018 187 S^;*********************************************************************^ 188 ;OPERATOR DEFINITIONS (NON-UUO'S) 189 S^;*********************************************************************^ 190 191 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 192 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 193 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 194 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 195 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 196 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 197 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 198 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 199 200 S^;*********************************************************************^ 201 ;*SUBROUTINE INITIALIZATION CALL 202 S^;*********************************************************************^ 203 204 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 205 206 S^;*********************************************************************^ 207 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 208 S^;*********************************************************************^ 209 210 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 211 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 212 213 S^;*********************************************************************^ 214 ;*TERMINAL INPUT UUO'S 215 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 216 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 217 S^;*********************************************************************^ 218 219 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 220 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 221 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 222 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 223 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 224 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 225 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 226 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 227 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 228 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 229 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019 230 ;*TERMINAL OUTPUT UUO'S. 231 232 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 233 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 234 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 235 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 236 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 237 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 238 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 239 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 240 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 241 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 242 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 243 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 244 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 245 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 246 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 247 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 248 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 249 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 250 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 251 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 252 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 253 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 254 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 255 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 256 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 257 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 258 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 259 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 260 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 261 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 262 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 263 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 264 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 265 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 266 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 267 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 268 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 269 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 270 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 271 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 272 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 273 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020 274 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 275 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 276 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 277 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 278 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 279 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 280 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 281 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 282 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 283 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 284 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 285 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 286 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 287 288 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 289 290 DEFINE PMSG (ARG),< 291 PSIXM [SIXBIT\ARG'_\]> 292 293 DEFINE PMSGF (ARG),< 294 PSIXMF [SIXBIT\ARG'_\]> 295 296 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 297 ;* CONSERVES CORE OVER ASCIZ 298 299 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 300 301 ;*CONSOLE SWITCH INPUT UUO. 302 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 303 ;* USER MODE. 304 305 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 306 307 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 308 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 309 310 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 311 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 312 313 ;*KS-10 CACHE OPERATION UUO'S 314 315 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 316 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 317 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021 318 ;*END OF PASS/PROGRAM UUOS 319 320 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 321 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 322 323 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 324 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 325 326 ;*MEMORY MANAGEMENT UUO'S 327 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 328 ;*ADDRESS CONVERSION, ETC... 329 330 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 331 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 332 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 333 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 334 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 335 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 336 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 337 338 ;*DEVICE CODE MODIFICATION UUO 339 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 340 ;*IOT'S TO A DIFFERENT DEVICE CODE. 341 342 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 343 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 344 345 030000 IFNDEF MODDVL, 346 030000 IFNDEF MODDVU, 347 348 ;*"DIAMON" FILE SELECTION AND READ UUOS 349 350 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 351 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 352 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 353 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 354 355 XLIST 356 IFNDEF EROLD, 381 382 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 383 384 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 385 SALL 386 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 387 CORECT,,ACTUAL 388 [SIXBIT\D'_\],,ERR] 389 XALL> 390 391 >;END OF EROLD CONDITIONAL 392 393 XLIST 394 LIST DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023 395 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 396 397 030000 LOC 30000 398 399 S^;*********************************************************************^ 400 ;*PROGRAM STARTING ADDRESSES 401 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 402 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 403 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 404 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 405 S^;*********************************************************************^ 406 407 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 408 030001 254 00 0 00 030621 $START: JRST START ;MODE CHECK STARTING ADDRESS 409 410 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 411 412 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 413 414 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 415 416 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 417 418 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 419 420 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 421 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 422 423 030010 254 00 0 00 030624 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 424 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 425 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 426 427 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 428 030014 254000 030000 START2: SADR8 ; " 429 030015 254000 030000 START3: SADR9 ; " 430 030016 254000 030000 START4: SADR10 ; " 431 030017 254000 030000 START5: SADR11 ; " DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 432 S^;*********************************************************************^ 433 ;*PROGRAM FIXED PARAMETER AREA 434 S^;*********************************************************************^ 435 436 030020 446353 415400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 437 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 438 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 439 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 440 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 441 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 442 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 443 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 444 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 445 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 446 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 447 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 448 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 449 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 450 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 451 452 S^;*********************************************************************^ 453 ;*PROGRAM VARIABLE PARAMETER AREA 454 S^;*********************************************************************^ 455 456 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 457 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 458 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 459 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 460 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 461 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 462 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 463 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 464 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 465 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 466 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 467 030052 000000 000000 ERRPC: 0 ;ERROR PC 468 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 469 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 470 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 471 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025 472 S^;*********************************************************************^ 473 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 474 S^;*********************************************************************^ 475 476 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 477 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 478 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 479 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 480 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 481 030064 CPOPJ1: ;SKIP RETURN 482 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 483 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 484 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 485 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 486 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 487 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 488 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 489 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 490 030073 255 00 0 00 000000 $USRHL: JFCL ; " 491 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 492 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 493 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 494 030077 255 00 0 00 000000 RESRT2: JFCL ; " 495 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 496 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 497 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 498 499 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 500 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 501 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 502 503 S^;*********************************************************************^ 504 ;*PROCESSOR CONTROL STORAGE 505 S^;*********************************************************************^ 506 507 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 508 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 509 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 510 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 511 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 512 513 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 514 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 515 516 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 517 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 518 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 519 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 520 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 521 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 522 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026 523 S^;*********************************************************************^ 524 ;*UUO DISPATCH TABLE 525 S^;*********************************************************************^ 526 XLIST 527 LIST 528 030124 044425 030070 UUODIS: LUUO1,,$UUOER 529 030125 044425 044425 LUUO3,,LUUO2 530 030126 044425 044425 LUUO5,,LUUO4 531 030127 044425 044425 LUUO7,,LUUO6 532 030130 044425 044425 LUUO11,,LUUO10 533 030131 044425 044425 LUUO13,,LUUO12 534 030132 030070 030070 LUUO15,,LUUO14 535 030133 030070 030070 LUUO17,,LUUO16 536 030134 030070 030070 LUUO21,,LUUO20 537 030135 030070 030070 LUUO23,,LUUO22 538 030136 030070 030070 LUUO25,,LUUO24 539 030137 030070 030070 LUUO27,,LUUO26 540 030140 030070 030070 LUUO31,,LUUO30 541 030141 030070 030070 LUUO33,,LUUO32 542 543 S^;*********************************************************************^ 544 ;*MEMORY MANAGMENT STORAGE 545 S^;*********************************************************************^ 546 547 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 548 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 549 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 550 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 551 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 552 553 S^;*********************************************************************^ 554 ;*PRINT CONTROL STORAGE 555 S^;*********************************************************************^ 556 557 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 558 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 559 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 560 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 561 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 562 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 563 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 564 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 565 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 566 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 567 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 568 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 569 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 570 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 571 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 572 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 573 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 574 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 575 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027 576 S^;*********************************************************************^ 577 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 578 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 579 ;* MOVEI NAME 580 ;* PNTA ;OR PNTAF 581 S^;*********************************************************************^ 582 583 030242 CRLF: ASCII/ 584 030242 015 012 000 000 000 / 585 030243 CRLF2: ASCII/ 586 587 030243 015 012 015 012 000 / 588 030244 054 000 000 000 000 COMMA: ASCII/,/ 589 030245 056 000 000 000 000 PERIOD: ASCII/./ 590 030246 040 000 000 000 000 SPACE: ASCII/ / 591 030247 011 000 000 000 000 TAB: ASCII/ / 592 030250 MINUS: 593 030250 055 000 000 000 000 HYPEN: ASCII/-/ 594 030251 053 000 000 000 000 PLUS: ASCII/+/ 595 030252 052 000 000 000 000 AST: ASCII/*/ 596 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 597 030254 050 000 000 000 000 LFP: ASCII/(/ 598 030255 051 000 000 000 000 RTP: ASCII/)/ 599 030256 007 0000000000 BELL: BYTE (7) 007 600 030257 077 000 000 000 000 QUEST: ASCII/?/ 601 030260 057 000 000 000 000 SLASH: ASCII!/! 602 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 603 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 604 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 605 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 606 607 S^;*********************************************************************^ 608 ;*USER MODE OUTPUT FILE INFORMATION 609 S^;*********************************************************************^ 610 611 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 612 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 613 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 614 030272 BLOCK 2 615 616 S^;*********************************************************************^ 617 ;*DISK UPDATE MODE FILE INFORMATION 618 S^;*********************************************************************^ 619 620 030274 $IBUF: BLOCK 3 621 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 622 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 623 030301 BLOCK 2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028 624 S^;*********************************************************************^ 625 ;*PUSHDOWN LIST CONTROL INFORMATION 626 S^;*********************************************************************^ 627 628 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 629 030304 PLISTS: BLOCK 200 630 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 631 632 S^;*********************************************************************^ 633 ;*POWER LINE CLOCK FREQUENCY FLAG 634 S^;*********************************************************************^ 635 636 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 637 638 S^;*********************************************************************^ 639 ;*KL10 CACHE CONTROL FLAGS 640 S^;*********************************************************************^ 641 642 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 643 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 644 645 S^;*********************************************************************^ 646 ;*NUMBER INPUT DIGIT FLAG 647 S^;*********************************************************************^ 648 649 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 650 651 S^;*********************************************************************^ 652 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 653 S^;*********************************************************************^ 654 655 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 656 657 S^;*********************************************************************^ 658 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 659 S^;*********************************************************************^ 660 661 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 662 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 663 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 664 665 S^;*********************************************************************^ 666 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 667 S^;*********************************************************************^ 668 669 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029 670 S^;*********************************************************************^ 671 ;*USER MODE MONITOR TYPE FLAG 672 S^;*********************************************************************^ 673 674 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 675 676 S^;*********************************************************************^ 677 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 678 S^;*********************************************************************^ 679 680 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 681 682 S^;*********************************************************************^ 683 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 684 S^;*********************************************************************^ 685 686 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 687 688 S^;*********************************************************************^ 689 ;*"SWITCH" CALL USAGE CONTROL 690 S^;*********************************************************************^ 691 692 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 693 694 S^;*********************************************************************^ 695 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 696 S^;*********************************************************************^ 697 698 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 699 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 700 701 S^;*********************************************************************^ 702 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 703 S^;*********************************************************************^ 704 705 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 706 707 S^;*********************************************************************^ 708 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 709 S^;*********************************************************************^ 710 711 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 712 713 S^;*********************************************************************^ 714 ;*SPECIAL FUTURE EXPANSION ROOM 715 S^;*********************************************************************^ 716 717 S^;*********************************************************************^ 718 ;*END OF FIXED STORAGE 719 S^;*********************************************************************^ 720 721 030577 LOC 30577 722 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 DSKAL1 MAC 29-Mar-78 10:10 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030 723 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE 724 030601 000000 030600 EXIT 725 726 030602 PGMNAM: ASCIZ % 727 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAL] 728 030603 123 131 123 124 105 729 030604 115 040 062 060 062 730 030605 060 040 102 101 123 731 030606 111 103 040 111 116 732 030607 123 124 122 125 103 733 030610 124 111 117 116 040 734 030611 104 111 101 107 116 735 030612 117 123 124 111 103 736 030613 040 133 104 123 113 737 030614 101 114 135 015 012 MULTIPLY & DIVIDE 738 030615 115 125 114 124 111 739 030616 120 114 131 040 046 740 030617 040 104 111 126 111 741 030620 104 105 015 012 000 % 742 743 ;INITIALIZE SUBROUTINES 744 745 030621 265 00 0 00 030011 START: PGMINT 746 030622 200 00 0 00 044613 MOVE [ASCIZ/AL/] 747 030623 202 00 0 00 044534 MOVEM TLET 748 749 030624 254 00 0 00 030625 STARTA: JRST PART2 ;GO PERFORM DIAGNOSTIC 750 SUBTTL MAIN TESTING 751 752 004000 ADR=4000 753 000014 PART2: AC=14 754 000012 E=&17 755 525252 525252 N1=525252525252 756 252525 252525 N2=252525252525 757 SAVEAC (1,1)^ 758 030625 201 16 0 00 030625 MOVEI AC+2,. ;SAVE TEST PC 759 030626 202 16 0 00 030051 MOVEM AC+2,TESTPC 760 030627 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 761 030630 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 762 000044 WW=^D36 763 000000 XX=0 764 765 REPEAT ^D36,< 766 ADR=ADR+1 767 WW=WW-1 768 XX=XX+XX 769 IFE XX, 770 771 ;MULTIPLY A FLOATING 1 BY 1010...101010 772 V1=N1 773 V2=N1*XX 774 IFL XX, 775 IFG XX,>!>>> 776 MOP1 (\ADR,V1,0,XX,V3,V2)> 777 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0031 778 004001 ADR=ADR+1 779 000043 WW=WW-1 780 000000 XX=XX+XX 781 000001 IFE XX, 782 783 ;MULTIPLY A FLOATING 1 BY 1010...101010 784 525252 525252 V1=N1 785 525252 525252 V2=N1*XX 786 IFL XX, 787 777777 777777 IFG XX,>!>>> 788 MOP1 (\ADR,V1,0,XX,V3,V2)^ 789 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 790 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 791 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 792 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 793 794 525252 525252 F40010: AA1=V1 ;INITIAL C(AC) 795 030631 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 796 000000 AA2=0 ;INITIAL C(AC+1) 797 030632 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 798 000001 AEE=XX ;INITIAL C(E) 799 030633 200 12 0 00 044616 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 800 030634 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 801 777777 777777 AR1=V3 ;EXPECTED RESULT IN AC 802 030635 312 14 0 00 044617 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 803 030636 003 14 0 00 040011 ER3 AC,40011 ;HIGH PRODUCT FAILED 804 525252 525252 AR2=V2 ;EXPECTED RESULT IN AC+1 805 030637 312 15 0 00 044614 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 806 030640 004 15 0 00 040012 ER4 AC+1,40012 ;LOW PRODUCT FAILED 807 000001 AEE=XX ;INITIAL C(E) 808 030641 312 12 0 00 044616 CAME E,[XX] ;WAS C(E) CLOBBERED? 809 030642 005 12 0 00 040013 ER5 E,40013 ;C(E) WAS CLOBBERED 810 030643 321 16 0 00 030631 JUMPL AC+2,F40010 ;LOOP ON ERROR SWITCH^ 811 812 004002 ADR=ADR+1 813 000042 WW=WW-1 814 000002 XX=XX+XX 815 IFE XX, 816 817 ;MULTIPLY A FLOATING 1 BY 1010...101010 818 525252 525252 V1=N1 819 652525 252524 V2=N1*XX 820 IFL XX, 821 777777 777776 IFG XX,>!>>> 822 MOP1 (\ADR,V1,0,XX,V3,V2)^ 823 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 824 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 825 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 826 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 827 828 525252 525252 F40020: AA1=V1 ;INITIAL C(AC) 829 030644 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 830 000000 AA2=0 ;INITIAL C(AC+1) 831 030645 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 832 000002 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0032 833 030646 200 12 0 00 044620 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 834 030647 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 835 777777 777776 AR1=V3 ;EXPECTED RESULT IN AC 836 030650 312 14 0 00 044621 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 837 030651 003 14 0 00 040021 ER3 AC,40021 ;HIGH PRODUCT FAILED 838 652525 252524 AR2=V2 ;EXPECTED RESULT IN AC+1 839 030652 312 15 0 00 044622 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 840 030653 004 15 0 00 040022 ER4 AC+1,40022 ;LOW PRODUCT FAILED 841 000002 AEE=XX ;INITIAL C(E) 842 030654 312 12 0 00 044620 CAME E,[XX] ;WAS C(E) CLOBBERED? 843 030655 005 12 0 00 040023 ER5 E,40023 ;C(E) WAS CLOBBERED 844 030656 321 16 0 00 030644 JUMPL AC+2,F40020 ;LOOP ON ERROR SWITCH^ 845 846 004003 ADR=ADR+1 847 000041 WW=WW-1 848 000004 XX=XX+XX 849 IFE XX, 850 851 ;MULTIPLY A FLOATING 1 BY 1010...101010 852 525252 525252 V1=N1 853 525252 525250 V2=N1*XX 854 IFL XX, 855 777777 777775 IFG XX,>!>>> 856 MOP1 (\ADR,V1,0,XX,V3,V2)^ 857 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 858 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 859 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 860 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 861 862 525252 525252 F40030: AA1=V1 ;INITIAL C(AC) 863 030657 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 864 000000 AA2=0 ;INITIAL C(AC+1) 865 030660 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 866 000004 AEE=XX ;INITIAL C(E) 867 030661 200 12 0 00 044623 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 868 030662 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 869 777777 777775 AR1=V3 ;EXPECTED RESULT IN AC 870 030663 312 14 0 00 044624 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 871 030664 003 14 0 00 040031 ER3 AC,40031 ;HIGH PRODUCT FAILED 872 525252 525250 AR2=V2 ;EXPECTED RESULT IN AC+1 873 030665 312 15 0 00 044625 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 874 030666 004 15 0 00 040032 ER4 AC+1,40032 ;LOW PRODUCT FAILED 875 000004 AEE=XX ;INITIAL C(E) 876 030667 312 12 0 00 044623 CAME E,[XX] ;WAS C(E) CLOBBERED? 877 030670 005 12 0 00 040033 ER5 E,40033 ;C(E) WAS CLOBBERED 878 030671 321 16 0 00 030657 JUMPL AC+2,F40030 ;LOOP ON ERROR SWITCH^ 879 880 004004 ADR=ADR+1 881 000040 WW=WW-1 882 000010 XX=XX+XX 883 IFE XX, 884 885 ;MULTIPLY A FLOATING 1 BY 1010...101010 886 525252 525252 V1=N1 887 652525 252520 V2=N1*XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0033 888 IFL XX, 889 777777 777772 IFG XX,>!>>> 890 MOP1 (\ADR,V1,0,XX,V3,V2)^ 891 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 892 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 893 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 894 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 895 896 525252 525252 F40040: AA1=V1 ;INITIAL C(AC) 897 030672 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 898 000000 AA2=0 ;INITIAL C(AC+1) 899 030673 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 900 000010 AEE=XX ;INITIAL C(E) 901 030674 200 12 0 00 044626 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 902 030675 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 903 777777 777772 AR1=V3 ;EXPECTED RESULT IN AC 904 030676 312 14 0 00 044627 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 905 030677 003 14 0 00 040041 ER3 AC,40041 ;HIGH PRODUCT FAILED 906 652525 252520 AR2=V2 ;EXPECTED RESULT IN AC+1 907 030700 312 15 0 00 044630 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 908 030701 004 15 0 00 040042 ER4 AC+1,40042 ;LOW PRODUCT FAILED 909 000010 AEE=XX ;INITIAL C(E) 910 030702 312 12 0 00 044626 CAME E,[XX] ;WAS C(E) CLOBBERED? 911 030703 005 12 0 00 040043 ER5 E,40043 ;C(E) WAS CLOBBERED 912 030704 321 16 0 00 030672 JUMPL AC+2,F40040 ;LOOP ON ERROR SWITCH^ 913 914 004005 ADR=ADR+1 915 000037 WW=WW-1 916 000020 XX=XX+XX 917 IFE XX, 918 919 ;MULTIPLY A FLOATING 1 BY 1010...101010 920 525252 525252 V1=N1 921 525252 525240 V2=N1*XX 922 IFL XX, 923 777777 777765 IFG XX,>!>>> 924 MOP1 (\ADR,V1,0,XX,V3,V2)^ 925 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 926 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 927 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 928 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 929 930 525252 525252 F40050: AA1=V1 ;INITIAL C(AC) 931 030705 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 932 000000 AA2=0 ;INITIAL C(AC+1) 933 030706 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 934 000020 AEE=XX ;INITIAL C(E) 935 030707 200 12 0 00 044631 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 936 030710 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 937 777777 777765 AR1=V3 ;EXPECTED RESULT IN AC 938 030711 312 14 0 00 044632 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 939 030712 003 14 0 00 040051 ER3 AC,40051 ;HIGH PRODUCT FAILED 940 525252 525240 AR2=V2 ;EXPECTED RESULT IN AC+1 941 030713 312 15 0 00 044633 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 942 030714 004 15 0 00 040052 ER4 AC+1,40052 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0034 943 000020 AEE=XX ;INITIAL C(E) 944 030715 312 12 0 00 044631 CAME E,[XX] ;WAS C(E) CLOBBERED? 945 030716 005 12 0 00 040053 ER5 E,40053 ;C(E) WAS CLOBBERED 946 030717 321 16 0 00 030705 JUMPL AC+2,F40050 ;LOOP ON ERROR SWITCH^ 947 948 004006 ADR=ADR+1 949 000036 WW=WW-1 950 000040 XX=XX+XX 951 IFE XX, 952 953 ;MULTIPLY A FLOATING 1 BY 1010...101010 954 525252 525252 V1=N1 955 652525 252500 V2=N1*XX 956 IFL XX, 957 777777 777752 IFG XX,>!>>> 958 MOP1 (\ADR,V1,0,XX,V3,V2)^ 959 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 960 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 961 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 962 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 963 964 525252 525252 F40060: AA1=V1 ;INITIAL C(AC) 965 030720 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 966 000000 AA2=0 ;INITIAL C(AC+1) 967 030721 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 968 000040 AEE=XX ;INITIAL C(E) 969 030722 200 12 0 00 044634 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 970 030723 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 971 777777 777752 AR1=V3 ;EXPECTED RESULT IN AC 972 030724 312 14 0 00 044635 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 973 030725 003 14 0 00 040061 ER3 AC,40061 ;HIGH PRODUCT FAILED 974 652525 252500 AR2=V2 ;EXPECTED RESULT IN AC+1 975 030726 312 15 0 00 044636 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 976 030727 004 15 0 00 040062 ER4 AC+1,40062 ;LOW PRODUCT FAILED 977 000040 AEE=XX ;INITIAL C(E) 978 030730 312 12 0 00 044634 CAME E,[XX] ;WAS C(E) CLOBBERED? 979 030731 005 12 0 00 040063 ER5 E,40063 ;C(E) WAS CLOBBERED 980 030732 321 16 0 00 030720 JUMPL AC+2,F40060 ;LOOP ON ERROR SWITCH^ 981 982 004007 ADR=ADR+1 983 000035 WW=WW-1 984 000100 XX=XX+XX 985 IFE XX, 986 987 ;MULTIPLY A FLOATING 1 BY 1010...101010 988 525252 525252 V1=N1 989 525252 525200 V2=N1*XX 990 IFL XX, 991 777777 777725 IFG XX,>!>>> 992 MOP1 (\ADR,V1,0,XX,V3,V2)^ 993 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 994 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 995 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 996 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 997 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0035 998 525252 525252 F40070: AA1=V1 ;INITIAL C(AC) 999 030733 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1000 000000 AA2=0 ;INITIAL C(AC+1) 1001 030734 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1002 000100 AEE=XX ;INITIAL C(E) 1003 030735 200 12 0 00 044637 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1004 030736 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1005 777777 777725 AR1=V3 ;EXPECTED RESULT IN AC 1006 030737 312 14 0 00 044640 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1007 030740 003 14 0 00 040071 ER3 AC,40071 ;HIGH PRODUCT FAILED 1008 525252 525200 AR2=V2 ;EXPECTED RESULT IN AC+1 1009 030741 312 15 0 00 044641 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1010 030742 004 15 0 00 040072 ER4 AC+1,40072 ;LOW PRODUCT FAILED 1011 000100 AEE=XX ;INITIAL C(E) 1012 030743 312 12 0 00 044637 CAME E,[XX] ;WAS C(E) CLOBBERED? 1013 030744 005 12 0 00 040073 ER5 E,40073 ;C(E) WAS CLOBBERED 1014 030745 321 16 0 00 030733 JUMPL AC+2,F40070 ;LOOP ON ERROR SWITCH^ 1015 1016 004010 ADR=ADR+1 1017 000034 WW=WW-1 1018 000200 XX=XX+XX 1019 IFE XX, 1020 1021 ;MULTIPLY A FLOATING 1 BY 1010...101010 1022 525252 525252 V1=N1 1023 652525 252400 V2=N1*XX 1024 IFL XX, 1025 777777 777652 IFG XX,>!>>> 1026 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1027 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1028 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1029 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1030 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1031 1032 525252 525252 F40100: AA1=V1 ;INITIAL C(AC) 1033 030746 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1034 000000 AA2=0 ;INITIAL C(AC+1) 1035 030747 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1036 000200 AEE=XX ;INITIAL C(E) 1037 030750 200 12 0 00 044642 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1038 030751 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1039 777777 777652 AR1=V3 ;EXPECTED RESULT IN AC 1040 030752 312 14 0 00 044643 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1041 030753 003 14 0 00 040101 ER3 AC,40101 ;HIGH PRODUCT FAILED 1042 652525 252400 AR2=V2 ;EXPECTED RESULT IN AC+1 1043 030754 312 15 0 00 044644 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1044 030755 004 15 0 00 040102 ER4 AC+1,40102 ;LOW PRODUCT FAILED 1045 000200 AEE=XX ;INITIAL C(E) 1046 030756 312 12 0 00 044642 CAME E,[XX] ;WAS C(E) CLOBBERED? 1047 030757 005 12 0 00 040103 ER5 E,40103 ;C(E) WAS CLOBBERED 1048 030760 321 16 0 00 030746 JUMPL AC+2,F40100 ;LOOP ON ERROR SWITCH^ 1049 1050 004011 ADR=ADR+1 1051 000033 WW=WW-1 1052 000400 XX=XX+XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0036 1053 IFE XX, 1054 1055 ;MULTIPLY A FLOATING 1 BY 1010...101010 1056 525252 525252 V1=N1 1057 525252 525000 V2=N1*XX 1058 IFL XX, 1059 777777 777525 IFG XX,>!>>> 1060 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1061 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1062 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1063 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1064 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1065 1066 525252 525252 F40110: AA1=V1 ;INITIAL C(AC) 1067 030761 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1068 000000 AA2=0 ;INITIAL C(AC+1) 1069 030762 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1070 000400 AEE=XX ;INITIAL C(E) 1071 030763 200 12 0 00 044645 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1072 030764 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1073 777777 777525 AR1=V3 ;EXPECTED RESULT IN AC 1074 030765 312 14 0 00 044646 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1075 030766 003 14 0 00 040111 ER3 AC,40111 ;HIGH PRODUCT FAILED 1076 525252 525000 AR2=V2 ;EXPECTED RESULT IN AC+1 1077 030767 312 15 0 00 044647 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1078 030770 004 15 0 00 040112 ER4 AC+1,40112 ;LOW PRODUCT FAILED 1079 000400 AEE=XX ;INITIAL C(E) 1080 030771 312 12 0 00 044645 CAME E,[XX] ;WAS C(E) CLOBBERED? 1081 030772 005 12 0 00 040113 ER5 E,40113 ;C(E) WAS CLOBBERED 1082 030773 321 16 0 00 030761 JUMPL AC+2,F40110 ;LOOP ON ERROR SWITCH^ 1083 1084 004012 ADR=ADR+1 1085 000032 WW=WW-1 1086 001000 XX=XX+XX 1087 IFE XX, 1088 1089 ;MULTIPLY A FLOATING 1 BY 1010...101010 1090 525252 525252 V1=N1 1091 652525 252000 V2=N1*XX 1092 IFL XX, 1093 777777 777252 IFG XX,>!>>> 1094 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1095 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1096 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1097 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1098 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1099 1100 525252 525252 F40120: AA1=V1 ;INITIAL C(AC) 1101 030774 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1102 000000 AA2=0 ;INITIAL C(AC+1) 1103 030775 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1104 001000 AEE=XX ;INITIAL C(E) 1105 030776 200 12 0 00 044650 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1106 030777 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1107 777777 777252 AR1=V3 ;EXPECTED RESULT IN AC DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0037 1108 031000 312 14 0 00 044651 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1109 031001 003 14 0 00 040121 ER3 AC,40121 ;HIGH PRODUCT FAILED 1110 652525 252000 AR2=V2 ;EXPECTED RESULT IN AC+1 1111 031002 312 15 0 00 044652 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1112 031003 004 15 0 00 040122 ER4 AC+1,40122 ;LOW PRODUCT FAILED 1113 001000 AEE=XX ;INITIAL C(E) 1114 031004 312 12 0 00 044650 CAME E,[XX] ;WAS C(E) CLOBBERED? 1115 031005 005 12 0 00 040123 ER5 E,40123 ;C(E) WAS CLOBBERED 1116 031006 321 16 0 00 030774 JUMPL AC+2,F40120 ;LOOP ON ERROR SWITCH^ 1117 1118 004013 ADR=ADR+1 1119 000031 WW=WW-1 1120 002000 XX=XX+XX 1121 IFE XX, 1122 1123 ;MULTIPLY A FLOATING 1 BY 1010...101010 1124 525252 525252 V1=N1 1125 525252 524000 V2=N1*XX 1126 IFL XX, 1127 777777 776525 IFG XX,>!>>> 1128 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1129 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1130 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1131 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1132 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1133 1134 525252 525252 F40130: AA1=V1 ;INITIAL C(AC) 1135 031007 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1136 000000 AA2=0 ;INITIAL C(AC+1) 1137 031010 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1138 002000 AEE=XX ;INITIAL C(E) 1139 031011 200 12 0 00 044653 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1140 031012 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1141 777777 776525 AR1=V3 ;EXPECTED RESULT IN AC 1142 031013 312 14 0 00 044654 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1143 031014 003 14 0 00 040131 ER3 AC,40131 ;HIGH PRODUCT FAILED 1144 525252 524000 AR2=V2 ;EXPECTED RESULT IN AC+1 1145 031015 312 15 0 00 044655 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1146 031016 004 15 0 00 040132 ER4 AC+1,40132 ;LOW PRODUCT FAILED 1147 002000 AEE=XX ;INITIAL C(E) 1148 031017 312 12 0 00 044653 CAME E,[XX] ;WAS C(E) CLOBBERED? 1149 031020 005 12 0 00 040133 ER5 E,40133 ;C(E) WAS CLOBBERED 1150 031021 321 16 0 00 031007 JUMPL AC+2,F40130 ;LOOP ON ERROR SWITCH^ 1151 1152 004014 ADR=ADR+1 1153 000030 WW=WW-1 1154 004000 XX=XX+XX 1155 IFE XX, 1156 1157 ;MULTIPLY A FLOATING 1 BY 1010...101010 1158 525252 525252 V1=N1 1159 652525 250000 V2=N1*XX 1160 IFL XX, 1161 777777 775252 IFG XX,>!>>> 1162 MOP1 (\ADR,V1,0,XX,V3,V2)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0038 1163 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1164 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1165 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1166 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1167 1168 525252 525252 F40140: AA1=V1 ;INITIAL C(AC) 1169 031022 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1170 000000 AA2=0 ;INITIAL C(AC+1) 1171 031023 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1172 004000 AEE=XX ;INITIAL C(E) 1173 031024 200 12 0 00 044656 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1174 031025 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1175 777777 775252 AR1=V3 ;EXPECTED RESULT IN AC 1176 031026 312 14 0 00 044657 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1177 031027 003 14 0 00 040141 ER3 AC,40141 ;HIGH PRODUCT FAILED 1178 652525 250000 AR2=V2 ;EXPECTED RESULT IN AC+1 1179 031030 312 15 0 00 044660 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1180 031031 004 15 0 00 040142 ER4 AC+1,40142 ;LOW PRODUCT FAILED 1181 004000 AEE=XX ;INITIAL C(E) 1182 031032 312 12 0 00 044656 CAME E,[XX] ;WAS C(E) CLOBBERED? 1183 031033 005 12 0 00 040143 ER5 E,40143 ;C(E) WAS CLOBBERED 1184 031034 321 16 0 00 031022 JUMPL AC+2,F40140 ;LOOP ON ERROR SWITCH^ 1185 1186 004015 ADR=ADR+1 1187 000027 WW=WW-1 1188 010000 XX=XX+XX 1189 IFE XX, 1190 1191 ;MULTIPLY A FLOATING 1 BY 1010...101010 1192 525252 525252 V1=N1 1193 525252 520000 V2=N1*XX 1194 IFL XX, 1195 777777 772525 IFG XX,>!>>> 1196 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1197 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1198 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1199 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1200 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1201 1202 525252 525252 F40150: AA1=V1 ;INITIAL C(AC) 1203 031035 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1204 000000 AA2=0 ;INITIAL C(AC+1) 1205 031036 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1206 010000 AEE=XX ;INITIAL C(E) 1207 031037 200 12 0 00 044661 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1208 031040 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1209 777777 772525 AR1=V3 ;EXPECTED RESULT IN AC 1210 031041 312 14 0 00 044662 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1211 031042 003 14 0 00 040151 ER3 AC,40151 ;HIGH PRODUCT FAILED 1212 525252 520000 AR2=V2 ;EXPECTED RESULT IN AC+1 1213 031043 312 15 0 00 044663 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1214 031044 004 15 0 00 040152 ER4 AC+1,40152 ;LOW PRODUCT FAILED 1215 010000 AEE=XX ;INITIAL C(E) 1216 031045 312 12 0 00 044661 CAME E,[XX] ;WAS C(E) CLOBBERED? 1217 031046 005 12 0 00 040153 ER5 E,40153 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0039 1218 031047 321 16 0 00 031035 JUMPL AC+2,F40150 ;LOOP ON ERROR SWITCH^ 1219 1220 004016 ADR=ADR+1 1221 000026 WW=WW-1 1222 020000 XX=XX+XX 1223 IFE XX, 1224 1225 ;MULTIPLY A FLOATING 1 BY 1010...101010 1226 525252 525252 V1=N1 1227 652525 240000 V2=N1*XX 1228 IFL XX, 1229 777777 765252 IFG XX,>!>>> 1230 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1231 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1232 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1233 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1234 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1235 1236 525252 525252 F40160: AA1=V1 ;INITIAL C(AC) 1237 031050 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1238 000000 AA2=0 ;INITIAL C(AC+1) 1239 031051 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1240 020000 AEE=XX ;INITIAL C(E) 1241 031052 200 12 0 00 044664 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1242 031053 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1243 777777 765252 AR1=V3 ;EXPECTED RESULT IN AC 1244 031054 312 14 0 00 044665 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1245 031055 003 14 0 00 040161 ER3 AC,40161 ;HIGH PRODUCT FAILED 1246 652525 240000 AR2=V2 ;EXPECTED RESULT IN AC+1 1247 031056 312 15 0 00 044666 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1248 031057 004 15 0 00 040162 ER4 AC+1,40162 ;LOW PRODUCT FAILED 1249 020000 AEE=XX ;INITIAL C(E) 1250 031060 312 12 0 00 044664 CAME E,[XX] ;WAS C(E) CLOBBERED? 1251 031061 005 12 0 00 040163 ER5 E,40163 ;C(E) WAS CLOBBERED 1252 031062 321 16 0 00 031050 JUMPL AC+2,F40160 ;LOOP ON ERROR SWITCH^ 1253 1254 004017 ADR=ADR+1 1255 000025 WW=WW-1 1256 040000 XX=XX+XX 1257 IFE XX, 1258 1259 ;MULTIPLY A FLOATING 1 BY 1010...101010 1260 525252 525252 V1=N1 1261 525252 500000 V2=N1*XX 1262 IFL XX, 1263 777777 752525 IFG XX,>!>>> 1264 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1265 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1266 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1267 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1268 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1269 1270 525252 525252 F40170: AA1=V1 ;INITIAL C(AC) 1271 031063 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1272 000000 AA2=0 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0040 1273 031064 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1274 040000 AEE=XX ;INITIAL C(E) 1275 031065 200 12 0 00 044667 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1276 031066 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1277 777777 752525 AR1=V3 ;EXPECTED RESULT IN AC 1278 031067 312 14 0 00 044670 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1279 031070 003 14 0 00 040171 ER3 AC,40171 ;HIGH PRODUCT FAILED 1280 525252 500000 AR2=V2 ;EXPECTED RESULT IN AC+1 1281 031071 312 15 0 00 044671 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1282 031072 004 15 0 00 040172 ER4 AC+1,40172 ;LOW PRODUCT FAILED 1283 040000 AEE=XX ;INITIAL C(E) 1284 031073 312 12 0 00 044667 CAME E,[XX] ;WAS C(E) CLOBBERED? 1285 031074 005 12 0 00 040173 ER5 E,40173 ;C(E) WAS CLOBBERED 1286 031075 321 16 0 00 031063 JUMPL AC+2,F40170 ;LOOP ON ERROR SWITCH^ 1287 1288 004020 ADR=ADR+1 1289 000024 WW=WW-1 1290 100000 XX=XX+XX 1291 IFE XX, 1292 1293 ;MULTIPLY A FLOATING 1 BY 1010...101010 1294 525252 525252 V1=N1 1295 652525 200000 V2=N1*XX 1296 IFL XX, 1297 777777 725252 IFG XX,>!>>> 1298 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1299 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1300 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1301 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1302 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1303 1304 525252 525252 F40200: AA1=V1 ;INITIAL C(AC) 1305 031076 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1306 000000 AA2=0 ;INITIAL C(AC+1) 1307 031077 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1308 100000 AEE=XX ;INITIAL C(E) 1309 031100 200 12 0 00 044672 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1310 031101 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1311 777777 725252 AR1=V3 ;EXPECTED RESULT IN AC 1312 031102 312 14 0 00 044673 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1313 031103 003 14 0 00 040201 ER3 AC,40201 ;HIGH PRODUCT FAILED 1314 652525 200000 AR2=V2 ;EXPECTED RESULT IN AC+1 1315 031104 312 15 0 00 044674 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1316 031105 004 15 0 00 040202 ER4 AC+1,40202 ;LOW PRODUCT FAILED 1317 100000 AEE=XX ;INITIAL C(E) 1318 031106 312 12 0 00 044672 CAME E,[XX] ;WAS C(E) CLOBBERED? 1319 031107 005 12 0 00 040203 ER5 E,40203 ;C(E) WAS CLOBBERED 1320 031110 321 16 0 00 031076 JUMPL AC+2,F40200 ;LOOP ON ERROR SWITCH^ 1321 1322 004021 ADR=ADR+1 1323 000023 WW=WW-1 1324 200000 XX=XX+XX 1325 IFE XX, 1326 1327 ;MULTIPLY A FLOATING 1 BY 1010...101010 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0041 1328 525252 525252 V1=N1 1329 525252 400000 V2=N1*XX 1330 IFL XX, 1331 777777 652525 IFG XX,>!>>> 1332 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1333 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1334 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1335 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1336 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1337 1338 525252 525252 F40210: AA1=V1 ;INITIAL C(AC) 1339 031111 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1340 000000 AA2=0 ;INITIAL C(AC+1) 1341 031112 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1342 200000 AEE=XX ;INITIAL C(E) 1343 031113 200 12 0 00 044675 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1344 031114 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1345 777777 652525 AR1=V3 ;EXPECTED RESULT IN AC 1346 031115 312 14 0 00 044676 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1347 031116 003 14 0 00 040211 ER3 AC,40211 ;HIGH PRODUCT FAILED 1348 525252 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 1349 031117 312 15 0 00 044677 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1350 031120 004 15 0 00 040212 ER4 AC+1,40212 ;LOW PRODUCT FAILED 1351 200000 AEE=XX ;INITIAL C(E) 1352 031121 312 12 0 00 044675 CAME E,[XX] ;WAS C(E) CLOBBERED? 1353 031122 005 12 0 00 040213 ER5 E,40213 ;C(E) WAS CLOBBERED 1354 031123 321 16 0 00 031111 JUMPL AC+2,F40210 ;LOOP ON ERROR SWITCH^ 1355 1356 004022 ADR=ADR+1 1357 000022 WW=WW-1 1358 400000 XX=XX+XX 1359 IFE XX, 1360 1361 ;MULTIPLY A FLOATING 1 BY 1010...101010 1362 525252 525252 V1=N1 1363 652525 000000 V2=N1*XX 1364 IFL XX, 1365 777777 525252 IFG XX,>!>>> 1366 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1367 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1368 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1369 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1370 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1371 1372 525252 525252 F40220: AA1=V1 ;INITIAL C(AC) 1373 031124 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1374 000000 AA2=0 ;INITIAL C(AC+1) 1375 031125 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1376 400000 AEE=XX ;INITIAL C(E) 1377 031126 200 12 0 00 044700 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1378 031127 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1379 777777 525252 AR1=V3 ;EXPECTED RESULT IN AC 1380 031130 312 14 0 00 044701 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1381 031131 003 14 0 00 040221 ER3 AC,40221 ;HIGH PRODUCT FAILED 1382 652525 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0042 1383 031132 312 15 0 00 044702 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1384 031133 004 15 0 00 040222 ER4 AC+1,40222 ;LOW PRODUCT FAILED 1385 400000 AEE=XX ;INITIAL C(E) 1386 031134 312 12 0 00 044700 CAME E,[XX] ;WAS C(E) CLOBBERED? 1387 031135 005 12 0 00 040223 ER5 E,40223 ;C(E) WAS CLOBBERED 1388 031136 321 16 0 00 031124 JUMPL AC+2,F40220 ;LOOP ON ERROR SWITCH^ 1389 1390 004023 ADR=ADR+1 1391 000021 WW=WW-1 1392 000001 000000 XX=XX+XX 1393 IFE XX, 1394 1395 ;MULTIPLY A FLOATING 1 BY 1010...101010 1396 525252 525252 V1=N1 1397 525252 000000 V2=N1*XX 1398 IFL XX, 1399 777777 252525 IFG XX,>!>>> 1400 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1401 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1402 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1403 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1404 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1405 1406 525252 525252 F40230: AA1=V1 ;INITIAL C(AC) 1407 031137 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1408 000000 AA2=0 ;INITIAL C(AC+1) 1409 031140 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1410 000001 000000 AEE=XX ;INITIAL C(E) 1411 031141 200 12 0 00 044703 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1412 031142 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1413 777777 252525 AR1=V3 ;EXPECTED RESULT IN AC 1414 031143 312 14 0 00 044704 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1415 031144 003 14 0 00 040231 ER3 AC,40231 ;HIGH PRODUCT FAILED 1416 525252 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1417 031145 312 15 0 00 044705 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1418 031146 004 15 0 00 040232 ER4 AC+1,40232 ;LOW PRODUCT FAILED 1419 000001 000000 AEE=XX ;INITIAL C(E) 1420 031147 312 12 0 00 044703 CAME E,[XX] ;WAS C(E) CLOBBERED? 1421 031150 005 12 0 00 040233 ER5 E,40233 ;C(E) WAS CLOBBERED 1422 031151 321 16 0 00 031137 JUMPL AC+2,F40230 ;LOOP ON ERROR SWITCH^ 1423 1424 004024 ADR=ADR+1 1425 000020 WW=WW-1 1426 000002 000000 XX=XX+XX 1427 IFE XX, 1428 1429 ;MULTIPLY A FLOATING 1 BY 1010...101010 1430 525252 525252 V1=N1 1431 652524 000000 V2=N1*XX 1432 IFL XX, 1433 777776 525252 IFG XX,>!>>> 1434 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1435 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1436 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1437 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0043 1438 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1439 1440 525252 525252 F40240: AA1=V1 ;INITIAL C(AC) 1441 031152 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1442 000000 AA2=0 ;INITIAL C(AC+1) 1443 031153 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1444 000002 000000 AEE=XX ;INITIAL C(E) 1445 031154 200 12 0 00 044706 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1446 031155 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1447 777776 525252 AR1=V3 ;EXPECTED RESULT IN AC 1448 031156 312 14 0 00 044707 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1449 031157 003 14 0 00 040241 ER3 AC,40241 ;HIGH PRODUCT FAILED 1450 652524 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1451 031160 312 15 0 00 044710 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1452 031161 004 15 0 00 040242 ER4 AC+1,40242 ;LOW PRODUCT FAILED 1453 000002 000000 AEE=XX ;INITIAL C(E) 1454 031162 312 12 0 00 044706 CAME E,[XX] ;WAS C(E) CLOBBERED? 1455 031163 005 12 0 00 040243 ER5 E,40243 ;C(E) WAS CLOBBERED 1456 031164 321 16 0 00 031152 JUMPL AC+2,F40240 ;LOOP ON ERROR SWITCH^ 1457 1458 004025 ADR=ADR+1 1459 000017 WW=WW-1 1460 000004 000000 XX=XX+XX 1461 IFE XX, 1462 1463 ;MULTIPLY A FLOATING 1 BY 1010...101010 1464 525252 525252 V1=N1 1465 525250 000000 V2=N1*XX 1466 IFL XX, 1467 777775 252525 IFG XX,>!>>> 1468 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1469 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1470 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1471 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1472 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1473 1474 525252 525252 F40250: AA1=V1 ;INITIAL C(AC) 1475 031165 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1476 000000 AA2=0 ;INITIAL C(AC+1) 1477 031166 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1478 000004 000000 AEE=XX ;INITIAL C(E) 1479 031167 200 12 0 00 044711 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1480 031170 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1481 777775 252525 AR1=V3 ;EXPECTED RESULT IN AC 1482 031171 312 14 0 00 044712 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1483 031172 003 14 0 00 040251 ER3 AC,40251 ;HIGH PRODUCT FAILED 1484 525250 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1485 031173 312 15 0 00 044713 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1486 031174 004 15 0 00 040252 ER4 AC+1,40252 ;LOW PRODUCT FAILED 1487 000004 000000 AEE=XX ;INITIAL C(E) 1488 031175 312 12 0 00 044711 CAME E,[XX] ;WAS C(E) CLOBBERED? 1489 031176 005 12 0 00 040253 ER5 E,40253 ;C(E) WAS CLOBBERED 1490 031177 321 16 0 00 031165 JUMPL AC+2,F40250 ;LOOP ON ERROR SWITCH^ 1491 1492 004026 ADR=ADR+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0044 1493 000016 WW=WW-1 1494 000010 000000 XX=XX+XX 1495 IFE XX, 1496 1497 ;MULTIPLY A FLOATING 1 BY 1010...101010 1498 525252 525252 V1=N1 1499 652520 000000 V2=N1*XX 1500 IFL XX, 1501 777772 525252 IFG XX,>!>>> 1502 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1503 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1504 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1505 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1506 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1507 1508 525252 525252 F40260: AA1=V1 ;INITIAL C(AC) 1509 031200 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1510 000000 AA2=0 ;INITIAL C(AC+1) 1511 031201 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1512 000010 000000 AEE=XX ;INITIAL C(E) 1513 031202 200 12 0 00 044714 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1514 031203 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1515 777772 525252 AR1=V3 ;EXPECTED RESULT IN AC 1516 031204 312 14 0 00 044715 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1517 031205 003 14 0 00 040261 ER3 AC,40261 ;HIGH PRODUCT FAILED 1518 652520 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1519 031206 312 15 0 00 044716 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1520 031207 004 15 0 00 040262 ER4 AC+1,40262 ;LOW PRODUCT FAILED 1521 000010 000000 AEE=XX ;INITIAL C(E) 1522 031210 312 12 0 00 044714 CAME E,[XX] ;WAS C(E) CLOBBERED? 1523 031211 005 12 0 00 040263 ER5 E,40263 ;C(E) WAS CLOBBERED 1524 031212 321 16 0 00 031200 JUMPL AC+2,F40260 ;LOOP ON ERROR SWITCH^ 1525 1526 004027 ADR=ADR+1 1527 000015 WW=WW-1 1528 000020 000000 XX=XX+XX 1529 IFE XX, 1530 1531 ;MULTIPLY A FLOATING 1 BY 1010...101010 1532 525252 525252 V1=N1 1533 525240 000000 V2=N1*XX 1534 IFL XX, 1535 777765 252525 IFG XX,>!>>> 1536 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1537 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1538 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1539 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1540 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1541 1542 525252 525252 F40270: AA1=V1 ;INITIAL C(AC) 1543 031213 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1544 000000 AA2=0 ;INITIAL C(AC+1) 1545 031214 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1546 000020 000000 AEE=XX ;INITIAL C(E) 1547 031215 200 12 0 00 044717 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0045 1548 031216 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1549 777765 252525 AR1=V3 ;EXPECTED RESULT IN AC 1550 031217 312 14 0 00 044720 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1551 031220 003 14 0 00 040271 ER3 AC,40271 ;HIGH PRODUCT FAILED 1552 525240 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1553 031221 312 15 0 00 044721 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1554 031222 004 15 0 00 040272 ER4 AC+1,40272 ;LOW PRODUCT FAILED 1555 000020 000000 AEE=XX ;INITIAL C(E) 1556 031223 312 12 0 00 044717 CAME E,[XX] ;WAS C(E) CLOBBERED? 1557 031224 005 12 0 00 040273 ER5 E,40273 ;C(E) WAS CLOBBERED 1558 031225 321 16 0 00 031213 JUMPL AC+2,F40270 ;LOOP ON ERROR SWITCH^ 1559 1560 004030 ADR=ADR+1 1561 000014 WW=WW-1 1562 000040 000000 XX=XX+XX 1563 IFE XX, 1564 1565 ;MULTIPLY A FLOATING 1 BY 1010...101010 1566 525252 525252 V1=N1 1567 652500 000000 V2=N1*XX 1568 IFL XX, 1569 777752 525252 IFG XX,>!>>> 1570 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1571 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1572 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1573 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1574 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1575 1576 525252 525252 F40300: AA1=V1 ;INITIAL C(AC) 1577 031226 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1578 000000 AA2=0 ;INITIAL C(AC+1) 1579 031227 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1580 000040 000000 AEE=XX ;INITIAL C(E) 1581 031230 200 12 0 00 044722 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1582 031231 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1583 777752 525252 AR1=V3 ;EXPECTED RESULT IN AC 1584 031232 312 14 0 00 044723 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1585 031233 003 14 0 00 040301 ER3 AC,40301 ;HIGH PRODUCT FAILED 1586 652500 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1587 031234 312 15 0 00 044724 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1588 031235 004 15 0 00 040302 ER4 AC+1,40302 ;LOW PRODUCT FAILED 1589 000040 000000 AEE=XX ;INITIAL C(E) 1590 031236 312 12 0 00 044722 CAME E,[XX] ;WAS C(E) CLOBBERED? 1591 031237 005 12 0 00 040303 ER5 E,40303 ;C(E) WAS CLOBBERED 1592 031240 321 16 0 00 031226 JUMPL AC+2,F40300 ;LOOP ON ERROR SWITCH^ 1593 1594 004031 ADR=ADR+1 1595 000013 WW=WW-1 1596 000100 000000 XX=XX+XX 1597 IFE XX, 1598 1599 ;MULTIPLY A FLOATING 1 BY 1010...101010 1600 525252 525252 V1=N1 1601 525200 000000 V2=N1*XX 1602 IFL XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0046 1603 777725 252525 IFG XX,>!>>> 1604 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1605 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1606 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1607 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1608 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1609 1610 525252 525252 F40310: AA1=V1 ;INITIAL C(AC) 1611 031241 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1612 000000 AA2=0 ;INITIAL C(AC+1) 1613 031242 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1614 000100 000000 AEE=XX ;INITIAL C(E) 1615 031243 200 12 0 00 044725 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1616 031244 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1617 777725 252525 AR1=V3 ;EXPECTED RESULT IN AC 1618 031245 312 14 0 00 044726 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1619 031246 003 14 0 00 040311 ER3 AC,40311 ;HIGH PRODUCT FAILED 1620 525200 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1621 031247 312 15 0 00 044727 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1622 031250 004 15 0 00 040312 ER4 AC+1,40312 ;LOW PRODUCT FAILED 1623 000100 000000 AEE=XX ;INITIAL C(E) 1624 031251 312 12 0 00 044725 CAME E,[XX] ;WAS C(E) CLOBBERED? 1625 031252 005 12 0 00 040313 ER5 E,40313 ;C(E) WAS CLOBBERED 1626 031253 321 16 0 00 031241 JUMPL AC+2,F40310 ;LOOP ON ERROR SWITCH^ 1627 1628 004032 ADR=ADR+1 1629 000012 WW=WW-1 1630 000200 000000 XX=XX+XX 1631 IFE XX, 1632 1633 ;MULTIPLY A FLOATING 1 BY 1010...101010 1634 525252 525252 V1=N1 1635 652400 000000 V2=N1*XX 1636 IFL XX, 1637 777652 525252 IFG XX,>!>>> 1638 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1639 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1640 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1641 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1642 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1643 1644 525252 525252 F40320: AA1=V1 ;INITIAL C(AC) 1645 031254 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1646 000000 AA2=0 ;INITIAL C(AC+1) 1647 031255 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1648 000200 000000 AEE=XX ;INITIAL C(E) 1649 031256 200 12 0 00 044730 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1650 031257 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1651 777652 525252 AR1=V3 ;EXPECTED RESULT IN AC 1652 031260 312 14 0 00 044731 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1653 031261 003 14 0 00 040321 ER3 AC,40321 ;HIGH PRODUCT FAILED 1654 652400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1655 031262 312 15 0 00 044732 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1656 031263 004 15 0 00 040322 ER4 AC+1,40322 ;LOW PRODUCT FAILED 1657 000200 000000 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0047 1658 031264 312 12 0 00 044730 CAME E,[XX] ;WAS C(E) CLOBBERED? 1659 031265 005 12 0 00 040323 ER5 E,40323 ;C(E) WAS CLOBBERED 1660 031266 321 16 0 00 031254 JUMPL AC+2,F40320 ;LOOP ON ERROR SWITCH^ 1661 1662 004033 ADR=ADR+1 1663 000011 WW=WW-1 1664 000400 000000 XX=XX+XX 1665 IFE XX, 1666 1667 ;MULTIPLY A FLOATING 1 BY 1010...101010 1668 525252 525252 V1=N1 1669 525000 000000 V2=N1*XX 1670 IFL XX, 1671 777525 252525 IFG XX,>!>>> 1672 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1673 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1674 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1675 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1676 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1677 1678 525252 525252 F40330: AA1=V1 ;INITIAL C(AC) 1679 031267 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1680 000000 AA2=0 ;INITIAL C(AC+1) 1681 031270 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1682 000400 000000 AEE=XX ;INITIAL C(E) 1683 031271 200 12 0 00 044733 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1684 031272 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1685 777525 252525 AR1=V3 ;EXPECTED RESULT IN AC 1686 031273 312 14 0 00 044734 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1687 031274 003 14 0 00 040331 ER3 AC,40331 ;HIGH PRODUCT FAILED 1688 525000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1689 031275 312 15 0 00 044735 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1690 031276 004 15 0 00 040332 ER4 AC+1,40332 ;LOW PRODUCT FAILED 1691 000400 000000 AEE=XX ;INITIAL C(E) 1692 031277 312 12 0 00 044733 CAME E,[XX] ;WAS C(E) CLOBBERED? 1693 031300 005 12 0 00 040333 ER5 E,40333 ;C(E) WAS CLOBBERED 1694 031301 321 16 0 00 031267 JUMPL AC+2,F40330 ;LOOP ON ERROR SWITCH^ 1695 1696 004034 ADR=ADR+1 1697 000010 WW=WW-1 1698 001000 000000 XX=XX+XX 1699 IFE XX, 1700 1701 ;MULTIPLY A FLOATING 1 BY 1010...101010 1702 525252 525252 V1=N1 1703 652000 000000 V2=N1*XX 1704 IFL XX, 1705 777252 525252 IFG XX,>!>>> 1706 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1707 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1708 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1709 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1710 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1711 1712 525252 525252 F40340: AA1=V1 ;INITIAL C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0048 1713 031302 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1714 000000 AA2=0 ;INITIAL C(AC+1) 1715 031303 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1716 001000 000000 AEE=XX ;INITIAL C(E) 1717 031304 200 12 0 00 044736 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1718 031305 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1719 777252 525252 AR1=V3 ;EXPECTED RESULT IN AC 1720 031306 312 14 0 00 044737 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1721 031307 003 14 0 00 040341 ER3 AC,40341 ;HIGH PRODUCT FAILED 1722 652000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1723 031310 312 15 0 00 044740 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1724 031311 004 15 0 00 040342 ER4 AC+1,40342 ;LOW PRODUCT FAILED 1725 001000 000000 AEE=XX ;INITIAL C(E) 1726 031312 312 12 0 00 044736 CAME E,[XX] ;WAS C(E) CLOBBERED? 1727 031313 005 12 0 00 040343 ER5 E,40343 ;C(E) WAS CLOBBERED 1728 031314 321 16 0 00 031302 JUMPL AC+2,F40340 ;LOOP ON ERROR SWITCH^ 1729 1730 004035 ADR=ADR+1 1731 000007 WW=WW-1 1732 002000 000000 XX=XX+XX 1733 IFE XX, 1734 1735 ;MULTIPLY A FLOATING 1 BY 1010...101010 1736 525252 525252 V1=N1 1737 524000 000000 V2=N1*XX 1738 IFL XX, 1739 776525 252525 IFG XX,>!>>> 1740 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1741 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1742 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1743 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1744 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1745 1746 525252 525252 F40350: AA1=V1 ;INITIAL C(AC) 1747 031315 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1748 000000 AA2=0 ;INITIAL C(AC+1) 1749 031316 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1750 002000 000000 AEE=XX ;INITIAL C(E) 1751 031317 200 12 0 00 044741 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1752 031320 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1753 776525 252525 AR1=V3 ;EXPECTED RESULT IN AC 1754 031321 312 14 0 00 044742 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1755 031322 003 14 0 00 040351 ER3 AC,40351 ;HIGH PRODUCT FAILED 1756 524000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1757 031323 312 15 0 00 044743 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1758 031324 004 15 0 00 040352 ER4 AC+1,40352 ;LOW PRODUCT FAILED 1759 002000 000000 AEE=XX ;INITIAL C(E) 1760 031325 312 12 0 00 044741 CAME E,[XX] ;WAS C(E) CLOBBERED? 1761 031326 005 12 0 00 040353 ER5 E,40353 ;C(E) WAS CLOBBERED 1762 031327 321 16 0 00 031315 JUMPL AC+2,F40350 ;LOOP ON ERROR SWITCH^ 1763 1764 004036 ADR=ADR+1 1765 000006 WW=WW-1 1766 004000 000000 XX=XX+XX 1767 IFE XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0049 1768 1769 ;MULTIPLY A FLOATING 1 BY 1010...101010 1770 525252 525252 V1=N1 1771 650000 000000 V2=N1*XX 1772 IFL XX, 1773 775252 525252 IFG XX,>!>>> 1774 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1775 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1776 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1777 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1778 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1779 1780 525252 525252 F40360: AA1=V1 ;INITIAL C(AC) 1781 031330 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1782 000000 AA2=0 ;INITIAL C(AC+1) 1783 031331 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1784 004000 000000 AEE=XX ;INITIAL C(E) 1785 031332 200 12 0 00 044744 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1786 031333 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1787 775252 525252 AR1=V3 ;EXPECTED RESULT IN AC 1788 031334 312 14 0 00 044745 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1789 031335 003 14 0 00 040361 ER3 AC,40361 ;HIGH PRODUCT FAILED 1790 650000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1791 031336 312 15 0 00 044746 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1792 031337 004 15 0 00 040362 ER4 AC+1,40362 ;LOW PRODUCT FAILED 1793 004000 000000 AEE=XX ;INITIAL C(E) 1794 031340 312 12 0 00 044744 CAME E,[XX] ;WAS C(E) CLOBBERED? 1795 031341 005 12 0 00 040363 ER5 E,40363 ;C(E) WAS CLOBBERED 1796 031342 321 16 0 00 031330 JUMPL AC+2,F40360 ;LOOP ON ERROR SWITCH^ 1797 1798 004037 ADR=ADR+1 1799 000005 WW=WW-1 1800 010000 000000 XX=XX+XX 1801 IFE XX, 1802 1803 ;MULTIPLY A FLOATING 1 BY 1010...101010 1804 525252 525252 V1=N1 1805 520000 000000 V2=N1*XX 1806 IFL XX, 1807 772525 252525 IFG XX,>!>>> 1808 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1809 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1810 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1811 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1812 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1813 1814 525252 525252 F40370: AA1=V1 ;INITIAL C(AC) 1815 031343 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1816 000000 AA2=0 ;INITIAL C(AC+1) 1817 031344 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1818 010000 000000 AEE=XX ;INITIAL C(E) 1819 031345 200 12 0 00 044747 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1820 031346 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1821 772525 252525 AR1=V3 ;EXPECTED RESULT IN AC 1822 031347 312 14 0 00 044750 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0050 1823 031350 003 14 0 00 040371 ER3 AC,40371 ;HIGH PRODUCT FAILED 1824 520000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1825 031351 312 15 0 00 044751 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1826 031352 004 15 0 00 040372 ER4 AC+1,40372 ;LOW PRODUCT FAILED 1827 010000 000000 AEE=XX ;INITIAL C(E) 1828 031353 312 12 0 00 044747 CAME E,[XX] ;WAS C(E) CLOBBERED? 1829 031354 005 12 0 00 040373 ER5 E,40373 ;C(E) WAS CLOBBERED 1830 031355 321 16 0 00 031343 JUMPL AC+2,F40370 ;LOOP ON ERROR SWITCH^ 1831 1832 004040 ADR=ADR+1 1833 000004 WW=WW-1 1834 020000 000000 XX=XX+XX 1835 IFE XX, 1836 1837 ;MULTIPLY A FLOATING 1 BY 1010...101010 1838 525252 525252 V1=N1 1839 640000 000000 V2=N1*XX 1840 IFL XX, 1841 765252 525252 IFG XX,>!>>> 1842 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1843 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1844 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1845 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1846 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1847 1848 525252 525252 F40400: AA1=V1 ;INITIAL C(AC) 1849 031356 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1850 000000 AA2=0 ;INITIAL C(AC+1) 1851 031357 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1852 020000 000000 AEE=XX ;INITIAL C(E) 1853 031360 200 12 0 00 044752 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1854 031361 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1855 765252 525252 AR1=V3 ;EXPECTED RESULT IN AC 1856 031362 312 14 0 00 044753 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1857 031363 003 14 0 00 040401 ER3 AC,40401 ;HIGH PRODUCT FAILED 1858 640000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1859 031364 312 15 0 00 044754 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1860 031365 004 15 0 00 040402 ER4 AC+1,40402 ;LOW PRODUCT FAILED 1861 020000 000000 AEE=XX ;INITIAL C(E) 1862 031366 312 12 0 00 044752 CAME E,[XX] ;WAS C(E) CLOBBERED? 1863 031367 005 12 0 00 040403 ER5 E,40403 ;C(E) WAS CLOBBERED 1864 031370 321 16 0 00 031356 JUMPL AC+2,F40400 ;LOOP ON ERROR SWITCH^ 1865 1866 004041 ADR=ADR+1 1867 000003 WW=WW-1 1868 040000 000000 XX=XX+XX 1869 IFE XX, 1870 1871 ;MULTIPLY A FLOATING 1 BY 1010...101010 1872 525252 525252 V1=N1 1873 500000 000000 V2=N1*XX 1874 IFL XX, 1875 752525 252525 IFG XX,>!>>> 1876 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1877 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0051 1878 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1879 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1880 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1881 1882 525252 525252 F40410: AA1=V1 ;INITIAL C(AC) 1883 031371 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1884 000000 AA2=0 ;INITIAL C(AC+1) 1885 031372 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1886 040000 000000 AEE=XX ;INITIAL C(E) 1887 031373 200 12 0 00 044755 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1888 031374 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1889 752525 252525 AR1=V3 ;EXPECTED RESULT IN AC 1890 031375 312 14 0 00 044756 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1891 031376 003 14 0 00 040411 ER3 AC,40411 ;HIGH PRODUCT FAILED 1892 500000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1893 031377 312 15 0 00 044757 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1894 031400 004 15 0 00 040412 ER4 AC+1,40412 ;LOW PRODUCT FAILED 1895 040000 000000 AEE=XX ;INITIAL C(E) 1896 031401 312 12 0 00 044755 CAME E,[XX] ;WAS C(E) CLOBBERED? 1897 031402 005 12 0 00 040413 ER5 E,40413 ;C(E) WAS CLOBBERED 1898 031403 321 16 0 00 031371 JUMPL AC+2,F40410 ;LOOP ON ERROR SWITCH^ 1899 1900 004042 ADR=ADR+1 1901 000002 WW=WW-1 1902 100000 000000 XX=XX+XX 1903 IFE XX, 1904 1905 ;MULTIPLY A FLOATING 1 BY 1010...101010 1906 525252 525252 V1=N1 1907 600000 000000 V2=N1*XX 1908 IFL XX, 1909 725252 525252 IFG XX,>!>>> 1910 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1911 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1912 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1913 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1914 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1915 1916 525252 525252 F40420: AA1=V1 ;INITIAL C(AC) 1917 031404 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1918 000000 AA2=0 ;INITIAL C(AC+1) 1919 031405 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1920 100000 000000 AEE=XX ;INITIAL C(E) 1921 031406 200 12 0 00 044760 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1922 031407 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1923 725252 525252 AR1=V3 ;EXPECTED RESULT IN AC 1924 031410 312 14 0 00 044761 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1925 031411 003 14 0 00 040421 ER3 AC,40421 ;HIGH PRODUCT FAILED 1926 600000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1927 031412 312 15 0 00 044762 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1928 031413 004 15 0 00 040422 ER4 AC+1,40422 ;LOW PRODUCT FAILED 1929 100000 000000 AEE=XX ;INITIAL C(E) 1930 031414 312 12 0 00 044760 CAME E,[XX] ;WAS C(E) CLOBBERED? 1931 031415 005 12 0 00 040423 ER5 E,40423 ;C(E) WAS CLOBBERED 1932 031416 321 16 0 00 031404 JUMPL AC+2,F40420 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0052 1933 1934 004043 ADR=ADR+1 1935 000001 WW=WW-1 1936 200000 000000 XX=XX+XX 1937 IFE XX, 1938 1939 ;MULTIPLY A FLOATING 1 BY 1010...101010 1940 525252 525252 V1=N1 1941 400000 000000 V2=N1*XX 1942 IFL XX, 1943 652525 252525 IFG XX,>!>>> 1944 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1945 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1946 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1947 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1948 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1949 1950 525252 525252 F40430: AA1=V1 ;INITIAL C(AC) 1951 031417 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1952 000000 AA2=0 ;INITIAL C(AC+1) 1953 031420 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 1954 200000 000000 AEE=XX ;INITIAL C(E) 1955 031421 200 12 0 00 044763 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1956 031422 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1957 652525 252525 AR1=V3 ;EXPECTED RESULT IN AC 1958 031423 312 14 0 00 044764 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1959 031424 003 14 0 00 040431 ER3 AC,40431 ;HIGH PRODUCT FAILED 1960 400000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1961 031425 312 15 0 00 044765 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1962 031426 004 15 0 00 040432 ER4 AC+1,40432 ;LOW PRODUCT FAILED 1963 200000 000000 AEE=XX ;INITIAL C(E) 1964 031427 312 12 0 00 044763 CAME E,[XX] ;WAS C(E) CLOBBERED? 1965 031430 005 12 0 00 040433 ER5 E,40433 ;C(E) WAS CLOBBERED 1966 031431 321 16 0 00 031417 JUMPL AC+2,F40430 ;LOOP ON ERROR SWITCH^ 1967 1968 004044 ADR=ADR+1 1969 000000 WW=WW-1 1970 400000 000000 XX=XX+XX 1971 IFE XX, 1972 1973 ;MULTIPLY A FLOATING 1 BY 1010...101010 1974 525252 525252 V1=N1 1975 000000 V2=N1*XX 1976 252525 252526 IFL XX, 1977 IFG XX,>!>>> 1978 MOP1 (\ADR,V1,0,XX,V3,V2)^ 1979 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 1980 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 1981 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 1982 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 1983 1984 525252 525252 F40440: AA1=V1 ;INITIAL C(AC) 1985 031432 200 14 0 00 044614 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 1986 000000 AA2=0 ;INITIAL C(AC+1) 1987 031433 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-23 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0053 1988 400000 000000 AEE=XX ;INITIAL C(E) 1989 031434 200 12 0 00 044765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 1990 031435 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 1991 252525 252526 AR1=V3 ;EXPECTED RESULT IN AC 1992 031436 312 14 0 00 044766 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 1993 031437 003 14 0 00 040441 ER3 AC,40441 ;HIGH PRODUCT FAILED 1994 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 1995 031440 312 15 0 00 044615 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 1996 031441 004 15 0 00 040442 ER4 AC+1,40442 ;LOW PRODUCT FAILED 1997 400000 000000 AEE=XX ;INITIAL C(E) 1998 031442 312 12 0 00 044765 CAME E,[XX] ;WAS C(E) CLOBBERED? 1999 031443 005 12 0 00 040443 ER5 E,40443 ;C(E) WAS CLOBBERED 2000 031444 321 16 0 00 031432 JUMPL AC+2,F40440 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0054 2001 000014 AC=14 2002 000012 E=&17 2003 SAVEAC (1,1)^ 2004 031445 201 16 0 00 031445 MOVEI AC+2,. ;SAVE TEST PC 2005 031446 202 16 0 00 030051 MOVEM AC+2,TESTPC 2006 031447 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2007 031450 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2008 2009 000044 WW=^D36 2010 000000 XX=0 2011 2012 REPEAT ^D36,< 2013 ADR=ADR+1 2014 WW=WW-1 2015 XX=XX+XX 2016 IFE XX, 2017 2018 ;MULTIPLY 0101...0101 BY A FLOATING 1 2019 V1=N2 2020 V2=N2*XX 2021 IFG XX,>> 2022 IFL XX, 2023 MOP1 (\ADR,XX,0,V1,V3,V2)> 2024 2025 004045 ADR=ADR+1 2026 000043 WW=WW-1 2027 000000 XX=XX+XX 2028 000001 IFE XX, 2029 2030 ;MULTIPLY 0101...0101 BY A FLOATING 1 2031 252525 252525 V1=N2 2032 252525 252525 V2=N2*XX 2033 000000 IFG XX,>> 2034 IFL XX, 2035 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2036 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2037 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2038 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2039 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2040 2041 000001 F40450: AA1=XX ;INITIAL C(AC) 2042 031451 200 14 0 00 044616 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2043 000000 AA2=0 ;INITIAL C(AC+1) 2044 031452 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2045 252525 252525 AEE=V1 ;INITIAL C(E) 2046 031453 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2047 031454 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2048 000000 AR1=V3 ;EXPECTED RESULT IN AC 2049 031455 312 14 0 00 044615 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2050 031456 003 14 0 00 040451 ER3 AC,40451 ;HIGH PRODUCT FAILED 2051 252525 252525 AR2=V2 ;EXPECTED RESULT IN AC+1 2052 031457 312 15 0 00 044767 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2053 031460 004 15 0 00 040452 ER4 AC+1,40452 ;LOW PRODUCT FAILED 2054 252525 252525 AEE=V1 ;INITIAL C(E) 2055 031461 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0055 2056 031462 005 12 0 00 040453 ER5 E,40453 ;C(E) WAS CLOBBERED 2057 031463 321 16 0 00 031451 JUMPL AC+2,F40450 ;LOOP ON ERROR SWITCH^ 2058 2059 004046 ADR=ADR+1 2060 000042 WW=WW-1 2061 000002 XX=XX+XX 2062 IFE XX, 2063 2064 ;MULTIPLY 0101...0101 BY A FLOATING 1 2065 252525 252525 V1=N2 2066 125252 525252 V2=N2*XX 2067 000001 IFG XX,>> 2068 IFL XX, 2069 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2070 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2071 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2072 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2073 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2074 2075 000002 F40460: AA1=XX ;INITIAL C(AC) 2076 031464 200 14 0 00 044620 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2077 000000 AA2=0 ;INITIAL C(AC+1) 2078 031465 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2079 252525 252525 AEE=V1 ;INITIAL C(E) 2080 031466 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2081 031467 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2082 000001 AR1=V3 ;EXPECTED RESULT IN AC 2083 031470 312 14 0 00 044616 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2084 031471 003 14 0 00 040461 ER3 AC,40461 ;HIGH PRODUCT FAILED 2085 125252 525252 AR2=V2 ;EXPECTED RESULT IN AC+1 2086 031472 312 15 0 00 044770 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2087 031473 004 15 0 00 040462 ER4 AC+1,40462 ;LOW PRODUCT FAILED 2088 252525 252525 AEE=V1 ;INITIAL C(E) 2089 031474 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2090 031475 005 12 0 00 040463 ER5 E,40463 ;C(E) WAS CLOBBERED 2091 031476 321 16 0 00 031464 JUMPL AC+2,F40460 ;LOOP ON ERROR SWITCH^ 2092 2093 004047 ADR=ADR+1 2094 000041 WW=WW-1 2095 000004 XX=XX+XX 2096 IFE XX, 2097 2098 ;MULTIPLY 0101...0101 BY A FLOATING 1 2099 252525 252525 V1=N2 2100 252525 252524 V2=N2*XX 2101 000002 IFG XX,>> 2102 IFL XX, 2103 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2104 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2105 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2106 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2107 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2108 2109 000004 F40470: AA1=XX ;INITIAL C(AC) 2110 031477 200 14 0 00 044623 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0056 2111 000000 AA2=0 ;INITIAL C(AC+1) 2112 031500 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2113 252525 252525 AEE=V1 ;INITIAL C(E) 2114 031501 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2115 031502 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2116 000002 AR1=V3 ;EXPECTED RESULT IN AC 2117 031503 312 14 0 00 044620 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2118 031504 003 14 0 00 040471 ER3 AC,40471 ;HIGH PRODUCT FAILED 2119 252525 252524 AR2=V2 ;EXPECTED RESULT IN AC+1 2120 031505 312 15 0 00 044771 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2121 031506 004 15 0 00 040472 ER4 AC+1,40472 ;LOW PRODUCT FAILED 2122 252525 252525 AEE=V1 ;INITIAL C(E) 2123 031507 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2124 031510 005 12 0 00 040473 ER5 E,40473 ;C(E) WAS CLOBBERED 2125 031511 321 16 0 00 031477 JUMPL AC+2,F40470 ;LOOP ON ERROR SWITCH^ 2126 2127 004050 ADR=ADR+1 2128 000040 WW=WW-1 2129 000010 XX=XX+XX 2130 IFE XX, 2131 2132 ;MULTIPLY 0101...0101 BY A FLOATING 1 2133 252525 252525 V1=N2 2134 125252 525250 V2=N2*XX 2135 000005 IFG XX,>> 2136 IFL XX, 2137 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2138 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2139 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2140 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2141 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2142 2143 000010 F40500: AA1=XX ;INITIAL C(AC) 2144 031512 200 14 0 00 044626 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2145 000000 AA2=0 ;INITIAL C(AC+1) 2146 031513 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2147 252525 252525 AEE=V1 ;INITIAL C(E) 2148 031514 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2149 031515 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2150 000005 AR1=V3 ;EXPECTED RESULT IN AC 2151 031516 312 14 0 00 044772 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2152 031517 003 14 0 00 040501 ER3 AC,40501 ;HIGH PRODUCT FAILED 2153 125252 525250 AR2=V2 ;EXPECTED RESULT IN AC+1 2154 031520 312 15 0 00 044773 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2155 031521 004 15 0 00 040502 ER4 AC+1,40502 ;LOW PRODUCT FAILED 2156 252525 252525 AEE=V1 ;INITIAL C(E) 2157 031522 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2158 031523 005 12 0 00 040503 ER5 E,40503 ;C(E) WAS CLOBBERED 2159 031524 321 16 0 00 031512 JUMPL AC+2,F40500 ;LOOP ON ERROR SWITCH^ 2160 2161 004051 ADR=ADR+1 2162 000037 WW=WW-1 2163 000020 XX=XX+XX 2164 IFE XX, 2165 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0057 2166 ;MULTIPLY 0101...0101 BY A FLOATING 1 2167 252525 252525 V1=N2 2168 252525 252520 V2=N2*XX 2169 000012 IFG XX,>> 2170 IFL XX, 2171 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2172 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2173 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2174 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2175 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2176 2177 000020 F40510: AA1=XX ;INITIAL C(AC) 2178 031525 200 14 0 00 044631 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2179 000000 AA2=0 ;INITIAL C(AC+1) 2180 031526 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2181 252525 252525 AEE=V1 ;INITIAL C(E) 2182 031527 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2183 031530 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2184 000012 AR1=V3 ;EXPECTED RESULT IN AC 2185 031531 312 14 0 00 044774 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2186 031532 003 14 0 00 040511 ER3 AC,40511 ;HIGH PRODUCT FAILED 2187 252525 252520 AR2=V2 ;EXPECTED RESULT IN AC+1 2188 031533 312 15 0 00 044775 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2189 031534 004 15 0 00 040512 ER4 AC+1,40512 ;LOW PRODUCT FAILED 2190 252525 252525 AEE=V1 ;INITIAL C(E) 2191 031535 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2192 031536 005 12 0 00 040513 ER5 E,40513 ;C(E) WAS CLOBBERED 2193 031537 321 16 0 00 031525 JUMPL AC+2,F40510 ;LOOP ON ERROR SWITCH^ 2194 2195 004052 ADR=ADR+1 2196 000036 WW=WW-1 2197 000040 XX=XX+XX 2198 IFE XX, 2199 2200 ;MULTIPLY 0101...0101 BY A FLOATING 1 2201 252525 252525 V1=N2 2202 125252 525240 V2=N2*XX 2203 000025 IFG XX,>> 2204 IFL XX, 2205 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2206 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2207 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2208 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2209 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2210 2211 000040 F40520: AA1=XX ;INITIAL C(AC) 2212 031540 200 14 0 00 044634 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2213 000000 AA2=0 ;INITIAL C(AC+1) 2214 031541 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2215 252525 252525 AEE=V1 ;INITIAL C(E) 2216 031542 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2217 031543 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2218 000025 AR1=V3 ;EXPECTED RESULT IN AC 2219 031544 312 14 0 00 044776 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2220 031545 003 14 0 00 040521 ER3 AC,40521 ;HIGH PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0058 2221 125252 525240 AR2=V2 ;EXPECTED RESULT IN AC+1 2222 031546 312 15 0 00 044777 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2223 031547 004 15 0 00 040522 ER4 AC+1,40522 ;LOW PRODUCT FAILED 2224 252525 252525 AEE=V1 ;INITIAL C(E) 2225 031550 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2226 031551 005 12 0 00 040523 ER5 E,40523 ;C(E) WAS CLOBBERED 2227 031552 321 16 0 00 031540 JUMPL AC+2,F40520 ;LOOP ON ERROR SWITCH^ 2228 2229 004053 ADR=ADR+1 2230 000035 WW=WW-1 2231 000100 XX=XX+XX 2232 IFE XX, 2233 2234 ;MULTIPLY 0101...0101 BY A FLOATING 1 2235 252525 252525 V1=N2 2236 252525 252500 V2=N2*XX 2237 000052 IFG XX,>> 2238 IFL XX, 2239 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2240 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2241 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2242 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2243 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2244 2245 000100 F40530: AA1=XX ;INITIAL C(AC) 2246 031553 200 14 0 00 044637 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2247 000000 AA2=0 ;INITIAL C(AC+1) 2248 031554 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2249 252525 252525 AEE=V1 ;INITIAL C(E) 2250 031555 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2251 031556 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2252 000052 AR1=V3 ;EXPECTED RESULT IN AC 2253 031557 312 14 0 00 045000 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2254 031560 003 14 0 00 040531 ER3 AC,40531 ;HIGH PRODUCT FAILED 2255 252525 252500 AR2=V2 ;EXPECTED RESULT IN AC+1 2256 031561 312 15 0 00 045001 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2257 031562 004 15 0 00 040532 ER4 AC+1,40532 ;LOW PRODUCT FAILED 2258 252525 252525 AEE=V1 ;INITIAL C(E) 2259 031563 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2260 031564 005 12 0 00 040533 ER5 E,40533 ;C(E) WAS CLOBBERED 2261 031565 321 16 0 00 031553 JUMPL AC+2,F40530 ;LOOP ON ERROR SWITCH^ 2262 2263 004054 ADR=ADR+1 2264 000034 WW=WW-1 2265 000200 XX=XX+XX 2266 IFE XX, 2267 2268 ;MULTIPLY 0101...0101 BY A FLOATING 1 2269 252525 252525 V1=N2 2270 125252 525200 V2=N2*XX 2271 000125 IFG XX,>> 2272 IFL XX, 2273 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2274 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2275 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0059 2276 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2277 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2278 2279 000200 F40540: AA1=XX ;INITIAL C(AC) 2280 031566 200 14 0 00 044642 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2281 000000 AA2=0 ;INITIAL C(AC+1) 2282 031567 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2283 252525 252525 AEE=V1 ;INITIAL C(E) 2284 031570 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2285 031571 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2286 000125 AR1=V3 ;EXPECTED RESULT IN AC 2287 031572 312 14 0 00 045002 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2288 031573 003 14 0 00 040541 ER3 AC,40541 ;HIGH PRODUCT FAILED 2289 125252 525200 AR2=V2 ;EXPECTED RESULT IN AC+1 2290 031574 312 15 0 00 045003 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2291 031575 004 15 0 00 040542 ER4 AC+1,40542 ;LOW PRODUCT FAILED 2292 252525 252525 AEE=V1 ;INITIAL C(E) 2293 031576 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2294 031577 005 12 0 00 040543 ER5 E,40543 ;C(E) WAS CLOBBERED 2295 031600 321 16 0 00 031566 JUMPL AC+2,F40540 ;LOOP ON ERROR SWITCH^ 2296 2297 004055 ADR=ADR+1 2298 000033 WW=WW-1 2299 000400 XX=XX+XX 2300 IFE XX, 2301 2302 ;MULTIPLY 0101...0101 BY A FLOATING 1 2303 252525 252525 V1=N2 2304 252525 252400 V2=N2*XX 2305 000252 IFG XX,>> 2306 IFL XX, 2307 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2308 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2309 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2310 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2311 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2312 2313 000400 F40550: AA1=XX ;INITIAL C(AC) 2314 031601 200 14 0 00 044645 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2315 000000 AA2=0 ;INITIAL C(AC+1) 2316 031602 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2317 252525 252525 AEE=V1 ;INITIAL C(E) 2318 031603 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2319 031604 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2320 000252 AR1=V3 ;EXPECTED RESULT IN AC 2321 031605 312 14 0 00 045004 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2322 031606 003 14 0 00 040551 ER3 AC,40551 ;HIGH PRODUCT FAILED 2323 252525 252400 AR2=V2 ;EXPECTED RESULT IN AC+1 2324 031607 312 15 0 00 045005 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2325 031610 004 15 0 00 040552 ER4 AC+1,40552 ;LOW PRODUCT FAILED 2326 252525 252525 AEE=V1 ;INITIAL C(E) 2327 031611 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2328 031612 005 12 0 00 040553 ER5 E,40553 ;C(E) WAS CLOBBERED 2329 031613 321 16 0 00 031601 JUMPL AC+2,F40550 ;LOOP ON ERROR SWITCH^ 2330 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0060 2331 004056 ADR=ADR+1 2332 000032 WW=WW-1 2333 001000 XX=XX+XX 2334 IFE XX, 2335 2336 ;MULTIPLY 0101...0101 BY A FLOATING 1 2337 252525 252525 V1=N2 2338 125252 525000 V2=N2*XX 2339 000525 IFG XX,>> 2340 IFL XX, 2341 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2342 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2343 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2344 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2345 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2346 2347 001000 F40560: AA1=XX ;INITIAL C(AC) 2348 031614 200 14 0 00 044650 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2349 000000 AA2=0 ;INITIAL C(AC+1) 2350 031615 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2351 252525 252525 AEE=V1 ;INITIAL C(E) 2352 031616 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2353 031617 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2354 000525 AR1=V3 ;EXPECTED RESULT IN AC 2355 031620 312 14 0 00 045006 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2356 031621 003 14 0 00 040561 ER3 AC,40561 ;HIGH PRODUCT FAILED 2357 125252 525000 AR2=V2 ;EXPECTED RESULT IN AC+1 2358 031622 312 15 0 00 045007 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2359 031623 004 15 0 00 040562 ER4 AC+1,40562 ;LOW PRODUCT FAILED 2360 252525 252525 AEE=V1 ;INITIAL C(E) 2361 031624 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2362 031625 005 12 0 00 040563 ER5 E,40563 ;C(E) WAS CLOBBERED 2363 031626 321 16 0 00 031614 JUMPL AC+2,F40560 ;LOOP ON ERROR SWITCH^ 2364 2365 004057 ADR=ADR+1 2366 000031 WW=WW-1 2367 002000 XX=XX+XX 2368 IFE XX, 2369 2370 ;MULTIPLY 0101...0101 BY A FLOATING 1 2371 252525 252525 V1=N2 2372 252525 252000 V2=N2*XX 2373 001252 IFG XX,>> 2374 IFL XX, 2375 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2376 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2377 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2378 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2379 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2380 2381 002000 F40570: AA1=XX ;INITIAL C(AC) 2382 031627 200 14 0 00 044653 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2383 000000 AA2=0 ;INITIAL C(AC+1) 2384 031630 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2385 252525 252525 AEE=V1 ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0061 2386 031631 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2387 031632 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2388 001252 AR1=V3 ;EXPECTED RESULT IN AC 2389 031633 312 14 0 00 045010 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2390 031634 003 14 0 00 040571 ER3 AC,40571 ;HIGH PRODUCT FAILED 2391 252525 252000 AR2=V2 ;EXPECTED RESULT IN AC+1 2392 031635 312 15 0 00 045011 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2393 031636 004 15 0 00 040572 ER4 AC+1,40572 ;LOW PRODUCT FAILED 2394 252525 252525 AEE=V1 ;INITIAL C(E) 2395 031637 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2396 031640 005 12 0 00 040573 ER5 E,40573 ;C(E) WAS CLOBBERED 2397 031641 321 16 0 00 031627 JUMPL AC+2,F40570 ;LOOP ON ERROR SWITCH^ 2398 2399 004060 ADR=ADR+1 2400 000030 WW=WW-1 2401 004000 XX=XX+XX 2402 IFE XX, 2403 2404 ;MULTIPLY 0101...0101 BY A FLOATING 1 2405 252525 252525 V1=N2 2406 125252 524000 V2=N2*XX 2407 002525 IFG XX,>> 2408 IFL XX, 2409 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2410 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2411 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2412 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2413 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2414 2415 004000 F40600: AA1=XX ;INITIAL C(AC) 2416 031642 200 14 0 00 044656 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2417 000000 AA2=0 ;INITIAL C(AC+1) 2418 031643 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2419 252525 252525 AEE=V1 ;INITIAL C(E) 2420 031644 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2421 031645 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2422 002525 AR1=V3 ;EXPECTED RESULT IN AC 2423 031646 312 14 0 00 045012 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2424 031647 003 14 0 00 040601 ER3 AC,40601 ;HIGH PRODUCT FAILED 2425 125252 524000 AR2=V2 ;EXPECTED RESULT IN AC+1 2426 031650 312 15 0 00 045013 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2427 031651 004 15 0 00 040602 ER4 AC+1,40602 ;LOW PRODUCT FAILED 2428 252525 252525 AEE=V1 ;INITIAL C(E) 2429 031652 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2430 031653 005 12 0 00 040603 ER5 E,40603 ;C(E) WAS CLOBBERED 2431 031654 321 16 0 00 031642 JUMPL AC+2,F40600 ;LOOP ON ERROR SWITCH^ 2432 2433 004061 ADR=ADR+1 2434 000027 WW=WW-1 2435 010000 XX=XX+XX 2436 IFE XX, 2437 2438 ;MULTIPLY 0101...0101 BY A FLOATING 1 2439 252525 252525 V1=N2 2440 252525 250000 V2=N2*XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0062 2441 005252 IFG XX,>> 2442 IFL XX, 2443 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2444 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2445 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2446 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2447 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2448 2449 010000 F40610: AA1=XX ;INITIAL C(AC) 2450 031655 200 14 0 00 044661 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2451 000000 AA2=0 ;INITIAL C(AC+1) 2452 031656 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2453 252525 252525 AEE=V1 ;INITIAL C(E) 2454 031657 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2455 031660 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2456 005252 AR1=V3 ;EXPECTED RESULT IN AC 2457 031661 312 14 0 00 045014 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2458 031662 003 14 0 00 040611 ER3 AC,40611 ;HIGH PRODUCT FAILED 2459 252525 250000 AR2=V2 ;EXPECTED RESULT IN AC+1 2460 031663 312 15 0 00 045015 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2461 031664 004 15 0 00 040612 ER4 AC+1,40612 ;LOW PRODUCT FAILED 2462 252525 252525 AEE=V1 ;INITIAL C(E) 2463 031665 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2464 031666 005 12 0 00 040613 ER5 E,40613 ;C(E) WAS CLOBBERED 2465 031667 321 16 0 00 031655 JUMPL AC+2,F40610 ;LOOP ON ERROR SWITCH^ 2466 2467 004062 ADR=ADR+1 2468 000026 WW=WW-1 2469 020000 XX=XX+XX 2470 IFE XX, 2471 2472 ;MULTIPLY 0101...0101 BY A FLOATING 1 2473 252525 252525 V1=N2 2474 125252 520000 V2=N2*XX 2475 012525 IFG XX,>> 2476 IFL XX, 2477 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2478 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2479 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2480 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2481 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2482 2483 020000 F40620: AA1=XX ;INITIAL C(AC) 2484 031670 200 14 0 00 044664 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2485 000000 AA2=0 ;INITIAL C(AC+1) 2486 031671 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2487 252525 252525 AEE=V1 ;INITIAL C(E) 2488 031672 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2489 031673 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2490 012525 AR1=V3 ;EXPECTED RESULT IN AC 2491 031674 312 14 0 00 045016 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2492 031675 003 14 0 00 040621 ER3 AC,40621 ;HIGH PRODUCT FAILED 2493 125252 520000 AR2=V2 ;EXPECTED RESULT IN AC+1 2494 031676 312 15 0 00 045017 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2495 031677 004 15 0 00 040622 ER4 AC+1,40622 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0063 2496 252525 252525 AEE=V1 ;INITIAL C(E) 2497 031700 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2498 031701 005 12 0 00 040623 ER5 E,40623 ;C(E) WAS CLOBBERED 2499 031702 321 16 0 00 031670 JUMPL AC+2,F40620 ;LOOP ON ERROR SWITCH^ 2500 2501 004063 ADR=ADR+1 2502 000025 WW=WW-1 2503 040000 XX=XX+XX 2504 IFE XX, 2505 2506 ;MULTIPLY 0101...0101 BY A FLOATING 1 2507 252525 252525 V1=N2 2508 252525 240000 V2=N2*XX 2509 025252 IFG XX,>> 2510 IFL XX, 2511 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2512 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2513 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2514 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2515 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2516 2517 040000 F40630: AA1=XX ;INITIAL C(AC) 2518 031703 200 14 0 00 044667 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2519 000000 AA2=0 ;INITIAL C(AC+1) 2520 031704 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2521 252525 252525 AEE=V1 ;INITIAL C(E) 2522 031705 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2523 031706 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2524 025252 AR1=V3 ;EXPECTED RESULT IN AC 2525 031707 312 14 0 00 045020 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2526 031710 003 14 0 00 040631 ER3 AC,40631 ;HIGH PRODUCT FAILED 2527 252525 240000 AR2=V2 ;EXPECTED RESULT IN AC+1 2528 031711 312 15 0 00 045021 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2529 031712 004 15 0 00 040632 ER4 AC+1,40632 ;LOW PRODUCT FAILED 2530 252525 252525 AEE=V1 ;INITIAL C(E) 2531 031713 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2532 031714 005 12 0 00 040633 ER5 E,40633 ;C(E) WAS CLOBBERED 2533 031715 321 16 0 00 031703 JUMPL AC+2,F40630 ;LOOP ON ERROR SWITCH^ 2534 2535 004064 ADR=ADR+1 2536 000024 WW=WW-1 2537 100000 XX=XX+XX 2538 IFE XX, 2539 2540 ;MULTIPLY 0101...0101 BY A FLOATING 1 2541 252525 252525 V1=N2 2542 125252 500000 V2=N2*XX 2543 052525 IFG XX,>> 2544 IFL XX, 2545 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2546 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2547 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2548 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2549 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2550 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0064 2551 100000 F40640: AA1=XX ;INITIAL C(AC) 2552 031716 200 14 0 00 044672 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2553 000000 AA2=0 ;INITIAL C(AC+1) 2554 031717 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2555 252525 252525 AEE=V1 ;INITIAL C(E) 2556 031720 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2557 031721 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2558 052525 AR1=V3 ;EXPECTED RESULT IN AC 2559 031722 312 14 0 00 045022 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2560 031723 003 14 0 00 040641 ER3 AC,40641 ;HIGH PRODUCT FAILED 2561 125252 500000 AR2=V2 ;EXPECTED RESULT IN AC+1 2562 031724 312 15 0 00 045023 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2563 031725 004 15 0 00 040642 ER4 AC+1,40642 ;LOW PRODUCT FAILED 2564 252525 252525 AEE=V1 ;INITIAL C(E) 2565 031726 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2566 031727 005 12 0 00 040643 ER5 E,40643 ;C(E) WAS CLOBBERED 2567 031730 321 16 0 00 031716 JUMPL AC+2,F40640 ;LOOP ON ERROR SWITCH^ 2568 2569 004065 ADR=ADR+1 2570 000023 WW=WW-1 2571 200000 XX=XX+XX 2572 IFE XX, 2573 2574 ;MULTIPLY 0101...0101 BY A FLOATING 1 2575 252525 252525 V1=N2 2576 252525 200000 V2=N2*XX 2577 125252 IFG XX,>> 2578 IFL XX, 2579 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2580 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2581 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2582 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2583 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2584 2585 200000 F40650: AA1=XX ;INITIAL C(AC) 2586 031731 200 14 0 00 044675 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2587 000000 AA2=0 ;INITIAL C(AC+1) 2588 031732 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2589 252525 252525 AEE=V1 ;INITIAL C(E) 2590 031733 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2591 031734 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2592 125252 AR1=V3 ;EXPECTED RESULT IN AC 2593 031735 312 14 0 00 045024 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2594 031736 003 14 0 00 040651 ER3 AC,40651 ;HIGH PRODUCT FAILED 2595 252525 200000 AR2=V2 ;EXPECTED RESULT IN AC+1 2596 031737 312 15 0 00 045025 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2597 031740 004 15 0 00 040652 ER4 AC+1,40652 ;LOW PRODUCT FAILED 2598 252525 252525 AEE=V1 ;INITIAL C(E) 2599 031741 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2600 031742 005 12 0 00 040653 ER5 E,40653 ;C(E) WAS CLOBBERED 2601 031743 321 16 0 00 031731 JUMPL AC+2,F40650 ;LOOP ON ERROR SWITCH^ 2602 2603 004066 ADR=ADR+1 2604 000022 WW=WW-1 2605 400000 XX=XX+XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0065 2606 IFE XX, 2607 2608 ;MULTIPLY 0101...0101 BY A FLOATING 1 2609 252525 252525 V1=N2 2610 125252 400000 V2=N2*XX 2611 252525 IFG XX,>> 2612 IFL XX, 2613 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2614 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2615 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2616 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2617 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2618 2619 400000 F40660: AA1=XX ;INITIAL C(AC) 2620 031744 200 14 0 00 044700 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2621 000000 AA2=0 ;INITIAL C(AC+1) 2622 031745 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2623 252525 252525 AEE=V1 ;INITIAL C(E) 2624 031746 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2625 031747 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2626 252525 AR1=V3 ;EXPECTED RESULT IN AC 2627 031750 312 14 0 00 045026 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2628 031751 003 14 0 00 040661 ER3 AC,40661 ;HIGH PRODUCT FAILED 2629 125252 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 2630 031752 312 15 0 00 045027 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2631 031753 004 15 0 00 040662 ER4 AC+1,40662 ;LOW PRODUCT FAILED 2632 252525 252525 AEE=V1 ;INITIAL C(E) 2633 031754 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2634 031755 005 12 0 00 040663 ER5 E,40663 ;C(E) WAS CLOBBERED 2635 031756 321 16 0 00 031744 JUMPL AC+2,F40660 ;LOOP ON ERROR SWITCH^ 2636 2637 004067 ADR=ADR+1 2638 000021 WW=WW-1 2639 000001 000000 XX=XX+XX 2640 IFE XX, 2641 2642 ;MULTIPLY 0101...0101 BY A FLOATING 1 2643 252525 252525 V1=N2 2644 252525 000000 V2=N2*XX 2645 525252 IFG XX,>> 2646 IFL XX, 2647 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2648 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2649 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2650 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2651 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2652 2653 000001 000000 F40670: AA1=XX ;INITIAL C(AC) 2654 031757 200 14 0 00 044703 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2655 000000 AA2=0 ;INITIAL C(AC+1) 2656 031760 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2657 252525 252525 AEE=V1 ;INITIAL C(E) 2658 031761 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2659 031762 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2660 525252 AR1=V3 ;EXPECTED RESULT IN AC DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0066 2661 031763 312 14 0 00 045030 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2662 031764 003 14 0 00 040671 ER3 AC,40671 ;HIGH PRODUCT FAILED 2663 252525 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2664 031765 312 15 0 00 045031 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2665 031766 004 15 0 00 040672 ER4 AC+1,40672 ;LOW PRODUCT FAILED 2666 252525 252525 AEE=V1 ;INITIAL C(E) 2667 031767 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2668 031770 005 12 0 00 040673 ER5 E,40673 ;C(E) WAS CLOBBERED 2669 031771 321 16 0 00 031757 JUMPL AC+2,F40670 ;LOOP ON ERROR SWITCH^ 2670 2671 004070 ADR=ADR+1 2672 000020 WW=WW-1 2673 000002 000000 XX=XX+XX 2674 IFE XX, 2675 2676 ;MULTIPLY 0101...0101 BY A FLOATING 1 2677 252525 252525 V1=N2 2678 125252 000000 V2=N2*XX 2679 000001 252525 IFG XX,>> 2680 IFL XX, 2681 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2682 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2683 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2684 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2685 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2686 2687 000002 000000 F40700: AA1=XX ;INITIAL C(AC) 2688 031772 200 14 0 00 044706 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2689 000000 AA2=0 ;INITIAL C(AC+1) 2690 031773 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2691 252525 252525 AEE=V1 ;INITIAL C(E) 2692 031774 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2693 031775 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2694 000001 252525 AR1=V3 ;EXPECTED RESULT IN AC 2695 031776 312 14 0 00 045032 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2696 031777 003 14 0 00 040701 ER3 AC,40701 ;HIGH PRODUCT FAILED 2697 125252 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2698 032000 312 15 0 00 045033 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2699 032001 004 15 0 00 040702 ER4 AC+1,40702 ;LOW PRODUCT FAILED 2700 252525 252525 AEE=V1 ;INITIAL C(E) 2701 032002 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2702 032003 005 12 0 00 040703 ER5 E,40703 ;C(E) WAS CLOBBERED 2703 032004 321 16 0 00 031772 JUMPL AC+2,F40700 ;LOOP ON ERROR SWITCH^ 2704 2705 004071 ADR=ADR+1 2706 000017 WW=WW-1 2707 000004 000000 XX=XX+XX 2708 IFE XX, 2709 2710 ;MULTIPLY 0101...0101 BY A FLOATING 1 2711 252525 252525 V1=N2 2712 252524 000000 V2=N2*XX 2713 000002 525252 IFG XX,>> 2714 IFL XX, 2715 MOP1 (\ADR,XX,0,V1,V3,V2)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0067 2716 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2717 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2718 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2719 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2720 2721 000004 000000 F40710: AA1=XX ;INITIAL C(AC) 2722 032005 200 14 0 00 044711 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2723 000000 AA2=0 ;INITIAL C(AC+1) 2724 032006 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2725 252525 252525 AEE=V1 ;INITIAL C(E) 2726 032007 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2727 032010 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2728 000002 525252 AR1=V3 ;EXPECTED RESULT IN AC 2729 032011 312 14 0 00 045034 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2730 032012 003 14 0 00 040711 ER3 AC,40711 ;HIGH PRODUCT FAILED 2731 252524 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2732 032013 312 15 0 00 045035 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2733 032014 004 15 0 00 040712 ER4 AC+1,40712 ;LOW PRODUCT FAILED 2734 252525 252525 AEE=V1 ;INITIAL C(E) 2735 032015 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2736 032016 005 12 0 00 040713 ER5 E,40713 ;C(E) WAS CLOBBERED 2737 032017 321 16 0 00 032005 JUMPL AC+2,F40710 ;LOOP ON ERROR SWITCH^ 2738 2739 004072 ADR=ADR+1 2740 000016 WW=WW-1 2741 000010 000000 XX=XX+XX 2742 IFE XX, 2743 2744 ;MULTIPLY 0101...0101 BY A FLOATING 1 2745 252525 252525 V1=N2 2746 125250 000000 V2=N2*XX 2747 000005 252525 IFG XX,>> 2748 IFL XX, 2749 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2750 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2751 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2752 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2753 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2754 2755 000010 000000 F40720: AA1=XX ;INITIAL C(AC) 2756 032020 200 14 0 00 044714 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2757 000000 AA2=0 ;INITIAL C(AC+1) 2758 032021 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2759 252525 252525 AEE=V1 ;INITIAL C(E) 2760 032022 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2761 032023 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2762 000005 252525 AR1=V3 ;EXPECTED RESULT IN AC 2763 032024 312 14 0 00 045036 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2764 032025 003 14 0 00 040721 ER3 AC,40721 ;HIGH PRODUCT FAILED 2765 125250 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2766 032026 312 15 0 00 045037 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2767 032027 004 15 0 00 040722 ER4 AC+1,40722 ;LOW PRODUCT FAILED 2768 252525 252525 AEE=V1 ;INITIAL C(E) 2769 032030 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2770 032031 005 12 0 00 040723 ER5 E,40723 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0068 2771 032032 321 16 0 00 032020 JUMPL AC+2,F40720 ;LOOP ON ERROR SWITCH^ 2772 2773 004073 ADR=ADR+1 2774 000015 WW=WW-1 2775 000020 000000 XX=XX+XX 2776 IFE XX, 2777 2778 ;MULTIPLY 0101...0101 BY A FLOATING 1 2779 252525 252525 V1=N2 2780 252520 000000 V2=N2*XX 2781 000012 525252 IFG XX,>> 2782 IFL XX, 2783 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2784 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2785 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2786 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2787 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2788 2789 000020 000000 F40730: AA1=XX ;INITIAL C(AC) 2790 032033 200 14 0 00 044717 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2791 000000 AA2=0 ;INITIAL C(AC+1) 2792 032034 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2793 252525 252525 AEE=V1 ;INITIAL C(E) 2794 032035 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2795 032036 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2796 000012 525252 AR1=V3 ;EXPECTED RESULT IN AC 2797 032037 312 14 0 00 045040 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2798 032040 003 14 0 00 040731 ER3 AC,40731 ;HIGH PRODUCT FAILED 2799 252520 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2800 032041 312 15 0 00 045041 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2801 032042 004 15 0 00 040732 ER4 AC+1,40732 ;LOW PRODUCT FAILED 2802 252525 252525 AEE=V1 ;INITIAL C(E) 2803 032043 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2804 032044 005 12 0 00 040733 ER5 E,40733 ;C(E) WAS CLOBBERED 2805 032045 321 16 0 00 032033 JUMPL AC+2,F40730 ;LOOP ON ERROR SWITCH^ 2806 2807 004074 ADR=ADR+1 2808 000014 WW=WW-1 2809 000040 000000 XX=XX+XX 2810 IFE XX, 2811 2812 ;MULTIPLY 0101...0101 BY A FLOATING 1 2813 252525 252525 V1=N2 2814 125240 000000 V2=N2*XX 2815 000025 252525 IFG XX,>> 2816 IFL XX, 2817 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2818 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2819 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2820 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2821 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2822 2823 000040 000000 F40740: AA1=XX ;INITIAL C(AC) 2824 032046 200 14 0 00 044722 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2825 000000 AA2=0 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0069 2826 032047 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2827 252525 252525 AEE=V1 ;INITIAL C(E) 2828 032050 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2829 032051 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2830 000025 252525 AR1=V3 ;EXPECTED RESULT IN AC 2831 032052 312 14 0 00 045042 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2832 032053 003 14 0 00 040741 ER3 AC,40741 ;HIGH PRODUCT FAILED 2833 125240 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2834 032054 312 15 0 00 045043 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2835 032055 004 15 0 00 040742 ER4 AC+1,40742 ;LOW PRODUCT FAILED 2836 252525 252525 AEE=V1 ;INITIAL C(E) 2837 032056 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2838 032057 005 12 0 00 040743 ER5 E,40743 ;C(E) WAS CLOBBERED 2839 032060 321 16 0 00 032046 JUMPL AC+2,F40740 ;LOOP ON ERROR SWITCH^ 2840 2841 004075 ADR=ADR+1 2842 000013 WW=WW-1 2843 000100 000000 XX=XX+XX 2844 IFE XX, 2845 2846 ;MULTIPLY 0101...0101 BY A FLOATING 1 2847 252525 252525 V1=N2 2848 252500 000000 V2=N2*XX 2849 000052 525252 IFG XX,>> 2850 IFL XX, 2851 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2852 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2853 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2854 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2855 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2856 2857 000100 000000 F40750: AA1=XX ;INITIAL C(AC) 2858 032061 200 14 0 00 044725 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2859 000000 AA2=0 ;INITIAL C(AC+1) 2860 032062 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2861 252525 252525 AEE=V1 ;INITIAL C(E) 2862 032063 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2863 032064 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2864 000052 525252 AR1=V3 ;EXPECTED RESULT IN AC 2865 032065 312 14 0 00 045044 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2866 032066 003 14 0 00 040751 ER3 AC,40751 ;HIGH PRODUCT FAILED 2867 252500 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2868 032067 312 15 0 00 045045 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2869 032070 004 15 0 00 040752 ER4 AC+1,40752 ;LOW PRODUCT FAILED 2870 252525 252525 AEE=V1 ;INITIAL C(E) 2871 032071 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2872 032072 005 12 0 00 040753 ER5 E,40753 ;C(E) WAS CLOBBERED 2873 032073 321 16 0 00 032061 JUMPL AC+2,F40750 ;LOOP ON ERROR SWITCH^ 2874 2875 004076 ADR=ADR+1 2876 000012 WW=WW-1 2877 000200 000000 XX=XX+XX 2878 IFE XX, 2879 2880 ;MULTIPLY 0101...0101 BY A FLOATING 1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0070 2881 252525 252525 V1=N2 2882 125200 000000 V2=N2*XX 2883 000125 252525 IFG XX,>> 2884 IFL XX, 2885 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2886 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2887 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2888 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2889 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2890 2891 000200 000000 F40760: AA1=XX ;INITIAL C(AC) 2892 032074 200 14 0 00 044730 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2893 000000 AA2=0 ;INITIAL C(AC+1) 2894 032075 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2895 252525 252525 AEE=V1 ;INITIAL C(E) 2896 032076 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2897 032077 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2898 000125 252525 AR1=V3 ;EXPECTED RESULT IN AC 2899 032100 312 14 0 00 045046 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2900 032101 003 14 0 00 040761 ER3 AC,40761 ;HIGH PRODUCT FAILED 2901 125200 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2902 032102 312 15 0 00 045047 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2903 032103 004 15 0 00 040762 ER4 AC+1,40762 ;LOW PRODUCT FAILED 2904 252525 252525 AEE=V1 ;INITIAL C(E) 2905 032104 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2906 032105 005 12 0 00 040763 ER5 E,40763 ;C(E) WAS CLOBBERED 2907 032106 321 16 0 00 032074 JUMPL AC+2,F40760 ;LOOP ON ERROR SWITCH^ 2908 2909 004077 ADR=ADR+1 2910 000011 WW=WW-1 2911 000400 000000 XX=XX+XX 2912 IFE XX, 2913 2914 ;MULTIPLY 0101...0101 BY A FLOATING 1 2915 252525 252525 V1=N2 2916 252400 000000 V2=N2*XX 2917 000252 525252 IFG XX,>> 2918 IFL XX, 2919 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2920 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2921 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2922 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2923 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2924 2925 000400 000000 F40770: AA1=XX ;INITIAL C(AC) 2926 032107 200 14 0 00 044733 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2927 000000 AA2=0 ;INITIAL C(AC+1) 2928 032110 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2929 252525 252525 AEE=V1 ;INITIAL C(E) 2930 032111 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2931 032112 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2932 000252 525252 AR1=V3 ;EXPECTED RESULT IN AC 2933 032113 312 14 0 00 045050 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2934 032114 003 14 0 00 040771 ER3 AC,40771 ;HIGH PRODUCT FAILED 2935 252400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0071 2936 032115 312 15 0 00 045051 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2937 032116 004 15 0 00 040772 ER4 AC+1,40772 ;LOW PRODUCT FAILED 2938 252525 252525 AEE=V1 ;INITIAL C(E) 2939 032117 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2940 032120 005 12 0 00 040773 ER5 E,40773 ;C(E) WAS CLOBBERED 2941 032121 321 16 0 00 032107 JUMPL AC+2,F40770 ;LOOP ON ERROR SWITCH^ 2942 2943 004100 ADR=ADR+1 2944 000010 WW=WW-1 2945 001000 000000 XX=XX+XX 2946 IFE XX, 2947 2948 ;MULTIPLY 0101...0101 BY A FLOATING 1 2949 252525 252525 V1=N2 2950 125000 000000 V2=N2*XX 2951 000525 252525 IFG XX,>> 2952 IFL XX, 2953 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2954 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2955 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2956 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 2957 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2958 2959 001000 000000 F41000: AA1=XX ;INITIAL C(AC) 2960 032122 200 14 0 00 044736 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2961 000000 AA2=0 ;INITIAL C(AC+1) 2962 032123 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2963 252525 252525 AEE=V1 ;INITIAL C(E) 2964 032124 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2965 032125 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 2966 000525 252525 AR1=V3 ;EXPECTED RESULT IN AC 2967 032126 312 14 0 00 045052 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 2968 032127 003 14 0 00 041001 ER3 AC,41001 ;HIGH PRODUCT FAILED 2969 125000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 2970 032130 312 15 0 00 045053 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 2971 032131 004 15 0 00 041002 ER4 AC+1,41002 ;LOW PRODUCT FAILED 2972 252525 252525 AEE=V1 ;INITIAL C(E) 2973 032132 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 2974 032133 005 12 0 00 041003 ER5 E,41003 ;C(E) WAS CLOBBERED 2975 032134 321 16 0 00 032122 JUMPL AC+2,F41000 ;LOOP ON ERROR SWITCH^ 2976 2977 004101 ADR=ADR+1 2978 000007 WW=WW-1 2979 002000 000000 XX=XX+XX 2980 IFE XX, 2981 2982 ;MULTIPLY 0101...0101 BY A FLOATING 1 2983 252525 252525 V1=N2 2984 252000 000000 V2=N2*XX 2985 001252 525252 IFG XX,>> 2986 IFL XX, 2987 MOP1 (\ADR,XX,0,V1,V3,V2)^ 2988 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 2989 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 2990 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0072 2991 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 2992 2993 002000 000000 F41010: AA1=XX ;INITIAL C(AC) 2994 032135 200 14 0 00 044741 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 2995 000000 AA2=0 ;INITIAL C(AC+1) 2996 032136 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 2997 252525 252525 AEE=V1 ;INITIAL C(E) 2998 032137 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 2999 032140 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3000 001252 525252 AR1=V3 ;EXPECTED RESULT IN AC 3001 032141 312 14 0 00 045054 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3002 032142 003 14 0 00 041011 ER3 AC,41011 ;HIGH PRODUCT FAILED 3003 252000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3004 032143 312 15 0 00 045055 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3005 032144 004 15 0 00 041012 ER4 AC+1,41012 ;LOW PRODUCT FAILED 3006 252525 252525 AEE=V1 ;INITIAL C(E) 3007 032145 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3008 032146 005 12 0 00 041013 ER5 E,41013 ;C(E) WAS CLOBBERED 3009 032147 321 16 0 00 032135 JUMPL AC+2,F41010 ;LOOP ON ERROR SWITCH^ 3010 3011 004102 ADR=ADR+1 3012 000006 WW=WW-1 3013 004000 000000 XX=XX+XX 3014 IFE XX, 3015 3016 ;MULTIPLY 0101...0101 BY A FLOATING 1 3017 252525 252525 V1=N2 3018 124000 000000 V2=N2*XX 3019 002525 252525 IFG XX,>> 3020 IFL XX, 3021 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3022 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3023 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3024 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3025 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3026 3027 004000 000000 F41020: AA1=XX ;INITIAL C(AC) 3028 032150 200 14 0 00 044744 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3029 000000 AA2=0 ;INITIAL C(AC+1) 3030 032151 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3031 252525 252525 AEE=V1 ;INITIAL C(E) 3032 032152 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3033 032153 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3034 002525 252525 AR1=V3 ;EXPECTED RESULT IN AC 3035 032154 312 14 0 00 045056 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3036 032155 003 14 0 00 041021 ER3 AC,41021 ;HIGH PRODUCT FAILED 3037 124000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3038 032156 312 15 0 00 045057 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3039 032157 004 15 0 00 041022 ER4 AC+1,41022 ;LOW PRODUCT FAILED 3040 252525 252525 AEE=V1 ;INITIAL C(E) 3041 032160 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3042 032161 005 12 0 00 041023 ER5 E,41023 ;C(E) WAS CLOBBERED 3043 032162 321 16 0 00 032150 JUMPL AC+2,F41020 ;LOOP ON ERROR SWITCH^ 3044 3045 004103 ADR=ADR+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0073 3046 000005 WW=WW-1 3047 010000 000000 XX=XX+XX 3048 IFE XX, 3049 3050 ;MULTIPLY 0101...0101 BY A FLOATING 1 3051 252525 252525 V1=N2 3052 250000 000000 V2=N2*XX 3053 005252 525252 IFG XX,>> 3054 IFL XX, 3055 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3056 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3057 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3058 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3059 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3060 3061 010000 000000 F41030: AA1=XX ;INITIAL C(AC) 3062 032163 200 14 0 00 044747 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3063 000000 AA2=0 ;INITIAL C(AC+1) 3064 032164 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3065 252525 252525 AEE=V1 ;INITIAL C(E) 3066 032165 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3067 032166 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3068 005252 525252 AR1=V3 ;EXPECTED RESULT IN AC 3069 032167 312 14 0 00 045060 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3070 032170 003 14 0 00 041031 ER3 AC,41031 ;HIGH PRODUCT FAILED 3071 250000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3072 032171 312 15 0 00 045061 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3073 032172 004 15 0 00 041032 ER4 AC+1,41032 ;LOW PRODUCT FAILED 3074 252525 252525 AEE=V1 ;INITIAL C(E) 3075 032173 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3076 032174 005 12 0 00 041033 ER5 E,41033 ;C(E) WAS CLOBBERED 3077 032175 321 16 0 00 032163 JUMPL AC+2,F41030 ;LOOP ON ERROR SWITCH^ 3078 3079 004104 ADR=ADR+1 3080 000004 WW=WW-1 3081 020000 000000 XX=XX+XX 3082 IFE XX, 3083 3084 ;MULTIPLY 0101...0101 BY A FLOATING 1 3085 252525 252525 V1=N2 3086 120000 000000 V2=N2*XX 3087 012525 252525 IFG XX,>> 3088 IFL XX, 3089 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3090 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3091 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3092 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3093 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3094 3095 020000 000000 F41040: AA1=XX ;INITIAL C(AC) 3096 032176 200 14 0 00 044752 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3097 000000 AA2=0 ;INITIAL C(AC+1) 3098 032177 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3099 252525 252525 AEE=V1 ;INITIAL C(E) 3100 032200 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0074 3101 032201 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3102 012525 252525 AR1=V3 ;EXPECTED RESULT IN AC 3103 032202 312 14 0 00 045062 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3104 032203 003 14 0 00 041041 ER3 AC,41041 ;HIGH PRODUCT FAILED 3105 120000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3106 032204 312 15 0 00 045063 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3107 032205 004 15 0 00 041042 ER4 AC+1,41042 ;LOW PRODUCT FAILED 3108 252525 252525 AEE=V1 ;INITIAL C(E) 3109 032206 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3110 032207 005 12 0 00 041043 ER5 E,41043 ;C(E) WAS CLOBBERED 3111 032210 321 16 0 00 032176 JUMPL AC+2,F41040 ;LOOP ON ERROR SWITCH^ 3112 3113 004105 ADR=ADR+1 3114 000003 WW=WW-1 3115 040000 000000 XX=XX+XX 3116 IFE XX, 3117 3118 ;MULTIPLY 0101...0101 BY A FLOATING 1 3119 252525 252525 V1=N2 3120 240000 000000 V2=N2*XX 3121 025252 525252 IFG XX,>> 3122 IFL XX, 3123 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3124 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3125 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3126 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3127 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3128 3129 040000 000000 F41050: AA1=XX ;INITIAL C(AC) 3130 032211 200 14 0 00 044755 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3131 000000 AA2=0 ;INITIAL C(AC+1) 3132 032212 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3133 252525 252525 AEE=V1 ;INITIAL C(E) 3134 032213 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3135 032214 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3136 025252 525252 AR1=V3 ;EXPECTED RESULT IN AC 3137 032215 312 14 0 00 045064 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3138 032216 003 14 0 00 041051 ER3 AC,41051 ;HIGH PRODUCT FAILED 3139 240000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3140 032217 312 15 0 00 045065 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3141 032220 004 15 0 00 041052 ER4 AC+1,41052 ;LOW PRODUCT FAILED 3142 252525 252525 AEE=V1 ;INITIAL C(E) 3143 032221 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3144 032222 005 12 0 00 041053 ER5 E,41053 ;C(E) WAS CLOBBERED 3145 032223 321 16 0 00 032211 JUMPL AC+2,F41050 ;LOOP ON ERROR SWITCH^ 3146 3147 004106 ADR=ADR+1 3148 000002 WW=WW-1 3149 100000 000000 XX=XX+XX 3150 IFE XX, 3151 3152 ;MULTIPLY 0101...0101 BY A FLOATING 1 3153 252525 252525 V1=N2 3154 100000 000000 V2=N2*XX 3155 052525 252525 IFG XX,>> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0075 3156 IFL XX, 3157 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3158 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3159 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3160 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3161 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3162 3163 100000 000000 F41060: AA1=XX ;INITIAL C(AC) 3164 032224 200 14 0 00 044760 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3165 000000 AA2=0 ;INITIAL C(AC+1) 3166 032225 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3167 252525 252525 AEE=V1 ;INITIAL C(E) 3168 032226 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3169 032227 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3170 052525 252525 AR1=V3 ;EXPECTED RESULT IN AC 3171 032230 312 14 0 00 045066 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3172 032231 003 14 0 00 041061 ER3 AC,41061 ;HIGH PRODUCT FAILED 3173 100000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3174 032232 312 15 0 00 044760 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3175 032233 004 15 0 00 041062 ER4 AC+1,41062 ;LOW PRODUCT FAILED 3176 252525 252525 AEE=V1 ;INITIAL C(E) 3177 032234 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3178 032235 005 12 0 00 041063 ER5 E,41063 ;C(E) WAS CLOBBERED 3179 032236 321 16 0 00 032224 JUMPL AC+2,F41060 ;LOOP ON ERROR SWITCH^ 3180 3181 004107 ADR=ADR+1 3182 000001 WW=WW-1 3183 200000 000000 XX=XX+XX 3184 IFE XX, 3185 3186 ;MULTIPLY 0101...0101 BY A FLOATING 1 3187 252525 252525 V1=N2 3188 200000 000000 V2=N2*XX 3189 125252 525252 IFG XX,>> 3190 IFL XX, 3191 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3192 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3193 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3194 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3195 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3196 3197 200000 000000 F41070: AA1=XX ;INITIAL C(AC) 3198 032237 200 14 0 00 044763 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3199 000000 AA2=0 ;INITIAL C(AC+1) 3200 032240 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3201 252525 252525 AEE=V1 ;INITIAL C(E) 3202 032241 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3203 032242 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3204 125252 525252 AR1=V3 ;EXPECTED RESULT IN AC 3205 032243 312 14 0 00 044770 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3206 032244 003 14 0 00 041071 ER3 AC,41071 ;HIGH PRODUCT FAILED 3207 200000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3208 032245 312 15 0 00 044763 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3209 032246 004 15 0 00 041072 ER4 AC+1,41072 ;LOW PRODUCT FAILED 3210 252525 252525 AEE=V1 ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 2-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0076 3211 032247 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3212 032250 005 12 0 00 041073 ER5 E,41073 ;C(E) WAS CLOBBERED 3213 032251 321 16 0 00 032237 JUMPL AC+2,F41070 ;LOOP ON ERROR SWITCH^ 3214 3215 004110 ADR=ADR+1 3216 000000 WW=WW-1 3217 400000 000000 XX=XX+XX 3218 IFE XX, 3219 3220 ;MULTIPLY 0101...0101 BY A FLOATING 1 3221 252525 252525 V1=N2 3222 400000 000000 V2=N2*XX 3223 IFG XX,>> 3224 525252 525253 IFL XX, 3225 MOP1 (\ADR,XX,0,V1,V3,V2)^ 3226 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 3227 ;[V1] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3228 ;AND E AGAINST [V3], [V2] AND [V1] RESPECTIVELY. 3229 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3230 3231 400000 000000 F41100: AA1=XX ;INITIAL C(AC) 3232 032252 200 14 0 00 044765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 3233 000000 AA2=0 ;INITIAL C(AC+1) 3234 032253 200 15 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3235 252525 252525 AEE=V1 ;INITIAL C(E) 3236 032254 200 12 0 00 044767 MOVE E,[V1] ;PRELOAD E (MULTIPLICAND) 3237 032255 224 14 0 00 000012 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3238 525252 525253 AR1=V3 ;EXPECTED RESULT IN AC 3239 032256 312 14 0 00 045067 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3240 032257 003 14 0 00 041101 ER3 AC,41101 ;HIGH PRODUCT FAILED 3241 400000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3242 032260 312 15 0 00 044765 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3243 032261 004 15 0 00 041102 ER4 AC+1,41102 ;LOW PRODUCT FAILED 3244 252525 252525 AEE=V1 ;INITIAL C(E) 3245 032262 312 12 0 00 044767 CAME E,[V1] ;WAS C(E) CLOBBERED? 3246 032263 005 12 0 00 041103 ER5 E,41103 ;C(E) WAS CLOBBERED 3247 032264 321 16 0 00 032252 JUMPL AC+2,F41100 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0077 3248 000013 AC=13 3249 000011 E=&17 3250 SAVEAC (1,1)^ 3251 032265 201 15 0 00 032265 MOVEI AC+2,. ;SAVE TEST PC 3252 032266 202 15 0 00 030051 MOVEM AC+2,TESTPC 3253 032267 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3254 032270 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3255 000044 WW=^D36 3256 000000 XX=0 3257 3258 REPEAT ^D36,< 3259 ADR=ADR+1 3260 WW=WW-1 3261 XX=XX+XX 3262 IFE XX, 3263 3264 ;MULTIPLY A FLOATING 1 BY 0101...0101 3265 V1=N2 3266 V2=N2*XX 3267 IFG XX,>> 3268 IFL XX, 3269 MOP1 (\ADR,V1,0,XX,V3,V2)> 3270 3271 004111 ADR=ADR+1 3272 000043 WW=WW-1 3273 000000 XX=XX+XX 3274 000001 IFE XX, 3275 3276 ;MULTIPLY A FLOATING 1 BY 0101...0101 3277 252525 252525 V1=N2 3278 252525 252525 V2=N2*XX 3279 000000 IFG XX,>> 3280 IFL XX, 3281 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3282 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3283 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3284 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3285 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3286 3287 252525 252525 F41110: AA1=V1 ;INITIAL C(AC) 3288 032271 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3289 000000 AA2=0 ;INITIAL C(AC+1) 3290 032272 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3291 000001 AEE=XX ;INITIAL C(E) 3292 032273 200 11 0 00 044616 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3293 032274 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3294 000000 AR1=V3 ;EXPECTED RESULT IN AC 3295 032275 312 13 0 00 044615 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3296 032276 003 13 0 00 041111 ER3 AC,41111 ;HIGH PRODUCT FAILED 3297 252525 252525 AR2=V2 ;EXPECTED RESULT IN AC+1 3298 032277 312 14 0 00 044767 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3299 032300 004 14 0 00 041112 ER4 AC+1,41112 ;LOW PRODUCT FAILED 3300 000001 AEE=XX ;INITIAL C(E) 3301 032301 312 11 0 00 044616 CAME E,[XX] ;WAS C(E) CLOBBERED? 3302 032302 005 11 0 00 041113 ER5 E,41113 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0078 3303 032303 321 15 0 00 032271 JUMPL AC+2,F41110 ;LOOP ON ERROR SWITCH^ 3304 3305 004112 ADR=ADR+1 3306 000042 WW=WW-1 3307 000002 XX=XX+XX 3308 IFE XX, 3309 3310 ;MULTIPLY A FLOATING 1 BY 0101...0101 3311 252525 252525 V1=N2 3312 125252 525252 V2=N2*XX 3313 000001 IFG XX,>> 3314 IFL XX, 3315 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3316 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3317 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3318 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3319 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3320 3321 252525 252525 F41120: AA1=V1 ;INITIAL C(AC) 3322 032304 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3323 000000 AA2=0 ;INITIAL C(AC+1) 3324 032305 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3325 000002 AEE=XX ;INITIAL C(E) 3326 032306 200 11 0 00 044620 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3327 032307 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3328 000001 AR1=V3 ;EXPECTED RESULT IN AC 3329 032310 312 13 0 00 044616 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3330 032311 003 13 0 00 041121 ER3 AC,41121 ;HIGH PRODUCT FAILED 3331 125252 525252 AR2=V2 ;EXPECTED RESULT IN AC+1 3332 032312 312 14 0 00 044770 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3333 032313 004 14 0 00 041122 ER4 AC+1,41122 ;LOW PRODUCT FAILED 3334 000002 AEE=XX ;INITIAL C(E) 3335 032314 312 11 0 00 044620 CAME E,[XX] ;WAS C(E) CLOBBERED? 3336 032315 005 11 0 00 041123 ER5 E,41123 ;C(E) WAS CLOBBERED 3337 032316 321 15 0 00 032304 JUMPL AC+2,F41120 ;LOOP ON ERROR SWITCH^ 3338 3339 004113 ADR=ADR+1 3340 000041 WW=WW-1 3341 000004 XX=XX+XX 3342 IFE XX, 3343 3344 ;MULTIPLY A FLOATING 1 BY 0101...0101 3345 252525 252525 V1=N2 3346 252525 252524 V2=N2*XX 3347 000002 IFG XX,>> 3348 IFL XX, 3349 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3350 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3351 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3352 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3353 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3354 3355 252525 252525 F41130: AA1=V1 ;INITIAL C(AC) 3356 032317 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3357 000000 AA2=0 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0079 3358 032320 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3359 000004 AEE=XX ;INITIAL C(E) 3360 032321 200 11 0 00 044623 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3361 032322 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3362 000002 AR1=V3 ;EXPECTED RESULT IN AC 3363 032323 312 13 0 00 044620 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3364 032324 003 13 0 00 041131 ER3 AC,41131 ;HIGH PRODUCT FAILED 3365 252525 252524 AR2=V2 ;EXPECTED RESULT IN AC+1 3366 032325 312 14 0 00 044771 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3367 032326 004 14 0 00 041132 ER4 AC+1,41132 ;LOW PRODUCT FAILED 3368 000004 AEE=XX ;INITIAL C(E) 3369 032327 312 11 0 00 044623 CAME E,[XX] ;WAS C(E) CLOBBERED? 3370 032330 005 11 0 00 041133 ER5 E,41133 ;C(E) WAS CLOBBERED 3371 032331 321 15 0 00 032317 JUMPL AC+2,F41130 ;LOOP ON ERROR SWITCH^ 3372 3373 004114 ADR=ADR+1 3374 000040 WW=WW-1 3375 000010 XX=XX+XX 3376 IFE XX, 3377 3378 ;MULTIPLY A FLOATING 1 BY 0101...0101 3379 252525 252525 V1=N2 3380 125252 525250 V2=N2*XX 3381 000005 IFG XX,>> 3382 IFL XX, 3383 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3384 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3385 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3386 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3387 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3388 3389 252525 252525 F41140: AA1=V1 ;INITIAL C(AC) 3390 032332 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3391 000000 AA2=0 ;INITIAL C(AC+1) 3392 032333 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3393 000010 AEE=XX ;INITIAL C(E) 3394 032334 200 11 0 00 044626 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3395 032335 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3396 000005 AR1=V3 ;EXPECTED RESULT IN AC 3397 032336 312 13 0 00 044772 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3398 032337 003 13 0 00 041141 ER3 AC,41141 ;HIGH PRODUCT FAILED 3399 125252 525250 AR2=V2 ;EXPECTED RESULT IN AC+1 3400 032340 312 14 0 00 044773 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3401 032341 004 14 0 00 041142 ER4 AC+1,41142 ;LOW PRODUCT FAILED 3402 000010 AEE=XX ;INITIAL C(E) 3403 032342 312 11 0 00 044626 CAME E,[XX] ;WAS C(E) CLOBBERED? 3404 032343 005 11 0 00 041143 ER5 E,41143 ;C(E) WAS CLOBBERED 3405 032344 321 15 0 00 032332 JUMPL AC+2,F41140 ;LOOP ON ERROR SWITCH^ 3406 3407 004115 ADR=ADR+1 3408 000037 WW=WW-1 3409 000020 XX=XX+XX 3410 IFE XX, 3411 3412 ;MULTIPLY A FLOATING 1 BY 0101...0101 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0080 3413 252525 252525 V1=N2 3414 252525 252520 V2=N2*XX 3415 000012 IFG XX,>> 3416 IFL XX, 3417 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3418 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3419 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3420 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3421 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3422 3423 252525 252525 F41150: AA1=V1 ;INITIAL C(AC) 3424 032345 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3425 000000 AA2=0 ;INITIAL C(AC+1) 3426 032346 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3427 000020 AEE=XX ;INITIAL C(E) 3428 032347 200 11 0 00 044631 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3429 032350 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3430 000012 AR1=V3 ;EXPECTED RESULT IN AC 3431 032351 312 13 0 00 044774 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3432 032352 003 13 0 00 041151 ER3 AC,41151 ;HIGH PRODUCT FAILED 3433 252525 252520 AR2=V2 ;EXPECTED RESULT IN AC+1 3434 032353 312 14 0 00 044775 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3435 032354 004 14 0 00 041152 ER4 AC+1,41152 ;LOW PRODUCT FAILED 3436 000020 AEE=XX ;INITIAL C(E) 3437 032355 312 11 0 00 044631 CAME E,[XX] ;WAS C(E) CLOBBERED? 3438 032356 005 11 0 00 041153 ER5 E,41153 ;C(E) WAS CLOBBERED 3439 032357 321 15 0 00 032345 JUMPL AC+2,F41150 ;LOOP ON ERROR SWITCH^ 3440 3441 004116 ADR=ADR+1 3442 000036 WW=WW-1 3443 000040 XX=XX+XX 3444 IFE XX, 3445 3446 ;MULTIPLY A FLOATING 1 BY 0101...0101 3447 252525 252525 V1=N2 3448 125252 525240 V2=N2*XX 3449 000025 IFG XX,>> 3450 IFL XX, 3451 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3452 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3453 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3454 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3455 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3456 3457 252525 252525 F41160: AA1=V1 ;INITIAL C(AC) 3458 032360 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3459 000000 AA2=0 ;INITIAL C(AC+1) 3460 032361 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3461 000040 AEE=XX ;INITIAL C(E) 3462 032362 200 11 0 00 044634 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3463 032363 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3464 000025 AR1=V3 ;EXPECTED RESULT IN AC 3465 032364 312 13 0 00 044776 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3466 032365 003 13 0 00 041161 ER3 AC,41161 ;HIGH PRODUCT FAILED 3467 125252 525240 AR2=V2 ;EXPECTED RESULT IN AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0081 3468 032366 312 14 0 00 044777 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3469 032367 004 14 0 00 041162 ER4 AC+1,41162 ;LOW PRODUCT FAILED 3470 000040 AEE=XX ;INITIAL C(E) 3471 032370 312 11 0 00 044634 CAME E,[XX] ;WAS C(E) CLOBBERED? 3472 032371 005 11 0 00 041163 ER5 E,41163 ;C(E) WAS CLOBBERED 3473 032372 321 15 0 00 032360 JUMPL AC+2,F41160 ;LOOP ON ERROR SWITCH^ 3474 3475 004117 ADR=ADR+1 3476 000035 WW=WW-1 3477 000100 XX=XX+XX 3478 IFE XX, 3479 3480 ;MULTIPLY A FLOATING 1 BY 0101...0101 3481 252525 252525 V1=N2 3482 252525 252500 V2=N2*XX 3483 000052 IFG XX,>> 3484 IFL XX, 3485 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3486 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3487 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3488 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3489 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3490 3491 252525 252525 F41170: AA1=V1 ;INITIAL C(AC) 3492 032373 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3493 000000 AA2=0 ;INITIAL C(AC+1) 3494 032374 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3495 000100 AEE=XX ;INITIAL C(E) 3496 032375 200 11 0 00 044637 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3497 032376 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3498 000052 AR1=V3 ;EXPECTED RESULT IN AC 3499 032377 312 13 0 00 045000 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3500 032400 003 13 0 00 041171 ER3 AC,41171 ;HIGH PRODUCT FAILED 3501 252525 252500 AR2=V2 ;EXPECTED RESULT IN AC+1 3502 032401 312 14 0 00 045001 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3503 032402 004 14 0 00 041172 ER4 AC+1,41172 ;LOW PRODUCT FAILED 3504 000100 AEE=XX ;INITIAL C(E) 3505 032403 312 11 0 00 044637 CAME E,[XX] ;WAS C(E) CLOBBERED? 3506 032404 005 11 0 00 041173 ER5 E,41173 ;C(E) WAS CLOBBERED 3507 032405 321 15 0 00 032373 JUMPL AC+2,F41170 ;LOOP ON ERROR SWITCH^ 3508 3509 004120 ADR=ADR+1 3510 000034 WW=WW-1 3511 000200 XX=XX+XX 3512 IFE XX, 3513 3514 ;MULTIPLY A FLOATING 1 BY 0101...0101 3515 252525 252525 V1=N2 3516 125252 525200 V2=N2*XX 3517 000125 IFG XX,>> 3518 IFL XX, 3519 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3520 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3521 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3522 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0082 3523 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3524 3525 252525 252525 F41200: AA1=V1 ;INITIAL C(AC) 3526 032406 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3527 000000 AA2=0 ;INITIAL C(AC+1) 3528 032407 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3529 000200 AEE=XX ;INITIAL C(E) 3530 032410 200 11 0 00 044642 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3531 032411 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3532 000125 AR1=V3 ;EXPECTED RESULT IN AC 3533 032412 312 13 0 00 045002 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3534 032413 003 13 0 00 041201 ER3 AC,41201 ;HIGH PRODUCT FAILED 3535 125252 525200 AR2=V2 ;EXPECTED RESULT IN AC+1 3536 032414 312 14 0 00 045003 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3537 032415 004 14 0 00 041202 ER4 AC+1,41202 ;LOW PRODUCT FAILED 3538 000200 AEE=XX ;INITIAL C(E) 3539 032416 312 11 0 00 044642 CAME E,[XX] ;WAS C(E) CLOBBERED? 3540 032417 005 11 0 00 041203 ER5 E,41203 ;C(E) WAS CLOBBERED 3541 032420 321 15 0 00 032406 JUMPL AC+2,F41200 ;LOOP ON ERROR SWITCH^ 3542 3543 004121 ADR=ADR+1 3544 000033 WW=WW-1 3545 000400 XX=XX+XX 3546 IFE XX, 3547 3548 ;MULTIPLY A FLOATING 1 BY 0101...0101 3549 252525 252525 V1=N2 3550 252525 252400 V2=N2*XX 3551 000252 IFG XX,>> 3552 IFL XX, 3553 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3554 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3555 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3556 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3557 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3558 3559 252525 252525 F41210: AA1=V1 ;INITIAL C(AC) 3560 032421 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3561 000000 AA2=0 ;INITIAL C(AC+1) 3562 032422 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3563 000400 AEE=XX ;INITIAL C(E) 3564 032423 200 11 0 00 044645 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3565 032424 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3566 000252 AR1=V3 ;EXPECTED RESULT IN AC 3567 032425 312 13 0 00 045004 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3568 032426 003 13 0 00 041211 ER3 AC,41211 ;HIGH PRODUCT FAILED 3569 252525 252400 AR2=V2 ;EXPECTED RESULT IN AC+1 3570 032427 312 14 0 00 045005 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3571 032430 004 14 0 00 041212 ER4 AC+1,41212 ;LOW PRODUCT FAILED 3572 000400 AEE=XX ;INITIAL C(E) 3573 032431 312 11 0 00 044645 CAME E,[XX] ;WAS C(E) CLOBBERED? 3574 032432 005 11 0 00 041213 ER5 E,41213 ;C(E) WAS CLOBBERED 3575 032433 321 15 0 00 032421 JUMPL AC+2,F41210 ;LOOP ON ERROR SWITCH^ 3576 3577 004122 ADR=ADR+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0083 3578 000032 WW=WW-1 3579 001000 XX=XX+XX 3580 IFE XX, 3581 3582 ;MULTIPLY A FLOATING 1 BY 0101...0101 3583 252525 252525 V1=N2 3584 125252 525000 V2=N2*XX 3585 000525 IFG XX,>> 3586 IFL XX, 3587 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3588 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3589 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3590 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3591 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3592 3593 252525 252525 F41220: AA1=V1 ;INITIAL C(AC) 3594 032434 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3595 000000 AA2=0 ;INITIAL C(AC+1) 3596 032435 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3597 001000 AEE=XX ;INITIAL C(E) 3598 032436 200 11 0 00 044650 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3599 032437 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3600 000525 AR1=V3 ;EXPECTED RESULT IN AC 3601 032440 312 13 0 00 045006 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3602 032441 003 13 0 00 041221 ER3 AC,41221 ;HIGH PRODUCT FAILED 3603 125252 525000 AR2=V2 ;EXPECTED RESULT IN AC+1 3604 032442 312 14 0 00 045007 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3605 032443 004 14 0 00 041222 ER4 AC+1,41222 ;LOW PRODUCT FAILED 3606 001000 AEE=XX ;INITIAL C(E) 3607 032444 312 11 0 00 044650 CAME E,[XX] ;WAS C(E) CLOBBERED? 3608 032445 005 11 0 00 041223 ER5 E,41223 ;C(E) WAS CLOBBERED 3609 032446 321 15 0 00 032434 JUMPL AC+2,F41220 ;LOOP ON ERROR SWITCH^ 3610 3611 004123 ADR=ADR+1 3612 000031 WW=WW-1 3613 002000 XX=XX+XX 3614 IFE XX, 3615 3616 ;MULTIPLY A FLOATING 1 BY 0101...0101 3617 252525 252525 V1=N2 3618 252525 252000 V2=N2*XX 3619 001252 IFG XX,>> 3620 IFL XX, 3621 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3622 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3623 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3624 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3625 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3626 3627 252525 252525 F41230: AA1=V1 ;INITIAL C(AC) 3628 032447 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3629 000000 AA2=0 ;INITIAL C(AC+1) 3630 032450 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3631 002000 AEE=XX ;INITIAL C(E) 3632 032451 200 11 0 00 044653 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0084 3633 032452 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3634 001252 AR1=V3 ;EXPECTED RESULT IN AC 3635 032453 312 13 0 00 045010 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3636 032454 003 13 0 00 041231 ER3 AC,41231 ;HIGH PRODUCT FAILED 3637 252525 252000 AR2=V2 ;EXPECTED RESULT IN AC+1 3638 032455 312 14 0 00 045011 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3639 032456 004 14 0 00 041232 ER4 AC+1,41232 ;LOW PRODUCT FAILED 3640 002000 AEE=XX ;INITIAL C(E) 3641 032457 312 11 0 00 044653 CAME E,[XX] ;WAS C(E) CLOBBERED? 3642 032460 005 11 0 00 041233 ER5 E,41233 ;C(E) WAS CLOBBERED 3643 032461 321 15 0 00 032447 JUMPL AC+2,F41230 ;LOOP ON ERROR SWITCH^ 3644 3645 004124 ADR=ADR+1 3646 000030 WW=WW-1 3647 004000 XX=XX+XX 3648 IFE XX, 3649 3650 ;MULTIPLY A FLOATING 1 BY 0101...0101 3651 252525 252525 V1=N2 3652 125252 524000 V2=N2*XX 3653 002525 IFG XX,>> 3654 IFL XX, 3655 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3656 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3657 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3658 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3659 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3660 3661 252525 252525 F41240: AA1=V1 ;INITIAL C(AC) 3662 032462 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3663 000000 AA2=0 ;INITIAL C(AC+1) 3664 032463 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3665 004000 AEE=XX ;INITIAL C(E) 3666 032464 200 11 0 00 044656 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3667 032465 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3668 002525 AR1=V3 ;EXPECTED RESULT IN AC 3669 032466 312 13 0 00 045012 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3670 032467 003 13 0 00 041241 ER3 AC,41241 ;HIGH PRODUCT FAILED 3671 125252 524000 AR2=V2 ;EXPECTED RESULT IN AC+1 3672 032470 312 14 0 00 045013 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3673 032471 004 14 0 00 041242 ER4 AC+1,41242 ;LOW PRODUCT FAILED 3674 004000 AEE=XX ;INITIAL C(E) 3675 032472 312 11 0 00 044656 CAME E,[XX] ;WAS C(E) CLOBBERED? 3676 032473 005 11 0 00 041243 ER5 E,41243 ;C(E) WAS CLOBBERED 3677 032474 321 15 0 00 032462 JUMPL AC+2,F41240 ;LOOP ON ERROR SWITCH^ 3678 3679 004125 ADR=ADR+1 3680 000027 WW=WW-1 3681 010000 XX=XX+XX 3682 IFE XX, 3683 3684 ;MULTIPLY A FLOATING 1 BY 0101...0101 3685 252525 252525 V1=N2 3686 252525 250000 V2=N2*XX 3687 005252 IFG XX,>> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0085 3688 IFL XX, 3689 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3690 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3691 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3692 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3693 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3694 3695 252525 252525 F41250: AA1=V1 ;INITIAL C(AC) 3696 032475 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3697 000000 AA2=0 ;INITIAL C(AC+1) 3698 032476 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3699 010000 AEE=XX ;INITIAL C(E) 3700 032477 200 11 0 00 044661 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3701 032500 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3702 005252 AR1=V3 ;EXPECTED RESULT IN AC 3703 032501 312 13 0 00 045014 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3704 032502 003 13 0 00 041251 ER3 AC,41251 ;HIGH PRODUCT FAILED 3705 252525 250000 AR2=V2 ;EXPECTED RESULT IN AC+1 3706 032503 312 14 0 00 045015 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3707 032504 004 14 0 00 041252 ER4 AC+1,41252 ;LOW PRODUCT FAILED 3708 010000 AEE=XX ;INITIAL C(E) 3709 032505 312 11 0 00 044661 CAME E,[XX] ;WAS C(E) CLOBBERED? 3710 032506 005 11 0 00 041253 ER5 E,41253 ;C(E) WAS CLOBBERED 3711 032507 321 15 0 00 032475 JUMPL AC+2,F41250 ;LOOP ON ERROR SWITCH^ 3712 3713 004126 ADR=ADR+1 3714 000026 WW=WW-1 3715 020000 XX=XX+XX 3716 IFE XX, 3717 3718 ;MULTIPLY A FLOATING 1 BY 0101...0101 3719 252525 252525 V1=N2 3720 125252 520000 V2=N2*XX 3721 012525 IFG XX,>> 3722 IFL XX, 3723 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3724 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3725 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3726 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3727 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3728 3729 252525 252525 F41260: AA1=V1 ;INITIAL C(AC) 3730 032510 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3731 000000 AA2=0 ;INITIAL C(AC+1) 3732 032511 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3733 020000 AEE=XX ;INITIAL C(E) 3734 032512 200 11 0 00 044664 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3735 032513 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3736 012525 AR1=V3 ;EXPECTED RESULT IN AC 3737 032514 312 13 0 00 045016 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3738 032515 003 13 0 00 041261 ER3 AC,41261 ;HIGH PRODUCT FAILED 3739 125252 520000 AR2=V2 ;EXPECTED RESULT IN AC+1 3740 032516 312 14 0 00 045017 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3741 032517 004 14 0 00 041262 ER4 AC+1,41262 ;LOW PRODUCT FAILED 3742 020000 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0086 3743 032520 312 11 0 00 044664 CAME E,[XX] ;WAS C(E) CLOBBERED? 3744 032521 005 11 0 00 041263 ER5 E,41263 ;C(E) WAS CLOBBERED 3745 032522 321 15 0 00 032510 JUMPL AC+2,F41260 ;LOOP ON ERROR SWITCH^ 3746 3747 004127 ADR=ADR+1 3748 000025 WW=WW-1 3749 040000 XX=XX+XX 3750 IFE XX, 3751 3752 ;MULTIPLY A FLOATING 1 BY 0101...0101 3753 252525 252525 V1=N2 3754 252525 240000 V2=N2*XX 3755 025252 IFG XX,>> 3756 IFL XX, 3757 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3758 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3759 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3760 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3761 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3762 3763 252525 252525 F41270: AA1=V1 ;INITIAL C(AC) 3764 032523 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3765 000000 AA2=0 ;INITIAL C(AC+1) 3766 032524 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3767 040000 AEE=XX ;INITIAL C(E) 3768 032525 200 11 0 00 044667 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3769 032526 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3770 025252 AR1=V3 ;EXPECTED RESULT IN AC 3771 032527 312 13 0 00 045020 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3772 032530 003 13 0 00 041271 ER3 AC,41271 ;HIGH PRODUCT FAILED 3773 252525 240000 AR2=V2 ;EXPECTED RESULT IN AC+1 3774 032531 312 14 0 00 045021 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3775 032532 004 14 0 00 041272 ER4 AC+1,41272 ;LOW PRODUCT FAILED 3776 040000 AEE=XX ;INITIAL C(E) 3777 032533 312 11 0 00 044667 CAME E,[XX] ;WAS C(E) CLOBBERED? 3778 032534 005 11 0 00 041273 ER5 E,41273 ;C(E) WAS CLOBBERED 3779 032535 321 15 0 00 032523 JUMPL AC+2,F41270 ;LOOP ON ERROR SWITCH^ 3780 3781 004130 ADR=ADR+1 3782 000024 WW=WW-1 3783 100000 XX=XX+XX 3784 IFE XX, 3785 3786 ;MULTIPLY A FLOATING 1 BY 0101...0101 3787 252525 252525 V1=N2 3788 125252 500000 V2=N2*XX 3789 052525 IFG XX,>> 3790 IFL XX, 3791 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3792 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3793 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3794 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3795 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3796 3797 252525 252525 F41300: AA1=V1 ;INITIAL C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0087 3798 032536 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3799 000000 AA2=0 ;INITIAL C(AC+1) 3800 032537 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3801 100000 AEE=XX ;INITIAL C(E) 3802 032540 200 11 0 00 044672 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3803 032541 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3804 052525 AR1=V3 ;EXPECTED RESULT IN AC 3805 032542 312 13 0 00 045022 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3806 032543 003 13 0 00 041301 ER3 AC,41301 ;HIGH PRODUCT FAILED 3807 125252 500000 AR2=V2 ;EXPECTED RESULT IN AC+1 3808 032544 312 14 0 00 045023 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3809 032545 004 14 0 00 041302 ER4 AC+1,41302 ;LOW PRODUCT FAILED 3810 100000 AEE=XX ;INITIAL C(E) 3811 032546 312 11 0 00 044672 CAME E,[XX] ;WAS C(E) CLOBBERED? 3812 032547 005 11 0 00 041303 ER5 E,41303 ;C(E) WAS CLOBBERED 3813 032550 321 15 0 00 032536 JUMPL AC+2,F41300 ;LOOP ON ERROR SWITCH^ 3814 3815 004131 ADR=ADR+1 3816 000023 WW=WW-1 3817 200000 XX=XX+XX 3818 IFE XX, 3819 3820 ;MULTIPLY A FLOATING 1 BY 0101...0101 3821 252525 252525 V1=N2 3822 252525 200000 V2=N2*XX 3823 125252 IFG XX,>> 3824 IFL XX, 3825 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3826 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3827 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3828 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3829 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3830 3831 252525 252525 F41310: AA1=V1 ;INITIAL C(AC) 3832 032551 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3833 000000 AA2=0 ;INITIAL C(AC+1) 3834 032552 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3835 200000 AEE=XX ;INITIAL C(E) 3836 032553 200 11 0 00 044675 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3837 032554 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3838 125252 AR1=V3 ;EXPECTED RESULT IN AC 3839 032555 312 13 0 00 045024 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3840 032556 003 13 0 00 041311 ER3 AC,41311 ;HIGH PRODUCT FAILED 3841 252525 200000 AR2=V2 ;EXPECTED RESULT IN AC+1 3842 032557 312 14 0 00 045025 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3843 032560 004 14 0 00 041312 ER4 AC+1,41312 ;LOW PRODUCT FAILED 3844 200000 AEE=XX ;INITIAL C(E) 3845 032561 312 11 0 00 044675 CAME E,[XX] ;WAS C(E) CLOBBERED? 3846 032562 005 11 0 00 041313 ER5 E,41313 ;C(E) WAS CLOBBERED 3847 032563 321 15 0 00 032551 JUMPL AC+2,F41310 ;LOOP ON ERROR SWITCH^ 3848 3849 004132 ADR=ADR+1 3850 000022 WW=WW-1 3851 400000 XX=XX+XX 3852 IFE XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0088 3853 3854 ;MULTIPLY A FLOATING 1 BY 0101...0101 3855 252525 252525 V1=N2 3856 125252 400000 V2=N2*XX 3857 252525 IFG XX,>> 3858 IFL XX, 3859 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3860 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3861 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3862 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3863 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3864 3865 252525 252525 F41320: AA1=V1 ;INITIAL C(AC) 3866 032564 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3867 000000 AA2=0 ;INITIAL C(AC+1) 3868 032565 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3869 400000 AEE=XX ;INITIAL C(E) 3870 032566 200 11 0 00 044700 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3871 032567 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3872 252525 AR1=V3 ;EXPECTED RESULT IN AC 3873 032570 312 13 0 00 045026 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3874 032571 003 13 0 00 041321 ER3 AC,41321 ;HIGH PRODUCT FAILED 3875 125252 400000 AR2=V2 ;EXPECTED RESULT IN AC+1 3876 032572 312 14 0 00 045027 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3877 032573 004 14 0 00 041322 ER4 AC+1,41322 ;LOW PRODUCT FAILED 3878 400000 AEE=XX ;INITIAL C(E) 3879 032574 312 11 0 00 044700 CAME E,[XX] ;WAS C(E) CLOBBERED? 3880 032575 005 11 0 00 041323 ER5 E,41323 ;C(E) WAS CLOBBERED 3881 032576 321 15 0 00 032564 JUMPL AC+2,F41320 ;LOOP ON ERROR SWITCH^ 3882 3883 004133 ADR=ADR+1 3884 000021 WW=WW-1 3885 000001 000000 XX=XX+XX 3886 IFE XX, 3887 3888 ;MULTIPLY A FLOATING 1 BY 0101...0101 3889 252525 252525 V1=N2 3890 252525 000000 V2=N2*XX 3891 525252 IFG XX,>> 3892 IFL XX, 3893 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3894 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3895 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3896 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3897 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3898 3899 252525 252525 F41330: AA1=V1 ;INITIAL C(AC) 3900 032577 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3901 000000 AA2=0 ;INITIAL C(AC+1) 3902 032600 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3903 000001 000000 AEE=XX ;INITIAL C(E) 3904 032601 200 11 0 00 044703 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3905 032602 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3906 525252 AR1=V3 ;EXPECTED RESULT IN AC 3907 032603 312 13 0 00 045030 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0089 3908 032604 003 13 0 00 041331 ER3 AC,41331 ;HIGH PRODUCT FAILED 3909 252525 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3910 032605 312 14 0 00 045031 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3911 032606 004 14 0 00 041332 ER4 AC+1,41332 ;LOW PRODUCT FAILED 3912 000001 000000 AEE=XX ;INITIAL C(E) 3913 032607 312 11 0 00 044703 CAME E,[XX] ;WAS C(E) CLOBBERED? 3914 032610 005 11 0 00 041333 ER5 E,41333 ;C(E) WAS CLOBBERED 3915 032611 321 15 0 00 032577 JUMPL AC+2,F41330 ;LOOP ON ERROR SWITCH^ 3916 3917 004134 ADR=ADR+1 3918 000020 WW=WW-1 3919 000002 000000 XX=XX+XX 3920 IFE XX, 3921 3922 ;MULTIPLY A FLOATING 1 BY 0101...0101 3923 252525 252525 V1=N2 3924 125252 000000 V2=N2*XX 3925 000001 252525 IFG XX,>> 3926 IFL XX, 3927 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3928 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3929 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3930 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3931 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3932 3933 252525 252525 F41340: AA1=V1 ;INITIAL C(AC) 3934 032612 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3935 000000 AA2=0 ;INITIAL C(AC+1) 3936 032613 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3937 000002 000000 AEE=XX ;INITIAL C(E) 3938 032614 200 11 0 00 044706 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3939 032615 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3940 000001 252525 AR1=V3 ;EXPECTED RESULT IN AC 3941 032616 312 13 0 00 045032 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3942 032617 003 13 0 00 041341 ER3 AC,41341 ;HIGH PRODUCT FAILED 3943 125252 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3944 032620 312 14 0 00 045033 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3945 032621 004 14 0 00 041342 ER4 AC+1,41342 ;LOW PRODUCT FAILED 3946 000002 000000 AEE=XX ;INITIAL C(E) 3947 032622 312 11 0 00 044706 CAME E,[XX] ;WAS C(E) CLOBBERED? 3948 032623 005 11 0 00 041343 ER5 E,41343 ;C(E) WAS CLOBBERED 3949 032624 321 15 0 00 032612 JUMPL AC+2,F41340 ;LOOP ON ERROR SWITCH^ 3950 3951 004135 ADR=ADR+1 3952 000017 WW=WW-1 3953 000004 000000 XX=XX+XX 3954 IFE XX, 3955 3956 ;MULTIPLY A FLOATING 1 BY 0101...0101 3957 252525 252525 V1=N2 3958 252524 000000 V2=N2*XX 3959 000002 525252 IFG XX,>> 3960 IFL XX, 3961 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3962 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0090 3963 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3964 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3965 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 3966 3967 252525 252525 F41350: AA1=V1 ;INITIAL C(AC) 3968 032625 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 3969 000000 AA2=0 ;INITIAL C(AC+1) 3970 032626 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 3971 000004 000000 AEE=XX ;INITIAL C(E) 3972 032627 200 11 0 00 044711 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 3973 032630 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 3974 000002 525252 AR1=V3 ;EXPECTED RESULT IN AC 3975 032631 312 13 0 00 045034 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 3976 032632 003 13 0 00 041351 ER3 AC,41351 ;HIGH PRODUCT FAILED 3977 252524 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 3978 032633 312 14 0 00 045035 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 3979 032634 004 14 0 00 041352 ER4 AC+1,41352 ;LOW PRODUCT FAILED 3980 000004 000000 AEE=XX ;INITIAL C(E) 3981 032635 312 11 0 00 044711 CAME E,[XX] ;WAS C(E) CLOBBERED? 3982 032636 005 11 0 00 041353 ER5 E,41353 ;C(E) WAS CLOBBERED 3983 032637 321 15 0 00 032625 JUMPL AC+2,F41350 ;LOOP ON ERROR SWITCH^ 3984 3985 004136 ADR=ADR+1 3986 000016 WW=WW-1 3987 000010 000000 XX=XX+XX 3988 IFE XX, 3989 3990 ;MULTIPLY A FLOATING 1 BY 0101...0101 3991 252525 252525 V1=N2 3992 125250 000000 V2=N2*XX 3993 000005 252525 IFG XX,>> 3994 IFL XX, 3995 MOP1 (\ADR,V1,0,XX,V3,V2)^ 3996 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 3997 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 3998 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 3999 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4000 4001 252525 252525 F41360: AA1=V1 ;INITIAL C(AC) 4002 032640 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4003 000000 AA2=0 ;INITIAL C(AC+1) 4004 032641 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4005 000010 000000 AEE=XX ;INITIAL C(E) 4006 032642 200 11 0 00 044714 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4007 032643 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4008 000005 252525 AR1=V3 ;EXPECTED RESULT IN AC 4009 032644 312 13 0 00 045036 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4010 032645 003 13 0 00 041361 ER3 AC,41361 ;HIGH PRODUCT FAILED 4011 125250 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4012 032646 312 14 0 00 045037 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4013 032647 004 14 0 00 041362 ER4 AC+1,41362 ;LOW PRODUCT FAILED 4014 000010 000000 AEE=XX ;INITIAL C(E) 4015 032650 312 11 0 00 044714 CAME E,[XX] ;WAS C(E) CLOBBERED? 4016 032651 005 11 0 00 041363 ER5 E,41363 ;C(E) WAS CLOBBERED 4017 032652 321 15 0 00 032640 JUMPL AC+2,F41360 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0091 4018 4019 004137 ADR=ADR+1 4020 000015 WW=WW-1 4021 000020 000000 XX=XX+XX 4022 IFE XX, 4023 4024 ;MULTIPLY A FLOATING 1 BY 0101...0101 4025 252525 252525 V1=N2 4026 252520 000000 V2=N2*XX 4027 000012 525252 IFG XX,>> 4028 IFL XX, 4029 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4030 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4031 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4032 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4033 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4034 4035 252525 252525 F41370: AA1=V1 ;INITIAL C(AC) 4036 032653 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4037 000000 AA2=0 ;INITIAL C(AC+1) 4038 032654 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4039 000020 000000 AEE=XX ;INITIAL C(E) 4040 032655 200 11 0 00 044717 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4041 032656 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4042 000012 525252 AR1=V3 ;EXPECTED RESULT IN AC 4043 032657 312 13 0 00 045040 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4044 032660 003 13 0 00 041371 ER3 AC,41371 ;HIGH PRODUCT FAILED 4045 252520 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4046 032661 312 14 0 00 045041 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4047 032662 004 14 0 00 041372 ER4 AC+1,41372 ;LOW PRODUCT FAILED 4048 000020 000000 AEE=XX ;INITIAL C(E) 4049 032663 312 11 0 00 044717 CAME E,[XX] ;WAS C(E) CLOBBERED? 4050 032664 005 11 0 00 041373 ER5 E,41373 ;C(E) WAS CLOBBERED 4051 032665 321 15 0 00 032653 JUMPL AC+2,F41370 ;LOOP ON ERROR SWITCH^ 4052 4053 004140 ADR=ADR+1 4054 000014 WW=WW-1 4055 000040 000000 XX=XX+XX 4056 IFE XX, 4057 4058 ;MULTIPLY A FLOATING 1 BY 0101...0101 4059 252525 252525 V1=N2 4060 125240 000000 V2=N2*XX 4061 000025 252525 IFG XX,>> 4062 IFL XX, 4063 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4064 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4065 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4066 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4067 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4068 4069 252525 252525 F41400: AA1=V1 ;INITIAL C(AC) 4070 032666 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4071 000000 AA2=0 ;INITIAL C(AC+1) 4072 032667 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0092 4073 000040 000000 AEE=XX ;INITIAL C(E) 4074 032670 200 11 0 00 044722 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4075 032671 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4076 000025 252525 AR1=V3 ;EXPECTED RESULT IN AC 4077 032672 312 13 0 00 045042 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4078 032673 003 13 0 00 041401 ER3 AC,41401 ;HIGH PRODUCT FAILED 4079 125240 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4080 032674 312 14 0 00 045043 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4081 032675 004 14 0 00 041402 ER4 AC+1,41402 ;LOW PRODUCT FAILED 4082 000040 000000 AEE=XX ;INITIAL C(E) 4083 032676 312 11 0 00 044722 CAME E,[XX] ;WAS C(E) CLOBBERED? 4084 032677 005 11 0 00 041403 ER5 E,41403 ;C(E) WAS CLOBBERED 4085 032700 321 15 0 00 032666 JUMPL AC+2,F41400 ;LOOP ON ERROR SWITCH^ 4086 4087 004141 ADR=ADR+1 4088 000013 WW=WW-1 4089 000100 000000 XX=XX+XX 4090 IFE XX, 4091 4092 ;MULTIPLY A FLOATING 1 BY 0101...0101 4093 252525 252525 V1=N2 4094 252500 000000 V2=N2*XX 4095 000052 525252 IFG XX,>> 4096 IFL XX, 4097 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4098 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4099 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4100 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4101 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4102 4103 252525 252525 F41410: AA1=V1 ;INITIAL C(AC) 4104 032701 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4105 000000 AA2=0 ;INITIAL C(AC+1) 4106 032702 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4107 000100 000000 AEE=XX ;INITIAL C(E) 4108 032703 200 11 0 00 044725 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4109 032704 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4110 000052 525252 AR1=V3 ;EXPECTED RESULT IN AC 4111 032705 312 13 0 00 045044 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4112 032706 003 13 0 00 041411 ER3 AC,41411 ;HIGH PRODUCT FAILED 4113 252500 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4114 032707 312 14 0 00 045045 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4115 032710 004 14 0 00 041412 ER4 AC+1,41412 ;LOW PRODUCT FAILED 4116 000100 000000 AEE=XX ;INITIAL C(E) 4117 032711 312 11 0 00 044725 CAME E,[XX] ;WAS C(E) CLOBBERED? 4118 032712 005 11 0 00 041413 ER5 E,41413 ;C(E) WAS CLOBBERED 4119 032713 321 15 0 00 032701 JUMPL AC+2,F41410 ;LOOP ON ERROR SWITCH^ 4120 4121 004142 ADR=ADR+1 4122 000012 WW=WW-1 4123 000200 000000 XX=XX+XX 4124 IFE XX, 4125 4126 ;MULTIPLY A FLOATING 1 BY 0101...0101 4127 252525 252525 V1=N2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0093 4128 125200 000000 V2=N2*XX 4129 000125 252525 IFG XX,>> 4130 IFL XX, 4131 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4132 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4133 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4134 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4135 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4136 4137 252525 252525 F41420: AA1=V1 ;INITIAL C(AC) 4138 032714 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4139 000000 AA2=0 ;INITIAL C(AC+1) 4140 032715 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4141 000200 000000 AEE=XX ;INITIAL C(E) 4142 032716 200 11 0 00 044730 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4143 032717 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4144 000125 252525 AR1=V3 ;EXPECTED RESULT IN AC 4145 032720 312 13 0 00 045046 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4146 032721 003 13 0 00 041421 ER3 AC,41421 ;HIGH PRODUCT FAILED 4147 125200 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4148 032722 312 14 0 00 045047 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4149 032723 004 14 0 00 041422 ER4 AC+1,41422 ;LOW PRODUCT FAILED 4150 000200 000000 AEE=XX ;INITIAL C(E) 4151 032724 312 11 0 00 044730 CAME E,[XX] ;WAS C(E) CLOBBERED? 4152 032725 005 11 0 00 041423 ER5 E,41423 ;C(E) WAS CLOBBERED 4153 032726 321 15 0 00 032714 JUMPL AC+2,F41420 ;LOOP ON ERROR SWITCH^ 4154 4155 004143 ADR=ADR+1 4156 000011 WW=WW-1 4157 000400 000000 XX=XX+XX 4158 IFE XX, 4159 4160 ;MULTIPLY A FLOATING 1 BY 0101...0101 4161 252525 252525 V1=N2 4162 252400 000000 V2=N2*XX 4163 000252 525252 IFG XX,>> 4164 IFL XX, 4165 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4166 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4167 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4168 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4169 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4170 4171 252525 252525 F41430: AA1=V1 ;INITIAL C(AC) 4172 032727 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4173 000000 AA2=0 ;INITIAL C(AC+1) 4174 032730 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4175 000400 000000 AEE=XX ;INITIAL C(E) 4176 032731 200 11 0 00 044733 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4177 032732 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4178 000252 525252 AR1=V3 ;EXPECTED RESULT IN AC 4179 032733 312 13 0 00 045050 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4180 032734 003 13 0 00 041431 ER3 AC,41431 ;HIGH PRODUCT FAILED 4181 252400 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4182 032735 312 14 0 00 045051 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0094 4183 032736 004 14 0 00 041432 ER4 AC+1,41432 ;LOW PRODUCT FAILED 4184 000400 000000 AEE=XX ;INITIAL C(E) 4185 032737 312 11 0 00 044733 CAME E,[XX] ;WAS C(E) CLOBBERED? 4186 032740 005 11 0 00 041433 ER5 E,41433 ;C(E) WAS CLOBBERED 4187 032741 321 15 0 00 032727 JUMPL AC+2,F41430 ;LOOP ON ERROR SWITCH^ 4188 4189 004144 ADR=ADR+1 4190 000010 WW=WW-1 4191 001000 000000 XX=XX+XX 4192 IFE XX, 4193 4194 ;MULTIPLY A FLOATING 1 BY 0101...0101 4195 252525 252525 V1=N2 4196 125000 000000 V2=N2*XX 4197 000525 252525 IFG XX,>> 4198 IFL XX, 4199 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4200 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4201 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4202 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4203 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4204 4205 252525 252525 F41440: AA1=V1 ;INITIAL C(AC) 4206 032742 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4207 000000 AA2=0 ;INITIAL C(AC+1) 4208 032743 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4209 001000 000000 AEE=XX ;INITIAL C(E) 4210 032744 200 11 0 00 044736 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4211 032745 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4212 000525 252525 AR1=V3 ;EXPECTED RESULT IN AC 4213 032746 312 13 0 00 045052 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4214 032747 003 13 0 00 041441 ER3 AC,41441 ;HIGH PRODUCT FAILED 4215 125000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4216 032750 312 14 0 00 045053 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4217 032751 004 14 0 00 041442 ER4 AC+1,41442 ;LOW PRODUCT FAILED 4218 001000 000000 AEE=XX ;INITIAL C(E) 4219 032752 312 11 0 00 044736 CAME E,[XX] ;WAS C(E) CLOBBERED? 4220 032753 005 11 0 00 041443 ER5 E,41443 ;C(E) WAS CLOBBERED 4221 032754 321 15 0 00 032742 JUMPL AC+2,F41440 ;LOOP ON ERROR SWITCH^ 4222 4223 004145 ADR=ADR+1 4224 000007 WW=WW-1 4225 002000 000000 XX=XX+XX 4226 IFE XX, 4227 4228 ;MULTIPLY A FLOATING 1 BY 0101...0101 4229 252525 252525 V1=N2 4230 252000 000000 V2=N2*XX 4231 001252 525252 IFG XX,>> 4232 IFL XX, 4233 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4234 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4235 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4236 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4237 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0095 4238 4239 252525 252525 F41450: AA1=V1 ;INITIAL C(AC) 4240 032755 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4241 000000 AA2=0 ;INITIAL C(AC+1) 4242 032756 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4243 002000 000000 AEE=XX ;INITIAL C(E) 4244 032757 200 11 0 00 044741 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4245 032760 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4246 001252 525252 AR1=V3 ;EXPECTED RESULT IN AC 4247 032761 312 13 0 00 045054 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4248 032762 003 13 0 00 041451 ER3 AC,41451 ;HIGH PRODUCT FAILED 4249 252000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4250 032763 312 14 0 00 045055 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4251 032764 004 14 0 00 041452 ER4 AC+1,41452 ;LOW PRODUCT FAILED 4252 002000 000000 AEE=XX ;INITIAL C(E) 4253 032765 312 11 0 00 044741 CAME E,[XX] ;WAS C(E) CLOBBERED? 4254 032766 005 11 0 00 041453 ER5 E,41453 ;C(E) WAS CLOBBERED 4255 032767 321 15 0 00 032755 JUMPL AC+2,F41450 ;LOOP ON ERROR SWITCH^ 4256 4257 004146 ADR=ADR+1 4258 000006 WW=WW-1 4259 004000 000000 XX=XX+XX 4260 IFE XX, 4261 4262 ;MULTIPLY A FLOATING 1 BY 0101...0101 4263 252525 252525 V1=N2 4264 124000 000000 V2=N2*XX 4265 002525 252525 IFG XX,>> 4266 IFL XX, 4267 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4268 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4269 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4270 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4271 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4272 4273 252525 252525 F41460: AA1=V1 ;INITIAL C(AC) 4274 032770 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4275 000000 AA2=0 ;INITIAL C(AC+1) 4276 032771 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4277 004000 000000 AEE=XX ;INITIAL C(E) 4278 032772 200 11 0 00 044744 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4279 032773 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4280 002525 252525 AR1=V3 ;EXPECTED RESULT IN AC 4281 032774 312 13 0 00 045056 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4282 032775 003 13 0 00 041461 ER3 AC,41461 ;HIGH PRODUCT FAILED 4283 124000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4284 032776 312 14 0 00 045057 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4285 032777 004 14 0 00 041462 ER4 AC+1,41462 ;LOW PRODUCT FAILED 4286 004000 000000 AEE=XX ;INITIAL C(E) 4287 033000 312 11 0 00 044744 CAME E,[XX] ;WAS C(E) CLOBBERED? 4288 033001 005 11 0 00 041463 ER5 E,41463 ;C(E) WAS CLOBBERED 4289 033002 321 15 0 00 032770 JUMPL AC+2,F41460 ;LOOP ON ERROR SWITCH^ 4290 4291 004147 ADR=ADR+1 4292 000005 WW=WW-1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0096 4293 010000 000000 XX=XX+XX 4294 IFE XX, 4295 4296 ;MULTIPLY A FLOATING 1 BY 0101...0101 4297 252525 252525 V1=N2 4298 250000 000000 V2=N2*XX 4299 005252 525252 IFG XX,>> 4300 IFL XX, 4301 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4302 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4303 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4304 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4305 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4306 4307 252525 252525 F41470: AA1=V1 ;INITIAL C(AC) 4308 033003 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4309 000000 AA2=0 ;INITIAL C(AC+1) 4310 033004 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4311 010000 000000 AEE=XX ;INITIAL C(E) 4312 033005 200 11 0 00 044747 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4313 033006 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4314 005252 525252 AR1=V3 ;EXPECTED RESULT IN AC 4315 033007 312 13 0 00 045060 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4316 033010 003 13 0 00 041471 ER3 AC,41471 ;HIGH PRODUCT FAILED 4317 250000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4318 033011 312 14 0 00 045061 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4319 033012 004 14 0 00 041472 ER4 AC+1,41472 ;LOW PRODUCT FAILED 4320 010000 000000 AEE=XX ;INITIAL C(E) 4321 033013 312 11 0 00 044747 CAME E,[XX] ;WAS C(E) CLOBBERED? 4322 033014 005 11 0 00 041473 ER5 E,41473 ;C(E) WAS CLOBBERED 4323 033015 321 15 0 00 033003 JUMPL AC+2,F41470 ;LOOP ON ERROR SWITCH^ 4324 4325 004150 ADR=ADR+1 4326 000004 WW=WW-1 4327 020000 000000 XX=XX+XX 4328 IFE XX, 4329 4330 ;MULTIPLY A FLOATING 1 BY 0101...0101 4331 252525 252525 V1=N2 4332 120000 000000 V2=N2*XX 4333 012525 252525 IFG XX,>> 4334 IFL XX, 4335 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4336 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4337 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4338 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4339 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4340 4341 252525 252525 F41500: AA1=V1 ;INITIAL C(AC) 4342 033016 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4343 000000 AA2=0 ;INITIAL C(AC+1) 4344 033017 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4345 020000 000000 AEE=XX ;INITIAL C(E) 4346 033020 200 11 0 00 044752 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4347 033021 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0097 4348 012525 252525 AR1=V3 ;EXPECTED RESULT IN AC 4349 033022 312 13 0 00 045062 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4350 033023 003 13 0 00 041501 ER3 AC,41501 ;HIGH PRODUCT FAILED 4351 120000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4352 033024 312 14 0 00 045063 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4353 033025 004 14 0 00 041502 ER4 AC+1,41502 ;LOW PRODUCT FAILED 4354 020000 000000 AEE=XX ;INITIAL C(E) 4355 033026 312 11 0 00 044752 CAME E,[XX] ;WAS C(E) CLOBBERED? 4356 033027 005 11 0 00 041503 ER5 E,41503 ;C(E) WAS CLOBBERED 4357 033030 321 15 0 00 033016 JUMPL AC+2,F41500 ;LOOP ON ERROR SWITCH^ 4358 4359 004151 ADR=ADR+1 4360 000003 WW=WW-1 4361 040000 000000 XX=XX+XX 4362 IFE XX, 4363 4364 ;MULTIPLY A FLOATING 1 BY 0101...0101 4365 252525 252525 V1=N2 4366 240000 000000 V2=N2*XX 4367 025252 525252 IFG XX,>> 4368 IFL XX, 4369 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4370 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4371 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4372 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4373 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4374 4375 252525 252525 F41510: AA1=V1 ;INITIAL C(AC) 4376 033031 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4377 000000 AA2=0 ;INITIAL C(AC+1) 4378 033032 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4379 040000 000000 AEE=XX ;INITIAL C(E) 4380 033033 200 11 0 00 044755 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4381 033034 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4382 025252 525252 AR1=V3 ;EXPECTED RESULT IN AC 4383 033035 312 13 0 00 045064 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4384 033036 003 13 0 00 041511 ER3 AC,41511 ;HIGH PRODUCT FAILED 4385 240000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4386 033037 312 14 0 00 045065 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4387 033040 004 14 0 00 041512 ER4 AC+1,41512 ;LOW PRODUCT FAILED 4388 040000 000000 AEE=XX ;INITIAL C(E) 4389 033041 312 11 0 00 044755 CAME E,[XX] ;WAS C(E) CLOBBERED? 4390 033042 005 11 0 00 041513 ER5 E,41513 ;C(E) WAS CLOBBERED 4391 033043 321 15 0 00 033031 JUMPL AC+2,F41510 ;LOOP ON ERROR SWITCH^ 4392 4393 004152 ADR=ADR+1 4394 000002 WW=WW-1 4395 100000 000000 XX=XX+XX 4396 IFE XX, 4397 4398 ;MULTIPLY A FLOATING 1 BY 0101...0101 4399 252525 252525 V1=N2 4400 100000 000000 V2=N2*XX 4401 052525 252525 IFG XX,>> 4402 IFL XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0098 4403 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4404 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4405 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4406 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4407 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4408 4409 252525 252525 F41520: AA1=V1 ;INITIAL C(AC) 4410 033044 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4411 000000 AA2=0 ;INITIAL C(AC+1) 4412 033045 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4413 100000 000000 AEE=XX ;INITIAL C(E) 4414 033046 200 11 0 00 044760 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4415 033047 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4416 052525 252525 AR1=V3 ;EXPECTED RESULT IN AC 4417 033050 312 13 0 00 045066 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4418 033051 003 13 0 00 041521 ER3 AC,41521 ;HIGH PRODUCT FAILED 4419 100000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4420 033052 312 14 0 00 044760 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4421 033053 004 14 0 00 041522 ER4 AC+1,41522 ;LOW PRODUCT FAILED 4422 100000 000000 AEE=XX ;INITIAL C(E) 4423 033054 312 11 0 00 044760 CAME E,[XX] ;WAS C(E) CLOBBERED? 4424 033055 005 11 0 00 041523 ER5 E,41523 ;C(E) WAS CLOBBERED 4425 033056 321 15 0 00 033044 JUMPL AC+2,F41520 ;LOOP ON ERROR SWITCH^ 4426 4427 004153 ADR=ADR+1 4428 000001 WW=WW-1 4429 200000 000000 XX=XX+XX 4430 IFE XX, 4431 4432 ;MULTIPLY A FLOATING 1 BY 0101...0101 4433 252525 252525 V1=N2 4434 200000 000000 V2=N2*XX 4435 125252 525252 IFG XX,>> 4436 IFL XX, 4437 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4438 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4439 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4440 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4441 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4442 4443 252525 252525 F41530: AA1=V1 ;INITIAL C(AC) 4444 033057 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4445 000000 AA2=0 ;INITIAL C(AC+1) 4446 033060 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4447 200000 000000 AEE=XX ;INITIAL C(E) 4448 033061 200 11 0 00 044763 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4449 033062 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4450 125252 525252 AR1=V3 ;EXPECTED RESULT IN AC 4451 033063 312 13 0 00 044770 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4452 033064 003 13 0 00 041531 ER3 AC,41531 ;HIGH PRODUCT FAILED 4453 200000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4454 033065 312 14 0 00 044763 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4455 033066 004 14 0 00 041532 ER4 AC+1,41532 ;LOW PRODUCT FAILED 4456 200000 000000 AEE=XX ;INITIAL C(E) 4457 033067 312 11 0 00 044763 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0099 4458 033070 005 11 0 00 041533 ER5 E,41533 ;C(E) WAS CLOBBERED 4459 033071 321 15 0 00 033057 JUMPL AC+2,F41530 ;LOOP ON ERROR SWITCH^ 4460 4461 004154 ADR=ADR+1 4462 000000 WW=WW-1 4463 400000 000000 XX=XX+XX 4464 IFE XX, 4465 4466 ;MULTIPLY A FLOATING 1 BY 0101...0101 4467 252525 252525 V1=N2 4468 400000 000000 V2=N2*XX 4469 IFG XX,>> 4470 525252 525253 IFL XX, 4471 MOP1 (\ADR,V1,0,XX,V3,V2)^ 4472 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [V1],[0] AND 4473 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4474 ;AND E AGAINST [V3], [V2] AND [XX] RESPECTIVELY. 4475 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4476 4477 252525 252525 F41540: AA1=V1 ;INITIAL C(AC) 4478 033072 200 13 0 00 044767 MOVE AC,[V1] ;PRELOAD AC (MULTIPLIER) 4479 000000 AA2=0 ;INITIAL C(AC+1) 4480 033073 200 14 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 4481 400000 000000 AEE=XX ;INITIAL C(E) 4482 033074 200 11 0 00 044765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4483 033075 224 13 0 00 000011 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4484 525252 525253 AR1=V3 ;EXPECTED RESULT IN AC 4485 033076 312 13 0 00 045067 CAME AC,[V3] ;IS HIGH PRODUCT CORRECT? 4486 033077 003 13 0 00 041541 ER3 AC,41541 ;HIGH PRODUCT FAILED 4487 400000 000000 AR2=V2 ;EXPECTED RESULT IN AC+1 4488 033100 312 14 0 00 044765 CAME AC+1,[V2] ;IS LOW PRODUCT CORRECT? 4489 033101 004 14 0 00 041542 ER4 AC+1,41542 ;LOW PRODUCT FAILED 4490 400000 000000 AEE=XX ;INITIAL C(E) 4491 033102 312 11 0 00 044765 CAME E,[XX] ;WAS C(E) CLOBBERED? 4492 033103 005 11 0 00 041543 ER5 E,41543 ;C(E) WAS CLOBBERED 4493 033104 321 15 0 00 033072 JUMPL AC+2,F41540 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0100 4494 000012 AC=12 4495 000010 E=&17 4496 SAVEAC (1,1)^ 4497 033105 201 14 0 00 033105 MOVEI AC+2,. ;SAVE TEST PC 4498 033106 202 14 0 00 030051 MOVEM AC+2,TESTPC 4499 033107 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4500 033110 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4501 000000 XX=0 4502 4503 REPEAT ^D36,< 4504 ADR=ADR+1 4505 XX=XX+XX 4506 IFE XX, 4507 4508 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4509 V1=XX*XX 4510 IFG XX,*>_1>> 4511 IFL XX, 4512 MOP1 (\ADR,XX,-1,XX,V2,V1)> 4513 4514 004155 ADR=ADR+1 4515 000000 XX=XX+XX 4516 000001 IFE XX, 4517 4518 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4519 000001 V1=XX*XX 4520 000000 IFG XX,*>_1>> 4521 IFL XX, 4522 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4523 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4524 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4525 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4526 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4527 4528 000001 F41550: AA1=XX ;INITIAL C(AC) 4529 033111 200 12 0 00 044616 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4530 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4531 033112 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4532 000001 AEE=XX ;INITIAL C(E) 4533 033113 200 10 0 00 044616 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4534 033114 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4535 000000 AR1=V2 ;EXPECTED RESULT IN AC 4536 033115 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4537 033116 003 12 0 00 041551 ER3 AC,41551 ;HIGH PRODUCT FAILED 4538 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 4539 033117 312 13 0 00 044616 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4540 033120 004 13 0 00 041552 ER4 AC+1,41552 ;LOW PRODUCT FAILED 4541 000001 AEE=XX ;INITIAL C(E) 4542 033121 312 10 0 00 044616 CAME E,[XX] ;WAS C(E) CLOBBERED? 4543 033122 005 10 0 00 041553 ER5 E,41553 ;C(E) WAS CLOBBERED 4544 033123 321 14 0 00 033111 JUMPL AC+2,F41550 ;LOOP ON ERROR SWITCH^ 4545 4546 004156 ADR=ADR+1 4547 000002 XX=XX+XX 4548 IFE XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0101 4549 4550 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4551 000004 V1=XX*XX 4552 000000 IFG XX,*>_1>> 4553 IFL XX, 4554 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4555 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4556 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4557 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4558 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4559 4560 000002 F41560: AA1=XX ;INITIAL C(AC) 4561 033124 200 12 0 00 044620 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4562 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4563 033125 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4564 000002 AEE=XX ;INITIAL C(E) 4565 033126 200 10 0 00 044620 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4566 033127 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4567 000000 AR1=V2 ;EXPECTED RESULT IN AC 4568 033130 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4569 033131 003 12 0 00 041561 ER3 AC,41561 ;HIGH PRODUCT FAILED 4570 000004 AR2=V1 ;EXPECTED RESULT IN AC+1 4571 033132 312 13 0 00 044623 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4572 033133 004 13 0 00 041562 ER4 AC+1,41562 ;LOW PRODUCT FAILED 4573 000002 AEE=XX ;INITIAL C(E) 4574 033134 312 10 0 00 044620 CAME E,[XX] ;WAS C(E) CLOBBERED? 4575 033135 005 10 0 00 041563 ER5 E,41563 ;C(E) WAS CLOBBERED 4576 033136 321 14 0 00 033124 JUMPL AC+2,F41560 ;LOOP ON ERROR SWITCH^ 4577 4578 004157 ADR=ADR+1 4579 000004 XX=XX+XX 4580 IFE XX, 4581 4582 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4583 000020 V1=XX*XX 4584 000000 IFG XX,*>_1>> 4585 IFL XX, 4586 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4587 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4588 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4589 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4590 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4591 4592 000004 F41570: AA1=XX ;INITIAL C(AC) 4593 033137 200 12 0 00 044623 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4594 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4595 033140 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4596 000004 AEE=XX ;INITIAL C(E) 4597 033141 200 10 0 00 044623 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4598 033142 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4599 000000 AR1=V2 ;EXPECTED RESULT IN AC 4600 033143 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4601 033144 003 12 0 00 041571 ER3 AC,41571 ;HIGH PRODUCT FAILED 4602 000020 AR2=V1 ;EXPECTED RESULT IN AC+1 4603 033145 312 13 0 00 044631 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0102 4604 033146 004 13 0 00 041572 ER4 AC+1,41572 ;LOW PRODUCT FAILED 4605 000004 AEE=XX ;INITIAL C(E) 4606 033147 312 10 0 00 044623 CAME E,[XX] ;WAS C(E) CLOBBERED? 4607 033150 005 10 0 00 041573 ER5 E,41573 ;C(E) WAS CLOBBERED 4608 033151 321 14 0 00 033137 JUMPL AC+2,F41570 ;LOOP ON ERROR SWITCH^ 4609 4610 004160 ADR=ADR+1 4611 000010 XX=XX+XX 4612 IFE XX, 4613 4614 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4615 000100 V1=XX*XX 4616 000000 IFG XX,*>_1>> 4617 IFL XX, 4618 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4619 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4620 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4621 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4622 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4623 4624 000010 F41600: AA1=XX ;INITIAL C(AC) 4625 033152 200 12 0 00 044626 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4626 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4627 033153 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4628 000010 AEE=XX ;INITIAL C(E) 4629 033154 200 10 0 00 044626 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4630 033155 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4631 000000 AR1=V2 ;EXPECTED RESULT IN AC 4632 033156 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4633 033157 003 12 0 00 041601 ER3 AC,41601 ;HIGH PRODUCT FAILED 4634 000100 AR2=V1 ;EXPECTED RESULT IN AC+1 4635 033160 312 13 0 00 044637 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4636 033161 004 13 0 00 041602 ER4 AC+1,41602 ;LOW PRODUCT FAILED 4637 000010 AEE=XX ;INITIAL C(E) 4638 033162 312 10 0 00 044626 CAME E,[XX] ;WAS C(E) CLOBBERED? 4639 033163 005 10 0 00 041603 ER5 E,41603 ;C(E) WAS CLOBBERED 4640 033164 321 14 0 00 033152 JUMPL AC+2,F41600 ;LOOP ON ERROR SWITCH^ 4641 4642 004161 ADR=ADR+1 4643 000020 XX=XX+XX 4644 IFE XX, 4645 4646 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4647 000400 V1=XX*XX 4648 000000 IFG XX,*>_1>> 4649 IFL XX, 4650 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4651 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4652 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4653 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4654 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4655 4656 000020 F41610: AA1=XX ;INITIAL C(AC) 4657 033165 200 12 0 00 044631 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4658 777777 777777 AA2=-1 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0103 4659 033166 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4660 000020 AEE=XX ;INITIAL C(E) 4661 033167 200 10 0 00 044631 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4662 033170 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4663 000000 AR1=V2 ;EXPECTED RESULT IN AC 4664 033171 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4665 033172 003 12 0 00 041611 ER3 AC,41611 ;HIGH PRODUCT FAILED 4666 000400 AR2=V1 ;EXPECTED RESULT IN AC+1 4667 033173 312 13 0 00 044645 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4668 033174 004 13 0 00 041612 ER4 AC+1,41612 ;LOW PRODUCT FAILED 4669 000020 AEE=XX ;INITIAL C(E) 4670 033175 312 10 0 00 044631 CAME E,[XX] ;WAS C(E) CLOBBERED? 4671 033176 005 10 0 00 041613 ER5 E,41613 ;C(E) WAS CLOBBERED 4672 033177 321 14 0 00 033165 JUMPL AC+2,F41610 ;LOOP ON ERROR SWITCH^ 4673 4674 004162 ADR=ADR+1 4675 000040 XX=XX+XX 4676 IFE XX, 4677 4678 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4679 002000 V1=XX*XX 4680 000000 IFG XX,*>_1>> 4681 IFL XX, 4682 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4683 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4684 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4685 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4686 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4687 4688 000040 F41620: AA1=XX ;INITIAL C(AC) 4689 033200 200 12 0 00 044634 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4690 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4691 033201 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4692 000040 AEE=XX ;INITIAL C(E) 4693 033202 200 10 0 00 044634 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4694 033203 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4695 000000 AR1=V2 ;EXPECTED RESULT IN AC 4696 033204 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4697 033205 003 12 0 00 041621 ER3 AC,41621 ;HIGH PRODUCT FAILED 4698 002000 AR2=V1 ;EXPECTED RESULT IN AC+1 4699 033206 312 13 0 00 044653 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4700 033207 004 13 0 00 041622 ER4 AC+1,41622 ;LOW PRODUCT FAILED 4701 000040 AEE=XX ;INITIAL C(E) 4702 033210 312 10 0 00 044634 CAME E,[XX] ;WAS C(E) CLOBBERED? 4703 033211 005 10 0 00 041623 ER5 E,41623 ;C(E) WAS CLOBBERED 4704 033212 321 14 0 00 033200 JUMPL AC+2,F41620 ;LOOP ON ERROR SWITCH^ 4705 4706 004163 ADR=ADR+1 4707 000100 XX=XX+XX 4708 IFE XX, 4709 4710 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4711 010000 V1=XX*XX 4712 000000 IFG XX,*>_1>> 4713 IFL XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0104 4714 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4715 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4716 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4717 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4718 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4719 4720 000100 F41630: AA1=XX ;INITIAL C(AC) 4721 033213 200 12 0 00 044637 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4722 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4723 033214 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4724 000100 AEE=XX ;INITIAL C(E) 4725 033215 200 10 0 00 044637 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4726 033216 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4727 000000 AR1=V2 ;EXPECTED RESULT IN AC 4728 033217 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4729 033220 003 12 0 00 041631 ER3 AC,41631 ;HIGH PRODUCT FAILED 4730 010000 AR2=V1 ;EXPECTED RESULT IN AC+1 4731 033221 312 13 0 00 044661 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4732 033222 004 13 0 00 041632 ER4 AC+1,41632 ;LOW PRODUCT FAILED 4733 000100 AEE=XX ;INITIAL C(E) 4734 033223 312 10 0 00 044637 CAME E,[XX] ;WAS C(E) CLOBBERED? 4735 033224 005 10 0 00 041633 ER5 E,41633 ;C(E) WAS CLOBBERED 4736 033225 321 14 0 00 033213 JUMPL AC+2,F41630 ;LOOP ON ERROR SWITCH^ 4737 4738 004164 ADR=ADR+1 4739 000200 XX=XX+XX 4740 IFE XX, 4741 4742 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4743 040000 V1=XX*XX 4744 000000 IFG XX,*>_1>> 4745 IFL XX, 4746 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4747 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4748 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4749 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4750 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4751 4752 000200 F41640: AA1=XX ;INITIAL C(AC) 4753 033226 200 12 0 00 044642 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4754 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4755 033227 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4756 000200 AEE=XX ;INITIAL C(E) 4757 033230 200 10 0 00 044642 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4758 033231 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4759 000000 AR1=V2 ;EXPECTED RESULT IN AC 4760 033232 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4761 033233 003 12 0 00 041641 ER3 AC,41641 ;HIGH PRODUCT FAILED 4762 040000 AR2=V1 ;EXPECTED RESULT IN AC+1 4763 033234 312 13 0 00 044667 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4764 033235 004 13 0 00 041642 ER4 AC+1,41642 ;LOW PRODUCT FAILED 4765 000200 AEE=XX ;INITIAL C(E) 4766 033236 312 10 0 00 044642 CAME E,[XX] ;WAS C(E) CLOBBERED? 4767 033237 005 10 0 00 041643 ER5 E,41643 ;C(E) WAS CLOBBERED 4768 033240 321 14 0 00 033226 JUMPL AC+2,F41640 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0105 4769 4770 004165 ADR=ADR+1 4771 000400 XX=XX+XX 4772 IFE XX, 4773 4774 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4775 200000 V1=XX*XX 4776 000000 IFG XX,*>_1>> 4777 IFL XX, 4778 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4779 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4780 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4781 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4782 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4783 4784 000400 F41650: AA1=XX ;INITIAL C(AC) 4785 033241 200 12 0 00 044645 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4786 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4787 033242 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4788 000400 AEE=XX ;INITIAL C(E) 4789 033243 200 10 0 00 044645 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4790 033244 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4791 000000 AR1=V2 ;EXPECTED RESULT IN AC 4792 033245 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4793 033246 003 12 0 00 041651 ER3 AC,41651 ;HIGH PRODUCT FAILED 4794 200000 AR2=V1 ;EXPECTED RESULT IN AC+1 4795 033247 312 13 0 00 044675 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4796 033250 004 13 0 00 041652 ER4 AC+1,41652 ;LOW PRODUCT FAILED 4797 000400 AEE=XX ;INITIAL C(E) 4798 033251 312 10 0 00 044645 CAME E,[XX] ;WAS C(E) CLOBBERED? 4799 033252 005 10 0 00 041653 ER5 E,41653 ;C(E) WAS CLOBBERED 4800 033253 321 14 0 00 033241 JUMPL AC+2,F41650 ;LOOP ON ERROR SWITCH^ 4801 4802 004166 ADR=ADR+1 4803 001000 XX=XX+XX 4804 IFE XX, 4805 4806 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4807 000001 000000 V1=XX*XX 4808 000000 IFG XX,*>_1>> 4809 IFL XX, 4810 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4811 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4812 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4813 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4814 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4815 4816 001000 F41660: AA1=XX ;INITIAL C(AC) 4817 033254 200 12 0 00 044650 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4818 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4819 033255 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4820 001000 AEE=XX ;INITIAL C(E) 4821 033256 200 10 0 00 044650 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4822 033257 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4823 000000 AR1=V2 ;EXPECTED RESULT IN AC DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0106 4824 033260 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4825 033261 003 12 0 00 041661 ER3 AC,41661 ;HIGH PRODUCT FAILED 4826 000001 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4827 033262 312 13 0 00 044703 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4828 033263 004 13 0 00 041662 ER4 AC+1,41662 ;LOW PRODUCT FAILED 4829 001000 AEE=XX ;INITIAL C(E) 4830 033264 312 10 0 00 044650 CAME E,[XX] ;WAS C(E) CLOBBERED? 4831 033265 005 10 0 00 041663 ER5 E,41663 ;C(E) WAS CLOBBERED 4832 033266 321 14 0 00 033254 JUMPL AC+2,F41660 ;LOOP ON ERROR SWITCH^ 4833 4834 004167 ADR=ADR+1 4835 002000 XX=XX+XX 4836 IFE XX, 4837 4838 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4839 000004 000000 V1=XX*XX 4840 000000 IFG XX,*>_1>> 4841 IFL XX, 4842 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4843 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4844 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4845 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4846 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4847 4848 002000 F41670: AA1=XX ;INITIAL C(AC) 4849 033267 200 12 0 00 044653 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4850 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4851 033270 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4852 002000 AEE=XX ;INITIAL C(E) 4853 033271 200 10 0 00 044653 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4854 033272 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4855 000000 AR1=V2 ;EXPECTED RESULT IN AC 4856 033273 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4857 033274 003 12 0 00 041671 ER3 AC,41671 ;HIGH PRODUCT FAILED 4858 000004 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4859 033275 312 13 0 00 044711 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4860 033276 004 13 0 00 041672 ER4 AC+1,41672 ;LOW PRODUCT FAILED 4861 002000 AEE=XX ;INITIAL C(E) 4862 033277 312 10 0 00 044653 CAME E,[XX] ;WAS C(E) CLOBBERED? 4863 033300 005 10 0 00 041673 ER5 E,41673 ;C(E) WAS CLOBBERED 4864 033301 321 14 0 00 033267 JUMPL AC+2,F41670 ;LOOP ON ERROR SWITCH^ 4865 4866 004170 ADR=ADR+1 4867 004000 XX=XX+XX 4868 IFE XX, 4869 4870 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4871 000020 000000 V1=XX*XX 4872 000000 IFG XX,*>_1>> 4873 IFL XX, 4874 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4875 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4876 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4877 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4878 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0107 4879 4880 004000 F41700: AA1=XX ;INITIAL C(AC) 4881 033302 200 12 0 00 044656 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4882 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4883 033303 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4884 004000 AEE=XX ;INITIAL C(E) 4885 033304 200 10 0 00 044656 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4886 033305 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4887 000000 AR1=V2 ;EXPECTED RESULT IN AC 4888 033306 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4889 033307 003 12 0 00 041701 ER3 AC,41701 ;HIGH PRODUCT FAILED 4890 000020 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4891 033310 312 13 0 00 044717 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4892 033311 004 13 0 00 041702 ER4 AC+1,41702 ;LOW PRODUCT FAILED 4893 004000 AEE=XX ;INITIAL C(E) 4894 033312 312 10 0 00 044656 CAME E,[XX] ;WAS C(E) CLOBBERED? 4895 033313 005 10 0 00 041703 ER5 E,41703 ;C(E) WAS CLOBBERED 4896 033314 321 14 0 00 033302 JUMPL AC+2,F41700 ;LOOP ON ERROR SWITCH^ 4897 4898 004171 ADR=ADR+1 4899 010000 XX=XX+XX 4900 IFE XX, 4901 4902 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4903 000100 000000 V1=XX*XX 4904 000000 IFG XX,*>_1>> 4905 IFL XX, 4906 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4907 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4908 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4909 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4910 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4911 4912 010000 F41710: AA1=XX ;INITIAL C(AC) 4913 033315 200 12 0 00 044661 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4914 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4915 033316 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4916 010000 AEE=XX ;INITIAL C(E) 4917 033317 200 10 0 00 044661 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4918 033320 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4919 000000 AR1=V2 ;EXPECTED RESULT IN AC 4920 033321 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4921 033322 003 12 0 00 041711 ER3 AC,41711 ;HIGH PRODUCT FAILED 4922 000100 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4923 033323 312 13 0 00 044725 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4924 033324 004 13 0 00 041712 ER4 AC+1,41712 ;LOW PRODUCT FAILED 4925 010000 AEE=XX ;INITIAL C(E) 4926 033325 312 10 0 00 044661 CAME E,[XX] ;WAS C(E) CLOBBERED? 4927 033326 005 10 0 00 041713 ER5 E,41713 ;C(E) WAS CLOBBERED 4928 033327 321 14 0 00 033315 JUMPL AC+2,F41710 ;LOOP ON ERROR SWITCH^ 4929 4930 004172 ADR=ADR+1 4931 020000 XX=XX+XX 4932 IFE XX, 4933 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0108 4934 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4935 000400 000000 V1=XX*XX 4936 000000 IFG XX,*>_1>> 4937 IFL XX, 4938 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4939 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4940 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4941 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4942 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4943 4944 020000 F41720: AA1=XX ;INITIAL C(AC) 4945 033330 200 12 0 00 044664 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4946 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4947 033331 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4948 020000 AEE=XX ;INITIAL C(E) 4949 033332 200 10 0 00 044664 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4950 033333 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4951 000000 AR1=V2 ;EXPECTED RESULT IN AC 4952 033334 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4953 033335 003 12 0 00 041721 ER3 AC,41721 ;HIGH PRODUCT FAILED 4954 000400 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4955 033336 312 13 0 00 044733 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4956 033337 004 13 0 00 041722 ER4 AC+1,41722 ;LOW PRODUCT FAILED 4957 020000 AEE=XX ;INITIAL C(E) 4958 033340 312 10 0 00 044664 CAME E,[XX] ;WAS C(E) CLOBBERED? 4959 033341 005 10 0 00 041723 ER5 E,41723 ;C(E) WAS CLOBBERED 4960 033342 321 14 0 00 033330 JUMPL AC+2,F41720 ;LOOP ON ERROR SWITCH^ 4961 4962 004173 ADR=ADR+1 4963 040000 XX=XX+XX 4964 IFE XX, 4965 4966 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4967 002000 000000 V1=XX*XX 4968 000000 IFG XX,*>_1>> 4969 IFL XX, 4970 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 4971 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 4972 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 4973 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 4974 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 4975 4976 040000 F41730: AA1=XX ;INITIAL C(AC) 4977 033343 200 12 0 00 044667 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 4978 777777 777777 AA2=-1 ;INITIAL C(AC+1) 4979 033344 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 4980 040000 AEE=XX ;INITIAL C(E) 4981 033345 200 10 0 00 044667 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 4982 033346 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 4983 000000 AR1=V2 ;EXPECTED RESULT IN AC 4984 033347 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 4985 033350 003 12 0 00 041731 ER3 AC,41731 ;HIGH PRODUCT FAILED 4986 002000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 4987 033351 312 13 0 00 044741 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 4988 033352 004 13 0 00 041732 ER4 AC+1,41732 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0109 4989 040000 AEE=XX ;INITIAL C(E) 4990 033353 312 10 0 00 044667 CAME E,[XX] ;WAS C(E) CLOBBERED? 4991 033354 005 10 0 00 041733 ER5 E,41733 ;C(E) WAS CLOBBERED 4992 033355 321 14 0 00 033343 JUMPL AC+2,F41730 ;LOOP ON ERROR SWITCH^ 4993 4994 004174 ADR=ADR+1 4995 100000 XX=XX+XX 4996 IFE XX, 4997 4998 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 4999 010000 000000 V1=XX*XX 5000 000000 IFG XX,*>_1>> 5001 IFL XX, 5002 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5003 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5004 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5005 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5006 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5007 5008 100000 F41740: AA1=XX ;INITIAL C(AC) 5009 033356 200 12 0 00 044672 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5010 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5011 033357 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5012 100000 AEE=XX ;INITIAL C(E) 5013 033360 200 10 0 00 044672 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5014 033361 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5015 000000 AR1=V2 ;EXPECTED RESULT IN AC 5016 033362 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5017 033363 003 12 0 00 041741 ER3 AC,41741 ;HIGH PRODUCT FAILED 5018 010000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5019 033364 312 13 0 00 044747 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5020 033365 004 13 0 00 041742 ER4 AC+1,41742 ;LOW PRODUCT FAILED 5021 100000 AEE=XX ;INITIAL C(E) 5022 033366 312 10 0 00 044672 CAME E,[XX] ;WAS C(E) CLOBBERED? 5023 033367 005 10 0 00 041743 ER5 E,41743 ;C(E) WAS CLOBBERED 5024 033370 321 14 0 00 033356 JUMPL AC+2,F41740 ;LOOP ON ERROR SWITCH^ 5025 5026 004175 ADR=ADR+1 5027 200000 XX=XX+XX 5028 IFE XX, 5029 5030 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5031 040000 000000 V1=XX*XX 5032 000000 IFG XX,*>_1>> 5033 IFL XX, 5034 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5035 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5036 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5037 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5038 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5039 5040 200000 F41750: AA1=XX ;INITIAL C(AC) 5041 033371 200 12 0 00 044675 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5042 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5043 033372 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0110 5044 200000 AEE=XX ;INITIAL C(E) 5045 033373 200 10 0 00 044675 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5046 033374 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5047 000000 AR1=V2 ;EXPECTED RESULT IN AC 5048 033375 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5049 033376 003 12 0 00 041751 ER3 AC,41751 ;HIGH PRODUCT FAILED 5050 040000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5051 033377 312 13 0 00 044755 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5052 033400 004 13 0 00 041752 ER4 AC+1,41752 ;LOW PRODUCT FAILED 5053 200000 AEE=XX ;INITIAL C(E) 5054 033401 312 10 0 00 044675 CAME E,[XX] ;WAS C(E) CLOBBERED? 5055 033402 005 10 0 00 041753 ER5 E,41753 ;C(E) WAS CLOBBERED 5056 033403 321 14 0 00 033371 JUMPL AC+2,F41750 ;LOOP ON ERROR SWITCH^ 5057 5058 004176 ADR=ADR+1 5059 400000 XX=XX+XX 5060 IFE XX, 5061 5062 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5063 200000 000000 V1=XX*XX 5064 000000 IFG XX,*>_1>> 5065 IFL XX, 5066 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5067 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5068 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5069 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5070 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5071 5072 400000 F41760: AA1=XX ;INITIAL C(AC) 5073 033404 200 12 0 00 044700 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5074 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5075 033405 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5076 400000 AEE=XX ;INITIAL C(E) 5077 033406 200 10 0 00 044700 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5078 033407 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5079 000000 AR1=V2 ;EXPECTED RESULT IN AC 5080 033410 312 12 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5081 033411 003 12 0 00 041761 ER3 AC,41761 ;HIGH PRODUCT FAILED 5082 200000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5083 033412 312 13 0 00 044763 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5084 033413 004 13 0 00 041762 ER4 AC+1,41762 ;LOW PRODUCT FAILED 5085 400000 AEE=XX ;INITIAL C(E) 5086 033414 312 10 0 00 044700 CAME E,[XX] ;WAS C(E) CLOBBERED? 5087 033415 005 10 0 00 041763 ER5 E,41763 ;C(E) WAS CLOBBERED 5088 033416 321 14 0 00 033404 JUMPL AC+2,F41760 ;LOOP ON ERROR SWITCH^ 5089 5090 004177 ADR=ADR+1 5091 000001 000000 XX=XX+XX 5092 IFE XX, 5093 5094 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5095 000000 V1=XX*XX 5096 000002 IFG XX,*>_1>> 5097 IFL XX, 5098 MOP1 (\ADR,XX,-1,XX,V2,V1)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0111 5099 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5100 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5101 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5102 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5103 5104 000001 000000 F41770: AA1=XX ;INITIAL C(AC) 5105 033417 200 12 0 00 044703 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5106 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5107 033420 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5108 000001 000000 AEE=XX ;INITIAL C(E) 5109 033421 200 10 0 00 044703 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5110 033422 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5111 000002 AR1=V2 ;EXPECTED RESULT IN AC 5112 033423 312 12 0 00 044620 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5113 033424 003 12 0 00 041771 ER3 AC,41771 ;HIGH PRODUCT FAILED 5114 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5115 033425 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5116 033426 004 13 0 00 041772 ER4 AC+1,41772 ;LOW PRODUCT FAILED 5117 000001 000000 AEE=XX ;INITIAL C(E) 5118 033427 312 10 0 00 044703 CAME E,[XX] ;WAS C(E) CLOBBERED? 5119 033430 005 10 0 00 041773 ER5 E,41773 ;C(E) WAS CLOBBERED 5120 033431 321 14 0 00 033417 JUMPL AC+2,F41770 ;LOOP ON ERROR SWITCH^ 5121 5122 004200 ADR=ADR+1 5123 000002 000000 XX=XX+XX 5124 IFE XX, 5125 5126 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5127 000000 V1=XX*XX 5128 000010 IFG XX,*>_1>> 5129 IFL XX, 5130 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5131 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5132 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5133 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5134 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5135 5136 000002 000000 F42000: AA1=XX ;INITIAL C(AC) 5137 033432 200 12 0 00 044706 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5138 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5139 033433 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5140 000002 000000 AEE=XX ;INITIAL C(E) 5141 033434 200 10 0 00 044706 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5142 033435 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5143 000010 AR1=V2 ;EXPECTED RESULT IN AC 5144 033436 312 12 0 00 044626 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5145 033437 003 12 0 00 042001 ER3 AC,42001 ;HIGH PRODUCT FAILED 5146 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5147 033440 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5148 033441 004 13 0 00 042002 ER4 AC+1,42002 ;LOW PRODUCT FAILED 5149 000002 000000 AEE=XX ;INITIAL C(E) 5150 033442 312 10 0 00 044706 CAME E,[XX] ;WAS C(E) CLOBBERED? 5151 033443 005 10 0 00 042003 ER5 E,42003 ;C(E) WAS CLOBBERED 5152 033444 321 14 0 00 033432 JUMPL AC+2,F42000 ;LOOP ON ERROR SWITCH^ 5153 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0112 5154 004201 ADR=ADR+1 5155 000004 000000 XX=XX+XX 5156 IFE XX, 5157 5158 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5159 000000 V1=XX*XX 5160 000040 IFG XX,*>_1>> 5161 IFL XX, 5162 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5163 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5164 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5165 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5166 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5167 5168 000004 000000 F42010: AA1=XX ;INITIAL C(AC) 5169 033445 200 12 0 00 044711 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5170 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5171 033446 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5172 000004 000000 AEE=XX ;INITIAL C(E) 5173 033447 200 10 0 00 044711 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5174 033450 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5175 000040 AR1=V2 ;EXPECTED RESULT IN AC 5176 033451 312 12 0 00 044634 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5177 033452 003 12 0 00 042011 ER3 AC,42011 ;HIGH PRODUCT FAILED 5178 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5179 033453 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5180 033454 004 13 0 00 042012 ER4 AC+1,42012 ;LOW PRODUCT FAILED 5181 000004 000000 AEE=XX ;INITIAL C(E) 5182 033455 312 10 0 00 044711 CAME E,[XX] ;WAS C(E) CLOBBERED? 5183 033456 005 10 0 00 042013 ER5 E,42013 ;C(E) WAS CLOBBERED 5184 033457 321 14 0 00 033445 JUMPL AC+2,F42010 ;LOOP ON ERROR SWITCH^ 5185 5186 004202 ADR=ADR+1 5187 000010 000000 XX=XX+XX 5188 IFE XX, 5189 5190 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5191 000000 V1=XX*XX 5192 000200 IFG XX,*>_1>> 5193 IFL XX, 5194 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5195 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5196 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5197 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5198 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5199 5200 000010 000000 F42020: AA1=XX ;INITIAL C(AC) 5201 033460 200 12 0 00 044714 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5202 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5203 033461 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5204 000010 000000 AEE=XX ;INITIAL C(E) 5205 033462 200 10 0 00 044714 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5206 033463 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5207 000200 AR1=V2 ;EXPECTED RESULT IN AC 5208 033464 312 12 0 00 044642 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0113 5209 033465 003 12 0 00 042021 ER3 AC,42021 ;HIGH PRODUCT FAILED 5210 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5211 033466 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5212 033467 004 13 0 00 042022 ER4 AC+1,42022 ;LOW PRODUCT FAILED 5213 000010 000000 AEE=XX ;INITIAL C(E) 5214 033470 312 10 0 00 044714 CAME E,[XX] ;WAS C(E) CLOBBERED? 5215 033471 005 10 0 00 042023 ER5 E,42023 ;C(E) WAS CLOBBERED 5216 033472 321 14 0 00 033460 JUMPL AC+2,F42020 ;LOOP ON ERROR SWITCH^ 5217 5218 004203 ADR=ADR+1 5219 000020 000000 XX=XX+XX 5220 IFE XX, 5221 5222 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5223 000000 V1=XX*XX 5224 001000 IFG XX,*>_1>> 5225 IFL XX, 5226 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5227 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5228 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5229 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5230 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5231 5232 000020 000000 F42030: AA1=XX ;INITIAL C(AC) 5233 033473 200 12 0 00 044717 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5234 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5235 033474 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5236 000020 000000 AEE=XX ;INITIAL C(E) 5237 033475 200 10 0 00 044717 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5238 033476 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5239 001000 AR1=V2 ;EXPECTED RESULT IN AC 5240 033477 312 12 0 00 044650 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5241 033500 003 12 0 00 042031 ER3 AC,42031 ;HIGH PRODUCT FAILED 5242 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5243 033501 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5244 033502 004 13 0 00 042032 ER4 AC+1,42032 ;LOW PRODUCT FAILED 5245 000020 000000 AEE=XX ;INITIAL C(E) 5246 033503 312 10 0 00 044717 CAME E,[XX] ;WAS C(E) CLOBBERED? 5247 033504 005 10 0 00 042033 ER5 E,42033 ;C(E) WAS CLOBBERED 5248 033505 321 14 0 00 033473 JUMPL AC+2,F42030 ;LOOP ON ERROR SWITCH^ 5249 5250 004204 ADR=ADR+1 5251 000040 000000 XX=XX+XX 5252 IFE XX, 5253 5254 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5255 000000 V1=XX*XX 5256 004000 IFG XX,*>_1>> 5257 IFL XX, 5258 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5259 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5260 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5261 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5262 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5263 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0114 5264 000040 000000 F42040: AA1=XX ;INITIAL C(AC) 5265 033506 200 12 0 00 044722 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5266 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5267 033507 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5268 000040 000000 AEE=XX ;INITIAL C(E) 5269 033510 200 10 0 00 044722 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5270 033511 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5271 004000 AR1=V2 ;EXPECTED RESULT IN AC 5272 033512 312 12 0 00 044656 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5273 033513 003 12 0 00 042041 ER3 AC,42041 ;HIGH PRODUCT FAILED 5274 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5275 033514 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5276 033515 004 13 0 00 042042 ER4 AC+1,42042 ;LOW PRODUCT FAILED 5277 000040 000000 AEE=XX ;INITIAL C(E) 5278 033516 312 10 0 00 044722 CAME E,[XX] ;WAS C(E) CLOBBERED? 5279 033517 005 10 0 00 042043 ER5 E,42043 ;C(E) WAS CLOBBERED 5280 033520 321 14 0 00 033506 JUMPL AC+2,F42040 ;LOOP ON ERROR SWITCH^ 5281 5282 004205 ADR=ADR+1 5283 000100 000000 XX=XX+XX 5284 IFE XX, 5285 5286 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5287 000000 V1=XX*XX 5288 020000 IFG XX,*>_1>> 5289 IFL XX, 5290 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5291 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5292 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5293 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5294 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5295 5296 000100 000000 F42050: AA1=XX ;INITIAL C(AC) 5297 033521 200 12 0 00 044725 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5298 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5299 033522 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5300 000100 000000 AEE=XX ;INITIAL C(E) 5301 033523 200 10 0 00 044725 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5302 033524 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5303 020000 AR1=V2 ;EXPECTED RESULT IN AC 5304 033525 312 12 0 00 044664 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5305 033526 003 12 0 00 042051 ER3 AC,42051 ;HIGH PRODUCT FAILED 5306 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5307 033527 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5308 033530 004 13 0 00 042052 ER4 AC+1,42052 ;LOW PRODUCT FAILED 5309 000100 000000 AEE=XX ;INITIAL C(E) 5310 033531 312 10 0 00 044725 CAME E,[XX] ;WAS C(E) CLOBBERED? 5311 033532 005 10 0 00 042053 ER5 E,42053 ;C(E) WAS CLOBBERED 5312 033533 321 14 0 00 033521 JUMPL AC+2,F42050 ;LOOP ON ERROR SWITCH^ 5313 5314 004206 ADR=ADR+1 5315 000200 000000 XX=XX+XX 5316 IFE XX, 5317 5318 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0115 5319 000000 V1=XX*XX 5320 100000 IFG XX,*>_1>> 5321 IFL XX, 5322 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5323 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5324 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5325 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5326 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5327 5328 000200 000000 F42060: AA1=XX ;INITIAL C(AC) 5329 033534 200 12 0 00 044730 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5330 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5331 033535 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5332 000200 000000 AEE=XX ;INITIAL C(E) 5333 033536 200 10 0 00 044730 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5334 033537 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5335 100000 AR1=V2 ;EXPECTED RESULT IN AC 5336 033540 312 12 0 00 044672 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5337 033541 003 12 0 00 042061 ER3 AC,42061 ;HIGH PRODUCT FAILED 5338 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5339 033542 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5340 033543 004 13 0 00 042062 ER4 AC+1,42062 ;LOW PRODUCT FAILED 5341 000200 000000 AEE=XX ;INITIAL C(E) 5342 033544 312 10 0 00 044730 CAME E,[XX] ;WAS C(E) CLOBBERED? 5343 033545 005 10 0 00 042063 ER5 E,42063 ;C(E) WAS CLOBBERED 5344 033546 321 14 0 00 033534 JUMPL AC+2,F42060 ;LOOP ON ERROR SWITCH^ 5345 5346 004207 ADR=ADR+1 5347 000400 000000 XX=XX+XX 5348 IFE XX, 5349 5350 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5351 000000 V1=XX*XX 5352 400000 IFG XX,*>_1>> 5353 IFL XX, 5354 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5355 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5356 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5357 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5358 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5359 5360 000400 000000 F42070: AA1=XX ;INITIAL C(AC) 5361 033547 200 12 0 00 044733 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5362 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5363 033550 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5364 000400 000000 AEE=XX ;INITIAL C(E) 5365 033551 200 10 0 00 044733 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5366 033552 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5367 400000 AR1=V2 ;EXPECTED RESULT IN AC 5368 033553 312 12 0 00 044700 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5369 033554 003 12 0 00 042071 ER3 AC,42071 ;HIGH PRODUCT FAILED 5370 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5371 033555 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5372 033556 004 13 0 00 042072 ER4 AC+1,42072 ;LOW PRODUCT FAILED 5373 000400 000000 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0116 5374 033557 312 10 0 00 044733 CAME E,[XX] ;WAS C(E) CLOBBERED? 5375 033560 005 10 0 00 042073 ER5 E,42073 ;C(E) WAS CLOBBERED 5376 033561 321 14 0 00 033547 JUMPL AC+2,F42070 ;LOOP ON ERROR SWITCH^ 5377 5378 004210 ADR=ADR+1 5379 001000 000000 XX=XX+XX 5380 IFE XX, 5381 5382 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5383 000000 V1=XX*XX 5384 000002 000000 IFG XX,*>_1>> 5385 IFL XX, 5386 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5387 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5388 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5389 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5390 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5391 5392 001000 000000 F42100: AA1=XX ;INITIAL C(AC) 5393 033562 200 12 0 00 044736 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5394 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5395 033563 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5396 001000 000000 AEE=XX ;INITIAL C(E) 5397 033564 200 10 0 00 044736 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5398 033565 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5399 000002 000000 AR1=V2 ;EXPECTED RESULT IN AC 5400 033566 312 12 0 00 044706 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5401 033567 003 12 0 00 042101 ER3 AC,42101 ;HIGH PRODUCT FAILED 5402 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5403 033570 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5404 033571 004 13 0 00 042102 ER4 AC+1,42102 ;LOW PRODUCT FAILED 5405 001000 000000 AEE=XX ;INITIAL C(E) 5406 033572 312 10 0 00 044736 CAME E,[XX] ;WAS C(E) CLOBBERED? 5407 033573 005 10 0 00 042103 ER5 E,42103 ;C(E) WAS CLOBBERED 5408 033574 321 14 0 00 033562 JUMPL AC+2,F42100 ;LOOP ON ERROR SWITCH^ 5409 5410 004211 ADR=ADR+1 5411 002000 000000 XX=XX+XX 5412 IFE XX, 5413 5414 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5415 000000 V1=XX*XX 5416 000010 000000 IFG XX,*>_1>> 5417 IFL XX, 5418 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5419 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5420 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5421 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5422 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5423 5424 002000 000000 F42110: AA1=XX ;INITIAL C(AC) 5425 033575 200 12 0 00 044741 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5426 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5427 033576 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5428 002000 000000 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0117 5429 033577 200 10 0 00 044741 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5430 033600 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5431 000010 000000 AR1=V2 ;EXPECTED RESULT IN AC 5432 033601 312 12 0 00 044714 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5433 033602 003 12 0 00 042111 ER3 AC,42111 ;HIGH PRODUCT FAILED 5434 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5435 033603 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5436 033604 004 13 0 00 042112 ER4 AC+1,42112 ;LOW PRODUCT FAILED 5437 002000 000000 AEE=XX ;INITIAL C(E) 5438 033605 312 10 0 00 044741 CAME E,[XX] ;WAS C(E) CLOBBERED? 5439 033606 005 10 0 00 042113 ER5 E,42113 ;C(E) WAS CLOBBERED 5440 033607 321 14 0 00 033575 JUMPL AC+2,F42110 ;LOOP ON ERROR SWITCH^ 5441 5442 004212 ADR=ADR+1 5443 004000 000000 XX=XX+XX 5444 IFE XX, 5445 5446 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5447 000000 V1=XX*XX 5448 000040 000000 IFG XX,*>_1>> 5449 IFL XX, 5450 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5451 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5452 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5453 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5454 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5455 5456 004000 000000 F42120: AA1=XX ;INITIAL C(AC) 5457 033610 200 12 0 00 044744 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5458 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5459 033611 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5460 004000 000000 AEE=XX ;INITIAL C(E) 5461 033612 200 10 0 00 044744 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5462 033613 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5463 000040 000000 AR1=V2 ;EXPECTED RESULT IN AC 5464 033614 312 12 0 00 044722 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5465 033615 003 12 0 00 042121 ER3 AC,42121 ;HIGH PRODUCT FAILED 5466 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5467 033616 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5468 033617 004 13 0 00 042122 ER4 AC+1,42122 ;LOW PRODUCT FAILED 5469 004000 000000 AEE=XX ;INITIAL C(E) 5470 033620 312 10 0 00 044744 CAME E,[XX] ;WAS C(E) CLOBBERED? 5471 033621 005 10 0 00 042123 ER5 E,42123 ;C(E) WAS CLOBBERED 5472 033622 321 14 0 00 033610 JUMPL AC+2,F42120 ;LOOP ON ERROR SWITCH^ 5473 5474 004213 ADR=ADR+1 5475 010000 000000 XX=XX+XX 5476 IFE XX, 5477 5478 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5479 000000 V1=XX*XX 5480 000200 000000 IFG XX,*>_1>> 5481 IFL XX, 5482 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5483 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0118 5484 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5485 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5486 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5487 5488 010000 000000 F42130: AA1=XX ;INITIAL C(AC) 5489 033623 200 12 0 00 044747 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5490 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5491 033624 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5492 010000 000000 AEE=XX ;INITIAL C(E) 5493 033625 200 10 0 00 044747 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5494 033626 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5495 000200 000000 AR1=V2 ;EXPECTED RESULT IN AC 5496 033627 312 12 0 00 044730 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5497 033630 003 12 0 00 042131 ER3 AC,42131 ;HIGH PRODUCT FAILED 5498 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5499 033631 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5500 033632 004 13 0 00 042132 ER4 AC+1,42132 ;LOW PRODUCT FAILED 5501 010000 000000 AEE=XX ;INITIAL C(E) 5502 033633 312 10 0 00 044747 CAME E,[XX] ;WAS C(E) CLOBBERED? 5503 033634 005 10 0 00 042133 ER5 E,42133 ;C(E) WAS CLOBBERED 5504 033635 321 14 0 00 033623 JUMPL AC+2,F42130 ;LOOP ON ERROR SWITCH^ 5505 5506 004214 ADR=ADR+1 5507 020000 000000 XX=XX+XX 5508 IFE XX, 5509 5510 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5511 000000 V1=XX*XX 5512 001000 000000 IFG XX,*>_1>> 5513 IFL XX, 5514 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5515 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5516 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5517 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5518 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5519 5520 020000 000000 F42140: AA1=XX ;INITIAL C(AC) 5521 033636 200 12 0 00 044752 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5522 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5523 033637 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5524 020000 000000 AEE=XX ;INITIAL C(E) 5525 033640 200 10 0 00 044752 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5526 033641 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5527 001000 000000 AR1=V2 ;EXPECTED RESULT IN AC 5528 033642 312 12 0 00 044736 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5529 033643 003 12 0 00 042141 ER3 AC,42141 ;HIGH PRODUCT FAILED 5530 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5531 033644 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5532 033645 004 13 0 00 042142 ER4 AC+1,42142 ;LOW PRODUCT FAILED 5533 020000 000000 AEE=XX ;INITIAL C(E) 5534 033646 312 10 0 00 044752 CAME E,[XX] ;WAS C(E) CLOBBERED? 5535 033647 005 10 0 00 042143 ER5 E,42143 ;C(E) WAS CLOBBERED 5536 033650 321 14 0 00 033636 JUMPL AC+2,F42140 ;LOOP ON ERROR SWITCH^ 5537 5538 004215 ADR=ADR+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0119 5539 040000 000000 XX=XX+XX 5540 IFE XX, 5541 5542 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5543 000000 V1=XX*XX 5544 004000 000000 IFG XX,*>_1>> 5545 IFL XX, 5546 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5547 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5548 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5549 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5550 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5551 5552 040000 000000 F42150: AA1=XX ;INITIAL C(AC) 5553 033651 200 12 0 00 044755 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5554 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5555 033652 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5556 040000 000000 AEE=XX ;INITIAL C(E) 5557 033653 200 10 0 00 044755 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5558 033654 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5559 004000 000000 AR1=V2 ;EXPECTED RESULT IN AC 5560 033655 312 12 0 00 044744 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5561 033656 003 12 0 00 042151 ER3 AC,42151 ;HIGH PRODUCT FAILED 5562 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5563 033657 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5564 033660 004 13 0 00 042152 ER4 AC+1,42152 ;LOW PRODUCT FAILED 5565 040000 000000 AEE=XX ;INITIAL C(E) 5566 033661 312 10 0 00 044755 CAME E,[XX] ;WAS C(E) CLOBBERED? 5567 033662 005 10 0 00 042153 ER5 E,42153 ;C(E) WAS CLOBBERED 5568 033663 321 14 0 00 033651 JUMPL AC+2,F42150 ;LOOP ON ERROR SWITCH^ 5569 5570 004216 ADR=ADR+1 5571 100000 000000 XX=XX+XX 5572 IFE XX, 5573 5574 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5575 000000 V1=XX*XX 5576 020000 000000 IFG XX,*>_1>> 5577 IFL XX, 5578 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5579 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5580 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5581 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5582 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5583 5584 100000 000000 F42160: AA1=XX ;INITIAL C(AC) 5585 033664 200 12 0 00 044760 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5586 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5587 033665 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5588 100000 000000 AEE=XX ;INITIAL C(E) 5589 033666 200 10 0 00 044760 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5590 033667 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5591 020000 000000 AR1=V2 ;EXPECTED RESULT IN AC 5592 033670 312 12 0 00 044752 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5593 033671 003 12 0 00 042161 ER3 AC,42161 ;HIGH PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0120 5594 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5595 033672 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5596 033673 004 13 0 00 042162 ER4 AC+1,42162 ;LOW PRODUCT FAILED 5597 100000 000000 AEE=XX ;INITIAL C(E) 5598 033674 312 10 0 00 044760 CAME E,[XX] ;WAS C(E) CLOBBERED? 5599 033675 005 10 0 00 042163 ER5 E,42163 ;C(E) WAS CLOBBERED 5600 033676 321 14 0 00 033664 JUMPL AC+2,F42160 ;LOOP ON ERROR SWITCH^ 5601 5602 004217 ADR=ADR+1 5603 200000 000000 XX=XX+XX 5604 IFE XX, 5605 5606 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5607 000000 V1=XX*XX 5608 100000 000000 IFG XX,*>_1>> 5609 IFL XX, 5610 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5611 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5612 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5613 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5614 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5615 5616 200000 000000 F42170: AA1=XX ;INITIAL C(AC) 5617 033677 200 12 0 00 044763 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5618 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5619 033700 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5620 200000 000000 AEE=XX ;INITIAL C(E) 5621 033701 200 10 0 00 044763 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5622 033702 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5623 100000 000000 AR1=V2 ;EXPECTED RESULT IN AC 5624 033703 312 12 0 00 044760 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5625 033704 003 12 0 00 042171 ER3 AC,42171 ;HIGH PRODUCT FAILED 5626 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5627 033705 312 13 0 00 044615 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5628 033706 004 13 0 00 042172 ER4 AC+1,42172 ;LOW PRODUCT FAILED 5629 200000 000000 AEE=XX ;INITIAL C(E) 5630 033707 312 10 0 00 044763 CAME E,[XX] ;WAS C(E) CLOBBERED? 5631 033710 005 10 0 00 042173 ER5 E,42173 ;C(E) WAS CLOBBERED 5632 033711 321 14 0 00 033677 JUMPL AC+2,F42170 ;LOOP ON ERROR SWITCH^ 5633 5634 004220 ADR=ADR+1 5635 400000 000000 XX=XX+XX 5636 IFE XX, 5637 5638 ;MULTIPLY A FLOATING 1 BY ITSELF FOR A SQUARE PRODUCT 5639 400000 000000 V1=XX*XX 5640 IFG XX,*>_1>> 5641 400000 000000 IFL XX, 5642 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5643 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5644 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5645 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5646 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5647 5648 400000 000000 F42200: AA1=XX ;INITIAL C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 4-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0121 5649 033712 200 12 0 00 044765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5650 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5651 033713 200 13 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5652 400000 000000 AEE=XX ;INITIAL C(E) 5653 033714 200 10 0 00 044765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5654 033715 224 12 0 00 000010 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5655 400000 000000 AR1=V2 ;EXPECTED RESULT IN AC 5656 033716 312 12 0 00 044765 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5657 033717 003 12 0 00 042201 ER3 AC,42201 ;HIGH PRODUCT FAILED 5658 400000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 5659 033720 312 13 0 00 044765 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5660 033721 004 13 0 00 042202 ER4 AC+1,42202 ;LOW PRODUCT FAILED 5661 400000 000000 AEE=XX ;INITIAL C(E) 5662 033722 312 10 0 00 044765 CAME E,[XX] ;WAS C(E) CLOBBERED? 5663 033723 005 10 0 00 042203 ER5 E,42203 ;C(E) WAS CLOBBERED 5664 033724 321 14 0 00 033712 JUMPL AC+2,F42200 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0122 5665 000011 AC=11 5666 000007 E=&17 5667 SAVEAC (1,1)^ 5668 033725 201 13 0 00 033725 MOVEI AC+2,. ;SAVE TEST PC 5669 033726 202 13 0 00 030051 MOVEM AC+2,TESTPC 5670 033727 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5671 033730 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5672 000000 XX=0 5673 5674 REPEAT ^D36,< 5675 ADR=ADR+1 5676 XX=XX+XX+1 5677 IFE , 5678 5679 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5680 V1=XX*XX 5681 IFE , 5682 IFN , 5683 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5684 IFG XX, 5685 MOP1 (\ADR,XX,-1,XX,V2,V1)> 5686 5687 004221 ADR=ADR+1 5688 000001 XX=XX+XX+1 5689 777777 777776 IFE , 5690 5691 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5692 000004 V1=XX*XX 5693 IFE , 5694 000000 IFN , 5695 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5696 IFG XX, 5697 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5698 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5699 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5700 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5701 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5702 5703 777777 777776 F42210: AA1=XX ;INITIAL C(AC) 5704 033731 200 11 0 00 044621 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5705 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5706 033732 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5707 777777 777776 AEE=XX ;INITIAL C(E) 5708 033733 200 07 0 00 044621 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5709 033734 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5710 000000 AR1=V2 ;EXPECTED RESULT IN AC 5711 033735 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5712 033736 003 11 0 00 042211 ER3 AC,42211 ;HIGH PRODUCT FAILED 5713 000004 AR2=V1 ;EXPECTED RESULT IN AC+1 5714 033737 312 12 0 00 044623 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5715 033740 004 12 0 00 042212 ER4 AC+1,42212 ;LOW PRODUCT FAILED 5716 777777 777776 AEE=XX ;INITIAL C(E) 5717 033741 312 07 0 00 044621 CAME E,[XX] ;WAS C(E) CLOBBERED? 5718 033742 005 07 0 00 042213 ER5 E,42213 ;C(E) WAS CLOBBERED 5719 033743 321 13 0 00 033731 JUMPL AC+2,F42210 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0123 5720 5721 004222 ADR=ADR+1 5722 777777 777775 XX=XX+XX+1 5723 IFE , 5724 5725 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5726 000011 V1=XX*XX 5727 IFE , 5728 000000 IFN , 5729 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5730 IFG XX, 5731 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5732 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5733 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5734 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5735 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5736 5737 777777 777775 F42220: AA1=XX ;INITIAL C(AC) 5738 033744 200 11 0 00 044624 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5739 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5740 033745 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5741 777777 777775 AEE=XX ;INITIAL C(E) 5742 033746 200 07 0 00 044624 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5743 033747 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5744 000000 AR1=V2 ;EXPECTED RESULT IN AC 5745 033750 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5746 033751 003 11 0 00 042221 ER3 AC,42221 ;HIGH PRODUCT FAILED 5747 000011 AR2=V1 ;EXPECTED RESULT IN AC+1 5748 033752 312 12 0 00 045070 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5749 033753 004 12 0 00 042222 ER4 AC+1,42222 ;LOW PRODUCT FAILED 5750 777777 777775 AEE=XX ;INITIAL C(E) 5751 033754 312 07 0 00 044624 CAME E,[XX] ;WAS C(E) CLOBBERED? 5752 033755 005 07 0 00 042223 ER5 E,42223 ;C(E) WAS CLOBBERED 5753 033756 321 13 0 00 033744 JUMPL AC+2,F42220 ;LOOP ON ERROR SWITCH^ 5754 5755 004223 ADR=ADR+1 5756 777777 777773 XX=XX+XX+1 5757 IFE , 5758 5759 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5760 000031 V1=XX*XX 5761 IFE , 5762 000000 IFN , 5763 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5764 IFG XX, 5765 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5766 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5767 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5768 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5769 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5770 5771 777777 777773 F42230: AA1=XX ;INITIAL C(AC) 5772 033757 200 11 0 00 045071 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5773 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5774 033760 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0124 5775 777777 777773 AEE=XX ;INITIAL C(E) 5776 033761 200 07 0 00 045071 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5777 033762 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5778 000000 AR1=V2 ;EXPECTED RESULT IN AC 5779 033763 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5780 033764 003 11 0 00 042231 ER3 AC,42231 ;HIGH PRODUCT FAILED 5781 000031 AR2=V1 ;EXPECTED RESULT IN AC+1 5782 033765 312 12 0 00 045072 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5783 033766 004 12 0 00 042232 ER4 AC+1,42232 ;LOW PRODUCT FAILED 5784 777777 777773 AEE=XX ;INITIAL C(E) 5785 033767 312 07 0 00 045071 CAME E,[XX] ;WAS C(E) CLOBBERED? 5786 033770 005 07 0 00 042233 ER5 E,42233 ;C(E) WAS CLOBBERED 5787 033771 321 13 0 00 033757 JUMPL AC+2,F42230 ;LOOP ON ERROR SWITCH^ 5788 5789 004224 ADR=ADR+1 5790 777777 777767 XX=XX+XX+1 5791 IFE , 5792 5793 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5794 000121 V1=XX*XX 5795 IFE , 5796 000000 IFN , 5797 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5798 IFG XX, 5799 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5800 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5801 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5802 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5803 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5804 5805 777777 777767 F42240: AA1=XX ;INITIAL C(AC) 5806 033772 200 11 0 00 045073 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5807 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5808 033773 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5809 777777 777767 AEE=XX ;INITIAL C(E) 5810 033774 200 07 0 00 045073 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5811 033775 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5812 000000 AR1=V2 ;EXPECTED RESULT IN AC 5813 033776 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5814 033777 003 11 0 00 042241 ER3 AC,42241 ;HIGH PRODUCT FAILED 5815 000121 AR2=V1 ;EXPECTED RESULT IN AC+1 5816 034000 312 12 0 00 045074 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5817 034001 004 12 0 00 042242 ER4 AC+1,42242 ;LOW PRODUCT FAILED 5818 777777 777767 AEE=XX ;INITIAL C(E) 5819 034002 312 07 0 00 045073 CAME E,[XX] ;WAS C(E) CLOBBERED? 5820 034003 005 07 0 00 042243 ER5 E,42243 ;C(E) WAS CLOBBERED 5821 034004 321 13 0 00 033772 JUMPL AC+2,F42240 ;LOOP ON ERROR SWITCH^ 5822 5823 004225 ADR=ADR+1 5824 777777 777757 XX=XX+XX+1 5825 IFE , 5826 5827 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5828 000441 V1=XX*XX 5829 IFE , DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0125 5830 000000 IFN , 5831 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5832 IFG XX, 5833 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5834 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5835 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5836 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5837 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5838 5839 777777 777757 F42250: AA1=XX ;INITIAL C(AC) 5840 034005 200 11 0 00 045075 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5841 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5842 034006 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5843 777777 777757 AEE=XX ;INITIAL C(E) 5844 034007 200 07 0 00 045075 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5845 034010 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5846 000000 AR1=V2 ;EXPECTED RESULT IN AC 5847 034011 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5848 034012 003 11 0 00 042251 ER3 AC,42251 ;HIGH PRODUCT FAILED 5849 000441 AR2=V1 ;EXPECTED RESULT IN AC+1 5850 034013 312 12 0 00 045076 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5851 034014 004 12 0 00 042252 ER4 AC+1,42252 ;LOW PRODUCT FAILED 5852 777777 777757 AEE=XX ;INITIAL C(E) 5853 034015 312 07 0 00 045075 CAME E,[XX] ;WAS C(E) CLOBBERED? 5854 034016 005 07 0 00 042253 ER5 E,42253 ;C(E) WAS CLOBBERED 5855 034017 321 13 0 00 034005 JUMPL AC+2,F42250 ;LOOP ON ERROR SWITCH^ 5856 5857 004226 ADR=ADR+1 5858 777777 777737 XX=XX+XX+1 5859 IFE , 5860 5861 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5862 002101 V1=XX*XX 5863 IFE , 5864 000000 IFN , 5865 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5866 IFG XX, 5867 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5868 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5869 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5870 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5871 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5872 5873 777777 777737 F42260: AA1=XX ;INITIAL C(AC) 5874 034020 200 11 0 00 045077 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5875 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5876 034021 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5877 777777 777737 AEE=XX ;INITIAL C(E) 5878 034022 200 07 0 00 045077 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5879 034023 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5880 000000 AR1=V2 ;EXPECTED RESULT IN AC 5881 034024 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5882 034025 003 11 0 00 042261 ER3 AC,42261 ;HIGH PRODUCT FAILED 5883 002101 AR2=V1 ;EXPECTED RESULT IN AC+1 5884 034026 312 12 0 00 045100 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0126 5885 034027 004 12 0 00 042262 ER4 AC+1,42262 ;LOW PRODUCT FAILED 5886 777777 777737 AEE=XX ;INITIAL C(E) 5887 034030 312 07 0 00 045077 CAME E,[XX] ;WAS C(E) CLOBBERED? 5888 034031 005 07 0 00 042263 ER5 E,42263 ;C(E) WAS CLOBBERED 5889 034032 321 13 0 00 034020 JUMPL AC+2,F42260 ;LOOP ON ERROR SWITCH^ 5890 5891 004227 ADR=ADR+1 5892 777777 777677 XX=XX+XX+1 5893 IFE , 5894 5895 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5896 010201 V1=XX*XX 5897 IFE , 5898 000000 IFN , 5899 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5900 IFG XX, 5901 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5902 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5903 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5904 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5905 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5906 5907 777777 777677 F42270: AA1=XX ;INITIAL C(AC) 5908 034033 200 11 0 00 045101 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5909 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5910 034034 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5911 777777 777677 AEE=XX ;INITIAL C(E) 5912 034035 200 07 0 00 045101 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5913 034036 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5914 000000 AR1=V2 ;EXPECTED RESULT IN AC 5915 034037 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5916 034040 003 11 0 00 042271 ER3 AC,42271 ;HIGH PRODUCT FAILED 5917 010201 AR2=V1 ;EXPECTED RESULT IN AC+1 5918 034041 312 12 0 00 045102 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5919 034042 004 12 0 00 042272 ER4 AC+1,42272 ;LOW PRODUCT FAILED 5920 777777 777677 AEE=XX ;INITIAL C(E) 5921 034043 312 07 0 00 045101 CAME E,[XX] ;WAS C(E) CLOBBERED? 5922 034044 005 07 0 00 042273 ER5 E,42273 ;C(E) WAS CLOBBERED 5923 034045 321 13 0 00 034033 JUMPL AC+2,F42270 ;LOOP ON ERROR SWITCH^ 5924 5925 004230 ADR=ADR+1 5926 777777 777577 XX=XX+XX+1 5927 IFE , 5928 5929 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5930 040401 V1=XX*XX 5931 IFE , 5932 000000 IFN , 5933 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5934 IFG XX, 5935 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5936 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5937 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5938 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5939 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0127 5940 5941 777777 777577 F42300: AA1=XX ;INITIAL C(AC) 5942 034046 200 11 0 00 045103 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5943 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5944 034047 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5945 777777 777577 AEE=XX ;INITIAL C(E) 5946 034050 200 07 0 00 045103 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5947 034051 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5948 000000 AR1=V2 ;EXPECTED RESULT IN AC 5949 034052 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5950 034053 003 11 0 00 042301 ER3 AC,42301 ;HIGH PRODUCT FAILED 5951 040401 AR2=V1 ;EXPECTED RESULT IN AC+1 5952 034054 312 12 0 00 045104 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5953 034055 004 12 0 00 042302 ER4 AC+1,42302 ;LOW PRODUCT FAILED 5954 777777 777577 AEE=XX ;INITIAL C(E) 5955 034056 312 07 0 00 045103 CAME E,[XX] ;WAS C(E) CLOBBERED? 5956 034057 005 07 0 00 042303 ER5 E,42303 ;C(E) WAS CLOBBERED 5957 034060 321 13 0 00 034046 JUMPL AC+2,F42300 ;LOOP ON ERROR SWITCH^ 5958 5959 004231 ADR=ADR+1 5960 777777 777377 XX=XX+XX+1 5961 IFE , 5962 5963 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5964 201001 V1=XX*XX 5965 IFE , 5966 000000 IFN , 5967 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 5968 IFG XX, 5969 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 5970 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 5971 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 5972 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 5973 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 5974 5975 777777 777377 F42310: AA1=XX ;INITIAL C(AC) 5976 034061 200 11 0 00 045105 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 5977 777777 777777 AA2=-1 ;INITIAL C(AC+1) 5978 034062 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 5979 777777 777377 AEE=XX ;INITIAL C(E) 5980 034063 200 07 0 00 045105 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 5981 034064 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 5982 000000 AR1=V2 ;EXPECTED RESULT IN AC 5983 034065 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 5984 034066 003 11 0 00 042311 ER3 AC,42311 ;HIGH PRODUCT FAILED 5985 201001 AR2=V1 ;EXPECTED RESULT IN AC+1 5986 034067 312 12 0 00 045106 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 5987 034070 004 12 0 00 042312 ER4 AC+1,42312 ;LOW PRODUCT FAILED 5988 777777 777377 AEE=XX ;INITIAL C(E) 5989 034071 312 07 0 00 045105 CAME E,[XX] ;WAS C(E) CLOBBERED? 5990 034072 005 07 0 00 042313 ER5 E,42313 ;C(E) WAS CLOBBERED 5991 034073 321 13 0 00 034061 JUMPL AC+2,F42310 ;LOOP ON ERROR SWITCH^ 5992 5993 004232 ADR=ADR+1 5994 777777 776777 XX=XX+XX+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0128 5995 IFE , 5996 5997 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 5998 000001 002001 V1=XX*XX 5999 IFE , 6000 000000 IFN , 6001 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6002 IFG XX, 6003 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6004 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6005 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6006 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6007 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6008 6009 777777 776777 F42320: AA1=XX ;INITIAL C(AC) 6010 034074 200 11 0 00 045107 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6011 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6012 034075 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6013 777777 776777 AEE=XX ;INITIAL C(E) 6014 034076 200 07 0 00 045107 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6015 034077 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6016 000000 AR1=V2 ;EXPECTED RESULT IN AC 6017 034100 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6018 034101 003 11 0 00 042321 ER3 AC,42321 ;HIGH PRODUCT FAILED 6019 000001 002001 AR2=V1 ;EXPECTED RESULT IN AC+1 6020 034102 312 12 0 00 045110 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6021 034103 004 12 0 00 042322 ER4 AC+1,42322 ;LOW PRODUCT FAILED 6022 777777 776777 AEE=XX ;INITIAL C(E) 6023 034104 312 07 0 00 045107 CAME E,[XX] ;WAS C(E) CLOBBERED? 6024 034105 005 07 0 00 042323 ER5 E,42323 ;C(E) WAS CLOBBERED 6025 034106 321 13 0 00 034074 JUMPL AC+2,F42320 ;LOOP ON ERROR SWITCH^ 6026 6027 004233 ADR=ADR+1 6028 777777 775777 XX=XX+XX+1 6029 IFE , 6030 6031 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6032 000004 004001 V1=XX*XX 6033 IFE , 6034 000000 IFN , 6035 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6036 IFG XX, 6037 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6038 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6039 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6040 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6041 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6042 6043 777777 775777 F42330: AA1=XX ;INITIAL C(AC) 6044 034107 200 11 0 00 045111 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6045 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6046 034110 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6047 777777 775777 AEE=XX ;INITIAL C(E) 6048 034111 200 07 0 00 045111 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6049 034112 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0129 6050 000000 AR1=V2 ;EXPECTED RESULT IN AC 6051 034113 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6052 034114 003 11 0 00 042331 ER3 AC,42331 ;HIGH PRODUCT FAILED 6053 000004 004001 AR2=V1 ;EXPECTED RESULT IN AC+1 6054 034115 312 12 0 00 045112 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6055 034116 004 12 0 00 042332 ER4 AC+1,42332 ;LOW PRODUCT FAILED 6056 777777 775777 AEE=XX ;INITIAL C(E) 6057 034117 312 07 0 00 045111 CAME E,[XX] ;WAS C(E) CLOBBERED? 6058 034120 005 07 0 00 042333 ER5 E,42333 ;C(E) WAS CLOBBERED 6059 034121 321 13 0 00 034107 JUMPL AC+2,F42330 ;LOOP ON ERROR SWITCH^ 6060 6061 004234 ADR=ADR+1 6062 777777 773777 XX=XX+XX+1 6063 IFE , 6064 6065 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6066 000020 010001 V1=XX*XX 6067 IFE , 6068 000000 IFN , 6069 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6070 IFG XX, 6071 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6072 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6073 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6074 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6075 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6076 6077 777777 773777 F42340: AA1=XX ;INITIAL C(AC) 6078 034122 200 11 0 00 045113 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6079 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6080 034123 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6081 777777 773777 AEE=XX ;INITIAL C(E) 6082 034124 200 07 0 00 045113 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6083 034125 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6084 000000 AR1=V2 ;EXPECTED RESULT IN AC 6085 034126 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6086 034127 003 11 0 00 042341 ER3 AC,42341 ;HIGH PRODUCT FAILED 6087 000020 010001 AR2=V1 ;EXPECTED RESULT IN AC+1 6088 034130 312 12 0 00 045114 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6089 034131 004 12 0 00 042342 ER4 AC+1,42342 ;LOW PRODUCT FAILED 6090 777777 773777 AEE=XX ;INITIAL C(E) 6091 034132 312 07 0 00 045113 CAME E,[XX] ;WAS C(E) CLOBBERED? 6092 034133 005 07 0 00 042343 ER5 E,42343 ;C(E) WAS CLOBBERED 6093 034134 321 13 0 00 034122 JUMPL AC+2,F42340 ;LOOP ON ERROR SWITCH^ 6094 6095 004235 ADR=ADR+1 6096 777777 767777 XX=XX+XX+1 6097 IFE , 6098 6099 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6100 000100 020001 V1=XX*XX 6101 IFE , 6102 000000 IFN , 6103 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6104 IFG XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0130 6105 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6106 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6107 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6108 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6109 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6110 6111 777777 767777 F42350: AA1=XX ;INITIAL C(AC) 6112 034135 200 11 0 00 045115 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6113 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6114 034136 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6115 777777 767777 AEE=XX ;INITIAL C(E) 6116 034137 200 07 0 00 045115 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6117 034140 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6118 000000 AR1=V2 ;EXPECTED RESULT IN AC 6119 034141 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6120 034142 003 11 0 00 042351 ER3 AC,42351 ;HIGH PRODUCT FAILED 6121 000100 020001 AR2=V1 ;EXPECTED RESULT IN AC+1 6122 034143 312 12 0 00 045116 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6123 034144 004 12 0 00 042352 ER4 AC+1,42352 ;LOW PRODUCT FAILED 6124 777777 767777 AEE=XX ;INITIAL C(E) 6125 034145 312 07 0 00 045115 CAME E,[XX] ;WAS C(E) CLOBBERED? 6126 034146 005 07 0 00 042353 ER5 E,42353 ;C(E) WAS CLOBBERED 6127 034147 321 13 0 00 034135 JUMPL AC+2,F42350 ;LOOP ON ERROR SWITCH^ 6128 6129 004236 ADR=ADR+1 6130 777777 757777 XX=XX+XX+1 6131 IFE , 6132 6133 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6134 000400 040001 V1=XX*XX 6135 IFE , 6136 000000 IFN , 6137 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6138 IFG XX, 6139 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6140 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6141 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6142 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6143 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6144 6145 777777 757777 F42360: AA1=XX ;INITIAL C(AC) 6146 034150 200 11 0 00 045117 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6147 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6148 034151 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6149 777777 757777 AEE=XX ;INITIAL C(E) 6150 034152 200 07 0 00 045117 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6151 034153 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6152 000000 AR1=V2 ;EXPECTED RESULT IN AC 6153 034154 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6154 034155 003 11 0 00 042361 ER3 AC,42361 ;HIGH PRODUCT FAILED 6155 000400 040001 AR2=V1 ;EXPECTED RESULT IN AC+1 6156 034156 312 12 0 00 045120 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6157 034157 004 12 0 00 042362 ER4 AC+1,42362 ;LOW PRODUCT FAILED 6158 777777 757777 AEE=XX ;INITIAL C(E) 6159 034160 312 07 0 00 045117 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0131 6160 034161 005 07 0 00 042363 ER5 E,42363 ;C(E) WAS CLOBBERED 6161 034162 321 13 0 00 034150 JUMPL AC+2,F42360 ;LOOP ON ERROR SWITCH^ 6162 6163 004237 ADR=ADR+1 6164 777777 737777 XX=XX+XX+1 6165 IFE , 6166 6167 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6168 002000 100001 V1=XX*XX 6169 IFE , 6170 000000 IFN , 6171 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6172 IFG XX, 6173 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6174 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6175 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6176 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6177 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6178 6179 777777 737777 F42370: AA1=XX ;INITIAL C(AC) 6180 034163 200 11 0 00 045121 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6181 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6182 034164 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6183 777777 737777 AEE=XX ;INITIAL C(E) 6184 034165 200 07 0 00 045121 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6185 034166 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6186 000000 AR1=V2 ;EXPECTED RESULT IN AC 6187 034167 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6188 034170 003 11 0 00 042371 ER3 AC,42371 ;HIGH PRODUCT FAILED 6189 002000 100001 AR2=V1 ;EXPECTED RESULT IN AC+1 6190 034171 312 12 0 00 045122 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6191 034172 004 12 0 00 042372 ER4 AC+1,42372 ;LOW PRODUCT FAILED 6192 777777 737777 AEE=XX ;INITIAL C(E) 6193 034173 312 07 0 00 045121 CAME E,[XX] ;WAS C(E) CLOBBERED? 6194 034174 005 07 0 00 042373 ER5 E,42373 ;C(E) WAS CLOBBERED 6195 034175 321 13 0 00 034163 JUMPL AC+2,F42370 ;LOOP ON ERROR SWITCH^ 6196 6197 004240 ADR=ADR+1 6198 777777 677777 XX=XX+XX+1 6199 IFE , 6200 6201 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6202 010000 200001 V1=XX*XX 6203 IFE , 6204 000000 IFN , 6205 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6206 IFG XX, 6207 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6208 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6209 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6210 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6211 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6212 6213 777777 677777 F42400: AA1=XX ;INITIAL C(AC) 6214 034176 200 11 0 00 045123 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0132 6215 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6216 034177 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6217 777777 677777 AEE=XX ;INITIAL C(E) 6218 034200 200 07 0 00 045123 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6219 034201 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6220 000000 AR1=V2 ;EXPECTED RESULT IN AC 6221 034202 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6222 034203 003 11 0 00 042401 ER3 AC,42401 ;HIGH PRODUCT FAILED 6223 010000 200001 AR2=V1 ;EXPECTED RESULT IN AC+1 6224 034204 312 12 0 00 045124 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6225 034205 004 12 0 00 042402 ER4 AC+1,42402 ;LOW PRODUCT FAILED 6226 777777 677777 AEE=XX ;INITIAL C(E) 6227 034206 312 07 0 00 045123 CAME E,[XX] ;WAS C(E) CLOBBERED? 6228 034207 005 07 0 00 042403 ER5 E,42403 ;C(E) WAS CLOBBERED 6229 034210 321 13 0 00 034176 JUMPL AC+2,F42400 ;LOOP ON ERROR SWITCH^ 6230 6231 004241 ADR=ADR+1 6232 777777 577777 XX=XX+XX+1 6233 IFE , 6234 6235 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6236 040000 400001 V1=XX*XX 6237 IFE , 6238 000000 IFN , 6239 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6240 IFG XX, 6241 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6242 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6243 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6244 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6245 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6246 6247 777777 577777 F42410: AA1=XX ;INITIAL C(AC) 6248 034211 200 11 0 00 045125 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6249 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6250 034212 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6251 777777 577777 AEE=XX ;INITIAL C(E) 6252 034213 200 07 0 00 045125 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6253 034214 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6254 000000 AR1=V2 ;EXPECTED RESULT IN AC 6255 034215 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6256 034216 003 11 0 00 042411 ER3 AC,42411 ;HIGH PRODUCT FAILED 6257 040000 400001 AR2=V1 ;EXPECTED RESULT IN AC+1 6258 034217 312 12 0 00 045126 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6259 034220 004 12 0 00 042412 ER4 AC+1,42412 ;LOW PRODUCT FAILED 6260 777777 577777 AEE=XX ;INITIAL C(E) 6261 034221 312 07 0 00 045125 CAME E,[XX] ;WAS C(E) CLOBBERED? 6262 034222 005 07 0 00 042413 ER5 E,42413 ;C(E) WAS CLOBBERED 6263 034223 321 13 0 00 034211 JUMPL AC+2,F42410 ;LOOP ON ERROR SWITCH^ 6264 6265 004242 ADR=ADR+1 6266 777777 377777 XX=XX+XX+1 6267 IFE , 6268 6269 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0133 6270 200001 000001 V1=XX*XX 6271 IFE , 6272 000000 IFN , 6273 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6274 IFG XX, 6275 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6276 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6277 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6278 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6279 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6280 6281 777777 377777 F42420: AA1=XX ;INITIAL C(AC) 6282 034224 200 11 0 00 045127 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6283 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6284 034225 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6285 777777 377777 AEE=XX ;INITIAL C(E) 6286 034226 200 07 0 00 045127 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6287 034227 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6288 000000 AR1=V2 ;EXPECTED RESULT IN AC 6289 034230 312 11 0 00 044615 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6290 034231 003 11 0 00 042421 ER3 AC,42421 ;HIGH PRODUCT FAILED 6291 200001 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6292 034232 312 12 0 00 045130 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6293 034233 004 12 0 00 042422 ER4 AC+1,42422 ;LOW PRODUCT FAILED 6294 777777 377777 AEE=XX ;INITIAL C(E) 6295 034234 312 07 0 00 045127 CAME E,[XX] ;WAS C(E) CLOBBERED? 6296 034235 005 07 0 00 042423 ER5 E,42423 ;C(E) WAS CLOBBERED 6297 034236 321 13 0 00 034224 JUMPL AC+2,F42420 ;LOOP ON ERROR SWITCH^ 6298 6299 004243 ADR=ADR+1 6300 777776 777777 XX=XX+XX+1 6301 IFE , 6302 6303 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6304 000002 000001 V1=XX*XX 6305 IFE , 6306 000000 IFN , 6307 000002 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6308 IFG XX, 6309 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6310 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6311 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6312 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6313 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6314 6315 777776 777777 F42430: AA1=XX ;INITIAL C(AC) 6316 034237 200 11 0 00 045131 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6317 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6318 034240 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6319 777776 777777 AEE=XX ;INITIAL C(E) 6320 034241 200 07 0 00 045131 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6321 034242 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6322 000002 AR1=V2 ;EXPECTED RESULT IN AC 6323 034243 312 11 0 00 044620 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6324 034244 003 11 0 00 042431 ER3 AC,42431 ;HIGH PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0134 6325 000002 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6326 034245 312 12 0 00 045132 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6327 034246 004 12 0 00 042432 ER4 AC+1,42432 ;LOW PRODUCT FAILED 6328 777776 777777 AEE=XX ;INITIAL C(E) 6329 034247 312 07 0 00 045131 CAME E,[XX] ;WAS C(E) CLOBBERED? 6330 034250 005 07 0 00 042433 ER5 E,42433 ;C(E) WAS CLOBBERED 6331 034251 321 13 0 00 034237 JUMPL AC+2,F42430 ;LOOP ON ERROR SWITCH^ 6332 6333 004244 ADR=ADR+1 6334 777775 777777 XX=XX+XX+1 6335 IFE , 6336 6337 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6338 000004 000001 V1=XX*XX 6339 IFE , 6340 000000 IFN , 6341 000010 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6342 IFG XX, 6343 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6344 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6345 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6346 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6347 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6348 6349 777775 777777 F42440: AA1=XX ;INITIAL C(AC) 6350 034252 200 11 0 00 045133 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6351 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6352 034253 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6353 777775 777777 AEE=XX ;INITIAL C(E) 6354 034254 200 07 0 00 045133 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6355 034255 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6356 000010 AR1=V2 ;EXPECTED RESULT IN AC 6357 034256 312 11 0 00 044626 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6358 034257 003 11 0 00 042441 ER3 AC,42441 ;HIGH PRODUCT FAILED 6359 000004 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6360 034260 312 12 0 00 045134 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6361 034261 004 12 0 00 042442 ER4 AC+1,42442 ;LOW PRODUCT FAILED 6362 777775 777777 AEE=XX ;INITIAL C(E) 6363 034262 312 07 0 00 045133 CAME E,[XX] ;WAS C(E) CLOBBERED? 6364 034263 005 07 0 00 042443 ER5 E,42443 ;C(E) WAS CLOBBERED 6365 034264 321 13 0 00 034252 JUMPL AC+2,F42440 ;LOOP ON ERROR SWITCH^ 6366 6367 004245 ADR=ADR+1 6368 777773 777777 XX=XX+XX+1 6369 IFE , 6370 6371 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6372 000010 000001 V1=XX*XX 6373 IFE , 6374 000000 IFN , 6375 000040 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6376 IFG XX, 6377 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6378 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6379 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0135 6380 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6381 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6382 6383 777773 777777 F42450: AA1=XX ;INITIAL C(AC) 6384 034265 200 11 0 00 045135 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6385 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6386 034266 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6387 777773 777777 AEE=XX ;INITIAL C(E) 6388 034267 200 07 0 00 045135 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6389 034270 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6390 000040 AR1=V2 ;EXPECTED RESULT IN AC 6391 034271 312 11 0 00 044634 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6392 034272 003 11 0 00 042451 ER3 AC,42451 ;HIGH PRODUCT FAILED 6393 000010 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6394 034273 312 12 0 00 045136 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6395 034274 004 12 0 00 042452 ER4 AC+1,42452 ;LOW PRODUCT FAILED 6396 777773 777777 AEE=XX ;INITIAL C(E) 6397 034275 312 07 0 00 045135 CAME E,[XX] ;WAS C(E) CLOBBERED? 6398 034276 005 07 0 00 042453 ER5 E,42453 ;C(E) WAS CLOBBERED 6399 034277 321 13 0 00 034265 JUMPL AC+2,F42450 ;LOOP ON ERROR SWITCH^ 6400 6401 004246 ADR=ADR+1 6402 777767 777777 XX=XX+XX+1 6403 IFE , 6404 6405 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6406 000020 000001 V1=XX*XX 6407 IFE , 6408 000000 IFN , 6409 000200 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6410 IFG XX, 6411 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6412 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6413 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6414 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6415 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6416 6417 777767 777777 F42460: AA1=XX ;INITIAL C(AC) 6418 034300 200 11 0 00 045137 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6419 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6420 034301 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6421 777767 777777 AEE=XX ;INITIAL C(E) 6422 034302 200 07 0 00 045137 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6423 034303 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6424 000200 AR1=V2 ;EXPECTED RESULT IN AC 6425 034304 312 11 0 00 044642 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6426 034305 003 11 0 00 042461 ER3 AC,42461 ;HIGH PRODUCT FAILED 6427 000020 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6428 034306 312 12 0 00 045140 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6429 034307 004 12 0 00 042462 ER4 AC+1,42462 ;LOW PRODUCT FAILED 6430 777767 777777 AEE=XX ;INITIAL C(E) 6431 034310 312 07 0 00 045137 CAME E,[XX] ;WAS C(E) CLOBBERED? 6432 034311 005 07 0 00 042463 ER5 E,42463 ;C(E) WAS CLOBBERED 6433 034312 321 13 0 00 034300 JUMPL AC+2,F42460 ;LOOP ON ERROR SWITCH^ 6434 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0136 6435 004247 ADR=ADR+1 6436 777757 777777 XX=XX+XX+1 6437 IFE , 6438 6439 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6440 000040 000001 V1=XX*XX 6441 IFE , 6442 000000 IFN , 6443 001000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6444 IFG XX, 6445 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6446 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6447 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6448 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6449 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6450 6451 777757 777777 F42470: AA1=XX ;INITIAL C(AC) 6452 034313 200 11 0 00 045141 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6453 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6454 034314 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6455 777757 777777 AEE=XX ;INITIAL C(E) 6456 034315 200 07 0 00 045141 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6457 034316 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6458 001000 AR1=V2 ;EXPECTED RESULT IN AC 6459 034317 312 11 0 00 044650 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6460 034320 003 11 0 00 042471 ER3 AC,42471 ;HIGH PRODUCT FAILED 6461 000040 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6462 034321 312 12 0 00 045142 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6463 034322 004 12 0 00 042472 ER4 AC+1,42472 ;LOW PRODUCT FAILED 6464 777757 777777 AEE=XX ;INITIAL C(E) 6465 034323 312 07 0 00 045141 CAME E,[XX] ;WAS C(E) CLOBBERED? 6466 034324 005 07 0 00 042473 ER5 E,42473 ;C(E) WAS CLOBBERED 6467 034325 321 13 0 00 034313 JUMPL AC+2,F42470 ;LOOP ON ERROR SWITCH^ 6468 6469 004250 ADR=ADR+1 6470 777737 777777 XX=XX+XX+1 6471 IFE , 6472 6473 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6474 000100 000001 V1=XX*XX 6475 IFE , 6476 000000 IFN , 6477 004000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6478 IFG XX, 6479 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6480 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6481 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6482 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6483 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6484 6485 777737 777777 F42500: AA1=XX ;INITIAL C(AC) 6486 034326 200 11 0 00 045143 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6487 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6488 034327 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6489 777737 777777 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0137 6490 034330 200 07 0 00 045143 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6491 034331 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6492 004000 AR1=V2 ;EXPECTED RESULT IN AC 6493 034332 312 11 0 00 044656 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6494 034333 003 11 0 00 042501 ER3 AC,42501 ;HIGH PRODUCT FAILED 6495 000100 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6496 034334 312 12 0 00 045144 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6497 034335 004 12 0 00 042502 ER4 AC+1,42502 ;LOW PRODUCT FAILED 6498 777737 777777 AEE=XX ;INITIAL C(E) 6499 034336 312 07 0 00 045143 CAME E,[XX] ;WAS C(E) CLOBBERED? 6500 034337 005 07 0 00 042503 ER5 E,42503 ;C(E) WAS CLOBBERED 6501 034340 321 13 0 00 034326 JUMPL AC+2,F42500 ;LOOP ON ERROR SWITCH^ 6502 6503 004251 ADR=ADR+1 6504 777677 777777 XX=XX+XX+1 6505 IFE , 6506 6507 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6508 000200 000001 V1=XX*XX 6509 IFE , 6510 000000 IFN , 6511 020000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6512 IFG XX, 6513 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6514 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6515 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6516 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6517 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6518 6519 777677 777777 F42510: AA1=XX ;INITIAL C(AC) 6520 034341 200 11 0 00 045145 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6521 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6522 034342 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6523 777677 777777 AEE=XX ;INITIAL C(E) 6524 034343 200 07 0 00 045145 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6525 034344 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6526 020000 AR1=V2 ;EXPECTED RESULT IN AC 6527 034345 312 11 0 00 044664 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6528 034346 003 11 0 00 042511 ER3 AC,42511 ;HIGH PRODUCT FAILED 6529 000200 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6530 034347 312 12 0 00 045146 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6531 034350 004 12 0 00 042512 ER4 AC+1,42512 ;LOW PRODUCT FAILED 6532 777677 777777 AEE=XX ;INITIAL C(E) 6533 034351 312 07 0 00 045145 CAME E,[XX] ;WAS C(E) CLOBBERED? 6534 034352 005 07 0 00 042513 ER5 E,42513 ;C(E) WAS CLOBBERED 6535 034353 321 13 0 00 034341 JUMPL AC+2,F42510 ;LOOP ON ERROR SWITCH^ 6536 6537 004252 ADR=ADR+1 6538 777577 777777 XX=XX+XX+1 6539 IFE , 6540 6541 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6542 000400 000001 V1=XX*XX 6543 IFE , 6544 000000 IFN , DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0138 6545 100000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6546 IFG XX, 6547 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6548 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6549 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6550 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6551 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6552 6553 777577 777777 F42520: AA1=XX ;INITIAL C(AC) 6554 034354 200 11 0 00 045147 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6555 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6556 034355 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6557 777577 777777 AEE=XX ;INITIAL C(E) 6558 034356 200 07 0 00 045147 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6559 034357 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6560 100000 AR1=V2 ;EXPECTED RESULT IN AC 6561 034360 312 11 0 00 044672 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6562 034361 003 11 0 00 042521 ER3 AC,42521 ;HIGH PRODUCT FAILED 6563 000400 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6564 034362 312 12 0 00 045150 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6565 034363 004 12 0 00 042522 ER4 AC+1,42522 ;LOW PRODUCT FAILED 6566 777577 777777 AEE=XX ;INITIAL C(E) 6567 034364 312 07 0 00 045147 CAME E,[XX] ;WAS C(E) CLOBBERED? 6568 034365 005 07 0 00 042523 ER5 E,42523 ;C(E) WAS CLOBBERED 6569 034366 321 13 0 00 034354 JUMPL AC+2,F42520 ;LOOP ON ERROR SWITCH^ 6570 6571 004253 ADR=ADR+1 6572 777377 777777 XX=XX+XX+1 6573 IFE , 6574 6575 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6576 001000 000001 V1=XX*XX 6577 IFE , 6578 000000 IFN , 6579 400000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6580 IFG XX, 6581 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6582 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6583 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6584 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6585 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6586 6587 777377 777777 F42530: AA1=XX ;INITIAL C(AC) 6588 034367 200 11 0 00 045151 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6589 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6590 034370 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6591 777377 777777 AEE=XX ;INITIAL C(E) 6592 034371 200 07 0 00 045151 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6593 034372 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6594 400000 AR1=V2 ;EXPECTED RESULT IN AC 6595 034373 312 11 0 00 044700 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6596 034374 003 11 0 00 042531 ER3 AC,42531 ;HIGH PRODUCT FAILED 6597 001000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6598 034375 312 12 0 00 045152 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6599 034376 004 12 0 00 042532 ER4 AC+1,42532 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0139 6600 777377 777777 AEE=XX ;INITIAL C(E) 6601 034377 312 07 0 00 045151 CAME E,[XX] ;WAS C(E) CLOBBERED? 6602 034400 005 07 0 00 042533 ER5 E,42533 ;C(E) WAS CLOBBERED 6603 034401 321 13 0 00 034367 JUMPL AC+2,F42530 ;LOOP ON ERROR SWITCH^ 6604 6605 004254 ADR=ADR+1 6606 776777 777777 XX=XX+XX+1 6607 IFE , 6608 6609 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6610 002000 000001 V1=XX*XX 6611 IFE , 6612 000000 IFN , 6613 000002 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6614 IFG XX, 6615 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6616 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6617 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6618 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6619 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6620 6621 776777 777777 F42540: AA1=XX ;INITIAL C(AC) 6622 034402 200 11 0 00 045153 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6623 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6624 034403 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6625 776777 777777 AEE=XX ;INITIAL C(E) 6626 034404 200 07 0 00 045153 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6627 034405 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6628 000002 000000 AR1=V2 ;EXPECTED RESULT IN AC 6629 034406 312 11 0 00 044706 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6630 034407 003 11 0 00 042541 ER3 AC,42541 ;HIGH PRODUCT FAILED 6631 002000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6632 034410 312 12 0 00 045154 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6633 034411 004 12 0 00 042542 ER4 AC+1,42542 ;LOW PRODUCT FAILED 6634 776777 777777 AEE=XX ;INITIAL C(E) 6635 034412 312 07 0 00 045153 CAME E,[XX] ;WAS C(E) CLOBBERED? 6636 034413 005 07 0 00 042543 ER5 E,42543 ;C(E) WAS CLOBBERED 6637 034414 321 13 0 00 034402 JUMPL AC+2,F42540 ;LOOP ON ERROR SWITCH^ 6638 6639 004255 ADR=ADR+1 6640 775777 777777 XX=XX+XX+1 6641 IFE , 6642 6643 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6644 004000 000001 V1=XX*XX 6645 IFE , 6646 000000 IFN , 6647 000010 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6648 IFG XX, 6649 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6650 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6651 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6652 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6653 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6654 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0140 6655 775777 777777 F42550: AA1=XX ;INITIAL C(AC) 6656 034415 200 11 0 00 045155 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6657 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6658 034416 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6659 775777 777777 AEE=XX ;INITIAL C(E) 6660 034417 200 07 0 00 045155 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6661 034420 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6662 000010 000000 AR1=V2 ;EXPECTED RESULT IN AC 6663 034421 312 11 0 00 044714 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6664 034422 003 11 0 00 042551 ER3 AC,42551 ;HIGH PRODUCT FAILED 6665 004000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6666 034423 312 12 0 00 045156 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6667 034424 004 12 0 00 042552 ER4 AC+1,42552 ;LOW PRODUCT FAILED 6668 775777 777777 AEE=XX ;INITIAL C(E) 6669 034425 312 07 0 00 045155 CAME E,[XX] ;WAS C(E) CLOBBERED? 6670 034426 005 07 0 00 042553 ER5 E,42553 ;C(E) WAS CLOBBERED 6671 034427 321 13 0 00 034415 JUMPL AC+2,F42550 ;LOOP ON ERROR SWITCH^ 6672 6673 004256 ADR=ADR+1 6674 773777 777777 XX=XX+XX+1 6675 IFE , 6676 6677 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6678 010000 000001 V1=XX*XX 6679 IFE , 6680 000000 IFN , 6681 000040 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6682 IFG XX, 6683 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6684 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6685 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6686 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6687 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6688 6689 773777 777777 F42560: AA1=XX ;INITIAL C(AC) 6690 034430 200 11 0 00 045157 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6691 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6692 034431 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6693 773777 777777 AEE=XX ;INITIAL C(E) 6694 034432 200 07 0 00 045157 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6695 034433 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6696 000040 000000 AR1=V2 ;EXPECTED RESULT IN AC 6697 034434 312 11 0 00 044722 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6698 034435 003 11 0 00 042561 ER3 AC,42561 ;HIGH PRODUCT FAILED 6699 010000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6700 034436 312 12 0 00 045160 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6701 034437 004 12 0 00 042562 ER4 AC+1,42562 ;LOW PRODUCT FAILED 6702 773777 777777 AEE=XX ;INITIAL C(E) 6703 034440 312 07 0 00 045157 CAME E,[XX] ;WAS C(E) CLOBBERED? 6704 034441 005 07 0 00 042563 ER5 E,42563 ;C(E) WAS CLOBBERED 6705 034442 321 13 0 00 034430 JUMPL AC+2,F42560 ;LOOP ON ERROR SWITCH^ 6706 6707 004257 ADR=ADR+1 6708 767777 777777 XX=XX+XX+1 6709 IFE , DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0141 6710 6711 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6712 020000 000001 V1=XX*XX 6713 IFE , 6714 000000 IFN , 6715 000200 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6716 IFG XX, 6717 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6718 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6719 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6720 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6721 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6722 6723 767777 777777 F42570: AA1=XX ;INITIAL C(AC) 6724 034443 200 11 0 00 045161 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6725 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6726 034444 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6727 767777 777777 AEE=XX ;INITIAL C(E) 6728 034445 200 07 0 00 045161 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6729 034446 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6730 000200 000000 AR1=V2 ;EXPECTED RESULT IN AC 6731 034447 312 11 0 00 044730 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6732 034450 003 11 0 00 042571 ER3 AC,42571 ;HIGH PRODUCT FAILED 6733 020000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6734 034451 312 12 0 00 045162 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6735 034452 004 12 0 00 042572 ER4 AC+1,42572 ;LOW PRODUCT FAILED 6736 767777 777777 AEE=XX ;INITIAL C(E) 6737 034453 312 07 0 00 045161 CAME E,[XX] ;WAS C(E) CLOBBERED? 6738 034454 005 07 0 00 042573 ER5 E,42573 ;C(E) WAS CLOBBERED 6739 034455 321 13 0 00 034443 JUMPL AC+2,F42570 ;LOOP ON ERROR SWITCH^ 6740 6741 004260 ADR=ADR+1 6742 757777 777777 XX=XX+XX+1 6743 IFE , 6744 6745 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6746 040000 000001 V1=XX*XX 6747 IFE , 6748 000000 IFN , 6749 001000 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6750 IFG XX, 6751 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6752 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6753 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6754 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6755 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6756 6757 757777 777777 F42600: AA1=XX ;INITIAL C(AC) 6758 034456 200 11 0 00 045163 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6759 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6760 034457 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6761 757777 777777 AEE=XX ;INITIAL C(E) 6762 034460 200 07 0 00 045163 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6763 034461 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6764 001000 000000 AR1=V2 ;EXPECTED RESULT IN AC DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0142 6765 034462 312 11 0 00 044736 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6766 034463 003 11 0 00 042601 ER3 AC,42601 ;HIGH PRODUCT FAILED 6767 040000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6768 034464 312 12 0 00 045164 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6769 034465 004 12 0 00 042602 ER4 AC+1,42602 ;LOW PRODUCT FAILED 6770 757777 777777 AEE=XX ;INITIAL C(E) 6771 034466 312 07 0 00 045163 CAME E,[XX] ;WAS C(E) CLOBBERED? 6772 034467 005 07 0 00 042603 ER5 E,42603 ;C(E) WAS CLOBBERED 6773 034470 321 13 0 00 034456 JUMPL AC+2,F42600 ;LOOP ON ERROR SWITCH^ 6774 6775 004261 ADR=ADR+1 6776 737777 777777 XX=XX+XX+1 6777 IFE , 6778 6779 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6780 100000 000001 V1=XX*XX 6781 IFE , 6782 000000 IFN , 6783 004000 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6784 IFG XX, 6785 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6786 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6787 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6788 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6789 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6790 6791 737777 777777 F42610: AA1=XX ;INITIAL C(AC) 6792 034471 200 11 0 00 045165 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6793 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6794 034472 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6795 737777 777777 AEE=XX ;INITIAL C(E) 6796 034473 200 07 0 00 045165 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6797 034474 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6798 004000 000000 AR1=V2 ;EXPECTED RESULT IN AC 6799 034475 312 11 0 00 044744 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6800 034476 003 11 0 00 042611 ER3 AC,42611 ;HIGH PRODUCT FAILED 6801 100000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6802 034477 312 12 0 00 045166 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6803 034500 004 12 0 00 042612 ER4 AC+1,42612 ;LOW PRODUCT FAILED 6804 737777 777777 AEE=XX ;INITIAL C(E) 6805 034501 312 07 0 00 045165 CAME E,[XX] ;WAS C(E) CLOBBERED? 6806 034502 005 07 0 00 042613 ER5 E,42613 ;C(E) WAS CLOBBERED 6807 034503 321 13 0 00 034471 JUMPL AC+2,F42610 ;LOOP ON ERROR SWITCH^ 6808 6809 004262 ADR=ADR+1 6810 677777 777777 XX=XX+XX+1 6811 IFE , 6812 6813 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6814 200000 000001 V1=XX*XX 6815 IFE , 6816 000000 IFN , 6817 020000 000000 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6818 IFG XX, 6819 MOP1 (\ADR,XX,-1,XX,V2,V1)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0143 6820 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6821 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6822 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6823 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6824 6825 677777 777777 F42620: AA1=XX ;INITIAL C(AC) 6826 034504 200 11 0 00 045167 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6827 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6828 034505 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6829 677777 777777 AEE=XX ;INITIAL C(E) 6830 034506 200 07 0 00 045167 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6831 034507 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6832 020000 000000 AR1=V2 ;EXPECTED RESULT IN AC 6833 034510 312 11 0 00 044752 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6834 034511 003 11 0 00 042621 ER3 AC,42621 ;HIGH PRODUCT FAILED 6835 200000 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6836 034512 312 12 0 00 045170 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6837 034513 004 12 0 00 042622 ER4 AC+1,42622 ;LOW PRODUCT FAILED 6838 677777 777777 AEE=XX ;INITIAL C(E) 6839 034514 312 07 0 00 045167 CAME E,[XX] ;WAS C(E) CLOBBERED? 6840 034515 005 07 0 00 042623 ER5 E,42623 ;C(E) WAS CLOBBERED 6841 034516 321 13 0 00 034504 JUMPL AC+2,F42620 ;LOOP ON ERROR SWITCH^ 6842 6843 004263 ADR=ADR+1 6844 577777 777777 XX=XX+XX+1 6845 IFE , 6846 6847 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6848 000001 V1=XX*XX 6849 000001 IFE , 6850 IFN , 6851 100000 000001 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6852 IFG XX, 6853 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6854 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6855 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6856 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6857 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6858 6859 577777 777777 F42630: AA1=XX ;INITIAL C(AC) 6860 034517 200 11 0 00 045171 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6861 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6862 034520 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6863 577777 777777 AEE=XX ;INITIAL C(E) 6864 034521 200 07 0 00 045171 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6865 034522 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6866 100000 000001 AR1=V2 ;EXPECTED RESULT IN AC 6867 034523 312 11 0 00 045166 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6868 034524 003 11 0 00 042631 ER3 AC,42631 ;HIGH PRODUCT FAILED 6869 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6870 034525 312 12 0 00 044616 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6871 034526 004 12 0 00 042632 ER4 AC+1,42632 ;LOW PRODUCT FAILED 6872 577777 777777 AEE=XX ;INITIAL C(E) 6873 034527 312 07 0 00 045171 CAME E,[XX] ;WAS C(E) CLOBBERED? 6874 034530 005 07 0 00 042633 ER5 E,42633 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 5-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0144 6875 034531 321 13 0 00 034517 JUMPL AC+2,F42630 ;LOOP ON ERROR SWITCH^ 6876 6877 004264 ADR=ADR+1 6878 377777 777777 XX=XX+XX+1 6879 IFE , 6880 6881 ;MULTIPLY A FLOATING 0 BY ITSELF FOR A SQUARE PRODUCT 6882 000001 V1=XX*XX 6883 IFE , 6884 000000 IFN , 6885 IFL XX,>_-22>*<<->_-22>>_1>+V2A>> 6886 377777 777776 IFG XX, 6887 MOP1 (\ADR,XX,-1,XX,V2,V1)^ 6888 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[-1] AND 6889 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6890 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6891 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6892 6893 377777 777777 F42640: AA1=XX ;INITIAL C(AC) 6894 034532 200 11 0 00 045172 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 6895 777777 777777 AA2=-1 ;INITIAL C(AC+1) 6896 034533 200 12 0 00 044617 MOVE AC+1,[-1] ;PRELOAD AC+1 6897 377777 777777 AEE=XX ;INITIAL C(E) 6898 034534 200 07 0 00 045172 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6899 034535 224 11 0 00 000007 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6900 377777 777776 AR1=V2 ;EXPECTED RESULT IN AC 6901 034536 312 11 0 00 045173 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6902 034537 003 11 0 00 042641 ER3 AC,42641 ;HIGH PRODUCT FAILED 6903 000001 AR2=V1 ;EXPECTED RESULT IN AC+1 6904 034540 312 12 0 00 044616 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 6905 034541 004 12 0 00 042642 ER4 AC+1,42642 ;LOW PRODUCT FAILED 6906 377777 777777 AEE=XX ;INITIAL C(E) 6907 034542 312 07 0 00 045172 CAME E,[XX] ;WAS C(E) CLOBBERED? 6908 034543 005 07 0 00 042643 ER5 E,42643 ;C(E) WAS CLOBBERED 6909 034544 321 13 0 00 034532 JUMPL AC+2,F42640 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0145 6910 000010 AC=10 6911 000006 E=&17 6912 SAVEAC (1,1)^ 6913 034545 201 12 0 00 034545 MOVEI AC+2,. ;SAVE TEST PC 6914 034546 202 12 0 00 030051 MOVEM AC+2,TESTPC 6915 034547 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6916 034550 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6917 000000 XX=0 6918 000000 YY=0 6919 6920 REPEAT ^D36,< 6921 ADR=ADR+1 6922 XX=XX+XX 6923 YY=YY+YY+1 6924 IFE XX, 6925 IFE , 6926 6927 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 6928 V1=XX*YY 6929 IFE , 6930 IFN ,+>*>+-1>> 6931 IFG XX, 6932 IFL XX, 6933 MOP1 (\ADR,YY,0,XX,V2,V1)> 6934 6935 004265 ADR=ADR+1 6936 000000 XX=XX+XX 6937 000001 YY=YY+YY+1 6938 000001 IFE XX, 6939 777777 777776 IFE , 6940 6941 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 6942 777777 777776 V1=XX*YY 6943 777777 777777 IFE , 6944 IFN ,+>*>+-1>> 6945 777777 777777 IFG XX, 6946 IFL XX, 6947 MOP1 (\ADR,YY,0,XX,V2,V1)^ 6948 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 6949 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6950 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6951 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6952 6953 777777 777776 F42650: AA1=YY ;INITIAL C(AC) 6954 034551 200 10 0 00 044621 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 6955 000000 AA2=0 ;INITIAL C(AC+1) 6956 034552 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 6957 000001 AEE=XX ;INITIAL C(E) 6958 034553 200 06 0 00 044616 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6959 034554 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6960 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 6961 034555 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6962 034556 003 10 0 00 042651 ER3 AC,42651 ;HIGH PRODUCT FAILED 6963 777777 777776 AR2=V1 ;EXPECTED RESULT IN AC+1 6964 034557 312 11 0 00 044621 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0146 6965 034560 004 11 0 00 042652 ER4 AC+1,42652 ;LOW PRODUCT FAILED 6966 000001 AEE=XX ;INITIAL C(E) 6967 034561 312 06 0 00 044616 CAME E,[XX] ;WAS C(E) CLOBBERED? 6968 034562 005 06 0 00 042653 ER5 E,42653 ;C(E) WAS CLOBBERED 6969 034563 321 12 0 00 034551 JUMPL AC+2,F42650 ;LOOP ON ERROR SWITCH^ 6970 6971 004266 ADR=ADR+1 6972 000002 XX=XX+XX 6973 777777 777775 YY=YY+YY+1 6974 IFE XX, 6975 IFE , 6976 6977 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 6978 777777 777772 V1=XX*YY 6979 777777 777777 IFE , 6980 IFN ,+>*>+-1>> 6981 777777 777777 IFG XX, 6982 IFL XX, 6983 MOP1 (\ADR,YY,0,XX,V2,V1)^ 6984 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 6985 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 6986 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 6987 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 6988 6989 777777 777775 F42660: AA1=YY ;INITIAL C(AC) 6990 034564 200 10 0 00 044624 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 6991 000000 AA2=0 ;INITIAL C(AC+1) 6992 034565 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 6993 000002 AEE=XX ;INITIAL C(E) 6994 034566 200 06 0 00 044620 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 6995 034567 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 6996 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 6997 034570 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 6998 034571 003 10 0 00 042661 ER3 AC,42661 ;HIGH PRODUCT FAILED 6999 777777 777772 AR2=V1 ;EXPECTED RESULT IN AC+1 7000 034572 312 11 0 00 044627 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7001 034573 004 11 0 00 042662 ER4 AC+1,42662 ;LOW PRODUCT FAILED 7002 000002 AEE=XX ;INITIAL C(E) 7003 034574 312 06 0 00 044620 CAME E,[XX] ;WAS C(E) CLOBBERED? 7004 034575 005 06 0 00 042663 ER5 E,42663 ;C(E) WAS CLOBBERED 7005 034576 321 12 0 00 034564 JUMPL AC+2,F42660 ;LOOP ON ERROR SWITCH^ 7006 7007 004267 ADR=ADR+1 7008 000004 XX=XX+XX 7009 777777 777773 YY=YY+YY+1 7010 IFE XX, 7011 IFE , 7012 7013 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7014 777777 777754 V1=XX*YY 7015 777777 777777 IFE , 7016 IFN ,+>*>+-1>> 7017 777777 777777 IFG XX, 7018 IFL XX, 7019 MOP1 (\ADR,YY,0,XX,V2,V1)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0147 7020 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7021 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7022 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7023 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7024 7025 777777 777773 F42670: AA1=YY ;INITIAL C(AC) 7026 034577 200 10 0 00 045071 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7027 000000 AA2=0 ;INITIAL C(AC+1) 7028 034600 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7029 000004 AEE=XX ;INITIAL C(E) 7030 034601 200 06 0 00 044623 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7031 034602 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7032 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7033 034603 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7034 034604 003 10 0 00 042671 ER3 AC,42671 ;HIGH PRODUCT FAILED 7035 777777 777754 AR2=V1 ;EXPECTED RESULT IN AC+1 7036 034605 312 11 0 00 045174 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7037 034606 004 11 0 00 042672 ER4 AC+1,42672 ;LOW PRODUCT FAILED 7038 000004 AEE=XX ;INITIAL C(E) 7039 034607 312 06 0 00 044623 CAME E,[XX] ;WAS C(E) CLOBBERED? 7040 034610 005 06 0 00 042673 ER5 E,42673 ;C(E) WAS CLOBBERED 7041 034611 321 12 0 00 034577 JUMPL AC+2,F42670 ;LOOP ON ERROR SWITCH^ 7042 7043 004270 ADR=ADR+1 7044 000010 XX=XX+XX 7045 777777 777767 YY=YY+YY+1 7046 IFE XX, 7047 IFE , 7048 7049 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7050 777777 777670 V1=XX*YY 7051 777777 777777 IFE , 7052 IFN ,+>*>+-1>> 7053 777777 777777 IFG XX, 7054 IFL XX, 7055 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7056 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7057 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7058 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7059 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7060 7061 777777 777767 F42700: AA1=YY ;INITIAL C(AC) 7062 034612 200 10 0 00 045073 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7063 000000 AA2=0 ;INITIAL C(AC+1) 7064 034613 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7065 000010 AEE=XX ;INITIAL C(E) 7066 034614 200 06 0 00 044626 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7067 034615 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7068 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7069 034616 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7070 034617 003 10 0 00 042701 ER3 AC,42701 ;HIGH PRODUCT FAILED 7071 777777 777670 AR2=V1 ;EXPECTED RESULT IN AC+1 7072 034620 312 11 0 00 045175 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7073 034621 004 11 0 00 042702 ER4 AC+1,42702 ;LOW PRODUCT FAILED 7074 000010 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0148 7075 034622 312 06 0 00 044626 CAME E,[XX] ;WAS C(E) CLOBBERED? 7076 034623 005 06 0 00 042703 ER5 E,42703 ;C(E) WAS CLOBBERED 7077 034624 321 12 0 00 034612 JUMPL AC+2,F42700 ;LOOP ON ERROR SWITCH^ 7078 7079 004271 ADR=ADR+1 7080 000020 XX=XX+XX 7081 777777 777757 YY=YY+YY+1 7082 IFE XX, 7083 IFE , 7084 7085 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7086 777777 777360 V1=XX*YY 7087 777777 777777 IFE , 7088 IFN ,+>*>+-1>> 7089 777777 777777 IFG XX, 7090 IFL XX, 7091 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7092 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7093 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7094 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7095 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7096 7097 777777 777757 F42710: AA1=YY ;INITIAL C(AC) 7098 034625 200 10 0 00 045075 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7099 000000 AA2=0 ;INITIAL C(AC+1) 7100 034626 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7101 000020 AEE=XX ;INITIAL C(E) 7102 034627 200 06 0 00 044631 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7103 034630 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7104 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7105 034631 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7106 034632 003 10 0 00 042711 ER3 AC,42711 ;HIGH PRODUCT FAILED 7107 777777 777360 AR2=V1 ;EXPECTED RESULT IN AC+1 7108 034633 312 11 0 00 045176 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7109 034634 004 11 0 00 042712 ER4 AC+1,42712 ;LOW PRODUCT FAILED 7110 000020 AEE=XX ;INITIAL C(E) 7111 034635 312 06 0 00 044631 CAME E,[XX] ;WAS C(E) CLOBBERED? 7112 034636 005 06 0 00 042713 ER5 E,42713 ;C(E) WAS CLOBBERED 7113 034637 321 12 0 00 034625 JUMPL AC+2,F42710 ;LOOP ON ERROR SWITCH^ 7114 7115 004272 ADR=ADR+1 7116 000040 XX=XX+XX 7117 777777 777737 YY=YY+YY+1 7118 IFE XX, 7119 IFE , 7120 7121 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7122 777777 775740 V1=XX*YY 7123 777777 777777 IFE , 7124 IFN ,+>*>+-1>> 7125 777777 777777 IFG XX, 7126 IFL XX, 7127 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7128 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7129 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0149 7130 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7131 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7132 7133 777777 777737 F42720: AA1=YY ;INITIAL C(AC) 7134 034640 200 10 0 00 045077 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7135 000000 AA2=0 ;INITIAL C(AC+1) 7136 034641 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7137 000040 AEE=XX ;INITIAL C(E) 7138 034642 200 06 0 00 044634 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7139 034643 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7140 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7141 034644 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7142 034645 003 10 0 00 042721 ER3 AC,42721 ;HIGH PRODUCT FAILED 7143 777777 775740 AR2=V1 ;EXPECTED RESULT IN AC+1 7144 034646 312 11 0 00 045177 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7145 034647 004 11 0 00 042722 ER4 AC+1,42722 ;LOW PRODUCT FAILED 7146 000040 AEE=XX ;INITIAL C(E) 7147 034650 312 06 0 00 044634 CAME E,[XX] ;WAS C(E) CLOBBERED? 7148 034651 005 06 0 00 042723 ER5 E,42723 ;C(E) WAS CLOBBERED 7149 034652 321 12 0 00 034640 JUMPL AC+2,F42720 ;LOOP ON ERROR SWITCH^ 7150 7151 004273 ADR=ADR+1 7152 000100 XX=XX+XX 7153 777777 777677 YY=YY+YY+1 7154 IFE XX, 7155 IFE , 7156 7157 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7158 777777 767700 V1=XX*YY 7159 777777 777777 IFE , 7160 IFN ,+>*>+-1>> 7161 777777 777777 IFG XX, 7162 IFL XX, 7163 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7164 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7165 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7166 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7167 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7168 7169 777777 777677 F42730: AA1=YY ;INITIAL C(AC) 7170 034653 200 10 0 00 045101 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7171 000000 AA2=0 ;INITIAL C(AC+1) 7172 034654 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7173 000100 AEE=XX ;INITIAL C(E) 7174 034655 200 06 0 00 044637 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7175 034656 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7176 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7177 034657 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7178 034660 003 10 0 00 042731 ER3 AC,42731 ;HIGH PRODUCT FAILED 7179 777777 767700 AR2=V1 ;EXPECTED RESULT IN AC+1 7180 034661 312 11 0 00 045200 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7181 034662 004 11 0 00 042732 ER4 AC+1,42732 ;LOW PRODUCT FAILED 7182 000100 AEE=XX ;INITIAL C(E) 7183 034663 312 06 0 00 044637 CAME E,[XX] ;WAS C(E) CLOBBERED? 7184 034664 005 06 0 00 042733 ER5 E,42733 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0150 7185 034665 321 12 0 00 034653 JUMPL AC+2,F42730 ;LOOP ON ERROR SWITCH^ 7186 7187 004274 ADR=ADR+1 7188 000200 XX=XX+XX 7189 777777 777577 YY=YY+YY+1 7190 IFE XX, 7191 IFE , 7192 7193 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7194 777777 737600 V1=XX*YY 7195 777777 777777 IFE , 7196 IFN ,+>*>+-1>> 7197 777777 777777 IFG XX, 7198 IFL XX, 7199 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7200 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7201 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7202 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7203 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7204 7205 777777 777577 F42740: AA1=YY ;INITIAL C(AC) 7206 034666 200 10 0 00 045103 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7207 000000 AA2=0 ;INITIAL C(AC+1) 7208 034667 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7209 000200 AEE=XX ;INITIAL C(E) 7210 034670 200 06 0 00 044642 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7211 034671 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7212 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7213 034672 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7214 034673 003 10 0 00 042741 ER3 AC,42741 ;HIGH PRODUCT FAILED 7215 777777 737600 AR2=V1 ;EXPECTED RESULT IN AC+1 7216 034674 312 11 0 00 045201 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7217 034675 004 11 0 00 042742 ER4 AC+1,42742 ;LOW PRODUCT FAILED 7218 000200 AEE=XX ;INITIAL C(E) 7219 034676 312 06 0 00 044642 CAME E,[XX] ;WAS C(E) CLOBBERED? 7220 034677 005 06 0 00 042743 ER5 E,42743 ;C(E) WAS CLOBBERED 7221 034700 321 12 0 00 034666 JUMPL AC+2,F42740 ;LOOP ON ERROR SWITCH^ 7222 7223 004275 ADR=ADR+1 7224 000400 XX=XX+XX 7225 777777 777377 YY=YY+YY+1 7226 IFE XX, 7227 IFE , 7228 7229 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7230 777777 577400 V1=XX*YY 7231 777777 777777 IFE , 7232 IFN ,+>*>+-1>> 7233 777777 777777 IFG XX, 7234 IFL XX, 7235 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7236 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7237 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7238 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7239 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0151 7240 7241 777777 777377 F42750: AA1=YY ;INITIAL C(AC) 7242 034701 200 10 0 00 045105 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7243 000000 AA2=0 ;INITIAL C(AC+1) 7244 034702 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7245 000400 AEE=XX ;INITIAL C(E) 7246 034703 200 06 0 00 044645 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7247 034704 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7248 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7249 034705 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7250 034706 003 10 0 00 042751 ER3 AC,42751 ;HIGH PRODUCT FAILED 7251 777777 577400 AR2=V1 ;EXPECTED RESULT IN AC+1 7252 034707 312 11 0 00 045202 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7253 034710 004 11 0 00 042752 ER4 AC+1,42752 ;LOW PRODUCT FAILED 7254 000400 AEE=XX ;INITIAL C(E) 7255 034711 312 06 0 00 044645 CAME E,[XX] ;WAS C(E) CLOBBERED? 7256 034712 005 06 0 00 042753 ER5 E,42753 ;C(E) WAS CLOBBERED 7257 034713 321 12 0 00 034701 JUMPL AC+2,F42750 ;LOOP ON ERROR SWITCH^ 7258 7259 004276 ADR=ADR+1 7260 001000 XX=XX+XX 7261 777777 776777 YY=YY+YY+1 7262 IFE XX, 7263 IFE , 7264 7265 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7266 777776 777000 V1=XX*YY 7267 777777 777777 IFE , 7268 IFN ,+>*>+-1>> 7269 777777 777777 IFG XX, 7270 IFL XX, 7271 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7272 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7273 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7274 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7275 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7276 7277 777777 776777 F42760: AA1=YY ;INITIAL C(AC) 7278 034714 200 10 0 00 045107 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7279 000000 AA2=0 ;INITIAL C(AC+1) 7280 034715 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7281 001000 AEE=XX ;INITIAL C(E) 7282 034716 200 06 0 00 044650 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7283 034717 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7284 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7285 034720 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7286 034721 003 10 0 00 042761 ER3 AC,42761 ;HIGH PRODUCT FAILED 7287 777776 777000 AR2=V1 ;EXPECTED RESULT IN AC+1 7288 034722 312 11 0 00 045203 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7289 034723 004 11 0 00 042762 ER4 AC+1,42762 ;LOW PRODUCT FAILED 7290 001000 AEE=XX ;INITIAL C(E) 7291 034724 312 06 0 00 044650 CAME E,[XX] ;WAS C(E) CLOBBERED? 7292 034725 005 06 0 00 042763 ER5 E,42763 ;C(E) WAS CLOBBERED 7293 034726 321 12 0 00 034714 JUMPL AC+2,F42760 ;LOOP ON ERROR SWITCH^ 7294 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0152 7295 004277 ADR=ADR+1 7296 002000 XX=XX+XX 7297 777777 775777 YY=YY+YY+1 7298 IFE XX, 7299 IFE , 7300 7301 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7302 777773 776000 V1=XX*YY 7303 777777 777777 IFE , 7304 IFN ,+>*>+-1>> 7305 777777 777777 IFG XX, 7306 IFL XX, 7307 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7308 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7309 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7310 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7311 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7312 7313 777777 775777 F42770: AA1=YY ;INITIAL C(AC) 7314 034727 200 10 0 00 045111 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7315 000000 AA2=0 ;INITIAL C(AC+1) 7316 034730 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7317 002000 AEE=XX ;INITIAL C(E) 7318 034731 200 06 0 00 044653 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7319 034732 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7320 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7321 034733 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7322 034734 003 10 0 00 042771 ER3 AC,42771 ;HIGH PRODUCT FAILED 7323 777773 776000 AR2=V1 ;EXPECTED RESULT IN AC+1 7324 034735 312 11 0 00 045204 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7325 034736 004 11 0 00 042772 ER4 AC+1,42772 ;LOW PRODUCT FAILED 7326 002000 AEE=XX ;INITIAL C(E) 7327 034737 312 06 0 00 044653 CAME E,[XX] ;WAS C(E) CLOBBERED? 7328 034740 005 06 0 00 042773 ER5 E,42773 ;C(E) WAS CLOBBERED 7329 034741 321 12 0 00 034727 JUMPL AC+2,F42770 ;LOOP ON ERROR SWITCH^ 7330 7331 004300 ADR=ADR+1 7332 004000 XX=XX+XX 7333 777777 773777 YY=YY+YY+1 7334 IFE XX, 7335 IFE , 7336 7337 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7338 777757 774000 V1=XX*YY 7339 777777 777777 IFE , 7340 IFN ,+>*>+-1>> 7341 777777 777777 IFG XX, 7342 IFL XX, 7343 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7344 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7345 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7346 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7347 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7348 7349 777777 773777 F43000: AA1=YY ;INITIAL C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0153 7350 034742 200 10 0 00 045113 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7351 000000 AA2=0 ;INITIAL C(AC+1) 7352 034743 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7353 004000 AEE=XX ;INITIAL C(E) 7354 034744 200 06 0 00 044656 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7355 034745 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7356 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7357 034746 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7358 034747 003 10 0 00 043001 ER3 AC,43001 ;HIGH PRODUCT FAILED 7359 777757 774000 AR2=V1 ;EXPECTED RESULT IN AC+1 7360 034750 312 11 0 00 045205 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7361 034751 004 11 0 00 043002 ER4 AC+1,43002 ;LOW PRODUCT FAILED 7362 004000 AEE=XX ;INITIAL C(E) 7363 034752 312 06 0 00 044656 CAME E,[XX] ;WAS C(E) CLOBBERED? 7364 034753 005 06 0 00 043003 ER5 E,43003 ;C(E) WAS CLOBBERED 7365 034754 321 12 0 00 034742 JUMPL AC+2,F43000 ;LOOP ON ERROR SWITCH^ 7366 7367 004301 ADR=ADR+1 7368 010000 XX=XX+XX 7369 777777 767777 YY=YY+YY+1 7370 IFE XX, 7371 IFE , 7372 7373 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7374 777677 770000 V1=XX*YY 7375 777777 777777 IFE , 7376 IFN ,+>*>+-1>> 7377 777777 777777 IFG XX, 7378 IFL XX, 7379 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7380 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7381 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7382 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7383 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7384 7385 777777 767777 F43010: AA1=YY ;INITIAL C(AC) 7386 034755 200 10 0 00 045115 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7387 000000 AA2=0 ;INITIAL C(AC+1) 7388 034756 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7389 010000 AEE=XX ;INITIAL C(E) 7390 034757 200 06 0 00 044661 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7391 034760 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7392 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7393 034761 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7394 034762 003 10 0 00 043011 ER3 AC,43011 ;HIGH PRODUCT FAILED 7395 777677 770000 AR2=V1 ;EXPECTED RESULT IN AC+1 7396 034763 312 11 0 00 045206 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7397 034764 004 11 0 00 043012 ER4 AC+1,43012 ;LOW PRODUCT FAILED 7398 010000 AEE=XX ;INITIAL C(E) 7399 034765 312 06 0 00 044661 CAME E,[XX] ;WAS C(E) CLOBBERED? 7400 034766 005 06 0 00 043013 ER5 E,43013 ;C(E) WAS CLOBBERED 7401 034767 321 12 0 00 034755 JUMPL AC+2,F43010 ;LOOP ON ERROR SWITCH^ 7402 7403 004302 ADR=ADR+1 7404 020000 XX=XX+XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0154 7405 777777 757777 YY=YY+YY+1 7406 IFE XX, 7407 IFE , 7408 7409 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7410 777377 760000 V1=XX*YY 7411 777777 777777 IFE , 7412 IFN ,+>*>+-1>> 7413 777777 777777 IFG XX, 7414 IFL XX, 7415 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7416 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7417 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7418 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7419 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7420 7421 777777 757777 F43020: AA1=YY ;INITIAL C(AC) 7422 034770 200 10 0 00 045117 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7423 000000 AA2=0 ;INITIAL C(AC+1) 7424 034771 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7425 020000 AEE=XX ;INITIAL C(E) 7426 034772 200 06 0 00 044664 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7427 034773 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7428 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7429 034774 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7430 034775 003 10 0 00 043021 ER3 AC,43021 ;HIGH PRODUCT FAILED 7431 777377 760000 AR2=V1 ;EXPECTED RESULT IN AC+1 7432 034776 312 11 0 00 045207 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7433 034777 004 11 0 00 043022 ER4 AC+1,43022 ;LOW PRODUCT FAILED 7434 020000 AEE=XX ;INITIAL C(E) 7435 035000 312 06 0 00 044664 CAME E,[XX] ;WAS C(E) CLOBBERED? 7436 035001 005 06 0 00 043023 ER5 E,43023 ;C(E) WAS CLOBBERED 7437 035002 321 12 0 00 034770 JUMPL AC+2,F43020 ;LOOP ON ERROR SWITCH^ 7438 7439 004303 ADR=ADR+1 7440 040000 XX=XX+XX 7441 777777 737777 YY=YY+YY+1 7442 IFE XX, 7443 IFE , 7444 7445 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7446 775777 740000 V1=XX*YY 7447 777777 777777 IFE , 7448 IFN ,+>*>+-1>> 7449 777777 777777 IFG XX, 7450 IFL XX, 7451 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7452 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7453 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7454 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7455 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7456 7457 777777 737777 F43030: AA1=YY ;INITIAL C(AC) 7458 035003 200 10 0 00 045121 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7459 000000 AA2=0 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0155 7460 035004 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7461 040000 AEE=XX ;INITIAL C(E) 7462 035005 200 06 0 00 044667 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7463 035006 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7464 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7465 035007 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7466 035010 003 10 0 00 043031 ER3 AC,43031 ;HIGH PRODUCT FAILED 7467 775777 740000 AR2=V1 ;EXPECTED RESULT IN AC+1 7468 035011 312 11 0 00 045210 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7469 035012 004 11 0 00 043032 ER4 AC+1,43032 ;LOW PRODUCT FAILED 7470 040000 AEE=XX ;INITIAL C(E) 7471 035013 312 06 0 00 044667 CAME E,[XX] ;WAS C(E) CLOBBERED? 7472 035014 005 06 0 00 043033 ER5 E,43033 ;C(E) WAS CLOBBERED 7473 035015 321 12 0 00 035003 JUMPL AC+2,F43030 ;LOOP ON ERROR SWITCH^ 7474 7475 004304 ADR=ADR+1 7476 100000 XX=XX+XX 7477 777777 677777 YY=YY+YY+1 7478 IFE XX, 7479 IFE , 7480 7481 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7482 767777 700000 V1=XX*YY 7483 777777 777777 IFE , 7484 IFN ,+>*>+-1>> 7485 777777 777777 IFG XX, 7486 IFL XX, 7487 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7488 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7489 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7490 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7491 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7492 7493 777777 677777 F43040: AA1=YY ;INITIAL C(AC) 7494 035016 200 10 0 00 045123 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7495 000000 AA2=0 ;INITIAL C(AC+1) 7496 035017 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7497 100000 AEE=XX ;INITIAL C(E) 7498 035020 200 06 0 00 044672 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7499 035021 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7500 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7501 035022 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7502 035023 003 10 0 00 043041 ER3 AC,43041 ;HIGH PRODUCT FAILED 7503 767777 700000 AR2=V1 ;EXPECTED RESULT IN AC+1 7504 035024 312 11 0 00 045211 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7505 035025 004 11 0 00 043042 ER4 AC+1,43042 ;LOW PRODUCT FAILED 7506 100000 AEE=XX ;INITIAL C(E) 7507 035026 312 06 0 00 044672 CAME E,[XX] ;WAS C(E) CLOBBERED? 7508 035027 005 06 0 00 043043 ER5 E,43043 ;C(E) WAS CLOBBERED 7509 035030 321 12 0 00 035016 JUMPL AC+2,F43040 ;LOOP ON ERROR SWITCH^ 7510 7511 004305 ADR=ADR+1 7512 200000 XX=XX+XX 7513 777777 577777 YY=YY+YY+1 7514 IFE XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0156 7515 IFE , 7516 7517 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7518 737777 600000 V1=XX*YY 7519 777777 777777 IFE , 7520 IFN ,+>*>+-1>> 7521 777777 777777 IFG XX, 7522 IFL XX, 7523 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7524 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7525 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7526 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7527 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7528 7529 777777 577777 F43050: AA1=YY ;INITIAL C(AC) 7530 035031 200 10 0 00 045125 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7531 000000 AA2=0 ;INITIAL C(AC+1) 7532 035032 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7533 200000 AEE=XX ;INITIAL C(E) 7534 035033 200 06 0 00 044675 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7535 035034 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7536 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7537 035035 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7538 035036 003 10 0 00 043051 ER3 AC,43051 ;HIGH PRODUCT FAILED 7539 737777 600000 AR2=V1 ;EXPECTED RESULT IN AC+1 7540 035037 312 11 0 00 045212 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7541 035040 004 11 0 00 043052 ER4 AC+1,43052 ;LOW PRODUCT FAILED 7542 200000 AEE=XX ;INITIAL C(E) 7543 035041 312 06 0 00 044675 CAME E,[XX] ;WAS C(E) CLOBBERED? 7544 035042 005 06 0 00 043053 ER5 E,43053 ;C(E) WAS CLOBBERED 7545 035043 321 12 0 00 035031 JUMPL AC+2,F43050 ;LOOP ON ERROR SWITCH^ 7546 7547 004306 ADR=ADR+1 7548 400000 XX=XX+XX 7549 777777 377777 YY=YY+YY+1 7550 IFE XX, 7551 IFE , 7552 7553 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7554 577777 400000 V1=XX*YY 7555 777777 777777 IFE , 7556 IFN ,+>*>+-1>> 7557 777777 777777 IFG XX, 7558 IFL XX, 7559 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7560 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7561 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7562 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7563 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7564 7565 777777 377777 F43060: AA1=YY ;INITIAL C(AC) 7566 035044 200 10 0 00 045127 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7567 000000 AA2=0 ;INITIAL C(AC+1) 7568 035045 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7569 400000 AEE=XX ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0157 7570 035046 200 06 0 00 044700 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7571 035047 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7572 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 7573 035050 312 10 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7574 035051 003 10 0 00 043061 ER3 AC,43061 ;HIGH PRODUCT FAILED 7575 577777 400000 AR2=V1 ;EXPECTED RESULT IN AC+1 7576 035052 312 11 0 00 045213 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7577 035053 004 11 0 00 043062 ER4 AC+1,43062 ;LOW PRODUCT FAILED 7578 400000 AEE=XX ;INITIAL C(E) 7579 035054 312 06 0 00 044700 CAME E,[XX] ;WAS C(E) CLOBBERED? 7580 035055 005 06 0 00 043063 ER5 E,43063 ;C(E) WAS CLOBBERED 7581 035056 321 12 0 00 035044 JUMPL AC+2,F43060 ;LOOP ON ERROR SWITCH^ 7582 7583 004307 ADR=ADR+1 7584 000001 000000 XX=XX+XX 7585 777776 777777 YY=YY+YY+1 7586 IFE XX, 7587 IFE , 7588 7589 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7590 777777 000000 V1=XX*YY 7591 IFE , 7592 777777 777775 IFN ,+>*>+-1>> 7593 777777 777775 IFG XX, 7594 IFL XX, 7595 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7596 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7597 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7598 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7599 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7600 7601 777776 777777 F43070: AA1=YY ;INITIAL C(AC) 7602 035057 200 10 0 00 045131 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7603 000000 AA2=0 ;INITIAL C(AC+1) 7604 035060 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7605 000001 000000 AEE=XX ;INITIAL C(E) 7606 035061 200 06 0 00 044703 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7607 035062 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7608 777777 777775 AR1=V2 ;EXPECTED RESULT IN AC 7609 035063 312 10 0 00 044624 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7610 035064 003 10 0 00 043071 ER3 AC,43071 ;HIGH PRODUCT FAILED 7611 777777 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7612 035065 312 11 0 00 045214 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7613 035066 004 11 0 00 043072 ER4 AC+1,43072 ;LOW PRODUCT FAILED 7614 000001 000000 AEE=XX ;INITIAL C(E) 7615 035067 312 06 0 00 044703 CAME E,[XX] ;WAS C(E) CLOBBERED? 7616 035070 005 06 0 00 043073 ER5 E,43073 ;C(E) WAS CLOBBERED 7617 035071 321 12 0 00 035057 JUMPL AC+2,F43070 ;LOOP ON ERROR SWITCH^ 7618 7619 004310 ADR=ADR+1 7620 000002 000000 XX=XX+XX 7621 777775 777777 YY=YY+YY+1 7622 IFE XX, 7623 IFE , 7624 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0158 7625 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7626 777776 000000 V1=XX*YY 7627 IFE , 7628 777777 777767 IFN ,+>*>+-1>> 7629 777777 777767 IFG XX, 7630 IFL XX, 7631 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7632 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7633 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7634 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7635 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7636 7637 777775 777777 F43100: AA1=YY ;INITIAL C(AC) 7638 035072 200 10 0 00 045133 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7639 000000 AA2=0 ;INITIAL C(AC+1) 7640 035073 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7641 000002 000000 AEE=XX ;INITIAL C(E) 7642 035074 200 06 0 00 044706 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7643 035075 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7644 777777 777767 AR1=V2 ;EXPECTED RESULT IN AC 7645 035076 312 10 0 00 045073 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7646 035077 003 10 0 00 043101 ER3 AC,43101 ;HIGH PRODUCT FAILED 7647 777776 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7648 035100 312 11 0 00 045215 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7649 035101 004 11 0 00 043102 ER4 AC+1,43102 ;LOW PRODUCT FAILED 7650 000002 000000 AEE=XX ;INITIAL C(E) 7651 035102 312 06 0 00 044706 CAME E,[XX] ;WAS C(E) CLOBBERED? 7652 035103 005 06 0 00 043103 ER5 E,43103 ;C(E) WAS CLOBBERED 7653 035104 321 12 0 00 035072 JUMPL AC+2,F43100 ;LOOP ON ERROR SWITCH^ 7654 7655 004311 ADR=ADR+1 7656 000004 000000 XX=XX+XX 7657 777773 777777 YY=YY+YY+1 7658 IFE XX, 7659 IFE , 7660 7661 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7662 777774 000000 V1=XX*YY 7663 IFE , 7664 777777 777737 IFN ,+>*>+-1>> 7665 777777 777737 IFG XX, 7666 IFL XX, 7667 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7668 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7669 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7670 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7671 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7672 7673 777773 777777 F43110: AA1=YY ;INITIAL C(AC) 7674 035105 200 10 0 00 045135 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7675 000000 AA2=0 ;INITIAL C(AC+1) 7676 035106 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7677 000004 000000 AEE=XX ;INITIAL C(E) 7678 035107 200 06 0 00 044711 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7679 035110 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0159 7680 777777 777737 AR1=V2 ;EXPECTED RESULT IN AC 7681 035111 312 10 0 00 045077 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7682 035112 003 10 0 00 043111 ER3 AC,43111 ;HIGH PRODUCT FAILED 7683 777774 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7684 035113 312 11 0 00 045216 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7685 035114 004 11 0 00 043112 ER4 AC+1,43112 ;LOW PRODUCT FAILED 7686 000004 000000 AEE=XX ;INITIAL C(E) 7687 035115 312 06 0 00 044711 CAME E,[XX] ;WAS C(E) CLOBBERED? 7688 035116 005 06 0 00 043113 ER5 E,43113 ;C(E) WAS CLOBBERED 7689 035117 321 12 0 00 035105 JUMPL AC+2,F43110 ;LOOP ON ERROR SWITCH^ 7690 7691 004312 ADR=ADR+1 7692 000010 000000 XX=XX+XX 7693 777767 777777 YY=YY+YY+1 7694 IFE XX, 7695 IFE , 7696 7697 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7698 777770 000000 V1=XX*YY 7699 IFE , 7700 777777 777577 IFN ,+>*>+-1>> 7701 777777 777577 IFG XX, 7702 IFL XX, 7703 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7704 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7705 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7706 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7707 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7708 7709 777767 777777 F43120: AA1=YY ;INITIAL C(AC) 7710 035120 200 10 0 00 045137 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7711 000000 AA2=0 ;INITIAL C(AC+1) 7712 035121 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7713 000010 000000 AEE=XX ;INITIAL C(E) 7714 035122 200 06 0 00 044714 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7715 035123 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7716 777777 777577 AR1=V2 ;EXPECTED RESULT IN AC 7717 035124 312 10 0 00 045103 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7718 035125 003 10 0 00 043121 ER3 AC,43121 ;HIGH PRODUCT FAILED 7719 777770 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7720 035126 312 11 0 00 045217 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7721 035127 004 11 0 00 043122 ER4 AC+1,43122 ;LOW PRODUCT FAILED 7722 000010 000000 AEE=XX ;INITIAL C(E) 7723 035130 312 06 0 00 044714 CAME E,[XX] ;WAS C(E) CLOBBERED? 7724 035131 005 06 0 00 043123 ER5 E,43123 ;C(E) WAS CLOBBERED 7725 035132 321 12 0 00 035120 JUMPL AC+2,F43120 ;LOOP ON ERROR SWITCH^ 7726 7727 004313 ADR=ADR+1 7728 000020 000000 XX=XX+XX 7729 777757 777777 YY=YY+YY+1 7730 IFE XX, 7731 IFE , 7732 7733 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7734 777760 000000 V1=XX*YY DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0160 7735 IFE , 7736 777777 776777 IFN ,+>*>+-1>> 7737 777777 776777 IFG XX, 7738 IFL XX, 7739 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7740 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7741 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7742 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7743 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7744 7745 777757 777777 F43130: AA1=YY ;INITIAL C(AC) 7746 035133 200 10 0 00 045141 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7747 000000 AA2=0 ;INITIAL C(AC+1) 7748 035134 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7749 000020 000000 AEE=XX ;INITIAL C(E) 7750 035135 200 06 0 00 044717 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7751 035136 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7752 777777 776777 AR1=V2 ;EXPECTED RESULT IN AC 7753 035137 312 10 0 00 045107 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7754 035140 003 10 0 00 043131 ER3 AC,43131 ;HIGH PRODUCT FAILED 7755 777760 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7756 035141 312 11 0 00 045220 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7757 035142 004 11 0 00 043132 ER4 AC+1,43132 ;LOW PRODUCT FAILED 7758 000020 000000 AEE=XX ;INITIAL C(E) 7759 035143 312 06 0 00 044717 CAME E,[XX] ;WAS C(E) CLOBBERED? 7760 035144 005 06 0 00 043133 ER5 E,43133 ;C(E) WAS CLOBBERED 7761 035145 321 12 0 00 035133 JUMPL AC+2,F43130 ;LOOP ON ERROR SWITCH^ 7762 7763 004314 ADR=ADR+1 7764 000040 000000 XX=XX+XX 7765 777737 777777 YY=YY+YY+1 7766 IFE XX, 7767 IFE , 7768 7769 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7770 777740 000000 V1=XX*YY 7771 IFE , 7772 777777 773777 IFN ,+>*>+-1>> 7773 777777 773777 IFG XX, 7774 IFL XX, 7775 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7776 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7777 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7778 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7779 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7780 7781 777737 777777 F43140: AA1=YY ;INITIAL C(AC) 7782 035146 200 10 0 00 045143 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7783 000000 AA2=0 ;INITIAL C(AC+1) 7784 035147 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7785 000040 000000 AEE=XX ;INITIAL C(E) 7786 035150 200 06 0 00 044722 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7787 035151 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7788 777777 773777 AR1=V2 ;EXPECTED RESULT IN AC 7789 035152 312 10 0 00 045113 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0161 7790 035153 003 10 0 00 043141 ER3 AC,43141 ;HIGH PRODUCT FAILED 7791 777740 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7792 035154 312 11 0 00 045221 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7793 035155 004 11 0 00 043142 ER4 AC+1,43142 ;LOW PRODUCT FAILED 7794 000040 000000 AEE=XX ;INITIAL C(E) 7795 035156 312 06 0 00 044722 CAME E,[XX] ;WAS C(E) CLOBBERED? 7796 035157 005 06 0 00 043143 ER5 E,43143 ;C(E) WAS CLOBBERED 7797 035160 321 12 0 00 035146 JUMPL AC+2,F43140 ;LOOP ON ERROR SWITCH^ 7798 7799 004315 ADR=ADR+1 7800 000100 000000 XX=XX+XX 7801 777677 777777 YY=YY+YY+1 7802 IFE XX, 7803 IFE , 7804 7805 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7806 777700 000000 V1=XX*YY 7807 IFE , 7808 777777 757777 IFN ,+>*>+-1>> 7809 777777 757777 IFG XX, 7810 IFL XX, 7811 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7812 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7813 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7814 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7815 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7816 7817 777677 777777 F43150: AA1=YY ;INITIAL C(AC) 7818 035161 200 10 0 00 045145 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7819 000000 AA2=0 ;INITIAL C(AC+1) 7820 035162 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7821 000100 000000 AEE=XX ;INITIAL C(E) 7822 035163 200 06 0 00 044725 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7823 035164 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7824 777777 757777 AR1=V2 ;EXPECTED RESULT IN AC 7825 035165 312 10 0 00 045117 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7826 035166 003 10 0 00 043151 ER3 AC,43151 ;HIGH PRODUCT FAILED 7827 777700 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7828 035167 312 11 0 00 045222 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7829 035170 004 11 0 00 043152 ER4 AC+1,43152 ;LOW PRODUCT FAILED 7830 000100 000000 AEE=XX ;INITIAL C(E) 7831 035171 312 06 0 00 044725 CAME E,[XX] ;WAS C(E) CLOBBERED? 7832 035172 005 06 0 00 043153 ER5 E,43153 ;C(E) WAS CLOBBERED 7833 035173 321 12 0 00 035161 JUMPL AC+2,F43150 ;LOOP ON ERROR SWITCH^ 7834 7835 004316 ADR=ADR+1 7836 000200 000000 XX=XX+XX 7837 777577 777777 YY=YY+YY+1 7838 IFE XX, 7839 IFE , 7840 7841 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7842 777600 000000 V1=XX*YY 7843 IFE , 7844 777777 677777 IFN ,+>*>+-1>> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0162 7845 777777 677777 IFG XX, 7846 IFL XX, 7847 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7848 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7849 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7850 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7851 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7852 7853 777577 777777 F43160: AA1=YY ;INITIAL C(AC) 7854 035174 200 10 0 00 045147 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7855 000000 AA2=0 ;INITIAL C(AC+1) 7856 035175 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7857 000200 000000 AEE=XX ;INITIAL C(E) 7858 035176 200 06 0 00 044730 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7859 035177 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7860 777777 677777 AR1=V2 ;EXPECTED RESULT IN AC 7861 035200 312 10 0 00 045123 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7862 035201 003 10 0 00 043161 ER3 AC,43161 ;HIGH PRODUCT FAILED 7863 777600 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7864 035202 312 11 0 00 045223 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7865 035203 004 11 0 00 043162 ER4 AC+1,43162 ;LOW PRODUCT FAILED 7866 000200 000000 AEE=XX ;INITIAL C(E) 7867 035204 312 06 0 00 044730 CAME E,[XX] ;WAS C(E) CLOBBERED? 7868 035205 005 06 0 00 043163 ER5 E,43163 ;C(E) WAS CLOBBERED 7869 035206 321 12 0 00 035174 JUMPL AC+2,F43160 ;LOOP ON ERROR SWITCH^ 7870 7871 004317 ADR=ADR+1 7872 000400 000000 XX=XX+XX 7873 777377 777777 YY=YY+YY+1 7874 IFE XX, 7875 IFE , 7876 7877 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7878 777400 000000 V1=XX*YY 7879 IFE , 7880 777777 377777 IFN ,+>*>+-1>> 7881 777777 377777 IFG XX, 7882 IFL XX, 7883 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7884 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7885 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7886 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7887 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7888 7889 777377 777777 F43170: AA1=YY ;INITIAL C(AC) 7890 035207 200 10 0 00 045151 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7891 000000 AA2=0 ;INITIAL C(AC+1) 7892 035210 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7893 000400 000000 AEE=XX ;INITIAL C(E) 7894 035211 200 06 0 00 044733 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7895 035212 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7896 777777 377777 AR1=V2 ;EXPECTED RESULT IN AC 7897 035213 312 10 0 00 045127 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7898 035214 003 10 0 00 043171 ER3 AC,43171 ;HIGH PRODUCT FAILED 7899 777400 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0163 7900 035215 312 11 0 00 045224 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7901 035216 004 11 0 00 043172 ER4 AC+1,43172 ;LOW PRODUCT FAILED 7902 000400 000000 AEE=XX ;INITIAL C(E) 7903 035217 312 06 0 00 044733 CAME E,[XX] ;WAS C(E) CLOBBERED? 7904 035220 005 06 0 00 043173 ER5 E,43173 ;C(E) WAS CLOBBERED 7905 035221 321 12 0 00 035207 JUMPL AC+2,F43170 ;LOOP ON ERROR SWITCH^ 7906 7907 004320 ADR=ADR+1 7908 001000 000000 XX=XX+XX 7909 776777 777777 YY=YY+YY+1 7910 IFE XX, 7911 IFE , 7912 7913 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7914 777000 000000 V1=XX*YY 7915 IFE , 7916 777775 777777 IFN ,+>*>+-1>> 7917 777775 777777 IFG XX, 7918 IFL XX, 7919 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7920 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7921 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7922 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7923 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7924 7925 776777 777777 F43200: AA1=YY ;INITIAL C(AC) 7926 035222 200 10 0 00 045153 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7927 000000 AA2=0 ;INITIAL C(AC+1) 7928 035223 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7929 001000 000000 AEE=XX ;INITIAL C(E) 7930 035224 200 06 0 00 044736 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7931 035225 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7932 777775 777777 AR1=V2 ;EXPECTED RESULT IN AC 7933 035226 312 10 0 00 045133 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7934 035227 003 10 0 00 043201 ER3 AC,43201 ;HIGH PRODUCT FAILED 7935 777000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7936 035230 312 11 0 00 045225 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7937 035231 004 11 0 00 043202 ER4 AC+1,43202 ;LOW PRODUCT FAILED 7938 001000 000000 AEE=XX ;INITIAL C(E) 7939 035232 312 06 0 00 044736 CAME E,[XX] ;WAS C(E) CLOBBERED? 7940 035233 005 06 0 00 043203 ER5 E,43203 ;C(E) WAS CLOBBERED 7941 035234 321 12 0 00 035222 JUMPL AC+2,F43200 ;LOOP ON ERROR SWITCH^ 7942 7943 004321 ADR=ADR+1 7944 002000 000000 XX=XX+XX 7945 775777 777777 YY=YY+YY+1 7946 IFE XX, 7947 IFE , 7948 7949 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7950 776000 000000 V1=XX*YY 7951 IFE , 7952 777767 777777 IFN ,+>*>+-1>> 7953 777767 777777 IFG XX, 7954 IFL XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0164 7955 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7956 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7957 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7958 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7959 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7960 7961 775777 777777 F43210: AA1=YY ;INITIAL C(AC) 7962 035235 200 10 0 00 045155 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7963 000000 AA2=0 ;INITIAL C(AC+1) 7964 035236 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 7965 002000 000000 AEE=XX ;INITIAL C(E) 7966 035237 200 06 0 00 044741 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 7967 035240 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 7968 777767 777777 AR1=V2 ;EXPECTED RESULT IN AC 7969 035241 312 10 0 00 045137 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 7970 035242 003 10 0 00 043211 ER3 AC,43211 ;HIGH PRODUCT FAILED 7971 776000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 7972 035243 312 11 0 00 045226 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 7973 035244 004 11 0 00 043212 ER4 AC+1,43212 ;LOW PRODUCT FAILED 7974 002000 000000 AEE=XX ;INITIAL C(E) 7975 035245 312 06 0 00 044741 CAME E,[XX] ;WAS C(E) CLOBBERED? 7976 035246 005 06 0 00 043213 ER5 E,43213 ;C(E) WAS CLOBBERED 7977 035247 321 12 0 00 035235 JUMPL AC+2,F43210 ;LOOP ON ERROR SWITCH^ 7978 7979 004322 ADR=ADR+1 7980 004000 000000 XX=XX+XX 7981 773777 777777 YY=YY+YY+1 7982 IFE XX, 7983 IFE , 7984 7985 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 7986 774000 000000 V1=XX*YY 7987 IFE , 7988 777737 777777 IFN ,+>*>+-1>> 7989 777737 777777 IFG XX, 7990 IFL XX, 7991 MOP1 (\ADR,YY,0,XX,V2,V1)^ 7992 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 7993 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 7994 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 7995 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 7996 7997 773777 777777 F43220: AA1=YY ;INITIAL C(AC) 7998 035250 200 10 0 00 045157 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 7999 000000 AA2=0 ;INITIAL C(AC+1) 8000 035251 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8001 004000 000000 AEE=XX ;INITIAL C(E) 8002 035252 200 06 0 00 044744 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8003 035253 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8004 777737 777777 AR1=V2 ;EXPECTED RESULT IN AC 8005 035254 312 10 0 00 045143 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8006 035255 003 10 0 00 043221 ER3 AC,43221 ;HIGH PRODUCT FAILED 8007 774000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8008 035256 312 11 0 00 045227 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8009 035257 004 11 0 00 043222 ER4 AC+1,43222 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0165 8010 004000 000000 AEE=XX ;INITIAL C(E) 8011 035260 312 06 0 00 044744 CAME E,[XX] ;WAS C(E) CLOBBERED? 8012 035261 005 06 0 00 043223 ER5 E,43223 ;C(E) WAS CLOBBERED 8013 035262 321 12 0 00 035250 JUMPL AC+2,F43220 ;LOOP ON ERROR SWITCH^ 8014 8015 004323 ADR=ADR+1 8016 010000 000000 XX=XX+XX 8017 767777 777777 YY=YY+YY+1 8018 IFE XX, 8019 IFE , 8020 8021 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8022 770000 000000 V1=XX*YY 8023 IFE , 8024 777577 777777 IFN ,+>*>+-1>> 8025 777577 777777 IFG XX, 8026 IFL XX, 8027 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8028 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 8029 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8030 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 8031 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8032 8033 767777 777777 F43230: AA1=YY ;INITIAL C(AC) 8034 035263 200 10 0 00 045161 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8035 000000 AA2=0 ;INITIAL C(AC+1) 8036 035264 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8037 010000 000000 AEE=XX ;INITIAL C(E) 8038 035265 200 06 0 00 044747 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8039 035266 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8040 777577 777777 AR1=V2 ;EXPECTED RESULT IN AC 8041 035267 312 10 0 00 045147 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8042 035270 003 10 0 00 043231 ER3 AC,43231 ;HIGH PRODUCT FAILED 8043 770000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8044 035271 312 11 0 00 045230 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8045 035272 004 11 0 00 043232 ER4 AC+1,43232 ;LOW PRODUCT FAILED 8046 010000 000000 AEE=XX ;INITIAL C(E) 8047 035273 312 06 0 00 044747 CAME E,[XX] ;WAS C(E) CLOBBERED? 8048 035274 005 06 0 00 043233 ER5 E,43233 ;C(E) WAS CLOBBERED 8049 035275 321 12 0 00 035263 JUMPL AC+2,F43230 ;LOOP ON ERROR SWITCH^ 8050 8051 004324 ADR=ADR+1 8052 020000 000000 XX=XX+XX 8053 757777 777777 YY=YY+YY+1 8054 IFE XX, 8055 IFE , 8056 8057 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8058 760000 000000 V1=XX*YY 8059 IFE , 8060 776777 777777 IFN ,+>*>+-1>> 8061 776777 777777 IFG XX, 8062 IFL XX, 8063 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8064 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0166 8065 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8066 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 8067 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8068 8069 757777 777777 F43240: AA1=YY ;INITIAL C(AC) 8070 035276 200 10 0 00 045163 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8071 000000 AA2=0 ;INITIAL C(AC+1) 8072 035277 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8073 020000 000000 AEE=XX ;INITIAL C(E) 8074 035300 200 06 0 00 044752 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8075 035301 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8076 776777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8077 035302 312 10 0 00 045153 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8078 035303 003 10 0 00 043241 ER3 AC,43241 ;HIGH PRODUCT FAILED 8079 760000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8080 035304 312 11 0 00 045231 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8081 035305 004 11 0 00 043242 ER4 AC+1,43242 ;LOW PRODUCT FAILED 8082 020000 000000 AEE=XX ;INITIAL C(E) 8083 035306 312 06 0 00 044752 CAME E,[XX] ;WAS C(E) CLOBBERED? 8084 035307 005 06 0 00 043243 ER5 E,43243 ;C(E) WAS CLOBBERED 8085 035310 321 12 0 00 035276 JUMPL AC+2,F43240 ;LOOP ON ERROR SWITCH^ 8086 8087 004325 ADR=ADR+1 8088 040000 000000 XX=XX+XX 8089 737777 777777 YY=YY+YY+1 8090 IFE XX, 8091 IFE , 8092 8093 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8094 740000 000000 V1=XX*YY 8095 IFE , 8096 773777 777777 IFN ,+>*>+-1>> 8097 773777 777777 IFG XX, 8098 IFL XX, 8099 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8100 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 8101 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8102 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 8103 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8104 8105 737777 777777 F43250: AA1=YY ;INITIAL C(AC) 8106 035311 200 10 0 00 045165 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8107 000000 AA2=0 ;INITIAL C(AC+1) 8108 035312 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8109 040000 000000 AEE=XX ;INITIAL C(E) 8110 035313 200 06 0 00 044755 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8111 035314 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8112 773777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8113 035315 312 10 0 00 045157 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8114 035316 003 10 0 00 043251 ER3 AC,43251 ;HIGH PRODUCT FAILED 8115 740000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8116 035317 312 11 0 00 045232 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8117 035320 004 11 0 00 043252 ER4 AC+1,43252 ;LOW PRODUCT FAILED 8118 040000 000000 AEE=XX ;INITIAL C(E) 8119 035321 312 06 0 00 044755 CAME E,[XX] ;WAS C(E) CLOBBERED? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0167 8120 035322 005 06 0 00 043253 ER5 E,43253 ;C(E) WAS CLOBBERED 8121 035323 321 12 0 00 035311 JUMPL AC+2,F43250 ;LOOP ON ERROR SWITCH^ 8122 8123 004326 ADR=ADR+1 8124 100000 000000 XX=XX+XX 8125 677777 777777 YY=YY+YY+1 8126 IFE XX, 8127 IFE , 8128 8129 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8130 700000 000000 V1=XX*YY 8131 IFE , 8132 757777 777777 IFN ,+>*>+-1>> 8133 757777 777777 IFG XX, 8134 IFL XX, 8135 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8136 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 8137 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8138 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 8139 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8140 8141 677777 777777 F43260: AA1=YY ;INITIAL C(AC) 8142 035324 200 10 0 00 045167 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8143 000000 AA2=0 ;INITIAL C(AC+1) 8144 035325 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8145 100000 000000 AEE=XX ;INITIAL C(E) 8146 035326 200 06 0 00 044760 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8147 035327 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8148 757777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8149 035330 312 10 0 00 045163 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8150 035331 003 10 0 00 043261 ER3 AC,43261 ;HIGH PRODUCT FAILED 8151 700000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8152 035332 312 11 0 00 045233 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8153 035333 004 11 0 00 043262 ER4 AC+1,43262 ;LOW PRODUCT FAILED 8154 100000 000000 AEE=XX ;INITIAL C(E) 8155 035334 312 06 0 00 044760 CAME E,[XX] ;WAS C(E) CLOBBERED? 8156 035335 005 06 0 00 043263 ER5 E,43263 ;C(E) WAS CLOBBERED 8157 035336 321 12 0 00 035324 JUMPL AC+2,F43260 ;LOOP ON ERROR SWITCH^ 8158 8159 004327 ADR=ADR+1 8160 200000 000000 XX=XX+XX 8161 577777 777777 YY=YY+YY+1 8162 IFE XX, 8163 IFE , 8164 8165 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8166 600000 000000 V1=XX*YY 8167 IFE , 8168 677777 777777 IFN ,+>*>+-1>> 8169 677777 777777 IFG XX, 8170 IFL XX, 8171 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8172 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 8173 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8174 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 6-23 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0168 8175 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8176 8177 577777 777777 F43270: AA1=YY ;INITIAL C(AC) 8178 035337 200 10 0 00 045171 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8179 000000 AA2=0 ;INITIAL C(AC+1) 8180 035340 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8181 200000 000000 AEE=XX ;INITIAL C(E) 8182 035341 200 06 0 00 044763 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8183 035342 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8184 677777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8185 035343 312 10 0 00 045167 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8186 035344 003 10 0 00 043271 ER3 AC,43271 ;HIGH PRODUCT FAILED 8187 600000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8188 035345 312 11 0 00 044762 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8189 035346 004 11 0 00 043272 ER4 AC+1,43272 ;LOW PRODUCT FAILED 8190 200000 000000 AEE=XX ;INITIAL C(E) 8191 035347 312 06 0 00 044763 CAME E,[XX] ;WAS C(E) CLOBBERED? 8192 035350 005 06 0 00 043273 ER5 E,43273 ;C(E) WAS CLOBBERED 8193 035351 321 12 0 00 035337 JUMPL AC+2,F43270 ;LOOP ON ERROR SWITCH^ 8194 8195 004330 ADR=ADR+1 8196 400000 000000 XX=XX+XX 8197 377777 777777 YY=YY+YY+1 8198 IFE XX, 8199 IFE , 8200 8201 ;MULTIPLY A FLOATING 1 BY A FLOATING 0 8202 400000 000000 V1=XX*YY 8203 IFE , 8204 777777 777777 IFN ,+>*>+-1>> 8205 IFG XX, 8206 400000 000001 IFL XX, 8207 MOP1 (\ADR,YY,0,XX,V2,V1)^ 8208 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [YY],[0] AND 8209 ;[XX] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8210 ;AND E AGAINST [V2], [V1] AND [XX] RESPECTIVELY. 8211 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8212 8213 377777 777777 F43300: AA1=YY ;INITIAL C(AC) 8214 035352 200 10 0 00 045172 MOVE AC,[YY] ;PRELOAD AC (MULTIPLIER) 8215 000000 AA2=0 ;INITIAL C(AC+1) 8216 035353 200 11 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8217 400000 000000 AEE=XX ;INITIAL C(E) 8218 035354 200 06 0 00 044765 MOVE E,[XX] ;PRELOAD E (MULTIPLICAND) 8219 035355 224 10 0 00 000006 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8220 400000 000001 AR1=V2 ;EXPECTED RESULT IN AC 8221 035356 312 10 0 00 045234 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8222 035357 003 10 0 00 043301 ER3 AC,43301 ;HIGH PRODUCT FAILED 8223 400000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8224 035360 312 11 0 00 044765 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8225 035361 004 11 0 00 043302 ER4 AC+1,43302 ;LOW PRODUCT FAILED 8226 400000 000000 AEE=XX ;INITIAL C(E) 8227 035362 312 06 0 00 044765 CAME E,[XX] ;WAS C(E) CLOBBERED? 8228 035363 005 06 0 00 043303 ER5 E,43303 ;C(E) WAS CLOBBERED 8229 035364 321 12 0 00 035352 JUMPL AC+2,F43300 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0169 8230 000007 AC=7 8231 000005 E=&17 8232 SAVEAC (1,1)^ 8233 035365 201 11 0 00 035365 MOVEI AC+2,. ;SAVE TEST PC 8234 035366 202 11 0 00 030051 MOVEM AC+2,TESTPC 8235 035367 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8236 035370 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8237 000000 XX=0 8238 000000 YY=0 8239 8240 REPEAT ^D36,< 8241 ADR=ADR+1 8242 XX=XX+XX 8243 YY=YY+YY+1 8244 IFE XX, 8245 IFE , 8246 8247 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8248 V1=XX*YY 8249 IFE , 8250 IFN ,+>*>+-1>> 8251 IFG XX, 8252 IFL XX, 8253 MOP1 (\ADR,XX,0,YY,V2,V1)> 8254 8255 004331 ADR=ADR+1 8256 000000 XX=XX+XX 8257 000001 YY=YY+YY+1 8258 000001 IFE XX, 8259 777777 777776 IFE , 8260 8261 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8262 777777 777776 V1=XX*YY 8263 777777 777777 IFE , 8264 IFN ,+>*>+-1>> 8265 777777 777777 IFG XX, 8266 IFL XX, 8267 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8268 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8269 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8270 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8271 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8272 8273 000001 F43310: AA1=XX ;INITIAL C(AC) 8274 035371 200 07 0 00 044616 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8275 000000 AA2=0 ;INITIAL C(AC+1) 8276 035372 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8277 777777 777776 AEE=YY ;INITIAL C(E) 8278 035373 200 05 0 00 044621 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8279 035374 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8280 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8281 035375 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8282 035376 003 07 0 00 043311 ER3 AC,43311 ;HIGH PRODUCT FAILED 8283 777777 777776 AR2=V1 ;EXPECTED RESULT IN AC+1 8284 035377 312 10 0 00 044621 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0170 8285 035400 004 10 0 00 043312 ER4 AC+1,43312 ;LOW PRODUCT FAILED 8286 777777 777776 AEE=YY ;INITIAL C(E) 8287 035401 312 05 0 00 044621 CAME E,[YY] ;WAS C(E) CLOBBERED? 8288 035402 005 05 0 00 043313 ER5 E,43313 ;C(E) WAS CLOBBERED 8289 035403 321 11 0 00 035371 JUMPL AC+2,F43310 ;LOOP ON ERROR SWITCH^ 8290 8291 004332 ADR=ADR+1 8292 000002 XX=XX+XX 8293 777777 777775 YY=YY+YY+1 8294 IFE XX, 8295 IFE , 8296 8297 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8298 777777 777772 V1=XX*YY 8299 777777 777777 IFE , 8300 IFN ,+>*>+-1>> 8301 777777 777777 IFG XX, 8302 IFL XX, 8303 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8304 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8305 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8306 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8307 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8308 8309 000002 F43320: AA1=XX ;INITIAL C(AC) 8310 035404 200 07 0 00 044620 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8311 000000 AA2=0 ;INITIAL C(AC+1) 8312 035405 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8313 777777 777775 AEE=YY ;INITIAL C(E) 8314 035406 200 05 0 00 044624 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8315 035407 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8316 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8317 035410 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8318 035411 003 07 0 00 043321 ER3 AC,43321 ;HIGH PRODUCT FAILED 8319 777777 777772 AR2=V1 ;EXPECTED RESULT IN AC+1 8320 035412 312 10 0 00 044627 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8321 035413 004 10 0 00 043322 ER4 AC+1,43322 ;LOW PRODUCT FAILED 8322 777777 777775 AEE=YY ;INITIAL C(E) 8323 035414 312 05 0 00 044624 CAME E,[YY] ;WAS C(E) CLOBBERED? 8324 035415 005 05 0 00 043323 ER5 E,43323 ;C(E) WAS CLOBBERED 8325 035416 321 11 0 00 035404 JUMPL AC+2,F43320 ;LOOP ON ERROR SWITCH^ 8326 8327 004333 ADR=ADR+1 8328 000004 XX=XX+XX 8329 777777 777773 YY=YY+YY+1 8330 IFE XX, 8331 IFE , 8332 8333 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8334 777777 777754 V1=XX*YY 8335 777777 777777 IFE , 8336 IFN ,+>*>+-1>> 8337 777777 777777 IFG XX, 8338 IFL XX, 8339 MOP1 (\ADR,XX,0,YY,V2,V1)^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0171 8340 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8341 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8342 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8343 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8344 8345 000004 F43330: AA1=XX ;INITIAL C(AC) 8346 035417 200 07 0 00 044623 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8347 000000 AA2=0 ;INITIAL C(AC+1) 8348 035420 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8349 777777 777773 AEE=YY ;INITIAL C(E) 8350 035421 200 05 0 00 045071 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8351 035422 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8352 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8353 035423 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8354 035424 003 07 0 00 043331 ER3 AC,43331 ;HIGH PRODUCT FAILED 8355 777777 777754 AR2=V1 ;EXPECTED RESULT IN AC+1 8356 035425 312 10 0 00 045174 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8357 035426 004 10 0 00 043332 ER4 AC+1,43332 ;LOW PRODUCT FAILED 8358 777777 777773 AEE=YY ;INITIAL C(E) 8359 035427 312 05 0 00 045071 CAME E,[YY] ;WAS C(E) CLOBBERED? 8360 035430 005 05 0 00 043333 ER5 E,43333 ;C(E) WAS CLOBBERED 8361 035431 321 11 0 00 035417 JUMPL AC+2,F43330 ;LOOP ON ERROR SWITCH^ 8362 8363 004334 ADR=ADR+1 8364 000010 XX=XX+XX 8365 777777 777767 YY=YY+YY+1 8366 IFE XX, 8367 IFE , 8368 8369 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8370 777777 777670 V1=XX*YY 8371 777777 777777 IFE , 8372 IFN ,+>*>+-1>> 8373 777777 777777 IFG XX, 8374 IFL XX, 8375 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8376 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8377 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8378 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8379 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8380 8381 000010 F43340: AA1=XX ;INITIAL C(AC) 8382 035432 200 07 0 00 044626 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8383 000000 AA2=0 ;INITIAL C(AC+1) 8384 035433 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8385 777777 777767 AEE=YY ;INITIAL C(E) 8386 035434 200 05 0 00 045073 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8387 035435 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8388 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8389 035436 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8390 035437 003 07 0 00 043341 ER3 AC,43341 ;HIGH PRODUCT FAILED 8391 777777 777670 AR2=V1 ;EXPECTED RESULT IN AC+1 8392 035440 312 10 0 00 045175 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8393 035441 004 10 0 00 043342 ER4 AC+1,43342 ;LOW PRODUCT FAILED 8394 777777 777767 AEE=YY ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0172 8395 035442 312 05 0 00 045073 CAME E,[YY] ;WAS C(E) CLOBBERED? 8396 035443 005 05 0 00 043343 ER5 E,43343 ;C(E) WAS CLOBBERED 8397 035444 321 11 0 00 035432 JUMPL AC+2,F43340 ;LOOP ON ERROR SWITCH^ 8398 8399 004335 ADR=ADR+1 8400 000020 XX=XX+XX 8401 777777 777757 YY=YY+YY+1 8402 IFE XX, 8403 IFE , 8404 8405 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8406 777777 777360 V1=XX*YY 8407 777777 777777 IFE , 8408 IFN ,+>*>+-1>> 8409 777777 777777 IFG XX, 8410 IFL XX, 8411 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8412 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8413 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8414 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8415 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8416 8417 000020 F43350: AA1=XX ;INITIAL C(AC) 8418 035445 200 07 0 00 044631 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8419 000000 AA2=0 ;INITIAL C(AC+1) 8420 035446 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8421 777777 777757 AEE=YY ;INITIAL C(E) 8422 035447 200 05 0 00 045075 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8423 035450 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8424 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8425 035451 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8426 035452 003 07 0 00 043351 ER3 AC,43351 ;HIGH PRODUCT FAILED 8427 777777 777360 AR2=V1 ;EXPECTED RESULT IN AC+1 8428 035453 312 10 0 00 045176 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8429 035454 004 10 0 00 043352 ER4 AC+1,43352 ;LOW PRODUCT FAILED 8430 777777 777757 AEE=YY ;INITIAL C(E) 8431 035455 312 05 0 00 045075 CAME E,[YY] ;WAS C(E) CLOBBERED? 8432 035456 005 05 0 00 043353 ER5 E,43353 ;C(E) WAS CLOBBERED 8433 035457 321 11 0 00 035445 JUMPL AC+2,F43350 ;LOOP ON ERROR SWITCH^ 8434 8435 004336 ADR=ADR+1 8436 000040 XX=XX+XX 8437 777777 777737 YY=YY+YY+1 8438 IFE XX, 8439 IFE , 8440 8441 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8442 777777 775740 V1=XX*YY 8443 777777 777777 IFE , 8444 IFN ,+>*>+-1>> 8445 777777 777777 IFG XX, 8446 IFL XX, 8447 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8448 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8449 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-4 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0173 8450 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8451 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8452 8453 000040 F43360: AA1=XX ;INITIAL C(AC) 8454 035460 200 07 0 00 044634 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8455 000000 AA2=0 ;INITIAL C(AC+1) 8456 035461 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8457 777777 777737 AEE=YY ;INITIAL C(E) 8458 035462 200 05 0 00 045077 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8459 035463 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8460 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8461 035464 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8462 035465 003 07 0 00 043361 ER3 AC,43361 ;HIGH PRODUCT FAILED 8463 777777 775740 AR2=V1 ;EXPECTED RESULT IN AC+1 8464 035466 312 10 0 00 045177 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8465 035467 004 10 0 00 043362 ER4 AC+1,43362 ;LOW PRODUCT FAILED 8466 777777 777737 AEE=YY ;INITIAL C(E) 8467 035470 312 05 0 00 045077 CAME E,[YY] ;WAS C(E) CLOBBERED? 8468 035471 005 05 0 00 043363 ER5 E,43363 ;C(E) WAS CLOBBERED 8469 035472 321 11 0 00 035460 JUMPL AC+2,F43360 ;LOOP ON ERROR SWITCH^ 8470 8471 004337 ADR=ADR+1 8472 000100 XX=XX+XX 8473 777777 777677 YY=YY+YY+1 8474 IFE XX, 8475 IFE , 8476 8477 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8478 777777 767700 V1=XX*YY 8479 777777 777777 IFE , 8480 IFN ,+>*>+-1>> 8481 777777 777777 IFG XX, 8482 IFL XX, 8483 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8484 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8485 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8486 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8487 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8488 8489 000100 F43370: AA1=XX ;INITIAL C(AC) 8490 035473 200 07 0 00 044637 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8491 000000 AA2=0 ;INITIAL C(AC+1) 8492 035474 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8493 777777 777677 AEE=YY ;INITIAL C(E) 8494 035475 200 05 0 00 045101 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8495 035476 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8496 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8497 035477 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8498 035500 003 07 0 00 043371 ER3 AC,43371 ;HIGH PRODUCT FAILED 8499 777777 767700 AR2=V1 ;EXPECTED RESULT IN AC+1 8500 035501 312 10 0 00 045200 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8501 035502 004 10 0 00 043372 ER4 AC+1,43372 ;LOW PRODUCT FAILED 8502 777777 777677 AEE=YY ;INITIAL C(E) 8503 035503 312 05 0 00 045101 CAME E,[YY] ;WAS C(E) CLOBBERED? 8504 035504 005 05 0 00 043373 ER5 E,43373 ;C(E) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-5 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0174 8505 035505 321 11 0 00 035473 JUMPL AC+2,F43370 ;LOOP ON ERROR SWITCH^ 8506 8507 004340 ADR=ADR+1 8508 000200 XX=XX+XX 8509 777777 777577 YY=YY+YY+1 8510 IFE XX, 8511 IFE , 8512 8513 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8514 777777 737600 V1=XX*YY 8515 777777 777777 IFE , 8516 IFN ,+>*>+-1>> 8517 777777 777777 IFG XX, 8518 IFL XX, 8519 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8520 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8521 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8522 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8523 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8524 8525 000200 F43400: AA1=XX ;INITIAL C(AC) 8526 035506 200 07 0 00 044642 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8527 000000 AA2=0 ;INITIAL C(AC+1) 8528 035507 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8529 777777 777577 AEE=YY ;INITIAL C(E) 8530 035510 200 05 0 00 045103 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8531 035511 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8532 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8533 035512 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8534 035513 003 07 0 00 043401 ER3 AC,43401 ;HIGH PRODUCT FAILED 8535 777777 737600 AR2=V1 ;EXPECTED RESULT IN AC+1 8536 035514 312 10 0 00 045201 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8537 035515 004 10 0 00 043402 ER4 AC+1,43402 ;LOW PRODUCT FAILED 8538 777777 777577 AEE=YY ;INITIAL C(E) 8539 035516 312 05 0 00 045103 CAME E,[YY] ;WAS C(E) CLOBBERED? 8540 035517 005 05 0 00 043403 ER5 E,43403 ;C(E) WAS CLOBBERED 8541 035520 321 11 0 00 035506 JUMPL AC+2,F43400 ;LOOP ON ERROR SWITCH^ 8542 8543 004341 ADR=ADR+1 8544 000400 XX=XX+XX 8545 777777 777377 YY=YY+YY+1 8546 IFE XX, 8547 IFE , 8548 8549 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8550 777777 577400 V1=XX*YY 8551 777777 777777 IFE , 8552 IFN ,+>*>+-1>> 8553 777777 777777 IFG XX, 8554 IFL XX, 8555 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8556 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8557 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8558 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8559 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-6 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0175 8560 8561 000400 F43410: AA1=XX ;INITIAL C(AC) 8562 035521 200 07 0 00 044645 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8563 000000 AA2=0 ;INITIAL C(AC+1) 8564 035522 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8565 777777 777377 AEE=YY ;INITIAL C(E) 8566 035523 200 05 0 00 045105 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8567 035524 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8568 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8569 035525 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8570 035526 003 07 0 00 043411 ER3 AC,43411 ;HIGH PRODUCT FAILED 8571 777777 577400 AR2=V1 ;EXPECTED RESULT IN AC+1 8572 035527 312 10 0 00 045202 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8573 035530 004 10 0 00 043412 ER4 AC+1,43412 ;LOW PRODUCT FAILED 8574 777777 777377 AEE=YY ;INITIAL C(E) 8575 035531 312 05 0 00 045105 CAME E,[YY] ;WAS C(E) CLOBBERED? 8576 035532 005 05 0 00 043413 ER5 E,43413 ;C(E) WAS CLOBBERED 8577 035533 321 11 0 00 035521 JUMPL AC+2,F43410 ;LOOP ON ERROR SWITCH^ 8578 8579 004342 ADR=ADR+1 8580 001000 XX=XX+XX 8581 777777 776777 YY=YY+YY+1 8582 IFE XX, 8583 IFE , 8584 8585 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8586 777776 777000 V1=XX*YY 8587 777777 777777 IFE , 8588 IFN ,+>*>+-1>> 8589 777777 777777 IFG XX, 8590 IFL XX, 8591 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8592 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8593 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8594 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8595 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8596 8597 001000 F43420: AA1=XX ;INITIAL C(AC) 8598 035534 200 07 0 00 044650 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8599 000000 AA2=0 ;INITIAL C(AC+1) 8600 035535 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8601 777777 776777 AEE=YY ;INITIAL C(E) 8602 035536 200 05 0 00 045107 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8603 035537 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8604 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8605 035540 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8606 035541 003 07 0 00 043421 ER3 AC,43421 ;HIGH PRODUCT FAILED 8607 777776 777000 AR2=V1 ;EXPECTED RESULT IN AC+1 8608 035542 312 10 0 00 045203 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8609 035543 004 10 0 00 043422 ER4 AC+1,43422 ;LOW PRODUCT FAILED 8610 777777 776777 AEE=YY ;INITIAL C(E) 8611 035544 312 05 0 00 045107 CAME E,[YY] ;WAS C(E) CLOBBERED? 8612 035545 005 05 0 00 043423 ER5 E,43423 ;C(E) WAS CLOBBERED 8613 035546 321 11 0 00 035534 JUMPL AC+2,F43420 ;LOOP ON ERROR SWITCH^ 8614 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-7 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0176 8615 004343 ADR=ADR+1 8616 002000 XX=XX+XX 8617 777777 775777 YY=YY+YY+1 8618 IFE XX, 8619 IFE , 8620 8621 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8622 777773 776000 V1=XX*YY 8623 777777 777777 IFE , 8624 IFN ,+>*>+-1>> 8625 777777 777777 IFG XX, 8626 IFL XX, 8627 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8628 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8629 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8630 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8631 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8632 8633 002000 F43430: AA1=XX ;INITIAL C(AC) 8634 035547 200 07 0 00 044653 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8635 000000 AA2=0 ;INITIAL C(AC+1) 8636 035550 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8637 777777 775777 AEE=YY ;INITIAL C(E) 8638 035551 200 05 0 00 045111 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8639 035552 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8640 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8641 035553 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8642 035554 003 07 0 00 043431 ER3 AC,43431 ;HIGH PRODUCT FAILED 8643 777773 776000 AR2=V1 ;EXPECTED RESULT IN AC+1 8644 035555 312 10 0 00 045204 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8645 035556 004 10 0 00 043432 ER4 AC+1,43432 ;LOW PRODUCT FAILED 8646 777777 775777 AEE=YY ;INITIAL C(E) 8647 035557 312 05 0 00 045111 CAME E,[YY] ;WAS C(E) CLOBBERED? 8648 035560 005 05 0 00 043433 ER5 E,43433 ;C(E) WAS CLOBBERED 8649 035561 321 11 0 00 035547 JUMPL AC+2,F43430 ;LOOP ON ERROR SWITCH^ 8650 8651 004344 ADR=ADR+1 8652 004000 XX=XX+XX 8653 777777 773777 YY=YY+YY+1 8654 IFE XX, 8655 IFE , 8656 8657 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8658 777757 774000 V1=XX*YY 8659 777777 777777 IFE , 8660 IFN ,+>*>+-1>> 8661 777777 777777 IFG XX, 8662 IFL XX, 8663 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8664 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8665 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8666 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8667 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8668 8669 004000 F43440: AA1=XX ;INITIAL C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0177 8670 035562 200 07 0 00 044656 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8671 000000 AA2=0 ;INITIAL C(AC+1) 8672 035563 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8673 777777 773777 AEE=YY ;INITIAL C(E) 8674 035564 200 05 0 00 045113 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8675 035565 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8676 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8677 035566 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8678 035567 003 07 0 00 043441 ER3 AC,43441 ;HIGH PRODUCT FAILED 8679 777757 774000 AR2=V1 ;EXPECTED RESULT IN AC+1 8680 035570 312 10 0 00 045205 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8681 035571 004 10 0 00 043442 ER4 AC+1,43442 ;LOW PRODUCT FAILED 8682 777777 773777 AEE=YY ;INITIAL C(E) 8683 035572 312 05 0 00 045113 CAME E,[YY] ;WAS C(E) CLOBBERED? 8684 035573 005 05 0 00 043443 ER5 E,43443 ;C(E) WAS CLOBBERED 8685 035574 321 11 0 00 035562 JUMPL AC+2,F43440 ;LOOP ON ERROR SWITCH^ 8686 8687 004345 ADR=ADR+1 8688 010000 XX=XX+XX 8689 777777 767777 YY=YY+YY+1 8690 IFE XX, 8691 IFE , 8692 8693 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8694 777677 770000 V1=XX*YY 8695 777777 777777 IFE , 8696 IFN ,+>*>+-1>> 8697 777777 777777 IFG XX, 8698 IFL XX, 8699 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8700 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8701 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8702 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8703 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8704 8705 010000 F43450: AA1=XX ;INITIAL C(AC) 8706 035575 200 07 0 00 044661 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8707 000000 AA2=0 ;INITIAL C(AC+1) 8708 035576 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8709 777777 767777 AEE=YY ;INITIAL C(E) 8710 035577 200 05 0 00 045115 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8711 035600 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8712 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8713 035601 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8714 035602 003 07 0 00 043451 ER3 AC,43451 ;HIGH PRODUCT FAILED 8715 777677 770000 AR2=V1 ;EXPECTED RESULT IN AC+1 8716 035603 312 10 0 00 045206 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8717 035604 004 10 0 00 043452 ER4 AC+1,43452 ;LOW PRODUCT FAILED 8718 777777 767777 AEE=YY ;INITIAL C(E) 8719 035605 312 05 0 00 045115 CAME E,[YY] ;WAS C(E) CLOBBERED? 8720 035606 005 05 0 00 043453 ER5 E,43453 ;C(E) WAS CLOBBERED 8721 035607 321 11 0 00 035575 JUMPL AC+2,F43450 ;LOOP ON ERROR SWITCH^ 8722 8723 004346 ADR=ADR+1 8724 020000 XX=XX+XX DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0178 8725 777777 757777 YY=YY+YY+1 8726 IFE XX, 8727 IFE , 8728 8729 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8730 777377 760000 V1=XX*YY 8731 777777 777777 IFE , 8732 IFN ,+>*>+-1>> 8733 777777 777777 IFG XX, 8734 IFL XX, 8735 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8736 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8737 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8738 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8739 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8740 8741 020000 F43460: AA1=XX ;INITIAL C(AC) 8742 035610 200 07 0 00 044664 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8743 000000 AA2=0 ;INITIAL C(AC+1) 8744 035611 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8745 777777 757777 AEE=YY ;INITIAL C(E) 8746 035612 200 05 0 00 045117 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8747 035613 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8748 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8749 035614 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8750 035615 003 07 0 00 043461 ER3 AC,43461 ;HIGH PRODUCT FAILED 8751 777377 760000 AR2=V1 ;EXPECTED RESULT IN AC+1 8752 035616 312 10 0 00 045207 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8753 035617 004 10 0 00 043462 ER4 AC+1,43462 ;LOW PRODUCT FAILED 8754 777777 757777 AEE=YY ;INITIAL C(E) 8755 035620 312 05 0 00 045117 CAME E,[YY] ;WAS C(E) CLOBBERED? 8756 035621 005 05 0 00 043463 ER5 E,43463 ;C(E) WAS CLOBBERED 8757 035622 321 11 0 00 035610 JUMPL AC+2,F43460 ;LOOP ON ERROR SWITCH^ 8758 8759 004347 ADR=ADR+1 8760 040000 XX=XX+XX 8761 777777 737777 YY=YY+YY+1 8762 IFE XX, 8763 IFE , 8764 8765 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8766 775777 740000 V1=XX*YY 8767 777777 777777 IFE , 8768 IFN ,+>*>+-1>> 8769 777777 777777 IFG XX, 8770 IFL XX, 8771 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8772 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8773 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8774 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8775 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8776 8777 040000 F43470: AA1=XX ;INITIAL C(AC) 8778 035623 200 07 0 00 044667 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8779 000000 AA2=0 ;INITIAL C(AC+1) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0179 8780 035624 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8781 777777 737777 AEE=YY ;INITIAL C(E) 8782 035625 200 05 0 00 045121 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8783 035626 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8784 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8785 035627 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8786 035630 003 07 0 00 043471 ER3 AC,43471 ;HIGH PRODUCT FAILED 8787 775777 740000 AR2=V1 ;EXPECTED RESULT IN AC+1 8788 035631 312 10 0 00 045210 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8789 035632 004 10 0 00 043472 ER4 AC+1,43472 ;LOW PRODUCT FAILED 8790 777777 737777 AEE=YY ;INITIAL C(E) 8791 035633 312 05 0 00 045121 CAME E,[YY] ;WAS C(E) CLOBBERED? 8792 035634 005 05 0 00 043473 ER5 E,43473 ;C(E) WAS CLOBBERED 8793 035635 321 11 0 00 035623 JUMPL AC+2,F43470 ;LOOP ON ERROR SWITCH^ 8794 8795 004350 ADR=ADR+1 8796 100000 XX=XX+XX 8797 777777 677777 YY=YY+YY+1 8798 IFE XX, 8799 IFE , 8800 8801 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8802 767777 700000 V1=XX*YY 8803 777777 777777 IFE , 8804 IFN ,+>*>+-1>> 8805 777777 777777 IFG XX, 8806 IFL XX, 8807 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8808 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8809 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8810 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8811 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8812 8813 100000 F43500: AA1=XX ;INITIAL C(AC) 8814 035636 200 07 0 00 044672 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8815 000000 AA2=0 ;INITIAL C(AC+1) 8816 035637 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8817 777777 677777 AEE=YY ;INITIAL C(E) 8818 035640 200 05 0 00 045123 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8819 035641 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8820 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8821 035642 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8822 035643 003 07 0 00 043501 ER3 AC,43501 ;HIGH PRODUCT FAILED 8823 767777 700000 AR2=V1 ;EXPECTED RESULT IN AC+1 8824 035644 312 10 0 00 045211 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8825 035645 004 10 0 00 043502 ER4 AC+1,43502 ;LOW PRODUCT FAILED 8826 777777 677777 AEE=YY ;INITIAL C(E) 8827 035646 312 05 0 00 045123 CAME E,[YY] ;WAS C(E) CLOBBERED? 8828 035647 005 05 0 00 043503 ER5 E,43503 ;C(E) WAS CLOBBERED 8829 035650 321 11 0 00 035636 JUMPL AC+2,F43500 ;LOOP ON ERROR SWITCH^ 8830 8831 004351 ADR=ADR+1 8832 200000 XX=XX+XX 8833 777777 577777 YY=YY+YY+1 8834 IFE XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0180 8835 IFE , 8836 8837 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8838 737777 600000 V1=XX*YY 8839 777777 777777 IFE , 8840 IFN ,+>*>+-1>> 8841 777777 777777 IFG XX, 8842 IFL XX, 8843 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8844 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8845 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8846 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8847 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8848 8849 200000 F43510: AA1=XX ;INITIAL C(AC) 8850 035651 200 07 0 00 044675 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8851 000000 AA2=0 ;INITIAL C(AC+1) 8852 035652 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8853 777777 577777 AEE=YY ;INITIAL C(E) 8854 035653 200 05 0 00 045125 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8855 035654 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8856 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8857 035655 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8858 035656 003 07 0 00 043511 ER3 AC,43511 ;HIGH PRODUCT FAILED 8859 737777 600000 AR2=V1 ;EXPECTED RESULT IN AC+1 8860 035657 312 10 0 00 045212 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8861 035660 004 10 0 00 043512 ER4 AC+1,43512 ;LOW PRODUCT FAILED 8862 777777 577777 AEE=YY ;INITIAL C(E) 8863 035661 312 05 0 00 045125 CAME E,[YY] ;WAS C(E) CLOBBERED? 8864 035662 005 05 0 00 043513 ER5 E,43513 ;C(E) WAS CLOBBERED 8865 035663 321 11 0 00 035651 JUMPL AC+2,F43510 ;LOOP ON ERROR SWITCH^ 8866 8867 004352 ADR=ADR+1 8868 400000 XX=XX+XX 8869 777777 377777 YY=YY+YY+1 8870 IFE XX, 8871 IFE , 8872 8873 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8874 577777 400000 V1=XX*YY 8875 777777 777777 IFE , 8876 IFN ,+>*>+-1>> 8877 777777 777777 IFG XX, 8878 IFL XX, 8879 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8880 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8881 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8882 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8883 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8884 8885 400000 F43520: AA1=XX ;INITIAL C(AC) 8886 035664 200 07 0 00 044700 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8887 000000 AA2=0 ;INITIAL C(AC+1) 8888 035665 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8889 777777 377777 AEE=YY ;INITIAL C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0181 8890 035666 200 05 0 00 045127 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8891 035667 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8892 777777 777777 AR1=V2 ;EXPECTED RESULT IN AC 8893 035670 312 07 0 00 044617 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8894 035671 003 07 0 00 043521 ER3 AC,43521 ;HIGH PRODUCT FAILED 8895 577777 400000 AR2=V1 ;EXPECTED RESULT IN AC+1 8896 035672 312 10 0 00 045213 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8897 035673 004 10 0 00 043522 ER4 AC+1,43522 ;LOW PRODUCT FAILED 8898 777777 377777 AEE=YY ;INITIAL C(E) 8899 035674 312 05 0 00 045127 CAME E,[YY] ;WAS C(E) CLOBBERED? 8900 035675 005 05 0 00 043523 ER5 E,43523 ;C(E) WAS CLOBBERED 8901 035676 321 11 0 00 035664 JUMPL AC+2,F43520 ;LOOP ON ERROR SWITCH^ 8902 8903 004353 ADR=ADR+1 8904 000001 000000 XX=XX+XX 8905 777776 777777 YY=YY+YY+1 8906 IFE XX, 8907 IFE , 8908 8909 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8910 777777 000000 V1=XX*YY 8911 IFE , 8912 777777 777775 IFN ,+>*>+-1>> 8913 777777 777775 IFG XX, 8914 IFL XX, 8915 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8916 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8917 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8918 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8919 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8920 8921 000001 000000 F43530: AA1=XX ;INITIAL C(AC) 8922 035677 200 07 0 00 044703 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8923 000000 AA2=0 ;INITIAL C(AC+1) 8924 035700 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8925 777776 777777 AEE=YY ;INITIAL C(E) 8926 035701 200 05 0 00 045131 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8927 035702 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8928 777777 777775 AR1=V2 ;EXPECTED RESULT IN AC 8929 035703 312 07 0 00 044624 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8930 035704 003 07 0 00 043531 ER3 AC,43531 ;HIGH PRODUCT FAILED 8931 777777 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8932 035705 312 10 0 00 045214 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8933 035706 004 10 0 00 043532 ER4 AC+1,43532 ;LOW PRODUCT FAILED 8934 777776 777777 AEE=YY ;INITIAL C(E) 8935 035707 312 05 0 00 045131 CAME E,[YY] ;WAS C(E) CLOBBERED? 8936 035710 005 05 0 00 043533 ER5 E,43533 ;C(E) WAS CLOBBERED 8937 035711 321 11 0 00 035677 JUMPL AC+2,F43530 ;LOOP ON ERROR SWITCH^ 8938 8939 004354 ADR=ADR+1 8940 000002 000000 XX=XX+XX 8941 777775 777777 YY=YY+YY+1 8942 IFE XX, 8943 IFE , 8944 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0182 8945 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8946 777776 000000 V1=XX*YY 8947 IFE , 8948 777777 777767 IFN ,+>*>+-1>> 8949 777777 777767 IFG XX, 8950 IFL XX, 8951 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8952 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8953 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8954 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8955 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8956 8957 000002 000000 F43540: AA1=XX ;INITIAL C(AC) 8958 035712 200 07 0 00 044706 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8959 000000 AA2=0 ;INITIAL C(AC+1) 8960 035713 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8961 777775 777777 AEE=YY ;INITIAL C(E) 8962 035714 200 05 0 00 045133 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8963 035715 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 8964 777777 777767 AR1=V2 ;EXPECTED RESULT IN AC 8965 035716 312 07 0 00 045073 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 8966 035717 003 07 0 00 043541 ER3 AC,43541 ;HIGH PRODUCT FAILED 8967 777776 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 8968 035720 312 10 0 00 045215 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 8969 035721 004 10 0 00 043542 ER4 AC+1,43542 ;LOW PRODUCT FAILED 8970 777775 777777 AEE=YY ;INITIAL C(E) 8971 035722 312 05 0 00 045133 CAME E,[YY] ;WAS C(E) CLOBBERED? 8972 035723 005 05 0 00 043543 ER5 E,43543 ;C(E) WAS CLOBBERED 8973 035724 321 11 0 00 035712 JUMPL AC+2,F43540 ;LOOP ON ERROR SWITCH^ 8974 8975 004355 ADR=ADR+1 8976 000004 000000 XX=XX+XX 8977 777773 777777 YY=YY+YY+1 8978 IFE XX, 8979 IFE , 8980 8981 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 8982 777774 000000 V1=XX*YY 8983 IFE , 8984 777777 777737 IFN ,+>*>+-1>> 8985 777777 777737 IFG XX, 8986 IFL XX, 8987 MOP1 (\ADR,XX,0,YY,V2,V1)^ 8988 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 8989 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 8990 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 8991 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 8992 8993 000004 000000 F43550: AA1=XX ;INITIAL C(AC) 8994 035725 200 07 0 00 044711 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 8995 000000 AA2=0 ;INITIAL C(AC+1) 8996 035726 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 8997 777773 777777 AEE=YY ;INITIAL C(E) 8998 035727 200 05 0 00 045135 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 8999 035730 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0183 9000 777777 777737 AR1=V2 ;EXPECTED RESULT IN AC 9001 035731 312 07 0 00 045077 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9002 035732 003 07 0 00 043551 ER3 AC,43551 ;HIGH PRODUCT FAILED 9003 777774 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9004 035733 312 10 0 00 045216 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9005 035734 004 10 0 00 043552 ER4 AC+1,43552 ;LOW PRODUCT FAILED 9006 777773 777777 AEE=YY ;INITIAL C(E) 9007 035735 312 05 0 00 045135 CAME E,[YY] ;WAS C(E) CLOBBERED? 9008 035736 005 05 0 00 043553 ER5 E,43553 ;C(E) WAS CLOBBERED 9009 035737 321 11 0 00 035725 JUMPL AC+2,F43550 ;LOOP ON ERROR SWITCH^ 9010 9011 004356 ADR=ADR+1 9012 000010 000000 XX=XX+XX 9013 777767 777777 YY=YY+YY+1 9014 IFE XX, 9015 IFE , 9016 9017 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9018 777770 000000 V1=XX*YY 9019 IFE , 9020 777777 777577 IFN ,+>*>+-1>> 9021 777777 777577 IFG XX, 9022 IFL XX, 9023 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9024 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9025 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9026 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9027 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9028 9029 000010 000000 F43560: AA1=XX ;INITIAL C(AC) 9030 035740 200 07 0 00 044714 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9031 000000 AA2=0 ;INITIAL C(AC+1) 9032 035741 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9033 777767 777777 AEE=YY ;INITIAL C(E) 9034 035742 200 05 0 00 045137 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9035 035743 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9036 777777 777577 AR1=V2 ;EXPECTED RESULT IN AC 9037 035744 312 07 0 00 045103 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9038 035745 003 07 0 00 043561 ER3 AC,43561 ;HIGH PRODUCT FAILED 9039 777770 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9040 035746 312 10 0 00 045217 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9041 035747 004 10 0 00 043562 ER4 AC+1,43562 ;LOW PRODUCT FAILED 9042 777767 777777 AEE=YY ;INITIAL C(E) 9043 035750 312 05 0 00 045137 CAME E,[YY] ;WAS C(E) CLOBBERED? 9044 035751 005 05 0 00 043563 ER5 E,43563 ;C(E) WAS CLOBBERED 9045 035752 321 11 0 00 035740 JUMPL AC+2,F43560 ;LOOP ON ERROR SWITCH^ 9046 9047 004357 ADR=ADR+1 9048 000020 000000 XX=XX+XX 9049 777757 777777 YY=YY+YY+1 9050 IFE XX, 9051 IFE , 9052 9053 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9054 777760 000000 V1=XX*YY DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0184 9055 IFE , 9056 777777 776777 IFN ,+>*>+-1>> 9057 777777 776777 IFG XX, 9058 IFL XX, 9059 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9060 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9061 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9062 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9063 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9064 9065 000020 000000 F43570: AA1=XX ;INITIAL C(AC) 9066 035753 200 07 0 00 044717 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9067 000000 AA2=0 ;INITIAL C(AC+1) 9068 035754 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9069 777757 777777 AEE=YY ;INITIAL C(E) 9070 035755 200 05 0 00 045141 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9071 035756 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9072 777777 776777 AR1=V2 ;EXPECTED RESULT IN AC 9073 035757 312 07 0 00 045107 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9074 035760 003 07 0 00 043571 ER3 AC,43571 ;HIGH PRODUCT FAILED 9075 777760 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9076 035761 312 10 0 00 045220 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9077 035762 004 10 0 00 043572 ER4 AC+1,43572 ;LOW PRODUCT FAILED 9078 777757 777777 AEE=YY ;INITIAL C(E) 9079 035763 312 05 0 00 045141 CAME E,[YY] ;WAS C(E) CLOBBERED? 9080 035764 005 05 0 00 043573 ER5 E,43573 ;C(E) WAS CLOBBERED 9081 035765 321 11 0 00 035753 JUMPL AC+2,F43570 ;LOOP ON ERROR SWITCH^ 9082 9083 004360 ADR=ADR+1 9084 000040 000000 XX=XX+XX 9085 777737 777777 YY=YY+YY+1 9086 IFE XX, 9087 IFE , 9088 9089 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9090 777740 000000 V1=XX*YY 9091 IFE , 9092 777777 773777 IFN ,+>*>+-1>> 9093 777777 773777 IFG XX, 9094 IFL XX, 9095 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9096 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9097 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9098 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9099 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9100 9101 000040 000000 F43600: AA1=XX ;INITIAL C(AC) 9102 035766 200 07 0 00 044722 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9103 000000 AA2=0 ;INITIAL C(AC+1) 9104 035767 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9105 777737 777777 AEE=YY ;INITIAL C(E) 9106 035770 200 05 0 00 045143 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9107 035771 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9108 777777 773777 AR1=V2 ;EXPECTED RESULT IN AC 9109 035772 312 07 0 00 045113 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0185 9110 035773 003 07 0 00 043601 ER3 AC,43601 ;HIGH PRODUCT FAILED 9111 777740 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9112 035774 312 10 0 00 045221 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9113 035775 004 10 0 00 043602 ER4 AC+1,43602 ;LOW PRODUCT FAILED 9114 777737 777777 AEE=YY ;INITIAL C(E) 9115 035776 312 05 0 00 045143 CAME E,[YY] ;WAS C(E) CLOBBERED? 9116 035777 005 05 0 00 043603 ER5 E,43603 ;C(E) WAS CLOBBERED 9117 036000 321 11 0 00 035766 JUMPL AC+2,F43600 ;LOOP ON ERROR SWITCH^ 9118 9119 004361 ADR=ADR+1 9120 000100 000000 XX=XX+XX 9121 777677 777777 YY=YY+YY+1 9122 IFE XX, 9123 IFE , 9124 9125 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9126 777700 000000 V1=XX*YY 9127 IFE , 9128 777777 757777 IFN ,+>*>+-1>> 9129 777777 757777 IFG XX, 9130 IFL XX, 9131 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9132 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9133 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9134 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9135 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9136 9137 000100 000000 F43610: AA1=XX ;INITIAL C(AC) 9138 036001 200 07 0 00 044725 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9139 000000 AA2=0 ;INITIAL C(AC+1) 9140 036002 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9141 777677 777777 AEE=YY ;INITIAL C(E) 9142 036003 200 05 0 00 045145 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9143 036004 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9144 777777 757777 AR1=V2 ;EXPECTED RESULT IN AC 9145 036005 312 07 0 00 045117 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9146 036006 003 07 0 00 043611 ER3 AC,43611 ;HIGH PRODUCT FAILED 9147 777700 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9148 036007 312 10 0 00 045222 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9149 036010 004 10 0 00 043612 ER4 AC+1,43612 ;LOW PRODUCT FAILED 9150 777677 777777 AEE=YY ;INITIAL C(E) 9151 036011 312 05 0 00 045145 CAME E,[YY] ;WAS C(E) CLOBBERED? 9152 036012 005 05 0 00 043613 ER5 E,43613 ;C(E) WAS CLOBBERED 9153 036013 321 11 0 00 036001 JUMPL AC+2,F43610 ;LOOP ON ERROR SWITCH^ 9154 9155 004362 ADR=ADR+1 9156 000200 000000 XX=XX+XX 9157 777577 777777 YY=YY+YY+1 9158 IFE XX, 9159 IFE , 9160 9161 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9162 777600 000000 V1=XX*YY 9163 IFE , 9164 777777 677777 IFN ,+>*>+-1>> DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0186 9165 777777 677777 IFG XX, 9166 IFL XX, 9167 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9168 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9169 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9170 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9171 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9172 9173 000200 000000 F43620: AA1=XX ;INITIAL C(AC) 9174 036014 200 07 0 00 044730 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9175 000000 AA2=0 ;INITIAL C(AC+1) 9176 036015 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9177 777577 777777 AEE=YY ;INITIAL C(E) 9178 036016 200 05 0 00 045147 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9179 036017 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9180 777777 677777 AR1=V2 ;EXPECTED RESULT IN AC 9181 036020 312 07 0 00 045123 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9182 036021 003 07 0 00 043621 ER3 AC,43621 ;HIGH PRODUCT FAILED 9183 777600 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9184 036022 312 10 0 00 045223 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9185 036023 004 10 0 00 043622 ER4 AC+1,43622 ;LOW PRODUCT FAILED 9186 777577 777777 AEE=YY ;INITIAL C(E) 9187 036024 312 05 0 00 045147 CAME E,[YY] ;WAS C(E) CLOBBERED? 9188 036025 005 05 0 00 043623 ER5 E,43623 ;C(E) WAS CLOBBERED 9189 036026 321 11 0 00 036014 JUMPL AC+2,F43620 ;LOOP ON ERROR SWITCH^ 9190 9191 004363 ADR=ADR+1 9192 000400 000000 XX=XX+XX 9193 777377 777777 YY=YY+YY+1 9194 IFE XX, 9195 IFE , 9196 9197 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9198 777400 000000 V1=XX*YY 9199 IFE , 9200 777777 377777 IFN ,+>*>+-1>> 9201 777777 377777 IFG XX, 9202 IFL XX, 9203 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9204 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9205 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9206 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9207 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9208 9209 000400 000000 F43630: AA1=XX ;INITIAL C(AC) 9210 036027 200 07 0 00 044733 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9211 000000 AA2=0 ;INITIAL C(AC+1) 9212 036030 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9213 777377 777777 AEE=YY ;INITIAL C(E) 9214 036031 200 05 0 00 045151 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9215 036032 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9216 777777 377777 AR1=V2 ;EXPECTED RESULT IN AC 9217 036033 312 07 0 00 045127 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9218 036034 003 07 0 00 043631 ER3 AC,43631 ;HIGH PRODUCT FAILED 9219 777400 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0187 9220 036035 312 10 0 00 045224 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9221 036036 004 10 0 00 043632 ER4 AC+1,43632 ;LOW PRODUCT FAILED 9222 777377 777777 AEE=YY ;INITIAL C(E) 9223 036037 312 05 0 00 045151 CAME E,[YY] ;WAS C(E) CLOBBERED? 9224 036040 005 05 0 00 043633 ER5 E,43633 ;C(E) WAS CLOBBERED 9225 036041 321 11 0 00 036027 JUMPL AC+2,F43630 ;LOOP ON ERROR SWITCH^ 9226 9227 004364 ADR=ADR+1 9228 001000 000000 XX=XX+XX 9229 776777 777777 YY=YY+YY+1 9230 IFE XX, 9231 IFE , 9232 9233 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9234 777000 000000 V1=XX*YY 9235 IFE , 9236 777775 777777 IFN ,+>*>+-1>> 9237 777775 777777 IFG XX, 9238 IFL XX, 9239 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9240 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9241 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9242 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9243 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9244 9245 001000 000000 F43640: AA1=XX ;INITIAL C(AC) 9246 036042 200 07 0 00 044736 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9247 000000 AA2=0 ;INITIAL C(AC+1) 9248 036043 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9249 776777 777777 AEE=YY ;INITIAL C(E) 9250 036044 200 05 0 00 045153 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9251 036045 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9252 777775 777777 AR1=V2 ;EXPECTED RESULT IN AC 9253 036046 312 07 0 00 045133 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9254 036047 003 07 0 00 043641 ER3 AC,43641 ;HIGH PRODUCT FAILED 9255 777000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9256 036050 312 10 0 00 045225 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9257 036051 004 10 0 00 043642 ER4 AC+1,43642 ;LOW PRODUCT FAILED 9258 776777 777777 AEE=YY ;INITIAL C(E) 9259 036052 312 05 0 00 045153 CAME E,[YY] ;WAS C(E) CLOBBERED? 9260 036053 005 05 0 00 043643 ER5 E,43643 ;C(E) WAS CLOBBERED 9261 036054 321 11 0 00 036042 JUMPL AC+2,F43640 ;LOOP ON ERROR SWITCH^ 9262 9263 004365 ADR=ADR+1 9264 002000 000000 XX=XX+XX 9265 775777 777777 YY=YY+YY+1 9266 IFE XX, 9267 IFE , 9268 9269 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9270 776000 000000 V1=XX*YY 9271 IFE , 9272 777767 777777 IFN ,+>*>+-1>> 9273 777767 777777 IFG XX, 9274 IFL XX, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0188 9275 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9276 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9277 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9278 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9279 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9280 9281 002000 000000 F43650: AA1=XX ;INITIAL C(AC) 9282 036055 200 07 0 00 044741 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9283 000000 AA2=0 ;INITIAL C(AC+1) 9284 036056 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9285 775777 777777 AEE=YY ;INITIAL C(E) 9286 036057 200 05 0 00 045155 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9287 036060 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9288 777767 777777 AR1=V2 ;EXPECTED RESULT IN AC 9289 036061 312 07 0 00 045137 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9290 036062 003 07 0 00 043651 ER3 AC,43651 ;HIGH PRODUCT FAILED 9291 776000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9292 036063 312 10 0 00 045226 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9293 036064 004 10 0 00 043652 ER4 AC+1,43652 ;LOW PRODUCT FAILED 9294 775777 777777 AEE=YY ;INITIAL C(E) 9295 036065 312 05 0 00 045155 CAME E,[YY] ;WAS C(E) CLOBBERED? 9296 036066 005 05 0 00 043653 ER5 E,43653 ;C(E) WAS CLOBBERED 9297 036067 321 11 0 00 036055 JUMPL AC+2,F43650 ;LOOP ON ERROR SWITCH^ 9298 9299 004366 ADR=ADR+1 9300 004000 000000 XX=XX+XX 9301 773777 777777 YY=YY+YY+1 9302 IFE XX, 9303 IFE , 9304 9305 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9306 774000 000000 V1=XX*YY 9307 IFE , 9308 777737 777777 IFN ,+>*>+-1>> 9309 777737 777777 IFG XX, 9310 IFL XX, 9311 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9312 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9313 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9314 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9315 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9316 9317 004000 000000 F43660: AA1=XX ;INITIAL C(AC) 9318 036070 200 07 0 00 044744 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9319 000000 AA2=0 ;INITIAL C(AC+1) 9320 036071 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9321 773777 777777 AEE=YY ;INITIAL C(E) 9322 036072 200 05 0 00 045157 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9323 036073 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9324 777737 777777 AR1=V2 ;EXPECTED RESULT IN AC 9325 036074 312 07 0 00 045143 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9326 036075 003 07 0 00 043661 ER3 AC,43661 ;HIGH PRODUCT FAILED 9327 774000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9328 036076 312 10 0 00 045227 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9329 036077 004 10 0 00 043662 ER4 AC+1,43662 ;LOW PRODUCT FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0189 9330 773777 777777 AEE=YY ;INITIAL C(E) 9331 036100 312 05 0 00 045157 CAME E,[YY] ;WAS C(E) CLOBBERED? 9332 036101 005 05 0 00 043663 ER5 E,43663 ;C(E) WAS CLOBBERED 9333 036102 321 11 0 00 036070 JUMPL AC+2,F43660 ;LOOP ON ERROR SWITCH^ 9334 9335 004367 ADR=ADR+1 9336 010000 000000 XX=XX+XX 9337 767777 777777 YY=YY+YY+1 9338 IFE XX, 9339 IFE , 9340 9341 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9342 770000 000000 V1=XX*YY 9343 IFE , 9344 777577 777777 IFN ,+>*>+-1>> 9345 777577 777777 IFG XX, 9346 IFL XX, 9347 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9348 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9349 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9350 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9351 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9352 9353 010000 000000 F43670: AA1=XX ;INITIAL C(AC) 9354 036103 200 07 0 00 044747 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9355 000000 AA2=0 ;INITIAL C(AC+1) 9356 036104 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9357 767777 777777 AEE=YY ;INITIAL C(E) 9358 036105 200 05 0 00 045161 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9359 036106 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9360 777577 777777 AR1=V2 ;EXPECTED RESULT IN AC 9361 036107 312 07 0 00 045147 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9362 036110 003 07 0 00 043671 ER3 AC,43671 ;HIGH PRODUCT FAILED 9363 770000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9364 036111 312 10 0 00 045230 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9365 036112 004 10 0 00 043672 ER4 AC+1,43672 ;LOW PRODUCT FAILED 9366 767777 777777 AEE=YY ;INITIAL C(E) 9367 036113 312 05 0 00 045161 CAME E,[YY] ;WAS C(E) CLOBBERED? 9368 036114 005 05 0 00 043673 ER5 E,43673 ;C(E) WAS CLOBBERED 9369 036115 321 11 0 00 036103 JUMPL AC+2,F43670 ;LOOP ON ERROR SWITCH^ 9370 9371 004370 ADR=ADR+1 9372 020000 000000 XX=XX+XX 9373 757777 777777 YY=YY+YY+1 9374 IFE XX, 9375 IFE , 9376 9377 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9378 760000 000000 V1=XX*YY 9379 IFE , 9380 776777 777777 IFN ,+>*>+-1>> 9381 776777 777777 IFG XX, 9382 IFL XX, 9383 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9384 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0190 9385 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9386 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9387 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9388 9389 020000 000000 F43700: AA1=XX ;INITIAL C(AC) 9390 036116 200 07 0 00 044752 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9391 000000 AA2=0 ;INITIAL C(AC+1) 9392 036117 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9393 757777 777777 AEE=YY ;INITIAL C(E) 9394 036120 200 05 0 00 045163 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9395 036121 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9396 776777 777777 AR1=V2 ;EXPECTED RESULT IN AC 9397 036122 312 07 0 00 045153 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9398 036123 003 07 0 00 043701 ER3 AC,43701 ;HIGH PRODUCT FAILED 9399 760000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9400 036124 312 10 0 00 045231 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9401 036125 004 10 0 00 043702 ER4 AC+1,43702 ;LOW PRODUCT FAILED 9402 757777 777777 AEE=YY ;INITIAL C(E) 9403 036126 312 05 0 00 045163 CAME E,[YY] ;WAS C(E) CLOBBERED? 9404 036127 005 05 0 00 043703 ER5 E,43703 ;C(E) WAS CLOBBERED 9405 036130 321 11 0 00 036116 JUMPL AC+2,F43700 ;LOOP ON ERROR SWITCH^ 9406 9407 004371 ADR=ADR+1 9408 040000 000000 XX=XX+XX 9409 737777 777777 YY=YY+YY+1 9410 IFE XX, 9411 IFE , 9412 9413 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9414 740000 000000 V1=XX*YY 9415 IFE , 9416 773777 777777 IFN ,+>*>+-1>> 9417 773777 777777 IFG XX, 9418 IFL XX, 9419 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9420 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9421 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9422 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9423 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9424 9425 040000 000000 F43710: AA1=XX ;INITIAL C(AC) 9426 036131 200 07 0 00 044755 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9427 000000 AA2=0 ;INITIAL C(AC+1) 9428 036132 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9429 737777 777777 AEE=YY ;INITIAL C(E) 9430 036133 200 05 0 00 045165 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9431 036134 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9432 773777 777777 AR1=V2 ;EXPECTED RESULT IN AC 9433 036135 312 07 0 00 045157 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9434 036136 003 07 0 00 043711 ER3 AC,43711 ;HIGH PRODUCT FAILED 9435 740000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9436 036137 312 10 0 00 045232 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9437 036140 004 10 0 00 043712 ER4 AC+1,43712 ;LOW PRODUCT FAILED 9438 737777 777777 AEE=YY ;INITIAL C(E) 9439 036141 312 05 0 00 045165 CAME E,[YY] ;WAS C(E) CLOBBERED? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-22 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0191 9440 036142 005 05 0 00 043713 ER5 E,43713 ;C(E) WAS CLOBBERED 9441 036143 321 11 0 00 036131 JUMPL AC+2,F43710 ;LOOP ON ERROR SWITCH^ 9442 9443 004372 ADR=ADR+1 9444 100000 000000 XX=XX+XX 9445 677777 777777 YY=YY+YY+1 9446 IFE XX, 9447 IFE , 9448 9449 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9450 700000 000000 V1=XX*YY 9451 IFE , 9452 757777 777777 IFN ,+>*>+-1>> 9453 757777 777777 IFG XX, 9454 IFL XX, 9455 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9456 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9457 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9458 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9459 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9460 9461 100000 000000 F43720: AA1=XX ;INITIAL C(AC) 9462 036144 200 07 0 00 044760 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9463 000000 AA2=0 ;INITIAL C(AC+1) 9464 036145 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9465 677777 777777 AEE=YY ;INITIAL C(E) 9466 036146 200 05 0 00 045167 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9467 036147 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9468 757777 777777 AR1=V2 ;EXPECTED RESULT IN AC 9469 036150 312 07 0 00 045163 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9470 036151 003 07 0 00 043721 ER3 AC,43721 ;HIGH PRODUCT FAILED 9471 700000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9472 036152 312 10 0 00 045233 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9473 036153 004 10 0 00 043722 ER4 AC+1,43722 ;LOW PRODUCT FAILED 9474 677777 777777 AEE=YY ;INITIAL C(E) 9475 036154 312 05 0 00 045167 CAME E,[YY] ;WAS C(E) CLOBBERED? 9476 036155 005 05 0 00 043723 ER5 E,43723 ;C(E) WAS CLOBBERED 9477 036156 321 11 0 00 036144 JUMPL AC+2,F43720 ;LOOP ON ERROR SWITCH^ 9478 9479 004373 ADR=ADR+1 9480 200000 000000 XX=XX+XX 9481 577777 777777 YY=YY+YY+1 9482 IFE XX, 9483 IFE , 9484 9485 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9486 600000 000000 V1=XX*YY 9487 IFE , 9488 677777 777777 IFN ,+>*>+-1>> 9489 677777 777777 IFG XX, 9490 IFL XX, 9491 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9492 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9493 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9494 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 7-23 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0192 9495 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9496 9497 200000 000000 F43730: AA1=XX ;INITIAL C(AC) 9498 036157 200 07 0 00 044763 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9499 000000 AA2=0 ;INITIAL C(AC+1) 9500 036160 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9501 577777 777777 AEE=YY ;INITIAL C(E) 9502 036161 200 05 0 00 045171 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9503 036162 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9504 677777 777777 AR1=V2 ;EXPECTED RESULT IN AC 9505 036163 312 07 0 00 045167 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9506 036164 003 07 0 00 043731 ER3 AC,43731 ;HIGH PRODUCT FAILED 9507 600000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9508 036165 312 10 0 00 044762 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9509 036166 004 10 0 00 043732 ER4 AC+1,43732 ;LOW PRODUCT FAILED 9510 577777 777777 AEE=YY ;INITIAL C(E) 9511 036167 312 05 0 00 045171 CAME E,[YY] ;WAS C(E) CLOBBERED? 9512 036170 005 05 0 00 043733 ER5 E,43733 ;C(E) WAS CLOBBERED 9513 036171 321 11 0 00 036157 JUMPL AC+2,F43730 ;LOOP ON ERROR SWITCH^ 9514 9515 004374 ADR=ADR+1 9516 400000 000000 XX=XX+XX 9517 377777 777777 YY=YY+YY+1 9518 IFE XX, 9519 IFE , 9520 9521 ;MULTIPLY A FLOATING 0 BY A FLOATING 1 9522 400000 000000 V1=XX*YY 9523 IFE , 9524 777777 777777 IFN ,+>*>+-1>> 9525 IFG XX, 9526 400000 000001 IFL XX, 9527 MOP1 (\ADR,XX,0,YY,V2,V1)^ 9528 ;THIS MACRO INITIALIZES AC,AC+1 AND E WITH [XX],[0] AND 9529 ;[YY] RESPECTIVELY, PERFORMS 'MUL AC,E' AND COMPARES AC,AC+1 9530 ;AND E AGAINST [V2], [V1] AND [YY] RESPECTIVELY. 9531 ;IF ANY OF THE ABOVE COMPARISONS FAIL, AN ERROR IS REPORTED 9532 9533 400000 000000 F43740: AA1=XX ;INITIAL C(AC) 9534 036172 200 07 0 00 044765 MOVE AC,[XX] ;PRELOAD AC (MULTIPLIER) 9535 000000 AA2=0 ;INITIAL C(AC+1) 9536 036173 200 10 0 00 044615 MOVE AC+1,[0] ;PRELOAD AC+1 9537 377777 777777 AEE=YY ;INITIAL C(E) 9538 036174 200 05 0 00 045172 MOVE E,[YY] ;PRELOAD E (MULTIPLICAND) 9539 036175 224 07 0 00 000005 MUL AC,E ;*MULTIPLY C(E) BY C(AC) 9540 400000 000001 AR1=V2 ;EXPECTED RESULT IN AC 9541 036176 312 07 0 00 045234 CAME AC,[V2] ;IS HIGH PRODUCT CORRECT? 9542 036177 003 07 0 00 043741 ER3 AC,43741 ;HIGH PRODUCT FAILED 9543 400000 000000 AR2=V1 ;EXPECTED RESULT IN AC+1 9544 036200 312 10 0 00 044765 CAME AC+1,[V1] ;IS LOW PRODUCT CORRECT? 9545 036201 004 10 0 00 043742 ER4 AC+1,43742 ;LOW PRODUCT FAILED 9546 377777 777777 AEE=YY ;INITIAL C(E) 9547 036202 312 05 0 00 045172 CAME E,[YY] ;WAS C(E) CLOBBERED? 9548 036203 005 05 0 00 043743 ER5 E,43743 ;C(E) WAS CLOBBERED 9549 036204 321 11 0 00 036172 JUMPL AC+2,F43740 ;LOOP ON ERROR SWITCH^ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 8 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0193 9550 ;MULTIPLIER = 2,4 9551 ;MULTIPLICAND = 377777 777777 9552 9553 000014 AC=14 9554 SAVEAC (1,1)^ 9555 036205 201 16 0 00 036205 MOVEI AC+2,. ;SAVE TEST PC 9556 036206 202 16 0 00 030051 MOVEM AC+2,TESTPC 9557 036207 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9558 036210 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9559 9560 000300 SN=300 9561 777777 777777 XX=-1 9562 000002 YY=2 9563 000001 ZZ=1 9564 9565 F300: REPEAT ^D2, 9566 9570 ZZ=ZZ+ZZ 9571 MOVEI AC,ZZ ;SETUP MULTIPLIER 9572 HRLOI AC-1,377777 ;SETUP MULTIPLICAND 9573 MUL AC,AC-1 ;MULTIPLY ZZ X 377777777777 9574 CAME AC,[XX] ;TEST HIGH PROD 9575 ER3 AC,SN 9576 CAME AC+1,[YY] ;TEST LOW PROD 9577 ER4 AC+1,SN 9578 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 9579 > 9580 000301 SN=SN+1 9581 000001 XX=XX+2 9582 000000 YY=YY-2 9583 377777 777776 IFE YY, 9584 000002 ZZ=ZZ+ZZ 9585 036211 201 14 0 00 000002 MOVEI AC,ZZ ;SETUP MULTIPLIER 9586 036212 525 13 0 00 377777 HRLOI AC-1,377777 ;SETUP MULTIPLICAND 9587 036213 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY ZZ X 377777777777 9588 036214 312 14 0 00 044616 CAME AC,[XX] ;TEST HIGH PROD 9589 036215 003 14 0 00 000301 ER3 AC,SN 9590 036216 312 15 0 00 045173 CAME AC+1,[YY] ;TEST LOW PROD 9591 036217 004 15 0 00 000301 ER4 AC+1,SN 9592 036220 321 16 0 00 036211 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 9593 9594 000302 SN=SN+1 9595 000003 XX=XX+2 9596 377777 777774 YY=YY-2 9597 IFE YY, 9598 000004 ZZ=ZZ+ZZ 9599 036221 201 14 0 00 000004 MOVEI AC,ZZ ;SETUP MULTIPLIER 9600 036222 525 13 0 00 377777 HRLOI AC-1,377777 ;SETUP MULTIPLICAND 9601 036223 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY ZZ X 377777777777 9602 036224 312 14 0 00 045235 CAME AC,[XX] ;TEST HIGH PROD 9603 036225 003 14 0 00 000302 ER3 AC,SN 9604 036226 312 15 0 00 045236 CAME AC+1,[YY] ;TEST LOW PROD DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 8-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0194 9605 036227 004 15 0 00 000302 ER4 AC+1,SN 9606 036230 321 16 0 00 036221 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 9607 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 9 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0195 9608 ;TEST MQ FINAL SHIFT 9609 ;MULTIPLIER = 200000 000000 9610 ;MULTIPLICAND = 5,7 9611 9612 000007 AC=7 9613 SAVEAC (1,1)^ 9614 036231 201 11 0 00 036231 MOVEI AC+2,. ;SAVE TEST PC 9615 036232 202 11 0 00 030051 MOVEM AC+2,TESTPC 9616 036233 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9617 036234 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9618 9619 000500 SN=500 9620 000001 XX=1 9621 000003 ZZ=3 9622 9623 F500: REPEAT ^D2, ;TEST MQSHRT FAILING 9624 9638 000501 SN=SN+1 9639 000002 XX=XX+1 9640 000005 ZZ=ZZ+2 9641 036235 205 05 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 9642 036236 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 9643 036237 201 06 0 00 000005 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 9644 036240 224 07 0 00 000006 MUL AC,AC-1 ;MUL 200000 000000 X ZZ 9645 036241 312 10 0 00 000005 CAME AC+1,AC-2 ;TEST LOW PROD 9646 036242 004 10 0 00 000501 ER4 AC+1,SN 9647 036243 201 05 0 00 000002 MOVEI AC-2,XX ;SETUP FOR COMPARISON 9648 036244 312 07 0 00 000005 CAME AC,AC-2 ;TEST HIGH PROD 9649 036245 003 07 0 00 000501 ER3 AC,SN 9650 036246 321 11 0 00 036235 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9651 9652 000502 SN=SN+1 9653 000003 XX=XX+1 9654 000007 ZZ=ZZ+2 9655 036247 205 05 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 9656 036250 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 9657 036251 201 06 0 00 000007 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 9658 036252 224 07 0 00 000006 MUL AC,AC-1 ;MUL 200000 000000 X ZZ 9659 036253 312 10 0 00 000005 CAME AC+1,AC-2 ;TEST LOW PROD 9660 036254 004 10 0 00 000502 ER4 AC+1,SN 9661 036255 201 05 0 00 000003 MOVEI AC-2,XX ;SETUP FOR COMPARISON 9662 036256 312 07 0 00 000005 CAME AC,AC-2 ;TEST HIGH PROD DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 9-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0196 9663 036257 003 07 0 00 000502 ER3 AC,SN 9664 036260 321 11 0 00 036247 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9665 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 10 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0197 9666 ;MULTIPLIER = 10,20 9667 ;MULTIPLICAND = 377777 777777 9668 9669 000011 AC=11 9670 SAVEAC (1,1)^ 9671 036261 201 13 0 00 036261 MOVEI AC+2,. ;SAVE TEST PC 9672 036262 202 13 0 00 030051 MOVEM AC+2,TESTPC 9673 036263 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9674 036264 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9675 9676 000700 SN=700 9677 777777 777777 XX=-1 9678 000004 ZZ=4 9679 9680 F700: REPEAT ^D2, ;TEST ARSHRT FAILING 9681 9693 000701 SN=SN+1 9694 000007 XX=XX+10 9695 000010 ZZ=ZZ+ZZ 9696 036265 201 11 0 00 000010 MOVEI AC,ZZ ;SETUP MULTIPLIER 9697 036266 525 10 0 00 377777 HRLOI AC-1,377777 ;SETUP MULTIPLICAND 9698 036267 224 11 0 00 000010 MUL AC,AC-1 ;MUL. ZZ X 377777 777777 9699 036270 312 12 0 00 045237 CAME AC+1,[ZZ*377777777777] ;TEST LOW PROD 9700 036271 004 12 0 00 000701 ER4 AC+1,SN ;ARSHRT ASSERTED 9701 036272 312 11 0 00 045240 CAME AC,[XX] ;TEST HIGH PROD = PLIER 9702 036273 003 11 0 00 000701 ER3 AC,SN 9703 036274 321 13 0 00 036264 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 9704 9705 000702 SN=SN+1 9706 000017 XX=XX+10 9707 000020 ZZ=ZZ+ZZ 9708 036275 201 11 0 00 000020 MOVEI AC,ZZ ;SETUP MULTIPLIER 9709 036276 525 10 0 00 377777 HRLOI AC-1,377777 ;SETUP MULTIPLICAND 9710 036277 224 11 0 00 000010 MUL AC,AC-1 ;MUL. ZZ X 377777 777777 9711 036300 312 12 0 00 045241 CAME AC+1,[ZZ*377777777777] ;TEST LOW PROD 9712 036301 004 12 0 00 000702 ER4 AC+1,SN ;ARSHRT ASSERTED 9713 036302 312 11 0 00 045242 CAME AC,[XX] ;TEST HIGH PROD = PLIER 9714 036303 003 11 0 00 000702 ER3 AC,SN 9715 036304 321 13 0 00 036274 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 9716 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 11 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0198 9717 ;MULTIPLIER = 0 9718 ;MULTIPLICAND = -15,-13 9719 9720 000010 AC=10 9721 SAVEAC (1,1)^ 9722 036305 201 12 0 00 036305 MOVEI AC+2,. ;SAVE TEST PC 9723 036306 202 12 0 00 030051 MOVEM AC+2,TESTPC 9724 036307 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9725 036310 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9726 9727 001000 SN=1000 9728 777777 777761 ZZ=-17 9729 9730 F1000: REPEAT ^D2, ;TEST MQSHRT FAILING 9731 9742 001001 SN=SN+1 9743 777777 777763 ZZ=ZZ+2 9744 036311 400 10 0 00 000000 SETZ AC, ;SETUP MULTIPLIER 9745 036312 561 07 0 00 777763 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 9746 036313 224 10 0 00 000007 MUL AC,AC-1 ;MULTIPLY 0 X -ZZ 9747 036314 332 00 0 00 000011 SKIPE AC+1 ;TEST LOW PROD 9748 036315 004 11 0 00 001001 ER4 AC+1,SN 9749 036316 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD 9750 036317 003 10 0 00 001001 ER3 AC,SN 9751 036320 321 12 0 00 036310 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 9752 9753 001002 SN=SN+1 9754 777777 777765 ZZ=ZZ+2 9755 036321 400 10 0 00 000000 SETZ AC, ;SETUP MULTIPLIER 9756 036322 561 07 0 00 777765 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 9757 036323 224 10 0 00 000007 MUL AC,AC-1 ;MULTIPLY 0 X -ZZ 9758 036324 332 00 0 00 000011 SKIPE AC+1 ;TEST LOW PROD 9759 036325 004 11 0 00 001002 ER4 AC+1,SN 9760 036326 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD 9761 036327 003 10 0 00 001002 ER3 AC,SN 9762 036330 321 12 0 00 036320 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 9763 9764 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 11-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0199 9765 ;MULTIPLIER = -2,-4 9766 ;MULTIPLICAND = 0 9767 9768 000007 AC=7 9769 SAVEAC (1,1)^ 9770 036331 201 11 0 00 036331 MOVEI AC+2,. ;SAVE TEST PC 9771 036332 202 11 0 00 030051 MOVEM AC+2,TESTPC 9772 036333 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9773 036334 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9774 9775 001100 SN=1100 9776 000000 XX=0 9777 777777 777777 ZZ=-1 9778 9779 F1100: REPEAT ^D2, 9780 9784 HRROI AC,ZZ ;SETUP MULTIPLIER 9785 SETZ AC-1, ;SETUP MULTIPLICAND 9786 MUL AC,AC-1 ;MULTIPLY ZZ X 0 9787 SKIPE AC+1 ;TEST LOW PROD 9788 ER4 AC+1,SN 9789 SKIPE AC ;TEST HIGH PROD 9790 ER3 AC,SN 9791 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9792 > 9793 001101 SN=SN+1 9794 000000 XX=XX+XX 9795 777777 777776 ZZ=ZZ+ZZ 9796 777777 777777 IFE XX, 9797 036335 561 07 0 00 777776 HRROI AC,ZZ ;SETUP MULTIPLIER 9798 036336 400 06 0 00 000000 SETZ AC-1, ;SETUP MULTIPLICAND 9799 036337 224 07 0 00 000006 MUL AC,AC-1 ;MULTIPLY ZZ X 0 9800 036340 332 00 0 00 000010 SKIPE AC+1 ;TEST LOW PROD 9801 036341 004 10 0 00 001101 ER4 AC+1,SN 9802 036342 332 00 0 00 000007 SKIPE AC ;TEST HIGH PROD 9803 036343 003 07 0 00 001101 ER3 AC,SN 9804 036344 321 11 0 00 036333 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9805 9806 001102 SN=SN+1 9807 777777 777776 XX=XX+XX 9808 777777 777774 ZZ=ZZ+ZZ 9809 IFE XX, 9810 036345 561 07 0 00 777774 HRROI AC,ZZ ;SETUP MULTIPLIER 9811 036346 400 06 0 00 000000 SETZ AC-1, ;SETUP MULTIPLICAND 9812 036347 224 07 0 00 000006 MUL AC,AC-1 ;MULTIPLY ZZ X 0 9813 036350 332 00 0 00 000010 SKIPE AC+1 ;TEST LOW PROD 9814 036351 004 10 0 00 001102 ER4 AC+1,SN 9815 036352 332 00 0 00 000007 SKIPE AC ;TEST HIGH PROD 9816 036353 003 07 0 00 001102 ER3 AC,SN 9817 036354 321 11 0 00 036343 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9818 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 12 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0200 9819 ;MULTIPLIER = 2,4 9820 ;MULTIPLICAND = 5 9821 9822 000014 AC=14 9823 SAVEAC (1,1)^ 9824 036355 201 16 0 00 036355 MOVEI AC+2,. ;SAVE TEST PC 9825 036356 202 16 0 00 030051 MOVEM AC+2,TESTPC 9826 036357 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9827 036360 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9828 9829 001400 SN=1400 9830 000005 XX=5 9831 000001 ZZ=1 9832 9833 F1400: REPEAT ^D2, 9834 9848 001401 SN=SN+1 9849 000012 XX=XX+XX 9850 000002 ZZ=ZZ+ZZ 9851 036361 551 12 0 00 000012 HRRZI AC-2,XX ;SETUP FOR COMPARISON 9852 036362 201 14 0 00 000002 MOVEI AC,ZZ ;SETUP MULTIPLIER 9853 036363 201 13 0 00 000005 MOVEI AC-1,5 ;SETUP MULTIPLICAND 9854 036364 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY ZZ X 5 9855 036365 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST LOW PROD 9856 036366 004 15 0 00 001401 ER4 AC+1,SN 9857 036367 474 12 0 00 000000 SETO AC-2, ;SET FOR COMPARISON 9858 036370 332 00 0 00 000014 SKIPE AC ;TEST HIGH PROD 9859 036371 003 14 0 00 001401 ER3 AC,SN 9860 036372 321 16 0 00 036361 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9861 9862 001402 SN=SN+1 9863 000024 XX=XX+XX 9864 000004 ZZ=ZZ+ZZ 9865 036373 551 12 0 00 000024 HRRZI AC-2,XX ;SETUP FOR COMPARISON 9866 036374 201 14 0 00 000004 MOVEI AC,ZZ ;SETUP MULTIPLIER 9867 036375 201 13 0 00 000005 MOVEI AC-1,5 ;SETUP MULTIPLICAND 9868 036376 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY ZZ X 5 9869 036377 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST LOW PROD 9870 036400 004 15 0 00 001402 ER4 AC+1,SN 9871 036401 474 12 0 00 000000 SETO AC-2, ;SET FOR COMPARISON 9872 036402 332 00 0 00 000014 SKIPE AC ;TEST HIGH PROD 9873 036403 003 14 0 00 001402 ER3 AC,SN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 12-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0201 9874 036404 321 16 0 00 036373 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9875 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 13 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0202 9876 ;MULTIPLIER = 200000 000000,100000 000000 9877 ;MULTIPLICAND = 25 9878 9879 000011 AC=11 9880 SAVEAC (1,1)^ 9881 036405 201 13 0 00 036405 MOVEI AC+2,. ;SAVE TEST PC 9882 036406 202 13 0 00 030051 MOVEM AC+2,TESTPC 9883 036407 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9884 036410 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9885 9886 002000 SN=2000 9887 377777 XX=377777 9888 000024 YY=24 9889 000000 ZZ=0 9890 9891 F2000: REPEAT ^D2, 9892 9897 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 9898 MOVSI AC,ZZ ;SETUP MULTIPLIER 9899 MOVEI AC-1,25 ;SETUP MULTIPLICAND 9900 MUL AC,AC-1 ;MULTIPLY ZZ X 25 9901 CAME AC+1,AC-2 ;TEST LOW PROD 9902 ER4 AC+1,SN 9903 MOVEI AC-2,YY ;SET FOR COMPARISON 9904 CAME AC,AC-2 ;TEST HIGH PROD 9905 ER3 AC,SN 9906 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9907 > 9908 002001 SN=SN+1 9909 177777 XX=XX/2 9910 000012 YY=YY/2 9911 000000 ZZ=ZZ/2 9912 200000 IFE ZZ, 9913 036411 205 07 0 00 200000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 9914 036412 205 11 0 00 200000 MOVSI AC,ZZ ;SETUP MULTIPLIER 9915 036413 201 10 0 00 000025 MOVEI AC-1,25 ;SETUP MULTIPLICAND 9916 036414 224 11 0 00 000010 MUL AC,AC-1 ;MULTIPLY ZZ X 25 9917 036415 312 12 0 00 000007 CAME AC+1,AC-2 ;TEST LOW PROD 9918 036416 004 12 0 00 002001 ER4 AC+1,SN 9919 036417 201 07 0 00 000012 MOVEI AC-2,YY ;SET FOR COMPARISON 9920 036420 312 11 0 00 000007 CAME AC,AC-2 ;TEST HIGH PROD 9921 036421 003 11 0 00 002001 ER3 AC,SN 9922 036422 321 13 0 00 036411 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9923 9924 002002 SN=SN+1 9925 077777 XX=XX/2 9926 000005 YY=YY/2 9927 100000 ZZ=ZZ/2 9928 IFE ZZ, 9929 036423 205 07 0 00 100000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 9930 036424 205 11 0 00 100000 MOVSI AC,ZZ ;SETUP MULTIPLIER DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 13-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0203 9931 036425 201 10 0 00 000025 MOVEI AC-1,25 ;SETUP MULTIPLICAND 9932 036426 224 11 0 00 000010 MUL AC,AC-1 ;MULTIPLY ZZ X 25 9933 036427 312 12 0 00 000007 CAME AC+1,AC-2 ;TEST LOW PROD 9934 036430 004 12 0 00 002002 ER4 AC+1,SN 9935 036431 201 07 0 00 000005 MOVEI AC-2,YY ;SET FOR COMPARISON 9936 036432 312 11 0 00 000007 CAME AC,AC-2 ;TEST HIGH PROD 9937 036433 003 11 0 00 002002 ER3 AC,SN 9938 036434 321 13 0 00 036423 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 9939 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 14 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0204 9940 ;INPUT ONE'S- 9941 ;MULTIPLIER = 400000 000000 9942 ;MULTIPLICAND = -20,-40 9943 9944 000006 AC=6 9945 SAVEAC (1,1)^ 9946 036435 201 10 0 00 036435 MOVEI AC+2,. ;SAVE TEST PC 9947 036436 202 10 0 00 030051 MOVEM AC+2,TESTPC 9948 036437 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 9949 036440 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 9950 9951 002200 SN=2200 9952 777777 777770 ZZ=-10 9953 000010 XX=10 9954 9955 F2200: REPEAT ^D2, 9956 &17 ;TEST LOW PROD 9965 ER4 AC+1,SN 9966 JUMPL AC+2,.-^D7 ;LOOP ON ERROR SWITCH 9967 > 9968 002201 SN=SN+1 9969 777777 777760 ZZ=ZZ+ZZ 9970 000020 XX=XX+XX 9971 036441 205 06 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 9972 036442 561 05 0 00 777760 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 9973 036443 224 06 0 00 000005 MUL AC,AC-1 ;MUL.400000 000000 X ZZ 9974 036444 302 06 0 00 000020 CAIE AC,XX ;TEST HIGH PROD 9975 036445 003 06 0 00 002201 ER3 AC,SN 9976 036446 332 00 0 00 000007 SKIPE &17 ;TEST LOW PROD 9977 036447 004 07 0 00 002201 ER4 AC+1,SN 9978 036450 321 10 0 00 036441 JUMPL AC+2,.-^D7 ;LOOP ON ERROR SWITCH 9979 9980 002202 SN=SN+1 9981 777777 777740 ZZ=ZZ+ZZ 9982 000040 XX=XX+XX 9983 036451 205 06 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 9984 036452 561 05 0 00 777740 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 9985 036453 224 06 0 00 000005 MUL AC,AC-1 ;MUL.400000 000000 X ZZ 9986 036454 302 06 0 00 000040 CAIE AC,XX ;TEST HIGH PROD 9987 036455 003 06 0 00 002202 ER3 AC,SN 9988 036456 332 00 0 00 000007 SKIPE &17 ;TEST LOW PROD 9989 036457 004 07 0 00 002202 ER4 AC+1,SN 9990 036460 321 10 0 00 036451 JUMPL AC+2,.-^D7 ;LOOP ON ERROR SWITCH 9991 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 15 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0205 9992 ;MULTIPLIER = 10,20 9993 ;MULTIPLICAND = 4 9994 9995 000005 AC=5 9996 SAVEAC (1,1)^ 9997 036461 201 07 0 00 036461 MOVEI AC+2,. ;SAVE TEST PC 9998 036462 202 07 0 00 030051 MOVEM AC+2,TESTPC 9999 036463 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10000 036464 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10001 10002 002400 SN=2400 10003 000020 XX=20 10004 000004 ZZ=4 10005 F2400: REPEAT ^D2, 10006 10019 002401 SN=SN+1 10020 000040 XX=XX+XX 10021 000010 ZZ=ZZ+ZZ 10022 036465 201 03 0 00 000040 MOVEI AC-2,XX ;SETUP FOR COMPARISON 10023 036466 201 05 0 00 000010 MOVEI AC,ZZ ;SETUP MULTIPLIER 10024 036467 201 04 0 00 000004 MOVEI AC-1,4 ;SETUP MULTIPLICAND 10025 036470 224 05 0 00 000004 MUL AC,AC-1 ;MULTIPLY ZZ X 4 10026 036471 312 06 0 00 000003 CAME AC+1,AC-2 ;TEST LOW PROD 10027 036472 004 06 0 00 002401 ER4 AC+1,SN 10028 036473 332 00 0 00 000005 SKIPE AC ;TEST HIGH PRODUCT 10029 036474 003 05 0 00 002401 ER3 AC,SN 10030 036475 321 07 0 00 036465 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10031 10032 002402 SN=SN+1 10033 000100 XX=XX+XX 10034 000020 ZZ=ZZ+ZZ 10035 036476 201 03 0 00 000100 MOVEI AC-2,XX ;SETUP FOR COMPARISON 10036 036477 201 05 0 00 000020 MOVEI AC,ZZ ;SETUP MULTIPLIER 10037 036500 201 04 0 00 000004 MOVEI AC-1,4 ;SETUP MULTIPLICAND 10038 036501 224 05 0 00 000004 MUL AC,AC-1 ;MULTIPLY ZZ X 4 10039 036502 312 06 0 00 000003 CAME AC+1,AC-2 ;TEST LOW PROD 10040 036503 004 06 0 00 002402 ER4 AC+1,SN 10041 036504 332 00 0 00 000005 SKIPE AC ;TEST HIGH PRODUCT 10042 036505 003 05 0 00 002402 ER3 AC,SN 10043 036506 321 07 0 00 036476 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10044 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 16 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0206 10045 ;MULTIPLIER = 1,2 10046 ;MULTIPLICAND = 200000 000000,100000 000000 10047 10048 000014 AC=14 10049 SAVEAC (1,1)^ 10050 036507 201 16 0 00 036507 MOVEI AC+2,. ;SAVE TEST PC 10051 036510 202 16 0 00 030051 MOVEM AC+2,TESTPC 10052 036511 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10053 036512 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10054 10055 003300 SN=3300 10056 000000 XX=0 10057 000000 ZZ=0 10058 10059 F3300: REPEAT ^D2, 10060 10064 IFE ZZ, 10065 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10066 SETO AC+1, ;INITIALIZE AC+1 10067 MOVEI AC,XX ;SETUP MULTIPLIER 10068 MOVSI AC-1,ZZ ;SETUP MULTIPLICAND 10069 MUL AC,AC-1 ;MULTIPLY TWO VARIABLES 10070 SKIPE AC ;TEST HIGH PROD 10071 ER3 AC,SN 10072 CAME AC+1,AC-2 ;TEST LOW PRODUCT 10073 ER4 AC+1,SN 10074 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10075 > 10076 003301 SN=SN+1 10077 000000 XX=XX+XX 10078 000000 ZZ=ZZ/2 10079 000001 IFE XX, 10080 200000 IFE ZZ, 10081 036513 205 12 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10082 036514 474 15 0 00 000000 SETO AC+1, ;INITIALIZE AC+1 10083 036515 201 14 0 00 000001 MOVEI AC,XX ;SETUP MULTIPLIER 10084 036516 205 13 0 00 200000 MOVSI AC-1,ZZ ;SETUP MULTIPLICAND 10085 036517 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY TWO VARIABLES 10086 036520 332 00 0 00 000014 SKIPE AC ;TEST HIGH PROD 10087 036521 003 14 0 00 003301 ER3 AC,SN 10088 036522 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST LOW PRODUCT 10089 036523 004 15 0 00 003301 ER4 AC+1,SN 10090 036524 321 16 0 00 036514 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10091 10092 003302 SN=SN+1 10093 000002 XX=XX+XX 10094 100000 ZZ=ZZ/2 10095 IFE XX, 10096 IFE ZZ, 10097 036525 205 12 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10098 036526 474 15 0 00 000000 SETO AC+1, ;INITIALIZE AC+1 10099 036527 201 14 0 00 000002 MOVEI AC,XX ;SETUP MULTIPLIER DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 16-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0207 10100 036530 205 13 0 00 100000 MOVSI AC-1,ZZ ;SETUP MULTIPLICAND 10101 036531 224 14 0 00 000013 MUL AC,AC-1 ;MULTIPLY TWO VARIABLES 10102 036532 332 00 0 00 000014 SKIPE AC ;TEST HIGH PROD 10103 036533 003 14 0 00 003302 ER3 AC,SN 10104 036534 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST LOW PRODUCT 10105 036535 004 15 0 00 003302 ER4 AC+1,SN 10106 036536 321 16 0 00 036526 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10107 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 17 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0208 10108 ;MUL 10109 ;MULTIPLIER = 400000 000000 10110 ;MULTIPLICAND = -1,-2 10111 10112 000012 AC=12 10113 SAVEAC^ 10114 036537 201 14 0 00 036537 MOVEI AC+2,. ;SAVE TEST PC 10115 036540 202 14 0 00 030051 MOVEM AC+2,TESTPC 10116 036541 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10117 036542 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10118 10119 004000 SN=4000 10120 000000 XX=0 10121 000000 ZZ=0 10122 10123 F4000: REPEAT ^D2, 10124 10136 004001 SN=SN+1 10137 000001 XX=XX+1 10138 777777 777777 ZZ=ZZ-1 10139 036543 205 12 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10140 036544 561 11 0 00 777777 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10141 036545 224 12 0 00 000011 MUL AC,AC-1 ;MULTIPLY TWO NEGATIVES 10142 036546 302 12 0 00 000001 CAIE AC,XX 10143 036547 003 12 0 00 004001 ER3 AC,SN 10144 036550 332 00 0 00 000013 SKIPE AC+1 ;TEST LOW PROD 10145 036551 004 13 0 00 004001 ER4 AC+1,SN 10146 036552 321 14 0 00 036543 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 10147 10148 004002 SN=SN+1 10149 000002 XX=XX+1 10150 777777 777776 ZZ=ZZ-1 10151 036553 205 12 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10152 036554 561 11 0 00 777776 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10153 036555 224 12 0 00 000011 MUL AC,AC-1 ;MULTIPLY TWO NEGATIVES 10154 036556 302 12 0 00 000002 CAIE AC,XX 10155 036557 003 12 0 00 004002 ER3 AC,SN 10156 036560 332 00 0 00 000013 SKIPE AC+1 ;TEST LOW PROD 10157 036561 004 13 0 00 004002 ER4 AC+1,SN 10158 036562 321 14 0 00 036553 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 10159 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 18 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0209 10160 ;TEST MUL-IMMEDIATE MODE 10161 ;TEST THE ABILITY TO MULTIPLY WITH 10162 ;EFFECTIVE ADDRESS AS MULTIPLICAND 10163 ;MULTIPLIER = 1 10164 ;MULTIPLICAND = E 10165 10166 004200 SN=4200 10167 000011 AC=11 10168 10169 F4200: REPEAT ^D2, ;TEST IMMEDIATE MODE 10170 10183 004201 SN=SN+1 10184 000010 AC=AC-1 10185 SAVEAC (1,1)^ 10186 036563 201 12 0 00 036563 MOVEI AC+2,. ;SAVE TEST PC 10187 036564 202 12 0 00 030051 MOVEM AC+2,TESTPC 10188 036565 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10189 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE AC FOR ITERAT 10190 036566 202 12 0 00 045454 ION 10191 036567 201 06 0 00 000007 MOVEI AC-2,AC-1 ;SETUP FOR COMPARISON 10192 036570 201 10 0 00 000001 MOVEI AC,1 ;SETUP MULTIPLIER 10193 036571 561 07 0 00 777777 HRROI AC-1,-1 ;SETUP AC-1 10194 036572 225 10 0 00 000007 MULI AC,AC-1 ;MULTIPLY 1 X E 10195 036573 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD 10196 036574 004 11 0 00 004201 ER4 AC+1,SN ;MULTIPLIED BY C(E) VICE E 10197 036575 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD 10198 036576 003 10 0 00 004201 ER3 AC,SN 10199 036577 321 12 0 00 036567 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10200 10201 004202 SN=SN+1 10202 000007 AC=AC-1 10203 SAVEAC (1,1)^ 10204 036600 201 11 0 00 036600 MOVEI AC+2,. ;SAVE TEST PC 10205 036601 202 11 0 00 030051 MOVEM AC+2,TESTPC 10206 036602 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10207 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE AC FOR ITERAT 10208 036603 202 11 0 00 045454 ION 10209 036604 201 05 0 00 000006 MOVEI AC-2,AC-1 ;SETUP FOR COMPARISON 10210 036605 201 07 0 00 000001 MOVEI AC,1 ;SETUP MULTIPLIER 10211 036606 561 06 0 00 777777 HRROI AC-1,-1 ;SETUP AC-1 10212 036607 225 07 0 00 000006 MULI AC,AC-1 ;MULTIPLY 1 X E 10213 036610 312 10 0 00 000005 CAME AC+1,AC-2 ;TEST LOW PROD 10214 036611 004 10 0 00 004202 ER4 AC+1,SN ;MULTIPLIED BY C(E) VICE E DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 18-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0210 10215 036612 332 00 0 00 000007 SKIPE AC ;TEST HIGH PROD 10216 036613 003 07 0 00 004202 ER3 AC,SN 10217 036614 321 11 0 00 036604 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 10218 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 19 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0211 10219 ;TEST MUL-MEMORY MODE 10220 ;TEST SC(E), PRODUCT HIGH ORDER PART 10221 ;TEST ABILITY TO ASSERT SAC INH 10222 ;TEST ABILITY TO INHIBIT SAC2-PRODUCT LOW 10223 ;ORDER PART IS LOST 10224 ;MULTIPLIER = 200000 000000 10225 ;MULTIPLICAND = 2,4 10226 10227 000007 AC=7 10228 SAVEAC^ 10229 036615 201 11 0 00 036615 MOVEI AC+2,. ;SAVE TEST PC 10230 036616 202 11 0 00 030051 MOVEM AC+2,TESTPC 10231 036617 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10232 036620 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10233 10234 004300 SN=4300 10235 000001 ZZ=1 10236 10237 F4300: REPEAT ^D2, ;TEST SCE 10238 10253 004301 SN=SN+1 10254 000002 ZZ=ZZ+ZZ 10255 036621 205 05 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10256 036622 402 00 0 00 000010 SETZM AC+1 ;SETUP AC+1 10257 036623 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10258 036624 201 06 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10259 036625 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10260 036626 312 07 0 00 000005 CAME AC,AC-2 ;TEST AC 10261 036627 003 07 0 00 004301 ER3 AC,SN ;C(AC) WAS CLOBBERED 10262 036630 332 00 0 00 000010 SKIPE AC+1 ;TEST AC+1 10263 036631 004 10 0 00 004301 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 10264 036632 302 06 0 00 000001 CAIE AC-1,ZZ/2 ;TEST PRODUCT 10265 036633 005 06 0 00 004301 ER5 AC-1,SN 10266 036634 321 11 0 00 036623 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 10267 10268 004302 SN=SN+1 10269 000004 ZZ=ZZ+ZZ 10270 036635 205 05 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10271 036636 402 00 0 00 000010 SETZM AC+1 ;SETUP AC+1 10272 036637 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10273 036640 201 06 0 00 000004 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 19-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0212 10274 036641 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10275 036642 312 07 0 00 000005 CAME AC,AC-2 ;TEST AC 10276 036643 003 07 0 00 004302 ER3 AC,SN ;C(AC) WAS CLOBBERED 10277 036644 332 00 0 00 000010 SKIPE AC+1 ;TEST AC+1 10278 036645 004 10 0 00 004302 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 10279 036646 302 06 0 00 000002 CAIE AC-1,ZZ/2 ;TEST PRODUCT 10280 036647 005 06 0 00 004302 ER5 AC-1,SN 10281 036650 321 11 0 00 036637 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 10282 10283 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 19-2 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0213 10284 004400 SN=4400 10285 000001 ZZ=1 10286 10287 F4400: REPEAT ^D2, ;TEST SAC INH 10288 10297 004401 SN=SN+1 10298 000002 ZZ=ZZ+ZZ 10299 036651 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10300 036652 201 06 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10301 036653 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10302 036654 607 07 0 00 200000 TLNN AC,200000 ;TEST FOR ORIGINAL CONTENTS 10303 036655 003 07 0 00 004401 ER3 AC,SN 10304 036656 321 11 0 00 036651 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 10305 10306 004402 SN=SN+1 10307 000004 ZZ=ZZ+ZZ 10308 036657 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10309 036660 201 06 0 00 000004 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10310 036661 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10311 036662 607 07 0 00 200000 TLNN AC,200000 ;TEST FOR ORIGINAL CONTENTS 10312 036663 003 07 0 00 004402 ER3 AC,SN 10313 036664 321 11 0 00 036657 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 10314 10315 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 19-3 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0214 10316 004500 SN=4500 10317 000001 ZZ=1 10318 10319 F4500: REPEAT ^D2, ;TEST SAC2 ASSERTED 10320 10330 004501 SN=SN+1 10331 000002 ZZ=ZZ+ZZ 10332 036665 400 10 0 00 000000 SETZ AC+1, ;CLEAR AC+1 10333 036666 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10334 036667 201 06 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10335 036670 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10336 036671 332 00 0 00 000010 SKIPE AC+1 ;TEST FOR ORIGINAL CONTENTS 10337 036672 004 10 0 00 004501 ER4 AC+1,SN 10338 036673 321 11 0 00 036665 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10339 10340 004502 SN=SN+1 10341 000004 ZZ=ZZ+ZZ 10342 036674 400 10 0 00 000000 SETZ AC+1, ;CLEAR AC+1 10343 036675 205 07 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10344 036676 201 06 0 00 000004 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10345 036677 226 07 0 00 000006 MULM AC,AC-1 ;MUL 200000 000000 X ZZ 10346 036700 332 00 0 00 000010 SKIPE AC+1 ;TEST FOR ORIGINAL CONTENTS 10347 036701 004 10 0 00 004502 ER4 AC+1,SN 10348 036702 321 11 0 00 036674 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 10349 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 20 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0215 10350 ;TEST MUL-BOTH MODE 10351 ;TEST ABILITY TO STORE PRODUCT HIGH ORDER 10352 ;PART IN AC,E 10353 ;TEST ABILITY TO STORE PRODUCT LOW ORDER 10354 ;PART IN AC+1 10355 ;MULTIPLIER = 200000 000000 10356 ;MULTIPLICAND = 5,7 10357 10358 000006 AC=6 10359 SAVEAC (1,1)^ 10360 036703 201 10 0 00 036703 MOVEI AC+2,. ;SAVE TEST PC 10361 036704 202 10 0 00 030051 MOVEM AC+2,TESTPC 10362 036705 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10363 036706 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10364 10365 004600 SN=4600 10366 000001 XX=1 10367 000003 ZZ=3 10368 10369 F4600: REPEAT ^D2, 10370 10386 004601 SN=SN+1 10387 000002 XX=XX+1 10388 000005 ZZ=ZZ+2 10389 036707 205 04 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10390 036710 402 00 0 00 000007 SETZM AC+1 ;SETUP FOR COMPARISON 10391 036711 205 06 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10392 036712 201 05 0 00 000005 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10393 036713 227 06 0 00 000005 MULB AC,AC-1 ;MUL 200000 000000 X ZZ 10394 036714 312 06 0 00 000005 CAME AC,AC-1 ;TEST C(AC) = C (E) 10395 036715 003 06 0 00 004601 ER3 AC,SN ;SCE FAILED 10396 036716 312 07 0 00 000004 CAME AC+1,AC-2 ;TEST LOW PROD 10397 036717 004 07 0 00 004601 ER4 AC+1,SN 10398 036720 302 05 0 00 000002 CAIE AC-1,XX ;TEST LOW PROD 10399 036721 005 05 0 00 004601 ER5 AC-1,SN 10400 036722 321 10 0 00 036707 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10401 10402 004602 SN=SN+1 10403 000003 XX=XX+1 10404 000007 ZZ=ZZ+2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 20-1 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0216 10405 036723 205 04 0 00 200000 MOVSI AC-2,200000 ;SETUP FOR COMPARISON 10406 036724 402 00 0 00 000007 SETZM AC+1 ;SETUP FOR COMPARISON 10407 036725 205 06 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10408 036726 201 05 0 00 000007 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10409 036727 227 06 0 00 000005 MULB AC,AC-1 ;MUL 200000 000000 X ZZ 10410 036730 312 06 0 00 000005 CAME AC,AC-1 ;TEST C(AC) = C (E) 10411 036731 003 06 0 00 004602 ER3 AC,SN ;SCE FAILED 10412 036732 312 07 0 00 000004 CAME AC+1,AC-2 ;TEST LOW PROD 10413 036733 004 07 0 00 004602 ER4 AC+1,SN 10414 036734 302 05 0 00 000003 CAIE AC-1,XX ;TEST LOW PROD 10415 036735 005 05 0 00 004602 ER5 AC-1,SN 10416 036736 321 10 0 00 036723 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10417 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 21 DSKAL1 MAC 29-Mar-78 10:10 MAIN TESTING SEQ 0217 10418 ;TEST AROV SET-MUL 10419 ;MULTIPLIER = 400000 000000 10420 ;MULTIPLICAND = 400000 000000 10421 ;PRODUCT = 400000 000000 400000 000000 10422 ;AROV IS SET 10423 10424 036737 254 02 1 00 045243 F4710: JRSTF @@[.+1] ;CLEAR ALL FLAGS 10425 036740 205 06 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10426 036741 205 04 0 00 400000 MOVSI AC-2,400000 ;SETUP MULTIPLICAND 10427 036742 224 06 0 00 000004 MUL AC,AC-2 10428 036743 265 03 0 00 036744 JSP AC-3,.+1 ;SAVE FLAGS 10429 036744 312 06 0 00 044765 CAME AC,[1B0] ;TEST HIGH PRODUCT 10430 036745 003 06 0 00 004711 ER3 AC,4711 10431 036746 312 07 0 00 044765 CAME AC+1,[1B0] ;TEST LOW PRODUCT 10432 036747 004 07 0 00 004711 ER4 AC+1,4711 10433 036750 255 10 0 00 036752 JOV .+2 ;TEST AROV 10434 036751 013 03 0 00 004711 ER13 AC-3,4711 ;FAIL IF AROV NOT SET 10435 036752 321 10 0 00 036737 JUMPL AC+2,F4710 ;LOOP ON ERROR SWITCH 10436 10437 ;TEST AROV SET-MULB 10438 ;MULTIPLIER = 400000 000000 10439 ;MULTIPLICAND = 400000 000000 10440 ;PRODUCT = 400000 000000 400000 000000 10441 ;AROV IS SET 10442 10443 036753 254 02 1 00 045244 F4720: JRSTF @@[.+1] ;CLEAR ALL FLAGS 10444 036754 205 06 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10445 036755 205 04 0 00 400000 MOVSI AC-2,400000 ;SETUP MULTIPLICAND 10446 036756 227 06 0 00 000004 MULB AC,AC-2 10447 036757 265 03 0 00 036760 JSP AC-3,.+1 ;SAVE FLAGS 10448 036760 312 06 0 00 044765 CAME AC,[1B0] ;TEST HIGH PRODUCT 10449 036761 003 06 0 00 004721 ER3 AC,4721 10450 036762 312 07 0 00 044765 CAME AC+1,[1B0] ;TEST LOW PRODUCT 10451 036763 004 07 0 00 004721 ER4 AC+1,4721 10452 036764 312 04 0 00 044765 CAME AC-2,[1B0] ;TEST HIGH PRODUCT 10453 036765 005 04 0 00 004721 ER5 AC-2,4721 10454 036766 255 10 0 00 036770 JOV .+2 ;TEST AROV 10455 036767 013 03 0 00 004721 ER13 AC-3,4721 ;FAIL IF AROV NOT SET 10456 036770 321 10 0 00 036753 JUMPL AC+2,F4720 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 22 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0218 10457 SUBTTL DIAGNOSTIC SECTION - INTEGER MPY TEST 10458 10459 ;MULTIPLIER =400000 000000 10460 ;MULTIPLICAND = 2,4 10461 10462 000010 AC=10 10463 SAVEAC (1,1)^ 10464 036771 201 12 0 00 036771 MOVEI AC+2,. ;SAVE TEST PC 10465 036772 202 12 0 00 030051 MOVEM AC+2,TESTPC 10466 036773 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10467 036774 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10468 036775 254 02 1 00 045245 JRSTF @@[.+1] ;CLEAR ALL FLAGS 10469 10470 005000 SN=5000 10471 000001 ZZ=1 10472 10473 F5000: REPEAT ^D2, 10474 10483 005001 SN=SN+1 10484 000002 ZZ=ZZ+ZZ 10485 036776 205 10 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10486 036777 201 07 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10487 037000 220 10 0 00 000007 IMUL AC,AC-1 ;MUL 400000 000000 X ZZ 10488 037001 312 10 0 00 044765 CAME AC,[1B0] ;TEST PROD = 400000 000000 10489 037002 003 10 0 00 005001 ER3 AC,SN 10490 037003 321 12 0 00 036776 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 10491 10492 005002 SN=SN+1 10493 000004 ZZ=ZZ+ZZ 10494 037004 205 10 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10495 037005 201 07 0 00 000004 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10496 037006 220 10 0 00 000007 IMUL AC,AC-1 ;MUL 400000 000000 X ZZ 10497 037007 312 10 0 00 044765 CAME AC,[1B0] ;TEST PROD = 400000 000000 10498 037010 003 10 0 00 005002 ER3 AC,SN 10499 037011 321 12 0 00 037004 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 10500 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 23 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0219 10501 ;TEST AROV SET 10502 ;TEST ABILITY TO SET AROV FLAG 10503 ;NUMBERS OF LIKE SIGNS ARE MULTIPLIED 10504 ;AND TESTED FOR OVERFLOW/OVERFLOW NOT 10505 ;NUMBERS OF UNLIKE SIGNS ARE MULTIPLIED 10506 ;AND TESTED FOR OVERFLOW NOT 10507 10508 000014 AC=14 10509 SAVEAC (1,1)^ 10510 037012 201 16 0 00 037012 MOVEI AC+2,. ;SAVE TEST PC 10511 037013 202 16 0 00 030051 MOVEM AC+2,TESTPC 10512 037014 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10513 037015 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10514 10515 005100 SN=5100 10516 200000 XX=200000 10517 000001 ZZ=1 10518 10519 F5100: REPEAT ^D2, ;TEST 2 POSITS-OVERFLOW NOT 10520 10535 005101 SN=SN+1 10536 400000 XX=XX+200000 10537 000002 ZZ=ZZ+1 10538 037016 254 02 1 00 045246 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10539 037017 201 14 0 00 200000 MOVEI AC,200000 ;SETUP MULTIPLIER 10540 037020 201 13 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10541 037021 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 000000 200000 X ZZ 10542 037022 265 15 0 00 037023 JSP AC+1,.+1 10543 037023 302 14 0 00 400000 CAIE AC,XX 10544 037024 003 14 0 00 005101 ER3 AC,SN 10545 037025 255 10 0 00 037027 JOV .+2 ;TEST FOR SET COND 10546 037026 254 00 0 00 037030 JRST .+2 ;FLAG IS NOT SET 10547 037027 013 15 0 00 005101 ER13 AC+1,SN ;FLAG IS SET 10548 037030 321 16 0 00 037016 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10549 10550 005102 SN=SN+1 10551 600000 XX=XX+200000 10552 000003 ZZ=ZZ+1 10553 037031 254 02 1 00 045247 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10554 037032 201 14 0 00 200000 MOVEI AC,200000 ;SETUP MULTIPLIER 10555 037033 201 13 0 00 000003 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 23-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0220 10556 037034 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 000000 200000 X ZZ 10557 037035 265 15 0 00 037036 JSP AC+1,.+1 10558 037036 302 14 0 00 600000 CAIE AC,XX 10559 037037 003 14 0 00 005102 ER3 AC,SN 10560 037040 255 10 0 00 037042 JOV .+2 ;TEST FOR SET COND 10561 037041 254 00 0 00 037043 JRST .+2 ;FLAG IS NOT SET 10562 037042 013 15 0 00 005102 ER13 AC+1,SN ;FLAG IS SET 10563 037043 321 16 0 00 037031 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10564 10565 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 23-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0221 10566 005200 SN=5200 10567 040000 XX=40000 10568 000001 ZZ=1 10569 10570 F5200: REPEAT ^D2, ;TEST 2 POSITS-OVERFLOW 10571 10586 005201 SN=SN+1 10587 100000 XX=XX+XX 10588 000002 ZZ=ZZ+1 10589 037044 254 02 1 00 045250 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10590 037045 205 14 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10591 037046 201 13 0 00 000002 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10592 037047 205 12 0 00 000000 MOVSI AC-2,XX&200000 10593 037050 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 200000 000000 X ZZ 10594 037051 265 15 0 00 037052 JSP AC+1,.+1 10595 037052 312 14 0 00 000012 CAME AC,AC-2 10596 037053 003 14 0 00 005201 ER3 AC,SN ;C(AC) FAILED 10597 037054 255 10 0 00 037056 JOV .+2 ;TEST FOR SET CONDITION 10598 037055 013 15 0 00 005201 ER13 AC+1,SN ;FLAG DID NOT SET 10599 037056 321 16 0 00 037044 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10600 10601 005202 SN=SN+1 10602 200000 XX=XX+XX 10603 000003 ZZ=ZZ+1 10604 037057 254 02 1 00 045251 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10605 037060 205 14 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10606 037061 201 13 0 00 000003 MOVEI AC-1,ZZ ;SETUP MULTIPLICAND 10607 037062 205 12 0 00 200000 MOVSI AC-2,XX&200000 10608 037063 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 200000 000000 X ZZ 10609 037064 265 15 0 00 037065 JSP AC+1,.+1 10610 037065 312 14 0 00 000012 CAME AC,AC-2 10611 037066 003 14 0 00 005202 ER3 AC,SN ;C(AC) FAILED 10612 037067 255 10 0 00 037071 JOV .+2 ;TEST FOR SET CONDITION 10613 037070 013 15 0 00 005202 ER13 AC+1,SN ;FLAG DID NOT SET 10614 037071 321 16 0 00 037057 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10615 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 24 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0222 10616 005300 SN=5300 10617 000001 XX=1 10618 000000 ZZ=0 10619 10620 F5300: REPEAT ^D2, ;TEST 2 NEGATS-OVERFLOW NOT 10621 10636 005301 SN=SN+1 10637 000002 XX=XX+XX 10638 777777 777777 ZZ=ZZ-1 10639 037072 254 02 1 00 045252 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10640 037073 561 14 0 00 777776 HRROI AC,-2 ;SETUP MULTIPLIER 10641 037074 561 13 0 00 777777 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10642 037075 220 14 0 00 000013 IMUL AC,AC-1 ;MULTIPLY -2 X ZZ 10643 037076 265 15 0 00 037077 JSP AC+1,.+1 10644 037077 302 14 0 00 000002 CAIE AC,XX 10645 037100 003 14 0 00 005301 ER3 AC,SN ;C(AC) FAILED 10646 037101 255 10 0 00 037103 JOV .+2 ;TEST FOR SET NOT CONDITION 10647 037102 254 00 0 00 037104 JRST ,.+2 ;FLAG NOT SET 10648 037103 013 15 0 00 005301 ER13 AC+1,SN ;FLAG IS SET 10649 037104 321 16 0 00 037072 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10650 10651 005302 SN=SN+1 10652 000004 XX=XX+XX 10653 777777 777776 ZZ=ZZ-1 10654 037105 254 02 1 00 045253 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10655 037106 561 14 0 00 777776 HRROI AC,-2 ;SETUP MULTIPLIER 10656 037107 561 13 0 00 777776 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10657 037110 220 14 0 00 000013 IMUL AC,AC-1 ;MULTIPLY -2 X ZZ 10658 037111 265 15 0 00 037112 JSP AC+1,.+1 10659 037112 302 14 0 00 000004 CAIE AC,XX 10660 037113 003 14 0 00 005302 ER3 AC,SN ;C(AC) FAILED 10661 037114 255 10 0 00 037116 JOV .+2 ;TEST FOR SET NOT CONDITION 10662 037115 254 00 0 00 037117 JRST ,.+2 ;FLAG NOT SET 10663 037116 013 15 0 00 005302 ER13 AC+1,SN ;FLAG IS SET 10664 037117 321 16 0 00 037105 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10665 10666 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 24-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0223 10667 005400 SN=5400 10668 777777 777777 ZZ=-1 10669 10670 F5400: REPEAT ^D2, ;TEST 2 NEGATS-OVERFLOW 10671 10684 005401 SN=SN+1 10685 777777 777776 ZZ=ZZ-1 10686 037120 254 02 1 00 045254 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10687 037121 205 14 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10688 037122 561 13 0 00 777776 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10689 037123 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 400000 000000 X ZZ 10690 037124 265 15 0 00 037125 JSP AC+1,.+1 10691 037125 332 00 0 00 000014 SKIPE AC 10692 037126 003 14 0 00 005401 ER3 AC,SN ;C(AC) FAILED 10693 037127 255 10 0 00 037131 JOV .+2 ;TEST FOR SET CONDITION 10694 037130 013 15 0 00 005401 ER13 AC+1,SN ;FLAG DID NOT SET 10695 037131 321 16 0 00 037120 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 10696 10697 005402 SN=SN+1 10698 777777 777775 ZZ=ZZ-1 10699 037132 254 02 1 00 045255 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 10700 037133 205 14 0 00 400000 MOVSI AC,400000 ;SETUP MULTIPLIER 10701 037134 561 13 0 00 777775 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10702 037135 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 400000 000000 X ZZ 10703 037136 265 15 0 00 037137 JSP AC+1,.+1 10704 037137 332 00 0 00 000014 SKIPE AC 10705 037140 003 14 0 00 005402 ER3 AC,SN ;C(AC) FAILED 10706 037141 255 10 0 00 037143 JOV .+2 ;TEST FOR SET CONDITION 10707 037142 013 15 0 00 005402 ER13 AC+1,SN ;FLAG DID NOT SET 10708 037143 321 16 0 00 037132 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 10709 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 25 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0224 10710 005500 SN=5500 10711 000001 000000 XX=1000000 10712 777777 777777 ZZ=-1 10713 10714 F5500: REPEAT ^D2, ;TEST UNLIKE,OVERFLOW NOT 10715 10731 005501 SN=SN+1 10732 400000 XX=XX/2 10733 777777 777776 ZZ=ZZ-1 10734 037144 254 02 1 00 045256 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10735 037145 201 14 0 00 200000 MOVEI AC,200000 ;SETUP MULTIPLIER 10736 037146 561 13 0 00 777776 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10737 037147 561 12 0 00 400000 HRROI AC-2,XX 10738 037150 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 000000 200000 X ZZ 10739 037151 265 15 0 00 037152 JSP AC+1,.+1 10740 037152 312 14 0 00 000012 CAME AC,AC-2 10741 037153 003 14 0 00 005501 ER3 AC,SN ;C(AC) FAILED 10742 037154 255 10 0 00 037156 JOV .+2 ;TEST FOR SET NOT COND 10743 037155 254 00 0 00 037157 JRST ,.+2 ;FLAG NOT SET 10744 037156 013 15 0 00 005501 ER13 AC+1,SN ;FLAG IS SET 10745 037157 321 16 0 00 037144 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10746 10747 005502 SN=SN+1 10748 200000 XX=XX/2 10749 777777 777775 ZZ=ZZ-1 10750 037160 254 02 1 00 045257 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10751 037161 201 14 0 00 200000 MOVEI AC,200000 ;SETUP MULTIPLIER 10752 037162 561 13 0 00 777775 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10753 037163 561 12 0 00 200000 HRROI AC-2,XX 10754 037164 220 14 0 00 000013 IMUL AC,AC-1 ;MUL 000000 200000 X ZZ 10755 037165 265 15 0 00 037166 JSP AC+1,.+1 10756 037166 312 14 0 00 000012 CAME AC,AC-2 10757 037167 003 14 0 00 005502 ER3 AC,SN ;C(AC) FAILED 10758 037170 255 10 0 00 037172 JOV .+2 ;TEST FOR SET NOT COND 10759 037171 254 00 0 00 037173 JRST ,.+2 ;FLAG NOT SET 10760 037172 013 15 0 00 005502 ER13 AC+1,SN ;FLAG IS SET 10761 037173 321 16 0 00 037160 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10762 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 26 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0225 10763 ;PLIER = -1 10764 ;PLICAND = 1,2 10765 10766 000011 AC=11 10767 SAVEAC (1,1)^ 10768 037174 201 13 0 00 037174 MOVEI AC+2,. ;SAVE TEST PC 10769 037175 202 13 0 00 030051 MOVEM AC+2,TESTPC 10770 037176 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10771 037177 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10772 10773 005600 SN=5600 10774 000001 000000 XX=1000000 10775 000000 ZZ=0 10776 10777 F5600: REPEAT ^D2, 10778 10782 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10783 SETO AC, ;SETUP MULTIPLIER 10784 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10785 IMUL AC,AC-1 ;MULTIPLY -1 X ZZ 10786 JSP AC+1,.+1 10787 CAIE AC,XX 10788 ER3 AC,SN ;C(AC) FAILED 10789 JOV .+2 10790 JRST ,.+2 10791 ER13 AC+1,SN 10792 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10793 > 10794 005601 SN=SN+1 10795 777777 XX=XX-1 10796 000000 ZZ=ZZ+ZZ 10797 000001 IFE ZZ, 10798 037200 254 02 1 00 045260 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10799 037201 474 11 0 00 000000 SETO AC, ;SETUP MULTIPLIER 10800 037202 561 10 0 00 000001 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10801 037203 220 11 0 00 000010 IMUL AC,AC-1 ;MULTIPLY -1 X ZZ 10802 037204 265 12 0 00 037205 JSP AC+1,.+1 10803 037205 302 11 0 00 777777 CAIE AC,XX 10804 037206 003 11 0 00 005601 ER3 AC,SN ;C(AC) FAILED 10805 037207 255 10 0 00 037211 JOV .+2 10806 037210 254 00 0 00 037212 JRST ,.+2 10807 037211 013 12 0 00 005601 ER13 AC+1,SN 10808 037212 321 13 0 00 037200 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10809 10810 005602 SN=SN+1 10811 777776 XX=XX-1 10812 000002 ZZ=ZZ+ZZ 10813 IFE ZZ, 10814 037213 254 02 1 00 045261 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10815 037214 474 11 0 00 000000 SETO AC, ;SETUP MULTIPLIER 10816 037215 561 10 0 00 000002 HRROI AC-1,ZZ ;SETUP MULTIPLICAND 10817 037216 220 11 0 00 000010 IMUL AC,AC-1 ;MULTIPLY -1 X ZZ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 26-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0226 10818 037217 265 12 0 00 037220 JSP AC+1,.+1 10819 037220 302 11 0 00 777776 CAIE AC,XX 10820 037221 003 11 0 00 005602 ER3 AC,SN ;C(AC) FAILED 10821 037222 255 10 0 00 037224 JOV .+2 10822 037223 254 00 0 00 037225 JRST ,.+2 10823 037224 013 12 0 00 005602 ER13 AC+1,SN 10824 037225 321 13 0 00 037213 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 10825 10826 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 26-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0227 10827 ;MULTIPLIER = -1 10828 ;PLICAND = 200000 000000,200000 000010 10829 10830 000013 AC=13 10831 SAVEAC (1,1)^ 10832 037226 201 15 0 00 037226 MOVEI AC+2,. ;SAVE TEST PC 10833 037227 202 15 0 00 030051 MOVEM AC+2,TESTPC 10834 037230 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10835 037231 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10836 10837 005700 SN=5700 10838 600010 XX=600010 10839 177770 ZZ=177770 10840 10841 F5700: REPEAT ^D2, 10842 10858 005701 SN=SN+1 10859 600000 XX=XX-10 10860 200000 ZZ=ZZ+10 10861 037232 254 02 1 00 045262 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10862 037233 474 13 0 00 000000 SETO AC, ;SETUP MULTIPLIER 10863 037234 205 12 0 00 200000 MOVSI AC-1,ZZ ;SETUP MULTIPLICAND 10864 037235 205 11 0 00 600000 MOVSI AC-2,XX 10865 037236 220 13 0 00 000012 IMUL AC,AC-1 ;MULTIPLY -1 X ZZ 10866 037237 265 14 0 00 037240 JSP AC+1,.+1 10867 037240 312 13 0 00 000011 CAME AC,AC-2 10868 037241 003 13 0 00 005701 ER3 AC,SN ;C(AC) FAILED 10869 037242 255 10 0 00 037244 JOV .+2 ;TEST FOR OVERFLOW 10870 037243 254 00 0 00 037245 JRST ,.+2 10871 037244 013 14 0 00 005701 ER13 AC+1,SN 10872 037245 321 15 0 00 037232 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10873 10874 005702 SN=SN+1 10875 577770 XX=XX-10 10876 200010 ZZ=ZZ+10 10877 037246 254 02 1 00 045263 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10878 037247 474 13 0 00 000000 SETO AC, ;SETUP MULTIPLIER 10879 037250 205 12 0 00 200010 MOVSI AC-1,ZZ ;SETUP MULTIPLICAND 10880 037251 205 11 0 00 577770 MOVSI AC-2,XX 10881 037252 220 13 0 00 000012 IMUL AC,AC-1 ;MULTIPLY -1 X ZZ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 26-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0228 10882 037253 265 14 0 00 037254 JSP AC+1,.+1 10883 037254 312 13 0 00 000011 CAME AC,AC-2 10884 037255 003 13 0 00 005702 ER3 AC,SN ;C(AC) FAILED 10885 037256 255 10 0 00 037260 JOV .+2 ;TEST FOR OVERFLOW 10886 037257 254 00 0 00 037261 JRST ,.+2 10887 037260 013 14 0 00 005702 ER13 AC+1,SN 10888 037261 321 15 0 00 037246 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10889 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 27 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0229 10890 ;MULTIPLIER = 0,1 10891 ;MULTIPLICAND = 400000 000000 10892 10893 000012 AC=12 10894 SAVEAC (1,1)^ 10895 037262 201 14 0 00 037262 MOVEI AC+2,. ;SAVE TEST PC 10896 037263 202 14 0 00 030051 MOVEM AC+2,TESTPC 10897 037264 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10898 037265 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10899 10900 006000 SN=6000 10901 100000 XX=100000 10902 777777 777777 ZZ=-1 10903 10904 F6000: REPEAT ^D2, 10905 10921 006001 SN=SN+1 10922 200000 XX=XX+XX 10923 000000 ZZ=ZZ+1 10924 037266 254 02 1 00 045264 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10925 037267 201 12 0 00 000000 MOVEI AC,ZZ ;SETUP MULTIPLIER 10926 037270 205 11 0 00 400000 MOVSI AC-1,400000 ;SETUP MULTIPLICAND 10927 037271 205 10 0 00 000000 MOVSI AC-2,XX&400000 10928 037272 220 12 0 00 000011 IMUL AC,AC-1 ;MUL ZZ X 400000 000000 10929 037273 265 13 0 00 037274 JSP AC+1,.+1 10930 037274 312 12 0 00 000010 CAME AC,AC-2 10931 037275 003 12 0 00 006001 ER3 AC,SN ;C(AC) FAILED 10932 037276 255 10 0 00 037300 JOV .+2 ;TEST FOR OVERFLOW 10933 037277 254 00 0 00 037301 JRST ,.+2 ;BOTH CLEARS ASSERTED 10934 037300 013 13 0 00 006001 ER13 AC+1,SN ;EITHER CLEAR FAILED 10935 037301 321 14 0 00 037266 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10936 10937 006002 SN=SN+1 10938 400000 XX=XX+XX 10939 000001 ZZ=ZZ+1 10940 037302 254 02 1 00 045265 JRSTF @@[.+1] ;CLR ALL FLAGS,EXEC NEXT INST 10941 037303 201 12 0 00 000001 MOVEI AC,ZZ ;SETUP MULTIPLIER 10942 037304 205 11 0 00 400000 MOVSI AC-1,400000 ;SETUP MULTIPLICAND 10943 037305 205 10 0 00 400000 MOVSI AC-2,XX&400000 10944 037306 220 12 0 00 000011 IMUL AC,AC-1 ;MUL ZZ X 400000 000000 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 27-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0230 10945 037307 265 13 0 00 037310 JSP AC+1,.+1 10946 037310 312 12 0 00 000010 CAME AC,AC-2 10947 037311 003 12 0 00 006002 ER3 AC,SN ;C(AC) FAILED 10948 037312 255 10 0 00 037314 JOV .+2 ;TEST FOR OVERFLOW 10949 037313 254 00 0 00 037315 JRST ,.+2 ;BOTH CLEARS ASSERTED 10950 037314 013 13 0 00 006002 ER13 AC+1,SN ;EITHER CLEAR FAILED 10951 037315 321 14 0 00 037302 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 10952 10953 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 27-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0231 10954 037316 254 02 1 00 045266 F6010: JRSTF @@[.+1] ;CLEAR ALL FLAGS 10955 037317 205 12 0 00 200000 MOVSI AC,200000 ;SETUP MULTIPLIER 10956 037320 201 11 0 00 000002 MOVEI AC-1,2 ;SETUP MULTIPLICAND 10957 037321 223 12 0 00 000011 IMULB AC,AC-1 10958 037322 265 13 0 00 037323 JSP AC+1,.+1 ;SAVE FLAGS 10959 037323 302 12 0 00 000000 CAIE AC,0 10960 037324 003 12 0 00 006011 ER3 AC,6011 ;C(AC) FAILED 10961 037325 302 11 0 00 000000 CAIE AC-1,0 10962 037326 005 11 0 00 006011 ER5 AC-1,6011 ;C(E) FAILED 10963 037327 255 10 0 00 037331 JOV .+2 10964 037330 013 13 0 00 006011 ER13 AC+1,6011 ;AROV DID NOT SET 10965 037331 321 14 0 00 037316 JUMPL AC+2,F6010 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 28 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0232 10966 ;TEST IMUL-IMMEDIATE MODE 10967 ;TEST ABILITY TO MULTIPLY WITH THE 10968 ;EFFECTIVE ADDRESS AS THE MULTIPLICAND 10969 ;THE PROD WILL EQUAL THE EFFECTIVE 10970 ;ADDRESS 10971 ;A FAILURE INDICATES MULTIPLYING 10972 ;BY C(E) VICE E 10973 10974 000010 AC=10 10975 SAVEAC (1,1)^ 10976 037332 201 12 0 00 037332 MOVEI AC+2,. ;SAVE TEST PC 10977 037333 202 12 0 00 030051 MOVEM AC+2,TESTPC 10978 037334 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 10979 037335 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 10980 037336 254 02 1 00 045267 JRSTF @@[.+1] ;CLEAR ALL FLAGS 10981 10982 006100 SN=6100 10983 000001 ZZ=1 10984 10985 F6100: REPEAT ^D2, ;TEST IMMEDIATE MODE 10986 10996 006101 SN=SN+1 10997 000002 ZZ=ZZ+ZZ 10998 037337 201 06 0 00 000007 MOVEI AC-2,AC-1 ;SETUP FOR COMPARISON 10999 037340 201 10 0 00 000001 MOVEI AC,1 ;SETUP MULTIPLIER 11000 037341 201 07 0 00 000002 MOVEI AC-1,ZZ ;SETUP AC-1 11001 037342 221 10 0 00 000007 IMULI AC,AC-1 ;EFFECTIVE ADDRESS=7 11002 037343 312 10 0 00 000006 CAME AC,AC-2 ;TEST PROD = ZZ 11003 037344 003 10 0 00 006101 ER3 AC,SN ;MULTIPLIED BY C(E) VICE E 11004 037345 321 12 0 00 037337 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11005 11006 006102 SN=SN+1 11007 000004 ZZ=ZZ+ZZ 11008 037346 201 06 0 00 000007 MOVEI AC-2,AC-1 ;SETUP FOR COMPARISON 11009 037347 201 10 0 00 000001 MOVEI AC,1 ;SETUP MULTIPLIER 11010 037350 201 07 0 00 000004 MOVEI AC-1,ZZ ;SETUP AC-1 11011 037351 221 10 0 00 000007 IMULI AC,AC-1 ;EFFECTIVE ADDRESS=7 11012 037352 312 10 0 00 000006 CAME AC,AC-2 ;TEST PROD = ZZ 11013 037353 003 10 0 00 006102 ER3 AC,SN ;MULTIPLIED BY C(E) VICE E 11014 037354 321 12 0 00 037346 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 11015 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 29 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0233 11016 ;TEST IMUL-MEMORY MODE 11017 11018 000007 AC=7 11019 SAVEAC (1,1)^ 11020 037355 201 11 0 00 037355 MOVEI AC+2,. ;SAVE TEST PC 11021 037356 202 11 0 00 030051 MOVEM AC+2,TESTPC 11022 037357 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11023 037360 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11024 11025 006300 SN=6300 11026 000001 ZZ=1 11027 11028 F6300: REPEAT ^D2, 11029 11041 006301 SN=SN+1 11042 000002 ZZ=ZZ+ZZ 11043 037361 201 05 0 00 000002 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 11044 037362 201 07 0 00 000002 MOVEI AC,ZZ ;SETUP MULTIPLIER 11045 037363 201 06 0 00 000007 MOVEI AC-1,7 ;SETUP MULTIPLICAND 11046 037364 222 07 0 00 000006 IMULM AC,AC-1 ;MULTIPLY ZZ X 7 11047 037365 312 07 0 00 000005 CAME AC,AC-2 ;TEST FOR PRODUCT IN AC 11048 037366 003 07 0 00 006301 ER3 AC,SN 11049 037367 302 06 0 00 000016 CAIE AC-1,ZZ*7 ;TEST FOR PROD IN E 11050 037370 005 06 0 00 006301 ER5 AC-1,SN 11051 037371 321 11 0 00 037361 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11052 11053 006302 SN=SN+1 11054 000004 ZZ=ZZ+ZZ 11055 037372 201 05 0 00 000004 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 11056 037373 201 07 0 00 000004 MOVEI AC,ZZ ;SETUP MULTIPLIER 11057 037374 201 06 0 00 000007 MOVEI AC-1,7 ;SETUP MULTIPLICAND 11058 037375 222 07 0 00 000006 IMULM AC,AC-1 ;MULTIPLY ZZ X 7 11059 037376 312 07 0 00 000005 CAME AC,AC-2 ;TEST FOR PRODUCT IN AC 11060 037377 003 07 0 00 006302 ER3 AC,SN 11061 037400 302 06 0 00 000034 CAIE AC-1,ZZ*7 ;TEST FOR PROD IN E 11062 037401 005 06 0 00 006302 ER5 AC-1,SN 11063 037402 321 11 0 00 037372 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11064 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 30 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER MPY TEST SEQ 0234 11065 ;TEST IMUL-BOTH MODE 11066 ;TEST ABILITY TO STORE PRODUCT IN AC,E 11067 ;AC, AC-1 ARE COMPARED FOLLOWING 11068 ;MULTIPLY 11069 ;AN ERROR WILL OCCUR IF AC DIFFERS FROM 11070 ;AC-1 11071 000006 AC=6 11072 SAVEAC (1,1)^ 11073 037403 201 10 0 00 037403 MOVEI AC+2,. ;SAVE TEST PC 11074 037404 202 10 0 00 030051 MOVEM AC+2,TESTPC 11075 037405 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11076 037406 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11077 006500 SN=6500 11078 000004 ZZ=4 11079 F6500: REPEAT ^D2, ;TEST STORING AC,E 11080 11089 006501 SN=SN+1 11090 000010 ZZ=ZZ+ZZ 11091 037407 201 06 0 00 000010 MOVEI AC,ZZ ;SETUP MULTIPLIER 11092 037410 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP MULTIPLICAND 11093 037411 223 06 0 00 000005 IMULB AC,AC-1 ;MULTIPLY ZZ X 2 11094 037412 312 06 0 00 000005 CAME AC,AC-1 ;COMPARE AC,AC-1 11095 037413 003 06 0 00 006501 ER3 AC,SN 11096 037414 321 10 0 00 037407 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 11097 11098 006502 SN=SN+1 11099 000020 ZZ=ZZ+ZZ 11100 037415 201 06 0 00 000020 MOVEI AC,ZZ ;SETUP MULTIPLIER 11101 037416 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP MULTIPLICAND 11102 037417 223 06 0 00 000005 IMULB AC,AC-1 ;MULTIPLY ZZ X 2 11103 037420 312 06 0 00 000005 CAME AC,AC-1 ;COMPARE AC,AC-1 11104 037421 003 06 0 00 006502 ER3 AC,SN 11105 037422 321 10 0 00 037415 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 11106 11107 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 31 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0235 11108 SUBTTL DIAGNOSTIC SECTION - INTEGER DIVIDE TEST 11109 11110 ;TEST FETCH,STORE AND DECODE 11111 ;TEST ABILITY TO FETCH CONTENTS OF E 11112 ;TEST ABILITY TO STORE AC,AC+1 11113 ;DVND = 000000 777777,000000 777776 11114 ;DVSR = 000000 777777,000000 777776 11115 ;DVND = 000000 3400000 11116 ;DVSR = 2 11117 11118 000007 AC=7 11119 SAVEAC (1,1)^ 11120 037423 201 11 0 00 037423 MOVEI AC+2,. ;SAVE TEST PC 11121 037424 202 11 0 00 030051 MOVEM AC+2,TESTPC 11122 037425 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11123 037426 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11124 11125 006600 SN=6600 11126 000000 ZZ=0 11127 11128 F6600: REPEAT ^D2, ;TEST SAC,SAC2 FAILING 11129 &777777 11131 IFE ZZ, 11132 JRSTF @@[.+1] ;CLR ALL FLGS,EXEC NEXT INST 11133 MOVEI AC,ZZ ;SETUP DVND 11134 MOVEI AC+1,ZZ ;SETUP DVSR 11135 IDIV AC,AC+1 ;DIVIDE ZZ BY ZZ 11136 JSP AC-3,.+1 11137 JOV .+2 ;TEST FOR OVFL 11138 JRST .+2 11139 ER13 AC-3,SN 11140 CAIE AC,1 ;TEST AC FOR QUOTIENT = 1 11141 ER3 AC,SN 11142 CAIE AC+1,0 ;TEST AC+1 FOR REMAINDER = 0 11143 ER4 AC+1,SN 11144 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 11145 JRSTF @@[.+1] ;CLEAR ALL FLAGS 11146 > 11147 006601 SN=SN+1 11148 000000 ZZ=&777777 11149 777777 IFE ZZ, 11150 037427 254 02 1 00 045270 JRSTF @@[.+1] ;CLR ALL FLGS,EXEC NEXT INST 11151 037430 201 07 0 00 777777 MOVEI AC,ZZ ;SETUP DVND 11152 037431 201 10 0 00 777777 MOVEI AC+1,ZZ ;SETUP DVSR 11153 037432 230 07 0 00 000010 IDIV AC,AC+1 ;DIVIDE ZZ BY ZZ 11154 037433 265 04 0 00 037434 JSP AC-3,.+1 11155 037434 255 10 0 00 037436 JOV .+2 ;TEST FOR OVFL 11156 037435 254 00 0 00 037437 JRST .+2 11157 037436 013 04 0 00 006601 ER13 AC-3,SN 11158 037437 302 07 0 00 000001 CAIE AC,1 ;TEST AC FOR QUOTIENT = 1 11159 037440 003 07 0 00 006601 ER3 AC,SN 11160 037441 302 10 0 00 000000 CAIE AC+1,0 ;TEST AC+1 FOR REMAINDER = 0 11161 037442 004 10 0 00 006601 ER4 AC+1,SN 11162 037443 321 11 0 00 037426 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 31-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0236 11163 037444 254 02 1 00 045271 JRSTF @@[.+1] ;CLEAR ALL FLAGS 11164 11165 006602 SN=SN+1 11166 777776 ZZ=&777777 11167 IFE ZZ, 11168 037445 254 02 1 00 045272 JRSTF @@[.+1] ;CLR ALL FLGS,EXEC NEXT INST 11169 037446 201 07 0 00 777776 MOVEI AC,ZZ ;SETUP DVND 11170 037447 201 10 0 00 777776 MOVEI AC+1,ZZ ;SETUP DVSR 11171 037450 230 07 0 00 000010 IDIV AC,AC+1 ;DIVIDE ZZ BY ZZ 11172 037451 265 04 0 00 037452 JSP AC-3,.+1 11173 037452 255 10 0 00 037454 JOV .+2 ;TEST FOR OVFL 11174 037453 254 00 0 00 037455 JRST .+2 11175 037454 013 04 0 00 006602 ER13 AC-3,SN 11176 037455 302 07 0 00 000001 CAIE AC,1 ;TEST AC FOR QUOTIENT = 1 11177 037456 003 07 0 00 006602 ER3 AC,SN 11178 037457 302 10 0 00 000000 CAIE AC+1,0 ;TEST AC+1 FOR REMAINDER = 0 11179 037460 004 10 0 00 006602 ER4 AC+1,SN 11180 037461 321 11 0 00 037444 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH 11181 037462 254 02 1 00 045273 JRSTF @@[.+1] ;CLEAR ALL FLAGS 11182 11183 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 31-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0237 11184 ;TEST FCE FAILING 11185 037463 201 05 0 00 160000 F6700: MOVEI AC-2,160000 ;SETUP FOR COMPARISON 11186 037464 201 07 0 00 340000 MOVEI AC,340000 ;SETUP DVND 11187 037465 201 10 0 00 000002 MOVEI AC+1,2 ;SETUP DVSR 11188 037466 230 07 0 00 000010 IDIV AC,AC+1 ;DIV 000000 340000 BY 2 11189 037467 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT = 000000 020000 11190 037470 003 07 0 00 006701 ER3 AC,6701 11191 037471 321 11 0 00 037463 JUMPL AC+2,F6700 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 32 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0238 11192 ;DVND = 4,10 11193 ;DVSR = 2 11194 ;FAILURE RESULTS IN A QUOT = 0, 11195 ;A REMD = DVND (SIGN IS NEGATIVE) 11196 11197 000007 AC=7 11198 SAVEAC (1,1)^ 11199 037472 201 11 0 00 037472 MOVEI AC+2,. ;SAVE TEST PC 11200 037473 202 11 0 00 030051 MOVEM AC+2,TESTPC 11201 037474 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11202 037475 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11203 11204 007000 SN=7000 11205 000002 ZZ=2 11206 F7000: REPEAT ^D2, 11207 11216 007001 SN=SN+1 11217 000004 ZZ=ZZ+ZZ 11218 037476 201 07 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11219 037477 201 06 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11220 037500 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE ZZ BY 2 11221 037501 332 00 0 00 000010 SKIPE AC+1 ;TEST REMD 11222 037502 004 10 0 00 007001 ER4 AC+1,SN 11223 037503 321 11 0 00 037474 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11224 11225 007002 SN=SN+1 11226 000010 ZZ=ZZ+ZZ 11227 037504 201 07 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 11228 037505 201 06 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11229 037506 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE ZZ BY 2 11230 037507 332 00 0 00 000010 SKIPE AC+1 ;TEST REMD 11231 037510 004 10 0 00 007002 ER4 AC+1,SN 11232 037511 321 11 0 00 037502 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11233 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 33 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0239 11234 ;TEST AROV SET 11235 ;DVND = 4,10 11236 ;DVSR = 0 (DIVIDE CHECK CONDITION) 11237 11238 000014 AC=14 11239 SAVEAC (1,1)^ 11240 037512 201 16 0 00 037512 MOVEI AC+2,. ;SAVE TEST PC 11241 037513 202 16 0 00 030051 MOVEM AC+2,TESTPC 11242 037514 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11243 037515 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11244 11245 007100 SN=7100 11246 000002 ZZ=2 11247 11248 F7100: REPEAT ^D2, ;TEST OVERFLOW COND 11249 11267 007101 SN=SN+1 11268 000004 ZZ=ZZ+ZZ 11269 037516 254 02 1 00 045274 JRSTF @@[.+1] ;CLR ALL FLGS,EXEC NEXT INST 11270 037517 201 14 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11271 037520 201 15 0 00 000004 MOVEI AC+1,ZZ 11272 037521 400 13 0 00 000000 SETZ AC-1, ;SETUP DVSR 11273 037522 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 0 11274 037523 265 11 0 00 037524 JSP AC-3,.+1 11275 037524 302 14 0 00 000004 CAIE AC,ZZ 11276 037525 003 14 0 00 007101 ER3 AC,SN ;C(AC) WAS CLOBBERED 11277 037526 302 15 0 00 000004 CAIE AC+1,ZZ 11278 037527 004 15 0 00 007101 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 11279 037530 255 10 0 00 037532 JOV .+2 ;TEST FOR OVERFLOW 11280 037531 013 11 0 00 037532 ER13 AC-3,.+1 ;AROV FAILED TO SET 11281 037532 607 11 0 00 000040 TLNN AC-3,DCK 11282 037533 013 11 0 00 007101 ER13 AC-3,SN ;DCK NOT SET 11283 037534 321 16 0 00 037516 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 11284 11285 007102 SN=SN+1 11286 000010 ZZ=ZZ+ZZ 11287 037535 254 02 1 00 045275 JRSTF @@[.+1] ;CLR ALL FLGS,EXEC NEXT INST 11288 037536 201 14 0 00 000010 MOVEI AC,ZZ ;SETUP DVND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 33-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0240 11289 037537 201 15 0 00 000010 MOVEI AC+1,ZZ 11290 037540 400 13 0 00 000000 SETZ AC-1, ;SETUP DVSR 11291 037541 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 0 11292 037542 265 11 0 00 037543 JSP AC-3,.+1 11293 037543 302 14 0 00 000010 CAIE AC,ZZ 11294 037544 003 14 0 00 007102 ER3 AC,SN ;C(AC) WAS CLOBBERED 11295 037545 302 15 0 00 000010 CAIE AC+1,ZZ 11296 037546 004 15 0 00 007102 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 11297 037547 255 10 0 00 037551 JOV .+2 ;TEST FOR OVERFLOW 11298 037550 013 11 0 00 037551 ER13 AC-3,.+1 ;AROV FAILED TO SET 11299 037551 607 11 0 00 000040 TLNN AC-3,DCK 11300 037552 013 11 0 00 007102 ER13 AC-3,SN ;DCK NOT SET 11301 037553 321 16 0 00 037535 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 11302 11303 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 33-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0241 11304 ;DVND = 4,10 11305 ;DVSR = 4,10 11306 11307 000011 AC=11 11308 SAVEAC (1,1)^ 11309 037554 201 13 0 00 037554 MOVEI AC+2,. ;SAVE TEST PC 11310 037555 202 13 0 00 030051 MOVEM AC+2,TESTPC 11311 037556 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11312 037557 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11313 11314 007400 SN=7400 11315 000002 ZZ=2 11316 11317 F7400: REPEAT ^D2, 11318 11334 007401 SN=SN+1 11335 000004 ZZ=ZZ+ZZ 11336 037560 254 02 1 00 045276 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 11337 037561 201 11 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11338 037562 201 10 0 00 000004 MOVEI AC-1,ZZ ;SETUP DVSR 11339 037563 230 11 0 00 000010 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 11340 037564 265 07 0 00 037565 JSP AC-2,.+1 11341 037565 302 11 0 00 000001 CAIE AC,1 11342 037566 003 11 0 00 007401 ER3 AC,SN ;C(AC) FAILED 11343 037567 302 12 0 00 000000 CAIE AC+1,0 11344 037570 004 12 0 00 007401 ER4 AC+1,SN ;C(AC+1) FAILED 11345 037571 255 10 0 00 037573 JOV .+2 ;TEST FOR OVERFLOW 11346 037572 254 00 0 00 037574 JRST ,.+2 11347 037573 013 07 0 00 007401 ER13 AC-2,SN 11348 037574 321 13 0 00 037560 JUMPL AC+2,.-^D12 11349 11350 007402 SN=SN+1 11351 000010 ZZ=ZZ+ZZ 11352 037575 254 02 1 00 045277 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 11353 037576 201 11 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 11354 037577 201 10 0 00 000010 MOVEI AC-1,ZZ ;SETUP DVSR 11355 037600 230 11 0 00 000010 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 11356 037601 265 07 0 00 037602 JSP AC-2,.+1 11357 037602 302 11 0 00 000001 CAIE AC,1 11358 037603 003 11 0 00 007402 ER3 AC,SN ;C(AC) FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 33-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0242 11359 037604 302 12 0 00 000000 CAIE AC+1,0 11360 037605 004 12 0 00 007402 ER4 AC+1,SN ;C(AC+1) FAILED 11361 037606 255 10 0 00 037610 JOV .+2 ;TEST FOR OVERFLOW 11362 037607 254 00 0 00 037611 JRST ,.+2 11363 037610 013 07 0 00 007402 ER13 AC-2,SN 11364 037611 321 13 0 00 037575 JUMPL AC+2,.-^D12 11365 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 34 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0243 11366 ;DVND = 2,4 11367 ;DVSR = 400000 000000 11368 11369 000007 AC=7 11370 SAVEAC (1,1)^ 11371 037612 201 11 0 00 037612 MOVEI AC+2,. ;SAVE TEST PC 11372 037613 202 11 0 00 030051 MOVEM AC+2,TESTPC 11373 037614 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11374 037615 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11375 11376 007500 SN=7500 11377 000001 ZZ=1 11378 11379 F7500: REPEAT ^D2, 11380 11396 007501 SN=SN+1 11397 000002 ZZ=ZZ+ZZ 11398 037616 254 02 1 00 045300 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 11399 037617 201 07 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 11400 037620 205 06 0 00 400000 MOVSI AC-1,400000 ;SETUP DVSR 11401 037621 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (-N) 11402 037622 265 05 0 00 037623 JSP AC-2,.+1 11403 037623 302 07 0 00 000000 CAIE AC,0 11404 037624 003 07 0 00 007501 ER3 AC,SN ;C(AC) WAS CLOBBERED 11405 037625 302 10 0 00 000002 CAIE AC+1,ZZ 11406 037626 004 10 0 00 007501 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 11407 037627 255 10 0 00 037631 JOV .+2 ;TEST FOR OVERFLOW 11408 037630 254 00 0 00 037632 JRST ,.+2 11409 037631 013 05 0 00 007501 ER13 AC-2,SN 11410 037632 321 11 0 00 037616 JUMPL AC+2,.-^D12 11411 11412 007502 SN=SN+1 11413 000004 ZZ=ZZ+ZZ 11414 037633 254 02 1 00 045301 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 11415 037634 201 07 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11416 037635 205 06 0 00 400000 MOVSI AC-1,400000 ;SETUP DVSR 11417 037636 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (-N) 11418 037637 265 05 0 00 037640 JSP AC-2,.+1 11419 037640 302 07 0 00 000000 CAIE AC,0 11420 037641 003 07 0 00 007502 ER3 AC,SN ;C(AC) WAS CLOBBERED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 34-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0244 11421 037642 302 10 0 00 000004 CAIE AC+1,ZZ 11422 037643 004 10 0 00 007502 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 11423 037644 255 10 0 00 037646 JOV .+2 ;TEST FOR OVERFLOW 11424 037645 254 00 0 00 037647 JRST ,.+2 11425 037646 013 05 0 00 007502 ER13 AC-2,SN 11426 037647 321 11 0 00 037633 JUMPL AC+2,.-^D12 11427 11428 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 34-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0245 11429 ;DVND = 7,13 11430 ;DVSR = 2 11431 11432 000006 AC=6 11433 SAVEAC (1,1)^ 11434 037650 201 10 0 00 037650 MOVEI AC+2,. ;SAVE TEST PC 11435 037651 202 10 0 00 030051 MOVEM AC+2,TESTPC 11436 037652 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11437 037653 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11438 037654 254 02 1 00 045302 JRSTF @@[.+1] ;CLEAR ALL FLAGS 11439 11440 007600 SN=7600 11441 000003 ZZ=3 11442 11443 F7600: REPEAT ^D2, 11444 11455 007601 SN=SN+1 11456 000007 ZZ=ZZ+4 11457 037655 201 06 0 00 000007 MOVEI AC,ZZ ;SETUP DVND 11458 037656 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11459 037657 230 06 0 00 000005 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 2 11460 037660 302 06 0 00 000003 CAIE AC,ZZ/2 ;TEST QUOT 11461 037661 003 06 0 00 007601 ER3 AC,SN 11462 037662 302 07 0 00 000001 CAIE AC+1,1 ;TEST REMD 11463 037663 004 07 0 00 007601 ER4 AC+1,SN 11464 037664 321 10 0 00 037655 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11465 11466 007602 SN=SN+1 11467 000013 ZZ=ZZ+4 11468 037665 201 06 0 00 000013 MOVEI AC,ZZ ;SETUP DVND 11469 037666 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11470 037667 230 06 0 00 000005 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 2 11471 037670 302 06 0 00 000005 CAIE AC,ZZ/2 ;TEST QUOT 11472 037671 003 06 0 00 007602 ER3 AC,SN 11473 037672 302 07 0 00 000001 CAIE AC+1,1 ;TEST REMD 11474 037673 004 07 0 00 007602 ER4 AC+1,SN 11475 037674 321 10 0 00 037665 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11476 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 35 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0246 11477 ;DVND = 2,4 11478 ;DVSR = 2,4 11479 11480 000005 AC=5 11481 SAVEAC (1,1)^ 11482 037675 201 07 0 00 037675 MOVEI AC+2,. ;SAVE TEST PC 11483 037676 202 07 0 00 030051 MOVEM AC+2,TESTPC 11484 037677 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11485 037700 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11486 11487 007700 SN=7700 11488 000000 XX=0 11489 000001 ZZ=1 11490 11491 F7700: REPEAT ^D2, 11492 11496 SETOM AC+1 ;INITIALIZE REMAINDER 11497 MOVEI AC,ZZ ;SETUP DVND 11498 MOVEI AC-1,ZZ ;SETUP DVSR 11499 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (ZZ) 11500 CAIE AC,1 ;TEST QUOT 11501 ER3 AC,SN 11502 SKIPE AC+1 ;TEST REMD 11503 ER4 AC+1,SN 11504 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11505 > 11506 007701 SN=SN+1 11507 000000 XX=XX+XX 11508 000002 ZZ=ZZ+ZZ 11509 000001 IFE XX, 11510 037701 476 00 0 00 000006 SETOM AC+1 ;INITIALIZE REMAINDER 11511 037702 201 05 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 11512 037703 201 04 0 00 000002 MOVEI AC-1,ZZ ;SETUP DVSR 11513 037704 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (ZZ) 11514 037705 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT 11515 037706 003 05 0 00 007701 ER3 AC,SN 11516 037707 332 00 0 00 000006 SKIPE AC+1 ;TEST REMD 11517 037710 004 06 0 00 007701 ER4 AC+1,SN 11518 037711 321 07 0 00 037701 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11519 11520 007702 SN=SN+1 11521 000002 XX=XX+XX 11522 000004 ZZ=ZZ+ZZ 11523 IFE XX, 11524 037712 476 00 0 00 000006 SETOM AC+1 ;INITIALIZE REMAINDER 11525 037713 201 05 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11526 037714 201 04 0 00 000004 MOVEI AC-1,ZZ ;SETUP DVSR 11527 037715 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (ZZ) 11528 037716 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT 11529 037717 003 05 0 00 007702 ER3 AC,SN 11530 037720 332 00 0 00 000006 SKIPE AC+1 ;TEST REMD 11531 037721 004 06 0 00 007702 ER4 AC+1,SN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 35-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0247 11532 037722 321 07 0 00 037712 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11533 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 36 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0248 11534 ;DVND = 177777 777777,0777777 777777 11535 ;DVSR = 1 11536 11537 000004 AC=4 11538 SAVEAC (1,1)^ 11539 037723 201 06 0 00 037723 MOVEI AC+2,. ;SAVE TEST PC 11540 037724 202 06 0 00 030051 MOVEM AC+2,TESTPC 11541 037725 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11542 037726 202 06 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11543 11544 010000 SN=10000 11545 377777 ZZ=377777 11546 11547 F10000: REPEAT ^D2, 11548 11560 010001 SN=SN+1 11561 177777 ZZ=ZZ/2 11562 037727 525 02 0 00 177777 HRLOI AC-2,ZZ ;SETUP FOR COMPARISON 11563 037730 525 04 0 00 177777 HRLOI AC,ZZ ;SETUP DVND 11564 037731 201 03 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11565 037732 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11566 037733 312 04 0 00 000002 CAME AC,AC-2 ;TEST QUOTIENT 11567 037734 003 04 0 00 010001 ER3 AC,SN 11568 037735 332 00 0 00 000005 SKIPE AC+1 ;TEST REMAINDER 11569 037736 004 05 0 00 010001 ER4 AC+1,SN 11570 037737 321 06 0 00 037727 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11571 11572 010002 SN=SN+1 11573 077777 ZZ=ZZ/2 11574 037740 525 02 0 00 077777 HRLOI AC-2,ZZ ;SETUP FOR COMPARISON 11575 037741 525 04 0 00 077777 HRLOI AC,ZZ ;SETUP DVND 11576 037742 201 03 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11577 037743 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11578 037744 312 04 0 00 000002 CAME AC,AC-2 ;TEST QUOTIENT 11579 037745 003 04 0 00 010002 ER3 AC,SN 11580 037746 332 00 0 00 000005 SKIPE AC+1 ;TEST REMAINDER 11581 037747 004 05 0 00 010002 ER4 AC+1,SN 11582 037750 321 06 0 00 037740 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11583 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 37 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0249 11584 ;TEST ABILITY TO SWAP REMD 11585 ;AND QUOT 11586 ;DVND = 5,13 11587 ;DVSR - 3 11588 ;FAILURE RESULTS IN A QUOT 11589 ;EQUAL TO THE REMD 11590 11591 000014 AC=14 11592 SAVEAC (1,1)^ 11593 037751 201 16 0 00 037751 MOVEI AC+2,. ;SAVE TEST PC 11594 037752 202 16 0 00 030051 MOVEM AC+2,TESTPC 11595 037753 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11596 037754 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11597 11598 010300 SN=10300 11599 777777 777777 ZZ=-1 11600 11601 F10300: REPEAT ^D2, 11602 11614 010301 SN=SN+1 11615 000005 ZZ=ZZ+6 11616 037755 201 12 0 00 000002 MOVEI AC-2,2 11617 037756 201 14 0 00 000005 MOVEI AC,ZZ ;SETUP DVND 11618 037757 201 13 0 00 000003 MOVEI AC-1,3 ;SETUP DVSR 11619 037760 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE ZZ BY 3 11620 037761 302 14 0 00 000001 CAIE AC,ZZ/3 ;TEST QUOT 11621 037762 003 14 0 00 010301 ER3 AC,SN 11622 037763 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST REMD 11623 037764 004 15 0 00 010301 ER4 AC+1,SN 11624 037765 321 16 0 00 037755 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11625 11626 010302 SN=SN+1 11627 000013 ZZ=ZZ+6 11628 037766 201 12 0 00 000002 MOVEI AC-2,2 11629 037767 201 14 0 00 000013 MOVEI AC,ZZ ;SETUP DVND 11630 037770 201 13 0 00 000003 MOVEI AC-1,3 ;SETUP DVSR 11631 037771 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE ZZ BY 3 11632 037772 302 14 0 00 000003 CAIE AC,ZZ/3 ;TEST QUOT 11633 037773 003 14 0 00 010302 ER3 AC,SN 11634 037774 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST REMD 11635 037775 004 15 0 00 010302 ER4 AC+1,SN 11636 037776 321 16 0 00 037766 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11637 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 38 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0250 11638 ;DVND = 2,4 11639 ;DVSR = 1 11640 ;DVND = 377777 777777,177777 777777 11641 ;DVSR = 1 11642 11643 000013 AC=13 11644 SAVEAC (1,1)^ 11645 037777 201 15 0 00 037777 MOVEI AC+2,. ;SAVE TEST PC 11646 040000 202 15 0 00 030051 MOVEM AC+2,TESTPC 11647 040001 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11648 040002 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11649 11650 010400 SN=10400 11651 000001 ZZ=1 11652 11653 F10400: REPEAT ^D2, 11654 11665 010401 SN=SN+1 11666 000002 ZZ=ZZ+ZZ 11667 040003 201 13 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 11668 040004 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11669 040005 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11670 040006 302 13 0 00 000002 CAIE AC,ZZ ;TEST QUOT 11671 040007 003 13 0 00 010401 ER3 AC,SN 11672 040010 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD 11673 040011 004 14 0 00 010401 ER4 AC+1,SN 11674 040012 321 15 0 00 040002 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11675 11676 010402 SN=SN+1 11677 000004 ZZ=ZZ+ZZ 11678 040013 201 13 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11679 040014 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11680 040015 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11681 040016 302 13 0 00 000004 CAIE AC,ZZ ;TEST QUOT 11682 040017 003 13 0 00 010402 ER3 AC,SN 11683 040020 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD 11684 040021 004 14 0 00 010402 ER4 AC+1,SN 11685 040022 321 15 0 00 040012 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11686 11687 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 38-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0251 11688 010500 SN=10500 11689 000000 ZZ=0 11690 11691 F10500: REPEAT ^D2, 11692 11695 HRLOI AC-2,ZZ ;SETUP FOR COMPARISON 11696 HRLOI AC,ZZ ;SETUP DVND 11697 MOVEI AC-1,1 ;SETUP DVSR 11698 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11699 CAME AC,AC-2 ;TEST QUOT 11700 ER3 AC,SN 11701 SKIPE AC+1 ;TEST REMD 11702 ER4 AC+1,SN 11703 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11704 > 11705 010501 SN=SN+1 11706 000000 ZZ=ZZ/2 11707 377777 IFE ZZ, 11708 040023 525 11 0 00 377777 HRLOI AC-2,ZZ ;SETUP FOR COMPARISON 11709 040024 525 13 0 00 377777 HRLOI AC,ZZ ;SETUP DVND 11710 040025 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11711 040026 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11712 040027 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT 11713 040030 003 13 0 00 010501 ER3 AC,SN 11714 040031 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD 11715 040032 004 14 0 00 010501 ER4 AC+1,SN 11716 040033 321 15 0 00 040023 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11717 11718 010502 SN=SN+1 11719 177777 ZZ=ZZ/2 11720 IFE ZZ, 11721 040034 525 11 0 00 177777 HRLOI AC-2,ZZ ;SETUP FOR COMPARISON 11722 040035 525 13 0 00 177777 HRLOI AC,ZZ ;SETUP DVND 11723 040036 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 11724 040037 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 11725 040040 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT 11726 040041 003 13 0 00 010502 ER3 AC,SN 11727 040042 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD 11728 040043 004 14 0 00 010502 ER4 AC+1,SN 11729 040044 321 15 0 00 040034 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11730 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 39 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0252 11731 ;DVND = 100 11732 ;DVSR = 2,4 11733 ;FAILURE RESULTS IN A QUOT = 252525 252525 11734 11735 000004 AC=4 11736 SAVEAC (1,1)^ 11737 040045 201 06 0 00 040045 MOVEI AC+2,. ;SAVE TEST PC 11738 040046 202 06 0 00 030051 MOVEM AC+2,TESTPC 11739 040047 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11740 040050 202 06 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11741 11742 011300 SN=11300 11743 000001 ZZ=1 11744 11745 F11300: REPEAT ^D2, 11746 11755 011301 SN=SN+1 11756 000002 ZZ=ZZ+ZZ 11757 040051 201 04 0 00 000100 MOVEI AC,100 ;SETUP DVND 11758 040052 201 03 0 00 000002 MOVEI AC-1,ZZ ;SETUP DVSR 11759 040053 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE 100 BY (ZZ) 11760 040054 302 04 0 00 000040 CAIE AC,100/ZZ ;TEST QUOT 11761 040055 003 04 0 00 011301 ER3 AC,SN 11762 040056 321 06 0 00 040047 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11763 11764 011302 SN=SN+1 11765 000004 ZZ=ZZ+ZZ 11766 040057 201 04 0 00 000100 MOVEI AC,100 ;SETUP DVND 11767 040060 201 03 0 00 000004 MOVEI AC-1,ZZ ;SETUP DVSR 11768 040061 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE 100 BY (ZZ) 11769 040062 302 04 0 00 000020 CAIE AC,100/ZZ ;TEST QUOT 11770 040063 003 04 0 00 011302 ER3 AC,SN 11771 040064 321 06 0 00 040055 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11772 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 40 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0253 11773 ;DVND = 4,10 11774 ;DVSR = -2 11775 ;FAILURE OF EITHER RESULTS IN A QUOT 11776 ;= 2'S COMP ACTUAL,A REMD = 0 11777 11778 000011 AC=11 11779 SAVEAC (1,1)^ 11780 040065 201 13 0 00 040065 MOVEI AC+2,. ;SAVE TEST PC 11781 040066 202 13 0 00 030051 MOVEM AC+2,TESTPC 11782 040067 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11783 040070 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11784 11785 011400 SN=11400 11786 777777 777777 XX=-1 11787 000002 ZZ=2 11788 11789 F11400: REPEAT ^D2, 11790 11803 011401 SN=SN+1 11804 777777 777776 XX=XX+XX 11805 000004 ZZ=ZZ+ZZ 11806 040071 561 07 0 00 777776 HRROI AC-2,XX ;SETUP FOR COMPARISON 11807 040072 201 11 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11808 040073 561 10 0 00 777776 HRROI AC-1,-2 ;SETUP DVSR 11809 040074 230 11 0 00 000010 IDIV AC,AC-1 ;DIVIDE (ZZ) BY -2 11810 040075 332 00 0 00 000012 SKIPE AC+1 ;TEST REMD = 0 11811 040076 004 12 0 00 011401 ER4 AC+1,SN 11812 040077 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOTIENT 11813 040100 003 11 0 00 011401 ER3 AC,SN 11814 040101 321 13 0 00 040071 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11815 11816 011402 SN=SN+1 11817 777777 777774 XX=XX+XX 11818 000010 ZZ=ZZ+ZZ 11819 040102 561 07 0 00 777774 HRROI AC-2,XX ;SETUP FOR COMPARISON 11820 040103 201 11 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 11821 040104 561 10 0 00 777776 HRROI AC-1,-2 ;SETUP DVSR 11822 040105 230 11 0 00 000010 IDIV AC,AC-1 ;DIVIDE (ZZ) BY -2 11823 040106 332 00 0 00 000012 SKIPE AC+1 ;TEST REMD = 0 11824 040107 004 12 0 00 011402 ER4 AC+1,SN 11825 040110 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOTIENT 11826 040111 003 11 0 00 011402 ER3 AC,SN 11827 040112 321 13 0 00 040102 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 40-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0254 11828 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 42 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0255 11829 ;DVND = 377777 777777,177777 777777 11830 ;DVSR = 2 11831 11832 000012 AC=12 11833 SAVEAC (1,1)^ 11834 040113 201 14 0 00 040113 MOVEI AC+2,. ;SAVE TEST PC 11835 040114 202 14 0 00 030051 MOVEM AC+2,TESTPC 11836 040115 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11837 040116 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11838 11839 012000 SN=12000 11840 377777 XX=377777 11841 000000 ZZ=0 11842 11843 F12000: REPEAT ^D2, 11844 11848 HRLOI AC-2,XX ;SETUP FOR COMPARISON 11849 HRLOI AC,ZZ ;SETUP DVND 11850 MOVEI AC-1,2 ;SETUP DVSR 11851 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 2 11852 CAIE AC+1,1 11853 ER4 AC+1,SN 11854 CAME AC,AC-2 ;TEST QUOT = 1/2 DVND 11855 ER3 AC,SN 11856 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11857 > 11858 012001 SN=SN+1 11859 177777 XX=XX/2 11860 000000 ZZ=ZZ/2 11861 377777 IFE ZZ, 11862 040117 525 10 0 00 177777 HRLOI AC-2,XX ;SETUP FOR COMPARISON 11863 040120 525 12 0 00 377777 HRLOI AC,ZZ ;SETUP DVND 11864 040121 201 11 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11865 040122 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 2 11866 040123 302 13 0 00 000001 CAIE AC+1,1 11867 040124 004 13 0 00 012001 ER4 AC+1,SN 11868 040125 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT = 1/2 DVND 11869 040126 003 12 0 00 012001 ER3 AC,SN 11870 040127 321 14 0 00 040117 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11871 11872 012002 SN=SN+1 11873 077777 XX=XX/2 11874 177777 ZZ=ZZ/2 11875 IFE ZZ, 11876 040130 525 10 0 00 077777 HRLOI AC-2,XX ;SETUP FOR COMPARISON 11877 040131 525 12 0 00 177777 HRLOI AC,ZZ ;SETUP DVND 11878 040132 201 11 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11879 040133 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (ZZ) BY 2 11880 040134 302 13 0 00 000001 CAIE AC+1,1 11881 040135 004 13 0 00 012002 ER4 AC+1,SN 11882 040136 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT = 1/2 DVND 11883 040137 003 12 0 00 012002 ER3 AC,SN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 42-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0256 11884 040140 321 14 0 00 040130 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11885 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 43 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0257 11886 ;DVND = 4,10 11887 ;DVSR = 400000 000000 11888 11889 012300 SN=12300 11890 000002 ZZ=2 11891 11892 F12300: REPEAT ^D2, 11893 11904 012301 SN=SN+1 11905 000004 ZZ=ZZ+ZZ 11906 040141 201 12 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 11907 040142 205 11 0 00 400000 MOVSI AC-1,400000 ;SETUP DVSR 11908 040143 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (-N) 11909 040144 332 00 0 00 000012 SKIPE AC ;TEST QUOT 11910 040145 003 12 0 00 012301 ER3 AC,SN 11911 040146 302 13 0 00 000004 CAIE AC+1,ZZ ;TEST REMD 11912 040147 004 13 0 00 012301 ER4 AC+1,SN 11913 040150 321 14 0 00 040140 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11914 11915 012302 SN=SN+1 11916 000010 ZZ=ZZ+ZZ 11917 040151 201 12 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 11918 040152 205 11 0 00 400000 MOVSI AC-1,400000 ;SETUP DVSR 11919 040153 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (ZZ) BY (-N) 11920 040154 332 00 0 00 000012 SKIPE AC ;TEST QUOT 11921 040155 003 12 0 00 012302 ER3 AC,SN 11922 040156 302 13 0 00 000010 CAIE AC+1,ZZ ;TEST REMD 11923 040157 004 13 0 00 012302 ER4 AC+1,SN 11924 040160 321 14 0 00 040150 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 11925 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 44 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0258 11926 ;DVND = -40,-20 11927 ;DVSR = 2 11928 11929 000006 AC=6 11930 SAVEAC (1,1)^ 11931 040161 201 10 0 00 040161 MOVEI AC+2,. ;SAVE TEST PC 11932 040162 202 10 0 00 030051 MOVEM AC+2,TESTPC 11933 040163 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11934 040164 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11935 11936 012600 SN=12600 11937 777777 777700 ZZ=-100 11938 11939 F12600: REPEAT ^D2, 11940 11951 012601 SN=SN+1 11952 777777 777740 ZZ=ZZ/2 11953 040165 561 06 0 00 777740 HRROI AC,ZZ ;SETUP DVND 11954 040166 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11955 040167 230 06 0 00 000005 IDIV AC,AC-1 ;DIVIDE ZZ BY 2 11956 040170 312 06 0 00 045303 CAME AC,[ZZ/2] ;TEST QUOT = 0 11957 040171 003 06 0 00 012601 ER3 AC,SN 11958 040172 332 00 0 00 000007 SKIPE AC+1 ;TEST REMD 11959 040173 004 07 0 00 012601 ER4 AC+1,SN 11960 040174 321 10 0 00 040165 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11961 11962 012602 SN=SN+1 11963 777777 777760 ZZ=ZZ/2 11964 040175 561 06 0 00 777760 HRROI AC,ZZ ;SETUP DVND 11965 040176 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 11966 040177 230 06 0 00 000005 IDIV AC,AC-1 ;DIVIDE ZZ BY 2 11967 040200 312 06 0 00 045304 CAME AC,[ZZ/2] ;TEST QUOT = 0 11968 040201 003 06 0 00 012602 ER3 AC,SN 11969 040202 332 00 0 00 000007 SKIPE AC+1 ;TEST REMD 11970 040203 004 07 0 00 012602 ER4 AC+1,SN 11971 040204 321 10 0 00 040175 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 11972 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 45 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0259 11973 ;DVND = -100,-40 11974 ;DVSR = 2 11975 11976 000004 AC=4 11977 SAVEAC (1,1)^ 11978 040205 201 06 0 00 040205 MOVEI AC+2,. ;SAVE TEST PC 11979 040206 202 06 0 00 030051 MOVEM AC+2,TESTPC 11980 040207 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 11981 040210 202 06 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 11982 11983 013000 SN=13000 11984 777777 777600 ZZ=-200 11985 11986 F13000: REPEAT ^D2, 11987 11999 013001 SN=SN+1 12000 777777 777700 ZZ=ZZ/2 12001 040211 561 02 0 00 777740 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12002 040212 561 04 0 00 777700 HRROI AC,ZZ ;SETUP DVND 12003 040213 201 03 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12004 040214 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12005 040215 312 04 0 00 000002 CAME AC,AC-2 ;TEST QUOT 12006 040216 003 04 0 00 013001 ER3 AC,SN 12007 040217 332 00 0 00 000005 SKIPE AC+1 ;TEST REMD 12008 040220 004 05 0 00 013001 ER4 AC+1,SN 12009 040221 321 06 0 00 040210 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12010 12011 013002 SN=SN+1 12012 777777 777740 ZZ=ZZ/2 12013 040222 561 02 0 00 777760 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12014 040223 561 04 0 00 777740 HRROI AC,ZZ ;SETUP DVND 12015 040224 201 03 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12016 040225 230 04 0 00 000003 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12017 040226 312 04 0 00 000002 CAME AC,AC-2 ;TEST QUOT 12018 040227 003 04 0 00 013002 ER3 AC,SN 12019 040230 332 00 0 00 000005 SKIPE AC+1 ;TEST REMD 12020 040231 004 05 0 00 013002 ER4 AC+1,SN 12021 040232 321 06 0 00 040221 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12022 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 46 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0260 12023 ;FAILURE RESULTS IN A QUOT AND 12024 ;REMD WHICH ARE THE TWO'S 12025 ;COMPLEMENT OF ACTUAL 12026 ;DVND = -7,-17 12027 ;DVSR = 4 12028 12029 000014 AC=14 12030 SAVEAC (1,1)^ 12031 040233 201 16 0 00 040233 MOVEI AC+2,. ;SAVE TEST PC 12032 040234 202 16 0 00 030051 MOVEM AC+2,TESTPC 12033 040235 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12034 040236 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12035 12036 013200 SN=13200 12037 000001 ZZ=1 12038 12039 F13200: REPEAT ^D2, 12040 12053 013201 SN=SN+1 12054 777777 777771 ZZ=ZZ-10 12055 040237 561 12 0 00 777777 HRROI AC-2,ZZ/4 ;SETUP FOR COMPARISON 12056 040240 561 14 0 00 777771 HRROI AC,ZZ ;SETUP DVND 12057 040241 201 13 0 00 000004 MOVEI AC-1,4 ;SETUP DVSR 12058 040242 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 4 12059 040243 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 12060 040244 003 14 0 00 013201 ER3 AC,SN 12061 040245 561 12 0 00 777775 HRROI AC-2,-3 ;SETUP FOR COMPARISON 12062 040246 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST REMD 12063 040247 004 15 0 00 013201 ER4 AC+1,SN 12064 040250 321 16 0 00 040237 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12065 12066 013202 SN=SN+1 12067 777777 777761 ZZ=ZZ-10 12068 040251 561 12 0 00 777775 HRROI AC-2,ZZ/4 ;SETUP FOR COMPARISON 12069 040252 561 14 0 00 777761 HRROI AC,ZZ ;SETUP DVND 12070 040253 201 13 0 00 000004 MOVEI AC-1,4 ;SETUP DVSR 12071 040254 230 14 0 00 000013 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 4 12072 040255 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 12073 040256 003 14 0 00 013202 ER3 AC,SN 12074 040257 561 12 0 00 777775 HRROI AC-2,-3 ;SETUP FOR COMPARISON 12075 040260 312 15 0 00 000012 CAME AC+1,AC-2 ;TEST REMD 12076 040261 004 15 0 00 013202 ER4 AC+1,SN 12077 040262 321 16 0 00 040251 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 46-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0261 12078 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 47 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0262 12079 ;DVND = -77,-37 12080 ;DVSR = 2 12081 12082 000013 AC=13 12083 SAVEAC (1,1)^ 12084 040263 201 15 0 00 040263 MOVEI AC+2,. ;SAVE TEST PC 12085 040264 202 15 0 00 030051 MOVEM AC+2,TESTPC 12086 040265 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12087 040266 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12088 12089 013300 SN=13300 12090 777777 777601 ZZ=-177 12091 12092 F13300: REPEAT ^D2, 12093 12106 013301 SN=SN+1 12107 777777 777701 ZZ=ZZ/2 12108 040267 561 11 0 00 777777 HRROI AC-2,-1 ;SETUP FOR COMPARISON 12109 040270 561 13 0 00 777701 HRROI AC,ZZ ;SETUP DVND 12110 040271 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12111 040272 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12112 040273 312 14 0 00 000011 CAME AC+1,AC-2 ;TEST REMD 12113 040274 004 14 0 00 013301 ER4 AC+1,SN 12114 040275 561 11 0 00 777741 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12115 040276 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOTIENT 12116 040277 003 13 0 00 000011 ER3 AC,AC-2 12117 040300 321 15 0 00 040267 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12118 12119 013302 SN=SN+1 12120 777777 777741 ZZ=ZZ/2 12121 040301 561 11 0 00 777777 HRROI AC-2,-1 ;SETUP FOR COMPARISON 12122 040302 561 13 0 00 777741 HRROI AC,ZZ ;SETUP DVND 12123 040303 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12124 040304 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12125 040305 312 14 0 00 000011 CAME AC+1,AC-2 ;TEST REMD 12126 040306 004 14 0 00 013302 ER4 AC+1,SN 12127 040307 561 11 0 00 777761 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12128 040310 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOTIENT 12129 040311 003 13 0 00 000011 ER3 AC,AC-2 12130 040312 321 15 0 00 040301 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12131 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 48 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0263 12132 ;DVND = -4,-10 12133 ;DVSR = 2 12134 12135 000012 AC=12 12136 SAVEAC (1,1)^ 12137 040313 201 14 0 00 040313 MOVEI AC+2,. ;SAVE TEST PC 12138 040314 202 14 0 00 030051 MOVEM AC+2,TESTPC 12139 040315 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12140 040316 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12141 12142 013500 SN=13500 12143 777777 777776 ZZ=-2 12144 12145 F13500: REPEAT ^D2, 12146 12158 013501 SN=SN+1 12159 777777 777774 ZZ=ZZ+ZZ 12160 040317 561 10 0 00 777776 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12161 040320 561 12 0 00 777774 HRROI AC,ZZ ;SETUP DVND 12162 040321 201 11 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12163 040322 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12164 040323 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOTIENT 12165 040324 003 12 0 00 013501 ER3 AC,SN 12166 040325 332 00 0 00 000013 SKIPE AC+1 ;TEST REMAINDER 12167 040326 004 13 0 00 013501 ER4 AC+1,SN 12168 040327 321 14 0 00 040317 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12169 12170 013502 SN=SN+1 12171 777777 777770 ZZ=ZZ+ZZ 12172 040330 561 10 0 00 777774 HRROI AC-2,ZZ/2 ;SETUP FOR COMPARISON 12173 040331 561 12 0 00 777770 HRROI AC,ZZ ;SETUP DVND 12174 040332 201 11 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12175 040333 230 12 0 00 000011 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY 2 12176 040334 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOTIENT 12177 040335 003 12 0 00 013502 ER3 AC,SN 12178 040336 332 00 0 00 000013 SKIPE AC+1 ;TEST REMAINDER 12179 040337 004 13 0 00 013502 ER4 AC+1,SN 12180 040340 321 14 0 00 040330 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12181 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 49 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0264 12182 ;TEST IDIV- TWO NEGATIVES 12183 ;TEST ABILITY TO DIVIDE TWO 12184 ;NEGATIVE NUMBERS 12185 ;TEST EXERCISES MAJORITY 12186 ;OF IDIV LOGIC GATES 12187 ;DVND = -2,-4 12188 ;DVSR = -2,-4 12189 12190 000007 AC=7 12191 SAVEAC (1,1)^ 12192 040341 201 11 0 00 040341 MOVEI AC+2,. ;SAVE TEST PC 12193 040342 202 11 0 00 030051 MOVEM AC+2,TESTPC 12194 040343 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12195 040344 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12196 12197 014000 SN=14000 12198 777777 777777 ZZ=-1 12199 12200 F14000: REPEAT ^D2, ;DIVIDE TWO NEGATIVES 12201 12212 014001 SN=SN+1 12213 777777 777776 ZZ=ZZ+ZZ 12214 040345 561 07 0 00 777776 HRROI AC,ZZ ;SETUP DVND 12215 040346 561 06 0 00 777776 HRROI AC-1,ZZ ;SETUP DVSR 12216 040347 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY (-ZZ) 12217 040350 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT (POSITIVE) 12218 040351 003 07 0 00 014001 ER3 AC,SN ;INCORRECT SIGN 12219 040352 332 00 0 00 000010 SKIPE AC+1 ;TEST REMAINDER 12220 040353 004 10 0 00 014001 ER4 AC+1,SN 12221 040354 321 11 0 00 040345 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 12222 12223 014002 SN=SN+1 12224 777777 777774 ZZ=ZZ+ZZ 12225 040355 561 07 0 00 777774 HRROI AC,ZZ ;SETUP DVND 12226 040356 561 06 0 00 777774 HRROI AC-1,ZZ ;SETUP DVSR 12227 040357 230 07 0 00 000006 IDIV AC,AC-1 ;DIVIDE (-ZZ) BY (-ZZ) 12228 040360 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT (POSITIVE) 12229 040361 003 07 0 00 014002 ER3 AC,SN ;INCORRECT SIGN 12230 040362 332 00 0 00 000010 SKIPE AC+1 ;TEST REMAINDER 12231 040363 004 10 0 00 014002 ER4 AC+1,SN 12232 040364 321 11 0 00 040355 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 12233 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 50 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0265 12234 ;TEST IDIV -IMMEDIATE MODE 12235 ;TEST ABILITY TO DIVIDE BY E VICE C(E) 12236 ;DVND = 2,4 12237 ;DVSR = E (C(E)=0) 12238 12239 014100 SN=14100 12240 000012 AC=12 12241 000001 ZZ=1 12242 12243 F14100: REPEAT ^D2, ;TEST IDIV-IMM MODE 12244 12262 014101 SN=SN+1 12263 000002 ZZ=ZZ+ZZ 12264 000011 AC=AC-1 12265 SAVEAC (1,1)^ 12266 040365 201 13 0 00 040365 MOVEI AC+2,. ;SAVE TEST PC 12267 040366 202 13 0 00 030051 MOVEM AC+2,TESTPC 12268 040367 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12269 040370 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE ERROR AC 12270 040371 254 02 1 00 045305 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 12271 040372 201 11 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 12272 040373 400 10 0 00 000000 SETZ AC-1, ;SETUP OVFL CONDITION 12273 040374 231 11 0 00 000010 IDIVI AC,AC-1 ;DIVIDE (ZZ) BY E 12274 040375 265 10 0 00 040376 JSP AC-1,.+1 12275 040376 302 11 0 00 000000 CAIE AC,0 12276 040377 003 11 0 00 014101 ER3 AC,SN ;C(AC) FAILED 12277 040400 302 12 0 00 000002 CAIE AC+1,ZZ 12278 040401 004 12 0 00 014101 ER4 AC+1,SN ;C(AC+1) FAILED 12279 040402 255 10 0 00 040404 JOV .+2 ;TEST FOR OVERFLOW 12280 040403 254 00 0 00 040405 JRST ,.+2 ;DIVIDED (ZZ) BY E 12281 040404 013 10 0 00 014101 ER13 AC-1,SN ;DIVIDED (ZZ) BY C(E) 12282 040405 321 13 0 00 040367 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 12283 12284 014102 SN=SN+1 12285 000004 ZZ=ZZ+ZZ 12286 000010 AC=AC-1 12287 SAVEAC (1,1)^ 12288 040406 201 12 0 00 040406 MOVEI AC+2,. ;SAVE TEST PC DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 50-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0266 12289 040407 202 12 0 00 030051 MOVEM AC+2,TESTPC 12290 040410 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12291 040411 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE ERROR AC 12292 040412 254 02 1 00 045306 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 12293 040413 201 10 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 12294 040414 400 07 0 00 000000 SETZ AC-1, ;SETUP OVFL CONDITION 12295 040415 231 10 0 00 000007 IDIVI AC,AC-1 ;DIVIDE (ZZ) BY E 12296 040416 265 07 0 00 040417 JSP AC-1,.+1 12297 040417 302 10 0 00 000000 CAIE AC,0 12298 040420 003 10 0 00 014102 ER3 AC,SN ;C(AC) FAILED 12299 040421 302 11 0 00 000004 CAIE AC+1,ZZ 12300 040422 004 11 0 00 014102 ER4 AC+1,SN ;C(AC+1) FAILED 12301 040423 255 10 0 00 040425 JOV .+2 ;TEST FOR OVERFLOW 12302 040424 254 00 0 00 040426 JRST ,.+2 ;DIVIDED (ZZ) BY E 12303 040425 013 07 0 00 014102 ER13 AC-1,SN ;DIVIDED (ZZ) BY C(E) 12304 040426 321 12 0 00 040410 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 12305 12306 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 50-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0267 12307 ;TEST IDIV-MEMORY MODE 12308 ;DVND = 10,20 12309 ;DVSR = 2 12310 12311 000014 AC=14 12312 SAVEAC (1,1)^ 12313 040427 201 16 0 00 040427 MOVEI AC+2,. ;SAVE TEST PC 12314 040430 202 16 0 00 030051 MOVEM AC+2,TESTPC 12315 040431 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12316 040432 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12317 040433 254 02 1 00 045307 JRSTF @@[.+1] ;CLEAR ALL FLAGS 12318 12319 014200 SN=14200 12320 000004 ZZ=4 12321 12322 F14200: REPEAT ^D2, ;TEST IDIV-MEMORY MODE 12323 12335 014201 SN=SN+1 12336 000010 ZZ=ZZ+ZZ 12337 040434 201 15 0 00 000010 MOVEI AC+1,ZZ ;SETUP FOR COMPARISON 12338 040435 201 14 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 12339 040436 201 13 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12340 040437 232 14 0 00 000013 IDIVM AC,AC-1 ;DIVIDE (ZZ) BY 2 12341 040440 312 14 0 00 000015 CAME AC,AC+1 12342 040441 003 14 0 00 014201 ER3 AC,SN 12343 040442 302 13 0 00 000004 CAIE AC-1,ZZ/2 ;TEST SCE 12344 040443 005 13 0 00 014201 ER5 AC-1,SN 12345 040444 321 16 0 00 040434 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12346 12347 014202 SN=SN+1 12348 000020 ZZ=ZZ+ZZ 12349 040445 201 15 0 00 000020 MOVEI AC+1,ZZ ;SETUP FOR COMPARISON 12350 040446 201 14 0 00 000020 MOVEI AC,ZZ ;SETUP DVND 12351 040447 201 13 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12352 040450 232 14 0 00 000013 IDIVM AC,AC-1 ;DIVIDE (ZZ) BY 2 12353 040451 312 14 0 00 000015 CAME AC,AC+1 12354 040452 003 14 0 00 014202 ER3 AC,SN 12355 040453 302 13 0 00 000010 CAIE AC-1,ZZ/2 ;TEST SCE 12356 040454 005 13 0 00 014202 ER5 AC-1,SN 12357 040455 321 16 0 00 040445 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12358 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 51 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0268 12359 ;TEST IDIV-BOTH MODE 12360 ;TEST ABILITY TO STORE QUOT 12361 ;IN AC AND E 12362 ;TEST ABILITY TO STORE REMD 12363 ;IN AC+1 12364 12365 000013 AC=13 12366 SAVEAC (1,1)^ 12367 040456 201 15 0 00 040456 MOVEI AC+2,. ;SAVE TEST PC 12368 040457 202 15 0 00 030051 MOVEM AC+2,TESTPC 12369 040460 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12370 040461 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12371 12372 014300 SN=14300 12373 000001 ZZ=1 12374 12375 F14300: REPEAT ^D2, ;TEST IDIV-BOTH MODE 12376 12388 014301 SN=SN+1 12389 000003 ZZ=ZZ+2 12390 040462 400 14 0 00 000000 SETZ AC+1, ;CLEAR AC+1 12391 040463 201 13 0 00 000003 MOVEI AC,ZZ ;SETUP DVND 12392 040464 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12393 040465 233 13 0 00 000012 IDIVB AC,AC-1 ;DIVIDE (ZZ) BY 2 12394 040466 312 13 0 00 000012 CAME AC,AC-1 ;TEST QUOT (C(AC)=C(E)) 12395 040467 003 13 0 00 014301 ER3 AC,SN ;STORE QUOTIENT FAILED 12396 040470 302 14 0 00 000001 CAIE AC+1,1 ;TEST REMD(=1) 12397 040471 004 14 0 00 014301 ER4 AC+1,SN ;STORE REMAINDER FAILED 12398 040472 321 15 0 00 040462 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12399 12400 014302 SN=SN+1 12401 000005 ZZ=ZZ+2 12402 040473 400 14 0 00 000000 SETZ AC+1, ;CLEAR AC+1 12403 040474 201 13 0 00 000005 MOVEI AC,ZZ ;SETUP DVND 12404 040475 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12405 040476 233 13 0 00 000012 IDIVB AC,AC-1 ;DIVIDE (ZZ) BY 2 12406 040477 312 13 0 00 000012 CAME AC,AC-1 ;TEST QUOT (C(AC)=C(E)) 12407 040500 003 13 0 00 014302 ER3 AC,SN ;STORE QUOTIENT FAILED 12408 040501 302 14 0 00 000001 CAIE AC+1,1 ;TEST REMD(=1) 12409 040502 004 14 0 00 014302 ER4 AC+1,SN ;STORE REMAINDER FAILED 12410 040503 321 15 0 00 040473 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12411 12412 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 51-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0269 12413 ;TEST IDIV 12414 ;DVND = 400000000000 12415 ;DVSR = 2 12416 ;QUOT = 600000000000 12417 ;REMND = 0 12418 12419 000013 AC=13 12420 SAVEAC (1,1)^ 12421 040504 201 15 0 00 040504 MOVEI AC+2,. ;SAVE TEST PC 12422 040505 202 15 0 00 030051 MOVEM AC+2,TESTPC 12423 040506 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12424 040507 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12425 12426 400000 ZZ=400000 12427 600000 XX=600000 12428 12429 040510 474 14 0 00 000000 F14400: SETO AC+1, ;INITIALIZE REMAINDER STORAGE 12430 040511 205 11 0 00 600000 MOVSI AC-2,XX ;SET UP COMPARISON FOR QUOTIENT 12431 040512 400 10 0 00 000000 SETZ AC-3, ;SET UP COMPARISON FOR REMAINDER 12432 040513 205 13 0 00 400000 MOVSI AC,ZZ ;SET UP DIVIDEND 12433 040514 201 12 0 00 000002 MOVEI AC-1,2 ;SET UP DIVISOR 12434 040515 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE 400000000000 BY 2 12435 040516 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOTIENT 12436 040517 003 13 0 00 014401 ER3 AC,14401 ;STORE QUOTIENT FAILED 12437 040520 312 14 0 00 000010 CAME AC+1,AC-3 ;TEST REMAINDER 12438 040521 004 14 0 00 014401 ER4 AC+1,14401 ;STORE REMAINDER FAILED 12439 040522 321 15 0 00 040510 JUMPL AC+2,F14400 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 52 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - INTEGER DIVIDE TEST SEQ 0270 12440 ;TEST IDIVB (DIVIDE CHECK) 12441 12442 040523 254 02 1 00 045310 F14410: JRSTF @@[.+1] ;CLEAR ALL FLAGS 12443 040524 201 13 0 00 000004 MOVEI AC,4 ;SETUP DIVIDEND 12444 040525 201 14 0 00 000004 MOVEI AC+1,4 ;SETUP REMAINDER 12445 040526 400 12 0 00 000000 SETZ AC-1, ;SETUP DIVISOR 12446 040527 233 13 0 00 000012 IDIVB AC,AC-1 12447 040530 265 11 0 00 040531 JSP AC-2,.+1 ;SAVE FLAGS 12448 040531 302 13 0 00 000004 CAIE AC,4 12449 040532 003 13 0 00 014411 ER3 AC,14411 ;C(AC) WAS CLOBBERED 12450 040533 302 14 0 00 000004 CAIE AC+1,4 12451 040534 004 14 0 00 014411 ER4 AC+1,14411 ;C(AC+1) WAS CLOBBERED 12452 040535 302 12 0 00 000000 CAIE AC-1,0 12453 040536 005 12 0 00 014411 ER5 AC-1,14411 ;C(E) WAS CLOBBERED 12454 040537 255 10 0 00 040541 JOV .+2 12455 040540 013 11 0 00 014411 ER13 AC-2,14411 ;ARCV FAILED TO SET 12456 040541 607 11 0 00 000040 TLNN AC-2,DCK 12457 040542 013 11 0 00 014411 ER13 AC-2,14411 ;'DCK' FAILED TO SET 12458 040543 321 15 0 00 040523 JUMPL AC+2,F14410 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 53 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0271 12459 SUBTTL DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST 12460 12461 ;TEST FAC2 AND DECODE 12462 ;TEST OF ABILITY TO ASSERT IRDIV 12463 ;TEST ABILITY TO FETCH C(AC+1) 12464 12465 000013 AC=13 12466 SAVEAC (1,1)^ 12467 040544 201 15 0 00 040544 MOVEI AC+2,. ;SAVE TEST PC 12468 040545 202 15 0 00 030051 MOVEM AC+2,TESTPC 12469 040546 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12470 040547 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12471 040550 254 02 1 00 045311 JRSTF @@[.+1] ;CLEAR ALL FLAGS 12472 12473 014500 SN=14500 12474 004000 000001 XX=4000000001 12475 000002 ZZ=2 12476 12477 F14500: REPEAT ^D2, ;TEST FAC2 FAILING(IRDIV) 12478 &17 ;TEST REMD = 0 12488 ER4 AC+1,SN 12489 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12490 > 12491 014501 SN=SN+1 12492 010000 000001 XX=XX+XX-1 12493 000004 ZZ=ZZ+ZZ 12494 040551 201 13 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND 12495 040552 201 14 0 00 000200 MOVEI AC+1,200 ;SETUP LOW DVND 12496 040553 201 12 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 12497 040554 234 13 0 00 000012 DIV AC,AC-1 ;DIVIDE (N) BY 200 12498 040555 312 13 0 00 045160 CAME AC,[XX] ;TEST BIT 35(1) (ODD QUOT) 12499 040556 003 13 0 00 014501 ER3 AC,SN 12500 040557 332 00 0 00 000014 SKIPE &17 ;TEST REMD = 0 12501 040560 004 14 0 00 014501 ER4 AC+1,SN 12502 040561 321 15 0 00 040551 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12503 12504 014502 SN=SN+1 12505 020000 000001 XX=XX+XX-1 12506 000010 ZZ=ZZ+ZZ 12507 040562 201 13 0 00 000010 MOVEI AC,ZZ ;SETUP HIGH DVND 12508 040563 201 14 0 00 000200 MOVEI AC+1,200 ;SETUP LOW DVND 12509 040564 201 12 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 12510 040565 234 13 0 00 000012 DIV AC,AC-1 ;DIVIDE (N) BY 200 12511 040566 312 13 0 00 045162 CAME AC,[XX] ;TEST BIT 35(1) (ODD QUOT) 12512 040567 003 13 0 00 014502 ER3 AC,SN 12513 040570 332 00 0 00 000014 SKIPE &17 ;TEST REMD = 0 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 53-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0272 12514 040571 004 14 0 00 014502 ER4 AC+1,SN 12515 040572 321 15 0 00 040562 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12516 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 54 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0273 12517 ;HIGH DVND = 2,4 12518 ;LOW DVND = 0 12519 ;DVSR = 2,4 12520 12521 000006 AC=6 12522 SAVEAC (1,1)^ 12523 040573 201 10 0 00 040573 MOVEI AC+2,. ;SAVE TEST PC 12524 040574 202 10 0 00 030051 MOVEM AC+2,TESTPC 12525 040575 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12526 040576 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12527 12528 014600 SN=14600 12529 000001 ZZ=1 12530 12531 F14600: REPEAT ^D2, 12532 &17 ;EXAMINE REMAINDER 12547 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 12548 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 12549 > 12550 014601 SN=SN+1 12551 000002 ZZ=ZZ+ZZ 12552 040577 254 02 1 00 045312 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12553 040600 201 06 0 00 000002 MOVEI AC,ZZ ;SETUP HIGH DVND 12554 040601 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12555 040602 201 05 0 00 000002 MOVEI AC-1,ZZ ;SETUP DVSR 12556 040603 234 06 0 00 000005 DIV AC,AC-1 ;DIVIDE ZZ BY ZZ 12557 040604 265 04 0 00 040605 JSP AC-2,.+1 12558 040605 255 10 0 00 040607 JOV .+2 ;TEST AROV FLAG 12559 040606 013 04 0 00 014601 ER13 AC-2,SN 12560 040607 607 04 0 00 000040 TLNN AC-2,DCK 12561 040610 013 04 0 00 014601 ER13 AC-2,SN ;DCK FAILED TO SET 12562 040611 302 06 0 00 000002 CAIE AC,ZZ ;EXAMINE QUOTIENT 12563 040612 003 06 0 00 014601 ER3 AC,SN ;C(AC) WAS CLOBBERED 12564 040613 332 00 0 00 000007 SKIPE &17 ;EXAMINE REMAINDER 12565 040614 004 07 0 00 014601 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 12566 040615 321 10 0 00 040577 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 12567 12568 014602 SN=SN+1 12569 000004 ZZ=ZZ+ZZ 12570 040616 254 02 1 00 045313 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12571 040617 201 06 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 54-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0274 12572 040620 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12573 040621 201 05 0 00 000004 MOVEI AC-1,ZZ ;SETUP DVSR 12574 040622 234 06 0 00 000005 DIV AC,AC-1 ;DIVIDE ZZ BY ZZ 12575 040623 265 04 0 00 040624 JSP AC-2,.+1 12576 040624 255 10 0 00 040626 JOV .+2 ;TEST AROV FLAG 12577 040625 013 04 0 00 014602 ER13 AC-2,SN 12578 040626 607 04 0 00 000040 TLNN AC-2,DCK 12579 040627 013 04 0 00 014602 ER13 AC-2,SN ;DCK FAILED TO SET 12580 040630 302 06 0 00 000004 CAIE AC,ZZ ;EXAMINE QUOTIENT 12581 040631 003 06 0 00 014602 ER3 AC,SN ;C(AC) WAS CLOBBERED 12582 040632 332 00 0 00 000007 SKIPE &17 ;EXAMINE REMAINDER 12583 040633 004 07 0 00 014602 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 12584 040634 321 10 0 00 040616 JUMPL AC+2,.-^D14 ;LOOP ON ERROR SWITCH 12585 12586 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 54-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0275 12587 ;=2 12588 ;HIGH DVND = 4 12589 ;LOW DVND = 4 12590 ;DVSR = 10,20 12591 12592 000005 AC=5 12593 SAVEAC (1,1)^ 12594 040635 201 07 0 00 040635 MOVEI AC+2,. ;SAVE TEST PC 12595 040636 202 07 0 00 030051 MOVEM AC+2,TESTPC 12596 040637 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12597 040640 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12598 040641 254 02 1 00 045314 JRSTF @@[.+1] ;CLEAR ALL FLAGS 12599 12600 014700 SN=14700 12601 000004 ZZ=4 12602 12603 F14700: REPEAT ^D2, 12604 12615 014701 SN=SN+1 12616 000010 ZZ=ZZ+ZZ 12617 040642 201 03 0 00 000004 MOVEI AC-2,4 ;SETUP FOR COMPARISON 12618 040643 201 05 0 00 000004 MOVEI AC,4 ;SETUP HIGH DVND 12619 040644 201 06 0 00 000004 MOVEI AC+1,4 ;SETUP LOW DVND 12620 040645 201 04 0 00 000010 MOVEI AC-1,ZZ ;SETUP DVSR 12621 040646 234 05 0 00 000004 DIV AC,AC-1 ;DIVIDE (N) BY ZZ 12622 040647 312 06 0 00 000003 CAME AC+1,AC-2 ;TEST REMD = 2 12623 040650 004 06 0 00 014701 ER4 AC+1,SN 12624 040651 321 07 0 00 040642 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 12625 12626 014702 SN=SN+1 12627 000020 ZZ=ZZ+ZZ 12628 040652 201 03 0 00 000004 MOVEI AC-2,4 ;SETUP FOR COMPARISON 12629 040653 201 05 0 00 000004 MOVEI AC,4 ;SETUP HIGH DVND 12630 040654 201 06 0 00 000004 MOVEI AC+1,4 ;SETUP LOW DVND 12631 040655 201 04 0 00 000020 MOVEI AC-1,ZZ ;SETUP DVSR 12632 040656 234 05 0 00 000004 DIV AC,AC-1 ;DIVIDE (N) BY ZZ 12633 040657 312 06 0 00 000003 CAME AC+1,AC-2 ;TEST REMD = 2 12634 040660 004 06 0 00 014702 ER4 AC+1,SN 12635 040661 321 07 0 00 040652 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 12636 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 55 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0276 12637 ;HIGH DVND = -1 12638 ;LOW DVND = -4,-10 12639 ;DVSR = 2 12640 12641 000013 AC=13 12642 SAVEAC (1,1)^ 12643 040662 201 15 0 00 040662 MOVEI AC+2,. ;SAVE TEST PC 12644 040663 202 15 0 00 030051 MOVEM AC+2,TESTPC 12645 040664 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12646 040665 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12647 12648 015000 SN=15000 12649 777777 777777 XX=-1 12650 777777 777776 ZZ=-2 12651 12652 F15000: REPEAT ^D2, 12653 12667 015001 SN=SN+1 12668 777777 777776 XX=XX+XX 12669 777777 777774 ZZ=ZZ+ZZ 12670 040666 561 11 0 00 777776 HRROI AC-2,XX ;SETUP FOR COMPARISON 12671 040667 474 13 0 00 000000 SETO AC, ;SETUP HIGH DVND 12672 040670 561 14 0 00 777774 HRROI AC+1,ZZ ;SETUP LOW DVND 12673 040671 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12674 040672 234 13 0 00 000012 DIV AC,AC-1 ;DIVIDE ZZ BY 2 12675 040673 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD = 0 12676 040674 004 14 0 00 015001 ER4 AC+1,SN 12677 040675 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT 12678 040676 003 13 0 00 015001 ER3 AC,SN 12679 040677 321 15 0 00 040666 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12680 12681 015002 SN=SN+1 12682 777777 777774 XX=XX+XX 12683 777777 777770 ZZ=ZZ+ZZ 12684 040700 561 11 0 00 777774 HRROI AC-2,XX ;SETUP FOR COMPARISON 12685 040701 474 13 0 00 000000 SETO AC, ;SETUP HIGH DVND 12686 040702 561 14 0 00 777770 HRROI AC+1,ZZ ;SETUP LOW DVND 12687 040703 201 12 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12688 040704 234 13 0 00 000012 DIV AC,AC-1 ;DIVIDE ZZ BY 2 12689 040705 332 00 0 00 000014 SKIPE AC+1 ;TEST REMD = 0 12690 040706 004 14 0 00 015002 ER4 AC+1,SN 12691 040707 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 55-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0277 12692 040710 003 13 0 00 015002 ER3 AC,SN 12693 040711 321 15 0 00 040700 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 12694 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 56 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0278 12695 ;HIGH DVND = -1 12696 ;LOW DVND = 2,4 12697 ;DVSR = -2,-4 12698 12699 000014 AC=14 12700 SAVEAC (1,1)^ 12701 040712 201 16 0 00 040712 MOVEI AC+2,. ;SAVE TEST PC 12702 040713 202 16 0 00 030051 MOVEM AC+2,TESTPC 12703 040714 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12704 040715 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12705 12706 015100 SN=15100 12707 777777 777777 XX=-1 12708 377777 YY=377777 12709 000001 ZZ=1 12710 12711 F15100: REPEAT ^D2, 12712 &17 12724 ER3 AC,SN ;C(AC) FAILED 12725 CAIE AC+1,0 12726 ER4 AC+1,SN ;C(AC+1) FAILED 12727 JOV .+2 ;TEST AROV FLAG 12728 JRST ,.+2 12729 ER13 AC-2,SN ;AROV SET 12730 TLNE AC-2,DCK 12731 ER13 AC-2,SN ;DCK SET 12732 JUMPL AC+2,.-^D16 ;LOOP ON ERROR SWITCH 12733 > 12734 015101 SN=SN+1 12735 777777 777776 XX=XX+XX 12736 177777 YY=YY/2 12737 000002 ZZ=ZZ+ZZ 12738 040716 254 02 1 00 045315 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12739 040717 474 14 0 00 000000 SETO AC, ;SETUP HIGH DVND 12740 040720 201 15 0 00 000002 MOVEI AC+1,ZZ ;SETUP LOW DVND 12741 040721 561 13 0 00 777776 HRROI AC-1,XX ;SETUP DVSR 12742 040722 525 11 0 00 177777 HRLOI AC-3,YY 12743 040723 234 14 0 00 000013 DIV AC,AC-1 ;DIVIDE (-N) BY (XX) 12744 040724 265 12 0 00 040725 JSP AC-2,.+1 12745 040725 312 14 0 00 000011 CAME AC,&17 12746 040726 003 14 0 00 015101 ER3 AC,SN ;C(AC) FAILED 12747 040727 302 15 0 00 000000 CAIE AC+1,0 12748 040730 004 15 0 00 015101 ER4 AC+1,SN ;C(AC+1) FAILED 12749 040731 255 10 0 00 040733 JOV .+2 ;TEST AROV FLAG DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 56-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0279 12750 040732 254 00 0 00 040734 JRST ,.+2 12751 040733 013 12 0 00 015101 ER13 AC-2,SN ;AROV SET 12752 040734 603 12 0 00 000040 TLNE AC-2,DCK 12753 040735 013 12 0 00 015101 ER13 AC-2,SN ;DCK SET 12754 040736 321 16 0 00 040716 JUMPL AC+2,.-^D16 ;LOOP ON ERROR SWITCH 12755 12756 015102 SN=SN+1 12757 777777 777774 XX=XX+XX 12758 077777 YY=YY/2 12759 000004 ZZ=ZZ+ZZ 12760 040737 254 02 1 00 045316 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12761 040740 474 14 0 00 000000 SETO AC, ;SETUP HIGH DVND 12762 040741 201 15 0 00 000004 MOVEI AC+1,ZZ ;SETUP LOW DVND 12763 040742 561 13 0 00 777774 HRROI AC-1,XX ;SETUP DVSR 12764 040743 525 11 0 00 077777 HRLOI AC-3,YY 12765 040744 234 14 0 00 000013 DIV AC,AC-1 ;DIVIDE (-N) BY (XX) 12766 040745 265 12 0 00 040746 JSP AC-2,.+1 12767 040746 312 14 0 00 000011 CAME AC,&17 12768 040747 003 14 0 00 015102 ER3 AC,SN ;C(AC) FAILED 12769 040750 302 15 0 00 000000 CAIE AC+1,0 12770 040751 004 15 0 00 015102 ER4 AC+1,SN ;C(AC+1) FAILED 12771 040752 255 10 0 00 040754 JOV .+2 ;TEST AROV FLAG 12772 040753 254 00 0 00 040755 JRST ,.+2 12773 040754 013 12 0 00 015102 ER13 AC-2,SN ;AROV SET 12774 040755 603 12 0 00 000040 TLNE AC-2,DCK 12775 040756 013 12 0 00 015102 ER13 AC-2,SN ;DCK SET 12776 040757 321 16 0 00 040737 JUMPL AC+2,.-^D16 ;LOOP ON ERROR SWITCH 12777 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 57 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0280 12778 ;HIGH DVND = -2,-4 12779 ;LOW DVND = -1 12780 ;DVSR = 2,4 12781 12782 000012 AC=12 12783 SAVEAC (1,1)^ 12784 040760 201 14 0 00 040760 MOVEI AC+2,. ;SAVE TEST PC 12785 040761 202 14 0 00 030051 MOVEM AC+2,TESTPC 12786 040762 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12787 040763 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12788 040764 254 02 1 00 045317 JRSTF @@[.+1] ;CLEAR ALL FLAGS 12789 12790 015200 SN=15200 12791 000001 XX=1 12792 400000 000000 YY=1B0 12793 777777 777777 ZZ=-1 12794 12795 F15200: REPEAT ^D2, 12796 12810 015201 SN=SN+1 12811 000002 XX=XX+XX 12812 200000 000000 YY=YY_-1 12813 777777 777776 ZZ=ZZ+ZZ 12814 040765 561 12 0 00 777776 HRROI AC,ZZ ;SETUP HIGH DVND 12815 040766 474 13 0 00 000000 SETO AC+1, ;SETUP LOW DVND 12816 040767 201 11 0 00 000002 MOVEI AC-1,XX ;SETUP DVSR 12817 040770 234 12 0 00 000011 DIV AC,AC-1 ;DIVIDE (-N) BY (XX) 12818 040771 312 12 0 00 044762 CAME AC,[1B0+YY] ;TEST FOR ODD NUMBER QUOTIENT 12819 040772 003 12 0 00 015201 ER3 AC,SN 12820 040773 312 13 0 00 044617 CAME AC+1,[-1] ;TEST REMD 12821 040774 004 13 0 00 015201 ER4 AC+1,SN 12822 040775 321 14 0 00 040765 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12823 12824 015202 SN=SN+1 12825 000004 XX=XX+XX 12826 100000 000000 YY=YY_-1 12827 777777 777774 ZZ=ZZ+ZZ 12828 040776 561 12 0 00 777774 HRROI AC,ZZ ;SETUP HIGH DVND 12829 040777 474 13 0 00 000000 SETO AC+1, ;SETUP LOW DVND 12830 041000 201 11 0 00 000004 MOVEI AC-1,XX ;SETUP DVSR 12831 041001 234 12 0 00 000011 DIV AC,AC-1 ;DIVIDE (-N) BY (XX) 12832 041002 312 12 0 00 044757 CAME AC,[1B0+YY] ;TEST FOR ODD NUMBER QUOTIENT DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 57-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0281 12833 041003 003 12 0 00 015202 ER3 AC,SN 12834 041004 312 13 0 00 044617 CAME AC+1,[-1] ;TEST REMD 12835 041005 004 13 0 00 015202 ER4 AC+1,SN 12836 041006 321 14 0 00 040776 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 12837 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 60 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0282 12838 ;OPERANDS SELECTED SHOULD RESULT 12839 ;IN OVERFLOW 12840 ;HIGH DVND = -100,-40 12841 ;LOW DVND = 0 12842 ;DVSR = 100,40 12843 12844 000006 AC=6 12845 SAVEAC (1,1)^ 12846 041007 201 10 0 00 041007 MOVEI AC+2,. ;SAVE TEST PC 12847 041010 202 10 0 00 030051 MOVEM AC+2,TESTPC 12848 041011 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12849 041012 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12850 12851 015600 SN=15600 12852 777777 777600 WW=-200 12853 000200 XX=200 12854 777777 777600 ZZ=-200 12855 12856 F15600: REPEAT ^D2, 12857 12878 015601 SN=SN+1 12879 777777 777700 WW=WW/2 12880 000100 XX=XX/2 12881 777777 777700 ZZ=ZZ/2 12882 041013 254 02 1 00 045320 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12883 041014 561 04 0 00 777700 HRROI AC-2,WW ;SETUP AC-2 FOR COMPARISON 12884 041015 561 06 0 00 777700 HRROI AC,ZZ ;SETUP HIGH DVND 12885 041016 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12886 041017 201 05 0 00 000100 MOVEI AC-1,XX ;SETUP DVSR 12887 041020 234 06 0 00 000005 DIV AC,AC-1 ;DIVIDE (-N) BY (N) 12888 041021 265 03 0 00 041022 JSP AC-3,.+1 12889 041022 255 10 0 00 041024 JOV .+2 ;TEST FOR OVERFLOW 12890 041023 013 03 0 00 015601 ER13 AC-3,SN 12891 041024 607 03 0 00 000040 TLNN AC-3,DCK 12892 041025 013 03 0 00 015601 ER13 AC-3,SN ;DCK NOT SET DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 60-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0283 12893 041026 312 06 0 00 000004 CAME AC,AC-2 ;TEST FOR UNIQUE QUOTIENT 12894 041027 003 06 0 00 015601 ER3 AC,SN 12895 041030 302 07 0 00 000000 CAIE AC+1,0 12896 041031 004 07 0 00 015601 ER4 AC+1,SN ;C(AC+1) FAILED 12897 041032 321 10 0 00 041012 JUMPL AC+2,.-^D16 ;LOOP ON ERROR SWITCH 12898 12899 015602 SN=SN+1 12900 777777 777740 WW=WW/2 12901 000040 XX=XX/2 12902 777777 777740 ZZ=ZZ/2 12903 041033 254 02 1 00 045321 JRSTF @@[.+1] ;CLR ALL FLAGS, EXEC NEXT INST 12904 041034 561 04 0 00 777740 HRROI AC-2,WW ;SETUP AC-2 FOR COMPARISON 12905 041035 561 06 0 00 777740 HRROI AC,ZZ ;SETUP HIGH DVND 12906 041036 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12907 041037 201 05 0 00 000040 MOVEI AC-1,XX ;SETUP DVSR 12908 041040 234 06 0 00 000005 DIV AC,AC-1 ;DIVIDE (-N) BY (N) 12909 041041 265 03 0 00 041042 JSP AC-3,.+1 12910 041042 255 10 0 00 041044 JOV .+2 ;TEST FOR OVERFLOW 12911 041043 013 03 0 00 015602 ER13 AC-3,SN 12912 041044 607 03 0 00 000040 TLNN AC-3,DCK 12913 041045 013 03 0 00 015602 ER13 AC-3,SN ;DCK NOT SET 12914 041046 312 06 0 00 000004 CAME AC,AC-2 ;TEST FOR UNIQUE QUOTIENT 12915 041047 003 06 0 00 015602 ER3 AC,SN 12916 041050 302 07 0 00 000000 CAIE AC+1,0 12917 041051 004 07 0 00 015602 ER4 AC+1,SN ;C(AC+1) FAILED 12918 041052 321 10 0 00 041032 JUMPL AC+2,.-^D16 ;LOOP ON ERROR SWITCH 12919 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 61 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0284 12920 ;OPERANDS SELECTED SHOULD RESULT IN OVERFLOW 12921 ;HIGH DVND = -2,-4 12922 ;LOW DVND = 0 12923 ;DVSR = 2 12924 12925 000005 AC=5 12926 SAVEAC (1,1)^ 12927 041053 201 07 0 00 041053 MOVEI AC+2,. ;SAVE TEST PC 12928 041054 202 07 0 00 030051 MOVEM AC+2,TESTPC 12929 041055 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12930 041056 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12931 12932 015700 SN=15700 12933 777777 777777 XX=-1 12934 777777 777777 ZZ=-1 12935 12936 F15700: REPEAT ^D2, 12937 12952 015701 SN=SN+1 12953 777777 777776 XX=XX+XX 12954 777777 777776 ZZ=ZZ+ZZ 12955 041057 254 02 1 00 045322 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 12956 041060 561 05 0 00 777776 HRROI AC,ZZ ;SETUP HIGH DVND 12957 041061 400 06 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12958 041062 201 04 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12959 041063 234 05 0 00 000004 DIV AC,AC-1 ;DIVIDE (-N) BY 2 12960 041064 265 03 0 00 041065 JSP AC-2,.+1 12961 041065 255 10 0 00 041067 JOV .+2 ;TEST FOR OVERFLOW 12962 041066 013 03 0 00 015701 ER13 AC-2,SN 12963 041067 312 05 0 00 044621 CAME AC,[XX] ;TEST QUOT 12964 041070 003 05 0 00 015701 ER3 AC,SN 12965 041071 321 07 0 00 041057 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 12966 12967 015702 SN=SN+1 12968 777777 777774 XX=XX+XX 12969 777777 777774 ZZ=ZZ+ZZ 12970 041072 254 02 1 00 045323 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 12971 041073 561 05 0 00 777774 HRROI AC,ZZ ;SETUP HIGH DVND 12972 041074 400 06 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 12973 041075 201 04 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 12974 041076 234 05 0 00 000004 DIV AC,AC-1 ;DIVIDE (-N) BY 2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 61-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0285 12975 041077 265 03 0 00 041100 JSP AC-2,.+1 12976 041100 255 10 0 00 041102 JOV .+2 ;TEST FOR OVERFLOW 12977 041101 013 03 0 00 015702 ER13 AC-2,SN 12978 041102 312 05 0 00 045324 CAME AC,[XX] ;TEST QUOT 12979 041103 003 05 0 00 015702 ER3 AC,SN 12980 041104 321 07 0 00 041072 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 12981 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 63 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0286 12982 ;OPERANDS SELECTED WILL NOT OVERFLOW 12983 ;HIGH DVND = -1,-2 12984 ;LOW DVND = -1 12985 ;DVSR = -1,-2 12986 12987 000014 AC=14 12988 SAVEAC (1,1)^ 12989 041105 201 16 0 00 041105 MOVEI AC+2,. ;SAVE TEST PC 12990 041106 202 16 0 00 030051 MOVEM AC+2,TESTPC 12991 041107 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 12992 041110 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 12993 12994 016100 SN=16100 12995 000000 ZZ=0 12996 12997 F16100: REPEAT ^D2, 12998 13001 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 13002 HRROI AC,ZZ ;SETUP HIGH DVND 13003 SETO AC+1, ;SETUP LOW DVND 13004 HRROI AC-1,ZZ ;SETUP DVSR 13005 DIV AC,AC-1 ;DIVIDE (-N) BY (-N) 13006 JSP AC-3,.+1 13007 JOV .+2 ;TEST FOR OVERFLOW 13008 JRST ,.+2 13009 ER13 AC-3,SN 13010 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13011 > 13012 016101 SN=SN+1 13013 000000 ZZ=ZZ+ZZ 13014 777777 777777 IFE ZZ, 13015 041111 254 02 1 00 045325 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 13016 041112 561 14 0 00 777777 HRROI AC,ZZ ;SETUP HIGH DVND 13017 041113 474 15 0 00 000000 SETO AC+1, ;SETUP LOW DVND 13018 041114 561 13 0 00 777777 HRROI AC-1,ZZ ;SETUP DVSR 13019 041115 234 14 0 00 000013 DIV AC,AC-1 ;DIVIDE (-N) BY (-N) 13020 041116 265 11 0 00 041117 JSP AC-3,.+1 13021 041117 255 10 0 00 041121 JOV .+2 ;TEST FOR OVERFLOW 13022 041120 254 00 0 00 041122 JRST ,.+2 13023 041121 013 11 0 00 016101 ER13 AC-3,SN 13024 041122 321 16 0 00 041111 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13025 13026 016102 SN=SN+1 13027 777777 777776 ZZ=ZZ+ZZ 13028 IFE ZZ, 13029 041123 254 02 1 00 045326 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 13030 041124 561 14 0 00 777776 HRROI AC,ZZ ;SETUP HIGH DVND 13031 041125 474 15 0 00 000000 SETO AC+1, ;SETUP LOW DVND 13032 041126 561 13 0 00 777776 HRROI AC-1,ZZ ;SETUP DVSR 13033 041127 234 14 0 00 000013 DIV AC,AC-1 ;DIVIDE (-N) BY (-N) 13034 041130 265 11 0 00 041131 JSP AC-3,.+1 13035 041131 255 10 0 00 041133 JOV .+2 ;TEST FOR OVERFLOW 13036 041132 254 00 0 00 041134 JRST ,.+2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 63-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0287 13037 041133 013 11 0 00 016102 ER13 AC-3,SN 13038 041134 321 16 0 00 041123 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13039 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 64 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0288 13040 ;TEST DIV-IMMEDIATE MODE 13041 ;TEST ABILITY TO DIVIDE BY E 13042 ;VICE C(E) 13043 ;TEST ABILITY TO INHIBIT ASSERTION 13044 ;OF IRMDFCE 13045 13046 016200 SN=16200 13047 000007 AC=7 13048 000017 ZZ=17 13049 13050 F16200: REPEAT ^D2, ;TEST DIV-IMM MODE 13051 13066 016201 SN=SN+1 13067 000006 AC=AC-1 13068 000016 ZZ=ZZ-1 13069 SAVEAC (1,1)^ 13070 041135 201 10 0 00 041135 MOVEI AC+2,. ;SAVE TEST PC 13071 041136 202 10 0 00 030051 MOVEM AC+2,TESTPC 13072 041137 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13073 041140 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE ERROR AC 13074 041141 254 02 1 00 045327 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 13075 041142 201 06 0 00 000004 MOVEI AC,4 ;SETUP HIGH DVND 13076 041143 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 13077 041144 201 05 0 00 000002 MOVEI AC-1,2 ;SETUP OVERFLOW CONDITION 13078 041145 235 06 0 00 000016 DIVI AC,ZZ ;DIVIDE (N) BY E 13079 041146 265 03 0 00 041147 JSP AC-3,.+1 13080 041147 255 10 0 00 041151 JOV .+2 ;TEST FOR OVERFLOW 13081 041150 254 00 0 00 041152 JRST ,.+2 ;DIVIDED BY E 13082 041151 013 03 0 00 016201 ER13 AC-3,SN ;DIVIDED BY C(E) 13083 041152 321 10 0 00 041141 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13084 13085 016202 SN=SN+1 13086 000005 AC=AC-1 13087 000015 ZZ=ZZ-1 13088 SAVEAC (1,1)^ 13089 041153 201 07 0 00 041153 MOVEI AC+2,. ;SAVE TEST PC 13090 041154 202 07 0 00 030051 MOVEM AC+2,TESTPC 13091 041155 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13092 041156 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ ;SAVE ERROR AC 13093 041157 254 02 1 00 045330 JRSTF @@[.+1] ;CLR ALL FLGS, EXEC NEXT INST 13094 041160 201 05 0 00 000004 MOVEI AC,4 ;SETUP HIGH DVND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 64-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0289 13095 041161 400 06 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 13096 041162 201 04 0 00 000002 MOVEI AC-1,2 ;SETUP OVERFLOW CONDITION 13097 041163 235 05 0 00 000015 DIVI AC,ZZ ;DIVIDE (N) BY E 13098 041164 265 02 0 00 041165 JSP AC-3,.+1 13099 041165 255 10 0 00 041167 JOV .+2 ;TEST FOR OVERFLOW 13100 041166 254 00 0 00 041170 JRST ,.+2 ;DIVIDED BY E 13101 041167 013 02 0 00 016202 ER13 AC-3,SN ;DIVIDED BY C(E) 13102 041170 321 07 0 00 041157 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13103 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 65 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0290 13104 ;TEST DIV-MEMORY MODE 13105 ;TEST ABILITY TO ASSERT IRMDSCE 13106 ;TEST ABILITY TO ASSERT IRMDSACINH 13107 13108 000005 AC=5 13109 SAVEAC (1,1)^ 13110 041171 201 07 0 00 041171 MOVEI AC+2,. ;SAVE TEST PC 13111 041172 202 07 0 00 030051 MOVEM AC+2,TESTPC 13112 041173 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13113 041174 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13114 041175 254 02 1 00 045331 JRSTF @@[.+1] ;CLEAR ALL FLAGS 13115 13116 016300 SN=16300 13117 010000 XX=10000 13118 000002 ZZ=2 13119 13120 F16300: REPEAT ^D2, ;TEST DIV-MEM MODE 13121 13135 016301 SN=SN+1 13136 020000 XX=XX+XX 13137 000004 ZZ=ZZ+ZZ 13138 041176 205 03 0 00 020000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13139 041177 201 05 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND 13140 041200 201 06 0 00 000004 MOVEI AC+1,ZZ ;SETUP LOW DVND 13141 041201 201 04 0 00 000100 MOVEI AC-1,100 ;SETUP DVSR 13142 041202 236 05 0 00 000004 DIVM AC,AC-1 ;DIVIDE (+N) BY 100 13143 041203 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST SCE 13144 041204 005 04 0 00 016301 ER5 AC-1,SN 13145 041205 312 05 0 00 000006 CAME AC,AC+1 ;TEST SAC INH 13146 041206 003 05 0 00 016301 ER3 AC,SN 13147 041207 321 07 0 00 041176 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13148 13149 016302 SN=SN+1 13150 040000 XX=XX+XX 13151 000010 ZZ=ZZ+ZZ 13152 041210 205 03 0 00 040000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13153 041211 201 05 0 00 000010 MOVEI AC,ZZ ;SETUP HIGH DVND 13154 041212 201 06 0 00 000010 MOVEI AC+1,ZZ ;SETUP LOW DVND 13155 041213 201 04 0 00 000100 MOVEI AC-1,100 ;SETUP DVSR 13156 041214 236 05 0 00 000004 DIVM AC,AC-1 ;DIVIDE (+N) BY 100 13157 041215 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST SCE 13158 041216 005 04 0 00 016302 ER5 AC-1,SN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 65-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0291 13159 041217 312 05 0 00 000006 CAME AC,AC+1 ;TEST SAC INH 13160 041220 003 05 0 00 016302 ER3 AC,SN 13161 041221 321 07 0 00 041210 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 13162 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 66 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0292 13163 ;TEST DIV-BOTH MODE 13164 ;TEST ABILITY TO STORE QUOT 13165 ;IN AC,E 13166 ;TEST ABILITY TO STORE REMD 13167 ;IN AC+1 13168 13169 000014 AC=14 13170 SAVEAC (1,1)^ 13171 041222 201 16 0 00 041222 MOVEI AC+2,. ;SAVE TEST PC 13172 041223 202 16 0 00 030051 MOVEM AC+2,TESTPC 13173 041224 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13174 041225 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13175 13176 016400 SN=16400 13177 000002 ZZ=2 13178 13179 F16400: REPEAT ^D2, ;TEST DIV-BOTH MODE 13180 13192 016401 SN=SN+1 13193 000004 ZZ=ZZ+ZZ 13194 041226 201 14 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND 13195 041227 201 15 0 00 000100 MOVEI AC+1,100 ;SETUP LOW DVND 13196 041230 201 13 0 00 000100 MOVEI AC-1,100 ;SETUP DVSR 13197 041231 237 14 0 00 000013 DIVB AC,AC-1 ;DIVIDE (+N) BY 100 13198 041232 312 14 0 00 000013 CAME AC,AC-1 ;TEST STORE QUOTIENT 13199 041233 003 14 0 00 016401 ER3 AC,SN ;STORE QUOTIENT FAILED 13200 041234 332 00 0 00 000015 SKIPE AC+1 ;TEST STORE REMAINDER 13201 041235 004 15 0 00 016401 ER4 AC+1,SN ;STORE REMAINDER FAILED 13202 041236 321 16 0 00 041226 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13203 13204 016402 SN=SN+1 13205 000010 ZZ=ZZ+ZZ 13206 041237 201 14 0 00 000010 MOVEI AC,ZZ ;SETUP HIGH DVND 13207 041240 201 15 0 00 000100 MOVEI AC+1,100 ;SETUP LOW DVND 13208 041241 201 13 0 00 000100 MOVEI AC-1,100 ;SETUP DVSR 13209 041242 237 14 0 00 000013 DIVB AC,AC-1 ;DIVIDE (+N) BY 100 13210 041243 312 14 0 00 000013 CAME AC,AC-1 ;TEST STORE QUOTIENT 13211 041244 003 14 0 00 016402 ER3 AC,SN ;STORE QUOTIENT FAILED 13212 041245 332 00 0 00 000015 SKIPE AC+1 ;TEST STORE REMAINDER 13213 041246 004 15 0 00 016402 ER4 AC+1,SN ;STORE REMAINDER FAILED 13214 041247 321 16 0 00 041237 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13215 13216 PAGE DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 66-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - FRACTIONAL DIVIDE TEST SEQ 0293 13217 ;TEST DIVB (DIVIDE CHECK) 13218 13219 041250 254 02 1 00 045332 F16410: JRSTF @@[.+1] ;CLEAR ALL FLAGS 13220 041251 201 14 0 00 000004 MOVEI AC,4 ;SETUP HIGH DIVIDEND 13221 041252 201 15 0 00 000001 MOVEI AC+1,1 ;SETUP LOW DIVIDEND 13222 041253 201 13 0 00 000001 MOVEI AC-1,1 ;SETUP DIVISOR 13223 041254 237 14 0 00 000013 DIVB AC,AC-1 13224 041255 265 12 0 00 041256 JSP AC-2,.+1 ;SAME FLAGS 13225 041256 302 14 0 00 000004 CAIE AC,4 13226 041257 003 14 0 00 016411 ER3 AC,16411 ;C(AC) WAS CLOBBERED 13227 041260 302 15 0 00 000001 CAIE AC+1,1 13228 041261 004 15 0 00 016411 ER4 AC+1,16411 ;C(AC+1) WAS CLOBBERED 13229 041262 302 13 0 00 000001 CAIE AC-1,1 13230 041263 005 13 0 00 016411 ER5 AC-1,16411 ;C(E) WAS CLOBBERED 13231 041264 255 10 0 00 041266 JOV .+2 13232 041265 013 12 0 00 016411 ER13 AC-2,16411 ;AROV FAILED TO SET 13233 041266 607 12 0 00 000040 TLNN AC-2,DCK ;DCK FAILED TO SET 13234 041267 013 12 0 00 016411 ER13 AC-2,16411 13235 041270 321 16 0 00 041250 JUMPL AC+2,F16410 13236 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 67 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0294 13237 SUBTTL DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST 13238 13239 ;TEST MUL DIRECT - TWO POSITIVES 13240 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13241 ;0500000000000 BY A DECREASING MULTIPLIER 13242 ;PLIER=200000000000, 100000000000 (1/2, 1/4) ETC 13243 ;PLICAND=050000000000 13244 ;HIGH PROD=024000000000, 012000000000 ETC 13245 ;LOW PROD=0 13246 13247 000013 AC=13 13248 SAVEAC (1,1)^ 13249 041271 201 15 0 00 041271 MOVEI AC+2,. ;SAVE TEST PC 13250 041272 202 15 0 00 030051 MOVEM AC+2,TESTPC 13251 041273 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13252 041274 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13253 13254 017100 SN=17100 13255 050000 XX=050000 13256 000000 ZZ=0 13257 13258 F17100: REPEAT ^D10, 13259 13263 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13264 MOVSI AC,ZZ ;SETUP PLIER 13265 MOVSI AC-1,050000 ;SETUP PLICAND 13266 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13267 SKIPE AC+1 ;TEST LOW PROD=0 13268 ER4 AC+1,SN 13269 CAME AC,AC-2 ;TEST HIGH PROD=XX 13270 ER3 AC,SN ;MUL FAILED 13271 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13272 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13273 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13274 > 13275 017101 SN=SN+1 13276 024000 XX=XX/2 13277 000000 ZZ=ZZ/2 13278 200000 IFE ZZ, 13279 041275 205 11 0 00 024000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13280 041276 205 13 0 00 200000 MOVSI AC,ZZ ;SETUP PLIER 13281 041277 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13282 041300 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13283 041301 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13284 041302 004 14 0 00 017101 ER4 AC+1,SN 13285 041303 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13286 041304 003 13 0 00 017101 ER3 AC,SN ;MUL FAILED 13287 041305 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13288 041306 005 12 0 00 017101 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13289 041307 321 15 0 00 041275 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13290 13291 017102 SN=SN+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 67-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0295 13292 012000 XX=XX/2 13293 100000 ZZ=ZZ/2 13294 IFE ZZ, 13295 041310 205 11 0 00 012000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13296 041311 205 13 0 00 100000 MOVSI AC,ZZ ;SETUP PLIER 13297 041312 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13298 041313 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13299 041314 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13300 041315 004 14 0 00 017102 ER4 AC+1,SN 13301 041316 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13302 041317 003 13 0 00 017102 ER3 AC,SN ;MUL FAILED 13303 041320 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13304 041321 005 12 0 00 017102 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13305 041322 321 15 0 00 041310 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13306 13307 017103 SN=SN+1 13308 005000 XX=XX/2 13309 040000 ZZ=ZZ/2 13310 IFE ZZ, 13311 041323 205 11 0 00 005000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13312 041324 205 13 0 00 040000 MOVSI AC,ZZ ;SETUP PLIER 13313 041325 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13314 041326 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13315 041327 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13316 041330 004 14 0 00 017103 ER4 AC+1,SN 13317 041331 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13318 041332 003 13 0 00 017103 ER3 AC,SN ;MUL FAILED 13319 041333 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13320 041334 005 12 0 00 017103 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13321 041335 321 15 0 00 041323 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13322 13323 017104 SN=SN+1 13324 002400 XX=XX/2 13325 020000 ZZ=ZZ/2 13326 IFE ZZ, 13327 041336 205 11 0 00 002400 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13328 041337 205 13 0 00 020000 MOVSI AC,ZZ ;SETUP PLIER 13329 041340 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13330 041341 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13331 041342 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13332 041343 004 14 0 00 017104 ER4 AC+1,SN 13333 041344 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13334 041345 003 13 0 00 017104 ER3 AC,SN ;MUL FAILED 13335 041346 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13336 041347 005 12 0 00 017104 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13337 041350 321 15 0 00 041336 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13338 13339 017105 SN=SN+1 13340 001200 XX=XX/2 13341 010000 ZZ=ZZ/2 13342 IFE ZZ, 13343 041351 205 11 0 00 001200 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13344 041352 205 13 0 00 010000 MOVSI AC,ZZ ;SETUP PLIER 13345 041353 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13346 041354 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 67-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0296 13347 041355 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13348 041356 004 14 0 00 017105 ER4 AC+1,SN 13349 041357 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13350 041360 003 13 0 00 017105 ER3 AC,SN ;MUL FAILED 13351 041361 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13352 041362 005 12 0 00 017105 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13353 041363 321 15 0 00 041351 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13354 13355 017106 SN=SN+1 13356 000500 XX=XX/2 13357 004000 ZZ=ZZ/2 13358 IFE ZZ, 13359 041364 205 11 0 00 000500 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13360 041365 205 13 0 00 004000 MOVSI AC,ZZ ;SETUP PLIER 13361 041366 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13362 041367 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13363 041370 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13364 041371 004 14 0 00 017106 ER4 AC+1,SN 13365 041372 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13366 041373 003 13 0 00 017106 ER3 AC,SN ;MUL FAILED 13367 041374 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13368 041375 005 12 0 00 017106 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13369 041376 321 15 0 00 041364 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13370 13371 017107 SN=SN+1 13372 000240 XX=XX/2 13373 002000 ZZ=ZZ/2 13374 IFE ZZ, 13375 041377 205 11 0 00 000240 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13376 041400 205 13 0 00 002000 MOVSI AC,ZZ ;SETUP PLIER 13377 041401 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13378 041402 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13379 041403 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13380 041404 004 14 0 00 017107 ER4 AC+1,SN 13381 041405 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13382 041406 003 13 0 00 017107 ER3 AC,SN ;MUL FAILED 13383 041407 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13384 041410 005 12 0 00 017107 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13385 041411 321 15 0 00 041377 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13386 13387 017110 SN=SN+1 13388 000120 XX=XX/2 13389 001000 ZZ=ZZ/2 13390 IFE ZZ, 13391 041412 205 11 0 00 000120 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13392 041413 205 13 0 00 001000 MOVSI AC,ZZ ;SETUP PLIER 13393 041414 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13394 041415 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13395 041416 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13396 041417 004 14 0 00 017110 ER4 AC+1,SN 13397 041420 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13398 041421 003 13 0 00 017110 ER3 AC,SN ;MUL FAILED 13399 041422 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13400 041423 005 12 0 00 017110 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13401 041424 321 15 0 00 041412 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 67-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0297 13402 13403 017111 SN=SN+1 13404 000050 XX=XX/2 13405 000400 ZZ=ZZ/2 13406 IFE ZZ, 13407 041425 205 11 0 00 000050 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13408 041426 205 13 0 00 000400 MOVSI AC,ZZ ;SETUP PLIER 13409 041427 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13410 041430 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13411 041431 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13412 041432 004 14 0 00 017111 ER4 AC+1,SN 13413 041433 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13414 041434 003 13 0 00 017111 ER3 AC,SN ;MUL FAILED 13415 041435 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13416 041436 005 12 0 00 017111 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13417 041437 321 15 0 00 041425 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13418 13419 017112 SN=SN+1 13420 000024 XX=XX/2 13421 000200 ZZ=ZZ/2 13422 IFE ZZ, 13423 041440 205 11 0 00 000024 MOVSI AC-2,XX ;SETUP FOR COMPARISON 13424 041441 205 13 0 00 000200 MOVSI AC,ZZ ;SETUP PLIER 13425 041442 205 12 0 00 050000 MOVSI AC-1,050000 ;SETUP PLICAND 13426 041443 224 13 0 00 000012 MUL AC,AC-1 ;MULTIPLY ZZ X 050000000000 13427 041444 332 00 0 00 000014 SKIPE AC+1 ;TEST LOW PROD=0 13428 041445 004 14 0 00 017112 ER4 AC+1,SN 13429 041446 312 13 0 00 000011 CAME AC,AC-2 ;TEST HIGH PROD=XX 13430 041447 003 13 0 00 017112 ER3 AC,SN ;MUL FAILED 13431 041450 312 12 0 00 045333 CAME AC-1,[050000,,0];WAS C(E) MODIFIED ? 13432 041451 005 12 0 00 017112 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13433 041452 321 15 0 00 041440 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 13434 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 68 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0298 13435 ;TEST MUL IMMEDIATE - TWO POSITIVES 13436 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13437 ;E BY AND DECREASING MULTIPLIER 13438 ;PLIER=200000000000, 100000000000 (1/2, 1/4) ETC 13439 ;PLICAND=E (005001) 13440 ;HIGH PROD=2400,1200,500,240,120 13441 ;LOW PROD=PLIER 13442 13443 000012 AC=12 13444 SAVEAC (1,1)^ 13445 041453 201 14 0 00 041453 MOVEI AC+2,. ;SAVE TEST PC 13446 041454 202 14 0 00 030051 MOVEM AC+2,TESTPC 13447 041455 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13448 041456 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13449 13450 017200 SN=17200 13451 005000 XX=005000 13452 000000 ZZ=0 13453 13454 F17200: REPEAT ^D5, 13455 13459 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13460 MOVSI AC,ZZ ;SETUP PLIER 13461 MULI AC,005001 ;MULTIPLY E BY ZZ 13462 CAME AC,AC-2 ;TEST HIGH PROD=XX 13463 ER3 AC,SN ;HIGH PROD ERROR 13464 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13465 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13466 ER4 AC+1,SN ;LOW PROD ERROR 13467 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13468 > 13469 017201 SN=SN+1 13470 002400 XX=XX/2 13471 000000 ZZ=ZZ/2 13472 200000 IFE ZZ, 13473 041457 201 10 0 00 002400 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13474 041460 205 12 0 00 200000 MOVSI AC,ZZ ;SETUP PLIER 13475 041461 225 12 0 00 005001 MULI AC,005001 ;MULTIPLY E BY ZZ 13476 041462 312 12 0 00 000010 CAME AC,AC-2 ;TEST HIGH PROD=XX 13477 041463 003 12 0 00 017201 ER3 AC,SN ;HIGH PROD ERROR 13478 041464 205 10 0 00 200000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13479 041465 312 13 0 00 000010 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13480 041466 004 13 0 00 017201 ER4 AC+1,SN ;LOW PROD ERROR 13481 041467 321 14 0 00 041457 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13482 13483 017202 SN=SN+1 13484 001200 XX=XX/2 13485 100000 ZZ=ZZ/2 13486 IFE ZZ, 13487 041470 201 10 0 00 001200 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13488 041471 205 12 0 00 100000 MOVSI AC,ZZ ;SETUP PLIER 13489 041472 225 12 0 00 005001 MULI AC,005001 ;MULTIPLY E BY ZZ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 68-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0299 13490 041473 312 12 0 00 000010 CAME AC,AC-2 ;TEST HIGH PROD=XX 13491 041474 003 12 0 00 017202 ER3 AC,SN ;HIGH PROD ERROR 13492 041475 205 10 0 00 100000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13493 041476 312 13 0 00 000010 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13494 041477 004 13 0 00 017202 ER4 AC+1,SN ;LOW PROD ERROR 13495 041500 321 14 0 00 041470 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13496 13497 017203 SN=SN+1 13498 000500 XX=XX/2 13499 040000 ZZ=ZZ/2 13500 IFE ZZ, 13501 041501 201 10 0 00 000500 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13502 041502 205 12 0 00 040000 MOVSI AC,ZZ ;SETUP PLIER 13503 041503 225 12 0 00 005001 MULI AC,005001 ;MULTIPLY E BY ZZ 13504 041504 312 12 0 00 000010 CAME AC,AC-2 ;TEST HIGH PROD=XX 13505 041505 003 12 0 00 017203 ER3 AC,SN ;HIGH PROD ERROR 13506 041506 205 10 0 00 040000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13507 041507 312 13 0 00 000010 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13508 041510 004 13 0 00 017203 ER4 AC+1,SN ;LOW PROD ERROR 13509 041511 321 14 0 00 041501 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13510 13511 017204 SN=SN+1 13512 000240 XX=XX/2 13513 020000 ZZ=ZZ/2 13514 IFE ZZ, 13515 041512 201 10 0 00 000240 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13516 041513 205 12 0 00 020000 MOVSI AC,ZZ ;SETUP PLIER 13517 041514 225 12 0 00 005001 MULI AC,005001 ;MULTIPLY E BY ZZ 13518 041515 312 12 0 00 000010 CAME AC,AC-2 ;TEST HIGH PROD=XX 13519 041516 003 12 0 00 017204 ER3 AC,SN ;HIGH PROD ERROR 13520 041517 205 10 0 00 020000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13521 041520 312 13 0 00 000010 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13522 041521 004 13 0 00 017204 ER4 AC+1,SN ;LOW PROD ERROR 13523 041522 321 14 0 00 041512 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13524 13525 017205 SN=SN+1 13526 000120 XX=XX/2 13527 010000 ZZ=ZZ/2 13528 IFE ZZ, 13529 041523 201 10 0 00 000120 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13530 041524 205 12 0 00 010000 MOVSI AC,ZZ ;SETUP PLIER 13531 041525 225 12 0 00 005001 MULI AC,005001 ;MULTIPLY E BY ZZ 13532 041526 312 12 0 00 000010 CAME AC,AC-2 ;TEST HIGH PROD=XX 13533 041527 003 12 0 00 017205 ER3 AC,SN ;HIGH PROD ERROR 13534 041530 205 10 0 00 010000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 13535 041531 312 13 0 00 000010 CAME AC+1,AC-2 ;TEST LOW PROD=PLIER 13536 041532 004 13 0 00 017205 ER4 AC+1,SN ;LOW PROD ERROR 13537 041533 321 14 0 00 041523 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13538 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 69 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0300 13539 ;TEST MUL MEMORY - TWO NEGATIVES 13540 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13541 ;AN INCREASING NEGATIVE NUMBER BY -1 13542 ;PLIER=-1 13543 ;PLICAND=-1,-2,-4,-10,-20 13544 ;HIGH PROD=0 13545 13546 000011 AC=11 13547 SAVEAC (1,1)^ 13548 041534 201 13 0 00 041534 MOVEI AC+2,. ;SAVE TEST PC 13549 041535 202 13 0 00 030051 MOVEM AC+2,TESTPC 13550 041536 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13551 041537 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13552 13553 017300 SN=17300 13554 000000 ZZ=0 13555 13556 F17300: REPEAT ^D5, 13557 13560 SETO AC, ;SETUP PLIER 13561 HRROI AC-1,ZZ ;SETUP PLICAND 13562 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13563 SKIPE AC-1 ;TEST HIGH PROD = 0 13564 ER5 AC,SN ;MULM FAILED 13565 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13566 > 13567 017301 SN=SN+1 13568 000000 ZZ=ZZ+ZZ 13569 777777 777777 IFE ZZ, 13570 041540 474 11 0 00 000000 SETO AC, ;SETUP PLIER 13571 041541 561 10 0 00 777777 HRROI AC-1,ZZ ;SETUP PLICAND 13572 041542 226 11 0 00 000010 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13573 041543 332 00 0 00 000010 SKIPE AC-1 ;TEST HIGH PROD = 0 13574 041544 005 11 0 00 017301 ER5 AC,SN ;MULM FAILED 13575 041545 321 13 0 00 041540 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13576 13577 017302 SN=SN+1 13578 777777 777776 ZZ=ZZ+ZZ 13579 IFE ZZ, 13580 041546 474 11 0 00 000000 SETO AC, ;SETUP PLIER 13581 041547 561 10 0 00 777776 HRROI AC-1,ZZ ;SETUP PLICAND 13582 041550 226 11 0 00 000010 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13583 041551 332 00 0 00 000010 SKIPE AC-1 ;TEST HIGH PROD = 0 13584 041552 005 11 0 00 017302 ER5 AC,SN ;MULM FAILED 13585 041553 321 13 0 00 041546 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13586 13587 017303 SN=SN+1 13588 777777 777774 ZZ=ZZ+ZZ 13589 IFE ZZ, 13590 041554 474 11 0 00 000000 SETO AC, ;SETUP PLIER 13591 041555 561 10 0 00 777774 HRROI AC-1,ZZ ;SETUP PLICAND 13592 041556 226 11 0 00 000010 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13593 041557 332 00 0 00 000010 SKIPE AC-1 ;TEST HIGH PROD = 0 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 69-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0301 13594 041560 005 11 0 00 017303 ER5 AC,SN ;MULM FAILED 13595 041561 321 13 0 00 041554 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13596 13597 017304 SN=SN+1 13598 777777 777770 ZZ=ZZ+ZZ 13599 IFE ZZ, 13600 041562 474 11 0 00 000000 SETO AC, ;SETUP PLIER 13601 041563 561 10 0 00 777770 HRROI AC-1,ZZ ;SETUP PLICAND 13602 041564 226 11 0 00 000010 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13603 041565 332 00 0 00 000010 SKIPE AC-1 ;TEST HIGH PROD = 0 13604 041566 005 11 0 00 017304 ER5 AC,SN ;MULM FAILED 13605 041567 321 13 0 00 041562 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13606 13607 017305 SN=SN+1 13608 777777 777760 ZZ=ZZ+ZZ 13609 IFE ZZ, 13610 041570 474 11 0 00 000000 SETO AC, ;SETUP PLIER 13611 041571 561 10 0 00 777760 HRROI AC-1,ZZ ;SETUP PLICAND 13612 041572 226 11 0 00 000010 MULM AC,AC-1 ;MULTIPLY ZZ BY -1 13613 041573 332 00 0 00 000010 SKIPE AC-1 ;TEST HIGH PROD = 0 13614 041574 005 11 0 00 017305 ER5 AC,SN ;MULM FAILED 13615 041575 321 13 0 00 041570 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 13616 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 70 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0302 13617 ;TEST MUL BOTH - TWO NEGATIVES 13618 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13619 ;-1 BY AN INCREASING NEGATIVE NUMBER 13620 ;PLIER=-1,-2,-4,-10,-20 13621 ;PLICAND=-1 13622 ;HIGH PROD=0 13623 ;LOW PROD=1,2,4,10,20 13624 13625 000010 AC=10 13626 SAVEAC (1,1)^ 13627 041576 201 12 0 00 041576 MOVEI AC+2,. ;SAVE TEST PC 13628 041577 202 12 0 00 030051 MOVEM AC+2,TESTPC 13629 041600 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13630 041601 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13631 13632 017400 SN=17400 13633 000000 XX=0 13634 000000 ZZ=0 13635 13636 F17400: REPEAT ^D5, 13637 13641 IFE ZZ, 13642 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13643 HRROI AC,ZZ ;SETUP PLIER 13644 SETO AC-1, ;SETUP PLICAND 13645 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13646 SKIPE AC ;TEST HIGH PROD=0 13647 ER3 AC,SN 13648 SKIPE AC-1 ;TEST C(AC) = C(E) 13649 ER5 AC-1,SN 13650 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13651 ER4 AC+1,SN ;MULB FAILED 13652 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13653 > 13654 017401 SN=SN+1 13655 000000 XX=XX+XX 13656 000000 ZZ=ZZ+ZZ 13657 000001 IFE XX, 13658 777777 777777 IFE ZZ, 13659 041602 201 06 0 00 000001 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13660 041603 561 10 0 00 777777 HRROI AC,ZZ ;SETUP PLIER 13661 041604 474 07 0 00 000000 SETO AC-1, ;SETUP PLICAND 13662 041605 227 10 0 00 000007 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13663 041606 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD=0 13664 041607 003 10 0 00 017401 ER3 AC,SN 13665 041610 332 00 0 00 000007 SKIPE AC-1 ;TEST C(AC) = C(E) 13666 041611 005 07 0 00 017401 ER5 AC-1,SN 13667 041612 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13668 041613 004 11 0 00 017401 ER4 AC+1,SN ;MULB FAILED 13669 041614 321 12 0 00 041602 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13670 13671 017402 SN=SN+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 70-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0303 13672 000002 XX=XX+XX 13673 777777 777776 ZZ=ZZ+ZZ 13674 IFE XX, 13675 IFE ZZ, 13676 041615 201 06 0 00 000002 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13677 041616 561 10 0 00 777776 HRROI AC,ZZ ;SETUP PLIER 13678 041617 474 07 0 00 000000 SETO AC-1, ;SETUP PLICAND 13679 041620 227 10 0 00 000007 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13680 041621 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD=0 13681 041622 003 10 0 00 017402 ER3 AC,SN 13682 041623 332 00 0 00 000007 SKIPE AC-1 ;TEST C(AC) = C(E) 13683 041624 005 07 0 00 017402 ER5 AC-1,SN 13684 041625 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13685 041626 004 11 0 00 017402 ER4 AC+1,SN ;MULB FAILED 13686 041627 321 12 0 00 041615 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13687 13688 017403 SN=SN+1 13689 000004 XX=XX+XX 13690 777777 777774 ZZ=ZZ+ZZ 13691 IFE XX, 13692 IFE ZZ, 13693 041630 201 06 0 00 000004 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13694 041631 561 10 0 00 777774 HRROI AC,ZZ ;SETUP PLIER 13695 041632 474 07 0 00 000000 SETO AC-1, ;SETUP PLICAND 13696 041633 227 10 0 00 000007 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13697 041634 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD=0 13698 041635 003 10 0 00 017403 ER3 AC,SN 13699 041636 332 00 0 00 000007 SKIPE AC-1 ;TEST C(AC) = C(E) 13700 041637 005 07 0 00 017403 ER5 AC-1,SN 13701 041640 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13702 041641 004 11 0 00 017403 ER4 AC+1,SN ;MULB FAILED 13703 041642 321 12 0 00 041630 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13704 13705 017404 SN=SN+1 13706 000010 XX=XX+XX 13707 777777 777770 ZZ=ZZ+ZZ 13708 IFE XX, 13709 IFE ZZ, 13710 041643 201 06 0 00 000010 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13711 041644 561 10 0 00 777770 HRROI AC,ZZ ;SETUP PLIER 13712 041645 474 07 0 00 000000 SETO AC-1, ;SETUP PLICAND 13713 041646 227 10 0 00 000007 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13714 041647 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD=0 13715 041650 003 10 0 00 017404 ER3 AC,SN 13716 041651 332 00 0 00 000007 SKIPE AC-1 ;TEST C(AC) = C(E) 13717 041652 005 07 0 00 017404 ER5 AC-1,SN 13718 041653 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13719 041654 004 11 0 00 017404 ER4 AC+1,SN ;MULB FAILED 13720 041655 321 12 0 00 041643 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13721 13722 017405 SN=SN+1 13723 000020 XX=XX+XX 13724 777777 777760 ZZ=ZZ+ZZ 13725 IFE XX, 13726 IFE ZZ, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 70-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0304 13727 041656 201 06 0 00 000020 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13728 041657 561 10 0 00 777760 HRROI AC,ZZ ;SETUP PLIER 13729 041660 474 07 0 00 000000 SETO AC-1, ;SETUP PLICAND 13730 041661 227 10 0 00 000007 MULB AC,AC-1 ;MULTIPLY -1 BY ZZ 13731 041662 332 00 0 00 000010 SKIPE AC ;TEST HIGH PROD=0 13732 041663 003 10 0 00 017405 ER3 AC,SN 13733 041664 332 00 0 00 000007 SKIPE AC-1 ;TEST C(AC) = C(E) 13734 041665 005 07 0 00 017405 ER5 AC-1,SN 13735 041666 312 11 0 00 000006 CAME AC+1,AC-2 ;TEST LOW PROD=XX 13736 041667 004 11 0 00 017405 ER4 AC+1,SN ;MULB FAILED 13737 041670 321 12 0 00 041656 JUMPL AC+2,.-^D10 ;LOOP ON ERR SWITCH 13738 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 71 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0305 13739 ;TEST MUL MEMORY - TWO NEGATIVES 13740 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13741 ;-5001 BY AN INCREASING NEGATIVE PLIER 13742 ;PLIER=600000000000, 700000000000 ETC. 13743 ;PLICAND=-5001 13744 ;HIGH PROD=2400,1200,500,240,120 13745 13746 000007 AC=7 13747 SAVEAC (1,1)^ 13748 041671 201 11 0 00 041671 MOVEI AC+2,. ;SAVE TEST PC 13749 041672 202 11 0 00 030051 MOVEM AC+2,TESTPC 13750 041673 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13751 041674 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13752 13753 017500 SN=17500 13754 005000 XX=005000 13755 000000 ZZ=0 13756 13757 F17500: REPEAT ^D5, 13758 13762 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13763 MOVSI AC,ZZ ;SETUP PLIER 13764 HRROI AC-1,-5001 ;SETUP PLICAND 13765 MOVE AC-3,&17 ;SAVE C(AC+1) 13766 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13767 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13768 ER5 AC-1,SN ;MULM FAILED 13769 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13770 ER3 AC,SN ;C(AC) WAS CLOBBERED 13771 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13772 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13773 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13774 > 13775 017501 SN=SN+1 13776 002400 XX=XX/2 13777 000000 ZZ=ZZ/2 13778 777777 600000 IFE ZZ, 13779 041675 201 05 0 00 002400 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13780 041676 205 07 0 00 600000 MOVSI AC,ZZ ;SETUP PLIER 13781 041677 561 06 0 00 772777 HRROI AC-1,-5001 ;SETUP PLICAND 13782 041700 200 04 0 00 000010 MOVE AC-3,&17 ;SAVE C(AC+1) 13783 041701 226 07 0 00 000006 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13784 041702 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13785 041703 005 06 0 00 017501 ER5 AC-1,SN ;MULM FAILED 13786 041704 312 07 0 00 044762 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13787 041705 003 07 0 00 017501 ER3 AC,SN ;C(AC) WAS CLOBBERED 13788 041706 312 10 0 00 000004 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13789 041707 004 10 0 00 017501 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13790 041710 321 11 0 00 041675 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13791 13792 017502 SN=SN+1 13793 001200 XX=XX/2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 71-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0306 13794 777777 700000 ZZ=ZZ/2 13795 IFE ZZ, 13796 041711 201 05 0 00 001200 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13797 041712 205 07 0 00 700000 MOVSI AC,ZZ ;SETUP PLIER 13798 041713 561 06 0 00 772777 HRROI AC-1,-5001 ;SETUP PLICAND 13799 041714 200 04 0 00 000010 MOVE AC-3,&17 ;SAVE C(AC+1) 13800 041715 226 07 0 00 000006 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13801 041716 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13802 041717 005 06 0 00 017502 ER5 AC-1,SN ;MULM FAILED 13803 041720 312 07 0 00 045233 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13804 041721 003 07 0 00 017502 ER3 AC,SN ;C(AC) WAS CLOBBERED 13805 041722 312 10 0 00 000004 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13806 041723 004 10 0 00 017502 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13807 041724 321 11 0 00 041711 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13808 13809 017503 SN=SN+1 13810 000500 XX=XX/2 13811 777777 740000 ZZ=ZZ/2 13812 IFE ZZ, 13813 041725 201 05 0 00 000500 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13814 041726 205 07 0 00 740000 MOVSI AC,ZZ ;SETUP PLIER 13815 041727 561 06 0 00 772777 HRROI AC-1,-5001 ;SETUP PLICAND 13816 041730 200 04 0 00 000010 MOVE AC-3,&17 ;SAVE C(AC+1) 13817 041731 226 07 0 00 000006 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13818 041732 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13819 041733 005 06 0 00 017503 ER5 AC-1,SN ;MULM FAILED 13820 041734 312 07 0 00 045232 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13821 041735 003 07 0 00 017503 ER3 AC,SN ;C(AC) WAS CLOBBERED 13822 041736 312 10 0 00 000004 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13823 041737 004 10 0 00 017503 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13824 041740 321 11 0 00 041725 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13825 13826 017504 SN=SN+1 13827 000240 XX=XX/2 13828 777777 760000 ZZ=ZZ/2 13829 IFE ZZ, 13830 041741 201 05 0 00 000240 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13831 041742 205 07 0 00 760000 MOVSI AC,ZZ ;SETUP PLIER 13832 041743 561 06 0 00 772777 HRROI AC-1,-5001 ;SETUP PLICAND 13833 041744 200 04 0 00 000010 MOVE AC-3,&17 ;SAVE C(AC+1) 13834 041745 226 07 0 00 000006 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13835 041746 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13836 041747 005 06 0 00 017504 ER5 AC-1,SN ;MULM FAILED 13837 041750 312 07 0 00 045231 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13838 041751 003 07 0 00 017504 ER3 AC,SN ;C(AC) WAS CLOBBERED 13839 041752 312 10 0 00 000004 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13840 041753 004 10 0 00 017504 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13841 041754 321 11 0 00 041741 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13842 13843 017505 SN=SN+1 13844 000120 XX=XX/2 13845 777777 770000 ZZ=ZZ/2 13846 IFE ZZ, 13847 041755 201 05 0 00 000120 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13848 041756 205 07 0 00 770000 MOVSI AC,ZZ ;SETUP PLIER DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 71-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0307 13849 041757 561 06 0 00 772777 HRROI AC-1,-5001 ;SETUP PLICAND 13850 041760 200 04 0 00 000010 MOVE AC-3,&17 ;SAVE C(AC+1) 13851 041761 226 07 0 00 000006 MULM AC,AC-1 ;MULTIPLY ZZ X -5001 13852 041762 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST HIGH PROD = XX 13853 041763 005 06 0 00 017505 ER5 AC-1,SN ;MULM FAILED 13854 041764 312 07 0 00 045230 CAME AC,[ZZ,,0] ;WAS C(AC) MODIFIED ? 13855 041765 003 07 0 00 017505 ER3 AC,SN ;C(AC) WAS CLOBBERED 13856 041766 312 10 0 00 000004 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 13857 041767 004 10 0 00 017505 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 13858 041770 321 11 0 00 041755 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 13859 13860 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 72 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0308 13861 ;TEST IMUL DIRECT - TWO POSITIVES 13862 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13863 ;A NUMBER BY ITSELF 13864 ;PLIER=2,4,10,20,40 13865 ;PLICAND=2,4,10,20,40 13866 ;PROD=4,20,100,400,2000 13867 13868 000006 AC=6 13869 SAVEAC (1,1)^ 13870 041771 201 10 0 00 041771 MOVEI AC+2,. ;SAVE TEST PC 13871 041772 202 10 0 00 030051 MOVEM AC+2,TESTPC 13872 041773 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13873 041774 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13874 13875 017600 SN=17600 13876 000001 XX=1 13877 000001 ZZ=1 13878 13879 F17600: REPEAT ^D5, 13880 13884 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13885 MOVEI AC,ZZ ;SETUP PLIER 13886 MOVEI AC-1,ZZ ;SETUP PLICAND 13887 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ 13888 CAME AC,AC-2 ;TEST PROD=XX 13889 ER3 AC,SN ;IMUL FAILED 13890 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13891 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13892 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13893 > 13894 017601 SN=SN+1 13895 000004 XX=XX*4 13896 000002 ZZ=ZZ+ZZ 13897 IFE ZZ, 13898 041775 201 04 0 00 000004 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13899 041776 201 06 0 00 000002 MOVEI AC,ZZ ;SETUP PLIER 13900 041777 201 05 0 00 000002 MOVEI AC-1,ZZ ;SETUP PLICAND 13901 042000 220 06 0 00 000005 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ 13902 042001 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD=XX 13903 042002 003 06 0 00 017601 ER3 AC,SN ;IMUL FAILED 13904 042003 302 05 0 00 000002 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13905 042004 005 05 0 00 017601 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13906 042005 321 10 0 00 041775 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13907 13908 017602 SN=SN+1 13909 000020 XX=XX*4 13910 000004 ZZ=ZZ+ZZ 13911 IFE ZZ, 13912 042006 201 04 0 00 000020 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13913 042007 201 06 0 00 000004 MOVEI AC,ZZ ;SETUP PLIER 13914 042010 201 05 0 00 000004 MOVEI AC-1,ZZ ;SETUP PLICAND 13915 042011 220 06 0 00 000005 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 72-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0309 13916 042012 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD=XX 13917 042013 003 06 0 00 017602 ER3 AC,SN ;IMUL FAILED 13918 042014 302 05 0 00 000004 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13919 042015 005 05 0 00 017602 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13920 042016 321 10 0 00 042006 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13921 13922 017603 SN=SN+1 13923 000100 XX=XX*4 13924 000010 ZZ=ZZ+ZZ 13925 IFE ZZ, 13926 042017 201 04 0 00 000100 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13927 042020 201 06 0 00 000010 MOVEI AC,ZZ ;SETUP PLIER 13928 042021 201 05 0 00 000010 MOVEI AC-1,ZZ ;SETUP PLICAND 13929 042022 220 06 0 00 000005 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ 13930 042023 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD=XX 13931 042024 003 06 0 00 017603 ER3 AC,SN ;IMUL FAILED 13932 042025 302 05 0 00 000010 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13933 042026 005 05 0 00 017603 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13934 042027 321 10 0 00 042017 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13935 13936 017604 SN=SN+1 13937 000400 XX=XX*4 13938 000020 ZZ=ZZ+ZZ 13939 IFE ZZ, 13940 042030 201 04 0 00 000400 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13941 042031 201 06 0 00 000020 MOVEI AC,ZZ ;SETUP PLIER 13942 042032 201 05 0 00 000020 MOVEI AC-1,ZZ ;SETUP PLICAND 13943 042033 220 06 0 00 000005 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ 13944 042034 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD=XX 13945 042035 003 06 0 00 017604 ER3 AC,SN ;IMUL FAILED 13946 042036 302 05 0 00 000020 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13947 042037 005 05 0 00 017604 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13948 042040 321 10 0 00 042030 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13949 13950 017605 SN=SN+1 13951 002000 XX=XX*4 13952 000040 ZZ=ZZ+ZZ 13953 IFE ZZ, 13954 042041 201 04 0 00 002000 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13955 042042 201 06 0 00 000040 MOVEI AC,ZZ ;SETUP PLIER 13956 042043 201 05 0 00 000040 MOVEI AC-1,ZZ ;SETUP PLICAND 13957 042044 220 06 0 00 000005 IMUL AC,AC-1 ;MULTIPLY ZZ BY ZZ 13958 042045 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD=XX 13959 042046 003 06 0 00 017605 ER3 AC,SN ;IMUL FAILED 13960 042047 302 05 0 00 000040 CAIE AC-1,ZZ ;WAS C(E) MODIFIED ? 13961 042050 005 05 0 00 017605 ER5 AC-1,SN ;C(E) WAS CLOBBERED 13962 042051 321 10 0 00 042041 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 13963 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 73 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0310 13964 ;TEST IMUL IMMEDIATE - TWO POSITIVES 13965 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 13966 ;3 X E 13967 ;PLIER=3 13968 ;PLICAND=E 13969 ;PROD=6,11,14,17,22 13970 13971 000005 AC=5 13972 SAVEAC (1,1)^ 13973 042052 201 07 0 00 042052 MOVEI AC+2,. ;SAVE TEST PC 13974 042053 202 07 0 00 030051 MOVEM AC+2,TESTPC 13975 042054 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 13976 042055 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 13977 13978 017700 SN=17700 13979 000003 XX=3 13980 000001 ZZ=1 13981 13982 F17700: REPEAT ^D5, 13983 13993 017701 SN=SN+1 13994 000006 XX=XX+3 13995 000002 ZZ=ZZ+1 13996 042056 201 03 0 00 000006 MOVEI AC-2,XX ;SETUP FOR COMPARISON 13997 042057 201 05 0 00 000003 MOVEI AC,3 ;SETUP PLIER 13998 042060 221 05 0 00 000002 IMULI AC,ZZ ;MULTIPLY 3 X E 13999 042061 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD = XX 14000 042062 003 05 0 00 017701 ER3 AC,SN ;IMULI FAILED 14001 042063 321 07 0 00 042056 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 14002 14003 017702 SN=SN+1 14004 000011 XX=XX+3 14005 000003 ZZ=ZZ+1 14006 042064 201 03 0 00 000011 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14007 042065 201 05 0 00 000003 MOVEI AC,3 ;SETUP PLIER 14008 042066 221 05 0 00 000003 IMULI AC,ZZ ;MULTIPLY 3 X E 14009 042067 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD = XX 14010 042070 003 05 0 00 017702 ER3 AC,SN ;IMULI FAILED 14011 042071 321 07 0 00 042064 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 14012 14013 017703 SN=SN+1 14014 000014 XX=XX+3 14015 000004 ZZ=ZZ+1 14016 042072 201 03 0 00 000014 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14017 042073 201 05 0 00 000003 MOVEI AC,3 ;SETUP PLIER 14018 042074 221 05 0 00 000004 IMULI AC,ZZ ;MULTIPLY 3 X E DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 73-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0311 14019 042075 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD = XX 14020 042076 003 05 0 00 017703 ER3 AC,SN ;IMULI FAILED 14021 042077 321 07 0 00 042072 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 14022 14023 017704 SN=SN+1 14024 000017 XX=XX+3 14025 000005 ZZ=ZZ+1 14026 042100 201 03 0 00 000017 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14027 042101 201 05 0 00 000003 MOVEI AC,3 ;SETUP PLIER 14028 042102 221 05 0 00 000005 IMULI AC,ZZ ;MULTIPLY 3 X E 14029 042103 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD = XX 14030 042104 003 05 0 00 017704 ER3 AC,SN ;IMULI FAILED 14031 042105 321 07 0 00 042100 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 14032 14033 017705 SN=SN+1 14034 000022 XX=XX+3 14035 000006 ZZ=ZZ+1 14036 042106 201 03 0 00 000022 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14037 042107 201 05 0 00 000003 MOVEI AC,3 ;SETUP PLIER 14038 042110 221 05 0 00 000006 IMULI AC,ZZ ;MULTIPLY 3 X E 14039 042111 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD = XX 14040 042112 003 05 0 00 017705 ER3 AC,SN ;IMULI FAILED 14041 042113 321 07 0 00 042106 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 14042 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 74 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0312 14043 ;TEST IMUL MEMORY - TWO NEGATIVES 14044 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 14045 ;A NEGATIVE NUMBER BY ITSELF 14046 ;PLIER=-2,-4,-10,-20,-40 14047 ;PLICAND=-2,-4,-10,-20,-40 14048 ;PROD=4,20,100,400,2000 14049 14050 000004 AC=4 14051 SAVEAC (1,1)^ 14052 042114 201 06 0 00 042114 MOVEI AC+2,. ;SAVE TEST PC 14053 042115 202 06 0 00 030051 MOVEM AC+2,TESTPC 14054 042116 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 14055 042117 202 06 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 14056 14057 020000 SN=20000 14058 000001 XX=1 14059 777777 777777 ZZ=-1 14060 14061 F20000: REPEAT ^D5, 14062 &17 ;SAVE C(AC+1) 14069 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14070 CAME AC-1,AC-2 ;TEST PROD=XX 14071 ER5 AC-1,SN ;IMULM FAILED 14072 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 14073 ER3 AC,SN ;C(AC) WAS CLOBBERED 14074 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14075 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14076 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14077 > 14078 020001 SN=SN+1 14079 000004 XX=XX*4 14080 777777 777776 ZZ=ZZ+ZZ 14081 042120 201 02 0 00 000004 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14082 042121 561 04 0 00 777776 HRROI AC,ZZ ;SETUP PLIER 14083 042122 561 03 0 00 777776 HRROI AC-1,ZZ ;SETUP PLICAND 14084 042123 200 01 0 00 000005 MOVE AC-3,&17 ;SAVE C(AC+1) 14085 042124 222 04 0 00 000003 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14086 042125 312 03 0 00 000002 CAME AC-1,AC-2 ;TEST PROD=XX 14087 042126 005 03 0 00 020001 ER5 AC-1,SN ;IMULM FAILED 14088 042127 312 04 0 00 044621 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 14089 042130 003 04 0 00 020001 ER3 AC,SN ;C(AC) WAS CLOBBERED 14090 042131 312 05 0 00 000001 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14091 042132 004 05 0 00 020001 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14092 042133 321 06 0 00 042120 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14093 14094 020002 SN=SN+1 14095 000020 XX=XX*4 14096 777777 777774 ZZ=ZZ+ZZ 14097 042134 201 02 0 00 000020 MOVEI AC-2,XX ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 74-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0313 14098 042135 561 04 0 00 777774 HRROI AC,ZZ ;SETUP PLIER 14099 042136 561 03 0 00 777774 HRROI AC-1,ZZ ;SETUP PLICAND 14100 042137 200 01 0 00 000005 MOVE AC-3,&17 ;SAVE C(AC+1) 14101 042140 222 04 0 00 000003 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14102 042141 312 03 0 00 000002 CAME AC-1,AC-2 ;TEST PROD=XX 14103 042142 005 03 0 00 020002 ER5 AC-1,SN ;IMULM FAILED 14104 042143 312 04 0 00 045324 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 14105 042144 003 04 0 00 020002 ER3 AC,SN ;C(AC) WAS CLOBBERED 14106 042145 312 05 0 00 000001 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14107 042146 004 05 0 00 020002 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14108 042147 321 06 0 00 042134 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14109 14110 020003 SN=SN+1 14111 000100 XX=XX*4 14112 777777 777770 ZZ=ZZ+ZZ 14113 042150 201 02 0 00 000100 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14114 042151 561 04 0 00 777770 HRROI AC,ZZ ;SETUP PLIER 14115 042152 561 03 0 00 777770 HRROI AC-1,ZZ ;SETUP PLICAND 14116 042153 200 01 0 00 000005 MOVE AC-3,&17 ;SAVE C(AC+1) 14117 042154 222 04 0 00 000003 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14118 042155 312 03 0 00 000002 CAME AC-1,AC-2 ;TEST PROD=XX 14119 042156 005 03 0 00 020003 ER5 AC-1,SN ;IMULM FAILED 14120 042157 312 04 0 00 045304 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 14121 042160 003 04 0 00 020003 ER3 AC,SN ;C(AC) WAS CLOBBERED 14122 042161 312 05 0 00 000001 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14123 042162 004 05 0 00 020003 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14124 042163 321 06 0 00 042150 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14125 14126 020004 SN=SN+1 14127 000400 XX=XX*4 14128 777777 777760 ZZ=ZZ+ZZ 14129 042164 201 02 0 00 000400 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14130 042165 561 04 0 00 777760 HRROI AC,ZZ ;SETUP PLIER 14131 042166 561 03 0 00 777760 HRROI AC-1,ZZ ;SETUP PLICAND 14132 042167 200 01 0 00 000005 MOVE AC-3,&17 ;SAVE C(AC+1) 14133 042170 222 04 0 00 000003 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14134 042171 312 03 0 00 000002 CAME AC-1,AC-2 ;TEST PROD=XX 14135 042172 005 03 0 00 020004 ER5 AC-1,SN ;IMULM FAILED 14136 042173 312 04 0 00 045303 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 14137 042174 003 04 0 00 020004 ER3 AC,SN ;C(AC) WAS CLOBBERED 14138 042175 312 05 0 00 000001 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14139 042176 004 05 0 00 020004 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14140 042177 321 06 0 00 042164 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14141 14142 020005 SN=SN+1 14143 002000 XX=XX*4 14144 777777 777740 ZZ=ZZ+ZZ 14145 042200 201 02 0 00 002000 MOVEI AC-2,XX ;SETUP FOR COMPARISON 14146 042201 561 04 0 00 777740 HRROI AC,ZZ ;SETUP PLIER 14147 042202 561 03 0 00 777740 HRROI AC-1,ZZ ;SETUP PLICAND 14148 042203 200 01 0 00 000005 MOVE AC-3,&17 ;SAVE C(AC+1) 14149 042204 222 04 0 00 000003 IMULM AC,AC-1 ;MULTIPLY ZZ BY ZZ 14150 042205 312 03 0 00 000002 CAME AC-1,AC-2 ;TEST PROD=XX 14151 042206 005 03 0 00 020005 ER5 AC-1,SN ;IMULM FAILED 14152 042207 312 04 0 00 045334 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 74-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0314 14153 042210 003 04 0 00 020005 ER3 AC,SN ;C(AC) WAS CLOBBERED 14154 042211 312 05 0 00 000001 CAME AC+1,&17 ;WAS C(AC+1) MODIFIED ? 14155 042212 004 05 0 00 020005 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 14156 042213 321 06 0 00 042200 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 14157 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 75 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0315 14158 ;TEST IMUL BOTH - MULTIPLY BY 0 14159 ;TESTING IS ACCOMPLISHED BY MULTIPLYING 14160 ;A NEGATIVE NUMBER BY 0 14161 ;PLIER=0 14162 ;PLICAND=-1,-2,-4,-10,-20 14163 ;PROD=0 14164 14165 000005 AC=5 14166 SAVEAC (1,1)^ 14167 042214 201 07 0 00 042214 MOVEI AC+2,. ;SAVE TEST PC 14168 042215 202 07 0 00 030051 MOVEM AC+2,TESTPC 14169 042216 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 14170 042217 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 14171 14172 020100 SN=20100 14173 000000 ZZ=0 14174 14175 F20100: REPEAT ^D5, 14176 14179 SETZ AC, ;SETUP PLIER 14180 HRROI AC-1,ZZ ;SETUP PLICAND 14181 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14182 SKIPE AC ;TEST PROD=0 14183 ER3 AC,SN 14184 SKIPE AC-1 ;TEST C(AC) = C(E) 14185 ER5 AC-1,SN ;IMULB FAILED 14186 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14187 > 14188 020101 SN=SN+1 14189 000000 ZZ=ZZ+ZZ 14190 777777 777777 IFE ZZ, 14191 042220 400 05 0 00 000000 SETZ AC, ;SETUP PLIER 14192 042221 561 04 0 00 777777 HRROI AC-1,ZZ ;SETUP PLICAND 14193 042222 223 05 0 00 000004 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14194 042223 332 00 0 00 000005 SKIPE AC ;TEST PROD=0 14195 042224 003 05 0 00 020101 ER3 AC,SN 14196 042225 332 00 0 00 000004 SKIPE AC-1 ;TEST C(AC) = C(E) 14197 042226 005 04 0 00 020101 ER5 AC-1,SN ;IMULB FAILED 14198 042227 321 07 0 00 042220 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14199 14200 020102 SN=SN+1 14201 777777 777776 ZZ=ZZ+ZZ 14202 IFE ZZ, 14203 042230 400 05 0 00 000000 SETZ AC, ;SETUP PLIER 14204 042231 561 04 0 00 777776 HRROI AC-1,ZZ ;SETUP PLICAND 14205 042232 223 05 0 00 000004 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14206 042233 332 00 0 00 000005 SKIPE AC ;TEST PROD=0 14207 042234 003 05 0 00 020102 ER3 AC,SN 14208 042235 332 00 0 00 000004 SKIPE AC-1 ;TEST C(AC) = C(E) 14209 042236 005 04 0 00 020102 ER5 AC-1,SN ;IMULB FAILED 14210 042237 321 07 0 00 042230 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14211 14212 020103 SN=SN+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 75-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0316 14213 777777 777774 ZZ=ZZ+ZZ 14214 IFE ZZ, 14215 042240 400 05 0 00 000000 SETZ AC, ;SETUP PLIER 14216 042241 561 04 0 00 777774 HRROI AC-1,ZZ ;SETUP PLICAND 14217 042242 223 05 0 00 000004 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14218 042243 332 00 0 00 000005 SKIPE AC ;TEST PROD=0 14219 042244 003 05 0 00 020103 ER3 AC,SN 14220 042245 332 00 0 00 000004 SKIPE AC-1 ;TEST C(AC) = C(E) 14221 042246 005 04 0 00 020103 ER5 AC-1,SN ;IMULB FAILED 14222 042247 321 07 0 00 042240 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14223 14224 020104 SN=SN+1 14225 777777 777770 ZZ=ZZ+ZZ 14226 IFE ZZ, 14227 042250 400 05 0 00 000000 SETZ AC, ;SETUP PLIER 14228 042251 561 04 0 00 777770 HRROI AC-1,ZZ ;SETUP PLICAND 14229 042252 223 05 0 00 000004 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14230 042253 332 00 0 00 000005 SKIPE AC ;TEST PROD=0 14231 042254 003 05 0 00 020104 ER3 AC,SN 14232 042255 332 00 0 00 000004 SKIPE AC-1 ;TEST C(AC) = C(E) 14233 042256 005 04 0 00 020104 ER5 AC-1,SN ;IMULB FAILED 14234 042257 321 07 0 00 042250 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14235 14236 020105 SN=SN+1 14237 777777 777760 ZZ=ZZ+ZZ 14238 IFE ZZ, 14239 042260 400 05 0 00 000000 SETZ AC, ;SETUP PLIER 14240 042261 561 04 0 00 777760 HRROI AC-1,ZZ ;SETUP PLICAND 14241 042262 223 05 0 00 000004 IMULB AC,AC-1 ;MULTIPLY ZZ BY 0 14242 042263 332 00 0 00 000005 SKIPE AC ;TEST PROD=0 14243 042264 003 05 0 00 020105 ER3 AC,SN 14244 042265 332 00 0 00 000004 SKIPE AC-1 ;TEST C(AC) = C(E) 14245 042266 005 04 0 00 020105 ER5 AC-1,SN ;IMULB FAILED 14246 042267 321 07 0 00 042260 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14247 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 76 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0317 14248 ;TEST IDIV DIRECT - TWO POSITIVES 14249 ;TESTING IS ACCOMPLISHED BY 14250 ;DIVIDING A NUMBER BY ITSELF 14251 ;DVND=1,2,4, ETC 14252 ;DVSR=1,2,4, ETC 14253 ;AN ERROR WILL OCCUR IF QUOT 14254 ;DIFFERS FROM 1 14255 ;AN ERROR WILL OCCUR IF REMD 14256 ;DIFFERS FROM 0 14257 14258 000005 AC=5 14259 SAVEAC (1,1)^ 14260 042270 201 07 0 00 042270 MOVEI AC+2,. ;SAVE TEST PC 14261 042271 202 07 0 00 030051 MOVEM AC+2,TESTPC 14262 042272 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 14263 042273 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 14264 14265 020200 SN=20200 14266 000000 ZZ=0 14267 14268 F20200: REPEAT ^D18, 14269 14272 MOVEI AC,ZZ ;SETUP DVND 14273 MOVEI AC-1,ZZ ;SETUP DVSR 14274 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14275 CAIE AC,1 ;TEST QUOT=1 14276 ER3 AC,SN 14277 JUMPE AC+1,.+2 ;TEST REMD=0 14278 ER4 AC+1,SN ;IDIV FAILED 14279 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14280 > 14281 020201 SN=SN+1 14282 000000 ZZ=ZZ+ZZ 14283 000001 IFE ZZ, 14284 042274 201 05 0 00 000001 MOVEI AC,ZZ ;SETUP DVND 14285 042275 201 04 0 00 000001 MOVEI AC-1,ZZ ;SETUP DVSR 14286 042276 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14287 042277 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14288 042300 003 05 0 00 020201 ER3 AC,SN 14289 042301 322 06 0 00 042303 JUMPE AC+1,.+2 ;TEST REMD=0 14290 042302 004 06 0 00 020201 ER4 AC+1,SN ;IDIV FAILED 14291 042303 321 07 0 00 042274 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14292 14293 020202 SN=SN+1 14294 000002 ZZ=ZZ+ZZ 14295 IFE ZZ, 14296 042304 201 05 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 14297 042305 201 04 0 00 000002 MOVEI AC-1,ZZ ;SETUP DVSR 14298 042306 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14299 042307 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14300 042310 003 05 0 00 020202 ER3 AC,SN 14301 042311 322 06 0 00 042313 JUMPE AC+1,.+2 ;TEST REMD=0 14302 042312 004 06 0 00 020202 ER4 AC+1,SN ;IDIV FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 76-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0318 14303 042313 321 07 0 00 042304 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14304 14305 020203 SN=SN+1 14306 000004 ZZ=ZZ+ZZ 14307 IFE ZZ, 14308 042314 201 05 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 14309 042315 201 04 0 00 000004 MOVEI AC-1,ZZ ;SETUP DVSR 14310 042316 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14311 042317 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14312 042320 003 05 0 00 020203 ER3 AC,SN 14313 042321 322 06 0 00 042323 JUMPE AC+1,.+2 ;TEST REMD=0 14314 042322 004 06 0 00 020203 ER4 AC+1,SN ;IDIV FAILED 14315 042323 321 07 0 00 042314 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14316 14317 020204 SN=SN+1 14318 000010 ZZ=ZZ+ZZ 14319 IFE ZZ, 14320 042324 201 05 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 14321 042325 201 04 0 00 000010 MOVEI AC-1,ZZ ;SETUP DVSR 14322 042326 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14323 042327 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14324 042330 003 05 0 00 020204 ER3 AC,SN 14325 042331 322 06 0 00 042333 JUMPE AC+1,.+2 ;TEST REMD=0 14326 042332 004 06 0 00 020204 ER4 AC+1,SN ;IDIV FAILED 14327 042333 321 07 0 00 042324 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14328 14329 020205 SN=SN+1 14330 000020 ZZ=ZZ+ZZ 14331 IFE ZZ, 14332 042334 201 05 0 00 000020 MOVEI AC,ZZ ;SETUP DVND 14333 042335 201 04 0 00 000020 MOVEI AC-1,ZZ ;SETUP DVSR 14334 042336 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14335 042337 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14336 042340 003 05 0 00 020205 ER3 AC,SN 14337 042341 322 06 0 00 042343 JUMPE AC+1,.+2 ;TEST REMD=0 14338 042342 004 06 0 00 020205 ER4 AC+1,SN ;IDIV FAILED 14339 042343 321 07 0 00 042334 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14340 14341 020206 SN=SN+1 14342 000040 ZZ=ZZ+ZZ 14343 IFE ZZ, 14344 042344 201 05 0 00 000040 MOVEI AC,ZZ ;SETUP DVND 14345 042345 201 04 0 00 000040 MOVEI AC-1,ZZ ;SETUP DVSR 14346 042346 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14347 042347 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14348 042350 003 05 0 00 020206 ER3 AC,SN 14349 042351 322 06 0 00 042353 JUMPE AC+1,.+2 ;TEST REMD=0 14350 042352 004 06 0 00 020206 ER4 AC+1,SN ;IDIV FAILED 14351 042353 321 07 0 00 042344 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14352 14353 020207 SN=SN+1 14354 000100 ZZ=ZZ+ZZ 14355 IFE ZZ, 14356 042354 201 05 0 00 000100 MOVEI AC,ZZ ;SETUP DVND 14357 042355 201 04 0 00 000100 MOVEI AC-1,ZZ ;SETUP DVSR DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 76-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0319 14358 042356 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14359 042357 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14360 042360 003 05 0 00 020207 ER3 AC,SN 14361 042361 322 06 0 00 042363 JUMPE AC+1,.+2 ;TEST REMD=0 14362 042362 004 06 0 00 020207 ER4 AC+1,SN ;IDIV FAILED 14363 042363 321 07 0 00 042354 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14364 14365 020210 SN=SN+1 14366 000200 ZZ=ZZ+ZZ 14367 IFE ZZ, 14368 042364 201 05 0 00 000200 MOVEI AC,ZZ ;SETUP DVND 14369 042365 201 04 0 00 000200 MOVEI AC-1,ZZ ;SETUP DVSR 14370 042366 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14371 042367 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14372 042370 003 05 0 00 020210 ER3 AC,SN 14373 042371 322 06 0 00 042373 JUMPE AC+1,.+2 ;TEST REMD=0 14374 042372 004 06 0 00 020210 ER4 AC+1,SN ;IDIV FAILED 14375 042373 321 07 0 00 042364 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14376 14377 020211 SN=SN+1 14378 000400 ZZ=ZZ+ZZ 14379 IFE ZZ, 14380 042374 201 05 0 00 000400 MOVEI AC,ZZ ;SETUP DVND 14381 042375 201 04 0 00 000400 MOVEI AC-1,ZZ ;SETUP DVSR 14382 042376 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14383 042377 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14384 042400 003 05 0 00 020211 ER3 AC,SN 14385 042401 322 06 0 00 042403 JUMPE AC+1,.+2 ;TEST REMD=0 14386 042402 004 06 0 00 020211 ER4 AC+1,SN ;IDIV FAILED 14387 042403 321 07 0 00 042374 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14388 14389 020212 SN=SN+1 14390 001000 ZZ=ZZ+ZZ 14391 IFE ZZ, 14392 042404 201 05 0 00 001000 MOVEI AC,ZZ ;SETUP DVND 14393 042405 201 04 0 00 001000 MOVEI AC-1,ZZ ;SETUP DVSR 14394 042406 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14395 042407 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14396 042410 003 05 0 00 020212 ER3 AC,SN 14397 042411 322 06 0 00 042413 JUMPE AC+1,.+2 ;TEST REMD=0 14398 042412 004 06 0 00 020212 ER4 AC+1,SN ;IDIV FAILED 14399 042413 321 07 0 00 042404 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14400 14401 020213 SN=SN+1 14402 002000 ZZ=ZZ+ZZ 14403 IFE ZZ, 14404 042414 201 05 0 00 002000 MOVEI AC,ZZ ;SETUP DVND 14405 042415 201 04 0 00 002000 MOVEI AC-1,ZZ ;SETUP DVSR 14406 042416 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14407 042417 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14408 042420 003 05 0 00 020213 ER3 AC,SN 14409 042421 322 06 0 00 042423 JUMPE AC+1,.+2 ;TEST REMD=0 14410 042422 004 06 0 00 020213 ER4 AC+1,SN ;IDIV FAILED 14411 042423 321 07 0 00 042414 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14412 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 76-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0320 14413 020214 SN=SN+1 14414 004000 ZZ=ZZ+ZZ 14415 IFE ZZ, 14416 042424 201 05 0 00 004000 MOVEI AC,ZZ ;SETUP DVND 14417 042425 201 04 0 00 004000 MOVEI AC-1,ZZ ;SETUP DVSR 14418 042426 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14419 042427 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14420 042430 003 05 0 00 020214 ER3 AC,SN 14421 042431 322 06 0 00 042433 JUMPE AC+1,.+2 ;TEST REMD=0 14422 042432 004 06 0 00 020214 ER4 AC+1,SN ;IDIV FAILED 14423 042433 321 07 0 00 042424 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14424 14425 020215 SN=SN+1 14426 010000 ZZ=ZZ+ZZ 14427 IFE ZZ, 14428 042434 201 05 0 00 010000 MOVEI AC,ZZ ;SETUP DVND 14429 042435 201 04 0 00 010000 MOVEI AC-1,ZZ ;SETUP DVSR 14430 042436 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14431 042437 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14432 042440 003 05 0 00 020215 ER3 AC,SN 14433 042441 322 06 0 00 042443 JUMPE AC+1,.+2 ;TEST REMD=0 14434 042442 004 06 0 00 020215 ER4 AC+1,SN ;IDIV FAILED 14435 042443 321 07 0 00 042434 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14436 14437 020216 SN=SN+1 14438 020000 ZZ=ZZ+ZZ 14439 IFE ZZ, 14440 042444 201 05 0 00 020000 MOVEI AC,ZZ ;SETUP DVND 14441 042445 201 04 0 00 020000 MOVEI AC-1,ZZ ;SETUP DVSR 14442 042446 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14443 042447 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14444 042450 003 05 0 00 020216 ER3 AC,SN 14445 042451 322 06 0 00 042453 JUMPE AC+1,.+2 ;TEST REMD=0 14446 042452 004 06 0 00 020216 ER4 AC+1,SN ;IDIV FAILED 14447 042453 321 07 0 00 042444 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14448 14449 020217 SN=SN+1 14450 040000 ZZ=ZZ+ZZ 14451 IFE ZZ, 14452 042454 201 05 0 00 040000 MOVEI AC,ZZ ;SETUP DVND 14453 042455 201 04 0 00 040000 MOVEI AC-1,ZZ ;SETUP DVSR 14454 042456 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14455 042457 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14456 042460 003 05 0 00 020217 ER3 AC,SN 14457 042461 322 06 0 00 042463 JUMPE AC+1,.+2 ;TEST REMD=0 14458 042462 004 06 0 00 020217 ER4 AC+1,SN ;IDIV FAILED 14459 042463 321 07 0 00 042454 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14460 14461 020220 SN=SN+1 14462 100000 ZZ=ZZ+ZZ 14463 IFE ZZ, 14464 042464 201 05 0 00 100000 MOVEI AC,ZZ ;SETUP DVND 14465 042465 201 04 0 00 100000 MOVEI AC-1,ZZ ;SETUP DVSR 14466 042466 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14467 042467 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 76-4 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0321 14468 042470 003 05 0 00 020220 ER3 AC,SN 14469 042471 322 06 0 00 042473 JUMPE AC+1,.+2 ;TEST REMD=0 14470 042472 004 06 0 00 020220 ER4 AC+1,SN ;IDIV FAILED 14471 042473 321 07 0 00 042464 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14472 14473 020221 SN=SN+1 14474 200000 ZZ=ZZ+ZZ 14475 IFE ZZ, 14476 042474 201 05 0 00 200000 MOVEI AC,ZZ ;SETUP DVND 14477 042475 201 04 0 00 200000 MOVEI AC-1,ZZ ;SETUP DVSR 14478 042476 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14479 042477 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14480 042500 003 05 0 00 020221 ER3 AC,SN 14481 042501 322 06 0 00 042503 JUMPE AC+1,.+2 ;TEST REMD=0 14482 042502 004 06 0 00 020221 ER4 AC+1,SN ;IDIV FAILED 14483 042503 321 07 0 00 042474 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14484 14485 020222 SN=SN+1 14486 400000 ZZ=ZZ+ZZ 14487 IFE ZZ, 14488 042504 201 05 0 00 400000 MOVEI AC,ZZ ;SETUP DVND 14489 042505 201 04 0 00 400000 MOVEI AC-1,ZZ ;SETUP DVSR 14490 042506 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14491 042507 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14492 042510 003 05 0 00 020222 ER3 AC,SN 14493 042511 322 06 0 00 042513 JUMPE AC+1,.+2 ;TEST REMD=0 14494 042512 004 06 0 00 020222 ER4 AC+1,SN ;IDIV FAILED 14495 042513 321 07 0 00 042504 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14496 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 77 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0322 14497 020300 SN=20300 14498 000000 ZZ=0 14499 14500 F20300: REPEAT ^D17, 14501 14504 MOVSI AC,ZZ ;SETUP DVND 14505 MOVSI AC-1,ZZ ;SETUP DVSR 14506 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14507 CAIE AC,1 ;TEST QUOT=1 14508 ER3 AC,SN 14509 JUMPE AC+1,.+2 ;TEST REMD=0 14510 ER4 AC+1,SN ;IDIV FAILED 14511 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14512 > 14513 020301 SN=SN+1 14514 000000 ZZ=ZZ+ZZ 14515 000001 IFE ZZ, 14516 042514 205 05 0 00 000001 MOVSI AC,ZZ ;SETUP DVND 14517 042515 205 04 0 00 000001 MOVSI AC-1,ZZ ;SETUP DVSR 14518 042516 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14519 042517 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14520 042520 003 05 0 00 020301 ER3 AC,SN 14521 042521 322 06 0 00 042523 JUMPE AC+1,.+2 ;TEST REMD=0 14522 042522 004 06 0 00 020301 ER4 AC+1,SN ;IDIV FAILED 14523 042523 321 07 0 00 042514 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14524 14525 020302 SN=SN+1 14526 000002 ZZ=ZZ+ZZ 14527 IFE ZZ, 14528 042524 205 05 0 00 000002 MOVSI AC,ZZ ;SETUP DVND 14529 042525 205 04 0 00 000002 MOVSI AC-1,ZZ ;SETUP DVSR 14530 042526 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14531 042527 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14532 042530 003 05 0 00 020302 ER3 AC,SN 14533 042531 322 06 0 00 042533 JUMPE AC+1,.+2 ;TEST REMD=0 14534 042532 004 06 0 00 020302 ER4 AC+1,SN ;IDIV FAILED 14535 042533 321 07 0 00 042524 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14536 14537 020303 SN=SN+1 14538 000004 ZZ=ZZ+ZZ 14539 IFE ZZ, 14540 042534 205 05 0 00 000004 MOVSI AC,ZZ ;SETUP DVND 14541 042535 205 04 0 00 000004 MOVSI AC-1,ZZ ;SETUP DVSR 14542 042536 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14543 042537 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14544 042540 003 05 0 00 020303 ER3 AC,SN 14545 042541 322 06 0 00 042543 JUMPE AC+1,.+2 ;TEST REMD=0 14546 042542 004 06 0 00 020303 ER4 AC+1,SN ;IDIV FAILED 14547 042543 321 07 0 00 042534 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14548 14549 020304 SN=SN+1 14550 000010 ZZ=ZZ+ZZ 14551 IFE ZZ, DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 77-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0323 14552 042544 205 05 0 00 000010 MOVSI AC,ZZ ;SETUP DVND 14553 042545 205 04 0 00 000010 MOVSI AC-1,ZZ ;SETUP DVSR 14554 042546 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14555 042547 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14556 042550 003 05 0 00 020304 ER3 AC,SN 14557 042551 322 06 0 00 042553 JUMPE AC+1,.+2 ;TEST REMD=0 14558 042552 004 06 0 00 020304 ER4 AC+1,SN ;IDIV FAILED 14559 042553 321 07 0 00 042544 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14560 14561 020305 SN=SN+1 14562 000020 ZZ=ZZ+ZZ 14563 IFE ZZ, 14564 042554 205 05 0 00 000020 MOVSI AC,ZZ ;SETUP DVND 14565 042555 205 04 0 00 000020 MOVSI AC-1,ZZ ;SETUP DVSR 14566 042556 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14567 042557 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14568 042560 003 05 0 00 020305 ER3 AC,SN 14569 042561 322 06 0 00 042563 JUMPE AC+1,.+2 ;TEST REMD=0 14570 042562 004 06 0 00 020305 ER4 AC+1,SN ;IDIV FAILED 14571 042563 321 07 0 00 042554 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14572 14573 020306 SN=SN+1 14574 000040 ZZ=ZZ+ZZ 14575 IFE ZZ, 14576 042564 205 05 0 00 000040 MOVSI AC,ZZ ;SETUP DVND 14577 042565 205 04 0 00 000040 MOVSI AC-1,ZZ ;SETUP DVSR 14578 042566 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14579 042567 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14580 042570 003 05 0 00 020306 ER3 AC,SN 14581 042571 322 06 0 00 042573 JUMPE AC+1,.+2 ;TEST REMD=0 14582 042572 004 06 0 00 020306 ER4 AC+1,SN ;IDIV FAILED 14583 042573 321 07 0 00 042564 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14584 14585 020307 SN=SN+1 14586 000100 ZZ=ZZ+ZZ 14587 IFE ZZ, 14588 042574 205 05 0 00 000100 MOVSI AC,ZZ ;SETUP DVND 14589 042575 205 04 0 00 000100 MOVSI AC-1,ZZ ;SETUP DVSR 14590 042576 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14591 042577 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14592 042600 003 05 0 00 020307 ER3 AC,SN 14593 042601 322 06 0 00 042603 JUMPE AC+1,.+2 ;TEST REMD=0 14594 042602 004 06 0 00 020307 ER4 AC+1,SN ;IDIV FAILED 14595 042603 321 07 0 00 042574 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14596 14597 020310 SN=SN+1 14598 000200 ZZ=ZZ+ZZ 14599 IFE ZZ, 14600 042604 205 05 0 00 000200 MOVSI AC,ZZ ;SETUP DVND 14601 042605 205 04 0 00 000200 MOVSI AC-1,ZZ ;SETUP DVSR 14602 042606 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14603 042607 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14604 042610 003 05 0 00 020310 ER3 AC,SN 14605 042611 322 06 0 00 042613 JUMPE AC+1,.+2 ;TEST REMD=0 14606 042612 004 06 0 00 020310 ER4 AC+1,SN ;IDIV FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 77-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0324 14607 042613 321 07 0 00 042604 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14608 14609 020311 SN=SN+1 14610 000400 ZZ=ZZ+ZZ 14611 IFE ZZ, 14612 042614 205 05 0 00 000400 MOVSI AC,ZZ ;SETUP DVND 14613 042615 205 04 0 00 000400 MOVSI AC-1,ZZ ;SETUP DVSR 14614 042616 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14615 042617 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14616 042620 003 05 0 00 020311 ER3 AC,SN 14617 042621 322 06 0 00 042623 JUMPE AC+1,.+2 ;TEST REMD=0 14618 042622 004 06 0 00 020311 ER4 AC+1,SN ;IDIV FAILED 14619 042623 321 07 0 00 042614 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14620 14621 020312 SN=SN+1 14622 001000 ZZ=ZZ+ZZ 14623 IFE ZZ, 14624 042624 205 05 0 00 001000 MOVSI AC,ZZ ;SETUP DVND 14625 042625 205 04 0 00 001000 MOVSI AC-1,ZZ ;SETUP DVSR 14626 042626 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14627 042627 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14628 042630 003 05 0 00 020312 ER3 AC,SN 14629 042631 322 06 0 00 042633 JUMPE AC+1,.+2 ;TEST REMD=0 14630 042632 004 06 0 00 020312 ER4 AC+1,SN ;IDIV FAILED 14631 042633 321 07 0 00 042624 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14632 14633 020313 SN=SN+1 14634 002000 ZZ=ZZ+ZZ 14635 IFE ZZ, 14636 042634 205 05 0 00 002000 MOVSI AC,ZZ ;SETUP DVND 14637 042635 205 04 0 00 002000 MOVSI AC-1,ZZ ;SETUP DVSR 14638 042636 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14639 042637 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14640 042640 003 05 0 00 020313 ER3 AC,SN 14641 042641 322 06 0 00 042643 JUMPE AC+1,.+2 ;TEST REMD=0 14642 042642 004 06 0 00 020313 ER4 AC+1,SN ;IDIV FAILED 14643 042643 321 07 0 00 042634 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14644 14645 020314 SN=SN+1 14646 004000 ZZ=ZZ+ZZ 14647 IFE ZZ, 14648 042644 205 05 0 00 004000 MOVSI AC,ZZ ;SETUP DVND 14649 042645 205 04 0 00 004000 MOVSI AC-1,ZZ ;SETUP DVSR 14650 042646 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14651 042647 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14652 042650 003 05 0 00 020314 ER3 AC,SN 14653 042651 322 06 0 00 042653 JUMPE AC+1,.+2 ;TEST REMD=0 14654 042652 004 06 0 00 020314 ER4 AC+1,SN ;IDIV FAILED 14655 042653 321 07 0 00 042644 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14656 14657 020315 SN=SN+1 14658 010000 ZZ=ZZ+ZZ 14659 IFE ZZ, 14660 042654 205 05 0 00 010000 MOVSI AC,ZZ ;SETUP DVND 14661 042655 205 04 0 00 010000 MOVSI AC-1,ZZ ;SETUP DVSR DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 77-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0325 14662 042656 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14663 042657 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14664 042660 003 05 0 00 020315 ER3 AC,SN 14665 042661 322 06 0 00 042663 JUMPE AC+1,.+2 ;TEST REMD=0 14666 042662 004 06 0 00 020315 ER4 AC+1,SN ;IDIV FAILED 14667 042663 321 07 0 00 042654 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14668 14669 020316 SN=SN+1 14670 020000 ZZ=ZZ+ZZ 14671 IFE ZZ, 14672 042664 205 05 0 00 020000 MOVSI AC,ZZ ;SETUP DVND 14673 042665 205 04 0 00 020000 MOVSI AC-1,ZZ ;SETUP DVSR 14674 042666 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14675 042667 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14676 042670 003 05 0 00 020316 ER3 AC,SN 14677 042671 322 06 0 00 042673 JUMPE AC+1,.+2 ;TEST REMD=0 14678 042672 004 06 0 00 020316 ER4 AC+1,SN ;IDIV FAILED 14679 042673 321 07 0 00 042664 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14680 14681 020317 SN=SN+1 14682 040000 ZZ=ZZ+ZZ 14683 IFE ZZ, 14684 042674 205 05 0 00 040000 MOVSI AC,ZZ ;SETUP DVND 14685 042675 205 04 0 00 040000 MOVSI AC-1,ZZ ;SETUP DVSR 14686 042676 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14687 042677 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14688 042700 003 05 0 00 020317 ER3 AC,SN 14689 042701 322 06 0 00 042703 JUMPE AC+1,.+2 ;TEST REMD=0 14690 042702 004 06 0 00 020317 ER4 AC+1,SN ;IDIV FAILED 14691 042703 321 07 0 00 042674 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14692 14693 020320 SN=SN+1 14694 100000 ZZ=ZZ+ZZ 14695 IFE ZZ, 14696 042704 205 05 0 00 100000 MOVSI AC,ZZ ;SETUP DVND 14697 042705 205 04 0 00 100000 MOVSI AC-1,ZZ ;SETUP DVSR 14698 042706 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14699 042707 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14700 042710 003 05 0 00 020320 ER3 AC,SN 14701 042711 322 06 0 00 042713 JUMPE AC+1,.+2 ;TEST REMD=0 14702 042712 004 06 0 00 020320 ER4 AC+1,SN ;IDIV FAILED 14703 042713 321 07 0 00 042704 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14704 14705 020321 SN=SN+1 14706 200000 ZZ=ZZ+ZZ 14707 IFE ZZ, 14708 042714 205 05 0 00 200000 MOVSI AC,ZZ ;SETUP DVND 14709 042715 205 04 0 00 200000 MOVSI AC-1,ZZ ;SETUP DVSR 14710 042716 230 05 0 00 000004 IDIV AC,AC-1 ;DIVIDE ZZ BY ZZ 14711 042717 302 05 0 00 000001 CAIE AC,1 ;TEST QUOT=1 14712 042720 003 05 0 00 020321 ER3 AC,SN 14713 042721 322 06 0 00 042723 JUMPE AC+1,.+2 ;TEST REMD=0 14714 042722 004 06 0 00 020321 ER4 AC+1,SN ;IDIV FAILED 14715 042723 321 07 0 00 042714 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 14716 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0326 14717 ;TEST IDIV DIRECT - TWO POSITIVES 14718 ;TESTING IS ACCOMPLISHED BY 14719 ;DIVIDING AN EVEN NUMBER BY 1 14720 ;DVND=1,2,4 ETC 14721 ;DVSR=1 14722 ;AN ERROR WILL OCCUR IF QUOT 14723 ;DIFFERS FROM DVND 14724 ;AN ERROR WILL OCCUR IF REMD 14725 ;DIFFERS FROM 0 14726 14727 000013 AC=13 14728 SAVEAC (1,1)^ 14729 042724 201 15 0 00 042724 MOVEI AC+2,. ;SAVE TEST PC 14730 042725 202 15 0 00 030051 MOVEM AC+2,TESTPC 14731 042726 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 14732 042727 202 15 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 14733 14734 020400 SN=20400 14735 000000 ZZ=0 14736 14737 F20400: REPEAT ^D18, 14738 14741 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14742 MOVEI AC,ZZ ;SETUP DVND 14743 MOVEI AC-1,1 ;SETUP DVSR 14744 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14745 CAME AC,AC-2 ;TEST QUOT=DVND 14746 ER3 AC,SN 14747 JUMPE AC+1,.+2 ;TEST REMD=0 14748 ER4 AC+1,SN ;IDIV FAILED 14749 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14750 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14751 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14752 > 14753 020401 SN=SN+1 14754 000000 ZZ=ZZ+ZZ 14755 000001 IFE ZZ, 14756 042730 201 11 0 00 000001 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14757 042731 201 13 0 00 000001 MOVEI AC,ZZ ;SETUP DVND 14758 042732 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14759 042733 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14760 042734 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14761 042735 003 13 0 00 020401 ER3 AC,SN 14762 042736 322 14 0 00 042740 JUMPE AC+1,.+2 ;TEST REMD=0 14763 042737 004 14 0 00 020401 ER4 AC+1,SN ;IDIV FAILED 14764 042740 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14765 042741 005 12 0 00 020401 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14766 042742 321 15 0 00 042730 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14767 14768 020402 SN=SN+1 14769 000002 ZZ=ZZ+ZZ 14770 IFE ZZ, 14771 042743 201 11 0 00 000002 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0327 14772 042744 201 13 0 00 000002 MOVEI AC,ZZ ;SETUP DVND 14773 042745 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14774 042746 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14775 042747 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14776 042750 003 13 0 00 020402 ER3 AC,SN 14777 042751 322 14 0 00 042753 JUMPE AC+1,.+2 ;TEST REMD=0 14778 042752 004 14 0 00 020402 ER4 AC+1,SN ;IDIV FAILED 14779 042753 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14780 042754 005 12 0 00 020402 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14781 042755 321 15 0 00 042743 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14782 14783 020403 SN=SN+1 14784 000004 ZZ=ZZ+ZZ 14785 IFE ZZ, 14786 042756 201 11 0 00 000004 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14787 042757 201 13 0 00 000004 MOVEI AC,ZZ ;SETUP DVND 14788 042760 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14789 042761 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14790 042762 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14791 042763 003 13 0 00 020403 ER3 AC,SN 14792 042764 322 14 0 00 042766 JUMPE AC+1,.+2 ;TEST REMD=0 14793 042765 004 14 0 00 020403 ER4 AC+1,SN ;IDIV FAILED 14794 042766 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14795 042767 005 12 0 00 020403 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14796 042770 321 15 0 00 042756 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14797 14798 020404 SN=SN+1 14799 000010 ZZ=ZZ+ZZ 14800 IFE ZZ, 14801 042771 201 11 0 00 000010 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14802 042772 201 13 0 00 000010 MOVEI AC,ZZ ;SETUP DVND 14803 042773 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14804 042774 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14805 042775 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14806 042776 003 13 0 00 020404 ER3 AC,SN 14807 042777 322 14 0 00 043001 JUMPE AC+1,.+2 ;TEST REMD=0 14808 043000 004 14 0 00 020404 ER4 AC+1,SN ;IDIV FAILED 14809 043001 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14810 043002 005 12 0 00 020404 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14811 043003 321 15 0 00 042771 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14812 14813 020405 SN=SN+1 14814 000020 ZZ=ZZ+ZZ 14815 IFE ZZ, 14816 043004 201 11 0 00 000020 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14817 043005 201 13 0 00 000020 MOVEI AC,ZZ ;SETUP DVND 14818 043006 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14819 043007 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14820 043010 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14821 043011 003 13 0 00 020405 ER3 AC,SN 14822 043012 322 14 0 00 043014 JUMPE AC+1,.+2 ;TEST REMD=0 14823 043013 004 14 0 00 020405 ER4 AC+1,SN ;IDIV FAILED 14824 043014 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14825 043015 005 12 0 00 020405 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14826 043016 321 15 0 00 043004 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0328 14827 14828 020406 SN=SN+1 14829 000040 ZZ=ZZ+ZZ 14830 IFE ZZ, 14831 043017 201 11 0 00 000040 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14832 043020 201 13 0 00 000040 MOVEI AC,ZZ ;SETUP DVND 14833 043021 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14834 043022 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14835 043023 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14836 043024 003 13 0 00 020406 ER3 AC,SN 14837 043025 322 14 0 00 043027 JUMPE AC+1,.+2 ;TEST REMD=0 14838 043026 004 14 0 00 020406 ER4 AC+1,SN ;IDIV FAILED 14839 043027 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14840 043030 005 12 0 00 020406 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14841 043031 321 15 0 00 043017 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14842 14843 020407 SN=SN+1 14844 000100 ZZ=ZZ+ZZ 14845 IFE ZZ, 14846 043032 201 11 0 00 000100 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14847 043033 201 13 0 00 000100 MOVEI AC,ZZ ;SETUP DVND 14848 043034 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14849 043035 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14850 043036 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14851 043037 003 13 0 00 020407 ER3 AC,SN 14852 043040 322 14 0 00 043042 JUMPE AC+1,.+2 ;TEST REMD=0 14853 043041 004 14 0 00 020407 ER4 AC+1,SN ;IDIV FAILED 14854 043042 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14855 043043 005 12 0 00 020407 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14856 043044 321 15 0 00 043032 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14857 14858 020410 SN=SN+1 14859 000200 ZZ=ZZ+ZZ 14860 IFE ZZ, 14861 043045 201 11 0 00 000200 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14862 043046 201 13 0 00 000200 MOVEI AC,ZZ ;SETUP DVND 14863 043047 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14864 043050 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14865 043051 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14866 043052 003 13 0 00 020410 ER3 AC,SN 14867 043053 322 14 0 00 043055 JUMPE AC+1,.+2 ;TEST REMD=0 14868 043054 004 14 0 00 020410 ER4 AC+1,SN ;IDIV FAILED 14869 043055 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14870 043056 005 12 0 00 020410 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14871 043057 321 15 0 00 043045 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14872 14873 020411 SN=SN+1 14874 000400 ZZ=ZZ+ZZ 14875 IFE ZZ, 14876 043060 201 11 0 00 000400 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14877 043061 201 13 0 00 000400 MOVEI AC,ZZ ;SETUP DVND 14878 043062 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14879 043063 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14880 043064 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14881 043065 003 13 0 00 020411 ER3 AC,SN DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0329 14882 043066 322 14 0 00 043070 JUMPE AC+1,.+2 ;TEST REMD=0 14883 043067 004 14 0 00 020411 ER4 AC+1,SN ;IDIV FAILED 14884 043070 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14885 043071 005 12 0 00 020411 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14886 043072 321 15 0 00 043060 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14887 14888 020412 SN=SN+1 14889 001000 ZZ=ZZ+ZZ 14890 IFE ZZ, 14891 043073 201 11 0 00 001000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14892 043074 201 13 0 00 001000 MOVEI AC,ZZ ;SETUP DVND 14893 043075 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14894 043076 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14895 043077 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14896 043100 003 13 0 00 020412 ER3 AC,SN 14897 043101 322 14 0 00 043103 JUMPE AC+1,.+2 ;TEST REMD=0 14898 043102 004 14 0 00 020412 ER4 AC+1,SN ;IDIV FAILED 14899 043103 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14900 043104 005 12 0 00 020412 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14901 043105 321 15 0 00 043073 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14902 14903 020413 SN=SN+1 14904 002000 ZZ=ZZ+ZZ 14905 IFE ZZ, 14906 043106 201 11 0 00 002000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14907 043107 201 13 0 00 002000 MOVEI AC,ZZ ;SETUP DVND 14908 043110 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14909 043111 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14910 043112 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14911 043113 003 13 0 00 020413 ER3 AC,SN 14912 043114 322 14 0 00 043116 JUMPE AC+1,.+2 ;TEST REMD=0 14913 043115 004 14 0 00 020413 ER4 AC+1,SN ;IDIV FAILED 14914 043116 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14915 043117 005 12 0 00 020413 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14916 043120 321 15 0 00 043106 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14917 14918 020414 SN=SN+1 14919 004000 ZZ=ZZ+ZZ 14920 IFE ZZ, 14921 043121 201 11 0 00 004000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14922 043122 201 13 0 00 004000 MOVEI AC,ZZ ;SETUP DVND 14923 043123 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14924 043124 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14925 043125 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14926 043126 003 13 0 00 020414 ER3 AC,SN 14927 043127 322 14 0 00 043131 JUMPE AC+1,.+2 ;TEST REMD=0 14928 043130 004 14 0 00 020414 ER4 AC+1,SN ;IDIV FAILED 14929 043131 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14930 043132 005 12 0 00 020414 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14931 043133 321 15 0 00 043121 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14932 14933 020415 SN=SN+1 14934 010000 ZZ=ZZ+ZZ 14935 IFE ZZ, 14936 043134 201 11 0 00 010000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78-4 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0330 14937 043135 201 13 0 00 010000 MOVEI AC,ZZ ;SETUP DVND 14938 043136 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14939 043137 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14940 043140 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14941 043141 003 13 0 00 020415 ER3 AC,SN 14942 043142 322 14 0 00 043144 JUMPE AC+1,.+2 ;TEST REMD=0 14943 043143 004 14 0 00 020415 ER4 AC+1,SN ;IDIV FAILED 14944 043144 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14945 043145 005 12 0 00 020415 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14946 043146 321 15 0 00 043134 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14947 14948 020416 SN=SN+1 14949 020000 ZZ=ZZ+ZZ 14950 IFE ZZ, 14951 043147 201 11 0 00 020000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14952 043150 201 13 0 00 020000 MOVEI AC,ZZ ;SETUP DVND 14953 043151 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14954 043152 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14955 043153 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14956 043154 003 13 0 00 020416 ER3 AC,SN 14957 043155 322 14 0 00 043157 JUMPE AC+1,.+2 ;TEST REMD=0 14958 043156 004 14 0 00 020416 ER4 AC+1,SN ;IDIV FAILED 14959 043157 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14960 043160 005 12 0 00 020416 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14961 043161 321 15 0 00 043147 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14962 14963 020417 SN=SN+1 14964 040000 ZZ=ZZ+ZZ 14965 IFE ZZ, 14966 043162 201 11 0 00 040000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14967 043163 201 13 0 00 040000 MOVEI AC,ZZ ;SETUP DVND 14968 043164 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14969 043165 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14970 043166 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14971 043167 003 13 0 00 020417 ER3 AC,SN 14972 043170 322 14 0 00 043172 JUMPE AC+1,.+2 ;TEST REMD=0 14973 043171 004 14 0 00 020417 ER4 AC+1,SN ;IDIV FAILED 14974 043172 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14975 043173 005 12 0 00 020417 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14976 043174 321 15 0 00 043162 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 14977 14978 020420 SN=SN+1 14979 100000 ZZ=ZZ+ZZ 14980 IFE ZZ, 14981 043175 201 11 0 00 100000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14982 043176 201 13 0 00 100000 MOVEI AC,ZZ ;SETUP DVND 14983 043177 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14984 043200 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 14985 043201 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 14986 043202 003 13 0 00 020420 ER3 AC,SN 14987 043203 322 14 0 00 043205 JUMPE AC+1,.+2 ;TEST REMD=0 14988 043204 004 14 0 00 020420 ER4 AC+1,SN ;IDIV FAILED 14989 043205 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 14990 043206 005 12 0 00 020420 ER5 AC-1,SN ;C(E) WAS CLOBBERED 14991 043207 321 15 0 00 043175 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 78-5 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0331 14992 14993 020421 SN=SN+1 14994 200000 ZZ=ZZ+ZZ 14995 IFE ZZ, 14996 043210 201 11 0 00 200000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 14997 043211 201 13 0 00 200000 MOVEI AC,ZZ ;SETUP DVND 14998 043212 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 14999 043213 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15000 043214 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15001 043215 003 13 0 00 020421 ER3 AC,SN 15002 043216 322 14 0 00 043220 JUMPE AC+1,.+2 ;TEST REMD=0 15003 043217 004 14 0 00 020421 ER4 AC+1,SN ;IDIV FAILED 15004 043220 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15005 043221 005 12 0 00 020421 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15006 043222 321 15 0 00 043210 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15007 15008 020422 SN=SN+1 15009 400000 ZZ=ZZ+ZZ 15010 IFE ZZ, 15011 043223 201 11 0 00 400000 MOVEI AC-2,ZZ ;SETUP FOR COMPARISON 15012 043224 201 13 0 00 400000 MOVEI AC,ZZ ;SETUP DVND 15013 043225 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15014 043226 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15015 043227 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15016 043230 003 13 0 00 020422 ER3 AC,SN 15017 043231 322 14 0 00 043233 JUMPE AC+1,.+2 ;TEST REMD=0 15018 043232 004 14 0 00 020422 ER4 AC+1,SN ;IDIV FAILED 15019 043233 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15020 043234 005 12 0 00 020422 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15021 043235 321 15 0 00 043223 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15022 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 79 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0332 15023 020500 SN=20500 15024 000000 ZZ=0 15025 15026 F20500: REPEAT ^D17, 15027 15030 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15031 MOVSI AC,ZZ ;SETUP DVND 15032 MOVEI AC-1,1 ;SETUP DVSR 15033 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15034 CAME AC,AC-2 ;TEST QUOT=DVND 15035 ER3 AC,SN 15036 JUMPE AC+1,.+2 ;TEST REMD=0 15037 ER4 AC+1,SN ;IDIV FAILED 15038 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15039 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15040 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15041 > 15042 020501 SN=SN+1 15043 000000 ZZ=ZZ+ZZ 15044 000001 IFE ZZ, 15045 043236 205 11 0 00 000001 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15046 043237 205 13 0 00 000001 MOVSI AC,ZZ ;SETUP DVND 15047 043240 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15048 043241 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15049 043242 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15050 043243 003 13 0 00 020501 ER3 AC,SN 15051 043244 322 14 0 00 043246 JUMPE AC+1,.+2 ;TEST REMD=0 15052 043245 004 14 0 00 020501 ER4 AC+1,SN ;IDIV FAILED 15053 043246 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15054 043247 005 12 0 00 020501 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15055 043250 321 15 0 00 043236 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15056 15057 020502 SN=SN+1 15058 000002 ZZ=ZZ+ZZ 15059 IFE ZZ, 15060 043251 205 11 0 00 000002 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15061 043252 205 13 0 00 000002 MOVSI AC,ZZ ;SETUP DVND 15062 043253 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15063 043254 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15064 043255 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15065 043256 003 13 0 00 020502 ER3 AC,SN 15066 043257 322 14 0 00 043261 JUMPE AC+1,.+2 ;TEST REMD=0 15067 043260 004 14 0 00 020502 ER4 AC+1,SN ;IDIV FAILED 15068 043261 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15069 043262 005 12 0 00 020502 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15070 043263 321 15 0 00 043251 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15071 15072 020503 SN=SN+1 15073 000004 ZZ=ZZ+ZZ 15074 IFE ZZ, 15075 043264 205 11 0 00 000004 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15076 043265 205 13 0 00 000004 MOVSI AC,ZZ ;SETUP DVND 15077 043266 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 79-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0333 15078 043267 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15079 043270 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15080 043271 003 13 0 00 020503 ER3 AC,SN 15081 043272 322 14 0 00 043274 JUMPE AC+1,.+2 ;TEST REMD=0 15082 043273 004 14 0 00 020503 ER4 AC+1,SN ;IDIV FAILED 15083 043274 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15084 043275 005 12 0 00 020503 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15085 043276 321 15 0 00 043264 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15086 15087 020504 SN=SN+1 15088 000010 ZZ=ZZ+ZZ 15089 IFE ZZ, 15090 043277 205 11 0 00 000010 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15091 043300 205 13 0 00 000010 MOVSI AC,ZZ ;SETUP DVND 15092 043301 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15093 043302 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15094 043303 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15095 043304 003 13 0 00 020504 ER3 AC,SN 15096 043305 322 14 0 00 043307 JUMPE AC+1,.+2 ;TEST REMD=0 15097 043306 004 14 0 00 020504 ER4 AC+1,SN ;IDIV FAILED 15098 043307 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15099 043310 005 12 0 00 020504 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15100 043311 321 15 0 00 043277 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15101 15102 020505 SN=SN+1 15103 000020 ZZ=ZZ+ZZ 15104 IFE ZZ, 15105 043312 205 11 0 00 000020 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15106 043313 205 13 0 00 000020 MOVSI AC,ZZ ;SETUP DVND 15107 043314 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15108 043315 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15109 043316 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15110 043317 003 13 0 00 020505 ER3 AC,SN 15111 043320 322 14 0 00 043322 JUMPE AC+1,.+2 ;TEST REMD=0 15112 043321 004 14 0 00 020505 ER4 AC+1,SN ;IDIV FAILED 15113 043322 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15114 043323 005 12 0 00 020505 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15115 043324 321 15 0 00 043312 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15116 15117 020506 SN=SN+1 15118 000040 ZZ=ZZ+ZZ 15119 IFE ZZ, 15120 043325 205 11 0 00 000040 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15121 043326 205 13 0 00 000040 MOVSI AC,ZZ ;SETUP DVND 15122 043327 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15123 043330 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15124 043331 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15125 043332 003 13 0 00 020506 ER3 AC,SN 15126 043333 322 14 0 00 043335 JUMPE AC+1,.+2 ;TEST REMD=0 15127 043334 004 14 0 00 020506 ER4 AC+1,SN ;IDIV FAILED 15128 043335 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15129 043336 005 12 0 00 020506 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15130 043337 321 15 0 00 043325 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15131 15132 020507 SN=SN+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 79-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0334 15133 000100 ZZ=ZZ+ZZ 15134 IFE ZZ, 15135 043340 205 11 0 00 000100 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15136 043341 205 13 0 00 000100 MOVSI AC,ZZ ;SETUP DVND 15137 043342 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15138 043343 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15139 043344 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15140 043345 003 13 0 00 020507 ER3 AC,SN 15141 043346 322 14 0 00 043350 JUMPE AC+1,.+2 ;TEST REMD=0 15142 043347 004 14 0 00 020507 ER4 AC+1,SN ;IDIV FAILED 15143 043350 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15144 043351 005 12 0 00 020507 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15145 043352 321 15 0 00 043340 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15146 15147 020510 SN=SN+1 15148 000200 ZZ=ZZ+ZZ 15149 IFE ZZ, 15150 043353 205 11 0 00 000200 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15151 043354 205 13 0 00 000200 MOVSI AC,ZZ ;SETUP DVND 15152 043355 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15153 043356 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15154 043357 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15155 043360 003 13 0 00 020510 ER3 AC,SN 15156 043361 322 14 0 00 043363 JUMPE AC+1,.+2 ;TEST REMD=0 15157 043362 004 14 0 00 020510 ER4 AC+1,SN ;IDIV FAILED 15158 043363 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15159 043364 005 12 0 00 020510 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15160 043365 321 15 0 00 043353 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15161 15162 020511 SN=SN+1 15163 000400 ZZ=ZZ+ZZ 15164 IFE ZZ, 15165 043366 205 11 0 00 000400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15166 043367 205 13 0 00 000400 MOVSI AC,ZZ ;SETUP DVND 15167 043370 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15168 043371 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15169 043372 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15170 043373 003 13 0 00 020511 ER3 AC,SN 15171 043374 322 14 0 00 043376 JUMPE AC+1,.+2 ;TEST REMD=0 15172 043375 004 14 0 00 020511 ER4 AC+1,SN ;IDIV FAILED 15173 043376 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15174 043377 005 12 0 00 020511 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15175 043400 321 15 0 00 043366 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15176 15177 020512 SN=SN+1 15178 001000 ZZ=ZZ+ZZ 15179 IFE ZZ, 15180 043401 205 11 0 00 001000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15181 043402 205 13 0 00 001000 MOVSI AC,ZZ ;SETUP DVND 15182 043403 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15183 043404 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15184 043405 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15185 043406 003 13 0 00 020512 ER3 AC,SN 15186 043407 322 14 0 00 043411 JUMPE AC+1,.+2 ;TEST REMD=0 15187 043410 004 14 0 00 020512 ER4 AC+1,SN ;IDIV FAILED DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 79-3 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0335 15188 043411 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15189 043412 005 12 0 00 020512 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15190 043413 321 15 0 00 043401 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15191 15192 020513 SN=SN+1 15193 002000 ZZ=ZZ+ZZ 15194 IFE ZZ, 15195 043414 205 11 0 00 002000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15196 043415 205 13 0 00 002000 MOVSI AC,ZZ ;SETUP DVND 15197 043416 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15198 043417 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15199 043420 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15200 043421 003 13 0 00 020513 ER3 AC,SN 15201 043422 322 14 0 00 043424 JUMPE AC+1,.+2 ;TEST REMD=0 15202 043423 004 14 0 00 020513 ER4 AC+1,SN ;IDIV FAILED 15203 043424 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15204 043425 005 12 0 00 020513 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15205 043426 321 15 0 00 043414 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15206 15207 020514 SN=SN+1 15208 004000 ZZ=ZZ+ZZ 15209 IFE ZZ, 15210 043427 205 11 0 00 004000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15211 043430 205 13 0 00 004000 MOVSI AC,ZZ ;SETUP DVND 15212 043431 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15213 043432 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15214 043433 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15215 043434 003 13 0 00 020514 ER3 AC,SN 15216 043435 322 14 0 00 043437 JUMPE AC+1,.+2 ;TEST REMD=0 15217 043436 004 14 0 00 020514 ER4 AC+1,SN ;IDIV FAILED 15218 043437 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15219 043440 005 12 0 00 020514 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15220 043441 321 15 0 00 043427 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15221 15222 020515 SN=SN+1 15223 010000 ZZ=ZZ+ZZ 15224 IFE ZZ, 15225 043442 205 11 0 00 010000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15226 043443 205 13 0 00 010000 MOVSI AC,ZZ ;SETUP DVND 15227 043444 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15228 043445 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15229 043446 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15230 043447 003 13 0 00 020515 ER3 AC,SN 15231 043450 322 14 0 00 043452 JUMPE AC+1,.+2 ;TEST REMD=0 15232 043451 004 14 0 00 020515 ER4 AC+1,SN ;IDIV FAILED 15233 043452 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15234 043453 005 12 0 00 020515 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15235 043454 321 15 0 00 043442 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15236 15237 020516 SN=SN+1 15238 020000 ZZ=ZZ+ZZ 15239 IFE ZZ, 15240 043455 205 11 0 00 020000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15241 043456 205 13 0 00 020000 MOVSI AC,ZZ ;SETUP DVND 15242 043457 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 79-4 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0336 15243 043460 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15244 043461 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15245 043462 003 13 0 00 020516 ER3 AC,SN 15246 043463 322 14 0 00 043465 JUMPE AC+1,.+2 ;TEST REMD=0 15247 043464 004 14 0 00 020516 ER4 AC+1,SN ;IDIV FAILED 15248 043465 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15249 043466 005 12 0 00 020516 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15250 043467 321 15 0 00 043455 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15251 15252 020517 SN=SN+1 15253 040000 ZZ=ZZ+ZZ 15254 IFE ZZ, 15255 043470 205 11 0 00 040000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15256 043471 205 13 0 00 040000 MOVSI AC,ZZ ;SETUP DVND 15257 043472 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15258 043473 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15259 043474 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15260 043475 003 13 0 00 020517 ER3 AC,SN 15261 043476 322 14 0 00 043500 JUMPE AC+1,.+2 ;TEST REMD=0 15262 043477 004 14 0 00 020517 ER4 AC+1,SN ;IDIV FAILED 15263 043500 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15264 043501 005 12 0 00 020517 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15265 043502 321 15 0 00 043470 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15266 15267 020520 SN=SN+1 15268 100000 ZZ=ZZ+ZZ 15269 IFE ZZ, 15270 043503 205 11 0 00 100000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15271 043504 205 13 0 00 100000 MOVSI AC,ZZ ;SETUP DVND 15272 043505 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15273 043506 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15274 043507 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15275 043510 003 13 0 00 020520 ER3 AC,SN 15276 043511 322 14 0 00 043513 JUMPE AC+1,.+2 ;TEST REMD=0 15277 043512 004 14 0 00 020520 ER4 AC+1,SN ;IDIV FAILED 15278 043513 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15279 043514 005 12 0 00 020520 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15280 043515 321 15 0 00 043503 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15281 15282 020521 SN=SN+1 15283 200000 ZZ=ZZ+ZZ 15284 IFE ZZ, 15285 043516 205 11 0 00 200000 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON 15286 043517 205 13 0 00 200000 MOVSI AC,ZZ ;SETUP DVND 15287 043520 201 12 0 00 000001 MOVEI AC-1,1 ;SETUP DVSR 15288 043521 230 13 0 00 000012 IDIV AC,AC-1 ;DIVIDE ZZ BY 1 15289 043522 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT=DVND 15290 043523 003 13 0 00 020521 ER3 AC,SN 15291 043524 322 14 0 00 043526 JUMPE AC+1,.+2 ;TEST REMD=0 15292 043525 004 14 0 00 020521 ER4 AC+1,SN ;IDIV FAILED 15293 043526 302 12 0 00 000001 CAIE AC-1,1 ;WAS C(E) MODIFIED ? 15294 043527 005 12 0 00 020521 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15295 043530 321 15 0 00 043516 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15296 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 80 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0337 15297 ;TEST IDIV IMMEDIATE - TWO POSITIVES 15298 ;TESTING IS ACCOMPLISHED BY DIVIDING 15299 ;AN ODD NUMBER BY E 15300 ;DVND=3,5,7,11 ETC 15301 ;DVSR=E (2) 15302 ;QUOT=1,2,4, ETC 15303 ;REMD=1 15304 15305 000014 AC=14 15306 SAVEAC (1,1)^ 15307 043531 201 16 0 00 043531 MOVEI AC+2,. ;SAVE TEST PC 15308 043532 202 16 0 00 030051 MOVEM AC+2,TESTPC 15309 043533 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15310 043534 202 16 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15311 15312 020600 SN=20600 15313 000000 XX=0 15314 000001 ZZ=1 15315 15316 F20600: REPEAT ^D10, 15317 15329 020601 SN=SN+1 15330 000001 XX=XX+1 15331 000003 ZZ=ZZ+2 15332 043535 201 12 0 00 000001 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15333 043536 201 14 0 00 000003 MOVEI AC,ZZ ;SETUP DVND 15334 043537 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15335 043540 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15336 043541 003 14 0 00 020601 ER3 AC,SN 15337 043542 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15338 043543 004 15 0 00 020601 ER4 AC+1,SN ;IDIVI FAILED 15339 043544 321 16 0 00 043535 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15340 15341 020602 SN=SN+1 15342 000002 XX=XX+1 15343 000005 ZZ=ZZ+2 15344 043545 201 12 0 00 000002 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15345 043546 201 14 0 00 000005 MOVEI AC,ZZ ;SETUP DVND 15346 043547 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15347 043550 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15348 043551 003 14 0 00 020602 ER3 AC,SN 15349 043552 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15350 043553 004 15 0 00 020602 ER4 AC+1,SN ;IDIVI FAILED 15351 043554 321 16 0 00 043545 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 80-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0338 15352 15353 020603 SN=SN+1 15354 000003 XX=XX+1 15355 000007 ZZ=ZZ+2 15356 043555 201 12 0 00 000003 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15357 043556 201 14 0 00 000007 MOVEI AC,ZZ ;SETUP DVND 15358 043557 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15359 043560 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15360 043561 003 14 0 00 020603 ER3 AC,SN 15361 043562 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15362 043563 004 15 0 00 020603 ER4 AC+1,SN ;IDIVI FAILED 15363 043564 321 16 0 00 043555 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15364 15365 020604 SN=SN+1 15366 000004 XX=XX+1 15367 000011 ZZ=ZZ+2 15368 043565 201 12 0 00 000004 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15369 043566 201 14 0 00 000011 MOVEI AC,ZZ ;SETUP DVND 15370 043567 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15371 043570 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15372 043571 003 14 0 00 020604 ER3 AC,SN 15373 043572 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15374 043573 004 15 0 00 020604 ER4 AC+1,SN ;IDIVI FAILED 15375 043574 321 16 0 00 043565 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15376 15377 020605 SN=SN+1 15378 000005 XX=XX+1 15379 000013 ZZ=ZZ+2 15380 043575 201 12 0 00 000005 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15381 043576 201 14 0 00 000013 MOVEI AC,ZZ ;SETUP DVND 15382 043577 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15383 043600 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15384 043601 003 14 0 00 020605 ER3 AC,SN 15385 043602 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15386 043603 004 15 0 00 020605 ER4 AC+1,SN ;IDIVI FAILED 15387 043604 321 16 0 00 043575 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15388 15389 020606 SN=SN+1 15390 000006 XX=XX+1 15391 000015 ZZ=ZZ+2 15392 043605 201 12 0 00 000006 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15393 043606 201 14 0 00 000015 MOVEI AC,ZZ ;SETUP DVND 15394 043607 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15395 043610 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15396 043611 003 14 0 00 020606 ER3 AC,SN 15397 043612 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15398 043613 004 15 0 00 020606 ER4 AC+1,SN ;IDIVI FAILED 15399 043614 321 16 0 00 043605 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15400 15401 020607 SN=SN+1 15402 000007 XX=XX+1 15403 000017 ZZ=ZZ+2 15404 043615 201 12 0 00 000007 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15405 043616 201 14 0 00 000017 MOVEI AC,ZZ ;SETUP DVND 15406 043617 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 80-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0339 15407 043620 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15408 043621 003 14 0 00 020607 ER3 AC,SN 15409 043622 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15410 043623 004 15 0 00 020607 ER4 AC+1,SN ;IDIVI FAILED 15411 043624 321 16 0 00 043615 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15412 15413 020610 SN=SN+1 15414 000010 XX=XX+1 15415 000021 ZZ=ZZ+2 15416 043625 201 12 0 00 000010 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15417 043626 201 14 0 00 000021 MOVEI AC,ZZ ;SETUP DVND 15418 043627 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15419 043630 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15420 043631 003 14 0 00 020610 ER3 AC,SN 15421 043632 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15422 043633 004 15 0 00 020610 ER4 AC+1,SN ;IDIVI FAILED 15423 043634 321 16 0 00 043625 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15424 15425 020611 SN=SN+1 15426 000011 XX=XX+1 15427 000023 ZZ=ZZ+2 15428 043635 201 12 0 00 000011 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15429 043636 201 14 0 00 000023 MOVEI AC,ZZ ;SETUP DVND 15430 043637 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15431 043640 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15432 043641 003 14 0 00 020611 ER3 AC,SN 15433 043642 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15434 043643 004 15 0 00 020611 ER4 AC+1,SN ;IDIVI FAILED 15435 043644 321 16 0 00 043635 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15436 15437 020612 SN=SN+1 15438 000012 XX=XX+1 15439 000025 ZZ=ZZ+2 15440 043645 201 12 0 00 000012 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15441 043646 201 14 0 00 000025 MOVEI AC,ZZ ;SETUP DVND 15442 043647 231 14 0 00 000002 IDIVI AC,2 ;DIVIDE ZZ BY 2 15443 043650 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT 15444 043651 003 14 0 00 020612 ER3 AC,SN 15445 043652 302 15 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15446 043653 004 15 0 00 020612 ER4 AC+1,SN ;IDIVI FAILED 15447 043654 321 16 0 00 043645 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15448 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 81 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0340 15449 ;TEST IDIV MEMORY - TWO NEGATIVES 15450 ;TESTING IS ACCOMPLISHED BY DIVIDING 15451 ;A NEGATIVE NUMBER BY -1 15452 ;DVND=-1,-2,-4,-10,-20 15453 ;DVSR=-1 15454 ;QUOT=1,2,4,10,20 15455 ;REMD=0 15456 15457 000012 AC=12 15458 SAVEAC (1,1)^ 15459 043655 201 14 0 00 043655 MOVEI AC+2,. ;SAVE TEST PC 15460 043656 202 14 0 00 030051 MOVEM AC+2,TESTPC 15461 043657 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15462 043660 202 14 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15463 15464 020700 SN=20700 15465 000000 XX=0 15466 000000 ZZ=0 15467 15468 F20700: REPEAT ^D5, 15469 15473 IFE ZZ, 15474 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15475 HRROI AC,ZZ ;SETUP DVND 15476 SETO AC-1, ;SETUP DVSR 15477 MOVE AC-3,&17 ;SAVE C(AC+1) 15478 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15479 CAME AC-1,AC-2 ;TEST QUOT 15480 ER5 AC-1,SN ;IDIVM FAILED 15481 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15482 ER3 AC,SN ;C(AC) WAS CLOBBERED 15483 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15484 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15485 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15486 > 15487 020701 SN=SN+1 15488 000000 XX=XX+XX 15489 000000 ZZ=ZZ+ZZ 15490 000001 IFE XX, 15491 777777 777777 IFE ZZ, 15492 043661 201 10 0 00 000001 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15493 043662 561 12 0 00 777777 HRROI AC,ZZ ;SETUP DVND 15494 043663 474 11 0 00 000000 SETO AC-1, ;SETUP DVSR 15495 043664 200 07 0 00 000013 MOVE AC-3,&17 ;SAVE C(AC+1) 15496 043665 232 12 0 00 000011 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15497 043666 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT 15498 043667 005 11 0 00 020701 ER5 AC-1,SN ;IDIVM FAILED 15499 043670 312 12 0 00 044617 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15500 043671 003 12 0 00 020701 ER3 AC,SN ;C(AC) WAS CLOBBERED 15501 043672 312 13 0 00 000007 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15502 043673 004 13 0 00 020701 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15503 043674 321 14 0 00 043661 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 81-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0341 15504 15505 020702 SN=SN+1 15506 000002 XX=XX+XX 15507 777777 777776 ZZ=ZZ+ZZ 15508 IFE XX, 15509 IFE ZZ, 15510 043675 201 10 0 00 000002 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15511 043676 561 12 0 00 777776 HRROI AC,ZZ ;SETUP DVND 15512 043677 474 11 0 00 000000 SETO AC-1, ;SETUP DVSR 15513 043700 200 07 0 00 000013 MOVE AC-3,&17 ;SAVE C(AC+1) 15514 043701 232 12 0 00 000011 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15515 043702 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT 15516 043703 005 11 0 00 020702 ER5 AC-1,SN ;IDIVM FAILED 15517 043704 312 12 0 00 044621 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15518 043705 003 12 0 00 020702 ER3 AC,SN ;C(AC) WAS CLOBBERED 15519 043706 312 13 0 00 000007 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15520 043707 004 13 0 00 020702 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15521 043710 321 14 0 00 043675 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15522 15523 020703 SN=SN+1 15524 000004 XX=XX+XX 15525 777777 777774 ZZ=ZZ+ZZ 15526 IFE XX, 15527 IFE ZZ, 15528 043711 201 10 0 00 000004 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15529 043712 561 12 0 00 777774 HRROI AC,ZZ ;SETUP DVND 15530 043713 474 11 0 00 000000 SETO AC-1, ;SETUP DVSR 15531 043714 200 07 0 00 000013 MOVE AC-3,&17 ;SAVE C(AC+1) 15532 043715 232 12 0 00 000011 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15533 043716 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT 15534 043717 005 11 0 00 020703 ER5 AC-1,SN ;IDIVM FAILED 15535 043720 312 12 0 00 045324 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15536 043721 003 12 0 00 020703 ER3 AC,SN ;C(AC) WAS CLOBBERED 15537 043722 312 13 0 00 000007 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15538 043723 004 13 0 00 020703 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15539 043724 321 14 0 00 043711 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15540 15541 020704 SN=SN+1 15542 000010 XX=XX+XX 15543 777777 777770 ZZ=ZZ+ZZ 15544 IFE XX, 15545 IFE ZZ, 15546 043725 201 10 0 00 000010 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15547 043726 561 12 0 00 777770 HRROI AC,ZZ ;SETUP DVND 15548 043727 474 11 0 00 000000 SETO AC-1, ;SETUP DVSR 15549 043730 200 07 0 00 000013 MOVE AC-3,&17 ;SAVE C(AC+1) 15550 043731 232 12 0 00 000011 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15551 043732 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT 15552 043733 005 11 0 00 020704 ER5 AC-1,SN ;IDIVM FAILED 15553 043734 312 12 0 00 045304 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15554 043735 003 12 0 00 020704 ER3 AC,SN ;C(AC) WAS CLOBBERED 15555 043736 312 13 0 00 000007 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15556 043737 004 13 0 00 020704 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15557 043740 321 14 0 00 043725 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15558 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 81-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0342 15559 020705 SN=SN+1 15560 000020 XX=XX+XX 15561 777777 777760 ZZ=ZZ+ZZ 15562 IFE XX, 15563 IFE ZZ, 15564 043741 201 10 0 00 000020 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15565 043742 561 12 0 00 777760 HRROI AC,ZZ ;SETUP DVND 15566 043743 474 11 0 00 000000 SETO AC-1, ;SETUP DVSR 15567 043744 200 07 0 00 000013 MOVE AC-3,&17 ;SAVE C(AC+1) 15568 043745 232 12 0 00 000011 IDIVM AC,AC-1 ;DIVIDE ZZ BY -1 15569 043746 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT 15570 043747 005 11 0 00 020705 ER5 AC-1,SN ;IDIVM FAILED 15571 043750 312 12 0 00 045303 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15572 043751 003 12 0 00 020705 ER3 AC,SN ;C(AC) WAS CLOBBERED 15573 043752 312 13 0 00 000007 CAME AC+1,&17 ;WAS C(AC+1) ALTERED ? 15574 043753 004 13 0 00 020705 ER4 AC+1,SN ;C(AC+1] WAS CLOBBERED 15575 043754 321 14 0 00 043741 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15576 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 82 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0343 15577 ;TEST IDIV BOTH - TWO POSITIVES 15578 ;TESTING IS ACCOMPLISHED BY DIVIDING 15579 ;AN INCREASING ODD NUMBER BY 2 15580 ;DVND=15,17,21,23,25 15581 ;DVSR=2 15582 ;QUOT=6,7,10,11,12 15583 ;REMD=1 15584 15585 000011 AC=11 15586 SAVEAC (1,1)^ 15587 043755 201 13 0 00 043755 MOVEI AC+2,. ;SAVE TEST PC 15588 043756 202 13 0 00 030051 MOVEM AC+2,TESTPC 15589 043757 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15590 043760 202 13 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15591 15592 021000 SN=21000 15593 000005 XX=5 15594 000013 ZZ=13 15595 15596 F21000: REPEAT ^D5, 15597 15612 021001 SN=SN+1 15613 000006 XX=XX+1 15614 000015 ZZ=ZZ+2 15615 043761 201 07 0 00 000006 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15616 043762 201 11 0 00 000015 MOVEI AC,ZZ ;SETUP DVND 15617 043763 201 10 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 15618 043764 233 11 0 00 000010 IDIVB AC,AC-1 ;DIVIDE ZZ BY 2 15619 043765 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT 15620 043766 003 11 0 00 021001 ER3 AC,SN ;QUOT ERROR 15621 043767 312 11 0 00 000010 CAME AC,AC-1 ;C(AC) = C(E) 15622 043770 005 10 0 00 021001 ER5 AC-1,SN 15623 043771 302 12 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15624 043772 004 12 0 00 021001 ER4 AC+1,SN ;IDIVB FAILED 15625 043773 321 13 0 00 043761 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15626 15627 021002 SN=SN+1 15628 000007 XX=XX+1 15629 000017 ZZ=ZZ+2 15630 043774 201 07 0 00 000007 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15631 043775 201 11 0 00 000017 MOVEI AC,ZZ ;SETUP DVND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 82-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0344 15632 043776 201 10 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 15633 043777 233 11 0 00 000010 IDIVB AC,AC-1 ;DIVIDE ZZ BY 2 15634 044000 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT 15635 044001 003 11 0 00 021002 ER3 AC,SN ;QUOT ERROR 15636 044002 312 11 0 00 000010 CAME AC,AC-1 ;C(AC) = C(E) 15637 044003 005 10 0 00 021002 ER5 AC-1,SN 15638 044004 302 12 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15639 044005 004 12 0 00 021002 ER4 AC+1,SN ;IDIVB FAILED 15640 044006 321 13 0 00 043774 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15641 15642 021003 SN=SN+1 15643 000010 XX=XX+1 15644 000021 ZZ=ZZ+2 15645 044007 201 07 0 00 000010 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15646 044010 201 11 0 00 000021 MOVEI AC,ZZ ;SETUP DVND 15647 044011 201 10 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 15648 044012 233 11 0 00 000010 IDIVB AC,AC-1 ;DIVIDE ZZ BY 2 15649 044013 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT 15650 044014 003 11 0 00 021003 ER3 AC,SN ;QUOT ERROR 15651 044015 312 11 0 00 000010 CAME AC,AC-1 ;C(AC) = C(E) 15652 044016 005 10 0 00 021003 ER5 AC-1,SN 15653 044017 302 12 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15654 044020 004 12 0 00 021003 ER4 AC+1,SN ;IDIVB FAILED 15655 044021 321 13 0 00 044007 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15656 15657 021004 SN=SN+1 15658 000011 XX=XX+1 15659 000023 ZZ=ZZ+2 15660 044022 201 07 0 00 000011 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15661 044023 201 11 0 00 000023 MOVEI AC,ZZ ;SETUP DVND 15662 044024 201 10 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 15663 044025 233 11 0 00 000010 IDIVB AC,AC-1 ;DIVIDE ZZ BY 2 15664 044026 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT 15665 044027 003 11 0 00 021004 ER3 AC,SN ;QUOT ERROR 15666 044030 312 11 0 00 000010 CAME AC,AC-1 ;C(AC) = C(E) 15667 044031 005 10 0 00 021004 ER5 AC-1,SN 15668 044032 302 12 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15669 044033 004 12 0 00 021004 ER4 AC+1,SN ;IDIVB FAILED 15670 044034 321 13 0 00 044022 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15671 15672 021005 SN=SN+1 15673 000012 XX=XX+1 15674 000025 ZZ=ZZ+2 15675 044035 201 07 0 00 000012 MOVEI AC-2,XX ;SETUP FOR COMPARISON 15676 044036 201 11 0 00 000025 MOVEI AC,ZZ ;SETUP DVND 15677 044037 201 10 0 00 000002 MOVEI AC-1,2 ;SETUP DVSR 15678 044040 233 11 0 00 000010 IDIVB AC,AC-1 ;DIVIDE ZZ BY 2 15679 044041 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT 15680 044042 003 11 0 00 021005 ER3 AC,SN ;QUOT ERROR 15681 044043 312 11 0 00 000010 CAME AC,AC-1 ;C(AC) = C(E) 15682 044044 005 10 0 00 021005 ER5 AC-1,SN 15683 044045 302 12 0 00 000001 CAIE AC+1,1 ;TEST REMD=1 15684 044046 004 12 0 00 021005 ER4 AC+1,SN ;IDIVB FAILED 15685 044047 321 13 0 00 044035 JUMPL AC+2,.-^D10 ;LOOP ON ERROR SWITCH 15686 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 83 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0345 15687 ;TEST DIV DIRECT - TWO POSITIVES 15688 ;HIGH DVND=4,10,20,40,100 15689 ;LOW DVND=0 15690 ;DVSR=2000 15691 ;QUOT=001000000000, 00200000000 ETC 15692 ;REMD=0 15693 15694 000010 AC=10 15695 SAVEAC (1,1)^ 15696 044050 201 12 0 00 044050 MOVEI AC+2,. ;SAVE TEST PC 15697 044051 202 12 0 00 030051 MOVEM AC+2,TESTPC 15698 044052 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15699 044053 202 12 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15700 15701 021100 SN=21100 15702 000400 XX=000400 15703 000002 ZZ=2 15704 15705 F21100: REPEAT ^D5, 15706 15722 021101 SN=SN+1 15723 001000 XX=XX+XX 15724 000004 ZZ=ZZ+ZZ 15725 044054 205 06 0 00 001000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15726 044055 201 10 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND 15727 044056 400 11 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15728 044057 201 07 0 00 002000 MOVEI AC-1,2000 ;SETUP DVSR 15729 044060 234 10 0 00 000007 DIV AC,AC-1 ;DIVIDE ZZ BY 2000 15730 044061 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT 15731 044062 003 10 0 00 021101 ER3 AC,SN 15732 044063 322 11 0 00 044065 JUMPE AC+1,.+2 ;TEST REMD 15733 044064 004 11 0 00 021101 ER4 AC+1,SN ;DIV FAILED 15734 044065 302 07 0 00 002000 CAIE AC-1,2000 ;WAS C(E) MODIFIED ? 15735 044066 005 07 0 00 021101 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15736 044067 321 12 0 00 044054 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15737 15738 021102 SN=SN+1 15739 002000 XX=XX+XX 15740 000010 ZZ=ZZ+ZZ 15741 044070 205 06 0 00 002000 MOVSI AC-2,XX ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 83-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0346 15742 044071 201 10 0 00 000010 MOVEI AC,ZZ ;SETUP HIGH DVND 15743 044072 400 11 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15744 044073 201 07 0 00 002000 MOVEI AC-1,2000 ;SETUP DVSR 15745 044074 234 10 0 00 000007 DIV AC,AC-1 ;DIVIDE ZZ BY 2000 15746 044075 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT 15747 044076 003 10 0 00 021102 ER3 AC,SN 15748 044077 322 11 0 00 044101 JUMPE AC+1,.+2 ;TEST REMD 15749 044100 004 11 0 00 021102 ER4 AC+1,SN ;DIV FAILED 15750 044101 302 07 0 00 002000 CAIE AC-1,2000 ;WAS C(E) MODIFIED ? 15751 044102 005 07 0 00 021102 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15752 044103 321 12 0 00 044070 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15753 15754 021103 SN=SN+1 15755 004000 XX=XX+XX 15756 000020 ZZ=ZZ+ZZ 15757 044104 205 06 0 00 004000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15758 044105 201 10 0 00 000020 MOVEI AC,ZZ ;SETUP HIGH DVND 15759 044106 400 11 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15760 044107 201 07 0 00 002000 MOVEI AC-1,2000 ;SETUP DVSR 15761 044110 234 10 0 00 000007 DIV AC,AC-1 ;DIVIDE ZZ BY 2000 15762 044111 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT 15763 044112 003 10 0 00 021103 ER3 AC,SN 15764 044113 322 11 0 00 044115 JUMPE AC+1,.+2 ;TEST REMD 15765 044114 004 11 0 00 021103 ER4 AC+1,SN ;DIV FAILED 15766 044115 302 07 0 00 002000 CAIE AC-1,2000 ;WAS C(E) MODIFIED ? 15767 044116 005 07 0 00 021103 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15768 044117 321 12 0 00 044104 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15769 15770 021104 SN=SN+1 15771 010000 XX=XX+XX 15772 000040 ZZ=ZZ+ZZ 15773 044120 205 06 0 00 010000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15774 044121 201 10 0 00 000040 MOVEI AC,ZZ ;SETUP HIGH DVND 15775 044122 400 11 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15776 044123 201 07 0 00 002000 MOVEI AC-1,2000 ;SETUP DVSR 15777 044124 234 10 0 00 000007 DIV AC,AC-1 ;DIVIDE ZZ BY 2000 15778 044125 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT 15779 044126 003 10 0 00 021104 ER3 AC,SN 15780 044127 322 11 0 00 044131 JUMPE AC+1,.+2 ;TEST REMD 15781 044130 004 11 0 00 021104 ER4 AC+1,SN ;DIV FAILED 15782 044131 302 07 0 00 002000 CAIE AC-1,2000 ;WAS C(E) MODIFIED ? 15783 044132 005 07 0 00 021104 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15784 044133 321 12 0 00 044120 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15785 15786 021105 SN=SN+1 15787 020000 XX=XX+XX 15788 000100 ZZ=ZZ+ZZ 15789 044134 205 06 0 00 020000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15790 044135 201 10 0 00 000100 MOVEI AC,ZZ ;SETUP HIGH DVND 15791 044136 400 11 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15792 044137 201 07 0 00 002000 MOVEI AC-1,2000 ;SETUP DVSR 15793 044140 234 10 0 00 000007 DIV AC,AC-1 ;DIVIDE ZZ BY 2000 15794 044141 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT 15795 044142 003 10 0 00 021105 ER3 AC,SN 15796 044143 322 11 0 00 044145 JUMPE AC+1,.+2 ;TEST REMD DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 83-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0347 15797 044144 004 11 0 00 021105 ER4 AC+1,SN ;DIV FAILED 15798 044145 302 07 0 00 002000 CAIE AC-1,2000 ;WAS C(E) MODIFIED ? 15799 044146 005 07 0 00 021105 ER5 AC-1,SN ;C(E) WAS CLOBBERED 15800 044147 321 12 0 00 044134 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15801 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 84 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0348 15802 ;TEST DIV IMMEDIATE - TWO POSITIVES 15803 ;HIGH DVND=0 15804 ;LOW DVND=3,4,5,6,7 15805 ;DVSR=E (2,3,4,5,6) 15806 ;QUOT=1 15807 ;REMD=1 15808 15809 000007 AC=7 15810 SAVEAC (1,1)^ 15811 044150 201 11 0 00 044150 MOVEI AC+2,. ;SAVE TEST PC 15812 044151 202 11 0 00 030051 MOVEM AC+2,TESTPC 15813 044152 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15814 044153 202 11 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15815 15816 021200 SN=21200 15817 000001 XX=1 15818 000002 ZZ=2 15819 F21200: REPEAT ^D5, 15820 15832 021201 SN=SN+1 15833 000002 XX=XX+1 15834 000003 ZZ=ZZ+1 15835 044154 400 07 0 00 000000 SETZ AC, ;SETUP HIGH DVND 15836 044155 201 10 0 00 000003 MOVEI AC+1,ZZ ;SETUP LOW DVND 15837 044156 235 07 0 00 000002 DIVI AC,XX ;SETUP DVSR 15838 044157 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT=1 15839 044160 003 07 0 00 021201 ER3 AC,SN 15840 044161 302 10 0 00 000001 CAIE AC+1,1 ;TEST QUOT=REMD 15841 044162 004 10 0 00 021201 ER4 AC+1,SN ;DIVI FAILED 15842 044163 321 11 0 00 044154 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15843 15844 021202 SN=SN+1 15845 000003 XX=XX+1 15846 000004 ZZ=ZZ+1 15847 044164 400 07 0 00 000000 SETZ AC, ;SETUP HIGH DVND 15848 044165 201 10 0 00 000004 MOVEI AC+1,ZZ ;SETUP LOW DVND 15849 044166 235 07 0 00 000003 DIVI AC,XX ;SETUP DVSR 15850 044167 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT=1 15851 044170 003 07 0 00 021202 ER3 AC,SN 15852 044171 302 10 0 00 000001 CAIE AC+1,1 ;TEST QUOT=REMD 15853 044172 004 10 0 00 021202 ER4 AC+1,SN ;DIVI FAILED 15854 044173 321 11 0 00 044164 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15855 15856 021203 SN=SN+1 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 84-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0349 15857 000004 XX=XX+1 15858 000005 ZZ=ZZ+1 15859 044174 400 07 0 00 000000 SETZ AC, ;SETUP HIGH DVND 15860 044175 201 10 0 00 000005 MOVEI AC+1,ZZ ;SETUP LOW DVND 15861 044176 235 07 0 00 000004 DIVI AC,XX ;SETUP DVSR 15862 044177 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT=1 15863 044200 003 07 0 00 021203 ER3 AC,SN 15864 044201 302 10 0 00 000001 CAIE AC+1,1 ;TEST QUOT=REMD 15865 044202 004 10 0 00 021203 ER4 AC+1,SN ;DIVI FAILED 15866 044203 321 11 0 00 044174 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15867 15868 021204 SN=SN+1 15869 000005 XX=XX+1 15870 000006 ZZ=ZZ+1 15871 044204 400 07 0 00 000000 SETZ AC, ;SETUP HIGH DVND 15872 044205 201 10 0 00 000006 MOVEI AC+1,ZZ ;SETUP LOW DVND 15873 044206 235 07 0 00 000005 DIVI AC,XX ;SETUP DVSR 15874 044207 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT=1 15875 044210 003 07 0 00 021204 ER3 AC,SN 15876 044211 302 10 0 00 000001 CAIE AC+1,1 ;TEST QUOT=REMD 15877 044212 004 10 0 00 021204 ER4 AC+1,SN ;DIVI FAILED 15878 044213 321 11 0 00 044204 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15879 15880 021205 SN=SN+1 15881 000006 XX=XX+1 15882 000007 ZZ=ZZ+1 15883 044214 400 07 0 00 000000 SETZ AC, ;SETUP HIGH DVND 15884 044215 201 10 0 00 000007 MOVEI AC+1,ZZ ;SETUP LOW DVND 15885 044216 235 07 0 00 000006 DIVI AC,XX ;SETUP DVSR 15886 044217 302 07 0 00 000001 CAIE AC,1 ;TEST QUOT=1 15887 044220 003 07 0 00 021205 ER3 AC,SN 15888 044221 302 10 0 00 000001 CAIE AC+1,1 ;TEST QUOT=REMD 15889 044222 004 10 0 00 021205 ER4 AC+1,SN ;DIVI FAILED 15890 044223 321 11 0 00 044214 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 15891 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 85 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0350 15892 ;TEST DIV MEMORY - TWO NEGATIVES 15893 ;HI DVND = -2,-4,-10,-20,-40 15894 ;LO DVND=0 15895 ;DVSR=-200 15896 ;QUOT=00400000000, 010000000000 ETC 15897 ;REMD=0 15898 15899 000006 AC=6 15900 SAVEAC (1,1)^ 15901 044224 201 10 0 00 044224 MOVEI AC+2,. ;SAVE TEST PC 15902 044225 202 10 0 00 030051 MOVEM AC+2,TESTPC 15903 044226 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 15904 044227 202 10 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 15905 15906 021300 SN=21300 15907 002000 XX=002000 15908 777777 777777 ZZ=-1 15909 15910 F21300: REPEAT ^D5, 15911 &17 ;WAS C(AC+1) MODIFIED ? 15924 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 15925 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15926 > 15927 021301 SN=SN+1 15928 004000 XX=XX+XX 15929 777777 777776 ZZ=ZZ+ZZ 15930 044230 205 04 0 00 004000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15931 044231 561 06 0 00 777776 HRROI AC,ZZ ;SETUP HIGH DVND 15932 044232 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15933 044233 561 05 0 00 777600 HRROI AC-1,-200 ;SETUP DVSR 15934 044234 236 06 0 00 000005 DIVM AC,AC-1 ;DIVIDE ZZ BY -200 15935 044235 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST QUOT 15936 044236 005 05 0 00 021301 ER5 AC-1,SN ;DIVM FAILED 15937 044237 312 06 0 00 044621 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15938 044240 003 06 0 00 021301 ER3 AC,SN ;C(AC) WAS CLOBBERED 15939 044241 332 00 0 00 000007 SKIPE &17 ;WAS C(AC+1) MODIFIED ? 15940 044242 004 07 0 00 021301 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 15941 044243 321 10 0 00 044230 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15942 15943 021302 SN=SN+1 15944 010000 XX=XX+XX 15945 777777 777774 ZZ=ZZ+ZZ 15946 044244 205 04 0 00 010000 MOVSI AC-2,XX ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 85-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0351 15947 044245 561 06 0 00 777774 HRROI AC,ZZ ;SETUP HIGH DVND 15948 044246 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15949 044247 561 05 0 00 777600 HRROI AC-1,-200 ;SETUP DVSR 15950 044250 236 06 0 00 000005 DIVM AC,AC-1 ;DIVIDE ZZ BY -200 15951 044251 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST QUOT 15952 044252 005 05 0 00 021302 ER5 AC-1,SN ;DIVM FAILED 15953 044253 312 06 0 00 045324 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15954 044254 003 06 0 00 021302 ER3 AC,SN ;C(AC) WAS CLOBBERED 15955 044255 332 00 0 00 000007 SKIPE &17 ;WAS C(AC+1) MODIFIED ? 15956 044256 004 07 0 00 021302 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 15957 044257 321 10 0 00 044244 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15958 15959 021303 SN=SN+1 15960 020000 XX=XX+XX 15961 777777 777770 ZZ=ZZ+ZZ 15962 044260 205 04 0 00 020000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15963 044261 561 06 0 00 777770 HRROI AC,ZZ ;SETUP HIGH DVND 15964 044262 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15965 044263 561 05 0 00 777600 HRROI AC-1,-200 ;SETUP DVSR 15966 044264 236 06 0 00 000005 DIVM AC,AC-1 ;DIVIDE ZZ BY -200 15967 044265 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST QUOT 15968 044266 005 05 0 00 021303 ER5 AC-1,SN ;DIVM FAILED 15969 044267 312 06 0 00 045304 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15970 044270 003 06 0 00 021303 ER3 AC,SN ;C(AC) WAS CLOBBERED 15971 044271 332 00 0 00 000007 SKIPE &17 ;WAS C(AC+1) MODIFIED ? 15972 044272 004 07 0 00 021303 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 15973 044273 321 10 0 00 044260 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15974 15975 021304 SN=SN+1 15976 040000 XX=XX+XX 15977 777777 777760 ZZ=ZZ+ZZ 15978 044274 205 04 0 00 040000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15979 044275 561 06 0 00 777760 HRROI AC,ZZ ;SETUP HIGH DVND 15980 044276 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15981 044277 561 05 0 00 777600 HRROI AC-1,-200 ;SETUP DVSR 15982 044300 236 06 0 00 000005 DIVM AC,AC-1 ;DIVIDE ZZ BY -200 15983 044301 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST QUOT 15984 044302 005 05 0 00 021304 ER5 AC-1,SN ;DIVM FAILED 15985 044303 312 06 0 00 045303 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? 15986 044304 003 06 0 00 021304 ER3 AC,SN ;C(AC) WAS CLOBBERED 15987 044305 332 00 0 00 000007 SKIPE &17 ;WAS C(AC+1) MODIFIED ? 15988 044306 004 07 0 00 021304 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 15989 044307 321 10 0 00 044274 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 15990 15991 021305 SN=SN+1 15992 100000 XX=XX+XX 15993 777777 777740 ZZ=ZZ+ZZ 15994 044310 205 04 0 00 100000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 15995 044311 561 06 0 00 777740 HRROI AC,ZZ ;SETUP HIGH DVND 15996 044312 400 07 0 00 000000 SETZ AC+1, ;SETUP LOW DVND 15997 044313 561 05 0 00 777600 HRROI AC-1,-200 ;SETUP DVSR 15998 044314 236 06 0 00 000005 DIVM AC,AC-1 ;DIVIDE ZZ BY -200 15999 044315 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST QUOT 16000 044316 005 05 0 00 021305 ER5 AC-1,SN ;DIVM FAILED 16001 044317 312 06 0 00 045334 CAME AC,[-1,,ZZ] ;WAS C(AC) MODIFIED ? DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 85-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0352 16002 044320 003 06 0 00 021305 ER3 AC,SN ;C(AC) WAS CLOBBERED 16003 044321 332 00 0 00 000007 SKIPE &17 ;WAS C(AC+1) MODIFIED ? 16004 044322 004 07 0 00 021305 ER4 AC+1,SN ;C(AC+1) WAS CLOBBERED 16005 044323 321 10 0 00 044310 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16006 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 86 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0353 16007 ;TEST DIV BOTH - TWO POSITIVES 16008 ;HIGH DVND 2,4,10,20,40 16009 ;LOW DVND 2,4,10,20,40 16010 ;DVSR=200 16011 ;QUOT=00400000000, 010000000000 ETC 16012 ;REMD=2,4,10,20,40 16013 16014 000005 AC=5 16015 SAVEAC (1,1)^ 16016 044324 201 07 0 00 044324 MOVEI AC+2,. ;SAVE TEST PC 16017 044325 202 07 0 00 030051 MOVEM AC+2,TESTPC 16018 044326 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 16019 044327 202 07 0 00 045454 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 16020 16021 021400 SN=21400 16022 002000 XX=002000 16023 000001 ZZ=1 16024 16025 F21400: REPEAT ^D5, 16026 16042 021401 SN=SN+1 16043 004000 XX=XX+XX 16044 000002 ZZ=ZZ+ZZ 16045 044330 205 03 0 00 004000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 16046 044331 201 05 0 00 000002 MOVEI AC,ZZ ;SETUP HIGH DVND 16047 044332 201 06 0 00 000002 MOVEI AC+1,ZZ ;SETUP LOW DVND 16048 044333 201 04 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 16049 044334 237 05 0 00 000004 DIVB AC,AC-1 ;DIVIDE ZZ BY 200 16050 044335 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT 16051 044336 003 05 0 00 021401 ER3 AC,SN ;QUOT ERROR 16052 044337 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST C(AC) = C(E) 16053 044340 005 04 0 00 021401 ER5 AC-1,SN 16054 044341 302 06 0 00 000002 CAIE AC+1,ZZ ;TEST REMD 16055 044342 004 06 0 00 021401 ER4 AC+1,SN ;DIVB FAILED 16056 044343 321 07 0 00 044330 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16057 16058 021402 SN=SN+1 16059 010000 XX=XX+XX 16060 000004 ZZ=ZZ+ZZ 16061 044344 205 03 0 00 010000 MOVSI AC-2,XX ;SETUP FOR COMPARISON DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 86-1 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0354 16062 044345 201 05 0 00 000004 MOVEI AC,ZZ ;SETUP HIGH DVND 16063 044346 201 06 0 00 000004 MOVEI AC+1,ZZ ;SETUP LOW DVND 16064 044347 201 04 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 16065 044350 237 05 0 00 000004 DIVB AC,AC-1 ;DIVIDE ZZ BY 200 16066 044351 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT 16067 044352 003 05 0 00 021402 ER3 AC,SN ;QUOT ERROR 16068 044353 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST C(AC) = C(E) 16069 044354 005 04 0 00 021402 ER5 AC-1,SN 16070 044355 302 06 0 00 000004 CAIE AC+1,ZZ ;TEST REMD 16071 044356 004 06 0 00 021402 ER4 AC+1,SN ;DIVB FAILED 16072 044357 321 07 0 00 044344 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16073 16074 021403 SN=SN+1 16075 020000 XX=XX+XX 16076 000010 ZZ=ZZ+ZZ 16077 044360 205 03 0 00 020000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 16078 044361 201 05 0 00 000010 MOVEI AC,ZZ ;SETUP HIGH DVND 16079 044362 201 06 0 00 000010 MOVEI AC+1,ZZ ;SETUP LOW DVND 16080 044363 201 04 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 16081 044364 237 05 0 00 000004 DIVB AC,AC-1 ;DIVIDE ZZ BY 200 16082 044365 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT 16083 044366 003 05 0 00 021403 ER3 AC,SN ;QUOT ERROR 16084 044367 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST C(AC) = C(E) 16085 044370 005 04 0 00 021403 ER5 AC-1,SN 16086 044371 302 06 0 00 000010 CAIE AC+1,ZZ ;TEST REMD 16087 044372 004 06 0 00 021403 ER4 AC+1,SN ;DIVB FAILED 16088 044373 321 07 0 00 044360 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16089 16090 021404 SN=SN+1 16091 040000 XX=XX+XX 16092 000020 ZZ=ZZ+ZZ 16093 044374 205 03 0 00 040000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 16094 044375 201 05 0 00 000020 MOVEI AC,ZZ ;SETUP HIGH DVND 16095 044376 201 06 0 00 000020 MOVEI AC+1,ZZ ;SETUP LOW DVND 16096 044377 201 04 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 16097 044400 237 05 0 00 000004 DIVB AC,AC-1 ;DIVIDE ZZ BY 200 16098 044401 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT 16099 044402 003 05 0 00 021404 ER3 AC,SN ;QUOT ERROR 16100 044403 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST C(AC) = C(E) 16101 044404 005 04 0 00 021404 ER5 AC-1,SN 16102 044405 302 06 0 00 000020 CAIE AC+1,ZZ ;TEST REMD 16103 044406 004 06 0 00 021404 ER4 AC+1,SN ;DIVB FAILED 16104 044407 321 07 0 00 044374 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16105 16106 021405 SN=SN+1 16107 100000 XX=XX+XX 16108 000040 ZZ=ZZ+ZZ 16109 044410 205 03 0 00 100000 MOVSI AC-2,XX ;SETUP FOR COMPARISON 16110 044411 201 05 0 00 000040 MOVEI AC,ZZ ;SETUP HIGH DVND 16111 044412 201 06 0 00 000040 MOVEI AC+1,ZZ ;SETUP LOW DVND 16112 044413 201 04 0 00 000200 MOVEI AC-1,200 ;SETUP DVSR 16113 044414 237 05 0 00 000004 DIVB AC,AC-1 ;DIVIDE ZZ BY 200 16114 044415 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT 16115 044416 003 05 0 00 021405 ER3 AC,SN ;QUOT ERROR 16116 044417 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST C(AC) = C(E) DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 86-2 DSKAL1 MAC 29-Mar-78 10:10 DIAGNOSTIC SECTION - GENERAL MPY/DIV TEST SEQ 0355 16117 044420 005 04 0 00 021405 ER5 AC-1,SN 16118 044421 302 06 0 00 000040 CAIE AC+1,ZZ ;TEST REMD 16119 044422 004 06 0 00 021405 ER4 AC+1,SN ;DIVB FAILED 16120 044423 321 07 0 00 044410 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH 16121 16122 16123 044424 254 00 0 00 030057 JRST BEGEND DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0356 16124 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 16125 16126 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 16127 16128 044425 202 00 0 00 045460 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 16129 044426 202 01 0 00 045461 MOVEM 1,%ERAC1# ;SAVE AC1 16130 044427 202 02 0 00 045462 MOVEM 2,%ERAC2# ;SAVE AC2 16131 044430 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 16132 044431 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 16133 044432 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 16134 044433 350 00 0 00 045455 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 16135 044434 200 00 0 00 045455 MOVE 0,MICNT 16136 044435 504 00 0 00 030114 HRL 0,$SVUPC 16137 044436 402 00 0 00 045456 SETZM PROCED# ;CLEAR PROCEED FLAG 16138 044437 037 10 0 00 000002 SWITCH 16139 044440 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 16140 044441 254 00 0 00 044553 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 16141 044442 200 01 0 00 030113 MOVE 1,$SVUUO 16142 044443 242 01 0 00 777745 LSH 1,-^D27 16143 044444 202 01 0 00 045457 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 16144 044445 200 00 0 00 045460 MOVE 0,%ERAC0 16145 044446 200 01 0 00 045461 MOVE 1,%ERAC1 16146 044447 335 00 1 00 045454 SKIPGE @@ERRLOP ;ERR LOOP AC > OR = 0 ? 16147 044450 254 00 0 00 044605 JRST %ERRS4 ;NO, SEE IF PRINT ALL 16148 044451 402 00 0 00 045455 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 16149 044452 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 16150 044453 254 00 0 00 044457 JRST .+4 ;NO, DON'T NEED TITLE 16151 044454 336 00 0 00 045463 SKIPN %ERFST# ;FIRST ERROR ? 16152 044455 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 16153 044456 476 00 0 00 045463 SETOM %ERFST 16154 044457 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 16155 044460 254 00 0 00 044464 JRST .+4 ;YES 16156 PMSG <^TEST PASS COUNT = >^ 16157 044461 037 02 0 00 045335 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 16158 044462 200 00 0 00 030047 MOVE PASCNT 16159 044463 037 15 0 00 000000 PNTDEC 16160 PMSG <^PC = >^ 16161 044464 037 02 0 00 045341 PSIXM [SIXBIT\^PC = _\]^ 16162 044465 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 16163 044466 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 16164 044467 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 16165 XLIST 16166 IFDEF ERDIAG,^ 16172 044470 037 02 0 00 045343 PSIXM [SIXBIT\^RESULT = _\]^ 16173 044471 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 16174 044472 242 01 0 00 777751 LSH 1,-27 16175 044473 405 01 0 00 000017 ANDI 1,17 16176 044474 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 16177 044475 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 16178 044476 200 00 0 01 045460 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 16179 044477 037 13 0 00 000000 PNTHW ;PRINT C(AC) 16180 16181 044500 200 00 0 00 030046 MOVE CONSW 16182 044501 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 16183 044502 254 00 0 00 044551 JRST %ERMORE ;NO, RESTORE AC'S ETC. 16184 16185 ;PRINT FAILURE DESCRIPTOR 16186 16187 044503 200 01 0 00 045457 MOVE 1,%ACS1A ;GET UUO NUMBER 16188 044504 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 16189 044505 254 00 0 00 044511 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 16190 044506 037 00 0 00 030242 PCRL 16191 044507 200 00 0 01 044535 MOVE %FLTTB(1) 16192 044510 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 16193 16194 ;PRINT FAULT NUMBER 16195 16196 044511 %ERMS3: PMSG <^FAULT NUMBER = >^ 16197 044511 037 02 0 00 045345 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 16198 044512 201 00 0 00 044534 MOVEI TLET 16199 044513 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0358 16200 16201 044514 550 00 0 00 030113 HRRZ $SVUUO 16202 044515 602 00 0 00 700000 TRNE 700000 16203 044516 254 00 0 00 044532 JRST %ER6X 16204 044517 602 00 0 00 070000 TRNE 070000 16205 044520 254 00 0 00 044530 JRST %ER5X 16206 044521 602 00 0 00 007000 TRNE 007000 16207 044522 254 00 0 00 044526 JRST %ER4X 16208 044523 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 16209 044524 037 00 0 00 030242 %ER7X: PCRL 16210 044525 254 00 0 00 044551 JRST %ERMORE 16211 16212 044526 037 04 0 00 000000 %ER4X: PNT4 16213 044527 254 00 0 00 044524 JRST %ER7X 16214 044530 037 05 0 00 000000 %ER5X: PNT5 16215 044531 254 00 0 00 044524 JRST %ER7X 16216 044532 037 06 0 00 000000 %ER6X: PNT6 16217 044533 254 00 0 00 044524 JRST %ER7X 16218 16219 ;FAILURE DESCRIPTORS 16220 16221 044534 000000 000000 TLET: 0 ;TEST LETTER 16222 044535 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 16223 044536 000000 044615 %NODES: [0] ;NO DESCRIPTOR 16224 044537 000000 044615 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 16225 044540 000000 045350 $ACF: [ASCIZ/C(AC) FAILED/] 16226 044541 000000 045353 %AC1F: [ASCIZ/C(AC+1) FAILED/] 16227 044542 000000 045356 %EF: [ASCIZ/C(E) FAILED/] 16228 044543 000000 045361 %E1F: [ASCIZ/C(E+1) FAILED/] 16229 044544 000000 045364 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 16230 044545 000000 045370 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 16231 044546 000000 045374 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 16232 044547 000000 045400 %EEF: [ASCIZ/C(C(E)) FAILED/] 16233 044550 000000 045403 %FF: [ASCIZ/FLAG FAILED/] 16234 > 16235 XLIST 16236 LIST DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0359 16237 ;RESTORE AC'S AND RETURN OR HALT 16238 16239 044551 256 00 0 00 030101 %ERMORE:XCT ERMORE 16240 044552 037 10 0 00 000002 SWITCH 16241 16242 044553 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 16243 044554 254 00 0 00 044560 JRST .+4 ;NONE 16244 044555 201 00 0 00 044560 MOVEI .+3 ;SAVE CONT ADDRESS 16245 044556 202 00 0 00 000130 MOVEM JOBOPC 16246 044557 254 00 1 00 030063 JRST @@ALTMGO ;PERFORM TRANSFER 16247 044560 200 00 0 00 030046 MOVE CONSW 16248 044561 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 16249 044562 037 14 0 00 000004 ERRHLT ;YES 16250 044563 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 16251 044564 476 00 0 00 045456 SETOM PROCED ;NO, SET THE PROCEED FLAG 16252 044565 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 16253 044566 037 01 0 00 000007 PBELL ;YES, GO RING BELL 16254 16255 044567 200 02 0 00 045462 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 16256 044570 200 01 0 00 045461 MOVE 1,%ERAC1 16257 044571 476 00 1 00 045454 SETOM @@ERRLOP ;SET C(ERR LOOP AC) TO -1 16258 044572 336 00 0 00 045456 SKIPN PROCED ;LOOP ON ERROR ? 16259 044573 254 00 0 00 044603 JRST %ERRS5 ;YES 16260 044574 350 00 1 00 045454 AOS @@ERRLOP ;NO, INC C(ERR LOOP AC) 16261 044575 350 00 1 00 045454 AOS @@ERRLOP ;SO IT ='S 1 16262 044576 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 16263 044577 254 00 0 00 044603 JRST %ERRS5 ;NO, CONTINUE PROGRAM 16264 044600 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 16265 044601 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 16266 044602 254 00 0 00 044611 JRST %ERRS6 16267 16268 044603 200 00 0 00 045460 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 16269 044604 254 00 0 00 030065 JRST UUOEXT 16270 16271 044605 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 16272 044606 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 16273 044607 254 00 0 00 044553 JRST %ERRS1 ;NO 16274 044610 254 00 0 00 044451 JRST %ERMS1 ;YES 16275 16276 044611 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 16277 044611 037 04 0 00 045406 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 16278 044612 254 00 0 00 030061 JRST $BEND2 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0360 16279 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 16280 16281 ;PROGRAM LITERALS 16282 16283 XLIST 16284 IFNDEF $LPAPER, 16285 044613 LIT 16286 044613 101 114 000 000 000 16287 044614 525252 525252 16288 044615 000000 000000 16289 044616 000000 000001 16290 044617 777777 777777 16291 044620 000000 000002 16292 044621 777777 777776 16293 044622 652525 252524 16294 044623 000000 000004 16295 044624 777777 777775 16296 044625 525252 525250 16297 044626 000000 000010 16298 044627 777777 777772 16299 044630 652525 252520 16300 044631 000000 000020 16301 044632 777777 777765 16302 044633 525252 525240 16303 044634 000000 000040 16304 044635 777777 777752 16305 044636 652525 252500 16306 044637 000000 000100 16307 044640 777777 777725 16308 044641 525252 525200 16309 044642 000000 000200 16310 044643 777777 777652 16311 044644 652525 252400 16312 044645 000000 000400 16313 044646 777777 777525 16314 044647 525252 525000 16315 044650 000000 001000 16316 044651 777777 777252 16317 044652 652525 252000 16318 044653 000000 002000 16319 044654 777777 776525 16320 044655 525252 524000 16321 044656 000000 004000 16322 044657 777777 775252 16323 044660 652525 250000 16324 044661 000000 010000 16325 044662 777777 772525 16326 044663 525252 520000 16327 044664 000000 020000 16328 044665 777777 765252 16329 044666 652525 240000 16330 044667 000000 040000 16331 044670 777777 752525 16332 044671 525252 500000 16333 044672 000000 100000 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0361 16334 044673 777777 725252 16335 044674 652525 200000 16336 044675 000000 200000 16337 044676 777777 652525 16338 044677 525252 400000 16339 044700 000000 400000 16340 044701 777777 525252 16341 044702 652525 000000 16342 044703 000001 000000 16343 044704 777777 252525 16344 044705 525252 000000 16345 044706 000002 000000 16346 044707 777776 525252 16347 044710 652524 000000 16348 044711 000004 000000 16349 044712 777775 252525 16350 044713 525250 000000 16351 044714 000010 000000 16352 044715 777772 525252 16353 044716 652520 000000 16354 044717 000020 000000 16355 044720 777765 252525 16356 044721 525240 000000 16357 044722 000040 000000 16358 044723 777752 525252 16359 044724 652500 000000 16360 044725 000100 000000 16361 044726 777725 252525 16362 044727 525200 000000 16363 044730 000200 000000 16364 044731 777652 525252 16365 044732 652400 000000 16366 044733 000400 000000 16367 044734 777525 252525 16368 044735 525000 000000 16369 044736 001000 000000 16370 044737 777252 525252 16371 044740 652000 000000 16372 044741 002000 000000 16373 044742 776525 252525 16374 044743 524000 000000 16375 044744 004000 000000 16376 044745 775252 525252 16377 044746 650000 000000 16378 044747 010000 000000 16379 044750 772525 252525 16380 044751 520000 000000 16381 044752 020000 000000 16382 044753 765252 525252 16383 044754 640000 000000 16384 044755 040000 000000 16385 044756 752525 252525 16386 044757 500000 000000 16387 044760 100000 000000 16388 044761 725252 525252 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0362 16389 044762 600000 000000 16390 044763 200000 000000 16391 044764 652525 252525 16392 044765 400000 000000 16393 044766 252525 252526 16394 044767 252525 252525 16395 044770 125252 525252 16396 044771 252525 252524 16397 044772 000000 000005 16398 044773 125252 525250 16399 044774 000000 000012 16400 044775 252525 252520 16401 044776 000000 000025 16402 044777 125252 525240 16403 045000 000000 000052 16404 045001 252525 252500 16405 045002 000000 000125 16406 045003 125252 525200 16407 045004 000000 000252 16408 045005 252525 252400 16409 045006 000000 000525 16410 045007 125252 525000 16411 045010 000000 001252 16412 045011 252525 252000 16413 045012 000000 002525 16414 045013 125252 524000 16415 045014 000000 005252 16416 045015 252525 250000 16417 045016 000000 012525 16418 045017 125252 520000 16419 045020 000000 025252 16420 045021 252525 240000 16421 045022 000000 052525 16422 045023 125252 500000 16423 045024 000000 125252 16424 045025 252525 200000 16425 045026 000000 252525 16426 045027 125252 400000 16427 045030 000000 525252 16428 045031 252525 000000 16429 045032 000001 252525 16430 045033 125252 000000 16431 045034 000002 525252 16432 045035 252524 000000 16433 045036 000005 252525 16434 045037 125250 000000 16435 045040 000012 525252 16436 045041 252520 000000 16437 045042 000025 252525 16438 045043 125240 000000 16439 045044 000052 525252 16440 045045 252500 000000 16441 045046 000125 252525 16442 045047 125200 000000 16443 045050 000252 525252 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0363 16444 045051 252400 000000 16445 045052 000525 252525 16446 045053 125000 000000 16447 045054 001252 525252 16448 045055 252000 000000 16449 045056 002525 252525 16450 045057 124000 000000 16451 045060 005252 525252 16452 045061 250000 000000 16453 045062 012525 252525 16454 045063 120000 000000 16455 045064 025252 525252 16456 045065 240000 000000 16457 045066 052525 252525 16458 045067 525252 525253 16459 045070 000000 000011 16460 045071 777777 777773 16461 045072 000000 000031 16462 045073 777777 777767 16463 045074 000000 000121 16464 045075 777777 777757 16465 045076 000000 000441 16466 045077 777777 777737 16467 045100 000000 002101 16468 045101 777777 777677 16469 045102 000000 010201 16470 045103 777777 777577 16471 045104 000000 040401 16472 045105 777777 777377 16473 045106 000000 201001 16474 045107 777777 776777 16475 045110 000001 002001 16476 045111 777777 775777 16477 045112 000004 004001 16478 045113 777777 773777 16479 045114 000020 010001 16480 045115 777777 767777 16481 045116 000100 020001 16482 045117 777777 757777 16483 045120 000400 040001 16484 045121 777777 737777 16485 045122 002000 100001 16486 045123 777777 677777 16487 045124 010000 200001 16488 045125 777777 577777 16489 045126 040000 400001 16490 045127 777777 377777 16491 045130 200001 000001 16492 045131 777776 777777 16493 045132 000002 000001 16494 045133 777775 777777 16495 045134 000004 000001 16496 045135 777773 777777 16497 045136 000010 000001 16498 045137 777767 777777 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-4 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0364 16499 045140 000020 000001 16500 045141 777757 777777 16501 045142 000040 000001 16502 045143 777737 777777 16503 045144 000100 000001 16504 045145 777677 777777 16505 045146 000200 000001 16506 045147 777577 777777 16507 045150 000400 000001 16508 045151 777377 777777 16509 045152 001000 000001 16510 045153 776777 777777 16511 045154 002000 000001 16512 045155 775777 777777 16513 045156 004000 000001 16514 045157 773777 777777 16515 045160 010000 000001 16516 045161 767777 777777 16517 045162 020000 000001 16518 045163 757777 777777 16519 045164 040000 000001 16520 045165 737777 777777 16521 045166 100000 000001 16522 045167 677777 777777 16523 045170 200000 000001 16524 045171 577777 777777 16525 045172 377777 777777 16526 045173 377777 777776 16527 045174 777777 777754 16528 045175 777777 777670 16529 045176 777777 777360 16530 045177 777777 775740 16531 045200 777777 767700 16532 045201 777777 737600 16533 045202 777777 577400 16534 045203 777776 777000 16535 045204 777773 776000 16536 045205 777757 774000 16537 045206 777677 770000 16538 045207 777377 760000 16539 045210 775777 740000 16540 045211 767777 700000 16541 045212 737777 600000 16542 045213 577777 400000 16543 045214 777777 000000 16544 045215 777776 000000 16545 045216 777774 000000 16546 045217 777770 000000 16547 045220 777760 000000 16548 045221 777740 000000 16549 045222 777700 000000 16550 045223 777600 000000 16551 045224 777400 000000 16552 045225 777000 000000 16553 045226 776000 000000 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-5 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0365 16554 045227 774000 000000 16555 045230 770000 000000 16556 045231 760000 000000 16557 045232 740000 000000 16558 045233 700000 000000 16559 045234 400000 000001 16560 045235 000000 000003 16561 045236 377777 777774 16562 045237 377777 777770 16563 045240 000000 000007 16564 045241 377777 777760 16565 045242 000000 000017 16566 045243 000000 036740 16567 045244 000000 036754 16568 045245 000000 036776 16569 045246 000000 037017 16570 045247 000000 037032 16571 045250 000000 037045 16572 045251 000000 037060 16573 045252 000000 037073 16574 045253 000000 037106 16575 045254 000000 037121 16576 045255 000000 037133 16577 045256 000000 037145 16578 045257 000000 037161 16579 045260 000000 037201 16580 045261 000000 037214 16581 045262 000000 037233 16582 045263 000000 037247 16583 045264 000000 037267 16584 045265 000000 037303 16585 045266 000000 037317 16586 045267 000000 037337 16587 045270 000000 037430 16588 045271 000000 037445 16589 045272 000000 037446 16590 045273 000000 037463 16591 045274 000000 037517 16592 045275 000000 037536 16593 045276 000000 037561 16594 045277 000000 037576 16595 045300 000000 037617 16596 045301 000000 037634 16597 045302 000000 037655 16598 045303 777777 777760 16599 045304 777777 777770 16600 045305 000000 040372 16601 045306 000000 040413 16602 045307 000000 040434 16603 045310 000000 040524 16604 045311 000000 040551 16605 045312 000000 040600 16606 045313 000000 040617 16607 045314 000000 040642 16608 045315 000000 040717 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-6 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0366 16609 045316 000000 040740 16610 045317 000000 040765 16611 045320 000000 041014 16612 045321 000000 041034 16613 045322 000000 041060 16614 045323 000000 041073 16615 045324 777777 777774 16616 045325 000000 041112 16617 045326 000000 041124 16618 045327 000000 041142 16619 045330 000000 041160 16620 045331 000000 041176 16621 045332 000000 041251 16622 045333 050000 000000 16623 045334 777777 777740 16624 045335 76 64 45 63 64 00 16625 045336 60 41 63 63 00 43 16626 045337 57 65 56 64 00 35 16627 045340 00 77 00 00 00 00 16628 045341 76 60 43 00 35 00 16629 045342 00 00 77 00 00 00 16630 045343 76 62 45 63 65 54 16631 045344 64 00 00 35 00 77 16632 045345 76 46 41 65 54 64 16633 045346 00 56 65 55 42 45 16634 045347 62 00 35 00 77 00 16635 045350 103 050 101 103 051 16636 045351 040 106 101 111 114 16637 045352 105 104 000 000 000 16638 045353 103 050 101 103 053 16639 045354 061 051 040 106 101 16640 045355 111 114 105 104 000 16641 045356 103 050 105 051 040 16642 045357 106 101 111 114 105 16643 045360 104 000 000 000 000 16644 045361 103 050 105 053 061 16645 045362 051 040 106 101 111 16646 045363 114 105 104 000 000 16647 045364 103 050 103 050 101 16648 045365 103 122 051 051 040 16649 045366 106 101 111 114 105 16650 045367 104 000 000 000 000 16651 045370 103 050 103 050 101 16652 045371 103 122 053 061 051 16653 045372 051 040 106 101 111 16654 045373 114 105 104 000 000 16655 045374 103 050 103 050 101 16656 045375 103 114 051 051 040 16657 045376 106 101 111 114 105 16658 045377 104 000 000 000 000 16659 045400 103 050 103 050 105 16660 045401 051 051 040 106 101 16661 045402 111 114 105 104 000 16662 045403 106 114 101 107 040 16663 045404 106 101 111 114 105 DSKAL DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) 0,1 MACRO %53(1020) 11:05 29-Mar-78 Page 1-7 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0367 16664 045405 104 000 000 000 000 16665 045406 76 45 70 43 45 45 16666 045407 44 45 44 00 41 54 16667 045410 54 57 67 45 44 00 16668 045411 45 62 62 57 62 63 16669 045412 76 77 00 00 00 00 16670 LIST 16671 045413 000000 000000 ENDSLD: 0 16672 16673 IFDEF DEBUG,< 16674 045414 PATCH: BLOCK DEBUG ;PATCHING AREA 16675 > 16676 16677 ;PROGRAM VARIABLES 16678 045454 VAR 16679 16680 IFDEF PGMEND,< 16681 045464 000000 000000 END: 0 16682 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 045465 CPU TIME USED 00:51.628 32P CORE USED AA1 794# 828# 862# 896# 930# 964# 998# 1032# 1066# 1100# 1134# 1168# 1202# 1236# 1270# 1304# 1338# 1372# 1406# 1440# 1474# 1508# 1542# 1576# 1610# 1644# 1678# 1712# SEQ 0368 1746# 1780# 1814# 1848# 1882# 1916# 1950# 1984# 2041# 2075# 2109# 2143# 2177# 2211# 2245# 2279# 2313# 2347# 2381# 2415# 2449# 2483# 2517# 2551# 2585# 2619# 2653# 2687# 2721# 2755# 2789# 2823# 2857# 2891# 2925# 2959# 2993# 3027# 3061# 3095# 3129# 3163# 3197# 3231# 3287# 3321# 3355# 3389# 3423# 3457# 3491# 3525# 3559# 3593# 3627# 3661# 3695# 3729# 3763# 3797# 3831# 3865# 3899# 3933# 3967# 4001# 4035# 4069# 4103# 4137# 4171# 4205# 4239# 4273# 4307# 4341# 4375# 4409# 4443# 4477# 4528# 4560# 4592# 4624# 4656# 4688# 4720# 4752# 4784# 4816# 4848# 4880# 4912# 4944# 4976# 5008# 5040# 5072# 5104# 5136# 5168# 5200# 5232# 5264# 5296# 5328# 5360# 5392# 5424# 5456# 5488# 5520# 5552# 5584# 5616# 5648# 5703# 5737# 5771# 5805# 5839# 5873# 5907# 5941# 5975# 6009# 6043# 6077# 6111# 6145# 6179# 6213# 6247# 6281# 6315# 6349# 6383# 6417# 6451# 6485# 6519# 6553# 6587# 6621# 6655# 6689# 6723# 6757# 6791# 6825# 6859# 6893# 6953# 6989# 7025# 7061# 7097# 7133# 7169# 7205# 7241# 7277# 7313# 7349# 7385# 7421# 7457# 7493# 7529# 7565# 7601# 7637# 7673# 7709# 7745# 7781# 7817# 7853# 7889# 7925# 7961# 7997# 8033# 8069# 8105# 8141# 8177# 8213# 8273# 8309# 8345# 8381# 8417# 8453# 8489# 8525# 8561# 8597# 8633# 8669# 8705# 8741# 8777# 8813# 8849# 8885# 8921# 8957# 8993# 9029# 9065# 9101# 9137# 9173# 9209# 9245# 9281# 9317# 9353# 9389# 9425# 9461# 9497# 9533# AA2 796# 830# 864# 898# 932# 966# 1000# 1034# 1068# 1102# 1136# 1170# 1204# 1238# 1272# 1306# 1340# 1374# 1408# 1442# 1476# 1510# 1544# 1578# 1612# 1646# 1680# 1714# 1748# 1782# 1816# 1850# 1884# 1918# 1952# 1986# 2043# 2077# 2111# 2145# 2179# 2213# 2247# 2281# 2315# 2349# 2383# 2417# 2451# 2485# 2519# 2553# 2587# 2621# 2655# 2689# 2723# 2757# 2791# 2825# 2859# 2893# 2927# 2961# 2995# 3029# 3063# 3097# 3131# 3165# 3199# 3233# 3289# 3323# 3357# 3391# 3425# 3459# 3493# 3527# 3561# 3595# 3629# 3663# 3697# 3731# 3765# 3799# 3833# 3867# 3901# 3935# 3969# 4003# 4037# 4071# 4105# 4139# 4173# 4207# 4241# 4275# 4309# 4343# 4377# 4411# 4445# 4479# 4530# 4562# 4594# 4626# 4658# 4690# 4722# 4754# 4786# 4818# 4850# 4882# 4914# 4946# 4978# 5010# 5042# 5074# 5106# 5138# 5170# 5202# 5234# 5266# 5298# 5330# 5362# 5394# 5426# 5458# 5490# 5522# 5554# 5586# 5618# 5650# 5705# 5739# 5773# 5807# 5841# 5875# 5909# 5943# 5977# 6011# 6045# 6079# 6113# 6147# 6181# 6215# 6249# 6283# 6317# 6351# 6385# 6419# 6453# 6487# 6521# 6555# 6589# 6623# 6657# 6691# 6725# 6759# 6793# 6827# 6861# 6895# 6955# 6991# 7027# 7063# 7099# 7135# 7171# 7207# 7243# 7279# 7315# 7351# 7387# 7423# 7459# 7495# 7531# 7567# 7603# 7639# 7675# 7711# 7747# 7783# 7819# 7855# 7891# 7927# 7963# 7999# 8035# 8071# 8107# 8143# 8179# 8215# 8275# 8311# 8347# 8383# 8419# 8455# 8491# 8527# 8563# 8599# 8635# 8671# 8707# 8743# 8779# 8815# 8851# 8887# 8923# 8959# 8995# 9031# 9067# 9103# 9139# 9175# 9211# 9247# 9283# 9319# 9355# 9391# 9427# 9463# 9499# 9535# ABORT 130# AC 753# 754 758 759 760 761 795 797 800 802 803 805 806 810 829 831 834 836 837 839 840 844 863 865 868 870 871 873 874 878 897 899 902 904 905 907 908 912 931 933 936 938 939 941 942 946 965 967 970 972 973 975 976 980 999 1001 1004 1006 1007 1009 1010 1014 1033 1035 1038 1040 1041 1043 1044 1048 1067 1069 1072 1074 1075 1077 1078 1082 1101 1103 1106 1108 1109 1111 1112 1116 1135 1137 1140 1142 1143 1145 1146 1150 1169 1171 1174 1176 1177 1179 1180 1184 1203 1205 1208 1210 1211 1213 1214 1218 1237 1239 1242 1244 1245 1247 1248 1252 1271 1273 1276 1278 1279 1281 1282 1286 1305 1307 1310 1312 1313 1315 1316 1320 1339 1341 1344 1346 1347 1349 1350 1354 1373 1375 1378 1380 1381 1383 1384 1388 1407 1409 1412 1414 1415 1417 1418 1422 1441 1443 1446 1448 1449 1451 1452 1456 1475 1477 1480 1482 1483 1485 1486 1490 1509 1511 1514 1516 1517 1519 1520 1524 1543 1545 1548 1550 1551 1553 1554 1558 1577 1579 1582 1584 1585 1587 1588 1592 1611 1613 1616 1618 1619 1621 1622 1626 1645 1647 1650 1652 1653 1655 1656 1660 1679 1681 1684 1686 1687 1689 1690 1694 1713 1715 1718 1720 1721 1723 1724 1728 1747 1749 1752 1754 1755 1757 1758 1762 1781 1783 1786 1788 1789 1791 1792 1796 1815 1817 1820 1822 1823 1825 SEQ 0369 1826 1830 1849 1851 1854 1856 1857 1859 1860 1864 1883 1885 1888 1890 1891 1893 1894 1898 1917 1919 1922 1924 1925 1927 1928 1932 1951 1953 1956 1958 1959 1961 1962 1966 1985 1987 1990 1992 1993 1995 1996 2000 2001# 2002 2004 2005 2006 2007 2042 2044 2047 2049 2050 2052 2053 2057 2076 2078 2081 2083 2084 2086 2087 2091 2110 2112 2115 2117 2118 2120 2121 2125 2144 2146 2149 2151 2152 2154 2155 2159 2178 2180 2183 2185 2186 2188 2189 2193 2212 2214 2217 2219 2220 2222 2223 2227 2246 2248 2251 2253 2254 2256 2257 2261 2280 2282 2285 2287 2288 2290 2291 2295 2314 2316 2319 2321 2322 2324 2325 2329 2348 2350 2353 2355 2356 2358 2359 2363 2382 2384 2387 2389 2390 2392 2393 2397 2416 2418 2421 2423 2424 2426 2427 2431 2450 2452 2455 2457 2458 2460 2461 2465 2484 2486 2489 2491 2492 2494 2495 2499 2518 2520 2523 2525 2526 2528 2529 2533 2552 2554 2557 2559 2560 2562 2563 2567 2586 2588 2591 2593 2594 2596 2597 2601 2620 2622 2625 2627 2628 2630 2631 2635 2654 2656 2659 2661 2662 2664 2665 2669 2688 2690 2693 2695 2696 2698 2699 2703 2722 2724 2727 2729 2730 2732 2733 2737 2756 2758 2761 2763 2764 2766 2767 2771 2790 2792 2795 2797 2798 2800 2801 2805 2824 2826 2829 2831 2832 2834 2835 2839 2858 2860 2863 2865 2866 2868 2869 2873 2892 2894 2897 2899 2900 2902 2903 2907 2926 2928 2931 2933 2934 2936 2937 2941 2960 2962 2965 2967 2968 2970 2971 2975 2994 2996 2999 3001 3002 3004 3005 3009 3028 3030 3033 3035 3036 3038 3039 3043 3062 3064 3067 3069 3070 3072 3073 3077 3096 3098 3101 3103 3104 3106 3107 3111 3130 3132 3135 3137 3138 3140 3141 3145 3164 3166 3169 3171 3172 3174 3175 3179 3198 3200 3203 3205 3206 3208 3209 3213 3232 3234 3237 3239 3240 3242 3243 3247 3248# 3249 3251 3252 3253 3254 3288 3290 3293 3295 3296 3298 3299 3303 3322 3324 3327 3329 3330 3332 3333 3337 3356 3358 3361 3363 3364 3366 3367 3371 3390 3392 3395 3397 3398 3400 3401 3405 3424 3426 3429 3431 3432 3434 3435 3439 3458 3460 3463 3465 3466 3468 3469 3473 3492 3494 3497 3499 3500 3502 3503 3507 3526 3528 3531 3533 3534 3536 3537 3541 3560 3562 3565 3567 3568 3570 3571 3575 3594 3596 3599 3601 3602 3604 3605 3609 3628 3630 3633 3635 3636 3638 3639 3643 3662 3664 3667 3669 3670 3672 3673 3677 3696 3698 3701 3703 3704 3706 3707 3711 3730 3732 3735 3737 3738 3740 3741 3745 3764 3766 3769 3771 3772 3774 3775 3779 3798 3800 3803 3805 3806 3808 3809 3813 3832 3834 3837 3839 3840 3842 3843 3847 3866 3868 3871 3873 3874 3876 3877 3881 3900 3902 3905 3907 3908 3910 3911 3915 3934 3936 3939 3941 3942 3944 3945 3949 3968 3970 3973 3975 3976 3978 3979 3983 4002 4004 4007 4009 4010 4012 4013 4017 4036 4038 4041 4043 4044 4046 4047 4051 4070 4072 4075 4077 4078 4080 4081 4085 4104 4106 4109 4111 4112 4114 4115 4119 4138 4140 4143 4145 4146 4148 4149 4153 4172 4174 4177 4179 4180 4182 4183 4187 4206 4208 4211 4213 4214 4216 4217 4221 4240 4242 4245 4247 4248 4250 4251 4255 4274 4276 4279 4281 4282 4284 4285 4289 4308 4310 4313 4315 4316 4318 4319 4323 4342 4344 4347 4349 4350 4352 4353 4357 4376 4378 4381 4383 4384 4386 4387 4391 4410 4412 4415 4417 4418 4420 4421 4425 4444 4446 4449 4451 4452 4454 4455 4459 4478 4480 4483 4485 4486 4488 4489 4493 4494# 4495 4497 4498 4499 4500 4529 4531 4534 4536 4537 4539 4540 4544 4561 4563 4566 4568 4569 4571 4572 4576 4593 4595 4598 4600 4601 4603 4604 4608 4625 4627 4630 4632 4633 4635 4636 4640 4657 4659 4662 4664 4665 4667 4668 4672 4689 4691 4694 4696 4697 4699 4700 4704 4721 4723 4726 4728 4729 4731 4732 4736 4753 4755 4758 4760 4761 4763 4764 4768 4785 4787 4790 4792 4793 4795 4796 4800 4817 4819 4822 4824 4825 4827 4828 4832 4849 4851 4854 4856 4857 4859 4860 4864 4881 4883 4886 4888 4889 4891 4892 4896 4913 4915 4918 4920 4921 4923 4924 4928 4945 4947 SEQ 0370 4950 4952 4953 4955 4956 4960 4977 4979 4982 4984 4985 4987 4988 4992 5009 5011 5014 5016 5017 5019 5020 5024 5041 5043 5046 5048 5049 5051 5052 5056 5073 5075 5078 5080 5081 5083 5084 5088 5105 5107 5110 5112 5113 5115 5116 5120 5137 5139 5142 5144 5145 5147 5148 5152 5169 5171 5174 5176 5177 5179 5180 5184 5201 5203 5206 5208 5209 5211 5212 5216 5233 5235 5238 5240 5241 5243 5244 5248 5265 5267 5270 5272 5273 5275 5276 5280 5297 5299 5302 5304 5305 5307 5308 5312 5329 5331 5334 5336 5337 5339 5340 5344 5361 5363 5366 5368 5369 5371 5372 5376 5393 5395 5398 5400 5401 5403 5404 5408 5425 5427 5430 5432 5433 5435 5436 5440 5457 5459 5462 5464 5465 5467 5468 5472 5489 5491 5494 5496 5497 5499 5500 5504 5521 5523 5526 5528 5529 5531 5532 5536 5553 5555 5558 5560 5561 5563 5564 5568 5585 5587 5590 5592 5593 5595 5596 5600 5617 5619 5622 5624 5625 5627 5628 5632 5649 5651 5654 5656 5657 5659 5660 5664 5665# 5666 5668 5669 5670 5671 5704 5706 5709 5711 5712 5714 5715 5719 5738 5740 5743 5745 5746 5748 5749 5753 5772 5774 5777 5779 5780 5782 5783 5787 5806 5808 5811 5813 5814 5816 5817 5821 5840 5842 5845 5847 5848 5850 5851 5855 5874 5876 5879 5881 5882 5884 5885 5889 5908 5910 5913 5915 5916 5918 5919 5923 5942 5944 5947 5949 5950 5952 5953 5957 5976 5978 5981 5983 5984 5986 5987 5991 6010 6012 6015 6017 6018 6020 6021 6025 6044 6046 6049 6051 6052 6054 6055 6059 6078 6080 6083 6085 6086 6088 6089 6093 6112 6114 6117 6119 6120 6122 6123 6127 6146 6148 6151 6153 6154 6156 6157 6161 6180 6182 6185 6187 6188 6190 6191 6195 6214 6216 6219 6221 6222 6224 6225 6229 6248 6250 6253 6255 6256 6258 6259 6263 6282 6284 6287 6289 6290 6292 6293 6297 6316 6318 6321 6323 6324 6326 6327 6331 6350 6352 6355 6357 6358 6360 6361 6365 6384 6386 6389 6391 6392 6394 6395 6399 6418 6420 6423 6425 6426 6428 6429 6433 6452 6454 6457 6459 6460 6462 6463 6467 6486 6488 6491 6493 6494 6496 6497 6501 6520 6522 6525 6527 6528 6530 6531 6535 6554 6556 6559 6561 6562 6564 6565 6569 6588 6590 6593 6595 6596 6598 6599 6603 6622 6624 6627 6629 6630 6632 6633 6637 6656 6658 6661 6663 6664 6666 6667 6671 6690 6692 6695 6697 6698 6700 6701 6705 6724 6726 6729 6731 6732 6734 6735 6739 6758 6760 6763 6765 6766 6768 6769 6773 6792 6794 6797 6799 6800 6802 6803 6807 6826 6828 6831 6833 6834 6836 6837 6841 6860 6862 6865 6867 6868 6870 6871 6875 6894 6896 6899 6901 6902 6904 6905 6909 6910# 6911 6913 6914 6915 6916 6954 6956 6959 6961 6962 6964 6965 6969 6990 6992 6995 6997 6998 7000 7001 7005 7026 7028 7031 7033 7034 7036 7037 7041 7062 7064 7067 7069 7070 7072 7073 7077 7098 7100 7103 7105 7106 7108 7109 7113 7134 7136 7139 7141 7142 7144 7145 7149 7170 7172 7175 7177 7178 7180 7181 7185 7206 7208 7211 7213 7214 7216 7217 7221 7242 7244 7247 7249 7250 7252 7253 7257 7278 7280 7283 7285 7286 7288 7289 7293 7314 7316 7319 7321 7322 7324 7325 7329 7350 7352 7355 7357 7358 7360 7361 7365 7386 7388 7391 7393 7394 7396 7397 7401 7422 7424 7427 7429 7430 7432 7433 7437 7458 7460 7463 7465 7466 7468 7469 7473 7494 7496 7499 7501 7502 7504 7505 7509 7530 7532 7535 7537 7538 7540 7541 7545 7566 7568 7571 7573 7574 7576 7577 7581 7602 7604 7607 7609 7610 7612 7613 7617 7638 7640 7643 7645 7646 7648 7649 7653 7674 7676 7679 7681 7682 7684 7685 7689 7710 7712 7715 7717 7718 7720 7721 7725 7746 7748 7751 7753 7754 7756 7757 7761 7782 7784 7787 7789 7790 7792 7793 7797 7818 7820 7823 7825 7826 7828 7829 7833 7854 7856 7859 7861 7862 7864 7865 7869 7890 7892 7895 7897 7898 7900 7901 7905 7926 7928 7931 7933 7934 7936 7937 7941 7962 7964 7967 7969 7970 7972 7973 7977 7998 8000 8003 8005 8006 8008 8009 8013 8034 8036 8039 8041 8042 8044 8045 8049 8070 8072 8075 8077 8078 8080 8081 8085 8106 8108 8111 8113 SEQ 0371 8114 8116 8117 8121 8142 8144 8147 8149 8150 8152 8153 8157 8178 8180 8183 8185 8186 8188 8189 8193 8214 8216 8219 8221 8222 8224 8225 8229 8230# 8231 8233 8234 8235 8236 8274 8276 8279 8281 8282 8284 8285 8289 8310 8312 8315 8317 8318 8320 8321 8325 8346 8348 8351 8353 8354 8356 8357 8361 8382 8384 8387 8389 8390 8392 8393 8397 8418 8420 8423 8425 8426 8428 8429 8433 8454 8456 8459 8461 8462 8464 8465 8469 8490 8492 8495 8497 8498 8500 8501 8505 8526 8528 8531 8533 8534 8536 8537 8541 8562 8564 8567 8569 8570 8572 8573 8577 8598 8600 8603 8605 8606 8608 8609 8613 8634 8636 8639 8641 8642 8644 8645 8649 8670 8672 8675 8677 8678 8680 8681 8685 8706 8708 8711 8713 8714 8716 8717 8721 8742 8744 8747 8749 8750 8752 8753 8757 8778 8780 8783 8785 8786 8788 8789 8793 8814 8816 8819 8821 8822 8824 8825 8829 8850 8852 8855 8857 8858 8860 8861 8865 8886 8888 8891 8893 8894 8896 8897 8901 8922 8924 8927 8929 8930 8932 8933 8937 8958 8960 8963 8965 8966 8968 8969 8973 8994 8996 8999 9001 9002 9004 9005 9009 9030 9032 9035 9037 9038 9040 9041 9045 9066 9068 9071 9073 9074 9076 9077 9081 9102 9104 9107 9109 9110 9112 9113 9117 9138 9140 9143 9145 9146 9148 9149 9153 9174 9176 9179 9181 9182 9184 9185 9189 9210 9212 9215 9217 9218 9220 9221 9225 9246 9248 9251 9253 9254 9256 9257 9261 9282 9284 9287 9289 9290 9292 9293 9297 9318 9320 9323 9325 9326 9328 9329 9333 9354 9356 9359 9361 9362 9364 9365 9369 9390 9392 9395 9397 9398 9400 9401 9405 9426 9428 9431 9433 9434 9436 9437 9441 9462 9464 9467 9469 9470 9472 9473 9477 9498 9500 9503 9505 9506 9508 9509 9513 9534 9536 9539 9541 9542 9544 9545 9549 9553# 9555 9556 9557 9558 9585 9586 9587 9588 9589 9590 9591 9592 9599 9600 9601 9602 9603 9604 9605 9606 9612# 9614 9615 9616 9617 9641 9642 9643 9644 9645 9646 9647 9648 9649 9650 9655 9656 9657 9658 9659 9660 9661 9662 9663 9664 9669# 9671 9672 9673 9674 9696 9697 9698 9699 9700 9701 9702 9703 9708 9709 9710 9711 9712 9713 9714 9715 9720# 9722 9723 9724 9725 9744 9745 9746 9747 9748 9749 9750 9751 9755 9756 9757 9758 9759 9760 9761 9762 9768# 9770 9771 9772 9773 9797 9798 9799 9800 9801 9802 9803 9804 9810 9811 9812 9813 9814 9815 9816 9817 9822# 9824 9825 9826 9827 9851 9852 9853 9854 9855 9856 9857 9858 9859 9860 9865 9866 9867 9868 9869 9870 9871 9872 9873 9874 9879# 9881 9882 9883 9884 9913 9914 9915 9916 9917 9918 9919 9920 9921 9922 9929 9930 9931 9932 9933 9934 9935 9936 9937 9938 9944# 9946 9947 9948 9949 9971 9972 9973 9974 9975 9976 9977 9978 9983 9984 9985 9986 9987 9988 9989 9990 9995# 9997 9998 9999 10000 10022 10023 10024 10025 10026 10027 10028 10029 10030 10035 10036 10037 10038 10039 10040 10041 10042 10043 10048# 10050 10051 10052 10053 10081 10082 10083 10084 10085 10086 10087 10088 10089 10090 10097 10098 10099 10100 10101 10102 10103 10104 10105 10106 10112# 10114 10115 10116 10117 10139 10140 10141 10142 10143 10144 10145 10146 10151 10152 10153 10154 10155 10156 10157 10158 10167# 10184 10184# 10186 10187 10188 10189 10191 10192 10193 10194 10195 10196 10197 10198 10199 10202 10202# 10204 10205 10206 10207 10209 10210 10211 10212 10213 10214 10215 10216 10217 10227# 10229 10230 10231 10232 10255 10256 10257 10258 10259 10260 10261 10262 10263 10264 10265 10266 10270 10271 10272 10273 10274 10275 10276 10277 10278 10279 10280 10281 10299 10300 10301 10302 10303 10304 10308 10309 10310 10311 10312 10313 10332 10333 10334 10335 10336 10337 10338 10342 10343 10344 10345 10346 10347 10348 10358# 10360 10361 10362 10363 10389 10390 10391 10392 10393 10394 10395 10396 10397 10398 10399 10400 10405 10406 10407 10408 10409 10410 10411 10412 10413 10414 10415 10416 10425 10426 10427 10428 10429 10430 10431 10432 10434 10435 10444 10445 10446 10447 10448 10449 10450 10451 10452 10453 10455 10456 10462# 10464 10465 10466 10467 10485 10486 10487 10488 10489 10490 10494 10495 10496 10497 10498 10499 10508# 10510 10511 10512 10513 10539 10540 10541 10542 10543 10544 10547 10548 10554 10555 10556 10557 SEQ 0372 10558 10559 10562 10563 10590 10591 10592 10593 10594 10595 10596 10598 10599 10605 10606 10607 10608 10609 10610 10611 10613 10614 10640 10641 10642 10643 10644 10645 10648 10649 10655 10656 10657 10658 10659 10660 10663 10664 10687 10688 10689 10690 10691 10692 10694 10695 10700 10701 10702 10703 10704 10705 10707 10708 10735 10736 10737 10738 10739 10740 10741 10744 10745 10751 10752 10753 10754 10755 10756 10757 10760 10761 10766# 10768 10769 10770 10771 10799 10800 10801 10802 10803 10804 10807 10808 10815 10816 10817 10818 10819 10820 10823 10824 10830# 10832 10833 10834 10835 10862 10863 10864 10865 10866 10867 10868 10871 10872 10878 10879 10880 10881 10882 10883 10884 10887 10888 10893# 10895 10896 10897 10898 10925 10926 10927 10928 10929 10930 10931 10934 10935 10941 10942 10943 10944 10945 10946 10947 10950 10951 10955 10956 10957 10958 10959 10960 10961 10962 10964 10965 10974# 10976 10977 10978 10979 10998 10999 11000 11001 11002 11003 11004 11008 11009 11010 11011 11012 11013 11014 11018# 11020 11021 11022 11023 11043 11044 11045 11046 11047 11048 11049 11050 11051 11055 11056 11057 11058 11059 11060 11061 11062 11063 11071# 11073 11074 11075 11076 11091 11092 11093 11094 11095 11096 11100 11101 11102 11103 11104 11105 11118# 11120 11121 11122 11123 11151 11152 11153 11154 11157 11158 11159 11160 11161 11162 11169 11170 11171 11172 11175 11176 11177 11178 11179 11180 11185 11186 11187 11188 11189 11190 11191 11197# 11199 11200 11201 11202 11218 11219 11220 11221 11222 11223 11227 11228 11229 11230 11231 11232 11238# 11240 11241 11242 11243 11270 11271 11272 11273 11274 11275 11276 11277 11278 11280 11281 11282 11283 11288 11289 11290 11291 11292 11293 11294 11295 11296 11298 11299 11300 11301 11307# 11309 11310 11311 11312 11337 11338 11339 11340 11341 11342 11343 11344 11347 11348 11353 11354 11355 11356 11357 11358 11359 11360 11363 11364 11369# 11371 11372 11373 11374 11399 11400 11401 11402 11403 11404 11405 11406 11409 11410 11415 11416 11417 11418 11419 11420 11421 11422 11425 11426 11432# 11434 11435 11436 11437 11457 11458 11459 11460 11461 11462 11463 11464 11468 11469 11470 11471 11472 11473 11474 11475 11480# 11482 11483 11484 11485 11510 11511 11512 11513 11514 11515 11516 11517 11518 11524 11525 11526 11527 11528 11529 11530 11531 11532 11537# 11539 11540 11541 11542 11562 11563 11564 11565 11566 11567 11568 11569 11570 11574 11575 11576 11577 11578 11579 11580 11581 11582 11591# 11593 11594 11595 11596 11616 11617 11618 11619 11620 11621 11622 11623 11624 11628 11629 11630 11631 11632 11633 11634 11635 11636 11643# 11645 11646 11647 11648 11667 11668 11669 11670 11671 11672 11673 11674 11678 11679 11680 11681 11682 11683 11684 11685 11708 11709 11710 11711 11712 11713 11714 11715 11716 11721 11722 11723 11724 11725 11726 11727 11728 11729 11735# 11737 11738 11739 11740 11757 11758 11759 11760 11761 11762 11766 11767 11768 11769 11770 11771 11778# 11780 11781 11782 11783 11806 11807 11808 11809 11810 11811 11812 11813 11814 11819 11820 11821 11822 11823 11824 11825 11826 11827 11832# 11834 11835 11836 11837 11862 11863 11864 11865 11866 11867 11868 11869 11870 11876 11877 11878 11879 11880 11881 11882 11883 11884 11906 11907 11908 11909 11910 11911 11912 11913 11917 11918 11919 11920 11921 11922 11923 11924 11929# 11931 11932 11933 11934 11953 11954 11955 11956 11957 11958 11959 11960 11964 11965 11966 11967 11968 11969 11970 11971 11976# 11978 11979 11980 11981 12001 12002 12003 12004 12005 12006 12007 12008 12009 12013 12014 12015 12016 12017 12018 12019 12020 12021 12029# 12031 12032 12033 12034 12055 12056 12057 12058 12059 12060 12061 12062 12063 12064 12068 12069 12070 12071 12072 12073 12074 12075 12076 12077 12082# 12084 12085 12086 12087 12108 12109 12110 12111 12112 12113 12114 12115 12116 12117 12121 12122 12123 12124 12125 12126 12127 12128 12129 12130 12135# 12137 12138 12139 12140 12160 12161 12162 12163 12164 12165 12166 12167 12168 12172 12173 12174 12175 12176 12177 12178 12179 12180 12190# 12192 12193 12194 12195 12214 12215 12216 12217 12218 12219 12220 12221 12225 12226 12227 12228 12229 12230 12231 12232 12240# 12264 12264# 12266 12267 12268 12269 12271 12272 12273 12274 12275 12276 12277 12278 12281 12282 12286 12286# 12288 12289 12290 12291 12293 12294 12295 12296 12297 12298 12299 12300 12303 12304 12311# 12313 12314 12315 12316 12337 12338 12339 12340 12341 12342 12343 12344 12345 12349 12350 12351 12352 12353 12354 12355 12356 12357 12365# 12367 SEQ 0373 12368 12369 12370 12390 12391 12392 12393 12394 12395 12396 12397 12398 12402 12403 12404 12405 12406 12407 12408 12409 12410 12419# 12421 12422 12423 12424 12429 12430 12431 12432 12433 12434 12435 12436 12437 12438 12439 12443 12444 12445 12446 12447 12448 12449 12450 12451 12452 12453 12455 12456 12457 12458 12465# 12467 12468 12469 12470 12494 12495 12496 12497 12498 12499 12500 12501 12502 12507 12508 12509 12510 12511 12512 12513 12514 12515 12521# 12523 12524 12525 12526 12553 12554 12555 12556 12557 12559 12560 12561 12562 12563 12564 12565 12566 12571 12572 12573 12574 12575 12577 12578 12579 12580 12581 12582 12583 12584 12592# 12594 12595 12596 12597 12617 12618 12619 12620 12621 12622 12623 12624 12628 12629 12630 12631 12632 12633 12634 12635 12641# 12643 12644 12645 12646 12670 12671 12672 12673 12674 12675 12676 12677 12678 12679 12684 12685 12686 12687 12688 12689 12690 12691 12692 12693 12699# 12701 12702 12703 12704 12739 12740 12741 12742 12743 12744 12745 12746 12747 12748 12751 12752 12753 12754 12761 12762 12763 12764 12765 12766 12767 12768 12769 12770 12773 12774 12775 12776 12782# 12784 12785 12786 12787 12814 12815 12816 12817 12818 12819 12820 12821 12822 12828 12829 12830 12831 12832 12833 12834 12835 12836 12844# 12846 12847 12848 12849 12883 12884 12885 12886 12887 12888 12890 12891 12892 12893 12894 12895 12896 12897 12904 12905 12906 12907 12908 12909 12911 12912 12913 12914 12915 12916 12917 12918 12925# 12927 12928 12929 12930 12956 12957 12958 12959 12960 12962 12963 12964 12965 12971 12972 12973 12974 12975 12977 12978 12979 12980 12987# 12989 12990 12991 12992 13016 13017 13018 13019 13020 13023 13024 13030 13031 13032 13033 13034 13037 13038 13047# 13067 13067# 13070 13071 13072 13073 13075 13076 13077 13078 13079 13082 13083 13086 13086# 13089 13090 13091 13092 13094 13095 13096 13097 13098 13101 13102 13108# 13110 13111 13112 13113 13138 13139 13140 13141 13142 13143 13144 13145 13146 13147 13152 13153 13154 13155 13156 13157 13158 13159 13160 13161 13169# 13171 13172 13173 13174 13194 13195 13196 13197 13198 13199 13200 13201 13202 13206 13207 13208 13209 13210 13211 13212 13213 13214 13220 13221 13222 13223 13224 13225 13226 13227 13228 13229 13230 13232 13233 13234 13235 13247# 13249 13250 13251 13252 13279 13280 13281 13282 13283 13284 13285 13286 13287 13288 13289 13295 13296 13297 13298 13299 13300 13301 13302 13303 13304 13305 13311 13312 13313 13314 13315 13316 13317 13318 13319 13320 13321 13327 13328 13329 13330 13331 13332 13333 13334 13335 13336 13337 13343 13344 13345 13346 13347 13348 13349 13350 13351 13352 13353 13359 13360 13361 13362 13363 13364 13365 13366 13367 13368 13369 13375 13376 13377 13378 13379 13380 13381 13382 13383 13384 13385 13391 13392 13393 13394 13395 13396 13397 13398 13399 13400 13401 13407 13408 13409 13410 13411 13412 13413 13414 13415 13416 13417 13423 13424 13425 13426 13427 13428 13429 13430 13431 13432 13433 13443# 13445 13446 13447 13448 13473 13474 13475 13476 13477 13478 13479 13480 13481 13487 13488 13489 13490 13491 13492 13493 13494 13495 13501 13502 13503 13504 13505 13506 13507 13508 13509 13515 13516 13517 13518 13519 13520 13521 13522 13523 13529 13530 13531 13532 13533 13534 13535 13536 13537 13546# 13548 13549 13550 13551 13570 13571 13572 13573 13574 13575 13580 13581 13582 13583 13584 13585 13590 13591 13592 13593 13594 13595 13600 13601 13602 13603 13604 13605 13610 13611 13612 13613 13614 13615 13625# 13627 13628 13629 13630 13659 13660 13661 13662 13663 13664 13665 13666 13667 13668 13669 13676 13677 13678 13679 13680 13681 13682 13683 13684 13685 13686 13693 13694 13695 13696 13697 13698 13699 13700 13701 13702 13703 13710 13711 13712 13713 13714 13715 13716 13717 13718 13719 13720 13727 13728 13729 13730 13731 13732 13733 13734 13735 13736 13737 13746# 13748 13749 13750 13751 13779 13780 13781 13782 13783 13784 13785 13786 13787 13788 13789 13790 13796 13797 13798 13799 13800 13801 13802 13803 13804 13805 13806 13807 13813 13814 13815 13816 13817 13818 13819 13820 13821 13822 13823 13824 13830 13831 13832 13833 13834 13835 13836 13837 13838 13839 13840 13841 13847 13848 13849 13850 13851 13852 13853 13854 13855 13856 13857 13858 13868# 13870 13871 13872 13873 13898 13899 13900 13901 13902 13903 13904 13905 13906 13912 13913 13914 13915 13916 13917 13918 13919 13920 13926 13927 13928 13929 13930 13931 13932 13933 13934 13940 13941 13942 13943 13944 13945 13946 13947 13948 13954 13955 13956 SEQ 0374 13957 13958 13959 13960 13961 13962 13971# 13973 13974 13975 13976 13996 13997 13998 13999 14000 14001 14006 14007 14008 14009 14010 14011 14016 14017 14018 14019 14020 14021 14026 14027 14028 14029 14030 14031 14036 14037 14038 14039 14040 14041 14050# 14052 14053 14054 14055 14081 14082 14083 14084 14085 14086 14087 14088 14089 14090 14091 14092 14097 14098 14099 14100 14101 14102 14103 14104 14105 14106 14107 14108 14113 14114 14115 14116 14117 14118 14119 14120 14121 14122 14123 14124 14129 14130 14131 14132 14133 14134 14135 14136 14137 14138 14139 14140 14145 14146 14147 14148 14149 14150 14151 14152 14153 14154 14155 14156 14165# 14167 14168 14169 14170 14191 14192 14193 14194 14195 14196 14197 14198 14203 14204 14205 14206 14207 14208 14209 14210 14215 14216 14217 14218 14219 14220 14221 14222 14227 14228 14229 14230 14231 14232 14233 14234 14239 14240 14241 14242 14243 14244 14245 14246 14258# 14260 14261 14262 14263 14284 14285 14286 14287 14288 14289 14290 14291 14296 14297 14298 14299 14300 14301 14302 14303 14308 14309 14310 14311 14312 14313 14314 14315 14320 14321 14322 14323 14324 14325 14326 14327 14332 14333 14334 14335 14336 14337 14338 14339 14344 14345 14346 14347 14348 14349 14350 14351 14356 14357 14358 14359 14360 14361 14362 14363 14368 14369 14370 14371 14372 14373 14374 14375 14380 14381 14382 14383 14384 14385 14386 14387 14392 14393 14394 14395 14396 14397 14398 14399 14404 14405 14406 14407 14408 14409 14410 14411 14416 14417 14418 14419 14420 14421 14422 14423 14428 14429 14430 14431 14432 14433 14434 14435 14440 14441 14442 14443 14444 14445 14446 14447 14452 14453 14454 14455 14456 14457 14458 14459 14464 14465 14466 14467 14468 14469 14470 14471 14476 14477 14478 14479 14480 14481 14482 14483 14488 14489 14490 14491 14492 14493 14494 14495 14516 14517 14518 14519 14520 14521 14522 14523 14528 14529 14530 14531 14532 14533 14534 14535 14540 14541 14542 14543 14544 14545 14546 14547 14552 14553 14554 14555 14556 14557 14558 14559 14564 14565 14566 14567 14568 14569 14570 14571 14576 14577 14578 14579 14580 14581 14582 14583 14588 14589 14590 14591 14592 14593 14594 14595 14600 14601 14602 14603 14604 14605 14606 14607 14612 14613 14614 14615 14616 14617 14618 14619 14624 14625 14626 14627 14628 14629 14630 14631 14636 14637 14638 14639 14640 14641 14642 14643 14648 14649 14650 14651 14652 14653 14654 14655 14660 14661 14662 14663 14664 14665 14666 14667 14672 14673 14674 14675 14676 14677 14678 14679 14684 14685 14686 14687 14688 14689 14690 14691 14696 14697 14698 14699 14700 14701 14702 14703 14708 14709 14710 14711 14712 14713 14714 14715 14727# 14729 14730 14731 14732 14756 14757 14758 14759 14760 14761 14762 14763 14764 14765 14766 14771 14772 14773 14774 14775 14776 14777 14778 14779 14780 14781 14786 14787 14788 14789 14790 14791 14792 14793 14794 14795 14796 14801 14802 14803 14804 14805 14806 14807 14808 14809 14810 14811 14816 14817 14818 14819 14820 14821 14822 14823 14824 14825 14826 14831 14832 14833 14834 14835 14836 14837 14838 14839 14840 14841 14846 14847 14848 14849 14850 14851 14852 14853 14854 14855 14856 14861 14862 14863 14864 14865 14866 14867 14868 14869 14870 14871 14876 14877 14878 14879 14880 14881 14882 14883 14884 14885 14886 14891 14892 14893 14894 14895 14896 14897 14898 14899 14900 14901 14906 14907 14908 14909 14910 14911 14912 14913 14914 14915 14916 14921 14922 14923 14924 14925 14926 14927 14928 14929 14930 14931 14936 14937 14938 14939 14940 14941 14942 14943 14944 14945 14946 14951 14952 14953 14954 14955 14956 14957 14958 14959 14960 14961 14966 14967 14968 14969 14970 14971 14972 14973 14974 14975 14976 14981 14982 14983 14984 14985 14986 14987 14988 14989 14990 14991 14996 14997 14998 14999 15000 15001 15002 15003 15004 15005 15006 15011 15012 15013 15014 15015 15016 15017 15018 15019 15020 15021 15045 15046 15047 15048 15049 15050 15051 15052 15053 15054 15055 15060 15061 15062 15063 15064 15065 15066 15067 15068 15069 15070 15075 15076 15077 15078 15079 15080 15081 15082 15083 15084 15085 15090 15091 15092 15093 15094 15095 15096 15097 15098 15099 15100 15105 15106 15107 15108 15109 15110 15111 15112 15113 15114 15115 15120 15121 15122 15123 15124 15125 15126 15127 15128 15129 15130 15135 15136 15137 15138 15139 15140 15141 15142 15143 15144 15145 15150 15151 15152 15153 15154 15155 15156 15157 15158 15159 15160 15165 15166 15167 15168 15169 15170 15171 15172 15173 15174 15175 15180 15181 15182 15183 SEQ 0375 15184 15185 15186 15187 15188 15189 15190 15195 15196 15197 15198 15199 15200 15201 15202 15203 15204 15205 15210 15211 15212 15213 15214 15215 15216 15217 15218 15219 15220 15225 15226 15227 15228 15229 15230 15231 15232 15233 15234 15235 15240 15241 15242 15243 15244 15245 15246 15247 15248 15249 15250 15255 15256 15257 15258 15259 15260 15261 15262 15263 15264 15265 15270 15271 15272 15273 15274 15275 15276 15277 15278 15279 15280 15285 15286 15287 15288 15289 15290 15291 15292 15293 15294 15295 15305# 15307 15308 15309 15310 15332 15333 15334 15335 15336 15337 15338 15339 15344 15345 15346 15347 15348 15349 15350 15351 15356 15357 15358 15359 15360 15361 15362 15363 15368 15369 15370 15371 15372 15373 15374 15375 15380 15381 15382 15383 15384 15385 15386 15387 15392 15393 15394 15395 15396 15397 15398 15399 15404 15405 15406 15407 15408 15409 15410 15411 15416 15417 15418 15419 15420 15421 15422 15423 15428 15429 15430 15431 15432 15433 15434 15435 15440 15441 15442 15443 15444 15445 15446 15447 15457# 15459 15460 15461 15462 15492 15493 15494 15495 15496 15497 15498 15499 15500 15501 15502 15503 15510 15511 15512 15513 15514 15515 15516 15517 15518 15519 15520 15521 15528 15529 15530 15531 15532 15533 15534 15535 15536 15537 15538 15539 15546 15547 15548 15549 15550 15551 15552 15553 15554 15555 15556 15557 15564 15565 15566 15567 15568 15569 15570 15571 15572 15573 15574 15575 15585# 15587 15588 15589 15590 15615 15616 15617 15618 15619 15620 15621 15622 15623 15624 15625 15630 15631 15632 15633 15634 15635 15636 15637 15638 15639 15640 15645 15646 15647 15648 15649 15650 15651 15652 15653 15654 15655 15660 15661 15662 15663 15664 15665 15666 15667 15668 15669 15670 15675 15676 15677 15678 15679 15680 15681 15682 15683 15684 15685 15694# 15696 15697 15698 15699 15725 15726 15727 15728 15729 15730 15731 15732 15733 15734 15735 15736 15741 15742 15743 15744 15745 15746 15747 15748 15749 15750 15751 15752 15757 15758 15759 15760 15761 15762 15763 15764 15765 15766 15767 15768 15773 15774 15775 15776 15777 15778 15779 15780 15781 15782 15783 15784 15789 15790 15791 15792 15793 15794 15795 15796 15797 15798 15799 15800 15809# 15811 15812 15813 15814 15835 15836 15837 15838 15839 15840 15841 15842 15847 15848 15849 15850 15851 15852 15853 15854 15859 15860 15861 15862 15863 15864 15865 15866 15871 15872 15873 15874 15875 15876 15877 15878 15883 15884 15885 15886 15887 15888 15889 15890 15899# 15901 15902 15903 15904 15930 15931 15932 15933 15934 15935 15936 15937 15938 15939 15940 15941 15946 15947 15948 15949 15950 15951 15952 15953 15954 15955 15956 15957 15962 15963 15964 15965 15966 15967 15968 15969 15970 15971 15972 15973 15978 15979 15980 15981 15982 15983 15984 15985 15986 15987 15988 15989 15994 15995 15996 15997 15998 15999 16000 16001 16002 16003 16004 16005 16014# 16016 16017 16018 16019 16045 16046 16047 16048 16049 16050 16051 16052 16053 16054 16055 16056 16061 16062 16063 16064 16065 16066 16067 16068 16069 16070 16071 16072 16077 16078 16079 16080 16081 16082 16083 16084 16085 16086 16087 16088 16093 16094 16095 16096 16097 16098 16099 16100 16101 16102 16103 16104 16109 16110 16111 16112 16113 16114 16115 16116 16117 16118 16119 16120 ADR 752# 778 778# 788 812 812# 822 846 846# 856 880 880# 890 914 914# 924 948 948# 958 982 982# 992 1016 1016# 1026 1050 1050# 1060 1084 1084# 1094 1118 1118# 1128 1152 1152# 1162 1186 1186# 1196 1220 1220# 1230 1254 1254# 1264 1288 1288# 1298 1322 1322# 1332 1356 1356# 1366 1390 1390# 1400 1424 1424# 1434 1458 1458# 1468 1492 1492# 1502 1526 1526# 1536 1560 1560# 1570 1594 1594# 1604 1628 1628# 1638 1662 1662# 1672 1696 1696# 1706 1730 1730# 1740 1764 1764# 1774 1798 1798# 1808 1832 1832# 1842 1866 1866# 1876 1900 1900# 1910 1934 1934# 1944 1968 1968# 1978 2025 2025# 2035 2059 2059# 2069 2093 2093# 2103 2127 2127# 2137 2161 2161# 2171 2195 2195# 2205 2229 2229# 2239 2263 2263# 2273 2297 2297# 2307 2331 2331# 2341 2365 2365# 2375 2399 2399# 2409 2433 2433# 2443 2467 2467# 2477 2501 2501# 2511 2535 2535# 2545 2569 2569# 2579 2603 2603# 2613 2637 2637# 2647 2671 2671# 2681 2705 2705# 2715 2739 2739# 2749 2773 2773# 2783 2807 2807# 2817 2841 2841# 2851 2875 2875# 2885 2909 2909# 2919 2943 2943# 2953 2977 2977# 2987 SEQ 0376 3011 3011# 3021 3045 3045# 3055 3079 3079# 3089 3113 3113# 3123 3147 3147# 3157 3181 3181# 3191 3215 3215# 3225 3271 3271# 3281 3305 3305# 3315 3339 3339# 3349 3373 3373# 3383 3407 3407# 3417 3441 3441# 3451 3475 3475# 3485 3509 3509# 3519 3543 3543# 3553 3577 3577# 3587 3611 3611# 3621 3645 3645# 3655 3679 3679# 3689 3713 3713# 3723 3747 3747# 3757 3781 3781# 3791 3815 3815# 3825 3849 3849# 3859 3883 3883# 3893 3917 3917# 3927 3951 3951# 3961 3985 3985# 3995 4019 4019# 4029 4053 4053# 4063 4087 4087# 4097 4121 4121# 4131 4155 4155# 4165 4189 4189# 4199 4223 4223# 4233 4257 4257# 4267 4291 4291# 4301 4325 4325# 4335 4359 4359# 4369 4393 4393# 4403 4427 4427# 4437 4461 4461# 4471 4514 4514# 4522 4546 4546# 4554 4578 4578# 4586 4610 4610# 4618 4642 4642# 4650 4674 4674# 4682 4706 4706# 4714 4738 4738# 4746 4770 4770# 4778 4802 4802# 4810 4834 4834# 4842 4866 4866# 4874 4898 4898# 4906 4930 4930# 4938 4962 4962# 4970 4994 4994# 5002 5026 5026# 5034 5058 5058# 5066 5090 5090# 5098 5122 5122# 5130 5154 5154# 5162 5186 5186# 5194 5218 5218# 5226 5250 5250# 5258 5282 5282# 5290 5314 5314# 5322 5346 5346# 5354 5378 5378# 5386 5410 5410# 5418 5442 5442# 5450 5474 5474# 5482 5506 5506# 5514 5538 5538# 5546 5570 5570# 5578 5602 5602# 5610 5634 5634# 5642 5687 5687# 5697 5721 5721# 5731 5755 5755# 5765 5789 5789# 5799 5823 5823# 5833 5857 5857# 5867 5891 5891# 5901 5925 5925# 5935 5959 5959# 5969 5993 5993# 6003 6027 6027# 6037 6061 6061# 6071 6095 6095# 6105 6129 6129# 6139 6163 6163# 6173 6197 6197# 6207 6231 6231# 6241 6265 6265# 6275 6299 6299# 6309 6333 6333# 6343 6367 6367# 6377 6401 6401# 6411 6435 6435# 6445 6469 6469# 6479 6503 6503# 6513 6537 6537# 6547 6571 6571# 6581 6605 6605# 6615 6639 6639# 6649 6673 6673# 6683 6707 6707# 6717 6741 6741# 6751 6775 6775# 6785 6809 6809# 6819 6843 6843# 6853 6877 6877# 6887 6935 6935# 6947 6971 6971# 6983 7007 7007# 7019 7043 7043# 7055 7079 7079# 7091 7115 7115# 7127 7151 7151# 7163 7187 7187# 7199 7223 7223# 7235 7259 7259# 7271 7295 7295# 7307 7331 7331# 7343 7367 7367# 7379 7403 7403# 7415 7439 7439# 7451 7475 7475# 7487 7511 7511# 7523 7547 7547# 7559 7583 7583# 7595 7619 7619# 7631 7655 7655# 7667 7691 7691# 7703 7727 7727# 7739 7763 7763# 7775 7799 7799# 7811 7835 7835# 7847 7871 7871# 7883 7907 7907# 7919 7943 7943# 7955 7979 7979# 7991 8015 8015# 8027 8051 8051# 8063 8087 8087# 8099 8123 8123# 8135 8159 8159# 8171 8195 8195# 8207 8255 8255# 8267 8291 8291# 8303 8327 8327# 8339 8363 8363# 8375 8399 8399# 8411 8435 8435# 8447 8471 8471# 8483 8507 8507# 8519 8543 8543# 8555 8579 8579# 8591 8615 8615# 8627 8651 8651# 8663 8687 8687# 8699 8723 8723# 8735 8759 8759# 8771 8795 8795# 8807 8831 8831# 8843 8867 8867# 8879 8903 8903# 8915 8939 8939# 8951 8975 8975# 8987 9011 9011# 9023 9047 9047# 9059 9083 9083# 9095 9119 9119# 9131 9155 9155# 9167 9191 9191# 9203 9227 9227# 9239 9263 9263# 9275 9299 9299# 9311 9335 9335# 9347 9371 9371# 9383 9407 9407# 9419 9443 9443# 9455 9479 9479# 9491 9515 9515# 9527 AEE 798# 807# 832# 841# 866# 875# 900# 909# 934# 943# 968# 977# 1002# 1011# 1036# 1045# 1070# 1079# 1104# 1113# 1138# 1147# 1172# 1181# 1206# 1215# 1240# 1249# 1274# 1283# 1308# 1317# 1342# 1351# 1376# 1385# 1410# 1419# 1444# 1453# 1478# 1487# 1512# 1521# 1546# 1555# 1580# 1589# 1614# 1623# 1648# 1657# 1682# 1691# 1716# 1725# 1750# 1759# 1784# 1793# 1818# 1827# 1852# 1861# 1886# 1895# 1920# 1929# 1954# 1963# 1988# 1997# 2045# 2054# 2079# 2088# 2113# 2122# 2147# 2156# 2181# 2190# 2215# 2224# 2249# 2258# 2283# 2292# 2317# 2326# 2351# 2360# 2385# 2394# 2419# 2428# 2453# 2462# 2487# 2496# 2521# 2530# 2555# 2564# 2589# 2598# 2623# 2632# 2657# 2666# 2691# 2700# 2725# 2734# 2759# 2768# 2793# 2802# 2827# 2836# 2861# 2870# 2895# 2904# 2929# 2938# 2963# 2972# 2997# 3006# 3031# 3040# 3065# 3074# 3099# 3108# 3133# 3142# 3167# 3176# 3201# 3210# 3235# 3244# 3291# 3300# 3325# 3334# 3359# 3368# 3393# 3402# 3427# 3436# 3461# 3470# 3495# 3504# 3529# 3538# 3563# 3572# 3597# 3606# 3631# 3640# 3665# 3674# SEQ 0377 3699# 3708# 3733# 3742# 3767# 3776# 3801# 3810# 3835# 3844# 3869# 3878# 3903# 3912# 3937# 3946# 3971# 3980# 4005# 4014# 4039# 4048# 4073# 4082# 4107# 4116# 4141# 4150# 4175# 4184# 4209# 4218# 4243# 4252# 4277# 4286# 4311# 4320# 4345# 4354# 4379# 4388# 4413# 4422# 4447# 4456# 4481# 4490# 4532# 4541# 4564# 4573# 4596# 4605# 4628# 4637# 4660# 4669# 4692# 4701# 4724# 4733# 4756# 4765# 4788# 4797# 4820# 4829# 4852# 4861# 4884# 4893# 4916# 4925# 4948# 4957# 4980# 4989# 5012# 5021# 5044# 5053# 5076# 5085# 5108# 5117# 5140# 5149# 5172# 5181# 5204# 5213# 5236# 5245# 5268# 5277# 5300# 5309# 5332# 5341# 5364# 5373# 5396# 5405# 5428# 5437# 5460# 5469# 5492# 5501# 5524# 5533# 5556# 5565# 5588# 5597# 5620# 5629# 5652# 5661# 5707# 5716# 5741# 5750# 5775# 5784# 5809# 5818# 5843# 5852# 5877# 5886# 5911# 5920# 5945# 5954# 5979# 5988# 6013# 6022# 6047# 6056# 6081# 6090# 6115# 6124# 6149# 6158# 6183# 6192# 6217# 6226# 6251# 6260# 6285# 6294# 6319# 6328# 6353# 6362# 6387# 6396# 6421# 6430# 6455# 6464# 6489# 6498# 6523# 6532# 6557# 6566# 6591# 6600# 6625# 6634# 6659# 6668# 6693# 6702# 6727# 6736# 6761# 6770# 6795# 6804# 6829# 6838# 6863# 6872# 6897# 6906# 6957# 6966# 6993# 7002# 7029# 7038# 7065# 7074# 7101# 7110# 7137# 7146# 7173# 7182# 7209# 7218# 7245# 7254# 7281# 7290# 7317# 7326# 7353# 7362# 7389# 7398# 7425# 7434# 7461# 7470# 7497# 7506# 7533# 7542# 7569# 7578# 7605# 7614# 7641# 7650# 7677# 7686# 7713# 7722# 7749# 7758# 7785# 7794# 7821# 7830# 7857# 7866# 7893# 7902# 7929# 7938# 7965# 7974# 8001# 8010# 8037# 8046# 8073# 8082# 8109# 8118# 8145# 8154# 8181# 8190# 8217# 8226# 8277# 8286# 8313# 8322# 8349# 8358# 8385# 8394# 8421# 8430# 8457# 8466# 8493# 8502# 8529# 8538# 8565# 8574# 8601# 8610# 8637# 8646# 8673# 8682# 8709# 8718# 8745# 8754# 8781# 8790# 8817# 8826# 8853# 8862# 8889# 8898# 8925# 8934# 8961# 8970# 8997# 9006# 9033# 9042# 9069# 9078# 9105# 9114# 9141# 9150# 9177# 9186# 9213# 9222# 9249# 9258# 9285# 9294# 9321# 9330# 9357# 9366# 9393# 9402# 9429# 9438# 9465# 9474# 9501# 9510# 9537# 9546# ALTMGO 480# 16246 AR1 801# 835# 869# 903# 937# 971# 1005# 1039# 1073# 1107# 1141# 1175# 1209# 1243# 1277# 1311# 1345# 1379# 1413# 1447# 1481# 1515# 1549# 1583# 1617# 1651# 1685# 1719# 1753# 1787# 1821# 1855# 1889# 1923# 1957# 1991# 2048# 2082# 2116# 2150# 2184# 2218# 2252# 2286# 2320# 2354# 2388# 2422# 2456# 2490# 2524# 2558# 2592# 2626# 2660# 2694# 2728# 2762# 2796# 2830# 2864# 2898# 2932# 2966# 3000# 3034# 3068# 3102# 3136# 3170# 3204# 3238# 3294# 3328# 3362# 3396# 3430# 3464# 3498# 3532# 3566# 3600# 3634# 3668# 3702# 3736# 3770# 3804# 3838# 3872# 3906# 3940# 3974# 4008# 4042# 4076# 4110# 4144# 4178# 4212# 4246# 4280# 4314# 4348# 4382# 4416# 4450# 4484# 4535# 4567# 4599# 4631# 4663# 4695# 4727# 4759# 4791# 4823# 4855# 4887# 4919# 4951# 4983# 5015# 5047# 5079# 5111# 5143# 5175# 5207# 5239# 5271# 5303# 5335# 5367# 5399# 5431# 5463# 5495# 5527# 5559# 5591# 5623# 5655# 5710# 5744# 5778# 5812# 5846# 5880# 5914# 5948# 5982# 6016# 6050# 6084# 6118# 6152# 6186# 6220# 6254# 6288# 6322# 6356# 6390# 6424# 6458# 6492# 6526# 6560# 6594# 6628# 6662# 6696# 6730# 6764# 6798# 6832# 6866# 6900# 6960# 6996# 7032# 7068# 7104# 7140# 7176# 7212# 7248# 7284# 7320# 7356# 7392# 7428# 7464# 7500# 7536# 7572# 7608# 7644# 7680# 7716# 7752# 7788# 7824# 7860# 7896# 7932# 7968# 8004# 8040# 8076# 8112# 8148# 8184# 8220# 8280# 8316# 8352# 8388# 8424# 8460# 8496# 8532# 8568# 8604# 8640# 8676# 8712# 8748# 8784# 8820# 8856# 8892# 8928# 8964# 9000# 9036# 9072# 9108# 9144# 9180# 9216# 9252# 9288# 9324# 9360# 9396# 9432# 9468# 9504# 9540# AR2 804# 838# 872# 906# 940# 974# 1008# 1042# 1076# 1110# 1144# 1178# 1212# 1246# 1280# 1314# 1348# 1382# 1416# 1450# 1484# 1518# 1552# 1586# 1620# 1654# 1688# 1722# 1756# 1790# 1824# 1858# 1892# 1926# 1960# 1994# 2051# 2085# 2119# 2153# 2187# 2221# 2255# 2289# 2323# 2357# 2391# 2425# 2459# 2493# 2527# 2561# 2595# 2629# 2663# 2697# 2731# 2765# 2799# 2833# 2867# 2901# 2935# 2969# 3003# 3037# 3071# 3105# 3139# 3173# 3207# 3241# 3297# 3331# 3365# 3399# 3433# 3467# 3501# 3535# 3569# 3603# 3637# 3671# 3705# 3739# 3773# 3807# 3841# 3875# 3909# 3943# 3977# 4011# 4045# 4079# 4113# 4147# 4181# 4215# 4249# 4283# 4317# 4351# 4385# 4419# 4453# 4487# 4538# 4570# 4602# 4634# 4666# 4698# 4730# 4762# 4794# 4826# 4858# 4890# 4922# 4954# 4986# 5018# 5050# 5082# 5114# 5146# 5178# 5210# 5242# 5274# 5306# 5338# 5370# 5402# 5434# 5466# 5498# 5530# SEQ 0378 5562# 5594# 5626# 5658# 5713# 5747# 5781# 5815# 5849# 5883# 5917# 5951# 5985# 6019# 6053# 6087# 6121# 6155# 6189# 6223# 6257# 6291# 6325# 6359# 6393# 6427# 6461# 6495# 6529# 6563# 6597# 6631# 6665# 6699# 6733# 6767# 6801# 6835# 6869# 6903# 6963# 6999# 7035# 7071# 7107# 7143# 7179# 7215# 7251# 7287# 7323# 7359# 7395# 7431# 7467# 7503# 7539# 7575# 7611# 7647# 7683# 7719# 7755# 7791# 7827# 7863# 7899# 7935# 7971# 8007# 8043# 8079# 8115# 8151# 8187# 8223# 8283# 8319# 8355# 8391# 8427# 8463# 8499# 8535# 8571# 8607# 8643# 8679# 8715# 8751# 8787# 8823# 8859# 8895# 8931# 8967# 9003# 9039# 9075# 9111# 9147# 9183# 9219# 9255# 9291# 9327# 9363# 9399# 9435# 9471# 9507# 9543# AROV 394# AROVTP 394# AROVU 394# AST 595# ATSIN 596# BEGEND 476# 16123 BEGIN 67 68 69 72 73 74 75 76 77 345 346 407# 16682 BEGIN1 423# 477 BELL 599# BIS 394# CCA 394# CHAIN 150# CHNOFF 394# CHNON 394# CLKU 394# CLOCKF 462# CNTLC 479# CNTRP 394# COMMA 588# CONSW 463# 16181 16247 16271 CPOPJ 483# CPOPJ1 481# CRLF 280 281 583# CRLF2 284 285 585# CRY0 394# CRY1 394# CSHFLG 642# CSHMEM 643# CTRP 394# CYCL60 636# DCK 394# 11281 11299 12456 12560 12578 12752 12774 12891 12912 13233 DDTLNK 164# 421 DDTSRT 421# DEBUG 59# 16673 16674 DECVER 4# 11 26 442 DF22F 547# DIAGMN 410# DING 136# 16252 DOLLAR 602# DSKUPD 447 E 754# 799 800 808 809 833 834 842 843 867 868 876 877 901 902 910 911 935 936 944 945 969 970 978 979 1003 1004 1012 1013 1037 1038 1046 1047 1071 1072 1080 1081 1105 1106 1114 1115 1139 1140 1148 1149 1173 1174 1182 1183 1207 1208 1216 1217 1241 1242 1250 1251 1275 1276 1284 1285 1309 1310 1318 1319 1343 1344 1352 1353 1377 SEQ 0379 1378 1386 1387 1411 1412 1420 1421 1445 1446 1454 1455 1479 1480 1488 1489 1513 1514 1522 1523 1547 1548 1556 1557 1581 1582 1590 1591 1615 1616 1624 1625 1649 1650 1658 1659 1683 1684 1692 1693 1717 1718 1726 1727 1751 1752 1760 1761 1785 1786 1794 1795 1819 1820 1828 1829 1853 1854 1862 1863 1887 1888 1896 1897 1921 1922 1930 1931 1955 1956 1964 1965 1989 1990 1998 1999 2002# 2046 2047 2055 2056 2080 2081 2089 2090 2114 2115 2123 2124 2148 2149 2157 2158 2182 2183 2191 2192 2216 2217 2225 2226 2250 2251 2259 2260 2284 2285 2293 2294 2318 2319 2327 2328 2352 2353 2361 2362 2386 2387 2395 2396 2420 2421 2429 2430 2454 2455 2463 2464 2488 2489 2497 2498 2522 2523 2531 2532 2556 2557 2565 2566 2590 2591 2599 2600 2624 2625 2633 2634 2658 2659 2667 2668 2692 2693 2701 2702 2726 2727 2735 2736 2760 2761 2769 2770 2794 2795 2803 2804 2828 2829 2837 2838 2862 2863 2871 2872 2896 2897 2905 2906 2930 2931 2939 2940 2964 2965 2973 2974 2998 2999 3007 3008 3032 3033 3041 3042 3066 3067 3075 3076 3100 3101 3109 3110 3134 3135 3143 3144 3168 3169 3177 3178 3202 3203 3211 3212 3236 3237 3245 3246 3249# 3292 3293 3301 3302 3326 3327 3335 3336 3360 3361 3369 3370 3394 3395 3403 3404 3428 3429 3437 3438 3462 3463 3471 3472 3496 3497 3505 3506 3530 3531 3539 3540 3564 3565 3573 3574 3598 3599 3607 3608 3632 3633 3641 3642 3666 3667 3675 3676 3700 3701 3709 3710 3734 3735 3743 3744 3768 3769 3777 3778 3802 3803 3811 3812 3836 3837 3845 3846 3870 3871 3879 3880 3904 3905 3913 3914 3938 3939 3947 3948 3972 3973 3981 3982 4006 4007 4015 4016 4040 4041 4049 4050 4074 4075 4083 4084 4108 4109 4117 4118 4142 4143 4151 4152 4176 4177 4185 4186 4210 4211 4219 4220 4244 4245 4253 4254 4278 4279 4287 4288 4312 4313 4321 4322 4346 4347 4355 4356 4380 4381 4389 4390 4414 4415 4423 4424 4448 4449 4457 4458 4482 4483 4491 4492 4495# 4533 4534 4542 4543 4565 4566 4574 4575 4597 4598 4606 4607 4629 4630 4638 4639 4661 4662 4670 4671 4693 4694 4702 4703 4725 4726 4734 4735 4757 4758 4766 4767 4789 4790 4798 4799 4821 4822 4830 4831 4853 4854 4862 4863 4885 4886 4894 4895 4917 4918 4926 4927 4949 4950 4958 4959 4981 4982 4990 4991 5013 5014 5022 5023 5045 5046 5054 5055 5077 5078 5086 5087 5109 5110 5118 5119 5141 5142 5150 5151 5173 5174 5182 5183 5205 5206 5214 5215 5237 5238 5246 5247 5269 5270 5278 5279 5301 5302 5310 5311 5333 5334 5342 5343 5365 5366 5374 5375 5397 5398 5406 5407 5429 5430 5438 5439 5461 5462 5470 5471 5493 5494 5502 5503 5525 5526 5534 5535 5557 5558 5566 5567 5589 5590 5598 5599 5621 5622 5630 5631 5653 5654 5662 5663 5666# 5708 5709 5717 5718 5742 5743 5751 5752 5776 5777 5785 5786 5810 5811 5819 5820 5844 5845 5853 5854 5878 5879 5887 5888 5912 5913 5921 5922 5946 5947 5955 5956 5980 5981 5989 5990 6014 6015 6023 6024 6048 6049 6057 6058 6082 6083 6091 6092 6116 6117 6125 6126 6150 6151 6159 6160 6184 6185 6193 6194 6218 6219 6227 6228 6252 6253 6261 6262 6286 6287 6295 6296 6320 6321 6329 6330 6354 6355 6363 6364 6388 6389 6397 6398 6422 6423 6431 6432 6456 6457 6465 6466 6490 6491 6499 6500 6524 6525 6533 6534 6558 6559 6567 6568 6592 6593 6601 6602 6626 6627 6635 6636 6660 6661 6669 6670 6694 6695 6703 6704 6728 6729 6737 6738 6762 6763 6771 6772 6796 6797 6805 6806 6830 6831 6839 6840 6864 6865 6873 6874 6898 6899 6907 6908 6911# 6958 6959 6967 6968 6994 6995 7003 7004 7030 7031 7039 7040 7066 7067 7075 7076 7102 7103 7111 7112 7138 7139 7147 7148 7174 7175 7183 7184 7210 7211 7219 7220 7246 7247 7255 7256 7282 7283 7291 7292 7318 7319 7327 7328 7354 7355 7363 7364 7390 7391 7399 7400 7426 7427 7435 7436 7462 7463 7471 7472 7498 7499 7507 7508 7534 7535 7543 7544 7570 7571 7579 7580 7606 7607 7615 7616 7642 7643 7651 7652 7678 7679 7687 7688 7714 7715 SEQ 0380 7723 7724 7750 7751 7759 7760 7786 7787 7795 7796 7822 7823 7831 7832 7858 7859 7867 7868 7894 7895 7903 7904 7930 7931 7939 7940 7966 7967 7975 7976 8002 8003 8011 8012 8038 8039 8047 8048 8074 8075 8083 8084 8110 8111 8119 8120 8146 8147 8155 8156 8182 8183 8191 8192 8218 8219 8227 8228 8231# 8278 8279 8287 8288 8314 8315 8323 8324 8350 8351 8359 8360 8386 8387 8395 8396 8422 8423 8431 8432 8458 8459 8467 8468 8494 8495 8503 8504 8530 8531 8539 8540 8566 8567 8575 8576 8602 8603 8611 8612 8638 8639 8647 8648 8674 8675 8683 8684 8710 8711 8719 8720 8746 8747 8755 8756 8782 8783 8791 8792 8818 8819 8827 8828 8854 8855 8863 8864 8890 8891 8899 8900 8926 8927 8935 8936 8962 8963 8971 8972 8998 8999 9007 9008 9034 9035 9043 9044 9070 9071 9079 9080 9106 9107 9115 9116 9142 9143 9151 9152 9178 9179 9187 9188 9214 9215 9223 9224 9250 9251 9259 9260 9286 9287 9295 9296 9322 9323 9331 9332 9358 9359 9367 9368 9394 9395 9403 9404 9430 9431 9439 9440 9466 9467 9475 9476 9502 9503 9511 9512 9538 9539 9547 9548 EBIT0 394# EBIT1 394# EBIT10 394# EBIT11 394# EBIT12 394# EBIT13 394# EBIT14 394# EBIT15 394# EBIT2 394# EBIT3 394# EBIT4 394# EBIT5 394# EBIT6 394# EBIT7 394# EBIT8 394# EBIT9 394# END 16681# ENDFIX 722# ENDSLD 16671# ERDIAG 63# 16166 ERMORE 496# 16239 EROLD 356 ERRELB 16236 ERRLOP 761# 761 2007# 2007 3254# 3254 4500# 4500 5671# 5671 6916# 6916 8236# 8236 9558# 9558 9617# 9617 9674# 9674 9725# 9725 9773# 9773 9827# 9827 9884# 9884 9949# 9949 10000# 10000 10053# 10053 10117# 10117 10189# 10189 10207# 10207 10232# 10232 10363# 10363 10467# 10467 10513# 10513 10771# 10771 10835# 10835 10898# 10898 10979# 10979 11023# 11023 11076# 11076 11123# 11123 11202# 11202 11243# 11243 11312# 11312 11374# 11374 11437# 11437 11485# 11485 11542# 11542 11596# 11596 11648# 11648 11740# 11740 11783# 11783 11837# 11837 11934# 11934 11981# 11981 12034# 12034 12087# 12087 12140# 12140 12195# 12195 12269# 12269 12291# 12291 12316# 12316 12370# 12370 12424# 12424 12470# 12470 12526# 12526 12597# 12597 12646# 12646 12704# 12704 12787# 12787 12849# 12849 12930# 12930 12992# 12992 13073# 13073 13092# 13092 13113# 13113 13174# 13174 13252# 13252 13448# 13448 13551# 13551 13630# 13630 13751# 13751 13873# 13873 13976# 13976 14055# 14055 14170# 14170 14263# 14263 14732# 14732 15310# 15310 15462# 15462 15590# 15590 15699# 15699 15814# 15814 15904# 15904 16019# 16019 16146 16257 16260 16261 ERRMES 46 47 48 49 50 51 52 53 54 55 56 16128# ERRPC 467# 16133 16163 SEQ 0381 ERRTLS 468# 16131 16264 ERSTOP 139# 16248 EXCASB 60# 445 EXIOT 394# EXIT 723# 724 F1000 9730# F10000 11547# F10300 11601# F10400 11653# F10500 11691# F1100 9779# F11300 11745# F11400 11789# F12000 11843# F12300 11892# F12600 11939# F13000 11986# F13200 12039# F13300 12092# F13500 12145# F1400 9833# F14000 12200# F14100 12243# F14200 12322# F14300 12375# F14400 12429# 12439 F14410 12442# 12458 F14500 12477# F14600 12531# F14700 12603# F15000 12652# F15100 12711# F15200 12795# F15600 12856# F15700 12936# F16100 12997# F16200 13050# F16300 13120# F16400 13179# F16410 13219# 13235 F17100 13258# F17200 13454# F17300 13556# F17400 13636# F17500 13757# F17600 13879# F17700 13982# F2000 9891# F20000 14061# F20100 14175# F20200 14268# F20300 14500# F20400 14737# SEQ 0382 F20500 15026# F20600 15316# F20700 15468# F21000 15596# F21100 15705# F21200 15819# F21300 15910# F21400 16025# F2200 9955# F2400 10005# F300 9565# F3300 10059# F4000 10123# F40010 794# 810 F40020 828# 844 F40030 862# 878 F40040 896# 912 F40050 930# 946 F40060 964# 980 F40070 998# 1014 F40100 1032# 1048 F40110 1066# 1082 F40120 1100# 1116 F40130 1134# 1150 F40140 1168# 1184 F40150 1202# 1218 F40160 1236# 1252 F40170 1270# 1286 F40200 1304# 1320 F40210 1338# 1354 F40220 1372# 1388 F40230 1406# 1422 F40240 1440# 1456 F40250 1474# 1490 F40260 1508# 1524 F40270 1542# 1558 F40300 1576# 1592 F40310 1610# 1626 F40320 1644# 1660 F40330 1678# 1694 F40340 1712# 1728 F40350 1746# 1762 F40360 1780# 1796 F40370 1814# 1830 F40400 1848# 1864 F40410 1882# 1898 F40420 1916# 1932 F40430 1950# 1966 F40440 1984# 2000 F40450 2041# 2057 F40460 2075# 2091 F40470 2109# 2125 F40500 2143# 2159 SEQ 0383 F40510 2177# 2193 F40520 2211# 2227 F40530 2245# 2261 F40540 2279# 2295 F40550 2313# 2329 F40560 2347# 2363 F40570 2381# 2397 F40600 2415# 2431 F40610 2449# 2465 F40620 2483# 2499 F40630 2517# 2533 F40640 2551# 2567 F40650 2585# 2601 F40660 2619# 2635 F40670 2653# 2669 F40700 2687# 2703 F40710 2721# 2737 F40720 2755# 2771 F40730 2789# 2805 F40740 2823# 2839 F40750 2857# 2873 F40760 2891# 2907 F40770 2925# 2941 F41000 2959# 2975 F41010 2993# 3009 F41020 3027# 3043 F41030 3061# 3077 F41040 3095# 3111 F41050 3129# 3145 F41060 3163# 3179 F41070 3197# 3213 F41100 3231# 3247 F41110 3287# 3303 F41120 3321# 3337 F41130 3355# 3371 F41140 3389# 3405 F41150 3423# 3439 F41160 3457# 3473 F41170 3491# 3507 F41200 3525# 3541 F41210 3559# 3575 F41220 3593# 3609 F41230 3627# 3643 F41240 3661# 3677 F41250 3695# 3711 F41260 3729# 3745 F41270 3763# 3779 F41300 3797# 3813 F41310 3831# 3847 F41320 3865# 3881 F41330 3899# 3915 F41340 3933# 3949 F41350 3967# 3983 SEQ 0384 F41360 4001# 4017 F41370 4035# 4051 F41400 4069# 4085 F41410 4103# 4119 F41420 4137# 4153 F41430 4171# 4187 F41440 4205# 4221 F41450 4239# 4255 F41460 4273# 4289 F41470 4307# 4323 F41500 4341# 4357 F41510 4375# 4391 F41520 4409# 4425 F41530 4443# 4459 F41540 4477# 4493 F41550 4528# 4544 F41560 4560# 4576 F41570 4592# 4608 F41600 4624# 4640 F41610 4656# 4672 F41620 4688# 4704 F41630 4720# 4736 F41640 4752# 4768 F41650 4784# 4800 F41660 4816# 4832 F41670 4848# 4864 F41700 4880# 4896 F41710 4912# 4928 F41720 4944# 4960 F41730 4976# 4992 F41740 5008# 5024 F41750 5040# 5056 F41760 5072# 5088 F41770 5104# 5120 F4200 10169# F42000 5136# 5152 F42010 5168# 5184 F42020 5200# 5216 F42030 5232# 5248 F42040 5264# 5280 F42050 5296# 5312 F42060 5328# 5344 F42070 5360# 5376 F42100 5392# 5408 F42110 5424# 5440 F42120 5456# 5472 F42130 5488# 5504 F42140 5520# 5536 F42150 5552# 5568 F42160 5584# 5600 F42170 5616# 5632 F42200 5648# 5664 F42210 5703# 5719 SEQ 0385 F42220 5737# 5753 F42230 5771# 5787 F42240 5805# 5821 F42250 5839# 5855 F42260 5873# 5889 F42270 5907# 5923 F42300 5941# 5957 F42310 5975# 5991 F42320 6009# 6025 F42330 6043# 6059 F42340 6077# 6093 F42350 6111# 6127 F42360 6145# 6161 F42370 6179# 6195 F42400 6213# 6229 F42410 6247# 6263 F42420 6281# 6297 F42430 6315# 6331 F42440 6349# 6365 F42450 6383# 6399 F42460 6417# 6433 F42470 6451# 6467 F42500 6485# 6501 F42510 6519# 6535 F42520 6553# 6569 F42530 6587# 6603 F42540 6621# 6637 F42550 6655# 6671 F42560 6689# 6705 F42570 6723# 6739 F42600 6757# 6773 F42610 6791# 6807 F42620 6825# 6841 F42630 6859# 6875 F42640 6893# 6909 F42650 6953# 6969 F42660 6989# 7005 F42670 7025# 7041 F42700 7061# 7077 F42710 7097# 7113 F42720 7133# 7149 F42730 7169# 7185 F42740 7205# 7221 F42750 7241# 7257 F42760 7277# 7293 F42770 7313# 7329 F4300 10237# F43000 7349# 7365 F43010 7385# 7401 F43020 7421# 7437 F43030 7457# 7473 F43040 7493# 7509 F43050 7529# 7545 SEQ 0386 F43060 7565# 7581 F43070 7601# 7617 F43100 7637# 7653 F43110 7673# 7689 F43120 7709# 7725 F43130 7745# 7761 F43140 7781# 7797 F43150 7817# 7833 F43160 7853# 7869 F43170 7889# 7905 F43200 7925# 7941 F43210 7961# 7977 F43220 7997# 8013 F43230 8033# 8049 F43240 8069# 8085 F43250 8105# 8121 F43260 8141# 8157 F43270 8177# 8193 F43300 8213# 8229 F43310 8273# 8289 F43320 8309# 8325 F43330 8345# 8361 F43340 8381# 8397 F43350 8417# 8433 F43360 8453# 8469 F43370 8489# 8505 F43400 8525# 8541 F43410 8561# 8577 F43420 8597# 8613 F43430 8633# 8649 F43440 8669# 8685 F43450 8705# 8721 F43460 8741# 8757 F43470 8777# 8793 F43500 8813# 8829 F43510 8849# 8865 F43520 8885# 8901 F43530 8921# 8937 F43540 8957# 8973 F43550 8993# 9009 F43560 9029# 9045 F43570 9065# 9081 F43600 9101# 9117 F43610 9137# 9153 F43620 9173# 9189 F43630 9209# 9225 F43640 9245# 9261 F43650 9281# 9297 F43660 9317# 9333 F43670 9353# 9369 F43700 9389# 9405 F43710 9425# 9441 F43720 9461# 9477 SEQ 0387 F43730 9497# 9513 F43740 9533# 9549 F4400 10287# F4500 10319# F4600 10369# F4710 10424# 10435 F4720 10443# 10456 F500 9623# F5000 10473# F5100 10519# F5200 10570# F5300 10620# F5400 10670# F5500 10714# F5600 10777# F5700 10841# F6000 10904# F6010 10954# 10965 F6100 10985# F6300 11028# F6500 11079# F6600 11128# F6700 11185# 11191 F700 9680# F7000 11206# F7100 11248# F7400 11317# F7500 11379# F7600 11443# F7700 11491# FOV 394# FOVU 394# FRDLNK 162# FSELNK 161# FXU 394# HYPEN 593# INHCSH 147# INHPAG 144# IOCLR 394# ITERAT 88# 440 ITRCH1 500# ITRCNT 440# JOB41 394# JOBAPR 394# JOBCNI 394# JOBDDT 394# JOBFF 394# JOBOPC 394# 16245 JOBREL 394# JOBREN 394# JOBSA 394# JOBSYM 394# JOBTPC 394# SEQ 0388 JOBUSY 394# JOBUUO 394# JOBVER 394# KAIFLG 457# KLFLG 458# KNTRP 394# KTRP 394# LACLK 394# LACLKE 394# LAPRAL 394# LAPRP1 394# LAPRP2 394# LAPRP3 394# LAPRP4 394# LAPRP5 394# LAPRP6 394# LAPRP7 394# LCHNOF 394# LCHNON 394# LCNTXT 394# LCNXER 394# LCPAER 394# LCPSFT 394# LCPWRF 394# LDATAF 394# LDLNK 163# 410 412 LDNXER 394# LDPAER 394# LDPSFT 394# LDPWRF 394# LEBXMH 394# LEBXML 394# LENXER 394# LEPAER 394# LEPSFT 394# LEPWRF 394# LEUPFW 394# LEXCMP 394# LFLGCL 394# LFLGDS 394# LFLGEN 394# LFLGST 394# LFP 597# LINSTF 394# LINT 394# LIOCLR 394# LLACBL 394# LLDUSB 394# LMBXMH 394# LMBXML 394# LNXMEN 394# LNXMER 394# LOOPER 138# 16250 SEQ 0389 LPAREN 394# LPARER 394# LPFWPC 394# LPGFTR 394# LPICH1 394# LPICH2 394# LPICH3 394# LPICH4 394# LPICH5 394# LPICH6 394# LPICH7 394# LPICHA 394# LPICLR 394# LPIIP1 394# LPIIP2 394# LPIIP3 394# LPIIP4 394# LPIIP5 394# LPIIP6 394# LPIIP7 394# LPIOFF 394# LPION 394# LPRCH1 394# LPRCH2 394# LPRCH3 394# LPRCH4 394# LPRCH5 394# LPRCH6 394# LPRCH7 394# LPRFMH 394# LPRFML 394# LPSFT 394# LPSFTE 394# LPWRFE 394# LPWRFL 394# LREQSE 394# LRQCLR 394# LSECMO 394# LSMODE 394# LSNXER 394# LSPAER 394# LSPSFT 394# LSPWRF 394# LTBASH 394# LTBASL 394# LTRPAE 394# LTRPEN 394# LUSCMP 394# LUUO 394# LUUO1 46# 527 528 LUUO10 53# 527 532 LUUO11 54# 527 532 LUUO12 55# 527 533 SEQ 0390 LUUO13 56# 527 533 LUUO14 527 534 LUUO15 527 534 LUUO16 527 535 LUUO17 527 535 LUUO2 47# 527 529 LUUO20 527 536 LUUO21 527 536 LUUO22 527 537 LUUO23 527 537 LUUO24 527 538 LUUO25 527 538 LUUO26 527 539 LUUO27 527 539 LUUO3 48# 527 529 LUUO30 527 540 LUUO31 527 540 LUUO32 527 541 LUUO33 527 541 LUUO4 49# 527 530 LUUO5 50# 527 530 LUUO6 51# 527 531 LUUO7 52# 527 531 LUUOI 394# LWRITE 394# MAPNEW 548# MARGIN 470# MCNVER 3# 11 26 442 MEMLOW 550# MEMMAP 448 MEMSIZ 551# MEMTOT 549# MICNT 16134# 16134 16135 16148 MINUS 592# MODDVC 146# MODDVL 345 345# 443 MODDVU 346 346# 444 MODLNK 165# 407 MONCTL 460# 16149 16262 MONFLG 459# MONTEN 461# MONTYP 674# MPVU 394# MUUO 394# MUUOPC 394# N1 755# 784 785 787 818 819 821 852 853 855 886 887 889 920 921 923 954 955 957 988 989 991 1022 1023 1025 1056 1057 1059 1090 1091 1093 1124 1125 1127 1158 1159 1161 1192 1193 1195 1226 1227 1229 1260 1261 1263 1294 1295 1297 1328 1329 1331 1362 1363 1365 1396 1397 1399 1430 1431 1433 1464 1465 1467 1498 1499 1501 1532 1533 1535 1566 1567 1569 1600 1601 1603 1634 1635 1637 1668 1669 1671 1702 1703 1705 1736 1737 1739 1770 1771 1773 1804 1805 1807 1838 1839 1841 1872 1873 1875 1906 1907 1909 1940 1941 1943 1974 1975 3224 4470 SEQ 0391 N2 756# 1976 2031 2032 2033 2065 2066 2067 2099 2100 2101 2133 2134 2135 2167 2168 2169 2201 2202 2203 2235 2236 2237 2269 2270 2271 2303 2304 2305 2337 2338 2339 2371 2372 2373 2405 2406 2407 2439 2440 2441 2473 2474 2475 2507 2508 2509 2541 2542 2543 2575 2576 2577 2609 2610 2611 2643 2644 2645 2677 2678 2679 2711 2712 2713 2745 2746 2747 2779 2780 2781 2813 2814 2815 2847 2848 2849 2881 2882 2883 2915 2916 2917 2949 2950 2951 2983 2984 2985 3017 3018 3019 3051 3052 3053 3085 3086 3087 3119 3120 3121 3153 3154 3155 3187 3188 3189 3221 3222 3277 3278 3279 3311 3312 3313 3345 3346 3347 3379 3380 3381 3413 3414 3415 3447 3448 3449 3481 3482 3483 3515 3516 3517 3549 3550 3551 3583 3584 3585 3617 3618 3619 3651 3652 3653 3685 3686 3687 3719 3720 3721 3753 3754 3755 3787 3788 3789 3821 3822 3823 3855 3856 3857 3889 3890 3891 3923 3924 3925 3957 3958 3959 3991 3992 3993 4025 4026 4027 4059 4060 4061 4093 4094 4095 4127 4128 4129 4161 4162 4163 4195 4196 4197 4229 4230 4231 4263 4264 4265 4297 4298 4299 4331 4332 4333 4365 4366 4367 4399 4400 4401 4433 4434 4435 4467 4468 NOPNT 134# 16139 NXMU 394# OPRSEL 148# OPTIME 562# P 191 192 193 194 394# 482 PAG 394# PALERS 140# 16272 PAREA0 81# PAREA1 82# 438 PAREA2 83# 439 PAREA3 84# 436 PAREA4 85# 437 PAREA5 86# 449 PAREA6 87# 450 PAREA7 449# PAREA8 450# PART2 749 753# PARU 394# PASCNT 464# 16154 16158 PATCH 16674# PDISF 559# PDLOVU 394# PDOVTP 394# PERIOD 589# PFSTRT 416# PGMEND 62# 16680 PGMNAM 441 726# PICHN1 394# PICHN2 394# PICHN3 394# PICHN4 394# PICHN5 394# PICHN6 394# PICHN7 394# PICHNA 394# PICLR 394# PIOFF 394# SEQ 0392 PION 394# PLIST 628# 628 PLISTE 628 630# PLISTS 629# PLUS 594# PNTENB 558# PNTEXT 437# PNTFLG 557# PNTINH 560# PNTLPT 135# PNTNAM 436# PNTRP 394# PNTSPC 561# PROCED 16137# 16137 16251 16258 PTRP 394# PVPAGI 655# QUEST 600# RADIX 603# RADLSC 605# RADLSP 604# RANDBS 438# REENTR 418# RELIAB 142# REPT 394# REPT1 394# REPTU 516# REQSET 394# RESRT1 493# RESRT2 494# RETURN 425# RSTART 131# RTP 598# RUNFLG 465# SADR1 67# 414 SADR10 76# 430 SADR11 77# 431 SADR2 68# 416 SADR3 69# 418 SADR4 70# SADR5 71# 479 SADR6 72# 480 SADR7 73# 427 SADR8 74# 428 SADR9 75# 429 SBINIT 204 424# SCOPE 517# SFSTRT 414# SLASH 601# SM10 705# SN 9560# 9580 9580# 9589 9591 9594 9594# 9603 9605 9619# 9638 9638# 9646 9649 9652 9652# 9660 9663 9676# 9693 9693# 9700 9702 9705 9705# 9712 9714 9727# 9742 9742# 9748 9750 9753 9753# 9759 9761 9775# 9793 9793# 9801 9803 9806 9806# 9814 9816 9829# 9848 9848# 9856 9859 9862 9862# 9870 9873 9886# 9908 SEQ 0393 9908# 9918 9921 9924 9924# 9934 9937 9951# 9968 9968# 9975 9977 9980 9980# 9987 9989 10002# 10019 10019# 10027 10029 10032 10032# 10040 10042 10055# 10076 10076# 10087 10089 10092 10092# 10103 10105 10119# 10136 10136# 10143 10145 10148 10148# 10155 10157 10166# 10183 10183# 10196 10198 10201 10201# 10214 10216 10234# 10253 10253# 10261 10263 10265 10268 10268# 10276 10278 10280 10284# 10297 10297# 10303 10306 10306# 10312 10316# 10330 10330# 10337 10340 10340# 10347 10365# 10386 10386# 10395 10397 10399 10402 10402# 10411 10413 10415 10470# 10483 10483# 10489 10492 10492# 10498 10515# 10535 10535# 10544 10547 10550 10550# 10559 10562 10566# 10586 10586# 10596 10598 10601 10601# 10611 10613 10616# 10636 10636# 10645 10648 10651 10651# 10660 10663 10667# 10684 10684# 10692 10694 10697 10697# 10705 10707 10710# 10731 10731# 10741 10744 10747 10747# 10757 10760 10773# 10794 10794# 10804 10807 10810 10810# 10820 10823 10837# 10858 10858# 10868 10871 10874 10874# 10884 10887 10900# 10921 10921# 10931 10934 10937 10937# 10947 10950 10982# 10996 10996# 11003 11006 11006# 11013 11025# 11041 11041# 11048 11050 11053 11053# 11060 11062 11077# 11089 11089# 11095 11098 11098# 11104 11125# 11147 11147# 11157 11159 11161 11165 11165# 11175 11177 11179 11204# 11216 11216# 11222 11225 11225# 11231 11245# 11267 11267# 11276 11278 11282 11285 11285# 11294 11296 11300 11314# 11334 11334# 11342 11344 11347 11350 11350# 11358 11360 11363 11376# 11396 11396# 11404 11406 11409 11412 11412# 11420 11422 11425 11440# 11455 11455# 11461 11463 11466 11466# 11472 11474 11487# 11506 11506# 11515 11517 11520 11520# 11529 11531 11544# 11560 11560# 11567 11569 11572 11572# 11579 11581 11598# 11614 11614# 11621 11623 11626 11626# 11633 11635 11650# 11665 11665# 11671 11673 11676 11676# 11682 11684 11688# 11705 11705# 11713 11715 11718 11718# 11726 11728 11742# 11755 11755# 11761 11764 11764# 11770 11785# 11803 11803# 11811 11813 11816 11816# 11824 11826 11839# 11858 11858# 11867 11869 11872 11872# 11881 11883 11889# 11904 11904# 11910 11912 11915 11915# 11921 11923 11936# 11951 11951# 11957 11959 11962 11962# 11968 11970 11983# 11999 11999# 12006 12008 12011 12011# 12018 12020 12036# 12053 12053# 12060 12063 12066 12066# 12073 12076 12089# 12106 12106# 12113 12119 12119# 12126 12142# 12158 12158# 12165 12167 12170 12170# 12177 12179 12197# 12212 12212# 12218 12220 12223 12223# 12229 12231 12239# 12262 12262# 12276 12278 12281 12284 12284# 12298 12300 12303 12319# 12335 12335# 12342 12344 12347 12347# 12354 12356 12372# 12388 12388# 12395 12397 12400 12400# 12407 12409 12473# 12491 12491# 12499 12501 12504 12504# 12512 12514 12528# 12550 12550# 12559 12561 12563 12565 12568 12568# 12577 12579 12581 12583 12600# 12615 12615# 12623 12626 12626# 12634 12648# 12667 12667# 12676 12678 12681 12681# 12690 12692 12706# 12734 12734# 12746 12748 12751 12753 12756 12756# 12768 12770 12773 12775 12790# 12810 12810# 12819 12821 12824 12824# 12833 12835 12851# 12878 12878# 12890 12892 12894 12896 12899 12899# 12911 12913 12915 12917 12932# 12952 12952# 12962 12964 12967 12967# 12977 12979 12994# 13012 13012# 13023 13026 13026# 13037 13046# 13066 13066# 13082 13085 13085# 13101 13116# 13135 13135# 13144 13146 13149 13149# 13158 13160 13176# 13192 13192# 13199 13201 13204 13204# 13211 13213 13254# 13275 13275# 13284 13286 13288 13291 13291# 13300 13302 13304 13307 13307# 13316 13318 13320 13323 13323# 13332 13334 13336 13339 13339# 13348 13350 13352 13355 13355# 13364 13366 13368 13371 13371# 13380 13382 13384 13387 13387# 13396 13398 13400 13403 13403# 13412 13414 13416 13419 13419# 13428 13430 13432 13450# 13469 13469# 13477 13480 13483 13483# 13491 13494 13497 13497# 13505 13508 13511 13511# 13519 13522 13525 13525# 13533 13536 13553# 13567 13567# 13574 13577 13577# 13584 13587 13587# 13594 13597 13597# 13604 13607 13607# 13614 13632# 13654 13654# 13664 13666 13668 13671 13671# 13681 13683 13685 13688 13688# 13698 13700 13702 13705 13705# 13715 13717 13719 13722 13722# 13732 13734 13736 13753# 13775 13775# 13785 13787 13789 13792 13792# 13802 13804 13806 13809 13809# 13819 13821 13823 13826 13826# 13836 13838 13840 13843 13843# 13853 13855 13857 13875# 13894 13894# 13903 13905 13908 13908# 13917 13919 13922 13922# 13931 13933 13936 13936# 13945 13947 13950 13950# 13959 13961 13978# 13993 13993# 14000 14003 14003# 14010 14013 14013# 14020 14023 14023# 14030 14033 14033# 14040 14057# 14078 14078# 14087 14089 14091 14094 14094# 14103 14105 14107 14110 14110# 14119 14121 14123 14126 14126# 14135 14137 14139 14142 14142# 14151 14153 14155 14172# 14188 14188# 14195 14197 14200 14200# 14207 14209 14212 14212# 14219 14221 14224 14224# SEQ 0394 14231 14233 14236 14236# 14243 14245 14265# 14281 14281# 14288 14290 14293 14293# 14300 14302 14305 14305# 14312 14314 14317 14317# 14324 14326 14329 14329# 14336 14338 14341 14341# 14348 14350 14353 14353# 14360 14362 14365 14365# 14372 14374 14377 14377# 14384 14386 14389 14389# 14396 14398 14401 14401# 14408 14410 14413 14413# 14420 14422 14425 14425# 14432 14434 14437 14437# 14444 14446 14449 14449# 14456 14458 14461 14461# 14468 14470 14473 14473# 14480 14482 14485 14485# 14492 14494 14497# 14513 14513# 14520 14522 14525 14525# 14532 14534 14537 14537# 14544 14546 14549 14549# 14556 14558 14561 14561# 14568 14570 14573 14573# 14580 14582 14585 14585# 14592 14594 14597 14597# 14604 14606 14609 14609# 14616 14618 14621 14621# 14628 14630 14633 14633# 14640 14642 14645 14645# 14652 14654 14657 14657# 14664 14666 14669 14669# 14676 14678 14681 14681# 14688 14690 14693 14693# 14700 14702 14705 14705# 14712 14714 14734# 14753 14753# 14761 14763 14765 14768 14768# 14776 14778 14780 14783 14783# 14791 14793 14795 14798 14798# 14806 14808 14810 14813 14813# 14821 14823 14825 14828 14828# 14836 14838 14840 14843 14843# 14851 14853 14855 14858 14858# 14866 14868 14870 14873 14873# 14881 14883 14885 14888 14888# 14896 14898 14900 14903 14903# 14911 14913 14915 14918 14918# 14926 14928 14930 14933 14933# 14941 14943 14945 14948 14948# 14956 14958 14960 14963 14963# 14971 14973 14975 14978 14978# 14986 14988 14990 14993 14993# 15001 15003 15005 15008 15008# 15016 15018 15020 15023# 15042 15042# 15050 15052 15054 15057 15057# 15065 15067 15069 15072 15072# 15080 15082 15084 15087 15087# 15095 15097 15099 15102 15102# 15110 15112 15114 15117 15117# 15125 15127 15129 15132 15132# 15140 15142 15144 15147 15147# 15155 15157 15159 15162 15162# 15170 15172 15174 15177 15177# 15185 15187 15189 15192 15192# 15200 15202 15204 15207 15207# 15215 15217 15219 15222 15222# 15230 15232 15234 15237 15237# 15245 15247 15249 15252 15252# 15260 15262 15264 15267 15267# 15275 15277 15279 15282 15282# 15290 15292 15294 15312# 15329 15329# 15336 15338 15341 15341# 15348 15350 15353 15353# 15360 15362 15365 15365# 15372 15374 15377 15377# 15384 15386 15389 15389# 15396 15398 15401 15401# 15408 15410 15413 15413# 15420 15422 15425 15425# 15432 15434 15437 15437# 15444 15446 15464# 15487 15487# 15498 15500 15502 15505 15505# 15516 15518 15520 15523 15523# 15534 15536 15538 15541 15541# 15552 15554 15556 15559 15559# 15570 15572 15574 15592# 15612 15612# 15620 15622 15624 15627 15627# 15635 15637 15639 15642 15642# 15650 15652 15654 15657 15657# 15665 15667 15669 15672 15672# 15680 15682 15684 15701# 15722 15722# 15731 15733 15735 15738 15738# 15747 15749 15751 15754 15754# 15763 15765 15767 15770 15770# 15779 15781 15783 15786 15786# 15795 15797 15799 15816# 15832 15832# 15839 15841 15844 15844# 15851 15853 15856 15856# 15863 15865 15868 15868# 15875 15877 15880 15880# 15887 15889 15906# 15927 15927# 15936 15938 15940 15943 15943# 15952 15954 15956 15959 15959# 15968 15970 15972 15975 15975# 15984 15986 15988 15991 15991# 16000 16002 16004 16021# 16042 16042# 16051 16053 16055 16058 16058# 16067 16069 16071 16074 16074# 16083 16085 16087 16090 16090# 16099 16101 16103 16106 16106# 16115 16117 16119 SNTRP 394# SPACE 590# SPDES 16224# SRTDDT 70 420# START 408 745# START1 427# START2 428# START3 429# START4 430# START5 431# STARTA 423 749# STRP 394# SUBLNK 166# 424 SWPTAB 711# SWTEXR 439# SYSEXR 412# SEQ 0395 TAB 591# TESTPC 466# 759 2005 3252 4498 5669 6914 8234 9556 9615 9672 9723 9771 9825 9882 9947 9998 10051 10115 10187 10205 10230 10361 10465 10511 10769 10833 10896 10977 11021 11074 11121 11200 11241 11310 11372 11435 11483 11540 11594 11646 11738 11781 11835 11932 11979 12032 12085 12138 12193 12267 12289 12314 12368 12422 12468 12524 12595 12644 12702 12785 12847 12928 12990 13071 13090 13111 13172 13250 13446 13549 13628 13749 13871 13974 14053 14168 14261 14730 15308 15460 15588 15697 15812 15902 16017 TICKS 469# TLET 747 16198 16221# TN0 394# TN1 394# TOTALS 132# TRP3TP 394# TTNBRF 649# TTYFIL 565# TTYSPD 566# TXTINH 143# 16182 UBAVEC 394# USER 456# USERF 394# USRASB 61# 446 USRCRF 575# USRLFF 574# UUODIS 528# UUOEXT 484# 16269 UUORTN 485# UUOSKP 482# V1 784# 794 795 818# 828 829 852# 862 863 886# 896 897 920# 930 931 954# 964 965 988# 998 999 1022# 1032 1033 1056# 1066 1067 1090# 1100 1101 1124# 1134 1135 1158# 1168 1169 1192# 1202 1203 1226# 1236 1237 1260# 1270 1271 1294# 1304 1305 1328# 1338 1339 1362# 1372 1373 1396# 1406 1407 1430# 1440 1441 1464# 1474 1475 1498# 1508 1509 1532# 1542 1543 1566# 1576 1577 1600# 1610 1611 1634# 1644 1645 1668# 1678 1679 1702# 1712 1713 1736# 1746 1747 1770# 1780 1781 1804# 1814 1815 1838# 1848 1849 1872# 1882 1883 1906# 1916 1917 1940# 1950 1951 1974# 1984 1985 2031# 2045 2046 2054 2055 2065# 2079 2080 2088 2089 2099# 2113 2114 2122 2123 2133# 2147 2148 2156 2157 2167# 2181 2182 2190 2191 2201# 2215 2216 2224 2225 2235# 2249 2250 2258 2259 2269# 2283 2284 2292 2293 2303# 2317 2318 2326 2327 2337# 2351 2352 2360 2361 2371# 2385 2386 2394 2395 2405# 2419 2420 2428 2429 2439# 2453 2454 2462 2463 2473# 2487 2488 2496 2497 2507# 2521 2522 2530 2531 2541# 2555 2556 2564 2565 2575# 2589 2590 2598 2599 2609# 2623 2624 2632 2633 2643# 2657 2658 2666 2667 2677# 2691 2692 2700 2701 2711# 2725 2726 2734 2735 2745# 2759 2760 2768 2769 2779# 2793 2794 2802 2803 2813# 2827 2828 2836 2837 2847# 2861 2862 2870 2871 2881# 2895 2896 2904 2905 2915# 2929 2930 2938 2939 2949# 2963 2964 2972 2973 2983# 2997 2998 3006 3007 3017# 3031 3032 3040 3041 3051# 3065 3066 3074 3075 3085# 3099 3100 3108 3109 3119# 3133 3134 3142 3143 3153# 3167 3168 3176 3177 3187# 3201 3202 3210 3211 3221# 3235 3236 3244 3245 3277# 3287 3288 3311# 3321 3322 3345# 3355 3356 3379# 3389 3390 3413# 3423 3424 3447# 3457 3458 3481# 3491 3492 3515# 3525 3526 3549# 3559 3560 3583# 3593 3594 3617# 3627 3628 3651# 3661 3662 3685# 3695 3696 3719# 3729 3730 3753# 3763 3764 3787# 3797 3798 3821# 3831 3832 3855# 3865 3866 3889# 3899 3900 3923# 3933 3934 3957# 3967 SEQ 0396 3968 3991# 4001 4002 4025# 4035 4036 4059# 4069 4070 4093# 4103 4104 4127# 4137 4138 4161# 4171 4172 4195# 4205 4206 4229# 4239 4240 4263# 4273 4274 4297# 4307 4308 4331# 4341 4342 4365# 4375 4376 4399# 4409 4410 4433# 4443 4444 4467# 4477 4478 4519# 4538 4539 4551# 4570 4571 4583# 4602 4603 4615# 4634 4635 4647# 4666 4667 4679# 4698 4699 4711# 4730 4731 4743# 4762 4763 4775# 4794 4795 4807# 4826 4827 4839# 4858 4859 4871# 4890 4891 4903# 4922 4923 4935# 4954 4955 4967# 4986 4987 4999# 5018 5019 5031# 5050 5051 5063# 5082 5083 5095# 5114 5115 5127# 5146 5147 5159# 5178 5179 5191# 5210 5211 5223# 5242 5243 5255# 5274 5275 5287# 5306 5307 5319# 5338 5339 5351# 5370 5371 5383# 5402 5403 5415# 5434 5435 5447# 5466 5467 5479# 5498 5499 5511# 5530 5531 5543# 5562 5563 5575# 5594 5595 5607# 5626 5627 5639# 5658 5659 5692# 5713 5714 5726# 5747 5748 5760# 5781 5782 5794# 5815 5816 5828# 5849 5850 5862# 5883 5884 5896# 5917 5918 5930# 5951 5952 5964# 5985 5986 5998# 6019 6020 6032# 6053 6054 6066# 6087 6088 6100# 6121 6122 6134# 6155 6156 6168# 6189 6190 6202# 6223 6224 6236# 6257 6258 6270# 6291 6292 6304# 6325 6326 6338# 6359 6360 6372# 6393 6394 6406# 6427 6428 6440# 6461 6462 6474# 6495 6496 6508# 6529 6530 6542# 6563 6564 6576# 6597 6598 6610# 6631 6632 6644# 6665 6666 6678# 6699 6700 6712# 6733 6734 6746# 6767 6768 6780# 6801 6802 6814# 6835 6836 6848# 6869 6870 6882# 6903 6904 6942# 6963 6964 6978# 6999 7000 7014# 7035 7036 7050# 7071 7072 7086# 7107 7108 7122# 7143 7144 7158# 7179 7180 7194# 7215 7216 7230# 7251 7252 7266# 7287 7288 7302# 7323 7324 7338# 7359 7360 7374# 7395 7396 7410# 7431 7432 7446# 7467 7468 7482# 7503 7504 7518# 7539 7540 7554# 7575 7576 7590# 7611 7612 7626# 7647 7648 7662# 7683 7684 7698# 7719 7720 7734# 7755 7756 7770# 7791 7792 7806# 7827 7828 7842# 7863 7864 7878# 7899 7900 7914# 7935 7936 7950# 7971 7972 7986# 8007 8008 8022# 8043 8044 8058# 8079 8080 8094# 8115 8116 8130# 8151 8152 8166# 8187 8188 8202# 8223 8224 8262# 8283 8284 8298# 8319 8320 8334# 8355 8356 8370# 8391 8392 8406# 8427 8428 8442# 8463 8464 8478# 8499 8500 8514# 8535 8536 8550# 8571 8572 8586# 8607 8608 8622# 8643 8644 8658# 8679 8680 8694# 8715 8716 8730# 8751 8752 8766# 8787 8788 8802# 8823 8824 8838# 8859 8860 8874# 8895 8896 8910# 8931 8932 8946# 8967 8968 8982# 9003 9004 9018# 9039 9040 9054# 9075 9076 9090# 9111 9112 9126# 9147 9148 9162# 9183 9184 9198# 9219 9220 9234# 9255 9256 9270# 9291 9292 9306# 9327 9328 9342# 9363 9364 9378# 9399 9400 9414# 9435 9436 9450# 9471 9472 9486# 9507 9508 9522# 9543 9544 V2 785# 804 805 819# 838 839 853# 872 873 887# 906 907 921# 940 941 955# 974 975 989# 1008 1009 1023# 1042 1043 1057# 1076 1077 1091# 1110 1111 1125# 1144 1145 1159# 1178 1179 1193# 1212 1213 1227# 1246 1247 1261# 1280 1281 1295# 1314 1315 1329# 1348 1349 1363# 1382 1383 1397# 1416 1417 1431# 1450 1451 1465# 1484 1485 1499# 1518 1519 1533# 1552 1553 1567# 1586 1587 1601# 1620 1621 1635# 1654 1655 1669# 1688 1689 1703# 1722 1723 1737# 1756 1757 1771# 1790 1791 1805# 1824 1825 1839# 1858 1859 1873# 1892 1893 1907# 1926 1927 1941# 1960 1961 1975# 1994 1995 2032# 2051 2052 2066# 2085 2086 2100# 2119 2120 2134# 2153 2154 2168# 2187 2188 2202# 2221 2222 2236# 2255 2256 2270# 2289 2290 2304# 2323 2324 2338# 2357 2358 2372# 2391 2392 2406# 2425 2426 2440# 2459 2460 2474# 2493 2494 2508# 2527 2528 2542# 2561 2562 2576# 2595 2596 2610# 2629 2630 2644# 2663 2664 2678# 2697 2698 2712# 2731 2732 2746# 2765 2766 2780# 2799 2800 2814# 2833 2834 2848# 2867 2868 2882# 2901 2902 2916# 2935 2936 2950# 2969 2970 2984# 3003 3004 3018# 3037 3038 3052# 3071 3072 3086# 3105 3106 3120# 3139 3140 3154# 3173 3174 3188# 3207 3208 3222# 3241 3242 3278# 3297 3298 3312# 3331 3332 3346# 3365 3366 3380# 3399 3400 3414# 3433 3434 3448# 3467 3468 3482# 3501 3502 3516# 3535 3536 3550# 3569 3570 3584# 3603 3604 3618# 3637 3638 3652# 3671 3672 SEQ 0397 3686# 3705 3706 3720# 3739 3740 3754# 3773 3774 3788# 3807 3808 3822# 3841 3842 3856# 3875 3876 3890# 3909 3910 3924# 3943 3944 3958# 3977 3978 3992# 4011 4012 4026# 4045 4046 4060# 4079 4080 4094# 4113 4114 4128# 4147 4148 4162# 4181 4182 4196# 4215 4216 4230# 4249 4250 4264# 4283 4284 4298# 4317 4318 4332# 4351 4352 4366# 4385 4386 4400# 4419 4420 4434# 4453 4454 4468# 4487 4488 4520# 4535 4536 4552# 4567 4568 4584# 4599 4600 4616# 4631 4632 4648# 4663 4664 4680# 4695 4696 4712# 4727 4728 4744# 4759 4760 4776# 4791 4792 4808# 4823 4824 4840# 4855 4856 4872# 4887 4888 4904# 4919 4920 4936# 4951 4952 4968# 4983 4984 5000# 5015 5016 5032# 5047 5048 5064# 5079 5080 5096# 5111 5112 5128# 5143 5144 5160# 5175 5176 5192# 5207 5208 5224# 5239 5240 5256# 5271 5272 5288# 5303 5304 5320# 5335 5336 5352# 5367 5368 5384# 5399 5400 5416# 5431 5432 5448# 5463 5464 5480# 5495 5496 5512# 5527 5528 5544# 5559 5560 5576# 5591 5592 5608# 5623 5624 5641# 5655 5656 5695# 5710 5711 5729# 5744 5745 5763# 5778 5779 5797# 5812 5813 5831# 5846 5847 5865# 5880 5881 5899# 5914 5915 5933# 5948 5949 5967# 5982 5983 6001# 6016 6017 6035# 6050 6051 6069# 6084 6085 6103# 6118 6119 6137# 6152 6153 6171# 6186 6187 6205# 6220 6221 6239# 6254 6255 6273# 6288 6289 6307# 6322 6323 6341# 6356 6357 6375# 6390 6391 6409# 6424 6425 6443# 6458 6459 6477# 6492 6493 6511# 6526 6527 6545# 6560 6561 6579# 6594 6595 6613# 6628 6629 6647# 6662 6663 6681# 6696 6697 6715# 6730 6731 6749# 6764 6765 6783# 6798 6799 6817# 6832 6833 6851# 6866 6867 6886# 6900 6901 6945# 6960 6961 6981# 6996 6997 7017# 7032 7033 7053# 7068 7069 7089# 7104 7105 7125# 7140 7141 7161# 7176 7177 7197# 7212 7213 7233# 7248 7249 7269# 7284 7285 7305# 7320 7321 7341# 7356 7357 7377# 7392 7393 7413# 7428 7429 7449# 7464 7465 7485# 7500 7501 7521# 7536 7537 7557# 7572 7573 7593# 7608 7609 7629# 7644 7645 7665# 7680 7681 7701# 7716 7717 7737# 7752 7753 7773# 7788 7789 7809# 7824 7825 7845# 7860 7861 7881# 7896 7897 7917# 7932 7933 7953# 7968 7969 7989# 8004 8005 8025# 8040 8041 8061# 8076 8077 8097# 8112 8113 8133# 8148 8149 8169# 8184 8185 8206# 8220 8221 8265# 8280 8281 8301# 8316 8317 8337# 8352 8353 8373# 8388 8389 8409# 8424 8425 8445# 8460 8461 8481# 8496 8497 8517# 8532 8533 8553# 8568 8569 8589# 8604 8605 8625# 8640 8641 8661# 8676 8677 8697# 8712 8713 8733# 8748 8749 8769# 8784 8785 8805# 8820 8821 8841# 8856 8857 8877# 8892 8893 8913# 8928 8929 8949# 8964 8965 8985# 9000 9001 9021# 9036 9037 9057# 9072 9073 9093# 9108 9109 9129# 9144 9145 9165# 9180 9181 9201# 9216 9217 9237# 9252 9253 9273# 9288 9289 9309# 9324 9325 9345# 9360 9361 9381# 9396 9397 9417# 9432 9433 9453# 9468 9469 9489# 9504 9505 9526# 9540 9541 V2A 5694# 5695 5728# 5729 5762# 5763 5796# 5797 5830# 5831 5864# 5865 5898# 5899 5932# 5933 5966# 5967 6000# 6001 6034# 6035 6068# 6069 6102# 6103 6136# 6137 6170# 6171 6204# 6205 6238# 6239 6272# 6273 6306# 6307 6340# 6341 6374# 6375 6408# 6409 6442# 6443 6476# 6477 6510# 6511 6544# 6545 6578# 6579 6612# 6613 6646# 6647 6680# 6681 6714# 6715 6748# 6749 6782# 6783 6816# 6817 6849# 6851 6884# 6943# 6945 6979# 6981 7015# 7017 7051# 7053 7087# 7089 7123# 7125 7159# 7161 7195# 7197 7231# 7233 7267# 7269 7303# 7305 7339# 7341 7375# 7377 7411# 7413 7447# 7449 7483# 7485 7519# 7521 7555# 7557 7592# 7593 7628# 7629 7664# 7665 7700# 7701 7736# 7737 7772# 7773 7808# 7809 7844# 7845 7880# 7881 7916# 7917 7952# 7953 7988# 7989 8024# 8025 8060# 8061 8096# 8097 8132# 8133 8168# 8169 8204# 8263# 8265 8299# 8301 8335# 8337 8371# 8373 8407# 8409 8443# 8445 8479# 8481 8515# 8517 8551# 8553 8587# 8589 8623# 8625 8659# 8661 8695# 8697 8731# 8733 8767# 8769 8803# 8805 8839# 8841 8875# 8877 8912# 8913 8948# 8949 8984# 8985 9020# 9021 9056# 9057 9092# 9093 9128# 9129 9164# 9165 9200# 9201 9236# 9237 9272# 9273 9308# 9309 9344# 9345 9380# 9381 9416# 9417 9452# 9453 9488# 9489 9524# V3 787# 801 802 821# 835 836 855# 869 870 889# 903 904 923# 937 SEQ 0398 938 957# 971 972 991# 1005 1006 1025# 1039 1040 1059# 1073 1074 1093# 1107 1108 1127# 1141 1142 1161# 1175 1176 1195# 1209 1210 1229# 1243 1244 1263# 1277 1278 1297# 1311 1312 1331# 1345 1346 1365# 1379 1380 1399# 1413 1414 1433# 1447 1448 1467# 1481 1482 1501# 1515 1516 1535# 1549 1550 1569# 1583 1584 1603# 1617 1618 1637# 1651 1652 1671# 1685 1686 1705# 1719 1720 1739# 1753 1754 1773# 1787 1788 1807# 1821 1822 1841# 1855 1856 1875# 1889 1890 1909# 1923 1924 1943# 1957 1958 1976# 1991 1992 2033# 2048 2049 2067# 2082 2083 2101# 2116 2117 2135# 2150 2151 2169# 2184 2185 2203# 2218 2219 2237# 2252 2253 2271# 2286 2287 2305# 2320 2321 2339# 2354 2355 2373# 2388 2389 2407# 2422 2423 2441# 2456 2457 2475# 2490 2491 2509# 2524 2525 2543# 2558 2559 2577# 2592 2593 2611# 2626 2627 2645# 2660 2661 2679# 2694 2695 2713# 2728 2729 2747# 2762 2763 2781# 2796 2797 2815# 2830 2831 2849# 2864 2865 2883# 2898 2899 2917# 2932 2933 2951# 2966 2967 2985# 3000 3001 3019# 3034 3035 3053# 3068 3069 3087# 3102 3103 3121# 3136 3137 3155# 3170 3171 3189# 3204 3205 3224# 3238 3239 3279# 3294 3295 3313# 3328 3329 3347# 3362 3363 3381# 3396 3397 3415# 3430 3431 3449# 3464 3465 3483# 3498 3499 3517# 3532 3533 3551# 3566 3567 3585# 3600 3601 3619# 3634 3635 3653# 3668 3669 3687# 3702 3703 3721# 3736 3737 3755# 3770 3771 3789# 3804 3805 3823# 3838 3839 3857# 3872 3873 3891# 3906 3907 3925# 3940 3941 3959# 3974 3975 3993# 4008 4009 4027# 4042 4043 4061# 4076 4077 4095# 4110 4111 4129# 4144 4145 4163# 4178 4179 4197# 4212 4213 4231# 4246 4247 4265# 4280 4281 4299# 4314 4315 4333# 4348 4349 4367# 4382 4383 4401# 4416 4417 4435# 4450 4451 4470# 4484 4485 WW 762# 779 779# 787 813 813# 821 847 847# 855 881 881# 889 915 915# 923 949 949# 957 983 983# 991 1017 1017# 1025 1051 1051# 1059 1085 1085# 1093 1119 1119# 1127 1153 1153# 1161 1187 1187# 1195 1221 1221# 1229 1255 1255# 1263 1289 1289# 1297 1323 1323# 1331 1357 1357# 1365 1391 1391# 1399 1425 1425# 1433 1459 1459# 1467 1493 1493# 1501 1527 1527# 1535 1561 1561# 1569 1595 1595# 1603 1629 1629# 1637 1663 1663# 1671 1697 1697# 1705 1731 1731# 1739 1765 1765# 1773 1799 1799# 1807 1833 1833# 1841 1867 1867# 1875 1901 1901# 1909 1935 1935# 1943 1969 1969# 2009# 2026 2026# 2033 2060 2060# 2067 2094 2094# 2101 2128 2128# 2135 2162 2162# 2169 2196 2196# 2203 2230 2230# 2237 2264 2264# 2271 2298 2298# 2305 2332 2332# 2339 2366 2366# 2373 2400 2400# 2407 2434 2434# 2441 2468 2468# 2475 2502 2502# 2509 2536 2536# 2543 2570 2570# 2577 2604 2604# 2611 2638 2638# 2645 2672 2672# 2679 2706 2706# 2713 2740 2740# 2747 2774 2774# 2781 2808 2808# 2815 2842 2842# 2849 2876 2876# 2883 2910 2910# 2917 2944 2944# 2951 2978 2978# 2985 3012 3012# 3019 3046 3046# 3053 3080 3080# 3087 3114 3114# 3121 3148 3148# 3155 3182 3182# 3189 3216 3216# 3255# 3272 3272# 3279 3306 3306# 3313 3340 3340# 3347 3374 3374# 3381 3408 3408# 3415 3442 3442# 3449 3476 3476# 3483 3510 3510# 3517 3544 3544# 3551 3578 3578# 3585 3612 3612# 3619 3646 3646# 3653 3680 3680# 3687 3714 3714# 3721 3748 3748# 3755 3782 3782# 3789 3816 3816# 3823 3850 3850# 3857 3884 3884# 3891 3918 3918# 3925 3952 3952# 3959 3986 3986# 3993 4020 4020# 4027 4054 4054# 4061 4088 4088# 4095 4122 4122# 4129 4156 4156# 4163 4190 4190# 4197 4224 4224# 4231 4258 4258# 4265 4292 4292# 4299 4326 4326# 4333 4360 4360# 4367 4394 4394# 4401 4428 4428# 4435 4462 4462# 12852# 12879 12879# 12883 12900 12900# 12904 XX 763# 780 780# 781 781# 785 786 787 798 799 807 808 814 814# 815 819 820 821 832 833 841 842 848 848# 849 853 854 855 866 867 875 876 882 882# 883 887 888 889 900 901 909 910 916 916# 917 921 922 923 934 935 943 944 950 950# 951 955 956 957 968 969 977 978 984 984# 985 989 990 991 1002 1003 1011 1012 1018 1018# 1019 1023 1024 1025 1036 1037 1045 1046 1052 1052# SEQ 0399 1053 1057 1058 1059 1070 1071 1079 1080 1086 1086# 1087 1091 1092 1093 1104 1105 1113 1114 1120 1120# 1121 1125 1126 1127 1138 1139 1147 1148 1154 1154# 1155 1159 1160 1161 1172 1173 1181 1182 1188 1188# 1189 1193 1194 1195 1206 1207 1215 1216 1222 1222# 1223 1227 1228 1229 1240 1241 1249 1250 1256 1256# 1257 1261 1262 1263 1274 1275 1283 1284 1290 1290# 1291 1295 1296 1297 1308 1309 1317 1318 1324 1324# 1325 1329 1330 1331 1342 1343 1351 1352 1358 1358# 1359 1363 1364 1365 1376 1377 1385 1386 1392 1392# 1393 1397 1398 1399 1410 1411 1419 1420 1426 1426# 1427 1431 1432 1433 1444 1445 1453 1454 1460 1460# 1461 1465 1466 1467 1478 1479 1487 1488 1494 1494# 1495 1499 1500 1501 1512 1513 1521 1522 1528 1528# 1529 1533 1534 1535 1546 1547 1555 1556 1562 1562# 1563 1567 1568 1569 1580 1581 1589 1590 1596 1596# 1597 1601 1602 1603 1614 1615 1623 1624 1630 1630# 1631 1635 1636 1637 1648 1649 1657 1658 1664 1664# 1665 1669 1670 1671 1682 1683 1691 1692 1698 1698# 1699 1703 1704 1705 1716 1717 1725 1726 1732 1732# 1733 1737 1738 1739 1750 1751 1759 1760 1766 1766# 1767 1771 1772 1773 1784 1785 1793 1794 1800 1800# 1801 1805 1806 1807 1818 1819 1827 1828 1834 1834# 1835 1839 1840 1841 1852 1853 1861 1862 1868 1868# 1869 1873 1874 1875 1886 1887 1895 1896 1902 1902# 1903 1907 1908 1909 1920 1921 1929 1930 1936 1936# 1937 1941 1942 1943 1954 1955 1963 1964 1970 1970# 1971 1975 1976 1977 1988 1989 1997 1998 2010# 2027 2027# 2028 2028# 2032 2033 2034 2041 2042 2061 2061# 2062 2066 2067 2068 2075 2076 2095 2095# 2096 2100 2101 2102 2109 2110 2129 2129# 2130 2134 2135 2136 2143 2144 2163 2163# 2164 2168 2169 2170 2177 2178 2197 2197# 2198 2202 2203 2204 2211 2212 2231 2231# 2232 2236 2237 2238 2245 2246 2265 2265# 2266 2270 2271 2272 2279 2280 2299 2299# 2300 2304 2305 2306 2313 2314 2333 2333# 2334 2338 2339 2340 2347 2348 2367 2367# 2368 2372 2373 2374 2381 2382 2401 2401# 2402 2406 2407 2408 2415 2416 2435 2435# 2436 2440 2441 2442 2449 2450 2469 2469# 2470 2474 2475 2476 2483 2484 2503 2503# 2504 2508 2509 2510 2517 2518 2537 2537# 2538 2542 2543 2544 2551 2552 2571 2571# 2572 2576 2577 2578 2585 2586 2605 2605# 2606 2610 2611 2612 2619 2620 2639 2639# 2640 2644 2645 2646 2653 2654 2673 2673# 2674 2678 2679 2680 2687 2688 2707 2707# 2708 2712 2713 2714 2721 2722 2741 2741# 2742 2746 2747 2748 2755 2756 2775 2775# 2776 2780 2781 2782 2789 2790 2809 2809# 2810 2814 2815 2816 2823 2824 2843 2843# 2844 2848 2849 2850 2857 2858 2877 2877# 2878 2882 2883 2884 2891 2892 2911 2911# 2912 2916 2917 2918 2925 2926 2945 2945# 2946 2950 2951 2952 2959 2960 2979 2979# 2980 2984 2985 2986 2993 2994 3013 3013# 3014 3018 3019 3020 3027 3028 3047 3047# 3048 3052 3053 3054 3061 3062 3081 3081# 3082 3086 3087 3088 3095 3096 3115 3115# 3116 3120 3121 3122 3129 3130 3149 3149# 3150 3154 3155 3156 3163 3164 3183 3183# 3184 3188 3189 3190 3197 3198 3217 3217# 3218 3222 3223 3224 3231 3232 3256# 3273 3273# 3274 3274# 3278 3279 3280 3291 3292 3300 3301 3307 3307# 3308 3312 3313 3314 3325 3326 3334 3335 3341 3341# 3342 3346 3347 3348 3359 3360 3368 3369 3375 3375# 3376 3380 3381 3382 3393 3394 3402 3403 3409 3409# 3410 3414 3415 3416 3427 3428 3436 3437 3443 3443# 3444 3448 3449 3450 3461 3462 3470 3471 3477 3477# 3478 3482 3483 3484 3495 3496 3504 3505 3511 3511# 3512 3516 3517 3518 3529 3530 3538 3539 3545 3545# 3546 3550 3551 3552 3563 3564 3572 3573 3579 3579# 3580 3584 3585 3586 3597 3598 3606 3607 3613 3613# 3614 3618 3619 3620 3631 3632 3640 3641 3647 3647# 3648 3652 3653 3654 3665 3666 3674 3675 3681 3681# 3682 3686 3687 3688 3699 3700 3708 3709 3715 3715# 3716 3720 3721 3722 3733 3734 3742 3743 3749 3749# 3750 3754 3755 3756 3767 3768 3776 3777 3783 3783# 3784 3788 3789 3790 3801 3802 3810 3811 3817 3817# 3818 3822 3823 3824 3835 3836 3844 3845 3851 3851# SEQ 0400 3852 3856 3857 3858 3869 3870 3878 3879 3885 3885# 3886 3890 3891 3892 3903 3904 3912 3913 3919 3919# 3920 3924 3925 3926 3937 3938 3946 3947 3953 3953# 3954 3958 3959 3960 3971 3972 3980 3981 3987 3987# 3988 3992 3993 3994 4005 4006 4014 4015 4021 4021# 4022 4026 4027 4028 4039 4040 4048 4049 4055 4055# 4056 4060 4061 4062 4073 4074 4082 4083 4089 4089# 4090 4094 4095 4096 4107 4108 4116 4117 4123 4123# 4124 4128 4129 4130 4141 4142 4150 4151 4157 4157# 4158 4162 4163 4164 4175 4176 4184 4185 4191 4191# 4192 4196 4197 4198 4209 4210 4218 4219 4225 4225# 4226 4230 4231 4232 4243 4244 4252 4253 4259 4259# 4260 4264 4265 4266 4277 4278 4286 4287 4293 4293# 4294 4298 4299 4300 4311 4312 4320 4321 4327 4327# 4328 4332 4333 4334 4345 4346 4354 4355 4361 4361# 4362 4366 4367 4368 4379 4380 4388 4389 4395 4395# 4396 4400 4401 4402 4413 4414 4422 4423 4429 4429# 4430 4434 4435 4436 4447 4448 4456 4457 4463 4463# 4464 4468 4469 4470 4481 4482 4490 4491 4501# 4515 4515# 4516 4516# 4519 4520 4521 4528 4529 4532 4533 4541 4542 4547 4547# 4548 4551 4552 4553 4560 4561 4564 4565 4573 4574 4579 4579# 4580 4583 4584 4585 4592 4593 4596 4597 4605 4606 4611 4611# 4612 4615 4616 4617 4624 4625 4628 4629 4637 4638 4643 4643# 4644 4647 4648 4649 4656 4657 4660 4661 4669 4670 4675 4675# 4676 4679 4680 4681 4688 4689 4692 4693 4701 4702 4707 4707# 4708 4711 4712 4713 4720 4721 4724 4725 4733 4734 4739 4739# 4740 4743 4744 4745 4752 4753 4756 4757 4765 4766 4771 4771# 4772 4775 4776 4777 4784 4785 4788 4789 4797 4798 4803 4803# 4804 4807 4808 4809 4816 4817 4820 4821 4829 4830 4835 4835# 4836 4839 4840 4841 4848 4849 4852 4853 4861 4862 4867 4867# 4868 4871 4872 4873 4880 4881 4884 4885 4893 4894 4899 4899# 4900 4903 4904 4905 4912 4913 4916 4917 4925 4926 4931 4931# 4932 4935 4936 4937 4944 4945 4948 4949 4957 4958 4963 4963# 4964 4967 4968 4969 4976 4977 4980 4981 4989 4990 4995 4995# 4996 4999 5000 5001 5008 5009 5012 5013 5021 5022 5027 5027# 5028 5031 5032 5033 5040 5041 5044 5045 5053 5054 5059 5059# 5060 5063 5064 5065 5072 5073 5076 5077 5085 5086 5091 5091# 5092 5095 5096 5097 5104 5105 5108 5109 5117 5118 5123 5123# 5124 5127 5128 5129 5136 5137 5140 5141 5149 5150 5155 5155# 5156 5159 5160 5161 5168 5169 5172 5173 5181 5182 5187 5187# 5188 5191 5192 5193 5200 5201 5204 5205 5213 5214 5219 5219# 5220 5223 5224 5225 5232 5233 5236 5237 5245 5246 5251 5251# 5252 5255 5256 5257 5264 5265 5268 5269 5277 5278 5283 5283# 5284 5287 5288 5289 5296 5297 5300 5301 5309 5310 5315 5315# 5316 5319 5320 5321 5328 5329 5332 5333 5341 5342 5347 5347# 5348 5351 5352 5353 5360 5361 5364 5365 5373 5374 5379 5379# 5380 5383 5384 5385 5392 5393 5396 5397 5405 5406 5411 5411# 5412 5415 5416 5417 5424 5425 5428 5429 5437 5438 5443 5443# 5444 5447 5448 5449 5456 5457 5460 5461 5469 5470 5475 5475# 5476 5479 5480 5481 5488 5489 5492 5493 5501 5502 5507 5507# 5508 5511 5512 5513 5520 5521 5524 5525 5533 5534 5539 5539# 5540 5543 5544 5545 5552 5553 5556 5557 5565 5566 5571 5571# 5572 5575 5576 5577 5584 5585 5588 5589 5597 5598 5603 5603# 5604 5607 5608 5609 5616 5617 5620 5621 5629 5630 5635 5635# 5636 5639 5640 5641 5648 5649 5652 5653 5661 5662 5672# 5688 5688# 5689 5689# 5692 5693 5694 5695 5696 5703 5704 5707 5708 5716 5717 5722 5722# 5723 5726 5727 5728 5729 5730 5737 5738 5741 5742 5750 5751 5756 5756# 5757 5760 5761 5762 5763 5764 5771 5772 5775 5776 5784 5785 5790 5790# 5791 5794 5795 5796 5797 5798 5805 5806 5809 5810 5818 5819 5824 5824# 5825 5828 5829 5830 5831 5832 5839 5840 5843 5844 5852 5853 5858 5858# 5859 5862 5863 5864 5865 5866 5873 5874 5877 5878 5886 5887 5892 5892# 5893 5896 5897 5898 5899 5900 5907 5908 5911 5912 5920 5921 5926 5926# 5927 5930 5931 5932 5933 5934 5941 5942 5945 5946 5954 5955 5960 5960# 5961 5964 5965 5966 SEQ 0401 5967 5968 5975 5976 5979 5980 5988 5989 5994 5994# 5995 5998 5999 6000 6001 6002 6009 6010 6013 6014 6022 6023 6028 6028# 6029 6032 6033 6034 6035 6036 6043 6044 6047 6048 6056 6057 6062 6062# 6063 6066 6067 6068 6069 6070 6077 6078 6081 6082 6090 6091 6096 6096# 6097 6100 6101 6102 6103 6104 6111 6112 6115 6116 6124 6125 6130 6130# 6131 6134 6135 6136 6137 6138 6145 6146 6149 6150 6158 6159 6164 6164# 6165 6168 6169 6170 6171 6172 6179 6180 6183 6184 6192 6193 6198 6198# 6199 6202 6203 6204 6205 6206 6213 6214 6217 6218 6226 6227 6232 6232# 6233 6236 6237 6238 6239 6240 6247 6248 6251 6252 6260 6261 6266 6266# 6267 6270 6271 6272 6273 6274 6281 6282 6285 6286 6294 6295 6300 6300# 6301 6304 6305 6306 6307 6308 6315 6316 6319 6320 6328 6329 6334 6334# 6335 6338 6339 6340 6341 6342 6349 6350 6353 6354 6362 6363 6368 6368# 6369 6372 6373 6374 6375 6376 6383 6384 6387 6388 6396 6397 6402 6402# 6403 6406 6407 6408 6409 6410 6417 6418 6421 6422 6430 6431 6436 6436# 6437 6440 6441 6442 6443 6444 6451 6452 6455 6456 6464 6465 6470 6470# 6471 6474 6475 6476 6477 6478 6485 6486 6489 6490 6498 6499 6504 6504# 6505 6508 6509 6510 6511 6512 6519 6520 6523 6524 6532 6533 6538 6538# 6539 6542 6543 6544 6545 6546 6553 6554 6557 6558 6566 6567 6572 6572# 6573 6576 6577 6578 6579 6580 6587 6588 6591 6592 6600 6601 6606 6606# 6607 6610 6611 6612 6613 6614 6621 6622 6625 6626 6634 6635 6640 6640# 6641 6644 6645 6646 6647 6648 6655 6656 6659 6660 6668 6669 6674 6674# 6675 6678 6679 6680 6681 6682 6689 6690 6693 6694 6702 6703 6708 6708# 6709 6712 6713 6714 6715 6716 6723 6724 6727 6728 6736 6737 6742 6742# 6743 6746 6747 6748 6749 6750 6757 6758 6761 6762 6770 6771 6776 6776# 6777 6780 6781 6782 6783 6784 6791 6792 6795 6796 6804 6805 6810 6810# 6811 6814 6815 6816 6817 6818 6825 6826 6829 6830 6838 6839 6844 6844# 6845 6848 6849 6850 6851 6852 6859 6860 6863 6864 6872 6873 6878 6878# 6879 6882 6883 6884 6885 6886 6893 6894 6897 6898 6906 6907 6917# 6936 6936# 6938 6938# 6942 6943 6944 6945 6946 6957 6958 6966 6967 6972 6972# 6974 6978 6979 6980 6981 6982 6993 6994 7002 7003 7008 7008# 7010 7014 7015 7016 7017 7018 7029 7030 7038 7039 7044 7044# 7046 7050 7051 7052 7053 7054 7065 7066 7074 7075 7080 7080# 7082 7086 7087 7088 7089 7090 7101 7102 7110 7111 7116 7116# 7118 7122 7123 7124 7125 7126 7137 7138 7146 7147 7152 7152# 7154 7158 7159 7160 7161 7162 7173 7174 7182 7183 7188 7188# 7190 7194 7195 7196 7197 7198 7209 7210 7218 7219 7224 7224# 7226 7230 7231 7232 7233 7234 7245 7246 7254 7255 7260 7260# 7262 7266 7267 7268 7269 7270 7281 7282 7290 7291 7296 7296# 7298 7302 7303 7304 7305 7306 7317 7318 7326 7327 7332 7332# 7334 7338 7339 7340 7341 7342 7353 7354 7362 7363 7368 7368# 7370 7374 7375 7376 7377 7378 7389 7390 7398 7399 7404 7404# 7406 7410 7411 7412 7413 7414 7425 7426 7434 7435 7440 7440# 7442 7446 7447 7448 7449 7450 7461 7462 7470 7471 7476 7476# 7478 7482 7483 7484 7485 7486 7497 7498 7506 7507 7512 7512# 7514 7518 7519 7520 7521 7522 7533 7534 7542 7543 7548 7548# 7550 7554 7555 7556 7557 7558 7569 7570 7578 7579 7584 7584# 7586 7590 7591 7592 7593 7594 7605 7606 7614 7615 7620 7620# 7622 7626 7627 7628 7629 7630 7641 7642 7650 7651 7656 7656# 7658 7662 7663 7664 7665 7666 7677 7678 7686 7687 7692 7692# 7694 7698 7699 7700 7701 7702 7713 7714 7722 7723 7728 7728# 7730 7734 7735 7736 7737 7738 7749 7750 7758 7759 7764 7764# 7766 7770 7771 7772 7773 7774 7785 7786 7794 7795 7800 7800# 7802 7806 7807 7808 7809 7810 7821 7822 7830 7831 7836 7836# 7838 7842 7843 7844 7845 7846 7857 7858 7866 7867 7872 7872# 7874 7878 7879 7880 7881 7882 7893 7894 7902 7903 7908 7908# 7910 7914 7915 7916 7917 7918 7929 7930 7938 7939 7944 7944# 7946 7950 7951 7952 7953 7954 7965 7966 7974 7975 7980 7980# 7982 7986 7987 7988 SEQ 0402 7989 7990 8001 8002 8010 8011 8016 8016# 8018 8022 8023 8024 8025 8026 8037 8038 8046 8047 8052 8052# 8054 8058 8059 8060 8061 8062 8073 8074 8082 8083 8088 8088# 8090 8094 8095 8096 8097 8098 8109 8110 8118 8119 8124 8124# 8126 8130 8131 8132 8133 8134 8145 8146 8154 8155 8160 8160# 8162 8166 8167 8168 8169 8170 8181 8182 8190 8191 8196 8196# 8198 8202 8203 8204 8205 8206 8217 8218 8226 8227 8237# 8256 8256# 8258 8258# 8262 8263 8264 8265 8266 8273 8274 8292 8292# 8294 8298 8299 8300 8301 8302 8309 8310 8328 8328# 8330 8334 8335 8336 8337 8338 8345 8346 8364 8364# 8366 8370 8371 8372 8373 8374 8381 8382 8400 8400# 8402 8406 8407 8408 8409 8410 8417 8418 8436 8436# 8438 8442 8443 8444 8445 8446 8453 8454 8472 8472# 8474 8478 8479 8480 8481 8482 8489 8490 8508 8508# 8510 8514 8515 8516 8517 8518 8525 8526 8544 8544# 8546 8550 8551 8552 8553 8554 8561 8562 8580 8580# 8582 8586 8587 8588 8589 8590 8597 8598 8616 8616# 8618 8622 8623 8624 8625 8626 8633 8634 8652 8652# 8654 8658 8659 8660 8661 8662 8669 8670 8688 8688# 8690 8694 8695 8696 8697 8698 8705 8706 8724 8724# 8726 8730 8731 8732 8733 8734 8741 8742 8760 8760# 8762 8766 8767 8768 8769 8770 8777 8778 8796 8796# 8798 8802 8803 8804 8805 8806 8813 8814 8832 8832# 8834 8838 8839 8840 8841 8842 8849 8850 8868 8868# 8870 8874 8875 8876 8877 8878 8885 8886 8904 8904# 8906 8910 8911 8912 8913 8914 8921 8922 8940 8940# 8942 8946 8947 8948 8949 8950 8957 8958 8976 8976# 8978 8982 8983 8984 8985 8986 8993 8994 9012 9012# 9014 9018 9019 9020 9021 9022 9029 9030 9048 9048# 9050 9054 9055 9056 9057 9058 9065 9066 9084 9084# 9086 9090 9091 9092 9093 9094 9101 9102 9120 9120# 9122 9126 9127 9128 9129 9130 9137 9138 9156 9156# 9158 9162 9163 9164 9165 9166 9173 9174 9192 9192# 9194 9198 9199 9200 9201 9202 9209 9210 9228 9228# 9230 9234 9235 9236 9237 9238 9245 9246 9264 9264# 9266 9270 9271 9272 9273 9274 9281 9282 9300 9300# 9302 9306 9307 9308 9309 9310 9317 9318 9336 9336# 9338 9342 9343 9344 9345 9346 9353 9354 9372 9372# 9374 9378 9379 9380 9381 9382 9389 9390 9408 9408# 9410 9414 9415 9416 9417 9418 9425 9426 9444 9444# 9446 9450 9451 9452 9453 9454 9461 9462 9480 9480# 9482 9486 9487 9488 9489 9490 9497 9498 9516 9516# 9518 9522 9523 9524 9525 9526 9533 9534 9561# 9581 9581# 9588 9595 9595# 9602 9620# 9639 9639# 9647 9653 9653# 9661 9677# 9694 9694# 9701 9706 9706# 9713 9776# 9794 9794# 9796 9796# 9807 9807# 9809 9830# 9849 9849# 9851 9863 9863# 9865 9887# 9909 9909# 9925 9925# 9953# 9970 9970# 9974 9982 9982# 9986 10003# 10020 10020# 10022 10033 10033# 10035 10056# 10077 10077# 10079 10079# 10083 10093 10093# 10095 10099 10120# 10137 10137# 10142 10149 10149# 10154 10366# 10387 10387# 10398 10403 10403# 10414 10516# 10536 10536# 10543 10551 10551# 10558 10567# 10587 10587# 10592 10602 10602# 10607 10617# 10637 10637# 10644 10652 10652# 10659 10711# 10732 10732# 10737 10748 10748# 10753 10774# 10795 10795# 10803 10811 10811# 10819 10838# 10859 10859# 10864 10875 10875# 10880 10901# 10922 10922# 10927 10938 10938# 10943 11488# 11507 11507# 11509 11509# 11521 11521# 11523 11786# 11804 11804# 11806 11817 11817# 11819 11840# 11859 11859# 11862 11873 11873# 11876 12427# 12430 12474# 12492 12492# 12498 12505 12505# 12511 12649# 12668 12668# 12670 12682 12682# 12684 12707# 12735 12735# 12741 12757 12757# 12763 12791# 12811 12811# 12816 12825 12825# 12830 12853# 12880 12880# 12886 12901 12901# 12907 12933# 12953 12953# 12963 12968 12968# 12978 13117# 13136 13136# 13138 13150 13150# 13152 13255# 13276 13276# 13279 13292 13292# 13295 13308 13308# 13311 13324 13324# 13327 13340 13340# 13343 13356 13356# 13359 13372 13372# 13375 13388 13388# 13391 13404 13404# 13407 13420 13420# 13423 13451# 13470 13470# 13473 13484 13484# 13487 13498 13498# 13501 13512 13512# 13515 13526 13526# 13529 13633# 13655 13655# 13657 13657# 13659 13672 13672# 13674 13676 13689 13689# 13691 13693 13706 13706# 13708 13710 13723 13723# 13725 13727 13754# 13776 13776# 13779 13793 13793# 13796 13810 13810# 13813 13827 13827# 13830 13844 13844# 13847 13876# 13895 13895# 13898 13909 13909# 13912 13923 13923# 13926 13937 13937# 13940 13951 13951# 13954 SEQ 0403 13979# 13994 13994# 13996 14004 14004# 14006 14014 14014# 14016 14024 14024# 14026 14034 14034# 14036 14058# 14079 14079# 14081 14095 14095# 14097 14111 14111# 14113 14127 14127# 14129 14143 14143# 14145 15313# 15330 15330# 15332 15342 15342# 15344 15354 15354# 15356 15366 15366# 15368 15378 15378# 15380 15390 15390# 15392 15402 15402# 15404 15414 15414# 15416 15426 15426# 15428 15438 15438# 15440 15465# 15488 15488# 15490 15490# 15492 15506 15506# 15508 15510 15524 15524# 15526 15528 15542 15542# 15544 15546 15560 15560# 15562 15564 15593# 15613 15613# 15615 15628 15628# 15630 15643 15643# 15645 15658 15658# 15660 15673 15673# 15675 15702# 15723 15723# 15725 15739 15739# 15741 15755 15755# 15757 15771 15771# 15773 15787 15787# 15789 15817# 15833 15833# 15837 15845 15845# 15849 15857 15857# 15861 15869 15869# 15873 15881 15881# 15885 15907# 15928 15928# 15930 15944 15944# 15946 15960 15960# 15962 15976 15976# 15978 15992 15992# 15994 16022# 16043 16043# 16045 16059 16059# 16061 16075 16075# 16077 16091 16091# 16093 16107 16107# 16109 YY 6918# 6937 6937# 6939 6939# 6942 6953 6954 6973 6973# 6975 6978 6989 6990 7009 7009# 7011 7014 7025 7026 7045 7045# 7047 7050 7061 7062 7081 7081# 7083 7086 7097 7098 7117 7117# 7119 7122 7133 7134 7153 7153# 7155 7158 7169 7170 7189 7189# 7191 7194 7205 7206 7225 7225# 7227 7230 7241 7242 7261 7261# 7263 7266 7277 7278 7297 7297# 7299 7302 7313 7314 7333 7333# 7335 7338 7349 7350 7369 7369# 7371 7374 7385 7386 7405 7405# 7407 7410 7421 7422 7441 7441# 7443 7446 7457 7458 7477 7477# 7479 7482 7493 7494 7513 7513# 7515 7518 7529 7530 7549 7549# 7551 7554 7565 7566 7585 7585# 7587 7590 7592 7601 7602 7621 7621# 7623 7626 7628 7637 7638 7657 7657# 7659 7662 7664 7673 7674 7693 7693# 7695 7698 7700 7709 7710 7729 7729# 7731 7734 7736 7745 7746 7765 7765# 7767 7770 7772 7781 7782 7801 7801# 7803 7806 7808 7817 7818 7837 7837# 7839 7842 7844 7853 7854 7873 7873# 7875 7878 7880 7889 7890 7909 7909# 7911 7914 7916 7925 7926 7945 7945# 7947 7950 7952 7961 7962 7981 7981# 7983 7986 7988 7997 7998 8017 8017# 8019 8022 8024 8033 8034 8053 8053# 8055 8058 8060 8069 8070 8089 8089# 8091 8094 8096 8105 8106 8125 8125# 8127 8130 8132 8141 8142 8161 8161# 8163 8166 8168 8177 8178 8197 8197# 8199 8202 8204 8213 8214 8238# 8257 8257# 8259 8259# 8262 8277 8278 8286 8287 8293 8293# 8295 8298 8313 8314 8322 8323 8329 8329# 8331 8334 8349 8350 8358 8359 8365 8365# 8367 8370 8385 8386 8394 8395 8401 8401# 8403 8406 8421 8422 8430 8431 8437 8437# 8439 8442 8457 8458 8466 8467 8473 8473# 8475 8478 8493 8494 8502 8503 8509 8509# 8511 8514 8529 8530 8538 8539 8545 8545# 8547 8550 8565 8566 8574 8575 8581 8581# 8583 8586 8601 8602 8610 8611 8617 8617# 8619 8622 8637 8638 8646 8647 8653 8653# 8655 8658 8673 8674 8682 8683 8689 8689# 8691 8694 8709 8710 8718 8719 8725 8725# 8727 8730 8745 8746 8754 8755 8761 8761# 8763 8766 8781 8782 8790 8791 8797 8797# 8799 8802 8817 8818 8826 8827 8833 8833# 8835 8838 8853 8854 8862 8863 8869 8869# 8871 8874 8889 8890 8898 8899 8905 8905# 8907 8910 8912 8925 8926 8934 8935 8941 8941# 8943 8946 8948 8961 8962 8970 8971 8977 8977# 8979 8982 8984 8997 8998 9006 9007 9013 9013# 9015 9018 9020 9033 9034 9042 9043 9049 9049# 9051 9054 9056 9069 9070 9078 9079 9085 9085# 9087 9090 9092 9105 9106 9114 9115 9121 9121# 9123 9126 9128 9141 9142 9150 9151 9157 9157# 9159 9162 9164 9177 9178 9186 9187 9193 9193# 9195 9198 9200 9213 9214 9222 9223 9229 9229# 9231 9234 9236 9249 9250 9258 9259 9265 9265# 9267 9270 9272 9285 9286 9294 9295 9301 9301# 9303 9306 9308 9321 9322 9330 9331 9337 9337# 9339 9342 9344 9357 9358 9366 9367 9373 9373# 9375 9378 9380 9393 9394 9402 9403 9409 9409# 9411 9414 9416 9429 9430 9438 9439 9445 9445# 9447 9450 9452 9465 9466 9474 9475 9481 9481# 9483 9486 9488 9501 9502 9510 9511 9517 9517# 9519 9522 9524 9537 9538 9546 9547 9562# 9582 9582# 9583 9583# 9590 9596 9596# 9597 9604 9888# 9910 9910# 9919 9926 9926# 9935 12708# 12736 12736# 12742 12758 12758# 12764 12792# 12812 12812# 12818 12826 12826# SEQ 0404 12832 ZZ 9563# 9584 9584# 9585 9598 9598# 9599 9621# 9640 9640# 9643 9654 9654# 9657 9678# 9695 9695# 9696 9699 9707 9707# 9708 9711 9728# 9743 9743# 9745 9754 9754# 9756 9777# 9795 9795# 9797 9808 9808# 9810 9831# 9850 9850# 9852 9864 9864# 9866 9889# 9911 9911# 9912 9912# 9913 9914 9927 9927# 9928 9929 9930 9952# 9969 9969# 9972 9981 9981# 9984 10004# 10021 10021# 10023 10034 10034# 10036 10057# 10078 10078# 10080 10080# 10084 10094 10094# 10096 10100 10121# 10138 10138# 10140 10150 10150# 10152 10235# 10254 10254# 10258 10264 10269 10269# 10273 10279 10285# 10298 10298# 10300 10307 10307# 10309 10317# 10331 10331# 10334 10341 10341# 10344 10367# 10388 10388# 10392 10404 10404# 10408 10471# 10484 10484# 10486 10493 10493# 10495 10517# 10537 10537# 10540 10552 10552# 10555 10568# 10588 10588# 10591 10603 10603# 10606 10618# 10638 10638# 10641 10653 10653# 10656 10668# 10685 10685# 10688 10698 10698# 10701 10712# 10733 10733# 10736 10749 10749# 10752 10775# 10796 10796# 10797 10797# 10800 10812 10812# 10813 10816 10839# 10860 10860# 10863 10876 10876# 10879 10902# 10923 10923# 10925 10939 10939# 10941 10983# 10997 10997# 11000 11007 11007# 11010 11026# 11042 11042# 11043 11044 11049 11054 11054# 11055 11056 11061 11078# 11090 11090# 11091 11099 11099# 11100 11126# 11148 11148# 11149 11149# 11151 11152 11166 11166# 11167 11169 11170 11205# 11217 11217# 11218 11226 11226# 11227 11246# 11268 11268# 11270 11271 11275 11277 11286 11286# 11288 11289 11293 11295 11315# 11335 11335# 11337 11338 11351 11351# 11353 11354 11377# 11397 11397# 11399 11405 11413 11413# 11415 11421 11441# 11456 11456# 11457 11460 11467 11467# 11468 11471 11489# 11508 11508# 11511 11512 11522 11522# 11525 11526 11545# 11561 11561# 11562 11563 11573 11573# 11574 11575 11599# 11615 11615# 11617 11620 11627 11627# 11629 11632 11651# 11666 11666# 11667 11670 11677 11677# 11678 11681 11689# 11706 11706# 11707 11707# 11708 11709 11719 11719# 11720 11721 11722 11743# 11756 11756# 11758 11760 11765 11765# 11767 11769 11787# 11805 11805# 11807 11818 11818# 11820 11841# 11860 11860# 11861 11861# 11863 11874 11874# 11875 11877 11890# 11905 11905# 11906 11911 11916 11916# 11917 11922 11937# 11952 11952# 11953 11956 11963 11963# 11964 11967 11984# 12000 12000# 12001 12002 12012 12012# 12013 12014 12037# 12054 12054# 12055 12056 12067 12067# 12068 12069 12090# 12107 12107# 12109 12114 12120 12120# 12122 12127 12143# 12159 12159# 12160 12161 12171 12171# 12172 12173 12198# 12213 12213# 12214 12215 12224 12224# 12225 12226 12241# 12263 12263# 12271 12277 12285 12285# 12293 12299 12320# 12336 12336# 12337 12338 12343 12348 12348# 12349 12350 12355 12373# 12389 12389# 12391 12401 12401# 12403 12426# 12432 12475# 12493 12493# 12494 12506 12506# 12507 12529# 12551 12551# 12553 12555 12562 12569 12569# 12571 12573 12580 12601# 12616 12616# 12620 12627 12627# 12631 12650# 12669 12669# 12672 12683 12683# 12686 12709# 12737 12737# 12740 12759 12759# 12762 12793# 12813 12813# 12814 12827 12827# 12828 12854# 12881 12881# 12884 12902 12902# 12905 12934# 12954 12954# 12956 12969 12969# 12971 12995# 13013 13013# 13014 13014# 13016 13018 13027 13027# 13028 13030 13032 13048# 13068 13068# 13078 13087 13087# 13097 13118# 13137 13137# 13139 13140 13151 13151# 13153 13154 13177# 13193 13193# 13194 13205 13205# 13206 13256# 13277 13277# 13278 13278# 13280 13293 13293# 13294 13296 13309 13309# 13310 13312 13325 13325# 13326 13328 13341 13341# 13342 13344 13357 13357# 13358 13360 13373 13373# 13374 13376 13389 13389# 13390 13392 13405 13405# 13406 13408 13421 13421# 13422 13424 13452# 13471 13471# 13472 13472# 13474 13478 13485 13485# 13486 13488 13492 13499 13499# 13500 13502 13506 13513 13513# 13514 13516 13520 13527 13527# 13528 13530 13534 13554# 13568 13568# 13569 13569# 13571 13578 13578# 13579 13581 13588 13588# 13589 13591 13598 13598# 13599 13601 13608 13608# 13609 13611 13634# 13656 13656# 13658 13658# 13660 13673 13673# 13675 13677 13690 13690# 13692 13694 13707 13707# 13709 13711 13724 13724# 13726 13728 13755# 13777 13777# 13778 13778# 13780 13786 13794 13794# 13795 13797 13803 13811 13811# 13812 13814 13820 13828 13828# 13829 13831 13837 13845 13845# 13846 13848 13854 13877# 13896 13896# 13897 13899 13900 13904 13910 13910# 13911 13913 13914 13918 13924 13924# 13925 13927 13928 13932 13938 13938# 13939 13941 13942 13946 13952 13952# 13953 13955 13956 13960 13980# 13995 13995# 13998 14005 14005# 14008 14015 14015# 14018 14025 14025# 14028 14035 14035# 14038 14059# 14080 14080# 14082 14083 14088 14096 14096# 14098 14099 14104 14112 14112# SEQ 0405 14114 14115 14120 14128 14128# 14130 14131 14136 14144 14144# 14146 14147 14152 14173# 14189 14189# 14190 14190# 14192 14201 14201# 14202 14204 14213 14213# 14214 14216 14225 14225# 14226 14228 14237 14237# 14238 14240 14266# 14282 14282# 14283 14283# 14284 14285 14294 14294# 14295 14296 14297 14306 14306# 14307 14308 14309 14318 14318# 14319 14320 14321 14330 14330# 14331 14332 14333 14342 14342# 14343 14344 14345 14354 14354# 14355 14356 14357 14366 14366# 14367 14368 14369 14378 14378# 14379 14380 14381 14390 14390# 14391 14392 14393 14402 14402# 14403 14404 14405 14414 14414# 14415 14416 14417 14426 14426# 14427 14428 14429 14438 14438# 14439 14440 14441 14450 14450# 14451 14452 14453 14462 14462# 14463 14464 14465 14474 14474# 14475 14476 14477 14486 14486# 14487 14488 14489 14498# 14514 14514# 14515 14515# 14516 14517 14526 14526# 14527 14528 14529 14538 14538# 14539 14540 14541 14550 14550# 14551 14552 14553 14562 14562# 14563 14564 14565 14574 14574# 14575 14576 14577 14586 14586# 14587 14588 14589 14598 14598# 14599 14600 14601 14610 14610# 14611 14612 14613 14622 14622# 14623 14624 14625 14634 14634# 14635 14636 14637 14646 14646# 14647 14648 14649 14658 14658# 14659 14660 14661 14670 14670# 14671 14672 14673 14682 14682# 14683 14684 14685 14694 14694# 14695 14696 14697 14706 14706# 14707 14708 14709 14735# 14754 14754# 14755 14755# 14756 14757 14769 14769# 14770 14771 14772 14784 14784# 14785 14786 14787 14799 14799# 14800 14801 14802 14814 14814# 14815 14816 14817 14829 14829# 14830 14831 14832 14844 14844# 14845 14846 14847 14859 14859# 14860 14861 14862 14874 14874# 14875 14876 14877 14889 14889# 14890 14891 14892 14904 14904# 14905 14906 14907 14919 14919# 14920 14921 14922 14934 14934# 14935 14936 14937 14949 14949# 14950 14951 14952 14964 14964# 14965 14966 14967 14979 14979# 14980 14981 14982 14994 14994# 14995 14996 14997 15009 15009# 15010 15011 15012 15024# 15043 15043# 15044 15044# 15045 15046 15058 15058# 15059 15060 15061 15073 15073# 15074 15075 15076 15088 15088# 15089 15090 15091 15103 15103# 15104 15105 15106 15118 15118# 15119 15120 15121 15133 15133# 15134 15135 15136 15148 15148# 15149 15150 15151 15163 15163# 15164 15165 15166 15178 15178# 15179 15180 15181 15193 15193# 15194 15195 15196 15208 15208# 15209 15210 15211 15223 15223# 15224 15225 15226 15238 15238# 15239 15240 15241 15253 15253# 15254 15255 15256 15268 15268# 15269 15270 15271 15283 15283# 15284 15285 15286 15314# 15331 15331# 15333 15343 15343# 15345 15355 15355# 15357 15367 15367# 15369 15379 15379# 15381 15391 15391# 15393 15403 15403# 15405 15415 15415# 15417 15427 15427# 15429 15439 15439# 15441 15466# 15489 15489# 15491 15491# 15493 15499 15507 15507# 15509 15511 15517 15525 15525# 15527 15529 15535 15543 15543# 15545 15547 15553 15561 15561# 15563 15565 15571 15594# 15614 15614# 15616 15629 15629# 15631 15644 15644# 15646 15659 15659# 15661 15674 15674# 15676 15703# 15724 15724# 15726 15740 15740# 15742 15756 15756# 15758 15772 15772# 15774 15788 15788# 15790 15818# 15834 15834# 15836 15846 15846# 15848 15858 15858# 15860 15870 15870# 15872 15882 15882# 15884 15908# 15929 15929# 15931 15937 15945 15945# 15947 15953 15961 15961# 15963 15969 15977 15977# 15979 15985 15993 15993# 15995 16001 16023# 16044 16044# 16046 16047 16054 16060 16060# 16062 16063 16070 16076 16076# 16078 16079 16086 16092 16092# 16094 16095 16102 16108 16108# 16110 16111 16118 $$MUUO 680# $$OUTE 686# $$TAX1 698# $$TAX2 699# $$TOGG 692# $$UUO 669# $ACC0 507# $ACF 16225# $BEND1 477# $BEND2 71 478# 16278 $CHRIN 568# $CRLF 570# $DEVCH 394# $DSKUP 447# SEQ 0406 $DVOFF 564# $EMODE 445# $FFF 572# $IBUF 620# $INEXT 622# $INNM 621# $ITRHL 488# $ITRX1 489# $LPAPE 16284 $MMAP 448# $MODVL 443# $MODVU 444# $OBUF 611# $ONETM 471# $OUTEX 613# $OUTNM 612# $PAPER 394 $PARER 495# $PNAME 441# $PSHER 499# $PVER 442# $RSRTX 491# $RSRTY 492# $SPAG1 511# $START 408# $SVAPR 509# $SVPAG 510# $SVPI 508# $SVUPC 514# 16132 16136 16162 $SVUUO 513# 16141 16173 16201 $TABF 571# $TTCHR 567# $TWCNT 563# $TYPNB 569# $UMODE 446# $UORTX 486# $USRHL 490# $UUOER 487# 528 $VTF 573# %AC1F 16226# %ACS1A 16143# 16143 16187 %ACTFL 520# %ACTUL 521# %ALF 16231# %AR1F 16230# %ARF 16229# %COREC 519# %CORFL 518# %DISCR 522# %E1F 16228# %EEF 16232# %EF 16227# %ER4X 16207 16212# SEQ 0407 %ER5X 16205 16214# %ER6X 16203 16216# %ER7X 16209# 16213 16215 16217 %ERAC0 16128# 16128 16144 16178 16268 %ERAC1 16129# 16129 16145 16256 %ERAC2 16130# 16130 16255 %ERFST 16151# 16151 16153 %ERHI1 661# %ERHI2 662# %ERHI3 663# %ERMOR 16183 16210 16239# %ERMS1 16148# 16274 %ERMS2 16171# %ERMS3 16189 16196# %ERRS1 16140 16242# 16273 %ERRS2 16255# %ERRS4 16147 16271# %ERRS5 16259 16263 16268# %ERRS6 16266 16276# %FF 16233# %FLTTB 16191 16222# %NODES 16223# .JB41 394# .JBAPR 394# .JBCNI 394# .JBDDT 394# .JBFF 394# .JBOPC 394# .JBREL 394# .JBREN 394# .JBSA 394# .JBSYM 394# .JBTPC 394# .JBUSY 394# .JBUUO 394# .JBVER 394# APRID 394# BCIO 394# SEQ 0408 BCIOB 394# BSIO 394# BSIOB 394# CFLUSH 316# CINVAL 315# CLOKOP 310# CLRPT 394# CWRTBI 317# DROPDV 277# 723 ENDUUO 323# 476 EOPUUO 324# 478 ER1 34# ER10 41# ER11 42# ER12 43# ER13 44# 10434 10455 10547 10562 10598 10613 10648 10663 10694 10707 10744 10760 10807 10823 10871 10887 10934 10950 10964 11157 11175 11280 11282 11298 11300 11347 11363 11409 11425 12281 12303 12455 12457 12559 12561 12577 12579 12751 12753 12773 12775 12890 12892 12911 12913 12962 12977 13023 13037 13082 13101 13232 13234 ER2 35# ER3 36# 803 837 871 905 939 973 1007 1041 1075 1109 1143 1177 1211 1245 1279 1313 1347 1381 1415 1449 1483 1517 1551 1585 1619 1653 1687 1721 1755 1789 1823 1857 1891 1925 1959 1993 2050 2084 2118 2152 2186 2220 2254 2288 2322 2356 2390 2424 2458 2492 2526 2560 2594 2628 2662 2696 2730 2764 2798 2832 2866 2900 2934 2968 3002 3036 3070 3104 3138 3172 3206 3240 3296 3330 3364 3398 3432 3466 3500 3534 3568 3602 3636 3670 3704 3738 3772 3806 3840 3874 3908 3942 3976 4010 4044 4078 4112 4146 4180 4214 4248 4282 4316 4350 4384 4418 4452 4486 4537 4569 4601 4633 4665 4697 4729 4761 4793 4825 4857 4889 4921 4953 4985 5017 5049 5081 5113 5145 5177 5209 5241 5273 5305 5337 5369 5401 5433 5465 5497 5529 5561 5593 5625 5657 5712 5746 5780 5814 5848 5882 5916 5950 5984 6018 6052 6086 6120 6154 6188 6222 6256 6290 6324 6358 6392 6426 6460 6494 6528 6562 6596 6630 6664 6698 6732 6766 6800 6834 6868 6902 6962 6998 7034 7070 7106 7142 7178 7214 7250 7286 7322 7358 7394 7430 7466 7502 7538 7574 7610 7646 7682 7718 7754 7790 7826 7862 7898 7934 7970 8006 8042 8078 8114 8150 8186 8222 8282 8318 8354 8390 8426 8462 8498 8534 8570 8606 8642 8678 8714 8750 8786 8822 8858 8894 8930 8966 9002 9038 9074 9110 9146 9182 9218 9254 9290 9326 9362 9398 9434 9470 9506 9542 9589 9603 9649 9663 9702 9714 9750 9761 9803 9816 9859 9873 9921 9937 9975 9987 10029 10042 10087 10103 10143 10155 10198 10216 10261 10276 10303 10312 10395 10411 10430 10449 10489 10498 10544 10559 10596 10611 10645 10660 10692 10705 10741 10757 10804 10820 10868 10884 10931 10947 10960 11003 11013 11048 11060 11095 11104 11159 11177 11190 11276 11294 11342 11358 11404 11420 11461 11472 11515 11529 11567 11579 11621 11633 11671 11682 11713 11726 11761 11770 11813 11826 11869 11883 11910 11921 11957 11968 12006 12018 12060 12073 12116 12129 12165 12177 12218 12229 12276 12298 12342 12354 12395 12407 12436 12449 12499 12512 12563 12581 12678 12692 12746 12768 12819 12833 12894 12915 12964 12979 13146 13160 13199 13211 13226 13286 13302 13318 13334 13350 13366 13382 13398 13414 13430 13477 13491 13505 13519 13533 13664 13681 13698 13715 13732 13787 13804 13821 13838 13855 13903 13917 13931 13945 13959 14000 14010 14020 14030 14040 14089 14105 14121 14137 14153 14195 14207 14219 14231 14243 14288 14300 14312 14324 14336 14348 14360 14372 14384 14396 14408 14420 14432 14444 14456 14468 14480 14492 14520 14532 14544 14556 14568 14580 14592 14604 14616 14628 14640 14652 14664 14676 14688 14700 14712 14761 14776 14791 14806 SEQ 0409 14821 14836 14851 14866 14881 14896 14911 14926 14941 14956 14971 14986 15001 15016 15050 15065 15080 15095 15110 15125 15140 15155 15170 15185 15200 15215 15230 15245 15260 15275 15290 15336 15348 15360 15372 15384 15396 15408 15420 15432 15444 15500 15518 15536 15554 15572 15620 15635 15650 15665 15680 15731 15747 15763 15779 15795 15839 15851 15863 15875 15887 15938 15954 15970 15986 16002 16051 16067 16083 16099 16115 ER4 37# 806 840 874 908 942 976 1010 1044 1078 1112 1146 1180 1214 1248 1282 1316 1350 1384 1418 1452 1486 1520 1554 1588 1622 1656 1690 1724 1758 1792 1826 1860 1894 1928 1962 1996 2053 2087 2121 2155 2189 2223 2257 2291 2325 2359 2393 2427 2461 2495 2529 2563 2597 2631 2665 2699 2733 2767 2801 2835 2869 2903 2937 2971 3005 3039 3073 3107 3141 3175 3209 3243 3299 3333 3367 3401 3435 3469 3503 3537 3571 3605 3639 3673 3707 3741 3775 3809 3843 3877 3911 3945 3979 4013 4047 4081 4115 4149 4183 4217 4251 4285 4319 4353 4387 4421 4455 4489 4540 4572 4604 4636 4668 4700 4732 4764 4796 4828 4860 4892 4924 4956 4988 5020 5052 5084 5116 5148 5180 5212 5244 5276 5308 5340 5372 5404 5436 5468 5500 5532 5564 5596 5628 5660 5715 5749 5783 5817 5851 5885 5919 5953 5987 6021 6055 6089 6123 6157 6191 6225 6259 6293 6327 6361 6395 6429 6463 6497 6531 6565 6599 6633 6667 6701 6735 6769 6803 6837 6871 6905 6965 7001 7037 7073 7109 7145 7181 7217 7253 7289 7325 7361 7397 7433 7469 7505 7541 7577 7613 7649 7685 7721 7757 7793 7829 7865 7901 7937 7973 8009 8045 8081 8117 8153 8189 8225 8285 8321 8357 8393 8429 8465 8501 8537 8573 8609 8645 8681 8717 8753 8789 8825 8861 8897 8933 8969 9005 9041 9077 9113 9149 9185 9221 9257 9293 9329 9365 9401 9437 9473 9509 9545 9591 9605 9646 9660 9700 9712 9748 9759 9801 9814 9856 9870 9918 9934 9977 9989 10027 10040 10089 10105 10145 10157 10196 10214 10263 10278 10337 10347 10397 10413 10432 10451 11161 11179 11222 11231 11278 11296 11344 11360 11406 11422 11463 11474 11517 11531 11569 11581 11623 11635 11673 11684 11715 11728 11811 11824 11867 11881 11912 11923 11959 11970 12008 12020 12063 12076 12113 12126 12167 12179 12220 12231 12278 12300 12397 12409 12438 12451 12501 12514 12565 12583 12623 12634 12676 12690 12748 12770 12821 12835 12896 12917 13201 13213 13228 13284 13300 13316 13332 13348 13364 13380 13396 13412 13428 13480 13494 13508 13522 13536 13668 13685 13702 13719 13736 13789 13806 13823 13840 13857 14091 14107 14123 14139 14155 14290 14302 14314 14326 14338 14350 14362 14374 14386 14398 14410 14422 14434 14446 14458 14470 14482 14494 14522 14534 14546 14558 14570 14582 14594 14606 14618 14630 14642 14654 14666 14678 14690 14702 14714 14763 14778 14793 14808 14823 14838 14853 14868 14883 14898 14913 14928 14943 14958 14973 14988 15003 15018 15052 15067 15082 15097 15112 15127 15142 15157 15172 15187 15202 15217 15232 15247 15262 15277 15292 15338 15350 15362 15374 15386 15398 15410 15422 15434 15446 15502 15520 15538 15556 15574 15624 15639 15654 15669 15684 15733 15749 15765 15781 15797 15841 15853 15865 15877 15889 15940 15956 15972 15988 16004 16055 16071 16087 16103 16119 ER5 38# 809 843 877 911 945 979 1013 1047 1081 1115 1149 1183 1217 1251 1285 1319 1353 1387 1421 1455 1489 1523 1557 1591 1625 1659 1693 1727 1761 1795 1829 1863 1897 1931 1965 1999 2056 2090 2124 2158 2192 2226 2260 2294 2328 2362 2396 2430 2464 2498 2532 2566 2600 2634 2668 2702 2736 2770 2804 2838 2872 2906 2940 2974 3008 3042 3076 3110 3144 3178 3212 3246 3302 3336 3370 3404 3438 3472 3506 3540 3574 3608 3642 3676 3710 3744 3778 3812 3846 3880 3914 3948 3982 4016 4050 4084 4118 4152 4186 4220 4254 4288 4322 4356 4390 4424 4458 4492 4543 4575 4607 4639 4671 4703 4735 4767 4799 4831 4863 4895 4927 4959 4991 5023 5055 5087 5119 5151 5183 5215 5247 5279 5311 5343 5375 5407 5439 5471 5503 5535 5567 5599 5631 5663 5718 5752 5786 5820 5854 5888 5922 5956 5990 6024 6058 6092 6126 6160 6194 6228 6262 6296 6330 6364 6398 6432 6466 SEQ 0410 6500 6534 6568 6602 6636 6670 6704 6738 6772 6806 6840 6874 6908 6968 7004 7040 7076 7112 7148 7184 7220 7256 7292 7328 7364 7400 7436 7472 7508 7544 7580 7616 7652 7688 7724 7760 7796 7832 7868 7904 7940 7976 8012 8048 8084 8120 8156 8192 8228 8288 8324 8360 8396 8432 8468 8504 8540 8576 8612 8648 8684 8720 8756 8792 8828 8864 8900 8936 8972 9008 9044 9080 9116 9152 9188 9224 9260 9296 9332 9368 9404 9440 9476 9512 9548 10265 10280 10399 10415 10453 10962 11050 11062 12344 12356 12453 13144 13158 13230 13288 13304 13320 13336 13352 13368 13384 13400 13416 13432 13574 13584 13594 13604 13614 13666 13683 13700 13717 13734 13785 13802 13819 13836 13853 13905 13919 13933 13947 13961 14087 14103 14119 14135 14151 14197 14209 14221 14233 14245 14765 14780 14795 14810 14825 14840 14855 14870 14885 14900 14915 14930 14945 14960 14975 14990 15005 15020 15054 15069 15084 15099 15114 15129 15144 15159 15174 15189 15204 15219 15234 15249 15264 15279 15294 15498 15516 15534 15552 15570 15622 15637 15652 15667 15682 15735 15751 15767 15783 15799 15936 15952 15968 15984 16000 16053 16069 16085 16101 16117 ER6 39# ER7 40# ERLOOP 364# ERLP1 365# ERLP2 366# ERRHLT 211# 16249 ERROR 373# ERROR1 384# ERUUO 363# FATAL 210# FRD36 352# FRD8 353# FREAD 351# FSELEC 350# GET 194# GO 191# HALT 196# 497 JEN 198# JRSTF 197# 10424 10443 10468 10538 10553 10589 10604 10639 10654 10686 10699 10734 10750 10798 10814 10861 10877 10924 10940 10954 10980 11150 11163 11168 11181 11269 11287 11336 11352 11398 11414 11438 12270 12292 12317 12442 12471 12552 12570 12598 12738 12760 12788 12882 12903 12955 12970 13015 13029 13074 13093 13114 13219 MAPADR 333# MAPCNK 334# MAPMEM 330# MAPPNT 336# MAPSET 335# MEMSEG 332# MEMZRO 331# MODPCP 343# MODPCU 342# MOP1 97# 788 822 856 890 924 958 992 1026 1060 1094 1128 1162 1196 1230 1264 1298 1332 1366 1400 1434 1468 1502 1536 1570 1604 1638 1672 1706 1740 1774 1808 1842 1876 1910 1944 1978 2035 2069 2103 2137 2171 2205 2239 2273 2307 2341 2375 2409 2443 2477 2511 2545 2579 2613 2647 2681 2715 2749 2783 2817 2851 2885 2919 2953 2987 3021 3055 3089 3123 3157 3191 3225 3281 3315 3349 3383 3417 3451 3485 3519 3553 3587 3621 3655 3689 3723 3757 3791 3825 3859 3893 3927 3961 3995 4029 4063 4097 SEQ 0411 4131 4165 4199 4233 4267 4301 4335 4369 4403 4437 4471 4522 4554 4586 4618 4650 4682 4714 4746 4778 4810 4842 4874 4906 4938 4970 5002 5034 5066 5098 5130 5162 5194 5226 5258 5290 5322 5354 5386 5418 5450 5482 5514 5546 5578 5610 5642 5697 5731 5765 5799 5833 5867 5901 5935 5969 6003 6037 6071 6105 6139 6173 6207 6241 6275 6309 6343 6377 6411 6445 6479 6513 6547 6581 6615 6649 6683 6717 6751 6785 6819 6853 6887 6947 6983 7019 7055 7091 7127 7163 7199 7235 7271 7307 7343 7379 7415 7451 7487 7523 7559 7595 7631 7667 7703 7739 7775 7811 7847 7883 7919 7955 7991 8027 8063 8099 8135 8171 8207 8267 8303 8339 8375 8411 8447 8483 8519 8555 8591 8627 8663 8699 8735 8771 8807 8843 8879 8915 8951 8987 9023 9059 9095 9131 9167 9203 9239 9275 9311 9347 9383 9419 9455 9491 9527 MTROP 311# NAME 8# 11 PBELL 286# 16253 PCRL 280# 16190 16209 PCRL2 284# PCRL2F 285# PCRLF 281# PFORCE 288# PGMINT 204# 745 PJRST 195# PMSG 290# 16156 16160 16171 16196 PMSGF 293# 16276 PNT1 246# PNT11 260# PNT11F 261# PNT1F 247# PNT2 248# PNT2F 249# PNT3 250# 16208 PNT3F 251# PNT4 252# 16212 PNT4F 253# PNT5 254# 16214 PNT5F 255# PNT6 256# 16164 16216 PNT6F 257# PNT7 258# PNT7F 259# PNTA 232# 16199 PNTADF 263# PNTADR 262# PNTAF 233# PNTAL 234# 16192 PNTALF 235# PNTCHF 245# PNTCHR 244# PNTCI 242# PNTCIF 243# PNTCW 278# PNTCWF 279# PNTDCF 271# SEQ 0412 PNTDEC 270# 16159 PNTDS 272# PNTDSF 273# PNTHW 266# 16179 PNTHWF 267# PNTMSF 239# PNTMSG 238# PNTNM 274# 16152 PNTOCF 269# PNTOCS 268# PNTOCT 264# PNTOTF 265# PNTSIX 275# PNTSXF 276# PSIXL 236# PSIXLF 237# PSIXM 240# 16157 16161 16172 16197 PSIXMF 241# 16277 PSP 282# PSPF 283# PUT 193# RDAPR 394# RDCSB 394# RDCSTM 394# RDEBR 394# RDHSB 394# RDINT 394# RDIO 394# RDIOB 394# RDPI 394# RDPUR 394# RDSPB 394# RDTIM 394# RDUBR 394# REPTUO 367# RTN 192# 484 S 122# 124 128 157 159 168 171 186 187 189 200 202 206 208 213 217 359 361 394 399 405 432 434 452 454 472 474 503 505 523 525 543 545 553 555 576 581 607 609 616 618 624 626 632 634 638 640 645 647 651 653 657 659 665 667 670 672 676 678 682 684 688 690 694 696 701 703 707 709 713 715 717 719 SAVEAC 92# 757 2003 3250 4496 5667 6912 8232 9554 9613 9670 9721 9769 9823 9880 9945 9996 10049 10113 10185 10203 10228 10359 10463 10509 10767 10831 10894 10975 11019 11072 11119 11198 11239 11308 11370 11433 11481 11538 11592 11644 11736 11779 11833 11930 11977 12030 12083 12136 12191 12265 12287 12312 12366 12420 12466 12522 12593 12642 12700 12783 12845 12926 12988 13069 13088 13109 13170 13248 13444 13547 13626 13747 13869 13972 14051 14166 14259 14728 15306 15458 15586 15695 15810 15900 16015 SIXBTZ 299# SWITCH 305# 16138 16240 TIOE 394# TIOEB 394# SEQ 0413 TION 394# TIONB 394# TTALTM 226# 16242 TTICHR 219# TTICLR 229# TTICNV 224# TTIDEC 223# TTINO 221# TTIOCT 222# TTIYES 220# TTLOOK 225# TTSIXB 227# TTYINP 228# WRAPR 394# WRCSB 394# WRCSTM 394# WREBR 394# WRHSB 394# WRINT 394# WRIO 394# WRIOB 394# WRPI 394# WRPUR 394# WRSPB 394# WRTIM 394# WRUBR 394# ANDI 16175 AOS 482 16131 16134 16260 16261 SEQ 0414 ASCII 583 585 588 589 590 591 593 594 595 596 597 598 600 601 602 ASCIZ 726 746 16225 16226 16227 16228 16229 16230 16231 16232 16233 BLOCK 551 611 614 620 623 629 16674 BYTE 599 CAIE 9974 9986 10142 10154 10264 10279 10398 10414 10543 10558 10644 10659 10803 10819 10959 10961 11049 11061 11158 11160 11176 11178 11275 11277 11293 11295 11341 11343 11357 11359 11403 11405 11419 11421 11460 11462 11471 11473 11514 11528 11620 11632 11670 11681 11760 11769 11866 11880 11911 11922 12217 12228 12275 12277 12297 12299 12343 12355 12396 12408 12448 12450 12452 12562 12580 12747 12769 12895 12916 13225 13227 13229 13904 13918 13932 13946 13960 14287 14299 14311 14323 14335 14347 14359 14371 14383 14395 14407 14419 14431 14443 14455 14467 14479 14491 14519 14531 14543 14555 14567 14579 14591 14603 14615 14627 14639 14651 14663 14675 14687 14699 14711 14764 14779 14794 14809 14824 14839 14854 14869 14884 14899 14914 14929 14944 14959 14974 14989 15004 15019 15053 15068 15083 15098 15113 15128 15143 15158 15173 15188 15203 15218 15233 15248 15263 15278 15293 15337 15349 15361 15373 15385 15397 15409 15421 15433 15445 15623 15638 15653 15668 15683 15734 15750 15766 15782 15798 15838 15840 15850 15852 15862 15864 15874 15876 15886 15888 16054 16070 16086 16102 16118 CAIG 16177 16188 CAIL 16265 CAME 802 805 808 836 839 842 870 873 876 904 907 910 938 941 944 972 975 978 1006 1009 1012 1040 1043 1046 1074 1077 1080 1108 1111 1114 1142 1145 1148 1176 1179 1182 1210 1213 1216 1244 1247 1250 1278 1281 1284 1312 1315 1318 1346 1349 1352 1380 1383 1386 1414 1417 1420 1448 1451 1454 1482 1485 1488 1516 1519 1522 1550 1553 1556 1584 1587 1590 1618 1621 1624 1652 1655 1658 1686 1689 1692 1720 1723 1726 1754 1757 1760 1788 1791 1794 1822 1825 1828 1856 1859 1862 1890 1893 1896 1924 1927 1930 1958 1961 1964 1992 1995 1998 2049 2052 2055 2083 2086 2089 2117 2120 2123 2151 2154 2157 2185 2188 2191 2219 2222 2225 2253 2256 2259 2287 2290 2293 2321 2324 2327 2355 2358 2361 2389 2392 2395 2423 2426 2429 2457 2460 2463 2491 2494 2497 2525 2528 2531 2559 2562 2565 2593 2596 2599 2627 2630 2633 2661 2664 2667 2695 2698 2701 2729 2732 2735 2763 2766 2769 2797 2800 2803 2831 2834 2837 2865 2868 2871 2899 2902 2905 2933 2936 2939 2967 2970 2973 3001 3004 3007 3035 3038 3041 3069 3072 3075 3103 3106 3109 3137 3140 3143 3171 3174 3177 3205 3208 3211 3239 3242 3245 3295 3298 3301 3329 3332 3335 3363 3366 3369 3397 3400 3403 3431 3434 3437 3465 3468 3471 3499 3502 3505 3533 3536 3539 3567 3570 3573 3601 3604 3607 3635 3638 3641 3669 3672 3675 3703 3706 3709 3737 3740 3743 3771 3774 3777 3805 3808 3811 3839 3842 3845 3873 3876 3879 3907 3910 3913 3941 3944 3947 3975 3978 3981 4009 4012 4015 4043 4046 4049 4077 4080 4083 4111 4114 4117 4145 4148 4151 4179 4182 4185 4213 4216 4219 4247 4250 4253 4281 4284 4287 4315 4318 4321 4349 4352 4355 4383 4386 4389 4417 4420 4423 4451 4454 4457 4485 4488 4491 4536 4539 4542 4568 4571 4574 4600 4603 4606 4632 4635 4638 4664 4667 4670 4696 4699 4702 4728 4731 4734 4760 4763 4766 4792 4795 4798 4824 4827 4830 4856 4859 4862 4888 4891 4894 4920 4923 4926 4952 4955 4958 4984 4987 4990 5016 5019 5022 5048 5051 5054 5080 5083 5086 5112 5115 5118 5144 5147 5150 5176 5179 5182 5208 5211 5214 5240 5243 5246 5272 5275 5278 5304 5307 5310 5336 5339 5342 5368 5371 5374 5400 5403 5406 5432 5435 5438 5464 5467 5470 5496 5499 5502 5528 5531 5534 5560 5563 5566 5592 5595 5598 5624 5627 5630 5656 5659 5662 5711 5714 5717 5745 5748 5751 5779 5782 5785 5813 5816 5819 5847 5850 5853 5881 5884 5887 5915 5918 5921 5949 5952 5955 5983 5986 5989 6017 6020 6023 SEQ 0415 6051 6054 6057 6085 6088 6091 6119 6122 6125 6153 6156 6159 6187 6190 6193 6221 6224 6227 6255 6258 6261 6289 6292 6295 6323 6326 6329 6357 6360 6363 6391 6394 6397 6425 6428 6431 6459 6462 6465 6493 6496 6499 6527 6530 6533 6561 6564 6567 6595 6598 6601 6629 6632 6635 6663 6666 6669 6697 6700 6703 6731 6734 6737 6765 6768 6771 6799 6802 6805 6833 6836 6839 6867 6870 6873 6901 6904 6907 6961 6964 6967 6997 7000 7003 7033 7036 7039 7069 7072 7075 7105 7108 7111 7141 7144 7147 7177 7180 7183 7213 7216 7219 7249 7252 7255 7285 7288 7291 7321 7324 7327 7357 7360 7363 7393 7396 7399 7429 7432 7435 7465 7468 7471 7501 7504 7507 7537 7540 7543 7573 7576 7579 7609 7612 7615 7645 7648 7651 7681 7684 7687 7717 7720 7723 7753 7756 7759 7789 7792 7795 7825 7828 7831 7861 7864 7867 7897 7900 7903 7933 7936 7939 7969 7972 7975 8005 8008 8011 8041 8044 8047 8077 8080 8083 8113 8116 8119 8149 8152 8155 8185 8188 8191 8221 8224 8227 8281 8284 8287 8317 8320 8323 8353 8356 8359 8389 8392 8395 8425 8428 8431 8461 8464 8467 8497 8500 8503 8533 8536 8539 8569 8572 8575 8605 8608 8611 8641 8644 8647 8677 8680 8683 8713 8716 8719 8749 8752 8755 8785 8788 8791 8821 8824 8827 8857 8860 8863 8893 8896 8899 8929 8932 8935 8965 8968 8971 9001 9004 9007 9037 9040 9043 9073 9076 9079 9109 9112 9115 9145 9148 9151 9181 9184 9187 9217 9220 9223 9253 9256 9259 9289 9292 9295 9325 9328 9331 9361 9364 9367 9397 9400 9403 9433 9436 9439 9469 9472 9475 9505 9508 9511 9541 9544 9547 9588 9590 9602 9604 9645 9648 9659 9662 9699 9701 9711 9713 9855 9869 9917 9920 9933 9936 10026 10039 10088 10104 10195 10213 10260 10275 10394 10396 10410 10412 10429 10431 10448 10450 10452 10488 10497 10595 10610 10740 10756 10867 10883 10930 10946 11002 11012 11047 11059 11094 11103 11189 11566 11578 11622 11634 11712 11725 11812 11825 11868 11882 11956 11967 12005 12017 12059 12062 12072 12075 12112 12115 12125 12128 12164 12176 12341 12353 12394 12406 12435 12437 12498 12511 12622 12633 12677 12691 12745 12767 12818 12820 12832 12834 12893 12914 12963 12978 13143 13145 13157 13159 13198 13210 13285 13287 13301 13303 13317 13319 13333 13335 13349 13351 13365 13367 13381 13383 13397 13399 13413 13415 13429 13431 13476 13479 13490 13493 13504 13507 13518 13521 13532 13535 13667 13684 13701 13718 13735 13784 13786 13788 13801 13803 13805 13818 13820 13822 13835 13837 13839 13852 13854 13856 13902 13916 13930 13944 13958 13999 14009 14019 14029 14039 14086 14088 14090 14102 14104 14106 14118 14120 14122 14134 14136 14138 14150 14152 14154 14760 14775 14790 14805 14820 14835 14850 14865 14880 14895 14910 14925 14940 14955 14970 14985 15000 15015 15049 15064 15079 15094 15109 15124 15139 15154 15169 15184 15199 15214 15229 15244 15259 15274 15289 15335 15347 15359 15371 15383 15395 15407 15419 15431 15443 15497 15499 15501 15515 15517 15519 15533 15535 15537 15551 15553 15555 15569 15571 15573 15619 15621 15634 15636 15649 15651 15664 15666 15679 15681 15730 15746 15762 15778 15794 15935 15937 15951 15953 15967 15969 15983 15985 15999 16001 16050 16052 16066 16068 16082 16084 16098 16100 16114 16116 CAMN 16133 DEFINE 8 92 97 122 290 293 299 373 384 DIV 12497 12510 12556 12574 12621 12632 12674 12688 12743 12765 12817 12831 12887 12908 12959 12974 13019 13033 15729 15745 15761 15777 15793 DIVB 13197 13209 13223 16049 16065 16081 16097 16113 DIVI 13078 13097 15837 15849 15861 15873 15885 DIVM 13142 13156 15934 15950 15966 15982 15998 END 16682 HRL 16136 HRLOI 9586 9600 9697 9709 11562 11563 11574 11575 11708 11709 11721 11722 11862 11863 11876 11877 12742 12764 HRROI 9745 9756 9797 9810 9972 9984 10140 10152 10193 10211 10640 10641 10655 10656 SEQ 0416 10688 10701 10736 10737 10752 10753 10800 10816 11806 11808 11819 11821 11953 11964 12001 12002 12013 12014 12055 12056 12061 12068 12069 12074 12108 12109 12114 12121 12122 12127 12160 12161 12172 12173 12214 12215 12225 12226 12670 12672 12684 12686 12741 12763 12814 12828 12883 12884 12904 12905 12956 12971 13016 13018 13030 13032 13571 13581 13591 13601 13611 13660 13677 13694 13711 13728 13781 13798 13815 13832 13849 14082 14083 14098 14099 14114 14115 14130 14131 14146 14147 14192 14204 14216 14228 14240 15493 15511 15529 15547 15565 15931 15933 15947 15949 15963 15965 15979 15981 15995 15997 HRRZ 16132 16162 16201 HRRZI 9851 9865 IDIV 11153 11171 11188 11220 11229 11273 11291 11339 11355 11401 11417 11459 11470 11513 11527 11565 11577 11619 11631 11669 11680 11711 11724 11759 11768 11809 11822 11865 11879 11908 11919 11955 11966 12004 12016 12058 12071 12111 12124 12163 12175 12216 12227 12434 14286 14298 14310 14322 14334 14346 14358 14370 14382 14394 14406 14418 14430 14442 14454 14466 14478 14490 14518 14530 14542 14554 14566 14578 14590 14602 14614 14626 14638 14650 14662 14674 14686 14698 14710 14759 14774 14789 14804 14819 14834 14849 14864 14879 14894 14909 14924 14939 14954 14969 14984 14999 15014 15048 15063 15078 15093 15108 15123 15138 15153 15168 15183 15198 15213 15228 15243 15258 15273 15288 IDIVB 12393 12405 12446 15618 15633 15648 15663 15678 IDIVI 12273 12295 15334 15346 15358 15370 15382 15394 15406 15418 15430 15442 IDIVM 12340 12352 15496 15514 15532 15550 15568 IFDEF 394 445 446 447 448 16166 16236 16673 16680 IFE 781 815 849 883 917 951 985 1019 1053 1087 1121 1155 1189 1223 1257 1291 1325 1359 1393 1427 1461 1495 1529 1563 1597 1631 1665 1699 1733 1767 1801 1835 1869 1903 1937 1971 2028 2062 2096 2130 2164 2198 2232 2266 2300 2334 2368 2402 2436 2470 2504 2538 2572 2606 2640 2674 2708 2742 2776 2810 2844 2878 2912 2946 2980 3014 3048 3082 3116 3150 3184 3218 3274 3308 3342 3376 3410 3444 3478 3512 3546 3580 3614 3648 3682 3716 3750 3784 3818 3852 3886 3920 3954 3988 4022 4056 4090 4124 4158 4192 4226 4260 4294 4328 4362 4396 4430 4464 4516 4548 4580 4612 4644 4676 4708 4740 4772 4804 4836 4868 4900 4932 4964 4996 5028 5060 5092 5124 5156 5188 5220 5252 5284 5316 5348 5380 5412 5444 5476 5508 5540 5572 5604 5636 5689 5693 5723 5727 5757 5761 5791 5795 5825 5829 5859 5863 5893 5897 5927 5931 5961 5965 5995 5999 6029 6033 6063 6067 6097 6101 6131 6135 6165 6169 6199 6203 6233 6237 6267 6271 6301 6305 6335 6339 6369 6373 6403 6407 6437 6441 6471 6475 6505 6509 6539 6543 6573 6577 6607 6611 6641 6645 6675 6679 6709 6713 6743 6747 6777 6781 6811 6815 6845 6849 6879 6883 6938 6939 6943 6974 6975 6979 7010 7011 7015 7046 7047 7051 7082 7083 7087 7118 7119 7123 7154 7155 7159 7190 7191 7195 7226 7227 7231 7262 7263 7267 7298 7299 7303 7334 7335 7339 7370 7371 7375 7406 7407 7411 7442 7443 7447 7478 7479 7483 7514 7515 7519 7550 7551 7555 7586 7587 7591 7622 7623 7627 7658 7659 7663 7694 7695 7699 7730 7731 7735 7766 7767 7771 7802 7803 7807 7838 7839 7843 7874 7875 7879 7910 7911 7915 7946 7947 7951 7982 7983 7987 8018 8019 8023 8054 8055 8059 8090 8091 8095 8126 8127 8131 8162 8163 8167 8198 8199 8203 8258 8259 8263 8294 8295 8299 8330 8331 8335 8366 8367 8371 8402 8403 8407 8438 8439 8443 8474 8475 8479 8510 8511 8515 8546 8547 8551 8582 8583 8587 8618 8619 8623 8654 8655 8659 8690 8691 8695 8726 8727 8731 8762 8763 8767 8798 8799 8803 8834 8835 8839 8870 8871 8875 8906 8907 8911 8942 8943 8947 8978 8979 8983 9014 9015 9019 9050 9051 9055 9086 9087 9091 9122 9123 9127 9158 9159 9163 9194 9195 9199 9230 9231 9235 9266 9267 9271 9302 9303 9307 9338 9339 9343 9374 9375 9379 SEQ 0417 9410 9411 9415 9446 9447 9451 9482 9483 9487 9518 9519 9523 9583 9597 9796 9809 9912 9928 10079 10080 10095 10096 10797 10813 11149 11167 11509 11523 11707 11720 11861 11875 13014 13028 13278 13294 13310 13326 13342 13358 13374 13390 13406 13422 13472 13486 13500 13514 13528 13569 13579 13589 13599 13609 13657 13658 13674 13675 13691 13692 13708 13709 13725 13726 13778 13795 13812 13829 13846 13897 13911 13925 13939 13953 14190 14202 14214 14226 14238 14283 14295 14307 14319 14331 14343 14355 14367 14379 14391 14403 14415 14427 14439 14451 14463 14475 14487 14515 14527 14539 14551 14563 14575 14587 14599 14611 14623 14635 14647 14659 14671 14683 14695 14707 14755 14770 14785 14800 14815 14830 14845 14860 14875 14890 14905 14920 14935 14950 14965 14980 14995 15010 15044 15059 15074 15089 15104 15119 15134 15149 15164 15179 15194 15209 15224 15239 15254 15269 15284 15490 15491 15508 15509 15526 15527 15544 15545 15562 15563 IFG 787 821 855 889 923 957 991 1025 1059 1093 1127 1161 1195 1229 1263 1297 1331 1365 1399 1433 1467 1501 1535 1569 1603 1637 1671 1705 1739 1773 1807 1841 1875 1909 1943 1977 2033 2067 2101 2135 2169 2203 2237 2271 2305 2339 2373 2407 2441 2475 2509 2543 2577 2611 2645 2679 2713 2747 2781 2815 2849 2883 2917 2951 2985 3019 3053 3087 3121 3155 3189 3223 3279 3313 3347 3381 3415 3449 3483 3517 3551 3585 3619 3653 3687 3721 3755 3789 3823 3857 3891 3925 3959 3993 4027 4061 4095 4129 4163 4197 4231 4265 4299 4333 4367 4401 4435 4469 4520 4552 4584 4616 4648 4680 4712 4744 4776 4808 4840 4872 4904 4936 4968 5000 5032 5064 5096 5128 5160 5192 5224 5256 5288 5320 5352 5384 5416 5448 5480 5512 5544 5576 5608 5640 5696 5730 5764 5798 5832 5866 5900 5934 5968 6002 6036 6070 6104 6138 6172 6206 6240 6274 6308 6342 6376 6410 6444 6478 6512 6546 6580 6614 6648 6682 6716 6750 6784 6818 6852 6886 6945 6981 7017 7053 7089 7125 7161 7197 7233 7269 7305 7341 7377 7413 7449 7485 7521 7557 7593 7629 7665 7701 7737 7773 7809 7845 7881 7917 7953 7989 8025 8061 8097 8133 8169 8205 8265 8301 8337 8373 8409 8445 8481 8517 8553 8589 8625 8661 8697 8733 8769 8805 8841 8877 8913 8949 8985 9021 9057 9093 9129 9165 9201 9237 9273 9309 9345 9381 9417 9453 9489 9525 IFL 786 820 854 888 922 956 990 1024 1058 1092 1126 1160 1194 1228 1262 1296 1330 1364 1398 1432 1466 1500 1534 1568 1602 1636 1670 1704 1738 1772 1806 1840 1874 1908 1942 1976 2034 2068 2102 2136 2170 2204 2238 2272 2306 2340 2374 2408 2442 2476 2510 2544 2578 2612 2646 2680 2714 2748 2782 2816 2850 2884 2918 2952 2986 3020 3054 3088 3122 3156 3190 3224 3280 3314 3348 3382 3416 3450 3484 3518 3552 3586 3620 3654 3688 3722 3756 3790 3824 3858 3892 3926 3960 3994 4028 4062 4096 4130 4164 4198 4232 4266 4300 4334 4368 4402 4436 4470 4521 4553 4585 4617 4649 4681 4713 4745 4777 4809 4841 4873 4905 4937 4969 5001 5033 5065 5097 5129 5161 5193 5225 5257 5289 5321 5353 5385 5417 5449 5481 5513 5545 5577 5609 5641 5695 5729 5763 5797 5831 5865 5899 5933 5967 6001 6035 6069 6103 6137 6171 6205 6239 6273 6307 6341 6375 6409 6443 6477 6511 6545 6579 6613 6647 6681 6715 6749 6783 6817 6851 6885 6946 6982 7018 7054 7090 7126 7162 7198 7234 7270 7306 7342 7378 7414 7450 7486 7522 7558 7594 7630 7666 7702 7738 7774 7810 7846 7882 7918 7954 7990 8026 8062 8098 8134 8170 8206 8266 8302 8338 8374 8410 8446 8482 8518 8554 8590 8626 8662 8698 8734 8770 8806 8842 8878 8914 8950 8986 9022 9058 9094 9130 9166 9202 9238 9274 9310 9346 9382 9418 9454 9490 9526 IFN 5694 5728 5762 5796 5830 5864 5898 5932 5966 6000 6034 6068 6102 6136 6170 6204 6238 6272 6306 6340 6374 6408 6442 6476 6510 6544 6578 6612 6646 6680 6714 6748 6782 6816 6850 6884 6944 6980 7016 7052 7088 7124 7160 7196 7232 7268 7304 7340 7376 7412 7448 7484 7520 7556 7592 7628 7664 7700 7736 7772 7808 7844 7880 7916 7952 7988 8024 8060 8096 8132 SEQ 0418 8168 8204 8264 8300 8336 8372 8408 8444 8480 8516 8552 8588 8624 8660 8696 8732 8768 8804 8840 8876 8912 8948 8984 9020 9056 9092 9128 9164 9200 9236 9272 9308 9344 9380 9416 9452 9488 9524 IFNDEF 345 346 356 445 446 447 448 527 16284 IMUL 10487 10496 10541 10556 10593 10608 10642 10657 10689 10702 10738 10754 10801 10817 10865 10881 10928 10944 13901 13915 13929 13943 13957 IMULB 10957 11093 11102 14193 14205 14217 14229 14241 IMULI 11001 11011 13998 14008 14018 14028 14038 IMULM 11046 11058 14085 14101 14117 14133 14149 JFCL 485 486 487 488 489 490 491 492 493 494 495 496 JOV 10433 10454 10545 10560 10597 10612 10646 10661 10693 10706 10742 10758 10805 10821 10869 10885 10932 10948 10963 11155 11173 11279 11297 11345 11361 11407 11423 12279 12301 12454 12558 12576 12749 12771 12889 12910 12961 12976 13021 13035 13080 13099 13231 JRST 71 72 73 74 75 76 77 195 196 197 198 407 408 410 412 414 416 418 421 423 424 477 749 10546 10561 10647 10662 10743 10759 10806 10822 10870 10886 10933 10949 11156 11174 11346 11362 11408 11424 12280 12302 12750 12772 13022 13036 13081 13100 16123 16140 16147 16150 16155 16183 16189 16203 16205 16207 16210 16213 16215 16217 16243 16246 16259 16263 16266 16269 16273 16274 16278 JSP 204 10428 10447 10542 10557 10594 10609 10643 10658 10690 10703 10739 10755 10802 10818 10866 10882 10929 10945 10958 11154 11172 11274 11292 11340 11356 11402 11418 12274 12296 12447 12557 12575 12744 12766 12888 12909 12960 12975 13020 13034 13079 13098 13224 JUMPE 14289 14301 14313 14325 14337 14349 14361 14373 14385 14397 14409 14421 14433 14445 14457 14469 14481 14493 14521 14533 14545 14557 14569 14581 14593 14605 14617 14629 14641 14653 14665 14677 14689 14701 14713 14762 14777 14792 14807 14822 14837 14852 14867 14882 14897 14912 14927 14942 14957 14972 14987 15002 15017 15051 15066 15081 15096 15111 15126 15141 15156 15171 15186 15201 15216 15231 15246 15261 15276 15291 15732 15748 15764 15780 15796 JUMPL 810 844 878 912 946 980 1014 1048 1082 1116 1150 1184 1218 1252 1286 1320 1354 1388 1422 1456 1490 1524 1558 1592 1626 1660 1694 1728 1762 1796 1830 1864 1898 1932 1966 2000 2057 2091 2125 2159 2193 2227 2261 2295 2329 2363 2397 2431 2465 2499 2533 2567 2601 2635 2669 2703 2737 2771 2805 2839 2873 2907 2941 2975 3009 3043 3077 3111 3145 3179 3213 3247 3303 3337 3371 3405 3439 3473 3507 3541 3575 3609 3643 3677 3711 3745 3779 3813 3847 3881 3915 3949 3983 4017 4051 4085 4119 4153 4187 4221 4255 4289 4323 4357 4391 4425 4459 4493 4544 4576 4608 4640 4672 4704 4736 4768 4800 4832 4864 4896 4928 4960 4992 5024 5056 5088 5120 5152 5184 5216 5248 5280 5312 5344 5376 5408 5440 5472 5504 5536 5568 5600 5632 5664 5719 5753 5787 5821 5855 5889 5923 5957 5991 6025 6059 6093 6127 6161 6195 6229 6263 6297 6331 6365 6399 6433 6467 6501 6535 6569 6603 6637 6671 6705 6739 6773 6807 6841 6875 6909 6969 7005 7041 7077 7113 7149 7185 7221 7257 7293 7329 7365 7401 7437 7473 7509 7545 7581 7617 7653 7689 7725 7761 7797 7833 7869 7905 7941 7977 8013 8049 8085 8121 8157 8193 8229 8289 8325 8361 8397 8433 8469 8505 8541 8577 8613 8649 8685 8721 8757 8793 8829 8865 8901 8937 8973 9009 9045 9081 9117 9153 9189 9225 9261 9297 9333 9369 9405 9441 9477 9513 9549 9592 9606 9650 9664 9703 9715 9751 9762 9804 9817 9860 9874 9922 9938 9978 9990 10030 10043 10090 10106 10146 10158 10199 10217 10266 10281 10304 10313 10338 10348 10400 10416 10435 10456 10490 10499 10548 10563 10599 10614 10649 10664 10695 10708 10745 10761 10808 10824 10872 10888 10935 10951 10965 11004 11014 11051 11063 11096 11105 11162 11180 11191 11223 11232 11283 11301 11348 11364 11410 11426 SEQ 0419 11464 11475 11518 11532 11570 11582 11624 11636 11674 11685 11716 11729 11762 11771 11814 11827 11870 11884 11913 11924 11960 11971 12009 12021 12064 12077 12117 12130 12168 12180 12221 12232 12282 12304 12345 12357 12398 12410 12439 12458 12502 12515 12566 12584 12624 12635 12679 12693 12754 12776 12822 12836 12897 12918 12965 12980 13024 13038 13083 13102 13147 13161 13202 13214 13235 13289 13305 13321 13337 13353 13369 13385 13401 13417 13433 13481 13495 13509 13523 13537 13575 13585 13595 13605 13615 13669 13686 13703 13720 13737 13790 13807 13824 13841 13858 13906 13920 13934 13948 13962 14001 14011 14021 14031 14041 14092 14108 14124 14140 14156 14198 14210 14222 14234 14246 14291 14303 14315 14327 14339 14351 14363 14375 14387 14399 14411 14423 14435 14447 14459 14471 14483 14495 14523 14535 14547 14559 14571 14583 14595 14607 14619 14631 14643 14655 14667 14679 14691 14703 14715 14766 14781 14796 14811 14826 14841 14856 14871 14886 14901 14916 14931 14946 14961 14976 14991 15006 15021 15055 15070 15085 15100 15115 15130 15145 15160 15175 15190 15205 15220 15235 15250 15265 15280 15295 15339 15351 15363 15375 15387 15399 15411 15423 15435 15447 15503 15521 15539 15557 15575 15625 15640 15655 15670 15685 15736 15752 15768 15784 15800 15842 15854 15866 15878 15890 15941 15957 15973 15989 16005 16056 16072 16088 16104 16120 LALL 9 LIST 8 356 394 527 16166 16236 16284 16670 LIT 16285 LOC 25 397 721 LSH 16142 16174 MOVE 746 795 797 799 829 831 833 863 865 867 897 899 901 931 933 935 965 967 969 999 1001 1003 1033 1035 1037 1067 1069 1071 1101 1103 1105 1135 1137 1139 1169 1171 1173 1203 1205 1207 1237 1239 1241 1271 1273 1275 1305 1307 1309 1339 1341 1343 1373 1375 1377 1407 1409 1411 1441 1443 1445 1475 1477 1479 1509 1511 1513 1543 1545 1547 1577 1579 1581 1611 1613 1615 1645 1647 1649 1679 1681 1683 1713 1715 1717 1747 1749 1751 1781 1783 1785 1815 1817 1819 1849 1851 1853 1883 1885 1887 1917 1919 1921 1951 1953 1955 1985 1987 1989 2042 2044 2046 2076 2078 2080 2110 2112 2114 2144 2146 2148 2178 2180 2182 2212 2214 2216 2246 2248 2250 2280 2282 2284 2314 2316 2318 2348 2350 2352 2382 2384 2386 2416 2418 2420 2450 2452 2454 2484 2486 2488 2518 2520 2522 2552 2554 2556 2586 2588 2590 2620 2622 2624 2654 2656 2658 2688 2690 2692 2722 2724 2726 2756 2758 2760 2790 2792 2794 2824 2826 2828 2858 2860 2862 2892 2894 2896 2926 2928 2930 2960 2962 2964 2994 2996 2998 3028 3030 3032 3062 3064 3066 3096 3098 3100 3130 3132 3134 3164 3166 3168 3198 3200 3202 3232 3234 3236 3288 3290 3292 3322 3324 3326 3356 3358 3360 3390 3392 3394 3424 3426 3428 3458 3460 3462 3492 3494 3496 3526 3528 3530 3560 3562 3564 3594 3596 3598 3628 3630 3632 3662 3664 3666 3696 3698 3700 3730 3732 3734 3764 3766 3768 3798 3800 3802 3832 3834 3836 3866 3868 3870 3900 3902 3904 3934 3936 3938 3968 3970 3972 4002 4004 4006 4036 4038 4040 4070 4072 4074 4104 4106 4108 4138 4140 4142 4172 4174 4176 4206 4208 4210 4240 4242 4244 4274 4276 4278 4308 4310 4312 4342 4344 4346 4376 4378 4380 4410 4412 4414 4444 4446 4448 4478 4480 4482 4529 4531 4533 4561 4563 4565 4593 4595 4597 4625 4627 4629 4657 4659 4661 4689 4691 4693 4721 4723 4725 4753 4755 4757 4785 4787 4789 4817 4819 4821 4849 4851 4853 4881 4883 4885 4913 4915 4917 4945 4947 4949 4977 4979 4981 5009 5011 5013 5041 5043 5045 5073 5075 5077 5105 5107 5109 5137 5139 5141 5169 5171 5173 5201 5203 5205 5233 5235 5237 5265 5267 5269 5297 5299 5301 5329 5331 5333 5361 5363 5365 5393 5395 5397 5425 5427 5429 5457 5459 5461 5489 5491 5493 5521 5523 5525 5553 5555 5557 5585 5587 5589 5617 5619 5621 5649 5651 5653 5704 SEQ 0420 5706 5708 5738 5740 5742 5772 5774 5776 5806 5808 5810 5840 5842 5844 5874 5876 5878 5908 5910 5912 5942 5944 5946 5976 5978 5980 6010 6012 6014 6044 6046 6048 6078 6080 6082 6112 6114 6116 6146 6148 6150 6180 6182 6184 6214 6216 6218 6248 6250 6252 6282 6284 6286 6316 6318 6320 6350 6352 6354 6384 6386 6388 6418 6420 6422 6452 6454 6456 6486 6488 6490 6520 6522 6524 6554 6556 6558 6588 6590 6592 6622 6624 6626 6656 6658 6660 6690 6692 6694 6724 6726 6728 6758 6760 6762 6792 6794 6796 6826 6828 6830 6860 6862 6864 6894 6896 6898 6954 6956 6958 6990 6992 6994 7026 7028 7030 7062 7064 7066 7098 7100 7102 7134 7136 7138 7170 7172 7174 7206 7208 7210 7242 7244 7246 7278 7280 7282 7314 7316 7318 7350 7352 7354 7386 7388 7390 7422 7424 7426 7458 7460 7462 7494 7496 7498 7530 7532 7534 7566 7568 7570 7602 7604 7606 7638 7640 7642 7674 7676 7678 7710 7712 7714 7746 7748 7750 7782 7784 7786 7818 7820 7822 7854 7856 7858 7890 7892 7894 7926 7928 7930 7962 7964 7966 7998 8000 8002 8034 8036 8038 8070 8072 8074 8106 8108 8110 8142 8144 8146 8178 8180 8182 8214 8216 8218 8274 8276 8278 8310 8312 8314 8346 8348 8350 8382 8384 8386 8418 8420 8422 8454 8456 8458 8490 8492 8494 8526 8528 8530 8562 8564 8566 8598 8600 8602 8634 8636 8638 8670 8672 8674 8706 8708 8710 8742 8744 8746 8778 8780 8782 8814 8816 8818 8850 8852 8854 8886 8888 8890 8922 8924 8926 8958 8960 8962 8994 8996 8998 9030 9032 9034 9066 9068 9070 9102 9104 9106 9138 9140 9142 9174 9176 9178 9210 9212 9214 9246 9248 9250 9282 9284 9286 9318 9320 9322 9354 9356 9358 9390 9392 9394 9426 9428 9430 9462 9464 9466 9498 9500 9502 9534 9536 9538 13782 13799 13816 13833 13850 14084 14100 14116 14132 14148 15495 15513 15531 15549 15567 16135 16141 16144 16145 16158 16173 16176 16178 16181 16187 16191 16247 16255 16256 16264 16268 16271 MOVEI 758 760 2004 2006 3251 3253 4497 4499 5668 5670 6913 6915 8233 8235 9555 9557 9585 9599 9614 9616 9643 9647 9657 9661 9671 9673 9696 9708 9722 9724 9770 9772 9824 9826 9852 9853 9866 9867 9881 9883 9915 9919 9931 9935 9946 9948 9997 9999 10022 10023 10024 10035 10036 10037 10050 10052 10083 10099 10114 10116 10186 10188 10191 10192 10204 10206 10209 10210 10229 10231 10258 10273 10300 10309 10334 10344 10360 10362 10392 10408 10464 10466 10486 10495 10510 10512 10539 10540 10554 10555 10591 10606 10735 10751 10768 10770 10832 10834 10895 10897 10925 10941 10956 10976 10978 10998 10999 11000 11008 11009 11010 11020 11022 11043 11044 11045 11055 11056 11057 11073 11075 11091 11092 11100 11101 11120 11122 11151 11152 11169 11170 11185 11186 11187 11199 11201 11218 11219 11227 11228 11240 11242 11270 11271 11288 11289 11309 11311 11337 11338 11353 11354 11371 11373 11399 11415 11434 11436 11457 11458 11468 11469 11482 11484 11511 11512 11525 11526 11539 11541 11564 11576 11593 11595 11616 11617 11618 11628 11629 11630 11645 11647 11667 11668 11678 11679 11710 11723 11737 11739 11757 11758 11766 11767 11780 11782 11807 11820 11834 11836 11864 11878 11906 11917 11931 11933 11954 11965 11978 11980 12003 12015 12031 12033 12057 12070 12084 12086 12110 12123 12137 12139 12162 12174 12192 12194 12266 12268 12271 12288 12290 12293 12313 12315 12337 12338 12339 12349 12350 12351 12367 12369 12391 12392 12403 12404 12421 12423 12433 12443 12444 12467 12469 12494 12495 12496 12507 12508 12509 12523 12525 12553 12555 12571 12573 12594 12596 12617 12618 12619 12620 12628 12629 12630 12631 12643 12645 12673 12687 12701 12703 12740 12762 12784 12786 12816 12830 12846 12848 12886 12907 12927 12929 12958 12973 12989 12991 13070 13072 13075 13077 13089 13091 13094 13096 13110 13112 13139 13140 13141 13153 13154 13155 13171 13173 13194 13195 13196 13206 13207 13208 13220 13221 13222 13249 13251 13445 13447 13473 13487 13501 13515 13529 13548 13550 13627 13629 13659 13676 13693 13710 13727 13748 13750 13779 13796 13813 13830 13847 13870 13872 13898 13899 13900 13912 13913 13914 13926 13927 13928 13940 13941 13942 13954 13955 13956 13973 13975 13996 13997 14006 14007 14016 14017 14026 14027 14036 14037 SEQ 0421 14052 14054 14081 14097 14113 14129 14145 14167 14169 14260 14262 14284 14285 14296 14297 14308 14309 14320 14321 14332 14333 14344 14345 14356 14357 14368 14369 14380 14381 14392 14393 14404 14405 14416 14417 14428 14429 14440 14441 14452 14453 14464 14465 14476 14477 14488 14489 14729 14731 14756 14757 14758 14771 14772 14773 14786 14787 14788 14801 14802 14803 14816 14817 14818 14831 14832 14833 14846 14847 14848 14861 14862 14863 14876 14877 14878 14891 14892 14893 14906 14907 14908 14921 14922 14923 14936 14937 14938 14951 14952 14953 14966 14967 14968 14981 14982 14983 14996 14997 14998 15011 15012 15013 15047 15062 15077 15092 15107 15122 15137 15152 15167 15182 15197 15212 15227 15242 15257 15272 15287 15307 15309 15332 15333 15344 15345 15356 15357 15368 15369 15380 15381 15392 15393 15404 15405 15416 15417 15428 15429 15440 15441 15459 15461 15492 15510 15528 15546 15564 15587 15589 15615 15616 15617 15630 15631 15632 15645 15646 15647 15660 15661 15662 15675 15676 15677 15696 15698 15726 15728 15742 15744 15758 15760 15774 15776 15790 15792 15811 15813 15836 15848 15860 15872 15884 15901 15903 16016 16018 16046 16047 16048 16062 16063 16064 16078 16079 16080 16094 16095 16096 16110 16111 16112 16198 16244 MOVEM 747 759 761 2005 2007 3252 3254 4498 4500 5669 5671 6914 6916 8234 8236 9556 9558 9615 9617 9672 9674 9723 9725 9771 9773 9825 9827 9882 9884 9947 9949 9998 10000 10051 10053 10115 10117 10187 10189 10205 10207 10230 10232 10361 10363 10465 10467 10511 10513 10769 10771 10833 10835 10896 10898 10977 10979 11021 11023 11074 11076 11121 11123 11200 11202 11241 11243 11310 11312 11372 11374 11435 11437 11483 11485 11540 11542 11594 11596 11646 11648 11738 11740 11781 11783 11835 11837 11932 11934 11979 11981 12032 12034 12085 12087 12138 12140 12193 12195 12267 12269 12289 12291 12314 12316 12368 12370 12422 12424 12468 12470 12524 12526 12595 12597 12644 12646 12702 12704 12785 12787 12847 12849 12928 12930 12990 12992 13071 13073 13090 13092 13111 13113 13172 13174 13250 13252 13446 13448 13549 13551 13628 13630 13749 13751 13871 13873 13974 13976 14053 14055 14168 14170 14261 14263 14730 14732 15308 15310 15460 15462 15588 15590 15697 15699 15812 15814 15902 15904 16017 16019 16128 16129 16130 16143 16163 16245 MOVSI 9641 9642 9655 9656 9913 9914 9929 9930 9971 9983 10081 10084 10097 10100 10139 10151 10255 10257 10270 10272 10299 10308 10333 10343 10389 10391 10405 10407 10425 10426 10444 10445 10485 10494 10590 10592 10605 10607 10687 10700 10863 10864 10879 10880 10926 10927 10942 10943 10955 11400 11416 11907 11918 12430 12432 13138 13152 13279 13280 13281 13295 13296 13297 13311 13312 13313 13327 13328 13329 13343 13344 13345 13359 13360 13361 13375 13376 13377 13391 13392 13393 13407 13408 13409 13423 13424 13425 13474 13478 13488 13492 13502 13506 13516 13520 13530 13534 13780 13797 13814 13831 13848 14516 14517 14528 14529 14540 14541 14552 14553 14564 14565 14576 14577 14588 14589 14600 14601 14612 14613 14624 14625 14636 14637 14648 14649 14660 14661 14672 14673 14684 14685 14696 14697 14708 14709 15045 15046 15060 15061 15075 15076 15090 15091 15105 15106 15120 15121 15135 15136 15150 15151 15165 15166 15180 15181 15195 15196 15210 15211 15225 15226 15240 15241 15255 15256 15270 15271 15285 15286 15725 15741 15757 15773 15789 15930 15946 15962 15978 15994 16045 16061 16077 16093 16109 MUL 800 834 868 902 936 970 1004 1038 1072 1106 1140 1174 1208 1242 1276 1310 1344 1378 1412 1446 1480 1514 1548 1582 1616 1650 1684 1718 1752 1786 1820 1854 1888 1922 1956 1990 2047 2081 2115 2149 2183 2217 2251 2285 2319 2353 2387 2421 2455 2489 2523 2557 2591 2625 2659 2693 2727 2761 2795 2829 2863 2897 2931 2965 2999 3033 3067 3101 3135 3169 3203 3237 3293 3327 3361 3395 3429 3463 3497 3531 3565 3599 3633 3667 3701 3735 3769 3803 3837 3871 3905 3939 3973 4007 4041 4075 4109 4143 4177 4211 4245 4279 4313 4347 4381 4415 4449 4483 4534 4566 4598 4630 4662 4694 4726 4758 4790 4822 4854 4886 4918 4950 4982 5014 5046 5078 5110 5142 5174 5206 5238 5270 5302 5334 5366 5398 5430 5462 5494 5526 5558 5590 5622 5654 5709 5743 5777 5811 5845 5879 5913 5947 5981 6015 SEQ 0422 6049 6083 6117 6151 6185 6219 6253 6287 6321 6355 6389 6423 6457 6491 6525 6559 6593 6627 6661 6695 6729 6763 6797 6831 6865 6899 6959 6995 7031 7067 7103 7139 7175 7211 7247 7283 7319 7355 7391 7427 7463 7499 7535 7571 7607 7643 7679 7715 7751 7787 7823 7859 7895 7931 7967 8003 8039 8075 8111 8147 8183 8219 8279 8315 8351 8387 8423 8459 8495 8531 8567 8603 8639 8675 8711 8747 8783 8819 8855 8891 8927 8963 8999 9035 9071 9107 9143 9179 9215 9251 9287 9323 9359 9395 9431 9467 9503 9539 9587 9601 9644 9658 9698 9710 9746 9757 9799 9812 9854 9868 9916 9932 9973 9985 10025 10038 10085 10101 10141 10153 10427 13282 13298 13314 13330 13346 13362 13378 13394 13410 13426 MULB 10393 10409 10446 13662 13679 13696 13713 13730 MULI 10194 10212 13475 13489 13503 13517 13531 MULM 10259 10274 10301 10310 10335 10345 13572 13582 13592 13602 13612 13783 13800 13817 13834 13851 NOSYM 29 OPDEF 34 35 36 37 38 39 40 41 42 43 44 191 192 193 194 195 196 197 198 204 210 211 219 220 221 222 223 224 225 226 227 228 229 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 288 305 310 311 315 316 317 323 324 330 331 332 333 334 335 336 342 343 350 351 352 353 363 364 365 366 367 394 PAGE 9764 10283 10315 10565 10666 10826 10953 11183 11303 11428 11687 12306 12412 12586 13216 POP 194 POPJ 192 PUSH 193 PUSHJ 191 REPEAT 765 2012 3258 4503 5674 6920 8240 9565 9623 9680 9730 9779 9833 9891 9955 10005 10059 10123 10169 10237 10287 10319 10369 10473 10519 10570 10620 10670 10714 10777 10841 10904 10985 11028 11079 11128 11206 11248 11317 11379 11443 11491 11547 11601 11653 11691 11745 11789 11843 11892 11939 11986 12039 12092 12145 12200 12243 12322 12375 12477 12531 12603 12652 12711 12795 12856 12936 12997 13050 13120 13179 13258 13454 13556 13636 13757 13879 13982 14061 14175 14268 14500 14737 15026 15316 15468 15596 15705 15819 15910 16025 SETO 9857 9871 10082 10098 10799 10815 10862 10878 12429 12671 12685 12739 12761 12815 12829 13017 13031 13570 13580 13590 13600 13610 13661 13678 13695 13712 13729 15494 15512 15530 15548 15566 SETOM 11510 11524 16153 16251 16257 SETZ 9744 9755 9798 9811 10332 10342 11272 11290 12272 12294 12390 12402 12431 12445 12554 12572 12885 12906 12957 12972 13076 13095 14191 14203 14215 14227 14239 15727 15743 15759 15775 15791 15835 15847 15859 15871 15883 15932 15948 15964 15980 15996 SETZM 10256 10271 10390 10406 16137 16148 SIXBIT 84 85 612 613 621 622 16157 16161 16172 16197 16277 SKIPE 9747 9749 9758 9760 9800 9802 9813 9815 9858 9872 9976 9988 10028 10041 10086 10102 10144 10156 10197 10215 10262 10277 10336 10346 10691 10704 11221 11230 11516 11530 11568 11580 11672 11683 11714 11727 11810 11823 11909 11920 11958 11969 12007 12019 12166 12178 12219 12230 12500 12513 12564 12582 12675 12689 13200 13212 13283 13299 13315 13331 13347 13363 13379 13395 13411 13427 13573 13583 13593 13603 13613 13663 13665 13680 13682 13697 13699 13714 13716 13731 13733 14194 14196 14206 14208 14218 14220 14230 14232 14242 14244 15939 15955 15971 15987 16003 SEQ 0423 SKIPGE 16146 SKIPL 16149 16262 SKIPN 16151 16154 16258 SUBTTL 30 120 155 357 394 395 750 10457 11108 12459 13237 16124 16279 TITLE 13 TLNE 12752 12774 16139 16182 16248 16252 TLNN 10302 10311 11281 11299 12456 12560 12578 12891 12912 13233 16250 16272 TRNE 16202 16204 16206 VAR 16678 XCT 16239 XLIST 7 355 393 526 16165 16235 16283 .DIREC 28 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0424 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 *030634 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 525252 525252 ---------- *030647 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777776 C(AC+1)= 652525 252524 ---------- *030662 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 777777 777775 C(AC+1)= 525252 525250 ---------- *030675 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 777777 777772 C(AC+1)= 652525 252520 ---------- *030710 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 777777 777765 C(AC+1)= 525252 525240 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0425 *030723 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 777777 777752 C(AC+1)= 652525 252500 ---------- *030736 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 777777 777725 C(AC+1)= 525252 525200 ---------- *030751 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 777777 777652 C(AC+1)= 652525 252400 ---------- *030764 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 777777 777525 C(AC+1)= 525252 525000 ---------- *030777 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 777777 777252 C(AC+1)= 652525 252000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0426 *031012 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 777777 776525 C(AC+1)= 525252 524000 ---------- *031025 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 777777 775252 C(AC+1)= 652525 250000 ---------- *031040 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 777777 772525 C(AC+1)= 525252 520000 ---------- *031053 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 777777 765252 C(AC+1)= 652525 240000 ---------- *031066 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 777777 752525 C(AC+1)= 525252 500000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0427 *031101 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 777777 725252 C(AC+1)= 652525 200000 ---------- *031114 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 777777 652525 C(AC+1)= 525252 400000 ---------- *031127 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 777777 525252 C(AC+1)= 652525 000000 ---------- *031142 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 252525 C(AC+1)= 525252 000000 ---------- *031155 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 777776 525252 C(AC+1)= 652524 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0428 *031170 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 777775 252525 C(AC+1)= 525250 000000 ---------- *031203 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 777772 525252 C(AC+1)= 652520 000000 ---------- *031216 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 777765 252525 C(AC+1)= 525240 000000 ---------- *031231 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 777752 525252 C(AC+1)= 652500 000000 ---------- *031244 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 777725 252525 C(AC+1)= 525200 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0429 *031257 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 777652 525252 C(AC+1)= 652400 000000 ---------- *031272 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 777525 252525 C(AC+1)= 525000 000000 ---------- *031305 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 777252 525252 C(AC+1)= 652000 000000 ---------- *031320 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 776525 252525 C(AC+1)= 524000 000000 ---------- *031333 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 775252 525252 C(AC+1)= 650000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0430 *031346 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 772525 252525 C(AC+1)= 520000 000000 ---------- *031361 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 765252 525252 C(AC+1)= 640000 000000 ---------- *031374 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 752525 252525 C(AC+1)= 500000 000000 ---------- *031407 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 725252 525252 C(AC+1)= 600000 000000 ---------- *031422 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 652525 252525 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0431 *031435 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 252525 252526 C(AC+1)= 000000 000000 ---------- *031454 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000000 C(AC+1)= 252525 252525 ---------- *031467 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000001 C(AC+1)= 125252 525252 ---------- *031502 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000002 C(AC+1)= 252525 252524 ---------- *031515 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000005 C(AC+1)= 125252 525250 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0432 *031530 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000012 C(AC+1)= 252525 252520 ---------- *031543 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000025 C(AC+1)= 125252 525240 ---------- *031556 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000052 C(AC+1)= 252525 252500 ---------- *031571 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000125 C(AC+1)= 125252 525200 ---------- *031604 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000252 C(AC+1)= 252525 252400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0433 *031617 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 000525 C(AC+1)= 125252 525000 ---------- *031632 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 001252 C(AC+1)= 252525 252000 ---------- *031645 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 002525 C(AC+1)= 125252 524000 ---------- *031660 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 005252 C(AC+1)= 252525 250000 ---------- *031673 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 012525 C(AC+1)= 125252 520000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0434 *031706 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 025252 C(AC+1)= 252525 240000 ---------- *031721 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 052525 C(AC+1)= 125252 500000 ---------- *031734 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 125252 C(AC+1)= 252525 200000 ---------- *031747 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 252525 C(AC+1)= 125252 400000 ---------- *031762 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000000 525252 C(AC+1)= 252525 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0435 *031775 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000001 252525 C(AC+1)= 125252 000000 ---------- *032010 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000002 525252 C(AC+1)= 252524 000000 ---------- *032023 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000005 252525 C(AC+1)= 125250 000000 ---------- *032036 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000012 525252 C(AC+1)= 252520 000000 ---------- *032051 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000025 252525 C(AC+1)= 125240 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0436 *032064 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000052 525252 C(AC+1)= 252500 000000 ---------- *032077 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000125 252525 C(AC+1)= 125200 000000 ---------- *032112 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000252 525252 C(AC+1)= 252400 000000 ---------- *032125 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 000525 252525 C(AC+1)= 125000 000000 ---------- *032140 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 001252 525252 C(AC+1)= 252000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0437 *032153 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 002525 252525 C(AC+1)= 124000 000000 ---------- *032166 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 005252 525252 C(AC+1)= 250000 000000 ---------- *032201 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 012525 252525 C(AC+1)= 120000 000000 ---------- *032214 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 025252 525252 C(AC+1)= 240000 000000 ---------- *032227 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 052525 252525 C(AC+1)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0438 *032242 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 125252 525252 C(AC+1)= 200000 000000 ---------- *032255 MUL 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 252525 252525 FINAL C(AC)= 525252 525253 C(AC+1)= 400000 000000 ---------- *032274 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 252525 252525 ---------- *032307 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 125252 525252 ---------- *032322 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000002 C(AC+1)= 252525 252524 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0439 *032335 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000005 C(AC+1)= 125252 525250 ---------- *032350 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000012 C(AC+1)= 252525 252520 ---------- *032363 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000025 C(AC+1)= 125252 525240 ---------- *032376 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000052 C(AC+1)= 252525 252500 ---------- *032411 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000125 C(AC+1)= 125252 525200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0440 *032424 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000252 C(AC+1)= 252525 252400 ---------- *032437 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 000525 C(AC+1)= 125252 525000 ---------- *032452 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 001252 C(AC+1)= 252525 252000 ---------- *032465 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 002525 C(AC+1)= 125252 524000 ---------- *032500 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 005252 C(AC+1)= 252525 250000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0441 *032513 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 012525 C(AC+1)= 125252 520000 ---------- *032526 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 025252 C(AC+1)= 252525 240000 ---------- *032541 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 052525 C(AC+1)= 125252 500000 ---------- *032554 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 125252 C(AC+1)= 252525 200000 ---------- *032567 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 252525 C(AC+1)= 125252 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0442 *032602 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 525252 C(AC+1)= 252525 000000 ---------- *032615 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000001 252525 C(AC+1)= 125252 000000 ---------- *032630 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000002 525252 C(AC+1)= 252524 000000 ---------- *032643 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000005 252525 C(AC+1)= 125250 000000 ---------- *032656 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 000012 525252 C(AC+1)= 252520 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0443 *032671 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000025 252525 C(AC+1)= 125240 000000 ---------- *032704 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000052 525252 C(AC+1)= 252500 000000 ---------- *032717 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000125 252525 C(AC+1)= 125200 000000 ---------- *032732 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000252 525252 C(AC+1)= 252400 000000 ---------- *032745 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 000525 252525 C(AC+1)= 125000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0444 *032760 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 001252 525252 C(AC+1)= 252000 000000 ---------- *032773 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 002525 252525 C(AC+1)= 124000 000000 ---------- *033006 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 005252 525252 C(AC+1)= 250000 000000 ---------- *033021 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 012525 252525 C(AC+1)= 120000 000000 ---------- *033034 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 025252 525252 C(AC+1)= 240000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0445 *033047 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 052525 252525 C(AC+1)= 100000 000000 ---------- *033062 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 125252 525252 C(AC+1)= 200000 000000 ---------- *033075 MUL 13,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 525252 525253 C(AC+1)= 400000 000000 ---------- *033114 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *033127 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0446 *033142 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 ---------- *033155 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 777777 777777 C(E)= 000000 000010 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- *033170 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 777777 777777 C(E)= 000000 000020 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 ---------- *033203 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 777777 777777 C(E)= 000000 000040 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 ---------- *033216 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 777777 777777 C(E)= 000000 000100 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0447 *033231 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 777777 777777 C(E)= 000000 000200 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 ---------- *033244 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 777777 777777 C(E)= 000000 000400 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 ---------- *033257 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 777777 777777 C(E)= 000000 001000 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 ---------- *033272 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 777777 777777 C(E)= 000000 002000 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 ---------- *033305 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 777777 777777 C(E)= 000000 004000 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0448 *033320 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 777777 777777 C(E)= 000000 010000 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 ---------- *033333 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 777777 777777 C(E)= 000000 020000 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 ---------- *033346 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 777777 777777 C(E)= 000000 040000 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 ---------- *033361 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 777777 777777 C(E)= 000000 100000 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 ---------- *033374 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 777777 777777 C(E)= 000000 200000 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0449 *033407 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 777777 777777 C(E)= 000000 400000 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *033422 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 777777 777777 C(E)= 000001 000000 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *033435 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 777777 777777 C(E)= 000002 000000 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 ---------- *033450 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 777777 777777 C(E)= 000004 000000 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 ---------- *033463 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 777777 777777 C(E)= 000010 000000 FINAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0450 *033476 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 777777 777777 C(E)= 000020 000000 FINAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 ---------- *033511 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 777777 777777 C(E)= 000040 000000 FINAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 ---------- *033524 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 777777 777777 C(E)= 000100 000000 FINAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 ---------- *033537 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 777777 777777 C(E)= 000200 000000 FINAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 ---------- *033552 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 777777 777777 C(E)= 000400 000000 FINAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0451 *033565 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 777777 777777 C(E)= 001000 000000 FINAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 ---------- *033600 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 777777 777777 C(E)= 002000 000000 FINAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 ---------- *033613 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 777777 777777 C(E)= 004000 000000 FINAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 ---------- *033626 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 777777 777777 C(E)= 010000 000000 FINAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 ---------- *033641 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 777777 777777 C(E)= 020000 000000 FINAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0452 *033654 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 777777 777777 C(E)= 040000 000000 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 ---------- *033667 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 777777 777777 C(E)= 100000 000000 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 ---------- *033702 MUL 12,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 C(E)= 200000 000000 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 ---------- *033715 MUL 12,000010 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- *033734 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0453 *033747 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 777777 777777 C(E)= 777777 777775 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000011 ---------- *033762 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 777777 777777 C(E)= 777777 777773 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000031 ---------- *033775 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777767 C(AC+1)= 777777 777777 C(E)= 777777 777767 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000121 ---------- *034010 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777757 C(AC+1)= 777777 777777 C(E)= 777777 777757 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000441 ---------- *034023 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777737 C(AC+1)= 777777 777777 C(E)= 777777 777737 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 002101 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0454 *034036 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777677 C(AC+1)= 777777 777777 C(E)= 777777 777677 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 010201 ---------- *034051 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777577 C(AC+1)= 777777 777777 C(E)= 777777 777577 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 040401 ---------- *034064 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777377 C(AC+1)= 777777 777777 C(E)= 777777 777377 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 201001 ---------- *034077 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 776777 C(AC+1)= 777777 777777 C(E)= 777777 776777 FINAL C(AC)= 000000 000000 C(AC+1)= 000001 002001 ---------- *034112 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 775777 C(AC+1)= 777777 777777 C(E)= 777777 775777 FINAL C(AC)= 000000 000000 C(AC+1)= 000004 004001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0455 *034125 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 773777 C(AC+1)= 777777 777777 C(E)= 777777 773777 FINAL C(AC)= 000000 000000 C(AC+1)= 000020 010001 ---------- *034140 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 767777 C(AC+1)= 777777 777777 C(E)= 777777 767777 FINAL C(AC)= 000000 000000 C(AC+1)= 000100 020001 ---------- *034153 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 757777 C(AC+1)= 777777 777777 C(E)= 777777 757777 FINAL C(AC)= 000000 000000 C(AC+1)= 000400 040001 ---------- *034166 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 737777 C(AC+1)= 777777 777777 C(E)= 777777 737777 FINAL C(AC)= 000000 000000 C(AC+1)= 002000 100001 ---------- *034201 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 677777 C(AC+1)= 777777 777777 C(E)= 777777 677777 FINAL C(AC)= 000000 000000 C(AC+1)= 010000 200001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0456 *034214 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 577777 C(AC+1)= 777777 777777 C(E)= 777777 577777 FINAL C(AC)= 000000 000000 C(AC+1)= 040000 400001 ---------- *034227 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 377777 C(AC+1)= 777777 777777 C(E)= 777777 377777 FINAL C(AC)= 000000 000000 C(AC+1)= 200001 000001 ---------- *034242 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777776 777777 C(AC+1)= 777777 777777 C(E)= 777776 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 000002 000001 ---------- *034255 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777775 777777 C(AC+1)= 777777 777777 C(E)= 777775 777777 FINAL C(AC)= 000000 000010 C(AC+1)= 000004 000001 ---------- *034270 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777773 777777 C(AC+1)= 777777 777777 C(E)= 777773 777777 FINAL C(AC)= 000000 000040 C(AC+1)= 000010 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0457 *034303 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777767 777777 C(AC+1)= 777777 777777 C(E)= 777767 777777 FINAL C(AC)= 000000 000200 C(AC+1)= 000020 000001 ---------- *034316 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777757 777777 C(AC+1)= 777777 777777 C(E)= 777757 777777 FINAL C(AC)= 000000 001000 C(AC+1)= 000040 000001 ---------- *034331 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777737 777777 C(AC+1)= 777777 777777 C(E)= 777737 777777 FINAL C(AC)= 000000 004000 C(AC+1)= 000100 000001 ---------- *034344 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777677 777777 C(AC+1)= 777777 777777 C(E)= 777677 777777 FINAL C(AC)= 000000 020000 C(AC+1)= 000200 000001 ---------- *034357 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777577 777777 C(AC+1)= 777777 777777 C(E)= 777577 777777 FINAL C(AC)= 000000 100000 C(AC+1)= 000400 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0458 *034372 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777377 777777 C(AC+1)= 777777 777777 C(E)= 777377 777777 FINAL C(AC)= 000000 400000 C(AC+1)= 001000 000001 ---------- *034405 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 776777 777777 C(AC+1)= 777777 777777 C(E)= 776777 777777 FINAL C(AC)= 000002 000000 C(AC+1)= 002000 000001 ---------- *034420 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 775777 777777 C(AC+1)= 777777 777777 C(E)= 775777 777777 FINAL C(AC)= 000010 000000 C(AC+1)= 004000 000001 ---------- *034433 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 773777 777777 C(AC+1)= 777777 777777 C(E)= 773777 777777 FINAL C(AC)= 000040 000000 C(AC+1)= 010000 000001 ---------- *034446 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 767777 777777 C(AC+1)= 777777 777777 C(E)= 767777 777777 FINAL C(AC)= 000200 000000 C(AC+1)= 020000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0459 *034461 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 757777 777777 C(AC+1)= 777777 777777 C(E)= 757777 777777 FINAL C(AC)= 001000 000000 C(AC+1)= 040000 000001 ---------- *034474 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 737777 777777 C(AC+1)= 777777 777777 C(E)= 737777 777777 FINAL C(AC)= 004000 000000 C(AC+1)= 100000 000001 ---------- *034507 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 677777 777777 C(AC+1)= 777777 777777 C(E)= 677777 777777 FINAL C(AC)= 020000 000000 C(AC+1)= 200000 000001 ---------- *034522 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 577777 777777 C(AC+1)= 777777 777777 C(E)= 577777 777777 FINAL C(AC)= 100000 000001 C(AC+1)= 000000 000001 ---------- *034535 MUL 11,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 777777 777777 C(E)= 377777 777777 FINAL C(AC)= 377777 777776 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0460 *034554 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *034567 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777775 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777772 ---------- *034602 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777773 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777754 ---------- *034615 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777767 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777670 ---------- *034630 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777757 C(AC+1)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777360 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0461 *034643 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777737 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775740 ---------- *034656 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777677 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767700 ---------- *034671 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777577 C(AC+1)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737600 ---------- *034704 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777377 C(AC+1)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577400 ---------- *034717 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 776777 C(AC+1)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0462 *034732 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 775777 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 776000 ---------- *034745 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 773777 C(AC+1)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 774000 ---------- *034760 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 767777 C(AC+1)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 770000 ---------- *034773 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 757777 C(AC+1)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 760000 ---------- *035006 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 737777 C(AC+1)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 740000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0463 *035021 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 677777 C(AC+1)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 700000 ---------- *035034 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 577777 C(AC+1)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 600000 ---------- *035047 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 377777 C(AC+1)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 400000 ---------- *035062 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777776 777777 C(AC+1)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 000000 ---------- *035075 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777775 777777 C(AC+1)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 777777 777767 C(AC+1)= 777776 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0464 *035110 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777773 777777 C(AC+1)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 777777 777737 C(AC+1)= 777774 000000 ---------- *035123 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777767 777777 C(AC+1)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 777777 777577 C(AC+1)= 777770 000000 ---------- *035136 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777757 777777 C(AC+1)= 000000 000000 C(E)= 000020 000000 FINAL C(AC)= 777777 776777 C(AC+1)= 777760 000000 ---------- *035151 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777737 777777 C(AC+1)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 777777 773777 C(AC+1)= 777740 000000 ---------- *035164 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777677 777777 C(AC+1)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 777777 757777 C(AC+1)= 777700 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0465 *035177 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777577 777777 C(AC+1)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 777777 677777 C(AC+1)= 777600 000000 ---------- *035212 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777377 777777 C(AC+1)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 777777 377777 C(AC+1)= 777400 000000 ---------- *035225 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 776777 777777 C(AC+1)= 000000 000000 C(E)= 001000 000000 FINAL C(AC)= 777775 777777 C(AC+1)= 777000 000000 ---------- *035240 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 775777 777777 C(AC+1)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 777767 777777 C(AC+1)= 776000 000000 ---------- *035253 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 773777 777777 C(AC+1)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 777737 777777 C(AC+1)= 774000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0466 *035266 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 767777 777777 C(AC+1)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 777577 777777 C(AC+1)= 770000 000000 ---------- *035301 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 757777 777777 C(AC+1)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 776777 777777 C(AC+1)= 760000 000000 ---------- *035314 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 737777 777777 C(AC+1)= 000000 000000 C(E)= 040000 000000 FINAL C(AC)= 773777 777777 C(AC+1)= 740000 000000 ---------- *035327 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 677777 777777 C(AC+1)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 757777 777777 C(AC+1)= 700000 000000 ---------- *035342 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 577777 777777 C(AC+1)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 677777 777777 C(AC+1)= 600000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0467 *035355 MUL 10,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 377777 777777 C(AC+1)= 000000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000001 C(AC+1)= 400000 000000 ---------- *035374 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777776 ---------- *035407 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 777777 777775 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777772 ---------- *035422 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 777777 777773 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777754 ---------- *035435 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 777777 777767 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777670 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0468 *035450 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 777777 777757 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777360 ---------- *035463 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 777777 777737 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 775740 ---------- *035476 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 777777 777677 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 767700 ---------- *035511 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 777777 777577 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 737600 ---------- *035524 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 777777 777377 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 577400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0469 *035537 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 777777 776777 FINAL C(AC)= 777777 777777 C(AC+1)= 777776 777000 ---------- *035552 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 777777 775777 FINAL C(AC)= 777777 777777 C(AC+1)= 777773 776000 ---------- *035565 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 777777 773777 FINAL C(AC)= 777777 777777 C(AC+1)= 777757 774000 ---------- *035600 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 777777 767777 FINAL C(AC)= 777777 777777 C(AC+1)= 777677 770000 ---------- *035613 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 777777 757777 FINAL C(AC)= 777777 777777 C(AC+1)= 777377 760000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0470 *035626 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 777777 737777 FINAL C(AC)= 777777 777777 C(AC+1)= 775777 740000 ---------- *035641 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 777777 677777 FINAL C(AC)= 777777 777777 C(AC+1)= 767777 700000 ---------- *035654 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 777777 577777 FINAL C(AC)= 777777 777777 C(AC+1)= 737777 600000 ---------- *035667 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 777777 377777 FINAL C(AC)= 777777 777777 C(AC+1)= 577777 400000 ---------- *035702 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 777776 777777 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0471 *035715 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 777775 777777 FINAL C(AC)= 777777 777767 C(AC+1)= 777776 000000 ---------- *035730 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 777773 777777 FINAL C(AC)= 777777 777737 C(AC+1)= 777774 000000 ---------- *035743 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 777767 777777 FINAL C(AC)= 777777 777577 C(AC+1)= 777770 000000 ---------- *035756 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 777757 777777 FINAL C(AC)= 777777 776777 C(AC+1)= 777760 000000 ---------- *035771 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 777737 777777 FINAL C(AC)= 777777 773777 C(AC+1)= 777740 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0472 *036004 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 777677 777777 FINAL C(AC)= 777777 757777 C(AC+1)= 777700 000000 ---------- *036017 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 777577 777777 FINAL C(AC)= 777777 677777 C(AC+1)= 777600 000000 ---------- *036032 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 777377 777777 FINAL C(AC)= 777777 377777 C(AC+1)= 777400 000000 ---------- *036045 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 776777 777777 FINAL C(AC)= 777775 777777 C(AC+1)= 777000 000000 ---------- *036060 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 775777 777777 FINAL C(AC)= 777767 777777 C(AC+1)= 776000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0473 *036073 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 773777 777777 FINAL C(AC)= 777737 777777 C(AC+1)= 774000 000000 ---------- *036106 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 767777 777777 FINAL C(AC)= 777577 777777 C(AC+1)= 770000 000000 ---------- *036121 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 757777 777777 FINAL C(AC)= 776777 777777 C(AC+1)= 760000 000000 ---------- *036134 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 737777 777777 FINAL C(AC)= 773777 777777 C(AC+1)= 740000 000000 ---------- *036147 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 677777 777777 FINAL C(AC)= 757777 777777 C(AC+1)= 700000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0474 *036162 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 577777 777777 FINAL C(AC)= 677777 777777 C(AC+1)= 600000 000000 ---------- *036175 MUL 7,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 377777 777777 FINAL C(AC)= 400000 000001 C(AC+1)= 400000 000000 ---------- *036213 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000015 C(E)= 377777 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 377777 777776 ---------- *036223 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 377777 777776 C(E)= 377777 777777 FINAL C(AC)= 000000 000003 C(AC+1)= 377777 777774 ---------- *036240 MUL 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 000000 000005 FINAL C(AC)= 000000 000002 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0475 *036252 MUL 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 000000 000007 FINAL C(AC)= 000000 000003 C(AC+1)= 200000 000000 ---------- *036267 MUL 11,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000012 C(E)= 377777 777777 FINAL C(AC)= 000000 000007 C(AC+1)= 377777 777770 ---------- *036277 MUL 11,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000020 C(AC+1)= 377777 777770 C(E)= 377777 777777 FINAL C(AC)= 000000 000017 C(AC+1)= 377777 777760 ---------- *036313 MUL 10,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000017 C(E)= 777777 777763 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036323 MUL 10,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777765 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0476 *036337 MUL 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036347 MUL 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036364 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 377777 777774 C(E)= 000000 000005 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000012 ---------- *036376 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000012 C(E)= 000000 000005 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000024 ---------- *036414 MUL 11,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000025 FINAL C(AC)= 000000 000012 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0477 *036426 MUL 11,000010 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 100000 000000 C(AC+1)= 200000 000000 C(E)= 000000 000025 FINAL C(AC)= 000000 000005 C(AC+1)= 100000 000000 ---------- *036443 MUL 6,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000005 C(E)= 777777 777760 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 ---------- *036453 MUL 6,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777740 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 ---------- *036470 MUL 5,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000040 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 ---------- *036501 MUL 5,000004 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000040 C(E)= 000000 000004 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0478 *036517 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 C(E)= 200000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *036531 MUL 14,000013 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 100000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 ---------- *036545 MUL 12,000011 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 100000 000000 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *036555 MUL 12,000011 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *036572 MULI 10,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777776 E= 000000 000007 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0479 *036607 MULI 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000006 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 ---------- *036625 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(E)= 000000 000001 ---------- *036641 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(E)= 000000 000002 ---------- *036653 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(E)= 000000 000001 ---------- *036661 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(E)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0480 *036670 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(E)= 000000 000001 ---------- *036677 MULM 7,000006 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(E)= 000000 000002 ---------- *036713 MULB 6,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000005 FINAL C(AC)= 000000 000002 C(AC+1)= 200000 000000 C(E)= 000000 000002 ---------- *036727 MULB 6,000005 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000007 FINAL C(AC)= 000000 000003 C(AC+1)= 200000 000000 C(E)= 000000 000003 ---------- *036742 MUL 6,000004 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 200000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0481 *036756 MULB 6,000004 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 ---------- *037000 IMUL 10,000007 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000011 C(E)= 000000 000002 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000011 ---------- *037006 IMUL 10,000007 FLAGS - INT/FINAL 400200 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000011 C(E)= 000000 000004 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000011 ---------- *037021 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 200000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 400000 C(AC+1)= 200000 000000 ---------- *037034 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 037023 C(E)= 000000 000003 FINAL C(AC)= 000000 600000 C(AC+1)= 000000 037023 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0482 *037050 IMUL 14,000013 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 037036 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 037036 ---------- *037063 IMUL 14,000013 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 400200 037052 C(E)= 000000 000003 FINAL C(AC)= 200000 000000 C(AC+1)= 400200 037052 ---------- *037075 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 400200 037065 C(E)= 777777 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 400200 037065 ---------- *037110 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 037077 C(E)= 777777 777776 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 037077 ---------- *037123 IMUL 14,000013 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 037112 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 037112 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0483 *037135 IMUL 14,000013 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 400000 000000 C(AC+1)= 400200 037125 C(E)= 777777 777775 FINAL C(AC)= 000000 000000 C(AC+1)= 400200 037125 ---------- *037150 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 400200 037137 C(E)= 777777 777776 FINAL C(AC)= 777777 400000 C(AC+1)= 400200 037137 ---------- *037164 IMUL 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 037152 C(E)= 777777 777775 FINAL C(AC)= 777777 200000 C(AC+1)= 000000 037152 ---------- *037203 IMUL 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 200000 C(E)= 777777 000001 FINAL C(AC)= 000000 777777 C(AC+1)= 777777 200000 ---------- *037216 IMUL 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 037205 C(E)= 777777 000002 FINAL C(AC)= 000000 777776 C(AC+1)= 000000 037205 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0484 *037236 IMUL 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 200000 C(E)= 200000 000000 FINAL C(AC)= 600000 000000 C(AC+1)= 777777 200000 ---------- *037252 IMUL 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 037240 C(E)= 200010 000000 FINAL C(AC)= 577770 000000 C(AC+1)= 000000 037240 ---------- *037272 IMUL 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 577770 000000 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 577770 000000 ---------- *037306 IMUL 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 037274 C(E)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 037274 ---------- *037321 IMULB 12,000011 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 037310 C(E)= 000000 000002 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 037310 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0485 *037342 IMULI 10,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000007 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000000 ---------- *037351 IMULI 10,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000007 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000000 ---------- *037364 IMULM 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000007 C(E)= 000000 000007 FINAL C(E)= 000000 000016 ---------- *037375 IMULM 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000007 C(E)= 000000 000007 FINAL C(E)= 000000 000034 ---------- *037411 IMULB 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000004 C(E)= 000000 000002 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000004 C(E)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0486 *037417 IMULB 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000004 C(E)= 000000 000002 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000004 C(E)= 000000 000040 ---------- *037432 IDIV 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(AC+1)= 000000 777777 C(E)= 000000 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037450 IDIV 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777776 C(AC+1)= 000000 777776 C(E)= 000000 777776 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037466 IDIV 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 340000 C(AC+1)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 000000 160000 C(AC+1)= 000000 000000 ---------- *037500 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0487 *037506 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 ---------- *037522 IDIV 14,000013 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 ---------- *037541 IDIV 14,000013 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 C(E)= 000000 000000 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 ---------- *037563 IDIV 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000012 C(E)= 000000 000004 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037600 IDIV 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0488 *037621 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000010 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- *037636 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000002 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *037657 IDIV 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000003 C(AC+1)= 000000 000001 ---------- *037667 IDIV 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000005 C(AC+1)= 000000 000001 ---------- *037704 IDIV 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0489 *037715 IDIV 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *037732 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 177777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 177777 777777 C(AC+1)= 000000 000000 ---------- *037743 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 077777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 077777 777777 C(AC+1)= 000000 000000 ---------- *037760 IDIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(AC+1)= 000000 000010 C(E)= 000000 000003 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000002 ---------- *037771 IDIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(AC+1)= 000000 000002 C(E)= 000000 000003 FINAL C(AC)= 000000 000003 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0490 *040005 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000003 C(E)= 000000 000001 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *040015 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 ---------- *040026 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 000000 000000 ---------- *040037 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 177777 777777 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 177777 777777 C(AC+1)= 000000 000000 ---------- *040053 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0491 *040061 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 ---------- *040074 IDIV 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000001 C(E)= 777777 777776 FINAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 ---------- *040105 IDIV 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 777777 777776 FINAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 ---------- *040122 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777777 C(AC+1)= 000000 000013 C(E)= 000000 000002 FINAL C(AC)= 177777 777777 C(AC+1)= 000000 000001 ---------- *040133 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 177777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 077777 777777 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0492 *040143 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000001 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *040153 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000004 C(E)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 ---------- *040167 IDIV 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777740 C(AC+1)= 777777 777774 C(E)= 000000 000002 FINAL C(AC)= 777777 777760 C(AC+1)= 000000 000000 ---------- *040177 IDIV 6,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777760 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777770 C(AC+1)= 000000 000000 ---------- *040214 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777700 C(AC+1)= 000000 000002 C(E)= 000000 000002 FINAL C(AC)= 777777 777740 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0493 *040225 IDIV 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777740 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777760 C(AC+1)= 000000 000000 ---------- *040242 IDIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777771 C(AC+1)= 000000 000015 C(E)= 000000 000004 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777775 ---------- *040254 IDIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777761 C(AC+1)= 777777 777775 C(E)= 000000 000004 FINAL C(AC)= 777777 777775 C(AC+1)= 777777 777775 ---------- *040272 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777701 C(AC+1)= 777777 777775 C(E)= 000000 000002 FINAL C(AC)= 777777 777741 C(AC+1)= 777777 777777 ---------- *040304 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777741 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 777777 777761 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0494 *040322 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777774 C(AC+1)= 777777 777761 C(E)= 000000 000002 FINAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 ---------- *040333 IDIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777770 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 ---------- *040347 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777774 C(E)= 777777 777776 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *040357 IDIV 7,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 C(E)= 777777 777774 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *040374 IDIVI 11,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777774 E= 000000 000010 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0495 *040415 IDIVI 10,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 000007 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 ---------- *040437 IDIVM 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 C(E)= 000000 000002 FINAL C(E)= 000000 000004 ---------- *040450 IDIVM 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000020 C(E)= 000000 000002 FINAL C(E)= 000000 000010 ---------- *040465 IDIVB 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 C(E)= 000000 000001 ---------- *040476 IDIVB 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000001 C(E)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0496 *040515 IDIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 600000 000000 C(AC+1)= 000000 000000 ---------- *040527 IDIVB 13,000012 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000000 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000000 ---------- *040554 DIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 010000 000001 C(AC+1)= 000000 000000 ---------- *040565 DIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000200 C(E)= 000000 000200 FINAL C(AC)= 020000 000001 C(AC+1)= 000000 000000 ---------- *040603 DIV 6,000005 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0497 *040622 DIV 6,000005 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 ---------- *040646 DIV 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000010 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000004 ---------- *040656 DIV 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000020 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000004 ---------- *040672 DIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777774 C(E)= 000000 000002 FINAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 ---------- *040704 DIV 13,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777770 C(E)= 000000 000002 FINAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0498 *040723 DIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000002 C(E)= 777777 777776 FINAL C(AC)= 177777 777777 C(AC+1)= 000000 000000 ---------- *040744 DIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000004 C(E)= 777777 777774 FINAL C(AC)= 077777 777777 C(AC+1)= 000000 000000 ---------- *040770 DIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000002 FINAL C(AC)= 600000 000000 C(AC+1)= 777777 777777 ---------- *041001 DIV 12,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777774 C(AC+1)= 777777 777777 C(E)= 000000 000004 FINAL C(AC)= 500000 000000 C(AC+1)= 777777 777777 ---------- *041020 DIV 6,000005 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 777777 777700 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 777777 777700 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0499 *041040 DIV 6,000005 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 777777 777740 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 777777 777740 C(AC+1)= 000000 000000 ---------- *041063 DIV 5,000004 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 ---------- *041076 DIV 5,000004 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 ---------- *041115 DIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *041127 DIV 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(AC+1)= 777777 777777 C(E)= 777777 777776 FINAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0500 *041145 DIVI 6,000016 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 000016 FINAL C(AC)= 111111 111111 C(AC+1)= 000000 000002 ---------- *041163 DIVI 5,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 000015 FINAL C(AC)= 116611 661166 C(AC+1)= 000000 000002 ---------- *041202 DIVM 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000100 FINAL C(E)= 020000 000000 ---------- *041214 DIVM 5,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 C(E)= 000000 000100 FINAL C(E)= 040000 000000 ---------- *041231 DIVB 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 020000 000001 C(AC+1)= 000000 000000 C(E)= 020000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0501 *041242 DIVB 14,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000100 C(E)= 000000 000100 FINAL C(AC)= 040000 000001 C(AC+1)= 000000 000000 C(E)= 040000 000001 ---------- *041254 DIVB 14,000013 FLAGS - INT/FINAL 000000 400240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000001 C(E)= 000000 000001 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000001 C(E)= 000000 000001 ---------- *041300 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 050000 000000 FINAL C(AC)= 024000 000000 C(AC+1)= 000000 000000 ---------- *041313 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 012000 000000 C(AC+1)= 000000 000000 ---------- *041326 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 005000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0502 *041341 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 002400 000000 C(AC+1)= 000000 000000 ---------- *041354 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 001200 000000 C(AC+1)= 000000 000000 ---------- *041367 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 000500 000000 C(AC+1)= 000000 000000 ---------- *041402 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 000240 000000 C(AC+1)= 000000 000000 ---------- *041415 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 000120 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0503 *041430 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 000050 000000 C(AC+1)= 000000 000000 ---------- *041443 MUL 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 050000 000000 FINAL C(AC)= 000024 000000 C(AC+1)= 000000 000000 ---------- *041461 MULI 12,005001 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 200000 000000 C(AC+1)= 000024 000000 E= 000000 005001 FINAL C(AC)= 000000 002400 C(AC+1)= 200000 000000 ---------- *041472 MULI 12,005001 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 100000 000000 C(AC+1)= 200000 000000 E= 000000 005001 FINAL C(AC)= 000000 001200 C(AC+1)= 100000 000000 ---------- *041503 MULI 12,005001 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 040000 000000 C(AC+1)= 100000 000000 E= 000000 005001 FINAL C(AC)= 000000 000500 C(AC+1)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0504 *041514 MULI 12,005001 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 020000 000000 C(AC+1)= 040000 000000 E= 000000 005001 FINAL C(AC)= 000000 000240 C(AC+1)= 020000 000000 ---------- *041525 MULI 12,005001 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 010000 000000 C(AC+1)= 020000 000000 E= 000000 005001 FINAL C(AC)= 000000 000120 C(AC+1)= 010000 000000 ---------- *041542 MULM 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000120 C(E)= 777777 777777 FINAL C(E)= 000000 000000 ---------- *041550 MULM 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000120 C(E)= 777777 777776 FINAL C(E)= 000000 000000 ---------- *041556 MULM 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000120 C(E)= 777777 777774 FINAL C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0505 *041564 MULM 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000120 C(E)= 777777 777770 FINAL C(E)= 000000 000000 ---------- *041572 MULM 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000120 C(E)= 777777 777760 FINAL C(E)= 000000 000000 ---------- *041605 MULB 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 000000 000000 ---------- *041620 MULB 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000001 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 C(E)= 000000 000000 ---------- *041633 MULB 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000002 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0506 *041646 MULB 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777770 C(AC+1)= 000000 000004 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 C(E)= 000000 000000 ---------- *041661 MULB 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777760 C(AC+1)= 000000 000010 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 C(E)= 000000 000000 ---------- *041701 MULM 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 600000 000000 C(AC+1)= 000000 000000 C(E)= 777777 772777 FINAL C(E)= 000000 002400 ---------- *041715 MULM 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 700000 000000 C(AC+1)= 000000 000000 C(E)= 777777 772777 FINAL C(E)= 000000 001200 ---------- *041731 MULM 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 740000 000000 C(AC+1)= 000000 000000 C(E)= 777777 772777 FINAL C(E)= 000000 000500 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0507 *041745 MULM 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 760000 000000 C(AC+1)= 000000 000000 C(E)= 777777 772777 FINAL C(E)= 000000 000240 ---------- *041761 MULM 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 770000 000000 C(AC+1)= 000000 000000 C(E)= 777777 772777 FINAL C(E)= 000000 000120 ---------- *042000 IMUL 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000002 C(AC+1)= 770000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000004 C(AC+1)= 770000 000000 ---------- *042011 IMUL 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000004 C(AC+1)= 770000 000000 C(E)= 000000 000004 FINAL C(AC)= 000000 000020 C(AC+1)= 770000 000000 ---------- *042022 IMUL 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000010 C(AC+1)= 770000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000100 C(AC+1)= 770000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0508 *042033 IMUL 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000020 C(AC+1)= 770000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000400 C(AC+1)= 770000 000000 ---------- *042044 IMUL 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000040 C(AC+1)= 770000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 002000 C(AC+1)= 770000 000000 ---------- *042060 IMULI 5,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 002000 E= 000000 000002 FINAL C(AC)= 000000 000006 C(AC+1)= 000000 002000 ---------- *042066 IMULI 5,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 002000 E= 000000 000003 FINAL C(AC)= 000000 000011 C(AC+1)= 000000 002000 ---------- *042074 IMULI 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 002000 E= 000000 000004 FINAL C(AC)= 000000 000014 C(AC+1)= 000000 002000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0509 *042102 IMULI 5,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 002000 E= 000000 000005 FINAL C(AC)= 000000 000017 C(AC+1)= 000000 002000 ---------- *042110 IMULI 5,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 002000 E= 000000 000006 FINAL C(AC)= 000000 000022 C(AC+1)= 000000 002000 ---------- *042124 IMULM 4,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000022 C(E)= 777777 777776 FINAL C(E)= 000000 000004 ---------- *042140 IMULM 4,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000022 C(E)= 777777 777774 FINAL C(E)= 000000 000020 ---------- *042154 IMULM 4,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777770 C(AC+1)= 000000 000022 C(E)= 777777 777770 FINAL C(E)= 000000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0510 *042170 IMULM 4,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777760 C(AC+1)= 000000 000022 C(E)= 777777 777760 FINAL C(E)= 000000 000400 ---------- *042204 IMULM 4,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777740 C(AC+1)= 000000 000022 C(E)= 777777 777740 FINAL C(E)= 000000 002000 ---------- *042222 IMULB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 000000 000000 ---------- *042232 IMULB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 777777 777776 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 000000 000000 ---------- *042242 IMULB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 777777 777774 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0511 *042252 IMULB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 777777 777770 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 000000 000000 ---------- *042262 IMULB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 777777 777760 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 C(E)= 000000 000000 ---------- *042276 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000006 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042306 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042316 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 000004 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 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0512 *042326 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000000 000010 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042336 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 000000 000020 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042346 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 000000 000040 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042356 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000000 000100 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042366 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 000000 000200 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0513 *042376 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 000000 000400 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042406 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 000000 001000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042416 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042426 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 000000 004000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042436 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 000000 010000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0514 *042446 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 000000 020000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042456 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 000000 040000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042466 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 000000 100000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042476 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 000000 200000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042506 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 000000 400000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0515 *042516 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 000001 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042526 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 000002 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042536 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 000004 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042546 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 000010 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042556 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 000020 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 93 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0516 *042566 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 000040 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042576 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 000100 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042606 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000200 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042616 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042626 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 001000 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 94 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0517 *042636 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 002000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042646 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 004000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042656 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 010000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042666 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 020000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042676 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 040000 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 95 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0518 *042706 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 100000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042716 IDIV 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042733 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000014 C(E)= 000000 000001 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- *042746 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 ---------- *042761 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0519 *042774 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 ---------- *043007 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 ---------- *043022 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 ---------- *043035 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 ---------- *043050 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0520 *043063 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 ---------- *043076 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 ---------- *043111 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 ---------- *043124 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 ---------- *043137 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0521 *043152 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 ---------- *043165 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 ---------- *043200 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 ---------- *043213 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 ---------- *043226 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0522 *043241 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 ---------- *043254 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 ---------- *043267 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 ---------- *043302 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 ---------- *043315 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0523 *043330 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 ---------- *043343 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 ---------- *043356 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 ---------- *043371 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *043404 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0524 *043417 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 ---------- *043432 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 ---------- *043445 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 ---------- *043460 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 ---------- *043473 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 040000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0525 *043506 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000000 ---------- *043521 IDIV 13,000012 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000001 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 ---------- *043537 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000003 C(AC+1)= 000000 000015 E= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- *043547 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000005 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000001 ---------- *043557 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000007 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000003 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 103 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0526 *043567 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000011 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000001 ---------- *043577 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000013 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000005 C(AC+1)= 000000 000001 ---------- *043607 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000015 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000006 C(AC+1)= 000000 000001 ---------- *043617 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000017 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000001 ---------- *043627 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000021 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 104 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0527 *043637 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000023 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000011 C(AC+1)= 000000 000001 ---------- *043647 IDIVI 14,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000025 C(AC+1)= 000000 000001 E= 000000 000002 FINAL C(AC)= 000000 000012 C(AC+1)= 000000 000001 ---------- *043665 IDIVM 12,000011 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777777 C(AC+1)= 200000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000001 ---------- *043701 IDIVM 12,000011 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777776 C(AC+1)= 200000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000002 ---------- *043715 IDIVM 12,000011 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777774 C(AC+1)= 200000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 105 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0528 *043731 IDIVM 12,000011 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777770 C(AC+1)= 200000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000010 ---------- *043745 IDIVM 12,000011 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777760 C(AC+1)= 200000 000000 C(E)= 777777 777777 FINAL C(E)= 000000 000020 ---------- *043764 IDIVB 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000015 C(AC+1)= 777777 777760 C(E)= 000000 000002 FINAL C(AC)= 000000 000006 C(AC+1)= 000000 000001 C(E)= 000000 000006 ---------- *043777 IDIVB 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000017 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000007 C(AC+1)= 000000 000001 C(E)= 000000 000007 ---------- *044012 IDIVB 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000021 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000001 C(E)= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 106 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0529 *044025 IDIVB 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000023 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000011 C(AC+1)= 000000 000001 C(E)= 000000 000011 ---------- *044040 IDIVB 11,000010 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000025 C(AC+1)= 000000 000001 C(E)= 000000 000002 FINAL C(AC)= 000000 000012 C(AC+1)= 000000 000001 C(E)= 000000 000012 ---------- *044060 DIV 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 001000 000000 C(AC+1)= 000000 000000 ---------- *044074 DIV 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 002000 000000 C(AC+1)= 000000 000000 ---------- *044110 DIV 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 107 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0530 *044124 DIV 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 010000 000000 C(AC+1)= 000000 000000 ---------- *044140 DIV 10,000007 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000000 002000 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000000 ---------- *044156 DIVI 7,000002 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000003 E= 000000 000002 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- *044166 DIVI 7,000003 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 000003 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- *044176 DIVI 7,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000005 E= 000000 000004 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 108 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0531 *044206 DIVI 7,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000006 E= 000000 000005 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- *044216 DIVI 7,000006 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000007 E= 000000 000006 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000001 ---------- *044234 DIVM 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777776 C(AC+1)= 000000 000000 C(E)= 777777 777600 FINAL C(E)= 004000 000000 ---------- *044250 DIVM 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777774 C(AC+1)= 000000 000000 C(E)= 777777 777600 FINAL C(E)= 010000 000000 ---------- *044264 DIVM 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777770 C(AC+1)= 000000 000000 C(E)= 777777 777600 FINAL C(E)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 109 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0532 *044300 DIVM 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777760 C(AC+1)= 000000 000000 C(E)= 777777 777600 FINAL C(E)= 040000 000000 ---------- *044314 DIVM 6,000005 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 777777 777740 C(AC+1)= 000000 000000 C(E)= 777777 777600 FINAL C(E)= 100000 000000 ---------- *044334 DIVB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000002 C(E)= 000000 000200 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000002 C(E)= 004000 000000 ---------- *044350 DIVB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000004 C(E)= 000000 000200 FINAL C(AC)= 010000 000000 C(AC+1)= 000000 000004 C(E)= 010000 000000 ---------- *044364 DIVB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000010 C(E)= 000000 000200 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000010 C(E)= 020000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 110 DSKAL 000000 000000 760000 000000 220000 000000 030000 777777 SEQ 0533 *044400 DIVB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000020 C(E)= 000000 000200 FINAL C(AC)= 040000 000000 C(AC+1)= 000000 000020 C(E)= 040000 000000 ---------- *044414 DIVB 5,000004 FLAGS - INT/FINAL 000240 000240 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000040 C(E)= 000000 000200 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000040 C(E)= 100000 000000 ---------- @ rtl/mem/RCS/MAINDEC-10-DSKAM.txt,v0000444000175100010010000256561412052635214014414 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.11.20.08.08.26; author Rob; state Exp; branches; next ; desc @Diagnostic @ 1.1 log @Initial revision @ text @;DSKAM IDENTIFICATION -------------- PRODUCT CODE: AH-E321A-DD DIAGNOSTIC CODE: DSKAM PRODUCT NAME: DSKAMA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13) 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-DSKAM.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-DSKAM.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE THIRTEENTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE BYTE, BLT, JFFO AND MISCELLANEOUS FUNCTIONS. 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-DSKAM.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-DSKAM.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-DSKAM.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-DSKAM.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-DSKAM.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 'DSKAM.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-DSKAM.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 DSKAM SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKAM TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 DSKAMT MAC 29-Mar-78 10:18 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;DSKAM 2 3 000000 MCNVER==0 4 000001 DECVER==1 5 6 7 XLIST 8 LIST 9 LALL 10 11 NAME \MCNVER,\DECVER^ 12 13 TITLE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 14 ^ 15 16 17 ;BYTE, BLOCK TRANSFER, JFFO AND OTHER BASIC MISCELLANEOUS INSTRUCTIONS 18 19 ;COPYRIGHT 1978 20 ;DIGITAL EQUIPMENT CORPORATION 21 ;MARLBORO, MASS. 01752 22 23 ;JOHN R. KIRCHOFF 24 25 000137 LOC 137 26 000137 000000 000001 MCNVER,,DECVER 27 28 .DIRECTIVE .OKOVL 29 NOSYM DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2 DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0013 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 ;OPERATOR DEFINITIONS 33 34 001000 000000 OPDEF ER1 [1B8] 35 002000 000000 OPDEF ER2 [2B8] 36 003000 000000 OPDEF ER3 [3B8] 37 004000 000000 OPDEF ER4 [4B8] 38 005000 000000 OPDEF ER5 [5B8] 39 006000 000000 OPDEF ER6 [6B8] 40 007000 000000 OPDEF ER7 [7B8] 41 010000 000000 OPDEF ER10 [10B8] 42 011000 000000 OPDEF ER11 [11B8] 43 012000 000000 OPDEF ER12 [12B8] 44 013000 000000 OPDEF ER13 [13B8] 45 46 040465 LUUO1=ERRMES 47 040465 LUUO2=ERRMES 48 040465 LUUO3=ERRMES 49 040465 LUUO4=ERRMES 50 040465 LUUO5=ERRMES 51 040465 LUUO6=ERRMES 52 040465 LUUO7=ERRMES 53 040465 LUUO10=ERRMES 54 040465 LUUO11=ERRMES 55 040465 LUUO12=ERRMES 56 040465 LUUO13=ERRMES DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3 DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0014 57 ;SUBROUTINE ASSEMBLY DEFINITIONS 58 59 000040 DEBUG=40 60 000001 EXCASB=1 61 000001 USRASB=1 62 000001 PGMEND=1 63 000001 ERDIAG=1 64 65 ;SPECIAL FEATURE DEFINITIONS 66 67 030000 SADR1=BEGIN 68 030000 SADR2=BEGIN 69 030000 SADR3=BEGIN 70 030007 SADR4=SRTDDT 71 254000 030061 SADR5=JRST $BEND2 72 254000 030000 SADR6=JRST BEGIN 73 254000 030000 SADR7=JRST BEGIN 74 254000 030000 SADR8=JRST BEGIN 75 254000 030000 SADR9=JRST BEGIN 76 254000 030000 SADR10=JRST BEGIN 77 254000 030000 SADR11=JRST BEGIN 78 79 ;SPECIAL FEATURE PARAMETERS 80 81 000000 PAREA0=0 82 000000 PAREA1=0 83 000000 PAREA2=0 84 446353 415500 PAREA3=SIXBIT/DSKAM/ 85 645560 000000 PAREA4=SIXBIT/TMP/ 86 000000 PAREA5=0 87 000000 PAREA6=0 88 000001 ITERAT==1 89 90 ;MACROS 91 92 DEFINE SAVEAC (A,B)< 93 MOVEI AC+2,. ;SAVE TEST PC 94 MOVEM AC+2,TESTPC 95 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 96 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4 DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0015 97 ;SPECIAL INSTRUCTIONS TO ASSEMBLER 98 99 IF1, ;BYTBLK BEYOND AC RANGE FOR PASS 1 100 IF1, ;BLTBLK BEYOND AC RANGE FOR PASS 1 101 102 ;MACROS 103 104 DEFINE GMOV (X1,DATA),< 105 IFLE ,< 106 MOVE X1,[DATA] ;PRELOAD X1 WITH DATA> 107 IFG ,< 108 MOVE AC+1,[DATA] 109 MOVEM AC+1,X1 ;PRELOAD X1 WITH DATA>> 110 111 DEFINE GCAM (X1,DATA),< 112 SN=SN+1 113 IFG ,< 114 MOVE AC-1,X1 115 CAME AC-1,[DATA] ;IS C(X1) = DATA 116 IFIDN ,,< 117 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 118 IFDIF ,,< 119 ER2 AC-1,SN ;C(X1) WAS CLOBBERED>> 120 IFLE ,< 121 CAME X1,[DATA] ;IS C(X1) = DATA 122 IFIDN ,,< 123 ER2 X1,SN ;DEST NOT LOADED CORRECTLY> 124 IFDIF ,,< 125 ER2 X1,SN ;C(X1) WAS CLOBBERED>>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5 DSKAMT MAC 29-Mar-78 10:18 DIAGNOSTIC PARAMETERS SEQ 0016 126 DEFINE BLTM1 (A1,C1,S1,D1,SC)< 127 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 128 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 129 ;SOURCE DATA = SC 130 131 AC=C1 132 SAVEAC (1,1) 133 SN=A1 134 SRCE=S1 ;1ST LOC OF SOURCE = S1 135 DEST=D1 ;1ST LOC OF DESTINATION = D1 136 SIZ=1 ;BLOCK SIZE = 1 WORD 137 138 G'A1: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 139 GMOV (SRCE-1,<252525252525>) 140 GMOV (SRCE,) 141 GMOV (SRCE+1,<770077007700>) 142 GMOV (DEST-1,<070707070707>) 143 GMOV (DEST,<123456765432>) 144 GMOV (DEST+1,<552255225522>) 145 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 146 GCAM (SRCE-1,<252525252525>) 147 GCAM (SRCE,) 148 GCAM (SRCE+1,<770077007700>) 149 GCAM (DEST-1,<070707070707>) 150 GCAM (DEST,) 151 GCAM (DEST+1,<552255225522>) 152 JUMPL AC+2,G'A1 ;LOOP ON ERROR> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0017 153 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 154 155 DEFINE S,<;*********************************************************************> 156 157 S^;*********************************************************************^ 158 ;*DATA SWITCHES 159 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 160 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 161 S^;*********************************************************************^ 162 163 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 164 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 165 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 166 167 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 168 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 169 010000 DING== 010000 ;RING BELL ON ERROR 170 171 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 172 002000 ERSTOP==002000 ;HALT ON TEST ERROR 173 001000 PALERS==001000 ;PRINT ALL ERRORS 174 175 000400 RELIAB==000400 ;RELIABILITY MODE 176 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 177 000100 INHPAG==000100 ;INHIBIT PAGING 178 179 000040 MODDVC==000040 ;MODIFY DEVICE CODE 180 000020 INHCSH==000020 ;INHIBIT CACHE 181 000010 OPRSEL==000010 ;OPERATOR SELECTION 182 183 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 184 185 ;SWITCH 16 RESERVED 186 187 ;SWITCH 17 RESERVED !!! DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018 188 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 189 190 S^;*********************************************************************^ 191 ;*SPECIAL SUBPROGRAM LINKAGES 192 S^;*********************************************************************^ 193 194 027772 FSELNK= 27772 ;FILE SELECT LINK 195 027773 FRDLNK= 27773 ;FILE READ LINK 196 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 197 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 198 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 199 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 200 201 S^;*********************************************************************^ 202 ;*SPECIAL SUBROUTINE FATAL HALTS 203 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 204 S^;*********************************************************************^ 205 206 ;ADDRESS TAG REASON 207 ;--------------------- 208 209 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 210 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 211 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 212 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 213 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 214 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 215 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 216 ; 1017 EOPERR ;END OF PROGRAM ERROR 217 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 218 219 S^;*********************************************************************^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019 220 S^;*********************************************************************^ 221 ;OPERATOR DEFINITIONS (NON-UUO'S) 222 S^;*********************************************************************^ 223 224 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 225 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 226 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 227 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 228 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 229 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 230 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 231 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 232 233 S^;*********************************************************************^ 234 ;*SUBROUTINE INITIALIZATION CALL 235 S^;*********************************************************************^ 236 237 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 238 239 S^;*********************************************************************^ 240 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 241 S^;*********************************************************************^ 242 243 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 244 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 245 246 S^;*********************************************************************^ 247 ;*TERMINAL INPUT UUO'S 248 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 249 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 250 S^;*********************************************************************^ 251 252 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 253 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 254 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 255 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 256 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 257 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 258 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 259 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 260 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 261 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 262 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020 263 ;*TERMINAL OUTPUT UUO'S. 264 265 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 266 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 267 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 268 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 269 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 270 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 271 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 272 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 273 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 274 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 275 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 276 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 277 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 278 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 279 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 280 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 281 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 282 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 283 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 284 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 285 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 286 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 287 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 288 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 289 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 290 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 291 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 292 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 293 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 294 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 295 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 296 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 297 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 298 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 299 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 300 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 301 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 302 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 303 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 304 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 305 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 306 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021 307 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 308 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 309 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 310 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 311 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 312 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 313 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 314 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 315 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 316 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 317 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 318 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 319 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 320 321 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 322 323 DEFINE PMSG (ARG),< 324 PSIXM [SIXBIT\ARG'_\]> 325 326 DEFINE PMSGF (ARG),< 327 PSIXMF [SIXBIT\ARG'_\]> 328 329 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 330 ;* CONSERVES CORE OVER ASCIZ 331 332 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 333 334 ;*CONSOLE SWITCH INPUT UUO. 335 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 336 ;* USER MODE. 337 338 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 339 340 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 341 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 342 343 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 344 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 345 346 ;*KS-10 CACHE OPERATION UUO'S 347 348 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 349 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 350 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0022 351 ;*END OF PASS/PROGRAM UUOS 352 353 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 354 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 355 356 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 357 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 358 359 ;*MEMORY MANAGEMENT UUO'S 360 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 361 ;*ADDRESS CONVERSION, ETC... 362 363 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 364 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 365 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 366 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 367 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 368 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 369 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 370 371 ;*DEVICE CODE MODIFICATION UUO 372 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 373 ;*IOT'S TO A DIFFERENT DEVICE CODE. 374 375 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 376 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 377 378 030000 IFNDEF MODDVL, 379 030000 IFNDEF MODDVU, 380 381 ;*"DIAMON" FILE SELECTION AND READ UUOS 382 383 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 384 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 385 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 386 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 387 388 XLIST 389 IFNDEF EROLD, 414 415 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 416 417 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 418 SALL 419 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 420 CORECT,,ACTUAL 421 [SIXBIT\D'_\],,ERR] 422 XALL> 423 424 >;END OF EROLD CONDITIONAL 425 426 XLIST 427 LIST DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024 428 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 429 430 030000 LOC 30000 431 432 S^;*********************************************************************^ 433 ;*PROGRAM STARTING ADDRESSES 434 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 435 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 436 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 437 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 438 S^;*********************************************************************^ 439 440 030000 254 00 1 00 027776 BEGIN: JRST @@MODLNK ;STAND-ALONE START 441 030001 254 00 0 00 030622 $START: JRST START ;MODE CHECK STARTING ADDRESS 442 443 030002 254 00 1 00 027774 DIAGMN: JRST @@LDLNK ;DIAGNOSTIC MONITOR START 444 445 030003 254 00 1 00 027774 SYSEXR: JRST @@LDLNK ;SYSTEM EXERCISER START 446 447 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 448 449 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 450 451 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 452 453 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 454 030007 254 00 1 00 027775 DDTSRT: JRST @@DDTLNK ;DDT START 455 456 030010 254 00 0 00 030625 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 457 030011 254 00 1 00 027777 SBINIT: JRST @@SUBLNK ;PMGINT LINKAGE 458 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 459 460 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 461 030014 254000 030000 START2: SADR8 ; " 462 030015 254000 030000 START3: SADR9 ; " 463 030016 254000 030000 START4: SADR10 ; " 464 030017 254000 030000 START5: SADR11 ; " DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025 465 S^;*********************************************************************^ 466 ;*PROGRAM FIXED PARAMETER AREA 467 S^;*********************************************************************^ 468 469 030020 446353 415500 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 470 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 471 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 472 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 473 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 474 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 475 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 476 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 477 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 478 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 479 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 480 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 481 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 482 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 483 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 484 485 S^;*********************************************************************^ 486 ;*PROGRAM VARIABLE PARAMETER AREA 487 S^;*********************************************************************^ 488 489 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 490 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 491 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 492 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 493 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 494 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 495 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 496 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 497 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 498 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 499 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 500 030052 000000 000000 ERRPC: 0 ;ERROR PC 501 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 502 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 503 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 504 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026 505 S^;*********************************************************************^ 506 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 507 S^;*********************************************************************^ 508 509 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 510 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 511 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 512 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 513 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 514 030064 CPOPJ1: ;SKIP RETURN 515 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 516 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 517 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 518 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 519 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 520 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 521 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 522 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 523 030073 255 00 0 00 000000 $USRHL: JFCL ; " 524 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 525 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 526 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 527 030077 255 00 0 00 000000 RESRT2: JFCL ; " 528 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 529 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 530 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 531 532 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 533 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 534 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 535 536 S^;*********************************************************************^ 537 ;*PROCESSOR CONTROL STORAGE 538 S^;*********************************************************************^ 539 540 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 541 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 542 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 543 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 544 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 545 546 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 547 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 548 549 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 550 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 551 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 552 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 553 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 554 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 555 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027 556 S^;*********************************************************************^ 557 ;*UUO DISPATCH TABLE 558 S^;*********************************************************************^ 559 XLIST 560 LIST 561 030124 040465 030070 UUODIS: LUUO1,,$UUOER 562 030125 040465 040465 LUUO3,,LUUO2 563 030126 040465 040465 LUUO5,,LUUO4 564 030127 040465 040465 LUUO7,,LUUO6 565 030130 040465 040465 LUUO11,,LUUO10 566 030131 040465 040465 LUUO13,,LUUO12 567 030132 030070 030070 LUUO15,,LUUO14 568 030133 030070 030070 LUUO17,,LUUO16 569 030134 030070 030070 LUUO21,,LUUO20 570 030135 030070 030070 LUUO23,,LUUO22 571 030136 030070 030070 LUUO25,,LUUO24 572 030137 030070 030070 LUUO27,,LUUO26 573 030140 030070 030070 LUUO31,,LUUO30 574 030141 030070 030070 LUUO33,,LUUO32 575 576 S^;*********************************************************************^ 577 ;*MEMORY MANAGMENT STORAGE 578 S^;*********************************************************************^ 579 580 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 581 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 582 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 583 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 584 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 585 586 S^;*********************************************************************^ 587 ;*PRINT CONTROL STORAGE 588 S^;*********************************************************************^ 589 590 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 591 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 592 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 593 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 594 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 595 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 596 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 597 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 598 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 599 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 600 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 601 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 602 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 603 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 604 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 605 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 606 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 607 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 608 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028 609 S^;*********************************************************************^ 610 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 611 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 612 ;* MOVEI NAME 613 ;* PNTA ;OR PNTAF 614 S^;*********************************************************************^ 615 616 030242 CRLF: ASCII/ 617 030242 015 012 000 000 000 / 618 030243 CRLF2: ASCII/ 619 620 030243 015 012 015 012 000 / 621 030244 054 000 000 000 000 COMMA: ASCII/,/ 622 030245 056 000 000 000 000 PERIOD: ASCII/./ 623 030246 040 000 000 000 000 SPACE: ASCII/ / 624 030247 011 000 000 000 000 TAB: ASCII/ / 625 030250 MINUS: 626 030250 055 000 000 000 000 HYPEN: ASCII/-/ 627 030251 053 000 000 000 000 PLUS: ASCII/+/ 628 030252 052 000 000 000 000 AST: ASCII/*/ 629 030253 100 000 000 000 000 ATSIN: ASCII/@@/ 630 030254 050 000 000 000 000 LFP: ASCII/(/ 631 030255 051 000 000 000 000 RTP: ASCII/)/ 632 030256 007 0000000000 BELL: BYTE (7) 007 633 030257 077 000 000 000 000 QUEST: ASCII/?/ 634 030260 057 000 000 000 000 SLASH: ASCII!/! 635 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 636 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 637 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 638 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 639 640 S^;*********************************************************************^ 641 ;*USER MODE OUTPUT FILE INFORMATION 642 S^;*********************************************************************^ 643 644 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 645 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 646 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 647 030272 BLOCK 2 648 649 S^;*********************************************************************^ 650 ;*DISK UPDATE MODE FILE INFORMATION 651 S^;*********************************************************************^ 652 653 030274 $IBUF: BLOCK 3 654 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 655 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 656 030301 BLOCK 2 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029 657 S^;*********************************************************************^ 658 ;*PUSHDOWN LIST CONTROL INFORMATION 659 S^;*********************************************************************^ 660 661 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 662 030304 PLISTS: BLOCK 200 663 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 664 665 S^;*********************************************************************^ 666 ;*POWER LINE CLOCK FREQUENCY FLAG 667 S^;*********************************************************************^ 668 669 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 670 671 S^;*********************************************************************^ 672 ;*KL10 CACHE CONTROL FLAGS 673 S^;*********************************************************************^ 674 675 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 676 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 677 678 S^;*********************************************************************^ 679 ;*NUMBER INPUT DIGIT FLAG 680 S^;*********************************************************************^ 681 682 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 683 684 S^;*********************************************************************^ 685 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 686 S^;*********************************************************************^ 687 688 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 689 690 S^;*********************************************************************^ 691 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 692 S^;*********************************************************************^ 693 694 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 695 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 696 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 697 698 S^;*********************************************************************^ 699 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 700 S^;*********************************************************************^ 701 702 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030 703 S^;*********************************************************************^ 704 ;*USER MODE MONITOR TYPE FLAG 705 S^;*********************************************************************^ 706 707 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 708 709 S^;*********************************************************************^ 710 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 711 S^;*********************************************************************^ 712 713 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 714 715 S^;*********************************************************************^ 716 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 717 S^;*********************************************************************^ 718 719 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 720 721 S^;*********************************************************************^ 722 ;*"SWITCH" CALL USAGE CONTROL 723 S^;*********************************************************************^ 724 725 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 726 727 S^;*********************************************************************^ 728 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 729 S^;*********************************************************************^ 730 731 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 732 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 733 734 S^;*********************************************************************^ 735 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 736 S^;*********************************************************************^ 737 738 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 739 740 S^;*********************************************************************^ 741 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 742 S^;*********************************************************************^ 743 744 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 745 746 S^;*********************************************************************^ 747 ;*SPECIAL FUTURE EXPANSION ROOM 748 S^;*********************************************************************^ 749 750 S^;*********************************************************************^ 751 ;*END OF FIXED STORAGE 752 S^;*********************************************************************^ 753 754 030577 LOC 30577 755 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 DSKAM1 MAC 29-Mar-78 10:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0031 756 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE 757 030601 000000 030600 EXIT 758 759 030602 PGMNAM: ASCIZ % 760 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAM] 761 030603 123 131 123 124 105 762 030604 115 040 062 060 062 763 030605 060 040 102 101 123 764 030606 111 103 040 111 116 765 030607 123 124 122 125 103 766 030610 124 111 117 116 040 767 030611 104 111 101 107 116 768 030612 117 123 124 111 103 769 030613 040 133 104 123 113 770 030614 101 115 135 015 012 BYTE/BLT/JFFO/MISC 771 030615 102 131 124 105 057 772 030616 102 114 124 057 112 773 030617 106 106 117 057 115 774 030620 111 123 103 015 012 % 775 030621 000 000 000 000 000 776 777 ;INITIALIZE SUBROUTINES 778 779 030622 265 00 0 00 030011 START: PGMINT 780 030623 200 00 0 00 040653 MOVE [ASCIZ/AM/] 781 030624 202 00 0 00 040574 MOVEM TLET 782 783 030625 254 00 0 00 030626 STARTA: JRST PART1 ;GO PERFORM DIAGNOSTIC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 2 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0032 784 SUBTTL PART IA - BYTE MANIPULATION 785 786 787 ;PART IA - BYTE LOGIC TESTS 788 ;INST-IBP 789 ;TEST ABILITY TO FCE PSE AND DECODE 790 ;PFIELD=14 791 ;SFIELD=6 792 ;BYTEWORD=0,-1 793 ;DESTAC=0 794 ;AN ERROR WILL OCCUR IF AC DIFFERS FROM 0 795 ;FOLLOWING IBP 796 797 000005 PART1: AC=5 798 SAVEAC (1,1)^ 799 030626 201 07 0 00 030626 MOVEI AC+2,. ;SAVE TEST PC 800 030627 202 07 0 00 030051 MOVEM AC+2,TESTPC 801 030630 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 802 030631 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 803 804 030632 205 06 0 00 140600 G100: MOVSI AC+1,140600 ;SETUP PNTR WORD 805 030633 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD 806 030634 400 05 0 00 000000 SETZ AC, ;SETUP DEST AC 807 030635 133 00 0 00 000006 IBP ,&17 ;INC PNTR WORD 808 030636 332 00 0 00 000005 SKIPE AC&17 ;TEST AC DIFFERS FROM 0 809 030637 003 05 0 00 000101 ER3 AC,101 ;FCE PSE FAILED 810 030640 321 07 0 00 030632 JUMPL AC+2,G100 ;LOOP ON ERROR SWITCH 811 812 ;INST-IBP 813 ;TEST ABILITY TO INCREMENT BYTE PNTR 814 ;WITHOUT AFFECTING BYTE WORD 815 ;PFIELD=14 816 ;SFIELD=6 817 ;BYTE ADDRESS=AC0 818 ;AN ERROR WILL OCCUR IF C(AC0) DIFFERS 819 ;FROM ORIGINAL FOLLOWING IBP 820 821 000014 AC=14 822 SAVEAC (1,1)^ 823 030641 201 16 0 00 030641 MOVEI AC+2,. ;SAVE TEST PC 824 030642 202 16 0 00 030051 MOVEM AC+2,TESTPC 825 030643 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 826 030644 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 827 828 030645 474 12 0 00 000000 G200: SETO AC-2, ;SETUP FOR COMPARISON 829 030646 205 15 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 830 030647 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 831 030650 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 832 030651 312 00 0 00 000012 CAME ,&17 ;TEST BYTE WORD 833 030652 012 00 0 00 000201 ER12 ,201 ;BYTE WORD FAILED 834 030653 321 16 0 00 030645 JUMPL AC+2,G200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0033 835 ;INST-IBP 836 ;PFIELD=22 837 ;SFIELD=6 838 ;AN ERROR WILL OCCUR IF POINTER IS NOT INCREMENTED 839 840 000013 AC=13 841 SAVEAC (1,1)^ 842 030654 201 15 0 00 030654 MOVEI AC+2,. ;SAVE TEST PC 843 030655 202 15 0 00 030051 MOVEM AC+2,TESTPC 844 030656 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 845 030657 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 846 847 030660 205 11 0 00 060600 G300: MOVSI AC-2,060600 ;SETUP FOR COMPARISON 848 030661 205 14 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 849 030662 133 00 0 00 000014 IBP ,&17 ;INCREMENT PNTR 850 030663 312 14 0 00 000011 CAME AC+1,&17 ;TEST PNTR INC 851 030664 005 14 0 00 000301 ER5 AC+1,301 ;POINTER FAILED 852 030665 321 15 0 00 030660 JUMPL AC+2,G300 ;LOOP ON ERROR SWITCH 853 854 ;INST - IBP 855 ;PFIELD=16 856 ;SFIELD=6 857 858 000012 AC=12 859 SAVEAC (1,1)^ 860 030666 201 14 0 00 030666 MOVEI AC+2,. ;SAVE TEST PC 861 030667 202 14 0 00 030051 MOVEM AC+2,TESTPC 862 030670 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 863 030671 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 864 865 030672 205 10 0 00 100600 G400: MOVSI AC-2,100600 ;SETUP FOR COMPARISON 866 030673 205 13 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR 867 030674 133 00 0 00 000013 IBP ,&17 ;INCREMENT PNTR 868 030675 312 13 0 00 000010 CAME AC+1,&17 ;TEST PFIELD 869 030676 005 13 0 00 000401 ER5 AC+1,401 ;POINTER FAILED 870 030677 321 14 0 00 030672 JUMPL AC+2,G400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0034 871 ;INST-IBP 872 ;TEST ABILITY TO TRANSFER INCREMENTED 873 ;PFIELD 874 ;TEST JAM-ZERO'S 875 ;PFIELD=77 876 ;SFIELD=1,2,4,10,20,40 877 ;TEST JAM-ONE'S 878 ;PFIELD=6,14,30,60,40 879 ;SFIELD=3,6,14,30,20 880 881 000010 AC=10 882 SAVEAC (1,1)^ 883 030700 201 12 0 00 030700 MOVEI AC+2,. ;SAVE TEST PC 884 030701 202 12 0 00 030051 MOVEM AC+2,TESTPC 885 030702 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 886 030703 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 887 888 000600 SN=600 889 000040 ZZ=40 890 004000 YY=4000 891 892 G600: REPEAT ^D6, 893 &17 ;INCREMENT BYTE PNTR 899 CAME AC+1,&17 ;TEST PFIELD 900 ER5 AC+1,SN ;BIT UNDER TEST FAILED 901 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 902 > 903 000601 SN=SN+1 904 000100 ZZ=ZZ+ZZ 905 010000 YY=YY+YY 906 030704 205 06 0 00 760100 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 907 030705 205 11 0 00 770100 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 908 030706 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 909 030707 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 910 030710 005 11 0 00 000601 ER5 AC+1,SN ;BIT UNDER TEST FAILED 911 030711 321 12 0 00 030704 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 912 913 000602 SN=SN+1 914 000200 ZZ=ZZ+ZZ 915 020000 YY=YY+YY 916 030712 205 06 0 00 750200 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 917 030713 205 11 0 00 770200 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 918 030714 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 919 030715 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 920 030716 005 11 0 00 000602 ER5 AC+1,SN ;BIT UNDER TEST FAILED 921 030717 321 12 0 00 030712 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 922 923 000603 SN=SN+1 924 000400 ZZ=ZZ+ZZ 925 040000 YY=YY+YY DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 4-1 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0035 926 030720 205 06 0 00 730400 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 927 030721 205 11 0 00 770400 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 928 030722 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 929 030723 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 930 030724 005 11 0 00 000603 ER5 AC+1,SN ;BIT UNDER TEST FAILED 931 030725 321 12 0 00 030720 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 932 933 000604 SN=SN+1 934 001000 ZZ=ZZ+ZZ 935 100000 YY=YY+YY 936 030726 205 06 0 00 671000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 937 030727 205 11 0 00 771000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 938 030730 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 939 030731 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 940 030732 005 11 0 00 000604 ER5 AC+1,SN ;BIT UNDER TEST FAILED 941 030733 321 12 0 00 030726 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 942 943 000605 SN=SN+1 944 002000 ZZ=ZZ+ZZ 945 200000 YY=YY+YY 946 030734 205 06 0 00 572000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 947 030735 205 11 0 00 772000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 948 030736 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 949 030737 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 950 030740 005 11 0 00 000605 ER5 AC+1,SN ;BIT UNDER TEST FAILED 951 030741 321 12 0 00 030734 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 952 953 000606 SN=SN+1 954 004000 ZZ=ZZ+ZZ 955 400000 YY=YY+YY 956 030742 205 06 0 00 374000 MOVSI AC-2,770000+ZZ-YY ;SETUP FOR COMPARISON 957 030743 205 11 0 00 774000 MOVSI AC+1,770000+ZZ ;SETUP PNTR WORD 958 030744 133 00 0 00 000011 IBP ,&17 ;INCREMENT BYTE PNTR 959 030745 312 11 0 00 000006 CAME AC+1,&17 ;TEST PFIELD 960 030746 005 11 0 00 000606 ER5 AC+1,SN ;BIT UNDER TEST FAILED 961 030747 321 12 0 00 030742 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 962 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 5 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0036 963 000011 AC=11 964 SAVEAC (1,1)^ 965 030750 201 13 0 00 030750 MOVEI AC+2,. ;SAVE TEST PC 966 030751 202 13 0 00 030051 MOVEM AC+2,TESTPC 967 030752 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 968 030753 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 969 970 ;TEST AR1(1) 971 030754 205 07 0 00 202000 G700: MOVSI AC-2,202000 ;SETUP FOR COMPARISON 972 030755 205 12 0 00 402000 MOVSI AC+1,402000 ;SETUP PNTR WORD 973 030756 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 974 030757 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD 975 030760 005 12 0 00 000701 ER5 AC+1,701 ;POINTER FAILED TO INCREMENT CORRECTLY 976 030761 321 13 0 00 030754 JUMPL AC+2,G700 ;LOOP ON ERROR SWITCH 977 978 ;TEST AR2(1) 979 030762 205 07 0 00 303000 G1000: MOVSI AC-2,303000 ;SETUP FOR COMPARISON 980 030763 205 12 0 00 603000 MOVSI AC+1,603000 ;SETUP PNTR 981 030764 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 982 030765 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD 983 030766 005 12 0 00 001001 ER5 AC+1,1001 ;POINTER FAILED TO INCREMENT CORRECTLY 984 030767 321 13 0 00 030762 JUMPL AC+2,G1000 ;LOOP ON ERROR SWITCH 985 986 030770 205 07 0 00 141400 G1100: MOVSI AC-2,141400 ;SETUP FOR COMPARISON 987 030771 205 12 0 00 301400 MOVSI AC+1,301400 ;SETUP PNTR 988 030772 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 989 030773 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD 990 030774 005 12 0 00 001101 ER5 AC+1,1101 ;POINTER FAILED TO INCREMENT CORRECTLY 991 030775 321 13 0 00 030770 JUMPL AC+2,G1100 ;LOOP ON ERROR SWITCH 992 993 ;TEST AR4(1) 994 030776 205 07 0 00 060600 G1200: MOVSI AC-2,060600 ;SETUP FOR COMPARISON 995 030777 205 12 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR 996 031000 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 997 031001 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD 998 031002 005 12 0 00 001201 ER5 AC+1,1201 ;POINTER FAILED TO INCREMENT CORRECTLY 999 031003 321 13 0 00 030776 JUMPL AC+2,G1200 ;LOOP ON ERROR SWITCH 1000 1001 ;TEST AR5(1) 1002 031004 205 07 0 00 030300 G1300: MOVSI AC-2,030300 ;SETUP FOR COMPARISON 1003 031005 205 12 0 00 060300 MOVSI AC+1,060300 ;SETUP PNTR 1004 031006 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1005 031007 312 12 0 00 000007 CAME AC+1,&17 ;TEST P FIELD 1006 031010 005 12 0 00 001301 ER5 AC+1,1301 ;POINTER FAILED TO INCREMENT CORRECTLY 1007 031011 321 13 0 00 031004 JUMPL AC+2,G1300 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0037 1008 ;INST-IBP 1009 ;PFIELD=5 1010 ;SFIELD=10 1011 1012 000005 AC=5 1013 SAVEAC (1,1)^ 1014 031012 201 07 0 00 031012 MOVEI AC+2,. ;SAVE TEST PC 1015 031013 202 07 0 00 030051 MOVEM AC+2,TESTPC 1016 031014 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1017 031015 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1018 1019 031016 205 03 0 00 341000 G1400: MOVSI AC-2,341000 ;SETUP FOR COMPARISON 1020 031017 205 06 0 00 051000 MOVSI AC+1,051000 ;SETUP PNTR WORD 1021 031020 133 00 0 00 000006 IBP ,&17 ;INCREMENT PNPR 1022 031021 620 06 0 00 000001 TRZ AC+1,1 ;CREAR ADDRESS FIELD OF POINTER 1023 031022 312 06 0 00 000003 CAME AC+1,&17 ;TEST P FIELD 1024 031023 005 06 0 00 001401 ER5 AC+1,1401 ;POINTER FAILED 1025 031024 321 07 0 00 031016 JUMPL AC+2,G1400 ;LOOP ON ERROR SWITCH 1026 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 6-1 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0038 1027 ;INST - IBP 1028 ;TEST ABILITY TO TRANSFER PFIELD 1029 ;PRELIMINARY - TEST FOR PRESENCE 1030 ; OF PULSE 1031 ;PFIELD=16 1032 ;SFIELD=6 1033 1034 000005 AC=5 1035 SAVEAC (1,1)^ 1036 031025 201 07 0 00 031025 MOVEI AC+2,. ;SAVE TEST PC 1037 031026 202 07 0 00 030051 MOVEM AC+2,TESTPC 1038 031027 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1039 031030 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1040 1041 031031 205 03 0 00 100600 G1500: MOVSI AC-2,100600 ;SETUP FOR COMPARISON 1042 031032 205 06 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR WORD 1043 031033 133 00 0 00 000006 IBP ,&17 ;INCREMENT BYTE PNTR 1044 031034 620 06 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1045 031035 312 06 0 00 000003 CAME AC+1,&17 ;TEST PFIELD 1046 031036 005 06 0 00 001501 ER5 AC+1,1501 ;POINTER FAILED 1047 031037 321 07 0 00 031031 JUMPL AC+2,G1500 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0039 1048 ;INST-IBP 1049 ;TEST ABILITY TO TRANSFER PFIELD 1050 ;TEST ABILITY TO SET INDIVIDUAL 1051 ;SC BITS 3-8 1052 ;PFIELD=1,2,4,10,20,40 1053 ;SFIELD=1,2,4,10,20,40 1054 1055 000014 AC=14 1056 SAVEAC (1,1)^ 1057 031040 201 16 0 00 031040 MOVEI AC+2,. ;SAVE TEST PC 1058 031041 202 16 0 00 030051 MOVEM AC+2,TESTPC 1059 031042 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1060 031043 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1061 ;TEST SC BIT 8 SET 1062 031044 205 12 0 00 000100 G1600: MOVSI AC-2,000100 ;SETUP FOR COMPARISON 1063 031045 205 15 0 00 010100 MOVSI AC+1,010100 ;SETUP PNTR WORD 1064 031046 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1065 031047 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1066 031050 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 8 1067 031051 005 15 0 00 001601 ER5 AC+1,1601 ;POINTER FAILED 1068 031052 321 16 0 00 031044 JUMPL AC+2,G1600 ;LOOP ON ERROR SWITCH 1069 1070 ;TEST SC BIT 7 SET 1071 031053 205 12 0 00 000200 G1700: MOVSI AC-2,000200 ;SETUP FOR COMPARISON 1072 031054 205 15 0 00 020200 MOVSI AC+1,020200 ;SETUP PNTR WORD 1073 031055 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1074 031056 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1075 031057 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 7 1076 031060 005 15 0 00 001701 ER5 AC+1,1701 ;POINTER FAILED 1077 031061 321 16 0 00 031053 JUMPL AC+2,G1700 ;LOOP ON ERROR SWITCH 1078 1079 ;TEST SC BIT 6 SET 1080 031062 205 12 0 00 000400 G2000: MOVSI AC-2,000400 ;SETUP FOR COMPARISON 1081 031063 205 15 0 00 040400 MOVSI AC+1,040400 ;SETUP PNTR WORD 1082 031064 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1083 031065 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1084 031066 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 6 1085 031067 005 15 0 00 002001 ER5 AC+1,2001 ;POINTER FAILED 1086 031070 321 16 0 00 031062 JUMPL AC+2,G2000 ;LOOP ON ERROR SWITCH 1087 1088 ;TEST SC BIT 5 SET 1089 031071 205 12 0 00 001000 G2100: MOVSI AC-2,001000 ;SETUP FOR COMPARISON 1090 031072 205 15 0 00 101000 MOVSI AC+1,101000 ;SETUP PNTR WORD 1091 031073 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1092 031074 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1093 031075 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 5 1094 031076 005 15 0 00 002101 ER5 AC+1,2101 ;POINTER FAILED 1095 031077 321 16 0 00 031071 JUMPL AC+2,G2100 ;LOOP ON ERROR SWITCH 1096 1097 ;TEST SC BIT 4 SET 1098 031100 205 12 0 00 002000 G2200: MOVSI AC-2,002000 ;SETUP FOR COMPARISON 1099 031101 205 15 0 00 202000 MOVSI AC+1,202000 ;SETUP PNTR WORD 1100 031102 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1101 031103 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1102 031104 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 4 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 7-1 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0040 1103 031105 005 15 0 00 002201 ER5 AC+1,2201 ;POINTER FAILED 1104 031106 321 16 0 00 031100 JUMPL AC+2,G2200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 8 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0041 1105 ;TEST SC BIT 3 SET 1106 031107 205 12 0 00 004000 G2300: MOVSI AC-2,004000 ;SETUP FOR COMPARISON 1107 031110 205 15 0 00 404000 MOVSI AC+1,404000 ;SETUP PNTR WORD 1108 031111 133 00 0 00 000015 IBP ,&17 ;INCREMENT BYTE PNTR 1109 031112 620 15 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1110 031113 312 15 0 00 000012 CAME AC+1,&17 ;TEST BIT 3 1111 031114 005 15 0 00 002301 ER5 AC+1,2301 ;POINTER FAILED 1112 031115 321 16 0 00 031107 JUMPL AC+2,G2300 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 9 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0042 1113 ;INST-IBP 1114 ;TEST ABILITY TO SET SC BITS 3,6 1115 ;PFIELD=6 1116 ;SFIELD=10 1117 ;FAILURE OF BIT 3 TO SET RESULTS IN A 1118 ;PFIELD=74 1119 ;FAILURE OF BIT 6 TO SET RESULTS IN 1120 ;A PFEILD=30 1121 ;SC BIT2 IS NOT TESTED-FAILURE TO SET 1122 ;BIT 2 RESULTS IN LOOPING 1123 1124 000013 AC=13 1125 SAVEAC (1,1)^ 1126 031116 201 15 0 00 031116 MOVEI AC+2,. ;SAVE TEST PC 1127 031117 202 15 0 00 030051 MOVEM AC+2,TESTPC 1128 031120 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1129 031121 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1130 1131 031122 205 11 0 00 341000 G2400: MOVSI AC-2,341000 ;SETUP FOR COMPARISON 1132 031123 205 14 0 00 061000 MOVSI AC+1,061000 ;SETUP PNTR WORD 1133 031124 133 00 0 00 000014 IBP ,&17 ;INCREMENT PNTR 1134 031125 620 14 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1135 031126 312 14 0 00 000011 CAME AC+1,&17 ;TEST SC3 (1) 1136 031127 005 14 0 00 002401 ER5 AC+1,2401 ;POINTER FAILED 1137 031130 321 15 0 00 031122 JUMPL AC+2,G2400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 10 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0043 1138 ;INST-IBP 1139 ;TEST ABILITY TO CLEAR INDIVIDUAL 1140 ;SC BITS 1141 ;PFIELD=20,10,2,1 1142 ;SFIELD=21,11,3,2 1143 ;FAILURE TO CLEAR SC BITS 4,5,7 1144 ;OR 8 RESULTS IN A PFIELD=43 1145 ;FAILURE TO CLEAR SC BITS 3 OR 6 1146 ;WILL NOT BE APPARENT 1147 1148 000011 AC=11 1149 SAVEAC (1,1)^ 1150 031131 201 13 0 00 031131 MOVEI AC+2,. ;SAVE TEST PC 1151 031132 202 13 0 00 030051 MOVEM AC+2,TESTPC 1152 031133 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1153 031134 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1154 1155 ;TEST SC4 CLEARING 1156 031135 205 07 0 00 232100 G2600: MOVSI AC-2,232100 ;SETUP FOR COMPARISON 1157 031136 205 12 0 00 202100 MOVSI AC+1,202100 ;SETUP PNTR WORD 1158 031137 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1159 031140 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1160 031141 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD=43 1161 031142 005 12 0 00 002601 ER5 AC+1,2601 ;POINTER FAILED 1162 031143 321 13 0 00 031135 JUMPL AC+2,G2600 ;LOOP ON ERROR SWITCH 1163 1164 ;TEST SC5 CLEARING 1165 031144 205 07 0 00 331100 G2700: MOVSI AC-2,331100 ;SETUP FOR COMPARISON 1166 031145 205 12 0 00 101100 MOVSI AC+1,101100 ;SETUP PNTR WORD 1167 031146 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1168 031147 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1169 031150 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD=45 1170 031151 005 12 0 00 002701 ER5 AC+1,2701 ;POINTER FAILED 1171 031152 321 13 0 00 031144 JUMPL AC+2,G2700 ;LOOP ON ERROR SWITCH 1172 1173 ;TEST SC 7 CLEARING 1174 031153 205 07 0 00 410300 G3000: MOVSI AC-2,410300 ;SETUP FOR COMPARISON 1175 031154 205 12 0 00 020300 MOVSI AC+1,020300 ;SETUP PNTR 1176 031155 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1177 031156 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1178 031157 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD=43 1179 031160 005 12 0 00 003001 ER5 AC+1,3001 ;POINTER FAILED 1180 031161 321 13 0 00 031153 JUMPL AC+2,G3000 ;LOOP ON ERROR SWITCH 1181 1182 ;TEST SC8 CLEARING 1183 031162 205 07 0 00 420200 G3100: MOVSI AC-2,420200 ;SETUP FOR COMPARISON 1184 031163 205 12 0 00 010200 MOVSI AC+1,010200 ;SETUP PNTR 1185 031164 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1186 031165 620 12 0 00 000001 TRZ AC+1,1 ;CLEAR BIT 35 1187 031166 312 12 0 00 000007 CAME AC+1,&17 ;TEST PFIELD=43 1188 031167 005 12 0 00 003101 ER5 AC+1,3101 ;POINTER FAILED 1189 031170 321 13 0 00 031162 JUMPL AC+2,G3100 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 11 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0044 1190 ;INST-IBP 1191 ;TEST ABILITY TO INCREMENT ADDRESS 1192 ;FIELD OF PNTR WORD 1193 ;PFIELD=6 1194 ;SFIELD=10 1195 ;LOSS OF THE SFIELD AND AN ADDRESS=1 1196 1197 000012 AC=12 1198 SAVEAC (1,1)^ 1199 031171 201 14 0 00 031171 MOVEI AC+2,. ;SAVE TEST PC 1200 031172 202 14 0 00 030051 MOVEM AC+2,TESTPC 1201 031173 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1202 031174 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1203 1204 031175 205 10 0 00 341000 G3200: MOVSI AC-2,341000 ;SETUP AC-2 1205 031176 340 10 0 00 031177 AOJ AC-2,.+1 ;FOR COMPARISON 1206 031177 205 13 0 00 061000 MOVSI AC+1,061000 ;SETUP PNTR WORD 1207 031200 133 00 0 00 000013 IBP ,&17 ;INC PNTR WORD 1208 031201 312 13 0 00 000010 CAME AC+1,&17 ;TEST FOR ERROR PNTR 1209 031202 005 13 0 00 003201 ER5 AC+1,3201 ;POINTER FAILED 1210 031203 321 14 0 00 031175 JUMPL AC+2,G3200 ;LOOP ON ERROR SWITCH 1211 1212 ;INST-IBP 1213 ;TEST ABILITY TO INCREMENT 1214 ;ADDRESS FIELD OF PNTR WORD 1215 ;PFIELD=6 1216 ;SFIELD=10 1217 1218 000011 AC=11 1219 SAVEAC (1,1)^ 1220 031204 201 13 0 00 031204 MOVEI AC+2,. ;SAVE TEST PC 1221 031205 202 13 0 00 030051 MOVEM AC+2,TESTPC 1222 031206 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1223 031207 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1224 1225 031210 505 07 0 00 341000 G3300: HRLI AC-2,341000 ;SETUP AC-2 FOR 1226 031211 541 07 0 00 000012 HRRI AC-2,&17 ;COMPARISON 1227 031212 505 12 0 00 061000 HRLI AC+1,061000 ;SETUP BYTE 1228 031213 541 12 0 00 000011 HRRI AC+1,AC&17 ;PNTR WORD 1229 031214 133 00 0 00 000012 IBP ,&17 ;INCREMENT PNTR 1230 031215 312 12 0 00 000007 CAME AC+1,&17 ;TEST ADDRESS 1231 031216 005 12 0 00 003301 ER5 AC+1,3301 ;POINTER FAILED 1232 031217 321 13 0 00 031210 JUMPL AC+2,G3300 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 12 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0045 1233 ;INST-LDB 1234 ;TEST ABILITY TO FCE (2ND PART) 1235 ;FAILURE TO FCE RESULTS IN LOSS 1236 ;OF DATA WORD 1237 ;PFIELD=0 1238 ;SFIELD=6 1239 ;BYTE WORD=0,777777 1240 ;DEST AC=0 1241 1242 000014 AC=14 1243 SAVEAC (1,1)^ 1244 031220 201 16 0 00 031220 MOVEI AC+2,. ;SAVE TEST PC 1245 031221 202 16 0 00 030051 MOVEM AC+2,TESTPC 1246 031222 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1247 031223 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1248 1249 031224 505 15 0 00 000600 G3400: HRLI AC+1,000600 ;SETUP BYTE 1250 031225 541 15 0 00 000005 HRRI AC+1,5 ;PNTR WORD 1251 031226 201 05 0 00 777777 MOVEI 5,-1 ;SETUP BYTE WORD 1252 031227 400 14 0 00 000000 SETZ AC, ;CLEAR DEST AC 1253 031230 135 14 0 00 000015 LDB AC,&17 ;LOAD BYTE 1254 031231 302 14 0 00 000077 CAIE AC,77 ;TEST DEST AC=0,,77 1255 031232 003 14 0 00 003401 ER3 AC,3401 ;AC FAILED 1256 031233 321 16 0 00 031224 JUMPL AC+2,G3400 ;LOOP ON ERROR SWITCH 1257 1258 ;INST-LDB 1259 ;P FIELD =14 1260 ;S FIELD =6 1261 ;BYTE WORD =-1 1262 1263 000011 AC=11 1264 SAVEAC (1,1)^ 1265 031234 201 13 0 00 031234 MOVEI AC+2,. ;SAVE TEST PC 1266 031235 202 13 0 00 030051 MOVEM AC+2,TESTPC 1267 031236 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1268 031237 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1269 1270 031240 551 07 0 00 000077 G3500: HRRZI AC-2,77 ;SETUP FOR COMPARISON 1271 031241 205 12 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR 1272 031242 474 00 0 00 000000 SETO ;SETUP BYTE WORD 1273 031243 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 1274 031244 312 11 0 00 000007 CAME AC,&17 ;TEST BYTE=0,,77 1275 031245 003 11 0 00 003501 ER3 AC,3501 ;AC FAILED 1276 031246 321 13 0 00 031240 JUMPL AC+2,G3500 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 13 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0046 1277 ;INST-LDB 1278 ;PFIELD=14 1279 ;SFIELD=6 1280 ;BYTE WORD = 777777 1281 1282 000006 AC=6 1283 SAVEAC (1,1)^ 1284 031247 201 10 0 00 031247 MOVEI AC+2,. ;SAVE TEST PC 1285 031250 202 10 0 00 030051 MOVEM AC+2,TESTPC 1286 031251 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1287 031252 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1288 1289 031253 205 07 0 00 140600 G3600: MOVSI AC+1,140600 ;SETUP PNTR WORD 1290 031254 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD (AC0) 1291 031255 135 06 0 00 000007 LDB AC,&17 ;LOAD BYTE 1292 031256 302 06 0 00 000077 CAIE AC,77 ;TEST DEST AC 1293 031257 003 06 0 00 003601 ER3 AC,3601 ;AC FAILED 1294 031260 321 10 0 00 031253 JUMPL AC+2,G3600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 14 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0047 1295 ;INST-LDB 1296 ;TEST ABILITY TO TRANSFER 2'S COMP 1297 ;SFIELD 1298 ;TEST ABILITY TO SET INDIVIDUAL 1299 ;BITS OF SC 1300 ;PFIELD=0 1301 ;SFIELD=40,20,10,4,2,1 1302 ;BYTE WORD=-1 1303 1304 000005 AC=5 1305 SAVEAC (1,1)^ 1306 031261 201 07 0 00 031261 MOVEI AC+2,. ;SAVE TEST PC 1307 031262 202 07 0 00 030051 MOVEM AC+2,TESTPC 1308 031263 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1309 031264 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1310 ;TEST SC 1,2,3 SET 1311 031265 525 03 0 00 037777 G3700: HRLOI AC-2,37777 ;SETUP FOR COMPARISON 1312 031266 205 06 0 00 004000 MOVSI AC+1,4000 ;SETUP PNTR WORD 1313 031267 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1314 031270 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1315 031271 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE=37777,,777777 1316 031272 003 05 0 00 003701 ER3 AC,3701 ;AC FAILED 1317 031273 321 07 0 00 031265 JUMPL AC+2,G3700 ;LOOP ON ERROR SWITCH 1318 1319 ;TEST SC4 SET 1320 031274 551 03 0 00 177777 G4000: HRRZI AC-2,177777 ;SETUP FOR COMPARISON 1321 031275 205 06 0 00 002000 MOVSI AC+1,2000 ;SETUP PNTR WORD 1322 031276 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1323 031277 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1324 031300 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE=0,,177777 1325 031301 003 05 0 00 004001 ER3 AC,4001 ;AC FAILED 1326 031302 321 07 0 00 031274 JUMPL AC+2,G4000 ;LOOP ON ERROR SWITCH 1327 1328 ;TEST SC5 SET 1329 031303 201 03 0 00 000377 G4100: MOVEI AC-2,377 ;SETUP FOR COMPARISON 1330 031304 205 06 0 00 001000 MOVSI AC+1,1000 ;SETUP PNTR WORD 1331 031305 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1332 031306 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1333 031307 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE = 0,,377 1334 031310 003 05 0 00 004101 ER3 AC,4101 ;AC FAILED 1335 031311 321 07 0 00 031303 JUMPL AC+2,G4100 ;LOOP ON ERROR SWITCH 1336 1337 ;TEST SC6 SET 1338 031312 201 03 0 00 000017 G4200: MOVEI AC-2,17 ;SETUP FOR COMPARISON 1339 031313 205 06 0 00 000400 MOVSI AC+1,400 ;SETUP PNTR WORD 1340 031314 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1341 031315 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1342 031316 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE=0,,17 1343 031317 003 05 0 00 004201 ER3 AC,4201 ;AC FAILED 1344 031320 321 07 0 00 031312 JUMPL AC+2,G4200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 15 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0048 1345 ;TEST SC 7 SET 1346 031321 201 03 0 00 000003 G4300: MOVEI AC-2,3 ;SETUP FOR COMPARISON 1347 031322 205 06 0 00 000200 MOVSI AC+1,200 ;SETUP PNTR WORD 1348 031323 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1349 031324 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1350 031325 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE=0,,3 1351 031326 003 05 0 00 004301 ER3 AC,4301 ;AC FAILED 1352 031327 321 07 0 00 031321 JUMPL AC+2,G4300 ;LOOP ON ERROR SWITCH 1353 1354 ;TEST SC 8 SET 1355 031330 201 03 0 00 000001 G4400: MOVEI AC-2,1 ;SETUP FOR COMPARISON 1356 031331 205 06 0 00 000100 MOVSI AC+1,100 ;SETUP PNTR WORD 1357 031332 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1358 031333 135 05 0 00 000006 LDB AC,&17 ;LOAD BYTE 1359 031334 312 05 0 00 000003 CAME AC,&17 ;TEST BYTE=0,,1 1360 031335 003 05 0 00 004401 ER3 AC,4401 ;AC FAILED 1361 031336 321 07 0 00 031330 JUMPL AC+2,G4400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 16 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0049 1362 ;INST-LDB 1363 ;PFIELD=6 1364 ;SFIELD=14 1365 ;BYTE WORD=000000007700 1366 1367 000014 AC=14 1368 SAVEAC (1,1)^ 1369 031337 201 16 0 00 031337 MOVEI AC+2,. ;SAVE TEST PC 1370 031340 202 16 0 00 030051 MOVEM AC+2,TESTPC 1371 031341 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1372 031342 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1373 1374 031343 201 12 0 00 000077 G4600: MOVEI AC-2,77 ;SETUP FOR COMPARISON 1375 031344 205 15 0 00 061400 MOVSI AC+1,061400 ;SETUP PNTR WORD 1376 031345 201 00 0 00 007700 MOVEI ,7700 ;SETUP BYTE WORD 1377 031346 135 14 0 00 000015 LDB AC,&17 ;LOAD BYTE 1378 031347 312 14 0 00 000012 CAME AC,&17 ;TEST BYTE =77 1379 031350 003 14 0 00 004601 ER3 AC,4601 ;AC FAILED 1380 031351 321 16 0 00 031343 JUMPL AC+2,G4600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 17 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0050 1381 ;INST-LDB 1382 ;PFIELD=6 1383 ;SFIELD=6 1384 ;BYTEWORD=-1 1385 1386 000013 AC=13 1387 SAVEAC (1,1)^ 1388 031352 201 15 0 00 031352 MOVEI AC+2,. ;SAVE TEST PC 1389 031353 202 15 0 00 030051 MOVEM AC+2,TESTPC 1390 031354 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1391 031355 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1392 1393 031356 201 11 0 00 000077 G4700: MOVEI AC-2,77 ;SETUP FOR COMPARISON 1394 031357 205 14 0 00 060600 MOVSI AC+1,060600 ;SETUP PNTR 1395 031360 474 00 0 00 000000 SETO ;SETUP BYTE WORD 1396 031361 135 13 0 00 000014 LDB AC,&17 ;LOAD BYTE 1397 031362 312 13 0 00 000011 CAME AC,&17 ;TEST BYTE=0,,77 1398 031363 003 13 0 00 004701 ER3 AC,4701 ;AC FAILED 1399 031364 321 15 0 00 031356 JUMPL AC+2,G4700 ;LOOP ON ERROR SWITCH 1400 1401 ;INST-LDB 1402 ;TEST IR 134-7 1403 ;PFIELD=14 1404 ;SFIELD=6 1405 ;BYTE WORD=-1 1406 ;AN ERROR WILL OCCUR IF PC IS INCREMENTED 1407 ;TWICE DURING EXECUTION OF LDB 1408 1409 000010 AC=10 1410 SAVEAC (1,1)^ 1411 031365 201 12 0 00 031365 MOVEI AC+2,. ;SAVE TEST PC 1412 031366 202 12 0 00 030051 MOVEM AC+2,TESTPC 1413 031367 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1414 031370 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1415 1416 031371 205 11 0 00 140600 G5000: MOVSI AC+1,140600 ;SETUP PNTR WORD 1417 031372 474 00 0 00 000000 SETO ;SETUP BYTE WORD (AC0) 1418 031373 135 10 0 00 000011 LDB AC,&17 ;LOAD BYTE 1419 031374 254 00 0 00 031376 JRST ,.+2 ;PC+1 INH ASSERTED 1420 031375 003 10 0 00 005001 ER3 AC,5001 ;AC FAILED 1421 031376 321 12 0 00 031371 JUMPL AC+2,G5000 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 18 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0051 1422 ;INST-LDB 1423 ;TEST ABILITY TO CLEAR BYF6 1424 ;PFIELD=14 1425 ;SFIELD=6 1426 ;BYTE WORD=-1 1427 ;AN ERROR WILL OCCUR IF BYF6(1) WHEN STORED 1428 ;BY JSP 1429 1430 000007 AC=7 1431 SAVEAC (1,1)^ 1432 031377 201 11 0 00 031377 MOVEI AC+2,. ;SAVE TEST PC 1433 031400 202 11 0 00 030051 MOVEM AC+2,TESTPC 1434 031401 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1435 031402 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1436 1437 031403 205 10 0 00 140600 G5100: MOVSI AC+1,140600 ;SETUP PNTR WORD 1438 031404 474 00 0 00 000000 SETO ;SETUP BYTE WORD 1439 031405 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 1440 031406 265 07 0 00 031407 JSP AC,.+1 ;STORE FLAGS 1441 031407 603 07 0 00 020000 TLNE AC,020000 ;TEST BIT 4 1442 031410 003 07 0 00 005101 ER3 AC,5101 ;AC FAILED 1443 031411 321 11 0 00 031403 JUMPL AC+2,G5100 ;LOOP ON ERROR SWITCH 1444 1445 ;INST-LDB 1446 ;TEST ABILITY TO DEFER (INDIRECT) BYTE 1447 ;PNTR ADDRESS 1448 ;FAILURE TO INDIRECTLY ADDRESS BYTE 1449 ;PNTR RESULTS IN AN ERROR BYTE 1450 ;PFIELD=0 1451 ;SFIELD=6 1452 ;ERROR BYTE=14 1453 ;CORRECT BYTE=44 1454 ;AN ERROR WILL OCCUR IF DEST AC=14 1455 ;FOLLOWING LOAD BYTE INDIRECTLY ADDRESSED 1456 1457 000006 AC=6 1458 SAVEAC (1,1)^ 1459 031412 201 10 0 00 031412 MOVEI AC+2,. ;SAVE TEST PC 1460 031413 202 10 0 00 030051 MOVEM AC+2,TESTPC 1461 031414 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1462 031415 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1463 1464 031416 205 07 0 00 000600 G5200: MOVSI AC+1,600 ;SETUP PNTR WORD 1465 031417 505 00 0 00 000600 HRLI ,600 ;SETUP INDIRECT ADDRESS 1466 031420 541 00 0 00 000014 HRRI ,14 ;PNTR WORD (AC0) 1467 031421 201 14 0 00 000044 MOVEI AC+6,44 ;SETUP CORR BYTE WORD 1468 031422 135 06 1 00 000007 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY 1469 031423 302 06 0 00 000044 CAIE AC,44 ;TEST FOR CORR BYTE 1470 031424 003 06 0 00 005201 ER3 AC,5201 ;INDIRECT ADDRESSING FAILED 1471 031425 321 10 0 00 031416 JUMPL AC+2,G5200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 19 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0052 1472 ;INST-LDB 1473 ;TEST IR RT CLR AT6 1474 ;FURTHER TEST OF IR 134-7 1475 ;TEST ABILITY TO CLEAR IR BITS 13-17 FOLLOWING 1476 ;DEFERRING OR INDEXING OF BYTE PNTR ADDR 1477 ;PFIELD=6 1478 ;SFIELD=14 1479 ;CORR BYTE WORD=222222 1480 ;DEST AC=4 1481 ;AN ERROR WILL OCCUR IF DEST AC 1482 ;EQUALS 5555 FOLLOWING LOAD BYTE 1483 1484 000007 AC=7 1485 SAVEAC (1,1)^ 1486 031426 201 11 0 00 031426 MOVEI AC+2,. ;SAVE TEST PC 1487 031427 202 11 0 00 030051 MOVEM AC+2,TESTPC 1488 031430 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1489 031431 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1490 1491 031432 205 14 0 00 061400 G5300: MOVSI AC+5,061400 ;SETUP INDEXED PNTR WORD 1492 031433 201 07 0 00 000004 MOVEI AC,4 ;SETUP INDEX AC 1493 031434 201 00 0 00 222222 MOVEI ,222222 ;SETUP CORR BYTE WORD 1494 031435 201 04 0 00 555555 MOVEI AC-3,555555 ;SETUP CORR BYTE WORD 1495 031436 135 07 0 07 000010 LDB AC,&17(AC) ;LOAD BYTE INDEXED 1496 031437 302 07 0 00 002222 CAIE AC,2222 ;TEST FOR CORR BYTE 1497 031440 003 07 0 00 005301 ER3 AC,5301 ;AC FAILED 1498 031441 321 11 0 00 031432 JUMPL AC+2,G5300 ;LOOP ON ERROR SWITCH 1499 1500 ;INST-LDB 1501 ;FURTHER TEST OF IR 134-7 1502 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS 1503 ;P FIELD=0 1504 ;S FIELD=6 1505 ;FAILURE RESULTS IN IR14-17=0, 1506 ;NO INDEX, ERROR BYTE=55 1507 1508 000010 AC=10 1509 SAVEAC (1,1)^ 1510 031442 201 12 0 00 031442 MOVEI AC+2,. ;SAVE TEST PC 1511 031443 202 12 0 00 030051 MOVEM AC+2,TESTPC 1512 031444 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1513 031445 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1514 1515 031446 505 11 0 00 000607 G5400: HRLI AC+1,000607 ;SETUP BYTE 1516 031447 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD 1517 031450 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC 1518 031451 201 05 0 00 000055 MOVEI 5,55 ;SETUP NON INDEX BYTE WORD 1519 031452 201 15 0 00 000077 MOVEI 15,77 ;SETUP INDEXED BYTE WORD 1520 031453 135 10 0 00 000011 LDB AC,&17 ;LOAD BYTE 1521 031454 302 10 0 00 000077 CAIE AC,77 ;TEST BYTE=0,,77 1522 031455 003 10 0 00 005401 ER3 AC,5401 ;AC FAILED 1523 031456 321 12 0 00 031446 JUMPL AC+2,G5400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 20 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0053 1524 ;INST-LDB 1525 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS 1526 ;P FIELD=0 1527 ;S FIELD=6 1528 ;FAILURE RESULTS IN A BYTE WORD 1529 ;ADDRESS EQUAL TO CONTENTS OF 1530 ;INDEX AC(=AC) 1531 1532 000010 AC=10 1533 SAVEAC (1,1)^ 1534 031457 201 12 0 00 031457 MOVEI AC+2,. ;SAVE TEST PC 1535 031460 202 12 0 00 030051 MOVEM AC+2,TESTPC 1536 031461 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1537 031462 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1538 1539 031463 505 11 0 00 000607 G5500: HRLI AC+1,000607 ;SETUP BYTE 1540 031464 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD 1541 031465 403 10 0 00 000005 SETZB AC,5 ;CLEAR DEST AC'S 1542 031466 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC 1543 031467 201 15 0 00 000077 MOVEI 15,77 ;SETUP BYTE WORD 1544 031470 135 10 0 00 000011 LDB AC,&17 ;LOAD BYTE 1545 031471 302 10 0 00 000077 CAIE AC,77 ;TEST FOR BYTE 1546 031472 003 10 0 00 005501 ER3 AC,5501 ;AC FAILED 1547 031473 321 12 0 00 031463 JUMPL AC+2,G5500 ;LOOP ON ERROR SWITCH 1548 1549 ;INST-LDB 1550 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS 1551 ;P FIELD=0 1552 ;S FIELD=6 1553 ;FAILURE RESULTS IN AN INDEX AC EQUAL 1554 ;TO INDEX AC+AC(AC7+AC10=AC17) 1555 1556 000010 AC=10 1557 SAVEAC (1,1)^ 1558 031474 201 12 0 00 031474 MOVEI AC+2,. ;SAVE TEST PC 1559 031475 202 12 0 00 030051 MOVEM AC+2,TESTPC 1560 031476 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1561 031477 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1562 1563 031500 505 11 0 00 000607 G5600: HRLI AC+1,000607 ;SETUP BYTE 1564 031501 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD 1565 031502 201 06 0 00 000010 MOVEI 6,10 ;SETUP INDEX AC 1566 031503 201 15 0 00 000015 MOVEI 15,15 ;SETUP BYTE WORD 1567 031504 201 16 0 00 000005 MOVEI 16,5 ;SETUP ERROR INDEX AC 1568 031505 201 14 0 00 000014 MOVEI 14,14 ;SETUP ERROR BYTE WORD 1569 031506 135 10 0 00 000011 LDB AC,&17 ;LOAD BYTE 1570 031507 302 10 0 00 000015 CAIE AC,15 ;TEST BYTE=15 1571 031510 003 10 0 00 005601 ER3 AC,5601 ;AC FAILED 1572 031511 321 12 0 00 031500 JUMPL AC+2,G5600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 21 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0054 1573 ;INST-LDB 1574 ;TEST ABILITY TO INDEX BYTE WORD ADDRESS 1575 ;P FIELD=0 1576 ;S FIELD=6 1577 ;FAILURE RESULTS IN INDEXING BY C(AC0) 1578 1579 000010 AC=10 1580 SAVEAC (1,1)^ 1581 031512 201 12 0 00 031512 MOVEI AC+2,. ;SAVE TEST PC 1582 031513 202 12 0 00 030051 MOVEM AC+2,TESTPC 1583 031514 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1584 031515 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1585 1586 031516 505 11 0 00 000607 G5700: HRLI AC+1,000607 ;SETUP BYTE 1587 031517 541 11 0 00 000005 HRRI AC+1,5 ;PNTR WORD 1588 031520 201 07 0 00 000010 MOVEI 7,10 ;SETUP INDEX AC 1589 031521 201 15 0 00 000015 MOVEI 15,15 ;SETUP BYTE WORD 1590 031522 201 00 0 00 000007 MOVEI ,7 ;SETUP ERROR INDEX AC 1591 031523 201 14 0 00 000033 MOVEI 14,33 ;SETUP ERROR BYTE WORD 1592 031524 135 10 0 00 000011 LDB AC,AC+1 ;LOAD BYTE 1593 031525 302 10 0 00 000015 CAIE AC,15 ;TEST BYTE=0,,15 1594 031526 003 10 0 00 005701 ER3 AC,5701 ;AC FAILED 1595 031527 321 12 0 00 031516 JUMPL AC+2,G5700 ;LOOP ON ERROR SWITCH 1596 1597 ;INST-ILDB 1598 ;TEST ABILITY TO ASSERT BYTE PTRINC 1599 ;P FIELD=16 1600 ;S FIELD=6 1601 ;FAILURE TO ASSERT MAY RESULT IN A HALT 1602 ;AT ET0 1603 ;AN ERROR WILL OCCUR IF PNTR WORD 1604 ;EQUALS ORIGINAL FOLLOWING ILDB 1605 1606 000005 AC=5 1607 SAVEAC (1,1)^ 1608 031530 201 07 0 00 031530 MOVEI AC+2,. ;SAVE TEST PC 1609 031531 202 07 0 00 030051 MOVEM AC+2,TESTPC 1610 031532 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1611 031533 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1612 1613 031534 205 03 0 00 100600 G6000: MOVSI AC-2,100600 ;SETUP FOR COMPARISON 1614 031535 205 06 0 00 160600 MOVSI AC+1,160600 ;SETUP PNTR WORD 1615 031536 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 1616 031537 312 06 0 00 000003 CAME AC+1,&17 ;TEST PNTR=ORIGINAL 1617 031540 004 06 0 00 006001 ER4 AC+1,6001 ;PNTR FAILED TO INCREMENT 1618 031541 321 07 0 00 031534 JUMPL AC+2,G6000 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 22 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0055 1619 1620 ;INST-ILDB 1621 ;TEST LB BYTE LOAD 1622 ;TEST BYF5 SET 1623 ;P FIELD=22 1624 ;S FIELD=22 1625 ;BYTE WORD=000000777777 1626 ;FAILURE RESULTS IN A BYTE EQUAL 1627 ;TO BYTE WORD. 1628 1629 000014 AC=14 1630 SAVEAC (1,1)^ 1631 031542 201 16 0 00 031542 MOVEI AC+2,. ;SAVE TEST PC 1632 031543 202 16 0 00 030051 MOVEM AC+2,TESTPC 1633 031544 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1634 031545 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1635 1636 031546 205 12 0 00 002200 G6100: MOVSI AC-2,002200 ;SETUP FOR COMPARISON 1637 031547 205 15 0 00 222200 MOVSI AC+1,222200 ;SETUP PNTR WORD 1638 031550 201 00 0 00 777777 MOVEI ,-1 ;SETUP BYTE WORD 1639 031551 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 1640 031552 312 00 0 00 000014 CAME ,AC ;TEST BYTE=000000777777 1641 031553 012 00 0 00 006101 ER12 ,6101 ;BYTE WORD FAILED 1642 031554 312 15 0 00 000012 CAME AC+1,&17 ;TEST PNTR WORD 1643 031555 005 15 0 00 006101 ER5 AC+1,6101 ;POINTER FAILED 1644 031556 321 16 0 00 031546 JUMPL AC+2,G6100 ;LOOP ON ERROR SWITCH 1645 1646 ;INST-ILDB 1647 ;P FIELD=22 1648 ;S FIELD=6 1649 ;BYTE WORD=0000007700000 1650 ;FAILURE RESULTS IN A BYTE 1651 ;=0 1652 1653 000013 AC=13 1654 SAVEAC (1,1)^ 1655 031557 201 15 0 00 031557 MOVEI AC+2,. ;SAVE TEST PC 1656 031560 202 15 0 00 030051 MOVEM AC+2,TESTPC 1657 031561 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1658 031562 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1659 1660 031563 205 11 0 00 140600 G6200: MOVSI AC-2,140600 ;SETUP FOR COMPARISON 1661 031564 205 14 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD 1662 031565 201 00 0 00 770000 MOVEI ,770000 ;SETUP BYTE WORD (AC0) 1663 031566 134 13 0 00 000014 ILDB AC,&17 ;INC AND LOAD BYTE 1664 031567 302 13 0 00 000077 CAIE AC,77 ;TEST BYTE 1665 031570 003 13 0 00 006201 ER3 AC,6201 ;AC FAILED 1666 031571 312 14 0 00 000011 CAME AC+1,&17 ;TEST PNTR WORD 1667 031572 005 14 0 00 006201 ER5 AC+1,6201 ;POINTER FAILED 1668 031573 321 15 0 00 031563 JUMPL AC+2,G6200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 23 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0056 1669 1670 ;INST-DPB 1671 ;TEST ABILITY TO ASSERT BYF5 SET 1672 ;P FIELD 1673 ;P=14 1674 ;S=6 1675 ;BYTE WORD=000000000077 1676 ;DEST WORD=000000000000 1677 1678 000012 AC=12 1679 SAVEAC (1,1)^ 1680 031574 201 14 0 00 031574 MOVEI AC+2,. ;SAVE TEST PC 1681 031575 202 14 0 00 030051 MOVEM AC+2,TESTPC 1682 031576 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1683 031577 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1684 1685 031600 201 10 0 00 770000 G6300: MOVEI AC-2,770000 ;SETUP FOR COMPARISON 1686 031601 205 13 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 1687 031602 201 12 0 00 000077 MOVEI AC,77 ;SETUP BYTE 1688 031603 400 00 0 00 000000 SETZ ;SETUP DEST WORD 1689 031604 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1690 031605 312 00 0 00 000010 CAME ,&17 ;TEST DEST=0,,770000 1691 031606 012 00 0 00 006301 ER12 ,6301 ;BYTE W0RD FAILED 1692 031607 321 14 0 00 031600 JUMPL AC+2,G6300 ;LOOP ON ERROR SWITCH 1693 1694 ;INST-DPB 1695 ;TEST ABILITY TO ASSERT DPBYTE DEP 1696 ;P FIELD=14 1697 ;S FIELD=6 1698 ;BYTE WORD=55 1699 ;DEST WORD=-1 1700 ;FAILURE OF MQ TO SHIFT RESULTS IN A 1701 ;DEPOSIT BYTE=777777777700 1702 1703 000007 AC=7 1704 SAVEAC (1,1)^ 1705 031610 201 11 0 00 031610 MOVEI AC+2,. ;SAVE TEST PC 1706 031611 202 11 0 00 030051 MOVEM AC+2,TESTPC 1707 031612 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1708 031613 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1709 1710 031614 561 05 0 00 557777 G6400: HRROI AC-2,557777 ;SETUP AC-2 FOR COMPARISON 1711 031615 205 10 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 1712 031616 201 07 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 1713 031617 474 00 0 00 000000 SETO ;SETUP DEST WORD 1714 031620 137 07 0 00 000010 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1715 031621 312 00 0 00 000005 CAME ,&17 ;TEST DEST=-1,,557777 1716 031622 012 00 0 00 006401 ER12 ,6401 ;BYTE WORD FAILED 1717 031623 321 11 0 00 031614 JUMPL AC+2,G6400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 25 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0057 1718 ;INST-DPB 1719 ;TEST ABILITY TO AND MASK, BYTE 1720 ;P FIELD=14 1721 ;S FIELD=6 1722 ;BYTE WORD=5555 1723 ;DEST WORD=0 1724 ;FAILURE RESULTS IN A DEPOSIT 1725 ;BYTE=000055550000 1726 1727 000005 AC=5 1728 SAVEAC (1,1)^ 1729 031624 201 07 0 00 031624 MOVEI AC+2,. ;SAVE TEST PC 1730 031625 202 07 0 00 030051 MOVEM AC+2,TESTPC 1731 031626 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1732 031627 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1733 1734 031630 551 03 0 00 550000 G7000: HRRZI AC-2,550000 ;SETUP AC-2 FOR COMPARISON 1735 031631 541 03 0 00 550000 HRRI AC-2,550000 ;FOR COMPARISON 1736 031632 205 06 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 1737 031633 201 05 0 00 005555 MOVEI AC,5555 ;SETUP BYTE WORD 1738 031634 400 00 0 00 000000 SETZ ;SETUP DEST WORD 1739 031635 137 05 0 00 000006 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1740 031636 312 00 0 00 000003 CAME ,&17 ;TEST DEST WORD=0,,550000 1741 031637 012 00 0 00 007001 ER12 ,7001 ;BYTE WORD FAILED 1742 031640 321 07 0 00 031630 JUMPL AC+2,G7000 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 26 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0058 1743 1744 ;INST-DPB 1745 ;P FIELD = 6 1746 ;S FIELD = 14 1747 ;BYTE WORD=55 1748 ;DEST WORD = -1 1749 ;FAILURE OF ANY ONE RESULTS IN A 1750 ;BYTE = 777777 000077 1751 1752 000014 AC=14 1753 SAVEAC (1,1)^ 1754 031641 201 16 0 00 031641 MOVEI AC+2,. ;SAVE TEST PC 1755 031642 202 16 0 00 030051 MOVEM AC+2,TESTPC 1756 031643 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1757 031644 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1758 1759 031645 561 12 0 00 005577 G7100: HRROI AC-2,5577 ;SETUP FOR COMPARISON 1760 031646 205 15 0 00 061400 MOVSI AC+1,061400 ;SETUP PNTR WORD 1761 031647 201 14 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 1762 031650 474 00 0 00 000000 SETO ;SETUP DEST WORD 1763 031651 137 14 0 00 000015 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1764 031652 312 00 0 00 000012 CAME ,&17 ;TEST BYTE=777777 005577 1765 031653 012 00 0 00 007101 ER12 ,7101 ;BYTE WORD FAILED 1766 031654 321 16 0 00 031645 JUMPL AC+2,G7100 ;LOOP ON ERROR SWITCH 1767 1768 ;INST-DPB 1769 ;P FIELD=14 1770 ;S FIELD=6 1771 ;BYTE WORD=55 1772 ;DEST WORD=0 1773 ;FAILURE RESULTS IN A DEPOSIT 1774 ;BYTE=777777557777 1775 1776 000013 AC=13 1777 SAVEAC (1,1)^ 1778 031655 201 15 0 00 031655 MOVEI AC+2,. ;SAVE TEST PC 1779 031656 202 15 0 00 030051 MOVEM AC+2,TESTPC 1780 031657 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1781 031660 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1782 1783 031661 551 11 0 00 550000 G7200: HRRZI AC-2,550000 ;SETUP FOR COMPARISON 1784 031662 205 14 0 00 140600 MOVSI AC+1,140600 ;SETUP PNTR WORD 1785 031663 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 1786 031664 400 00 0 00 000000 SETZ ;SETUP DEST WORD 1787 031665 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1788 031666 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD=0,,550000 1789 031667 012 00 0 00 007201 ER12 ,7201 ;BYTE WORD FAILED 1790 031670 321 15 0 00 031661 JUMPL AC+2,G7200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 27 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0059 1791 ;INST-DBP 1792 ;P FIELD=22 1793 ;S FIELD=6 1794 ;BYTE WORD=5555 1795 ;DEST WORD=-1 1796 ;FAILURE RESULTS IN A DEPOSIT 1797 ;BYTE=005455777777 1798 1799 000011 AC=11 1800 SAVEAC (1,1)^ 1801 031671 201 13 0 00 031671 MOVEI AC+2,. ;SAVE TEST PC 1802 031672 202 13 0 00 030051 MOVEM AC+2,TESTPC 1803 031673 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1804 031674 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1805 1806 031675 525 07 0 00 777755 G7400: HRLOI AC-2,777755 ;SETUP FOR COMPARISON 1807 031676 205 12 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD 1808 031677 201 11 0 00 005555 MOVEI AC,5555 ;SETUP BYTE WORD 1809 031700 474 00 0 00 000000 SETO ;SETUP DEST WORD 1810 031701 137 11 0 00 000012 DPB AC,&17 ;DEPOSIT BYTE (AC0) 1811 031702 312 00 0 00 000007 CAME ,&17 ;TEST DEST WORD=777755,,-1 1812 031703 012 00 0 00 007401 ER12 ,7401 ;BYTE WORD FAILED 1813 031704 321 13 0 00 031675 JUMPL AC+2,G7400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 28 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0060 1814 ;INST-DPB 1815 ;TEST ABILITY TO CLEAR BYF6 1816 ;P FIELD=14 1817 ;S FIELD=6 1818 ;BYTE WORD=55 1819 ;DEST WORD=0 1820 ;AN ERROR WILL OCCUR IF BYF6(1) WHEN 1821 ;STORED BY JSP 1822 1823 000007 AC=7 1824 SAVEAC (1,1)^ 1825 031705 201 11 0 00 031705 MOVEI AC+2,. ;SAVE TEST PC 1826 031706 202 11 0 00 030051 MOVEM AC+2,TESTPC 1827 031707 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1828 031710 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1829 1830 031711 205 10 0 00 140600 G7600: MOVSI AC+1,140600 ;SETUP PNTR WORD 1831 031712 201 07 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 1832 031713 400 00 0 00 000000 SETZ ;SETUP DEST WORD 1833 031714 137 07 0 00 000010 DPB AC,&17 ;DEPOSIT BYTE 1834 031715 265 07 0 00 031716 JSP AC,.+1 ;STORE FLAGS 1835 031716 603 07 0 00 020000 TLNE AC,020000 ;TEST BIT 4 1836 031717 013 07 0 00 007601 ER13 AC,7601 ;BYF6 FAILED TO CLEAR 1837 031720 321 11 0 00 031711 JUMPL AC+2,G7600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 29 DSKAM1 MAC 29-Mar-78 10:18 PART IA - BYTE MANIPULATION SEQ 0061 1838 1839 ;INST-IDPB 1840 ;TEST ABILITY TO ASSERT BYTE PTRINC 1841 ;TEST ABILITY TO ASSERT DB BYTE DEP 1842 ;FAILURE TO ASSERT BYTE PTR INC 1843 ;MAY CAUSE A HALT AT ET0 1844 ;FAILURE TO ASSERT DB BYTE DEP PREVENTS 1845 ;ARMQSHLT SCT3 (2ND PART) 1846 ;P FIELD=22 1847 ;S FIELD=6 1848 ;DEST WORD=0 1849 ;BYTE WORD=77 1850 ;AN ERROR WILL OCCUR IF BYTE PNTR 1851 ;WORD EQUALS ORIGINAL 1852 ;AN ERROR WILL OCCUR IF DEST WORD 1853 ;EQUALS BYTE WORD 1854 1855 000005 AC=5 1856 SAVEAC (1,1)^ 1857 031721 201 07 0 00 031721 MOVEI AC+2,. ;SAVE TEST PC 1858 031722 202 07 0 00 030051 MOVEM AC+2,TESTPC 1859 031723 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1860 031724 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1861 1862 031725 205 03 0 00 140600 G7700: MOVSI AC-2,140600 ;SETUP FOR COMPARISON 1863 031726 205 06 0 00 220600 MOVSI AC+1,220600 ;SETUP PNTR WORD 1864 031727 201 05 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD 1865 031730 400 00 0 00 000000 SETZ ;SETUP DEST WORD (AC0) 1866 031731 136 05 0 00 000006 IDPB AC,&17 ;INC AND DEPOSIT BYTE 1867 031732 312 06 0 00 000003 CAME AC+1,&17 ;TEST FOR INCREMENTED PNTR 1868 031733 005 06 0 00 007701 ER5 AC+1,7701 ;BYTE PTR INC FAILED 1869 031734 302 00 0 00 770000 CAIE ,770000 ;TEST DEST WORD 1870 031735 012 00 0 00 007701 ER12 ,7701 ;DB BYTE DEP FAILED 1871 031736 321 07 0 00 031725 JUMPL AC+2,G7700 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0062 1872 SUBTTL PART IB-GENERAL BYTE TEST 1873 1874 ;PART IA- GENERAL BYTE TEST 1875 1876 ;INST-IBP 1877 ;DECREASING P FIELD 1878 ;P FIELD=22,20,16,14,12 1879 ;S FIELD=6 1880 ;RESULTANT P FIELDS=14,12,10,6,4 1881 ;AN ERROR WILL OCCUR ON AN 1882 ;INCORRECT INCREMENTED PNTR WORD 1883 1884 000005 AC=5 1885 SAVEAC (1,1)^ 1886 031737 201 07 0 00 031737 MOVEI AC+2,. ;SAVE TEST PC 1887 031740 202 07 0 00 030051 MOVEM AC+2,TESTPC 1888 031741 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1889 031742 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1890 1891 010000 SN=10000 1892 160600 XX=160600 1893 240600 ZZ=240600 1894 1895 G10000: REPEAT ^D5, ;TEST IBP 1896 &17 ;INC BYTE PNTR 1902 CAME AC+1,&17 ;TEST INC PNTR 1903 ER5 AC+1,SN ;IBP FAILED 1904 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1905 > 1906 010001 SN=SN+1 1907 140600 XX=XX-020000 1908 220600 ZZ=ZZ-020000 1909 031743 205 03 0 00 140600 MOVSI AC-2,XX ;SETUP FOR COMPARISON 1910 031744 205 06 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1911 031745 133 00 0 00 000006 IBP ,&17 ;INC BYTE PNTR 1912 031746 312 06 0 00 000003 CAME AC+1,&17 ;TEST INC PNTR 1913 031747 005 06 0 00 010001 ER5 AC+1,SN ;IBP FAILED 1914 031750 321 07 0 00 031743 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1915 1916 010002 SN=SN+1 1917 120600 XX=XX-020000 1918 200600 ZZ=ZZ-020000 1919 031751 205 03 0 00 120600 MOVSI AC-2,XX ;SETUP FOR COMPARISON 1920 031752 205 06 0 00 200600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1921 031753 133 00 0 00 000006 IBP ,&17 ;INC BYTE PNTR 1922 031754 312 06 0 00 000003 CAME AC+1,&17 ;TEST INC PNTR 1923 031755 005 06 0 00 010002 ER5 AC+1,SN ;IBP FAILED 1924 031756 321 07 0 00 031751 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1925 1926 010003 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0063 1927 100600 XX=XX-020000 1928 160600 ZZ=ZZ-020000 1929 031757 205 03 0 00 100600 MOVSI AC-2,XX ;SETUP FOR COMPARISON 1930 031760 205 06 0 00 160600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1931 031761 133 00 0 00 000006 IBP ,&17 ;INC BYTE PNTR 1932 031762 312 06 0 00 000003 CAME AC+1,&17 ;TEST INC PNTR 1933 031763 005 06 0 00 010003 ER5 AC+1,SN ;IBP FAILED 1934 031764 321 07 0 00 031757 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1935 1936 010004 SN=SN+1 1937 060600 XX=XX-020000 1938 140600 ZZ=ZZ-020000 1939 031765 205 03 0 00 060600 MOVSI AC-2,XX ;SETUP FOR COMPARISON 1940 031766 205 06 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1941 031767 133 00 0 00 000006 IBP ,&17 ;INC BYTE PNTR 1942 031770 312 06 0 00 000003 CAME AC+1,&17 ;TEST INC PNTR 1943 031771 005 06 0 00 010004 ER5 AC+1,SN ;IBP FAILED 1944 031772 321 07 0 00 031765 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1945 1946 010005 SN=SN+1 1947 040600 XX=XX-020000 1948 120600 ZZ=ZZ-020000 1949 031773 205 03 0 00 040600 MOVSI AC-2,XX ;SETUP FOR COMPARISON 1950 031774 205 06 0 00 120600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1951 031775 133 00 0 00 000006 IBP ,&17 ;INC BYTE PNTR 1952 031776 312 06 0 00 000003 CAME AC+1,&17 ;TEST INC PNTR 1953 031777 005 06 0 00 010005 ER5 AC+1,SN ;IBP FAILED 1954 032000 321 07 0 00 031773 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1955 1956 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0064 1957 ;INST-IBP 1958 ;DECREASING S FIELD 1959 ;P FIELD=22 1960 ;S FIELD=14,12,10,6,4 1961 ;RESULTANT P FIELDS=6,10,12,14,16 1962 ;AN ERROR WILL OCCUR ON AN 1963 ;INCORRECT INCREMENTED PNTR WORD 1964 1965 000014 AC=14 1966 SAVEAC (1,1)^ 1967 032001 201 16 0 00 032001 MOVEI AC+2,. ;SAVE TEST PC 1968 032002 202 16 0 00 030051 MOVEM AC+2,TESTPC 1969 032003 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1970 032004 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1971 1972 010100 SN=10100 1973 040000 XX=040000 1974 001600 WW=001600 1975 221600 ZZ=221600 1976 1977 G10100: REPEAT ^D5, ;TEST IBP 1978 &17 ;INC BYTE PNTR 1985 CAME AC+1,&17 ;TEST INC PNTR 1986 ER5 AC+1,SN ;IBP FAILED 1987 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1988 > 1989 010101 SN=SN+1 1990 060000 XX=XX+020000 1991 001400 WW=WW-000200 1992 221400 ZZ=ZZ-000200 1993 032005 205 12 0 00 061400 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON 1994 032006 205 15 0 00 221400 MOVSI AC+1,ZZ ;SETUP PNTR WORD 1995 032007 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 1996 032010 312 15 0 00 000012 CAME AC+1,&17 ;TEST INC PNTR 1997 032011 005 15 0 00 010101 ER5 AC+1,SN ;IBP FAILED 1998 032012 321 16 0 00 032005 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 1999 2000 010102 SN=SN+1 2001 100000 XX=XX+020000 2002 001200 WW=WW-000200 2003 221200 ZZ=ZZ-000200 2004 032013 205 12 0 00 101200 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON 2005 032014 205 15 0 00 221200 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2006 032015 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 2007 032016 312 15 0 00 000012 CAME AC+1,&17 ;TEST INC PNTR 2008 032017 005 15 0 00 010102 ER5 AC+1,SN ;IBP FAILED 2009 032020 321 16 0 00 032013 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2010 2011 010103 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 30-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0065 2012 120000 XX=XX+020000 2013 001000 WW=WW-000200 2014 221000 ZZ=ZZ-000200 2015 032021 205 12 0 00 121000 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON 2016 032022 205 15 0 00 221000 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2017 032023 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 2018 032024 312 15 0 00 000012 CAME AC+1,&17 ;TEST INC PNTR 2019 032025 005 15 0 00 010103 ER5 AC+1,SN ;IBP FAILED 2020 032026 321 16 0 00 032021 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2021 2022 010104 SN=SN+1 2023 140000 XX=XX+020000 2024 000600 WW=WW-000200 2025 220600 ZZ=ZZ-000200 2026 032027 205 12 0 00 140600 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON 2027 032030 205 15 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2028 032031 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 2029 032032 312 15 0 00 000012 CAME AC+1,&17 ;TEST INC PNTR 2030 032033 005 15 0 00 010104 ER5 AC+1,SN ;IBP FAILED 2031 032034 321 16 0 00 032027 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2032 2033 010105 SN=SN+1 2034 160000 XX=XX+020000 2035 000400 WW=WW-000200 2036 220400 ZZ=ZZ-000200 2037 032035 205 12 0 00 160400 MOVSI AC-2,XX+WW ;SETUP FOR COMPARISON 2038 032036 205 15 0 00 220400 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2039 032037 133 00 0 00 000015 IBP ,&17 ;INC BYTE PNTR 2040 032040 312 15 0 00 000012 CAME AC+1,&17 ;TEST INC PNTR 2041 032041 005 15 0 00 010105 ER5 AC+1,SN ;IBP FAILED 2042 032042 321 16 0 00 032035 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2043 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0066 2044 2045 ;INST-IBP 2046 ;OVERFLOW AND INC ADDRESS 2047 ;P FIELD=0 2048 ;S FIELD=14,12,10,6,4 2049 ;RESULTANT P FIELDS=30,32,34,36,40 2050 ;ADDRESS FIELD INCREMENTED BY ONE 2051 ;AN ERROR WILL OCCUR ON AN INCORRECT 2052 ;INCREMENTED PNTR WORD 2053 2054 000013 AC=13 2055 SAVEAC (1,1)^ 2056 032043 201 15 0 00 032043 MOVEI AC+2,. ;SAVE TEST PC 2057 032044 202 15 0 00 030051 MOVEM AC+2,TESTPC 2058 032045 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2059 032046 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2060 2061 010200 SN=10200 2062 260000 XX=260000 2063 001600 ZZ=001600 2064 2065 G10200: REPEAT ^D5, ;TEST IBP 2066 &17 ;INC BYTE PNTR 2073 CAME AC+1,&17 ;TEST INC PNTR 2074 ER5 AC+1,SN ;IBP FAILED 2075 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2076 > 2077 010201 SN=SN+1 2078 300000 XX=XX+020000 2079 001400 ZZ=ZZ-000200 2080 032047 205 11 0 00 301400 MOVSI AC-2,XX+ZZ ;SETUP AC-2 2081 032050 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON 2082 032051 205 14 0 00 001400 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2083 032052 133 00 0 00 000014 IBP ,&17 ;INC BYTE PNTR 2084 032053 312 14 0 00 000011 CAME AC+1,&17 ;TEST INC PNTR 2085 032054 005 14 0 00 010201 ER5 AC+1,SN ;IBP FAILED 2086 032055 321 15 0 00 032047 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2087 2088 010202 SN=SN+1 2089 320000 XX=XX+020000 2090 001200 ZZ=ZZ-000200 2091 032056 205 11 0 00 321200 MOVSI AC-2,XX+ZZ ;SETUP AC-2 2092 032057 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON 2093 032060 205 14 0 00 001200 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2094 032061 133 00 0 00 000014 IBP ,&17 ;INC BYTE PNTR 2095 032062 312 14 0 00 000011 CAME AC+1,&17 ;TEST INC PNTR 2096 032063 005 14 0 00 010202 ER5 AC+1,SN ;IBP FAILED 2097 032064 321 15 0 00 032056 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2098 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0067 2099 010203 SN=SN+1 2100 340000 XX=XX+020000 2101 001000 ZZ=ZZ-000200 2102 032065 205 11 0 00 341000 MOVSI AC-2,XX+ZZ ;SETUP AC-2 2103 032066 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON 2104 032067 205 14 0 00 001000 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2105 032070 133 00 0 00 000014 IBP ,&17 ;INC BYTE PNTR 2106 032071 312 14 0 00 000011 CAME AC+1,&17 ;TEST INC PNTR 2107 032072 005 14 0 00 010203 ER5 AC+1,SN ;IBP FAILED 2108 032073 321 15 0 00 032065 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2109 2110 010204 SN=SN+1 2111 360000 XX=XX+020000 2112 000600 ZZ=ZZ-000200 2113 032074 205 11 0 00 360600 MOVSI AC-2,XX+ZZ ;SETUP AC-2 2114 032075 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON 2115 032076 205 14 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2116 032077 133 00 0 00 000014 IBP ,&17 ;INC BYTE PNTR 2117 032100 312 14 0 00 000011 CAME AC+1,&17 ;TEST INC PNTR 2118 032101 005 14 0 00 010204 ER5 AC+1,SN ;IBP FAILED 2119 032102 321 15 0 00 032074 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2120 2121 010205 SN=SN+1 2122 400000 XX=XX+020000 2123 000400 ZZ=ZZ-000200 2124 032103 205 11 0 00 400400 MOVSI AC-2,XX+ZZ ;SETUP AC-2 2125 032104 340 11 0 00 000000 AOJ AC-2, ;FOR COMPARISON 2126 032105 205 14 0 00 000400 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2127 032106 133 00 0 00 000014 IBP ,&17 ;INC BYTE PNTR 2128 032107 312 14 0 00 000011 CAME AC+1,&17 ;TEST INC PNTR 2129 032110 005 14 0 00 010205 ER5 AC+1,SN ;IBP FAILED 2130 032111 321 15 0 00 032103 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2131 2132 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0068 2133 ;INST-LDB 2134 ;INCREASING S FIELD 2135 ;P FIELD=22 2136 ;S FIELD=1,2,3,4,5 2137 ;BYTE WORD=777777000000 2138 ;AN ERROR WILL OCCUR IF AN 2139 ;IN CORRECT BYTE IS LOADED 2140 ;INTO AC 2141 2142 000012 AC=12 2143 SAVEAC (1,1)^ 2144 032112 201 14 0 00 032112 MOVEI AC+2,. ;SAVE TEST PC 2145 032113 202 14 0 00 030051 MOVEM AC+2,TESTPC 2146 032114 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2147 032115 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2148 2149 010300 SN=10300 2150 220000 XX=220000 2151 000000 ZZ=0 2152 2153 G10300: REPEAT ^D5, ;TEST LDB 2154 &17 ;LOAD BYTE 2160 CAIE AC,ZZ ;TEST DEST AC 2161 ER3 AC,SN ;LDB FAILED 2162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2163 > 2164 010301 SN=SN+1 2165 220100 XX=XX+000100 2166 000001 ZZ=ZZ*2+1 2167 032116 205 13 0 00 220100 MOVSI AC+1,XX ;SETUP PNTR WORD 2168 032117 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0) 2169 032120 135 12 0 00 000013 LDB AC,&17 ;LOAD BYTE 2170 032121 302 12 0 00 000001 CAIE AC,ZZ ;TEST DEST AC 2171 032122 003 12 0 00 010301 ER3 AC,SN ;LDB FAILED 2172 032123 321 14 0 00 032116 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2173 2174 010302 SN=SN+1 2175 220200 XX=XX+000100 2176 000003 ZZ=ZZ*2+1 2177 032124 205 13 0 00 220200 MOVSI AC+1,XX ;SETUP PNTR WORD 2178 032125 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0) 2179 032126 135 12 0 00 000013 LDB AC,&17 ;LOAD BYTE 2180 032127 302 12 0 00 000003 CAIE AC,ZZ ;TEST DEST AC 2181 032130 003 12 0 00 010302 ER3 AC,SN ;LDB FAILED 2182 032131 321 14 0 00 032124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2183 2184 010303 SN=SN+1 2185 220300 XX=XX+000100 2186 000007 ZZ=ZZ*2+1 2187 032132 205 13 0 00 220300 MOVSI AC+1,XX ;SETUP PNTR WORD DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 31-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0069 2188 032133 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0) 2189 032134 135 12 0 00 000013 LDB AC,&17 ;LOAD BYTE 2190 032135 302 12 0 00 000007 CAIE AC,ZZ ;TEST DEST AC 2191 032136 003 12 0 00 010303 ER3 AC,SN ;LDB FAILED 2192 032137 321 14 0 00 032132 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2193 2194 010304 SN=SN+1 2195 220400 XX=XX+000100 2196 000017 ZZ=ZZ*2+1 2197 032140 205 13 0 00 220400 MOVSI AC+1,XX ;SETUP PNTR WORD 2198 032141 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0) 2199 032142 135 12 0 00 000013 LDB AC,&17 ;LOAD BYTE 2200 032143 302 12 0 00 000017 CAIE AC,ZZ ;TEST DEST AC 2201 032144 003 12 0 00 010304 ER3 AC,SN ;LDB FAILED 2202 032145 321 14 0 00 032140 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2203 2204 010305 SN=SN+1 2205 220500 XX=XX+000100 2206 000037 ZZ=ZZ*2+1 2207 032146 205 13 0 00 220500 MOVSI AC+1,XX ;SETUP PNTR WORD 2208 032147 515 00 0 00 777777 HRLZI ,-1 ;SETUP BYTE WORD (AC0) 2209 032150 135 12 0 00 000013 LDB AC,&17 ;LOAD BYTE 2210 032151 302 12 0 00 000037 CAIE AC,ZZ ;TEST DEST AC 2211 032152 003 12 0 00 010305 ER3 AC,SN ;LDB FAILED 2212 032153 321 14 0 00 032146 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH 2213 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 32 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0070 2214 2215 ;INST-LDB 2216 ;INCREASING BYTE WORD 2217 ;INCREASING P FIELD 2218 ;P FIELD=14,17,22,25,33 2219 ;S FIELD=3 2220 ;BYTE WORD=000000070000 SHIFTING 2221 ;LEFT BY 3 2222 ;AN ERROR WILL OCCUR IF DEST AC 2223 ;DIFFERS FROM 7 2224 2225 000011 AC=11 2226 SAVEAC (1,1)^ 2227 032154 201 13 0 00 032154 MOVEI AC+2,. ;SAVE TEST PC 2228 032155 202 13 0 00 030051 MOVEM AC+2,TESTPC 2229 032156 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2230 032157 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2231 2232 010400 SN=10400 2233 000000 XX=0 2234 110300 ZZ=110300 2235 2236 G10400: REPEAT ^D5, ;TEST LDB 2237 &17 ;LOAD BYTE 2244 CAIE AC,7 ;TEST DEST AC=7 2245 ER3 AC,SN ;LDB FAILED 2246 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2247 > 2248 010401 SN=SN+1 2249 000003 XX=XX+3 2250 140300 ZZ=ZZ+030000 2251 032160 205 12 0 00 140300 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2252 032161 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD 2253 032162 241 00 0 00 000003 ROT ,XX ;ROTATE LEFT BY 3 2254 032163 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 2255 032164 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7 2256 032165 003 11 0 00 010401 ER3 AC,SN ;LDB FAILED 2257 032166 321 13 0 00 032160 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2258 2259 010402 SN=SN+1 2260 000006 XX=XX+3 2261 170300 ZZ=ZZ+030000 2262 032167 205 12 0 00 170300 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2263 032170 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD 2264 032171 241 00 0 00 000006 ROT ,XX ;ROTATE LEFT BY 3 2265 032172 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 2266 032173 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7 2267 032174 003 11 0 00 010402 ER3 AC,SN ;LDB FAILED 2268 032175 321 13 0 00 032167 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 32-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0071 2269 2270 010403 SN=SN+1 2271 000011 XX=XX+3 2272 220300 ZZ=ZZ+030000 2273 032176 205 12 0 00 220300 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2274 032177 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD 2275 032200 241 00 0 00 000011 ROT ,XX ;ROTATE LEFT BY 3 2276 032201 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 2277 032202 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7 2278 032203 003 11 0 00 010403 ER3 AC,SN ;LDB FAILED 2279 032204 321 13 0 00 032176 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2280 2281 010404 SN=SN+1 2282 000014 XX=XX+3 2283 250300 ZZ=ZZ+030000 2284 032205 205 12 0 00 250300 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2285 032206 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD 2286 032207 241 00 0 00 000014 ROT ,XX ;ROTATE LEFT BY 3 2287 032210 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 2288 032211 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7 2289 032212 003 11 0 00 010404 ER3 AC,SN ;LDB FAILED 2290 032213 321 13 0 00 032205 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2291 2292 010405 SN=SN+1 2293 000017 XX=XX+3 2294 300300 ZZ=ZZ+030000 2295 032214 205 12 0 00 300300 MOVSI AC+1,ZZ ;SETUP PNTR WORD 2296 032215 201 00 0 00 007000 MOVEI ,7000 ;SETUP BYTE WORD 2297 032216 241 00 0 00 000017 ROT ,XX ;ROTATE LEFT BY 3 2298 032217 135 11 0 00 000012 LDB AC,&17 ;LOAD BYTE 2299 032220 302 11 0 00 000007 CAIE AC,7 ;TEST DEST AC=7 2300 032221 003 11 0 00 010405 ER3 AC,SN ;LDB FAILED 2301 032222 321 13 0 00 032214 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2302 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0072 2303 2304 ;INST-LDB 2305 ;VARY BYTE ADDRESS 2306 ;P FIELD=22 2307 ;S FIELD=3 2308 ;BYTE WORD=AC NUMBER 2309 ;BYTE PNTR ADDR=AC 6,5,4,3,2 2310 ;AN ERROR WILL OCCUR IF C(DEST AC) 2311 ;DIFFERS FROM AC UNDER TEST 2312 2313 000007 AC=7 2314 SAVEAC (1,1)^ 2315 032223 201 11 0 00 032223 MOVEI AC+2,. ;SAVE TEST PC 2316 032224 202 11 0 00 030051 MOVEM AC+2,TESTPC 2317 032225 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2318 032226 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2319 2320 010500 SN=10500 2321 000007 ZZ=7 2322 2323 G10500: REPEAT ^D5, ;TEST LOAD BYTE 2324 &17 ;LOAD BYTE 2330 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2331 ER3 AC,SN ;LDB FAILED 2332 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2333 > 2334 010501 SN=SN+1 2335 000006 ZZ=ZZ-1 2336 032227 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE 2337 032230 541 10 0 00 000006 HRRI AC+1,ZZ ;PNTR WORD 2338 032231 205 06 0 00 000006 MOVSI ZZ,ZZ ;SETUP BYTE WORD 2339 032232 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 2340 032233 302 07 0 00 000006 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2341 032234 003 07 0 00 010501 ER3 AC,SN ;LDB FAILED 2342 032235 321 11 0 00 032227 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2343 2344 010502 SN=SN+1 2345 000005 ZZ=ZZ-1 2346 032236 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE 2347 032237 541 10 0 00 000005 HRRI AC+1,ZZ ;PNTR WORD 2348 032240 205 05 0 00 000005 MOVSI ZZ,ZZ ;SETUP BYTE WORD 2349 032241 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 2350 032242 302 07 0 00 000005 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2351 032243 003 07 0 00 010502 ER3 AC,SN ;LDB FAILED 2352 032244 321 11 0 00 032236 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2353 2354 010503 SN=SN+1 2355 000004 ZZ=ZZ-1 2356 032245 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE 2357 032246 541 10 0 00 000004 HRRI AC+1,ZZ ;PNTR WORD DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0073 2358 032247 205 04 0 00 000004 MOVSI ZZ,ZZ ;SETUP BYTE WORD 2359 032250 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 2360 032251 302 07 0 00 000004 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2361 032252 003 07 0 00 010503 ER3 AC,SN ;LDB FAILED 2362 032253 321 11 0 00 032245 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2363 2364 010504 SN=SN+1 2365 000003 ZZ=ZZ-1 2366 032254 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE 2367 032255 541 10 0 00 000003 HRRI AC+1,ZZ ;PNTR WORD 2368 032256 205 03 0 00 000003 MOVSI ZZ,ZZ ;SETUP BYTE WORD 2369 032257 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 2370 032260 302 07 0 00 000003 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2371 032261 003 07 0 00 010504 ER3 AC,SN ;LDB FAILED 2372 032262 321 11 0 00 032254 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2373 2374 010505 SN=SN+1 2375 000002 ZZ=ZZ-1 2376 032263 505 10 0 00 220300 HRLI AC+1,220300 ;SETUP BYTE 2377 032264 541 10 0 00 000002 HRRI AC+1,ZZ ;PNTR WORD 2378 032265 205 02 0 00 000002 MOVSI ZZ,ZZ ;SETUP BYTE WORD 2379 032266 135 07 0 00 000010 LDB AC,&17 ;LOAD BYTE 2380 032267 302 07 0 00 000002 CAIE AC,ZZ ;TEST DEST AC=AC NUMBER 2381 032270 003 07 0 00 010505 ER3 AC,SN ;LDB FAILED 2382 032271 321 11 0 00 032263 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2383 2384 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0074 2385 ;INST-LDB 2386 ;BYTE PNTR INDEXED 2387 ;P FIELD=0 2388 ;S FIELD=3 2389 ;BYTE WORD=PNTR WORD 2390 ;AN ERROR WILL OCCUR IF LOADED 2391 ;BYTE DIFFERS FROM CURRENT 2392 ;AC NUMBER 2393 2394 000010 AC=10 2395 SAVEAC (1,1)^ 2396 032272 201 12 0 00 032272 MOVEI AC+2,. ;SAVE TEST PC 2397 032273 202 12 0 00 030051 MOVEM AC+2,TESTPC 2398 032274 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2399 032275 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2400 2401 010600 SN=10600 2402 000000 ZZ=0 2403 2404 G10600: REPEAT ^D5, ;TEST LDB INDEXED 2405 2415 010601 SN=SN+1 2416 000001 ZZ=ZZ+1 2417 032276 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD 2418 032277 505 01 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED 2419 032300 541 01 0 00 000001 HRRI ZZ,ZZ ;PNTR WORD 2420 032301 135 10 0 01 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED 2421 032302 302 10 0 00 000001 CAIE AC,ZZ ;TEST FOR AC NUMBER 2422 032303 003 10 0 00 010601 ER3 AC,SN ;LDB FAILED 2423 032304 321 12 0 00 032276 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2424 2425 010602 SN=SN+1 2426 000002 ZZ=ZZ+1 2427 032305 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD 2428 032306 505 02 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED 2429 032307 541 02 0 00 000002 HRRI ZZ,ZZ ;PNTR WORD 2430 032310 135 10 0 02 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED 2431 032311 302 10 0 00 000002 CAIE AC,ZZ ;TEST FOR AC NUMBER 2432 032312 003 10 0 00 010602 ER3 AC,SN ;LDB FAILED 2433 032313 321 12 0 00 032305 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2434 2435 010603 SN=SN+1 2436 000003 ZZ=ZZ+1 2437 032314 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD 2438 032315 505 03 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED 2439 032316 541 03 0 00 000003 HRRI ZZ,ZZ ;PNTR WORD DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 33-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0075 2440 032317 135 10 0 03 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED 2441 032320 302 10 0 00 000003 CAIE AC,ZZ ;TEST FOR AC NUMBER 2442 032321 003 10 0 00 010603 ER3 AC,SN ;LDB FAILED 2443 032322 321 12 0 00 032314 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2444 2445 010604 SN=SN+1 2446 000004 ZZ=ZZ+1 2447 032323 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD 2448 032324 505 04 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED 2449 032325 541 04 0 00 000004 HRRI ZZ,ZZ ;PNTR WORD 2450 032326 135 10 0 04 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED 2451 032327 302 10 0 00 000004 CAIE AC,ZZ ;TEST FOR AC NUMBER 2452 032330 003 10 0 00 010604 ER3 AC,SN ;LDB FAILED 2453 032331 321 12 0 00 032323 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2454 2455 010605 SN=SN+1 2456 000005 ZZ=ZZ+1 2457 032332 205 00 0 00 000300 MOVSI ,000300 ;SETUP NON IND PNTR WORD 2458 032333 505 05 0 00 000300 HRLI ZZ,000300 ;SETUP INDEXED 2459 032334 541 05 0 00 000005 HRRI ZZ,ZZ ;PNTR WORD 2460 032335 135 10 0 05 000000 LDB AC,(ZZ) ;LOAD BYTE INDEXED 2461 032336 302 10 0 00 000005 CAIE AC,ZZ ;TEST FOR AC NUMBER 2462 032337 003 10 0 00 010605 ER3 AC,SN ;LDB FAILED 2463 032340 321 12 0 00 032332 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2464 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 34 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0076 2465 2466 ;INST-LDB 2467 ;BYTE PNTR INDIRECTLY ADDRESSED 2468 ;P FIELD=0 2469 ;S FIELD=3 2470 ;BYTE WORD=PNTR WORD 2471 ;AN ERROR WILL OCCUR IF LOADED 2472 ;BYTE DIFFERS FROM CURRENT 2473 ;AC NUMBER 2474 2475 000007 AC=7 2476 SAVEAC (1,1)^ 2477 032341 201 11 0 00 032341 MOVEI AC+2,. ;SAVE TEST PC 2478 032342 202 11 0 00 030051 MOVEM AC+2,TESTPC 2479 032343 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2480 032344 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2481 2482 010700 SN=10700 2483 000000 ZZ=0 2484 2485 G10700: REPEAT ^D5, ;TEST LDB INDIRECTLY ADDRESSED 2486 &17 ;LOAD BYTE INDIRECTLY ADDRESSED 2494 CAIE AC,ZZ ;TEST FOR AC NUMBER 2495 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED 2496 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2497 > 2498 010701 SN=SN+1 2499 000001 ZZ=ZZ+1 2500 032345 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD 2501 032346 541 10 0 00 000001 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS 2502 032347 505 01 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED 2503 032350 541 01 0 00 000001 HRRI ZZ,ZZ ;PNTR WORD 2504 032351 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD 2505 032352 135 07 1 00 000010 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY ADDRESSED 2506 032353 302 07 0 00 000001 CAIE AC,ZZ ;TEST FOR AC NUMBER 2507 032354 003 07 0 00 010701 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED 2508 032355 321 11 0 00 032345 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2509 2510 010702 SN=SN+1 2511 000002 ZZ=ZZ+1 2512 032356 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD 2513 032357 541 10 0 00 000002 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS 2514 032360 505 02 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED 2515 032361 541 02 0 00 000002 HRRI ZZ,ZZ ;PNTR WORD 2516 032362 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD 2517 032363 135 07 1 00 000010 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY ADDRESSED 2518 032364 302 07 0 00 000002 CAIE AC,ZZ ;TEST FOR AC NUMBER 2519 032365 003 07 0 00 010702 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 34-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0077 2520 032366 321 11 0 00 032356 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2521 2522 010703 SN=SN+1 2523 000003 ZZ=ZZ+1 2524 032367 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD 2525 032370 541 10 0 00 000003 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS 2526 032371 505 03 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED 2527 032372 541 03 0 00 000003 HRRI ZZ,ZZ ;PNTR WORD 2528 032373 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD 2529 032374 135 07 1 00 000010 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY ADDRESSED 2530 032375 302 07 0 00 000003 CAIE AC,ZZ ;TEST FOR AC NUMBER 2531 032376 003 07 0 00 010703 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED 2532 032377 321 11 0 00 032367 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2533 2534 010704 SN=SN+1 2535 000004 ZZ=ZZ+1 2536 032400 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD 2537 032401 541 10 0 00 000004 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS 2538 032402 505 04 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED 2539 032403 541 04 0 00 000004 HRRI ZZ,ZZ ;PNTR WORD 2540 032404 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD 2541 032405 135 07 1 00 000010 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY ADDRESSED 2542 032406 302 07 0 00 000004 CAIE AC,ZZ ;TEST FOR AC NUMBER 2543 032407 003 07 0 00 010704 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED 2544 032410 321 11 0 00 032400 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2545 2546 010705 SN=SN+1 2547 000005 ZZ=ZZ+1 2548 032411 205 10 0 00 440300 MOVSI AC+1,440300 ;SETUP DIRECTLY ADDRESSED PNTR WORD 2549 032412 541 10 0 00 000005 HRRI AC+1,ZZ ;SETUP INDIRECT ADDRESS 2550 032413 505 05 0 00 000300 HRLI ZZ,000300 ;SETUP INDIRECTLY ADDRESSED 2551 032414 541 05 0 00 000005 HRRI ZZ,ZZ ;PNTR WORD 2552 032415 400 00 0 00 000000 SETZ ;SETUP DIRECTLY ADDRESSED BYTE WORD 2553 032416 135 07 1 00 000010 LDB AC,@@&17 ;LOAD BYTE INDIRECTLY ADDRESSED 2554 032417 302 07 0 00 000005 CAIE AC,ZZ ;TEST FOR AC NUMBER 2555 032420 003 07 0 00 010705 ER3 AC,SN ;LDB INDIRECTLY ADDRESSED FAILED 2556 032421 321 11 0 00 032411 JUMPL AC+2,.-10 ;LOOP ON ERROR SWITCH 2557 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 35 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0078 2558 ;INST-LDB 2559 ;PNTR INDEXED AND INDIRECTLY ADDRESSED 2560 ;P FIELD=0 2561 ;S FIELD=6 2562 ;PNTR WORD IS IN AC 12,13,14 2563 ;BYTE WORD=PNTR WORD 2564 ;LOADED BYTE SHOULD EQUAL 2565 ;12,13,14 2566 2567 000010 AC=10 2568 SAVEAC (1,1)^ 2569 032422 201 12 0 00 032422 MOVEI AC+2,. ;SAVE TEST PC 2570 032423 202 12 0 00 030051 MOVEM AC+2,TESTPC 2571 032424 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2572 032425 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2573 2574 011000 SN=11000 2575 000003 VV=3 2576 000006 WW=6 2577 000011 XX=11 2578 000003 ZZ=3 2579 2580 G11000: REPEAT ^D3, ;TEST LDB INDEXED, INDIRECTLY ADDRESSED 2581 2595 011001 SN=SN+1 2596 000004 VV=VV+1 2597 000007 WW=WW+1 2598 000012 XX=XX+1 2599 000004 ZZ=ZZ+1 2600 032426 201 04 0 00 000007 MOVEI VV,WW ;SETUP INDEX AC 2601 032427 201 07 0 00 000012 MOVEI WW,XX ;SETUP INDIRECT AC 2602 032430 505 12 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND 2603 032431 541 12 0 00 000012 HRRI XX,XX ;INDIRECT PNTR WORD 2604 032432 135 10 1 04 000000 LDB AC,@@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED 2605 032433 302 10 0 00 000012 CAIE AC,XX ;TEST LOAD BYTE=12,13,14 2606 032434 003 10 0 00 011001 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED 2607 032435 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH 2608 2609 011002 SN=SN+1 2610 000005 VV=VV+1 2611 000010 WW=WW+1 2612 000013 XX=XX+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 35-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0079 2613 000005 ZZ=ZZ+1 2614 032436 201 05 0 00 000010 MOVEI VV,WW ;SETUP INDEX AC 2615 032437 201 10 0 00 000013 MOVEI WW,XX ;SETUP INDIRECT AC 2616 032440 505 13 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND 2617 032441 541 13 0 00 000013 HRRI XX,XX ;INDIRECT PNTR WORD 2618 032442 135 10 1 05 000000 LDB AC,@@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED 2619 032443 302 10 0 00 000013 CAIE AC,XX ;TEST LOAD BYTE=12,13,14 2620 032444 003 10 0 00 011002 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED 2621 032445 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH 2622 2623 011003 SN=SN+1 2624 000006 VV=VV+1 2625 000011 WW=WW+1 2626 000014 XX=XX+1 2627 000006 ZZ=ZZ+1 2628 032446 201 06 0 00 000011 MOVEI VV,WW ;SETUP INDEX AC 2629 032447 201 11 0 00 000014 MOVEI WW,XX ;SETUP INDIRECT AC 2630 032450 505 14 0 00 000600 HRLI XX,000600 ;SETUP INDEXED AND 2631 032451 541 14 0 00 000014 HRRI XX,XX ;INDIRECT PNTR WORD 2632 032452 135 10 1 06 000000 LDB AC,@@(ZZ) ;LOAD BYTE INDEXED, INDIRECTLY ADDRESSED 2633 032453 302 10 0 00 000014 CAIE AC,XX ;TEST LOAD BYTE=12,13,14 2634 032454 003 10 0 00 011003 ER3 AC,SN ;LDB INDEXED, INDIRECTLY ADDRESSEDD FAILED 2635 032455 321 12 0 00 000010 JUMPL AC+2,^D8 ;LOOP ON ERROR SWITCH 2636 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0080 2637 2638 ;INST-LDB 2639 ;INDEX BYTE ADDRESS 2640 ;P FIELD=0 2641 ;S FIELD=6 2642 ;INDEX AC=AC7 2643 ;BYTE WORD ADDRESS=AC 7,10,11,12,13 2644 ;AN ERROR WILL OCCUR IF LOADED BYTE 2645 ;DIFFERS CURRENT AC 2646 2647 000004 AC=4 2648 SAVEAC (1,1)^ 2649 032456 201 06 0 00 032456 MOVEI AC+2,. ;SAVE TEST PC 2650 032457 202 06 0 00 030051 MOVEM AC+2,TESTPC 2651 032460 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2652 032461 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2653 2654 011100 SN=11100 2655 000006 ZZ=6 2656 2657 G11100: REPEAT ^D5, ;TEST LDB BYTE ADDR INDEXED 2658 &17 ;LOAD BYTE 2664 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2665 ER3 AC,SN ;LDB FAILED 2666 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2667 > 2668 011101 SN=SN+1 2669 000007 ZZ=ZZ+1 2670 032462 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD 2671 032463 201 07 0 00 000007 MOVEI AC+3,ZZ ;SETUP INDEX AC 2672 032464 201 07 0 00 000007 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2673 032465 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2674 032466 302 04 0 00 000007 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2675 032467 003 04 0 00 011101 ER3 AC,SN ;LDB FAILED 2676 032470 321 06 0 00 032462 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2677 2678 011102 SN=SN+1 2679 000010 ZZ=ZZ+1 2680 032471 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD 2681 032472 201 07 0 00 000010 MOVEI AC+3,ZZ ;SETUP INDEX AC 2682 032473 201 10 0 00 000010 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2683 032474 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2684 032475 302 04 0 00 000010 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2685 032476 003 04 0 00 011102 ER3 AC,SN ;LDB FAILED 2686 032477 321 06 0 00 032471 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2687 2688 011103 SN=SN+1 2689 000011 ZZ=ZZ+1 2690 032500 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD 2691 032501 201 07 0 00 000011 MOVEI AC+3,ZZ ;SETUP INDEX AC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0081 2692 032502 201 11 0 00 000011 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2693 032503 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2694 032504 302 04 0 00 000011 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2695 032505 003 04 0 00 011103 ER3 AC,SN ;LDB FAILED 2696 032506 321 06 0 00 032500 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2697 2698 011104 SN=SN+1 2699 000012 ZZ=ZZ+1 2700 032507 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD 2701 032510 201 07 0 00 000012 MOVEI AC+3,ZZ ;SETUP INDEX AC 2702 032511 201 12 0 00 000012 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2703 032512 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2704 032513 302 04 0 00 000012 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2705 032514 003 04 0 00 011104 ER3 AC,SN ;LDB FAILED 2706 032515 321 06 0 00 032507 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2707 2708 011105 SN=SN+1 2709 000013 ZZ=ZZ+1 2710 032516 205 05 0 00 000607 MOVSI AC+1,000607 ;SETUP PNTR WORD 2711 032517 201 07 0 00 000013 MOVEI AC+3,ZZ ;SETUP INDEX AC 2712 032520 201 13 0 00 000013 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2713 032521 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2714 032522 302 04 0 00 000013 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2715 032523 003 04 0 00 011105 ER3 AC,SN ;LDB FAILED 2716 032524 321 06 0 00 032516 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2717 2718 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0082 2719 ;INST-LDB 2720 ;BYTE INDIRECTLY ADDRESSED 2721 ;P FIELD=0 2722 ;S FIELD=6 2723 ;BYTE WORD ADDRESS=AC7,10,11,12,13 2724 ;AN ERROR WILL OCCUR IF LOADED 2725 ;BYTE DIFFERS FROM CURRENT AC 2726 2727 000004 AC=4 2728 SAVEAC (1,1)^ 2729 032525 201 06 0 00 032525 MOVEI AC+2,. ;SAVE TEST PC 2730 032526 202 06 0 00 030051 MOVEM AC+2,TESTPC 2731 032527 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2732 032530 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2733 2734 011200 SN=11200 2735 000006 ZZ=6 2736 2737 G11200: REPEAT ^D5, ;TEST LDB, BYTE INDIRECTLY ADDRESSED 2738 &17 ;LOAD BYTE 2744 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2745 ER3 AC,SN ;LDB FAILED 2746 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2747 > 2748 011201 SN=SN+1 2749 000007 ZZ=ZZ+1 2750 032531 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD 2751 032532 201 00 0 00 000007 MOVEI ,ZZ ;SETUP DEFER ADDRESS 2752 032533 201 07 0 00 000007 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2753 032534 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2754 032535 302 04 0 00 000007 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2755 032536 003 04 0 00 011201 ER3 AC,SN ;LDB FAILED 2756 032537 321 06 0 00 032531 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2757 2758 011202 SN=SN+1 2759 000010 ZZ=ZZ+1 2760 032540 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD 2761 032541 201 00 0 00 000010 MOVEI ,ZZ ;SETUP DEFER ADDRESS 2762 032542 201 10 0 00 000010 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2763 032543 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2764 032544 302 04 0 00 000010 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2765 032545 003 04 0 00 011202 ER3 AC,SN ;LDB FAILED 2766 032546 321 06 0 00 032540 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2767 2768 011203 SN=SN+1 2769 000011 ZZ=ZZ+1 2770 032547 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD 2771 032550 201 00 0 00 000011 MOVEI ,ZZ ;SETUP DEFER ADDRESS 2772 032551 201 11 0 00 000011 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2773 032552 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 36-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0083 2774 032553 302 04 0 00 000011 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2775 032554 003 04 0 00 011203 ER3 AC,SN ;LDB FAILED 2776 032555 321 06 0 00 032547 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2777 2778 011204 SN=SN+1 2779 000012 ZZ=ZZ+1 2780 032556 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD 2781 032557 201 00 0 00 000012 MOVEI ,ZZ ;SETUP DEFER ADDRESS 2782 032560 201 12 0 00 000012 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2783 032561 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2784 032562 302 04 0 00 000012 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2785 032563 003 04 0 00 011204 ER3 AC,SN ;LDB FAILED 2786 032564 321 06 0 00 032556 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2787 2788 011205 SN=SN+1 2789 000013 ZZ=ZZ+1 2790 032565 205 05 0 00 000620 MOVSI AC+1,000620 ;SETUP PNTR WORD 2791 032566 201 00 0 00 000013 MOVEI ,ZZ ;SETUP DEFER ADDRESS 2792 032567 201 13 0 00 000013 MOVEI ZZ,ZZ ;SETUP BYTE WORD 2793 032570 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2794 032571 302 04 0 00 000013 CAIE AC,ZZ ;TEST BYTE=7,10,11,12,13 2795 032572 003 04 0 00 011205 ER3 AC,SN ;LDB FAILED 2796 032573 321 06 0 00 032565 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2797 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 37 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0084 2798 2799 ;INST-LDB 2800 ;BYTE ADDRESS INDEXED AND INDIRECT 2801 ;P FIELD=0 2802 ;S FIELD=6 2803 ;BYTE ADDRESS=AC13,14,15 2804 ;BYTE WORD=13,14,15 2805 ;AN ERROR WILL OCCUR IF LOADED 2806 ;BYTE DIFFERS FROM CURRENT AC 2807 2808 000004 AC=4 2809 SAVEAC (1,1)^ 2810 032574 201 06 0 00 032574 MOVEI AC+2,. ;SAVE TEST PC 2811 032575 202 06 0 00 030051 MOVEM AC+2,TESTPC 2812 032576 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2813 032577 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2814 2815 011300 SN=11300 2816 000012 XX=12 2817 000007 ZZ=7 2818 2819 G11300: REPEAT ^D3, ;TEST LDB, BYTE ADDR INDEXED AND INDIRECT 2820 &17 ;LOAD BYTE 2828 CAIE AC,XX ;TEST BYTE=13,14,15 2829 ER3 AC,SN ;LDB FAILED 2830 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 2831 > 2832 011301 SN=SN+1 2833 000013 XX=XX+1 2834 000010 ZZ=ZZ+1 2835 032600 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD 2836 032601 201 07 0 00 000010 MOVEI AC+3,ZZ ;SETUP INDEX AC 2837 032602 201 10 0 00 000013 MOVEI ZZ,XX ;SETUP INDIRECT ADDR 2838 032603 201 13 0 00 000013 MOVEI XX,XX ;SETUP BYTE WORD 2839 032604 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2840 032605 302 04 0 00 000013 CAIE AC,XX ;TEST BYTE=13,14,15 2841 032606 003 04 0 00 011301 ER3 AC,SN ;LDB FAILED 2842 032607 321 06 0 00 032600 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 2843 2844 011302 SN=SN+1 2845 000014 XX=XX+1 2846 000011 ZZ=ZZ+1 2847 032610 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD 2848 032611 201 07 0 00 000011 MOVEI AC+3,ZZ ;SETUP INDEX AC 2849 032612 201 11 0 00 000014 MOVEI ZZ,XX ;SETUP INDIRECT ADDR 2850 032613 201 14 0 00 000014 MOVEI XX,XX ;SETUP BYTE WORD 2851 032614 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2852 032615 302 04 0 00 000014 CAIE AC,XX ;TEST BYTE=13,14,15 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 37-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0085 2853 032616 003 04 0 00 011302 ER3 AC,SN ;LDB FAILED 2854 032617 321 06 0 00 032610 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 2855 2856 011303 SN=SN+1 2857 000015 XX=XX+1 2858 000012 ZZ=ZZ+1 2859 032620 205 05 0 00 000627 MOVSI AC+1,000627 ;SETUP PNTR WORD 2860 032621 201 07 0 00 000012 MOVEI AC+3,ZZ ;SETUP INDEX AC 2861 032622 201 12 0 00 000015 MOVEI ZZ,XX ;SETUP INDIRECT ADDR 2862 032623 201 15 0 00 000015 MOVEI XX,XX ;SETUP BYTE WORD 2863 032624 135 04 0 00 000005 LDB AC,&17 ;LOAD BYTE 2864 032625 302 04 0 00 000015 CAIE AC,XX ;TEST BYTE=13,14,15 2865 032626 003 04 0 00 011303 ER3 AC,SN ;LDB FAILED 2866 032627 321 06 0 00 032620 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH 2867 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0086 2868 2869 ;INST-ILDB 2870 ;DECREASING P FIELD 2871 ;P FIELD=44,36,30,22,14 2872 ;S FIELD=6 2873 ;BYTE ADDRESS=AC0 2874 ;AN ERROR WILL OCCUR IF AC DIFFERS 2875 ;FROM 77 2876 2877 000005 AC=5 2878 SAVEAC (1,1)^ 2879 032630 201 07 0 00 032630 MOVEI AC+2,. ;SAVE TEST PC 2880 032631 202 07 0 00 030051 MOVEM AC+2,TESTPC 2881 032632 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2882 032633 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2883 2884 011400 SN=11400 2885 520600 XX=520600 2886 000000 ZZ=0 2887 2888 G11400: REPEAT ^D5, ;TEST ILDB 2889 &17 ;INC AND LOAD BYTE 2896 CAIE AC,77 ;TEST AC=77 2897 ER3 AC,SN ;ILDB FAILED 2898 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2899 > 2900 011401 SN=SN+1 2901 440600 XX=XX-060000 2902 777777 777772 ZZ=ZZ-6 2903 032634 205 06 0 00 440600 MOVSI AC+1,XX ;SETUP PNTR WORD 2904 032635 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD 2905 032636 241 00 0 00 777772 ROT ,ZZ ;ROTATE RIGHT 2906 032637 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 2907 032640 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77 2908 032641 003 05 0 00 011401 ER3 AC,SN ;ILDB FAILED 2909 032642 321 07 0 00 032634 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2910 2911 011402 SN=SN+1 2912 360600 XX=XX-060000 2913 777777 777764 ZZ=ZZ-6 2914 032643 205 06 0 00 360600 MOVSI AC+1,XX ;SETUP PNTR WORD 2915 032644 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD 2916 032645 241 00 0 00 777764 ROT ,ZZ ;ROTATE RIGHT 2917 032646 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 2918 032647 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77 2919 032650 003 05 0 00 011402 ER3 AC,SN ;ILDB FAILED 2920 032651 321 07 0 00 032643 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2921 2922 011403 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0087 2923 300600 XX=XX-060000 2924 777777 777756 ZZ=ZZ-6 2925 032652 205 06 0 00 300600 MOVSI AC+1,XX ;SETUP PNTR WORD 2926 032653 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD 2927 032654 241 00 0 00 777756 ROT ,ZZ ;ROTATE RIGHT 2928 032655 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 2929 032656 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77 2930 032657 003 05 0 00 011403 ER3 AC,SN ;ILDB FAILED 2931 032660 321 07 0 00 032652 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2932 2933 011404 SN=SN+1 2934 220600 XX=XX-060000 2935 777777 777750 ZZ=ZZ-6 2936 032661 205 06 0 00 220600 MOVSI AC+1,XX ;SETUP PNTR WORD 2937 032662 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD 2938 032663 241 00 0 00 777750 ROT ,ZZ ;ROTATE RIGHT 2939 032664 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 2940 032665 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77 2941 032666 003 05 0 00 011404 ER3 AC,SN ;ILDB FAILED 2942 032667 321 07 0 00 032661 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2943 2944 011405 SN=SN+1 2945 140600 XX=XX-060000 2946 777777 777742 ZZ=ZZ-6 2947 032670 205 06 0 00 140600 MOVSI AC+1,XX ;SETUP PNTR WORD 2948 032671 201 00 0 00 000077 MOVEI ,77 ;SETUP BYTE WORD 2949 032672 241 00 0 00 777742 ROT ,ZZ ;ROTATE RIGHT 2950 032673 134 05 0 00 000006 ILDB AC,&17 ;INC AND LOAD BYTE 2951 032674 302 05 0 00 000077 CAIE AC,77 ;TEST AC=77 2952 032675 003 05 0 00 011405 ER3 AC,SN ;ILDB FAILED 2953 032676 321 07 0 00 032670 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2954 2955 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0088 2956 ;INST-ILDB 2957 ;INCREASING S FIELD 2958 ;CALCULATE NEW P FIELD, INCREMENT 2959 ;BYTE WORD ADDRESS 2960 ;P FIELD=0 2961 ;S FIELD=6,14,22,30,36 2962 ;AN ERROR WILL OCCUR IF AC 2963 ;DIFFERS FROM 77 2964 2965 000014 AC=14 2966 SAVEAC (1,1)^ 2967 032677 201 16 0 00 032677 MOVEI AC+2,. ;SAVE TEST PC 2968 032700 202 16 0 00 030051 MOVEM AC+2,TESTPC 2969 032701 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 2970 032702 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 2971 2972 011500 SN=11500 2973 000000 XX=0 2974 000000 ZZ=0 2975 2976 G11500: REPEAT ^D5, ;TEST ILDB 2977 &17 ;INC AND LOAD BYTE 2984 CAIE AC,77 ;TEST AC=77 2985 ER3 AC,SN ;ILDB FAILED 2986 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2987 > 2988 011501 SN=SN+1 2989 000600 XX=XX+600 2990 777777 777772 ZZ=ZZ-6 2991 032703 205 15 0 00 000600 MOVSI AC+1,XX ;SETUP PNTR WORD 2992 032704 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD 2993 032705 241 01 0 00 777772 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD 2994 032706 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 2995 032707 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77 2996 032710 003 14 0 00 011501 ER3 AC,SN ;ILDB FAILED 2997 032711 321 16 0 00 032703 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 2998 2999 011502 SN=SN+1 3000 001400 XX=XX+600 3001 777777 777764 ZZ=ZZ-6 3002 032712 205 15 0 00 001400 MOVSI AC+1,XX ;SETUP PNTR WORD 3003 032713 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD 3004 032714 241 01 0 00 777764 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD 3005 032715 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 3006 032716 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77 3007 032717 003 14 0 00 011502 ER3 AC,SN ;ILDB FAILED 3008 032720 321 16 0 00 032712 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 3009 3010 011503 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 38-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0089 3011 002200 XX=XX+600 3012 777777 777756 ZZ=ZZ-6 3013 032721 205 15 0 00 002200 MOVSI AC+1,XX ;SETUP PNTR WORD 3014 032722 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD 3015 032723 241 01 0 00 777756 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD 3016 032724 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 3017 032725 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77 3018 032726 003 14 0 00 011503 ER3 AC,SN ;ILDB FAILED 3019 032727 321 16 0 00 032721 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 3020 3021 011504 SN=SN+1 3022 003000 XX=XX+600 3023 777777 777750 ZZ=ZZ-6 3024 032730 205 15 0 00 003000 MOVSI AC+1,XX ;SETUP PNTR WORD 3025 032731 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD 3026 032732 241 01 0 00 777750 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD 3027 032733 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 3028 032734 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77 3029 032735 003 14 0 00 011504 ER3 AC,SN ;ILDB FAILED 3030 032736 321 16 0 00 032730 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 3031 3032 011505 SN=SN+1 3033 003600 XX=XX+600 3034 777777 777742 ZZ=ZZ-6 3035 032737 205 15 0 00 003600 MOVSI AC+1,XX ;SETUP PNTR WORD 3036 032740 201 01 0 00 000077 MOVEI 1,77 ;SETUP BYTE WORD 3037 032741 241 01 0 00 777742 ROT 1,ZZ ;ROTATE RIGHT BYTE WORD 3038 032742 134 14 0 00 000015 ILDB AC,&17 ;INC AND LOAD BYTE 3039 032743 302 14 0 00 000077 CAIE AC,77 ;TEST AC=77 3040 032744 003 14 0 00 011505 ER3 AC,SN ;ILDB FAILED 3041 032745 321 16 0 00 032737 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH 3042 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0090 3043 3044 ;INST-ILDB 3045 ;TESTING SPECIAL POINTER 3046 ;WHICH SETS AC TO ZERO 3047 ;PFIELD=20 ORIG,64 AFTER 3048 ;SFIELD=60 ORIG,60 AFTER 3049 ;AN ERROR WILL OCCUR IF AC IS NOT ZEROED 3050 3051 206000 XX=206000 3052 3053 032746 205 15 0 00 206000 G11600: MOVSI AC+1,XX ;SETUP PNTR WORD 3054 032747 477 00 0 00 000001 SETOB 0,1 ;SETUP BYTE WORD 3055 032750 476 00 0 00 000014 SETOM AC ;SETUP AC FOR TEST 3056 032751 134 14 0 00 000015 ILDB AC,&17 ;THIS SHOULD ZERO AC 3057 032752 332 00 0 00 000014 SKIPE AC ;TEST AC=0 3058 032753 003 14 0 00 011601 ER3 AC,11601 ;ILDB FAILED 3059 032754 321 16 0 00 032746 JUMPL AC+2,G11600 ;LOOP ON ERROR SWITCH 3060 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0091 3061 ;INST-DPB 3062 ;INCREASING P FIELD 3063 ;P FIELD=6,14,22,30,36 3064 ;S FIELD=6 3065 ;BYTE WORD=55 3066 ;AN ERROR WILL OCCUR IF DPB 3067 ;FAILS TO DEPOSIT CORRECTLY 3068 3069 000013 AC=13 3070 SAVEAC (1,1)^ 3071 032755 201 15 0 00 032755 MOVEI AC+2,. ;SAVE TEST PC 3072 032756 202 15 0 00 030051 MOVEM AC+2,TESTPC 3073 032757 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3074 032760 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3075 3076 011700 SN=11700 3077 000000 XX=0 3078 000600 ZZ=000600 3079 3080 G11700: REPEAT ^D5, ;TEST DPB 3081 &17 ;DEPOSIT BYTE (AC0) 3090 CAME ,&17 ;TEST DEST WORD 3091 ER12 ,SN ;DPB FAILED 3092 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3093 > 3094 011701 SN=SN+1 3095 000006 XX=XX+6 3096 060600 ZZ=ZZ+60000 3097 032761 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2 3098 032762 241 11 0 00 000006 ROT AC-2,XX ;FOR COMPARISON 3099 032763 205 14 0 00 060600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3100 032764 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3101 032765 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3102 032766 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3103 032767 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD 3104 032770 012 00 0 00 011701 ER12 ,SN ;DPB FAILED 3105 032771 321 15 0 00 032761 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3106 3107 011702 SN=SN+1 3108 000014 XX=XX+6 3109 140600 ZZ=ZZ+60000 3110 032772 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2 3111 032773 241 11 0 00 000014 ROT AC-2,XX ;FOR COMPARISON 3112 032774 205 14 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3113 032775 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3114 032776 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3115 032777 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 39-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0092 3116 033000 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD 3117 033001 012 00 0 00 011702 ER12 ,SN ;DPB FAILED 3118 033002 321 15 0 00 032772 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3119 3120 011703 SN=SN+1 3121 000022 XX=XX+6 3122 220600 ZZ=ZZ+60000 3123 033003 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2 3124 033004 241 11 0 00 000022 ROT AC-2,XX ;FOR COMPARISON 3125 033005 205 14 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3126 033006 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3127 033007 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3128 033010 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3129 033011 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD 3130 033012 012 00 0 00 011703 ER12 ,SN ;DPB FAILED 3131 033013 321 15 0 00 033003 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3132 3133 011704 SN=SN+1 3134 000030 XX=XX+6 3135 300600 ZZ=ZZ+60000 3136 033014 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2 3137 033015 241 11 0 00 000030 ROT AC-2,XX ;FOR COMPARISON 3138 033016 205 14 0 00 300600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3139 033017 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3140 033020 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3141 033021 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3142 033022 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD 3143 033023 012 00 0 00 011704 ER12 ,SN ;DPB FAILED 3144 033024 321 15 0 00 033014 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3145 3146 011705 SN=SN+1 3147 000036 XX=XX+6 3148 360600 ZZ=ZZ+60000 3149 033025 201 11 0 00 000055 MOVEI AC-2,55 ;SETUP AC-2 3150 033026 241 11 0 00 000036 ROT AC-2,XX ;FOR COMPARISON 3151 033027 205 14 0 00 360600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3152 033030 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3153 033031 201 13 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3154 033032 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3155 033033 312 00 0 00 000011 CAME ,&17 ;TEST DEST WORD 3156 033034 012 00 0 00 011705 ER12 ,SN ;DPB FAILED 3157 033035 321 15 0 00 033025 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3158 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 40 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0093 3159 3160 ;INST-DPB 3161 ;INCREASING P FIELD 3162 ;P FIELD = 0,6,14,22,30 3163 ;S FIELD = 6 3164 ;BYTE WORD=55 (SHIFTING LEFT 6 PLACES) 3165 ;AN ERROR WILL OCCUR IF DPB FAILS 3166 ;TO DEPOSIT CORRECTLY 3167 3168 000012 AC=12 3169 SAVEAC (1,1)^ 3170 033036 201 14 0 00 033036 MOVEI AC+2,. ;SAVE TEST PC 3171 033037 202 14 0 00 030051 MOVEM AC+2,TESTPC 3172 033040 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3173 033041 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3174 3175 012000 SN=12000 3176 000000 XX=0 3177 777777 720000 ZZ=-60000 3178 3179 G12000: REPEAT ^D5, ;TEST DPB 3180 3184 MOVSI AC-2,550000 ;SETUP AC=2 3185 ROT AC-2,XX ;FRO COMPARISON 3186 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3187 MOVEI AC,55 ;SETUP BYTE WORD 3188 SETZ ;SETUP DEST WORD 3189 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3190 CAME ,&17 ;TEST DEST WORD 3191 ER12 ,SN ;DPB FAILED 3192 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3193 > 3194 012001 SN=SN+1 3195 000006 XX=XX+6 3196 000000 ZZ=ZZ+060000 3197 000600 IFE ZZ, 3198 033042 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2 3199 033043 241 10 0 00 000006 ROT AC-2,XX ;FRO COMPARISON 3200 033044 205 13 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3201 033045 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3202 033046 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3203 033047 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3204 033050 312 00 0 00 000010 CAME ,&17 ;TEST DEST WORD 3205 033051 012 00 0 00 012001 ER12 ,SN ;DPB FAILED 3206 033052 321 14 0 00 033042 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3207 3208 012002 SN=SN+1 3209 000014 XX=XX+6 3210 060600 ZZ=ZZ+060000 3211 IFE ZZ, 3212 033053 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2 3213 033054 241 10 0 00 000014 ROT AC-2,XX ;FRO COMPARISON DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 40-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0094 3214 033055 205 13 0 00 060600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3215 033056 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3216 033057 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3217 033060 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3218 033061 312 00 0 00 000010 CAME ,&17 ;TEST DEST WORD 3219 033062 012 00 0 00 012002 ER12 ,SN ;DPB FAILED 3220 033063 321 14 0 00 033053 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3221 3222 012003 SN=SN+1 3223 000022 XX=XX+6 3224 140600 ZZ=ZZ+060000 3225 IFE ZZ, 3226 033064 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2 3227 033065 241 10 0 00 000022 ROT AC-2,XX ;FRO COMPARISON 3228 033066 205 13 0 00 140600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3229 033067 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3230 033070 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3231 033071 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3232 033072 312 00 0 00 000010 CAME ,&17 ;TEST DEST WORD 3233 033073 012 00 0 00 012003 ER12 ,SN ;DPB FAILED 3234 033074 321 14 0 00 033064 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3235 3236 012004 SN=SN+1 3237 000030 XX=XX+6 3238 220600 ZZ=ZZ+060000 3239 IFE ZZ, 3240 033075 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2 3241 033076 241 10 0 00 000030 ROT AC-2,XX ;FRO COMPARISON 3242 033077 205 13 0 00 220600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3243 033100 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3244 033101 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3245 033102 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3246 033103 312 00 0 00 000010 CAME ,&17 ;TEST DEST WORD 3247 033104 012 00 0 00 012004 ER12 ,SN ;DPB FAILED 3248 033105 321 14 0 00 033075 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3249 3250 012005 SN=SN+1 3251 000036 XX=XX+6 3252 300600 ZZ=ZZ+060000 3253 IFE ZZ, 3254 033106 205 10 0 00 550000 MOVSI AC-2,550000 ;SETUP AC=2 3255 033107 241 10 0 00 000036 ROT AC-2,XX ;FRO COMPARISON 3256 033110 205 13 0 00 300600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3257 033111 201 12 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3258 033112 400 00 0 00 000000 SETZ ;SETUP DEST WORD 3259 033113 137 12 0 00 000013 DPB AC,&17 ;DEPOSIT BYTE (AC0) 3260 033114 312 00 0 00 000010 CAME ,&17 ;TEST DEST WORD 3261 033115 012 00 0 00 012005 ER12 ,SN ;DPB FAILED 3262 033116 321 14 0 00 033106 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3263 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 41 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0095 3264 ;INST-IDPB 3265 ;INCREASING S FIELD 3266 ;CALCULATE NEW P FIELD, INCREMENT 3267 ;BYTE WORD ADDRESS 3268 ;P FIELD=0 3269 ;S FIELD=6,14,22,30,36 3270 ;BYTE WORD=77 3271 ;AN ERROR WILL OCCUR IF IDPB FAILS 3272 ;TO DEPOSIT CORRECTLY 3273 3274 000011 AC=11 3275 SAVEAC (1,1)^ 3276 033117 201 13 0 00 033117 MOVEI AC+2,. ;SAVE TEST PC 3277 033120 202 13 0 00 030051 MOVEM AC+2,TESTPC 3278 033121 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3279 033122 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3280 3281 012100 SN=12100 3282 000000 XX=0 3283 000000 ZZ=000000 3284 3285 G12100: REPEAT ^D5, ;TEST IDPB 3286 &17 ;INC AND DEPOSIT BYTE 3295 CAME 1,&17 ;TEST DEST WORD 3296 ER12 1,SN ;IDPB FAILED 3297 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3298 > 3299 012101 SN=SN+1 3300 777777 777772 XX=XX-6 3301 000600 ZZ=ZZ+600 3302 033123 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2 3303 033124 241 07 0 00 777772 ROT AC-2,XX ;FOR COMPARISON 3304 033125 205 12 0 00 000600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3305 033126 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD 3306 033127 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD 3307 033130 136 11 0 00 000012 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3308 033131 312 01 0 00 000007 CAME 1,&17 ;TEST DEST WORD 3309 033132 012 01 0 00 012101 ER12 1,SN ;IDPB FAILED 3310 033133 321 13 0 00 033123 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3311 3312 012102 SN=SN+1 3313 777777 777764 XX=XX-6 3314 001400 ZZ=ZZ+600 3315 033134 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2 3316 033135 241 07 0 00 777764 ROT AC-2,XX ;FOR COMPARISON 3317 033136 205 12 0 00 001400 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3318 033137 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 41-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0096 3319 033140 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD 3320 033141 136 11 0 00 000012 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3321 033142 312 01 0 00 000007 CAME 1,&17 ;TEST DEST WORD 3322 033143 012 01 0 00 012102 ER12 1,SN ;IDPB FAILED 3323 033144 321 13 0 00 033134 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3324 3325 012103 SN=SN+1 3326 777777 777756 XX=XX-6 3327 002200 ZZ=ZZ+600 3328 033145 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2 3329 033146 241 07 0 00 777756 ROT AC-2,XX ;FOR COMPARISON 3330 033147 205 12 0 00 002200 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3331 033150 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD 3332 033151 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD 3333 033152 136 11 0 00 000012 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3334 033153 312 01 0 00 000007 CAME 1,&17 ;TEST DEST WORD 3335 033154 012 01 0 00 012103 ER12 1,SN ;IDPB FAILED 3336 033155 321 13 0 00 033145 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3337 3338 012104 SN=SN+1 3339 777777 777750 XX=XX-6 3340 003000 ZZ=ZZ+600 3341 033156 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2 3342 033157 241 07 0 00 777750 ROT AC-2,XX ;FOR COMPARISON 3343 033160 205 12 0 00 003000 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3344 033161 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD 3345 033162 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD 3346 033163 136 11 0 00 000012 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3347 033164 312 01 0 00 000007 CAME 1,&17 ;TEST DEST WORD 3348 033165 012 01 0 00 012104 ER12 1,SN ;IDPB FAILED 3349 033166 321 13 0 00 033156 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3350 3351 012105 SN=SN+1 3352 777777 777742 XX=XX-6 3353 003600 ZZ=ZZ+600 3354 033167 201 07 0 00 000077 MOVEI AC-2,77 ;SETUP AC-2 3355 033170 241 07 0 00 777742 ROT AC-2,XX ;FOR COMPARISON 3356 033171 205 12 0 00 003600 MOVSI AC+1,ZZ ;SETUP PNTR WORD 3357 033172 201 11 0 00 000077 MOVEI AC,77 ;SETUP BYTE WORD 3358 033173 400 01 0 00 000000 SETZ 1, ;SETUP DEST WORD 3359 033174 136 11 0 00 000012 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3360 033175 312 01 0 00 000007 CAME 1,&17 ;TEST DEST WORD 3361 033176 012 01 0 00 012105 ER12 1,SN ;IDPB FAILED 3362 033177 321 13 0 00 033167 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3363 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 42 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0097 3364 ;INST-IDPB 3365 ;P FIELD=44 3366 ;S FIELD=6 3367 ;BYTE WORD=55 3368 ;DEST WORD=-1 3369 ;AN ERROR WILL OCCUR IF IDPB 3370 ;FAILS TO DEPOSIT CORRECTLY 3371 3372 000010 AC=10 3373 SAVEAC (1,1)^ 3374 033200 201 12 0 00 033200 MOVEI AC+2,. ;SAVE TEST PC 3375 033201 202 12 0 00 030051 MOVEM AC+2,TESTPC 3376 033202 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3377 033203 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3378 3379 012200 SN=12200 3380 000000 ZZ=0 3381 3382 033204 205 11 0 00 440600 G12200: MOVSI AC+1,440600 ;SETUP PNPR WORD 3383 REPEAT ^D5, ;TEST IDPB 3384 &17 ;INC AND DEPOSIT BYTE 3392 CAME ,&17 ;TEST DEST WORD 3393 ER12 ,SN ;IDPB FAILED 3394 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3395 > 3396 012201 SN=SN+1 3397 777777 777772 ZZ=ZZ-6 3398 033205 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2 3399 033206 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON 3400 033207 241 06 0 00 777772 ROT AC-2,ZZ ;ROTATE RIGHT BY 6 3401 033210 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3402 033211 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0) 3403 033212 136 10 0 00 000011 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3404 033213 312 00 0 00 000006 CAME ,&17 ;TEST DEST WORD 3405 033214 012 00 0 00 012201 ER12 ,SN ;IDPB FAILED 3406 033215 321 12 0 00 033205 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3407 3408 012202 SN=SN+1 3409 777777 777764 ZZ=ZZ-6 3410 033216 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2 3411 033217 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON 3412 033220 241 06 0 00 777764 ROT AC-2,ZZ ;ROTATE RIGHT BY 6 3413 033221 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3414 033222 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0) 3415 033223 136 10 0 00 000011 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3416 033224 312 00 0 00 000006 CAME ,&17 ;TEST DEST WORD 3417 033225 012 00 0 00 012202 ER12 ,SN ;IDPB FAILED 3418 033226 321 12 0 00 033216 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 42-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0098 3419 3420 012203 SN=SN+1 3421 777777 777756 ZZ=ZZ-6 3422 033227 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2 3423 033230 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON 3424 033231 241 06 0 00 777756 ROT AC-2,ZZ ;ROTATE RIGHT BY 6 3425 033232 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3426 033233 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0) 3427 033234 136 10 0 00 000011 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3428 033235 312 00 0 00 000006 CAME ,&17 ;TEST DEST WORD 3429 033236 012 00 0 00 012203 ER12 ,SN ;IDPB FAILED 3430 033237 321 12 0 00 033227 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3431 3432 012204 SN=SN+1 3433 777777 777750 ZZ=ZZ-6 3434 033240 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2 3435 033241 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON 3436 033242 241 06 0 00 777750 ROT AC-2,ZZ ;ROTATE RIGHT BY 6 3437 033243 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3438 033244 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0) 3439 033245 136 10 0 00 000011 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3440 033246 312 00 0 00 000006 CAME ,&17 ;TEST DEST WORD 3441 033247 012 00 0 00 012204 ER12 ,SN ;IDPB FAILED 3442 033250 321 12 0 00 033240 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3443 3444 012205 SN=SN+1 3445 777777 777742 ZZ=ZZ-6 3446 033251 505 06 0 00 777777 HRLI AC-2,-1 ;SETUP AC-2 3447 033252 541 06 0 00 777755 HRRI AC-2,-23 ;FOR COMPARISON 3448 033253 241 06 0 00 777742 ROT AC-2,ZZ ;ROTATE RIGHT BY 6 3449 033254 201 10 0 00 000055 MOVEI AC,55 ;SETUP BYTE WORD 3450 033255 474 00 0 00 000000 SETO ;SETUP DEST WORD (AC0) 3451 033256 136 10 0 00 000011 IDPB AC,&17 ;INC AND DEPOSIT BYTE 3452 033257 312 00 0 00 000006 CAME ,&17 ;TEST DEST WORD 3453 033260 012 00 0 00 012205 ER12 ,SN ;IDPB FAILED 3454 033261 321 12 0 00 033251 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH 3455 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0099 3456 ;INST-LDB-SPECIAL CASE-S GREATER THAN 44 3457 ;P FIELD=7 3458 ;S FIELD=60,40 3459 ;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44 3460 3461 000013 AC=13 3462 SAVEAC (1,1)^ 3463 033262 201 15 0 00 033262 MOVEI AC+2,. ;SAVE TEST PC 3464 033263 202 15 0 00 030051 MOVEM AC+2,TESTPC 3465 033264 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3466 033265 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3467 3468 012210 SN=12210 3469 100000 XX=100000 3470 3471 G12210: REPEAT 2, ;TEST LDB 3472 &17 ;LOAD BYTE 3479 CAME AC,[002525,,252525] ;TEST DEST WORD 3480 ER3 AC,SN ;LDB FAILED 3481 CAME AC+1,[XX,,1] ;CHECK POINTER 3482 ER4 AC+1,SN ;POINTER WAS MODIFIED 3483 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 3484 > 3485 012211 SN=SN+1 3486 076000 XX=XX-2000 3487 033266 477 00 0 00 000002 SETOB 0,2 3488 033267 200 01 0 00 040654 MOVE 1,[525252,,525377] ;SETUP BYTE WORD 3489 033270 402 00 0 00 000013 SETZM AC ;CLEAR DEST WORD 3490 033271 200 14 0 00 040655 MOVE AC+1,[XX,,1] ;SETUP POINTER 3491 033272 135 13 0 00 000014 LDB AC,&17 ;LOAD BYTE 3492 033273 312 13 0 00 040656 CAME AC,[002525,,252525] ;TEST DEST WORD 3493 033274 003 13 0 00 012211 ER3 AC,SN ;LDB FAILED 3494 033275 312 14 0 00 040655 CAME AC+1,[XX,,1] ;CHECK POINTER 3495 033276 004 14 0 00 012211 ER4 AC+1,SN ;POINTER WAS MODIFIED 3496 033277 321 15 0 00 033266 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 3497 3498 012212 SN=SN+1 3499 074000 XX=XX-2000 3500 033300 477 00 0 00 000002 SETOB 0,2 3501 033301 200 01 0 00 040654 MOVE 1,[525252,,525377] ;SETUP BYTE WORD 3502 033302 402 00 0 00 000013 SETZM AC ;CLEAR DEST WORD 3503 033303 200 14 0 00 040657 MOVE AC+1,[XX,,1] ;SETUP POINTER 3504 033304 135 13 0 00 000014 LDB AC,&17 ;LOAD BYTE 3505 033305 312 13 0 00 040656 CAME AC,[002525,,252525] ;TEST DEST WORD 3506 033306 003 13 0 00 012212 ER3 AC,SN ;LDB FAILED 3507 033307 312 14 0 00 040657 CAME AC+1,[XX,,1] ;CHECK POINTER 3508 033310 004 14 0 00 012212 ER4 AC+1,SN ;POINTER WAS MODIFIED 3509 033311 321 15 0 00 033300 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 3510 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0100 3511 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-2 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0101 3512 ;INST-DPB-SPECIAL CASE-S GREATER THAN 44 3513 ;P FIELD=7 3514 ;S FIELD=60,40 3515 ;VERIFY THAT THE BYTE PROCESSED IS, AT MOST, 44 BITS IF S GREATER THAN 44 3516 3517 012220 SN=12220 3518 100000 XX=100000 3519 3520 G12220: REPEAT 2, ;TEST DPB 3521 &17 ;DEPOSIT BYTE 3528 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/] 3529 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR 3530 CAME 0,[-1,,-1] ;CHECK DEST WORD -1 3531 ER2 0,SN ;DPB FAILED 3532 CAME 1,[646446,,464670] ;CHECK DEST WORD 3533 ER12 1,SN ;DPB FAILED 3534 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/] 3535 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR 3536 CAME 2,[-1,,-1] ;CHECK DEST WORD +1 3537 ER2 2,SN ;DPB FAILED 3538 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH 3539 > 3540 012221 SN=SN+1 3541 076000 XX=XX-2000 3542 033312 477 00 0 00 000002 SETOB 0,2 3543 033313 200 01 0 00 040660 MOVE 1,[707070,,707070] ;SETUP DEST WORD 3544 033314 200 13 0 00 040661 MOVE AC,[323232,,232323] ;SETUP BYTE WORD 3545 033315 200 14 0 00 040655 MOVE AC+1,[XX,,1] ;SETUP POINTER 3546 033316 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE 3547 033317 201 11 0 00 040662 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/] 3548 033320 200 11 0 00 040577 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR 3549 033321 312 00 0 00 040666 CAME 0,[-1,,-1] ;CHECK DEST WORD -1 3550 033322 002 00 0 00 012221 ER2 0,SN ;DPB FAILED 3551 033323 312 01 0 00 040667 CAME 1,[646446,,464670] ;CHECK DEST WORD 3552 033324 012 01 0 00 012221 ER12 1,SN ;DPB FAILED 3553 033325 201 11 0 00 040670 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/] 3554 033326 202 11 0 00 040577 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR 3555 033327 312 02 0 00 040666 CAME 2,[-1,,-1] ;CHECK DEST WORD +1 3556 033330 002 02 0 00 012221 ER2 2,SN ;DPB FAILED 3557 033331 321 15 0 00 033312 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH 3558 3559 012222 SN=SN+1 3560 074000 XX=XX-2000 3561 033332 477 00 0 00 000002 SETOB 0,2 3562 033333 200 01 0 00 040660 MOVE 1,[707070,,707070] ;SETUP DEST WORD 3563 033334 200 13 0 00 040661 MOVE AC,[323232,,232323] ;SETUP BYTE WORD 3564 033335 200 14 0 00 040657 MOVE AC+1,[XX,,1] ;SETUP POINTER 3565 033336 137 13 0 00 000014 DPB AC,&17 ;DEPOSIT BYTE 3566 033337 201 11 0 00 040662 MOVEI AC-2,[ASCIZ/C(C(E)-1) FAILED/] DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 43-3 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0102 3567 033340 200 11 0 00 040577 MOVE AC-2,SPDES ;FAILURE DESCRIPTOR 3568 033341 312 00 0 00 040666 CAME 0,[-1,,-1] ;CHECK DEST WORD -1 3569 033342 002 00 0 00 012222 ER2 0,SN ;DPB FAILED 3570 033343 312 01 0 00 040667 CAME 1,[646446,,464670] ;CHECK DEST WORD 3571 033344 012 01 0 00 012222 ER12 1,SN ;DPB FAILED 3572 033345 201 11 0 00 040670 MOVEI AC-2,[ASCIZ/C(C(E)+1) FAILED/] 3573 033346 202 11 0 00 040577 MOVEM AC-2,SPDES ;FAILURE DSCRIPTOR 3574 033347 312 02 0 00 040666 CAME 2,[-1,,-1] ;CHECK DEST WORD +1 3575 033350 002 02 0 00 012222 ER2 2,SN ;DPB FAILED 3576 033351 321 15 0 00 033332 JUMPL AC+2,.-^D15 ;LOOP ON ERROR SWITCH 3577 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 44 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0103 3578 ;VERIFY THAT THE POINTER IS NOT INCREMENTED BY "ILDB" OR "IDPB" IF 'BIS' 3579 ;IS SET; AND THAT THE SECOND PART OF THE BYTE INSTRUCTION CLEARS 'BIS' 3580 3581 000013 AC=13 3582 SAVEAC (1,1)^ 3583 033352 201 15 0 00 033352 MOVEI AC+2,. ;SAVE TEST PC 3584 033353 202 15 0 00 030051 MOVEM AC+2,TESTPC 3585 033354 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3586 033355 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3587 3588 033356 200 14 0 00 040674 G12300: MOVE AC+1,[220600,,AC-1] ;SETUP BYTE POINTER 3589 033357 200 13 0 00 040660 MOVE AC,[707070,,707070] ;SETUP AC 3590 033360 200 12 0 00 040675 MOVE AC-1,[112233,,445566] ;SETUP BYTE WORD 3591 033361 254 02 1 00 040676 JRSTF @@[BIS,,.+1] ;SET 'BIS' FLAG 3592 033362 134 13 0 00 000014 ILDB AC,AC+1 3593 033363 265 11 0 00 033364 JSP AC-2,.+1 ;SAVE FLAGS 3594 033364 302 13 0 00 000033 CAIE AC,33 ;TEST DEST WORD 3595 033365 003 13 0 00 012301 ER3 AC,12301 ;INCORRECT BYTE WAS LOADED 3596 033366 312 14 0 00 040674 CAME AC+1,[220600,,AC-1] ;TEST POINTER 3597 033367 004 14 0 00 012301 ER4 AC+1,12301 ;POINTER WAS INCREMENTED 3598 033370 603 11 0 00 020000 TLNE AC-2,BIS ;EXAMINE 'BIS' 3599 033371 013 11 0 00 012301 ER13 AC-2,12301 ;'BIS' WAS NOT CLEARED 3600 033372 322 15 0 00 033356 JUMPE AC+2,G12300 ;LOOP ON ERROR SWITCH 3601 3602 033373 200 14 0 00 040674 G12400: MOVE AC+1,[220600,,AC-1] ;SET-UP BYTE POINTER 3603 033374 200 13 0 00 040660 MOVE AC,[707070,,707070] ;SET-UP AC 3604 033375 200 12 0 00 040675 MOVE AC-1,[112233,,445566] ;SETUP BYTE WORD 3605 033376 254 02 1 00 040677 JRSTF @@[BIS,,.+1] ;SET 'BIS' FLAG 3606 033377 136 13 0 00 000014 IDPB AC,AC+1 3607 033400 265 11 0 00 033401 JSP AC-2,.+1 ;SAVE FLAGS 3608 033401 312 14 0 00 040674 CAME AC+1,[220600,,AC-1] ;TEST POINTER 3609 033402 004 14 0 00 012401 ER4 AC+1,12401 ;POINTER WAS INCREMENTED 3610 033403 312 12 0 00 040700 CAME AC-1,[112270,,445566] ;TEST BYTE WORD 3611 033404 012 12 0 00 012401 ER12 AC-1,12401 ;INCORRECT BYTE WAS DEPOSITED 3612 033405 603 11 0 00 020000 TLNE AC-2,BIS ;EXAMINE 'BIS' 3613 033406 013 11 0 00 012401 ER13 AC-2,12401 ;'BIS' WAS NOT CLEARED 3614 033407 321 15 0 00 033373 JUMPL AC+2,G12400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 47 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0104 3615 ;MSCL BYTE TESTS - IBP 3616 ;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN AN AC 3617 3618 000007 AC=7 3619 SAVEAC (1,1)^ 3620 033410 201 11 0 00 033410 MOVEI AC+2,. ;SAVE TEST PC 3621 033411 202 11 0 00 030051 MOVEM AC+2,TESTPC 3622 033412 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3623 033413 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3624 033414 254 02 1 00 040701 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3625 3626 033415 205 05 0 00 170600 G12500: MOVSI AC-2,170600 ;SETUP POINTER 3627 033416 205 06 0 00 110600 MOVSI AC-1,110600 ;RESULT FOR COMPARISON 3628 033417 133 00 0 00 000005 IBP &17 ;*IBP SHOULD PLACE 110600,,0 INTO PTR 3629 033420 312 05 0 00 000006 CAME AC-2,&17 ;IS PTR = 110600,,0 ? 3630 033421 005 05 0 00 012501 ER5 AC-2,12501 ;POINTER FAILURE 3631 033422 321 11 0 00 033415 JUMPL AC+2,G12500 ;LOOP ON ERROR SWITCH 3632 3633 ;MSCL BYTE TESTS - IBP 3634 ;VERIFY THAT IBP WORKS WHEN THE POINTER IS IN CORE MEMORY 3635 3636 000006 AC=6 3637 SAVEAC (1,1)^ 3638 033423 201 10 0 00 033423 MOVEI AC+2,. ;SAVE TEST PC 3639 033424 202 10 0 00 030051 MOVEM AC+2,TESTPC 3640 033425 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3641 033426 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3642 033427 254 02 1 00 040702 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3643 3644 033430 205 04 0 00 170600 G12510: MOVSI AC-2,170600 3645 033431 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3646 033432 205 04 0 00 110600 MOVSI AC-2,110600 ;RESULT FOR COMPARISON 3647 033433 400 05 0 00 000000 SETZ AC-1, ;INITIALIZE FOR RESULT 3648 033434 133 00 0 00 040073 IBP BYTBLK ;*IBP SHOULD PLACE 110600,,0 INTO PTR 3649 033435 200 05 0 00 040073 MOVE AC-1,BYTBLK 3650 033436 312 05 0 00 000004 CAME AC-1,&17 ;IS PTR = 110600,,0 ? 3651 033437 005 05 0 00 012511 ER5 AC-1,12511 ;POINTER FAILURE 3652 033440 321 10 0 00 033430 JUMPL AC+2,G12510 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 48 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0105 3653 ;MSCL BYTE TESTS - DPB 3654 ;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE 3655 ;ARE IN AC'S 3656 3657 000005 AC=5 3658 SAVEAC (1,1)^ 3659 033441 201 07 0 00 033441 MOVEI AC+2,. ;SAVE TEST PC 3660 033442 202 07 0 00 030051 MOVEM AC+2,TESTPC 3661 033443 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3662 033444 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3663 033445 254 02 1 00 040703 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3664 3665 033446 205 03 0 00 170600 G12600: MOVSI AC-2,170600 ;SETUP POINTER 3666 033447 541 03 0 00 000001 HRRI AC-2,&17 3667 033450 200 02 0 00 000003 MOVE AC-3,&17 ;POINTER FOR COMPARISON 3668 033451 200 01 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3669 033452 201 05 0 00 654321 MOVEI AC,654321 ;SETUP AC 3670 033453 200 04 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3671 033454 137 05 0 00 000003 DPB AC,&17 ;DPB SHOULD PLACE 230702.103700 INTO BYTE WORD 3672 033455 312 03 0 00 000002 CAME AC-2,&17 ;WAS POINTER MODIFIED ? 3673 033456 005 03 0 00 012601 ER5 AC-2,12601 ;FAILURE - POINTER WAS MODIFIED 3674 033457 302 05 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED? 3675 033460 003 05 0 00 012602 ER3 AC,12602 ;FAILURE - AC WAS MODIFIED 3676 033461 312 01 0 00 000004 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY? 3677 033462 012 01 0 00 012603 ER12 AC-4,12603 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3678 033463 321 07 0 00 033446 JUMPL AC+2,G12600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 49 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0106 3679 ;MSCL BYTE TESTS - DPB 3680 ;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND 3681 ;BYTE IS IN CORE MEMORY 3682 3683 000014 AC=14 3684 SAVEAC (1,1)^ 3685 033464 201 16 0 00 033464 MOVEI AC+2,. ;SAVE TEST PC 3686 033465 202 16 0 00 030051 MOVEM AC+2,TESTPC 3687 033466 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3688 033467 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3689 033470 254 02 1 00 040706 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3690 3691 033471 205 12 0 00 170600 G12610: MOVSI AC-2,170600 ;SETUP POINTER 3692 033472 541 12 0 00 040073 HRRI AC-2,BYTBLK 3693 033473 200 11 0 00 000012 MOVE AC-3,&17 ;POINTER FOR COMPARISON 3694 033474 200 14 0 00 040704 MOVE AC,[230703,,603700] ;SETUP BYTE WORD 3695 033475 202 14 0 00 040073 MOVEM AC,BYTBLK 3696 033476 200 13 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3697 033477 201 14 0 00 654321 MOVEI AC,654321 ;SETUP AC 3698 033500 137 14 0 00 000012 DPB AC,&17 ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD 3699 033501 312 12 0 00 000011 CAME AC-2,&17 ;WAS POINTER MODIFIED? 3700 033502 005 12 0 00 012611 ER5 AC-2,12611 ;FAILURE - POINTER WAS MODIFIED 3701 033503 302 14 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED? 3702 033504 003 14 0 00 012612 ER3 AC,12612 ;FAILURE - AC WAS MODIFIED 3703 033505 200 07 0 00 040073 MOVE AC-5,BYTBLK 3704 033506 312 13 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE DEPOSITED CORRECTLY? 3705 033507 012 07 0 00 012613 ER12 AC-5,12613 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3706 033510 321 16 0 00 033471 JUMPL AC+2,G12610 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 50 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0107 3707 ;MSCL BYTE TESTS - DPB 3708 ;VERIFY THAT DPB WORKS WHEN BYTE IS IN AN AC AND 3709 ;POINTER IS IN CORE MEMORY 3710 3711 000013 AC=13 3712 SAVEAC (1,1)^ 3713 033511 201 15 0 00 033511 MOVEI AC+2,. ;SAVE TEST PC 3714 033512 202 15 0 00 030051 MOVEM AC+2,TESTPC 3715 033513 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3716 033514 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3717 033515 254 02 1 00 040707 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3718 3719 033516 205 11 0 00 170600 G12620: MOVSI AC-2,170600 3720 033517 541 11 0 00 000007 HRRI AC-2,&17 ;POINTER FOR COMPARISON 3721 033520 202 11 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3722 033521 200 07 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3723 033522 200 12 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3724 033523 201 13 0 00 654321 MOVEI AC,654321 ;SETUP AC 3725 033524 137 13 0 00 040073 DPB AC,BYTBLK ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD 3726 033525 200 10 0 00 040073 MOVE AC-3,BYTBLK 3727 033526 312 11 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED? 3728 033527 005 10 0 00 012621 ER5 AC-3,12621 ;FAILURE - POINTER WAS MODIFIED 3729 033530 302 13 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED? 3730 033531 003 13 0 00 012622 ER3 AC,12622 ;FAILURE - AC WAS MODIFIED 3731 033532 312 07 0 00 000012 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY? 3732 033533 012 07 0 00 012523 ER12 AC-4,12523 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3733 033534 321 05 0 00 033516 JUMPL AC+12,G12620 ;LOOP ON ERROR SWITCH 3734 3735 ;MSCL BYTE TESTS - DPB 3736 ;VERIFY THAT DPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY 3737 3738 000012 AC=12 3739 SAVEAC (1,1)^ 3740 033535 201 14 0 00 033535 MOVEI AC+2,. ;SAVE TEST PC 3741 033536 202 14 0 00 030051 MOVEM AC+2,TESTPC 3742 033537 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3743 033540 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3744 033541 254 02 1 00 040710 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3745 3746 033542 205 10 0 00 170600 G12630: MOVSI AC-2,170600 3747 033543 541 10 0 00 040076 HRRI AC-2,BYTBLK+3 ;POINTER FOR COMPARISON 3748 033544 202 10 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3749 033545 200 06 0 00 040704 MOVE AC-4,[230703,,603700] 3750 033546 202 06 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD 3751 033547 200 11 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3752 033550 201 12 0 00 654321 MOVEI AC,654321 ;SETUP AC 3753 033551 137 12 0 00 040073 DPB AC,BYTBLK ;DPB SHOULD PLACE 230702,,103700 INTO BYTE WORD 3754 033552 200 06 0 00 040073 MOVE AC-4,BYTBLK 3755 033553 312 10 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED? 3756 033554 005 06 0 00 012631 ER5 AC-4,12631 ;FAILURE - POINTER WAS MODIFIED 3757 033555 200 07 0 00 040076 MOVE AC-3,BYTBLK+3 3758 033556 312 11 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE DEPOSITED CORRECTLY? 3759 033557 012 07 0 00 012632 ER12 AC-3,12632 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3760 033560 302 12 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED? 3761 033561 003 12 0 00 012633 ER3 AC,12633 ;FAILURE - AC WAS MODIFIED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 50-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0108 3762 033562 321 14 0 00 033542 JUMPL AC+2,G12630 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 51 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0109 3763 ;MSCL BYTE TESTS - IDPB 3764 ;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE 3765 ;ARE IN AC'S 3766 3767 000011 AC=11 3768 SAVEAC (1,1)^ 3769 033563 201 13 0 00 033563 MOVEI AC+2,. ;SAVE TEST PC 3770 033564 202 13 0 00 030051 MOVEM AC+2,TESTPC 3771 033565 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3772 033566 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3773 033567 254 02 1 00 040711 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3774 3775 033570 205 07 0 00 250600 G12700: MOVSI AC-2,250600 ;SETUP POINTER 3776 033571 541 07 0 00 000005 HRRI AC-2,&17 3777 033572 200 06 0 00 000007 MOVE AC-3,&17 3778 033573 505 06 0 00 170600 HRLI AC-3,170600 ;POINTER FOR COMPARISON 3779 033574 200 05 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3780 033575 201 11 0 00 654321 MOVEI AC,654321 ;SETUP AC 3781 033576 200 10 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3782 033577 136 11 0 00 000007 IDPB AC,&17 ;IDPB SHOULD PLACE 230702,,103700 INTO BYTE WORD 3783 033600 312 07 0 00 000006 CAME AC-2,&17 ;WAS POINTER INCREMENTED CORRECTLY 3784 033601 005 07 0 00 012701 ER5 AC-2,12701 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY 3785 033602 302 11 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED 3786 033603 003 11 0 00 012700 ER3 AC,12700 ;FAILURE - AC WAS MODIFIED 3787 033604 312 05 0 00 000010 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY? 3788 033605 012 05 0 00 012703 ER12 AC-4,12703 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3789 033606 321 13 0 00 033570 JUMPL AC+2,G12700 ;LOOP ON ERROR SWITCH 3790 3791 ;MSCL BYTE TESTS - IDPB 3792 ;VERIFY THAT DPB WORKS WHEN POINTER IS IN AN AC AND 3793 ;BYTE IS IN CORE MEMORY 3794 3795 000010 AC=10 3796 SAVEAC (1,1)^ 3797 033607 201 12 0 00 033607 MOVEI AC+2,. ;SAVE TEST PC 3798 033610 202 12 0 00 030051 MOVEM AC+2,TESTPC 3799 033611 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3800 033612 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3801 033613 254 02 1 00 040712 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3802 3803 033614 205 06 0 00 250600 G12710: MOVSI AC-2,250600 ;SETUP POINTER 3804 033615 541 06 0 00 040073 HRRI AC-2,BYTBLK 3805 033616 200 05 0 00 000006 MOVE AC-3,&17 3806 033617 505 05 0 00 170600 HRLI AC-3,170600 ;POINTER FOR COMPARISON 3807 033620 200 10 0 00 040704 MOVE AC,[230703,,603700] ;SETUP BYTE WORD 3808 033621 202 10 0 00 040073 MOVEM AC,BYTBLK 3809 033622 200 07 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3810 033623 201 10 0 00 654321 MOVEI AC,654321 ;SETUP AC 3811 033624 136 10 0 00 000006 IDPB AC,&17 ;IDPB SHOULD PLACE 230702,,103700 INTO 3812 ;BYTE WORD AND INCREMENT POINTER 3813 033625 312 06 0 00 000005 CAME AC-2,&17 ;WAS POINTER INCREMENTED CORRECTED 3814 033626 012 03 0 00 012713 ER12 AC-5,12713 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3815 033627 321 12 0 00 033614 JUMPL AC+2,G12710 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 52 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0110 3816 ;MSCL BYTE TESTS - IDPB 3817 ;VERIFY THAT IDPB WORKS WHEN BYTE IS IN AN AC AND 3818 ;POINTER IS IN CORE MEMORY 3819 3820 000007 AC=7 3821 SAVEAC (1,1)^ 3822 033630 201 11 0 00 033630 MOVEI AC+2,. ;SAVE TEST PC 3823 033631 202 11 0 00 030051 MOVEM AC+2,TESTPC 3824 033632 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3825 033633 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3826 3827 033634 254 02 1 00 040713 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3828 3829 033635 205 05 0 00 250600 G12720: MOVSI AC-2,250600 3830 033636 541 05 0 00 000003 HRRI AC-2,&17 3831 033637 202 05 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3832 033640 505 05 0 00 170600 HRLI AC-2,170600 ;POINTER FOR COMPARISON 3833 033641 200 03 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3834 033642 200 06 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3835 033643 201 07 0 00 654321 MOVEI AC,654321 ;;SETUP AC 3836 033644 136 07 0 00 040073 IDPB AC,BYTBLK ;IDPB SHOULD PLACE 230702,,103700 INTO 3837 ;BYTE WORD AND INCREMENT POINTER 3838 033645 200 04 0 00 040073 MOVE AC-3,BYTBLK 3839 033646 312 05 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY 3840 033647 005 04 0 00 012721 ER5 AC-3,12721 ;FAILURE - POINTER WAS NOT INCREMENTED CORRECTLY 3841 033650 302 07 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED? 3842 033651 003 07 0 00 012722 ER3 AC,12722 ;FAILURE - AC WAS MODIFIED 3843 033652 312 03 0 00 000006 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY 3844 033653 012 03 0 00 012723 ER12 AC-4,12723 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3845 033654 321 11 0 00 033635 JUMPL AC+2,G12720 ;LOOP ON ERROR SWITCH 3846 3847 ;MSCL BYTE TESTS - IDPB 3848 ;VERIFY THAT IDPB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY 3849 3850 000006 AC=6 3851 SAVEAC (1,1)^ 3852 033655 201 10 0 00 033655 MOVEI AC+2,. ;SAVE TEST PC 3853 033656 202 10 0 00 030051 MOVEM AC+2,TESTPC 3854 033657 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3855 033660 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3856 033661 254 02 1 00 040714 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3857 3858 033662 205 04 0 00 250600 G12730: MOVSI AC-2,250600 3859 033663 541 04 0 00 040076 HRRI AC-2,BYTBLK+3 3860 033664 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3861 033665 505 04 0 00 170600 HRLI AC-2,170600 ;POINTER FOR COMPARISON 3862 033666 200 02 0 00 040704 MOVE AC-4,[230703,,603700] 3863 033667 202 02 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD 3864 033670 200 05 0 00 040705 MOVE AC-1,[230702,,103700] ;BYTE WORD FOR COMPARISON 3865 033671 201 06 0 00 654321 MOVEI AC,654321 ;SETUP AC 3866 033672 136 06 0 00 040073 IDPB AC,BYTBLK ;IDPB SHOULD PLACE 230702,,103700 INTO 3867 ;BYTE WORD AND INCREMENT POINTER 3868 033673 200 02 0 00 040073 MOVE AC-4,BYTBLK 3869 033674 312 04 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED? 3870 033675 005 02 0 00 012731 ER5 AC-4,12731 ;FAILURE - POINTER WAS MODIFIED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 52-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0111 3871 033676 200 03 0 00 040076 MOVE AC-3,BYTBLK+3 3872 033677 312 05 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE DEPOSITED CORRECTLY 3873 033700 012 03 0 00 012732 ER12 AC-3,12732 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 3874 033701 302 06 0 00 654321 CAIE AC,654321 ;WAS AC MODIFIED 3875 033702 003 06 0 00 012733 ER3 AC,12733 ;FAILURE - AC WAS MODIFIED 3876 033703 321 10 0 00 033662 JUMPL AC+2,G12730 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 53 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0112 3877 ;MSCL BYTE TESTS - LDB 3878 ;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE 3879 ;ARE IN AC'S 3880 3881 000005 AC=5 3882 SAVEAC (1,1)^ 3883 033704 201 07 0 00 033704 MOVEI AC+2,. ;SAVE TEST PC 3884 033705 202 07 0 00 030051 MOVEM AC+2,TESTPC 3885 033706 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3886 033707 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3887 033710 254 02 1 00 040715 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3888 3889 033711 205 03 0 00 170600 G13000: MOVSI AC-2,170600 ;SETUP POINTER 3890 033712 541 03 0 00 000001 HRRI AC-2,&17 3891 033713 200 02 0 00 000003 MOVE AC-3,&17 ;POINTER FOR COMPARISON 3892 033714 200 01 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3893 033715 400 05 0 00 000000 SETZ AC, ;SETUP AC 3894 033716 200 04 0 00 000001 MOVE AC-1,&17 ;BYTE WORD FOR COMPARISON 3895 033717 135 05 0 00 000003 LDB AC,&17 ;LDB SHOULD PLACE 0,,36 INTO THE AC 3896 033720 312 03 0 00 000002 CAME AC-2,&17 ;WAS POINTER MODIFIED? 3897 033721 005 03 0 00 013001 ER5 AC-2,13001 ;FAILURE - POINTER WAS MODIFIED 3898 033722 302 05 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY? 3899 033723 003 05 0 00 013002 ER3 AC,13002 ;FAILURE - BYTE NOT LOADED CORRECTLY. 3900 033724 312 01 0 00 000004 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED 3901 033725 012 01 0 00 013003 ER12 AC-4,13003 ;FAILURE - BYTE WORD WAS MODIFIED 3902 033726 321 07 0 00 033711 JUMPL AC+2,G13000 ;LOOP ON ERROR SWITCH 3903 3904 ;MSCL BYTE TESTS - LDB 3905 ;VERIFY THAT LDB WORKS WHEN POINTER IS IN AN AC AND 3906 ;BYTE IS IN CORE MEMORY 3907 3908 000014 AC=14 3909 SAVEAC (1,1)^ 3910 033727 201 16 0 00 033727 MOVEI AC+2,. ;SAVE TEST PC 3911 033730 202 16 0 00 030051 MOVEM AC+2,TESTPC 3912 033731 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3913 033732 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3914 033733 254 02 1 00 040716 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3915 3916 033734 205 12 0 00 170600 G13010: MOVSI AC-2,170600 ;SETUP POINTER 3917 033735 541 12 0 00 040073 HRRI AC-2,BYTBLK 3918 033736 200 11 0 00 000012 MOVE AC-3,&17 ;POINTER FOR COMPARISON 3919 033737 200 13 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON 3920 033740 202 13 0 00 040073 MOVEM AC-1,BYTBLK ;SETUP BYTE WORD 3921 033741 400 14 0 00 000000 SETZ AC, ;SETUP AC 3922 033742 135 14 0 00 000012 LDB AC,&17 ;LDB SHOULD PLACE 0,,36 INTO THE AC 3923 033743 312 12 0 00 000011 CAME AC-2,&17 ;WAS POINTER MODIFIED? 3924 033744 005 12 0 00 013011 ER5 AC-2,13011 ;FAILURE - POINTER WAS MODIFIED 3925 033745 302 14 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY? 3926 033746 003 14 0 00 013012 ER3 AC,13012 ;FAILURE - BYTE NOT LOADED CORRECTLY 3927 033747 200 07 0 00 040073 MOVE AC-5,BYTBLK 3928 033750 312 13 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE WORD MODIFIED? 3929 033751 012 07 0 00 013013 ER12 AC-5,13013 ;FAILURE - BYTE WORD WAS MODIFIED 3930 033752 321 16 0 00 033734 JUMPL AC+2,G13010 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 54 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0113 3931 ;MSCL BYTE TESTS - LDB 3932 ;VERIFY THAT LDB WORKS WHEN BYTE IS IN AN AC AND 3933 ;POINTER IS IN CORE MEMORY. 3934 3935 000013 AC=13 3936 SAVEAC (1,1)^ 3937 033753 201 15 0 00 033753 MOVEI AC+2,. ;SAVE TEST PC 3938 033754 202 15 0 00 030051 MOVEM AC+2,TESTPC 3939 033755 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3940 033756 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3941 033757 254 02 1 00 040717 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3942 3943 033760 205 11 0 00 170600 G13020: MOVSI AC-2,170600 3944 033761 541 11 0 00 000007 HRRI AC-2,&17 ;POINTER FOR COMPARISON 3945 033762 202 11 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3946 033763 200 07 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 3947 033764 200 12 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON 3948 033765 400 13 0 00 000000 SETZ AC, ;SETUP AC 3949 033766 135 13 0 00 040073 LDB AC,BYTBLK ;LDB SHOULD PLACE 20,,36 INTO THE AC 3950 033767 200 10 0 00 040073 MOVE AC-3,BYTBLK 3951 033770 312 11 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED? 3952 033771 005 10 0 00 013021 ER5 AC-3,13021 ;FAILURE - POINTER WAS MODIFIED 3953 033772 302 13 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY? 3954 033773 003 13 0 00 013022 ER3 AC,13022 ;FAILURE - BYTE NOT LOADED CORRECTLY 3955 033774 312 07 0 00 000012 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED? 3956 033775 012 07 0 00 013023 ER12 AC-4,13023 ;FAILURE - BYTE WORD WAS MODIFIED 3957 033776 321 15 0 00 033760 JUMPL AC+2,G13020 ;LOOP ON ERROR SWITCH 3958 3959 ;MSCL BYTE TESTS - LDB 3960 ;VERIFY THAT LDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY. 3961 3962 000012 AC=12 3963 SAVEAC (1,1)^ 3964 033777 201 14 0 00 033777 MOVEI AC+2,. ;SAVE TEST PC 3965 034000 202 14 0 00 030051 MOVEM AC+2,TESTPC 3966 034001 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3967 034002 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3968 034003 254 02 1 00 040720 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3969 3970 034004 205 10 0 00 170600 G13030: MOVSI AC-2,170600 3971 034005 541 10 0 00 040076 HRRI AC-2,BYTBLK+3 ;POINTER FOR COMPARISON 3972 034006 202 10 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 3973 034007 200 06 0 00 040704 MOVE AC-4,[230703,,603700] 3974 034010 202 06 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD 3975 034011 200 11 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON 3976 034012 400 12 0 00 000000 SETZ AC, ;SETUP AC 3977 034013 135 12 0 00 040073 LDB AC,BYTBLK ;LDB SHOULD PLACE 20,,36 INTO THE AC 3978 034014 200 06 0 00 040073 MOVE AC-4,BYTBLK 3979 034015 312 10 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER MODIFIED? 3980 034016 005 06 0 00 013031 ER5 AC-4,13031 ;FAILURE - POINTER WAS MODIFIED 3981 034017 200 07 0 00 040076 MOVE AC-3,BYTBLK+3 3982 034020 312 11 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE WORD MODIFIED? 3983 034021 012 07 0 00 013032 ER12 AC-3,13032 ;FAILURE - BYTE WORD WAS MODIFIED 3984 034022 302 12 0 00 000036 CAIE AC,36 ;WAS BYTE LOADED CORRECTLY? 3985 034023 003 12 0 00 013033 ER3 AC,13033 ;FAILURE - BYTE NOT LOADED CORRECTLY DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 54-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0114 3986 034024 321 14 0 00 034004 JUMPL AC+2,G13030 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 55 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0115 3987 ;MSCL BYTE TESTS - ILDB 3988 ;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE 3989 ;ARE IN AC'S. 3990 3991 000011 AC=11 3992 SAVEAC (1,1)^ 3993 034025 201 13 0 00 034025 MOVEI AC+2,. ;SAVE TEST PC 3994 034026 202 13 0 00 030051 MOVEM AC+2,TESTPC 3995 034027 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 3996 034030 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 3997 034031 254 02 1 00 040721 JRSTF @@[.+1] ;CLEAR ALL FLAGS 3998 3999 034032 205 07 0 00 170600 G13100: MOVSI AC-2,170600 ;SETUP POINTER 4000 034033 541 07 0 00 000005 HRRI AC-2,&17 4001 034034 200 06 0 00 000007 MOVE AC-3,&17 4002 034035 505 06 0 00 110600 HRLI AC-3,110600 ;POINTER FOR COMPARISON 4003 034036 200 05 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 4004 034037 400 11 0 00 000000 SETZ AC, ;SETUP AC 4005 034040 200 10 0 00 000005 MOVE AC-1,&17 ;BYTE WORD FOR COMPARISON 4006 034041 134 11 0 00 000007 ILDB AC,&17 ;ILDB SHOULD PLACE 0,,3 INTO THE AC 4007 ;AND INCREMENT POINTER 4008 034042 312 07 0 00 000006 CAME AC-2,&17 ;WAS POINTER INCREMENTED CORRECTLY? 4009 034043 005 07 0 00 003101 ER5 AC-2,3101 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY 4010 034044 302 11 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY? 4011 034045 003 11 0 00 013102 ER3 AC,13102 ;FAILURE - BYTE NOT LOADED CORRECTLY 4012 034046 312 05 0 00 000010 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED? 4013 034047 012 05 0 00 013103 ER12 AC-4,13103 ;FAILURE - BYTE WORD WAS MODIFIED 4014 034050 321 13 0 00 034032 JUMPL AC+2,G13100 ;LOOP ON ERROR SWITCH 4015 4016 ;MSCL BYTE TESTS - ILDB 4017 ;VERIFY THAT ILDB WORKS WHEN POINTER IS IN AN AC AND 4018 ;BYTE IS IN CORE MEMORY 4019 4020 000010 AC=10 4021 SAVEAC (1,1)^ 4022 034051 201 12 0 00 034051 MOVEI AC+2,. ;SAVE TEST PC 4023 034052 202 12 0 00 030051 MOVEM AC+2,TESTPC 4024 034053 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4025 034054 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4026 034055 254 02 1 00 040722 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4027 4028 034056 205 06 0 00 170600 G13110: MOVSI AC-2,170600 ;SETUP POINTER 4029 034057 541 06 0 00 040073 HRRI AC-2,BYTBLK 4030 034060 200 05 0 00 000006 MOVE AC-3,&17 4031 034061 505 05 0 00 110600 HRLI AC-3,110600 ;POINTER FOR COMPARISON 4032 034062 200 07 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTEWORD FOR COMPARISON 4033 034063 202 10 0 00 040073 MOVEM AC,BYTBLK ;SETUP BYTE WORD 4034 034064 400 10 0 00 000000 SETZ AC, ;SETUP AC 4035 034065 134 10 0 00 000006 ILDB AC,&17 ;ILDB SHOULD PLACE 0,,3 INTO THE AC 4036 ;AND INCREMENT POINTER 4037 034066 312 06 0 00 000005 CAME AC-2,&17 ;WAS POINTER INCREMENTED CORRECTLY? 4038 034067 005 06 0 00 013111 ER5 AC-2,13111 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY 4039 034070 302 10 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY? 4040 034071 003 10 0 00 013012 ER3 AC,13012 ;FAILURE - BYTE NOT LOADED CORRECTLY 4041 034072 200 03 0 00 040073 MOVE AC-5,BYTBLK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 55-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0116 4042 034073 312 07 0 00 040073 CAME AC-1,BYTBLK ;WAS BYTE WORD MODIFIED? 4043 034074 012 03 0 00 013113 ER12 AC-5,13113 ;FAILURE - BYTE WORD WAS MODIFIED 4044 034075 321 12 0 00 034056 JUMPL AC+2,G13110 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 56 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0117 4045 ;MSCL BYTE TESTS - ILDB 4046 ;VERIFY THAT ILDB WORKS WHEN BYTE IS IN AN AC AND 4047 ;POINTER IS IN CORE MEMORY 4048 4049 000007 AC=7 4050 SAVEAC (1,1)^ 4051 034076 201 11 0 00 034076 MOVEI AC+2,. ;SAVE TEST PC 4052 034077 202 11 0 00 030051 MOVEM AC+2,TESTPC 4053 034100 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4054 034101 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4055 034102 254 02 1 00 040723 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4056 4057 034103 205 05 0 00 170600 G13120: MOVSI AC-2,170600 4058 034104 541 05 0 00 000003 HRRI AC-2,&17 4059 034105 202 05 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 4060 034106 505 05 0 00 110600 HRLI AC-2,110600 ;POINTER FOR COMPARISON 4061 034107 200 03 0 00 040704 MOVE AC-4,[230703,,603700] ;SETUP BYTE WORD 4062 034110 200 06 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON 4063 034111 400 00 0 00 000007 SETZ AC ;SETUP AC 4064 034112 134 07 0 00 040073 ILDB AC,BYTBLK ;ILDB SHOULD PLACE 0,,3 INTO THE AC 4065 ;AND INCREMENT POINTER 4066 034113 200 04 0 00 040073 MOVE AC-3,BYTBLK 4067 034114 312 05 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY? 4068 034115 005 04 0 00 013121 ER5 AC-3,13121 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY 4069 034116 302 07 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY? 4070 034117 003 07 0 00 013122 ER3 AC,13122 ;FAILURE - BYTE NOT LOADED CORRECTLY 4071 034120 312 03 0 00 000006 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED? 4072 034121 012 03 0 00 013123 ER12 AC-4,13123 ;FAILURE - BYTE WORD WAS MODIFIED 4073 034122 321 11 0 00 034103 JUMPL AC+2,G13120 ;LOOP ON ERROR SWITCH 4074 4075 ;MSCL BYTE TESTS - ILDB 4076 ;VERIFY THAT ILDB WORKS WHEN BOTH POINTER AND BYTE WORD ARE IN CORE MEMORY 4077 4078 000006 AC=6 4079 SAVEAC (1,1)^ 4080 034123 201 10 0 00 034123 MOVEI AC+2,. ;SAVE TEST PC 4081 034124 202 10 0 00 030051 MOVEM AC+2,TESTPC 4082 034125 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4083 034126 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4084 034127 254 02 1 00 040724 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4085 4086 034130 205 04 0 00 170600 G13130: MOVSI AC-2,170600 4087 034131 541 04 0 00 040076 HRRI AC-2,BYTBLK+3 4088 4089 034132 202 04 0 00 040073 MOVEM AC-2,BYTBLK ;SETUP POINTER 4090 034133 505 04 0 00 110600 HRLI AC-2,110600 ;POINTER FOR COMPARISON 4091 034134 200 02 0 00 040704 MOVE AC-4,[230703,,603700] 4092 034135 202 02 0 00 040076 MOVEM AC-4,BYTBLK+3 ;SETUP BYTE WORD 4093 034136 200 05 0 00 040704 MOVE AC-1,[230703,,603700] ;BYTE WORD FOR COMPARISON 4094 034137 400 06 0 00 000000 SETZ AC, ;SETUP AC 4095 034140 134 06 0 00 040073 ILDB AC,BYTBLK ;ILDB SHOULD PLACE 0,,3 INTO THE AC 4096 ;AND INCREMENT THE POINTER 4097 034141 200 02 0 00 040073 MOVE AC-4,BYTBLK 4098 034142 312 04 0 00 040073 CAME AC-2,BYTBLK ;WAS POINTER INCREMENTED CORRECTLY? 4099 034143 005 02 0 00 013131 ER5 AC-4,13131 ;FAILURE - POINTER NOT INCREMENTED CORRECTLY DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 56-1 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0118 4100 034144 200 03 0 00 040076 MOVE AC-3,BYTBLK+3 4101 034145 312 05 0 00 040076 CAME AC-1,BYTBLK+3 ;WAS BYTE WORD MODIFIED? 4102 034146 012 03 0 00 013132 ER12 AC-3,13132 ;FAILURE - BYTE WORD WAS MODIFIED 4103 034147 302 06 0 00 000003 CAIE AC,3 ;WAS BYTE LOADED CORRECTLY? 4104 034150 003 06 0 00 013133 ER3 AC,13133 ;FAILURE - BYTE NOT LOADED CORRECTLY 4105 034151 321 10 0 00 034130 JUMPL AC+2,G13130 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 57 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0119 4106 ;TEST LDB WHEN SIZE OF BYTE IS ZERO BITS 4107 ;THE AC SHOULD BE CLEARED 4108 4109 000005 AC=5 4110 SAVEAC (1,1)^ 4111 034152 201 07 0 00 034152 MOVEI AC+2,. ;SAVE TEST PC 4112 034153 202 07 0 00 030051 MOVEM AC+2,TESTPC 4113 034154 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4114 034155 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4115 034156 254 02 1 00 040725 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4116 4117 034157 201 03 0 00 000001 G13200: MOVEI AC-2,&17 ;SETUP POINTER 4118 034160 474 05 0 00 000000 SETO AC, ;SETUP AC 4119 034161 551 01 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD 4120 034162 135 05 0 00 000001 LDB AC,&17 ;LDB SHOULD CLEAR THE AC 4121 034163 302 05 0 00 000000 CAIE AC,0 ;WAS AC CLEARED? 4122 034164 003 05 0 00 013201 ER3 AC,13201 ;FAILURE - AC WAS NOT CLEARED 4123 034165 302 03 0 00 000001 CAIE AC-2,&17 ;WAS POINTER MODIFIED? 4124 034166 005 03 0 00 013202 ER5 AC-2,13202 ;FAILURE - POINTER WAS MODIFIED 4125 034167 302 01 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED 4126 034170 012 01 0 00 013203 ER12 AC-4,13203 ;FAILURE - BYTE WORD WAS MODIFIED 4127 034171 321 07 0 00 034157 JUMPL AC+2,G13200 ;LOOP ON ERROR SWITCH 4128 4129 ;TEST ILDB WHEN SIZE OF BYTE IS ZERO BITS 4130 ;THE AC SHOULD BE CLEARED 4131 4132 000014 AC=14 4133 SAVEAC (1,1)^ 4134 034172 201 16 0 00 034172 MOVEI AC+2,. ;SAVE TEST PC 4135 034173 202 16 0 00 030051 MOVEM AC+2,TESTPC 4136 034174 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4137 034175 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4138 034176 254 02 1 00 040726 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4139 4140 034177 201 12 0 00 000010 G13210: MOVEI AC-2,&17 ;SETUP POINTER 4141 034200 474 14 0 00 000000 SETO AC, ;SETUP AC 4142 034201 551 10 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD 4143 034202 134 14 0 00 000010 ILDB AC,&17 ;ILDB SHOULD CLEAR THE AC 4144 034203 302 14 0 00 000000 CAIE AC,0 ;WAS AC CLEARED 4145 034204 003 14 0 00 013211 ER3 AC,13211 ;FAILURE - AC WAS NOT CLEARED 4146 034205 302 12 0 00 000010 CAIE AC-2,&17 ;WAS POINTER MODIFIED 4147 034206 005 12 0 00 013212 ER5 AC-2,13212 ;FAILURE - POINTER WAS MODIFIED 4148 034207 302 10 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED? 4149 034210 012 10 0 00 013213 ER12 AC-4,13213 ;FAILURE - BYTE WORD WAS MODIFIED 4150 034211 321 16 0 00 034177 JUMPL AC+2,G13210 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 58 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0120 4151 ;TEST DPB WHEN SIZE OF BYTE IS ZERO BITS 4152 ;THE AC SHOULD NOT BE AFFECTED 4153 4154 000013 AC=13 4155 SAVEAC (1,1)^ 4156 034212 201 15 0 00 034212 MOVEI AC+2,. ;SAVE TEST PC 4157 034213 202 15 0 00 030051 MOVEM AC+2,TESTPC 4158 034214 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4159 034215 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4160 034216 254 02 1 00 040727 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4161 4162 034217 201 11 0 00 000007 G13220: MOVEI AC-2,&17 ;SETUP POINTER 4163 034220 474 13 0 00 000000 SETO AC, ;SETUP AC 4164 034221 551 07 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD 4165 034222 137 13 0 00 000007 DPB AC,&17 ;DPB SHOULD NOT MODIFY ANYTHING 4166 034223 312 13 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED? 4167 034224 003 13 0 00 013221 ER3 AC,13221 ;FAILURE - AC WAS MODIFIED 4168 034225 302 11 0 00 000007 CAIE AC-2,&17 ;WAS POINTER MODIFIED? 4169 034226 005 11 0 00 013222 ER5 AC-2,13222 ;FAILURE - POINTER WAS MODIFIED 4170 034227 302 07 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED? 4171 034230 012 07 0 00 013223 ER12 AC-4,13223 ;FAILURE - BYTE WORD WAS MODIFIED 4172 034231 321 15 0 00 034217 JUMPL AC+2,G13220 ;LOOP ON ERROR SWITCH 4173 4174 ;TEST IDPB WHEN SIZE OF BYTE IS ZERO BITS 4175 ;TITE AC SHOULD NOT BE AFFECTED 4176 4177 000012 AC=12 4178 SAVEAC (1,1)^ 4179 034232 201 14 0 00 034232 MOVEI AC+2,. ;SAVE TEST PC 4180 034233 202 14 0 00 030051 MOVEM AC+2,TESTPC 4181 034234 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4182 034235 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4183 034236 254 02 1 00 040730 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4184 4185 034237 201 10 0 00 000006 G13230: MOVEI AC-2,&17 ;SETUP POINTER 4186 034240 474 12 0 00 000000 SETO AC, ;SETUP AC 4187 034241 551 06 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD 4188 034242 136 12 0 00 000006 IDPB AC,&17 ;IDPB SHOULD NOT MODIFY ANYTHING 4189 034243 312 12 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED? 4190 034244 003 12 0 00 013231 ER3 AC,13231 ;FAILURE - AC WAS MODIFIED 4191 034245 302 10 0 00 000006 CAIE AC-2,&17 ;WAS POINTER MODIFIED 4192 034246 005 10 0 00 013232 ER5 AC-2,13232 ;FAILURE - POINTER WAS MODIFIED 4193 034247 302 06 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED 4194 034250 012 06 0 00 013233 ER12 AC-4,13233 ;FAILURE - BYTE WORD WAS MODIFIED 4195 034251 321 14 0 00 034237 JUMPL AC+2,G13230 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 59 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0121 4196 ;TEST IBP WHEN SIZE OF BYTE IS ZERO BITS 4197 ;THE AC SHOULD NOT BE AFFECTED 4198 4199 000011 AC=11 4200 SAVEAC (1,1)^ 4201 034252 201 13 0 00 034252 MOVEI AC+2,. ;SAVE TEST PC 4202 034253 202 13 0 00 030051 MOVEM AC+2,TESTPC 4203 034254 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4204 034255 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4205 034256 254 02 1 00 040731 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4206 4207 034257 201 07 0 00 000005 G13240: MOVEI AC-2,&17 ;SETUP POINTER 4208 034260 474 11 0 00 000000 SETO AC, ;SETUP AC 4209 034261 551 05 0 00 000010 HRRZI AC-4,10 ;SETUP BYTE WORD 4210 034262 336 00 0 00 030041 SKIPN KLFLG 4211 034263 133 11 0 00 000005 IBP AC,&17 ;IBP SHOULD NOT MODIFY ANYTHING 4212 034264 332 00 0 00 030041 SKIPE KLFLG 4213 034265 133 00 0 00 000005 IBP 0,&17 ;KL10, DON'T DO ADJBP ! 4214 034266 312 11 0 00 040666 CAME AC,[-1] ;WAS AC MODIFIED? 4215 034267 003 11 0 00 013241 ER3 AC,13241 ;FAILURE - AC WAS MODIFIED 4216 034270 302 07 0 00 000005 CAIE AC-2,&17 ;WASPOINTER MODIFIED? 4217 034271 005 07 0 00 013242 ER5 AC-2,13242 ;FAILURE - POINTER WAS MODIFIED 4218 034272 302 05 0 00 000010 CAIE AC-4,10 ;WAS BYTE WORD MODIFIED 4219 034273 012 05 0 00 013243 ER12 AC-4,13243 ;FAILURE - BYTE WORD WAS MODIFIED 4220 034274 321 13 0 00 034257 JUMPL AC+2,G13240 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 60 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0122 4221 ;TEST LDB WHEN SIZE OF BYTE IS ONE BIT 4222 4223 000010 AC=10 4224 SAVEAC (1,1)^ 4225 034275 201 12 0 00 034275 MOVEI AC+2,. ;SAVE TEST PC 4226 034276 202 12 0 00 030051 MOVEM AC+2,TESTPC 4227 034277 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4228 034300 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4229 034301 254 02 1 00 040732 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4230 4231 034302 205 06 0 00 430100 G13300: MOVSI AC-2,430100 4232 034303 541 06 0 00 000004 HRRI AC-2,&17 ;SETUP POINTER 4233 034304 200 07 0 00 000006 MOVE AC-1,&17 ;POINTER FOR COMPARISON 4234 034305 561 10 0 00 000000 HRROI AC,0 ;SETUP AC 4235 034306 515 04 0 00 777777 HRLZI AC-4,-1 ;SETUP BYTE WORD 4236 034307 200 05 0 00 000004 MOVE AC-3,&17 ;BYTE OWRD FOR COMPARISON 4237 034310 135 10 0 00 000006 LDB AC,&17 ;LDB SHOULD PLACE 0,,1 INTO THE AC 4238 034311 302 10 0 00 000001 CAIE AC,1 ;LOOP ON ERROR SWITCH 4239 034312 003 10 0 00 013301 ER3 AC,13301 ;FAILURE - BYTE NOT LOADED CORRECTLY 4240 034313 312 06 0 00 000007 CAME AC-2,&17 ;WAS POINTER MODIFIED? 4241 034314 005 06 0 00 013302 ER5 AC-2,13302 ;FAILURE POINTER WAS MODIFIED 4242 034315 312 04 0 00 000005 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED? 4243 034316 012 04 0 00 013303 ER12 AC-4,13303 ;FAILURE - BYTE OWRD WAS MODIFIED 4244 034317 321 12 0 00 034302 JUMPL AC+2,G13300 ;LOOP ON ERROR SWITCH 4245 4246 ;TEST LDB WHEN SIZE OF BYTE IS ONE BIT 4247 4248 000007 AC=7 4249 SAVEAC (1,1)^ 4250 034320 201 11 0 00 034320 MOVEI AC+2,. ;SAVE TEST PC 4251 034321 202 11 0 00 030051 MOVEM AC+2,TESTPC 4252 034322 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4253 034323 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4254 034324 254 02 1 00 040733 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4255 4256 034325 205 05 0 00 000100 G13310: MOVSI AC-2,100 4257 034326 541 05 0 00 000003 HRRI AC-2,&17 ;SETUP POINTER 4258 034327 200 06 0 00 000005 MOVE AC-1,&17 ;POINTER FOR COMPARISON 4259 034330 561 07 0 00 000000 HRROI AC,0 ;SETUP AC 4260 034331 525 03 0 00 000000 HRLOI AC-4,0 ;SETUP BYTE WORD 4261 034332 200 04 0 00 000003 MOVE AC-3,&17 ;BYTE WORD FOR COMPARISON 4262 034333 135 07 0 00 000005 LDB AC,&17 ;LDB SHOULD PLACE 0,,1 INTO THE AC 4263 034334 302 07 0 00 000001 CAIE AC,1 ;LOOP ON ERROR SWITCH 4264 034335 003 07 0 00 013311 ER3 AC,13311 ;FAILURE - BYTE NOT LOADED CORRECTLY 4265 034336 312 05 0 00 000006 CAME AC-2,&17 ;WAS POINTER MODIFIED 4266 034337 005 05 0 00 013312 ER5 AC-2,13312 ;FAILURE - POINTER WAS MODIFIED 4267 034340 312 03 0 00 000004 CAME AC-4,&17 ;WAS BYTE WORD MODIFIED 4268 034341 012 03 0 00 013313 ER12 AC-4,13313 ;FAILURE - BYTE WORD WAS MODIFIED 4269 034342 321 11 0 00 034325 JUMPL AC+2,G13310 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 61 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0123 4270 ;TEST DPB WHEN SIZE OF BYTE IS ONE BIT 4271 4272 000006 AC=6 4273 SAVEAC (1,1)^ 4274 034343 201 10 0 00 034343 MOVEI AC+2,. ;SAVE TEST PC 4275 034344 202 10 0 00 030051 MOVEM AC+2,TESTPC 4276 034345 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4277 034346 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4278 034347 254 02 1 00 040734 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4279 4280 034350 205 04 0 00 430100 G13320: MOVSI AC-2,430100 4281 034351 541 04 0 00 000002 HRRI AC-2,&17 ;SETUP POINTER 4282 034352 200 05 0 00 000004 MOVE AC-1,&17 ;POINTER FOR COMPARISON 4283 034353 561 06 0 00 000076 HRROI AC,76 ;SETUP AC 4284 034354 202 06 0 00 000001 MOVEM AC,&17 ;AC FOR COMPARISON 4285 034355 474 02 0 00 000000 SETO AC-4, ;SETUP BYTE WORD 4286 034356 200 03 0 00 040735 MOVE AC-3,[377777,,-1] ;BYTE WORD FOR COMPARISON 4287 034357 137 06 0 00 000004 DPB AC,&17 ;DPB SHOULD PLACE 377777,,-1 INTO BYTE WORD 4288 034360 312 06 0 00 000001 CAME AC,&17 ;WAS AC MODIFIED? 4289 034361 003 06 0 00 013321 ER3 AC,13321 ;FAILURE - AC WAS MODIFIED 4290 034362 312 04 0 00 000005 CAME AC-2,&17 ;WAS POINTER MODIFIED 4291 034363 005 04 0 00 013322 ER5 AC-2,13322 ;FAILURE - POINTER WAS MODIFIED 4292 034364 312 02 0 00 000003 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY 4293 034365 012 02 0 00 013323 ER12 AC-4,13323 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 4294 034366 321 10 0 00 034350 JUMPL AC+2,G13320 ;LOOP ON ERROR SWITCH 4295 4296 ;TEST DPB WHEN SIZE OF BYTE IS ONE BIT 4297 4298 000005 AC=5 4299 SAVEAC (1,1)^ 4300 034367 201 07 0 00 034367 MOVEI AC+2,. ;SAVE TEST PC 4301 034370 202 07 0 00 030051 MOVEM AC+2,TESTPC 4302 034371 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4303 034372 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4304 034373 254 02 1 00 040736 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4305 4306 034374 205 03 0 00 000100 G13330: MOVSI AC-2,100 4307 034375 541 03 0 00 000001 HRRI AC-2,&17 ;SETUP POINTER 4308 034376 200 04 0 00 000003 MOVE AC-1,&17 ;POINTER FOR COMPARISON 4309 034377 561 05 0 00 000076 HRROI AC,76 ;SETUP AC 4310 034400 202 05 0 00 000000 MOVEM AC,&17 ;AC FOR COMPARISON 4311 034401 474 01 0 00 000000 SETO AC-4, ;SETUP BYTE WORD 4312 034402 200 02 0 00 040737 MOVE AC-3,[-2] ;BYTE WORD FOR COMPARISON 4313 034403 137 05 0 00 000003 DPB AC,&17 ;DPB SHOULD PLACE -1,,-2 INTO BYTE WORD 4314 034404 312 05 0 00 000000 CAME AC,&17 ;WAS AC MODIFIED 4315 034405 003 05 0 00 013331 ER3 AC,13331 ;FAILURE - AC WAS MODIFIED 4316 034406 312 03 0 00 000004 CAME AC-2,&17 ;WAS POINTER MODIFIED 4317 034407 005 03 0 00 013332 ER5 AC-2,13332 ;FAILURE - POINTER WAS MODIFIED 4318 034410 312 01 0 00 000002 CAME AC-4,&17 ;WAS BYTE DEPOSITED CORRECTLY 4319 034411 012 01 0 00 013333 ER12 AC-4,13333 ;FAILURE - BYTE NOT DEPOSITED CORRECTLY 4320 034412 321 07 0 00 034374 JUMPL AC+2,G13330 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 62 DSKAM1 MAC 29-Mar-78 10:18 PART IB-GENERAL BYTE TEST SEQ 0124 4321 ;TEST IBP WHEN S IS GREATER THAN P AND THE ADDRESS FIELD OF THE POINTER IS 777777 4322 ;IBP SHOULD CAUSE THE ADDRESS FIELD TO CLEAR AND P SHOULD BECOME 44-S 4323 4324 000004 AC=4 4325 SAVEAC (1,1)^ 4326 034413 201 06 0 00 034413 MOVEI AC+2,. ;SAVE TEST PC 4327 034414 202 06 0 00 030051 MOVEM AC+2,TESTPC 4328 034415 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4329 034416 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4330 034417 254 02 1 00 040740 JRSTF @@[.+1] ;CLEAR ALL FLAGS 4331 4332 034420 525 02 0 00 000100 G13400: HRLOI AC-2,000100 ;SETUP POINTER 4333 034421 515 01 0 00 430100 HRLZI AC-3,430100 ;RESULT FOR COMPARISON 4334 034422 133 00 0 00 000002 IBP &17 ;IBP SHOULD PLACE 430100,,0 INTO PTR 4335 034423 312 02 0 00 000001 CAME AC-2,&17 ;PASS IF POINTER UPATED CORRECTLY 4336 034424 005 02 0 00 013400 ER5 AC-2,13400 ;POINTER NOT UPDATED CORRECTLY 4337 034425 321 06 0 00 034420 JUMPL AC+2,G13400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 63 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0125 4338 SUBTTL PART II - GENERAL BLOCK TRANSFER TEST 4339 4340 034426 201 00 0 00 040741 MOVEI [ASCIZ/BLT FAILED/] 4341 034427 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTOR 4342 4343 ;VERFIY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS 4344 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4345 ;AND WITHIN THE AC ADDRESS RANGE. 4346 000007 AC=7 4347 SAVEAC (1,1)^ 4348 034430 201 11 0 00 034430 MOVEI AC+2,. ;SAVE TEST PC 4349 034431 202 11 0 00 030051 MOVEM AC+2,TESTPC 4350 034432 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4351 034433 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4352 022100 SN=22100 4353 000001 SRCE=&17 ;SOURCE BLOCK=AC-6 4354 000001 DEST=&17 ;DESTINATION BLOCK=AC-6 4355 000001 SIZ=1 ;BLOCK SIZE = 1 OWRD 4356 4357 034434 200 07 0 00 040744 G22100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST 4358 034435 477 00 0 00 000002 SETOB SRCE-1,SRCE+1 ;PRELOAD SRCE-1 AND SRCE+1 WITH ONES 4359 034436 402 00 0 00 000001 SETZM SRCE ;LOAD SRCE WITH ZEROS 4360 034437 251 07 0 00 000001 BLT AC,DEST+SIZ-1 ;*BLT SHOULD CLEAR DEST BLOCK 4361 022101 SN=SN+1 4362 034440 312 00 0 00 040666 CAME DEST-1,[-1] ;WAS DEST-1 CLOBBERRED? 4363 034441 002 00 0 00 022101 ER2 DEST-1,SN ;DEST -1 WAS CLOBBERRED 4364 022102 SN=SN+1 4365 034442 332 00 0 00 000001 SKIPE DEST ;DID BLT LOAD DEST FROM SRCE? 4366 034443 002 01 0 00 022102 ER2 DEST,SN ;FAIL IF C(DEST) NON-ZERO 4367 022103 SN=SN+1 4368 034444 312 02 0 00 040666 CAME DEST+1,[-1] ;WAS DEST+1 CLOBBERRED? 4369 034445 002 02 0 00 022103 ER2 DEST+1,SN ;DEST +1 WAS CLOBBERRED 4370 034446 321 11 0 00 034434 JUMPL AC+2,G22100 ;LOOP ON ERROR SWITCH 4371 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 63-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0126 4372 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES 4373 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4374 ;AND WITHIN THE AC ADDRESS RANGE. 4375 000014 AC=14 4376 SAVEAC (1,1)^ 4377 034447 201 16 0 00 034447 MOVEI AC+2,. ;SAVE TEST PC 4378 034450 202 16 0 00 030051 MOVEM AC+2,TESTPC 4379 034451 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4380 034452 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4381 022200 SN=22200 4382 000006 SRCE=&17 ;SOURCE BLOCK = AC-6 4383 000006 DEST=&17 ;DESTINATION BLOCK = AC-6 4384 000001 SIZ=1 ;BLOCK = 1 WORD 4385 4386 034453 200 14 0 00 040745 G22200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST 4387 034454 403 05 0 00 000007 SETZB SRCE-1,SRCE+1 ;PRELOAD SRCE-1 AND SRCE+1 WITH ZEROS 4388 034455 476 00 0 00 000006 SETOM SRCE ;LOAD SRCE WITH ONES 4389 034456 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DEST WITH ONES 4390 022201 SN=SN+1 4391 034457 332 00 0 00 000005 SKIPE DEST-1 ;WAS DEST-1 CLOBBERRED? 4392 034460 002 05 0 00 022201 ER2 DEST-1,SN ;DEST-1 WAS CLOBBERRED 4393 022202 SN=SN+1 4394 034461 312 06 0 00 040666 CAME DEST,[-1] ;DID BLT LOAD DEST FROM SRCE? 4395 034462 002 06 0 00 022202 ER2 DEST,SN ;FAIL IF C(DEST) NOT ALL ONES 4396 022203 SN=SN+1 4397 034463 332 00 0 00 000007 SKIPE DEST+1 ;WAS DEST+1 CLOBBERRED? 4398 034464 002 07 0 00 022203 ER2 DEST+1,SN ;DEST+1 WAS CLOBBERRED 4399 034465 321 16 0 00 034453 JUMPL AC+2,G22200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 64 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0127 4400 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA 4401 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4402 ;AND WITHIN THE AC ADDRESS RANGE. 4403 4404 000014 AC=14 4405 SAVEAC (1,1)^ 4406 034466 201 16 0 00 034466 MOVEI AC+2,. ;SAVE TEST PC 4407 034467 202 16 0 00 030051 MOVEM AC+2,TESTPC 4408 034470 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4409 034471 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4410 022300 SN=22300 4411 000006 SRCE=&17 ;SOURCE BLOCK = AC-6 4412 000006 DEST=&17 ;DESTINATION BLOCK = AC-6 4413 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4414 4415 034472 200 14 0 00 040745 G22300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF ARCE AND DEST 4416 034473 403 05 0 00 000007 SETZB SRCE-1,SRCE+1 ;CLEAR SRCE-1 AND SRCE+1 4417 034474 200 06 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SOURCE BLOCK 4418 034475 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD PLACE C(SRCE) INTO DEST 4419 022301 SN=SN+1 4420 034476 332 00 0 00 000005 SKIPE DEST-1 ;WAS DEST-1 CLOBBERRED? 4421 034477 002 05 0 00 022301 ER2 DEST-1,SN ;DEST-1 WAS CLOBBERRED 4422 022302 SN=SN+1 4423 034500 312 06 0 00 040704 CAME DEST,[230703,,603700] ;DID BLT LOAD DEST FROM SRCE 4424 034501 002 06 0 00 022302 ER2 DEST,SN ;FAIL IF C(DEST) NOT 230703,,603700 4425 022303 SN=SN+1 4426 034502 332 00 0 00 000007 SKIPE DEST+1 ;WAS DEST+1 CLOBBERRED? 4427 034503 002 07 0 00 022303 ER2 DEST+1,SN ;DEST+1 WAS CLOBBERRED 4428 034504 321 16 0 00 034472 JUMPL AC+2,G22300 ;LOOP ON ERROR SWITCH 4429 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 64-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0128 4430 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ZEROS 4431 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4432 ;AND BEYOND THE AC ADDRESS RANGE. 4433 000014 AC=14 4434 SAVEAC (1,1)^ 4435 034505 201 16 0 00 034505 MOVEI AC+2,. ;SAVE TEST PC 4436 034506 202 16 0 00 030051 MOVEM AC+2,TESTPC 4437 034507 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4438 034510 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4439 022400 SN=22400 4440 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1 4441 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1 4442 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4443 4444 034511 200 14 0 00 040746 G22400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST 4445 034512 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD SRCE-1 WITH ONES 4446 034513 402 00 0 00 040156 SETZM SRCE ;LOAD SRCE WITH ZEROS 4447 034514 476 00 0 00 040157 SETOM SRCE+1 ;PRELOAD SRCE+1 WITH ONES 4448 034515 251 14 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD CLEAR DEST BLOCK 4449 022401 SN=SN+1 4450 034516 200 13 0 00 040155 MOVE AC-1,DEST-1 4451 034517 312 13 0 00 040666 CAME AC-1,[-1] ;WAS DEST-1 CLOBBERRED? 4452 034520 002 13 0 00 022401 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED 4453 022402 SN=SN+1 4454 034521 200 13 0 00 040156 MOVE AC-1,DEST 4455 034522 332 00 0 00 000013 SKIPE AC-1 ;DID BLT LOAD DEST FROM SRCE? 4456 034523 002 13 0 00 022402 ER2 AC-1,SN ;FAIL IF C(DEST) NOT ZERO 4457 022403 SN=SN+1 4458 034524 200 13 0 00 040157 MOVE AC-1,DEST+1 4459 034525 312 13 0 00 040666 CAME AC-1,[-1] ;WAS DEST+1 CLOBBERRED? 4460 034526 002 13 0 00 022403 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED 4461 034527 321 15 0 00 034511 JUMPL AC+1,G22400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 65 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0129 4462 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF ONES 4463 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4464 ;AND BEYOND THE AC ADDRESS RANGE. 4465 4466 000013 AC=13 4467 SAVEAC (1,1)^ 4468 034530 201 15 0 00 034530 MOVEI AC+2,. ;SAVE TEST PC 4469 034531 202 15 0 00 030051 MOVEM AC+2,TESTPC 4470 034532 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4471 034533 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4472 022500 SN=22500 4473 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1 4474 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1 4475 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4476 4477 034534 200 13 0 00 040746 G22500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST 4478 034535 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD SRCE-1 WITH ZEROS 4479 034536 476 00 0 00 040156 SETOM SRCE ;LOAD SRCE WITH ONES 4480 034537 402 00 0 00 040157 SETZM SRCE+1 ;PRELOAD SRCE+1 WITH ZEROS 4481 034540 251 13 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DEST BLOCK WITH ONES 4482 022501 SN=SN+1 4483 034541 200 12 0 00 040155 MOVE AC-1,DEST-1 4484 034542 332 00 0 00 000012 SKIPE AC-1 ;WAS DEST-1 CLOBBERRED? 4485 034543 002 12 0 00 022501 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED 4486 022502 SN=SN+1 4487 034544 200 12 0 00 040156 MOVE AC-1,DEST 4488 034545 312 12 0 00 040666 CAME AC-1,[-1] ;DID BLT LOAD DEST FROM SRCE? 4489 034546 002 12 0 00 022502 ER2 AC-1,SN ;FAIL IF C(DEST) NOT ALL ONES 4490 022503 SN=SN+1 4491 034547 200 12 0 00 040157 MOVE AC-1,DEST+1 4492 034550 332 00 0 00 000012 SKIPE AC-1 ;WAS DEST+1 CLOBBERRED? 4493 034551 002 12 0 00 022503 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED 4494 034552 321 15 0 00 034534 JUMPL AC+2,G22500 ;LOOP ON ERROR SWITCH 4495 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 65-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0130 4496 ;VERIFY THAT BLT WILL TRANSFER A 1 - WORD BLOCK OF DATA 4497 ;WHERE BOTH SOURCE AND DESTINATION BLOCKS ARE THE SAME 4498 ;AND BEYOND THE AC ADDRESS RANGE. 4499 4500 000012 AC=12 4501 SAVEAC (1,1)^ 4502 034553 201 14 0 00 034553 MOVEI AC+2,. ;SAVE TEST PC 4503 034554 202 14 0 00 030051 MOVEM AC+2,TESTPC 4504 034555 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4505 034556 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4506 022600 SN=22600 4507 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK = BLTBLK+1 4508 040156 DEST=BLTBLK+1 ;DEST BLOCK = BLTBLK+1 4509 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4510 4511 034557 200 12 0 00 040746 G22600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH ADR OF SRCE AND DEST 4512 034560 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD SRCE-1 WITH ZEROS 4513 034561 200 13 0 00 040704 MOVE AC+1,[230703,,603700] ;LOAD SRCE BLOCK 4514 034562 202 13 0 00 040156 MOVEM AC+1,SRCE 4515 034563 402 00 0 00 040157 SETZM SRCE+1 ;PRELOAD SRCE+1 WITH ZEROS 4516 034564 251 12 0 00 040156 BLT AC,DEST+SIZ-1 ;*BLT SHOULD PLACE C(SRCE) INTO DEST 4517 022601 SN=SN+1 4518 034565 200 11 0 00 040155 MOVE AC-1,DEST-1 4519 034566 332 00 0 00 000011 SKIPE AC-1 ;WAS DEST-1 CLOBBERRED? 4520 034567 002 11 0 00 022601 ER2 AC-1,SN ;DEST-1 WAS CLOBBERRED 4521 022602 SN=SN+1 4522 034570 200 11 0 00 040156 MOVE AC-1,DEST 4523 034571 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;DID BLT LOAD DEST FROM SRCE? 4524 034572 002 11 0 00 022602 ER2 AC-1,SN ;FAIL IF C(DEST) NOT 230703,,603700 4525 022603 SN=SN+1 4526 034573 200 11 0 00 040157 MOVE AC-1,DEST+1 4527 034574 332 00 0 00 000011 SKIPE AC-1 ;WAS DEST+1 CLOBBERRED? 4528 034575 002 11 0 00 022603 ER2 AC-1,SN ;DEST+1 WAS CLOBBERRED 4529 034576 321 13 0 00 034557 JUMPL AC+1,G22600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0131 4530 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES. 4531 4532 BLTM1 (22700,14,<&17>,<&17>,0)^ 4533 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 4534 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 4535 ;SOURCE DATA = 0 4536 4537 000014 AC=14 4538 SAVEAC (1,1)^ 4539 034577 201 16 0 00 034577 MOVEI AC+2,. ;SAVE TEST PC 4540 034600 202 16 0 00 030051 MOVEM AC+2,TESTPC 4541 034601 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4542 034602 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4543 022700 SN=22700 4544 000006 SRCE=&17 ;1ST LOC OF SOURCE = &17 4545 000011 DEST=&17 ;1ST LOC OF DESTINATION = &17 4546 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4547 4548 034603 200 14 0 00 040747 G22700: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 4549 GMOV (SRCE-1,<252525252525>)^ 4550 IFLE ,< 4551 034604 200 05 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 4552 IFG ,< 4553 MOVE AC+1,[252525252525] 4554 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 4555 GMOV (SRCE,<0>)^ 4556 IFLE ,< 4557 034605 200 06 0 00 040743 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0> 4558 IFG ,< 4559 MOVE AC+1,[0] 4560 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^ 4561 GMOV (SRCE+1,<770077007700>)^ 4562 IFLE ,< 4563 034606 200 07 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 4564 IFG ,< 4565 MOVE AC+1,[770077007700] 4566 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 4567 GMOV (DEST-1,<070707070707>)^ 4568 IFLE ,< 4569 034607 200 10 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 4570 IFG ,< 4571 MOVE AC+1,[070707070707] 4572 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 4573 GMOV (DEST,<123456765432>)^ 4574 IFLE ,< 4575 034610 200 11 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 4576 IFG ,< 4577 MOVE AC+1,[123456765432] 4578 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 4579 GMOV (DEST+1,<552255225522>)^ 4580 IFLE ,< 4581 034611 200 12 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 4582 IFG ,< 4583 MOVE AC+1,[552255225522] 4584 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0132 4585 034612 251 14 0 00 000011 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 4586 GCAM (SRCE-1,<252525252525>)^ 4587 022701 SN=SN+1 4588 IFG ,< 4589 MOVE AC-1,SRCE-1 4590 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4591 IFIDN ,,< 4592 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4593 IFDIF ,,< 4594 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 4595 IFLE ,< 4596 034613 312 05 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4597 IFIDN ,,< 4598 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 4599 IFDIF ,,< 4600 034614 002 05 0 00 022701 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 4601 GCAM (SRCE,<0>)^ 4602 022702 SN=SN+1 4603 IFG ,< 4604 MOVE AC-1,SRCE 4605 CAME AC-1,[0] ;IS C(SRCE) = 0 4606 IFIDN ,,< 4607 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4608 IFDIF ,,< 4609 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 4610 IFLE ,< 4611 034615 312 06 0 00 040743 CAME SRCE,[0] ;IS C(SRCE) = 0 4612 IFIDN ,,< 4613 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 4614 IFDIF ,,< 4615 034616 002 06 0 00 022702 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 4616 GCAM (SRCE+1,<770077007700>)^ 4617 022703 SN=SN+1 4618 IFG ,< 4619 MOVE AC-1,SRCE+1 4620 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 4621 IFIDN ,,< 4622 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4623 IFDIF ,,< 4624 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 4625 IFLE ,< 4626 034617 312 07 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 4627 IFIDN ,,< 4628 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 4629 IFDIF ,,< 4630 034620 002 07 0 00 022703 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 4631 GCAM (DEST-1,<070707070707>)^ 4632 022704 SN=SN+1 4633 IFG ,< 4634 MOVE AC-1,DEST-1 4635 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 4636 IFIDN ,,< 4637 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4638 IFDIF ,,< 4639 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-2 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0133 4640 IFLE ,< 4641 034621 312 10 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 4642 IFIDN ,,< 4643 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 4644 IFDIF ,,< 4645 034622 002 10 0 00 022704 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 4646 GCAM (DEST,<0>)^ 4647 022705 SN=SN+1 4648 IFG ,< 4649 MOVE AC-1,DEST 4650 CAME AC-1,[0] ;IS C(DEST) = 0 4651 IFIDN ,,< 4652 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4653 IFDIF ,,< 4654 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 4655 IFLE ,< 4656 034623 312 11 0 00 040743 CAME DEST,[0] ;IS C(DEST) = 0 4657 IFIDN ,,< 4658 034624 002 11 0 00 022705 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 4659 IFDIF ,,< 4660 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 4661 GCAM (DEST+1,<552255225522>)^ 4662 022706 SN=SN+1 4663 IFG ,< 4664 MOVE AC-1,DEST+1 4665 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 4666 IFIDN ,,< 4667 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4668 IFDIF ,,< 4669 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 4670 IFLE ,< 4671 034625 312 12 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 4672 IFIDN ,,< 4673 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 4674 IFDIF ,,< 4675 034626 002 12 0 00 022706 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 4676 034627 321 16 0 00 034603 JUMPL AC+2,G22700 ;LOOP ON ERROR^ 4677 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-3 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0134 4678 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES. 4679 4680 BLTM1 (23000,13,<&17>,<&17>,-1)^ 4681 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 4682 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 4683 ;SOURCE DATA = -1 4684 4685 000013 AC=13 4686 SAVEAC (1,1)^ 4687 034630 201 15 0 00 034630 MOVEI AC+2,. ;SAVE TEST PC 4688 034631 202 15 0 00 030051 MOVEM AC+2,TESTPC 4689 034632 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4690 034633 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4691 023000 SN=23000 4692 000005 SRCE=&17 ;1ST LOC OF SOURCE = &17 4693 000010 DEST=&17 ;1ST LOC OF DESTINATION = &17 4694 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4695 4696 034634 200 13 0 00 040755 G23000: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 4697 GMOV (SRCE-1,<252525252525>)^ 4698 IFLE ,< 4699 034635 200 04 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 4700 IFG ,< 4701 MOVE AC+1,[252525252525] 4702 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 4703 GMOV (SRCE,<-1>)^ 4704 IFLE ,< 4705 034636 200 05 0 00 040666 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1> 4706 IFG ,< 4707 MOVE AC+1,[-1] 4708 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^ 4709 GMOV (SRCE+1,<770077007700>)^ 4710 IFLE ,< 4711 034637 200 06 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 4712 IFG ,< 4713 MOVE AC+1,[770077007700] 4714 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 4715 GMOV (DEST-1,<070707070707>)^ 4716 IFLE ,< 4717 034640 200 07 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 4718 IFG ,< 4719 MOVE AC+1,[070707070707] 4720 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 4721 GMOV (DEST,<123456765432>)^ 4722 IFLE ,< 4723 034641 200 10 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 4724 IFG ,< 4725 MOVE AC+1,[123456765432] 4726 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 4727 GMOV (DEST+1,<552255225522>)^ 4728 IFLE ,< 4729 034642 200 11 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 4730 IFG ,< 4731 MOVE AC+1,[552255225522] 4732 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-4 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0135 4733 034643 251 13 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 4734 GCAM (SRCE-1,<252525252525>)^ 4735 023001 SN=SN+1 4736 IFG ,< 4737 MOVE AC-1,SRCE-1 4738 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4739 IFIDN ,,< 4740 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4741 IFDIF ,,< 4742 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 4743 IFLE ,< 4744 034644 312 04 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4745 IFIDN ,,< 4746 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 4747 IFDIF ,,< 4748 034645 002 04 0 00 023001 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 4749 GCAM (SRCE,<-1>)^ 4750 023002 SN=SN+1 4751 IFG ,< 4752 MOVE AC-1,SRCE 4753 CAME AC-1,[-1] ;IS C(SRCE) = -1 4754 IFIDN ,,< 4755 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4756 IFDIF ,,< 4757 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 4758 IFLE ,< 4759 034646 312 05 0 00 040666 CAME SRCE,[-1] ;IS C(SRCE) = -1 4760 IFIDN ,,< 4761 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 4762 IFDIF ,,< 4763 034647 002 05 0 00 023002 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 4764 GCAM (SRCE+1,<770077007700>)^ 4765 023003 SN=SN+1 4766 IFG ,< 4767 MOVE AC-1,SRCE+1 4768 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 4769 IFIDN ,,< 4770 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4771 IFDIF ,,< 4772 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 4773 IFLE ,< 4774 034650 312 06 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 4775 IFIDN ,,< 4776 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 4777 IFDIF ,,< 4778 034651 002 06 0 00 023003 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 4779 GCAM (DEST-1,<070707070707>)^ 4780 023004 SN=SN+1 4781 IFG ,< 4782 MOVE AC-1,DEST-1 4783 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 4784 IFIDN ,,< 4785 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4786 IFDIF ,,< 4787 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-5 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0136 4788 IFLE ,< 4789 034652 312 07 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 4790 IFIDN ,,< 4791 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 4792 IFDIF ,,< 4793 034653 002 07 0 00 023004 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 4794 GCAM (DEST,<-1>)^ 4795 023005 SN=SN+1 4796 IFG ,< 4797 MOVE AC-1,DEST 4798 CAME AC-1,[-1] ;IS C(DEST) = -1 4799 IFIDN ,,< 4800 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4801 IFDIF ,,< 4802 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 4803 IFLE ,< 4804 034654 312 10 0 00 040666 CAME DEST,[-1] ;IS C(DEST) = -1 4805 IFIDN ,,< 4806 034655 002 10 0 00 023005 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 4807 IFDIF ,,< 4808 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 4809 GCAM (DEST+1,<552255225522>)^ 4810 023006 SN=SN+1 4811 IFG ,< 4812 MOVE AC-1,DEST+1 4813 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 4814 IFIDN ,,< 4815 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4816 IFDIF ,,< 4817 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 4818 IFLE ,< 4819 034656 312 11 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 4820 IFIDN ,,< 4821 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 4822 IFDIF ,,< 4823 034657 002 11 0 00 023006 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 4824 034660 321 15 0 00 034634 JUMPL AC+2,G23000 ;LOOP ON ERROR^ 4825 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-6 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0137 4826 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE AC ADDRESSES. 4827 4828 BLTM1 (23100,12,<&17>,<&17>,<230703,,603700>)^ 4829 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 4830 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 4831 ;SOURCE DATA = 230703,,603700 4832 4833 000012 AC=12 4834 SAVEAC (1,1)^ 4835 034661 201 14 0 00 034661 MOVEI AC+2,. ;SAVE TEST PC 4836 034662 202 14 0 00 030051 MOVEM AC+2,TESTPC 4837 034663 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4838 034664 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4839 023100 SN=23100 4840 000004 SRCE=&17 ;1ST LOC OF SOURCE = &17 4841 000007 DEST=&17 ;1ST LOC OF DESTINATION = &17 4842 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4843 4844 034665 200 12 0 00 040756 G23100: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 4845 GMOV (SRCE-1,<252525252525>)^ 4846 IFLE ,< 4847 034666 200 03 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 4848 IFG ,< 4849 MOVE AC+1,[252525252525] 4850 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 4851 GMOV (SRCE,<230703,,603700>)^ 4852 IFLE ,< 4853 034667 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700> 4854 IFG ,< 4855 MOVE AC+1,[230703,,603700] 4856 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^ 4857 GMOV (SRCE+1,<770077007700>)^ 4858 IFLE ,< 4859 034670 200 05 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 4860 IFG ,< 4861 MOVE AC+1,[770077007700] 4862 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 4863 GMOV (DEST-1,<070707070707>)^ 4864 IFLE ,< 4865 034671 200 06 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 4866 IFG ,< 4867 MOVE AC+1,[070707070707] 4868 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 4869 GMOV (DEST,<123456765432>)^ 4870 IFLE ,< 4871 034672 200 07 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 4872 IFG ,< 4873 MOVE AC+1,[123456765432] 4874 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 4875 GMOV (DEST+1,<552255225522>)^ 4876 IFLE ,< 4877 034673 200 10 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 4878 IFG ,< 4879 MOVE AC+1,[552255225522] 4880 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-7 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0138 4881 034674 251 12 0 00 000007 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 4882 GCAM (SRCE-1,<252525252525>)^ 4883 023101 SN=SN+1 4884 IFG ,< 4885 MOVE AC-1,SRCE-1 4886 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4887 IFIDN ,,< 4888 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4889 IFDIF ,,< 4890 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 4891 IFLE ,< 4892 034675 312 03 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 4893 IFIDN ,,< 4894 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 4895 IFDIF ,,< 4896 034676 002 03 0 00 023101 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 4897 GCAM (SRCE,<230703,,603700>)^ 4898 023102 SN=SN+1 4899 IFG ,< 4900 MOVE AC-1,SRCE 4901 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700 4902 IFIDN ,,< 4903 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4904 IFDIF ,,< 4905 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 4906 IFLE ,< 4907 034677 312 04 0 00 040704 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700 4908 IFIDN ,,< 4909 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 4910 IFDIF ,,< 4911 034700 002 04 0 00 023102 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 4912 GCAM (SRCE+1,<770077007700>)^ 4913 023103 SN=SN+1 4914 IFG ,< 4915 MOVE AC-1,SRCE+1 4916 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 4917 IFIDN ,,< 4918 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4919 IFDIF ,,< 4920 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 4921 IFLE ,< 4922 034701 312 05 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 4923 IFIDN ,,< 4924 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 4925 IFDIF ,,< 4926 034702 002 05 0 00 023103 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 4927 GCAM (DEST-1,<070707070707>)^ 4928 023104 SN=SN+1 4929 IFG ,< 4930 MOVE AC-1,DEST-1 4931 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 4932 IFIDN ,,< 4933 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4934 IFDIF ,,< 4935 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-8 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0139 4936 IFLE ,< 4937 034703 312 06 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 4938 IFIDN ,,< 4939 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 4940 IFDIF ,,< 4941 034704 002 06 0 00 023104 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 4942 GCAM (DEST,<230703,,603700>)^ 4943 023105 SN=SN+1 4944 IFG ,< 4945 MOVE AC-1,DEST 4946 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700 4947 IFIDN ,,< 4948 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4949 IFDIF ,,< 4950 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 4951 IFLE ,< 4952 034705 312 07 0 00 040704 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700 4953 IFIDN ,,< 4954 034706 002 07 0 00 023105 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 4955 IFDIF ,,< 4956 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 4957 GCAM (DEST+1,<552255225522>)^ 4958 023106 SN=SN+1 4959 IFG ,< 4960 MOVE AC-1,DEST+1 4961 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 4962 IFIDN ,,< 4963 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 4964 IFDIF ,,< 4965 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 4966 IFLE ,< 4967 034707 312 10 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 4968 IFIDN ,,< 4969 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 4970 IFDIF ,,< 4971 034710 002 10 0 00 023106 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 4972 034711 321 14 0 00 034665 JUMPL AC+2,G23100 ;LOOP ON ERROR^ 4973 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-9 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0140 4974 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS 4975 4976 BLTM1 (23200,14,<&17>,,0)^ 4977 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 4978 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 4979 ;SOURCE DATA = 0 4980 4981 000014 AC=14 4982 SAVEAC (1,1)^ 4983 034712 201 16 0 00 034712 MOVEI AC+2,. ;SAVE TEST PC 4984 034713 202 16 0 00 030051 MOVEM AC+2,TESTPC 4985 034714 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4986 034715 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4987 023200 SN=23200 4988 000006 SRCE=&17 ;1ST LOC OF SOURCE = &17 4989 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 4990 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 4991 4992 034716 200 14 0 00 040757 G23200: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 4993 GMOV (SRCE-1,<252525252525>)^ 4994 IFLE ,< 4995 034717 200 05 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 4996 IFG ,< 4997 MOVE AC+1,[252525252525] 4998 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 4999 GMOV (SRCE,<0>)^ 5000 IFLE ,< 5001 034720 200 06 0 00 040743 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0> 5002 IFG ,< 5003 MOVE AC+1,[0] 5004 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^ 5005 GMOV (SRCE+1,<770077007700>)^ 5006 IFLE ,< 5007 034721 200 07 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5008 IFG ,< 5009 MOVE AC+1,[770077007700] 5010 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5011 GMOV (DEST-1,<070707070707>)^ 5012 IFLE ,< 5013 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5014 IFG ,< 5015 034722 200 15 0 00 040752 MOVE AC+1,[070707070707] 5016 034723 202 15 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5017 GMOV (DEST,<123456765432>)^ 5018 IFLE ,< 5019 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5020 IFG ,< 5021 034724 200 15 0 00 040753 MOVE AC+1,[123456765432] 5022 034725 202 15 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5023 GMOV (DEST+1,<552255225522>)^ 5024 IFLE ,< 5025 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5026 IFG ,< 5027 034726 200 15 0 00 040754 MOVE AC+1,[552255225522] 5028 034727 202 15 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-10 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0141 5029 034730 251 14 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5030 GCAM (SRCE-1,<252525252525>)^ 5031 023201 SN=SN+1 5032 IFG ,< 5033 MOVE AC-1,SRCE-1 5034 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5035 IFIDN ,,< 5036 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5037 IFDIF ,,< 5038 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5039 IFLE ,< 5040 034731 312 05 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5041 IFIDN ,,< 5042 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5043 IFDIF ,,< 5044 034732 002 05 0 00 023201 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5045 GCAM (SRCE,<0>)^ 5046 023202 SN=SN+1 5047 IFG ,< 5048 MOVE AC-1,SRCE 5049 CAME AC-1,[0] ;IS C(SRCE) = 0 5050 IFIDN ,,< 5051 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5052 IFDIF ,,< 5053 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5054 IFLE ,< 5055 034733 312 06 0 00 040743 CAME SRCE,[0] ;IS C(SRCE) = 0 5056 IFIDN ,,< 5057 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5058 IFDIF ,,< 5059 034734 002 06 0 00 023202 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5060 GCAM (SRCE+1,<770077007700>)^ 5061 023203 SN=SN+1 5062 IFG ,< 5063 MOVE AC-1,SRCE+1 5064 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5065 IFIDN ,,< 5066 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5067 IFDIF ,,< 5068 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5069 IFLE ,< 5070 034735 312 07 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5071 IFIDN ,,< 5072 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5073 IFDIF ,,< 5074 034736 002 07 0 00 023203 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5075 GCAM (DEST-1,<070707070707>)^ 5076 023204 SN=SN+1 5077 IFG ,< 5078 034737 200 13 0 00 040160 MOVE AC-1,DEST-1 5079 034740 312 13 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5080 IFIDN ,,< 5081 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5082 IFDIF ,,< 5083 034741 002 13 0 00 023204 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-11 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0142 5084 IFLE ,< 5085 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5086 IFIDN ,,< 5087 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5088 IFDIF ,,< 5089 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5090 GCAM (DEST,<0>)^ 5091 023205 SN=SN+1 5092 IFG ,< 5093 034742 200 13 0 00 040161 MOVE AC-1,DEST 5094 034743 312 13 0 00 040743 CAME AC-1,[0] ;IS C(DEST) = 0 5095 IFIDN ,,< 5096 034744 002 13 0 00 023205 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5097 IFDIF ,,< 5098 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5099 IFLE ,< 5100 CAME DEST,[0] ;IS C(DEST) = 0 5101 IFIDN ,,< 5102 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5103 IFDIF ,,< 5104 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5105 GCAM (DEST+1,<552255225522>)^ 5106 023206 SN=SN+1 5107 IFG ,< 5108 034745 200 13 0 00 040162 MOVE AC-1,DEST+1 5109 034746 312 13 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5110 IFIDN ,,< 5111 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5112 IFDIF ,,< 5113 034747 002 13 0 00 023206 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5114 IFLE ,< 5115 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5116 IFIDN ,,< 5117 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5118 IFDIF ,,< 5119 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5120 034750 321 16 0 00 034716 JUMPL AC+2,G23200 ;LOOP ON ERROR^ 5121 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-12 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0143 5122 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS 5123 5124 BLTM1 (23300,13,<&17>,,-1)^ 5125 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5126 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5127 ;SOURCE DATA = -1 5128 5129 000013 AC=13 5130 SAVEAC (1,1)^ 5131 034751 201 15 0 00 034751 MOVEI AC+2,. ;SAVE TEST PC 5132 034752 202 15 0 00 030051 MOVEM AC+2,TESTPC 5133 034753 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5134 034754 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5135 023300 SN=23300 5136 000005 SRCE=&17 ;1ST LOC OF SOURCE = &17 5137 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 5138 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5139 5140 034755 200 13 0 00 040760 G23300: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5141 GMOV (SRCE-1,<252525252525>)^ 5142 IFLE ,< 5143 034756 200 04 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5144 IFG ,< 5145 MOVE AC+1,[252525252525] 5146 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5147 GMOV (SRCE,<-1>)^ 5148 IFLE ,< 5149 034757 200 05 0 00 040666 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1> 5150 IFG ,< 5151 MOVE AC+1,[-1] 5152 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^ 5153 GMOV (SRCE+1,<770077007700>)^ 5154 IFLE ,< 5155 034760 200 06 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5156 IFG ,< 5157 MOVE AC+1,[770077007700] 5158 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5159 GMOV (DEST-1,<070707070707>)^ 5160 IFLE ,< 5161 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5162 IFG ,< 5163 034761 200 14 0 00 040752 MOVE AC+1,[070707070707] 5164 034762 202 14 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5165 GMOV (DEST,<123456765432>)^ 5166 IFLE ,< 5167 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5168 IFG ,< 5169 034763 200 14 0 00 040753 MOVE AC+1,[123456765432] 5170 034764 202 14 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5171 GMOV (DEST+1,<552255225522>)^ 5172 IFLE ,< 5173 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5174 IFG ,< 5175 034765 200 14 0 00 040754 MOVE AC+1,[552255225522] 5176 034766 202 14 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-13 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0144 5177 034767 251 13 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5178 GCAM (SRCE-1,<252525252525>)^ 5179 023301 SN=SN+1 5180 IFG ,< 5181 MOVE AC-1,SRCE-1 5182 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5183 IFIDN ,,< 5184 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5185 IFDIF ,,< 5186 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5187 IFLE ,< 5188 034770 312 04 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5189 IFIDN ,,< 5190 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5191 IFDIF ,,< 5192 034771 002 04 0 00 023301 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5193 GCAM (SRCE,<-1>)^ 5194 023302 SN=SN+1 5195 IFG ,< 5196 MOVE AC-1,SRCE 5197 CAME AC-1,[-1] ;IS C(SRCE) = -1 5198 IFIDN ,,< 5199 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5200 IFDIF ,,< 5201 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5202 IFLE ,< 5203 034772 312 05 0 00 040666 CAME SRCE,[-1] ;IS C(SRCE) = -1 5204 IFIDN ,,< 5205 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5206 IFDIF ,,< 5207 034773 002 05 0 00 023302 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5208 GCAM (SRCE+1,<770077007700>)^ 5209 023303 SN=SN+1 5210 IFG ,< 5211 MOVE AC-1,SRCE+1 5212 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5213 IFIDN ,,< 5214 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5215 IFDIF ,,< 5216 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5217 IFLE ,< 5218 034774 312 06 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5219 IFIDN ,,< 5220 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5221 IFDIF ,,< 5222 034775 002 06 0 00 023303 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5223 GCAM (DEST-1,<070707070707>)^ 5224 023304 SN=SN+1 5225 IFG ,< 5226 034776 200 12 0 00 040160 MOVE AC-1,DEST-1 5227 034777 312 12 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5228 IFIDN ,,< 5229 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5230 IFDIF ,,< 5231 035000 002 12 0 00 023304 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-14 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0145 5232 IFLE ,< 5233 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5234 IFIDN ,,< 5235 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5236 IFDIF ,,< 5237 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5238 GCAM (DEST,<-1>)^ 5239 023305 SN=SN+1 5240 IFG ,< 5241 035001 200 12 0 00 040161 MOVE AC-1,DEST 5242 035002 312 12 0 00 040666 CAME AC-1,[-1] ;IS C(DEST) = -1 5243 IFIDN ,,< 5244 035003 002 12 0 00 023305 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5245 IFDIF ,,< 5246 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5247 IFLE ,< 5248 CAME DEST,[-1] ;IS C(DEST) = -1 5249 IFIDN ,,< 5250 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5251 IFDIF ,,< 5252 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5253 GCAM (DEST+1,<552255225522>)^ 5254 023306 SN=SN+1 5255 IFG ,< 5256 035004 200 12 0 00 040162 MOVE AC-1,DEST+1 5257 035005 312 12 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5258 IFIDN ,,< 5259 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5260 IFDIF ,,< 5261 035006 002 12 0 00 023306 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5262 IFLE ,< 5263 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5264 IFIDN ,,< 5265 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5266 IFDIF ,,< 5267 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5268 035007 321 15 0 00 034755 JUMPL AC+2,G23300 ;LOOP ON ERROR^ 5269 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-15 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0146 5270 ;SOURCE BLOCK HAS AC ADDRESS, DESTINATION BLOCK HAS NON-AC ADDRESS 5271 5272 BLTM1 (23400,12,<&17>,,<230703,,603700>)^ 5273 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5274 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5275 ;SOURCE DATA = 230703,,603700 5276 5277 000012 AC=12 5278 SAVEAC (1,1)^ 5279 035010 201 14 0 00 035010 MOVEI AC+2,. ;SAVE TEST PC 5280 035011 202 14 0 00 030051 MOVEM AC+2,TESTPC 5281 035012 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5282 035013 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5283 023400 SN=23400 5284 000004 SRCE=&17 ;1ST LOC OF SOURCE = &17 5285 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 5286 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5287 5288 035014 200 12 0 00 040761 G23400: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5289 GMOV (SRCE-1,<252525252525>)^ 5290 IFLE ,< 5291 035015 200 03 0 00 040750 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5292 IFG ,< 5293 MOVE AC+1,[252525252525] 5294 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5295 GMOV (SRCE,<230703,,603700>)^ 5296 IFLE ,< 5297 035016 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700> 5298 IFG ,< 5299 MOVE AC+1,[230703,,603700] 5300 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^ 5301 GMOV (SRCE+1,<770077007700>)^ 5302 IFLE ,< 5303 035017 200 05 0 00 040751 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5304 IFG ,< 5305 MOVE AC+1,[770077007700] 5306 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5307 GMOV (DEST-1,<070707070707>)^ 5308 IFLE ,< 5309 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5310 IFG ,< 5311 035020 200 13 0 00 040752 MOVE AC+1,[070707070707] 5312 035021 202 13 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5313 GMOV (DEST,<123456765432>)^ 5314 IFLE ,< 5315 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5316 IFG ,< 5317 035022 200 13 0 00 040753 MOVE AC+1,[123456765432] 5318 035023 202 13 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5319 GMOV (DEST+1,<552255225522>)^ 5320 IFLE ,< 5321 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5322 IFG ,< 5323 035024 200 13 0 00 040754 MOVE AC+1,[552255225522] 5324 035025 202 13 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-16 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0147 5325 035026 251 12 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5326 GCAM (SRCE-1,<252525252525>)^ 5327 023401 SN=SN+1 5328 IFG ,< 5329 MOVE AC-1,SRCE-1 5330 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5331 IFIDN ,,< 5332 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5333 IFDIF ,,< 5334 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5335 IFLE ,< 5336 035027 312 03 0 00 040750 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5337 IFIDN ,,< 5338 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5339 IFDIF ,,< 5340 035030 002 03 0 00 023401 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5341 GCAM (SRCE,<230703,,603700>)^ 5342 023402 SN=SN+1 5343 IFG ,< 5344 MOVE AC-1,SRCE 5345 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700 5346 IFIDN ,,< 5347 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5348 IFDIF ,,< 5349 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5350 IFLE ,< 5351 035031 312 04 0 00 040704 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700 5352 IFIDN ,,< 5353 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5354 IFDIF ,,< 5355 035032 002 04 0 00 023402 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5356 GCAM (SRCE+1,<770077007700>)^ 5357 023403 SN=SN+1 5358 IFG ,< 5359 MOVE AC-1,SRCE+1 5360 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5361 IFIDN ,,< 5362 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5363 IFDIF ,,< 5364 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5365 IFLE ,< 5366 035033 312 05 0 00 040751 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5367 IFIDN ,,< 5368 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5369 IFDIF ,,< 5370 035034 002 05 0 00 023403 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5371 GCAM (DEST-1,<070707070707>)^ 5372 023404 SN=SN+1 5373 IFG ,< 5374 035035 200 11 0 00 040160 MOVE AC-1,DEST-1 5375 035036 312 11 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5376 IFIDN ,,< 5377 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5378 IFDIF ,,< 5379 035037 002 11 0 00 023404 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-17 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0148 5380 IFLE ,< 5381 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5382 IFIDN ,,< 5383 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5384 IFDIF ,,< 5385 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5386 GCAM (DEST,<230703,,603700>)^ 5387 023405 SN=SN+1 5388 IFG ,< 5389 035040 200 11 0 00 040161 MOVE AC-1,DEST 5390 035041 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700 5391 IFIDN ,,< 5392 035042 002 11 0 00 023405 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5393 IFDIF ,,< 5394 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5395 IFLE ,< 5396 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700 5397 IFIDN ,,< 5398 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5399 IFDIF ,,< 5400 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5401 GCAM (DEST+1,<552255225522>)^ 5402 023406 SN=SN+1 5403 IFG ,< 5404 035043 200 11 0 00 040162 MOVE AC-1,DEST+1 5405 035044 312 11 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5406 IFIDN ,,< 5407 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5408 IFDIF ,,< 5409 035045 002 11 0 00 023406 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5410 IFLE ,< 5411 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5412 IFIDN ,,< 5413 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5414 IFDIF ,,< 5415 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5416 035046 321 14 0 00 035014 JUMPL AC+2,G23400 ;LOOP ON ERROR^ 5417 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-18 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0149 5418 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES 5419 5420 BLTM1 (23500,11,,,0)^ 5421 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5422 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5423 ;SOURCE DATA = 0 5424 5425 000011 AC=11 5426 SAVEAC (1,1)^ 5427 035047 201 13 0 00 035047 MOVEI AC+2,. ;SAVE TEST PC 5428 035050 202 13 0 00 030051 MOVEM AC+2,TESTPC 5429 035051 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5430 035052 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5431 023500 SN=23500 5432 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 5433 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 5434 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5435 5436 035053 200 11 0 00 040762 G23500: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5437 GMOV (SRCE-1,<252525252525>)^ 5438 IFLE ,< 5439 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5440 IFG ,< 5441 035054 200 12 0 00 040750 MOVE AC+1,[252525252525] 5442 035055 202 12 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5443 GMOV (SRCE,<0>)^ 5444 IFLE ,< 5445 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0> 5446 IFG ,< 5447 035056 200 12 0 00 040743 MOVE AC+1,[0] 5448 035057 202 12 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^ 5449 GMOV (SRCE+1,<770077007700>)^ 5450 IFLE ,< 5451 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5452 IFG ,< 5453 035060 200 12 0 00 040751 MOVE AC+1,[770077007700] 5454 035061 202 12 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5455 GMOV (DEST-1,<070707070707>)^ 5456 IFLE ,< 5457 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5458 IFG ,< 5459 035062 200 12 0 00 040752 MOVE AC+1,[070707070707] 5460 035063 202 12 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5461 GMOV (DEST,<123456765432>)^ 5462 IFLE ,< 5463 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5464 IFG ,< 5465 035064 200 12 0 00 040753 MOVE AC+1,[123456765432] 5466 035065 202 12 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5467 GMOV (DEST+1,<552255225522>)^ 5468 IFLE ,< 5469 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5470 IFG ,< 5471 035066 200 12 0 00 040754 MOVE AC+1,[552255225522] 5472 035067 202 12 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-19 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0150 5473 035070 251 11 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5474 GCAM (SRCE-1,<252525252525>)^ 5475 023501 SN=SN+1 5476 IFG ,< 5477 035071 200 10 0 00 040155 MOVE AC-1,SRCE-1 5478 035072 312 10 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5479 IFIDN ,,< 5480 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5481 IFDIF ,,< 5482 035073 002 10 0 00 023501 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5483 IFLE ,< 5484 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5485 IFIDN ,,< 5486 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5487 IFDIF ,,< 5488 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5489 GCAM (SRCE,<0>)^ 5490 023502 SN=SN+1 5491 IFG ,< 5492 035074 200 10 0 00 040156 MOVE AC-1,SRCE 5493 035075 312 10 0 00 040743 CAME AC-1,[0] ;IS C(SRCE) = 0 5494 IFIDN ,,< 5495 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5496 IFDIF ,,< 5497 035076 002 10 0 00 023502 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5498 IFLE ,< 5499 CAME SRCE,[0] ;IS C(SRCE) = 0 5500 IFIDN ,,< 5501 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5502 IFDIF ,,< 5503 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5504 GCAM (SRCE+1,<770077007700>)^ 5505 023503 SN=SN+1 5506 IFG ,< 5507 035077 200 10 0 00 040157 MOVE AC-1,SRCE+1 5508 035100 312 10 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5509 IFIDN ,,< 5510 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5511 IFDIF ,,< 5512 035101 002 10 0 00 023503 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5513 IFLE ,< 5514 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5515 IFIDN ,,< 5516 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5517 IFDIF ,,< 5518 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5519 GCAM (DEST-1,<070707070707>)^ 5520 023504 SN=SN+1 5521 IFG ,< 5522 035102 200 10 0 00 040160 MOVE AC-1,DEST-1 5523 035103 312 10 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5524 IFIDN ,,< 5525 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5526 IFDIF ,,< 5527 035104 002 10 0 00 023504 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-20 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0151 5528 IFLE ,< 5529 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5530 IFIDN ,,< 5531 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5532 IFDIF ,,< 5533 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5534 GCAM (DEST,<0>)^ 5535 023505 SN=SN+1 5536 IFG ,< 5537 035105 200 10 0 00 040161 MOVE AC-1,DEST 5538 035106 312 10 0 00 040743 CAME AC-1,[0] ;IS C(DEST) = 0 5539 IFIDN ,,< 5540 035107 002 10 0 00 023505 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5541 IFDIF ,,< 5542 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5543 IFLE ,< 5544 CAME DEST,[0] ;IS C(DEST) = 0 5545 IFIDN ,,< 5546 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5547 IFDIF ,,< 5548 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5549 GCAM (DEST+1,<552255225522>)^ 5550 023506 SN=SN+1 5551 IFG ,< 5552 035110 200 10 0 00 040162 MOVE AC-1,DEST+1 5553 035111 312 10 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5554 IFIDN ,,< 5555 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5556 IFDIF ,,< 5557 035112 002 10 0 00 023506 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5558 IFLE ,< 5559 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5560 IFIDN ,,< 5561 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5562 IFDIF ,,< 5563 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5564 035113 321 13 0 00 035053 JUMPL AC+2,G23500 ;LOOP ON ERROR^ 5565 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-21 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0152 5566 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES 5567 5568 BLTM1 (23600,10,,,-1)^ 5569 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5570 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5571 ;SOURCE DATA = -1 5572 5573 000010 AC=10 5574 SAVEAC (1,1)^ 5575 035114 201 12 0 00 035114 MOVEI AC+2,. ;SAVE TEST PC 5576 035115 202 12 0 00 030051 MOVEM AC+2,TESTPC 5577 035116 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5578 035117 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5579 023600 SN=23600 5580 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 5581 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 5582 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5583 5584 035120 200 10 0 00 040762 G23600: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5585 GMOV (SRCE-1,<252525252525>)^ 5586 IFLE ,< 5587 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5588 IFG ,< 5589 035121 200 11 0 00 040750 MOVE AC+1,[252525252525] 5590 035122 202 11 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5591 GMOV (SRCE,<-1>)^ 5592 IFLE ,< 5593 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1> 5594 IFG ,< 5595 035123 200 11 0 00 040666 MOVE AC+1,[-1] 5596 035124 202 11 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^ 5597 GMOV (SRCE+1,<770077007700>)^ 5598 IFLE ,< 5599 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5600 IFG ,< 5601 035125 200 11 0 00 040751 MOVE AC+1,[770077007700] 5602 035126 202 11 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5603 GMOV (DEST-1,<070707070707>)^ 5604 IFLE ,< 5605 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5606 IFG ,< 5607 035127 200 11 0 00 040752 MOVE AC+1,[070707070707] 5608 035130 202 11 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5609 GMOV (DEST,<123456765432>)^ 5610 IFLE ,< 5611 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5612 IFG ,< 5613 035131 200 11 0 00 040753 MOVE AC+1,[123456765432] 5614 035132 202 11 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5615 GMOV (DEST+1,<552255225522>)^ 5616 IFLE ,< 5617 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5618 IFG ,< 5619 035133 200 11 0 00 040754 MOVE AC+1,[552255225522] 5620 035134 202 11 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-22 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0153 5621 035135 251 10 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5622 GCAM (SRCE-1,<252525252525>)^ 5623 023601 SN=SN+1 5624 IFG ,< 5625 035136 200 07 0 00 040155 MOVE AC-1,SRCE-1 5626 035137 312 07 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5627 IFIDN ,,< 5628 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5629 IFDIF ,,< 5630 035140 002 07 0 00 023601 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5631 IFLE ,< 5632 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5633 IFIDN ,,< 5634 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5635 IFDIF ,,< 5636 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5637 GCAM (SRCE,<-1>)^ 5638 023602 SN=SN+1 5639 IFG ,< 5640 035141 200 07 0 00 040156 MOVE AC-1,SRCE 5641 035142 312 07 0 00 040666 CAME AC-1,[-1] ;IS C(SRCE) = -1 5642 IFIDN ,,< 5643 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5644 IFDIF ,,< 5645 035143 002 07 0 00 023602 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5646 IFLE ,< 5647 CAME SRCE,[-1] ;IS C(SRCE) = -1 5648 IFIDN ,,< 5649 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5650 IFDIF ,,< 5651 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5652 GCAM (SRCE+1,<770077007700>)^ 5653 023603 SN=SN+1 5654 IFG ,< 5655 035144 200 07 0 00 040157 MOVE AC-1,SRCE+1 5656 035145 312 07 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5657 IFIDN ,,< 5658 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5659 IFDIF ,,< 5660 035146 002 07 0 00 023603 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5661 IFLE ,< 5662 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5663 IFIDN ,,< 5664 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5665 IFDIF ,,< 5666 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5667 GCAM (DEST-1,<070707070707>)^ 5668 023604 SN=SN+1 5669 IFG ,< 5670 035147 200 07 0 00 040160 MOVE AC-1,DEST-1 5671 035150 312 07 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5672 IFIDN ,,< 5673 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5674 IFDIF ,,< 5675 035151 002 07 0 00 023604 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-23 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0154 5676 IFLE ,< 5677 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5678 IFIDN ,,< 5679 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5680 IFDIF ,,< 5681 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5682 GCAM (DEST,<-1>)^ 5683 023605 SN=SN+1 5684 IFG ,< 5685 035152 200 07 0 00 040161 MOVE AC-1,DEST 5686 035153 312 07 0 00 040666 CAME AC-1,[-1] ;IS C(DEST) = -1 5687 IFIDN ,,< 5688 035154 002 07 0 00 023605 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5689 IFDIF ,,< 5690 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5691 IFLE ,< 5692 CAME DEST,[-1] ;IS C(DEST) = -1 5693 IFIDN ,,< 5694 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5695 IFDIF ,,< 5696 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5697 GCAM (DEST+1,<552255225522>)^ 5698 023606 SN=SN+1 5699 IFG ,< 5700 035155 200 07 0 00 040162 MOVE AC-1,DEST+1 5701 035156 312 07 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5702 IFIDN ,,< 5703 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5704 IFDIF ,,< 5705 035157 002 07 0 00 023606 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5706 IFLE ,< 5707 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5708 IFIDN ,,< 5709 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5710 IFDIF ,,< 5711 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5712 035160 321 12 0 00 035120 JUMPL AC+2,G23600 ;LOOP ON ERROR^ 5713 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-24 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0155 5714 ;BOTH SOURCE AND DESTINATION BLOCKS HAVE NON-AC ADDRESSES 5715 5716 BLTM1 (23700,7,,,<230703,,603700>)^ 5717 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5718 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5719 ;SOURCE DATA = 230703,,603700 5720 5721 000007 AC=7 5722 SAVEAC (1,1)^ 5723 035161 201 11 0 00 035161 MOVEI AC+2,. ;SAVE TEST PC 5724 035162 202 11 0 00 030051 MOVEM AC+2,TESTPC 5725 035163 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5726 035164 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5727 023700 SN=23700 5728 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 5729 040161 DEST=BLTBLK+4 ;1ST LOC OF DESTINATION = BLTBLK+4 5730 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5731 5732 035165 200 07 0 00 040762 G23700: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5733 GMOV (SRCE-1,<252525252525>)^ 5734 IFLE ,< 5735 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5736 IFG ,< 5737 035166 200 10 0 00 040750 MOVE AC+1,[252525252525] 5738 035167 202 10 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5739 GMOV (SRCE,<230703,,603700>)^ 5740 IFLE ,< 5741 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700> 5742 IFG ,< 5743 035170 200 10 0 00 040704 MOVE AC+1,[230703,,603700] 5744 035171 202 10 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^ 5745 GMOV (SRCE+1,<770077007700>)^ 5746 IFLE ,< 5747 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5748 IFG ,< 5749 035172 200 10 0 00 040751 MOVE AC+1,[770077007700] 5750 035173 202 10 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5751 GMOV (DEST-1,<070707070707>)^ 5752 IFLE ,< 5753 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5754 IFG ,< 5755 035174 200 10 0 00 040752 MOVE AC+1,[070707070707] 5756 035175 202 10 0 00 040160 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5757 GMOV (DEST,<123456765432>)^ 5758 IFLE ,< 5759 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5760 IFG ,< 5761 035176 200 10 0 00 040753 MOVE AC+1,[123456765432] 5762 035177 202 10 0 00 040161 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5763 GMOV (DEST+1,<552255225522>)^ 5764 IFLE ,< 5765 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5766 IFG ,< 5767 035200 200 10 0 00 040754 MOVE AC+1,[552255225522] 5768 035201 202 10 0 00 040162 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-25 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0156 5769 035202 251 07 0 00 040161 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5770 GCAM (SRCE-1,<252525252525>)^ 5771 023701 SN=SN+1 5772 IFG ,< 5773 035203 200 06 0 00 040155 MOVE AC-1,SRCE-1 5774 035204 312 06 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5775 IFIDN ,,< 5776 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5777 IFDIF ,,< 5778 035205 002 06 0 00 023701 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5779 IFLE ,< 5780 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5781 IFIDN ,,< 5782 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5783 IFDIF ,,< 5784 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5785 GCAM (SRCE,<230703,,603700>)^ 5786 023702 SN=SN+1 5787 IFG ,< 5788 035206 200 06 0 00 040156 MOVE AC-1,SRCE 5789 035207 312 06 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700 5790 IFIDN ,,< 5791 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5792 IFDIF ,,< 5793 035210 002 06 0 00 023702 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5794 IFLE ,< 5795 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700 5796 IFIDN ,,< 5797 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5798 IFDIF ,,< 5799 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5800 GCAM (SRCE+1,<770077007700>)^ 5801 023703 SN=SN+1 5802 IFG ,< 5803 035211 200 06 0 00 040157 MOVE AC-1,SRCE+1 5804 035212 312 06 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5805 IFIDN ,,< 5806 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5807 IFDIF ,,< 5808 035213 002 06 0 00 023703 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5809 IFLE ,< 5810 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5811 IFIDN ,,< 5812 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5813 IFDIF ,,< 5814 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5815 GCAM (DEST-1,<070707070707>)^ 5816 023704 SN=SN+1 5817 IFG ,< 5818 035214 200 06 0 00 040160 MOVE AC-1,DEST-1 5819 035215 312 06 0 00 040752 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5820 IFIDN ,,< 5821 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5822 IFDIF ,,< 5823 035216 002 06 0 00 023704 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-26 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0157 5824 IFLE ,< 5825 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5826 IFIDN ,,< 5827 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5828 IFDIF ,,< 5829 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5830 GCAM (DEST,<230703,,603700>)^ 5831 023705 SN=SN+1 5832 IFG ,< 5833 035217 200 06 0 00 040161 MOVE AC-1,DEST 5834 035220 312 06 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700 5835 IFIDN ,,< 5836 035221 002 06 0 00 023705 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5837 IFDIF ,,< 5838 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5839 IFLE ,< 5840 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700 5841 IFIDN ,,< 5842 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5843 IFDIF ,,< 5844 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5845 GCAM (DEST+1,<552255225522>)^ 5846 023706 SN=SN+1 5847 IFG ,< 5848 035222 200 06 0 00 040162 MOVE AC-1,DEST+1 5849 035223 312 06 0 00 040754 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5850 IFIDN ,,< 5851 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5852 IFDIF ,,< 5853 035224 002 06 0 00 023706 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 5854 IFLE ,< 5855 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 5856 IFIDN ,,< 5857 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 5858 IFDIF ,,< 5859 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 5860 035225 321 11 0 00 035165 JUMPL AC+2,G23700 ;LOOP ON ERROR^ 5861 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-27 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0158 5862 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS 5863 5864 BLTM1 (24000,14,,<&17>,0)^ 5865 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 5866 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 5867 ;SOURCE DATA = 0 5868 5869 000014 AC=14 5870 SAVEAC (1,1)^ 5871 035226 201 16 0 00 035226 MOVEI AC+2,. ;SAVE TEST PC 5872 035227 202 16 0 00 030051 MOVEM AC+2,TESTPC 5873 035230 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5874 035231 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5875 024000 SN=24000 5876 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 5877 000006 DEST=&17 ;1ST LOC OF DESTINATION = &17 5878 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 5879 5880 035232 200 14 0 00 040763 G24000: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 5881 GMOV (SRCE-1,<252525252525>)^ 5882 IFLE ,< 5883 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 5884 IFG ,< 5885 035233 200 15 0 00 040750 MOVE AC+1,[252525252525] 5886 035234 202 15 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 5887 GMOV (SRCE,<0>)^ 5888 IFLE ,< 5889 MOVE SRCE,[0] ;PRELOAD SRCE WITH 0> 5890 IFG ,< 5891 035235 200 15 0 00 040743 MOVE AC+1,[0] 5892 035236 202 15 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 0>^ 5893 GMOV (SRCE+1,<770077007700>)^ 5894 IFLE ,< 5895 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 5896 IFG ,< 5897 035237 200 15 0 00 040751 MOVE AC+1,[770077007700] 5898 035240 202 15 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 5899 GMOV (DEST-1,<070707070707>)^ 5900 IFLE ,< 5901 035241 200 05 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 5902 IFG ,< 5903 MOVE AC+1,[070707070707] 5904 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 5905 GMOV (DEST,<123456765432>)^ 5906 IFLE ,< 5907 035242 200 06 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 5908 IFG ,< 5909 MOVE AC+1,[123456765432] 5910 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 5911 GMOV (DEST+1,<552255225522>)^ 5912 IFLE ,< 5913 035243 200 07 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 5914 IFG ,< 5915 MOVE AC+1,[552255225522] 5916 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-28 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0159 5917 035244 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 5918 GCAM (SRCE-1,<252525252525>)^ 5919 024001 SN=SN+1 5920 IFG ,< 5921 035245 200 13 0 00 040155 MOVE AC-1,SRCE-1 5922 035246 312 13 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5923 IFIDN ,,< 5924 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5925 IFDIF ,,< 5926 035247 002 13 0 00 024001 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 5927 IFLE ,< 5928 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 5929 IFIDN ,,< 5930 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 5931 IFDIF ,,< 5932 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 5933 GCAM (SRCE,<0>)^ 5934 024002 SN=SN+1 5935 IFG ,< 5936 035250 200 13 0 00 040156 MOVE AC-1,SRCE 5937 035251 312 13 0 00 040743 CAME AC-1,[0] ;IS C(SRCE) = 0 5938 IFIDN ,,< 5939 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5940 IFDIF ,,< 5941 035252 002 13 0 00 024002 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 5942 IFLE ,< 5943 CAME SRCE,[0] ;IS C(SRCE) = 0 5944 IFIDN ,,< 5945 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 5946 IFDIF ,,< 5947 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 5948 GCAM (SRCE+1,<770077007700>)^ 5949 024003 SN=SN+1 5950 IFG ,< 5951 035253 200 13 0 00 040157 MOVE AC-1,SRCE+1 5952 035254 312 13 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 5953 IFIDN ,,< 5954 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5955 IFDIF ,,< 5956 035255 002 13 0 00 024003 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 5957 IFLE ,< 5958 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 5959 IFIDN ,,< 5960 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 5961 IFDIF ,,< 5962 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 5963 GCAM (DEST-1,<070707070707>)^ 5964 024004 SN=SN+1 5965 IFG ,< 5966 MOVE AC-1,DEST-1 5967 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 5968 IFIDN ,,< 5969 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5970 IFDIF ,,< 5971 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-29 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0160 5972 IFLE ,< 5973 035256 312 05 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 5974 IFIDN ,,< 5975 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 5976 IFDIF ,,< 5977 035257 002 05 0 00 024004 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 5978 GCAM (DEST,<0>)^ 5979 024005 SN=SN+1 5980 IFG ,< 5981 MOVE AC-1,DEST 5982 CAME AC-1,[0] ;IS C(DEST) = 0 5983 IFIDN ,,< 5984 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 5985 IFDIF ,,< 5986 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 5987 IFLE ,< 5988 035260 312 06 0 00 040743 CAME DEST,[0] ;IS C(DEST) = 0 5989 IFIDN ,,< 5990 035261 002 06 0 00 024005 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 5991 IFDIF ,,< 5992 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 5993 GCAM (DEST+1,<552255225522>)^ 5994 024006 SN=SN+1 5995 IFG ,< 5996 MOVE AC-1,DEST+1 5997 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 5998 IFIDN ,,< 5999 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6000 IFDIF ,,< 6001 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 6002 IFLE ,< 6003 035262 312 07 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 6004 IFIDN ,,< 6005 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 6006 IFDIF ,,< 6007 035263 002 07 0 00 024006 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 6008 035264 321 16 0 00 035232 JUMPL AC+2,G24000 ;LOOP ON ERROR^ 6009 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-30 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0161 6010 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS 6011 6012 BLTM1 (24100,13,,<&17>,-1)^ 6013 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 6014 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 6015 ;SOURCE DATA = -1 6016 6017 000013 AC=13 6018 SAVEAC (1,1)^ 6019 035265 201 15 0 00 035265 MOVEI AC+2,. ;SAVE TEST PC 6020 035266 202 15 0 00 030051 MOVEM AC+2,TESTPC 6021 035267 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6022 035270 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6023 024100 SN=24100 6024 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 6025 000005 DEST=&17 ;1ST LOC OF DESTINATION = &17 6026 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 6027 6028 035271 200 13 0 00 040764 G24100: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 6029 GMOV (SRCE-1,<252525252525>)^ 6030 IFLE ,< 6031 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 6032 IFG ,< 6033 035272 200 14 0 00 040750 MOVE AC+1,[252525252525] 6034 035273 202 14 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 6035 GMOV (SRCE,<-1>)^ 6036 IFLE ,< 6037 MOVE SRCE,[-1] ;PRELOAD SRCE WITH -1> 6038 IFG ,< 6039 035274 200 14 0 00 040666 MOVE AC+1,[-1] 6040 035275 202 14 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH -1>^ 6041 GMOV (SRCE+1,<770077007700>)^ 6042 IFLE ,< 6043 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 6044 IFG ,< 6045 035276 200 14 0 00 040751 MOVE AC+1,[770077007700] 6046 035277 202 14 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 6047 GMOV (DEST-1,<070707070707>)^ 6048 IFLE ,< 6049 035300 200 04 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 6050 IFG ,< 6051 MOVE AC+1,[070707070707] 6052 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 6053 GMOV (DEST,<123456765432>)^ 6054 IFLE ,< 6055 035301 200 05 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 6056 IFG ,< 6057 MOVE AC+1,[123456765432] 6058 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 6059 GMOV (DEST+1,<552255225522>)^ 6060 IFLE ,< 6061 035302 200 06 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 6062 IFG ,< 6063 MOVE AC+1,[552255225522] 6064 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-31 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0162 6065 035303 251 13 0 00 000005 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 6066 GCAM (SRCE-1,<252525252525>)^ 6067 024101 SN=SN+1 6068 IFG ,< 6069 035304 200 12 0 00 040155 MOVE AC-1,SRCE-1 6070 035305 312 12 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 6071 IFIDN ,,< 6072 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6073 IFDIF ,,< 6074 035306 002 12 0 00 024101 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 6075 IFLE ,< 6076 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 6077 IFIDN ,,< 6078 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 6079 IFDIF ,,< 6080 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 6081 GCAM (SRCE,<-1>)^ 6082 024102 SN=SN+1 6083 IFG ,< 6084 035307 200 12 0 00 040156 MOVE AC-1,SRCE 6085 035310 312 12 0 00 040666 CAME AC-1,[-1] ;IS C(SRCE) = -1 6086 IFIDN ,,< 6087 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6088 IFDIF ,,< 6089 035311 002 12 0 00 024102 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 6090 IFLE ,< 6091 CAME SRCE,[-1] ;IS C(SRCE) = -1 6092 IFIDN ,,< 6093 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 6094 IFDIF ,,< 6095 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 6096 GCAM (SRCE+1,<770077007700>)^ 6097 024103 SN=SN+1 6098 IFG ,< 6099 035312 200 12 0 00 040157 MOVE AC-1,SRCE+1 6100 035313 312 12 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 6101 IFIDN ,,< 6102 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6103 IFDIF ,,< 6104 035314 002 12 0 00 024103 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 6105 IFLE ,< 6106 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 6107 IFIDN ,,< 6108 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 6109 IFDIF ,,< 6110 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 6111 GCAM (DEST-1,<070707070707>)^ 6112 024104 SN=SN+1 6113 IFG ,< 6114 MOVE AC-1,DEST-1 6115 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 6116 IFIDN ,,< 6117 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6118 IFDIF ,,< 6119 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-32 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0163 6120 IFLE ,< 6121 035315 312 04 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 6122 IFIDN ,,< 6123 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 6124 IFDIF ,,< 6125 035316 002 04 0 00 024104 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 6126 GCAM (DEST,<-1>)^ 6127 024105 SN=SN+1 6128 IFG ,< 6129 MOVE AC-1,DEST 6130 CAME AC-1,[-1] ;IS C(DEST) = -1 6131 IFIDN ,,< 6132 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6133 IFDIF ,,< 6134 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 6135 IFLE ,< 6136 035317 312 05 0 00 040666 CAME DEST,[-1] ;IS C(DEST) = -1 6137 IFIDN ,,< 6138 035320 002 05 0 00 024105 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 6139 IFDIF ,,< 6140 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 6141 GCAM (DEST+1,<552255225522>)^ 6142 024106 SN=SN+1 6143 IFG ,< 6144 MOVE AC-1,DEST+1 6145 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 6146 IFIDN ,,< 6147 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6148 IFDIF ,,< 6149 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 6150 IFLE ,< 6151 035321 312 06 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 6152 IFIDN ,,< 6153 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 6154 IFDIF ,,< 6155 035322 002 06 0 00 024106 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 6156 035323 321 15 0 00 035271 JUMPL AC+2,G24100 ;LOOP ON ERROR^ 6157 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-33 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0164 6158 ;SOURCE BLOCK HAS NON-AC ADDRESS, DESTINATION BLOCK HAS AC ADDRESS 6159 6160 BLTM1 (24200,12,,<&17>,<230703,,603700>)^ 6161 ;VERIFY THAT BLT WILL TRANSFER A 1 WORD BLOCK OF DATA 6162 ;WHERE SOURCE AND DESTINATION ARE DIFFERENT 6163 ;SOURCE DATA = 230703,,603700 6164 6165 000012 AC=12 6166 SAVEAC (1,1)^ 6167 035324 201 14 0 00 035324 MOVEI AC+2,. ;SAVE TEST PC 6168 035325 202 14 0 00 030051 MOVEM AC+2,TESTPC 6169 035326 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6170 035327 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6171 024200 SN=24200 6172 040156 SRCE=BLTBLK+1 ;1ST LOC OF SOURCE = BLTBLK+1 6173 000004 DEST=&17 ;1ST LOC OF DESTINATION = &17 6174 000001 SIZ=1 ;BLOCK SIZE = 1 WORD 6175 6176 035330 200 12 0 00 040765 G24200: MOVE AC,[SRCE,,DEST] ;LOAD BLT AC 6177 GMOV (SRCE-1,<252525252525>)^ 6178 IFLE ,< 6179 MOVE SRCE-1,[252525252525] ;PRELOAD SRCE-1 WITH 252525252525> 6180 IFG ,< 6181 035331 200 13 0 00 040750 MOVE AC+1,[252525252525] 6182 035332 202 13 0 00 040155 MOVEM AC+1,SRCE-1 ;PRELOAD SRCE-1 WITH 252525252525>^ 6183 GMOV (SRCE,<230703,,603700>)^ 6184 IFLE ,< 6185 MOVE SRCE,[230703,,603700] ;PRELOAD SRCE WITH 230703,,603700> 6186 IFG ,< 6187 035333 200 13 0 00 040704 MOVE AC+1,[230703,,603700] 6188 035334 202 13 0 00 040156 MOVEM AC+1,SRCE ;PRELOAD SRCE WITH 230703,,603700>^ 6189 GMOV (SRCE+1,<770077007700>)^ 6190 IFLE ,< 6191 MOVE SRCE+1,[770077007700] ;PRELOAD SRCE+1 WITH 770077007700> 6192 IFG ,< 6193 035335 200 13 0 00 040751 MOVE AC+1,[770077007700] 6194 035336 202 13 0 00 040157 MOVEM AC+1,SRCE+1 ;PRELOAD SRCE+1 WITH 770077007700>^ 6195 GMOV (DEST-1,<070707070707>)^ 6196 IFLE ,< 6197 035337 200 03 0 00 040752 MOVE DEST-1,[070707070707] ;PRELOAD DEST-1 WITH 070707070707> 6198 IFG ,< 6199 MOVE AC+1,[070707070707] 6200 MOVEM AC+1,DEST-1 ;PRELOAD DEST-1 WITH 070707070707>^ 6201 GMOV (DEST,<123456765432>)^ 6202 IFLE ,< 6203 035340 200 04 0 00 040753 MOVE DEST,[123456765432] ;PRELOAD DEST WITH 123456765432> 6204 IFG ,< 6205 MOVE AC+1,[123456765432] 6206 MOVEM AC+1,DEST ;PRELOAD DEST WITH 123456765432>^ 6207 GMOV (DEST+1,<552255225522>)^ 6208 IFLE ,< 6209 035341 200 05 0 00 040754 MOVE DEST+1,[552255225522] ;PRELOAD DEST+1 WITH 552255225522> 6210 IFG ,< 6211 MOVE AC+1,[552255225522] 6212 MOVEM AC+1,DEST+1 ;PRELOAD DEST+1 WITH 552255225522>^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-34 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0165 6213 035342 251 12 0 00 000004 BLT AC,DEST+SIZ-1 ;*BLOCK TRANSFER 6214 GCAM (SRCE-1,<252525252525>)^ 6215 024201 SN=SN+1 6216 IFG ,< 6217 035343 200 11 0 00 040155 MOVE AC-1,SRCE-1 6218 035344 312 11 0 00 040750 CAME AC-1,[252525252525] ;IS C(SRCE-1) = 252525252525 6219 IFIDN ,,< 6220 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6221 IFDIF ,,< 6222 035345 002 11 0 00 024201 ER2 AC-1,SN ;C(SRCE-1) WAS CLOBBERED>> 6223 IFLE ,< 6224 CAME SRCE-1,[252525252525] ;IS C(SRCE-1) = 252525252525 6225 IFIDN ,,< 6226 ER2 SRCE-1,SN ;DEST NOT LOADED CORRECTLY> 6227 IFDIF ,,< 6228 ER2 SRCE-1,SN ;C(SRCE-1) WAS CLOBBERED>>^ 6229 GCAM (SRCE,<230703,,603700>)^ 6230 024202 SN=SN+1 6231 IFG ,< 6232 035346 200 11 0 00 040156 MOVE AC-1,SRCE 6233 035347 312 11 0 00 040704 CAME AC-1,[230703,,603700] ;IS C(SRCE) = 230703,,603700 6234 IFIDN ,,< 6235 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6236 IFDIF ,,< 6237 035350 002 11 0 00 024202 ER2 AC-1,SN ;C(SRCE) WAS CLOBBERED>> 6238 IFLE ,< 6239 CAME SRCE,[230703,,603700] ;IS C(SRCE) = 230703,,603700 6240 IFIDN ,,< 6241 ER2 SRCE,SN ;DEST NOT LOADED CORRECTLY> 6242 IFDIF ,,< 6243 ER2 SRCE,SN ;C(SRCE) WAS CLOBBERED>>^ 6244 GCAM (SRCE+1,<770077007700>)^ 6245 024203 SN=SN+1 6246 IFG ,< 6247 035351 200 11 0 00 040157 MOVE AC-1,SRCE+1 6248 035352 312 11 0 00 040751 CAME AC-1,[770077007700] ;IS C(SRCE+1) = 770077007700 6249 IFIDN ,,< 6250 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6251 IFDIF ,,< 6252 035353 002 11 0 00 024203 ER2 AC-1,SN ;C(SRCE+1) WAS CLOBBERED>> 6253 IFLE ,< 6254 CAME SRCE+1,[770077007700] ;IS C(SRCE+1) = 770077007700 6255 IFIDN ,,< 6256 ER2 SRCE+1,SN ;DEST NOT LOADED CORRECTLY> 6257 IFDIF ,,< 6258 ER2 SRCE+1,SN ;C(SRCE+1) WAS CLOBBERED>>^ 6259 GCAM (DEST-1,<070707070707>)^ 6260 024204 SN=SN+1 6261 IFG ,< 6262 MOVE AC-1,DEST-1 6263 CAME AC-1,[070707070707] ;IS C(DEST-1) = 070707070707 6264 IFIDN ,,< 6265 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6266 IFDIF ,,< 6267 ER2 AC-1,SN ;C(DEST-1) WAS CLOBBERED>> DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 66-35 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0166 6268 IFLE ,< 6269 035354 312 03 0 00 040752 CAME DEST-1,[070707070707] ;IS C(DEST-1) = 070707070707 6270 IFIDN ,,< 6271 ER2 DEST-1,SN ;DEST NOT LOADED CORRECTLY> 6272 IFDIF ,,< 6273 035355 002 03 0 00 024204 ER2 DEST-1,SN ;C(DEST-1) WAS CLOBBERED>>^ 6274 GCAM (DEST,<230703,,603700>)^ 6275 024205 SN=SN+1 6276 IFG ,< 6277 MOVE AC-1,DEST 6278 CAME AC-1,[230703,,603700] ;IS C(DEST) = 230703,,603700 6279 IFIDN ,,< 6280 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6281 IFDIF ,,< 6282 ER2 AC-1,SN ;C(DEST) WAS CLOBBERED>> 6283 IFLE ,< 6284 035356 312 04 0 00 040704 CAME DEST,[230703,,603700] ;IS C(DEST) = 230703,,603700 6285 IFIDN ,,< 6286 035357 002 04 0 00 024205 ER2 DEST,SN ;DEST NOT LOADED CORRECTLY> 6287 IFDIF ,,< 6288 ER2 DEST,SN ;C(DEST) WAS CLOBBERED>>^ 6289 GCAM (DEST+1,<552255225522>)^ 6290 024206 SN=SN+1 6291 IFG ,< 6292 MOVE AC-1,DEST+1 6293 CAME AC-1,[552255225522] ;IS C(DEST+1) = 552255225522 6294 IFIDN ,,< 6295 ER2 AC-1,SN ;DEST NOT LOADED CORRECTLY> 6296 IFDIF ,,< 6297 ER2 AC-1,SN ;C(DEST+1) WAS CLOBBERED>> 6298 IFLE ,< 6299 035360 312 05 0 00 040754 CAME DEST+1,[552255225522] ;IS C(DEST+1) = 552255225522 6300 IFIDN ,,< 6301 ER2 DEST+1,SN ;DEST NOT LOADED CORRECTLY> 6302 IFDIF ,,< 6303 035361 002 05 0 00 024206 ER2 DEST+1,SN ;C(DEST+1) WAS CLOBBERED>>^ 6304 035362 321 14 0 00 035330 JUMPL AC+2,G24200 ;LOOP ON ERROR^ DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 67 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0167 6305 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6306 ;- AC RANGE - ZEROS 6307 6308 000014 AC=14 6309 SAVEAC (1,1)^ 6310 035363 201 16 0 00 035363 MOVEI AC+2,. ;SAVE TEST PC 6311 035364 202 16 0 00 030051 MOVEM AC+2,TESTPC 6312 035365 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6313 035366 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6314 6315 020100 SN=20100 6316 000004 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS=&17 6317 000004 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS=&17 6318 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6319 6320 035367 200 14 0 00 040766 G20100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE 6321 ;AND DESTINATION BLOCKS 6322 035370 477 03 0 00 000011 SETOB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF 6323 ;SOURCE BLOCK +1 WITH ONES 6324 035371 403 04 0 00 000005 SETZB SRCE,SRCE+1 ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ZEROS 6325 035372 403 06 0 00 000007 SETZB SRCE+2,SRCE+3 6326 035373 402 00 0 00 000010 SETZM SRCE+4 6327 035374 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6328 020101 SN=SN+1 6329 035375 312 03 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK 6330 ;CLOBBERED? 6331 035376 002 03 0 00 020101 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6332 ;BLOCK WAS CLOBBERED? 6333 020102 SN=SN+1 6334 035377 332 00 0 00 000004 SKIPE DEST ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6335 ;CORRECTLY FROM SOURCE? 6336 035400 002 04 0 00 020102 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6337 ;CORRECTLY FROM SOURCE 6338 020103 SN=SN+1 6339 035401 332 00 0 00 000005 SKIPE DEST+1 ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY 6340 ;FROM SOURCE? 6341 035402 002 05 0 00 020103 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6342 ;CORRECTLY FROM SOURCE 6343 020104 SN=SN+1 6344 035403 332 00 0 00 000006 SKIPE DEST+2 ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY 6345 ;FROM SOURCE? 6346 035404 002 06 0 00 020104 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6347 ;CORRECTLY FROM SOURCE 6348 020105 SN=SN+1 6349 035405 332 00 0 00 000007 SKIPE DEST+3 ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY 6350 ;FROM SOURCE? 6351 035406 002 07 0 00 020105 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6352 ;CORRECTLY FROM SOURCE 6353 020106 SN=SN+1 6354 035407 332 00 0 00 000010 SKIPE DEST+4 ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY 6355 ;FROM SOURCE? 6356 035410 002 10 0 00 020106 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6357 ;CORRECTLY FROM SOURCE 6358 020107 SN=SN+1 6359 035411 312 11 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 67-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0168 6360 ;CLOBBERED? 6361 035412 002 11 0 00 020107 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 6362 ;BLOCK WAS CLOBBERED 6363 035413 321 16 0 00 035367 JUMPL AC+2,G20100 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 68 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0169 6364 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6365 ;- AC RANGE - ONES 6366 6367 000014 AC=14 6368 SAVEAC (1,1)^ 6369 035414 201 16 0 00 035414 MOVEI AC+2,. ;SAVE TEST PC 6370 035415 202 16 0 00 030051 MOVEM AC+2,TESTPC 6371 035416 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6372 035417 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6373 6374 020200 SN=20200 6375 000004 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS=&17 6376 000004 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS=&17 6377 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6378 6379 035420 200 14 0 00 040766 G20200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF SOURCE 6380 ;AND DESTINATION BLOCKS 6381 035421 403 03 0 00 000011 SETZB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE 6382 ;BLOCK +1 WITH ZEROS 6383 035422 477 04 0 00 000005 SETOB SRCE,SRCE+1 ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH ONES 6384 035423 477 06 0 00 000007 SETOB SRCE+2,SRCE+3 6385 035424 476 00 0 00 000010 SETOM SRCE+4 6386 035425 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6387 020201 SN=SN+1 6388 035426 332 00 0 00 000003 SKIPE DEST-1 ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK 6389 ;CLOBBERED? 6390 035427 002 03 0 00 020201 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6391 ;BLOCK WAS CLOBBERED? 6392 020202 SN=SN+1 6393 035430 312 04 0 00 040666 CAME DEST,[-1,,-1] ;WAS FIRST WORD OF DESTINATION BLOCK LOAED CORRECTLY 6394 ;FROM SOURCE? 6395 035431 002 04 0 00 020202 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6396 ;CORRECTLY FROM SOURCE 6397 020203 SN=SN+1 6398 035432 312 05 0 00 040666 CAME DEST+1,[-1,,-1] ;WAS SECOND WORD OF DESTINATION BLOCK LOADED 6399 ;CORRECTLY FROM SOURCE? 6400 035433 002 05 0 00 020203 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6401 ;CORRECTLY FROM SOURCE 6402 020204 SN=SN+1 6403 035434 312 06 0 00 040666 CAME DEST+2,[-1,,-1] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 6404 ;CORRECTLY FROM SOURCE? 6405 035435 002 06 0 00 020204 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6406 ;CORRECTLY FROM SOURCE 6407 020205 SN=SN+1 6408 035436 312 07 0 00 040666 CAME DEST+3,[-1,,-1] ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED 6409 ;CORRECTLY FROM SOURCE? 6410 035437 002 07 0 00 020205 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6411 ;CORRECTLY FROM SOURCE 6412 020206 SN=SN+1 6413 035440 312 10 0 00 040666 CAME DEST+4,[-1,,-1] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED 6414 ;CORRECTLY FROM SOURCE? 6415 035441 002 10 0 00 020206 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6416 ;CORRECTLY FROM SOURCE 6417 020207 SN=SN+1 6418 035442 332 00 0 00 000011 SKIPE DEST+SIZ ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 68-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0170 6419 ;CLOBBERED? 6420 035443 002 11 0 00 020207 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 6421 ;BLOCK WAS CLOBBERED 6422 035444 321 16 0 00 035420 JUMPL AC+2,G20200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 69 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0171 6423 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6424 ;- AC RANGE - SINGLE PATTERN 6425 6426 000014 AC=14 6427 SAVEAC (1,1)^ 6428 035445 201 16 0 00 035445 MOVEI AC+2,. ;SAVE TEST PC 6429 035446 202 16 0 00 030051 MOVEM AC+2,TESTPC 6430 035447 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6431 035450 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6432 6433 020300 SN=20300 6434 000004 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS=&17 6435 000004 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS=&17 6436 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6437 6438 035451 200 14 0 00 040766 G20300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6439 ;SOURCE AND DESTINATION BLOCKS 6440 035452 477 03 0 00 000011 SETOB SRCE-1,SRCE+SIZ ;PRELOAD SOURCE BLOCK -1 AND LAST WORD OF SOURCE 6441 ;BLOCK +1 WITH ONES 6442 035453 200 04 0 00 040704 MOVE SRCE,[230703,,603700] ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH 6443 ;230703,,603700 6444 035454 200 05 0 00 040704 MOVE SRCE+1,[230703,,603700] 6445 035455 200 06 0 00 040704 MOVE SRCE+2,[230703,,603700] 6446 035456 200 07 0 00 040704 MOVE SRCE+3,[230703,,603700] 6447 035457 200 10 0 00 040704 MOVE SRCE+4,[230703,,603700] 6448 035460 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6449 020301 SN=SN+1 6450 035461 312 03 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6451 ;BLOCK CLOBBERED? 6452 035462 002 03 0 00 020301 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6453 ;BLOCK WAS CLOBBERED? 6454 020302 SN=SN+1 6455 035463 312 04 0 00 040704 CAME DEST,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6456 ;CORRECTLY FROM SOURCE? 6457 035464 002 04 0 00 020302 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6458 ;CORRECTLY FROM SOURCE 6459 020303 SN=SN+1 6460 035465 312 05 0 00 040704 CAME DEST+1,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK 6461 ;LOADED CORRECTLY FROM SOURCE? 6462 035466 002 05 0 00 020303 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6463 ;CORRECTLY FROM SOURCE 6464 020304 SN=SN+1 6465 035467 312 06 0 00 040704 CAME DEST+2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK 6466 ;LOADED CORRECTLY FROM SOURCE? 6467 035470 002 06 0 00 020304 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6468 ;CORRECTLY FROM SOURCE 6469 020305 SN=SN+1 6470 035471 312 07 0 00 040704 CAME DEST+3,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK 6471 ;LOADED CORRECTLY FROM SOURCE? 6472 035472 002 07 0 00 020305 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6473 ;CORRECTLY FROM SOURCE 6474 020306 SN=SN+1 6475 035473 312 10 0 00 040704 CAME DEST+4,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK 6476 ;NOT LOADED CORRECTLY FROM SOURCE 6477 035474 002 10 0 00 020306 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 69-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0172 6478 ;CORRECTLY FROM SOURCE 6479 020307 SN=SN+1 6480 035475 312 11 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 6481 ;BLOCK CLOBBERED? 6482 035476 002 11 0 00 020307 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 6483 ;BLOCK WAS CLOBBERED 6484 035477 321 16 0 00 035451 JUMPL AC+2,G20300 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 70 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0173 6485 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6486 ;- AC RANGE - MULTIPLE PATTERN 6487 6488 000014 AC=14 6489 SAVEAC (1,1)^ 6490 035500 201 16 0 00 035500 MOVEI AC+2,. ;SAVE TEST PC 6491 035501 202 16 0 00 030051 MOVEM AC+2,TESTPC 6492 035502 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6493 035503 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6494 6495 020400 SN=20400 6496 000004 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS=&17 6497 000004 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS=&17 6498 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6499 6500 035504 200 14 0 00 040766 G20400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6501 ;SOURCE AND DESTINATION BLOCKS 6502 035505 200 03 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD 6503 ;OF SOURCE BLOCK WITH 230703,,603700 6504 035506 200 04 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 6505 ;252525,,252525 6506 035507 200 05 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK 6507 ;WITH 146314,,631463 6508 035510 200 06 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK 6509 ;WITH 070707,,070707 6510 035511 200 07 0 00 040770 MOVE SRCE+3,[036074,,170360] ;PRELOAD FOURTH WORD OF SOURCE BLOCK 6511 ;WITH 036074,,170360 6512 035512 200 10 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK 6513 ;WITH 017407,,603701 6514 035513 200 11 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD 6515 ;OF SOURCE BLOCK WITH 007603,,607062 6516 035514 251 14 0 00 000010 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6517 020401 SN=SN+1 6518 035515 312 03 0 00 040704 CAME DEST-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6519 ;BLOCK CLOBBERED? 6520 035516 002 03 0 00 020401 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6521 ;BLOCK WAS CLOBBERED? 6522 020402 SN=SN+1 6523 035517 312 04 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6524 ;CORRECTLY FROM SOURCE? 6525 035520 002 04 0 00 020402 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6526 ;CORRECTLY FROM SOURCE 6527 020403 SN=SN+1 6528 035521 312 05 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 6529 ;LOADED CORRECTLY FROM SOURCE? 6530 035522 002 05 0 00 020403 ER2 DEST+1,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6531 ;CORRECTLY FROM SOURCE 6532 020404 SN=SN+1 6533 035523 312 06 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK 6534 ;LOADED CORRECTLY FROM SOURCE? 6535 035524 002 06 0 00 020404 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6536 ;CORRECTLY FROM SOURCE 6537 020405 SN=SN+1 6538 035525 312 07 0 00 040770 CAME DEST+3,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK 6539 ;LOADED CORRECTLY FROM SOURCE? DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 70-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0174 6540 035526 002 07 0 00 020405 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6541 ;CORRECTLY FROM SOURCE 6542 020406 SN=SN+1 6543 035527 312 10 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK 6544 ;LOADED CORRECTLY FROM SOURCE? 6545 035530 002 10 0 00 020406 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6546 ;CORRECTLY FROM SOURCE 6547 020407 SN=SN+1 6548 035531 312 11 0 00 040772 CAME DEST+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 6549 ;BLOCK CLOBBERED? 6550 035532 002 11 0 00 020407 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 6551 ;BLOCK WAS CLOBBERED 6552 035533 321 16 0 00 035504 JUMPL AC+2,G20400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 71 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0175 6553 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6554 ;- NON-AC RANGE - ZEROS 6555 6556 000013 AC=13 6557 SAVEAC (1,1)^ 6558 035534 201 15 0 00 035534 MOVEI AC+2,. ;SAVE TEST PC 6559 035535 202 15 0 00 030051 MOVEM AC+2,TESTPC 6560 035536 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6561 035537 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6562 6563 020500 SN=20500 6564 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1 6565 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1 6566 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6567 6568 035540 200 13 0 00 040746 G20500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6569 ;SOURCE AND DESTINATION BLOCKS 6570 035541 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 6571 ;WITH ONES 6572 035542 402 00 0 00 040156 SETZM SRCE ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH 6573 ;ZEROS 6574 035543 402 00 0 00 040157 SETZM SRCE+1 6575 035544 402 00 0 00 040160 SETZM SRCE+2 6576 035545 402 00 0 00 040161 SETZM SRCE+3 6577 035546 402 00 0 00 040162 SETZM SRCE+4 6578 035547 476 00 0 00 040163 SETOM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6579 ;WITH ONES 6580 035550 251 13 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6581 020501 SN=SN+1 6582 035551 200 11 0 00 040155 MOVE AC-2,DEST-1 6583 035552 312 11 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6584 ;BLOCK CLOBBERED? 6585 035553 002 11 0 00 020501 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6586 ;BLOCK WAS CLOBBERED? 6587 020502 SN=SN+1 6588 035554 200 11 0 00 040156 MOVE AC-2,DEST 6589 035555 332 00 0 00 000011 SKIPE &17 ;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY 6590 ;FROM SOURCE? 6591 035556 002 11 0 00 020502 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6592 ;CORRECTLY FROM SOURCE 6593 020503 SN=SN+1 6594 035557 200 11 0 00 040157 MOVE AC-2,DEST+1 6595 035560 332 00 0 00 000011 SKIPE &17 ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY 6596 ;FROM SOURCE? 6597 035561 002 11 0 00 020503 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6598 ;CORRECTLY FROM SOURCE 6599 020504 SN=SN+1 6600 035562 200 11 0 00 040160 MOVE AC-2,DEST+2 6601 035563 332 00 0 00 000011 SKIPE &17 ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY 6602 ;FROM SOURCE? 6603 035564 002 11 0 00 020504 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6604 ;CORRECTLY FROM SOURCE 6605 020505 SN=SN+1 6606 035565 200 11 0 00 040161 MOVE AC-2,DEST+3 6607 035566 332 00 0 00 000011 SKIPE &17 ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 71-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0176 6608 ;FROM SOURCE? 6609 035567 002 11 0 00 020505 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6610 ;CORRECTLY FROM SOURCE 6611 020506 SN=SN+1 6612 035570 200 11 0 00 040162 MOVE AC-2,DEST+4 6613 035571 332 00 0 00 000011 SKIPE &17 ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY 6614 ;FROM SOURCE? 6615 035572 002 11 0 00 020506 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6616 ;CORRECTLY FROM SOURCE 6617 020507 SN=SN+1 6618 035573 200 11 0 00 040163 MOVE AC-2,DEST+SIZ 6619 035574 312 11 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6620 ;CLOBBERED? 6621 035575 002 11 0 00 020507 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6622 ;WAS CLOBBERED 6623 035576 321 15 0 00 035540 JUMPL AC+2,G20500 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 72 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0177 6624 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6625 ;- NON-AC RANGE - ONES 6626 6627 000012 AC=12 6628 SAVEAC (1,1)^ 6629 035577 201 14 0 00 035577 MOVEI AC+2,. ;SAVE TEST PC 6630 035600 202 14 0 00 030051 MOVEM AC+2,TESTPC 6631 035601 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6632 035602 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6633 6634 020600 SN=20600 6635 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1 6636 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1 6637 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6638 6639 035603 200 12 0 00 040746 G20600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6640 ;SOURCE AND DESTINATION BLOCKS 6641 035604 402 00 0 00 040155 SETZM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 6642 ;WITH ZEROS 6643 035605 476 00 0 00 040156 SETOM SRCE ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK WITH 6644 ;ONES 6645 035606 476 00 0 00 040157 SETOM SRCE+1 6646 035607 476 00 0 00 040160 SETOM SRCE+2 6647 035610 476 00 0 00 040161 SETOM SRCE+3 6648 035611 476 00 0 00 040162 SETOM SRCE+4 6649 035612 402 00 0 00 040163 SETZM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6650 ;WITH ZEROS 6651 035613 251 12 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6652 020601 SN=SN+1 6653 035614 200 10 0 00 040155 MOVE AC-2,DEST-1 6654 035615 332 00 0 00 000010 SKIPE &17 ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION BLOCK 6655 ;CLOBBERED? 6656 035616 002 10 0 00 020601 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6657 ;BLOCK WAS CLOBBERED? 6658 020602 SN=SN+1 6659 035617 200 10 0 00 040156 MOVE AC-2,DEST 6660 035620 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED CORRECTLY 6661 ;FROM SOURCE? 6662 035621 002 10 0 00 020602 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6663 ;CORRECTLY FROM SOURCE 6664 020603 SN=SN+1 6665 035622 200 10 0 00 040157 MOVE AC-2,DEST+1 6666 035623 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS SECOND WORD OF DESTINATION BLOCK LOADED CORRECTLY 6667 ;FROM SOURCE? 6668 035624 002 10 0 00 020603 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6669 ;CORRECTLY FROM SOURCE 6670 020604 SN=SN+1 6671 035625 200 10 0 00 040160 MOVE AC-2,DEST+2 6672 035626 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED CORRECTLY 6673 ;FROM SOURCE? 6674 035627 002 10 0 00 020604 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6675 ;CORRECTLY FROM SOURCE 6676 020605 SN=SN+1 6677 035630 200 10 0 00 040161 MOVE AC-2,DEST+3 6678 035631 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FOURTH WORD OF DESTINATION BLOCK LOADED CORRECTLY DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 72-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0178 6679 ;FROM SOURCE? 6680 035632 002 10 0 00 020605 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6681 ;CORRECTLY FROM SOURCE 6682 020606 SN=SN+1 6683 035633 200 10 0 00 040162 MOVE AC-2,DEST+4 6684 035634 312 10 0 00 040666 CAME AC-2,[-1,,-1] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED CORRECTLY 6685 ;FROM SOURCE? 6686 035635 002 10 0 00 020606 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6687 ;CORRECTLY FROM SOURCE 6688 020607 SN=SN+1 6689 035636 200 10 0 00 040163 MOVE AC-2,DEST+SIZ 6690 035637 332 00 0 00 000010 SKIPE &17 ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6691 ;CLOBBERED? 6692 035640 002 10 0 00 020607 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6693 ;WAS CLOBBERED 6694 035641 321 14 0 00 035603 JUMPL AC+2,G20600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 73 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0179 6695 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6696 ;- NON-AC RANGE - SINGLE PATTERN 6697 6698 000011 AC=11 6699 SAVEAC (1,1)^ 6700 035642 201 13 0 00 035642 MOVEI AC+2,. ;SAVE TEST PC 6701 035643 202 13 0 00 030051 MOVEM AC+2,TESTPC 6702 035644 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6703 035645 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6704 6705 020700 SN=20700 6706 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1 6707 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1 6708 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6709 6710 035646 200 11 0 00 040746 G20700: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6711 ;SOURCE AND DESTINATION BLOCKS 6712 035647 476 00 0 00 040155 SETOM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 6713 ;WITH ONES 6714 035650 200 00 0 00 040704 MOVE [230703,,603700] 6715 035651 202 00 0 00 040156 MOVEM SRCE ;PRELOAD ALL WORDS OF SOURCE BLOCK WITH 230703,,603700 6716 035652 202 00 0 00 040157 MOVEM SRCE+1 6717 035653 202 00 0 00 040160 MOVEM SRCE+2 6718 035654 202 00 0 00 040161 MOVEM SRCE+3 6719 035655 202 00 0 00 040162 MOVEM SRCE+4 6720 035656 476 00 0 00 040163 SETOM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6721 ;WITH ONES 6722 035657 251 11 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6723 020701 SN=SN+1 6724 035660 200 07 0 00 040155 MOVE AC-2,DEST-1 6725 035661 312 07 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6726 ;BLOCK CLOBBERED? 6727 035662 002 07 0 00 020701 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6728 ;BLOCK WAS CLOBBERED? 6729 020702 SN=SN+1 6730 035663 200 07 0 00 040156 MOVE AC-2,DEST 6731 035664 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6732 ;CORRECTLY FROM SOURCE? 6733 035665 002 07 0 00 020702 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6734 ;CORRECTLY FROM SOURCE 6735 020703 SN=SN+1 6736 035666 200 07 0 00 040157 MOVE AC-2,DEST+1 6737 035667 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS SECOND WORD OF DESTINATION BLOCK 6738 ;LOADED CORRECTLY FROM SOURCE? 6739 035670 002 07 0 00 020703 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6740 ;CORRECTLY FROM SOURCE 6741 020704 SN=SN+1 6742 035671 200 07 0 00 040160 MOVE AC-2,DEST+2 6743 035672 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 6744 ;CORRECTLY FROM SOURCE? 6745 035673 002 07 0 00 020704 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6746 ;CORRECTLY FROM SOURCE 6747 020705 SN=SN+1 6748 035674 200 07 0 00 040161 MOVE AC-2,DEST+3 6749 035675 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FOURTH WORD OF DESTINATION BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 73-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0180 6750 ;LOADED CORRECTLY FROM SOURCE? 6751 035676 002 07 0 00 020705 ER2 AC-2,SN ;FOURTH WORD OF DESTINATION BLOCK NOT LOADED CORRECTLY 6752 ;FROM SOURCE 6753 020706 SN=SN+1 6754 035677 200 07 0 00 040162 MOVE AC-2,DEST+4 6755 035700 312 07 0 00 040704 CAME AC-2,[230703,,603700] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED 6756 ;CORRECTLY FROM SOURCE? 6757 035701 002 07 0 00 020706 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6758 ;CORRECTLY FROM SOURCE 6759 020707 SN=SN+1 6760 035702 200 07 0 00 040163 MOVE AC-2,DEST+SIZ 6761 035703 312 07 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6762 ;CLOBBERED? 6763 035704 002 13 0 00 020707 ER2 AC+2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6764 ;WAS CLOBBERED 6765 035705 321 13 0 00 035646 JUMPL AC+2,G20700 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 74 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0181 6766 ;DO A BLT WHERE SOURCE AND DESTINATION BLOCKS HAVE SAME STARTING ADDRESS 6767 ;- NON-AC RANGE - MULTIPLE PATTERN 6768 6769 000010 AC=10 6770 SAVEAC (1,1)^ 6771 035706 201 12 0 00 035706 MOVEI AC+2,. ;SAVE TEST PC 6772 035707 202 12 0 00 030051 MOVEM AC+2,TESTPC 6773 035710 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6774 035711 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6775 6776 021000 SN=21000 6777 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS=BLTBLK+1 6778 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1 6779 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6780 6781 035712 200 10 0 00 040746 G21000: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6782 ;SOURCE AND DESTINATION BLOCKS 6783 035713 200 00 0 00 040704 MOVE [230703,,603700] 6784 035714 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 6785 ;WITH 230703,,603700 6786 035715 200 00 0 00 040750 MOVE [252525,,252525] 6787 035716 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525 6788 035717 200 00 0 00 040767 MOVE [146314,,631463] 6789 035720 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK 6790 ;WITH 146314,,631463 6791 035721 200 00 0 00 040752 MOVE [070707,,070707] 6792 035722 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707 6793 035723 200 00 0 00 040770 MOVE [036074,,170360] 6794 035724 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK 6795 ;WITH 036074,,170360 6796 035725 200 00 0 00 040771 MOVE [017407,,603701] 6797 035726 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701 6798 035727 200 00 0 00 040772 MOVE [007603,,607062] 6799 035730 202 00 0 00 040163 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6800 ;WITH 007603,,607062 6801 035731 251 10 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6802 021001 SN=SN+1 6803 035732 200 06 0 00 040155 MOVE AC-2,DEST-1 6804 035733 312 06 0 00 040704 CAME AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6805 ;BLOCK CLOBBERED? 6806 035734 002 06 0 00 021001 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6807 ;BLOCK WAS CLOBBERED? 6808 021002 SN=SN+1 6809 035735 200 06 0 00 040156 MOVE AC-2,DEST 6810 035736 312 06 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6811 ;CORRECTLY FROM SOURCE? 6812 035737 002 06 0 00 021002 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6813 ;CORRECTLY FROM SOURCE 6814 021003 SN=SN+1 6815 035740 200 06 0 00 040157 MOVE AC-2,DEST+1 6816 035741 312 06 0 00 040767 CAME AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 6817 ;LOADED CORRECTLY FROM SOURCE? 6818 035742 002 06 0 00 021003 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6819 ;CORRECTLY FROM SOURCE 6820 021004 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 74-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0182 6821 035743 200 06 0 00 040160 MOVE AC-2,DEST+2 6822 035744 312 06 0 00 040752 CAME AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 6823 ;CORRECTLY FROM SOURCE? 6824 035745 002 06 0 00 021004 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6825 ;CORRECTLY FROM SOURCE 6826 021005 SN=SN+1 6827 035746 200 06 0 00 040161 MOVE AC-2,DEST+3 6828 035747 312 06 0 00 040770 CAME AC-2,[036074,,170360] ;WAS FOURTH WORD OF DESTINATION BLOCK 6829 ;LOADED CORRECTLY FROM SOURCE? 6830 035750 002 06 0 00 021005 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6831 ;CORRECTLY FROM SOURCE 6832 021006 SN=SN+1 6833 035751 200 06 0 00 040162 MOVE AC-2,DEST+4 6834 035752 312 06 0 00 040771 CAME AC-2,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK LOADED 6835 ;CORRECTLY FROM SOURCE? 6836 035753 002 06 0 00 021006 ER2 AC-2,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 6837 ;CORRECTLY FROM SOURCE 6838 021007 SN=SN+1 6839 035754 200 06 0 00 040163 MOVE AC-2,DEST+SIZ 6840 035755 312 06 0 00 040772 CAME AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 6841 ;BLOCK CLOBBERED? 6842 035756 002 06 0 00 021007 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 6843 ;WAS CLOBBERED 6844 035757 321 12 0 00 035712 JUMPL AC+2,G21000 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 75 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0183 6845 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 6846 ;ADDRESS MINUS ONE - AC RANGE - MULTIPLE PATTERN 6847 6848 000014 AC=14 6849 SAVEAC (1,1)^ 6850 035760 201 16 0 00 035760 MOVEI AC+2,. ;SAVE TEST PC 6851 035761 202 16 0 00 030051 MOVEM AC+2,TESTPC 6852 035762 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6853 035763 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6854 6855 021100 SN=21100 6856 000002 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS= &17 6857 000001 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS= &17 6858 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6859 6860 035764 200 14 0 00 040773 G21100: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6861 ;SOURCE AND DESTINATION BLOCKS 6862 035765 476 00 0 00 000000 SETOM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION 6863 ;BLOCK WITH ONES 6864 035766 200 01 0 00 040704 MOVE DEST,[230703,,603700] ;PRELOAD FIRST WORD OF DESTINATION BLOCK 6865 ;WITH 230703,,603700 6866 035767 200 02 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 6867 ;252525,,252525 6868 035770 200 03 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK 6869 ;WITH 146314,,631463 6870 035771 200 04 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK 6871 ;WITH 070707,,070707 6872 035772 200 05 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK 6873 ;WITH 036074,,170630 6874 035773 200 06 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK 6875 ;WITH 017407,,603701 6876 035774 200 07 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD 6877 ;OF SOURCE BLOCK WITH 007603,,607062 6878 035775 251 14 0 00 000005 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 6879 021101 SN=SN+1 6880 035776 312 00 0 00 040666 CAME DEST-1,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6881 ;BLOCK CLOBBERED? 6882 035777 002 00 0 00 021101 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6883 ;BLOCK WAS CLOBBERED? 6884 021102 SN=SN+1 6885 036000 312 01 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6886 ;CORRECTLY FROM SOURCE? 6887 036001 002 01 0 00 021102 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6888 ;CORRECTLY FROM SOURCE 6889 021103 SN=SN+1 6890 036002 312 02 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 6891 ;LOADED CORRECTLY FROM SOURCE? 6892 036003 002 02 0 00 021103 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6893 ;CORRECTLY FROM SOURCE 6894 021104 SN=SN+1 6895 036004 312 03 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK 6896 ;LOADED CORRECTLY FROM SOURCE? 6897 036005 002 03 0 00 021104 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6898 ;CORRECTLY FROM SOURCE 6899 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 75-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0184 6900 021105 SN=SN+1 6901 036006 312 04 0 00 040774 CAME DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION 6902 ;BLOCK LOADED CORRECTLY FROM SOURCE? 6903 036007 002 04 0 00 021105 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6904 ;CORRECTLY FROM SOURCE 6905 021106 SN=SN+1 6906 036010 312 05 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK 6907 ;LOADED CORRECTLY FROM SOURCE? 6908 036011 002 05 0 00 021106 ER2 DEST+4,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 6909 ;CORRECTLY FROM SOURCE 6910 021107 SN=SN+1 6911 036012 312 06 0 00 040771 CAME DEST+SIZ,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 6912 ;BLOCK CLOBBERED? 6913 036013 002 06 0 00 021107 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 6914 ;BLOCK WAS CLOBBERED 6915 021110 SN=SN+1 6916 036014 312 07 0 00 040772 CAME SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE 6917 ;BLOCK CLOBBERED? 6918 036015 002 07 0 00 021110 ER2 SRCE+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6919 ;WAS CLOBBERED 6920 036016 321 16 0 00 035764 JUMPL AC+2,G21100 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 76 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0185 6921 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 6922 ;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN 6923 6924 000006 AC=6 6925 SAVEAC (1,1)^ 6926 036017 201 10 0 00 036017 MOVEI AC+2,. ;SAVE TEST PC 6927 036020 202 10 0 00 030051 MOVEM AC+2,TESTPC 6928 036021 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6929 036022 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6930 6931 021200 SN=21200 6932 040157 SRCE=BLTBLK+2 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+2 6933 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+1 6934 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 6935 6936 036023 200 06 0 00 040775 G21200: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 6937 ;SOURCE AND DESTINATION BLOCKS 6938 036024 476 00 0 00 040155 SETOM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION 6939 ;BLOCK WITH ONES 6940 036025 200 00 0 00 040704 MOVE [230703,,603700] 6941 036026 202 00 0 00 040156 MOVEM DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK 6942 ;WITH 230703,,603700 6943 036027 200 00 0 00 040750 MOVE [252525,,252525] 6944 036030 202 00 0 00 040157 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525 6945 036031 200 00 0 00 040767 MOVE [146314,,631463] 6946 036032 202 00 0 00 040160 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK 6947 ;WITH 146314,,631463 6948 036033 200 00 0 00 040752 MOVE [070707,,070707] 6949 036034 202 00 0 00 040161 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707 6950 036035 200 00 0 00 040774 MOVE [036074,,170630] 6951 036036 202 00 0 00 040162 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK 6952 ;WITH 036074,,170630 6953 036037 200 00 0 00 040771 MOVE [017407,,603701] 6954 036040 202 00 0 00 040163 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701 6955 036041 200 00 0 00 040772 MOVE [007603,,607062] 6956 036042 202 00 0 00 040164 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 6957 ;WITH 007603,,607062 6958 036043 251 06 0 00 040162 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 77 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0186 6959 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 6960 ;ADDRESS MINUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED) 6961 6962 021201 SN=SN+1 6963 036044 200 04 0 00 040155 MOVE AC-2,DEST-1 6964 036045 312 04 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 6965 ;BLOCK CLOBBERED? 6966 036046 002 04 0 00 021201 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 6967 ;BLOCK WAS CLOBBERED? 6968 021202 SN=SN+1 6969 036047 200 04 0 00 040156 MOVE AC-2,DEST 6970 036050 312 04 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 6971 ;CORRECTLY FROM SOURCE? 6972 036051 002 04 0 00 021202 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 6973 ;CORRECTLY FROM SOURCE 6974 021203 SN=SN+1 6975 036052 200 04 0 00 040157 MOVE AC-2,DEST+1 6976 036053 312 04 0 00 040767 CAME AC-2,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 6977 ;LOADED CORRECTLY FROM SOURCE? 6978 036054 002 04 0 00 021203 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 6979 ;CORRECTLY FROM SOURCE 6980 021204 SN=SN+1 6981 036055 200 04 0 00 040160 MOVE AC-2,DEST+2 6982 036056 312 04 0 00 040752 CAME AC-2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 6983 ;CORRECTLY FROM SOURCE? 6984 036057 002 04 0 00 021204 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 6985 ;CORRECTLY FROM SOURCE 6986 021205 SN=SN+1 6987 036060 200 04 0 00 040161 MOVE AC-2,DEST+3 6988 036061 312 04 0 00 040774 CAME AC-2,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK 6989 ;LOADED CORRECTLY FROM SOURCE? 6990 036062 002 04 0 00 021205 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 6991 ;CORRECTLY FROM SOURCE 6992 021206 SN=SN+1 6993 036063 200 04 0 00 040162 MOVE AC-2,DEST+4 6994 036064 312 04 0 00 040771 CAME AC-2,[017407,,603701] ;WAS LAST WORD OF DESTINATION BLOCK LOADED 6995 ;CORRECTLY FROM SOURCE? 6996 036065 002 04 0 00 021206 ER2 AC-2,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 6997 ;CORRECTLY FROM SOURCE 6998 021207 SN=SN+1 6999 036066 200 04 0 00 040163 MOVE AC-2,DEST+SIZ 7000 036067 312 04 0 00 040771 CAME AC-2,[017407,,603701] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 7001 ;BLOCK CLOBBERED? 7002 036070 002 04 0 00 021207 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7003 ;WAS CLOBBERED 7004 021210 SN=SN+1 7005 036071 200 04 0 00 040164 MOVE AC-2,SRCE+SIZ 7006 036072 312 04 0 00 040772 CAME AC-2,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE 7007 ;BLOCK CLOBBERED? 7008 036073 002 04 0 00 021210 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS 7009 ;CLOBBERED 7010 036074 321 10 0 00 036023 JUMPL AC+2,G21200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 78 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0187 7011 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 7012 ;ADDRESS PLUS ONE - AC RANGE - MULTIPLE PATTERN 7013 7014 000014 AC=14 7015 SAVEAC (1,1)^ 7016 036075 201 16 0 00 036075 MOVEI AC+2,. ;SAVE TEST PC 7017 036076 202 16 0 00 030051 MOVEM AC+2,TESTPC 7018 036077 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7019 036100 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7020 7021 021300 SN=21300 7022 000001 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS= &17 7023 000002 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS= &17 7024 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 7025 7026 036101 200 14 0 00 040776 G21300: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 7027 ;SOURCE AND DESTINATION BLOCKS 7028 036102 200 00 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD 7029 ;OF SOURCE BLOCK WITH 230703,,603700 7030 036103 200 01 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 7031 ;252525,,252525 7032 036104 200 02 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK 7033 ;WITH 146314,,631463 7034 036105 200 03 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK 7035 ;WITH 070707,,070707 7036 036106 200 04 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK 7037 ;WITH 036074,,170630 7038 036107 200 05 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK 7039 ;WITH 017407,,603701 7040 036110 200 06 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD 7041 ;OF SOURCE BLOCK WITH 007603,,607062 7042 036111 476 00 0 00 000007 SETOM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7043 ;WITH ONES 7044 036112 251 14 0 00 000006 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK 7045 021301 SN=SN+1 7046 036113 312 00 0 00 040704 CAME SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE 7047 ;BLOCK CLOBBERED? 7048 036114 002 00 0 00 021301 ER2 SRCE-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7049 ;WAS CLOBBERED 7050 021302 SN=SN+1 7051 036115 312 01 0 00 040750 CAME SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED 7052 036116 002 01 0 00 021302 ER2 SRCE,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED 7053 021303 SN=SN+1 7054 036117 312 02 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 7055 ;CORRECTLY FROM SOURCE? 7056 036120 002 02 0 00 021303 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 7057 ;CORRECTLY FROM SOURCE 7058 021304 SN=SN+1 7059 036121 312 03 0 00 040750 CAME DEST+1,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK 7060 ;LOADED CORRECTLY FROM SOURCE? 7061 036122 002 03 0 00 021304 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 7062 ;CORRECTLY FROM SOURCE 7063 021305 SN=SN+1 7064 036123 312 04 0 00 040750 CAME DEST+2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK 7065 ;LOADED CORRECTLY FROM SOURCE? DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 78-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0188 7066 036124 002 04 0 00 021305 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 7067 ;CORRECTLY FROM SOURCE 7068 021306 SN=SN+1 7069 036125 312 05 0 00 040750 CAME DEST+3,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK 7070 ;LOADED CORRECTLY FROM SOURCE? 7071 036126 002 05 0 00 021306 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 7072 ;CORRECTLY FROM SOURCE 7073 021307 SN=SN+1 7074 036127 312 06 0 00 040750 CAME DEST+4,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK 7075 ;LOADED CORRECTLY FROM SOURCE? 7076 036130 002 06 0 00 021307 ER2 DEST+4,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 7077 ;CORRECTLY FROM SOURCE 7078 021310 SN=SN+1 7079 036131 312 07 0 00 040666 CAME DEST+SIZ,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 7080 ;BLOCK CLOBBERED? 7081 036132 002 07 0 00 021310 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 7082 ;BLOCK WAS CLOBBERED 7083 036133 321 16 0 00 036101 JUMPL AC+2,G21300 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 79 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0189 7084 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 7085 ;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN 7086 7087 000004 AC=4 7088 SAVEAC (1,1)^ 7089 036134 201 06 0 00 036134 MOVEI AC+2,. ;SAVE TEST PC 7090 036135 202 06 0 00 030051 MOVEM AC+2,TESTPC 7091 036136 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7092 036137 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7093 7094 021400 SN=21400 7095 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1 7096 040157 DEST=BLTBLK+2 ;DESTINATION BLOCK STARTING ADDRESS= BLTBLK+2 7097 000005 SIZ=5 ;BLOCK SIZE=5 WORDS 7098 7099 036140 200 04 0 00 040777 G21400: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 7100 ;SOURCE AND DESTINATION BLOCKS 7101 036141 200 00 0 00 040704 MOVE [230703,,603700] 7102 036142 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7103 ;WITH 23703,,603700 7104 036143 200 00 0 00 040750 MOVE [252525,,252525] 7105 036144 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525 7106 036145 200 00 0 00 041000 MOVE [146314,,146314] 7107 036146 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK 7108 ;WITH 146314,,631463 7109 036147 200 00 0 00 040752 MOVE [070707,,070707] 7110 036150 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707 7111 036151 200 00 0 00 040774 MOVE [036074,,170630] 7112 036152 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK 7113 ;WITH 036074,,170630 7114 036153 200 00 0 00 040771 MOVE [017407,,603701] 7115 036154 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701 7116 036155 200 00 0 00 040772 MOVE [007603,,607062] 7117 036156 202 00 0 00 040163 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 7118 ;WITH 007603,,607062 7119 036157 476 00 0 00 040164 SETOM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7120 ;WITH ONES 7121 036160 251 04 0 00 040163 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 80 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0190 7122 ;DO A BLT WHERE DESTINATION STARTING ADDRESS EQUALS SOURCE STARTING 7123 ;ADDRESS PLUS ONE - NON-AC RANGE - MULTIPLE PATTERN (CONTINUED) 7124 7125 021401 SN=SN+1 7126 036161 200 02 0 00 040155 MOVE AC-2,SRCE-1 7127 036162 312 02 0 00 040704 CAME AC-2,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE 7128 ;BLOCK CLOBBERED? 7129 036163 002 02 0 00 021401 ER2 AC-2,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7130 ;WAS CLOBBERED 7131 021402 SN=SN+1 7132 036164 200 02 0 00 040156 MOVE AC-2,SRCE 7133 036165 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED 7134 036166 002 02 0 00 021402 ER2 AC-2,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED 7135 021403 SN=SN+1 7136 036167 200 02 0 00 040157 MOVE AC-2,DEST 7137 036170 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 7138 ;CORRECTLY FROM SOURCE? 7139 036171 002 02 0 00 021403 ER2 AC-2,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 7140 ;CORRECTLY FROM SOURCE 7141 021404 SN=SN+1 7142 036172 200 02 0 00 040160 MOVE AC-2,DEST+1 7143 036173 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS SECOND WORD OF DESTINATION BLOCK 7144 ;LOADED CORRECTLY FROM SOURCE? 7145 036174 002 02 0 00 021404 ER2 AC-2,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 7146 ;CORRECTLY FROM SOURCE 7147 021405 SN=SN+1 7148 036175 200 02 0 00 040161 MOVE AC-2,DEST+2 7149 036176 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 7150 ;CORRECTLY FROM SOURCE? 7151 036177 002 02 0 00 021405 ER2 AC-2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 7152 ;CORRECTLY FROM SOURCE 7153 021406 SN=SN+1 7154 036200 200 02 0 00 040162 MOVE AC-2,DEST+3 7155 036201 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS FOURTH WORD OF DESTINATION BLOCK 7156 ;LOADED CORRECTLY FROM SOURCE? 7157 036202 002 02 0 00 021406 ER2 AC-2,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 7158 ;CORRECTLY FROM SOURCE 7159 021407 SN=SN+1 7160 036203 200 02 0 00 040163 MOVE AC-2,DEST+4 7161 036204 312 02 0 00 040750 CAME AC-2,[252525,,252525] ;WAS LAST WORD OF DESTINATION BLOCK LOADED 7162 ;CORRECTLY FROM SOURCE? 7163 036205 002 02 0 00 021407 ER2 AC-2,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 7164 ;CORRECTLY FROM SOURCE 7165 021410 SN=SN+1 7166 036206 200 02 0 00 040164 MOVE AC-2,DEST+SIZ 7167 036207 312 02 0 00 040666 CAME AC-2,[-1,,-1] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7168 ;CLOBBERED? 7169 036210 002 02 0 00 021410 ER2 AC-2,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7170 ;WAS CLOBBERED 7171 036211 321 06 0 00 036140 JUMPL AC+2,G21400 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 81 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0191 7172 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK 7173 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN 7174 7175 000014 AC=14 7176 SAVEAC (1,1)^ 7177 036212 201 16 0 00 036212 MOVEI AC+2,. ;SAVE TEST PC 7178 036213 202 16 0 00 030051 MOVEM AC+2,TESTPC 7179 036214 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7180 036215 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7181 7182 021500 SN=21500 7183 000001 SRCE=&17 ;SOURCE BLOCK STARTING ADDRESS=&17 7184 040156 DEST=BLTBLK+1 ;DESTINATION BLOCK STARTING ADDRESS=BLTBLK+1 7185 000012 SIZ=^D10 ;BLOCK SIZE=10 WORDS 7186 7187 036216 200 14 0 00 041001 G21500: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 7188 ;SOURCE AND DESTINATION BLOCKS 7189 036217 200 00 0 00 040704 MOVE SRCE-1,[230703,,603700] ;PRELOAD WORD PRECEEDING FIRST WORD 7190 ;OF SOURCE BLOCK WITH 230703,,603700 7191 036220 200 01 0 00 040750 MOVE SRCE,[252525,,252525] ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 7192 ;252525,,252525 7193 036221 200 02 0 00 040767 MOVE SRCE+1,[146314,,631463] ;PRELOAD SECOND WORD OF SOURCE BLOCK 7194 ;WITH 146314,,631463 7195 036222 200 03 0 00 040752 MOVE SRCE+2,[070707,,070707] ;PRELOAD THIRD WORD OF SOURCE BLOCK 7196 ;WITH 070707,,070707 7197 036223 200 04 0 00 040774 MOVE SRCE+3,[036074,,170630] ;PRELOAD FOURTH WORD OF SOURCE BLOCK 7198 ;WITH 036074,,170630 7199 036224 200 05 0 00 040771 MOVE SRCE+4,[017407,,603701] ;PRELOAD FIFTH WORD OF SOURCE BLOCK 7200 ;WITH 017407,,603701 7201 036225 200 06 0 00 041002 MOVE SRCE+5,[007700,,770077] ;PRELOAD SIXTH WORD OF SOURCE BLOCK 7202 ;WITH 007700,,770077 7203 036226 200 07 0 00 041003 MOVE SRCE+6,[003760,,077401] ;PRELOAD SEVENTH WORD OF SOURCE BLOCK 7204 ;WITH 003760,,077401 7205 036227 200 10 0 00 041004 MOVE SRCE+7,[001774,,007760] ;PRELOAD EIGHTH WORD OF SOURCE BLOCK 7206 ;WITH 001774,,007760 7207 036230 200 11 0 00 041005 MOVE SRCE+^D8,[000777,,000777] ;PRELOAD NINTH WORD OF SOURCE BLOCK 7208 ;WITH 000777,,000777 7209 036231 200 12 0 00 041006 MOVE SRCE+^D9,[000377,,600077] ;PRELOAD TENTH WORD OF SOURCE BLOCK 7210 ;WITH 000377,,600077 7211 036232 200 13 0 00 040772 MOVE SRCE+SIZ,[007603,,607062] ;PRELOAD WORD FOLLOWING LAST WORD 7212 ;OF SOURCE BLOCK WITH 007603,,607062 7213 036233 202 00 0 00 041145 MOVEM GSVAC0# 7214 036234 561 00 0 00 040155 HRROI DEST-1 7215 036235 202 00 0 00 040155 MOVEM DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION 7216 ;BLOCK WITH DEST-1 7217 036236 561 00 0 00 040156 HRROI DEST 7218 036237 202 00 0 00 040156 MOVEM DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST 7219 036240 561 00 0 00 040157 HRROI DEST+1 7220 036241 202 00 0 00 040157 MOVEM DEST+1 ;PRELOAD SECOND WORD OF DESTINATION BLOCK WITH DEST+1 7221 036242 561 00 0 00 040160 HRROI DEST+2 7222 036243 202 00 0 00 040160 MOVEM DEST+2 ;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2 7223 036244 561 00 0 00 040161 HRROI DEST+3 7224 036245 202 00 0 00 040161 MOVEM DEST+3 ;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3 7225 036246 561 00 0 00 040162 HRROI DEST+4 7226 036247 202 00 0 00 040162 MOVEM DEST+4 ;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 81-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0192 7227 036250 561 00 0 00 040163 HRROI DEST+5 7228 036251 202 00 0 00 040163 MOVEM DEST+5 ;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5 7229 036252 561 00 0 00 040164 HRROI DEST+6 7230 036253 202 00 0 00 040164 MOVEM DEST+6 ;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6 7231 036254 561 00 0 00 040165 HRROI DEST+7 7232 036255 202 00 0 00 040165 MOVEM DEST+7 ;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7 7233 036256 561 00 0 00 040166 HRROI DEST+^D8 7234 036257 202 00 0 00 040166 MOVEM DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8 7235 036260 561 00 0 00 040167 HRROI DEST+^D9 7236 036261 202 00 0 00 040167 MOVEM DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9 7237 036262 561 00 0 00 040170 HRROI DEST+SIZ 7238 036263 202 00 0 00 040170 MOVEM DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7239 ;WITH DEST+SIZ 7240 036264 200 00 0 00 041145 MOVE GSVAC0 7241 7242 036265 251 14 0 00 040167 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 82 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0193 7243 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK 7244 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED) 7245 7246 021501 SN=SN+1 7247 036266 312 00 0 00 040704 CAME SRCE-1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE 7248 ;BLOCK CLOBBERED? 7249 036267 002 00 0 00 021501 ER2 SRCE-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7250 ;WAS CLOBBERED 7251 021502 SN=SN+1 7252 036270 312 01 0 00 040750 CAME SRCE,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED 7253 036271 002 01 0 00 021502 ER2 SRCE,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED 7254 021503 SN=SN+1 7255 036272 312 02 0 00 040767 CAME SRCE+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED? 7256 036273 002 02 0 00 021503 ER2 SRCE+1,SN ;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED 7257 021504 SN=SN+1 7258 036274 312 03 0 00 040752 CAME SRCE+2,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED? 7259 036275 002 03 0 00 021504 ER2 SRCE+2,SN ;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED 7260 021505 SN=SN+1 7261 036276 312 04 0 00 040774 CAME SRCE+3,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED? 7262 036277 002 04 0 00 021505 ER2 SRCE+3,SN ;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED 7263 021506 SN=SN+1 7264 036300 312 05 0 00 040771 CAME SRCE+4,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED? 7265 036301 002 05 0 00 021506 ER2 SRCE+4,SN ;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED 7266 021507 SN=SN+1 7267 036302 312 06 0 00 041002 CAME SRCE+5,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED? 7268 036303 002 06 0 00 021507 ER2 SRCE+5,SN ;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED 7269 021510 SN=SN+1 7270 036304 312 07 0 00 041003 CAME SRCE+6,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED? 7271 036305 002 07 0 00 021510 ER2 SRCE+6,SN ;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED 7272 021511 SN=SN+1 7273 036306 312 10 0 00 041004 CAME SRCE+7,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED? 7274 036307 002 10 0 00 021511 ER2 SRCE+7,SN ;FAIL IF EIGHTH WORD OF SOURCE BLOCK WAS CLOBBERED 7275 021512 SN=SN+1 7276 036310 312 11 0 00 041005 CAME SRCE+^D8,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED? 7277 036311 002 11 0 00 021512 ER2 SRCE+^D8,SN ;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED 7278 021513 SN=SN+1 7279 036312 312 12 0 00 041006 CAME SRCE+^D9,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED? 7280 036313 002 12 0 00 021513 ER2 SRCE+^D9,SN ;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED 7281 021514 SN=SN+1 7282 036314 312 13 0 00 040772 CAME SRCE+SIZ,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE 7283 ;BLOCK CLOBBERED? 7284 036315 002 13 0 00 021514 ER2 SRCE+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK 7285 ;WAS CLOBBERED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 83 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0194 7286 ;DO A BLT WHERE SOURCE BLOCK HAS AC ADDRESS AND DESTINATION BLOCK 7287 ;HAS NON-AC ADDRESS- MULTIPLE PATTERN (CONTINUED) 7288 7289 021515 SN=SN+1 7290 036316 200 15 0 00 040155 MOVE AC+1,DEST-1 7291 036317 312 15 0 00 041007 CAME AC+1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 7292 ;BLOCK CLOBBERED? 7293 036320 002 15 0 00 021515 ER2 AC+1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 7294 ;BLOCK WAS CLOBBERED? 7295 021516 SN=SN+1 7296 036321 200 15 0 00 040156 MOVE AC+1,DEST 7297 036322 312 15 0 00 040750 CAME AC+1,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 7298 ;CORRECTLY FROM SOURCE? 7299 036323 002 15 0 00 021516 ER2 AC+1,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 7300 ;CORRECTLY FROM SOURCE 7301 021517 SN=SN+1 7302 036324 200 15 0 00 040157 MOVE AC+1,DEST+1 7303 036325 312 15 0 00 040767 CAME AC+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 7304 ;LOADED CORRECTLY FROM SOURCE? 7305 036326 002 15 0 00 021517 ER2 AC+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 7306 ;CORRECTLY FROM SOURCE 7307 021520 SN=SN+1 7308 036327 200 15 0 00 040160 MOVE AC+1,DEST+2 7309 036330 312 15 0 00 040752 CAME AC+1,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK LOADED 7310 ;CORRECTLY FROM SOURCE? 7311 036331 002 15 0 00 021520 ER2 AC+1,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 7312 ;CORRECTLY FROM SOURCE 7313 021521 SN=SN+1 7314 036332 200 15 0 00 040161 MOVE AC+1,DEST+3 7315 036333 312 15 0 00 040774 CAME AC+1,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK 7316 ;LOADED CORRECTLY FROM SOURCE? 7317 036334 002 15 0 00 021521 ER2 AC+1,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 7318 ;CORRECTLY FROM SOURCE 7319 021522 SN=SN+1 7320 036335 200 15 0 00 040162 MOVE AC+1,DEST+4 7321 036336 312 15 0 00 040771 CAME AC+1,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK 7322 ;LOADED CORRECTLY FROM SOURCE? 7323 036337 002 15 0 00 021522 ER2 AC+1,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 7324 ;CORRECTLY FROM SOURCE 7325 021523 SN=SN+1 7326 036340 200 15 0 00 040163 MOVE AC+1,DEST+5 7327 036341 312 15 0 00 041002 CAME AC+1,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK LOADED 7328 ;CORRECTLY FROM SOURCE? 7329 036342 002 15 0 00 021523 ER2 AC+1,SN ;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED 7330 ;CORRECTLY FROM SOURCE 7331 021524 SN=SN+1 7332 036343 200 15 0 00 040164 MOVE AC+1,DEST+6 7333 036344 312 15 0 00 041003 CAME AC+1,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK 7334 ;LOADED CORRECTLY FROM SOURCE? 7335 036345 002 15 0 00 021524 ER2 AC+1,SN ;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED 7336 ;CORRECTLY FROM SOURCE 7337 021525 SN=SN+1 7338 036346 200 15 0 00 040165 MOVE AC+1,DEST+7 7339 036347 312 15 0 00 041004 CAME AC+1,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK 7340 ;LOADED CORRECTLY FROM SOURCE? DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 83-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0195 7341 036350 002 15 0 00 021525 ER2 AC+1,SN ;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED 7342 ;CORRECTLY FROM SOURCE 7343 021526 SN=SN+1 7344 036351 200 15 0 00 040166 MOVE AC+1,DEST+^D8 7345 036352 312 15 0 00 041005 CAME AC+1,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK LOADED 7346 ;CORRECTLY FROM SOURCE? 7347 036353 002 15 0 00 021526 ER2 AC+1,SN ;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED 7348 ;CORRECTLY FROM SOURCE 7349 021527 SN=SN+1 7350 036354 200 15 0 00 040167 MOVE AC+1,DEST+^D9 7351 036355 312 15 0 00 041006 CAME AC+1,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK LOADED 7352 ;CORRECTLY FROM SOURCE? 7353 036356 002 15 0 00 021527 ER2 AC+1,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 7354 ;CORRECTLY FROM SOURCE 7355 021530 SN=SN+1 7356 036357 200 15 0 00 040170 MOVE AC+1,DEST+SIZ 7357 036360 312 15 0 00 041010 CAME AC+1,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 7358 ;BLOCK CLOBBERED? 7359 036361 002 15 0 00 021530 ER2 AC+1,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION BLOCK 7360 ;WAS CLOBBERED 7361 036362 321 16 0 00 036216 JUMPL AC+2,G21500 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 84 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0196 7362 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK 7363 ;HAS AC ADDRESS - MULTIPLE PATTERN 7364 7365 000014 AC=14 7366 SAVEAC (1,1)^ 7367 036363 201 16 0 00 036363 MOVEI AC+2,. ;SAVE TEST PC 7368 036364 202 16 0 00 030051 MOVEM AC+2,TESTPC 7369 036365 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7370 036366 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7371 7372 021600 SN=21600 7373 040156 SRCE=BLTBLK+1 ;SOURCE BLOCK STARTING ADDRESS= BLTBLK+1 7374 000001 DEST=&17 ;DESTINATION BLOCK STARTING ADDRESS= &17 7375 000012 SIZ=^D10 ;BLOCK SIZE=10 WORDS 7376 7377 036367 200 14 0 00 041011 G21600: MOVE AC,[SRCE,,DEST] ;PRELOAD AC WITH STARTING ADDRESSES OF 7378 ;SOURCE AND DESTINATION BLOCKS 7379 036370 200 00 0 00 040704 MOVE [230703,,603700] 7380 036371 202 00 0 00 040155 MOVEM SRCE-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7381 ;WITH 230703,,603700 7382 036372 200 00 0 00 040750 MOVE [252525,,252525] 7383 036373 202 00 0 00 040156 MOVEM SRCE ;PRELOAD FIRST WORD OF SOURCE BLOCK WITH 252525,,252525 7384 036374 200 00 0 00 040767 MOVE [146314,,631463] 7385 036375 202 00 0 00 040157 MOVEM SRCE+1 ;PRELOAD SECOND WORD OF SOURCE BLOCK 7386 ;WITH 146314,,631463 7387 036376 200 00 0 00 040752 MOVE [070707,,070707] 7388 036377 202 00 0 00 040160 MOVEM SRCE+2 ;PRELOAD THIRD WORD OF SOURCE BLOCK WITH 070707,,070707 7389 036400 200 00 0 00 040774 MOVE [036074,,170630] 7390 036401 202 00 0 00 040161 MOVEM SRCE+3 ;PRELOAD FOURTH WORD OF SOURCE BLOCK 7391 ;WITH 036074,,170630 7392 036402 200 00 0 00 040771 MOVE [017407,,603701] 7393 036403 202 00 0 00 040162 MOVEM SRCE+4 ;PRELOAD 7394 ;FIFTH WORD OF SOURCE BLOCK WITH 017407,,603701 7395 036404 200 00 0 00 041002 MOVE [007700,,770077] 7396 036405 202 00 0 00 040163 MOVEM SRCE+5 ;PRELOAD SIXTH WORD OF SOURCE BLOCK WITH 007700,,770077 7397 036406 200 00 0 00 041003 MOVE [003760,,077401] 7398 036407 202 00 0 00 040164 MOVEM SRCE+6 ;PRELOAD SEVENTH WORD OF SOURCE BLOCK 7399 ;WITH 003760,,077401 7400 036410 200 00 0 00 041004 MOVE [001774,,007760] 7401 036411 202 00 0 00 040165 MOVEM SRCE+7 ;PRELOAD EIGHTH WORD OF SOURCE BLOCK 7402 ;WITH 001774,,007760 7403 036412 200 00 0 00 041005 MOVE [000777,,000777] 7404 036413 202 00 0 00 040166 MOVEM SRCE+^D8 ;PRELOAD NINTH WORD OF SOURCE BLOCK WITH 000777,,000777 7405 036414 200 00 0 00 041006 MOVE [000377,,600077] 7406 036415 202 00 0 00 040167 MOVEM SRCE+^D9 ;PRELOAD TENTH WORD OF SOURCE BLOCK WITH 000377,,600077 7407 036416 200 00 0 00 040772 MOVE [007603,,607062] 7408 036417 202 00 0 00 040170 MOVEM SRCE+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF SOURCE BLOCK 7409 ;WITH 007603,,607062 7410 036420 561 00 0 00 000000 HRROI DEST-1,DEST-1 ;PRELOAD WORD PRECEEDING FIRST WORD OF DESTINATION 7411 ;BLOCK WITH DEST-1 7412 036421 561 01 0 00 000001 HRROI DEST,DEST ;PRELOAD FIRST WORD OF DESTINATION BLOCK WITH DEST 7413 036422 561 02 0 00 000002 HRROI DEST+1,DEST+1 ;PRELOAD SECOND WORD OF DESTINATION BLOCK 7414 ;WITH DEST+1,DEST+1 7415 036423 561 03 0 00 000003 HRROI DEST+2,DEST+2 ;PRELOAD THIRD WORD OF DESTINATION BLOCK WITH DEST+2 7416 036424 561 04 0 00 000004 HRROI DEST+3,DEST+3 ;PRELOAD FOURTH WORD OF DESTINATION BLOCK WITH DEST+3 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 84-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0197 7417 036425 561 05 0 00 000005 HRROI DEST+4,DEST+4 ;PRELOAD FIFTH WORD OF DESTINATION BLOCK WITH DEST+4 7418 036426 561 06 0 00 000006 HRROI DEST+5,DEST+5 ;PRELOAD SIXTH WORD OF DESTINATION BLOCK WITH DEST+5 7419 036427 561 07 0 00 000007 HRROI DEST+6,DEST+6 ;PRELOAD SEVENTH WORD OF DESTINATION BLOCK WITH DEST+6 7420 036430 561 10 0 00 000010 HRROI DEST+7,DEST+7 ;PRELOAD EIGHTH WORD OF DESTINATION BLOCK WITH DEST+7 7421 036431 561 11 0 00 000011 HRROI DEST+^D8,DEST+^D8 ;PRELOAD NINTH WORD OF DESTINATION BLOCK WITH DEST+8 7422 036432 561 12 0 00 000012 HRROI DEST+^D9,DEST+^D9 ;PRELOAD TENTH WORD OF DESTINATION BLOCK WITH DEST+9 7423 036433 561 13 0 00 000013 HRROI DEST+SIZ,DEST+SIZ ;PRELOAD WORD FOLLOWING LAST WORD OF DESTINATION 7424 ;BLOCK WITH DEST+SIZ 7425 036434 251 14 0 00 000012 BLT AC,DEST+SIZ-1 ;*BLT SHOULD LOAD DESTINATION BLOCK FROM SOURCE BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 85 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0198 7426 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK 7427 ;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED) 7428 7429 021601 SN=SN+1 7430 036435 200 15 0 00 040155 MOVE AC+1,SRCE-1 7431 036436 312 15 0 00 040704 CAME AC+1,[230703,,603700] ;WAS WORD PRECEEDING FIRST WORD OF SOURCE 7432 ;BLOCK CLOBBERED? 7433 036437 002 15 0 00 021601 ER2 AC+1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF SOURCE BLOCK 7434 ;WAS CLOBBERED 7435 021602 SN=SN+1 7436 036440 200 15 0 00 040156 MOVE AC+1,SRCE 7437 036441 312 15 0 00 040750 CAME AC+1,[252525,,252525] ;WAS FIRST WORD OF SOURCE BLOCK CLOBBERED 7438 036442 002 15 0 00 021602 ER2 AC+1,SN ;FAIL IF FIRST WORD OF SOURCE BLOCK WAS CLOBBERED 7439 021603 SN=SN+1 7440 036443 200 15 0 00 040157 MOVE AC+1,SRCE+1 7441 036444 312 15 0 00 040767 CAME AC+1,[146314,,631463] ;WAS SECOND WORD OF SOURCE BLOCK CLOBBERED? 7442 036445 002 15 0 00 021603 ER2 AC+1,SN ;FAIL IF SECOND WORD OF SOURCE BLOCK WAS CLOBBERED 7443 021604 SN=SN+1 7444 036446 200 15 0 00 040160 MOVE AC+1,SRCE+2 7445 036447 312 15 0 00 040752 CAME AC+1,[070707,,070707] ;WAS THIRD WORD OF SOURCE BLOCK CLOBBERED? 7446 036450 002 15 0 00 021604 ER2 AC+1,SN ;FAIL IF THIRD WORD OF SOURCE BLOCK WAS CLOBBERED 7447 021605 SN=SN+1 7448 036451 200 15 0 00 040161 MOVE AC+1,SRCE+3 7449 036452 312 15 0 00 040774 CAME AC+1,[036074,,170630] ;WAS FOURTH WORD OF SOURCE BLOCK CLOBBERED? 7450 036453 002 15 0 00 021605 ER2 AC+1,SN ;FAIL IF FOURTH WORD OF SOURCE BLOCK WAS CLOBBERED 7451 021606 SN=SN+1 7452 036454 200 15 0 00 040162 MOVE AC+1,SRCE+4 7453 036455 312 15 0 00 040771 CAME AC+1,[017407,,603701] ;WAS FIFTH WORD OF SOURCE BLOCK CLOBBERED? 7454 036456 002 15 0 00 021606 ER2 AC+1,SN ;FAIL IF FIFTH WORD OF SOURCE BLOCK WAS CLOBBERED 7455 021607 SN=SN+1 7456 036457 200 15 0 00 040163 MOVE AC+1,SRCE+5 7457 036460 312 15 0 00 041002 CAME AC+1,[007700,,770077] ;WAS SIXTH WORD OF SOURCE BLOCK CLOBBERED? 7458 036461 002 15 0 00 021607 ER2 AC+1,SN ;FAIL IF SIXTH WORD OF SOURCE BLOCK WAS CLOBBERED 7459 021610 SN=SN+1 7460 036462 200 15 0 00 040164 MOVE AC+1,SRCE+6 7461 036463 312 15 0 00 041003 CAME AC+1,[003760,,077401] ;WAS SEVENTH WORD OF SOURCE BLOCK CLOBBERED? 7462 036464 002 15 0 00 021610 ER2 AC+1,SN ;FAIL IF SEVENTH WORD OF SOURCE BLOCK WAS CLOBBERED 7463 021611 SN=SN+1 7464 036465 200 15 0 00 040165 MOVE AC+1,SRCE+7 7465 036466 312 15 0 00 041004 CAME AC+1,[001774,,007760] ;WAS EIGHTH WORD OF SOURCE BLOCK CLOBBERED? 7466 036467 002 15 0 00 021611 ER2 AC+1,SN ;FAIL IF EIGTH WORD OF SOURCE BLOCK WAS CLOBBERED 7467 021612 SN=SN+1 7468 036470 200 15 0 00 040166 MOVE AC+1,SRCE+^D8 7469 036471 312 15 0 00 041005 CAME AC+1,[000777,,000777] ;WAS NINTH WORD OF SOURCE BLOCK CLOBBERED? 7470 036472 002 15 0 00 021612 ER2 AC+1,SN ;FAIL IF NINTH WORD OF SOURCE BLOCK WAS CLOBBERED 7471 021613 SN=SN+1 7472 036473 200 15 0 00 040167 MOVE AC+1,SRCE+^D9 7473 036474 312 15 0 00 041006 CAME AC+1,[000377,,600077] ;WAS LAST WORD OF SOURCE BLOCK CLOBBERED? 7474 036475 002 15 0 00 021613 ER2 AC+1,SN ;FAIL IF LAST WORD OF SOURCE BLOCK WAS CLOBBERED 7475 021614 SN=SN+1 7476 036476 200 15 0 00 040170 MOVE AC+1,SRCE+SIZ 7477 036477 312 15 0 00 040772 CAME AC+1,[007603,,607062] ;WAS WORD FOLLOWING LAST WORD OF SOURCE 7478 ;BLOCK CLOBBERED? 7479 036500 002 15 0 00 021614 ER2 AC+1,SN ;FAIL IF WORD FOLLOWING LAST WORD OF SOURCE BLOCK WAS 7480 ;CLOBBERED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 86 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0199 7481 ;DO A BLT WHERE SOURCE BLOCK HAS NON-AC ADDRESS AND DESTINATION BLOCK 7482 ;HAS AC ADDRESS - MULTIPLE PATTERN (CONTINUED) 7483 7484 021615 SN=SN+1 7485 036501 312 00 0 00 041012 CAME DEST-1,[-1,,DEST-1] ;WAS WORD PRECEEDING FIRST WORD OF DESTINATION 7486 ;BLOCK CLOBBERED? 7487 036502 002 00 0 00 021615 ER2 DEST-1,SN ;FAIL IF WORD PRECEEDING FIRST WORD OF DESTINATION 7488 ;BLOCK WAS CLOBBERED? 7489 021616 SN=SN+1 7490 036503 312 01 0 00 040750 CAME DEST,[252525,,252525] ;WAS FIRST WORD OF DESTINATION BLOCK LOADED 7491 ;CORRECTLY FROM SOURCE? 7492 036504 002 01 0 00 021616 ER2 DEST,SN ;FAIL IF FIRST WORD OF DESTINATION BLOCK NOT LOADED 7493 ;CORRECTLY FROM SOURCE 7494 021617 SN=SN+1 7495 036505 312 02 0 00 040767 CAME DEST+1,[146314,,631463] ;WAS SECOND WORD OF DESTINATION BLOCK 7496 ;LOADED CORRECTLY FROM SOURCE? 7497 036506 002 02 0 00 021617 ER2 DEST+1,SN ;FAIL IF SECOND WORD OF DESTINATION BLOCK NOT LOADED 7498 ;CORRECTLY FROM SOURCE 7499 021620 SN=SN+1 7500 036507 312 03 0 00 040752 CAME DEST+2,[070707,,070707] ;WAS THIRD WORD OF DESTINATION BLOCK 7501 ;LOADED CORRECTLY FROM SOURCE? 7502 036510 002 03 0 00 021620 ER2 DEST+2,SN ;FAIL IF THIRD WORD OF DESTINATION BLOCK NOT LOADED 7503 ;CORRECTLY FROM SOURCE 7504 021621 SN=SN+1 7505 036511 312 04 0 00 040774 CAME DEST+3,[036074,,170630] ;WAS FOURTH WORD OF DESTINATION BLOCK 7506 ;LOADED CORRECTLY FROM SOURCE? 7507 036512 002 04 0 00 021621 ER2 DEST+3,SN ;FAIL IF FOURTH WORD OF DESTINATION BLOCK NOT LOADED 7508 ;CORRECTLY FROM SOURCE 7509 021622 SN=SN+1 7510 036513 312 05 0 00 040771 CAME DEST+4,[017407,,603701] ;WAS FIFTH WORD OF DESTINATION BLOCK 7511 ;LOADED CORRECTLY FROM SOURCE? 7512 036514 002 05 0 00 021622 ER2 DEST+4,SN ;FAIL IF FIFTH WORD OF DESTINATION BLOCK NOT LOADED 7513 ;CORRECTLY FROM SOURCE 7514 021623 SN=SN+1 7515 036515 312 06 0 00 041002 CAME DEST+5,[007700,,770077] ;WAS SIXTH WORD OF DESTINATION BLOCK 7516 ;LOADED CORRECTLY FROM SOURCE? 7517 036516 002 06 0 00 021623 ER2 DEST+5,SN ;FAIL IF SIXTH WORD OF DESTINATION BLOCK NOT LOADED 7518 ;CORRECTLY FROM SOURCE 7519 021624 SN=SN+1 7520 036517 312 07 0 00 041003 CAME DEST+6,[003760,,077401] ;WAS SEVENTH WORD OF DESTINATION BLOCK 7521 ;LOADED CORRECTLY FROM SOURCE? 7522 036520 002 07 0 00 021624 ER2 DEST+6,SN ;FAIL IF SEVENTH WORD OF DESTINATION BLOCK NOT LOADED 7523 ;CORRECTLY FROM SOURCE 7524 021625 SN=SN+1 7525 036521 312 10 0 00 041004 CAME DEST+7,[001774,,007760] ;WAS EIGHTH WORD OF DESTINATION BLOCK 7526 ;LOADED CORRECTLY FROM SOURCE? 7527 036522 002 10 0 00 021625 ER2 DEST+7,SN ;FAIL IF EIGHTH WORD OF DESTINATION BLOCK NOT LOADED 7528 ;CORRECTLY FROM SOURCE 7529 021626 SN=SN+1 7530 036523 312 11 0 00 041005 CAME DEST+^D8,[000777,,000777] ;WAS NINTH WORD OF DESTINATION BLOCK 7531 ;LOADED CORRECTLY FROM SOURCE? 7532 036524 002 11 0 00 021626 ER2 DEST+^D8,SN ;FAIL IF NINTH WORD OF DESTINATION BLOCK NOT LOADED 7533 ;CORRECTLY FROM SOURCE 7534 021627 SN=SN+1 7535 036525 312 12 0 00 041006 CAME DEST+^D9,[000377,,600077] ;WAS LAST WORD OF DESTINATION BLOCK DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 86-1 DSKAM1 MAC 29-Mar-78 10:18 PART II - GENERAL BLOCK TRANSFER TEST SEQ 0200 7536 ;LOADED CORRECTLY FROM SOURCE? 7537 036526 002 12 0 00 021627 ER2 DEST+^D9,SN ;FAIL IF LAST WORD OF DESTINATION BLOCK NOT LOADED 7538 ;CORRECTLY FROM SOURCE 7539 021630 SN=SN+1 7540 036527 312 13 0 00 041013 CAME DEST+SIZ,[-1,,DEST+SIZ] ;WAS WORD FOLLOWING LAST WORD OF DESTINATION 7541 ;BLOCK CLOBBERED? 7542 036530 002 13 0 00 021630 ER2 DEST+SIZ,SN ;FAIL IF WORD FOLLOWING LAST WORD OF DESTINATION 7543 ;BLOCK WAS CLOBBERED 7544 036531 321 16 0 00 036367 JUMPL AC+2,G21600 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0201 7545 SUBTTL PART III - GENERAL JFFO TEST 7546 7547 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0 7548 7549 030100 G30000: SN=30100 7550 777777 777777 AC=-1 7551 7552 036532 201 00 0 00 041014 MOVEI [ASCIZ/JFFO NO-JUMP FAILED/] 7553 036533 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTOR 7554 7555 G30100: REPEAT ^D13, 7556 <;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7557 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7558 7559 SN=SN+1 7560 AC=&17 7561 SAVEAC (1,1) 7562 7563 SETZM AC ;CLEAR AC 7564 SETOM &17 ;INITIALIZE AC+1 7565 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7566 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7567 ER2 AC,SN ;ERROR IF JFFO JUMPED 7568 SKIPE AC ;EXAMINE AC 7569 ER3 AC,SN ;C(AC) WAS CLOBBERED 7570 SKIPE &17 ;EXAMINE AC+1 7571 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7572 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7573 > 7574 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7575 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7576 7577 030101 SN=SN+1 7578 000000 AC=&17 7579 SAVEAC (1,1)^ 7580 036534 201 02 0 00 036534 MOVEI AC+2,. ;SAVE TEST PC 7581 036535 202 02 0 00 030051 MOVEM AC+2,TESTPC 7582 036536 201 02 0 00 000002 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7583 036537 202 02 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7584 7585 036540 402 00 0 00 000000 SETZM AC ;CLEAR AC 7586 036541 476 00 0 00 000001 SETOM &17 ;INITIALIZE AC+1 7587 036542 243 00 0 00 036544 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7588 036543 254 00 0 00 036545 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7589 036544 002 00 0 00 030101 ER2 AC,SN ;ERROR IF JFFO JUMPED 7590 036545 332 00 0 00 000000 SKIPE AC ;EXAMINE AC 7591 036546 003 00 0 00 030101 ER3 AC,SN ;C(AC) WAS CLOBBERED 7592 036547 332 00 0 00 000001 SKIPE &17 ;EXAMINE AC+1 7593 036550 004 01 0 00 030101 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7594 036551 321 02 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7595 7596 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7597 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7598 7599 030102 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-1 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0202 7600 000001 AC=&17 7601 SAVEAC (1,1)^ 7602 036552 201 03 0 00 036552 MOVEI AC+2,. ;SAVE TEST PC 7603 036553 202 03 0 00 030051 MOVEM AC+2,TESTPC 7604 036554 201 03 0 00 000003 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7605 036555 202 03 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7606 7607 036556 402 00 0 00 000001 SETZM AC ;CLEAR AC 7608 036557 476 00 0 00 000002 SETOM &17 ;INITIALIZE AC+1 7609 036560 243 01 0 00 036562 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7610 036561 254 00 0 00 036563 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7611 036562 002 01 0 00 030102 ER2 AC,SN ;ERROR IF JFFO JUMPED 7612 036563 332 00 0 00 000001 SKIPE AC ;EXAMINE AC 7613 036564 003 01 0 00 030102 ER3 AC,SN ;C(AC) WAS CLOBBERED 7614 036565 332 00 0 00 000002 SKIPE &17 ;EXAMINE AC+1 7615 036566 004 02 0 00 030102 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7616 036567 321 03 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7617 7618 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7619 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7620 7621 030103 SN=SN+1 7622 000002 AC=&17 7623 SAVEAC (1,1)^ 7624 036570 201 04 0 00 036570 MOVEI AC+2,. ;SAVE TEST PC 7625 036571 202 04 0 00 030051 MOVEM AC+2,TESTPC 7626 036572 201 04 0 00 000004 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7627 036573 202 04 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7628 7629 036574 402 00 0 00 000002 SETZM AC ;CLEAR AC 7630 036575 476 00 0 00 000003 SETOM &17 ;INITIALIZE AC+1 7631 036576 243 02 0 00 036600 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7632 036577 254 00 0 00 036601 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7633 036600 002 02 0 00 030103 ER2 AC,SN ;ERROR IF JFFO JUMPED 7634 036601 332 00 0 00 000002 SKIPE AC ;EXAMINE AC 7635 036602 003 02 0 00 030103 ER3 AC,SN ;C(AC) WAS CLOBBERED 7636 036603 332 00 0 00 000003 SKIPE &17 ;EXAMINE AC+1 7637 036604 004 03 0 00 030103 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7638 036605 321 04 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7639 7640 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7641 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7642 7643 030104 SN=SN+1 7644 000003 AC=&17 7645 SAVEAC (1,1)^ 7646 036606 201 05 0 00 036606 MOVEI AC+2,. ;SAVE TEST PC 7647 036607 202 05 0 00 030051 MOVEM AC+2,TESTPC 7648 036610 201 05 0 00 000005 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7649 036611 202 05 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7650 7651 036612 402 00 0 00 000003 SETZM AC ;CLEAR AC 7652 036613 476 00 0 00 000004 SETOM &17 ;INITIALIZE AC+1 7653 036614 243 03 0 00 036616 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7654 036615 254 00 0 00 036617 JRST .+2 ;PASS IF JFFO DOES NOT JUMP DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-2 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0203 7655 036616 002 03 0 00 030104 ER2 AC,SN ;ERROR IF JFFO JUMPED 7656 036617 332 00 0 00 000003 SKIPE AC ;EXAMINE AC 7657 036620 003 03 0 00 030104 ER3 AC,SN ;C(AC) WAS CLOBBERED 7658 036621 332 00 0 00 000004 SKIPE &17 ;EXAMINE AC+1 7659 036622 004 04 0 00 030104 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7660 036623 321 05 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7661 7662 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7663 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7664 7665 030105 SN=SN+1 7666 000004 AC=&17 7667 SAVEAC (1,1)^ 7668 036624 201 06 0 00 036624 MOVEI AC+2,. ;SAVE TEST PC 7669 036625 202 06 0 00 030051 MOVEM AC+2,TESTPC 7670 036626 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7671 036627 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7672 7673 036630 402 00 0 00 000004 SETZM AC ;CLEAR AC 7674 036631 476 00 0 00 000005 SETOM &17 ;INITIALIZE AC+1 7675 036632 243 04 0 00 036634 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7676 036633 254 00 0 00 036635 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7677 036634 002 04 0 00 030105 ER2 AC,SN ;ERROR IF JFFO JUMPED 7678 036635 332 00 0 00 000004 SKIPE AC ;EXAMINE AC 7679 036636 003 04 0 00 030105 ER3 AC,SN ;C(AC) WAS CLOBBERED 7680 036637 332 00 0 00 000005 SKIPE &17 ;EXAMINE AC+1 7681 036640 004 05 0 00 030105 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7682 036641 321 06 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7683 7684 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7685 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7686 7687 030106 SN=SN+1 7688 000005 AC=&17 7689 SAVEAC (1,1)^ 7690 036642 201 07 0 00 036642 MOVEI AC+2,. ;SAVE TEST PC 7691 036643 202 07 0 00 030051 MOVEM AC+2,TESTPC 7692 036644 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7693 036645 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7694 7695 036646 402 00 0 00 000005 SETZM AC ;CLEAR AC 7696 036647 476 00 0 00 000006 SETOM &17 ;INITIALIZE AC+1 7697 036650 243 05 0 00 036652 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7698 036651 254 00 0 00 036653 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7699 036652 002 05 0 00 030106 ER2 AC,SN ;ERROR IF JFFO JUMPED 7700 036653 332 00 0 00 000005 SKIPE AC ;EXAMINE AC 7701 036654 003 05 0 00 030106 ER3 AC,SN ;C(AC) WAS CLOBBERED 7702 036655 332 00 0 00 000006 SKIPE &17 ;EXAMINE AC+1 7703 036656 004 06 0 00 030106 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7704 036657 321 07 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7705 7706 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7707 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7708 7709 030107 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-3 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0204 7710 000006 AC=&17 7711 SAVEAC (1,1)^ 7712 036660 201 10 0 00 036660 MOVEI AC+2,. ;SAVE TEST PC 7713 036661 202 10 0 00 030051 MOVEM AC+2,TESTPC 7714 036662 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7715 036663 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7716 7717 036664 402 00 0 00 000006 SETZM AC ;CLEAR AC 7718 036665 476 00 0 00 000007 SETOM &17 ;INITIALIZE AC+1 7719 036666 243 06 0 00 036670 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7720 036667 254 00 0 00 036671 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7721 036670 002 06 0 00 030107 ER2 AC,SN ;ERROR IF JFFO JUMPED 7722 036671 332 00 0 00 000006 SKIPE AC ;EXAMINE AC 7723 036672 003 06 0 00 030107 ER3 AC,SN ;C(AC) WAS CLOBBERED 7724 036673 332 00 0 00 000007 SKIPE &17 ;EXAMINE AC+1 7725 036674 004 07 0 00 030107 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7726 036675 321 10 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7727 7728 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7729 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7730 7731 030110 SN=SN+1 7732 000007 AC=&17 7733 SAVEAC (1,1)^ 7734 036676 201 11 0 00 036676 MOVEI AC+2,. ;SAVE TEST PC 7735 036677 202 11 0 00 030051 MOVEM AC+2,TESTPC 7736 036700 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7737 036701 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7738 7739 036702 402 00 0 00 000007 SETZM AC ;CLEAR AC 7740 036703 476 00 0 00 000010 SETOM &17 ;INITIALIZE AC+1 7741 036704 243 07 0 00 036706 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7742 036705 254 00 0 00 036707 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7743 036706 002 07 0 00 030110 ER2 AC,SN ;ERROR IF JFFO JUMPED 7744 036707 332 00 0 00 000007 SKIPE AC ;EXAMINE AC 7745 036710 003 07 0 00 030110 ER3 AC,SN ;C(AC) WAS CLOBBERED 7746 036711 332 00 0 00 000010 SKIPE &17 ;EXAMINE AC+1 7747 036712 004 10 0 00 030110 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7748 036713 321 11 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7749 7750 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7751 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7752 7753 030111 SN=SN+1 7754 000010 AC=&17 7755 SAVEAC (1,1)^ 7756 036714 201 12 0 00 036714 MOVEI AC+2,. ;SAVE TEST PC 7757 036715 202 12 0 00 030051 MOVEM AC+2,TESTPC 7758 036716 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7759 036717 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7760 7761 036720 402 00 0 00 000010 SETZM AC ;CLEAR AC 7762 036721 476 00 0 00 000011 SETOM &17 ;INITIALIZE AC+1 7763 036722 243 10 0 00 036724 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7764 036723 254 00 0 00 036725 JRST .+2 ;PASS IF JFFO DOES NOT JUMP DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-4 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0205 7765 036724 002 10 0 00 030111 ER2 AC,SN ;ERROR IF JFFO JUMPED 7766 036725 332 00 0 00 000010 SKIPE AC ;EXAMINE AC 7767 036726 003 10 0 00 030111 ER3 AC,SN ;C(AC) WAS CLOBBERED 7768 036727 332 00 0 00 000011 SKIPE &17 ;EXAMINE AC+1 7769 036730 004 11 0 00 030111 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7770 036731 321 12 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7771 7772 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7773 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7774 7775 030112 SN=SN+1 7776 000011 AC=&17 7777 SAVEAC (1,1)^ 7778 036732 201 13 0 00 036732 MOVEI AC+2,. ;SAVE TEST PC 7779 036733 202 13 0 00 030051 MOVEM AC+2,TESTPC 7780 036734 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7781 036735 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7782 7783 036736 402 00 0 00 000011 SETZM AC ;CLEAR AC 7784 036737 476 00 0 00 000012 SETOM &17 ;INITIALIZE AC+1 7785 036740 243 11 0 00 036742 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7786 036741 254 00 0 00 036743 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7787 036742 002 11 0 00 030112 ER2 AC,SN ;ERROR IF JFFO JUMPED 7788 036743 332 00 0 00 000011 SKIPE AC ;EXAMINE AC 7789 036744 003 11 0 00 030112 ER3 AC,SN ;C(AC) WAS CLOBBERED 7790 036745 332 00 0 00 000012 SKIPE &17 ;EXAMINE AC+1 7791 036746 004 12 0 00 030112 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7792 036747 321 13 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7793 7794 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7795 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7796 7797 030113 SN=SN+1 7798 000012 AC=&17 7799 SAVEAC (1,1)^ 7800 036750 201 14 0 00 036750 MOVEI AC+2,. ;SAVE TEST PC 7801 036751 202 14 0 00 030051 MOVEM AC+2,TESTPC 7802 036752 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7803 036753 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7804 7805 036754 402 00 0 00 000012 SETZM AC ;CLEAR AC 7806 036755 476 00 0 00 000013 SETOM &17 ;INITIALIZE AC+1 7807 036756 243 12 0 00 036760 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7808 036757 254 00 0 00 036761 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7809 036760 002 12 0 00 030113 ER2 AC,SN ;ERROR IF JFFO JUMPED 7810 036761 332 00 0 00 000012 SKIPE AC ;EXAMINE AC 7811 036762 003 12 0 00 030113 ER3 AC,SN ;C(AC) WAS CLOBBERED 7812 036763 332 00 0 00 000013 SKIPE &17 ;EXAMINE AC+1 7813 036764 004 13 0 00 030113 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7814 036765 321 14 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7815 7816 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7817 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7818 7819 030114 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-5 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0206 7820 000013 AC=&17 7821 SAVEAC (1,1)^ 7822 036766 201 15 0 00 036766 MOVEI AC+2,. ;SAVE TEST PC 7823 036767 202 15 0 00 030051 MOVEM AC+2,TESTPC 7824 036770 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7825 036771 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7826 7827 036772 402 00 0 00 000013 SETZM AC ;CLEAR AC 7828 036773 476 00 0 00 000014 SETOM &17 ;INITIALIZE AC+1 7829 036774 243 13 0 00 036776 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7830 036775 254 00 0 00 036777 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7831 036776 002 13 0 00 030114 ER2 AC,SN ;ERROR IF JFFO JUMPED 7832 036777 332 00 0 00 000013 SKIPE AC ;EXAMINE AC 7833 037000 003 13 0 00 030114 ER3 AC,SN ;C(AC) WAS CLOBBERED 7834 037001 332 00 0 00 000014 SKIPE &17 ;EXAMINE AC+1 7835 037002 004 14 0 00 030114 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7836 037003 321 15 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7837 7838 ;VERIFY THAT JFFO WILL CLEAR AC+1 AND NOT JUMP WHEN C(AC)=0. 7839 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 7840 7841 030115 SN=SN+1 7842 000014 AC=&17 7843 SAVEAC (1,1)^ 7844 037004 201 16 0 00 037004 MOVEI AC+2,. ;SAVE TEST PC 7845 037005 202 16 0 00 030051 MOVEM AC+2,TESTPC 7846 037006 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 7847 037007 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 7848 7849 037010 402 00 0 00 000014 SETZM AC ;CLEAR AC 7850 037011 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 7851 037012 243 14 0 00 037014 JFFO AC,.+2 ;*JFFO SHOULD CLEAR AC+1 AND NOT JUMP 7852 037013 254 00 0 00 037015 JRST .+2 ;PASS IF JFFO DOES NOT JUMP 7853 037014 002 14 0 00 030115 ER2 AC,SN ;ERROR IF JFFO JUMPED 7854 037015 332 00 0 00 000014 SKIPE AC ;EXAMINE AC 7855 037016 003 14 0 00 030115 ER3 AC,SN ;C(AC) WAS CLOBBERED 7856 037017 332 00 0 00 000015 SKIPE &17 ;EXAMINE AC+1 7857 037020 004 15 0 00 030115 ER4 AC+1,SN ;AC+1 WAS NOT CLEARED 7858 037021 321 16 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 7859 7860 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 87-6 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0207 7861 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7862 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7863 7864 037022 201 00 0 00 041020 MOVEI [ASCIZ/JFFO JUMP FAILED/] 7865 037023 202 00 0 00 040577 MOVEM SPDES ;INITIALIZE SPECIAL FAILURE DESCRIPTER 7866 7867 037024 477 14 0 00 000015 G30200: SETOB AC,&17 ;INITIALIZE AC AND AC+1 7868 037025 243 14 0 00 037027 JFFO AC,.+2 7869 037026 002 14 0 00 030201 ER2 AC,30201 ;ERROR IF JFFO DID NOT JUMP 7870 037027 312 14 0 00 040666 CAME AC,[-1,,-1] ;EXAMINE AC 7871 037030 003 14 0 00 030201 ER3 AC,30201 ;C(AC) WAS CLOBBERED 7872 037031 332 00 0 00 000015 SKIPE &17 ;EXAMINE AC+1 7873 037032 004 15 0 00 030201 ER4 AC+1,30201 ;C(AC+1) NOT = TO NO OF LEADING ZEROS IN AC 7874 037033 321 16 0 00 037024 JUMPL AC+2,G30200 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0208 7875 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7876 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7877 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7878 7879 030300 SN=30300 7880 000001 000000 XX=1000000 7881 777777 777777 ZZ=-1 7882 7883 G30300: REPEAT ^D18, 7884 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7885 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7886 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7887 7888 SN=SN+1 7889 XX=XX/2 7890 ZZ=ZZ+1 7891 MOVSI AC,XX ;INITIALIZE AC 7892 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7893 SETOM &17 ;INITIALIZE AC+1 7894 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 7895 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7896 CAME AC,&17 ;EXAMINE AC 7897 ER3 AC,SN ;C(AC) WAS CLOBBERED 7898 CAIE AC+1,ZZ ;EXAMINE AC+1 7899 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7900 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7901 > 7902 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7903 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7904 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7905 7906 030301 SN=SN+1 7907 400000 XX=XX/2 7908 000000 ZZ=ZZ+1 7909 037034 205 14 0 00 400000 MOVSI AC,XX ;INITIALIZE AC 7910 037035 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7911 037036 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 7912 037037 243 14 0 00 037041 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 7913 037040 002 14 0 00 030301 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7914 037041 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 7915 037042 003 14 0 00 030301 ER3 AC,SN ;C(AC) WAS CLOBBERED 7916 037043 302 15 0 00 000000 CAIE AC+1,ZZ ;EXAMINE AC+1 7917 037044 004 15 0 00 030301 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7918 037045 321 16 0 00 037034 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7919 7920 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7921 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7922 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7923 7924 030302 SN=SN+1 7925 200000 XX=XX/2 7926 000001 ZZ=ZZ+1 7927 037046 205 14 0 00 200000 MOVSI AC,XX ;INITIALIZE AC 7928 037047 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7929 037050 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-1 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0209 7930 037051 243 14 0 00 037053 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 7931 037052 002 14 0 00 030302 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7932 037053 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 7933 037054 003 14 0 00 030302 ER3 AC,SN ;C(AC) WAS CLOBBERED 7934 037055 302 15 0 00 000001 CAIE AC+1,ZZ ;EXAMINE AC+1 7935 037056 004 15 0 00 030302 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7936 037057 321 16 0 00 037046 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7937 7938 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7939 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7940 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7941 7942 030303 SN=SN+1 7943 100000 XX=XX/2 7944 000002 ZZ=ZZ+1 7945 037060 205 14 0 00 100000 MOVSI AC,XX ;INITIALIZE AC 7946 037061 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7947 037062 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 7948 037063 243 14 0 00 037065 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 7949 037064 002 14 0 00 030303 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7950 037065 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 7951 037066 003 14 0 00 030303 ER3 AC,SN ;C(AC) WAS CLOBBERED 7952 037067 302 15 0 00 000002 CAIE AC+1,ZZ ;EXAMINE AC+1 7953 037070 004 15 0 00 030303 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7954 037071 321 16 0 00 037060 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7955 7956 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7957 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7958 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7959 7960 030304 SN=SN+1 7961 040000 XX=XX/2 7962 000003 ZZ=ZZ+1 7963 037072 205 14 0 00 040000 MOVSI AC,XX ;INITIALIZE AC 7964 037073 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7965 037074 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 7966 037075 243 14 0 00 037077 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 7967 037076 002 14 0 00 030304 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7968 037077 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 7969 037100 003 14 0 00 030304 ER3 AC,SN ;C(AC) WAS CLOBBERED 7970 037101 302 15 0 00 000003 CAIE AC+1,ZZ ;EXAMINE AC+1 7971 037102 004 15 0 00 030304 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7972 037103 321 16 0 00 037072 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7973 7974 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7975 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7976 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7977 7978 030305 SN=SN+1 7979 020000 XX=XX/2 7980 000004 ZZ=ZZ+1 7981 037104 205 14 0 00 020000 MOVSI AC,XX ;INITIALIZE AC 7982 037105 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 7983 037106 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 7984 037107 243 14 0 00 037111 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-2 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0210 7985 037110 002 14 0 00 030305 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 7986 037111 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 7987 037112 003 14 0 00 030305 ER3 AC,SN ;C(AC) WAS CLOBBERED 7988 037113 302 15 0 00 000004 CAIE AC+1,ZZ ;EXAMINE AC+1 7989 037114 004 15 0 00 030305 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 7990 037115 321 16 0 00 037104 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 7991 7992 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 7993 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 7994 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 7995 7996 030306 SN=SN+1 7997 010000 XX=XX/2 7998 000005 ZZ=ZZ+1 7999 037116 205 14 0 00 010000 MOVSI AC,XX ;INITIALIZE AC 8000 037117 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8001 037120 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8002 037121 243 14 0 00 037123 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8003 037122 002 14 0 00 030306 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8004 037123 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8005 037124 003 14 0 00 030306 ER3 AC,SN ;C(AC) WAS CLOBBERED 8006 037125 302 15 0 00 000005 CAIE AC+1,ZZ ;EXAMINE AC+1 8007 037126 004 15 0 00 030306 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8008 037127 321 16 0 00 037116 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8009 8010 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8011 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8012 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8013 8014 030307 SN=SN+1 8015 004000 XX=XX/2 8016 000006 ZZ=ZZ+1 8017 037130 205 14 0 00 004000 MOVSI AC,XX ;INITIALIZE AC 8018 037131 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8019 037132 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8020 037133 243 14 0 00 037135 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8021 037134 002 14 0 00 030307 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8022 037135 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8023 037136 003 14 0 00 030307 ER3 AC,SN ;C(AC) WAS CLOBBERED 8024 037137 302 15 0 00 000006 CAIE AC+1,ZZ ;EXAMINE AC+1 8025 037140 004 15 0 00 030307 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8026 037141 321 16 0 00 037130 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8027 8028 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8029 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8030 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8031 8032 030310 SN=SN+1 8033 002000 XX=XX/2 8034 000007 ZZ=ZZ+1 8035 037142 205 14 0 00 002000 MOVSI AC,XX ;INITIALIZE AC 8036 037143 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8037 037144 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8038 037145 243 14 0 00 037147 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8039 037146 002 14 0 00 030310 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-3 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0211 8040 037147 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8041 037150 003 14 0 00 030310 ER3 AC,SN ;C(AC) WAS CLOBBERED 8042 037151 302 15 0 00 000007 CAIE AC+1,ZZ ;EXAMINE AC+1 8043 037152 004 15 0 00 030310 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8044 037153 321 16 0 00 037142 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8045 8046 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8047 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8048 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8049 8050 030311 SN=SN+1 8051 001000 XX=XX/2 8052 000010 ZZ=ZZ+1 8053 037154 205 14 0 00 001000 MOVSI AC,XX ;INITIALIZE AC 8054 037155 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8055 037156 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8056 037157 243 14 0 00 037161 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8057 037160 002 14 0 00 030311 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8058 037161 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8059 037162 003 14 0 00 030311 ER3 AC,SN ;C(AC) WAS CLOBBERED 8060 037163 302 15 0 00 000010 CAIE AC+1,ZZ ;EXAMINE AC+1 8061 037164 004 15 0 00 030311 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8062 037165 321 16 0 00 037154 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8063 8064 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8065 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8066 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8067 8068 030312 SN=SN+1 8069 000400 XX=XX/2 8070 000011 ZZ=ZZ+1 8071 037166 205 14 0 00 000400 MOVSI AC,XX ;INITIALIZE AC 8072 037167 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8073 037170 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8074 037171 243 14 0 00 037173 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8075 037172 002 14 0 00 030312 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8076 037173 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8077 037174 003 14 0 00 030312 ER3 AC,SN ;C(AC) WAS CLOBBERED 8078 037175 302 15 0 00 000011 CAIE AC+1,ZZ ;EXAMINE AC+1 8079 037176 004 15 0 00 030312 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8080 037177 321 16 0 00 037166 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8081 8082 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8083 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8084 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8085 8086 030313 SN=SN+1 8087 000200 XX=XX/2 8088 000012 ZZ=ZZ+1 8089 037200 205 14 0 00 000200 MOVSI AC,XX ;INITIALIZE AC 8090 037201 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8091 037202 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8092 037203 243 14 0 00 037205 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8093 037204 002 14 0 00 030313 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8094 037205 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-4 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0212 8095 037206 003 14 0 00 030313 ER3 AC,SN ;C(AC) WAS CLOBBERED 8096 037207 302 15 0 00 000012 CAIE AC+1,ZZ ;EXAMINE AC+1 8097 037210 004 15 0 00 030313 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8098 037211 321 16 0 00 037200 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8099 8100 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8101 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8102 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8103 8104 030314 SN=SN+1 8105 000100 XX=XX/2 8106 000013 ZZ=ZZ+1 8107 037212 205 14 0 00 000100 MOVSI AC,XX ;INITIALIZE AC 8108 037213 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8109 037214 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8110 037215 243 14 0 00 037217 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8111 037216 002 14 0 00 030314 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8112 037217 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8113 037220 003 14 0 00 030314 ER3 AC,SN ;C(AC) WAS CLOBBERED 8114 037221 302 15 0 00 000013 CAIE AC+1,ZZ ;EXAMINE AC+1 8115 037222 004 15 0 00 030314 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8116 037223 321 16 0 00 037212 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8117 8118 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8119 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8120 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8121 8122 030315 SN=SN+1 8123 000040 XX=XX/2 8124 000014 ZZ=ZZ+1 8125 037224 205 14 0 00 000040 MOVSI AC,XX ;INITIALIZE AC 8126 037225 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8127 037226 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8128 037227 243 14 0 00 037231 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8129 037230 002 14 0 00 030315 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8130 037231 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8131 037232 003 14 0 00 030315 ER3 AC,SN ;C(AC) WAS CLOBBERED 8132 037233 302 15 0 00 000014 CAIE AC+1,ZZ ;EXAMINE AC+1 8133 037234 004 15 0 00 030315 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8134 037235 321 16 0 00 037224 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8135 8136 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8137 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8138 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8139 8140 030316 SN=SN+1 8141 000020 XX=XX/2 8142 000015 ZZ=ZZ+1 8143 037236 205 14 0 00 000020 MOVSI AC,XX ;INITIALIZE AC 8144 037237 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8145 037240 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8146 037241 243 14 0 00 037243 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8147 037242 002 14 0 00 030316 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8148 037243 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8149 037244 003 14 0 00 030316 ER3 AC,SN ;C(AC) WAS CLOBBERED DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-5 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0213 8150 037245 302 15 0 00 000015 CAIE AC+1,ZZ ;EXAMINE AC+1 8151 037246 004 15 0 00 030316 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8152 037247 321 16 0 00 037236 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8153 8154 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8155 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8156 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8157 8158 030317 SN=SN+1 8159 000010 XX=XX/2 8160 000016 ZZ=ZZ+1 8161 037250 205 14 0 00 000010 MOVSI AC,XX ;INITIALIZE AC 8162 037251 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8163 037252 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8164 037253 243 14 0 00 037255 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8165 037254 002 14 0 00 030317 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8166 037255 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8167 037256 003 14 0 00 030317 ER3 AC,SN ;C(AC) WAS CLOBBERED 8168 037257 302 15 0 00 000016 CAIE AC+1,ZZ ;EXAMINE AC+1 8169 037260 004 15 0 00 030317 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8170 037261 321 16 0 00 037250 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8171 8172 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8173 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8174 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8175 8176 030320 SN=SN+1 8177 000004 XX=XX/2 8178 000017 ZZ=ZZ+1 8179 037262 205 14 0 00 000004 MOVSI AC,XX ;INITIALIZE AC 8180 037263 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8181 037264 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8182 037265 243 14 0 00 037267 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8183 037266 002 14 0 00 030320 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8184 037267 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8185 037270 003 14 0 00 030320 ER3 AC,SN ;C(AC) WAS CLOBBERED 8186 037271 302 15 0 00 000017 CAIE AC+1,ZZ ;EXAMINE AC+1 8187 037272 004 15 0 00 030320 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8188 037273 321 16 0 00 037262 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8189 8190 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8191 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8192 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8193 8194 030321 SN=SN+1 8195 000002 XX=XX/2 8196 000020 ZZ=ZZ+1 8197 037274 205 14 0 00 000002 MOVSI AC,XX ;INITIALIZE AC 8198 037275 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8199 037276 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8200 037277 243 14 0 00 037301 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8201 037300 002 14 0 00 030321 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8202 037301 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8203 037302 003 14 0 00 030321 ER3 AC,SN ;C(AC) WAS CLOBBERED 8204 037303 302 15 0 00 000020 CAIE AC+1,ZZ ;EXAMINE AC+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-6 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0214 8205 037304 004 15 0 00 030321 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8206 037305 321 16 0 00 037274 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8207 8208 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8209 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8210 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8211 8212 030322 SN=SN+1 8213 000001 XX=XX/2 8214 000021 ZZ=ZZ+1 8215 037306 205 14 0 00 000001 MOVSI AC,XX ;INITIALIZE AC 8216 037307 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR COMPARISON 8217 037310 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8218 037311 243 14 0 00 037313 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8219 037312 002 14 0 00 030322 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8220 037313 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8221 037314 003 14 0 00 030322 ER3 AC,SN ;C(AC) WAS CLOBBERED 8222 037315 302 15 0 00 000021 CAIE AC+1,ZZ ;EXAMINE AC+1 8223 037316 004 15 0 00 030322 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8224 037317 321 16 0 00 037306 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8225 8226 PAGE DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-7 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0215 8227 030400 SN=30400 8228 000001 000000 XX=1000000 8229 8230 G30400: REPEAT ^D18, 8231 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8232 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8233 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8234 8235 SN=SN+1 8236 XX=XX/2 8237 ZZ=ZZ+1 8238 MOVEI AC,XX ;INITIALIZE AC 8239 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8240 SETOM &17 ;INITIALIZE AC+1 8241 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8242 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8243 CAME AC,&17 ;EXAMINE AC 8244 ER3 AC,SN ;C(AC) WAS CLOBBERED 8245 CAIE AC+1,ZZ ;EXAMINE AC+1 8246 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8247 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8248 > 8249 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8250 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8251 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8252 8253 030401 SN=SN+1 8254 400000 XX=XX/2 8255 000022 ZZ=ZZ+1 8256 037320 201 14 0 00 400000 MOVEI AC,XX ;INITIALIZE AC 8257 037321 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8258 037322 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8259 037323 243 14 0 00 037325 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8260 037324 002 14 0 00 030401 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8261 037325 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8262 037326 003 14 0 00 030401 ER3 AC,SN ;C(AC) WAS CLOBBERED 8263 037327 302 15 0 00 000022 CAIE AC+1,ZZ ;EXAMINE AC+1 8264 037330 004 15 0 00 030401 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8265 037331 321 16 0 00 037320 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8266 8267 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8268 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8269 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8270 8271 030402 SN=SN+1 8272 200000 XX=XX/2 8273 000023 ZZ=ZZ+1 8274 037332 201 14 0 00 200000 MOVEI AC,XX ;INITIALIZE AC 8275 037333 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8276 037334 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8277 037335 243 14 0 00 037337 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8278 037336 002 14 0 00 030402 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8279 037337 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8280 037340 003 14 0 00 030402 ER3 AC,SN ;C(AC) WAS CLOBBERED 8281 037341 302 15 0 00 000023 CAIE AC+1,ZZ ;EXAMINE AC+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-8 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0216 8282 037342 004 15 0 00 030402 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8283 037343 321 16 0 00 037332 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8284 8285 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8286 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8287 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8288 8289 030403 SN=SN+1 8290 100000 XX=XX/2 8291 000024 ZZ=ZZ+1 8292 037344 201 14 0 00 100000 MOVEI AC,XX ;INITIALIZE AC 8293 037345 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8294 037346 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8295 037347 243 14 0 00 037351 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8296 037350 002 14 0 00 030403 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8297 037351 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8298 037352 003 14 0 00 030403 ER3 AC,SN ;C(AC) WAS CLOBBERED 8299 037353 302 15 0 00 000024 CAIE AC+1,ZZ ;EXAMINE AC+1 8300 037354 004 15 0 00 030403 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8301 037355 321 16 0 00 037344 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8302 8303 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8304 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8305 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8306 8307 030404 SN=SN+1 8308 040000 XX=XX/2 8309 000025 ZZ=ZZ+1 8310 037356 201 14 0 00 040000 MOVEI AC,XX ;INITIALIZE AC 8311 037357 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8312 037360 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8313 037361 243 14 0 00 037363 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8314 037362 002 14 0 00 030404 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8315 037363 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8316 037364 003 14 0 00 030404 ER3 AC,SN ;C(AC) WAS CLOBBERED 8317 037365 302 15 0 00 000025 CAIE AC+1,ZZ ;EXAMINE AC+1 8318 037366 004 15 0 00 030404 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8319 037367 321 16 0 00 037356 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8320 8321 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8322 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8323 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8324 8325 030405 SN=SN+1 8326 020000 XX=XX/2 8327 000026 ZZ=ZZ+1 8328 037370 201 14 0 00 020000 MOVEI AC,XX ;INITIALIZE AC 8329 037371 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8330 037372 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8331 037373 243 14 0 00 037375 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8332 037374 002 14 0 00 030405 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8333 037375 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8334 037376 003 14 0 00 030405 ER3 AC,SN ;C(AC) WAS CLOBBERED 8335 037377 302 15 0 00 000026 CAIE AC+1,ZZ ;EXAMINE AC+1 8336 037400 004 15 0 00 030405 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-9 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0217 8337 037401 321 16 0 00 037370 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8338 8339 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8340 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8341 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8342 8343 030406 SN=SN+1 8344 010000 XX=XX/2 8345 000027 ZZ=ZZ+1 8346 037402 201 14 0 00 010000 MOVEI AC,XX ;INITIALIZE AC 8347 037403 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8348 037404 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8349 037405 243 14 0 00 037407 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8350 037406 002 14 0 00 030406 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8351 037407 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8352 037410 003 14 0 00 030406 ER3 AC,SN ;C(AC) WAS CLOBBERED 8353 037411 302 15 0 00 000027 CAIE AC+1,ZZ ;EXAMINE AC+1 8354 037412 004 15 0 00 030406 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8355 037413 321 16 0 00 037402 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8356 8357 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8358 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8359 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8360 8361 030407 SN=SN+1 8362 004000 XX=XX/2 8363 000030 ZZ=ZZ+1 8364 037414 201 14 0 00 004000 MOVEI AC,XX ;INITIALIZE AC 8365 037415 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8366 037416 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8367 037417 243 14 0 00 037421 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8368 037420 002 14 0 00 030407 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8369 037421 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8370 037422 003 14 0 00 030407 ER3 AC,SN ;C(AC) WAS CLOBBERED 8371 037423 302 15 0 00 000030 CAIE AC+1,ZZ ;EXAMINE AC+1 8372 037424 004 15 0 00 030407 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8373 037425 321 16 0 00 037414 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8374 8375 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8376 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8377 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8378 8379 030410 SN=SN+1 8380 002000 XX=XX/2 8381 000031 ZZ=ZZ+1 8382 037426 201 14 0 00 002000 MOVEI AC,XX ;INITIALIZE AC 8383 037427 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8384 037430 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8385 037431 243 14 0 00 037433 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8386 037432 002 14 0 00 030410 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8387 037433 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8388 037434 003 14 0 00 030410 ER3 AC,SN ;C(AC) WAS CLOBBERED 8389 037435 302 15 0 00 000031 CAIE AC+1,ZZ ;EXAMINE AC+1 8390 037436 004 15 0 00 030410 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8391 037437 321 16 0 00 037426 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-10 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0218 8392 8393 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8394 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8395 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8396 8397 030411 SN=SN+1 8398 001000 XX=XX/2 8399 000032 ZZ=ZZ+1 8400 037440 201 14 0 00 001000 MOVEI AC,XX ;INITIALIZE AC 8401 037441 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8402 037442 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8403 037443 243 14 0 00 037445 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8404 037444 002 14 0 00 030411 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8405 037445 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8406 037446 003 14 0 00 030411 ER3 AC,SN ;C(AC) WAS CLOBBERED 8407 037447 302 15 0 00 000032 CAIE AC+1,ZZ ;EXAMINE AC+1 8408 037450 004 15 0 00 030411 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8409 037451 321 16 0 00 037440 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8410 8411 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8412 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8413 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8414 8415 030412 SN=SN+1 8416 000400 XX=XX/2 8417 000033 ZZ=ZZ+1 8418 037452 201 14 0 00 000400 MOVEI AC,XX ;INITIALIZE AC 8419 037453 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8420 037454 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8421 037455 243 14 0 00 037457 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8422 037456 002 14 0 00 030412 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8423 037457 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8424 037460 003 14 0 00 030412 ER3 AC,SN ;C(AC) WAS CLOBBERED 8425 037461 302 15 0 00 000033 CAIE AC+1,ZZ ;EXAMINE AC+1 8426 037462 004 15 0 00 030412 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8427 037463 321 16 0 00 037452 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8428 8429 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8430 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8431 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8432 8433 030413 SN=SN+1 8434 000200 XX=XX/2 8435 000034 ZZ=ZZ+1 8436 037464 201 14 0 00 000200 MOVEI AC,XX ;INITIALIZE AC 8437 037465 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8438 037466 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8439 037467 243 14 0 00 037471 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8440 037470 002 14 0 00 030413 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8441 037471 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8442 037472 003 14 0 00 030413 ER3 AC,SN ;C(AC) WAS CLOBBERED 8443 037473 302 15 0 00 000034 CAIE AC+1,ZZ ;EXAMINE AC+1 8444 037474 004 15 0 00 030413 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8445 037475 321 16 0 00 037464 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8446 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-11 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0219 8447 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8448 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8449 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8450 8451 030414 SN=SN+1 8452 000100 XX=XX/2 8453 000035 ZZ=ZZ+1 8454 037476 201 14 0 00 000100 MOVEI AC,XX ;INITIALIZE AC 8455 037477 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8456 037500 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8457 037501 243 14 0 00 037503 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8458 037502 002 14 0 00 030414 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8459 037503 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8460 037504 003 14 0 00 030414 ER3 AC,SN ;C(AC) WAS CLOBBERED 8461 037505 302 15 0 00 000035 CAIE AC+1,ZZ ;EXAMINE AC+1 8462 037506 004 15 0 00 030414 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8463 037507 321 16 0 00 037476 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8464 8465 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8466 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8467 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8468 8469 030415 SN=SN+1 8470 000040 XX=XX/2 8471 000036 ZZ=ZZ+1 8472 037510 201 14 0 00 000040 MOVEI AC,XX ;INITIALIZE AC 8473 037511 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8474 037512 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8475 037513 243 14 0 00 037515 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8476 037514 002 14 0 00 030415 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8477 037515 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8478 037516 003 14 0 00 030415 ER3 AC,SN ;C(AC) WAS CLOBBERED 8479 037517 302 15 0 00 000036 CAIE AC+1,ZZ ;EXAMINE AC+1 8480 037520 004 15 0 00 030415 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8481 037521 321 16 0 00 037510 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8482 8483 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8484 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8485 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8486 8487 030416 SN=SN+1 8488 000020 XX=XX/2 8489 000037 ZZ=ZZ+1 8490 037522 201 14 0 00 000020 MOVEI AC,XX ;INITIALIZE AC 8491 037523 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8492 037524 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8493 037525 243 14 0 00 037527 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8494 037526 002 14 0 00 030416 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8495 037527 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8496 037530 003 14 0 00 030416 ER3 AC,SN ;C(AC) WAS CLOBBERED 8497 037531 302 15 0 00 000037 CAIE AC+1,ZZ ;EXAMINE AC+1 8498 037532 004 15 0 00 030416 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8499 037533 321 16 0 00 037522 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8500 8501 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-12 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0220 8502 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8503 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8504 8505 030417 SN=SN+1 8506 000010 XX=XX/2 8507 000040 ZZ=ZZ+1 8508 037534 201 14 0 00 000010 MOVEI AC,XX ;INITIALIZE AC 8509 037535 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8510 037536 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8511 037537 243 14 0 00 037541 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8512 037540 002 14 0 00 030417 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8513 037541 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8514 037542 003 14 0 00 030417 ER3 AC,SN ;C(AC) WAS CLOBBERED 8515 037543 302 15 0 00 000040 CAIE AC+1,ZZ ;EXAMINE AC+1 8516 037544 004 15 0 00 030417 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8517 037545 321 16 0 00 037534 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8518 8519 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8520 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8521 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8522 8523 030420 SN=SN+1 8524 000004 XX=XX/2 8525 000041 ZZ=ZZ+1 8526 037546 201 14 0 00 000004 MOVEI AC,XX ;INITIALIZE AC 8527 037547 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8528 037550 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8529 037551 243 14 0 00 037553 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8530 037552 002 14 0 00 030420 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8531 037553 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8532 037554 003 14 0 00 030420 ER3 AC,SN ;C(AC) WAS CLOBBERED 8533 037555 302 15 0 00 000041 CAIE AC+1,ZZ ;EXAMINE AC+1 8534 037556 004 15 0 00 030420 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8535 037557 321 16 0 00 037546 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8536 8537 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8538 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO 8539 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8540 8541 030421 SN=SN+1 8542 000002 XX=XX/2 8543 000042 ZZ=ZZ+1 8544 037560 201 14 0 00 000002 MOVEI AC,XX ;INITIALIZE AC 8545 037561 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8546 037562 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8547 037563 243 14 0 00 037565 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8548 037564 002 14 0 00 030421 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8549 037565 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8550 037566 003 14 0 00 030421 ER3 AC,SN ;C(AC) WAS CLOBBERED 8551 037567 302 15 0 00 000042 CAIE AC+1,ZZ ;EXAMINE AC+1 8552 037570 004 15 0 00 030421 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8553 037571 321 16 0 00 037560 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8554 8555 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8556 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 88-13 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0221 8557 ;RIPPLE A ONE THROUGH A FIELD OF ZEROS IN THE AC TO TEST JFFO 8558 8559 030422 SN=SN+1 8560 000001 XX=XX/2 8561 000043 ZZ=ZZ+1 8562 037572 201 14 0 00 000001 MOVEI AC,XX ;INITIALIZE AC 8563 037573 200 12 0 00 000014 MOVE AC-2,AC ;INITIALIZE AC-2 FOR LATER COMPARISON 8564 037574 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8565 037575 243 14 0 00 037577 JFFO AC,.+2 ;*JFFO SHOULD PLACE ZZ INTO AC+1 AND JUMP 8566 037576 002 14 0 00 030422 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8567 037577 312 14 0 00 000012 CAME AC,&17 ;EXAMINE AC 8568 037600 003 14 0 00 030422 ER3 AC,SN ;C(AC) WAS CLOBBERED 8569 037601 302 15 0 00 000043 CAIE AC+1,ZZ ;EXAMINE AC+1 8570 037602 004 15 0 00 030422 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ERRORS IN AC 8571 037603 321 16 0 00 037572 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH 8572 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0222 8573 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8574 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8575 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8576 8577 030500 SN=30500 8578 777777 777777 AC=-1 8579 8580 G30500: REPEAT ^D13, 8581 <;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8582 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8583 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8584 8585 SN=SN+1 8586 AC=&17 8587 SAVEAC (1,1) 8588 8589 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8590 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8591 SETOM &17 ;INITIALIZE AC+1 8592 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8593 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8594 CAME AC,GSVAC ;EXAMINE AC 8595 ER3 AC,SN ;C(AC) WAS CLOBBERED 8596 CAIE AC+1,AC ;EXAMINE AC+1 8597 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8598 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8599 > 8600 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8601 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8602 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8603 8604 030501 SN=SN+1 8605 000000 AC=&17 8606 SAVEAC (1,1)^ 8607 037604 201 02 0 00 037604 MOVEI AC+2,. ;SAVE TEST PC 8608 037605 202 02 0 00 030051 MOVEM AC+2,TESTPC 8609 037606 201 02 0 00 000002 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8610 037607 202 02 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8611 8612 037610 205 00 0 00 400000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8613 037611 202 00 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8614 037612 476 00 0 00 000001 SETOM &17 ;INITIALIZE AC+1 8615 037613 243 00 0 00 037615 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8616 037614 002 00 0 00 030501 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8617 037615 312 00 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8618 037616 003 00 0 00 030501 ER3 AC,SN ;C(AC) WAS CLOBBERED 8619 037617 302 01 0 00 000000 CAIE AC+1,AC ;EXAMINE AC+1 8620 037620 004 01 0 00 030501 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8621 037621 321 02 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8622 8623 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8624 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8625 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8626 8627 030502 SN=SN+1 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-1 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0223 8628 000001 AC=&17 8629 SAVEAC (1,1)^ 8630 037622 201 03 0 00 037622 MOVEI AC+2,. ;SAVE TEST PC 8631 037623 202 03 0 00 030051 MOVEM AC+2,TESTPC 8632 037624 201 03 0 00 000003 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8633 037625 202 03 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8634 8635 037626 205 01 0 00 200000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8636 037627 202 01 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8637 037630 476 00 0 00 000002 SETOM &17 ;INITIALIZE AC+1 8638 037631 243 01 0 00 037633 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8639 037632 002 01 0 00 030502 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8640 037633 312 01 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8641 037634 003 01 0 00 030502 ER3 AC,SN ;C(AC) WAS CLOBBERED 8642 037635 302 02 0 00 000001 CAIE AC+1,AC ;EXAMINE AC+1 8643 037636 004 02 0 00 030502 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8644 037637 321 03 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8645 8646 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8647 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8648 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8649 8650 030503 SN=SN+1 8651 000002 AC=&17 8652 SAVEAC (1,1)^ 8653 037640 201 04 0 00 037640 MOVEI AC+2,. ;SAVE TEST PC 8654 037641 202 04 0 00 030051 MOVEM AC+2,TESTPC 8655 037642 201 04 0 00 000004 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8656 037643 202 04 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8657 8658 037644 205 02 0 00 100000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8659 037645 202 02 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8660 037646 476 00 0 00 000003 SETOM &17 ;INITIALIZE AC+1 8661 037647 243 02 0 00 037651 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8662 037650 002 02 0 00 030503 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8663 037651 312 02 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8664 037652 003 02 0 00 030503 ER3 AC,SN ;C(AC) WAS CLOBBERED 8665 037653 302 03 0 00 000002 CAIE AC+1,AC ;EXAMINE AC+1 8666 037654 004 03 0 00 030503 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8667 037655 321 04 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8668 8669 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8670 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8671 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8672 8673 030504 SN=SN+1 8674 000003 AC=&17 8675 SAVEAC (1,1)^ 8676 037656 201 05 0 00 037656 MOVEI AC+2,. ;SAVE TEST PC 8677 037657 202 05 0 00 030051 MOVEM AC+2,TESTPC 8678 037660 201 05 0 00 000005 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8679 037661 202 05 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8680 8681 037662 205 03 0 00 040000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8682 037663 202 03 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-2 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0224 8683 037664 476 00 0 00 000004 SETOM &17 ;INITIALIZE AC+1 8684 037665 243 03 0 00 037667 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8685 037666 002 03 0 00 030504 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8686 037667 312 03 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8687 037670 003 03 0 00 030504 ER3 AC,SN ;C(AC) WAS CLOBBERED 8688 037671 302 04 0 00 000003 CAIE AC+1,AC ;EXAMINE AC+1 8689 037672 004 04 0 00 030504 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8690 037673 321 05 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8691 8692 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8693 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8694 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8695 8696 030505 SN=SN+1 8697 000004 AC=&17 8698 SAVEAC (1,1)^ 8699 037674 201 06 0 00 037674 MOVEI AC+2,. ;SAVE TEST PC 8700 037675 202 06 0 00 030051 MOVEM AC+2,TESTPC 8701 037676 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8702 037677 202 06 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8703 8704 037700 205 04 0 00 020000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8705 037701 202 04 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8706 037702 476 00 0 00 000005 SETOM &17 ;INITIALIZE AC+1 8707 037703 243 04 0 00 037705 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8708 037704 002 04 0 00 030505 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8709 037705 312 04 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8710 037706 003 04 0 00 030505 ER3 AC,SN ;C(AC) WAS CLOBBERED 8711 037707 302 05 0 00 000004 CAIE AC+1,AC ;EXAMINE AC+1 8712 037710 004 05 0 00 030505 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8713 037711 321 06 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8714 8715 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8716 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8717 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8718 8719 030506 SN=SN+1 8720 000005 AC=&17 8721 SAVEAC (1,1)^ 8722 037712 201 07 0 00 037712 MOVEI AC+2,. ;SAVE TEST PC 8723 037713 202 07 0 00 030051 MOVEM AC+2,TESTPC 8724 037714 201 07 0 00 000007 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8725 037715 202 07 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8726 8727 037716 205 05 0 00 010000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8728 037717 202 05 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8729 037720 476 00 0 00 000006 SETOM &17 ;INITIALIZE AC+1 8730 037721 243 05 0 00 037723 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8731 037722 002 05 0 00 030506 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8732 037723 312 05 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8733 037724 003 05 0 00 030506 ER3 AC,SN ;C(AC) WAS CLOBBERED 8734 037725 302 06 0 00 000005 CAIE AC+1,AC ;EXAMINE AC+1 8735 037726 004 06 0 00 030506 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8736 037727 321 07 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8737 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-3 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0225 8738 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8739 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8740 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8741 8742 030507 SN=SN+1 8743 000006 AC=&17 8744 SAVEAC (1,1)^ 8745 037730 201 10 0 00 037730 MOVEI AC+2,. ;SAVE TEST PC 8746 037731 202 10 0 00 030051 MOVEM AC+2,TESTPC 8747 037732 201 10 0 00 000010 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8748 037733 202 10 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8749 8750 037734 205 06 0 00 004000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8751 037735 202 06 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8752 037736 476 00 0 00 000007 SETOM &17 ;INITIALIZE AC+1 8753 037737 243 06 0 00 037741 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8754 037740 002 06 0 00 030507 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8755 037741 312 06 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8756 037742 003 06 0 00 030507 ER3 AC,SN ;C(AC) WAS CLOBBERED 8757 037743 302 07 0 00 000006 CAIE AC+1,AC ;EXAMINE AC+1 8758 037744 004 07 0 00 030507 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8759 037745 321 10 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8760 8761 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8762 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8763 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8764 8765 030510 SN=SN+1 8766 000007 AC=&17 8767 SAVEAC (1,1)^ 8768 037746 201 11 0 00 037746 MOVEI AC+2,. ;SAVE TEST PC 8769 037747 202 11 0 00 030051 MOVEM AC+2,TESTPC 8770 037750 201 11 0 00 000011 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8771 037751 202 11 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8772 8773 037752 205 07 0 00 002000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8774 037753 202 07 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8775 037754 476 00 0 00 000010 SETOM &17 ;INITIALIZE AC+1 8776 037755 243 07 0 00 037757 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8777 037756 002 07 0 00 030510 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8778 037757 312 07 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8779 037760 003 07 0 00 030510 ER3 AC,SN ;C(AC) WAS CLOBBERED 8780 037761 302 10 0 00 000007 CAIE AC+1,AC ;EXAMINE AC+1 8781 037762 004 10 0 00 030510 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8782 037763 321 11 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8783 8784 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8785 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8786 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8787 8788 030511 SN=SN+1 8789 000010 AC=&17 8790 SAVEAC (1,1)^ 8791 037764 201 12 0 00 037764 MOVEI AC+2,. ;SAVE TEST PC 8792 037765 202 12 0 00 030051 MOVEM AC+2,TESTPC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-4 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0226 8793 037766 201 12 0 00 000012 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8794 037767 202 12 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8795 8796 037770 205 10 0 00 001000 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8797 037771 202 10 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8798 037772 476 00 0 00 000011 SETOM &17 ;INITIALIZE AC+1 8799 037773 243 10 0 00 037775 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8800 037774 002 10 0 00 030511 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8801 037775 312 10 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8802 037776 003 10 0 00 030511 ER3 AC,SN ;C(AC) WAS CLOBBERED 8803 037777 302 11 0 00 000010 CAIE AC+1,AC ;EXAMINE AC+1 8804 040000 004 11 0 00 030511 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8805 040001 321 12 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8806 8807 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8808 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8809 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8810 8811 030512 SN=SN+1 8812 000011 AC=&17 8813 SAVEAC (1,1)^ 8814 040002 201 13 0 00 040002 MOVEI AC+2,. ;SAVE TEST PC 8815 040003 202 13 0 00 030051 MOVEM AC+2,TESTPC 8816 040004 201 13 0 00 000013 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8817 040005 202 13 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8818 8819 040006 205 11 0 00 000400 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8820 040007 202 11 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8821 040010 476 00 0 00 000012 SETOM &17 ;INITIALIZE AC+1 8822 040011 243 11 0 00 040013 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8823 040012 002 11 0 00 030512 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8824 040013 312 11 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8825 040014 003 11 0 00 030512 ER3 AC,SN ;C(AC) WAS CLOBBERED 8826 040015 302 12 0 00 000011 CAIE AC+1,AC ;EXAMINE AC+1 8827 040016 004 12 0 00 030512 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8828 040017 321 13 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8829 8830 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8831 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8832 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8833 8834 030513 SN=SN+1 8835 000012 AC=&17 8836 SAVEAC (1,1)^ 8837 040020 201 14 0 00 040020 MOVEI AC+2,. ;SAVE TEST PC 8838 040021 202 14 0 00 030051 MOVEM AC+2,TESTPC 8839 040022 201 14 0 00 000014 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8840 040023 202 14 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8841 8842 040024 205 12 0 00 000200 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8843 040025 202 12 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8844 040026 476 00 0 00 000013 SETOM &17 ;INITIALIZE AC+1 8845 040027 243 12 0 00 040031 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8846 040030 002 12 0 00 030513 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8847 040031 312 12 0 00 041144 CAME AC,GSVAC ;EXAMINE AC DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-5 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0227 8848 040032 003 12 0 00 030513 ER3 AC,SN ;C(AC) WAS CLOBBERED 8849 040033 302 13 0 00 000012 CAIE AC+1,AC ;EXAMINE AC+1 8850 040034 004 13 0 00 030513 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8851 040035 321 14 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8852 8853 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8854 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8855 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8856 8857 030514 SN=SN+1 8858 000013 AC=&17 8859 SAVEAC (1,1)^ 8860 040036 201 15 0 00 040036 MOVEI AC+2,. ;SAVE TEST PC 8861 040037 202 15 0 00 030051 MOVEM AC+2,TESTPC 8862 040040 201 15 0 00 000015 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8863 040041 202 15 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8864 8865 040042 205 13 0 00 000100 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8866 040043 202 13 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8867 040044 476 00 0 00 000014 SETOM &17 ;INITIALIZE AC+1 8868 040045 243 13 0 00 040047 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8869 040046 002 13 0 00 030514 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8870 040047 312 13 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8871 040050 003 13 0 00 030514 ER3 AC,SN ;C(AC) WAS CLOBBERED 8872 040051 302 14 0 00 000013 CAIE AC+1,AC ;EXAMINE AC+1 8873 040052 004 14 0 00 030514 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8874 040053 321 15 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8875 8876 ;VERIFY THAT JFFO WILL JUMP AND SET AC+1 TO THE NO. OF LEADING 8877 ;ZEROS IN AC WHEN C(AC) IS NON-ZERO. 8878 ;THIS TEST IS REPEATED 13 TIMES, ONCE FOR EACH USABLE AC. 8879 8880 030515 SN=SN+1 8881 000014 AC=&17 8882 SAVEAC (1,1)^ 8883 040054 201 16 0 00 040054 MOVEI AC+2,. ;SAVE TEST PC 8884 040055 202 16 0 00 030051 MOVEM AC+2,TESTPC 8885 040056 201 16 0 00 000016 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 8886 040057 202 16 0 00 041143 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 8887 8888 040060 205 14 0 00 000040 MOVSI AC,(1B<^O>) ;INITIALIZE AC 8889 040061 202 14 0 00 041144 MOVEM AC,GSVAC# ;INITIALIZE FOR LATER COMPARISON 8890 040062 476 00 0 00 000015 SETOM &17 ;INITIALIZE AC+1 8891 040063 243 14 0 00 040065 JFFO AC,.+2 ;*JFFO SHOULD PLACE AC INTO AC+1 AC+1 AND JUMP 8892 040064 002 14 0 00 030515 ER2 AC,SN ;ERROR IF JFFO DID NOT JUMP 8893 040065 312 14 0 00 041144 CAME AC,GSVAC ;EXAMINE AC 8894 040066 003 14 0 00 030515 ER3 AC,SN ;C(AC) WAS CLOBBERED 8895 040067 302 15 0 00 000014 CAIE AC+1,AC ;EXAMINE AC+1 8896 040070 004 15 0 00 030515 ER4 AC+1,SN ;C(AC+1) NOT = NO. OF LEADING ZEROS IN AC 8897 040071 321 16 0 00 777767 JUMPL AC+2,-^D9 ;LOOP ON ERROR SWITCH 8898 8899 8900 040072 254 00 0 00 030057 LAST1: JRST BEGEND ;REPEAT DIAGNOSTIC 8901 8902 IF1, DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 89-6 DSKAM1 MAC 29-Mar-78 10:18 PART III - GENERAL JFFO TEST SEQ 0228 8903 040073 BYTBLK: BLOCK ^D50 8904 8905 IF1, 8906 040155 BLTBLK: BLOCK ^D200 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0229 8907 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 8908 8909 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 8910 8911 040465 202 00 0 00 041151 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 8912 040466 202 01 0 00 041152 MOVEM 1,%ERAC1# ;SAVE AC1 8913 040467 202 02 0 00 041153 MOVEM 2,%ERAC2# ;SAVE AC2 8914 040470 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 8915 040471 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8916 040472 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 8917 040473 350 00 0 00 041146 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 8918 040474 200 00 0 00 041146 MOVE 0,MICNT 8919 040475 504 00 0 00 030114 HRL 0,$SVUPC 8920 040476 402 00 0 00 041147 SETZM PROCED# ;CLEAR PROCEED FLAG 8921 040477 037 10 0 00 000002 SWITCH 8922 040500 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 8923 040501 254 00 0 00 040613 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 8924 040502 200 01 0 00 030113 MOVE 1,$SVUUO 8925 040503 242 01 0 00 777745 LSH 1,-^D27 8926 040504 202 01 0 00 041150 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 8927 040505 200 00 0 00 041151 MOVE 0,%ERAC0 8928 040506 200 01 0 00 041152 MOVE 1,%ERAC1 8929 040507 335 00 1 00 041143 SKIPGE @@ERRLOP ;ERR LOOP AC > OR = 0 ? 8930 040510 254 00 0 00 040645 JRST %ERRS4 ;NO, SEE IF PRINT ALL 8931 040511 402 00 0 00 041146 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 8932 040512 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 8933 040513 254 00 0 00 040517 JRST .+4 ;NO, DON'T NEED TITLE 8934 040514 336 00 0 00 041154 SKIPN %ERFST# ;FIRST ERROR ? 8935 040515 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 8936 040516 476 00 0 00 041154 SETOM %ERFST 8937 040517 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 8938 040520 254 00 0 00 040524 JRST .+4 ;YES 8939 PMSG <^TEST PASS COUNT = >^ 8940 040521 037 02 0 00 041024 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 8941 040522 200 00 0 00 030047 MOVE PASCNT 8942 040523 037 15 0 00 000000 PNTDEC 8943 PMSG <^PC = >^ 8944 040524 037 02 0 00 041030 PSIXM [SIXBIT\^PC = _\]^ 8945 040525 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8946 040526 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 8947 040527 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 8948 XLIST 8949 IFDEF ERDIAG,^ 8955 040530 037 02 0 00 041032 PSIXM [SIXBIT\^RESULT = _\]^ 8956 040531 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 8957 040532 242 01 0 00 777751 LSH 1,-27 8958 040533 405 01 0 00 000017 ANDI 1,17 8959 040534 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 8960 040535 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 8961 040536 200 00 0 01 041151 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 8962 040537 037 13 0 00 000000 PNTHW ;PRINT C(AC) 8963 8964 040540 200 00 0 00 030046 MOVE CONSW 8965 040541 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 8966 040542 254 00 0 00 040611 JRST %ERMORE ;NO, RESTORE AC'S ETC. 8967 8968 ;PRINT FAILURE DESCRIPTOR 8969 8970 040543 200 01 0 00 041150 MOVE 1,%ACS1A ;GET UUO NUMBER 8971 040544 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 8972 040545 254 00 0 00 040551 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 8973 040546 037 00 0 00 030242 PCRL 8974 040547 200 00 0 01 040575 MOVE %FLTTB(1) 8975 040550 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 8976 8977 ;PRINT FAULT NUMBER 8978 8979 040551 %ERMS3: PMSG <^FAULT NUMBER = >^ 8980 040551 037 02 0 00 041034 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 8981 040552 201 00 0 00 040574 MOVEI TLET 8982 040553 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0231 8983 8984 040554 550 00 0 00 030113 HRRZ $SVUUO 8985 040555 602 00 0 00 700000 TRNE 700000 8986 040556 254 00 0 00 040572 JRST %ER6X 8987 040557 602 00 0 00 070000 TRNE 070000 8988 040560 254 00 0 00 040570 JRST %ER5X 8989 040561 602 00 0 00 007000 TRNE 007000 8990 040562 254 00 0 00 040566 JRST %ER4X 8991 040563 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 8992 040564 037 00 0 00 030242 %ER7X: PCRL 8993 040565 254 00 0 00 040611 JRST %ERMORE 8994 8995 040566 037 04 0 00 000000 %ER4X: PNT4 8996 040567 254 00 0 00 040564 JRST %ER7X 8997 040570 037 05 0 00 000000 %ER5X: PNT5 8998 040571 254 00 0 00 040564 JRST %ER7X 8999 040572 037 06 0 00 000000 %ER6X: PNT6 9000 040573 254 00 0 00 040564 JRST %ER7X 9001 9002 ;FAILURE DESCRIPTORS 9003 9004 040574 000000 000000 TLET: 0 ;TEST LETTER 9005 040575 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 9006 040576 000000 040743 %NODES: [0] ;NO DESCRIPTOR 9007 040577 000000 040743 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 9008 040600 000000 041037 $ACF: [ASCIZ/C(AC) FAILED/] 9009 040601 000000 041042 %AC1F: [ASCIZ/C(AC+1) FAILED/] 9010 040602 000000 041045 %EF: [ASCIZ/C(E) FAILED/] 9011 040603 000000 041050 %E1F: [ASCIZ/C(E+1) FAILED/] 9012 040604 000000 041053 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 9013 040605 000000 041057 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 9014 040606 000000 041063 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 9015 040607 000000 041067 %EEF: [ASCIZ/C(C(E)) FAILED/] 9016 040610 000000 041072 %FF: [ASCIZ/FLAG FAILED/] 9017 > 9018 XLIST 9019 LIST DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0232 9020 ;RESTORE AC'S AND RETURN OR HALT 9021 9022 040611 256 00 0 00 030101 %ERMORE:XCT ERMORE 9023 040612 037 10 0 00 000002 SWITCH 9024 9025 040613 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 9026 040614 254 00 0 00 040620 JRST .+4 ;NONE 9027 040615 201 00 0 00 040620 MOVEI .+3 ;SAVE CONT ADDRESS 9028 040616 202 00 0 00 000130 MOVEM JOBOPC 9029 040617 254 00 1 00 030063 JRST @@ALTMGO ;PERFORM TRANSFER 9030 040620 200 00 0 00 030046 MOVE CONSW 9031 040621 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 9032 040622 037 14 0 00 000004 ERRHLT ;YES 9033 040623 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 9034 040624 476 00 0 00 041147 SETOM PROCED ;NO, SET THE PROCEED FLAG 9035 040625 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 9036 040626 037 01 0 00 000007 PBELL ;YES, GO RING BELL 9037 9038 040627 200 02 0 00 041153 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 9039 040630 200 01 0 00 041152 MOVE 1,%ERAC1 9040 040631 476 00 1 00 041143 SETOM @@ERRLOP ;SET C(ERR LOOP AC) TO -1 9041 040632 336 00 0 00 041147 SKIPN PROCED ;LOOP ON ERROR ? 9042 040633 254 00 0 00 040643 JRST %ERRS5 ;YES 9043 040634 350 00 1 00 041143 AOS @@ERRLOP ;NO, INC C(ERR LOOP AC) 9044 040635 350 00 1 00 041143 AOS @@ERRLOP ;SO IT ='S 1 9045 040636 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 9046 040637 254 00 0 00 040643 JRST %ERRS5 ;NO, CONTINUE PROGRAM 9047 040640 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 9048 040641 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 9049 040642 254 00 0 00 040651 JRST %ERRS6 9050 9051 040643 200 00 0 00 041151 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 9052 040644 254 00 0 00 030065 JRST UUOEXT 9053 9054 040645 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 9055 040646 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 9056 040647 254 00 0 00 040613 JRST %ERRS1 ;NO 9057 040650 254 00 0 00 040511 JRST %ERMS1 ;YES 9058 9059 040651 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 9060 040651 037 04 0 00 041075 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 9061 040652 254 00 0 00 030061 JRST $BEND2 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0233 9062 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 9063 9064 ;PROGRAM LITERALS 9065 9066 XLIST 9067 IFNDEF $LPAPER, 9068 040653 LIT 9069 040653 101 115 000 000 000 9070 040654 525252 525377 9071 040655 076000 000001 9072 040656 002525 252525 9073 040657 074000 000001 9074 040660 707070 707070 9075 040661 323232 232323 9076 040662 103 050 103 050 105 9077 040663 051 055 061 051 040 9078 040664 106 101 111 114 105 9079 040665 104 000 000 000 000 9080 040666 777777 777777 9081 040667 646446 464670 9082 040670 103 050 103 050 105 9083 040671 051 053 061 051 040 9084 040672 106 101 111 114 105 9085 040673 104 000 000 000 000 9086 040674 220600 000012 9087 040675 112233 445566 9088 040676 020000 033362 9089 040677 020000 033377 9090 040700 112270 445566 9091 040701 000000 033415 9092 040702 000000 033430 9093 040703 000000 033446 9094 040704 230703 603700 9095 040705 230702 103700 9096 040706 000000 033471 9097 040707 000000 033516 9098 040710 000000 033542 9099 040711 000000 033570 9100 040712 000000 033614 9101 040713 000000 033635 9102 040714 000000 033662 9103 040715 000000 033711 9104 040716 000000 033734 9105 040717 000000 033760 9106 040720 000000 034004 9107 040721 000000 034032 9108 040722 000000 034056 9109 040723 000000 034103 9110 040724 000000 034130 9111 040725 000000 034157 9112 040726 000000 034177 9113 040727 000000 034217 9114 040730 000000 034237 9115 040731 000000 034257 9116 040732 000000 034302 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0234 9117 040733 000000 034325 9118 040734 000000 034350 9119 040735 377777 777777 9120 040736 000000 034374 9121 040737 777777 777776 9122 040740 000000 034420 9123 040741 102 114 124 040 106 9124 040742 101 111 114 105 104 9125 040743 000 000 000 000 000 9126 040744 000001 000001 9127 040745 000006 000006 9128 040746 040156 040156 9129 040747 000006 000011 9130 040750 252525 252525 9131 040751 770077 007700 9132 040752 070707 070707 9133 040753 123456 765432 9134 040754 552255 225522 9135 040755 000005 000010 9136 040756 000004 000007 9137 040757 000006 040161 9138 040760 000005 040161 9139 040761 000004 040161 9140 040762 040156 040161 9141 040763 040156 000006 9142 040764 040156 000005 9143 040765 040156 000004 9144 040766 000004 000004 9145 040767 146314 631463 9146 040770 036074 170360 9147 040771 017407 603701 9148 040772 007603 607062 9149 040773 000002 000001 9150 040774 036074 170630 9151 040775 040157 040156 9152 040776 000001 000002 9153 040777 040156 040157 9154 041000 146314 146314 9155 041001 000001 040156 9156 041002 007700 770077 9157 041003 003760 077401 9158 041004 001774 007760 9159 041005 000777 000777 9160 041006 000377 600077 9161 041007 777777 040155 9162 041010 777777 040170 9163 041011 040156 000001 9164 041012 777777 000000 9165 041013 777777 000013 9166 041014 112 106 106 117 040 9167 041015 116 117 055 112 125 9168 041016 115 120 040 106 101 9169 041017 111 114 105 104 000 9170 041020 112 106 106 117 040 9171 041021 112 125 115 120 040 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0235 9172 041022 106 101 111 114 105 9173 041023 104 000 000 000 000 9174 041024 76 64 45 63 64 00 9175 041025 60 41 63 63 00 43 9176 041026 57 65 56 64 00 35 9177 041027 00 77 00 00 00 00 9178 041030 76 60 43 00 35 00 9179 041031 00 00 77 00 00 00 9180 041032 76 62 45 63 65 54 9181 041033 64 00 00 35 00 77 9182 041034 76 46 41 65 54 64 9183 041035 00 56 65 55 42 45 9184 041036 62 00 35 00 77 00 9185 041037 103 050 101 103 051 9186 041040 040 106 101 111 114 9187 041041 105 104 000 000 000 9188 041042 103 050 101 103 053 9189 041043 061 051 040 106 101 9190 041044 111 114 105 104 000 9191 041045 103 050 105 051 040 9192 041046 106 101 111 114 105 9193 041047 104 000 000 000 000 9194 041050 103 050 105 053 061 9195 041051 051 040 106 101 111 9196 041052 114 105 104 000 000 9197 041053 103 050 103 050 101 9198 041054 103 122 051 051 040 9199 041055 106 101 111 114 105 9200 041056 104 000 000 000 000 9201 041057 103 050 103 050 101 9202 041060 103 122 053 061 051 9203 041061 051 040 106 101 111 9204 041062 114 105 104 000 000 9205 041063 103 050 103 050 101 9206 041064 103 114 051 051 040 9207 041065 106 101 111 114 105 9208 041066 104 000 000 000 000 9209 041067 103 050 103 050 105 9210 041070 051 051 040 106 101 9211 041071 111 114 105 104 000 9212 041072 106 114 101 107 040 9213 041073 106 101 111 114 105 9214 041074 104 000 000 000 000 9215 041075 76 45 70 43 45 45 9216 041076 44 45 44 00 41 54 9217 041077 54 57 67 45 44 00 9218 041100 45 62 62 57 62 63 9219 041101 76 77 00 00 00 00 9220 LIST 9221 041102 000000 000000 ENDSLD: 0 9222 9223 IFDEF DEBUG,< 9224 041103 PATCH: BLOCK DEBUG ;PATCHING AREA 9225 > 9226 DSKAM DECSYSTEM-2020 BASIC INSTRUCTION DIAGNOSTIC (13) 0,1 MACRO %53(1020) 11:26 29-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0236 9227 ;PROGRAM VARIABLES 9228 041143 VAR 9229 9230 IFDEF PGMEND,< 9231 041155 000000 000000 END: 0 9232 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 041156 CPU TIME USED 00:28.901 22P CORE USED ABORT 163# AC 797# 799 800 801 802 804 806 807 808 809 810 821# 823 824 SEQ 0237 825 826 828 829 831 832 834 840# 842 843 844 845 847 848 849 850 851 852 858# 860 861 862 863 865 866 867 868 869 870 881# 883 884 885 886 906 907 908 909 910 911 916 917 918 919 920 921 926 927 928 929 930 931 936 937 938 939 940 941 946 947 948 949 950 951 956 957 958 959 960 961 963# 965 966 967 968 971 972 973 974 975 976 979 980 981 982 983 984 986 987 988 989 990 991 994 995 996 997 998 999 1002 1003 1004 1005 1006 1007 1012# 1014 1015 1016 1017 1019 1020 1021 1022 1023 1024 1025 1034# 1036 1037 1038 1039 1041 1042 1043 1044 1045 1046 1047 1055# 1057 1058 1059 1060 1062 1063 1064 1065 1066 1067 1068 1071 1072 1073 1074 1075 1076 1077 1080 1081 1082 1083 1084 1085 1086 1089 1090 1091 1092 1093 1094 1095 1098 1099 1100 1101 1102 1103 1104 1106 1107 1108 1109 1110 1111 1112 1124# 1126 1127 1128 1129 1131 1132 1133 1134 1135 1136 1137 1148# 1150 1151 1152 1153 1156 1157 1158 1159 1160 1161 1162 1165 1166 1167 1168 1169 1170 1171 1174 1175 1176 1177 1178 1179 1180 1183 1184 1185 1186 1187 1188 1189 1197# 1199 1200 1201 1202 1204 1205 1206 1207 1208 1209 1210 1218# 1220 1221 1222 1223 1225 1226 1227 1228 1229 1230 1231 1232 1242# 1244 1245 1246 1247 1249 1250 1252 1253 1254 1255 1256 1263# 1265 1266 1267 1268 1270 1271 1273 1274 1275 1276 1282# 1284 1285 1286 1287 1289 1291 1292 1293 1294 1304# 1306 1307 1308 1309 1311 1312 1314 1315 1316 1317 1320 1321 1323 1324 1325 1326 1329 1330 1332 1333 1334 1335 1338 1339 1341 1342 1343 1344 1346 1347 1349 1350 1351 1352 1355 1356 1358 1359 1360 1361 1367# 1369 1370 1371 1372 1374 1375 1377 1378 1379 1380 1386# 1388 1389 1390 1391 1393 1394 1396 1397 1398 1399 1409# 1411 1412 1413 1414 1416 1418 1420 1421 1430# 1432 1433 1434 1435 1437 1439 1440 1441 1442 1443 1457# 1459 1460 1461 1462 1464 1467 1468 1469 1470 1471 1484# 1486 1487 1488 1489 1491 1492 1494 1495 1496 1497 1498 1508# 1510 1511 1512 1513 1515 1516 1520 1521 1522 1523 1532# 1534 1535 1536 1537 1539 1540 1541 1544 1545 1546 1547 1556# 1558 1559 1560 1561 1563 1564 1569 1570 1571 1572 1579# 1581 1582 1583 1584 1586 1587 1592 1593 1594 1595 1606# 1608 1609 1610 1611 1613 1614 1615 1616 1617 1618 1629# 1631 1632 1633 1634 1636 1637 1639 1640 1642 1643 1644 1653# 1655 1656 1657 1658 1660 1661 1663 1664 1665 1666 1667 1668 1678# 1680 1681 1682 1683 1685 1686 1687 1689 1690 1692 1703# 1705 1706 1707 1708 1710 1711 1712 1714 1715 1717 1727# 1729 1730 1731 1732 1734 1735 1736 1737 1739 1740 1742 1752# 1754 1755 1756 1757 1759 1760 1761 1763 1764 1766 1776# 1778 1779 1780 1781 1783 1784 1785 1787 1788 1790 1799# 1801 1802 1803 1804 1806 1807 1808 1810 1811 1813 1823# 1825 1826 1827 1828 1830 1831 1833 1834 1835 1836 1837 1855# 1857 1858 1859 1860 1862 1863 1864 1866 1867 1868 1871 1884# 1886 1887 1888 1889 1909 1910 1911 1912 1913 1914 1919 1920 1921 1922 1923 1924 1929 1930 1931 1932 1933 1934 1939 1940 1941 1942 1943 1944 1949 1950 1951 1952 1953 1954 1965# 1967 1968 1969 1970 1993 1994 1995 1996 1997 1998 2004 2005 2006 2007 2008 2009 2015 2016 2017 2018 2019 2020 2026 2027 2028 2029 2030 2031 2037 2038 2039 2040 2041 2042 2054# 2056 2057 2058 2059 2080 2081 2082 2083 2084 2085 2086 2091 2092 2093 2094 2095 2096 2097 2102 2103 2104 2105 2106 2107 2108 2113 2114 2115 2116 2117 2118 2119 2124 2125 2126 2127 2128 2129 2130 2142# 2144 2145 2146 2147 2167 2169 2170 2171 2172 2177 2179 2180 2181 2182 2187 2189 2190 2191 2192 2197 2199 2200 2201 2202 2207 2209 2210 2211 2212 2225# 2227 2228 2229 2230 2251 2254 2255 2256 2257 2262 2265 2266 2267 2268 2273 2276 2277 2278 2279 2284 2287 2288 2289 2290 2295 2298 2299 2300 2301 2313# 2315 2316 2317 2318 2336 2337 2339 2340 2341 2342 2346 2347 2349 2350 SEQ 0238 2351 2352 2356 2357 2359 2360 2361 2362 2366 2367 2369 2370 2371 2372 2376 2377 2379 2380 2381 2382 2394# 2396 2397 2398 2399 2420 2421 2422 2423 2430 2431 2432 2433 2440 2441 2442 2443 2450 2451 2452 2453 2460 2461 2462 2463 2475# 2477 2478 2479 2480 2500 2501 2505 2506 2507 2508 2512 2513 2517 2518 2519 2520 2524 2525 2529 2530 2531 2532 2536 2537 2541 2542 2543 2544 2548 2549 2553 2554 2555 2556 2567# 2569 2570 2571 2572 2604 2605 2606 2607 2618 2619 2620 2621 2632 2633 2634 2635 2647# 2649 2650 2651 2652 2670 2671 2673 2674 2675 2676 2680 2681 2683 2684 2685 2686 2690 2691 2693 2694 2695 2696 2700 2701 2703 2704 2705 2706 2710 2711 2713 2714 2715 2716 2727# 2729 2730 2731 2732 2750 2753 2754 2755 2756 2760 2763 2764 2765 2766 2770 2773 2774 2775 2776 2780 2783 2784 2785 2786 2790 2793 2794 2795 2796 2808# 2810 2811 2812 2813 2835 2836 2839 2840 2841 2842 2847 2848 2851 2852 2853 2854 2859 2860 2863 2864 2865 2866 2877# 2879 2880 2881 2882 2903 2906 2907 2908 2909 2914 2917 2918 2919 2920 2925 2928 2929 2930 2931 2936 2939 2940 2941 2942 2947 2950 2951 2952 2953 2965# 2967 2968 2969 2970 2991 2994 2995 2996 2997 3002 3005 3006 3007 3008 3013 3016 3017 3018 3019 3024 3027 3028 3029 3030 3035 3038 3039 3040 3041 3053 3055 3056 3057 3058 3059 3069# 3071 3072 3073 3074 3097 3098 3099 3101 3102 3103 3105 3110 3111 3112 3114 3115 3116 3118 3123 3124 3125 3127 3128 3129 3131 3136 3137 3138 3140 3141 3142 3144 3149 3150 3151 3153 3154 3155 3157 3168# 3170 3171 3172 3173 3198 3199 3200 3201 3203 3204 3206 3212 3213 3214 3215 3217 3218 3220 3226 3227 3228 3229 3231 3232 3234 3240 3241 3242 3243 3245 3246 3248 3254 3255 3256 3257 3259 3260 3262 3274# 3276 3277 3278 3279 3302 3303 3304 3305 3307 3308 3310 3315 3316 3317 3318 3320 3321 3323 3328 3329 3330 3331 3333 3334 3336 3341 3342 3343 3344 3346 3347 3349 3354 3355 3356 3357 3359 3360 3362 3372# 3374 3375 3376 3377 3382 3398 3399 3400 3401 3403 3404 3406 3410 3411 3412 3413 3415 3416 3418 3422 3423 3424 3425 3427 3428 3430 3434 3435 3436 3437 3439 3440 3442 3446 3447 3448 3449 3451 3452 3454 3461# 3463 3464 3465 3466 3489 3490 3491 3492 3493 3494 3495 3496 3502 3503 3504 3505 3506 3507 3508 3509 3544 3545 3546 3547 3548 3553 3554 3557 3563 3564 3565 3566 3567 3572 3573 3576 3581# 3583 3584 3585 3586 3588 3589 3590 3592 3593 3594 3595 3596 3597 3598 3599 3600 3602 3603 3604 3606 3607 3608 3609 3610 3611 3612 3613 3614 3618# 3620 3621 3622 3623 3626 3627 3628 3629 3630 3631 3636# 3638 3639 3640 3641 3644 3645 3646 3647 3649 3650 3651 3652 3657# 3659 3660 3661 3662 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3683# 3685 3686 3687 3688 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 3706 3711# 3713 3714 3715 3716 3719 3720 3721 3722 3723 3724 3725 3726 3727 3728 3729 3730 3731 3732 3733 3738# 3740 3741 3742 3743 3746 3747 3748 3749 3750 3751 3752 3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3767# 3769 3770 3771 3772 3775 3776 3777 3778 3779 3780 3781 3782 3783 3784 3785 3786 3787 3788 3789 3795# 3797 3798 3799 3800 3803 3804 3805 3806 3807 3808 3809 3810 3811 3813 3814 3815 3820# 3822 3823 3824 3825 3829 3830 3831 3832 3833 3834 3835 3836 3838 3839 3840 3841 3842 3843 3844 3845 3850# 3852 3853 3854 3855 3858 3859 3860 3861 3862 3863 3864 3865 3866 3868 3869 3870 3871 3872 3873 3874 3875 3876 3881# 3883 3884 3885 3886 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3908# 3910 3911 3912 3913 3916 3917 3918 3919 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929 3930 3935# 3937 3938 3939 3940 3943 3944 3945 3946 3947 3948 3949 3950 3951 3952 3953 3954 3955 3956 3957 3962# 3964 3965 3966 3967 3970 3971 3972 3973 3974 3975 3976 3977 3978 3979 3980 3981 3982 SEQ 0239 3983 3984 3985 3986 3991# 3993 3994 3995 3996 3999 4000 4001 4002 4003 4004 4005 4006 4008 4009 4010 4011 4012 4013 4014 4020# 4022 4023 4024 4025 4028 4029 4030 4031 4032 4033 4034 4035 4037 4038 4039 4040 4041 4042 4043 4044 4049# 4051 4052 4053 4054 4057 4058 4059 4060 4061 4062 4063 4064 4066 4067 4068 4069 4070 4071 4072 4073 4078# 4080 4081 4082 4083 4086 4087 4089 4090 4091 4092 4093 4094 4095 4097 4098 4099 4100 4101 4102 4103 4104 4105 4109# 4111 4112 4113 4114 4117 4118 4119 4120 4121 4122 4123 4124 4125 4126 4127 4132# 4134 4135 4136 4137 4140 4141 4142 4143 4144 4145 4146 4147 4148 4149 4150 4154# 4156 4157 4158 4159 4162 4163 4164 4165 4166 4167 4168 4169 4170 4171 4172 4177# 4179 4180 4181 4182 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4199# 4201 4202 4203 4204 4207 4208 4209 4211 4213 4214 4215 4216 4217 4218 4219 4220 4223# 4225 4226 4227 4228 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4248# 4250 4251 4252 4253 4256 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4272# 4274 4275 4276 4277 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292 4293 4294 4298# 4300 4301 4302 4303 4306 4307 4308 4309 4310 4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4324# 4326 4327 4328 4329 4332 4333 4334 4335 4336 4337 4346# 4348 4349 4350 4351 4353 4354 4357 4360 4370 4375# 4377 4378 4379 4380 4382 4383 4386 4389 4399 4404# 4406 4407 4408 4409 4411 4412 4415 4418 4428 4433# 4435 4436 4437 4438 4444 4448 4450 4451 4452 4454 4455 4456 4458 4459 4460 4461 4466# 4468 4469 4470 4471 4477 4481 4483 4484 4485 4487 4488 4489 4491 4492 4493 4494 4500# 4502 4503 4504 4505 4511 4513 4514 4516 4518 4519 4520 4522 4523 4524 4526 4527 4528 4529 4537# 4539 4540 4541 4542 4544 4545 4548 4585 4676 4685# 4687 4688 4689 4690 4692 4693 4696 4733 4824 4833# 4835 4836 4837 4838 4840 4841 4844 4881 4972 4981# 4983 4984 4985 4986 4988 4992 5015 5016 5021 5022 5027 5028 5029 5078 5079 5083 5093 5094 5096 5108 5109 5113 5120 5129# 5131 5132 5133 5134 5136 5140 5163 5164 5169 5170 5175 5176 5177 5226 5227 5231 5241 5242 5244 5256 5257 5261 5268 5277# 5279 5280 5281 5282 5284 5288 5311 5312 5317 5318 5323 5324 5325 5374 5375 5379 5389 5390 5392 5404 5405 5409 5416 5425# 5427 5428 5429 5430 5436 5441 5442 5447 5448 5453 5454 5459 5460 5465 5466 5471 5472 5473 5477 5478 5482 5492 5493 5497 5507 5508 5512 5522 5523 5527 5537 5538 5540 5552 5553 5557 5564 5573# 5575 5576 5577 5578 5584 5589 5590 5595 5596 5601 5602 5607 5608 5613 5614 5619 5620 5621 5625 5626 5630 5640 5641 5645 5655 5656 5660 5670 5671 5675 5685 5686 5688 5700 5701 5705 5712 5721# 5723 5724 5725 5726 5732 5737 5738 5743 5744 5749 5750 5755 5756 5761 5762 5767 5768 5769 5773 5774 5778 5788 5789 5793 5803 5804 5808 5818 5819 5823 5833 5834 5836 5848 5849 5853 5860 5869# 5871 5872 5873 5874 5877 5880 5885 5886 5891 5892 5897 5898 5917 5921 5922 5926 5936 5937 5941 5951 5952 5956 6008 6017# 6019 6020 6021 6022 6025 6028 6033 6034 6039 6040 6045 6046 6065 6069 6070 6074 6084 6085 6089 6099 6100 6104 6156 6165# 6167 6168 6169 6170 6173 6176 6181 6182 6187 6188 6193 6194 6213 6217 6218 6222 6232 6233 6237 6247 6248 6252 6304 6308# 6310 6311 6312 6313 6316 6317 6320 6327 6363 6367# 6369 6370 6371 6372 6375 6376 6379 6386 6422 6426# 6428 6429 6430 6431 6434 6435 6438 6448 6484 6488# 6490 6491 6492 6493 6496 6497 6500 6516 6552 6556# 6558 6559 6560 6561 6568 6580 6582 6583 6585 6588 6589 6591 6594 6595 6597 6600 6601 6603 6606 6607 6609 6612 6613 6615 6618 6619 6621 6623 6627# 6629 6630 6631 6632 6639 6651 6653 6654 6656 6659 6660 6662 6665 6666 6668 6671 6672 6674 6677 6678 6680 6683 6684 6686 6689 6690 6692 6694 6698# 6700 6701 6702 6703 6710 6722 6724 6725 6727 6730 6731 6733 6736 SEQ 0240 6737 6739 6742 6743 6745 6748 6749 6751 6754 6755 6757 6760 6761 6763 6765 6769# 6771 6772 6773 6774 6781 6801 6803 6804 6806 6809 6810 6812 6815 6816 6818 6821 6822 6824 6827 6828 6830 6833 6834 6836 6839 6840 6842 6844 6848# 6850 6851 6852 6853 6856 6857 6860 6878 6920 6924# 6926 6927 6928 6929 6936 6958 6963 6964 6966 6969 6970 6972 6975 6976 6978 6981 6982 6984 6987 6988 6990 6993 6994 6996 6999 7000 7002 7005 7006 7008 7010 7014# 7016 7017 7018 7019 7022 7023 7026 7044 7083 7087# 7089 7090 7091 7092 7099 7121 7126 7127 7129 7132 7133 7134 7136 7137 7139 7142 7143 7145 7148 7149 7151 7154 7155 7157 7160 7161 7163 7166 7167 7169 7171 7175# 7177 7178 7179 7180 7183 7187 7242 7290 7291 7293 7296 7297 7299 7302 7303 7305 7308 7309 7311 7314 7315 7317 7320 7321 7323 7326 7327 7329 7332 7333 7335 7338 7339 7341 7344 7345 7347 7350 7351 7353 7356 7357 7359 7361 7365# 7367 7368 7369 7370 7374 7377 7425 7430 7431 7433 7436 7437 7438 7440 7441 7442 7444 7445 7446 7448 7449 7450 7452 7453 7454 7456 7457 7458 7460 7461 7462 7464 7465 7466 7468 7469 7470 7472 7473 7474 7476 7477 7479 7544 7550# 7578 7578# 7580 7581 7582 7583 7585 7586 7587 7589 7590 7591 7592 7593 7594 7600 7600# 7602 7603 7604 7605 7607 7608 7609 7611 7612 7613 7614 7615 7616 7622 7622# 7624 7625 7626 7627 7629 7630 7631 7633 7634 7635 7636 7637 7638 7644 7644# 7646 7647 7648 7649 7651 7652 7653 7655 7656 7657 7658 7659 7660 7666 7666# 7668 7669 7670 7671 7673 7674 7675 7677 7678 7679 7680 7681 7682 7688 7688# 7690 7691 7692 7693 7695 7696 7697 7699 7700 7701 7702 7703 7704 7710 7710# 7712 7713 7714 7715 7717 7718 7719 7721 7722 7723 7724 7725 7726 7732 7732# 7734 7735 7736 7737 7739 7740 7741 7743 7744 7745 7746 7747 7748 7754 7754# 7756 7757 7758 7759 7761 7762 7763 7765 7766 7767 7768 7769 7770 7776 7776# 7778 7779 7780 7781 7783 7784 7785 7787 7788 7789 7790 7791 7792 7798 7798# 7800 7801 7802 7803 7805 7806 7807 7809 7810 7811 7812 7813 7814 7820 7820# 7822 7823 7824 7825 7827 7828 7829 7831 7832 7833 7834 7835 7836 7842 7842# 7844 7845 7846 7847 7849 7850 7851 7853 7854 7855 7856 7857 7858 7867 7868 7869 7870 7871 7872 7873 7874 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7927 7928 7929 7930 7931 7932 7933 7934 7935 7936 7945 7946 7947 7948 7949 7950 7951 7952 7953 7954 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7981 7982 7983 7984 7985 7986 7987 7988 7989 7990 7999 8000 8001 8002 8003 8004 8005 8006 8007 8008 8017 8018 8019 8020 8021 8022 8023 8024 8025 8026 8035 8036 8037 8038 8039 8040 8041 8042 8043 8044 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8071 8072 8073 8074 8075 8076 8077 8078 8079 8080 8089 8090 8091 8092 8093 8094 8095 8096 8097 8098 8107 8108 8109 8110 8111 8112 8113 8114 8115 8116 8125 8126 8127 8128 8129 8130 8131 8132 8133 8134 8143 8144 8145 8146 8147 8148 8149 8150 8151 8152 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8179 8180 8181 8182 8183 8184 8185 8186 8187 8188 8197 8198 8199 8200 8201 8202 8203 8204 8205 8206 8215 8216 8217 8218 8219 8220 8221 8222 8223 8224 8256 8257 8258 8259 8260 8261 8262 8263 8264 8265 8274 8275 8276 8277 8278 8279 8280 8281 8282 8283 8292 8293 8294 8295 8296 8297 8298 8299 8300 8301 8310 8311 8312 8313 8314 8315 8316 8317 8318 8319 8328 8329 8330 8331 8332 8333 8334 8335 8336 8337 8346 8347 8348 8349 8350 8351 8352 8353 8354 8355 8364 8365 8366 8367 8368 8369 8370 8371 8372 8373 8382 8383 8384 8385 8386 8387 8388 8389 8390 8391 8400 8401 8402 8403 8404 8405 8406 8407 8408 8409 8418 8419 8420 8421 8422 8423 8424 8425 8426 8427 8436 8437 8438 8439 8440 8441 8442 8443 8444 8445 8454 8455 8456 8457 8458 8459 8460 8461 8462 8463 8472 8473 8474 8475 8476 8477 8478 8479 8480 8481 8490 8491 8492 8493 8494 8495 8496 8497 8498 8499 SEQ 0241 8508 8509 8510 8511 8512 8513 8514 8515 8516 8517 8526 8527 8528 8529 8530 8531 8532 8533 8534 8535 8544 8545 8546 8547 8548 8549 8550 8551 8552 8553 8562 8563 8564 8565 8566 8567 8568 8569 8570 8571 8578# 8605 8605# 8607 8608 8609 8610 8612 8613 8614 8615 8616 8617 8618 8619 8620 8621 8628 8628# 8630 8631 8632 8633 8635 8636 8637 8638 8639 8640 8641 8642 8643 8644 8651 8651# 8653 8654 8655 8656 8658 8659 8660 8661 8662 8663 8664 8665 8666 8667 8674 8674# 8676 8677 8678 8679 8681 8682 8683 8684 8685 8686 8687 8688 8689 8690 8697 8697# 8699 8700 8701 8702 8704 8705 8706 8707 8708 8709 8710 8711 8712 8713 8720 8720# 8722 8723 8724 8725 8727 8728 8729 8730 8731 8732 8733 8734 8735 8736 8743 8743# 8745 8746 8747 8748 8750 8751 8752 8753 8754 8755 8756 8757 8758 8759 8766 8766# 8768 8769 8770 8771 8773 8774 8775 8776 8777 8778 8779 8780 8781 8782 8789 8789# 8791 8792 8793 8794 8796 8797 8798 8799 8800 8801 8802 8803 8804 8805 8812 8812# 8814 8815 8816 8817 8819 8820 8821 8822 8823 8824 8825 8826 8827 8828 8835 8835# 8837 8838 8839 8840 8842 8843 8844 8845 8846 8847 8848 8849 8850 8851 8858 8858# 8860 8861 8862 8863 8865 8866 8867 8868 8869 8870 8871 8872 8873 8874 8881 8881# 8883 8884 8885 8886 8888 8889 8890 8891 8892 8893 8894 8895 8896 8897 ALTMGO 513# 9029 AROV 427# AROVTP 427# AROVU 427# AST 628# ATSIN 629# BEGEND 509# 8900 BEGIN 67 68 69 72 73 74 75 76 77 378 379 440# 9232 BEGIN1 456# 510 BELL 632# BIS 427# 3591 3598 3605 3612 BLTBLK 4440 4441 4473 4474 4507 4508 4989 5137 5285 5432 5433 5580 5581 5728 5729 5876 6024 6172 6564 6565 6635 6636 6706 6707 6777 6778 6932 6933 7095 7096 7184 7373 8906# BYTBLK 3645 3648 3649 3692 3695 3703 3704 3721 3725 3726 3727 3747 3748 3750 3753 3754 3755 3757 3758 3804 3808 3831 3836 3838 3839 3859 3860 3863 3866 3868 3869 3871 3872 3917 3920 3927 3928 3945 3949 3950 3951 3971 3972 3974 3977 3978 3979 3981 3982 4029 4033 4041 4042 4059 4064 4066 4067 4087 4089 4092 4095 4097 4098 4100 4101 8903# CCA 427# CHAIN 183# CHNOFF 427# CHNON 427# CLKU 427# CLOCKF 495# CNTLC 512# CNTRP 427# COMMA 621# CONSW 496# 8964 9030 9054 CPOPJ 516# CPOPJ1 514# CRLF 313 314 616# CRLF2 317 318 618# CRY0 427# CRY1 427# SEQ 0242 CSHFLG 675# CSHMEM 676# CTRP 427# CYCL60 669# DCK 427# DDTLNK 197# 454 DDTSRT 454# DEBUG 59# 9223 9224 DECVER 4# 11 26 475 DEST 4354# 4357 4360 4362 4363 4365 4366 4368 4369 4383# 4386 4389 4391 4392 4394 4395 4397 4398 4412# 4415 4418 4420 4421 4423 4424 4426 4427 4441# 4444 4448 4450 4454 4458 4474# 4477 4481 4483 4487 4491 4508# 4511 4516 4518 4522 4526 4545# 4548 4568 4569 4570 4574 4575 4576 4580 4581 4582 4585 4633 4640 4641 4645 4648 4655 4656 4658 4663 4670 4671 4675 4693# 4696 4716 4717 4718 4722 4723 4724 4728 4729 4730 4733 4781 4788 4789 4793 4796 4803 4804 4806 4811 4818 4819 4823 4841# 4844 4864 4865 4866 4870 4871 4872 4876 4877 4878 4881 4929 4936 4937 4941 4944 4951 4952 4954 4959 4966 4967 4971 4989# 4992 5012 5014 5016 5018 5020 5022 5024 5026 5028 5029 5077 5078 5084 5092 5093 5099 5107 5108 5114 5137# 5140 5160 5162 5164 5166 5168 5170 5172 5174 5176 5177 5225 5226 5232 5240 5241 5247 5255 5256 5262 5285# 5288 5308 5310 5312 5314 5316 5318 5320 5322 5324 5325 5373 5374 5380 5388 5389 5395 5403 5404 5410 5433# 5436 5456 5458 5460 5462 5464 5466 5468 5470 5472 5473 5521 5522 5528 5536 5537 5543 5551 5552 5558 5581# 5584 5604 5606 5608 5610 5612 5614 5616 5618 5620 5621 5669 5670 5676 5684 5685 5691 5699 5700 5706 5729# 5732 5752 5754 5756 5758 5760 5762 5764 5766 5768 5769 5817 5818 5824 5832 5833 5839 5847 5848 5854 5877# 5880 5900 5901 5902 5906 5907 5908 5912 5913 5914 5917 5965 5972 5973 5977 5980 5987 5988 5990 5995 6002 6003 6007 6025# 6028 6048 6049 6050 6054 6055 6056 6060 6061 6062 6065 6113 6120 6121 6125 6128 6135 6136 6138 6143 6150 6151 6155 6173# 6176 6196 6197 6198 6202 6203 6204 6208 6209 6210 6213 6261 6268 6269 6273 6276 6283 6284 6286 6291 6298 6299 6303 6317# 6320 6327 6329 6331 6334 6336 6339 6341 6344 6346 6349 6351 6354 6356 6359 6361 6376# 6379 6386 6388 6390 6393 6395 6398 6400 6403 6405 6408 6410 6413 6415 6418 6420 6435# 6438 6448 6450 6452 6455 6457 6460 6462 6465 6467 6470 6472 6475 6477 6480 6482 6497# 6500 6516 6518 6520 6523 6525 6528 6530 6533 6535 6538 6540 6543 6545 6548 6550 6565# 6568 6580 6582 6588 6594 6600 6606 6612 6618 6636# 6639 6651 6653 6659 6665 6671 6677 6683 6689 6707# 6710 6722 6724 6730 6736 6742 6748 6754 6760 6778# 6781 6801 6803 6809 6815 6821 6827 6833 6839 6857# 6860 6862 6864 6878 6880 6882 6885 6887 6890 6892 6895 6897 6901 6903 6906 6908 6911 6913 6933# 6936 6938 6941 6958 6963 6969 6975 6981 6987 6993 6999 7023# 7026 7042 7044 7054 7056 7059 7061 7064 7066 7069 7071 7074 7076 7079 7081 7096# 7099 7119 7121 7136 7142 7148 7154 7160 7166 7184# 7187 7214 7215 7217 7218 7219 7220 7221 7222 7223 7224 7225 7226 7227 7228 7229 7230 7231 7232 7233 7234 7235 7236 7237 7238 7242 7290 7291 7296 7302 7308 7314 7320 7326 7332 7338 7344 7350 7356 7357 7374# 7377 7410 7412 7413 7415 7416 7417 7418 7419 7420 7421 7422 7423 7425 7485 7487 7490 7492 7495 7497 7500 7502 7505 7507 7510 7512 7515 7517 7520 7522 7525 7527 7530 7532 7535 7537 7540 7542 DF22F 580# DIAGMN 443# DING 169# 9035 DOLLAR 635# SEQ 0243 DSKUPD 480 EBIT0 427# EBIT1 427# EBIT10 427# EBIT11 427# EBIT12 427# EBIT13 427# EBIT14 427# EBIT15 427# EBIT2 427# EBIT3 427# EBIT4 427# EBIT5 427# EBIT6 427# EBIT7 427# EBIT8 427# EBIT9 427# END 9231# ENDFIX 755# ENDSLD 9221# ERDIAG 63# 8949 ERMORE 529# 9022 EROLD 389 ERRELB 9019 ERRLOP 802# 802 826# 826 845# 845 863# 863 886# 886 968# 968 1017# 1017 1039# 1039 1060# 1060 1129# 1129 1153# 1153 1202# 1202 1223# 1223 1247# 1247 1268# 1268 1287# 1287 1309# 1309 1372# 1372 1391# 1391 1414# 1414 1435# 1435 1462# 1462 1489# 1489 1513# 1513 1537# 1537 1561# 1561 1584# 1584 1611# 1611 1634# 1634 1658# 1658 1683# 1683 1708# 1708 1732# 1732 1757# 1757 1781# 1781 1804# 1804 1828# 1828 1860# 1860 1889# 1889 1970# 1970 2059# 2059 2147# 2147 2230# 2230 2318# 2318 2399# 2399 2480# 2480 2572# 2572 2652# 2652 2732# 2732 2813# 2813 2882# 2882 2970# 2970 3074# 3074 3173# 3173 3279# 3279 3377# 3377 3466# 3466 3586# 3586 3623# 3623 3641# 3641 3662# 3662 3688# 3688 3716# 3716 3743# 3743 3772# 3772 3800# 3800 3825# 3825 3855# 3855 3886# 3886 3913# 3913 3940# 3940 3967# 3967 3996# 3996 4025# 4025 4054# 4054 4083# 4083 4114# 4114 4137# 4137 4159# 4159 4182# 4182 4204# 4204 4228# 4228 4253# 4253 4277# 4277 4303# 4303 4329# 4329 4351# 4351 4380# 4380 4409# 4409 4438# 4438 4471# 4471 4505# 4505 4542# 4542 4690# 4690 4838# 4838 4986# 4986 5134# 5134 5282# 5282 5430# 5430 5578# 5578 5726# 5726 5874# 5874 6022# 6022 6170# 6170 6313# 6313 6372# 6372 6431# 6431 6493# 6493 6561# 6561 6632# 6632 6703# 6703 6774# 6774 6853# 6853 6929# 6929 7019# 7019 7092# 7092 7180# 7180 7370# 7370 7583# 7583 7605# 7605 7627# 7627 7649# 7649 7671# 7671 7693# 7693 7715# 7715 7737# 7737 7759# 7759 7781# 7781 7803# 7803 7825# 7825 7847# 7847 8610# 8610 8633# 8633 8656# 8656 8679# 8679 8702# 8702 8725# 8725 8748# 8748 8771# 8771 8794# 8794 8817# 8817 8840# 8840 8863# 8863 8886# 8886 8929 9040 9043 9044 ERRMES 46 47 48 49 50 51 52 53 54 55 56 8911# ERRPC 500# 8916 8946 ERRTLS 501# 8914 9047 ERSTOP 172# 9031 EXCASB 60# 478 EXIOT 427# EXIT 756# 757 FOV 427# SEQ 0244 FOVU 427# FRDLNK 195# FSELNK 194# FXU 427# G100 804# 810 G1000 979# 984 G10000 1895# G10100 1977# G10200 2065# G10300 2153# G10400 2236# G10500 2323# G10600 2404# G10700 2485# G1100 986# 991 G11000 2580# G11100 2657# G11200 2737# G11300 2819# G11400 2888# G11500 2976# G11600 3053# 3059 G11700 3080# G1200 994# 999 G12000 3179# G12100 3285# G12200 3382# G12210 3471# G12220 3520# G12300 3588# 3600 G12400 3602# 3614 G12500 3626# 3631 G12510 3644# 3652 G12600 3665# 3678 G12610 3691# 3706 G12620 3719# 3733 G12630 3746# 3762 G12700 3775# 3789 G12710 3803# 3815 G12720 3829# 3845 G12730 3858# 3876 G1300 1002# 1007 G13000 3889# 3902 G13010 3916# 3930 G13020 3943# 3957 G13030 3970# 3986 G13100 3999# 4014 G13110 4028# 4044 G13120 4057# 4073 G13130 4086# 4105 G13200 4117# 4127 G13210 4140# 4150 G13220 4162# 4172 SEQ 0245 G13230 4185# 4195 G13240 4207# 4220 G13300 4231# 4244 G13310 4256# 4269 G13320 4280# 4294 G13330 4306# 4320 G13400 4332# 4337 G1400 1019# 1025 G1500 1041# 1047 G1600 1062# 1068 G1700 1071# 1077 G200 828# 834 G2000 1080# 1086 G20100 6320# 6363 G20200 6379# 6422 G20300 6438# 6484 G20400 6500# 6552 G20500 6568# 6623 G20600 6639# 6694 G20700 6710# 6765 G2100 1089# 1095 G21000 6781# 6844 G21100 6860# 6920 G21200 6936# 7010 G21300 7026# 7083 G21400 7099# 7171 G21500 7187# 7361 G21600 7377# 7544 G2200 1098# 1104 G22100 4357# 4370 G22200 4386# 4399 G22300 4415# 4428 G22400 4444# 4461 G22500 4477# 4494 G22600 4511# 4529 G22700 4548# 4676 G2300 1106# 1112 G23000 4696# 4824 G23100 4844# 4972 G23200 4992# 5120 G23300 5140# 5268 G23400 5288# 5416 G23500 5436# 5564 G23600 5584# 5712 G23700 5732# 5860 G2400 1131# 1137 G24000 5880# 6008 G24100 6028# 6156 G24200 6176# 6304 G2600 1156# 1162 G2700 1165# 1171 G300 847# 852 G3000 1174# 1180 SEQ 0246 G30000 7549# G30100 7555# G30200 7867# 7874 G30300 7883# G30400 8230# G30500 8580# G3100 1183# 1189 G3200 1204# 1210 G3300 1225# 1232 G3400 1249# 1256 G3500 1270# 1276 G3600 1289# 1294 G3700 1311# 1317 G400 865# 870 G4000 1320# 1326 G4100 1329# 1335 G4200 1338# 1344 G4300 1346# 1352 G4400 1355# 1361 G4600 1374# 1380 G4700 1393# 1399 G5000 1416# 1421 G5100 1437# 1443 G5200 1464# 1471 G5300 1491# 1498 G5400 1515# 1523 G5500 1539# 1547 G5600 1563# 1572 G5700 1586# 1595 G600 892# G6000 1613# 1618 G6100 1636# 1644 G6200 1660# 1668 G6300 1685# 1692 G6400 1710# 1717 G700 971# 976 G7000 1734# 1742 G7100 1759# 1766 G7200 1783# 1790 G7400 1806# 1813 G7600 1830# 1837 G7700 1862# 1871 GSVAC 8613# 8613 8617 8636# 8636 8640 8659# 8659 8663 8682# 8682 8686 8705# 8705 8709 8728# 8728 8732 8751# 8751 8755 8774# 8774 8778 8797# 8797 8801 8820# 8820 8824 8843# 8843 8847 8866# 8866 8870 8889# 8889 8893 GSVAC0 7213# 7213 7240 HYPEN 626# INHCSH 180# INHPAG 177# IOCLR 427# ITERAT 88# 473 ITRCH1 533# ITRCNT 473# SEQ 0247 JOB41 427# JOBAPR 427# JOBCNI 427# JOBDDT 427# JOBFF 427# JOBOPC 427# 9028 JOBREL 427# JOBREN 427# JOBSA 427# JOBSYM 427# JOBTPC 427# JOBUSY 427# JOBUUO 427# JOBVER 427# KAIFLG 490# KLFLG 491# 4210 4212 KNTRP 427# KTRP 427# LACLK 427# LACLKE 427# LAPRAL 427# LAPRP1 427# LAPRP2 427# LAPRP3 427# LAPRP4 427# LAPRP5 427# LAPRP6 427# LAPRP7 427# LAST1 8900# LCHNOF 427# LCHNON 427# LCNTXT 427# LCNXER 427# LCPAER 427# LCPSFT 427# LCPWRF 427# LDATAF 427# LDLNK 196# 443 445 LDNXER 427# LDPAER 427# LDPSFT 427# LDPWRF 427# LEBXMH 427# LEBXML 427# LENXER 427# LEPAER 427# LEPSFT 427# LEPWRF 427# LEUPFW 427# LEXCMP 427# LFLGCL 427# LFLGDS 427# LFLGEN 427# SEQ 0248 LFLGST 427# LFP 630# LINSTF 427# LINT 427# LIOCLR 427# LLACBL 427# LLDUSB 427# LMBXMH 427# LMBXML 427# LNXMEN 427# LNXMER 427# LOOPER 171# 9033 LPAREN 427# LPARER 427# LPFWPC 427# LPGFTR 427# LPICH1 427# LPICH2 427# LPICH3 427# LPICH4 427# LPICH5 427# LPICH6 427# LPICH7 427# LPICHA 427# LPICLR 427# LPIIP1 427# LPIIP2 427# LPIIP3 427# LPIIP4 427# LPIIP5 427# LPIIP6 427# LPIIP7 427# LPIOFF 427# LPION 427# LPRCH1 427# LPRCH2 427# LPRCH3 427# LPRCH4 427# LPRCH5 427# LPRCH6 427# LPRCH7 427# LPRFMH 427# LPRFML 427# LPSFT 427# LPSFTE 427# LPWRFE 427# LPWRFL 427# LREQSE 427# LRQCLR 427# LSECMO 427# LSMODE 427# LSNXER 427# LSPAER 427# SEQ 0249 LSPSFT 427# LSPWRF 427# LTBASH 427# LTBASL 427# LTRPAE 427# LTRPEN 427# LUSCMP 427# LUUO 427# LUUO1 46# 560 561 LUUO10 53# 560 565 LUUO11 54# 560 565 LUUO12 55# 560 566 LUUO13 56# 560 566 LUUO14 560 567 LUUO15 560 567 LUUO16 560 568 LUUO17 560 568 LUUO2 47# 560 562 LUUO20 560 569 LUUO21 560 569 LUUO22 560 570 LUUO23 560 570 LUUO24 560 571 LUUO25 560 571 LUUO26 560 572 LUUO27 560 572 LUUO3 48# 560 562 LUUO30 560 573 LUUO31 560 573 LUUO32 560 574 LUUO33 560 574 LUUO4 49# 560 563 LUUO5 50# 560 563 LUUO6 51# 560 564 LUUO7 52# 560 564 LUUOI 427# LWRITE 427# MAPNEW 581# MARGIN 503# MCNVER 3# 11 26 475 MEMLOW 583# MEMMAP 481 MEMSIZ 584# MEMTOT 582# MICNT 8917# 8917 8918 8931 MINUS 625# MODDVC 179# MODDVL 378 378# 476 MODDVU 379 379# 477 MODLNK 198# 440 MONCTL 493# 8932 9045 MONFLG 492# MONTEN 494# SEQ 0250 MONTYP 707# MPVU 427# MUUO 427# MUUOPC 427# NOPNT 167# 8922 NXMU 427# OPRSEL 181# OPTIME 595# P 224 225 226 227 427# 515 PAG 427# PALERS 173# 9055 PAREA0 81# PAREA1 82# 471 PAREA2 83# 472 PAREA3 84# 469 PAREA4 85# 470 PAREA5 86# 482 PAREA6 87# 483 PAREA7 482# PAREA8 483# PART1 783 797# PARU 427# PASCNT 497# 8937 8941 PATCH 9224# PDISF 592# PDLOVU 427# PDOVTP 427# PERIOD 622# PFSTRT 449# PGMEND 62# 9230 PGMNAM 474 759# PICHN1 427# PICHN2 427# PICHN3 427# PICHN4 427# PICHN5 427# PICHN6 427# PICHN7 427# PICHNA 427# PICLR 427# PIOFF 427# PION 427# PLIST 661# 661 PLISTE 661 663# PLISTS 662# PLUS 627# PNTENB 591# PNTEXT 470# PNTFLG 590# PNTINH 593# PNTLPT 168# PNTNAM 469# PNTRP 427# SEQ 0251 PNTSPC 594# PROCED 8920# 8920 9034 9041 PTRP 427# PVPAGI 688# QUEST 633# RADIX 636# RADLSC 638# RADLSP 637# RANDBS 471# REENTR 451# RELIAB 175# REPT 427# REPT1 427# REPTU 549# REQSET 427# RESRT1 526# RESRT2 527# RETURN 458# RSTART 164# RTP 631# RUNFLG 498# SADR1 67# 447 SADR10 76# 463 SADR11 77# 464 SADR2 68# 449 SADR3 69# 451 SADR4 70# SADR5 71# 512 SADR6 72# 513 SADR7 73# 460 SADR8 74# 461 SADR9 75# 462 SBINIT 237 457# SCOPE 550# SFSTRT 447# SIZ 4355# 4360 4384# 4389 4413# 4418 4442# 4448 4475# 4481 4509# 4516 4546# 4585 4694# 4733 4842# 4881 4990# 5029 5138# 5177 5286# 5325 5434# 5473 5582# 5621 5730# 5769 5878# 5917 6026# 6065 6174# 6213 6318# 6322 6327 6359 6361 6377# 6381 6386 6418 6420 6436# 6440 6448 6480 6482 6498# 6514 6516 6548 6550 6566# 6578 6580 6618 6637# 6649 6651 6689 6708# 6720 6722 6760 6779# 6799 6801 6839 6858# 6876 6878 6911 6913 6916 6918 6934# 6956 6958 6999 7005 7024# 7040 7042 7044 7079 7081 7097# 7117 7119 7121 7166 7185# 7211 7237 7238 7242 7282 7284 7356 7357 7375# 7408 7423 7425 7476 7540 7542 SLASH 634# SM10 738# SN 888# 903 903# 910 913 913# 920 923 923# 930 933 933# 940 943 943# 950 953 953# 960 1891# 1906 1906# 1913 1916 1916# 1923 1926 1926# 1933 1936 1936# 1943 1946 1946# 1953 1972# 1989 1989# 1997 2000 2000# 2008 2011 2011# 2019 2022 2022# 2030 2033 2033# 2041 2061# 2077 2077# 2085 2088 2088# 2096 2099 2099# 2107 2110 2110# 2118 2121 2121# 2129 2149# 2164 2164# 2171 2174 2174# 2181 2184 2184# 2191 2194 2194# 2201 2204 2204# 2211 2232# 2248 2248# 2256 2259 2259# 2267 2270 2270# 2278 2281 2281# 2289 2292 2292# 2300 2320# 2334 2334# 2341 2344 2344# 2351 2354 2354# 2361 2364 2364# 2371 SEQ 0252 2374 2374# 2381 2401# 2415 2415# 2422 2425 2425# 2432 2435 2435# 2442 2445 2445# 2452 2455 2455# 2462 2482# 2498 2498# 2507 2510 2510# 2519 2522 2522# 2531 2534 2534# 2543 2546 2546# 2555 2574# 2595 2595# 2606 2609 2609# 2620 2623 2623# 2634 2654# 2668 2668# 2675 2678 2678# 2685 2688 2688# 2695 2698 2698# 2705 2708 2708# 2715 2734# 2748 2748# 2755 2758 2758# 2765 2768 2768# 2775 2778 2778# 2785 2788 2788# 2795 2815# 2832 2832# 2841 2844 2844# 2853 2856 2856# 2865 2884# 2900 2900# 2908 2911 2911# 2919 2922 2922# 2930 2933 2933# 2941 2944 2944# 2952 2972# 2988 2988# 2996 2999 2999# 3007 3010 3010# 3018 3021 3021# 3029 3032 3032# 3040 3076# 3094 3094# 3104 3107 3107# 3117 3120 3120# 3130 3133 3133# 3143 3146 3146# 3156 3175# 3194 3194# 3205 3208 3208# 3219 3222 3222# 3233 3236 3236# 3247 3250 3250# 3261 3281# 3299 3299# 3309 3312 3312# 3322 3325 3325# 3335 3338 3338# 3348 3351 3351# 3361 3379# 3396 3396# 3405 3408 3408# 3417 3420 3420# 3429 3432 3432# 3441 3444 3444# 3453 3468# 3485 3485# 3493 3495 3498 3498# 3506 3508 3517# 3540 3540# 3550 3552 3556 3559 3559# 3569 3571 3575 4352# 4361 4361# 4363 4364 4364# 4366 4367 4367# 4369 4381# 4390 4390# 4392 4393 4393# 4395 4396 4396# 4398 4410# 4419 4419# 4421 4422 4422# 4424 4425 4425# 4427 4439# 4449 4449# 4452 4453 4453# 4456 4457 4457# 4460 4472# 4482 4482# 4485 4486 4486# 4489 4490 4490# 4493 4506# 4517 4517# 4520 4521 4521# 4524 4525 4525# 4528 4543# 4587 4587# 4600 4602 4602# 4615 4617 4617# 4630 4632 4632# 4645 4647 4647# 4658 4662 4662# 4675 4691# 4735 4735# 4748 4750 4750# 4763 4765 4765# 4778 4780 4780# 4793 4795 4795# 4806 4810 4810# 4823 4839# 4883 4883# 4896 4898 4898# 4911 4913 4913# 4926 4928 4928# 4941 4943 4943# 4954 4958 4958# 4971 4987# 5031 5031# 5044 5046 5046# 5059 5061 5061# 5074 5076 5076# 5083 5091 5091# 5096 5106 5106# 5113 5135# 5179 5179# 5192 5194 5194# 5207 5209 5209# 5222 5224 5224# 5231 5239 5239# 5244 5254 5254# 5261 5283# 5327 5327# 5340 5342 5342# 5355 5357 5357# 5370 5372 5372# 5379 5387 5387# 5392 5402 5402# 5409 5431# 5475 5475# 5482 5490 5490# 5497 5505 5505# 5512 5520 5520# 5527 5535 5535# 5540 5550 5550# 5557 5579# 5623 5623# 5630 5638 5638# 5645 5653 5653# 5660 5668 5668# 5675 5683 5683# 5688 5698 5698# 5705 5727# 5771 5771# 5778 5786 5786# 5793 5801 5801# 5808 5816 5816# 5823 5831 5831# 5836 5846 5846# 5853 5875# 5919 5919# 5926 5934 5934# 5941 5949 5949# 5956 5964 5964# 5977 5979 5979# 5990 5994 5994# 6007 6023# 6067 6067# 6074 6082 6082# 6089 6097 6097# 6104 6112 6112# 6125 6127 6127# 6138 6142 6142# 6155 6171# 6215 6215# 6222 6230 6230# 6237 6245 6245# 6252 6260 6260# 6273 6275 6275# 6286 6290 6290# 6303 6315# 6328 6328# 6331 6333 6333# 6336 6338 6338# 6341 6343 6343# 6346 6348 6348# 6351 6353 6353# 6356 6358 6358# 6361 6374# 6387 6387# 6390 6392 6392# 6395 6397 6397# 6400 6402 6402# 6405 6407 6407# 6410 6412 6412# 6415 6417 6417# 6420 6433# 6449 6449# 6452 6454 6454# 6457 6459 6459# 6462 6464 6464# 6467 6469 6469# 6472 6474 6474# 6477 6479 6479# 6482 6495# 6517 6517# 6520 6522 6522# 6525 6527 6527# 6530 6532 6532# 6535 6537 6537# 6540 6542 6542# 6545 6547 6547# 6550 6563# 6581 6581# 6585 6587 6587# 6591 6593 6593# 6597 6599 6599# 6603 6605 6605# 6609 6611 6611# 6615 6617 6617# 6621 6634# 6652 6652# 6656 6658 6658# 6662 6664 6664# 6668 6670 6670# 6674 6676 6676# 6680 6682 6682# 6686 6688 6688# 6692 6705# 6723 6723# 6727 6729 6729# 6733 6735 6735# 6739 6741 6741# 6745 6747 6747# 6751 6753 6753# 6757 6759 6759# 6763 6776# 6802 6802# 6806 6808 6808# 6812 6814 6814# 6818 6820 6820# 6824 6826 6826# 6830 6832 6832# 6836 6838 6838# 6842 6855# 6879 6879# 6882 6884 6884# 6887 6889 6889# 6892 6894 6894# 6897 6900 6900# 6903 6905 6905# 6908 6910 6910# 6913 6915 6915# 6918 6931# 6962 6962# 6966 6968 6968# 6972 6974 6974# 6978 6980 6980# 6984 6986 6986# 6990 6992 6992# 6996 6998 6998# 7002 7004 7004# 7008 7021# 7045 7045# 7048 7050 7050# 7052 7053 7053# 7056 7058 7058# 7061 7063 7063# 7066 7068 7068# 7071 7073 7073# 7076 7078 7078# 7081 SEQ 0253 7094# 7125 7125# 7129 7131 7131# 7134 7135 7135# 7139 7141 7141# 7145 7147 7147# 7151 7153 7153# 7157 7159 7159# 7163 7165 7165# 7169 7182# 7246 7246# 7249 7251 7251# 7253 7254 7254# 7256 7257 7257# 7259 7260 7260# 7262 7263 7263# 7265 7266 7266# 7268 7269 7269# 7271 7272 7272# 7274 7275 7275# 7277 7278 7278# 7280 7281 7281# 7284 7289 7289# 7293 7295 7295# 7299 7301 7301# 7305 7307 7307# 7311 7313 7313# 7317 7319 7319# 7323 7325 7325# 7329 7331 7331# 7335 7337 7337# 7341 7343 7343# 7347 7349 7349# 7353 7355 7355# 7359 7372# 7429 7429# 7433 7435 7435# 7438 7439 7439# 7442 7443 7443# 7446 7447 7447# 7450 7451 7451# 7454 7455 7455# 7458 7459 7459# 7462 7463 7463# 7466 7467 7467# 7470 7471 7471# 7474 7475 7475# 7479 7484 7484# 7487 7489 7489# 7492 7494 7494# 7497 7499 7499# 7502 7504 7504# 7507 7509 7509# 7512 7514 7514# 7517 7519 7519# 7522 7524 7524# 7527 7529 7529# 7532 7534 7534# 7537 7539 7539# 7542 7549# 7577 7577# 7589 7591 7593 7599 7599# 7611 7613 7615 7621 7621# 7633 7635 7637 7643 7643# 7655 7657 7659 7665 7665# 7677 7679 7681 7687 7687# 7699 7701 7703 7709 7709# 7721 7723 7725 7731 7731# 7743 7745 7747 7753 7753# 7765 7767 7769 7775 7775# 7787 7789 7791 7797 7797# 7809 7811 7813 7819 7819# 7831 7833 7835 7841 7841# 7853 7855 7857 7879# 7906 7906# 7913 7915 7917 7924 7924# 7931 7933 7935 7942 7942# 7949 7951 7953 7960 7960# 7967 7969 7971 7978 7978# 7985 7987 7989 7996 7996# 8003 8005 8007 8014 8014# 8021 8023 8025 8032 8032# 8039 8041 8043 8050 8050# 8057 8059 8061 8068 8068# 8075 8077 8079 8086 8086# 8093 8095 8097 8104 8104# 8111 8113 8115 8122 8122# 8129 8131 8133 8140 8140# 8147 8149 8151 8158 8158# 8165 8167 8169 8176 8176# 8183 8185 8187 8194 8194# 8201 8203 8205 8212 8212# 8219 8221 8223 8227# 8253 8253# 8260 8262 8264 8271 8271# 8278 8280 8282 8289 8289# 8296 8298 8300 8307 8307# 8314 8316 8318 8325 8325# 8332 8334 8336 8343 8343# 8350 8352 8354 8361 8361# 8368 8370 8372 8379 8379# 8386 8388 8390 8397 8397# 8404 8406 8408 8415 8415# 8422 8424 8426 8433 8433# 8440 8442 8444 8451 8451# 8458 8460 8462 8469 8469# 8476 8478 8480 8487 8487# 8494 8496 8498 8505 8505# 8512 8514 8516 8523 8523# 8530 8532 8534 8541 8541# 8548 8550 8552 8559 8559# 8566 8568 8570 8577# 8604 8604# 8616 8618 8620 8627 8627# 8639 8641 8643 8650 8650# 8662 8664 8666 8673 8673# 8685 8687 8689 8696 8696# 8708 8710 8712 8719 8719# 8731 8733 8735 8742 8742# 8754 8756 8758 8765 8765# 8777 8779 8781 8788 8788# 8800 8802 8804 8811 8811# 8823 8825 8827 8834 8834# 8846 8848 8850 8857 8857# 8869 8871 8873 8880 8880# 8892 8894 8896 SNTRP 427# SPACE 623# SPDES 3548 3554 3567 3573 4341 7553 7865 9007# SRCE 4353# 4357 4358 4359 4382# 4386 4387 4388 4411# 4415 4416 4417 4440# 4444 4445 4446 4447 4473# 4477 4478 4479 4480 4507# 4511 4512 4514 4515 4544# 4548 4550 4551 4552 4556 4557 4558 4562 4563 4564 4588 4595 4596 4600 4603 4610 4611 4615 4618 4625 4626 4630 4692# 4696 4698 4699 4700 4704 4705 4706 4710 4711 4712 4736 4743 4744 4748 4751 4758 4759 4763 4766 4773 4774 4778 4840# 4844 4846 4847 4848 4852 4853 4854 4858 4859 4860 4884 4891 4892 4896 4899 4906 4907 4911 4914 4921 4922 4926 4988# 4992 4994 4995 4996 5000 5001 5002 5006 5007 5008 5032 5039 5040 5044 5047 5054 5055 5059 5062 5069 5070 5074 5136# 5140 5142 5143 5144 5148 5149 5150 5154 5155 5156 5180 5187 5188 5192 5195 5202 5203 5207 5210 5217 5218 5222 5284# 5288 5290 5291 5292 5296 5297 5298 5302 5303 5304 5328 5335 5336 5340 5343 5350 5351 5355 5358 5365 5366 5370 5432# 5436 5438 5440 5442 5444 5446 5448 5450 5452 5454 5476 5477 5483 5491 5492 5498 5506 5507 5513 5580# 5584 5586 5588 5590 5592 5594 5596 5598 5600 5602 5624 5625 5631 5639 5640 5646 5654 5655 5661 5728# 5732 5734 5736 5738 SEQ 0254 5740 5742 5744 5746 5748 5750 5772 5773 5779 5787 5788 5794 5802 5803 5809 5876# 5880 5882 5884 5886 5888 5890 5892 5894 5896 5898 5920 5921 5927 5935 5936 5942 5950 5951 5957 6024# 6028 6030 6032 6034 6036 6038 6040 6042 6044 6046 6068 6069 6075 6083 6084 6090 6098 6099 6105 6172# 6176 6178 6180 6182 6184 6186 6188 6190 6192 6194 6216 6217 6223 6231 6232 6238 6246 6247 6253 6316# 6320 6322 6324 6325 6326 6375# 6379 6381 6383 6384 6385 6434# 6438 6440 6442 6444 6445 6446 6447 6496# 6500 6502 6504 6506 6508 6510 6512 6514 6564# 6568 6570 6572 6574 6575 6576 6577 6578 6635# 6639 6641 6643 6645 6646 6647 6648 6649 6706# 6710 6712 6715 6716 6717 6718 6719 6720 6777# 6781 6784 6787 6789 6792 6794 6797 6799 6856# 6860 6866 6868 6870 6872 6874 6876 6916 6918 6932# 6936 6944 6946 6949 6951 6954 6956 7005 7022# 7026 7028 7030 7032 7034 7036 7038 7040 7046 7048 7051 7052 7095# 7099 7102 7105 7107 7110 7112 7115 7117 7126 7132 7183# 7187 7189 7191 7193 7195 7197 7199 7201 7203 7205 7207 7209 7211 7247 7249 7252 7253 7255 7256 7258 7259 7261 7262 7264 7265 7267 7268 7270 7271 7273 7274 7276 7277 7279 7280 7282 7284 7373# 7377 7380 7383 7385 7388 7390 7393 7396 7398 7401 7404 7406 7408 7430 7436 7440 7444 7448 7452 7456 7460 7464 7468 7472 7476 SRTDDT 70 453# START 441 779# START1 460# START2 461# START3 462# START4 463# START5 464# STARTA 456 783# STRP 427# SUBLNK 199# 457 SWPTAB 744# SWTEXR 472# SYSEXR 445# TAB 624# TESTPC 499# 800 824 843 861 884 966 1015 1037 1058 1127 1151 1200 1221 1245 1266 1285 1307 1370 1389 1412 1433 1460 1487 1511 1535 1559 1582 1609 1632 1656 1681 1706 1730 1755 1779 1802 1826 1858 1887 1968 2057 2145 2228 2316 2397 2478 2570 2650 2730 2811 2880 2968 3072 3171 3277 3375 3464 3584 3621 3639 3660 3686 3714 3741 3770 3798 3823 3853 3884 3911 3938 3965 3994 4023 4052 4081 4112 4135 4157 4180 4202 4226 4251 4275 4301 4327 4349 4378 4407 4436 4469 4503 4540 4688 4836 4984 5132 5280 5428 5576 5724 5872 6020 6168 6311 6370 6429 6491 6559 6630 6701 6772 6851 6927 7017 7090 7178 7368 7581 7603 7625 7647 7669 7691 7713 7735 7757 7779 7801 7823 7845 8608 8631 8654 8677 8700 8723 8746 8769 8792 8815 8838 8861 8884 TICKS 502# TLET 781 8981 9004# TN0 427# TN1 427# TOTALS 165# TRP3TP 427# TTNBRF 682# TTYFIL 598# TTYSPD 599# TXTINH 176# 8965 SEQ 0255 UBAVEC 427# USER 489# USERF 427# USRASB 61# 479 USRCRF 608# USRLFF 607# UUODIS 561# UUOEXT 517# 9052 UUORTN 518# UUOSKP 515# VV 2575# 2596 2596# 2600 2610 2610# 2614 2624 2624# 2628 WW 1974# 1991 1991# 1993 2002 2002# 2004 2013 2013# 2015 2024 2024# 2026 2035 2035# 2037 2576# 2597 2597# 2600 2601 2611 2611# 2614 2615 2625 2625# 2628 2629 XX 1892# 1907 1907# 1909 1917 1917# 1919 1927 1927# 1929 1937 1937# 1939 1947 1947# 1949 1973# 1990 1990# 1993 2001 2001# 2004 2012 2012# 2015 2023 2023# 2026 2034 2034# 2037 2062# 2078 2078# 2080 2089 2089# 2091 2100 2100# 2102 2111 2111# 2113 2122 2122# 2124 2150# 2165 2165# 2167 2175 2175# 2177 2185 2185# 2187 2195 2195# 2197 2205 2205# 2207 2233# 2249 2249# 2253 2260 2260# 2264 2271 2271# 2275 2282 2282# 2286 2293 2293# 2297 2577# 2598 2598# 2601 2602 2603 2605 2612 2612# 2615 2616 2617 2619 2626 2626# 2629 2630 2631 2633 2816# 2833 2833# 2837 2838 2840 2845 2845# 2849 2850 2852 2857 2857# 2861 2862 2864 2885# 2901 2901# 2903 2912 2912# 2914 2923 2923# 2925 2934 2934# 2936 2945 2945# 2947 2973# 2989 2989# 2991 3000 3000# 3002 3011 3011# 3013 3022 3022# 3024 3033 3033# 3035 3051# 3053 3077# 3095 3095# 3098 3108 3108# 3111 3121 3121# 3124 3134 3134# 3137 3147 3147# 3150 3176# 3195 3195# 3199 3209 3209# 3213 3223 3223# 3227 3237 3237# 3241 3251 3251# 3255 3282# 3300 3300# 3303 3313 3313# 3316 3326 3326# 3329 3339 3339# 3342 3352 3352# 3355 3469# 3486 3486# 3490 3494 3499 3499# 3503 3507 3518# 3541 3541# 3545 3560 3560# 3564 7880# 7907 7907# 7909 7925 7925# 7927 7943 7943# 7945 7961 7961# 7963 7979 7979# 7981 7997 7997# 7999 8015 8015# 8017 8033 8033# 8035 8051 8051# 8053 8069 8069# 8071 8087 8087# 8089 8105 8105# 8107 8123 8123# 8125 8141 8141# 8143 8159 8159# 8161 8177 8177# 8179 8195 8195# 8197 8213 8213# 8215 8228# 8254 8254# 8256 8272 8272# 8274 8290 8290# 8292 8308 8308# 8310 8326 8326# 8328 8344 8344# 8346 8362 8362# 8364 8380 8380# 8382 8398 8398# 8400 8416 8416# 8418 8434 8434# 8436 8452 8452# 8454 8470 8470# 8472 8488 8488# 8490 8506 8506# 8508 8524 8524# 8526 8542 8542# 8544 8560 8560# 8562 YY 890# 905 905# 906 915 915# 916 925 925# 926 935 935# 936 945 945# 946 955 955# 956 ZZ 889# 904 904# 906 907 914 914# 916 917 924 924# 926 927 934 934# 936 937 944 944# 946 947 954 954# 956 957 1893# 1908 1908# 1910 1918 1918# 1920 1928 1928# 1930 1938 1938# 1940 1948 1948# 1950 1975# 1992 1992# 1994 2003 2003# 2005 2014 2014# 2016 2025 2025# 2027 2036 2036# 2038 2063# 2079 2079# 2080 2082 2090 2090# 2091 2093 2101 2101# 2102 2104 2112 2112# 2113 2115 2123 2123# 2124 2126 2151# 2166 2166# 2170 2176 2176# 2180 2186 2186# 2190 2196 2196# 2200 2206 2206# 2210 2234# 2250 2250# 2251 2261 2261# 2262 2272 2272# 2273 2283 2283# 2284 2294 2294# 2295 2321# 2335 2335# 2337 2338 2340 2345 2345# 2347 2348 2350 2355 2355# 2357 2358 2360 2365 2365# 2367 2368 2370 2375 2375# 2377 2378 2380 2402# 2416 2416# 2418 2419 2420 2421 2426 2426# 2428 2429 2430 2431 2436 2436# 2438 2439 2440 2441 2446 2446# 2448 2449 2450 2451 2456 2456# 2458 2459 2460 2461 2483# 2499 2499# 2501 2502 2503 2506 2511 2511# 2513 2514 2515 2518 2523 2523# SEQ 0256 2525 2526 2527 2530 2535 2535# 2537 2538 2539 2542 2547 2547# 2549 2550 2551 2554 2578# 2599 2599# 2604 2613 2613# 2618 2627 2627# 2632 2655# 2669 2669# 2671 2672 2674 2679 2679# 2681 2682 2684 2689 2689# 2691 2692 2694 2699 2699# 2701 2702 2704 2709 2709# 2711 2712 2714 2735# 2749 2749# 2751 2752 2754 2759 2759# 2761 2762 2764 2769 2769# 2771 2772 2774 2779 2779# 2781 2782 2784 2789 2789# 2791 2792 2794 2817# 2834 2834# 2836 2837 2846 2846# 2848 2849 2858 2858# 2860 2861 2886# 2902 2902# 2905 2913 2913# 2916 2924 2924# 2927 2935 2935# 2938 2946 2946# 2949 2974# 2990 2990# 2993 3001 3001# 3004 3012 3012# 3015 3023 3023# 3026 3034 3034# 3037 3078# 3096 3096# 3099 3109 3109# 3112 3122 3122# 3125 3135 3135# 3138 3148 3148# 3151 3177# 3196 3196# 3197 3197# 3200 3210 3210# 3211 3214 3224 3224# 3225 3228 3238 3238# 3239 3242 3252 3252# 3253 3256 3283# 3301 3301# 3304 3314 3314# 3317 3327 3327# 3330 3340 3340# 3343 3353 3353# 3356 3380# 3397 3397# 3400 3409 3409# 3412 3421 3421# 3424 3433 3433# 3436 3445 3445# 3448 7881# 7908 7908# 7916 7926 7926# 7934 7944 7944# 7952 7962 7962# 7970 7980 7980# 7988 7998 7998# 8006 8016 8016# 8024 8034 8034# 8042 8052 8052# 8060 8070 8070# 8078 8088 8088# 8096 8106 8106# 8114 8124 8124# 8132 8142 8142# 8150 8160 8160# 8168 8178 8178# 8186 8196 8196# 8204 8214 8214# 8222 8255 8255# 8263 8273 8273# 8281 8291 8291# 8299 8309 8309# 8317 8327 8327# 8335 8345 8345# 8353 8363 8363# 8371 8381 8381# 8389 8399 8399# 8407 8417 8417# 8425 8435 8435# 8443 8453 8453# 8461 8471 8471# 8479 8489 8489# 8497 8507 8507# 8515 8525 8525# 8533 8543 8543# 8551 8561 8561# 8569 $$MUUO 713# $$OUTE 719# $$TAX1 731# $$TAX2 732# $$TOGG 725# $$UUO 702# $ACC0 540# $ACF 9008# $BEND1 510# $BEND2 71 511# 9061 $CHRIN 601# $CRLF 603# $DEVCH 427# $DSKUP 480# $DVOFF 597# $EMODE 478# $FFF 605# $IBUF 653# $INEXT 655# $INNM 654# $ITRHL 521# $ITRX1 522# $LPAPE 9067 $MMAP 481# $MODVL 476# $MODVU 477# $OBUF 644# $ONETM 504# $OUTEX 646# $OUTNM 645# $PAPER 427 SEQ 0257 $PARER 528# $PNAME 474# $PSHER 532# $PVER 475# $RSRTX 524# $RSRTY 525# $SPAG1 544# $START 441# $SVAPR 542# $SVPAG 543# $SVPI 541# $SVUPC 547# 8915 8919 8945 $SVUUO 546# 8924 8956 8984 $TABF 604# $TTCHR 600# $TWCNT 596# $TYPNB 602# $UMODE 479# $UORTX 519# $USRHL 523# $UUOER 520# 561 $VTF 606# %AC1F 9009# %ACS1A 8926# 8926 8970 %ACTFL 553# %ACTUL 554# %ALF 9014# %AR1F 9013# %ARF 9012# %COREC 552# %CORFL 551# %DISCR 555# %E1F 9011# %EEF 9015# %EF 9010# %ER4X 8990 8995# %ER5X 8988 8997# %ER6X 8986 8999# %ER7X 8992# 8996 8998 9000 %ERAC0 8911# 8911 8927 8961 9051 %ERAC1 8912# 8912 8928 9039 %ERAC2 8913# 8913 9038 %ERFST 8934# 8934 8936 %ERHI1 694# %ERHI2 695# %ERHI3 696# %ERMOR 8966 8993 9022# %ERMS1 8931# 9057 %ERMS2 8954# %ERMS3 8972 8979# %ERRS1 8923 9025# 9056 %ERRS2 9038# %ERRS4 8930 9054# SEQ 0258 %ERRS5 9042 9046 9051# %ERRS6 9049 9059# %FF 9016# %FLTTB 8974 9005# %NODES 9006# .JB41 427# .JBAPR 427# .JBCNI 427# .JBDDT 427# .JBFF 427# .JBOPC 427# .JBREL 427# .JBREN 427# .JBSA 427# .JBSYM 427# .JBTPC 427# .JBUSY 427# .JBUUO 427# .JBVER 427# APRID 427# BCIO 427# SEQ 0259 BCIOB 427# BLTM1 126# 4532 4680 4828 4976 5124 5272 5420 5568 5716 5864 6012 6160 BSIO 427# BSIOB 427# CFLUSH 349# CINVAL 348# CLOKOP 343# CLRPT 427# CWRTBI 350# DROPDV 310# 756 ENDUUO 356# 509 EOPUUO 357# 511 ER1 34# ER10 41# ER11 42# ER12 43# 833 1641 1691 1716 1741 1765 1789 1812 1870 3104 3117 3130 3143 3156 3205 3219 3233 3247 3261 3309 3322 3335 3348 3361 3405 3417 3429 3441 3453 3552 3571 3611 3677 3705 3732 3759 3788 3814 3844 3873 3901 3929 3956 3983 4013 4043 4072 4102 4126 4149 4171 4194 4219 4243 4268 4293 4319 ER13 44# 1836 3599 3613 ER2 35# 3550 3556 3569 3575 4363 4366 4369 4392 4395 4398 4421 4424 4427 4452 4456 4460 4485 4489 4493 4520 4524 4528 4600 4615 4630 4645 4658 4675 4748 4763 4778 4793 4806 4823 4896 4911 4926 4941 4954 4971 5044 5059 5074 5083 5096 5113 5192 5207 5222 5231 5244 5261 5340 5355 5370 5379 5392 5409 5482 5497 5512 5527 5540 5557 5630 5645 5660 5675 5688 5705 5778 5793 5808 5823 5836 5853 5926 5941 5956 5977 5990 6007 6074 6089 6104 6125 6138 6155 6222 6237 6252 6273 6286 6303 6331 6336 6341 6346 6351 6356 6361 6390 6395 6400 6405 6410 6415 6420 6452 6457 6462 6467 6472 6477 6482 6520 6525 6530 6535 6540 6545 6550 6585 6591 6597 6603 6609 6615 6621 6656 6662 6668 6674 6680 6686 6692 6727 6733 6739 6745 6751 6757 6763 6806 6812 6818 6824 6830 6836 6842 6882 6887 6892 6897 6903 6908 6913 6918 6966 6972 6978 6984 6990 6996 7002 7008 7048 7052 7056 7061 7066 7071 7076 7081 7129 7134 7139 7145 7151 7157 7163 7169 7249 7253 7256 7259 7262 7265 7268 7271 7274 7277 7280 7284 7293 7299 7305 7311 7317 7323 7329 7335 7341 7347 7353 7359 7433 7438 7442 7446 7450 7454 7458 7462 7466 7470 7474 7479 7487 7492 7497 7502 7507 7512 7517 7522 7527 7532 7537 7542 7589 7611 7633 7655 7677 7699 7721 7743 7765 7787 7809 7831 7853 7869 7913 7931 7949 7967 7985 8003 8021 8039 8057 8075 8093 8111 8129 8147 8165 8183 8201 8219 8260 8278 8296 8314 8332 8350 8368 8386 8404 8422 8440 8458 8476 8494 8512 8530 8548 8566 8616 8639 8662 8685 8708 8731 8754 8777 8800 8823 8846 8869 8892 ER3 36# 809 1255 1275 1293 1316 1325 1334 1343 1351 1360 1379 1398 1420 1442 1470 1497 1522 1546 1571 1594 1665 2171 2181 2191 2201 2211 2256 2267 2278 2289 2300 2341 2351 2361 2371 2381 2422 2432 2442 2452 2462 2507 2519 2531 2543 2555 2606 2620 2634 2675 2685 2695 2705 2715 2755 2765 2775 2785 2795 2841 2853 2865 2908 2919 2930 2941 2952 2996 3007 3018 3029 3040 3058 3493 3506 3595 3675 3702 3730 3761 3786 3842 3875 3899 3926 3954 3985 4011 4040 4070 4104 4122 4145 4167 4190 4215 4239 4264 4289 4315 7591 7613 7635 7657 7679 7701 7723 7745 7767 7789 7811 7833 7855 7871 7915 7933 7951 7969 7987 8005 8023 8041 8059 8077 8095 8113 8131 8149 8167 8185 8203 8221 8262 8280 8298 8316 8334 8352 8370 8388 8406 8424 8442 8460 8478 8496 8514 8532 8550 8568 8618 8641 8664 SEQ 0260 8687 8710 8733 8756 8779 8802 8825 8848 8871 8894 ER4 37# 1617 3495 3508 3597 3609 7593 7615 7637 7659 7681 7703 7725 7747 7769 7791 7813 7835 7857 7873 7917 7935 7953 7971 7989 8007 8025 8043 8061 8079 8097 8115 8133 8151 8169 8187 8205 8223 8264 8282 8300 8318 8336 8354 8372 8390 8408 8426 8444 8462 8480 8498 8516 8534 8552 8570 8620 8643 8666 8689 8712 8735 8758 8781 8804 8827 8850 8873 8896 ER5 38# 851 869 910 920 930 940 950 960 975 983 990 998 1006 1024 1046 1067 1076 1085 1094 1103 1111 1136 1161 1170 1179 1188 1209 1231 1643 1667 1868 1913 1923 1933 1943 1953 1997 2008 2019 2030 2041 2085 2096 2107 2118 2129 3630 3651 3673 3700 3728 3756 3784 3840 3870 3897 3924 3952 3980 4009 4038 4068 4099 4124 4147 4169 4192 4217 4241 4266 4291 4317 4336 ER6 39# ER7 40# ERLOOP 397# ERLP1 398# ERLP2 399# ERRHLT 244# 9032 ERROR 406# ERROR1 417# ERUUO 396# FATAL 243# FRD36 385# FRD8 386# FREAD 384# FSELEC 383# GCAM 111# 4586 4601 4616 4631 4646 4661 4734 4749 4764 4779 4794 4809 4882 4897 4912 4927 4942 4957 5030 5045 5060 5075 5090 5105 5178 5193 5208 5223 5238 5253 5326 5341 5356 5371 5386 5401 5474 5489 5504 5519 5534 5549 5622 5637 5652 5667 5682 5697 5770 5785 5800 5815 5830 5845 5918 5933 5948 5963 5978 5993 6066 6081 6096 6111 6126 6141 6214 6229 6244 6259 6274 6289 GET 227# GMOV 104# 4549 4555 4561 4567 4573 4579 4697 4703 4709 4715 4721 4727 4845 4851 4857 4863 4869 4875 4993 4999 5005 5011 5017 5023 5141 5147 5153 5159 5165 5171 5289 5295 5301 5307 5313 5319 5437 5443 5449 5455 5461 5467 5585 5591 5597 5603 5609 5615 5733 5739 5745 5751 5757 5763 5881 5887 5893 5899 5905 5911 6029 6035 6041 6047 6053 6059 6177 6183 6189 6195 6201 6207 GO 224# HALT 229# 530 JEN 231# JRSTF 230# 3591 3605 3624 3642 3663 3689 3717 3744 3773 3801 3827 3856 3887 3914 3941 3968 3997 4026 4055 4084 4115 4138 4160 4183 4205 4229 4254 4278 4304 4330 MAPADR 366# MAPCNK 367# MAPMEM 363# MAPPNT 369# MAPSET 368# MEMSEG 365# MEMZRO 364# MODPCP 376# SEQ 0261 MODPCU 375# MTROP 344# NAME 8# 11 PBELL 319# 9036 PCRL 313# 8973 8992 PCRL2 317# PCRL2F 318# PCRLF 314# PFORCE 321# PGMINT 237# 779 PJRST 228# PMSG 323# 8939 8943 8954 8979 PMSGF 326# 9059 PNT1 279# PNT11 293# PNT11F 294# PNT1F 280# PNT2 281# PNT2F 282# PNT3 283# 8991 PNT3F 284# PNT4 285# 8995 PNT4F 286# PNT5 287# 8997 PNT5F 288# PNT6 289# 8947 8999 PNT6F 290# PNT7 291# PNT7F 292# PNTA 265# 8982 PNTADF 296# PNTADR 295# PNTAF 266# PNTAL 267# 8975 PNTALF 268# PNTCHF 278# PNTCHR 277# PNTCI 275# PNTCIF 276# PNTCW 311# PNTCWF 312# PNTDCF 304# PNTDEC 303# 8942 PNTDS 305# PNTDSF 306# PNTHW 299# 8962 PNTHWF 300# PNTMSF 272# PNTMSG 271# PNTNM 307# 8935 PNTOCF 302# PNTOCS 301# PNTOCT 297# SEQ 0262 PNTOTF 298# PNTSIX 308# PNTSXF 309# PSIXL 269# PSIXLF 270# PSIXM 273# 8940 8944 8955 8980 PSIXMF 274# 9060 PSP 315# PSPF 316# PUT 226# RDAPR 427# RDCSB 427# RDCSTM 427# RDEBR 427# RDHSB 427# RDINT 427# RDIO 427# RDIOB 427# RDPI 427# RDPUR 427# RDSPB 427# RDTIM 427# RDUBR 427# REPTUO 400# RTN 225# 517 S 155# 157 161 190 192 201 204 219 220 222 233 235 239 241 246 250 392 394 427 432 438 465 467 485 487 505 507 536 538 556 558 576 578 586 588 609 614 640 642 649 651 657 659 665 667 671 673 678 680 684 686 690 692 698 700 703 705 709 711 715 717 721 723 727 729 734 736 740 742 746 748 750 752 SAVEAC 92# 798 822 841 859 882 964 1013 1035 1056 1125 1149 1198 1219 1243 1264 1283 1305 1368 1387 1410 1431 1458 1485 1509 1533 1557 1580 1607 1630 1654 1679 1704 1728 1753 1777 1800 1824 1856 1885 1966 2055 2143 2226 2314 2395 2476 2568 2648 2728 2809 2878 2966 3070 3169 3275 3373 3462 3582 3619 3637 3658 3684 3712 3739 3768 3796 3821 3851 3882 3909 3936 3963 3992 4021 4050 4079 4110 4133 4155 4178 4200 4224 4249 4273 4299 4325 4347 4376 4405 4434 4467 4501 4538 4686 4834 4982 5130 5278 5426 5574 5722 5870 6018 6166 6309 6368 6427 6489 6557 6628 6699 6770 6849 6925 7015 7088 7176 7366 7579 7601 7623 7645 7667 7689 7711 7733 7755 7777 7799 7821 7843 8606 8629 8652 8675 8698 8721 8744 8767 8790 8813 8836 8859 8882 SIXBTZ 332# SWITCH 338# 8921 9023 TIOE 427# TIOEB 427# TION 427# TIONB 427# TTALTM 259# 9025 TTICHR 252# TTICLR 262# TTICNV 257# TTIDEC 256# SEQ 0263 TTINO 254# TTIOCT 255# TTIYES 253# TTLOOK 258# TTSIXB 260# TTYINP 261# WRAPR 427# WRCSB 427# WRCSTM 427# WREBR 427# WRHSB 427# WRINT 427# WRIO 427# WRIOB 427# WRPI 427# WRPUR 427# WRSPB 427# WRTIM 427# WRUBR 427# ANDI 8958 AOJ 1205 2081 2092 2103 2114 2125 SEQ 0264 AOS 515 8914 8917 9043 9044 ASCII 616 618 621 622 623 624 626 627 628 629 630 631 633 634 635 ASCIZ 759 780 3547 3553 3566 3572 4340 7552 7864 9008 9009 9010 9011 9012 9013 9014 9015 9016 BLOCK 584 644 647 653 656 662 8903 8906 9224 BLT 4360 4389 4418 4448 4481 4516 4585 4733 4881 5029 5177 5325 5473 5621 5769 5917 6065 6213 6327 6386 6448 6516 6580 6651 6722 6801 6878 6958 7044 7121 7242 7425 BYTE 632 CAIE 1254 1292 1469 1496 1521 1545 1570 1593 1664 1869 2170 2180 2190 2200 2210 2255 2266 2277 2288 2299 2340 2350 2360 2370 2380 2421 2431 2441 2451 2461 2506 2518 2530 2542 2554 2605 2619 2633 2674 2684 2694 2704 2714 2754 2764 2774 2784 2794 2840 2852 2864 2907 2918 2929 2940 2951 2995 3006 3017 3028 3039 3594 3674 3701 3729 3760 3785 3841 3874 3898 3925 3953 3984 4010 4039 4069 4103 4121 4123 4125 4144 4146 4148 4168 4170 4191 4193 4216 4218 4238 4263 7916 7934 7952 7970 7988 8006 8024 8042 8060 8078 8096 8114 8132 8150 8168 8186 8204 8222 8263 8281 8299 8317 8335 8353 8371 8389 8407 8425 8443 8461 8479 8497 8515 8533 8551 8569 8619 8642 8665 8688 8711 8734 8757 8780 8803 8826 8849 8872 8895 CAIG 8960 8971 CAIL 9048 CAME 832 850 868 909 919 929 939 949 959 974 982 989 997 1005 1023 1045 1066 1075 1084 1093 1102 1110 1135 1160 1169 1178 1187 1208 1230 1274 1315 1324 1333 1342 1350 1359 1378 1397 1616 1640 1642 1666 1690 1715 1740 1764 1788 1811 1867 1912 1922 1932 1942 1952 1996 2007 2018 2029 2040 2084 2095 2106 2117 2128 3103 3116 3129 3142 3155 3204 3218 3232 3246 3260 3308 3321 3334 3347 3360 3404 3416 3428 3440 3452 3492 3494 3505 3507 3549 3551 3555 3568 3570 3574 3596 3608 3610 3629 3650 3672 3676 3699 3704 3727 3731 3755 3758 3783 3787 3813 3839 3843 3869 3872 3896 3900 3923 3928 3951 3955 3979 3982 4008 4012 4037 4042 4067 4071 4098 4101 4166 4189 4214 4240 4242 4265 4267 4288 4290 4292 4314 4316 4318 4335 4362 4368 4394 4423 4451 4459 4488 4523 4596 4611 4626 4641 4656 4671 4744 4759 4774 4789 4804 4819 4892 4907 4922 4937 4952 4967 5040 5055 5070 5079 5094 5109 5188 5203 5218 5227 5242 5257 5336 5351 5366 5375 5390 5405 5478 5493 5508 5523 5538 5553 5626 5641 5656 5671 5686 5701 5774 5789 5804 5819 5834 5849 5922 5937 5952 5973 5988 6003 6070 6085 6100 6121 6136 6151 6218 6233 6248 6269 6284 6299 6329 6359 6393 6398 6403 6408 6413 6450 6455 6460 6465 6470 6475 6480 6518 6523 6528 6533 6538 6543 6548 6583 6619 6660 6666 6672 6678 6684 6725 6731 6737 6743 6749 6755 6761 6804 6810 6816 6822 6828 6834 6840 6880 6885 6890 6895 6901 6906 6911 6916 6964 6970 6976 6982 6988 6994 7000 7006 7046 7051 7054 7059 7064 7069 7074 7079 7127 7133 7137 7143 7149 7155 7161 7167 7247 7252 7255 7258 7261 7264 7267 7270 7273 7276 7279 7282 7291 7297 7303 7309 7315 7321 7327 7333 7339 7345 7351 7357 7431 7437 7441 7445 7449 7453 7457 7461 7465 7469 7473 7477 7485 7490 7495 7500 7505 7510 7515 7520 7525 7530 7535 7540 7870 7914 7932 7950 7968 7986 8004 8022 8040 8058 8076 8094 8112 8130 8148 8166 8184 8202 8220 8261 8279 8297 8315 8333 8351 8369 8387 8405 8423 8441 8459 8477 8495 8513 8531 8549 8567 8617 8640 8663 8686 8709 8732 8755 8778 8801 8824 8847 8870 8893 CAMN 8916 DEFINE 8 92 104 111 126 155 323 326 332 406 417 SEQ 0265 DPB 1689 1714 1739 1763 1787 1810 1833 3102 3115 3128 3141 3154 3203 3217 3231 3245 3259 3546 3565 3671 3698 3725 3753 4165 4287 4313 END 9232 HRL 8919 HRLI 1225 1227 1249 1465 1515 1539 1563 1586 2336 2346 2356 2366 2376 2418 2428 2438 2448 2458 2502 2514 2526 2538 2550 2602 2616 2630 3398 3410 3422 3434 3446 3778 3806 3832 3861 4002 4031 4060 4090 HRLOI 1311 1806 4260 4332 HRLZI 2168 2178 2188 2198 2208 4235 4333 HRRI 1226 1228 1250 1466 1516 1540 1564 1587 1735 2337 2347 2357 2367 2377 2419 2429 2439 2449 2459 2501 2503 2513 2515 2525 2527 2537 2539 2549 2551 2603 2617 2631 3399 3411 3423 3435 3447 3666 3692 3720 3747 3776 3804 3830 3859 3890 3917 3944 3971 4000 4029 4058 4087 4232 4257 4281 4307 HRROI 1710 1759 4234 4259 4283 4309 7214 7217 7219 7221 7223 7225 7227 7229 7231 7233 7235 7237 7410 7412 7413 7415 7416 7417 7418 7419 7420 7421 7422 7423 HRRZ 8915 8945 8984 HRRZI 1270 1320 1734 1783 4119 4142 4164 4187 4209 IBP 807 831 849 867 908 918 928 938 948 958 973 981 988 996 1004 1021 1043 1064 1073 1082 1091 1100 1108 1133 1158 1167 1176 1185 1207 1229 1911 1921 1931 1941 1951 1995 2006 2017 2028 2039 2083 2094 2105 2116 2127 3628 3648 4211 4213 4334 IDPB 1866 3307 3320 3333 3346 3359 3403 3415 3427 3439 3451 3606 3782 3811 3836 3866 4188 IF1 99 100 8902 8905 IFDEF 427 478 479 480 481 8949 9019 9223 9230 IFDIF 4599 4614 4629 4644 4659 4674 4747 4762 4777 4792 4807 4822 4895 4910 4925 4940 4955 4970 5043 5058 5073 5082 5097 5112 5191 5206 5221 5230 5245 5260 5339 5354 5369 5378 5393 5408 5481 5496 5511 5526 5541 5556 5629 5644 5659 5674 5689 5704 5777 5792 5807 5822 5837 5852 5925 5940 5955 5976 5991 6006 6073 6088 6103 6124 6139 6154 6221 6236 6251 6272 6287 6302 IFE 3197 3211 3225 3239 3253 IFG 4552 4558 4564 4570 4576 4582 4588 4603 4618 4633 4648 4663 4700 4706 4712 4718 4724 4730 4736 4751 4766 4781 4796 4811 4848 4854 4860 4866 4872 4878 4884 4899 4914 4929 4944 4959 4996 5002 5008 5014 5020 5026 5032 5047 5062 5077 5092 5107 5144 5150 5156 5162 5168 5174 5180 5195 5210 5225 5240 5255 5292 5298 5304 5310 5316 5322 5328 5343 5358 5373 5388 5403 5440 5446 5452 5458 5464 5470 5476 5491 5506 5521 5536 5551 5588 5594 5600 5606 5612 5618 5624 5639 5654 5669 5684 5699 5736 5742 5748 5754 5760 5766 5772 5787 5802 5817 5832 5847 5884 5890 5896 5902 5908 5914 5920 5935 5950 5965 5980 5995 6032 6038 6044 6050 6056 6062 6068 6083 6098 6113 6128 6143 6180 6186 6192 6198 6204 6210 6216 6231 6246 6261 6276 6291 IFIDN 4597 4612 4627 4642 4657 4672 4745 4760 4775 4790 4805 4820 4893 4908 4923 4938 4953 4968 5041 5056 5071 5080 5095 5110 5189 5204 5219 5228 5243 5258 5337 5352 5367 5376 5391 5406 5479 5494 5509 5524 5539 5554 5627 5642 5657 5672 5687 5702 5775 5790 5805 5820 5835 5850 5923 5938 5953 5974 5989 6004 6071 6086 6101 6122 6137 6152 6219 6234 6249 6270 6285 6300 IFLE 4550 4556 4562 4568 4574 4580 4595 4610 4625 4640 4655 4670 4698 4704 4710 4716 4722 4728 4743 4758 4773 4788 4803 4818 4846 4852 4858 4864 SEQ 0266 4870 4876 4891 4906 4921 4936 4951 4966 4994 5000 5006 5012 5018 5024 5039 5054 5069 5084 5099 5114 5142 5148 5154 5160 5166 5172 5187 5202 5217 5232 5247 5262 5290 5296 5302 5308 5314 5320 5335 5350 5365 5380 5395 5410 5438 5444 5450 5456 5462 5468 5483 5498 5513 5528 5543 5558 5586 5592 5598 5604 5610 5616 5631 5646 5661 5676 5691 5706 5734 5740 5746 5752 5758 5764 5779 5794 5809 5824 5839 5854 5882 5888 5894 5900 5906 5912 5927 5942 5957 5972 5987 6002 6030 6036 6042 6048 6054 6060 6075 6090 6105 6120 6135 6150 6178 6184 6190 6196 6202 6208 6223 6238 6253 6268 6283 6298 IFNDEF 378 379 389 478 479 480 481 560 9067 ILDB 1615 1639 1663 2906 2917 2928 2939 2950 2994 3005 3016 3027 3038 3056 3592 4006 4035 4064 4095 4143 JFCL 518 519 520 521 522 523 524 525 526 527 528 529 JFFO 7587 7609 7631 7653 7675 7697 7719 7741 7763 7785 7807 7829 7851 7868 7912 7930 7948 7966 7984 8002 8020 8038 8056 8074 8092 8110 8128 8146 8164 8182 8200 8218 8259 8277 8295 8313 8331 8349 8367 8385 8403 8421 8439 8457 8475 8493 8511 8529 8547 8565 8615 8638 8661 8684 8707 8730 8753 8776 8799 8822 8845 8868 8891 JRST 71 72 73 74 75 76 77 228 229 230 231 440 441 443 445 447 449 451 454 456 457 510 783 1419 7588 7610 7632 7654 7676 7698 7720 7742 7764 7786 7808 7830 7852 8900 8923 8930 8933 8938 8966 8972 8986 8988 8990 8993 8996 8998 9000 9026 9029 9042 9046 9049 9052 9056 9057 9061 JSP 237 1440 1834 3593 3607 JUMPE 3600 JUMPL 810 834 852 870 911 921 931 941 951 961 976 984 991 999 1007 1025 1047 1068 1077 1086 1095 1104 1112 1137 1162 1171 1180 1189 1210 1232 1256 1276 1294 1317 1326 1335 1344 1352 1361 1380 1399 1421 1443 1471 1498 1523 1547 1572 1595 1618 1644 1668 1692 1717 1742 1766 1790 1813 1837 1871 1914 1924 1934 1944 1954 1998 2009 2020 2031 2042 2086 2097 2108 2119 2130 2172 2182 2192 2202 2212 2257 2268 2279 2290 2301 2342 2352 2362 2372 2382 2423 2433 2443 2453 2463 2508 2520 2532 2544 2556 2607 2621 2635 2676 2686 2696 2706 2716 2756 2766 2776 2786 2796 2842 2854 2866 2909 2920 2931 2942 2953 2997 3008 3019 3030 3041 3059 3105 3118 3131 3144 3157 3206 3220 3234 3248 3262 3310 3323 3336 3349 3362 3406 3418 3430 3442 3454 3496 3509 3557 3576 3614 3631 3652 3678 3706 3733 3762 3789 3815 3845 3876 3902 3930 3957 3986 4014 4044 4073 4105 4127 4150 4172 4195 4220 4244 4269 4294 4320 4337 4370 4399 4428 4461 4494 4529 4676 4824 4972 5120 5268 5416 5564 5712 5860 6008 6156 6304 6363 6422 6484 6552 6623 6694 6765 6844 6920 7010 7083 7171 7361 7544 7594 7616 7638 7660 7682 7704 7726 7748 7770 7792 7814 7836 7858 7874 7918 7936 7954 7972 7990 8008 8026 8044 8062 8080 8098 8116 8134 8152 8170 8188 8206 8224 8265 8283 8301 8319 8337 8355 8373 8391 8409 8427 8445 8463 8481 8499 8517 8535 8553 8571 8621 8644 8667 8690 8713 8736 8759 8782 8805 8828 8851 8874 8897 LALL 9 LDB 1253 1273 1291 1314 1323 1332 1341 1349 1358 1377 1396 1418 1439 1468 1495 1520 1544 1569 1592 2169 2179 2189 2199 2209 2254 2265 2276 2287 2298 2339 2349 2359 2369 2379 2420 2430 2440 2450 2460 2505 2517 2529 2541 2553 2604 2618 2632 2673 2683 2693 2703 2713 2753 2763 2773 2783 2793 2839 2851 2863 3491 3504 3895 3922 3949 3977 4120 4237 4262 LIST 8 389 427 560 8949 9019 9067 9220 LIT 9068 SEQ 0267 LOC 25 430 754 LSH 8925 8957 MOVE 780 3488 3490 3501 3503 3543 3544 3545 3548 3562 3563 3564 3567 3588 3589 3590 3602 3603 3604 3649 3667 3668 3670 3693 3694 3696 3703 3722 3723 3726 3749 3751 3754 3757 3777 3779 3781 3805 3807 3809 3833 3834 3838 3862 3864 3868 3871 3891 3892 3894 3918 3919 3927 3946 3947 3950 3973 3975 3978 3981 4001 4003 4005 4030 4032 4041 4061 4062 4066 4091 4093 4097 4100 4233 4236 4258 4261 4282 4286 4308 4312 4357 4386 4415 4417 4444 4450 4454 4458 4477 4483 4487 4491 4511 4513 4518 4522 4526 4548 4551 4557 4563 4569 4575 4581 4696 4699 4705 4711 4717 4723 4729 4844 4847 4853 4859 4865 4871 4877 4992 4995 5001 5007 5015 5021 5027 5078 5093 5108 5140 5143 5149 5155 5163 5169 5175 5226 5241 5256 5288 5291 5297 5303 5311 5317 5323 5374 5389 5404 5436 5441 5447 5453 5459 5465 5471 5477 5492 5507 5522 5537 5552 5584 5589 5595 5601 5607 5613 5619 5625 5640 5655 5670 5685 5700 5732 5737 5743 5749 5755 5761 5767 5773 5788 5803 5818 5833 5848 5880 5885 5891 5897 5901 5907 5913 5921 5936 5951 6028 6033 6039 6045 6049 6055 6061 6069 6084 6099 6176 6181 6187 6193 6197 6203 6209 6217 6232 6247 6320 6379 6438 6442 6444 6445 6446 6447 6500 6502 6504 6506 6508 6510 6512 6514 6568 6582 6588 6594 6600 6606 6612 6618 6639 6653 6659 6665 6671 6677 6683 6689 6710 6714 6724 6730 6736 6742 6748 6754 6760 6781 6783 6786 6788 6791 6793 6796 6798 6803 6809 6815 6821 6827 6833 6839 6860 6864 6866 6868 6870 6872 6874 6876 6936 6940 6943 6945 6948 6950 6953 6955 6963 6969 6975 6981 6987 6993 6999 7005 7026 7028 7030 7032 7034 7036 7038 7040 7099 7101 7104 7106 7109 7111 7114 7116 7126 7132 7136 7142 7148 7154 7160 7166 7187 7189 7191 7193 7195 7197 7199 7201 7203 7205 7207 7209 7211 7240 7290 7296 7302 7308 7314 7320 7326 7332 7338 7344 7350 7356 7377 7379 7382 7384 7387 7389 7392 7395 7397 7400 7403 7405 7407 7430 7436 7440 7444 7448 7452 7456 7460 7464 7468 7472 7476 7910 7928 7946 7964 7982 8000 8018 8036 8054 8072 8090 8108 8126 8144 8162 8180 8198 8216 8257 8275 8293 8311 8329 8347 8365 8383 8401 8419 8437 8455 8473 8491 8509 8527 8545 8563 8918 8924 8927 8928 8941 8956 8959 8961 8964 8970 8974 9030 9038 9039 9047 9051 9054 MOVEI 799 801 805 823 825 842 844 860 862 883 885 965 967 1014 1016 1036 1038 1057 1059 1126 1128 1150 1152 1199 1201 1220 1222 1244 1246 1251 1265 1267 1284 1286 1290 1306 1308 1329 1338 1346 1355 1369 1371 1374 1376 1388 1390 1393 1411 1413 1432 1434 1459 1461 1467 1486 1488 1492 1493 1494 1510 1512 1517 1518 1519 1534 1536 1542 1543 1558 1560 1565 1566 1567 1568 1581 1583 1588 1589 1590 1591 1608 1610 1631 1633 1638 1655 1657 1662 1680 1682 1685 1687 1705 1707 1712 1729 1731 1737 1754 1756 1761 1778 1780 1785 1801 1803 1808 1825 1827 1831 1857 1859 1864 1886 1888 1967 1969 2056 2058 2144 2146 2227 2229 2252 2263 2274 2285 2296 2315 2317 2396 2398 2477 2479 2569 2571 2600 2601 2614 2615 2628 2629 2649 2651 2671 2672 2681 2682 2691 2692 2701 2702 2711 2712 2729 2731 2751 2752 2761 2762 2771 2772 2781 2782 2791 2792 2810 2812 2836 2837 2838 2848 2849 2850 2860 2861 2862 2879 2881 2904 2915 2926 2937 2948 2967 2969 2992 3003 3014 3025 3036 3071 3073 3097 3101 3110 3114 3123 3127 3136 3140 3149 3153 3170 3172 3201 3215 3229 3243 3257 3276 3278 3302 3305 3315 3318 3328 3331 3341 3344 3354 3357 3374 3376 3401 3413 3425 3437 3449 3463 3465 3547 3553 3566 3572 3583 3585 3620 3622 3638 3640 3659 3661 3669 3685 3687 3697 3713 3715 3724 3740 3742 3752 3769 3771 3780 3797 3799 3810 3822 3824 3835 3852 3854 3865 3883 3885 3910 3912 3937 3939 3964 3966 3993 3995 4022 4024 4051 4053 SEQ 0268 4080 4082 4111 4113 4117 4134 4136 4140 4156 4158 4162 4179 4181 4185 4201 4203 4207 4225 4227 4250 4252 4274 4276 4300 4302 4326 4328 4340 4348 4350 4377 4379 4406 4408 4435 4437 4468 4470 4502 4504 4539 4541 4687 4689 4835 4837 4983 4985 5131 5133 5279 5281 5427 5429 5575 5577 5723 5725 5871 5873 6019 6021 6167 6169 6310 6312 6369 6371 6428 6430 6490 6492 6558 6560 6629 6631 6700 6702 6771 6773 6850 6852 6926 6928 7016 7018 7089 7091 7177 7179 7367 7369 7552 7580 7582 7602 7604 7624 7626 7646 7648 7668 7670 7690 7692 7712 7714 7734 7736 7756 7758 7778 7780 7800 7802 7822 7824 7844 7846 7864 8256 8274 8292 8310 8328 8346 8364 8382 8400 8418 8436 8454 8472 8490 8508 8526 8544 8562 8607 8609 8630 8632 8653 8655 8676 8678 8699 8701 8722 8724 8745 8747 8768 8770 8791 8793 8814 8816 8837 8839 8860 8862 8883 8885 8981 9027 MOVEM 781 800 802 824 826 843 845 861 863 884 886 966 968 1015 1017 1037 1039 1058 1060 1127 1129 1151 1153 1200 1202 1221 1223 1245 1247 1266 1268 1285 1287 1307 1309 1370 1372 1389 1391 1412 1414 1433 1435 1460 1462 1487 1489 1511 1513 1535 1537 1559 1561 1582 1584 1609 1611 1632 1634 1656 1658 1681 1683 1706 1708 1730 1732 1755 1757 1779 1781 1802 1804 1826 1828 1858 1860 1887 1889 1968 1970 2057 2059 2145 2147 2228 2230 2316 2318 2397 2399 2478 2480 2570 2572 2650 2652 2730 2732 2811 2813 2880 2882 2968 2970 3072 3074 3171 3173 3277 3279 3375 3377 3464 3466 3554 3573 3584 3586 3621 3623 3639 3641 3645 3660 3662 3686 3688 3695 3714 3716 3721 3741 3743 3748 3750 3770 3772 3798 3800 3808 3823 3825 3831 3853 3855 3860 3863 3884 3886 3911 3913 3920 3938 3940 3945 3965 3967 3972 3974 3994 3996 4023 4025 4033 4052 4054 4059 4081 4083 4089 4092 4112 4114 4135 4137 4157 4159 4180 4182 4202 4204 4226 4228 4251 4253 4275 4277 4284 4301 4303 4310 4327 4329 4341 4349 4351 4378 4380 4407 4409 4436 4438 4469 4471 4503 4505 4514 4540 4542 4688 4690 4836 4838 4984 4986 5016 5022 5028 5132 5134 5164 5170 5176 5280 5282 5312 5318 5324 5428 5430 5442 5448 5454 5460 5466 5472 5576 5578 5590 5596 5602 5608 5614 5620 5724 5726 5738 5744 5750 5756 5762 5768 5872 5874 5886 5892 5898 6020 6022 6034 6040 6046 6168 6170 6182 6188 6194 6311 6313 6370 6372 6429 6431 6491 6493 6559 6561 6630 6632 6701 6703 6715 6716 6717 6718 6719 6772 6774 6784 6787 6789 6792 6794 6797 6799 6851 6853 6927 6929 6941 6944 6946 6949 6951 6954 6956 7017 7019 7090 7092 7102 7105 7107 7110 7112 7115 7117 7178 7180 7213 7215 7218 7220 7222 7224 7226 7228 7230 7232 7234 7236 7238 7368 7370 7380 7383 7385 7388 7390 7393 7396 7398 7401 7404 7406 7408 7553 7581 7583 7603 7605 7625 7627 7647 7649 7669 7671 7691 7693 7713 7715 7735 7737 7757 7759 7779 7781 7801 7803 7823 7825 7845 7847 7865 8608 8610 8613 8631 8633 8636 8654 8656 8659 8677 8679 8682 8700 8702 8705 8723 8725 8728 8746 8748 8751 8769 8771 8774 8792 8794 8797 8815 8817 8820 8838 8840 8843 8861 8863 8866 8884 8886 8889 8911 8912 8913 8926 8946 9028 MOVSI 804 829 847 848 865 866 906 907 916 917 926 927 936 937 946 947 956 957 971 972 979 980 986 987 994 995 1002 1003 1019 1020 1041 1042 1062 1063 1071 1072 1080 1081 1089 1090 1098 1099 1106 1107 1131 1132 1156 1157 1165 1166 1174 1175 1183 1184 1204 1206 1271 1289 1312 1321 1330 1339 1347 1356 1375 1394 1416 1437 1464 1491 1613 1614 1636 1637 1660 1661 1686 1711 1736 1760 1784 1807 1830 1862 1863 1909 1910 1919 1920 1929 1930 1939 1940 1949 1950 1993 1994 2004 2005 2015 2016 2026 2027 2037 2038 2080 2082 2091 2093 2102 2104 2113 2115 2124 2126 2167 2177 2187 2197 2207 2251 2262 2273 2284 2295 2338 2348 2358 2368 2378 2417 2427 2437 2447 2457 2500 2512 2524 2536 2548 2670 2680 2690 2700 2710 2750 2760 2770 2780 2790 2835 2847 2859 2903 SEQ 0269 2914 2925 2936 2947 2991 3002 3013 3024 3035 3053 3099 3112 3125 3138 3151 3198 3200 3212 3214 3226 3228 3240 3242 3254 3256 3304 3317 3330 3343 3356 3382 3626 3627 3644 3646 3665 3691 3719 3746 3775 3803 3829 3858 3889 3916 3943 3970 3999 4028 4057 4086 4231 4256 4280 4306 7909 7927 7945 7963 7981 7999 8017 8035 8053 8071 8089 8107 8125 8143 8161 8179 8197 8215 8612 8635 8658 8681 8704 8727 8750 8773 8796 8819 8842 8865 8888 NOSYM 29 OPDEF 34 35 36 37 38 39 40 41 42 43 44 224 225 226 227 228 229 230 231 237 243 244 252 253 254 255 256 257 258 259 260 261 262 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 321 338 343 344 348 349 350 356 357 363 364 365 366 367 368 369 375 376 383 384 385 386 396 397 398 399 400 427 PAGE 1026 1956 2132 2384 2718 2955 3060 3511 4371 4429 4495 4677 4825 4973 5121 5269 5417 5565 5713 5861 6009 6157 7860 8226 POP 227 POPJ 225 PUSH 226 PUSHJ 224 REPEAT 892 1895 1977 2065 2153 2236 2323 2404 2485 2580 2657 2737 2819 2888 2976 3080 3179 3285 3383 3471 3520 7555 7883 8230 8580 ROT 2253 2264 2275 2286 2297 2905 2916 2927 2938 2949 2993 3004 3015 3026 3037 3098 3111 3124 3137 3150 3199 3213 3227 3241 3255 3303 3316 3329 3342 3355 3400 3412 3424 3436 3448 SETO 828 830 1272 1313 1322 1331 1340 1348 1357 1395 1417 1438 1713 1762 1809 3402 3414 3426 3438 3450 4118 4141 4163 4186 4208 4285 4311 SETOB 3054 3487 3500 3542 3561 4358 6322 6383 6384 6440 7867 SETOM 3055 4388 4445 4447 4479 6385 6570 6578 6643 6645 6646 6647 6648 6712 6720 6862 6938 7042 7119 7586 7608 7630 7652 7674 7696 7718 7740 7762 7784 7806 7828 7850 7911 7929 7947 7965 7983 8001 8019 8037 8055 8073 8091 8109 8127 8145 8163 8181 8199 8217 8258 8276 8294 8312 8330 8348 8366 8384 8402 8420 8438 8456 8474 8492 8510 8528 8546 8564 8614 8637 8660 8683 8706 8729 8752 8775 8798 8821 8844 8867 8890 8936 9034 9040 SETZ 806 1252 1688 1738 1786 1832 1865 2504 2516 2528 2540 2552 3100 3113 3126 3139 3152 3202 3216 3230 3244 3258 3306 3319 3332 3345 3358 3647 3893 3921 3948 3976 4004 4034 4063 4094 SETZB 1541 4387 4416 6324 6325 6381 SETZM 3489 3502 4359 4446 4478 4480 4512 4515 6326 6572 6574 6575 6576 6577 6641 6649 7585 7607 7629 7651 7673 7695 7717 7739 7761 7783 7805 7827 7849 8920 8931 SIXBIT 84 85 645 646 654 655 8940 8944 8955 8980 9060 SKIPE 808 3057 4212 4365 4391 4397 4420 4426 4455 4484 4492 4519 4527 6334 6339 6344 6349 6354 6388 6418 6589 6595 6601 6607 6613 6654 6690 7590 7592 7612 7614 7634 7636 7656 7658 7678 7680 7700 7702 7722 7724 7744 7746 7766 7768 7788 7790 7810 7812 7832 7834 7854 7856 7872 SKIPGE 8929 SKIPL 8932 9045 SKIPN 4210 8934 8937 9041 SUBTTL 30 153 188 390 427 428 784 1872 4338 7545 8907 9062 SEQ 0270 TITLE 13 TLNE 1441 1835 3598 3612 8922 8965 9031 9035 TLNN 9033 9055 TRNE 8985 8987 8989 TRZ 1022 1044 1065 1074 1083 1092 1101 1109 1134 1159 1168 1177 1186 VAR 9228 XCT 9022 XLIST 7 388 426 559 8948 9018 9066 .DIREC 28 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0271 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 *030635 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 140600 000000 FINAL C(E)= 060600 000000 ---------- *030650 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 140600 000000 FINAL C(E)= 060600 000000 ---------- *030662 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 140600 000000 FINAL C(E)= 060600 000000 ---------- *030674 IBP 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 160600 000000 FINAL C(E)= 100600 000000 ---------- *030706 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 770100 000000 FINAL C(E)= 760100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0272 *030714 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 770200 000000 FINAL C(E)= 750200 000000 ---------- *030722 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 770400 000000 FINAL C(E)= 730400 000000 ---------- *030730 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 771000 000000 FINAL C(E)= 671000 000000 ---------- *030736 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 772000 000000 FINAL C(E)= 572000 000000 ---------- *030744 IBP 0,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 774000 000000 FINAL C(E)= 374000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0273 *030756 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 402000 000000 FINAL C(E)= 202000 000000 ---------- *030764 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 603000 000000 FINAL C(E)= 303000 000000 ---------- *030772 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 301400 000000 FINAL C(E)= 141400 000000 ---------- *031000 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 140600 000000 FINAL C(E)= 060600 000000 ---------- *031006 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 060300 000000 FINAL C(E)= 030300 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0274 *031020 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 051000 000000 FINAL C(E)= 341000 000001 ---------- *031033 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 160600 000000 FINAL C(E)= 100600 000000 ---------- *031046 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 010100 000000 FINAL C(E)= 000100 000000 ---------- *031055 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 020200 000000 FINAL C(E)= 000200 000000 ---------- *031064 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 040400 000000 FINAL C(E)= 000400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0275 *031073 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 101000 000000 FINAL C(E)= 001000 000000 ---------- *031102 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 202000 000000 FINAL C(E)= 002000 000000 ---------- *031111 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 404000 000000 FINAL C(E)= 004000 000000 ---------- *031124 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 061000 000000 FINAL C(E)= 341000 000001 ---------- *031137 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 202100 000000 FINAL C(E)= 232100 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0276 *031146 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 101100 000000 FINAL C(E)= 331100 000001 ---------- *031155 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 020300 000000 FINAL C(E)= 410300 000001 ---------- *031164 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 010200 000000 FINAL C(E)= 420200 000001 ---------- *031200 IBP 0,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 061000 000000 FINAL C(E)= 341000 000001 ---------- *031214 IBP 0,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 061000 000011 FINAL C(E)= 341000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0277 *031230 LDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000600 000005 C(C(E))= 000000 777777 FINAL C(AC)= 000000 000077 C(E)= 000600 000005 C(C(E))= 000000 777777 ---------- *031243 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 341000 000000 C(E)= 140600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777 ---------- *031255 LDB 6,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100600 000000 C(E)= 140600 000000 C(C(E))= 000000 777777 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 777777 ---------- *031270 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 777777 C(E)= 004000 000000 C(C(E))= 777777 777777 FINAL C(AC)= 037777 777777 C(E)= 004000 000000 C(C(E))= 777777 777777 ---------- *031277 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 037777 777777 C(E)= 002000 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 177777 C(E)= 002000 000000 C(C(E))= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0278 *031306 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 177777 C(E)= 001000 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000377 C(E)= 001000 000000 C(C(E))= 777777 777777 ---------- *031315 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000377 C(E)= 000400 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000017 C(E)= 000400 000000 C(C(E))= 777777 777777 ---------- *031324 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 000200 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000003 C(E)= 000200 000000 C(C(E))= 777777 777777 ---------- *031333 LDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 000100 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000001 C(E)= 000100 000000 C(C(E))= 777777 777777 ---------- *031346 LDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 061400 000000 C(C(E))= 000000 007700 FINAL C(AC)= 000000 000077 C(E)= 061400 000000 C(C(E))= 000000 007700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0279 *031361 LDB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 060600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000077 C(E)= 060600 000000 C(C(E))= 777777 777777 ---------- *031373 LDB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 140600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777 ---------- *031405 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 140600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 777777 777777 ---------- *031422 LDB 6,@@000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 000600 000014 C(C(E))= 000000 000044 FINAL C(AC)= 000000 000044 C(E)= 000600 000014 C(C(E))= 000000 000044 ---------- *031436 LDB 7,000010(7) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 061400 000000 C(C(E))= 000000 222222 FINAL C(AC)= 000000 002222 C(E)= 061400 000000 C(C(E))= 000000 222222 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0280 *031453 LDB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000607 000005 C(C(E))= 000000 000077 FINAL C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000077 ---------- *031470 LDB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 000607 000005 C(C(E))= 000000 000077 FINAL C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000077 ---------- *031506 LDB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 000607 000005 C(C(E))= 000000 000015 FINAL C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015 ---------- *031524 LDB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015 FINAL C(AC)= 000000 000015 C(E)= 000607 000005 C(C(E))= 000000 000015 ---------- *031536 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 160600 000000 C(C(E))= 000000 000007 FINAL C(AC)= 000000 000000 C(E)= 100600 000000 C(C(E))= 000000 000007 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0281 *031551 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000033 C(E)= 222200 000000 C(C(E))= 000000 777777 FINAL C(AC)= 000000 777777 C(E)= 002200 000000 C(C(E))= 000000 777777 ---------- *031566 ILDB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 770000 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000 ---------- *031604 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000 ---------- *031620 DPB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 557777 ---------- *031635 DPB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 005555 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 005555 C(E)= 140600 000000 C(C(E))= 000000 550000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0282 *031651 DPB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 061400 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 061400 000000 C(C(E))= 777777 005577 ---------- *031665 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000 ---------- *031701 DPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 005555 C(E)= 220600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 005555 C(E)= 220600 000000 C(C(E))= 777755 777777 ---------- *031714 DPB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000 ---------- *031731 IDPB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0283 *031745 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 220600 000000 FINAL C(E)= 140600 000000 ---------- *031753 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 200600 000000 FINAL C(E)= 120600 000000 ---------- *031761 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 160600 000000 FINAL C(E)= 100600 000000 ---------- *031767 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 140600 000000 FINAL C(E)= 060600 000000 ---------- *031775 IBP 0,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 120600 000000 FINAL C(E)= 040600 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0284 *032007 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 221400 000000 FINAL C(E)= 061400 000000 ---------- *032015 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 221200 000000 FINAL C(E)= 101200 000000 ---------- *032023 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 221000 000000 FINAL C(E)= 121000 000000 ---------- *032031 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 220600 000000 FINAL C(E)= 140600 000000 ---------- *032037 IBP 0,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 220400 000000 FINAL C(E)= 160400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0285 *032052 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 001400 000000 FINAL C(E)= 301400 000001 ---------- *032061 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 001200 000000 FINAL C(E)= 321200 000001 ---------- *032070 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 001000 000000 FINAL C(E)= 341000 000001 ---------- *032077 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000600 000000 FINAL C(E)= 360600 000001 ---------- *032106 IBP 0,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000400 000000 FINAL C(E)= 400400 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0286 *032120 LDB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 160400 000000 C(E)= 220100 000000 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000001 C(E)= 220100 000000 C(C(E))= 777777 000000 ---------- *032126 LDB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 220200 000000 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000003 C(E)= 220200 000000 C(C(E))= 777777 000000 ---------- *032134 LDB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 220300 000000 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 777777 000000 ---------- *032142 LDB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 220400 000000 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000017 C(E)= 220400 000000 C(C(E))= 777777 000000 ---------- *032150 LDB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000017 C(E)= 220500 000000 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000037 C(E)= 220500 000000 C(C(E))= 777777 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0287 *032163 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400400 000001 C(E)= 140300 000000 C(C(E))= 000000 070000 FINAL C(AC)= 000000 000007 C(E)= 140300 000000 C(C(E))= 000000 070000 ---------- *032172 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 170300 000000 C(C(E))= 000000 700000 FINAL C(AC)= 000000 000007 C(E)= 170300 000000 C(C(E))= 000000 700000 ---------- *032201 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 000007 000000 FINAL C(AC)= 000000 000007 C(E)= 220300 000000 C(C(E))= 000007 000000 ---------- *032210 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 250300 000000 C(C(E))= 000070 000000 FINAL C(AC)= 000000 000007 C(E)= 250300 000000 C(C(E))= 000070 000000 ---------- *032217 LDB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 300300 000000 C(C(E))= 000700 000000 FINAL C(AC)= 000000 000007 C(E)= 300300 000000 C(C(E))= 000700 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0288 *032232 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 220300 000006 C(C(E))= 000006 000000 FINAL C(AC)= 000000 000006 C(E)= 220300 000006 C(C(E))= 000006 000000 ---------- *032241 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000006 C(E)= 220300 000005 C(C(E))= 000005 000000 FINAL C(AC)= 000000 000005 C(E)= 220300 000005 C(C(E))= 000005 000000 ---------- *032250 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000005 C(E)= 220300 000004 C(C(E))= 000004 000000 FINAL C(AC)= 000000 000004 C(E)= 220300 000004 C(C(E))= 000004 000000 ---------- *032257 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 220300 000003 C(C(E))= 000003 000000 FINAL C(AC)= 000000 000003 C(E)= 220300 000003 C(C(E))= 000003 000000 ---------- *032266 LDB 7,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 220300 000002 C(C(E))= 000002 000000 FINAL C(AC)= 000000 000002 C(E)= 220300 000002 C(C(E))= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0289 *032301 LDB 10,000000(1) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 220300 000002 C(E)= 000300 000001 C(C(E))= 000300 000001 FINAL C(AC)= 000000 000001 C(E)= 000300 000001 C(C(E))= 000300 000001 ---------- *032310 LDB 10,000000(2) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000300 000002 C(C(E))= 000300 000002 FINAL C(AC)= 000000 000002 C(E)= 000300 000002 C(C(E))= 000300 000002 ---------- *032317 LDB 10,000000(3) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000300 000003 C(C(E))= 000300 000003 FINAL C(AC)= 000000 000003 C(E)= 000300 000003 C(C(E))= 000300 000003 ---------- *032326 LDB 10,000000(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 000300 000004 C(C(E))= 000300 000004 FINAL C(AC)= 000000 000004 C(E)= 000300 000004 C(C(E))= 000300 000004 ---------- *032335 LDB 10,000000(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000300 000005 C(C(E))= 000300 000005 FINAL C(AC)= 000000 000005 C(E)= 000300 000005 C(C(E))= 000300 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0290 *032352 LDB 7,@@000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000300 000001 C(C(E))= 000300 000001 FINAL C(AC)= 000000 000001 C(E)= 000300 000001 C(C(E))= 000300 000001 ---------- *032363 LDB 7,@@000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 000300 000002 C(C(E))= 000300 000002 FINAL C(AC)= 000000 000002 C(E)= 000300 000002 C(C(E))= 000300 000002 ---------- *032374 LDB 7,@@000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 000300 000003 C(C(E))= 000300 000003 FINAL C(AC)= 000000 000003 C(E)= 000300 000003 C(C(E))= 000300 000003 ---------- *032405 LDB 7,@@000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000003 C(E)= 000300 000004 C(C(E))= 000300 000004 FINAL C(AC)= 000000 000004 C(E)= 000300 000004 C(C(E))= 000300 000004 ---------- *032416 LDB 7,@@000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 000300 000005 C(C(E))= 000300 000005 FINAL C(AC)= 000000 000005 C(E)= 000300 000005 C(C(E))= 000300 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0291 *032432 LDB 10,@@000000(4) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 440300 000005 C(E)= 000600 000012 C(C(E))= 000600 000012 FINAL C(AC)= 000000 000012 C(E)= 000600 000012 C(C(E))= 000600 000012 ---------- *032442 LDB 10,@@000000(5) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000600 000013 C(C(E))= 000600 000013 FINAL C(AC)= 000000 000013 C(E)= 000600 000013 C(C(E))= 000600 000013 ---------- *032452 LDB 10,@@000000(6) FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000600 000014 C(C(E))= 000600 000014 FINAL C(AC)= 000000 000014 C(E)= 000600 000014 C(C(E))= 000600 000014 ---------- *032465 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000007 FINAL C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000007 ---------- *032474 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000607 000000 C(C(E))= 000000 000010 FINAL C(AC)= 000000 000010 C(E)= 000607 000000 C(C(E))= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0292 *032503 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000607 000000 C(C(E))= 000000 000011 FINAL C(AC)= 000000 000011 C(E)= 000607 000000 C(C(E))= 000000 000011 ---------- *032512 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 C(E)= 000607 000000 C(C(E))= 000000 000012 FINAL C(AC)= 000000 000012 C(E)= 000607 000000 C(C(E))= 000000 000012 ---------- *032521 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 C(E)= 000607 000000 C(C(E))= 000000 000013 FINAL C(AC)= 000000 000013 C(E)= 000607 000000 C(C(E))= 000000 000013 ---------- *032534 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000620 000000 C(C(E))= 000000 000007 FINAL C(AC)= 000000 000007 C(E)= 000620 000000 C(C(E))= 000000 000007 ---------- *032543 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000007 C(E)= 000620 000000 C(C(E))= 000000 000010 FINAL C(AC)= 000000 000010 C(E)= 000620 000000 C(C(E))= 000000 000010 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0293 *032552 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 000620 000000 C(C(E))= 000000 000011 FINAL C(AC)= 000000 000011 C(E)= 000620 000000 C(C(E))= 000000 000011 ---------- *032561 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000011 C(E)= 000620 000000 C(C(E))= 000000 000012 FINAL C(AC)= 000000 000012 C(E)= 000620 000000 C(C(E))= 000000 000012 ---------- *032570 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000012 C(E)= 000620 000000 C(C(E))= 000000 000013 FINAL C(AC)= 000000 000013 C(E)= 000620 000000 C(C(E))= 000000 000013 ---------- *032604 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000013 FINAL C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000013 ---------- *032614 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000013 C(E)= 000627 000000 C(C(E))= 000000 000014 FINAL C(AC)= 000000 000014 C(E)= 000627 000000 C(C(E))= 000000 000014 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0294 *032624 LDB 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 C(E)= 000627 000000 C(C(E))= 000000 000015 FINAL C(AC)= 000000 000015 C(E)= 000627 000000 C(C(E))= 000000 000015 ---------- *032637 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000627 000000 C(E)= 440600 000000 C(C(E))= 770000 000000 FINAL C(AC)= 000000 000077 C(E)= 360600 000000 C(C(E))= 770000 000000 ---------- *032646 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 360600 000000 C(C(E))= 007700 000000 FINAL C(AC)= 000000 000077 C(E)= 300600 000000 C(C(E))= 007700 000000 ---------- *032655 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 300600 000000 C(C(E))= 000077 000000 FINAL C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000077 000000 ---------- *032664 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 220600 000000 C(C(E))= 000000 770000 FINAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 770000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0295 *032673 ILDB 5,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 140600 000000 C(C(E))= 000000 007700 FINAL C(AC)= 000000 000077 C(E)= 060600 000000 C(C(E))= 000000 007700 ---------- *032706 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000014 C(E)= 000600 000000 C(C(E))= 770000 000000 FINAL C(AC)= 000000 000077 C(E)= 360600 000001 C(C(E))= 770000 000000 ---------- *032715 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 001400 000000 C(C(E))= 007700 000000 FINAL C(AC)= 000000 000077 C(E)= 301400 000001 C(C(E))= 007700 000000 ---------- *032724 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 002200 000000 C(C(E))= 000077 000000 FINAL C(AC)= 000000 000077 C(E)= 222200 000001 C(C(E))= 000077 000000 ---------- *032733 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 003000 000000 C(C(E))= 000000 770000 FINAL C(AC)= 000000 000077 C(E)= 143000 000001 C(C(E))= 000000 770000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0296 *032742 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 003600 000000 C(C(E))= 000000 007700 FINAL C(AC)= 000000 000077 C(E)= 063600 000001 C(C(E))= 000000 007700 ---------- *032751 ILDB 14,000015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 206000 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000000 C(E)= 646000 000001 C(C(E))= 777777 777777 ---------- *032766 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 005500 ---------- *032777 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000 ---------- *033010 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000055 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0297 *033021 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 005500 000000 ---------- *033032 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 550000 000000 ---------- *033047 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 000600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 000600 000000 C(C(E))= 000000 000055 ---------- *033060 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 000000 005500 ---------- *033071 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 000000 550000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0298 *033102 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 000055 000000 ---------- *033113 DPB 12,000013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 005500 000000 ---------- *033130 IDPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 000600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 360600 000001 C(C(E))= 770000 000000 ---------- *033141 IDPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 001400 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 301400 000001 C(C(E))= 007700 000000 ---------- *033152 IDPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 002200 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 222200 000001 C(C(E))= 000077 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0299 *033163 IDPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 003000 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 143000 000001 C(C(E))= 000000 770000 ---------- *033174 IDPB 11,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000077 C(E)= 003600 000000 C(C(E))= 000000 000000 FINAL C(AC)= 000000 000077 C(E)= 063600 000001 C(C(E))= 000000 007700 ---------- *033212 IDPB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 440600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 557777 777777 ---------- *033223 IDPB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 360600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 775577 777777 ---------- *033234 IDPB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 300600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 777755 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0300 *033245 IDPB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 220600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 557777 ---------- *033256 IDPB 10,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000055 C(E)= 140600 000000 C(C(E))= 777777 777777 FINAL C(AC)= 000000 000055 C(E)= 060600 000000 C(C(E))= 777777 775577 ---------- *033272 LDB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 076000 000001 C(C(E))= 525252 525377 FINAL C(AC)= 002525 252525 C(E)= 076000 000001 C(C(E))= 525252 525377 ---------- *033304 LDB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 074000 000001 C(C(E))= 525252 525377 FINAL C(AC)= 002525 252525 C(E)= 074000 000001 C(C(E))= 525252 525377 ---------- *033316 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 323232 232323 C(E)= 076000 000001 C(C(E))= 707070 707070 FINAL C(AC)= 323232 232323 C(E)= 076000 000001 C(C(E))= 646446 464670 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0301 *033336 DPB 13,000014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 323232 232323 C(E)= 074000 000001 C(C(E))= 707070 707070 FINAL C(AC)= 323232 232323 C(E)= 074000 000001 C(C(E))= 646446 464670 ---------- *033362 ILDB 13,000014 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112233 445566 FINAL C(AC)= 000000 000033 C(E)= 220600 000012 C(C(E))= 112233 445566 ---------- *033377 IDPB 13,000014 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112233 445566 FINAL C(AC)= 707070 707070 C(E)= 220600 000012 C(C(E))= 112270 445566 ---------- *033417 IBP 0,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 170600 000000 FINAL C(E)= 110600 000000 ---------- *033434 IBP 0,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 170600 000000 FINAL C(E)= 110600 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0302 *033454 DPB 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 170600 000001 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 000001 C(C(E))= 230702 103700 ---------- *033500 DPB 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230702 103700 ---------- *033524 DPB 13,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 170600 000007 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 000007 C(C(E))= 230702 103700 ---------- *033551 DPB 12,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230702 103700 ---------- *033577 IDPB 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 250600 000005 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 000005 C(C(E))= 230702 103700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0303 *033624 IDPB 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 250600 040073 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 040073 C(C(E))= 230702 103700 ---------- *033644 IDPB 7,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 250600 000003 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 000003 C(C(E))= 230702 103700 ---------- *033672 IDPB 6,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 654321 C(E)= 250600 040076 C(C(E))= 230703 603700 FINAL C(AC)= 000000 654321 C(E)= 170600 040076 C(C(E))= 230702 103700 ---------- *033717 LDB 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 000001 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000036 C(E)= 170600 000001 C(C(E))= 230703 603700 ---------- *033742 LDB 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 040073 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000036 C(E)= 170600 040073 C(C(E))= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0304 *033766 LDB 13,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 000007 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000036 C(E)= 170600 000007 C(C(E))= 230703 603700 ---------- *034013 LDB 12,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 040076 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000036 C(E)= 170600 040076 C(C(E))= 230703 603700 ---------- *034041 ILDB 11,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 000005 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000003 C(E)= 110600 000005 C(C(E))= 230703 603700 ---------- *034065 ILDB 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 040073 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000003 C(E)= 110600 040073 C(C(E))= 230703 603700 ---------- *034112 ILDB 7,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 230703 603700 C(E)= 170600 000003 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000003 C(E)= 110600 000003 C(C(E))= 230703 603700 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0305 *034140 ILDB 6,040073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 170600 040076 C(C(E))= 230703 603700 FINAL C(AC)= 000000 000003 C(E)= 110600 040076 C(C(E))= 230703 603700 ---------- *034162 LDB 5,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010 FINAL C(AC)= 000000 000000 C(E)= 000000 000010 C(C(E))= 000000 000010 ---------- *034202 ILDB 14,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010 FINAL C(AC)= 000000 000000 C(E)= 000000 000010 C(C(E))= 000000 000010 ---------- *034222 DPB 13,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010 FINAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000010 ---------- *034242 IDPB 12,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000006 FINAL C(AC)= 777777 777777 C(E)= 000000 000010 C(C(E))= 000000 000006 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0306 *034263 IBP 11,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000000 000010 FINAL C(E)= 000000 000010 ---------- *034310 LDB 10,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 430100 000004 C(C(E))= 777777 000000 FINAL C(AC)= 000000 000001 C(E)= 430100 000004 C(C(E))= 777777 000000 ---------- *034333 LDB 7,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000000 C(E)= 000100 000003 C(C(E))= 000000 777777 FINAL C(AC)= 000000 000001 C(E)= 000100 000003 C(C(E))= 000000 777777 ---------- *034357 DPB 6,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000076 C(E)= 430100 000002 C(C(E))= 777777 777777 FINAL C(AC)= 777777 000076 C(E)= 430100 000002 C(C(E))= 377777 777777 ---------- *034403 DPB 5,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 000076 C(E)= 000100 000001 C(C(E))= 777777 777777 FINAL C(AC)= 777777 000076 C(E)= 000100 000001 C(C(E))= 777777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKAM 000000 000000 770000 000000 130000 000000 030000 777777 SEQ 0307 *034422 IBP 0,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(E)= 000100 777777 FINAL C(E)= 430100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0308 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 *034437 BLT 7,000001 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000001 E= 000000 000001 FINAL C(AC)= 000001 000001 ---------- *034456 BLT 14,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 000006 E= 000000 000006 FINAL C(AC)= 000006 000006 ---------- *034475 BLT 14,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 000006 E= 000000 000006 FINAL C(AC)= 000006 000006 ---------- *034515 BLT 14,040156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040156 FINAL C(AC)= 040156 040156 ---------- *034540 BLT 13,040156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040156 FINAL C(AC)= 040156 040156 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0309 *034564 BLT 12,040156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040156 FINAL C(AC)= 040156 040156 ---------- *034612 BLT 14,000011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 000011 E= 000000 000011 FINAL C(AC)= 000006 000011 ---------- *034643 BLT 13,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000005 000010 E= 000000 000010 FINAL C(AC)= 000005 000010 ---------- *034674 BLT 12,000007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000007 E= 000000 000007 FINAL C(AC)= 000004 000007 ---------- *034730 BLT 14,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000006 040161 E= 000000 040161 FINAL C(AC)= 000006 040161 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0310 *034767 BLT 13,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000005 040161 E= 000000 040161 FINAL C(AC)= 000005 040161 ---------- *035026 BLT 12,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 040161 E= 000000 040161 FINAL C(AC)= 000004 040161 ---------- *035070 BLT 11,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040161 E= 000000 040161 FINAL C(AC)= 040156 040161 ---------- *035135 BLT 10,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040161 E= 000000 040161 FINAL C(AC)= 040156 040161 ---------- *035202 BLT 7,040161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040161 E= 000000 040161 FINAL C(AC)= 040156 040161 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0311 *035244 BLT 14,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 000006 E= 000000 000006 FINAL C(AC)= 040156 000006 ---------- *035303 BLT 13,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 000005 E= 000000 000005 FINAL C(AC)= 040156 000005 ---------- *035342 BLT 12,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 000004 E= 000000 000004 FINAL C(AC)= 040156 000004 ---------- *035374 BLT 14,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 E= 000000 000010 FINAL C(AC)= 000004 000004 ---------- *035425 BLT 14,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 E= 000000 000010 FINAL C(AC)= 000004 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0312 *035460 BLT 14,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 E= 000000 000010 FINAL C(AC)= 000004 000004 ---------- *035514 BLT 14,000010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000004 E= 000000 000010 FINAL C(AC)= 000004 000004 ---------- *035550 BLT 13,040162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040162 FINAL C(AC)= 040156 040156 ---------- *035613 BLT 12,040162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040162 FINAL C(AC)= 040156 040156 ---------- *035657 BLT 11,040162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040162 FINAL C(AC)= 040156 040156 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0313 *035731 BLT 10,040162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040156 E= 000000 040162 FINAL C(AC)= 040156 040156 ---------- *035775 BLT 14,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000001 E= 000000 000005 FINAL C(AC)= 000002 000001 ---------- *036043 BLT 6,040162 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040157 040156 E= 000000 040162 FINAL C(AC)= 040157 040156 ---------- *036112 BLT 14,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000002 E= 000000 000006 FINAL C(AC)= 000001 000002 ---------- *036160 BLT 4,040163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 040157 E= 000000 040163 FINAL C(AC)= 040156 040157 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAM 000000 000000 777000 000000 251000 000000 030000 777777 SEQ 0314 *036265 BLT 14,040167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 040156 E= 000000 040167 FINAL C(AC)= 000001 040156 ---------- *036434 BLT 14,000012 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040156 000001 E= 000000 000012 FINAL C(AC)= 040156 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0315 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 *036542 JFFO 0,036544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036560 JFFO 1,036562 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036576 JFFO 2,036600 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036614 JFFO 3,036616 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036632 JFFO 4,036634 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0316 *036650 JFFO 5,036652 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036666 JFFO 6,036670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036704 JFFO 7,036706 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036722 JFFO 10,036724 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036740 JFFO 11,036742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0317 *036756 JFFO 12,036760 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036774 JFFO 13,036776 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *037012 JFFO 14,037014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *037025 JFFO 14,037027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *037037 JFFO 14,037041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0318 *037051 JFFO 14,037053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000001 ---------- *037063 JFFO 14,037065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000002 ---------- *037075 JFFO 14,037077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 040000 000000 C(AC+1)= 000000 000003 ---------- *037107 JFFO 14,037111 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000004 ---------- *037121 JFFO 14,037123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 010000 000000 C(AC+1)= 000000 000005 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0319 *037133 JFFO 14,037135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000006 ---------- *037145 JFFO 14,037147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 002000 000000 C(AC+1)= 000000 000007 ---------- *037157 JFFO 14,037161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 001000 000000 C(AC+1)= 000000 000010 ---------- *037171 JFFO 14,037173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000011 ---------- *037203 JFFO 14,037205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000200 000000 C(AC+1)= 000000 000012 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0320 *037215 JFFO 14,037217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000100 000000 C(AC+1)= 000000 000013 ---------- *037227 JFFO 14,037231 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000040 000000 C(AC+1)= 000000 000014 ---------- *037241 JFFO 14,037243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000020 000000 C(AC+1)= 000000 000015 ---------- *037253 JFFO 14,037255 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000010 000000 C(AC+1)= 000000 000016 ---------- *037265 JFFO 14,037267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000004 000000 C(AC+1)= 000000 000017 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0321 *037277 JFFO 14,037301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000002 000000 C(AC+1)= 000000 000020 ---------- *037311 JFFO 14,037313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000001 000000 C(AC+1)= 000000 000021 ---------- *037323 JFFO 14,037325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 400000 C(AC+1)= 000000 000022 ---------- *037335 JFFO 14,037337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 200000 C(AC+1)= 000000 000023 ---------- *037347 JFFO 14,037351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 100000 C(AC+1)= 000000 000024 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0322 *037361 JFFO 14,037363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 040000 C(AC+1)= 000000 000025 ---------- *037373 JFFO 14,037375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 020000 C(AC+1)= 000000 000026 ---------- *037405 JFFO 14,037407 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 010000 C(AC+1)= 000000 000027 ---------- *037417 JFFO 14,037421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 004000 C(AC+1)= 000000 000030 ---------- *037431 JFFO 14,037433 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 002000 C(AC+1)= 000000 000031 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0323 *037443 JFFO 14,037445 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 001000 C(AC+1)= 000000 000032 ---------- *037455 JFFO 14,037457 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000400 C(AC+1)= 000000 000033 ---------- *037467 JFFO 14,037471 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000200 C(AC+1)= 000000 000034 ---------- *037501 JFFO 14,037503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000100 C(AC+1)= 000000 000035 ---------- *037513 JFFO 14,037515 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000040 C(AC+1)= 000000 000036 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0324 *037525 JFFO 14,037527 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000020 C(AC+1)= 000000 000037 ---------- *037537 JFFO 14,037541 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000010 C(AC+1)= 000000 000040 ---------- *037551 JFFO 14,037553 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000004 C(AC+1)= 000000 000041 ---------- *037563 JFFO 14,037565 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000002 C(AC+1)= 000000 000042 ---------- *037575 JFFO 14,037577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 777777 777777 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000043 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0325 *037613 JFFO 0,037615 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *037631 JFFO 1,037633 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 200000 000000 C(AC+1)= 000000 000001 ---------- *037647 JFFO 2,037651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 100000 000000 C(AC+1)= 000000 000002 ---------- *037665 JFFO 3,037667 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 040000 000000 C(AC+1)= 000000 000003 ---------- *037703 JFFO 4,037705 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 020000 000000 C(AC+1)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0326 *037721 JFFO 5,037723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 010000 000000 C(AC+1)= 000000 000005 ---------- *037737 JFFO 6,037741 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 004000 000000 C(AC+1)= 000000 000006 ---------- *037755 JFFO 7,037757 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 002000 000000 C(AC+1)= 000000 000007 ---------- *037773 JFFO 10,037775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 001000 000000 C(AC+1)= 000000 000010 ---------- *040011 JFFO 11,040013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000011 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKAM 000000 000000 777000 000000 243000 000000 030000 777777 SEQ 0327 *040027 JFFO 12,040031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000200 000000 C(AC+1)= 000000 000012 ---------- *040045 JFFO 13,040047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000100 000000 C(AC+1)= 000000 000013 ---------- *040063 JFFO 14,040065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 777777 777777 FINAL C(AC)= 000040 000000 C(AC+1)= 000000 000014 ---------- @ rtl/mem/RCS/mem.awk,v0000444000175100010010000001545512053067652013017 0ustar RobNonehead 1.7; access; symbols; locks; comment @# @; 1.7 date 2012.11.21.06.07.36; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.20.08.09.03; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.20.05.41.21; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.17.12.50.03; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.13.22.30.42; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.13.07.31.39; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.08.20.45.56; author E721269; state Exp; branches; next ; desc @AWK Program to extract object code from listing file @ 1.7 log @*** empty log message *** @ text @# # 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 # # 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 # # 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 = and(strtonum("0" substr($3, 1, 3)), 0177) data2 = and(strtonum("0" substr($3, 5, 3)), 0177) data3 = and(strtonum("0" substr($3, 9, 3)), 0177) data4 = and(strtonum("0" substr($3, 13, 3)), 0177) data5 = and(strtonum("0" substr($3, 17, 3)), 0177) dig1 = and(rshift(data1, 1), 077); dig2 = and(lshift(data1, 2), 037) + and(lshift(data1, 6), 040); dig3 = and(rshift(data3, 3), 017) + and(lshift(data2, 5), 060); dig4 = and(rshift(data4, 4), 007) + and(lshift(data3, 4), 070); dig5 = and(rshift(data5, 5), 003) + and(lshift(data4, 3), 074); data = sprintf(" %02o,%02o ...", dig1, dig2); #print ($2 data) #print $2, (data1 " " data2 " " data3 " " data4 " " data5) } # # 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) } # # # END { for (i = 0; i < 384; i++) { if (map[i] != "") { printf " RAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { printf " RAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } } for (i = 030000; i < 047000; i++) { if (map[i] != "") { printf " RAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { printf " RAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } } } @ 1.6 log @*** empty log message *** @ text @d2 1 a2 1 # d7 6 a12 7 printf " //\n"; printf " //\n"; printf " // DSKAA.DAT\n"; printf " // Entry point is 030600\n"; printf " //\n"; printf " //\n"; printf " \n"; @ 1.5 log @*** empty log message *** @ text @d160 1 a160 1 for (i = 12288; i < 16896; i++) { @ 1.4 log @*** empty log message *** @ text @d22 1 d36 6 d43 10 a52 1 @ 1.3 log @.. @ text @d17 22 d136 1 a136 1 for (i = 0; i < 040000; i++) { d143 11 @ 1.2 log @*** empty log message *** @ text @d24 1 a24 1 /^ ....\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].*/ { d43 1 a43 1 /^ ....\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].*/ { d79 1 a79 1 /^ ....\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].*/ { d103 1 a103 1 /^ ....\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].*/ { @ 1.1 log @Initial revision @ text @d115 2 a116 2 if (i == 0) { printf " RAM[%05d] = 36'o%s; // %06o (jump to entry point)\n", i, "254000030600", i d118 1 a118 5 if (map[i] != "") { printf " RAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { printf " RAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } @ rtl/mem/RCS/mem.v,v0000444000175100010010000001640112053067666012477 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.21.06.07.48; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.13.22.29.59; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.13.07.45.36; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.13.07.32.25; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.09.08.54.36; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.09.08.11.35; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.08.21.03.36; author E721269; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.46.53; author Rob; state Exp; branches; next ; desc @KS10 Memory @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Memory Interface //! //! \details //! //! \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, clken, busREQI, busACKO, busADDRI, busDATAI, busDATAO); input clk; // Clock 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 // // Memory flags // // Details: // busADDRI[0:13] is flags // Only 32K of memory is implemented. // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busIO = busADDRI[10]; wire [21:35] busADDR = busADDRI[16:35]; // // 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] RAM [0:32767]; initial begin `include "mem.dat" end // // Synchronous RAM // // Details // This is PDP10 memory. // // Note: // Only 32K is implemented. This is sufficient to run the // MAINDEC diagnostics. // // FIXME // This is temporary and won't synthesize well. Notice the clock // polarity. // reg [0:14] rd_addr; wire [0:14] wr_addr = busADDR[21:35]; always @@(negedge clk) begin if (clken & ~busIO) begin if (busWRITE) RAM[wr_addr] <= busDATAI; rd_addr <= wr_addr; end end assign busDATAO = RAM[rd_addr]; // // ACK the memory if implemented. // assign busACKO = ~busIO & (busADDR < 32768); endmodule @ 1.7 log @*** empty log message *** @ text @a46 2 `include "../cpu/config.vh" d85 1 a85 3 `ifdef INITMEM `include "mem.dat" `endif @ 1.6 log @*** empty log message *** @ text @a59 9 // Address bus resize // // Note // Only 32K implemented. // wire [0:14] addr = busADDRI[21:35]; // d64 1 d67 4 a70 3 wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busIO = busADDRI[10]; d107 2 a108 1 reg [0:14] rd_addr; d115 2 a116 2 RAM[busADDRI] <= busDATAI; rd_addr <= busADDRI[21:35]; d126 1 a126 1 assign busACKO = ~busIO & (busADDRI[14:35] < 32768); @ 1.5 log @*** empty log message *** @ text @d95 1 a95 1 `include "dskaa.dat" @ 1.4 log @*** empty log message *** @ text @d49 1 a49 2 module MEM(clk, clken, cpuREAD, cpuWRITE, cpuIO, cpuADDR, cpuDATA, memDATA, memACK); d53 5 a57 7 input cpuREAD; // Memory/IO Read input cpuWRITE; // Memory/IO Write input cpuIO; // Memory/IO Select input [14:35] cpuADDR; // Address input [ 0:35] cpuDATA; // Data in output [ 0:35] memDATA; // Data out output memACK; // Memory ACK d66 1 a66 1 wire [0:14] addr = cpuADDR[21:35]; d69 11 d118 1 a118 1 if (clken & ~cpuIO) d120 3 a122 3 if (cpuWRITE) RAM[cpuADDR] <= cpuDATA; rd_addr <= cpuADDR; d126 1 a126 1 assign memDATA = RAM[rd_addr]; d129 1 a129 1 // ACK the memory if implemented.x d132 1 a132 1 assign memACK = ~cpuIO & (cpuADDR < 32768); @ 1.3 log @*** empty log message *** @ text @d112 1 a112 1 if (cpuWRITE && (cpuADDR > 10)) @ 1.2 log @*** empty log message *** @ text @d47 4 a50 1 module MEM(clk, clken, memWRITE, memADDR, memDIN, memDOUT, memACK); d54 6 a59 4 input memWRITE; // Write input [14:35] memADDR; // Address input [ 0:35] memDIN; // Data in output [ 0:35] memDOUT; // Data out d69 1 a69 1 wire [0:14] addr = memADDR[21:35]; d105 2 d110 1 a110 1 if (clken) d112 3 a114 3 if (memWRITE && (memADDR != 0)) RAM[memADDR] <= memDIN; rd_addr <= memADDR; d118 1 a118 1 assign memDOUT = RAM[rd_addr]; d124 1 a124 1 assign memACK = memADDR < 32768; @ 1.1 log @Initial revision @ text @d47 72 a118 25 module MEM(clk, rst, pwr_fail, bus_uba_busy, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_data_in, bus_data_out); input clk; // Clock input rst; // Reset input pwr_fail; // input bus_uba_busy; // input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // Never Asserted input [0:35] bus_data_in; // output [0:35] bus_data_out; // assign bus_mem_busy_out = 1'b0; @ rtl/uba/0000755000175100010010000000000012042567362010626 5ustar RobNonertl/uba/dz11/0000755000175100010010000000000012042647006011377 5ustar RobNonertl/uba/rh11/0000755000175100010010000000000012042647136011377 5ustar RobNonertl/uba/lp20/0000755000175100010010000000000012042650002011363 5ustar RobNonertl/uba/RCS/0000755000175100010010000000000012045353466011256 5ustar RobNonertl/uba/RCS/uba.v,v0000444000175100010010000001115712051557274012461 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.17.00.47.54; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.16.20.27.02; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.13.07.27.20; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.09.08.12.24; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.47.20; author Rob; state Exp; branches; next ; desc @Unibus adapter @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Unibus Adapter //! //! \details //! //! \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 // module UBA(clk, clken, ubaINTR, curINTR_NUM, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO); input clk; // Clock input clken; // Clock enable input [0: 2] curINTR_NUM; // Current Interrupt Priority output [1: 7] ubaINTR; // 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 assign busREQO = 1'b0; assign busACKO = 1'b0; assign busADDRO = 36'bx; assign busDATAO = 36'bx; assign ubaINTR = 7'b0; endmodule @ 1.4 log @*** empty log message *** @ text @d47 1 a47 1 module UBA(clk, clken, ubaINTR, ubaINTA, d53 1 a54 1 input [1: 7] ubaINTA; // Unibus Interrupt Acknowledge d68 1 a68 1 assign ubiINTR = 7'b0; @ 1.3 log @*** empty log message *** @ text @d47 2 a48 1 module UBA(clk, clken, busREQI, busREQO, busACKI, busACKO, d53 2 d68 1 @ 1.2 log @*** empty log message *** @ text @d47 2 a48 1 module UBA(clk, clken, cpuREAD, cpuWRITE, cpuIO, cpuADDR, cpuDATA, ubaDATA, ubaACK); d50 10 a59 9 input clk; // Clock input clken; // Clock enable input cpuREAD; // Memory/IO Read input cpuWRITE; // Memory/IO Write input cpuIO; // Memory/IO Select input [14:35] cpuADDR; // Address input [ 0:35] cpuDATA; // Unibus data in output [ 0:35] ubaDATA; // Unibus data out output ubaACK; // Unibus ACK d61 4 a64 2 assign ubaDATA = 36'bx; assign ubaACK = 1'b0; @ 1.1 log @Initial revision @ text @d47 16 a62 22 module UBA(clk, rst, pwr_fail, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_data_in, bus_data_out); input clk; // Clock input rst; // Reset input pwr_fail; // input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // input [0:35] bus_data_in; // output [0:35] bus_data_out; // endmodule @ rtl/uba/uba.v0000644000175100010010000000451012053071216011552 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Unibus Adapter //! //! \details //! //! \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 // module UBA(clk, clken, ubaINTR, curINTR_NUM, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO); input clk; // Clock input clken; // Clock enable input [0: 2] curINTR_NUM; // Current Interrupt Priority output [1: 7] ubaINTR; // 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 assign busREQO = 1'b0; assign busACKO = 1'b0; assign busADDRO = 36'bx; assign busDATAO = 36'bx; assign ubaINTR = 7'b0; endmodule rtl/ks10.v0000644000175100010010000001561012053071216011015 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, pwrFAIL, swCONT, swEXEC, swRUN, conRXD, conTXD, cpuHALT, cpuRUN); // // System Interfaces // input clk; // Clock input reset; // Reset input pwrFAIL; // Power Fail input swCONT; // Continue Switch input swEXEC; // Exec Switch input swRUN; // Run Switch output cpuHALT; // Halt LED output cpuRUN; // Run LED // // Console Interfaces // input conRXD; // Console RXD output conTXD; // Console TXD // // Bus Arbiter Outputs // wire [0:35] arbADDRO; // Arbiter Address Out // // Console Interfaces // wire conREQI; // Console Bus Request In wire conREQO; // Console Bus Request Out wire conACKI; // Console Bus Acknowledge In wire conACKO; // Console Bus Acknowledge Out wire [0:35] conADDRI; // Console Address In wire [0:35] conADDRO; // Console Address Out wire [0:35] conDATAI; // Console Data In wire [0:35] conDATAO; // Console Data Out // // CPU Outputs // wire cpuHALT; // wire cpuRUN; // 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 memACK; // Memory ACK // // Unibus Interface // wire [1: 7] ubaINTR; // Unibus Interrupt Request wire ubaREQ; // Unibus Bus Request wire ubaACK; // Unibus Bus Acknowledge 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 // // Reset // RST uRST (.clk (clk), .reset (reset), .rst (rst) ); // // Bus Arbiter // ARB uARB (// CPU .cpuREQI (cpuREQ), .cpuACKO (cpuACK), .cpuADDRI (cpuADDRO), .cpuDATAI (cpuDATAO), .cpuDATAO (cpuDATAI), // Console .conREQI (conREQO), .conREQO (conREQI), .conACKI (conACKO), .conACKO (conACKI), .conADDRI (conADDRO), .conDATAI (conDATAO), .conDATAO (conDATAI), // 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 (rst), .consTIMEREN (1'b1), .consSTEP (1'b0), .consRUN (swRUN), .consEXEC (swEXEC), .consCONT (swCONT), .consHALT (1'b0), .consTRAPEN (1'b1), .consCACHEEN (1'b0), .pwrINTR (pwrFAIL), .consINTR (1'b0), .ubaINTR (ubaINTR), .curINTR_NUM (curINTR_NUM), .busREQ (cpuREQ), .busACK (cpuACK), .busADDRO (cpuADDRO), .busDATAI (cpuDATAI), .busDATAO (cpuDATAO), .cpuHALT (cpuHALT), .cpuRUN (cpuRUN) ); // // Console Interface // CON uCON (.clk (clk), .clken (1'b1), .busREQI (conREQI), .busREQO (conREQO), .busACKI (conACKI), .busACKO (conACKO), .busADDRI (arbADDRO), .busADDRO (conADDRO), .busDATAI (conDATAI), .busDATAO (conDATAO) ); // // Memory Interface // MEM uMEM (.clk (clk), .clken (1'b1), .busREQI (memREQ), .busACKO (memACK), .busADDRI (arbADDRO), .busDATAI (memDATAI), .busDATAO (memDATAO) ); // // Unibus Interface // UBA uUBA (.clk (clk), .clken (1'b1), .ubaINTR (ubaINTR), .curINTR_NUM (curINTR_NUM), .busREQI (ubaREQI), .busREQO (ubaREQO), .busACKI (ubaACKI), .busACKO (ubaACKO), .busADDRI (arbADDRO), .busADDRO (ubaADDRO), .busDATAI (ubaDATAI), .busDATAO (ubaDATAO) ); endmodule rtl/cons/0000755000175100010010000000000012042570042011006 5ustar RobNonertl/cons/RCS/0000755000175100010010000000000012045353400011435 5ustar RobNonertl/cons/RCS/cons.v,v0000444000175100010010000002576312053067500013045 0ustar RobNonehead 1.9; access; symbols; locks; comment @# @; 1.9 date 2012.11.21.06.05.49; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.20.05.40.26; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.15.16.03.46; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.13.22.28.57; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.13.07.29.41; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.11.04.35.53; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.09.08.53.44; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.09.08.11.55; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.46.24; author Rob; state Exp; branches; next ; desc @KS10 Console @ 1.9 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Console //! //! \details //! //! \notes: //! Important memory areas: //! 0000030 Halt Switch //! 0000031 Keep Alive //! 0000032 Console Input //! 0000033 Console Output //! 0000034 Klinik Input //! 0000035 Klinik Output //! 0000036 RH11 Address //! 0000037 Unit Number //! 0000040 Magtape Params //! //! \file //! con.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 CON(clk, clken, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO); input clk; // Clock input clken; // Clock enable 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 // // Memory Address and Flags // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busPHYSICAL = busADDRI[ 8]; wire busIO = busADDRI[10]; wire [18:35] busADDR = busADDRI[18:35]; // // Execute/Start 'Vector' // // Details: // When the 'execute switch' is asserted at power-up the // KS10 microcode performs a 'read' at IO address o200000 // and then executes that instruction. In the KS10, this // IO address was handled by the Console. This mechanism // allowed the Console set the address that the KS10 // began execution. // // This is normally a JRST instruction which causes the // code to jump to the entry point of the code/bootloader. // assign busREQO = 1'b0; assign busACKO = busIO & busREAD & busPHYSICAL & (busADDR == 18'o200000); // assign busDATAO = busACKO ? 36'o254000030624 : 36'bx; assign busDATAO = busACKO ? 36'o254000030600 : 36'bx; assign busADDRO = 36'bx; // // 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 @ 1.8 log @*** empty log message *** @ text @d87 5 a91 4 // microcode will perform a read at IO address o200000 // and then execute that instruction. In the KS10, this // IO address was handled by the Console. Therefore the /// Console could set the start address. @ 1.7 log @*** empty log message *** @ text @d98 1 @ 1.6 log @*** empty log message *** @ text @d10 11 a20 1 //! \todo @ 1.5 log @*** empty log message *** @ text @d55 1 a55 1 output busACKI; // Bus Acknowledge In d63 1 a63 1 // Memory Flags d66 5 a70 4 wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busPHYSICAL = busADDRI[ 8]; wire busIO = busADDRI[10]; d87 1 a87 1 assign busACKO = busIO & busREAD & busPHYSICAL & (busADDRI[18:35] == 18'o200000); d100 1 a100 1 case (busADDRI) @ 1.4 log @*** empty log message *** @ text @d13 1 a13 1 //! cons.v d47 3 a49 1 module CONS(clk, clken, cpuPHYSICAL, cpuREAD, cpuWRITE, cpuIO, cpuADDR, cpuDATA, consDATA, consACK); d51 10 a60 10 input clk; // Clock input clken; // Clock enable input cpuPHYSICAL; // Physical Addressing input cpuREAD; // Memory/IO Read input cpuWRITE; // Memory/IO Write input cpuIO; // Memory/IO Select input [14:35] cpuADDR; // CPU Address input [ 0:35] cpuDATA; // CONS data in output [ 0:35] consDATA; // CONS data out output consACK; // CONS ACK d63 9 d85 5 a89 3 assign consACK = cpuIO & cpuREAD & (cpuADDR == 18'o200000); assign consDATA = consACK ? 36'o254000030600 : 36'bx; d92 1 d97 1 a97 1 if (cpuWRITE & ~cpuIO & cpuPHYSICAL) d99 1 a99 1 case (cpuADDR) d103 1 a103 1 case (cpuDATA[24:35]) d115 19 a133 19 18'o000001 : $display("PC is %06o", cpuDATA); 18'o376000 : $display("MAG is %06o", cpuDATA); 18'o376001 : $display("PC is %06o", cpuDATA); 18'o376002 : $display("HR is %06o", cpuDATA); 18'o376003 : $display("AR is %06o", cpuDATA); 18'o376004 : $display("ARX is %06o", cpuDATA); 18'o376005 : $display("BR is %06o", cpuDATA); 18'o376006 : $display("BRX is %06o", cpuDATA); 18'o376007 : $display("ONE is %06o", cpuDATA); 18'o376010 : $display("EBR is %06o", cpuDATA); 18'o376011 : $display("UBR is %06o", cpuDATA); 18'o376012 : $display("MSK is %06o", cpuDATA); 18'o376013 : $display("FLG is %06o", cpuDATA); 18'o376014 : $display("PI is %06o", cpuDATA); 18'o376015 : $display("X1 is %06o", cpuDATA); 18'o376016 : $display("TO is %06o", cpuDATA); 18'o376017 : $display("T1 is %06o", cpuDATA); 18'o376020 : $display("VMA is %06o", cpuDATA); 18'o376021 : $display("FE is %06o", cpuDATA); d138 2 @ 1.3 log @*** empty log message *** @ text @d47 1 a47 1 module CONS(clk, clken, cpuREAD, cpuWRITE, cpuIO, cpuADDR, cpuDATA, consDATA, consACK); d51 1 d77 47 @ 1.2 log @*** empty log message *** @ text @d59 16 a74 2 assign consDATA = 36'bx; assign consACK = 1'b0; @ 1.1 log @Initial revision @ text @d13 1 a13 1 //! ir.v d47 1 a47 1 module CONS(clk, rst, pwr_fail, d49 9 a57 2 bus_request, bus_grant, d59 2 a60 9 bus_uba_busy, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_pi_lvl, bus_pi_current, bus_data_in, bus_data_out, rxd, txd ); a61 28 input clk; // Clock input rst; // Reset input pwr_fail; // output bus_request; // input bus_grant; // input bus_uba_busy; // Unibus Busy input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // Never Asserted input [1: 7] bus_pi_lvl; // input [0: 2] bus_pi_current; // input [0:35] bus_data_in; // output [0:35] bus_data_out; // input rxd; output txd; assign bus_mem_busy_out = 1'b0; @ rtl/cons/cons.v0000644000175100010010000001317012053071212012136 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Console //! //! \details //! //! \notes: //! Important memory areas: //! 0000030 Halt Switch //! 0000031 Keep Alive //! 0000032 Console Input //! 0000033 Console Output //! 0000034 Klinik Input //! 0000035 Klinik Output //! 0000036 RH11 Address //! 0000037 Unit Number //! 0000040 Magtape Params //! //! \file //! con.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 CON(clk, clken, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO); input clk; // Clock input clken; // Clock enable 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 // // Memory Address and Flags // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busPHYSICAL = busADDRI[ 8]; wire busIO = busADDRI[10]; wire [18:35] busADDR = busADDRI[18:35]; // // Execute/Start 'Vector' // // Details: // When the 'execute switch' is asserted at power-up the // KS10 microcode performs a 'read' at IO address o200000 // and then executes that instruction. In the KS10, this // IO address was handled by the Console. This mechanism // allowed the Console set the address that the KS10 // began execution. // // This is normally a JRST instruction which causes the // code to jump to the entry point of the code/bootloader. // assign busREQO = 1'b0; assign busACKO = busIO & busREAD & busPHYSICAL & (busADDR == 18'o200000); // assign busDATAO = busACKO ? 36'o254000030624 : 36'bx; assign busDATAO = busACKO ? 36'o254000030600 : 36'bx; assign busADDRO = 36'bx; // // 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/archive/0000755000175100010010000000000012026751436011477 5ustar RobNonertl/archive/mem.orig.v0000644000175100010010000000474412046621662013413 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Memory Interface //! //! \details //! //! \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, pwr_fail, bus_uba_busy, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_data_in, bus_data_out); input clk; // Clock input rst; // Reset input pwr_fail; // input bus_uba_busy; // input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // Never Asserted input [0:35] bus_data_in; // output [0:35] bus_data_out; // assign bus_mem_busy_out = 1'b0; RAM32kx36 uRAM32kx36 (.clk(clk), .clken(clken), .wr(memWRITE), .addr(memADDR), .din(), .dout() ); assign memACK = addr < 32*1024; endmodule rtl/archive/ks10 - Copy.v0000644000175100010010000002040712046405730013452 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, pwr_fail, conRXD, conTXD); // System Interfaces input clk; // Clock input pwr_fail; // Power Fail // Console Outputs input conRXD; // Console RXD output conTXD; // Console TXD // // Console Outputs // wire con_request; wire con_grant; wire con_addr_cycle; wire con_data_cycle; wire con_io_cycle; wire con_mem_busy; wire [0:35] con_data; // // Arbiter Outputs // wire arb_request; wire arb_grant; wire arb_uba_busy; wire arb_mem_busy; wire arb_addr_cycle; wire arb_data_cycle; wire arb_io_cycle; wire [0:35] arb_data; // // Memory Interfaces // wire mem_busy; wire mem_addr_cycle; wire mem_data_cycle; wire mem_io_cycle; wire [0:35] mem_data; // // CPU Interaces // wire cpu_request; wire cpu_grant; wire cpu_addr_cycle; wire cpu_data_cycle; wire cpu_io_cycle; wire cpu_clr_busy; wire [1: 7] cpu_pi_lvl; wire [0: 2] cpu_pi_current; wire [0:35] cpu_data; // // Unibus Interfaces // wire uba_busy; wire uba_reqest; wire [1: 7] uba_pi_req; wire [0:35] uba_data; // // Reset needs to be asserted for a few clock cycles (min) // for the hardware to initialize // RST uRST(.clk (clk), .reset (reset), .rst (rst) ); // // The KS10 Bus Arbiter // ARB uARB(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), // // CON Interface // .con_request (con_request), .con_grant (con_grant), .con_addr_cycle (con_addr_cycle), .con_data_cycle (con_data_cycle), .con_io_cycle (con_io_cycle), .con_data (con_data), // // CPU Interface // .cpu_request (cpu_request), .cpu_grant (cpu_grant), .cpu_addr_cycle (cpu_addr_cycle), .cpu_data_cycle (cpu_data_cycle), .cpu_io_cycle (cpu_io_cycle), .cpu_data (cpu_data), // // Unibus Interface // .uba_request (uba_request), .uba_grant (uba_grant), .uba_addr_cycle (uba_addr_cycle), .uba_data_cycle (uba_data_cycle), .uba_io_cycle (uba_io_cycle), .uba_data (uba_data), // // Memory Interface // .mem_addr_cycle (mem_addr_cycle), .mem_data_cycle (mem_data_cycle), .mem_io_cycle (mem_io_cycle), .mem_data (mem_data), // // ARB Output // .arb_addr_cycle (arb_addr_cycle), .arb_data_cycle (arb_data_cycle), .arb_io_cycle (arb_io_cycle), .arb_mem_busy (arb_mem_busy), .arb_uba_busy (arb_uba_busy), .arb_data (arb_data) ); // // The KS10 CPU // CPU uCPU(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (cpu_request), .bus_grant (cpu_grant), .bus_addr_cycle (cpu_addr_cycle), .bus_data_cycle (cpu_data_cycle), .bus_io_cycle (cpu_io_cycle), .bus_mem_busy (mem_busy), .bus_clr_busy (uba_clr_busy), .bus_pi_req_in (uba_pi_req), .bus_pi_req_out (cpu_pi_lvl), .bus_pi_current (cpu_pi_current), .bus_data_in (arb_data_out), .bus_data_out (cpu_data_out) ); // // Memory Interface // MEM uMEM(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (mem_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (mem_data_cycle), .bus_io_cycle_in (arb_io_cycle), .bus_io_cycle_out (mem_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (mem_busy), .bus_data_in (arb_data), .bus_data_out (mem_data) ); // // Unibus Interface // Note: The KS10 has two UNIBUS adapter. Somehow SIMH only // implments a single UNIBUS adapter. We will try the same // trick. // UBA uUBA(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (uba_request), .bus_grant (uba_grant), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (uba_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (uba_data_cycle), .bus_io_cycle_out (uba_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (uba_mem_busy), .bus_data_in (arb_data), .bus_data_out (uba_data), .bus_pi_current (cpu_pi_current), .bus_pi_request (uba_pi_request) ); // // Console // CONS uCONS(.clk (clk), .rst (rst), .pwr_fail (pwr_fail), .bus_request (con_request), .bus_grant (con_grant), .bus_uba_busy (arb_uba_busy), .bus_addr_cycle_in (arb_addr_cycle), .bus_addr_cycle_out (con_addr_cycle), .bus_data_cycle_in (arb_data_cycle), .bus_data_cycle_out (con_data_cycle), .bus_io_cycle_in (arb_io_cycle), .bus_io_cycle_out (con_io_cycle), .bus_mem_busy_in (arb_mem_busy), .bus_mem_busy_out (con_mem_busy), .bus_pi_lvl (cpu_pi_lvl), .bus_pi_current (cpu_pi_current), .bus_data_in (arb_data), .bus_data_out (con_data), .rxd (conRXD), .txd (conTXD) ); endmodule rtl/archive/testbench - Copy.v0000644000175100010010000000327012046405732014654 0ustar RobNone module testbench; reg clk; reg rst; wire cpuCONT; wire cpuHALT; wire cpuRUN; // // Initialization // initial begin $display("KS10 Simulation Starting"); clk = 1'b0; // initial state of clock rst = 1'b1; // initial state of reset #95 rst = 1'b0; // release reset at 95 nS end // // Clock generator // always #10 clk = ~clk; // clock is inverted every ten nS // // UUT // CPU UUT(.clk(clk), .rst(rst), .clken(1'b1), .consTIMEREN(1'b1), .consSTEP(1'b0), .consRUN(1'b1), .consEXEC(1'b0), .consCONT(1'b1), .consTRAPEN(1'b1), .consCACHEEN(1'b0), .intPWR(intPWR), .intCONS(intCONS), .bus_data_in(), .bus_data_out(), .bus_pi_req_in(), .bus_pi_req_out(), .bus_pi_current(), .cpuCONT(cpuCONT), .cpuHALT(cpuHALT), .cpuRUN(cpuRUN), .crom(), .dp(), .pageNUMBER()); // // Display of Processor Status // reg lastHALT; always @(posedge clk or posedge rst) begin if (rst) lastHALT = 1'b0; else begin if (cpuHALT & ~lastHALT) $display("KS10 CPU Halted at t = %f us", $time / 1.0e3); else if (~cpuHALT & lastHALT) $display("KS10 CPU Unhalted at t = %f us.", $time / 1.0e3); lastHALT = cpuHALT; end end endmodule rtl/archive/uba.v0000644000175100010010000000427112047017140012427 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Unibus Adapter //! //! \details //! //! \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 // module UBA(clk, rst, pwr_fail, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_data_in, bus_data_out); input clk; // Clock input rst; // Reset input pwr_fail; // input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // input [0:35] bus_data_in; // output [0:35] bus_data_out; // endmodule rtl/archive/cons.v0000644000175100010010000000522212047017136012624 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Console //! //! \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 // module CONS(clk, rst, pwr_fail, bus_request, bus_grant, bus_uba_busy, bus_addr_cycle_in, bus_addr_cycle_out, bus_data_cycle_in, bus_data_cycle_out, bus_io_cycle_in, bus_io_cycle_out, bus_mem_busy_in, bus_mem_busy_out, bus_pi_lvl, bus_pi_current, bus_data_in, bus_data_out, rxd, txd ); input clk; // Clock input rst; // Reset input pwr_fail; // output bus_request; // input bus_grant; // input bus_uba_busy; // Unibus Busy input bus_addr_cycle_in; // output bus_addr_cycle_out; // input bus_data_cycle_in; // output bus_data_cycle_out; // input bus_io_cycle_in; // output bus_io_cycle_out; // input bus_mem_busy_in; // output bus_mem_busy_out; // Never Asserted input [1: 7] bus_pi_lvl; // input [0: 2] bus_pi_current; // input [0:35] bus_data_in; // output [0:35] bus_data_out; // input rxd; output txd; assign bus_mem_busy_out = 1'b0; endmodule rtl/archive/arb.v0000644000175100010010000001165312047017140012426 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 Bus Arbiter //! //! \details //! This device is the KS10 Bus Arbiter. //! //! \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(clk, rst, pwr_fail, con_request, con_grant, con_addr_cycle, con_data_cycle, con_io_cycle, con_pi_request, con_data, cpu_request, cpu_grant, cpu_addr_cycle, cpu_data_cycle, cpu_io_cycle, cpu_pi_request, cpu_data, uba_request, uba_grant, uba_addr_cycle, uba_data_cycle, uba_io_cycle, uba_data, mem_addr_cycle, mem_data_cycle, mem_io_cycle, mem_data, arb_addr_cycle, arb_data_cycle, arb_io_cycle, arb_mem_busy, arb_uba_busy, arb_data); input clk; // Clock input rst; // Reset input pwr_fail; // input con_request; output reg con_grant; input con_addr_cycle; input con_data_cycle; input con_io_cycle; input [1: 7] con_pi_request; input [0:35] con_data; input cpu_request; output reg cpu_grant; input cpu_addr_cycle; input cpu_data_cycle; input cpu_io_cycle; input [1: 7] cpu_pi_request; input [0:35] cpu_data; input uba_request; output reg uba_grant; input uba_addr_cycle; input uba_data_cycle; input uba_io_cycle; input [0:35] uba_data; input mem_addr_cycle; input mem_data_cycle; input mem_io_cycle; input [0:35] mem_data; output reg arb_addr_cycle; // output reg arb_data_cycle; // output reg arb_io_cycle; // output arb_mem_busy; // output arb_uba_busy; // output reg [0:35] arb_data; // wire request = (con_request | cpu_request | uba_request); // // // reg grant; always @(posedge clk or posedge rst) begin if (rst) begin end else begin end end // // // always @(grant or con_request or uba_request or cpu_request) begin con_grant = 1'b0; uba_grant = 1'b0; cpu_grant = 1'b0; if (grant) begin if (con_request) begin con_grant = 1'b1; arb_addr_cycle = con_addr_cycle; arb_data_cycle = con_addr_cycle; arb_io_cycle = con_io_cycle; arb_data = con_data; end else if (uba_request) begin uba_grant = 1'b1; arb_addr_cycle = uba_addr_cycle; arb_data_cycle = uba_addr_cycle; arb_io_cycle = uba_io_cycle; arb_data = uba_data; end else if (cpu_request) begin cpu_grant = 1'b1; arb_addr_cycle = cpu_addr_cycle; arb_data_cycle = cpu_addr_cycle; arb_io_cycle = cpu_io_cycle; arb_data = cpu_data; end end end //assign arb_mem_busy = mem_busy; //assign arb_uba_busy = uba_busy; endmodule rtl/archive/clkgen.v,v0000444000175100010010000001200112047271316013360 0ustar RobNonehead 1.4; access; symbols; locks; comment @# @; 1.4 date 2012.11.09.21.16.59; author E721269; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.13.30; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.01.05.46.44; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.42.50; author Rob; state Exp; branches; next ; desc @Clock generator @ 1.4 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Timer Clock //! //! \details //! The timer requires a 4.1 MHz clock. This PLL generates //! this 4.1 MHz clock from the 50 MHz clock. //! //! \todo //! //! \file //! clkgen.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 CLKGEN(clk, rst, timerCLK); input clk; // Clock input rst; // Reset output timerCLK; // Timer output // // Clock Generator PLL // // Details // What follows is all XILINX SPARTAN 6 Specific: // // The minimum PLL frequency is 400 MHz // The maximum PLL frequency is 1050 MHz // The minimum input clock frequency is 19 MHz // // Need a 4.1 MHz clock. Unfortunately 41 is a prime number! // This means that generating 4.1 MHz from 50 MHz is going to // be difficult. // // Here are the equations: // // 8.2 MHz = (50 MHz/2)*41/125 (1025 MHz) // // Note: The VCO frequency is marginal // // At this VCO frequency, you can't divide to 4.1 MHz but you // can get to 8.2 MHz. Therefore there is an extra counter // register in the timer. // wire timerCLK; PLL_BASE #(.BANDWIDTH ("OPTIMIZED"), .CLK_FEEDBACK ("CLKFBOUT"), .COMPENSATION ("INTERNAL"), .DIVCLK_DIVIDE (2), .CLKFBOUT_MULT (41), .CLKFBOUT_PHASE (0.000), .CLKOUT0_DIVIDE (125), .CLKOUT0_PHASE (0.000), .CLKOUT0_DUTY_CYCLE (0.500), .CLKIN_PERIOD (20.000), .REF_JITTER (0.010)) pll_base_inst (.CLKFBOUT (clkfbout), .CLKOUT0 (timerCLK), .CLKOUT1 (), .CLKOUT2 (), .CLKOUT3 (), .CLKOUT4 (), .CLKOUT5 (), .LOCKED (), .RST (rst), .CLKFBIN (clkfbout), .CLKIN (clk)); endmodule @ 1.3 log @*** empty log message *** @ text @d56 1 a56 7 // The minimum PLL frequency is 400 MHz // The maximum PLL frequency is 1050 MHz // The minimum input clock frequency is 19 MHz // // Need a 4.1 MHz clock. Unfortunately 41 is a prime number! // This means that generating 4.1 MHz from 50 MHz is going to // be difficult. d58 12 a69 1 // Here are the equations: d75 3 a77 3 // At this VCO frequency, you can't divide to 4.1 MHz but you // can get to 8.2 MHz. Therefore there is an extra counter // register in the timer. @ 1.2 log @*** empty log message *** @ text @d22 1 a22 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d49 1 a49 1 module CLKGEN(clk, rst, timerclk); d51 3 a53 3 input clk; // Clock input rst; // Reset output reg timerclk; // Timer output d71 2 a72 1 // can get to 8.2 MHz. d75 1 a75 2 wire clk8p2; wire clkfbout; d90 1 a90 1 .CLKOUT0 (clk8p2), a100 12 // // Divide by 2 // always @@(posedge clk8p2 or posedge rst) begin if (rst) timerclk <= 1'b0; else timerclk <= ~timerclk; end @ rtl/testbench.v0000644000175100010010000000331712053071216012217 0ustar RobNone module testbench; reg clk; reg reset; // // Switches // reg swCONT; wire swEXEC = 1'b1; wire swRUN = 1'b1; // // LED Outputs // wire cpuHALT; wire cpuRUN; // // Initialization // initial begin $display("KS10 Simulation Starting"); clk = 1'b0; // initial state of clock reset = 1'b1; // initial state of reset #95 reset = 1'b0; // release reset at 95 nS end // // Clock generator // always #10 clk = ~clk; // clock is inverted every ten nS // // UUT // KS10 UUT (.clk (clk), .reset (reset), .pwrFAIL (1'b0), .swCONT (swCONT), .swEXEC (swEXEC), .swRUN (swRUN), .conRXD (1'b1), .conTXD (conTXD), .cpuHALT (cpuHALT), .cpuRUN (cpuRUN2) ); // // Display of Processor Status // reg lastHALT; always @(posedge clk or posedge reset) begin if (reset) lastHALT = 1'b0; else begin if (cpuHALT & ~lastHALT) $display("KS10 CPU Halted at t = %f us", $time / 1.0e3); else if (~cpuHALT & lastHALT) $display("KS10 CPU Unhalted at t = %f us.", $time / 1.0e3); lastHALT = cpuHALT; end end always @(posedge cpuHALT or posedge reset ) begin if (reset) swCONT <= 1'b0; else if ($time > 12000 && $time < 14000) begin #500 swCONT <= 1'b1; #600 swCONT <= 1'b0; end end endmodule rtl/ks10.ucf0000644000175100010010000000122512053071216011322 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" 20 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/status.txt0000644000175100010010000000210512053071216012127 0ustar RobNoneTest 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 Pass 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 Fail DSKALA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) DSKAMA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13) TODO: 1. NI_DISP : fix memory cycle. 2. CPU : fix memory timing. 3. MEM : move mem to test bench 4. mem.awk : fix to work on sixbit 5. Search for FIXME is the code. rtl/arb/0000755000175100010010000000000012042623254010614 5ustar RobNonertl/arb/RCS/0000755000175100010010000000000012045353334011245 5ustar RobNonertl/arb/RCS/arb.v,v0000444000175100010010000003065612050544502012445 0ustar RobNonehead 1.4; access; symbols; locks; comment @# @; 1.4 date 2012.11.13.22.27.12; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.13.07.33.34; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.09.08.12.41; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.45.49; author Rob; state Exp; branches; next ; desc @Bus Arbiter @ 1.4 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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, conREQI, conREQO, conACKI, conACKO, conADDRI, conDATAI, conDATAO, 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 conREQI; // CON Bus Request In output conREQO; // CON Bus Request Out input conACKI; // CON Bus Acknowledge In output conACKO; // CON Bus Acknowledge Out input [0:35] conADDRI; // CON Address In input [0:35] conDATAI; // CON Data In output [0:35] conDATAO; // CON 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 conACKO; reg conREQO; reg memREQO; reg ubaREQO; reg ubaACKO; reg [0:35] conDATAO; 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 conREQI or conACKI or conADDRI or conDATAI or ubaREQI or ubaACKI or ubaADDRI or ubaDATAI or memACKI or memDATAI) begin cpuACKO = 1'b0; conREQO = 1'b0; conACKO = 1'b0; ubaREQO = 1'b0; ubaACKO = 1'b0; memREQO = 1'b0; arbADDRO = 36'bx; conDATAO = 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 (conREQI) begin cpuACKO = 1'b0; conREQO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = conADDRI; cpuDATAO = conDATAI; memDATAO = conDATAI; ubaDATAO = conDATAI; if (memACKI) begin conACKO = 1'b1; conDATAO = memDATAI; end else if (ubaACKI) begin conACKO = 1'b1; conDATAO = ubaDATAI; end else begin conACKO = 1'b0; conDATAO = 36'bx; end end // // Bus Request from the Unibus // // Details // The unibus can access the memory // else if (ubaREQI) begin cpuACKO = 1'b0; conREQO = 1'b0; conACKO = 1'b0; ubaREQO = 1'b0; memREQO = 1'b1; arbADDRO = ubaADDRI; conDATAO = 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 conREQO = 1'b1; conACKO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = cpuADDRI; conDATAO = 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 (conACKI) begin cpuACKO = 1'b1; cpuDATAO = conDATAI; end else begin cpuACKO = 1'b0; cpuDATAO = 36'bx; end end end endmodule @ 1.3 log @*** empty log message *** @ text @d139 3 a145 3 cpuDATAO = 36'bx; memDATAO = conDATAI; ubaDATAO = 36'bx; a150 3 cpuDATAO = 36'bx; memDATAO = 36'bx; ubaDATAO = conDATAI; a155 3 cpuDATAO = 36'bx; memDATAO = 36'bx; ubaDATAO = 36'bx; d174 3 a179 3 conDATAO = 36'bx; cpuDATAO = 36'bx; memDATAO = ubaDATAI; a184 3 conDATAO = 36'bx; cpuDATAO = 36'bx; memDATAO = 36'bx; d205 3 a210 1 conDATAO = 36'bx; a211 2 memDATAO = cpuDATAI; ubaDATAO = 36'bx; a215 1 conDATAO = 36'bx; a216 2 memDATAO = 36'bx; ubaDATAO = cpuDATAI; a220 1 conDATAO = cpuDATAO; a221 2 memDATAO = 36'bx; ubaDATAO = 36'bx; d225 1 a225 2 ubaACKO = 1'b0; conDATAO = 36'bx; a226 2 memDATAO = 36'bx; ubaDATAO = 36'bx; @ 1.2 log @*** empty log message *** @ text @d48 5 a52 4 module ARB(memACK, memDATA, consACK, consDATA, ubaACK, ubaDATA, arbACK, arbDATA); d54 49 a102 8 input memACK; output [0:35] memDATA; input consACK; output [0:35] consDATA; input ubaACK; output [0:35] ubaDATA; output arbACK; output [0:35] arbDATA; d104 4 a107 3 assign arbDATA = memACK ? memDATA : ubaACK ? ubaDATA : consDATA; d109 1 a109 1 assign arbACK = memACK | ubaACK | consACK; d111 138 @ 1.1 log @Initial revision @ text @d9 1 a9 1 //! This device is the KS10 Bus Arbiter. d48 4 a51 48 module ARB(clk, rst, pwr_fail, con_request, con_grant, con_addr_cycle, con_data_cycle, con_io_cycle, con_pi_request, con_data, cpu_request, cpu_grant, cpu_addr_cycle, cpu_data_cycle, cpu_io_cycle, cpu_pi_request, cpu_data, uba_request, uba_grant, uba_addr_cycle, uba_data_cycle, uba_io_cycle, uba_data, mem_addr_cycle, mem_data_cycle, mem_io_cycle, mem_data, arb_addr_cycle, arb_data_cycle, arb_io_cycle, arb_mem_busy, arb_uba_busy, arb_data); input clk; // Clock input rst; // Reset input pwr_fail; // input con_request; output reg con_grant; input con_addr_cycle; input con_data_cycle; input con_io_cycle; input [1: 7] con_pi_request; input [0:35] con_data; d53 8 a60 7 input cpu_request; output reg cpu_grant; input cpu_addr_cycle; input cpu_data_cycle; input cpu_io_cycle; input [1: 7] cpu_pi_request; input [0:35] cpu_data; d62 3 a64 18 input uba_request; output reg uba_grant; input uba_addr_cycle; input uba_data_cycle; input uba_io_cycle; input [0:35] uba_data; input mem_addr_cycle; input mem_data_cycle; input mem_io_cycle; input [0:35] mem_data; output reg arb_addr_cycle; // output reg arb_data_cycle; // output reg arb_io_cycle; // output arb_mem_busy; // output arb_uba_busy; // output reg [0:35] arb_data; // d66 1 a66 1 wire request = (con_request | cpu_request | uba_request); a67 58 // // // reg grant; always @@(posedge clk or posedge rst) begin if (rst) begin end else begin end end // // // always @@(grant or con_request or uba_request or cpu_request) begin con_grant = 1'b0; uba_grant = 1'b0; cpu_grant = 1'b0; if (grant) begin if (con_request) begin con_grant = 1'b1; arb_addr_cycle = con_addr_cycle; arb_data_cycle = con_addr_cycle; arb_io_cycle = con_io_cycle; arb_data = con_data; end else if (uba_request) begin uba_grant = 1'b1; arb_addr_cycle = uba_addr_cycle; arb_data_cycle = uba_addr_cycle; arb_io_cycle = uba_io_cycle; arb_data = uba_data; end else if (cpu_request) begin cpu_grant = 1'b1; arb_addr_cycle = cpu_addr_cycle; arb_data_cycle = cpu_addr_cycle; arb_io_cycle = cpu_io_cycle; arb_data = cpu_data; end end end //assign arb_mem_busy = mem_busy; //assign arb_uba_busy = uba_busy; @ rtl/arb/arb.v0000644000175100010010000001520712053071216011551 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, conREQI, conREQO, conACKI, conACKO, conADDRI, conDATAI, conDATAO, 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 conREQI; // CON Bus Request In output conREQO; // CON Bus Request Out input conACKI; // CON Bus Acknowledge In output conACKO; // CON Bus Acknowledge Out input [0:35] conADDRI; // CON Address In input [0:35] conDATAI; // CON Data In output [0:35] conDATAO; // CON 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 conACKO; reg conREQO; reg memREQO; reg ubaREQO; reg ubaACKO; reg [0:35] conDATAO; 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 conREQI or conACKI or conADDRI or conDATAI or ubaREQI or ubaACKI or ubaADDRI or ubaDATAI or memACKI or memDATAI) begin cpuACKO = 1'b0; conREQO = 1'b0; conACKO = 1'b0; ubaREQO = 1'b0; ubaACKO = 1'b0; memREQO = 1'b0; arbADDRO = 36'bx; conDATAO = 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 (conREQI) begin cpuACKO = 1'b0; conREQO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = conADDRI; cpuDATAO = conDATAI; memDATAO = conDATAI; ubaDATAO = conDATAI; if (memACKI) begin conACKO = 1'b1; conDATAO = memDATAI; end else if (ubaACKI) begin conACKO = 1'b1; conDATAO = ubaDATAI; end else begin conACKO = 1'b0; conDATAO = 36'bx; end end // // Bus Request from the Unibus // // Details // The unibus can access the memory // else if (ubaREQI) begin cpuACKO = 1'b0; conREQO = 1'b0; conACKO = 1'b0; ubaREQO = 1'b0; memREQO = 1'b1; arbADDRO = ubaADDRI; conDATAO = 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 conREQO = 1'b1; conACKO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = cpuADDRI; conDATAO = 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 (conACKI) begin cpuACKO = 1'b1; cpuDATAO = conDATAI; end else begin cpuACKO = 1'b0; cpuDATAO = 36'bx; end end end endmodule rtl/cpu/0000755000175100010010000000000012042567276010652 5ustar RobNonertl/cpu/byte_disp.v0000644000175100010010000000475412053071210013011 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 // 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/ac_block.v0000644000175100010010000000526712053071210012564 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 // `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.v0000644000175100010010000007273412053071210011613 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 // `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: qi <= q; `cromDST_RAMA: qi <= q; `cromDST_RAMF: qi <= q; `cromDST_RAMD: qi <= q; `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: r[0:19] = ad[0:19]; `cromSRC_AB: r[0:19] = ad[0:19]; `cromSRC_ZQ: r[0:19] = 20'b0; `cromSRC_ZB: r[0:19] = 20'b0; `cromSRC_ZA: r[0:19] = 20'b0; `cromSRC_DA: r[0:19] = dd[0:19]; `cromSRC_DQ: r[0:19] = dd[0:19]; `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: r[20:39] = ad[20:39]; `cromSRC_AB: r[20:39] = ad[20:39]; `cromSRC_ZQ: r[20:39] = 20'b0; `cromSRC_ZB: r[20:39] = 20'b0; `cromSRC_ZA: r[20:39] = 20'b0; `cromSRC_DA: r[20:39] = dd[20:39]; `cromSRC_DQ: r[20:39] = dd[20:39]; `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: s[0:19] = q[0:19]; `cromSRC_ZQ: s[0:19] = q[0:19]; `cromSRC_DQ: s[0:19] = q[0:19]; `cromSRC_AB: s[0:19] = bd[0:19]; `cromSRC_ZB: s[0:19] = bd[0:19]; `cromSRC_ZA: s[0:19] = ad[0:19]; `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: s[20:39] = q[20:39]; `cromSRC_ZQ: s[20:39] = q[20:39]; `cromSRC_DQ: s[20:39] = q[20:39]; `cromSRC_AB: s[20:39] = bd[20:39]; `cromSRC_ZB: s[20:39] = bd[20:39]; `cromSRC_ZA: s[20:39] = ad[20:39]; `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 this KS10, this signal comes from the carry skippers, // which doesn't work well with an FPGA implementation. In // this implementation, 'co' signal comes directly from // the ALU calculation. // // Note that the CRY0 doesn't actually come from bit 0: // it comes from bit (-2). Because the top two bits are // sign extensions, they are equivalent. A carry from // bit 0 will cause a carry from bit (-1) and a carry // from 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])); // // FLAG Logic // // Trace // DPE5/E4 // DPE5/E5 // DPE5/E6 // DPE5/E62 // DPE5/E70 // wire carry_in = ((`cromMULTIPREC & flag_carry_02 ) | (`cromDIVIDE & flag_carry_out) | (`cromCRY38)); wire funct_02 = ((`cromMULTIPREC & flag_funct_02 ) | (`cromDIVIDE & flag_carry_out) | (fun[2])); // // ALU Flag Register // // These registers facilate 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 <= qi[39]; flag_carry_02 <= aluCRY2; flag_funct_02 <= funct_02; flag_carry_out <= aluCRY0; end end assign aluQR37 = flag_qr37; // // Multishift // // Details // The ALU has special provisions for multi-word shifts and a // special connection to the SCAD to perform division. // // Trace // DPE5/E4 // DPE5/E6 // DPE5/E62 // DPE5/E70 // wire multi_shift = `cromMULTIPREC & flag_fl02; wire divide_shift = `cromDIVIDE & flag_carry_out; // // 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.v0000644000175100010010000002003512053071210011577 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 // `include "useq/crom.vh" module APR(clk, rst, clken, crom, dp, pwrINTR, nxmINTR, consINTR, 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 pwrINTR; // Power Failure interrupt input nxmINTR; // Non existant memory interrupt input consINTR; // Console 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 // // 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 // // 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 // On a KS10, this flag indicates that an power fail condition // exists. // // Trace // DPMB/E158 // reg flagPWR; always @(posedge clk or posedge rst) begin if (rst) flagPWR <= 1'b0; else if (clken & specAPRFLAGS) if (pwrINTR) flagPWR <= 1'b1; else flagPWR <= dp[26]; end // // APR Flag Register 27 // // Note // Non-existant memory interrupt. // // Trace // DPMB/E139 // reg flagNXM; always @(posedge clk or posedge rst) begin if (rst) flagNXM <= 1'b0; else if (clken & specAPRFLAGS) if (nxmINTR) flagNXM <= 1'b1; else flagNXM <= dp[27]; end // // APR Flag Register 28 // // Note // On a KS10, this flag 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 // On a KS10, this flag 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 // // 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 // On a KS10, this flag indicates that a Console Interrupt // has occurred. // // Trace // DPMB/E158 // reg flagCONS; always @(posedge clk or posedge rst) begin if (rst) flagCONS <= 1'b0; else if (clken & specAPRFLAGS) if (consINTR) flagCONS <= 1'b1; else flagCONS <= 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]) || (flagPWR & flagAPREN[26]) || (flagNXM & flagAPREN[27]) || (flag28 & flagAPREN[28]) || (flag29 & flagAPREN[29]) || (flag30 & flagAPREN[30]) || (flagCONS & flagAPREN[31]) || (flagSWINT)); // // APR Interrupt Request // // Details // The APR can request interrupts. // // Trace // DPEB/E166 // reg [1:7] aprINTR; always @(flagINTREQ or flagINTR) begin 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 else aprINTR <= 7'b0000000; end // // FIXUPS // assign aprFLAGS[22] = flagTRAPEN; assign aprFLAGS[23] = flagPAGEEN; assign aprFLAGS[24] = flag24; assign aprFLAGS[25] = flag25; assign aprFLAGS[26] = flagPWR; assign aprFLAGS[27] = flagNXM; assign aprFLAGS[28] = flag28; assign aprFLAGS[29] = flag29; assign aprFLAGS[30] = flag30; assign aprFLAGS[31] = flagCONS; assign aprFLAGS[32] = flagINTREQ; assign aprFLAGS[33] = 1'b1; assign aprFLAGS[34] = 1'b1; assign aprFLAGS[35] = 1'b1; endmodule rtl/cpu/bus.v0000644000175100010010000004112012053071210011604 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 Bus Interface //! //! \details //! //! \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 // `include "useq/crom.vh" module BUS(clk, rst, clken, crom, dp, vmaEXTENDED, vmaFLAGS, vmaADDR, pageADDR, aprFLAGS, busREQ, busACK, busDATAO, busADDRO); 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 busREQ; // Bus Request input busACK; // Bus Acknowledge output [ 0:35] busDATAO; // Bus Out output [ 0:35] busADDRO; // Bus Address // // Control ROM Decode // wire pageWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); // // APR Flags // wire flagPAGEEN = aprFLAGS[23]; // // VMA Flags // wire vmaPHYSICAL = vmaFLAGS[8]; // // FIXME // wire DPM5_BUS_REQUEST = 1'b0; // // Paged Reference // wire pagedREF = DPM5_BUS_REQUEST & ~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 // // This is OK. The CPU has the lowest priority. // assign busREQ = 1'b1; // // 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 | 0| 0| 1| 0| 0| 0| 0| Unused | 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 | 0| 1| 0| 0| 0| 0| 0| Unused | 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 | 0| 1| 1| 0| 0| 0| 0| Unused | 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 | 1| 0| 1| 0| 0| 0| 0| Unused | CTL 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 | 1| 0| 1| 0| 0| 0| 1| Unused | CTL 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 | 1| 1| 0| 0| 0| 0| 0| Unused | CTL 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| 1| 0| 0| 0| 1| 0| 0| Unused |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 | 1| 1| 0| 0| 0| 1| 0| Unused | CTL NO | Unused | // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // /* reg busREQUEST; reg pagedREF; reg pageWRITE; // Load page tables on external device reg vmaEXTENDED; always @(posedge clk or posedge rst) begin if (rst) begin busREQUEST <= 1'b0; pagedREF <= 1'b0; pageWRITE <= 1'b0; vmaEXTENDED <= 1'b0; end else if (clken & vmaEN) begin ; end end if (busREQUEST) if (pagedREF) busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:27],vmaADDR[28:35]}; else if (vmaEXTENDED) busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35]}; else busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35]}; else wire [0: 1] txTYPE = {busREQUEST, pagedREF}; always @(txTYPE or dp or busADDR or busEXTADDR) begin case (txTYPE) 2'b00: busTX <= dp; 2'b01: busTX <= 36'b0; 2'b10: busTX <= busADDR; 2'b11: busTX <= busEXTADDR; endcase end // 0-11 if (busREQUEST) busTX[0:13] <= {commandBITS, 7'b0}; else busTX[0:13] <= dp[0:13]; // 0 0 1 // 0 1 1 // 1 0 1 // 1 1 0 -> enabled // not bus request -> enabled // vma extended -> enabled // note busTX[12:13] were absorbed above // 12-15 if (busREQUEST) if (vmaEXTENDED) busTX[14:15] <= vmaADDR[14:15]; else busTX[14:15] <= 2'b0; else busTX[14:15] <= dp[14:15] ; // // need or gate enable // not bus request -> enabled // vma extended -> enabled // paged ref -> enabled // 16-17 if (busREQUEST) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; // // need page write en enable // note that PAGE WRITE EN cuts out DP bits 19, 20, 23 and 24). // 19-20, 23-24 if (busREQUEST) if (pagedREF) busTX[19:20] <= pageADDR[19:20]; busTX[23:24] <= pageADDR[23:24]; else busTX[19:20] <= vmaADDR[19:20]; busTX[23:24] <= vmaADDR[23:24]; else if (pagedREF) busTX[19:20] <= 2'b0; busTX[23:24] <= 2'b0; else busTX[19:20] <= dp[19:20]; busTX[23:24] <= dp[23:24]; // 18, 21-22, 25-27 // FIXME note that PAGE WRITE EN cuts out DP bits 19, 20, 23 and 24). if (busREQUEST) if (pagedREF) begin busTX[ 18] <= pageADDR[ 18]; busTX[21:22] <= pageADDR[21:22]; busTX[25:27] <= pageADDR[21:25]; end else begin busTX[ 18] <= vmaADDR[ 18]; busTX[21:22] <= vmaADDR[21:22]; busTX[25:27] <= vmaADDR[25:27]; end else if (pagedREF) begin busTX[ 18] <= 1'b0; busTX[21:22] <= 2'b0; busTX[25:27] <= 3'b0; end else begin busTX[ 18] <= dp[ 18]; busTX[21:22] <= dp[21:22]; busTX[25:27] <= dp[25:27]; end // 28-35 if (busREQUEST) busTX[28:35] <= vmaADDR[28:35]; else busTX[28:35] <= dp[28:35]; //-------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------- if (busREQUEST) if (vmaEXTENDED) busTX[ 0:15] <= {commandBITS, 7'b0, vmaADDR[14:15]}; else busTX[ 0:15] <= {commandBITS, 9'b0, }; else if (pagedREF) busTX[14:15] <= {dp[0:15], 2'b0}; else busTX[14:15] <= {dp[0:17] }; // not bus request -> enabled // vma extended -> enabled // paged ref -> enabled if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; if (busREQUEST) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; if (busREQUEST) if (vmaEXTENDED) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else busTX[16:17] <= vmaADDR[16:17]; else if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; //[]][][][][][][][] BR PR VX 0 0 0 -> busTX[0:13] <= dp[0:13]; 0 0 1 -> busTX[0:13] <= dp[0:13]; 0 1 0 -> busTX[0:13] <= dp[0:13]; 0 1 1 -> busTX[0:13] <= dp[0:13]; 1 0 0 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 0 1 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 1 0 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 1 1 -> busTX[0:13] <= {commandBITS, 7'b0}; //[][][][][][][] BR PR VX 0 0 0 -> busTX[14:15] <= dp[14:15]; 0 0 1 -> busTX[14:15] <= dp[14:15]; 0 1 0 -> busTX[14:15] <= dp[14:15]; 0 1 1 -> busTX[14:15] <= dp[14:15]; 1 0 0 -> busTX[14:15] <= 2'b0; 1 0 1 -> busTX[14:15] <= vmaADDR[14:15]; 1 1 0 -> busTX[14:15] <= 2'b0; 1 1 1 -> busTX[14:15] <= vmaADDR[14:15]; //[][][][][][][] BR PR VX 0 0 0 -> dp[16:17] (E) 0 0 1 -> dp[16:17] (E) 0 1 0 -> 00 (E) 0 1 1 -> 00 (E) 1 0 0 -> 00 1 0 1 -> vmaADDR[16:17] (E) 1 1 0 -> pageADDR[16:17] (E) 1 1 1 -> pageADDR[16:17] (E) //[][][][][][][] BR PR VX 0 0 0 -> busTX[18:27] <= dp[18:27]; 0 0 1 -> busTX[18:27] <= dp[18:27]; 0 1 0 -> busTX[18:27] <= 9'b0; 0 1 1 -> busTX[18:27] <= 9'b0; 1 0 0 -> busTX[18:27] <= vmaADDR[18:27]; 1 0 1 -> busTX[18:27] <= vmaADDR[18:27]; 1 1 0 -> busTX[18:27] <= pageADDR[18:27]; 1 1 1 -> busTX[18:27] <= pageADDR[18:27]; //[][][][][][][] BR PR VX 0 0 0 -> busTX[28:35] <= dp[28:35]; 0 0 1 -> busTX[28:35] <= dp[28:35]; 0 1 0 -> busTX[28:35] <= dp[28:35]; 0 1 1 -> busTX[28:35] <= dp[28:35]; 1 0 0 -> busTX[28:35] <= vmaADDR[28:35]; 1 0 1 -> busTX[28:35] <= vmaADDR[28:35]; 1 1 0 -> busTX[28:35] <= vmaADDR[28:35]; 1 1 1 -> busTX[28:35] <= vmaADDR[28:35]; 000 : busTX[0:35] <= dp[0:35]; 001 : busTX[0:35] <= dp[0:35]; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]} 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]} 010 : busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35] 010 : busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:35] 000 : busTX[0:35] <= dp[0:13], dp[14:15], dp[16:17], dp[18:27], dp[28:35] 001 : busTX[0:35] <= dp[0:13], dp[14:15], dp[16:17], dp[18:27], dp[28:35] 010 : busTX[0:35] <= {dp[0:13], dp[14:15], 2'b0, 9'b0, dp[28:35] 010 : busTX[0:35] <= {dp[0:13], dp[14:15], 2'b0, 9'b0, dp[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, 2'b0, 2'b0, vmaADDR[18:27], vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], vmaADDR[16:17], vmaADDR[18:27], vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, 2'b0, pageADDR[16:17], pageADDR[18:27],vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:17], pageADDR[18:27],vmaADDR[28:35] 000 : busTX[0:35] <= dp[0:35]; 001 : busTX[0:35] <= dp[0:13]; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]}; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]}; 010 : busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35]}; 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35] 010 : busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:27],vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:27],vmaADDR[28:35] */ endmodule rtl/cpu/page_tables.v0000644000175100010010000001276612053071212013301 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Page Tables //! //! \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 //! page_table.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 // `include "useq/crom.vh" `include "useq/drom.vh" module PAGE_TABLES(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 vmaUSER = vmaFLAGS[0]; // // VMA Logic // DPE5/E76 // DPE6/E53 // wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE ); wire pageWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA ) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA)); wire [0: 8] virtPAGE = vmaADDR[18:26]; wire [0:15] din = {dp[18], dp[21:22], vmaUSER, 1'b0, dp[25:35]}; // // Page memory // // 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 add 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: 8] readADDR; reg [0:15] pageTABLE1[0:255]; reg [0:15] pageTABLE2[0:255]; always @(posedge clk or posedge rst) begin if (rst) readADDR <= 9'b0; else if (clken & vmaEN) begin readADDR <= virtPAGE; if (pageWRITE) begin if (~virtPAGE[0] | sweep) pageTABLE1[virtPAGE[1:8]] <= din; if ( virtPAGE[0] | sweep) pageTABLE2[virtPAGE[1:8]] <= din; end end end // // Page Table Read // wire [0:15] dout = (readADDR[0]) ? pageTABLE2[readADDR[1:8]] : pageTABLE1[readADDR[1:8]]; // // Fixup Page RAM data // assign pageFLAGS = dout[0: 4]; assign pageADDR = dout[5:15]; endmodule rtl/cpu/cache.v0000644000175100010010000001252012053071210012060 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 // `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/dbm.v0000644000175100010010000001626012053071210011564 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! DBM Multiplexor //! //! \details //! //! \todo //! //! \notes //! //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | dbm | spec | | | | | | | //! | sel | sel | -> | sel1 | sel2 | sel3 | sel4 | sel5 | //! | 4 2 1 | 4 2 1 | -> | 4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 0 0 | x x x | -> | 0 0 0 | 0 0 0 | 0 0 0 | 0 0 0 | 0 0 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 0 1 | 0 0 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 0 1 | -> | 0 1 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 1 0 | -> | 0 0 1 | 0 1 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 1 1 | -> | 0 0 1 | 0 0 1 | 0 1 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 1 0 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 1 1 | 0 0 1 | //! | 0 0 1 | 1 0 1 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 1 1 | //! | 0 0 1 | 1 1 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 1 1 1 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 1 0 | x x x | -> | 0 1 0 | 0 1 0 | 0 1 0 | 0 1 0 | 0 1 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 1 1 | 0 0 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 0 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 1 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 1 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 0 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 0 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 1 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 1 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 0 0 | x x x | -> | 1 0 0 | 1 0 0 | 1 0 0 | 1 0 0 | 1 0 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 0 1 | x x x | -> | 1 0 1 | 1 0 1 | 1 0 1 | 1 0 1 | 1 0 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 1 0 | x x x | -> | 1 1 0 | 1 1 0 | 1 1 0 | 1 1 0 | 1 1 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 1 1 | x x x | -> | 1 1 1 | 1 1 1 | 1 1 1 | 1 1 1 | 1 1 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! //! \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 // `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 : case (`cromSPEC_SELBYTE) `cromSPEC_SELBYTE_1 : dbm = {dp[0:6], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_2 : dbm = {scad[1:7], dp[7:13], scad[1:7], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_3 : dbm = {scad[1:7], scad[1:7], dp[14:20], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_4 : dbm = {scad[1:7], scad[1:7], scad[1:7], dp[21:27], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_5 : dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[28:34], dp[35]}; default: dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; endcase `cromDBM_SEL_EXPTIME : dbm = {1'b0, scad[2:9], dp[9:17], timerCOUNT[18:35]}; `cromDBM_SEL_DP : dbm = dp[0:35]; `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.v0000644000175100010010000000753312053071210011762 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 // `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.v0000644000175100010010000000425512053071210012111 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 // module DEBUG(clk, rst, clken, debugDATA, debugADDR); input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:35] debugDATA; // DEBUG Data output [0: 3] debugADDR; // DEBUG Address // // PC is at Address 1 in the ALU // assign debugADDR = 4'b0001; // // Print the PC // synthesis translate_off // reg [0:35] last; always @(posedge clk or posedge rst) begin if (rst) last = 36'bx; else if (clken) begin if (debugDATA != last) $display("debug: PC is %06o", debugDATA); last = debugDATA; end end // synthesis translate_on endmodule rtl/cpu/intf.v0000644000175100010010000001031412053071210011754 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 // `include "useq/crom.vh" module INTF(clk, rst, clken, crom, consRUN, consCONT, consEXEC, consHALT, 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 consRUN; // Console Run Switch input consCONT; // Console Continue Switch input consEXEC; // Console Execute Switch input consHALT; // 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 (consRUN) 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 (consEXEC) 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 (consCONT) cpuCONT <= 1'b1; else if (specCONS & `cromCONS_CLR_CONT) cpuCONT <= 1'b0; end end endmodule rtl/cpu/intr.v0000644000175100010010000001352512053071210011777 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 // `include "useq/crom.vh" module INTR(clk, rst, clken, crom, dp, flagINTREQ, ubaINTR, 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] ubaINTR; // 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 = ((ubaINTR[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.v0000644000175100010010000000406312053071210012443 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 // `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.v0000644000175100010010000000551412053071212012451 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 // module NI_DISP (aprFLAGS, pcFLAGS, consTRAPEN, cpuRUN, memory_cycle, dispNI); input [ 0:17] pcFLAGS; // PC Flags input [22:35] aprFLAGS; // APR Flags input consTRAPEN; // 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 @(consTRAPEN or flagTRAPEN or trapSEL) begin if (consTRAPEN & 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/regir.v0000644000175100010010000000652412053071212012136 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 // `include "useq/crom.vh" module regIR(clk, rst, clken, crom, dbus, prevEN, regIR, xrPREV, JRST0); 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 reg [0:17] regIR; // Instruction register output reg xrPREV; // XR Previous output JRST0; // 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 // 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 JRST0 = ((irOPCODE == 9'o254) & (irAC == 4'b0)); endmodule rtl/cpu/scad.v0000644000175100010010000001636612053071212011745 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 // `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/pcflags.v0000644000175100010010000003465112053071212012447 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 // `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 // 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) flagAOV <= aluAOV; 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. // 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) flagCRY0 <= aluCRY0; 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. // 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) flagCRY1 <= aluCRY1; 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 // 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.v0000644000175100010010000001672712053071212012460 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 // `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.v0000644000175100010010000001403112053071212011774 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 // `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.v0000644000175100010010000000526012053071212012376 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 // 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.v0000644000175100010010000002467312053071212012452 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 // `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 // /* reg DPM5_READ_EN; reg DPM5_WRITE_EN; always @(crom or drom or dp ) begin case (`cromMEM_CYCLE_SEL) 0: begin DPM5_READ_EN = `cromMEM_READCYCLE; DPM5_WRITE_EN = `cromMEM_WRITECYCLE; end 1: begin DPM5_READ_EN = dp[3]; DPM5_WRITE_EN = dp[5]; end 2: begin DPM5_READ_EN = `dromREADCYCLE; DPM5_WRITE_EN = `dromWRITECYCLE; end default: begin DPM5_READ_EN = 1'b0; DPM5_WRITE_EN = 1'b0; end endcase end wire STOP_MAIN_MEMORY = 1'b0; wire specMEM_WAIT = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMWAIT); wire specMEM_CLR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMCLR ); wire DPM5_MEM_EN = ((`cromMEM_CYCLE & `cromMEM_WAIT ) | (`cromMEM_CYCLE & `cromMEM_BWRITE & `dromCOND_FUNC)); wire DPM5_MEM_WAIT = DPM5_MEM_EN | specMEM_WAIT | specMEM_CLR; wire DPM5_RPW_CYCLE = vmaREADCYCLE & vmaWRITECYCLE & ~STOP_MAIN_MEMORY; //wire DPM5_START_CYCLE = ~DPM5_RPW_CYCLE & (DPM5_READ_EN | DPM5_WRITE_EN) & DPM5_MEM_EN; wire DPM5_START_CYCLE = ((DPM5_READ_EN & DPM5_MEM_EN & ~DPM5_RPW_CYCLE) | (DPM5_WRITE_EN & DPM5_MEM_EN & ~DPM5_RPW_CYCLE)); reg DPM6_MEMORY_CYCLE; always @(posedge clk or posedge rst) begin if (rst) DPM6_MEMORY_CYCLE <= 1'b0; else if (clken) DPM6_MEMORY_CYCLE <= DPM5_START_CYCLE; end wire ramfileWRITE = (( vmaACREF & ~vmaREADCYCLE & DPM6_MEMORY_CYCLE & DPM5_MEM_WAIT) | (~vmaACREF & STOP_MAIN_MEMORY & DPM6_MEMORY_CYCLE & DPM5_MEM_WAIT) | (`cromFMWRITE)); */ wire ramfileWRITE = ((vmaACREF & vmaWRITECYCLE) | (`cromFMWRITE)); // // RAMFILE MEMORY // RAM1Kx36 uRAM1Kx36 (.clk(clk), .clken(clken), .wr(ramfileWRITE), .addr(addr), .din(dbus), .dout(ramfile) ); endmodule rtl/cpu/timer.v0000644000175100010010000001375712053071212012154 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 // `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.v0000644000175100010010000000645712053071212012322 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 // `include "useq/crom.vh" `include "useq/drom.vh" module TIMING(clk, rst, crom, drom, dp, feSIGN, clkenDP, clkenCR); 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 clkenDP; // Clock Enable output clkenCR; // Clock Enable Microsequencer // // 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); assign clkenDP = ~((`cromMULTISHIFT & ~feSIGN) | (done & clkenCR)); endmodule rtl/cpu/traps.v0000644000175100010010000000526112053071212012154 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 // `include "useq/crom.vh" module TRAPS(clk, rst, clken, crom, pcFLAGS, aprFLAGS, consTRAPEN, 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 consTRAPEN; // 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 = ((consTRAPEN & flagTRAPEN & flagTRAP2) | (consTRAPEN & flagTRAPEN & flagTRAP1)); always @(posedge clk or posedge rst) begin if (rst) trapCYCLE <= 1'b0; else if (clken & specNICOND) trapCYCLE <= trapEN; end endmodule rtl/cpu/vma.v0000644000175100010010000001724112053071212011607 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 // `include "useq/crom.vh" `include "useq/drom.vh" module VMA(clk, rst, clken, crom, drom, dp, cpuEXEC, prevEN, pcFLAGS, vmaSWEEP, 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 reg vmaSWEEP; // VMA Sweep output reg vmaEXTENDED; // VMA Extended output [ 0:13] vmaFLAGS; // VMA Flags output reg [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 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; vmaSWEEP <= 1'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]; vmaSWEEP <= cacheSWEEP; 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/cpu/cpu.v0000644000175100010010000004513512053071212011616 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 // `include "useq/crom.vh" `include "useq/drom.vh" module CPU(clk, rst, consTIMEREN, consSTEP, consRUN, consEXEC, consCONT, consHALT, consTRAPEN, consCACHEEN, pwrINTR, consINTR, ubaINTR, curINTR_NUM, busREQ, busACK, busDATAI, busDATAO, busADDRO, cpuHALT, cpuRUN); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input consTIMEREN; // Timer Enable input consSTEP; // Single Step input consRUN; // Run input consEXEC; // Execute input consHALT; // HALT input consCONT; // Continue input consTRAPEN; // Enable Traps input consCACHEEN; // Enable Cache input pwrINTR; // Power Fail Interrupt Request input consINTR; // Console Interrupt Request input [ 1: 7] ubaINTR; // 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; // output cpuRUN; // // // 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 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 // // flags // wire mem_wait; wire stop_main_memory; wire memory_cycle = 1'b0; // FIXME wire iolatch; // FIXME wire cpuCONT; // wire JRST0; 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 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 flagCONS = aprFLAGS[31]; // Console interrupt wire flagINTREQ = aprFLAGS[32]; // Interrupt Request // // A Registers // wire [14:35] vmaADDR; // VMA Address wire [ 0:13] vmaFLAGS; // VMA Flags wire vmaUSER = vmaFLAGS[ 0]; // 1 = Use 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 // // 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, // Multiply dispatch 1'b0, 1'b0}; wire [ 8:11] dispNORM = {aluZERO, dp[8:9], // Normalize dispatch aluLSIGN}; wire [ 8:11] dispEA = {~JRST0, regIR_I, // EA Dispatch regXRZERO, 1'b0}; 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 TIMING uTIMING (.clk(clk), .rst(rst), .crom(crom), .drom(drom), .dp(dp), .feSIGN(feSIGN), .clkenDP(clkenDP), .clkenCR(clkenCR) ); // // 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), .pwrINTR(pwrINTR), .nxmINTR(nxmINTR), .consINTR(consINTR), .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), .busREQ(busREQ), .busACK(busACK), .busDATAO(busDATAO), .busADDRO(busADDRO) ); // // 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), .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), .ubaINTR(ubaINTR), .newINTR_NUM(newINTR_NUM), .curINTR_NUM(curINTR_NUM), .cpuINTR(cpuINTR) ); // // INTF // Console Interface // INTF uINTF (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .consRUN(consRUN), .consCONT(consCONT), .consEXEC(consEXEC), .consHALT(consHALT), .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), .JRST0(JRST0) ); // // 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), .consTRAPEN(consTRAPEN), .cpuRUN(cpuRUN), .memory_cycle(memory_cycle), .dispNI(dispNI) ); // // Page Tables // PAGE_TABLES uPAGE_TABLES (.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(consTIMEREN), .timerINTR(timerINTR), .timerCOUNT(timerCOUNT) ); // // Traps // TRAPS uTRAPS (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .pcFLAGS(pcFLAGS), .aprFLAGS(aprFLAGS), .consTRAPEN(consTRAPEN), .trapCYCLE(trapCYCLE) ); // // VMA // VMA uVMA (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .drom(drom), .dp(dp), .cpuEXEC(cpuEXEC), .prevEN(prevEN), .pcFLAGS(pcFLAGS), .vmaSWEEP(vmaSWEEP), .vmaEXTENDED(vmaEXTENDED), .vmaFLAGS(vmaFLAGS), .vmaADDR(vmaADDR) ); endmodule rtl/cpu/RCS/0000755000175100010010000000000012031433210011253 5ustar RobNonertl/cpu/RCS/traps.v,v0000444000175100010010000001404312047266376013065 0ustar RobNonehead 1.6; access; symbols; locks; comment @# @; 1.6 date 2012.11.09.20.52.11; author E721269; state Exp; branches; next 1.5; 1.5 date 2012.11.04.02.38.04; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.18.03; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.39.37; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.44.18; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.44.04; author Rob; state Exp; branches; next ; desc @Trap Cycle @ 1.6 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" module TRAPS(clk, rst, clken, crom, pcFLAGS, aprFLAGS, consTRAPEN, 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 consTRAPEN; // 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 = ((consTRAPEN & flagTRAPEN & flagTRAP2) | (consTRAPEN & flagTRAPEN & flagTRAP1)); always @@(posedge clk or posedge rst) begin if (rst) trapCYCLE <= 1'b0; else if (clken & specNICOND) trapCYCLE <= trapEN; end endmodule @ 1.5 log @*** empty log message *** @ text @d76 2 d81 1 @ 1.4 log @*** empty log message *** @ text @d48 2 a49 2 module TRAPS(clk, rst, clken, crom, dp, pcFLAGS, consTRAPEN, trapEN, traps, trapCYCLE); d51 22 a72 31 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:17] pcFLAGS; // PC Flags input consTRAPEN; // Console Trap Enable input trapEN; // Trap Enable output reg [3: 1] traps; // Traps output reg trapCYCLE; // Trap Cycle // // Trap Selection // CRA2/E147 // wire [0:1] trapSEL = pcFLAGS[9:10]; always @@(consTRAPEN or trapEN or trapSEL) begin if (consTRAPEN & trapEN) case (trapSEL) 0: traps = 3'b000; 1: traps = 3'b001; 2: traps = 3'b010; 3: traps = 3'b100; endcase else traps = 3'b000; end d82 4 a85 2 wire niEN = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADNICOND); d90 4 a93 4 else if (clken & niEN) trapCYCLE <= (traps != 3'b000); end @ 1.3 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d46 1 a46 1 `include "microcontroller/crom.vh" @ 1.1 log @Initial revision @ text @d6 1 a6 1 //! Trap Cycle d10 1 a10 1 //! \todo d13 1 a13 1 //! trap_cycle.v d18 1 a18 1 //////////////////////////////////////////////////////////////////// d27 1 a27 2 // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General d48 2 a49 2 module TRAP_CYCLE(clk, rst, clken, crom, trap3, trap2, trap1, trap_cycle); d51 16 d68 14 a81 8 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input trap3; // Trap 3 input trap2; // Trap 2 input trap1; // Trap 1 output reg trap_cycle; // Trap Cycle d84 1 a84 4 // TRAP CYCLE // CRA2/E100 // CRA2/E113 // d88 2 d91 1 a91 1 wire trap_en = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADNICOND); d96 3 a98 3 trap_cycle <= 1'b0; else if (clken & trap_en) trap_cycle <= trap3 | trap2 | trap1; @ rtl/cpu/RCS/debug.v,v0000444000175100010010000000506412051521712013004 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.16.20.36.23; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.13.22.24.02; author Rob; state Exp; branches; next ; desc @Debug Device @ 1.2 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // module DEBUG(clk, rst, clken, debugDATA, debugADDR); input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:35] debugDATA; // DEBUG Data output [0: 3] debugADDR; // DEBUG Address // // PC is at Address 1 in the ALU // assign debugADDR = 4'b0001; // // Print the PC // synthesis translate_off // reg [0:35] last; always @@(posedge clk or posedge rst) begin if (rst) last = 36'bx; else if (clken) begin if (debugDATA != last) $display("debug: PC is %06o", debugDATA); last = debugDATA; end end // synthesis translate_on endmodule @ 1.1 log @Initial revision @ text @a48 2 // synthesis translate_off d60 1 a60 1 assign debugADDR = "0001"; d64 1 @ rtl/cpu/RCS/iolatch.v,v0000444000175100010010000000526512047271162013352 0ustar RobNonehead 1.4; access; symbols; locks; comment @# @; 1.4 date 2012.11.09.21.15.27; author E721269; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.19.20; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.01.05.48.58; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.20.02.42.41; author Rob; state Exp; branches; next ; desc @@ 1.4 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.3 log @*** empty log message *** @ text @d61 2 @ 1.2 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d47 1 a47 1 `include "microcontroller/crom.vh" @ rtl/cpu/RCS/intr.v,v0000444000175100010010000004007012053070202012661 0ustar RobNonehead 1.10; access; symbols; locks; comment @# @; 1.10 date 2012.11.21.06.11.12; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.17.00.44.49; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.16.20.36.47; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.09.21.27.01; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.09.08.13.26; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.07.07.17.37; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.18.56; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.06.07.02; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.45.22; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.46.51; author Rob; state Exp; branches; next ; desc @Interrupt controller @ 1.10 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" module INTR(clk, rst, clken, crom, dp, flagINTREQ, ubaINTR, 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] ubaINTR; // 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 = ((ubaINTR[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 @ 1.9 log @*** empty log message *** @ text @d134 3 d141 11 a151 9 assign newINTR_NUM = (~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 d156 3 d163 10 a172 8 assign curINTR_NUM = (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 d178 2 a179 2 // The priority of the current interrupt input is compared to // the priority of the active interrupt. If the currrent input @ 1.8 log @*** empty log message *** @ text @d53 2 a54 2 module INTR(clk, rst, clken, crom, dp, flagINTREQ, ubaINTR, ubaINTA, pi_new, pi_current, cpuINTR, pi_on); d58 1 a58 1 input clk; // Clock d63 2 a64 1 input flagINTREQ; // Interrupt Request d66 2 a67 3 output [1: 7] ubaINTA; // Interrupt Acknowledge output [0: 2] pi_new; // New Prioity Interrupt number output [0: 2] pi_current; // Current Prioity Interrupt number a68 1 output pi_on; // PI is on d73 1 a73 1 d76 1 a76 1 d78 1 a78 1 // Bus Request In d81 2 a82 17 // This synchronizes bus-based interrupt requests // // Trace // DPEB/E167 // reg [1:7] pi_bus; always @@(posedge clk or posedge rst) begin if (rst) pi_bus <= 7'b0; else if (clken) pi_bus <= ubaINTR; end // // Datapath Interface d90 4 a93 4 reg pi_on; // PI is active reg [1:7] pi_act; // active pi level reg [1:7] pi_cur; // current pi level reg [1:7] pi_sw; // software pi level d99 4 a102 4 pi_act <= 7'b0; pi_on <= 1'b0; pi_cur <= 7'b0; pi_sw <= 7'b0; d106 4 a109 4 pi_act <= ~dp[29:35]; pi_on <= ~dp[28]; pi_cur <= ~dp[21:27]; pi_sw <= ~dp[11:17]; d114 7 a120 1 // Interrupt enable logic d129 1 a129 1 wire [1:7] pi_req = (pi_bus & pi_act) | pi_sw; d132 1 a132 1 // Interrupt Request Priority Encoder d138 9 a146 8 wire [0:3] pi_req_num = (pi_req[1] ? 4'b0001 : // Highest priority pi_req[2] ? 4'b0010 : pi_req[3] ? 4'b0011 : pi_req[4] ? 4'b0100 : pi_req[5] ? 4'b0101 : pi_req[6] ? 4'b0110 : pi_req[7] ? 4'b0111 : 4'b1000); // Lowest priority d149 1 a149 1 // Current Interrupt Priority Encoder d155 8 a162 8 wire [0:3] pi_cur_num = (pi_cur[1] ? 4'b0001 : // Highest priority pi_cur[2] ? 4'b0010 : pi_cur[3] ? 4'b0011 : pi_cur[4] ? 4'b0100 : pi_cur[5] ? 4'b0101 : pi_cur[6] ? 4'b0110 : pi_cur[7] ? 4'b0111 : 4'b1000); // Lowest priority d167 5 d183 1 a183 19 begin cpuINTR <= (pi_req_num < pi_cur_num); end end // // Interrupt Acknowledge reg [0: 2] intrACK; always @@(posedge clk or posedge rst) begin if (rst) `ifdef INITRAM intrACK <= 3'b0; `else intrACK <= 3'bx; `endif else if (clken & specLOADAPR) intrACK <= dp[33:35]; a184 28 // // PI Request Output Decoder // // Trace // DPEB/E166 // reg [1:7] ubaINTA; always @@(intrACK or flagINTREQ) begin if (flagINTREQ) case (intrACK) 3'b000 : ubaINTA <= 7'b0000000; 3'b001 : ubaINTA <= 7'b1000000; 3'b010 : ubaINTA <= 7'b0100000; 3'b011 : ubaINTA <= 7'b0010000; 3'b100 : ubaINTA <= 7'b0001000; 3'b101 : ubaINTA <= 7'b0000100; 3'b110 : ubaINTA <= 7'b0000010; 3'b111 : ubaINTA <= 7'b0000001; endcase else ubaINTA <= 7'b0000000; end assign pi_new = pi_req_num[1:3]; assign pi_current = pi_cur_num[1:3]; @ 1.7 log @*** empty log message *** @ text @d9 1 a9 1 //! d13 1 a13 1 //! d53 3 a55 2 module INTR(clk, rst, clken, crom, dp, ubaIRQ, pi_new, pi_current, cpuIRQ, pi_on); d58 16 a73 10 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 [1: 7] ubaIRQ; // Unibus request output [0: 2] pi_new; // New Prioity Interrupt number output [0: 2] pi_current; // Current Prioity Interrupt number output reg cpuIRQ; // Interrupt Request output reg pi_on; // PI is on d75 2 d94 1 a94 1 pi_bus <= ubaIRQ; d106 1 d110 1 a110 2 wire pi_load = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADPI); d120 1 a120 1 else if (clken & pi_load) d150 4 a153 4 pi_req[3] ? 4'b0011 : pi_req[4] ? 4'b0100 : pi_req[5] ? 4'b0101 : pi_req[6] ? 4'b0110 : d156 1 a156 1 d166 4 a169 4 pi_cur[3] ? 4'b0011 : pi_cur[4] ? 4'b0100 : pi_cur[5] ? 4'b0101 : pi_cur[6] ? 4'b0110 : d180 2 a181 1 d185 1 a185 1 cpuIRQ <= 1'b0; d188 1 a188 1 cpuIRQ <= (pi_req_num < pi_cur_num); d192 41 d235 1 a235 1 @ 1.6 log @*** empty log message *** @ text @d71 2 d74 2 d90 2 d122 2 d134 2 d150 2 d166 2 @ 1.5 log @*** empty log message *** @ text @d53 1 a53 1 module INTR(clk, rst, clken, crom, dp, ubiIRQ, pi_new, pi_current, cpuIRQ, pi_on); d62 1 a62 1 input [1: 7] ubiIRQ; // Unibus request d79 1 a79 1 pi_bus <= 7'b000_0000; d81 1 a81 1 pi_bus <= ubiIRQ; @ 1.4 log @*** empty log message *** @ text @d53 1 a53 1 module INTR(clk, rst, clken, crom, dp, bus_pi_req_in, interrupt_req, pi_new, pi_current, pi_on); d62 1 a62 2 input [1: 7] bus_pi_req_in; // Bus PI Request In output reg interrupt_req; // Interrupt Request d65 1 d81 1 a81 1 pi_bus <= bus_pi_req_in; d161 1 a161 1 interrupt_req <= 1'b0; d164 1 a164 1 interrupt_req <= (pi_req_num < pi_cur_num); @ 1.3 log @*** empty log message *** @ text @d24 1 a24 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d51 1 a51 1 `include "microcontroller/crom.vh" d53 1 a53 1 module INTR(clk, rst, clken, crom, dp, bus_pi_req_in, interrupt_req, pi_new, pi_on); d65 1 d168 2 a169 1 assign pi_new = pi_req_num[1:3]; @ 1.1 log @Initial revision @ text @d53 1 a53 1 module INTR(clk, rst, clken, crom, dp, bus_pi_req_in, interrupt_req, pi_new); d57 10 a66 8 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 [1: 7] bus_pi_req_in; // Bus PI Request In output reg interrupt_req; // Interrupt Request output [0: 2] pi_new; // New Prioity Interrupt number d90 2 a91 3 reg pi_on; // pi enabled reg [1:7] pi_act; // active pi level reg [1:7] pi_cur; // current pi level d99 1 a99 1 pi_act <= 7'b000_0000; d101 2 a102 2 pi_cur <= 7'b000_0000; pi_sw <= 7'b000_0000; d107 1 a107 1 pi_on <= dp[28]; d128 1 a128 1 wire [0:3] pi_req_num = (pi_req[1] ? 4'b0001 : // Highest priority d135 1 a135 1 4'b1000); // Lowest priority d142 1 a142 1 wire [0:3] pi_cur_num = (pi_cur[1] ? 4'b0001 : // Highest priority d149 1 a149 1 4'b1000); // Lowest priority d163 1 a163 4 if (pi_req_num < pi_cur_num) interrupt_req <= intr_en; else interrupt_req <= 1'b0; @ rtl/cpu/RCS/timing.v,v0000444000175100010010000001605712053070050013205 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.21.06.09.41; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.20.05.43.58; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.19.16.04.44; author E721269; state Exp; branches; next 1.2; 1.2 date 2012.11.17.12.56.44; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.16.20.32.54; author Rob; state Exp; branches; next ; desc @Timing generator @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" `include "useq/drom.vh" module TIMING(clk, rst, crom, drom, dp, feSIGN, clkenDP, clkenCR); 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 clkenDP; // Clock Enable output clkenCR; // Clock Enable Microsequencer // // 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); assign clkenDP = ~((`cromMULTISHIFT & ~feSIGN) | (done & clkenCR)); endmodule @ 1.4 log @*** empty log message *** @ text @d52 1 a52 1 module TIMING(clk, rst, crom, drom, dp, fe, clken, clkenUSEQ); d62 3 a64 3 input [0: 9] fe; // FE output clken; // Clock Enable output clkenUSEQ; // Clock Enable Microsequencer d70 10 a79 4 // The KS10 fast shifts while the FE is negative. Be careful: // when the shift count is zero (FE = -1 or 1777) no shifts // should be peformed. // d84 9 a92 1 // d100 1 a100 1 done = fe[0] & `cromMULTISHIFT; d103 14 a116 2 assign clkenUSEQ = ~(`cromMULTISHIFT & fe[0]); assign clken = ~((done & clkenUSEQ) | (~fe[0] & `cromMULTISHIFT)); @ 1.3 log @*** empty log message *** @ text @d65 1 a65 1 d67 1 d69 4 d74 3 a76 12 /* wire memEN = (( `cromMEM_CYCLE & `cromMEM_WAIT ) | ( `cromMEM_CYCLE & `cromMEM_BWRITE & `dromCOND_FUNC )); wire readCYCLE = (( `cromMEM_AREAD & `dromREADCYCLE ) | (~`cromMEM_AREAD & `cromMEM_DPFUNC & dp[3] ) | (~`cromMEM_AREAD & ~`cromMEM_DPFUNC & `cromMEM_READCYCLE)); // // Wait State Machine d78 1 a78 20 reg [0:1] state; always @@(posedge clk or posedge rst) begin if (rst) state <= 0; else case (state) 0: if (memEN & readCYCLE) state <= 1; 1: state <= 2; 2: state <= 0; 3: state <= 0; endcase end assign clken = ((state == 0) | reg clken; d80 1 d84 1 a84 1 clken <= 1'b1; d86 1 a86 1 clken <= ~clken; a87 3 (state == 2)); */ d89 3 a91 24 reg ready; always @@(posedge clk or posedge rst) begin if (rst) ready = 1'b0; else ready = 1'b1; end // // Fast Shift // // Note // The KS10 fast shifts while the FE is negative. For some reason // the FPGA shifts one too many times. // // FIXME: // I don't really understand why this needs to be different than the // KS10. // assign clkenUSEQ = ~(`cromMULTISHIFT & (fe != 10'b1_111_111_111) & ready); assign clken = 1'b1; @ 1.2 log @*** empty log message *** @ text @d52 1 a52 1 module TIMING(clk, rst, crom, drom, dp, clken); d62 1 d64 1 d69 3 d113 23 @ 1.1 log @Initial revision @ text @d52 1 a52 1 module TIMING(clk, rst, crom, vmaFLAGS, clken); d55 1 d57 6 a62 5 input clk; // Clock input rst; // Reset input [0:cromWidth-1] crom; // Control ROM Data input [0:13] vmaFLAGS; // VMA Flags output clken; // Clock Enable a64 1 // VMA Flags d66 4 a69 3 wire vmaREADCYCLE = vmaFLAGS[3]; wire vmaWRITECYCLE = vmaFLAGS[5]; d71 3 d75 1 d77 16 a92 1 // d94 1 a94 1 wire memWAIT = vmaREADCYCLE | vmaWRITECYCLE | `cromFMWRITE; d96 3 a98 6 // // // reg asdf; always @@(posedge rst or posedge clk) d100 4 a103 4 if (rst) asdf <= 1'b0; else asdf <= memWAIT; d105 2 d108 1 a108 1 assign clken = 1'b1;//~memWAIT | asdf; @ rtl/cpu/RCS/ram1kx36.v,v0000444000175100010010000001175112047270414013277 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.09.21.09.30; author E721269; state Exp; branches; next 1.4; 1.4 date 2012.11.04.02.39.03; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.04.02.06.05; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.03.05.26.23; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.20.02.47.50; author Rob; state Exp; branches; next ; desc @1K X 36 RAM for RAMFILE @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // 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 @ 1.4 log @*** empty log message *** @ text @d59 1 a59 1 // RAM 1Kx36 d66 1 @ 1.3 log @*** empty log message *** @ text @d9 1 a9 1 //! d50 7 a56 7 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 d60 6 d73 1 a73 1 a74 11 `define SYNCRAM `ifdef SYNCRAM // // FIXME: // The following is a hack but it is good enough for simulation. // It will create synthesis issues. // d81 1 a81 1 if (wr) a88 18 `else // // Asynchronous RAM // reg [0:35] out; always @@(wr or addr or din or clk) begin if (wr & ~clk) ram[addr] <= din; out = ram[addr]; end assign dout = out; `endif @ 1.2 log @*** empty log message *** @ text @d51 6 a56 6 input clk; // Clock input clken; // Clock enable input wr; // Write input [0: 9] addr; // Address input [0:35] din; // Data in output reg[0:35] dout; // Data out d70 9 a78 3 /* // FIXME d82 1 a82 1 always @@(posedge clk) d93 8 a101 2 */ d106 1 a106 1 dout = ram[addr]; d108 3 @ 1.1 log @Initial revision @ text @d22 1 a22 1 // Copyright (C) 2009, 2012 Rob Doyle d51 6 a56 6 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 d68 6 d75 1 a75 2 reg [0:35] ram [0:1023]; d85 2 d88 8 a95 1 assign dout = ram[rd_addr]; @ rtl/cpu/RCS/pcflags.v,v0000444000175100010010000005720512053005330013334 0ustar RobNonehead 1.7; access; symbols; locks; comment @# @; 1.7 date 2012.11.20.22.57.26; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.14.00.50.54; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.09.21.12.48; author E721269; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.23.53; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.43.12; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.47.15; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.43.44; author Rob; state Exp; branches; next ; desc @FLAGS @ 1.7 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 // 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) flagAOV <= aluAOV; 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. // 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) flagCRY0 <= aluCRY0; 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. // 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) flagCRY1 <= aluCRY1; 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 // 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 @ 1.6 log @*** empty log message *** @ text @d11 1 a11 1 //! 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 d13 1 a13 1 //! USER |AOV |CRY0|CRY1| FOV| FPD|USER|USER| PUB| |TRAP|TRAP| FXU| NO | | | | | | d16 1 a16 1 //! EXEC | PCP|CRY0|CRY1| FOV| FPD|USER| PCU| PUB| |TRAP|TRAP| FXU| NO | | | | | | d26 1 a26 1 //! USERIO - d42 10 a51 2 //! The logic can be simplified by recognizing that selPCFLAGS, selEXPTEST, //! and selASHTEST are mutually exclusive. d89 1 a89 1 module PCFLAGS(clk, rst, clken, crom, dp, dbm, scad, regIR, d91 1 a91 1 d93 1 a93 1 a98 1 input [0:35] dbm; // DBM d100 1 a100 1 input [0:17] regIR; // Instruction Register a123 22 // DBM Inputs // // Details: // In this mode, the Control ROM NUMBER field is multiplexed // onto the dbm bus. The definiton of these bits are as // follows: // wire dbmSETOV = dbm[ 0]; // Set flagAOV [see cromSETOV] wire dbmSETFOV = dbm[ 1]; // Set flagFOV [see cromSETFOV] wire dbmSETNODIV = dbm[ 2]; // Set flagNODIV [see cromSETNDV] wire dbmCLRFPD = dbm[ 3]; // Clr flagFPD [see cromCLRFPD] wire dbmSETFPD = dbm[ 4]; // Set flagFPD [see cromSETFPD] wire dbmHOLDUSER = dbm[ 5]; // Hold flagUSER [see cromHOLDUSER] wire dbmSETTRAP2 = dbm[ 7]; // Set flagTRAP2 [see cromSETTRAP2] wire dbmSETTRAP1 = dbm[ 8]; // Set flagTRAP1 [see cromSETTRAP1] wire dbmSETPCU = dbm[ 9]; // Set flagPCU [see cromSETPCU] wire dbmJFCLFLAGS = dbm[14]; // Load Flags from JFCL [see cromJFCLFLAG] wire dbmLDFLAGS = dbm[15]; // Load Flags from DP [see cromLDFLAGS] wire dbmADFLAGS = dbm[17]; // Update Flags from ALU[see cromADFLAGS // d127 1 a127 1 // When dbmADFLAGS is asserted, the dp bus has the contents of d131 2 a132 2 // When dbmLDFLAGS is asserted, the dp bus is used to modify // the flags. d134 1 a134 1 d146 1 a146 1 d151 1 a151 1 d165 5 a169 5 assign JFCL[ 9] = selPCFLAGS & dbmJFCLFLAGS & flagAOV & regIR_AC[ 9]; assign JFCL[10] = selPCFLAGS & dbmJFCLFLAGS & flagCRY0 & regIR_AC[10]; assign JFCL[11] = selPCFLAGS & dbmJFCLFLAGS & flagCRY1 & regIR_AC[11]; assign JFCL[12] = selPCFLAGS & dbmJFCLFLAGS & flagFOV & regIR_AC[12]; d177 1 a177 1 d211 1 a211 1 if (dbmSETOV) d213 1 a213 1 else if (dbmADFLAGS) d217 1 a217 1 else if (dbmLDFLAGS) d222 1 a222 1 d236 1 a236 1 d243 1 a243 1 if (dbmADFLAGS) d247 1 a247 1 else if (dbmLDFLAGS) d264 2 a265 2 // d272 1 a272 1 if (dbmADFLAGS) d276 1 a276 1 else if (dbmLDFLAGS) d280 1 a280 1 d295 1 a295 1 d308 3 a310 1 else if (dbmLDFLAGS) d315 1 a315 1 d323 1 a323 1 d330 1 a330 1 if (dbmCLRFPD) d332 1 a332 1 else if (dbmSETFPD) d334 1 a334 1 else if (dbmLDFLAGS) d351 1 a351 1 if (dbmLDFLAGS) d353 1 a353 1 else if (dbmHOLDUSER) d369 4 a372 4 flagUSERIO <= ((flagUSER & dpUSERIO & dbmLDFLAGS ) | (flagUSERIO & dbmLDFLAGS ) | (flagUSER & dbmSETPCU ) | (flagUSERIO & dpUSERIO & dbmHOLDUSER & dbmLDFLAGS )); d385 1 a385 1 if (dbmSETTRAP2) d387 1 a387 1 else if (dbmLDFLAGS) d393 1 a393 1 d401 1 a401 1 d414 1 a414 5 if (dbmSETTRAP1) flagTRAP1 <= 1'b1; else if (aluAOV & dbmADFLAGS) flagTRAP1 <= 1'b1; else if (dpTRAP1 & dbmLDFLAGS) d416 4 d428 1 a428 1 // d440 1 a440 1 if (dbmLDFLAGS) d458 1 a458 1 if (dbmSETNODIV) d460 1 a460 1 else if (dbmLDFLAGS) d489 1 a489 1 @ 1.5 log @*** empty log message *** @ text @d196 1 a196 1 // Overflow Flag (OV) d198 14 a211 2 // Notes // Arithmetic Overflow occurs if CRY0 and CRY1 differ. a230 7 begin if (dbmLDFLAGS) flagAOV <= dpOV; else flagAOV <= flagAOV; end else d232 2 d241 11 a251 1 a260 7 begin if (dbmLDFLAGS) flagCRY0 <= dpCRY0; else flagCRY0 <= flagCRY0; end else d262 2 d270 11 a280 1 a289 7 begin if (dbmLDFLAGS) flagCRY1 <= dpCRY1; else flagCRY1 <= flagCRY1; end else d291 2 d299 12 a310 1 a321 7 begin if (dbmLDFLAGS) flagFOV <= dpFOV; else flagFOV <= flagFOV; end else d323 2 @ 1.4 log @*** empty log message *** @ text @d117 3 d139 6 a144 4 // dp bus: // When dbmADFLAGS 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. d146 2 a147 2 // When dbmLDFLAGS is asserted, the dp bus is used to // modify the flags. d188 2 d197 2 d308 2 d386 2 @ 1.3 log @*** empty log message *** @ text @d53 1 a53 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d79 1 a79 1 `include "microcontroller/crom.vh" d81 2 a82 2 module PCFLAGS(clk, rst, clken, crom, dp, dbm, scad, ac, aluAOV, aluCRY0, aluCRY1, pcFLAGS, jfcl_skip); d86 13 a98 13 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:35] dbm; // DBM input [0: 9] scad; // SCAD input [9:12] ac; // AC input aluAOV; // ALU Arithmetic Overflow input aluCRY0; // ALU Carry 0 input aluCRY1; // ALU Carry 1 output [0:17] pcFLAGS; // Flags output jfcl_skip; // JFCL Skip d173 7 a179 5 wire jfcl[9:12]; assign jfcl[ 9] = selPCFLAGS & dbmJFCLFLAGS & flagAOV & ac[ 9]; assign jfcl[10] = selPCFLAGS & dbmJFCLFLAGS & flagCRY0 & ac[10]; assign jfcl[11] = selPCFLAGS & dbmJFCLFLAGS & flagCRY1 & ac[11]; assign jfcl[12] = selPCFLAGS & dbmJFCLFLAGS & flagFOV & ac[12]; d186 1 a186 1 assign jfcl_skip = jfcl[9] | jfcl[10] | jfcl[11] | jfcl[12]; d209 1 a209 1 else if (jfcl[9]) d234 1 a234 1 else if (jfcl[10]) d258 1 a258 1 else if (jfcl[11]) d284 1 a284 1 if (jfcl[12]) @ 1.1 log @Initial revision @ text @d6 1 a6 1 //! Virtual Memory Address d9 1 d11 33 a43 1 //! \todo d46 1 a46 1 //! vma.v d49 1 a49 1 //! Rob Doyle - doyle (at) cox (dot) net d51 1 a51 1 //////////////////////////////////////////////////////////////////// a79 1 `include "microcontroller/drom.vh" d81 3 a83 4 module FLAGS(clk, rst, clken, crom, drom, dp, cry0_flag, cry1_flag, fov_flag, ov_flag, fxu_flag, user_flag, trap1_flag, trap2_flag, nodiv_flag, pcu_flag, userio_flag); d85 209 a293 19 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 output reg cry0_flag; // output reg cry1_flag; // output reg fov_flag; // output reg ov_flag; // output reg fxu_flag; // output reg user_flag; // output reg trap1_flag; // output reg trap2_flag; // output reg nodiv_flag; // output reg pcu_flag; // output reg userio_flag; // d295 169 a463 2 @ rtl/cpu/RCS/cache.v,v0000444000175100010010000001637312045123754012775 0ustar RobNonehead 1.3; access; symbols; locks; comment @# @; 1.3 date 2012.11.03.05.13.13; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.01.05.46.02; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.20.02.41.40; author Rob; state Exp; branches; next ; desc @@ 1.3 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.2 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d47 2 a48 2 `include "microcontroller/crom.vh" `include "microcontroller/drom.vh" d50 3 a52 7 module CACHE(clk, rst, clken, crom, dp, vma, vma_physical, vma_user, cache_valid, cache_user, cache_hit, cache_hit_en, cache_addr[18:26]); d56 23 a78 12 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 [14:35] vma; // Virtural address input vma_user; // output page_valid; // output page_writeable; // output page_cacheable; // output cache_hit; // output [16:26] page_number; // d86 6 a91 6 // wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); reg [0:11] cache_dir[0:511]; reg [0: 8] read_addr; wire [0: 8] virt_page = vma[18:26]; wire [0:11] din = {vma_phyical, 1'b0, vma_user, vma[18:35]}; d94 1 a94 1 // Page memory d97 4 d104 2 a105 2 read_addr <= 9'b0; else if (clken & vma_en) d107 8 a114 3 if (page_write) cache_dir[virt_page] <= din; read_addr <= virt_page; d119 1 a119 1 // Fixup Page RAM data d122 28 a149 1 wire [0:15] dout = cache_dir[read_addr]; @ rtl/cpu/RCS/byte_disp.v,v0000444000175100010010000000756212047271376013722 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.09.21.17.48; author E721269; state Exp; branches; next 1.4; 1.4 date 2012.11.07.07.18.54; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.13.00; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.41.23; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.45.12; author Rob; state Exp; branches; next ; desc @Byte dispatch @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // 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 @ 1.4 log @*** empty log message *** @ text @d58 2 d64 1 @ 1.3 log @*** empty log message *** @ text @d53 2 a54 2 input [0:35] dp; // Data path output reg [8:11] dispBYTE; // Byte dispatch d75 6 a80 12 1: dispBYTE = 7; 8: dispBYTE = 5; 15: dispBYTE = 4; 22: dispBYTE = 2; 29: dispBYTE = 1; default: dispBYTE = 0; d85 1 a85 1 @ 1.2 log @*** empty log message *** @ text @d24 1 a24 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d58 3 a60 4 // See byte pointer format for PDP10. // The first 6 bits are the position, the second 6 bits is the size. // The dispatch code is meaningless except that it is unique and zero // indicates that no dispatch should occur. @ rtl/cpu/RCS/ramfile.v,v0000444000175100010010000005176212053005130013334 0ustar RobNonehead 1.13; access; symbols; locks; comment @# @; 1.13 date 2012.11.20.22.55.17; author Rob; state Exp; branches; next 1.12; 1.12 date 2012.11.15.16.05.43; author Rob; state Exp; branches; next 1.11; 1.11 date 2012.11.13.22.24.52; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.13.07.25.07; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.11.04.33.35; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.09.21.07.53; author E721269; state Exp; branches; next 1.7; 1.7 date 2012.11.08.20.42.46; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.05.04.49.53; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.03.05.24.22; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.02.01.01.10; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.42.42; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.47.31; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.42.20; author Rob; state Exp; branches; next ; desc @RAMFILE @ 1.13 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 // /* reg DPM5_READ_EN; reg DPM5_WRITE_EN; always @@(crom or drom or dp ) begin case (`cromMEM_CYCLE_SEL) 0: begin DPM5_READ_EN = `cromMEM_READCYCLE; DPM5_WRITE_EN = `cromMEM_WRITECYCLE; end 1: begin DPM5_READ_EN = dp[3]; DPM5_WRITE_EN = dp[5]; end 2: begin DPM5_READ_EN = `dromREADCYCLE; DPM5_WRITE_EN = `dromWRITECYCLE; end default: begin DPM5_READ_EN = 1'b0; DPM5_WRITE_EN = 1'b0; end endcase end wire STOP_MAIN_MEMORY = 1'b0; wire specMEM_WAIT = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMWAIT); wire specMEM_CLR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMCLR ); wire DPM5_MEM_EN = ((`cromMEM_CYCLE & `cromMEM_WAIT ) | (`cromMEM_CYCLE & `cromMEM_BWRITE & `dromCOND_FUNC)); wire DPM5_MEM_WAIT = DPM5_MEM_EN | specMEM_WAIT | specMEM_CLR; wire DPM5_RPW_CYCLE = vmaREADCYCLE & vmaWRITECYCLE & ~STOP_MAIN_MEMORY; //wire DPM5_START_CYCLE = ~DPM5_RPW_CYCLE & (DPM5_READ_EN | DPM5_WRITE_EN) & DPM5_MEM_EN; wire DPM5_START_CYCLE = ((DPM5_READ_EN & DPM5_MEM_EN & ~DPM5_RPW_CYCLE) | (DPM5_WRITE_EN & DPM5_MEM_EN & ~DPM5_RPW_CYCLE)); reg DPM6_MEMORY_CYCLE; always @@(posedge clk or posedge rst) begin if (rst) DPM6_MEMORY_CYCLE <= 1'b0; else if (clken) DPM6_MEMORY_CYCLE <= DPM5_START_CYCLE; end wire ramfileWRITE = (( vmaACREF & ~vmaREADCYCLE & DPM6_MEMORY_CYCLE & DPM5_MEM_WAIT) | (~vmaACREF & STOP_MAIN_MEMORY & DPM6_MEMORY_CYCLE & DPM5_MEM_WAIT) | (`cromFMWRITE)); */ wire ramfileWRITE = ((vmaACREF & vmaWRITECYCLE) | (`cromFMWRITE)); // // RAMFILE MEMORY // RAM1Kx36 uRAM1Kx36 (.clk(clk), .clken(clken), .wr(ramfileWRITE), .addr(addr), .din(dbus), .dout(ramfile) ); endmodule @ 1.12 log @*** empty log message *** @ text @d54 7 d101 1 a101 1 module RAMFILE(clk, rst, clken, crom, drom, dp, dbus, dbm, regIR, xrPREV, a114 1 input [ 0:35] dbm; // DBM Input d132 1 a132 1 a161 25 // RAMFILE Address Index // // Details // Access to the RAMFILE ACs are selected using the // AC field of the instruction. // // Notes // 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. See cromACALU_FUN and cromACALU_NUM. // I'm not exactly certain why this is controlled by the // DBM instead of directly by the microcode. It is // probably just because of the way the boards were // partitioned. // // Trace // DPE6/E79 // wire [0:5] acFUN = dbm[ 8:13]; wire [0:2] acNUM = dbm[14:17]; wire [0:3] acOFFSET = regIR_AC + acNUM; // d168 3 d188 7 a194 1 // equivalent to dbm[8:17]. d209 1 a212 1 wire [0:2] selRAMADDR = `cromRAMADDR_SEL; d214 2 a215 3 always@@(selRAMADDR or currBLOCK or prevBLOCK or regIR_AC or regIR_XR or acOFFSET or acFUN or acNUM or xrPREV or vmaACREF or vmaPREVIOUS or vmaADDR or dbm) d217 1 a217 1 case(selRAMADDR) d221 1 a221 1 case (acFUN) d223 1 a223 1 addr = {3'b0, currBLOCK, acNUM}; d225 1 a225 1 addr = {3'b0, currBLOCK, acOFFSET}; d227 1 a227 1 addr = {3'b0, currBLOCK, acNUM}; d251 1 a251 1 addr = dbm[8:17]; d269 1 a269 1 /* d297 1 a297 1 d299 1 a299 1 d302 1 a302 1 d308 2 a309 2 wire DPM5_RPW_CYCLE = vmaREADCYCLE & vmaWRITECYCLE & ~STOP_MAIN_MEMORY; d311 1 a311 1 d314 1 a314 1 d323 1 a323 1 d332 1 a332 1 @ 1.11 log @*** empty log message *** @ text @d280 1 d338 6 a343 1 @ 1.10 log @*** empty log message *** @ text @d92 1 d94 1 a94 1 module RAMFILE(clk, rst, clken, crom, dbus, dbm, regIR, xrPREV, a95 1 //memory_cycle, mem_wait, mem_read, stop_main_memory, d99 1 d105 2 d126 5 a130 3 wire vmaPHYSICAL = vmaFLAGS[8]; // VMA Physical wire vmaPREVIOUS = vmaFLAGS[9]; // VMA Previous d272 1 a272 1 // FIXME: This is a stub. d280 35 a314 4 /* // FIXME start_cycle = ((`cromMEM_READCYCLE & `cromMEM_WRITECYCLE & ~stop_main_memory) & (READ_EN | WRITE_EN) & d316 1 a316 2 (CRA6_MEMORY_FUNCTION & `cromMEM_WAIT & ) (CRA6_MEMORY_FUNCTION & `cromMEM_BWRITE & dromCOND_FUNC)); d318 15 a332 2 ramfileWRITE = ( vmaACREF & ~MEM_READ & memory_cycle & mem_wait) | (~vmaACREF & STOP_MAIN_MEMORY & memory_cycle & mem_wait) | d334 3 a336 5 */ // // RAMFILE Write // a337 2 wire ramfileWRITE = `cromFMWRITE; @ 1.9 log @*** empty log message *** @ text @d195 6 a253 2 `cromRAMADDR_SEL_SPARE5: addr = 9'b0; d257 1 a257 1 addr = {dbm[26:28], dbm[11:17]}; d283 3 d288 5 a292 6 wire ramfileWRITE = ( /* ( vmaACREF & ~MEM_READ & memory_cycle & mem_wait) | (~vmaACREF & STOP_MAIN_MEMORY & memory_cycle & mem_wait) | */ (`cromFMWRITE)); @ 1.8 log @*** empty log message *** @ text @d131 3 a133 3 // True when addressing lowest 16 addresses using // physical addressing. References to the ACs // are always physical. d141 1 a141 1 wire vmaACREF = vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); @ 1.7 log @*** empty log message *** @ text @d129 2 d132 7 a138 1 // physical addressing. d151 1 a151 8 // 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. See cromACALU_FUN and cromACALU_NUM. // I'm not exactly certain why this is controlled by the // DBM instead of directly by the microcode. It is // probably just because of the way the boards were // partitioned. d153 15 d177 19 d261 5 @ 1.6 log @*** empty log message *** @ text @d252 8 a259 6 RAM1Kx36 uRAM1Kx36(.clk(clk), .clken(clken), .wr(ramfileWRITE), .addr(addr), .din(dbus), .dout(ramfile)); @ 1.5 log @*** empty log message *** @ text @d9 1 a9 1 //! d11 1 a11 1 //! d94 1 a94 2 vmaADDR, vmaPHYSICAL, vmaPREVIOUS, previous_block, current_block, d97 1 a97 1 d99 1 a99 1 d107 2 a108 1 input xrPREV; // d110 2 a111 5 input vmaPHYSICAL; // input vmaPREVIOUS; // input [0:2] previous_block; // input [0:2] current_block; // output [0:35] ramfile; // RAMFILE output d116 1 a116 1 d119 8 a126 1 d132 1 a132 1 d134 8 a141 1 d155 4 a158 13 wire [0:5] acFUN = dbm[ 8:13]; wire [0:2] acNUM = dbm[14:17]; reg [0:3] AC_PLUS_N; always @@(acFUN or acNUM or regIR_AC) begin case (acFUN) 6'o25 : AC_PLUS_N = acNUM; 6'o62 : AC_PLUS_N = regIR_AC + acNUM; default: AC_PLUS_N = 4'b0; endcase end d173 1 a173 1 // d178 3 a180 3 always@@(selRAMADDR or current_block or previous_block or regIR_AC or regIR_XR or AC_PLUS_N or xrPREV or vmaACREF or vmaPREVIOUS or vmaADDR or dbm) d184 1 a184 1 addr = {3'b0, current_block, regIR_AC }; d186 8 a193 1 addr = {3'b0, current_block, AC_PLUS_N}; d197 3 a199 3 addr = {3'b0, previous_block, regIR_XR}; else addr = {3'b0, current_block, regIR_XR}; a200 2 `cromRAMADDR_SEL_SPARE3: addr = 9'b0; d206 1 a206 1 addr = {3'b0, previous_block, vmaADDR[32:35]}; d208 1 a208 1 addr = {3'b0, current_block, vmaADDR[32:35]}; d219 2 d223 1 a223 1 d235 1 a235 1 d238 1 a238 1 d240 1 a240 1 d247 1 a247 1 d251 1 a251 1 d258 1 a258 1 @ 1.4 log @*** empty log message *** @ text @d64 1 a64 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.3 log @*** empty log message *** @ text @d132 8 a139 3 // This was a 74LS181 ALU. Only the part of that device // that is used implemented. The CROM Number field is // present on the DBUS. See microcode. d144 2 a145 2 wire [0:5] acFUN = dbus[ 8:13]; // See cromACALU_EXTFUN wire [0:2] acNUM = dbus[14:17]; // See cromACALU_NUM; @ 1.2 log @*** empty log message *** @ text @d91 1 a91 1 `include "microcontroller/crom.vh" d93 1 a93 2 module RAMFILE(clk, rst, clken, crom, dbus, dbm, ac, xr, xr_previous, d97 1 a97 1 ram); d107 2 a108 3 input [ 9:12] ac; // AC input [14:17] xr; // XR input xr_previous; // d114 8 a121 1 output [0:35] ram; // RAMFILE output d141 1 a141 1 reg [0:3] acPN; d143 1 a143 1 always @@(acFUN or acNUM or ac) d146 3 a148 3 6'o25 : acPN = acNUM; 6'o62 : acPN = ac + acNUM; default: acPN = 4'b0; d171 3 a173 2 always@@(selRAMADDR or current_block or previous_block or ac or xr or acPN or xr_previous or vmaACREF or vmaPREVIOUS or vmaADDR or dbm) d177 1 a177 1 addr = {3'b0, current_block, ac }; d179 1 a179 1 addr = {3'b0, current_block, acPN}; d182 2 a183 2 if (xr_previous) addr = {3'b0, previous_block, xr}; d185 1 a185 1 addr = {3'b0, current_block, xr}; d211 22 a232 8 // RAMFILE PAGE WRITE // DPMA/E2 // DPMC/E3 // DPMA/E134 // DPMA/E119 // reg pageWR; a233 8 always @@(posedge clk or posedge rst) begin if (rst) pageWR <= 1'b0; else if (clken) pageWR <= `cromSPEC_EN_10 && (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); end d240 1 a240 1 .wr(pageWR), d243 1 a243 1 .dout(ram)); @ 1.1 log @Initial revision @ text @d11 42 d91 10 a100 1 module RAMFILE(clk, clken, wr, addr, din, dout); d102 20 a121 15 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 // // RAMFILE // 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 d124 1 a124 2 reg [0: 9] rd_addr; reg [0:35] ram [0:1023]; d126 13 a138 1 always @@(posedge clk) d140 5 a144 6 if (clken) begin if (wr) ram[addr] <= din; rd_addr <= addr; end d147 85 a231 1 assign dout = ram[rd_addr]; @ rtl/cpu/RCS/scad.v,v0000444000175100010010000003371412053070110012624 0ustar RobNonehead 1.9; access; symbols; locks; comment @# @; 1.9 date 2012.11.21.06.10.14; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.19.15.58.27; author E721269; state Exp; branches; next 1.7; 1.7 date 2012.11.09.20.53.08; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.07.07.15.59; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.05.06.58.19; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.18.26; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.40.35; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.12.06.26.13; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.41.59; author Rob; state Exp; branches; next ; desc @SCAD @ 1.9 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.8 log @*** empty log message *** @ text @d49 1 a49 1 module SCAD(clk, rst, clken, crom, dp, scad, fe, sc, dispSCAD); d58 2 a60 2 output [0: 9] fe; // FE output [0: 9] sc; // FE d257 7 d268 1 a268 1 @ 1.7 log @*** empty log message *** @ text @d49 1 a49 1 module SCAD(clk, rst, clken, crom, dp, scad, dispSCAD, scSIGN, feSIGN); d53 9 a61 21 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 [0: 9] scad; // SCAD output [8:11] dispSCAD; // SCAD Dispatch output scSIGN; // SC Sign output feSIGN; // FE Sign // // Floating-point exponent // reg [0:9] fe; // // Step Counter // reg [0:9] sc; a93 1 a129 1 d193 1 d220 1 a220 1 // This contains the floating-point exponent d227 1 d240 1 a240 1 // This contains the Step Counter d247 1 a261 7 // // Signs // assign scSIGN = sc[0]; assign feSIGN = fe[0]; @ 1.6 log @*** empty log message *** @ text @d170 2 a171 2 // This is positive logic. Be sure to use the right table in // the 74ls181 data sheet. d173 2 a174 2 // Be sure to notice that the CY# input to the ALU is tied to // FUN2 d176 3 a178 3 // 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. d180 2 a181 2 // The following truth table is derived from the circuit // diagram. @ 1.5 log @*** empty log message *** @ text @d49 1 a49 1 module SCAD(clk, rst, clken, crom, dp, scad, sc, fe, dispSCAD); a58 2 output reg [0: 9] sc; // Step Count output reg [0: 9] fe; // Floating-point exponent d60 2 d64 12 d88 5 d131 5 d162 34 a195 36 // \brief // SCAD ALU: // 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. // // \note // This is positive logic. Be sure to use the right table // in the 74ls181 data sheet. // // \note // Be sure to notice that the CY# input to the ALU is // tied to FUN2 // // \note // The SCAD Carry Skipper DPM4/E704 is not implemented. // The FPGA carry logic does not require parallel // carries for this level of performance. // // \details // 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 | // +-------------+-+-------------------------+---------------+ d199 7 d232 7 d251 8 a258 1 d272 7 @ 1.4 log @*** empty log message *** @ text @d52 5 a56 5 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data d58 2 a59 2 output reg [0: 9] scad; // SCAD output reg [0: 9] sc; // Step Count d61 1 a61 1 output [8:11] dispSCAD; // SCAD Dispatch a65 13 wire [0:2] fun = `cromSCAD_FUN; wire [0:2] asel = `cromSCAD_ASEL; wire [0:1] bsel = `cromSCAD_BSEL; wire [0:9] snum = `cromNUM; wire loadSC = `cromLOADSC; wire loadFE = `cromLOADFE; // // EXP // DPM3/E68 // DPM3/E100 // d67 6 a72 1 wire [2:9] ex = (dp[0]) ? ~dp[1:8] : dp[1:8]; d76 1 a76 1 // DPM3/E75 a77 1 // DPM3/E91 d79 2 d82 1 d84 1 a85 1 // DPM3/E28 d122 1 a122 1 always @@(bsel or fe or ex or dp) d128 4 a131 1 scadB <= {2'b00, ex[2:9]}; d147 1 a147 1 // This is positive logic. Be sure to use the right table d164 1 a164 1 // | FUN FUN FUN | | ALU ALU ALU ALU ALU ALU | | d205 1 a205 1 d217 1 a217 1 d229 1 a229 1 d231 1 a231 1 @ 1.3 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d47 1 a47 1 `include "microcontroller/crom.vh" @ 1.1 log @Initial revision @ text @d67 6 a72 6 wire [0: 2] fun = `cromSCAD_FUN; wire [0: 2] asel = `cromSCAD_ASEL; wire [0: 1] bsel = `cromSCAD_BSEL; wire [0:17] num = `cromNUM; wire loadSC = `cromLOADSC; wire loadFE = `cromLOADFE; d96 1 a96 1 always @@(asel or sc or num or dp) d101 2 a102 2 `cromSCAD_ASEL_S: scadA <= num[8:17]; d104 1 a104 1 scadA <= {sc[0], 6'o44, dp[6], sc[8:9]}; d106 1 a106 1 scadA <= {num[8], dp[ 0: 6], num[16:17]}; d108 1 a108 1 scadA <= {sc[0], dp[ 7:13], sc[8:9]}; d110 1 a110 1 scadA <= {num[8], dp[14:20], num[16:17]}; d112 1 a112 1 scadA <= {sc[0], dp[21:27], sc[8:9]}; d114 1 a114 1 scadA <= {num[8], dp[28:34], num[16:17]}; @ rtl/cpu/RCS/ac_block.v,v0000444000175100010010000001277312053070070013456 0ustar RobNonehead 1.7; access; symbols; locks; comment @# @; 1.7 date 2012.11.21.06.09.58; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.09.20.45.21; author E721269; state Exp; branches; next 1.5; 1.5 date 2012.11.05.06.57.47; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.05.04.38.14; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.10.54; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.01.05.38.12; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.45.44; author Rob; state Exp; branches; next ; desc @AC Block Registes @ 1.7 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.6 log @*** empty log message *** @ text @a46 1 `include "config.vh" d81 2 a82 7 `ifdef INITRAM currBLOCK <= 3'b0; prevBLOCK <= 3'b0; `else currBLOCK <= 3'bx; prevBLOCK <= 3'bx; `endif @ 1.5 log @*** empty log message *** @ text @d63 7 @ 1.4 log @*** empty log message *** @ text @d51 1 a51 1 d54 6 a59 6 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Datapath output reg [0: 5] acBLOCK; // Blocks d68 3 a70 3 reg [0: 2] currBLOCK; // Current Block reg [0: 2] prevBLOCK; // Previous Block d93 1 a93 1 d96 1 a96 1 @ 1.3 log @*** empty log message *** @ text @d50 1 a50 1 module AC_BLOCK(clk, rst, clken, crom, dp, curr_block, prev_block); d54 6 a59 7 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Datapath output reg [0: 2] curr_block; // Current Block output reg [0: 2] prev_block; // Previous Block d66 4 a69 1 wire ac_block_en = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADACBLK); d76 2 a77 2 curr_block <= 3'b0; prev_block <= 3'b0; d79 2 a80 2 curr_block <= 3'bx; prev_block <= 3'bx; d83 1 a83 1 else if (clken & ac_block_en) d85 2 a86 2 curr_block <= dp[6: 8]; prev_block <= dp[9:11]; d90 7 @ 1.2 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle d47 1 d73 7 a79 2 curr_block <= 3'b0; prev_block <= 3'b0; @ 1.1 log @Initial revision @ text @d47 1 a47 1 `include "microcontroller/crom.vh" d72 2 a73 2 curr_block <= 3'b000; prev_block <= 3'b000; @ rtl/cpu/RCS/bus.v,v0000444000175100010010000005053212050372776012524 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.13.07.25.45; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.12.07.28.20; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.08.20.42.27; author E721269; state Exp; branches; next 1.2; 1.2 date 2012.11.03.05.12.44; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.01.05.44.59; author Rob; state Exp; branches; next ; desc @KS10 Bus @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 Bus Interface //! //! \details //! //! \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 // `include "useq/crom.vh" module BUS(clk, rst, clken, crom, dp, vmaEXTENDED, vmaFLAGS, vmaADDR, pageADDR, aprFLAGS, busREQ, busACK, busDATAO, busADDRO); 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 busREQ; // Bus Request input busACK; // Bus Acknowledge output [ 0:35] busDATAO; // Bus Out output [ 0:35] busADDRO; // Bus Address // // Control ROM Decode // wire pageWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); // // APR Flags // wire flagPAGEEN = aprFLAGS[23]; // // VMA Flags // wire vmaPHYSICAL = vmaFLAGS[8]; // // FIXME // wire DPM5_BUS_REQUEST = 1'b0; // // Paged Reference // wire pagedREF = DPM5_BUS_REQUEST & ~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 // // This is OK. The CPU has the lowest priority. // assign busREQ = 1'b1; // // 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 | 0| 0| 1| 0| 0| 0| 0| Unused | 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 | 0| 1| 0| 0| 0| 0| 0| Unused | 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 | 0| 1| 1| 0| 0| 0| 0| Unused | 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 | 1| 0| 1| 0| 0| 0| 0| Unused | CTL 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 | 1| 0| 1| 0| 0| 0| 1| Unused | CTL 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 | 1| 1| 0| 0| 0| 0| 0| Unused | CTL 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| 1| 0| 0| 0| 1| 0| 0| Unused |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 | 1| 1| 0| 0| 0| 1| 0| Unused | CTL NO | Unused | // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // /* reg busREQUEST; reg pagedREF; reg pageWRITE; // Load page tables on external device reg vmaEXTENDED; always @@(posedge clk or posedge rst) begin if (rst) begin busREQUEST <= 1'b0; pagedREF <= 1'b0; pageWRITE <= 1'b0; vmaEXTENDED <= 1'b0; end else if (clken & vmaEN) begin ; end end if (busREQUEST) if (pagedREF) busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:27],vmaADDR[28:35]}; else if (vmaEXTENDED) busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35]}; else busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35]}; else wire [0: 1] txTYPE = {busREQUEST, pagedREF}; always @@(txTYPE or dp or busADDR or busEXTADDR) begin case (txTYPE) 2'b00: busTX <= dp; 2'b01: busTX <= 36'b0; 2'b10: busTX <= busADDR; 2'b11: busTX <= busEXTADDR; endcase end // 0-11 if (busREQUEST) busTX[0:13] <= {commandBITS, 7'b0}; else busTX[0:13] <= dp[0:13]; // 0 0 1 // 0 1 1 // 1 0 1 // 1 1 0 -> enabled // not bus request -> enabled // vma extended -> enabled // note busTX[12:13] were absorbed above // 12-15 if (busREQUEST) if (vmaEXTENDED) busTX[14:15] <= vmaADDR[14:15]; else busTX[14:15] <= 2'b0; else busTX[14:15] <= dp[14:15] ; // // need or gate enable // not bus request -> enabled // vma extended -> enabled // paged ref -> enabled // 16-17 if (busREQUEST) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; // // need page write en enable // note that PAGE WRITE EN cuts out DP bits 19, 20, 23 and 24). // 19-20, 23-24 if (busREQUEST) if (pagedREF) busTX[19:20] <= pageADDR[19:20]; busTX[23:24] <= pageADDR[23:24]; else busTX[19:20] <= vmaADDR[19:20]; busTX[23:24] <= vmaADDR[23:24]; else if (pagedREF) busTX[19:20] <= 2'b0; busTX[23:24] <= 2'b0; else busTX[19:20] <= dp[19:20]; busTX[23:24] <= dp[23:24]; // 18, 21-22, 25-27 // FIXME note that PAGE WRITE EN cuts out DP bits 19, 20, 23 and 24). if (busREQUEST) if (pagedREF) begin busTX[ 18] <= pageADDR[ 18]; busTX[21:22] <= pageADDR[21:22]; busTX[25:27] <= pageADDR[21:25]; end else begin busTX[ 18] <= vmaADDR[ 18]; busTX[21:22] <= vmaADDR[21:22]; busTX[25:27] <= vmaADDR[25:27]; end else if (pagedREF) begin busTX[ 18] <= 1'b0; busTX[21:22] <= 2'b0; busTX[25:27] <= 3'b0; end else begin busTX[ 18] <= dp[ 18]; busTX[21:22] <= dp[21:22]; busTX[25:27] <= dp[25:27]; end // 28-35 if (busREQUEST) busTX[28:35] <= vmaADDR[28:35]; else busTX[28:35] <= dp[28:35]; //-------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------- if (busREQUEST) if (vmaEXTENDED) busTX[ 0:15] <= {commandBITS, 7'b0, vmaADDR[14:15]}; else busTX[ 0:15] <= {commandBITS, 9'b0, }; else if (pagedREF) busTX[14:15] <= {dp[0:15], 2'b0}; else busTX[14:15] <= {dp[0:17] }; // not bus request -> enabled // vma extended -> enabled // paged ref -> enabled if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; if (busREQUEST) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else if (vmaEXTENDED) busTX[16:17] <= vmaADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; if (busREQUEST) if (vmaEXTENDED) if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else busTX[16:17] <= vmaADDR[16:17]; else if (pagedREF) busTX[16:17] <= pageADDR[16:17]; else busTX[16:17] <= 2'b0; else if (pagedREF) busTX[16:17] <= 2'b0; else busTX[16:17] <= dp[16:17]; //[]][][][][][][][] BR PR VX 0 0 0 -> busTX[0:13] <= dp[0:13]; 0 0 1 -> busTX[0:13] <= dp[0:13]; 0 1 0 -> busTX[0:13] <= dp[0:13]; 0 1 1 -> busTX[0:13] <= dp[0:13]; 1 0 0 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 0 1 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 1 0 -> busTX[0:13] <= {commandBITS, 7'b0}; 1 1 1 -> busTX[0:13] <= {commandBITS, 7'b0}; //[][][][][][][] BR PR VX 0 0 0 -> busTX[14:15] <= dp[14:15]; 0 0 1 -> busTX[14:15] <= dp[14:15]; 0 1 0 -> busTX[14:15] <= dp[14:15]; 0 1 1 -> busTX[14:15] <= dp[14:15]; 1 0 0 -> busTX[14:15] <= 2'b0; 1 0 1 -> busTX[14:15] <= vmaADDR[14:15]; 1 1 0 -> busTX[14:15] <= 2'b0; 1 1 1 -> busTX[14:15] <= vmaADDR[14:15]; //[][][][][][][] BR PR VX 0 0 0 -> dp[16:17] (E) 0 0 1 -> dp[16:17] (E) 0 1 0 -> 00 (E) 0 1 1 -> 00 (E) 1 0 0 -> 00 1 0 1 -> vmaADDR[16:17] (E) 1 1 0 -> pageADDR[16:17] (E) 1 1 1 -> pageADDR[16:17] (E) //[][][][][][][] BR PR VX 0 0 0 -> busTX[18:27] <= dp[18:27]; 0 0 1 -> busTX[18:27] <= dp[18:27]; 0 1 0 -> busTX[18:27] <= 9'b0; 0 1 1 -> busTX[18:27] <= 9'b0; 1 0 0 -> busTX[18:27] <= vmaADDR[18:27]; 1 0 1 -> busTX[18:27] <= vmaADDR[18:27]; 1 1 0 -> busTX[18:27] <= pageADDR[18:27]; 1 1 1 -> busTX[18:27] <= pageADDR[18:27]; //[][][][][][][] BR PR VX 0 0 0 -> busTX[28:35] <= dp[28:35]; 0 0 1 -> busTX[28:35] <= dp[28:35]; 0 1 0 -> busTX[28:35] <= dp[28:35]; 0 1 1 -> busTX[28:35] <= dp[28:35]; 1 0 0 -> busTX[28:35] <= vmaADDR[28:35]; 1 0 1 -> busTX[28:35] <= vmaADDR[28:35]; 1 1 0 -> busTX[28:35] <= vmaADDR[28:35]; 1 1 1 -> busTX[28:35] <= vmaADDR[28:35]; 000 : busTX[0:35] <= dp[0:35]; 001 : busTX[0:35] <= dp[0:35]; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]} 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]} 010 : busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35] 010 : busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:35] 000 : busTX[0:35] <= dp[0:13], dp[14:15], dp[16:17], dp[18:27], dp[28:35] 001 : busTX[0:35] <= dp[0:13], dp[14:15], dp[16:17], dp[18:27], dp[28:35] 010 : busTX[0:35] <= {dp[0:13], dp[14:15], 2'b0, 9'b0, dp[28:35] 010 : busTX[0:35] <= {dp[0:13], dp[14:15], 2'b0, 9'b0, dp[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, 2'b0, 2'b0, vmaADDR[18:27], vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], vmaADDR[16:17], vmaADDR[18:27], vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, 2'b0, pageADDR[16:17], pageADDR[18:27],vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:17], pageADDR[18:27],vmaADDR[28:35] 000 : busTX[0:35] <= dp[0:35]; 001 : busTX[0:35] <= dp[0:13]; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]}; 010 : busTX[0:35] <= {dp[0:15], 11'b0, dp[28:35]}; 010 : busTX[0:35] <= {commandBITS, 11'b0, vmaADDR[18:35]}; 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:35] 010 : busTX[0:35] <= {commandBITS, 9'b0, pageADDR[16:27],vmaADDR[28:35] 010 : busTX[0:35] <= {commandBITS, 7'b0, vmaADDR[14:15], pageADDR[16:27],vmaADDR[28:35] */ endmodule @ 1.4 log @*** empty log message *** @ text @d11 1 a12 1 //! For bus protocol information see d52 2 a53 2 vmaFLAGS, vmaADDR, pcFLAGS, busADDR, busDIN, busDOUT); d58 1 a58 2 input clken; // Clock enable d61 3 a63 2 input [ 0:13] vmaFLAGS; // VMA Flags input [14:35] vmaADDR; // Virtual Memory Address d65 11 d77 5 a81 4 output [ 0:35] busADDR; // Bus Address input [ 0:35] busDIN; // Bus In output [ 0:35] busDOUT; // Bus Out d84 1 a84 1 // VMA Extended d86 2 a87 2 wire vmaEXTENDED = 1'b1; d90 1 a90 1 // Page Write d93 1 a93 1 wire pageWRITE = 1'b0; d99 1 a99 1 wire pagedREF = 1'b0; d104 5 d113 1 a113 1 busDOUT[0:35] <= {dp[0:18], 2'b0, dp[21:22], 2'b0, dp[25:35]}; d115 1 a115 1 busDOUT[0:35] <= dp[0:35]; d122 2 d127 1 a127 1 busADDR <= {vmaFLAGS, vmaADDR[14:15], pageADDR[16:26], vmaADDR[27:35]}; d130 1 a130 1 busADDR <= {vmaFLAGS, vmaADDR}; d132 1 a132 1 busADDR <= {vmaFLAGS, vmaADDR} & 36'o777760_777777; d134 7 d190 1 a190 1 reg pageWRITE; // Load page tables on external device d389 1 a389 1 busTX[16:17] <= vmaADDR[16:17]; d391 1 a391 1 busTX[16:17] <= 2'b0; d404 1 a404 1 busTX[16:17] <= pageADDR[16:17]; d406 1 a406 1 busTX[16:17] <= vmaADDR[16:17]; d409 1 a409 1 busTX[16:17] <= pageADDR[16:17]; d411 1 a411 1 busTX[16:17] <= 2'b0; @ 1.3 log @*** empty log message *** @ text @d51 3 a53 2 module BUS(clk, rst, clken, crom, dp, vmaFLAGS, vmaADDR, pcFLAGS, cpu_bus_in, cpu_bus_out); d56 18 a73 10 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; // Virtual Memory Address input [0:35] pcFLAGS; // PC Flags in Left Half input [0:35] cpu_bus_in; // output reg [0:35] cpu_bus_out; // KS10 Bus Out d75 2 d78 1 d80 3 d84 4 d89 3 a91 1 // wire [0: 1] cromBUS_SEL = `cromBUS_SEL; d93 8 d102 1 a102 1 // vma Flags d105 10 a114 8 wire vmaREADCYCLE = vmaFLAGS[ 3]; // 1 = Read Cycle wire vmaWRITECYCLE = vmaFLAGS[ 5]; // 1 = Write Cycle wire vmaIOCYCLE = vmaFLAGS[10]; // 0 = Memory Cycle, 1 = IO 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 [0: 6] commandBITS = {vmaIOCYCLE, vmaREADCYCLE, vmaWRITECYCLE, 1'b0, vmaWRUCYCLE, vmaVECTORCYCLE, vmaIOBYTECYCLE}; a190 4 if (pageWRITE) busTX[0:35] <= {dp[0:18], 2'b0, dp[21:22], 2'b0, dp[25:35]}; else busTX[0:35] <= dp[0:35]; @ 1.2 log @*** empty log message *** @ text @d63 1 a63 1 input [0:35] cpu_bus_in; @ 1.1 log @Initial revision @ text @d22 1 a22 1 // Copyright (C) 2009, 2012 Rob Doyle @ rtl/cpu/RCS/regir.v,v0000444000175100010010000001565412047266764013056 0ustar RobNonehead 1.10; access; symbols; locks; comment @# @; 1.10 date 2012.11.09.20.56.18; author E721269; state Exp; branches; next 1.9; 1.9 date 2012.11.09.06.15.25; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.03.05.18.45; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.01.05.41.27; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.10.20.02.45.59; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.12.01.39.46; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.09.29.06.27.25; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.09.29.00.45.34; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.00.43.45; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.46.46; author Rob; state Exp; branches; next ; desc @Instruction Register @ 1.10 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" module regIR(clk, rst, clken, crom, dbus, prevEN, regIR, xrPREV, JRST0); 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 reg [0:17] regIR; // Instruction register output reg xrPREV; // XR Previous output JRST0; // 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 // 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 JRST0 = ((irOPCODE == 9'o254) & (irAC == 4'b0)); endmodule @ 1.9 log @*** empty log message *** @ text @d64 11 a75 1 // Note: Both parts of the IR register can be loaded simultaneously. d77 1 a82 3 wire loadIR = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); wire loadXR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADXR); d107 5 @ 1.8 log @*** empty log message *** @ text @d87 1 a87 1 regIR <= dbus[ 0:12]; d91 2 a92 2 regIR <= dbus[13:17]; xrPREV <= prevEN; @ 1.7 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.6 log @*** empty log message *** @ text @d47 1 a47 1 `include "microcontroller/crom.vh" d49 1 a49 1 module regIR(clk, rst, clken, crom, dbus, ir, ac, jrst0); d58 4 a61 3 output reg [0: 8] ir; // Instruction register output reg [0: 3] ac; // Accumulator selection output jrst0; // JRST Instruction d64 3 a66 1 // Instruction Register and AC Selection d70 2 a71 1 // d73 3 a75 2 wire load_ir = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); d80 2 a81 2 ir <= 9'b0; ac <= 4'b0; d83 1 a83 1 else if (clken & load_ir) d85 9 a93 2 ir <= dbus[0:8]; ac <= dbus[9:12]; d96 1 a96 1 d103 5 a107 2 assign jrst0 = ((ir == 9'o254) & (ac == 4'b0)); @ 1.5 log @*** empty log message *** @ text @d49 1 a49 1 module IR(clk, rst, clken, crom, dbus, ir, ac); d60 1 d75 2 a76 2 ir <= 9'b000_000_000; ac <= 4'b0000; d85 9 @ 1.4 log @*** empty log message *** @ text @d47 1 a47 1 module IR(clk, rst, clken, dbus, ir, ac); d49 11 a59 6 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:35] dbus; // Input Bus output reg [0: 8] ir; // Instruction register output reg [0: 3] ac; // Accumulator selection d68 2 d77 1 a77 1 else if (clken) @ 1.3 log @*** empty log message *** @ text @d49 6 a54 6 input clk; // Clock input rst; // Reset input clken // Clock Enable input [0:35] dbus; // Input Bus output [0: 8] ir; // Instruction register output [0: 3] ac; // Accumulator selection a61 3 reg [0: 8] ir; // Instruction register reg [0: 3] ac; // Accumulator selection @ 1.2 log @*** empty log message *** @ text @d49 3 a51 3 input clk; // Clock input rst; // Reset input clken; // Clock Enable @ 1.1 log @Initial revision @ text @d52 1 a52 1 output [0:35] dbus; // Input Bus @ rtl/cpu/RCS/pxct.v,v0000444000175100010010000002605212053070132012671 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.21.06.10.31; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.08.20.41.07; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.05.06.58.53; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.05.04.46.11; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.24.08; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.42.15; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.46.24; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.43.09; author Rob; state Exp; branches; next ; desc @PXCT @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.7 log @*** empty log message *** @ text @a74 1 `include "config.vh" d121 2 a122 7 `ifdef INITREGS enPXCT <= 1'b0; // Enable PXCT pxct <= 4'b0; // PXCT Bits `else enPXCT <= 1'bx; // Enable PXCT pxct <= 4'bx; // PXCT Bits `endif @ 1.6 log @*** empty log message *** @ text @d82 6 a87 6 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 d100 10 a113 4 // Note: // specPXCTEN and specPXCTOFF can occur simultaneously or // independantly. // d123 2 a124 2 enPXCT <= 1'b0; // Enable PXCT pxct <= 4'b0; // PXCT Bits d126 2 a127 2 enPXCT <= 1'bx; // Enable PXCT pxct <= 4'bx; // PXCT Bits d142 15 @ 1.5 log @*** empty log message *** @ text @d86 2 a87 1 input [0:35] dp; // Previous Enable @ 1.4 log @*** empty log message *** @ text @d9 1 a9 1 //! d11 28 a38 2 //! //! \todo d75 1 d78 2 a79 2 module PXCT(clk, rst, clken, crom, dp, pxct, pxctON, prevEN); d82 13 a94 8 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 pxctON; // PXCT on output reg [9:12] pxct; // PXCT output reg prevEN; // d98 1 d103 7 a110 3 wire pxct_en = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PXCTEN ); wire pxct_off = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_PXCTOFF); d115 7 a121 2 pxctON <= 1'b0; pxct <= 4'b0; d123 1 a123 1 else if (clken & pxct_en) d125 5 a129 2 pxctON <= ~pxct_off; pxct <= dp[9:12]; d134 3 d138 2 a139 6 // wire [0:2] pxct_sel = `cromMEM_PXCTSEL; wire wru_cycle = `cromMEM_WRUCYCLE; always @@(pxct or pxctON or pxct_sel or wru_cycle) d141 14 a154 11 if ((pxctON & pxct[9]) | (pxctON & wru_cycle)) case (pxct_sel) 0: prevEN <= 1'b0; // Current 1: prevEN <= pxct[ 9]; // E1 2: prevEN <= pxct[10]; // Not used 3: prevEN <= pxct[10]; // D1 4: prevEN <= pxct[11]; // BIS-SRC-EA 5: prevEN <= pxct[11]; // E2 6: prevEN <= pxct[12]; // BIS-DST-EA 7: prevEN <= pxct[12]; // D2 d157 1 a157 1 prevEN <= 1'b0; // Current d159 1 a159 1 @ 1.3 log @*** empty log message *** @ text @d22 1 a22 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d49 1 a49 1 `include "microcontroller/crom.vh" d51 1 a51 1 module PXCT(clk, rst, clken, crom, dp, pxct, pxct_on, previous_en); d60 1 a60 1 output reg pxct_on; // PXCT on d62 1 a62 1 output reg previous_en; d78 1 a78 1 pxct_on <= 1'b0; d83 1 a83 1 pxct_on <= ~pxct_off; d95 1 a95 1 always @@(pxct or pxct_on or pxct_sel or wru_cycle) d97 2 a98 2 if ((pxct_on & pxct[9]) | (pxct_on & wru_cycle)) d100 8 a107 8 0: previous_en <= 1'b0; // Current 1: previous_en <= pxct[ 9]; // E1 2: previous_en <= pxct[10]; // Not used 3: previous_en <= pxct[10]; // D1 4: previous_en <= pxct[11]; // BIS-SRC-EA 5: previous_en <= pxct[11]; // E2 6: previous_en <= pxct[12]; // BIS-DST-EA 7: previous_en <= pxct[12]; // D2 d110 1 a110 1 previous_en <= 1'b0; // Current @ 1.1 log @Initial revision @ text @d79 1 a79 1 pxct <= 4'b0000; d97 2 a98 1 if ((pxct_on && pxct[9]) || wru_cycle) @ rtl/cpu/RCS/apr.v,v0000444000175100010010000005746012053070240012504 0ustar RobNonehead 1.10; access; symbols; locks; comment @# @; 1.10 date 2012.11.21.06.11.42; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.17.00.42.33; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.16.20.32.33; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.09.21.25.31; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.07.07.18.29; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.04.02.36.41; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.12.26; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.44.37; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.41.09; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.47.20; author Rob; state Exp; branches; next ; desc @APR Device @ 1.10 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" module APR(clk, rst, clken, crom, dp, pwrINTR, nxmINTR, consINTR, 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 pwrINTR; // Power Failure interrupt input nxmINTR; // Non existant memory interrupt input consINTR; // Console 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 // // 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 // // 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 // On a KS10, this flag indicates that an power fail condition // exists. // // Trace // DPMB/E158 // reg flagPWR; always @@(posedge clk or posedge rst) begin if (rst) flagPWR <= 1'b0; else if (clken & specAPRFLAGS) if (pwrINTR) flagPWR <= 1'b1; else flagPWR <= dp[26]; end // // APR Flag Register 27 // // Note // Non-existant memory interrupt. // // Trace // DPMB/E139 // reg flagNXM; always @@(posedge clk or posedge rst) begin if (rst) flagNXM <= 1'b0; else if (clken & specAPRFLAGS) if (nxmINTR) flagNXM <= 1'b1; else flagNXM <= dp[27]; end // // APR Flag Register 28 // // Note // On a KS10, this flag 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 // On a KS10, this flag 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 // // 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 // On a KS10, this flag indicates that a Console Interrupt // has occurred. // // Trace // DPMB/E158 // reg flagCONS; always @@(posedge clk or posedge rst) begin if (rst) flagCONS <= 1'b0; else if (clken & specAPRFLAGS) if (consINTR) flagCONS <= 1'b1; else flagCONS <= 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]) || (flagPWR & flagAPREN[26]) || (flagNXM & flagAPREN[27]) || (flag28 & flagAPREN[28]) || (flag29 & flagAPREN[29]) || (flag30 & flagAPREN[30]) || (flagCONS & flagAPREN[31]) || (flagSWINT)); // // APR Interrupt Request // // Details // The APR can request interrupts. // // Trace // DPEB/E166 // reg [1:7] aprINTR; always @@(flagINTREQ or flagINTR) begin 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 else aprINTR <= 7'b0000000; end // // FIXUPS // assign aprFLAGS[22] = flagTRAPEN; assign aprFLAGS[23] = flagPAGEEN; assign aprFLAGS[24] = flag24; assign aprFLAGS[25] = flag25; assign aprFLAGS[26] = flagPWR; assign aprFLAGS[27] = flagNXM; assign aprFLAGS[28] = flag28; assign aprFLAGS[29] = flag29; assign aprFLAGS[30] = flag30; assign aprFLAGS[31] = flagCONS; assign aprFLAGS[32] = flagINTREQ; assign aprFLAGS[33] = 1'b1; assign aprFLAGS[34] = 1'b1; assign aprFLAGS[35] = 1'b1; endmodule @ 1.9 log @*** empty log message *** @ text @a46 1 `include "config.vh" d296 1 a296 1 always @@(posedge clk or posedge rst) @ 1.8 log @*** empty log message *** @ text @d50 1 a50 1 module APR(clk, rst, clken, crom, dp, pwrINTR, nxmINTR, consINTR, aprFLAGS); d58 1 a58 1 input [ 0:35] dp; // Data path d63 1 d76 1 a76 1 // DPMB/E814 d92 1 a92 1 // DPMB/E814 d112 1 a112 1 // DPMB/E815 d134 1 a134 1 // DPMB/E815 d157 1 a157 2 // DPMB/E914 // DPMB/E915 d177 1 a177 1 // DPMB/E914 d193 1 a193 1 // DPMB/E915 d213 1 a213 1 // DPMB/E915 d232 2 a233 2 // DPMB/E816 // DPMB/E916 d237 5 a241 4 reg flagTRAPEN; // Trap Enable reg flagPAGEEN; // Paging Enable reg [24:31] flagAPREN; // APR Enable reg flagSWINT; // Software Interrupt d251 1 d259 1 d270 4 a273 4 // DPMB/E817 // DPMB/E917 // DPMB/E121 // DPMB/E309 d285 28 @ 1.7 log @*** empty log message *** @ text @d50 1 a50 3 module APR(clk, rst, clken, crom, dp, pwrIRQ, nxmIRQ, consIRQ, aprFLAGS, bus_pi_req_out); d54 9 a62 10 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 pwrIRQ; // Power Failure interrupt input nxmIRQ; // Non existant memory interrupt input consIRQ; // Interrupt 10 output [22:35] aprFLAGS; // APR Flags output reg [ 1: 7] bus_pi_req_out; // Bus PI Request Out d65 1 a65 1 // Decode APR Flags Enable microcode d68 1 a69 1 wire specAPREN = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADAPR); a97 1 `ifdef INITRAM a98 3 `else flag25 <= 1'bx; `endif d106 4 d118 1 a118 5 `ifdef INITRAM flagPWR <= 1'b0; `else flagPWR <= 1'bx; `endif d120 1 a120 1 if (pwrIRQ) d129 3 d140 1 a140 5 `ifdef INITRAM flagNXM <= 1'b0; `else flagNXM <= 1'bx; `endif d142 1 a142 1 if (nxmIRQ) d151 4 d160 1 a160 1 reg flagBADDATA; d164 1 a164 5 `ifdef INITRAM flagBADDATA <= 1'b0; `else flagBADDATA <= 1'bx; `endif d166 1 a166 1 flagBADDATA <= dp[28]; d172 4 d180 1 a180 1 reg flagCORDATA; d184 1 a184 5 `ifdef INITRAM flagCORDATA <= 1'b0; `else flagCORDATA <= 1'bx; `endif d186 1 a186 1 flagCORDATA <= dp[29]; d200 1 a200 5 `ifdef INITRAM flag30 <= 1'b0; `else flag30 <= 1'bx; `endif d208 4 d220 1 a220 5 `ifdef INITRAM flagCONS <= 1'b0; `else flagCONS <= 1'bx; `endif d222 1 a222 1 if (consIRQ) d237 4 a240 5 reg flagTRAPEN; reg flagPAGEEN; reg [24:31] flagAPREN; reg flagSWINT; reg [ 0: 2] reqOUT; d246 4 a249 13 `ifdef INITRAM flagTRAPEN <= 1'b0; flagPAGEEN <= 1'b0; flagAPREN <= 8'b0; flagSWINT <= 1'b0; reqOUT <= 3'b0; `else flagTRAPEN <= 1'bx; flagPAGEEN <= 1'bx; flagAPREN <= 8'bx; flagSWINT <= 1'bx; reqOUT <= 3'bx; `endif d251 1 a251 1 else if (clken & specAPREN) a256 1 reqOUT <= dp[33:35]; d262 5 d273 8 a280 8 wire flagINTREQ = ((flag24 & flagAPREN[24]) || (flag25 & flagAPREN[25]) || (flagPWR & flagAPREN[26]) || (flagNXM & flagAPREN[27]) || (flagBADDATA & flagAPREN[28]) || (flagCORDATA & flagAPREN[29]) || (flag30 & flagAPREN[30]) || (flagCONS & flagAPREN[31]) || a283 24 // PI Request Output Decoder // // Trace // DPEB/E166 // always @@(reqOUT or flagINTREQ) begin if (flagINTREQ) case (reqOUT) 3'b000 : bus_pi_req_out <= 7'b0000000; 3'b001 : bus_pi_req_out <= 7'b1000000; 3'b010 : bus_pi_req_out <= 7'b0100000; 3'b011 : bus_pi_req_out <= 7'b0010000; 3'b100 : bus_pi_req_out <= 7'b0001000; 3'b101 : bus_pi_req_out <= 7'b0000100; 3'b110 : bus_pi_req_out <= 7'b0000010; 3'b111 : bus_pi_req_out <= 7'b0000001; endcase else bus_pi_req_out <= 7'b0000000; end // d293 2 a294 2 assign aprFLAGS[28] = flagBADDATA; assign aprFLAGS[29] = flagCORDATA; @ 1.6 log @*** empty log message *** @ text @d76 2 d92 2 d112 2 d135 2 d158 2 d179 2 d199 2 d219 2 d242 2 a248 1 d303 2 @ 1.5 log @*** empty log message *** @ text @d51 1 a51 1 intPWR, intNXM, intBADDATA, intCONS, d61 3 a63 4 input intPWR; // Power Failure interrupt input intNXM; // Non existant memory interrupt input intBADDATA; // Bad data interrupt input intCONS; // Interrupt 10 d121 1 a121 1 if (intPWR) d142 1 a142 1 if (intNXM) d164 1 a164 4 if (intBADDATA) flagBADDATA <= 1'b1; else flagBADDATA <= dp[28]; d218 1 a218 1 if (intCONS) d245 1 a245 1 flagAPREN <= 9'b0; d251 1 a251 1 flagAPREN <= 9'bx; @ 1.4 log @*** empty log message *** @ text @d67 1 a67 1 d71 1 a71 1 d74 1 a74 1 d80 1 a80 1 reg flag24; d88 1 a88 1 d106 1 a106 1 d127 1 a127 1 d188 1 a188 1 a233 1 d235 5 a239 4 reg trapEN; reg pageEN; reg [24:31] aprEN; reg swINT; d241 1 a241 1 d247 5 a251 5 trapEN <= 1'b0; pageEN <= 1'b0; aprEN <= 9'b0; swINT <= 1'b0; reqOUT <= 3'b0; d253 5 a257 5 trapEN <= 1'bx; pageEN <= 1'bx; aprEN <= 9'bx; swINT <= 1'bx; reqOUT <= 3'bx; d262 5 a266 5 trapEN <= dp[22]; pageEN <= dp[23]; aprEN <= dp[24:31]; swINT <= dp[32]; reqOUT <= dp[33:35]; d269 1 a269 1 d277 11 a287 11 wire flagINTREQ = ((flag24 & aprEN[24]) || (flag25 & aprEN[25]) || (flagPWR & aprEN[26]) || (flagNXM & aprEN[27]) || (flagBADDATA & aprEN[28]) || (flagCORDATA & aprEN[29]) || (flag30 & aprEN[30]) || (flagCONS & aprEN[31]) || (swINT)); d289 1 a289 1 // d292 1 a292 1 d314 2 a315 2 assign aprFLAGS[22] = trapEN; assign aprFLAGS[23] = pageEN; d328 1 a328 1 @ 1.3 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle d47 1 d56 11 a66 11 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 intPWR; // Power Failure interrupt input intNXM; // Non existant memory interrupt input intBADDATA; // Bad data interrupt input intCONS; // Interrupt 10 output [22:35] aprFLAGS; // APR Flags output reg [ 1: 7] bus_pi_req_out; // Bus PI Request Out d98 1 d100 3 d116 5 a120 1 flagPWR <= 1'b0; d137 5 a141 1 flagNXM <= 1'b0; d159 5 a163 1 flagBADDATA <= 1'b0; d180 5 a184 1 flagCORDATA <= 1'b0; d198 5 a202 1 flag30 <= 1'b0; d216 5 a220 1 flagCONS <= 1'b0; d246 13 a258 5 trapEN <= 1'b0; pageEN <= 1'b0; aprEN <= 9'b0; swINT <= 1'b0; reqOUT <= 3'b0; @ 1.2 log @*** empty log message *** @ text @d47 1 a47 1 `include "microcontroller/crom.vh" d50 2 a51 3 bus_ac_lo, nxm_err, bad_data_err, int_10, trapEN, pageEN, aprFLAGS, apr_int_req, bus_pi_req_out); d60 5 a64 8 input bus_ac_lo; // Power Failure input nxm_err; // input bad_data_err; // input int_10; // output reg trapEN; // Trap Enable output reg pageEN; // Page Enable output reg [24:31] aprFLAGS; // APR Flags output apr_int_req; // Interrupt Request d71 2 a72 1 wire aprENFLAGS = `cromSPEC_EN_20 && (`cromSPEC_SEL == `cromSPEC_SEL_APRFLAGS); d78 2 a79 1 d83 3 a85 3 aprFLAGS[24] <= 1'b0; else if (clken & aprENFLAGS) aprFLAGS[24] <= dp[24]; d92 2 a93 1 d97 3 a99 3 aprFLAGS[25] <= 1'b0; else if (clken & aprENFLAGS) aprFLAGS[25] <= dp[25]; d106 2 a107 1 d111 4 a114 4 aprFLAGS[26] <= 1'b0; else if (clken & aprENFLAGS) if (bus_ac_lo) aprFLAGS[26] <= 1'b1; d116 1 a116 1 aprFLAGS[26] <= dp[26]; d123 2 a124 1 d128 4 a131 4 aprFLAGS[27] <= 1'b0; else if (clken & aprENFLAGS) if (nxm_err) aprFLAGS[27] <= 1'b1; d133 1 a133 1 aprFLAGS[27] <= dp[27]; d141 2 a142 1 d146 4 a149 4 aprFLAGS[28] <= 1'b0; else if (clken & aprENFLAGS) if (bad_data_err) aprFLAGS[28] <= 1'b1; d151 1 a151 1 aprFLAGS[28] <= dp[28]; d158 2 a159 1 d163 3 a165 3 aprFLAGS[29] <= 1'b0; else if (clken & aprENFLAGS) aprFLAGS[29] <= dp[29]; d172 2 a173 1 d177 3 a179 3 aprFLAGS[30] <= 1'b0; else if (clken & aprENFLAGS) aprFLAGS[30] <= dp[30]; d186 2 a187 1 d191 4 a194 4 aprFLAGS[31] <= 1'b0; else if (clken & aprENFLAGS) if (int_10) aprFLAGS[31] <= 1'b1; d196 1 a196 1 aprFLAGS[31] <= dp[31]; a205 4 wire aprEN = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADAPR); reg intr; reg [ 0: 2] req_out; reg [24:31] apr_en; d207 6 d217 5 a221 5 trapEN <= 1'b0; pageEN <= 1'b0; apr_en <= 9'b000_000_000; intr <= 1'b0; req_out <= 3'b0; d223 1 a223 1 else if (clken & aprEN) d225 5 a229 5 trapEN <= dp[22]; pageEN <= dp[23]; apr_en <= dp[24:31]; intr <= dp[32]; req_out <= dp[33:35]; d241 9 a249 9 wire apr_int_req = ((aprFLAGS[24] & apr_en[24]) || (aprFLAGS[25] & apr_en[25]) || (aprFLAGS[26] & apr_en[26]) || (aprFLAGS[27] & apr_en[27]) || (aprFLAGS[28] & apr_en[28]) || (aprFLAGS[29] & apr_en[29]) || (aprFLAGS[30] & apr_en[30]) || (aprFLAGS[31] & apr_en[31]) || (intr)); d256 1 a256 1 always @@(req_out or apr_int_req) d258 2 a259 2 if (apr_int_req) case (req_out) d272 19 @ 1.1 log @Initial revision @ text @d13 1 a13 1 //! apr_device.v d49 4 a52 1 module APR_DEVICE(clk, rst, clken, crom, dp, trap_en, page_en, apr_flags, apr_int_req); a54 14 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 bus_ac_lo; // Power Failure input nxm_err; // input bad_data_err; // input int_10; // output reg trap_en; // Trap Enable output reg page_en; // Page Enable output reg [0:7] apr_flags; // APR Flags output reg apr_int_req; // Interrupt Request d56 15 d72 1 a72 3 // APR Enable Register // DPMB/E816 // DPMB/E916 a73 3 wire apren = 1'b0; // FIXME reg [0:7] apr_en; d75 2 a76 18 always @@(posedge clk or posedge rst) begin if (rst) begin trap_en <= 1'b0; page_en <= 1'b0; apr_en <= 9'b000_000_000; intr <= 1'b0; end else if (clken & apren) begin trap_en <= dp[22]; page_en <= dp[23]; apr_en <= dp[24:31]; intr <= dp[32]; end end d85 3 a87 3 apr_flag[24] <= 1'b0; else if (clken & apren) apr_flag[24] <= dp[24]; d98 3 a100 3 apr_flag[25] <= 1'b0; else if (clken & apren) apr_flag[25] <= dp[25]; d111 2 a112 2 apr_flag[26] <= 1'b0; else if (clken & apren) d114 1 a114 1 apr_flag[26] <= 1'b1; d116 1 a116 1 apr_flag[26] <= dp[26]; d127 2 a128 2 apr_flag[27] <= 1'b0; else if (clken & apren) d130 1 a130 1 apr_flag[27] <= 1'b1; d132 1 a132 1 apr_flag[27] <= dp[27]; d144 2 a145 2 apr_flag[28] <= 1'b0; else if (clken & apren) d147 1 a147 1 apr_flag[28] <= 1'b1; d149 1 a149 1 apr_flag[28] <= dp[28]; d160 3 a162 3 apr_flag[29] <= 1'b0; else if (clken & apren) apr_flag[29] <= dp[29]; d173 3 a175 3 apr_flag[30] <= 1'b0; else if (clken & apren) apr_flag[30] <= dp[30]; d186 2 a187 2 apr_flag[31] <= 1'b0; else if (clken & apren) d189 1 a189 1 apr_flag[31] <= 1'b1; d191 1 a191 1 apr_flag[31] <= dp[31]; d193 32 d234 31 a264 9 assign apr_int_req = ((apr_flag[24] & apr_en[24]) || (apr_flag[25] & apr_en[25]) || (apr_flag[26] & apr_en[26]) || (apr_flag[27] & apr_en[27]) || (apr_flag[28] & apr_en[28]) || (apr_flag[29] & apr_en[29]) || (apr_flag[30] & apr_en[30]) || (apr_flag[31] & apr_en[31]) || (intr)); @ rtl/cpu/RCS/pf_disp.v,v0000444000175100010010000002663712051556676013374 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.17.00.43.40; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.16.20.33.52; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.11.04.27.54; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.08.20.42.07; author E721269; state Exp; branches; next 1.1; 1.1 date 2012.11.07.07.19.41; author Rob; state Exp; branches; next ; desc @Page Fail Dispatch @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.4 log @*** empty log message *** @ text @d70 1 a70 3 dispPF ); d75 13 a87 13 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 reg [ 0: 3] dispPF; // Page Fail Dispatch d101 1 a101 1 wire specMEMWAIT = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMWAIT); d107 1 a107 1 wire flagPAGEEN = aprFLAGS[23]; // Paging is enabled d113 4 a116 4 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 d122 4 a125 4 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 d254 3 a256 1 @ 1.3 log @*** empty log message *** @ text @d69 1 a69 1 aprFLAGS, pageFLAGS, cpuIRQ, nxmIRQ, timerIRQ, d77 13 a89 13 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 timerIRQ; // Timer Interrupt input cpuIRQ; // CPU Interrupt input nxmIRQ; // NXM Interrupt output reg [ 0: 3] dispPF; // Page Fail Dispatch d183 2 a184 2 intCPU <= cpuIRQ; intTIM <= timerIRQ; d192 1 a192 1 d196 1 a196 1 d206 1 a206 1 d247 1 a247 1 // Notice also the nxmIRQ generates a dispatch but disables the d257 1 a257 1 always @@(nxmIRQ or pagingOK or pageVALID or pageUSER or d260 1 a260 1 if (nxmIRQ) @ 1.2 log @*** empty log message *** @ text @d133 3 a135 2 // True when addressing the lowest 16 addresses (the ACs) using // physical addressing. d143 1 a143 1 wire vmaACREF = vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); @ 1.1 log @Initial revision @ text @d117 1 d145 1 d188 5 d196 10 a205 3 wire memory_cycle = 1'b0; // FIXME wire mem_write = 1'b0; // FIXME d209 5 d215 2 a216 2 wire INT_OR_ERR = ((intCPU & memory_cycle & ~(vmaPHYSICAL | mem_write)) | (intTIM & memory_cycle & ~(vmaPHYSICAL | mem_write))); @ rtl/cpu/RCS/vma.v,v0000444000175100010010000004722612051704604012512 0ustar RobNonehead 1.9; access; symbols; locks; comment @# @; 1.9 date 2012.11.17.12.56.35; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.11.04.28.06; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.09.20.50.55; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.05.06.59.43; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.04.02.35.15; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.17.53; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.39.24; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.44.03; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.41.18; author Rob; state Exp; branches; next ; desc @Virtual Memory Address @ 1.9 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" `include "useq/drom.vh" module VMA(clk, rst, clken, crom, drom, dp, cpuEXEC, prevEN, pcFLAGS, vmaSWEEP, 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 reg vmaSWEEP; // VMA Sweep output reg vmaEXTENDED; // VMA Extended output [ 0:13] vmaFLAGS; // VMA Flags output reg [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 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; vmaSWEEP <= 1'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]; vmaSWEEP <= cacheSWEEP; 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 @ 1.8 log @*** empty log message *** @ text @a46 1 `include "config.vh" d131 11 a141 25 `ifdef INITREGS vmaADDR <= 22'b0; vmaSWEEP <= 1'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; `else vmaADDR <= 22'bx; vmaSWEEP <= 1'bx; vmaEXTENDED <= 1'bx; vmaUSER <= 1'bx; vmaFETCH <= 1'bx; vmaPHYSICAL <= 1'bx; vmaPREVIOUS <= 1'bx; vmaIOCYCLE <= 1'bx; vmaWRUCYCLE <= 1'bx; vmaVECTORCYCLE <= 1'bx; vmaIOBYTECYCLE <= 1'bx; `endif d203 4 a206 11 `ifdef INITREGS vmaREADCYCLE <= 1'b0; vmaWRTESTCYCLE <= 1'b0; vmaWRITECYCLE <= 1'b0; vmaCACHEINH <= 1'b0; `else vmaREADCYCLE <= 1'bx; vmaWRTESTCYCLE <= 1'bx; vmaWRITECYCLE <= 1'bx; vmaCACHEINH <= 1'bx; `endif d211 6 a216 14 if (`cromMEM_DPFUNC) begin vmaREADCYCLE <= 1'b0; vmaWRTESTCYCLE <= 1'b0; vmaWRITECYCLE <= 1'b0; vmaCACHEINH <= 1'b0; end else begin vmaREADCYCLE <= `dromREADCYCLE; vmaWRTESTCYCLE <= `dromWRTESTCYCLE; vmaWRITECYCLE <= `dromWRITECYCLE; vmaCACHEINH <= 1'b0; end @ 1.7 log @*** empty log message *** @ text @d235 3 a237 3 vmaREADCYCLE <= `dromREADCYCLE; vmaWRTESTCYCLE <= `dromWRTESTCYCLE; vmaWRITECYCLE <= `dromWRITECYCLE; d242 3 a244 3 vmaREADCYCLE <= 1'b0; vmaWRTESTCYCLE <= 1'b0; vmaWRITECYCLE <= 1'b0; @ 1.6 log @*** empty log message *** @ text @d79 7 a85 1 // VMA Logic d95 2 d194 6 @ 1.5 log @*** empty log message *** @ text @d51 2 a52 3 module VMA(clk, rst, clken, crom, drom, dp, cpuEXEC, prevEN, flagPCU, flagUSER, vmaSWEEP, vmaEXTENDED, vmaACREF, vmaFLAGS, vmaADDR); d57 21 a77 16 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 flagPCU; // PCU Flag input flagUSER; // USER Flag output reg vmaSWEEP; // VMA Sweep output reg vmaEXTENDED; // VMA Extended output vmaACREF; // VMA references an AC output [ 0:13] vmaFLAGS; // VMA Flags output reg [14:35] vmaADDR; // Virtual Memory Address d84 2 a85 2 wire cacheSWEEP = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire selPREVIOUS = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_PREVIOUS); d116 2 a117 2 wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA) | d170 1 a170 1 (prevEN & flagPCU) | a249 9 // // The ACs are always physically addressed and are located // at address 0 to 15. Note that the comparison igores // the 4 lowest address lines (vma[32:35]) and checks that // the upper address lines (vma[18:31]) are all zero. // assign vmaACREF = vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); @ 1.4 log @*** empty log message *** @ text @d51 1 a51 1 module VMA(clk, rst, clken, crom, drom, dp, consEXEC, prevEN, d57 1 a57 1 d64 1 a64 1 input consEXEC; // Execute d79 1 a79 1 d112 1 a112 1 wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA) | d115 1 a115 1 d164 2 a165 2 vmaUSER <= ((~`cromMEM_FORCEEXEC & flagUSER & ~consEXEC) | (`cromMEM_FETCHCYCLE & flagUSER ) | d195 1 a195 1 d246 1 a246 1 d253 1 a253 1 d259 1 a259 1 d274 1 a274 1 @ 1.3 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle d47 1 d58 5 a62 5 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 d64 4 a67 4 input consEXEC; // Execute input prevEN; // Previous Enable input flagPCU; // PCU Flag input flagUSER; // USER Flag d71 2 a72 2 output [ 0:13] vmaFLAGS; // VMA Flags output reg [14:35] vmaADDR; // Virtual Memory Address d120 25 a144 11 vmaADDR <= 22'b0; vmaSWEEP <= 1'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; d200 11 a210 4 vmaREADCYCLE <= 1'b0; vmaWRTESTCYCLE <= 1'b0; vmaWRITECYCLE <= 1'b0; vmaCACHEINH <= 1'b0; @ 1.2 log @*** empty log message *** @ text @d47 2 a48 2 `include "microcontroller/crom.vh" `include "microcontroller/drom.vh" d50 1 a50 1 module VMA(clk, rst, clken, crom, drom, dp, execute, previousEN, d63 2 a64 2 input execute; // input previousEN; // Previous Enable d106 1 a106 1 reg vmaIO; d126 1 a126 1 vmaIO <= 1'b0; d142 1 a142 1 vmaIO <= dp[10]; d149 3 a151 3 vmaUSER <= ((~`cromMEM_FORCEEXEC & flagUSER & ~execute) | (`cromMEM_FETCHCYCLE & flagUSER ) | (previousEN & flagPCU) | d156 2 a157 2 vmaPREVIOUS <= previousEN | selPREVIOUS; vmaIO <= 1'b0; d248 1 a248 1 assign vmaFLAGS[10] = vmaIO; @ 1.1 log @Initial revision @ text @d50 3 a52 5 module VMA(clk, rst, clken, crom, drom, dp, execute, user_flag, pcu_flag, previous_en, wru_cycle, vector_cycle, iobyte_cycle, vma_sweep, vma_extended, vma_user, vma_previous, vma_physical, vma_fetch, vma_io, vma_ac_ref, vma); d64 8 a71 15 input user_flag; // User Flag input pcu_flag; // Previous Context User (PCU) Flag input previous_en; // output reg wru_cycle; // WRU Cycle output reg vector_cycle; // Vector Cycle output reg iobyte_cycle; // IO Byte Cycle output reg vma_sweep; // VMA Sweep output reg vma_extended; // VMA Extended output reg vma_user; // VMA User output reg vma_previous; // VMA Previous output reg vma_physical; // VMA Physical output reg vma_fetch; // VMA Fetch output reg vma_io; // VMA IO output vma_ac_ref; // VMA references an AC output reg [14:35] vma; // Virtual Memory Address d79 3 a81 15 wire cache_sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire previous = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_PREVIOUS); wire dromVMA = `dromVMA; // wire mem_load_vma = `cromMEM_LOADVMA; // Load the VMA wire mem_extaddr = `cromMEM_EXTADDR; // Put VMA[14:17] Bits onto Bus wire mem_aread = `cromMEM_AREAD; // Let DROM select type and load VMA (see dromVMA) wire mem_dp_funct = `cromMEM_DPFUNC; // This is a DP function. Use dp[0:13] instead of cromNUM[0:13] wire mem_cycle = `cromMEM_CYCLE; // Start/complete MEM or IO Cycle wire mem_force_exec = `cromMEM_FORCEEXEC; // Force exec mode reference wire mem_force_user = `cromMEM_FORCEUSER; // Force user mode reference wire mem_fetch_cycle = `cromMEM_FETCHCYCLE; // This is an instruction fetch cycle wire mem_wru_cycle = `cromMEM_WRUCYCLE; // This is a WRU cycle wire mem_iobyte_cycle = `cromMEM_IOBYTECYCLE;// This is a byte cycle wire mem_physical = `cromMEM_PHYSICAL; // No paging on this cycle d83 1 a83 2 // VMA EN // DPE3/E76 a84 8 // wire vma_en = ((mem_cycle & mem_load_vma) | (mem_cycle & mem_aread & dromVMA) | (cache_sweep)); // // VMA USER, VMA PREV d88 1 d90 2 a91 11 // wire prev = previous_en | previous; wire user = ((~mem_force_exec & ~execute & user_flag) | (mem_fetch_cycle & user_flag) | (mem_force_user) | (pcu_flag & previous)); // // VMA Register d93 2 d96 1 a96 1 // DPM4/E137 a99 4 // DPM4/E97 // DPM4/E90 // DPM4/E168 // DPM4/E115 d101 13 d119 11 a129 11 vma_sweep <= 1'b0; vma_extended <= 1'b0; vma <= 22'b0; vma_user <= 1'b0; vma_previous <= 1'b0; wru_cycle <= 1'b0; vma_fetch <= 1'b0; vector_cycle <= 1'b0; iobyte_cycle <= 1'b0; vma_io <= 1'b0; vma_physical <= 1'b0; d131 1 a131 1 else if (clken & vma_en) d133 4 a136 4 vma_sweep <= cache_sweep; vma_extended <= mem_extaddr; vma <= dp[14:35]; if (mem_dp_funct) d138 8 a145 8 vma_user <= dp[0]; vma_fetch <= dp[2]; vma_physical <= dp[8]; vma_previous <= dp[9]; vma_io <= dp[10]; wru_cycle <= dp[11]; vector_cycle <= dp[12]; iobyte_cycle <= dp[13]; d149 12 a160 8 vma_user <= user; vma_fetch <= mem_fetch_cycle; vma_physical <= mem_physical; vma_previous <= prev; vma_io <= 1'b0; wru_cycle <= 1'b0; vector_cycle <= 1'b0; iobyte_cycle <= 1'b0; d166 60 d232 20 a251 1 assign vma_ac_ref = vma_physical && (vma[18:31] == 14'b0); @ rtl/cpu/RCS/alu.v,v0000444000175100010010000014637412053070376012520 0ustar RobNonehead 1.15; access; symbols; locks; comment @# @; 1.15 date 2012.11.21.06.13.15; author Rob; state Exp; branches; next 1.14; 1.14 date 2012.11.19.15.56.02; author E721269; state Exp; branches; next 1.13; 1.13 date 2012.11.14.20.30.21; author E721269; state Exp; branches; next 1.12; 1.12 date 2012.11.14.00.59.52; author Rob; state Exp; branches; next 1.11; 1.11 date 2012.11.09.08.14.41; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.07.07.17.50; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.05.07.00.12; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.03.05.10.38; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.02.01.00.44; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.01.05.38.49; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.20.02.49.22; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.12.03.06.08; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.01.43.54; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.31.08; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.29.00.47.02; author Rob; state Exp; branches; next ; desc @ALU @ 1.15 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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: qi <= q; `cromDST_RAMA: qi <= q; `cromDST_RAMF: qi <= q; `cromDST_RAMD: qi <= q; `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: r[0:19] = ad[0:19]; `cromSRC_AB: r[0:19] = ad[0:19]; `cromSRC_ZQ: r[0:19] = 20'b0; `cromSRC_ZB: r[0:19] = 20'b0; `cromSRC_ZA: r[0:19] = 20'b0; `cromSRC_DA: r[0:19] = dd[0:19]; `cromSRC_DQ: r[0:19] = dd[0:19]; `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: r[20:39] = ad[20:39]; `cromSRC_AB: r[20:39] = ad[20:39]; `cromSRC_ZQ: r[20:39] = 20'b0; `cromSRC_ZB: r[20:39] = 20'b0; `cromSRC_ZA: r[20:39] = 20'b0; `cromSRC_DA: r[20:39] = dd[20:39]; `cromSRC_DQ: r[20:39] = dd[20:39]; `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: s[0:19] = q[0:19]; `cromSRC_ZQ: s[0:19] = q[0:19]; `cromSRC_DQ: s[0:19] = q[0:19]; `cromSRC_AB: s[0:19] = bd[0:19]; `cromSRC_ZB: s[0:19] = bd[0:19]; `cromSRC_ZA: s[0:19] = ad[0:19]; `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: s[20:39] = q[20:39]; `cromSRC_ZQ: s[20:39] = q[20:39]; `cromSRC_DQ: s[20:39] = q[20:39]; `cromSRC_AB: s[20:39] = bd[20:39]; `cromSRC_ZB: s[20:39] = bd[20:39]; `cromSRC_ZA: s[20:39] = ad[20:39]; `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 this KS10, this signal comes from the carry skippers, // which doesn't work well with an FPGA implementation. In // this implementation, 'co' signal comes directly from // the ALU calculation. // // Note that the CRY0 doesn't actually come from bit 0: // it comes from bit (-2). Because the top two bits are // sign extensions, they are equivalent. A carry from // bit 0 will cause a carry from bit (-1) and a carry // from 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])); // // FLAG Logic // // Trace // DPE5/E4 // DPE5/E5 // DPE5/E6 // DPE5/E62 // DPE5/E70 // wire carry_in = ((`cromMULTIPREC & flag_carry_02 ) | (`cromDIVIDE & flag_carry_out) | (`cromCRY38)); wire funct_02 = ((`cromMULTIPREC & flag_funct_02 ) | (`cromDIVIDE & flag_carry_out) | (fun[2])); // // ALU Flag Register // // These registers facilate 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 <= qi[39]; flag_carry_02 <= aluCRY2; flag_funct_02 <= funct_02; flag_carry_out <= aluCRY0; end end assign aluQR37 = flag_qr37; // // Multishift // // Details // The ALU has special provisions for multi-word shifts and a // special connection to the SCAD to perform division. // // Trace // DPE5/E4 // DPE5/E6 // DPE5/E62 // DPE5/E70 // wire multi_shift = `cromMULTIPREC & flag_fl02; wire divide_shift = `cromDIVIDE & flag_carry_out; // // 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 @ 1.14 log @*** empty log message *** @ text @d24 1 a24 1 //! The ALU bit numbering on the schematic is [-2,-1,0,1:37]. a62 1 `include "config.vh" d66 1 a66 1 aluLZero, aluRZero, aluLSign, aluRSign, d77 4 a80 4 output aluLZero; // ALU left half Zero output aluRZero; // ALU right half Zero output aluLSign; // ALU left half Sign output aluRSign; // ALU right half Sign d87 2 a88 2 input [0: 3] debugADDR; // DEBUG Address output [0:35] debugDATA; // DEBUG Data d114 2 a115 1 // Inhibit carry from right half to left half d117 1 a117 1 d124 1 a124 1 // The following Destination write data into the ALU d127 1 a127 1 d141 2 a142 2 // When the ALU is configured for shift operations, the // dst[1] pin selects between right shifts and left shifts. d163 3 a165 2 // between add and subract ops. This is used in the divide // and multiprecision ops. d178 7 a184 2 // In the KS10, the ALU is 40-bits wide. Sign extend input // from 36 bits to 38 bits and add two bits padding on right. d384 2 a385 7 if (rst) for (i = 0; i < 16; i = i + 1) `ifdef INITRAM aluRAM[i] <= 40'b0; `else aluRAM[i] <= 40'bx; `endif d394 1 a394 1 d418 1 a418 1 d422 1 a422 1 d434 1 a434 1 `cromDST_RAMQU: d437 1 a437 1 qi <= {q[1:39], 1'b0}; d439 1 a439 1 qi <= {q[1:39], 1'b0}; d441 1 a441 1 qi <= {q[1:39], 1'b1}; d443 1 a443 1 qi <= {q[1:39], q[4]}; d445 1 a445 1 qi <= {q[1:39], 1'b0}; d447 1 a447 1 qi <= {q[1:39], 1'b0}; d449 1 a449 1 qi <= {q[1:39], divide_shift}; d451 1 a451 1 qi <= {q[1:39], f[4]}; d453 1 a453 1 `cromDST_RAMQD: d456 1 a456 1 qi <= {1'b0, q[0:2], q[3], q[4:38]}; d458 1 a458 1 qi <= {1'b0, q[0:2], 1'b0, q[4:38]}; d460 1 a460 1 qi <= {1'b0, q[0:2], 1'b1, q[4:38]}; d462 1 a462 1 qi <= {1'b0, q[0:2], q[39], q[4:38]}; d464 1 a464 1 qi <= {1'b0, q[0:2], f[39], q[4:38]}; d466 1 a466 1 qi <= {1'b0, q[0:2], f[39], q[4:38]}; d468 1 a468 1 qi <= {1'b0, q[0:2], f[39], q[4:38]}; d470 1 a470 1 qi <= {1'b0, q[0:2], f[39], q[4:38]}; d472 1 a472 1 `cromDST_QREG: d474 9 a482 1 default: d486 1 a486 1 d499 1 a499 5 `ifdef INITREGS q[ 0:39] <= 40'b0; `else q[ 0:39] <= 40'bx; `endif d531 5 a535 1 default: d561 5 a565 1 default: d596 1 a596 1 default: d626 1 a626 1 default: d645 1 a645 1 wire ci = carry_in; // Carry into left half d647 1 a647 1 d710 2 a711 2 assign aluLSign = f[ 0]; assign aluRSign = f[20]; d717 2 a718 2 assign aluLZero = f[ 0:19] == 20'b0; assign aluRZero = f[20:39] == 20'b0; d731 1 a731 1 assign aluAOV = aluLSign != f[2]; d755 4 d774 3 a776 1 // the full calculation. d792 2 a793 2 wire carry_in = ((flag_carry_02 & `cromMULTIPREC) | (flag_carry_out & `cromDIVIDE ) | d796 2 a797 2 wire funct_02 = ((flag_funct_02 & `cromMULTIPREC) | (flag_carry_out & `cromDIVIDE ) | d803 1 a803 1 // These register facilate multi-word shifts as well as a810 1 //reg flag_ql02; a820 1 //flag_ql02 <= 1'b0; a828 1 //flag_ql02 <= qi[4]; d837 1 a837 1 d852 2 a853 2 wire multi_shift = flag_fl02 & `cromMULTIPREC; wire divide_shift = `cromDIVIDE & flag_carry_out; d868 1 a868 1 d870 1 a870 1 @ 1.13 log @*** empty log message *** @ text @d66 1 a66 1 module ALU(clk, rst, clken, crom, feSIGN, aluIN, a76 1 input feSIGN; // Floating-point Exponent Sign @ 1.12 log @*** empty log message *** @ text @d635 1 a635 1 d657 1 a657 1 {go, g[ 0: 3]} = {1'b1, ~r[ 0: 3]} + {1'b0, s[ 0: 3]}; d660 2 a661 2 {bb, f[20:39]} = {1'b1, ~r[20:39]} + {1'b0, s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b1, ~r[ 0:19]} + {1'b0, s[ 0:19]}; // Left Half (assumes no carry) d665 1 a665 1 {co, f[ 0:39]} = {1'b1, ~r[ 0:39]} + {1'b0, s[ 0:39]} + ci; // Whole ACC d670 1 a670 1 {go, g[ 0: 3]} = {1'b0, r[ 0: 3]} + {1'b1, ~s[ 0: 3]}; d673 2 a674 2 {bb, f[20:39]} = {1'b0, r[20:39]} + {1'b1, ~s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b0, r[ 0:19]} + {1'b1, ~s[ 0:19]}; // Left Half (assumes no carry) d678 1 a678 1 {co, f[ 0:39]} = {1'b0, r[ 0:39]} + {1'b1, ~s[ 0:39]} + ci; // Whole ACC d731 5 a735 2 // Technically, this should be called aluCRY(-2). See usage in // microcode. @ 1.11 log @*** empty log message *** @ text @d111 9 a119 1 wire cry18inh = `cromSPEC_SEL_CRY18INH;// Inhibit carry from right half to left half d140 1 a140 1 // DST[1] is inverted on DPE5/E62 d151 3 d167 4 d636 1 a636 1 always @@(r or s or ci or cry18inh or func) d645 1 a645 1 if (cry18inh) d658 1 a658 1 if (cry18inh) d671 1 a671 1 if (cry18inh) @ 1.10 log @*** empty log message *** @ text @d69 1 a69 1 aluQR37, aluOUT); d89 2 d94 2 d116 4 d129 13 a141 7 // DST[1] is inverted on DPE5/E62 // Note on the am2901's during shifts, the dst[1] pin // selects right shifts from left shifts. In the KS10, // the dst[1] also selects tri-state muxes for attaching // the right-shift and left-shift operations. This isn't // necessary on the FPGA implementation because this // version of the am2901 doesn't have tri-stated inputs. d147 8 a154 4 // FUN[2] is munged on DPE5 // Note on the am2901's, when fun[0] and fun[1] are both // zero, fun[2] selects between add and subract ops. // This is used in the divide and multiprecision ops. d160 5 a164 2 // In the KS10, the ALU is 40-bits wide. Sign extend input // from 36 bits to 38 bits and add two bits padding on right. d171 2 d178 3 d298 6 a303 5 // DPE1/E12 // DPE1/E20 // DPE1/E41 // DPE1/E48 // DPE1/E71 d352 3 a354 1 // ALU Register File Write Port d379 3 a381 1 d383 1 a383 1 // ALU Register File Read Port(s) d390 7 a396 6 // 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 d399 4 d406 1 d411 3 d463 1 a463 1 d466 2 d493 4 d520 4 d546 4 d577 4 d606 2 d694 7 a700 1 // aluAOV d708 2 d716 1 a716 1 // Technically, this should be aluCRY(-2). See usage in d724 2 d732 2 d747 2 d765 6 a770 1 // Flag Register d806 1 d808 9 a816 4 // DPE5/E4 // DPE5/E6 // DPE5/E62 // DPE5/E70 d824 2 d832 6 @ 1.9 log @*** empty log message *** @ text @d66 1 a66 1 module ALU(clk, rst, clken, crom, aluIN, d77 2 a78 1 input [0:35] aluIN; // Bus input @ 1.8 log @*** empty log message *** @ text @d66 1 a66 1 module ALU(clk, rst, clken, dbus, crom, d69 1 a69 1 aluQR37, t); a75 1 input [0:35] dbus; // Bus input d77 1 d87 1 a87 1 output [0:35] t; // ALU Output d145 1 a145 1 wire [0:39] dd = {dbus[0], dbus[0], dbus[0:35], 2'b00}; d742 1 a742 1 assign t = (dest ==`cromDST_RAMA) ? ad[2:37] : f[2:37]; @ 1.7 log @*** empty log message *** @ text @d36 1 a36 1 // Copyright (C) 2009, 2012 Rob Doyle d63 1 a322 1 d336 5 a340 1 aluRAM[i] <= 40'b0; d344 1 a344 1 aluRAM[ba][ 0:19] <= bdi[0:19]; d433 5 a437 1 q[ 0:39] <= 40'b0; a558 1 @ 1.6 log @*** empty log message *** @ text @d420 4 a423 1 // Left Half Q Register d429 8 a436 15 q[0:19] <= 20'b0; else if (clken & lclken) q[0:19] <= qi[0:19]; end // // Right Half Q Register // always @@(posedge clk or posedge rst) begin if (rst) q[20:39] <= 20'b0; else if (clken & rclken) q[20:39] <= qi[20:39]; @ 1.5 log @*** empty log message *** @ text @d63 1 a63 1 `include "microcontroller/crom.vh" d85 1 a85 1 output aluQR37; // ALU QR37 d108 11 d124 1 a124 1 // necessary on the FPGA implementation, because this d322 1 d324 3 a326 1 // Left Half (MS) Register File d330 1 a330 3 reg [0:19] RAML [0:15]; wire wrl = ((dest ==`cromDST_RAMA) || (dest ==`cromDST_RAMF) || (dest ==`cromDST_RAMQD) || (dest ==`cromDST_RAMD) || (dest ==`cromDST_RAMU) || (dest ==`cromDST_RAMQU)); d336 8 a343 3 RAML[i] <= 20'b0; else if (clken & lclken & wrl) RAML[ba] <= bdi[0:19]; d345 1 a345 1 d347 19 a365 20 // Right Half (LS) Register File // integer j; reg [0:19] RAMR [0:15]; wire wrr = ((dest ==`cromDST_RAMA) || (dest ==`cromDST_RAMF) || (dest ==`cromDST_RAMQD) || (dest ==`cromDST_RAMD) || (dest ==`cromDST_RAMU) || (dest ==`cromDST_RAMQU)); always @@(posedge clk or posedge rst) begin if (rst) for (j = 0; j < 16; j = j + 1) RAMR[j] <= 20'b0; else if (clken & rclken && wrr) RAMR[ba] <= bdi[20:39]; end wire [0:39] ad = {RAML[aa], RAMR[aa]}; wire [0:39] bd = {RAML[ba], RAMR[ba]}; d550 1 a550 1 reg [0:3] g; // ALU Partial Sum d554 1 a554 1 reg bb; // Bit Bucket d568 2 a569 2 {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) d573 1 a573 1 {co, f[ 0:39]} = {1'b0, r[ 0:39]} + {1'b0, s[ 0:39]} + ci; // Whole ACC d581 2 a582 2 {bb, f[20:39]} = {1'b1, ~r[20:39]} + {1'b0, s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b1, ~r[ 0:19]} + {1'b0, s[ 0:19]}; // Left Half (assumes no carry) d586 1 a586 1 {co, f[ 0:39]} = {1'b1, ~r[ 0:39]} + {1'b0, s[ 0:39]} + ci; // Whole ACC d594 2 a595 2 {bb, f[20:39]} = {1'b0, r[20:39]} + {1'b1, ~s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b0, r[ 0:19]} + {1'b1, ~s[ 0:19]}; // Left Half (assumes no carry) d599 1 a599 1 {co, f[ 0:39]} = {1'b0, r[ 0:39]} + {1'b1, ~s[ 0:39]} + ci; // Whole ACC @ 1.4 log @*** empty log message *** @ text @d10 17 a26 1 //! \todo d29 1 a29 1 //! am2901.v d65 4 a68 3 module ALU(clk, rst, dbus, crom, multi_shift, divide_shift, ci, co, lZ, hZ, ovfl, sign, smear, a69 2 t); a70 15 input clk; // clock input rst; // reset input [0:35] dbus; // ALU Input input [0:cromWidth-1] crom; // Control ROM Data input multi_shift; // ALU Multi Shift input divide_shift; // Divide Shift input ci; // Carry Input output co; // Carry Output output lZ; // ALU low-half Zero output hZ; // ALU high-half Zero output ovfl; // Overflow output sign; // Sign output smear; // Sign Smear output [0:35] t; // ALU Output d72 34 a105 17 // // // wire [0:39] f; // ALU Output reg [0:39] q; // Q Register wire [0:39] y; // wire [0: 2] fun = `cromFUN; // wire [0: 2] lsrc = `cromLSRC; // wire [0: 2] rsrc = `cromRSRC; // wire [0: 2] dst = `cromDST; // wire clkl = `cromCLKL; // wire clkr = `cromCLKR; // wire [0: 3] aa = `cromALU_A; // wire [0: 3] ba = `cromALU_B; // wire [0: 2] shstyle = `cromSPEC_SHSTYLE; d109 155 d265 1 a265 14 wire [0: 2] dest = {dst[0], ~dst[1], dst[2]}; // // Sign extend input from 36 bits to 38 bits and add two // bits padding on right. // wire [0:39] dd = {dbus[0], dbus[0], dbus[0:35], 2'b00}; // // RAM Shifter // d267 1 a267 1 always @@(f or y or q or dest or shstyle or sign or multi_shift) d272 1 a272 1 bdi = {f[1:39], multi_shift}; d274 1 a274 1 bdi = {f[1:3], y[0], f[5:39], 1'b0}; d276 1 a276 1 bdi = {f[1:3], y[0], f[5:39], 1'b1}; d278 1 a278 1 bdi = {f[1:3], y[0], f[5:39], f[4]}; d280 1 a280 1 bdi = {f[1:3], y[0], f[5:39], q[4]}; d282 1 a282 1 bdi = {f[1:39], q[4]}; d284 1 a284 1 bdi = {f[1:39], q[4]}; d286 1 a286 1 bdi = {f[1:3], y[0], f[5:39], q[4]}; d291 1 a291 1 bdi = {sign, f[0:38]}; d293 1 a293 1 bdi = {sign, f[0:2], 1'b0, f[4:38]}; d295 1 a295 1 bdi = {sign, f[0:2], 1'b1, f[4:38]}; d297 1 a297 1 bdi = {sign, f[0:2], f[39], f[4:38]}; d299 1 a299 1 bdi = {sign, f[0:38]}; d301 1 a301 1 bdi = {sign, f[0:2], 1'b0, f[4:38]}; d303 3 a305 3 bdi = {sign, f[0:2], 1'b1, f[4:38]}; `cromSPEC_SHSTYLE_ROTC: bdi = {sign, f[0:2], q[39], f[4:38]}; d310 1 a310 1 d314 1 a314 1 d319 1 a319 1 d325 1 a325 1 else if (clkl && wrl) d332 1 a332 1 d337 1 a337 1 d343 1 a343 1 else if (clkr && wrr) d346 1 a346 1 d374 1 a374 1 `cromSPEC_SHSTYLE_ROTC: d380 1 a380 1 qi <= {1'b0, f[0:38]}; d382 1 a382 1 qi <= {1'b0, q[0:2], 1'b0, q[4:38]}; d384 1 a384 1 qi <= {1'b0, q[0:2], 1'b1, q[4:38]}; d393 1 a393 1 `cromSPEC_SHSTYLE_ROTC: d406 1 a406 1 d411 1 a411 1 else if (clkl) d414 1 a414 1 d418 1 a418 1 d423 1 a423 1 else if (clkr) d433 1 a433 1 begin d449 1 a449 1 d455 1 a455 1 begin d471 1 a471 1 d475 1 a475 1 d478 1 a478 1 begin d497 1 a497 1 end d502 1 a502 1 d504 1 a504 1 begin d523 2 a524 2 end d527 5 d533 6 d540 7 a546 7 wire [0:40] r1 = {1'b0, r}; wire [0:40] s1 = {1'b0, s}; reg [0:40] f1; always @@(r1 or s1 or ci or fun) begin case (fun) d548 12 a559 4 if (ci) f1 = r1 + s1 + 1; else f1 = r1 + s1; d561 12 a572 4 if (ci) f1 = r1 + ~s1 + 1; else f1 = r1 + ~s1; d574 12 a585 4 if (ci) f1 = s1 + r1; else f1 = s1 + ~r1 + 1; d587 1 a587 1 f1 = r1 | s1; d589 1 a589 1 f1 = r1 & s1; d591 1 a591 1 f1 = ~r1 & s1; d593 1 a593 1 f1 = r1 ^ s1; d595 1 a595 1 f1 = ~(r1 ^ s1); d600 30 a629 1 // ALU outputs d631 21 a651 7 assign co = f1[0]; assign sign = f1[1]; assign f = f1[1:40]; assign ovfl = f1[0] != f1[1]; assign lZ = f1[ 0:19] == 0; assign hZ = f1[20:39] == 0; d654 6 a659 1 // ALU Destination Selector d661 8 a668 2 assign y = (dest ==`cromDST_RAMA) ? ad : f; d671 2 a672 2 // Status Register // DPE5/E20 d675 7 a681 8 reg flag_fl02; //FIXME reg flag_ql02; //FIXME reg flag_qr37; //FIXME reg flag_carry_02; //FIXME reg flag_carry_out; //FIXME reg flag_funct_01; //FIXME d687 1 a687 1 flag_ql02 <= 1'b0; d690 1 a691 1 flag_funct_01 <= 1'b0; d695 7 a701 7 flag_fl02 <= 1'b0; //FIXME flag_ql02 <= 1'b0; //FIXME flag_qr37 <= 1'b0; //FIXME flag_carry_02 <= 1'b0; //FIXME flag_carry_out <= 1'b0; //FIXME flag_funct_01 <= 1'b0; //FIXME end d703 2 d707 14 a720 1 // Truncate output bus from 40 bits to 36 bits. d723 3 a725 5 assign dpsgn = y[0]; assign smear = y[1]; assign t = y[2:37]; endmodule @ 1.3 log @*** empty log message *** @ text @d49 1 a49 1 module alu(clk, rst, dbus, crom, multi_shift, divide_shift, @ 1.2 log @*** empty log message *** @ text @d47 1 a47 1 `include "../microcontroller/crom.vh" d49 5 a53 2 module alu(clk, rst, d, crom, multi_shift, divide_shift, ci, co, lZ, hZ, ovfl, sign, smear, t); d57 14 a70 14 input clk; // clock input rst; // reset input [0:35] d; // ALU Input input [0:cromWidth-1] crom; // Control ROM Data input multi_shift; // ALU Multi Shift input divide_shift; // Divide Shift input ci; // Carry Input output co; // Carry Output output lZ; // ALU low-half Zero output hZ; // ALU high-half Zero output ovfl; // Overflow output sign; // Sign output smear; // Sign Smear output [0:35] t; // ALU Output d76 19 a94 3 wire [0:39] f; // ALU Output reg [0:39] q; // Q Register wire [0:39] y; // d101 1 a101 3 wire [0:39] dd; assign dd = {d[0], d[0], d[0:35], 2'b00}; d108 1 a108 1 always @@(f or y or q or `cromDST or `cromSPEC_SHSTYLE or sign or multi_shift) d110 2 a111 2 if (`cromDST == `cromDST_RAMQU || `cromDST == `cromDST_RAMU) case (`cromSPEC_SHSTYLE) d129 2 a130 2 else if (`cromDST == `cromDST_RAMQD || `cromDST == `cromDST_RAMD) case (`cromSPEC_SHSTYLE) d158 3 a160 2 reg [0: 3] addr_al; reg [0: 3] addr_bl; d166 2 a167 8 else if (`cromCLKL) if ((`cromDST ==`cromDST_RAMA) || (`cromDST ==`cromDST_RAMF) || (`cromDST ==`cromDST_RAMQD) || (`cromDST ==`cromDST_RAMD) || (`cromDST ==`cromDST_RAMU) || (`cromDST ==`cromDST_RAMQU)) begin addr_al <= `cromALU_A; addr_bl <= `cromALU_B; RAML[`cromALU_B] <= bdi[0:19]; end d176 3 a178 2 reg [0: 3] addr_ar; reg [0: 3] addr_br; d183 3 a185 9 RAMR[i] <= 20'b0; else if (`cromCLKR) if ((`cromDST ==`cromDST_RAMA) || (`cromDST ==`cromDST_RAMF) || (`cromDST ==`cromDST_RAMQD) || (`cromDST ==`cromDST_RAMD) || (`cromDST ==`cromDST_RAMU) || (`cromDST ==`cromDST_RAMQU)) begin addr_ar <= `cromALU_A; addr_br <= `cromALU_B; RAMR[`cromALU_B] <= bdi[20:39]; end d188 2 a189 4 wire [0:39] ad; wire [0:39] bd; assign ad = {RAML[addr_al], RAMR[addr_ar]}; assign bd = {RAML[addr_bl], RAMR[addr_br]}; d196 1 a196 1 always @@(f or q or `cromDST or `cromSPEC_SHSTYLE or divide_shift) d198 1 a198 1 case (`cromDST) d200 1 a200 1 case (`cromSPEC_SHSTYLE) d219 1 a219 1 case (`cromSPEC_SHSTYLE) d252 1 a252 1 else if (`cromCLKL) d264 1 a264 1 else if (`cromCLKR) d273 1 a273 1 always @@(ad or dd or `cromLSRC) d275 1 a275 1 case (`cromLSRC) d295 1 a295 1 always @@(ad or dd or `cromRSRC) d297 1 a297 1 case (`cromRSRC) d318 1 a318 1 always @@(ad or bd or q or `cromLSRC) d320 1 a320 1 case (`cromLSRC) d344 1 a344 1 always @@(ad or bd or q or `cromRSRC) d346 1 a346 1 case (`cromRSRC) d374 1 a374 1 always @@(r1 or s1 or ci or `cromFUN) d376 1 a376 1 case (`cromFUN) d412 3 a414 3 assign ovfl = (f1[0] != f1[1]) ? 1 : 0; assign lZ = (f1[ 0:19] == 0) ? 1 : 0; assign hZ = (f1[20:39] == 0) ? 1 : 0; d420 1 a420 1 assign y = (`cromDST ==`cromDST_RAMA) ? ad : f; d422 35 @ 1.1 log @Initial revision @ text @d83 1 a83 1 assign dd = {d[0], d[0], d[0:35], 0, 0}; d365 2 a366 2 wire [0:40] r1 = {0, r}; wire [0:40] s1 = {0, s}; @ rtl/cpu/RCS/timer.v,v0000444000175100010010000003230112051521434013031 0ustar RobNonehead 1.7; access; symbols; locks; comment @# @; 1.7 date 2012.11.16.20.33.29; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.11.23.12.09; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.07.07.15.02; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.18.16; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.40.22; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.44.31; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.42.34; author Rob; state Exp; branches; next ; desc @Timer. @ 1.7 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.6 log @*** empty log message *** @ text @d72 1 a72 1 module TIMER(clk, rst, clken, crom, timerEN, timerIRQ, timerCOUNT); d81 1 a81 1 output timerIRQ; // Timer Interrupt d154 1 a154 1 // The timerIRQ signal is asserted on a timer overflow; i.e., d198 1 a198 1 assign timerIRQ = intr; @ 1.5 log @*** empty log message *** @ text @d28 2 a29 2 //! This timer code has be extensively re-written to clean //! up metastaility issues from the independant timer clock. d31 3 a33 1 //! \todo d85 1 a85 1 // CLKGEN d87 2 a88 3 // Details: // The Timer requires a 4.1 MHz clock. This design uses a PLL // instead of an oscillator. d91 2 a92 4 // Actually, the timerCLK runs at 8.2 MHz instead of 4.1 MHZ // because of a PLL limitation (can't divide by a large enough // number). Therefore there is an extra counter stage in the // timer. d94 3 a96 2 // Trace: // DPMC/E198 d98 1 a98 9 wire timerCLK; CLKGEN uCLKGEN (.clk(clk), .rst(rst), .timerCLK(timerCLK) ); d100 2 a101 1 // Timer Clock Synchronization d103 3 a105 15 // Details: // Synchronize timerCLK to the CPU clock domain. I.e., treat // timerCLK as an asynchronous input to the CPU. This 'clock' // input is synchronized by multiple levels of flip-flops to // mitgate meta-stability issues. // // Note: // timerINC is asserted for one clock cycle on the falling // edge of timerCLK. // // Trace: // The KS10 does this very differently any probably has // metastability issues. In fact, the microcode reads the timer // twice to ensure that it gets the same answer! See the RDTIME // entry point in the microcode. d108 3 a110 2 reg [0:2] d; reg timerINC; d115 1 a115 6 begin d[0] <= 1'b0; d[1] <= 1'b0; d[2] <= 1'b0; timerINC <= 1'b0; end d117 1 a117 6 begin d[0] <= timerCLK; d[1] <= d[0]; d[2] <= d[1]; timerINC <= ~d[2] & d[1]; end d120 2 d127 1 a127 1 // timer is implemented in microcode... d130 3 a132 8 // The timer has the up/down pin wired to the reset signal. // This doesn't make any sense. I have not implemented this. // // The timer is 13 bits instead of 12 bits because one bit // has been added to the LSB because the clock frequency is // 8.2 MHz instead of 4.1 MHz. // // This extra bit is used internally by the timer module only. d140 1 a140 1 reg [0:12] count; d145 1 a145 1 count <= 13'b0; d154 2 a155 2 // The timerIRQ signal is asserted on a timer overflow; // i.e., when MSB changes from '1' to '0'. d190 3 a192 4 // 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. d196 1 a196 1 assign timerCOUNT[24:33] = count[1:10]; @ 1.4 log @*** empty log message *** @ text @d11 1 a11 1 //! interrupt exactly every one millisecond. d24 6 a29 2 //! 10 microseconds and another clocked every 1 ms, supported by //! updated microcode. d70 1 a70 1 module TIMER(clk, rst, clken, crom, timerEN, timerINTR, timerCOUNT); d79 2 a80 2 output reg timerINTR; // Timer Interrupt output reg [24:35] timerCOUNT; // Timer output d84 12 a95 2 // The Timer requires a 4.1 MHz clock. Instead of an oscillator // we will employ a PLL. d99 1 a99 1 wire timerclk; d101 46 a146 3 CLKGEN uCLKGEN(.clk(clk), .rst(rst), .timerCLK(timerCLK)); d150 4 a153 3 // DPMC/E180 // DPMC/E189 // DPMC/E181 d159 10 a168 3 // The timerCLK runs at 8.2 MHz instead of 4.1 MHZ because // of a PLL limitation. Therefore there is an extra counter // stage. d170 1 a170 1 d173 1 a173 1 always @@(posedge timerCLK or posedge rst) d177 1 a177 1 else if (timerEN) d182 1 a182 3 // Change of clock domains // Note: The counter is synchronized with the main clock. This is a little // different than the KS10 d184 7 d192 9 a201 2 reg timerLAST; d206 2 a207 2 timerCOUNT <= 12'b0; timerLAST <= 1'b0; d211 5 a215 2 timerCOUNT <= count[0:9]; timerLAST <= timerCOUNT[24]; d218 1 a218 7 // // Interrupt Enable // The timerINTR signal is asserted on a timer overflow; // i.e., when MSB changes from '1' to '0'. // // Resetting the interrupt has priority over setting the interrupt. d220 5 a224 3 // DPMC/E56 // DPMC/E1 // DPMC/E3 a225 2 wire timerRST = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_CLR1MSEC); d227 4 a230 10 always @@(posedge clk or posedge rst) begin if (rst) timerINTR <= 1'b0; else if (clken) if (timerRST) timerINTR <= 1'b0; else if (timerEN & ~timerCOUNT[24] & timerLAST) timerINTR <= 1'b1; end @ 1.3 log @*** empty log message *** @ text @d37 1 a37 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d64 1 a64 1 `include "microcontroller/crom.vh" d66 1 a66 1 module TIMER(clk, rst, clken, crom, msec_en, msec_intr, msec_count); d74 3 a76 3 input msec_en; // Timer Enable output reg msec_intr; // Timer Interrupt output [0:11] msec_count; // Timer output d87 3 a89 1 CLKGEN uCLKGEN(.clk(clk), .rst(rst), .timerclk(timerclk)); d101 6 d108 7 a114 1 reg [0:11] count; d116 10 a125 1 always @@(posedge timerclk or posedge rst) d128 4 a131 1 count <= 12'b0; d134 2 a135 1 count <= count + 1'b1; d138 1 a138 1 d141 5 a145 2 // The msec_intr signal is asserted on a timer overflow; // i.e., MSB changes from '1' to '0'. d150 2 a151 3 wire reset_msec = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_CLR1MSEC); reg last; d156 6 a161 12 begin msec_intr <= 1'b0; last <= 1'b0; end else begin if (reset_msec) msec_intr <= 1'b0; else if (msec_en && (count[0] == 1'b0) && (last == 1'b1)) msec_intr <= 1'b1; last <= count[0]; end a162 2 assign msec_count = count; @ 1.1 log @Initial revision @ text @d102 1 a102 1 always @@(posedge clk or posedge rst) @ rtl/cpu/RCS/dbm.v,v0000444000175100010010000003277012053070260012463 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.21.06.11.59; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.20.22.59.43; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.14.22; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.01.05.47.52; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.44.25; author Rob; state Exp; branches; next ; desc @DBM @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! DBM Multiplexor //! //! \details //! //! \todo //! //! \notes //! //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | dbm | spec | | | | | | | //! | sel | sel | -> | sel1 | sel2 | sel3 | sel4 | sel5 | //! | 4 2 1 | 4 2 1 | -> | 4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 0 0 | x x x | -> | 0 0 0 | 0 0 0 | 0 0 0 | 0 0 0 | 0 0 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 0 1 | 0 0 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 0 1 | -> | 0 1 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 1 0 | -> | 0 0 1 | 0 1 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 0 1 1 | -> | 0 0 1 | 0 0 1 | 0 1 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 1 0 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 1 1 | 0 0 1 | //! | 0 0 1 | 1 0 1 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 1 1 | //! | 0 0 1 | 1 1 0 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! | 0 0 1 | 1 1 1 | -> | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | 0 0 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 1 0 | x x x | -> | 0 1 0 | 0 1 0 | 0 1 0 | 0 1 0 | 0 1 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 0 1 1 | 0 0 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 0 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 1 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 0 1 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 0 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 0 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 1 0 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! | 0 1 1 | 1 1 1 | -> | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | 0 1 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 0 0 | x x x | -> | 1 0 0 | 1 0 0 | 1 0 0 | 1 0 0 | 1 0 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 0 1 | x x x | -> | 1 0 1 | 1 0 1 | 1 0 1 | 1 0 1 | 1 0 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 1 0 | x x x | -> | 1 1 0 | 1 1 0 | 1 1 0 | 1 1 0 | 1 1 0 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! | 1 1 1 | x x x | -> | 1 1 1 | 1 1 1 | 1 1 1 | 1 1 1 | 1 1 1 | //! +-------+-------+----+-------+-------+-------+-------+-------+ //! //! \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 // `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 : case (`cromSPEC_SELBYTE) `cromSPEC_SELBYTE_1 : dbm = {dp[0:6], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_2 : dbm = {scad[1:7], dp[7:13], scad[1:7], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_3 : dbm = {scad[1:7], scad[1:7], dp[14:20], scad[1:7], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_4 : dbm = {scad[1:7], scad[1:7], scad[1:7], dp[21:27], scad[1:7], dp[35]}; `cromSPEC_SELBYTE_5 : dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[28:34], dp[35]}; default: dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; endcase `cromDBM_SEL_EXPTIME : dbm = {1'b0, scad[2:9], dp[9:17], timerCOUNT[18:35]}; `cromDBM_SEL_DP : dbm = dp[0:35]; `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 @ 1.4 log @*** empty log message *** @ text @d176 1 a176 1 dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[28:35], dp[35]}; @ 1.3 log @*** empty log message *** @ text @d87 2 a88 1 module DBM(crom, dbm0, dbm1, dbm2, dbm3, dbm4, dbm5, dbm6, dbm7, dbm); d92 64 a155 64 input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dbm0; // DBM input 0 input [0:35] dbm1; // DBM input 1 input [0:35] dbm2; // DBM input 2 input [0:35] dbm3; // DBM input 3 input [0:35] dbm4; // DBM input 4 input [0:35] dbm5; // DBM input 5 input [0:35] dbm6; // DBM input 6 input [0:35] dbm7; // DBM input 7 output reg [0:35] dbm; // DBM output // // DBM // wire [0:2] specSEL = `cromSPEC_SEL; wire [0:2] dbmSEL = `cromDBM_SEL; // // Selection // DPM1/E94 // DPM1/E72 // DPM1/E86 // wire [0:2] sel1 = (dbmSEL == `cromDBM_SEL_BYTES && specSEL == 3'b001) ? dbmSEL | 3'b010 : dbmSEL; wire [0:2] sel2 = (dbmSEL == `cromDBM_SEL_BYTES && specSEL == 3'b010) ? dbmSEL | 3'b010 : dbmSEL; wire [0:2] sel3 = (dbmSEL == `cromDBM_SEL_BYTES && specSEL == 3'b011) ? dbmSEL | 3'b010 : dbmSEL; wire [0:2] sel4 = (dbmSEL == `cromDBM_SEL_BYTES && specSEL == 3'b100) ? dbmSEL | 3'b010 : dbmSEL; wire [0:2] sel5 = (dbmSEL == `cromDBM_SEL_BYTES && specSEL == 3'b101) ? dbmSEL | 3'b010 : dbmSEL; // // DBM[0:5] MUX // DPM1/E58 // DPM1/E42 // DPM1/E34 // DPM1/E65 // DPM1/E50 // DPM1/E49 // DPM1/E57 // always @@(sel1 or dbm0[0:6] or dbm1[0:6] or dbm2[0:6] or dbm3[0:6] or dbm4[0:6] or dbm5[0:6] or dbm6[0:6] or dbm7[0:6]) begin case (sel1) 3'b000 : dbm[0:6] = dbm0[0:6]; 3'b001 : dbm[0:6] = dbm1[0:6]; 3'b010 : dbm[0:6] = dbm2[0:6]; 3'b011 : dbm[0:6] = dbm3[0:6]; 3'b100 : dbm[0:6] = dbm4[0:6]; 3'b101 : dbm[0:6] = dbm5[0:6]; 3'b110 : dbm[0:6] = dbm6[0:6]; 3'b111 : dbm[0:6] = dbm7[0:6]; endcase end a156 64 // DBM[7:13] MUX // DPM1/E64 // DPM1/E59 // DPM1/E80 // DPM1/E73 // DPM1/E79 // DPM1/E81 // DPM1/E98 // always @@(sel2 or dbm0[7:13] or dbm1[7:13] or dbm2[7:13] or dbm3[7:13] or dbm4[7:13] or dbm5[7:13] or dbm6[7:13] or dbm7[7:13]) begin case (sel2) 3'b000 : dbm[7:13] = dbm0[7:13]; 3'b001 : dbm[7:13] = dbm1[7:13]; 3'b010 : dbm[7:13] = dbm2[7:13]; 3'b011 : dbm[7:13] = dbm3[7:13]; 3'b100 : dbm[7:13] = dbm4[7:13]; 3'b101 : dbm[7:13] = dbm5[7:13]; 3'b110 : dbm[7:13] = dbm6[7:13]; 3'b111 : dbm[7:13] = dbm7[7:13]; endcase end // // DBM[14:20] MUX // DPM1/E88 // DPM1/E89 // DPM1/E95 // DPM1/E96 // DPM2/E104 // DPM2/E105 // DPM2/E106 // always @@(sel3 or dbm0[14:20] or dbm1[14:20] or dbm2[14:20] or dbm3[14:20] or dbm4[14:20] or dbm5[14:20] or dbm6[14:20] or dbm7[14:20]) begin case (sel3) 3'b000 : dbm[14:20] = dbm0[14:20]; 3'b001 : dbm[14:20] = dbm1[14:20]; 3'b010 : dbm[14:20] = dbm2[14:20]; 3'b011 : dbm[14:20] = dbm3[14:20]; 3'b100 : dbm[14:20] = dbm4[14:20]; 3'b101 : dbm[14:20] = dbm5[14:20]; 3'b110 : dbm[14:20] = dbm6[14:20]; 3'b111 : dbm[14:20] = dbm7[14:20]; endcase end d158 1 a158 32 // // DBM[21:27] MUX // DPM2/E112 // DPM2/E113 // DPM2/E120 // DPM2/E128 // DPM2/E143 // DPM2/E129 // DPM2/E121 // always @@(sel4 or dbm0[21:27] or dbm1[21:27] or dbm2[21:27] or dbm3[21:27] or dbm4[21:27] or dbm5[21:27] or dbm6[21:27] or dbm7[21:27]) begin case (sel4) 3'b000 : dbm[21:27] = dbm0[21:27]; 3'b001 : dbm[21:27] = dbm1[21:27]; 3'b010 : dbm[21:27] = dbm2[21:27]; 3'b011 : dbm[21:27] = dbm3[21:27]; 3'b100 : dbm[21:27] = dbm4[21:27]; 3'b101 : dbm[21:27] = dbm5[21:27]; 3'b110 : dbm[21:27] = dbm6[21:27]; 3'b111 : dbm[21:27] = dbm7[21:27]; endcase end d160 1 a160 13 // // DBM[28:35] MUX // DPM2/E173 // DPM2/E151 // DPM2/E166 // DPM2/E167 // DPM2/E172 // DPM2/E187 // DPM2/E165 // DPM2/E188 // always @@(sel5 or dbm0[28:35] or dbm1[28:35] or dbm2[28:35] or dbm3[28:35] or dbm4[28:35] or dbm5[28:35] or dbm6[28:35] or dbm7[28:35]) d162 30 a191 17 case (sel5) 3'b000 : dbm[28:35] = dbm0[28:35]; 3'b001 : dbm[28:35] = dbm1[28:35]; 3'b010 : dbm[28:35] = dbm2[28:35]; 3'b011 : dbm[28:35] = dbm3[28:35]; 3'b100 : dbm[28:35] = dbm4[28:35]; 3'b101 : dbm[28:35] = dbm5[28:35]; 3'b110 : dbm[28:35] = dbm6[28:35]; 3'b111 : dbm[28:35] = dbm7[28:35]; @ 1.2 log @*** empty log message *** @ text @d58 1 a58 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d85 1 a85 1 `include "microcontroller/crom.vh" @ rtl/cpu/RCS/ni_disp.v,v0000444000175100010010000001124712051556646013361 0ustar RobNonehead 1.6; access; symbols; locks; comment @# @; 1.6 date 2012.11.17.00.43.16; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.09.21.15.00; author E721269; state Exp; branches; next 1.4; 1.4 date 2012.11.04.02.40.19; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.03.05.19.30; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.40.07; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.43.29; author Rob; state Exp; branches; next ; desc @@ 1.6 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // module NI_DISP (aprFLAGS, pcFLAGS, consTRAPEN, cpuRUN, memory_cycle, dispNI); input [ 0:17] pcFLAGS; // PC Flags input [22:35] aprFLAGS; // APR Flags input consTRAPEN; // 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 @@(consTRAPEN or flagTRAPEN or trapSEL) begin if (consTRAPEN & 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 @ 1.5 log @*** empty log message *** @ text @d58 1 a58 1 // Trap Enable Flag d64 1 a64 1 // Trap Flags d69 6 a75 1 reg [1:3] traps; @ 1.4 log @*** empty log message *** @ text @d86 3 a88 1 // NICOND @ 1.3 log @*** empty log message *** @ text @d48 1 a48 1 module NI_DISP(run, memory_cycle, traps, dispNI); d50 34 a83 4 input run; // Run input memory_cycle; // Memory Cycle input [1:3] traps; // Traps output [8:11] dispNI; // Next Instruction dispatch d90 5 a94 1 wire halt = ~run; a95 6 assign dispNI[8] = memory_cycle; // Fetch in progress assign dispNI[9:11] = ((traps[3]) ? 3'd1 : (traps[2]) ? 3'd2 : (traps[1]) ? 3'd3 : (halt ) ? 3'd5 : 3'd7); @ 1.2 log @*** empty log message *** @ text @d21 1 a21 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.1 log @Initial revision @ text @d48 1 a48 1 module NI_DISP(run, memory_cycle, trap3, trap2, trap1, dispNI); d52 1 a52 3 input trap3; // Trap 3 input trap2; // Trap 2 input trap1; // Trap 1 d63 3 a65 3 assign dispNI[9:11] = ((trap3) ? 3'd1 : (trap2) ? 3'd2 : (trap1) ? 3'd3 : @ rtl/cpu/RCS/cpu.v,v0000444000175100010010000015122112053070442012503 0ustar RobNonehead 1.19; access; symbols; locks; comment @# @; 1.19 date 2012.11.21.06.13.51; author Rob; state Exp; branches; next 1.18; 1.18 date 2012.11.20.23.00.36; author Rob; state Exp; branches; next 1.17; 1.17 date 2012.11.19.16.04.37; author E721269; state Exp; branches; next 1.16; 1.16 date 2012.11.17.12.57.09; author Rob; state Exp; branches; next 1.15; 1.15 date 2012.11.17.00.46.00; author Rob; state Exp; branches; next 1.14; 1.14 date 2012.11.16.20.35.46; author Rob; state Exp; branches; next 1.13; 1.13 date 2012.11.13.22.26.43; author Rob; state Exp; branches; next 1.12; 1.12 date 2012.11.13.07.26.38; author Rob; state Exp; branches; next 1.11; 1.11 date 2012.11.12.07.28.12; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.11.04.34.13; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.09.21.27.30; author E721269; state Exp; branches; next 1.8; 1.8 date 2012.11.09.08.15.08; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.08.20.45.34; author E721269; state Exp; branches; next 1.6; 1.6 date 2012.11.07.07.19.29; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.05.07.00.45; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.05.04.51.16; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.04.02.43.10; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.11.03.05.14.05; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.01.05.47.15; author Rob; state Exp; branches; next ; desc @CPU @ 1.19 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" `include "useq/drom.vh" module CPU(clk, rst, consTIMEREN, consSTEP, consRUN, consEXEC, consCONT, consHALT, consTRAPEN, consCACHEEN, pwrINTR, consINTR, ubaINTR, curINTR_NUM, busREQ, busACK, busDATAI, busDATAO, busADDRO, cpuHALT, cpuRUN); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input consTIMEREN; // Timer Enable input consSTEP; // Single Step input consRUN; // Run input consEXEC; // Execute input consHALT; // HALT input consCONT; // Continue input consTRAPEN; // Enable Traps input consCACHEEN; // Enable Cache input pwrINTR; // Power Fail Interrupt Request input consINTR; // Console Interrupt Request input [ 1: 7] ubaINTR; // 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; // output cpuRUN; // // // 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 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 // // flags // wire mem_wait; wire stop_main_memory; wire memory_cycle = 1'b0; // FIXME wire iolatch; // FIXME wire cpuCONT; // wire JRST0; 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 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 flagCONS = aprFLAGS[31]; // Console interrupt wire flagINTREQ = aprFLAGS[32]; // Interrupt Request // // A Registers // wire [14:35] vmaADDR; // VMA Address wire [ 0:13] vmaFLAGS; // VMA Flags wire vmaUSER = vmaFLAGS[ 0]; // 1 = Use 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 // // 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, // Multiply dispatch 1'b0, 1'b0}; wire [ 8:11] dispNORM = {aluZERO, dp[8:9], // Normalize dispatch aluLSIGN}; wire [ 8:11] dispEA = {~JRST0, regIR_I, // EA Dispatch regXRZERO, 1'b0}; 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 TIMING uTIMING (.clk(clk), .rst(rst), .crom(crom), .drom(drom), .dp(dp), .feSIGN(feSIGN), .clkenDP(clkenDP), .clkenCR(clkenCR) ); // // 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), .pwrINTR(pwrINTR), .nxmINTR(nxmINTR), .consINTR(consINTR), .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), .busREQ(busREQ), .busACK(busACK), .busDATAO(busDATAO), .busADDRO(busADDRO) ); // // 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), .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), .ubaINTR(ubaINTR), .newINTR_NUM(newINTR_NUM), .curINTR_NUM(curINTR_NUM), .cpuINTR(cpuINTR) ); // // INTF // Console Interface // INTF uINTF (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .consRUN(consRUN), .consCONT(consCONT), .consEXEC(consEXEC), .consHALT(consHALT), .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), .JRST0(JRST0) ); // // 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), .consTRAPEN(consTRAPEN), .cpuRUN(cpuRUN), .memory_cycle(memory_cycle), .dispNI(dispNI) ); // // Page Tables // PAGE_TABLES uPAGE_TABLES (.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(consTIMEREN), .timerINTR(timerINTR), .timerCOUNT(timerCOUNT) ); // // Traps // TRAPS uTRAPS (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .pcFLAGS(pcFLAGS), .aprFLAGS(aprFLAGS), .consTRAPEN(consTRAPEN), .trapCYCLE(trapCYCLE) ); // // VMA // VMA uVMA (.clk(clk), .rst(rst), .clken(clkenDP), .crom(crom), .drom(drom), .dp(dp), .cpuEXEC(cpuEXEC), .prevEN(prevEN), .pcFLAGS(pcFLAGS), .vmaSWEEP(vmaSWEEP), .vmaEXTENDED(vmaEXTENDED), .vmaFLAGS(vmaFLAGS), .vmaADDR(vmaADDR) ); endmodule @ 1.18 log @*** empty log message *** @ text @d92 4 a95 4 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 d100 1 a100 1 wire aluZERO = aluLZero & aluRZero; // ALU (both halves) is zero d245 2 a246 4 wire [ 0: 9] sc; // Step Count wire scSIGN = sc[0]; // Step Count Sign wire [ 0: 9] fe; // Floating-point exponent wire feSIGN = fe[0]; // Floating-point exponent Sign d259 1 a259 1 aluLSign}; d276 2 a277 2 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, ~flagUSER, flagFPD, regACZERO, cpuINTR }; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, skipJFCL, aluCRY1, txxx }; d284 2 a285 2 wire clken; wire clkenUSEQ; d293 3 a295 3 .fe(fe), .clken(clken), .clkenUSEQ(clkenUSEQ) d305 1 a305 1 .clken(clken), d318 1 a318 1 .clken(clken), d321 4 a324 4 .aluLZero(aluLZero), .aluRZero(aluRZero), .aluLSign(aluLSign), .aluRSign(aluRSign), d342 1 a342 1 .clken(clken), d368 1 a368 1 .clken(clken), d406 1 a406 1 .clken(clken), d434 1 a434 1 .clken(clken), d447 1 a447 1 .clken(clken), d466 1 a466 1 .clken(clken), d485 1 a485 1 .clken(clken), d497 1 a497 1 .clken(clken), d513 1 a513 1 .clken(clkenUSEQ), d552 1 a552 1 .clken(clken), d569 1 a569 1 .clken(clken), d588 1 a588 1 .clken(clken), d608 1 a608 1 .clken(clken), d641 1 a641 1 .clken(clken), d644 2 a646 2 .sc(sc), .fe(fe), d657 1 a657 1 .clken(clken), d671 1 a671 1 .clken(clken), d686 1 a686 1 .clken(clken), @ 1.17 log @*** empty log message *** @ text @d235 2 a236 2 wire [ 0:35] dbus; // wire [ 0:35] dbm; // d245 1 a245 1 wire [ 0: 9] sc; // Step Count d247 1 a247 1 wire [ 0: 9] fe; // Floating-point exponent a282 13 // DBM inputs // wire [0:35] dbm0 = {scad[1:9], 8'b11111111, scadSIGN, dispPF, aprFLAGS}; wire [0:35] dbm1 = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; wire [0:35] dbm2 = {1'b0, scad[2:9], dp[9:17], timerCOUNT[18:35]}; wire [0:35] dbm3 = dp[0:35]; wire [0:35] dbm4 = {dp[18:35], dp[0:17]}; wire [0:35] dbm5 = {vmaFLAGS[0:13], vmaADDR[14:35]}; wire [0:35] dbm6 = busDATAI; wire [0:35] dbm7 = {`cromNUM, `cromNUM}; // d288 1 a288 1 d390 8 a397 8 .dbm0(dbm0), .dbm1(dbm1), .dbm2(dbm2), .dbm3(dbm3), .dbm4(dbm4), .dbm5(dbm5), .dbm6(dbm6), .dbm7(dbm7), a573 1 .dbm(dbm), a627 1 .dbm(dbm), @ 1.16 log @*** empty log message *** @ text @d245 4 a248 2 wire scSIGN; // Step Count Sign wire feSIGN; // Floating-point exponent Sign d300 2 d308 3 a310 1 .clken(clken) a334 1 .feSIGN(feSIGN), d528 1 a528 1 .clken(clken), d662 3 a664 3 .dispSCAD(dispSCAD), .scSIGN(scSIGN), .feSIGN(feSIGN) a666 1 @ 1.15 log @*** empty log message *** @ text @d302 2 a303 1 .vmaFLAGS(vmaFLAGS), d358 2 a359 1 .aprFLAGS(aprFLAGS) @ 1.14 log @*** empty log message *** @ text @d52 1 a52 1 pwrINTR, consINTR, ubaINTR, ubaINTA, d55 1 a55 1 d72 4 a75 4 output [ 1: 7] ubaINTA; // Unibus Interrupt Acknowledge output busREQ; // Bus Request input busACK; // Bus Acknowledge input [ 0:35] busDATAI; // Bus Data Input a81 6 // FIXME // wire [0: 2] bus_pi_current; // FIXME // a106 1 wire apr_int_req; d109 3 a111 5 wire memory_cycle = 1'b0; // FIXME wire cpuINTR; // Extenal Interrupt wire iolatch; // FIXME wire cpuCONT; // wire nxmINTR = 1'b0; // FIXME d116 1 a116 1 // Interrupt Registers d119 4 a122 1 wire [ 0: 2] pi_new; d222 1 a222 1 wire prevEN; // Conditionally use previous context d228 1 a228 1 wire cacheHIT = 1'b0; // FIXME: Cache not implemented. d256 1 a256 1 wire [ 8:11] dispMUL = {1'b0, aluQR37, // Multiply dispatch d258 1 a258 1 wire [ 8:11] dispNORM = {aluZERO, dp[8:9], // Normalize dispatch d260 1 a260 1 wire [ 8:11] dispEA = {~JRST0, regIR_I, // EA Dispatch d268 3 a270 3 wire [0: 3] debugADDR; // DEBUG Address wire [0:35] debugDATA; // DEBUG Data d295 1 a295 1 // d305 1 a305 1 d389 1 a389 1 d418 1 a418 1 d428 1 a428 1 .pcFLAGS({pcFLAGS, 1'b0, pi_new, 4'b1111, vmaADDR[26:35]}), d459 1 d461 3 a463 5 .ubaINTA(ubaINTA), .cpuINTR(cpuINTR), .pi_new(pi_new), .pi_current(bus_pi_current), .pi_on(pi_on) d486 1 a486 1 // d593 1 a593 1 d609 1 a609 1 d709 1 a709 1 @ 1.13 log @*** empty log message *** @ text @d50 3 a52 4 module CPU(clk, rst, clken, consTIMEREN, consSTEP, consRUN, consEXEC, consCONT, consHALT, consTRAPEN, consCACHEEN, pwrIRQ, consIRQ, ubaIRQ, a60 1 input clken; // Clock enable d69 4 a72 3 input pwrIRQ; // Power Fail Interrupt Request input consIRQ; // Console Interrupt Request input [ 1: 7] ubaIRQ; // Unibus Interrupt Request a84 1 wire [1: 7] bus_pi_req_out; // FIXME d107 1 a107 1 wire txxx = (aluZERO != `dromTXXXEN); // Test Instruction Results d116 2 a117 2 wire memory_cycle = 1'b0; // FIXME wire cpuIRQ; // Extenal Interrupt d120 1 a120 1 wire nxmIRQ = 1'b0; // FIXME d208 1 a208 1 wire timerIRQ; // Timer Interrupt d228 1 a228 1 wire prevEN; d258 11 a268 8 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 = {~JRST0, regIR_I, regXRZERO, 1'b0}; // EA Dispatch wire [ 0:11] dispDIAG = 12'b0; // Diagnostic Dispatch a271 1 // synthesis translate_off a276 2 // synthesis translate_on d282 3 a284 3 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, ~flagUSER, flagFPD, regACZERO, cpuIRQ }; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, skipJFCL, aluCRY1, txxx }; wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, cpuEXEC, iolatch, ~cpuCONT, ~timerIRQ}; d300 13 d360 4 a363 5 .pwrIRQ(pwrIRQ), .nxmIRQ(nxmIRQ), .consIRQ(consIRQ), .aprFLAGS(aprFLAGS), .bus_pi_req_out(bus_pi_req_out) a414 1 // synthesis translate_off a424 2 // synthesis translate_on d431 1 a434 1 .cacheHIT(cacheHIT), d464 4 a467 2 .ubaIRQ(ubaIRQ), .cpuIRQ(cpuIRQ), d611 3 a613 3 .cpuIRQ(cpuIRQ), .nxmIRQ(nxmIRQ), .timerIRQ(timerIRQ), d678 1 a678 1 .timerIRQ(timerIRQ), @ 1.12 log @*** empty log message *** @ text @d270 10 d334 3 a336 1 .aluOUT(dp) d405 1 a407 1 /* d412 2 a413 3 .crom(crom), .dp(dp), .debug(debug) d415 2 a416 1 */ d630 2 @ 1.11 log @*** empty log message *** @ text @d53 3 a55 3 cpuADDR, pwrIRQ, consIRQ, ubaIRQ, nxmIRQ, cpuDIN, cpuACK, cpuDOUT, cpuWRITE, cpuREAD, cpuIO, cpuCONT, cpuHALT, cpuRUN); d74 5 a78 9 input nxmIRQ; // Memory (non-existant) Request input cpuACK; // input [ 0:35] cpuDIN; // output [14:35] cpuADDR; // output [ 0:35] cpuDOUT; // output cpuWRITE; // Memory/IO Write output cpuREAD; // Memory/IO Read output cpuIO; // Memory / IO output cpuCONT; // d120 3 a122 1 wire iolatch; d124 1 a124 1 wire indirect; d233 6 a244 1 wire [ 0:35] mb; // Memory Buffer a256 6 // Traps // wire trapCYCLE; // d274 2 a275 2 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, ~flagUSER, flagFPD, regACZERO, cpuIRQ}; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, skipJFCL, aluCRY1, txxx}; d288 1 a288 1 wire [0:35] dbm6 = mb[0:35]; a352 2 /* d354 1 a354 1 // KS10 Bus d361 1 d363 1 d365 7 a371 1 .busDATA(busDATA) d373 1 a373 2 */ d415 1 a692 8 assign cpuADDR = vmaADDR; assign mb = cpuDIN; assign cpuREAD = vmaREADCYCLE; assign cpuWRITE = vmaWRITECYCLE; assign cpuIO = vmaIOCYCLE; assign cpuDOUT = dp; @ 1.10 log @*** empty log message *** @ text @d277 3 a279 3 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, ~flagUSER, flagFPD, regACZERO, cpuIRQ}; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, skipJFCL, aluCRY1, txxx}; wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, cpuEXEC, iolatch, ~cpuCONT, ~timerIRQ}; @ 1.9 log @*** empty log message *** @ text @a124 1 wire forceRAMFILE = 1'b0; // FIXME d410 2 a411 1 .forceRAMFILE(forceRAMFILE), @ 1.8 log @*** empty log message *** @ text @d452 1 @ 1.7 log @*** empty log message *** @ text @d53 2 a54 2 cpuADDR, pwrIRQ, consIRQ, ubiIRQ, nxmIRQ, cpuDIN, cpuDOUT, cpuWRITE, cpuREAD, d73 1 a73 1 input [ 1: 7] ubiIRQ; // Unibus Interrupt Request d75 1 d79 3 a81 2 output cpuWRITE; // output cpuREAD; // d278 1 a278 1 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, flagUSER, flagFPD, regACZERO, cpuIRQ}; d280 1 a280 1 wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, cpuEXEC, iolatch, ~cpuCONT, timerIRQ}; d391 15 d442 1 a442 1 .ubiIRQ(ubiIRQ), d695 1 @ 1.6 log @*** empty log message *** @ text @d53 4 a56 8 pwrIRQ, consIRQ, ubiIRQ, nxmIRQ, bus_data_in, bus_data_out, bus_pi_req_out, bus_pi_current, cpuCONT, cpuHALT, cpuRUN, crom, dp, pageADDR); d60 23 a82 27 input clk; // Clock input rst; // Reset input clken; // Clock enable input consTIMEREN; // Timer Enable input consSTEP; // Single Step input consRUN; // Run input consEXEC; // Execute input consHALT; // HALT input consCONT; // Continue input consTRAPEN; // Enable Traps input consCACHEEN; // Enable Cache input pwrIRQ; // Power Fail Interrupt Request input consIRQ; // Console Interrupt Request input [1: 7] ubiIRQ; // Unibus Interrupt Request input nxmIRQ; // Memory (non-existant) Request output [1: 7] bus_pi_req_out; output [0: 2] bus_pi_current; input [0:35] bus_data_in; output [0:35] bus_data_out; output cpuCONT; output cpuHALT; output cpuRUN; output [0:cromWidth-1] crom; // Control ROM output [0:35] dp; // ALU Output Bus output [16:26] pageADDR; d85 7 d95 2 a96 1 wire [0:dromWidth-1] drom; // Dispatch ROM d102 10 a111 10 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 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 d120 2 a121 2 wire memory_cycle = 1'b0; // FIXME wire cpuIRQ; // Extenal Interrupt d123 1 a123 1 wire forceRAMFILE = 1'b0; // FIXME d137 3 a139 3 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 d145 13 a157 13 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 d163 9 a171 9 wire [22:35] aprFLAGS; // Arithmetic Processor Flags wire flagTRAPEN = aprFLAGS[22]; // Traps are enabled wire flagPAGEEN = aprFLAGS[23]; // Paging is enabled 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 flagCONS = aprFLAGS[31]; // Console interrupt wire flagINTREQ = aprFLAGS[32]; // Interrupt Request d177 2 a178 2 wire [14:35] vmaADDR; // VMA Address wire [ 0:13] vmaFLAGS; // VMA Flags d183 1 a183 1 wire vmaWRTESTCYCLE = vmaFLAGS[ 4]; // 1 = Perform write test for page fail d187 2 a188 2 wire vmaPHYSICAL = vmaFLAGS[ 8]; // 1 = Physical reference wire vmaPREVIOUS = vmaFLAGS[ 9]; // d198 8 a205 8 wire pageFAIL = 1'b0; // Page Fail FIXME // wire [16:26] pageADDR; 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 d211 2 a212 2 wire timerIRQ; // Timer Interrupt wire [18:35] timerCOUNT; // Millisecond timer d218 8 a225 8 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 d237 5 a241 5 wire [ 0:35] dp; // ALU output bus wire [ 0:35] dbus; // wire [ 0:35] dbm; // wire [ 0:35] mb = 36'b0; // FIXME Memory Buffer wire [ 0:35] ramfile; // RAMFILE output d248 3 a250 3 wire scadSIGN = scad[0]; // SCAD Sign wire scSIGN; // Step Count Sign wire feSIGN; // Floating-point exponent Sign d263 1 a263 1 wire [ 8:11] dispPF; // Page Fail dispatch d269 1 a269 1 wire [ 0:11] dispDIAG = 12'b0; // Diagnostic Dispatch d451 2 a452 2 // // d608 1 a608 1 // d673 7 @ 1.5 log @*** empty log message *** @ text @d53 3 a55 1 intPWR, intCONS, d57 1 a57 1 bus_pi_req_in, bus_pi_req_out, bus_pi_current, d59 1 a59 1 crom, dp, pageNUMBER); d75 4 a78 2 input intPWR; // Power Fail Interrupt input intCONS; // Console Interrupt a79 1 input [1: 7] bus_pi_req_in; d90 1 a90 1 output [16:26] pageNUMBER; d96 1 a96 1 wire [0:dromWidth-1] drom; // Dispatch ROM d102 10 a111 10 wire aluLZero; wire aluRZero; wire aluLSign; wire aluRSign; wire aluCRY0; wire aluCRY1; wire aluCRY2; wire aluQR37; wire aluZERO = aluLZero & aluRZero; wire txxx = (aluZERO != `dromTXXXEN); d120 2 a121 2 wire memory_cycle = 1'b0; // FIXME wire interrupt_req; d123 1 a123 2 wire intNXM = 1'b0; // FIXME wire forceRAMFILE = 1'b0; // FIXME d137 3 a139 3 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 d145 13 a157 13 wire [ 0:17] pcFLAGS; wire flagAOV = pcFLAGS[ 0]; wire flagCRY0 = pcFLAGS[ 1]; wire flagCRY1 = pcFLAGS[ 2]; wire flagFOV = pcFLAGS[ 3]; wire flagFPD = pcFLAGS[ 4]; wire flagUSER = pcFLAGS[ 5]; wire flagUSERIO = pcFLAGS[ 6]; wire flagPCU = pcFLAGS[ 6]; wire flagTRAP2 = pcFLAGS[ 9]; wire flagTRAP1 = pcFLAGS[10]; wire flagFXU = pcFLAGS[11]; wire flagNODIV = pcFLAGS[12]; d163 9 a171 9 wire [22:35] aprFLAGS; wire flagTRAPEN = aprFLAGS[22]; wire flagPAGEEN = aprFLAGS[23]; wire flagPWR = aprFLAGS[26]; wire flagNXM = aprFLAGS[27]; wire flagBADDATA = aprFLAGS[28]; wire flagCORDATA = aprFLAGS[29]; wire flagCONS = aprFLAGS[31]; wire flagINTREG = aprFLAGS[32]; d177 16 a192 16 wire [ 0:13] vmaFLAGS; wire [14:35] vmaADDR; wire vmaUSER = vmaFLAGS[ 0]; wire vmaEXEC = vmaFLAGS[ 1]; wire vmaFETCH = vmaFLAGS[ 2]; wire vmaREADCYCLE = vmaFLAGS[ 3]; // 1 = Read Cycle (IO or Memory) wire vmaWRTESTCYCLE = vmaFLAGS[ 4]; wire vmaWRITECYCLE = vmaFLAGS[ 5]; // 1 = Write Cycle (IO or Memory) wire vmaIORDWR = vmaFLAGS[ 6]; wire vmaCACHEIHN = vmaFLAGS[ 7]; wire vmaPHYSICAL = vmaFLAGS[ 8]; wire vmaPREVIOUS = vmaFLAGS[ 9]; wire vmaIOCYCLE = vmaFLAGS[10]; // 0 = Memory Cycle, 1 = IO 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 d198 8 a205 6 wire pageFAIL = 1'b0; // FIXME wire pageVALID; wire pageWRITEABLE; wire pageCACHEABLE; wire pageUSER; // wire [16:26] pageNUMBER; d211 2 a212 3 wire timerINTR; wire [24:35] timerCOUNT; // Millisecond timer d218 8 a225 8 wire [ 0:17] regIR; wire [ 0: 8] regIR_OPCODE = regIR[ 0: 8]; wire [ 9:12] regIR_AC = regIR[ 9:12]; wire regIR_I = regIR[13]; wire [14:17] regIR_XR = regIR[14:17]; wire regACZERO = (regIR_AC == 4'b0000); wire regXRZERO = (regIR_XR == 4'b0000); wire xrPREV; d237 5 a241 5 wire [ 0:35] dp; // ALU output bus wire [ 0:35] dbus; // wire [ 0:35] dbm; // wire [ 0:35] mb = 36'b0; // FIXME Memory Buffer wire [ 0:35] ramfile; // RAMFILE output d248 3 a250 4 wire [ 0: 9] sc; wire scSIGN = sc[0]; wire [ 0: 9] fe; wire feSIGN = fe[0]; a261 1 wire [ 8:11] dispSCAD; // SCAD dispatch d263 1 d265 1 a266 1 wire [ 8:11] dispPF = 4'b0000; // Page Fail dispatch (depricated) d269 1 a269 1 wire [ 0:11] dispDIAG = 12'b0000_0000_0000; // Diagnostic Dispatch d276 3 a278 6 wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, flagUSER, flagFPD, regACZERO, interrupt_req}; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, skipJFCL, aluCRY1, txxx}; wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, cpuEXEC, iolatch, ~cpuCONT, timerINTR}; d284 1 a284 1 wire [0:35] dbm0 = {scad[1:9], 8'b11111111, scad[0], aprFLAGS}; d286 1 a286 1 wire [0:35] dbm2 = {1'b0, scad[2:9], dp[9:17], 6'b111111, timerCOUNT}; d315 1 d339 3 a341 4 .intPWR(intPWR), .intNXM(intNXM), .intBADDATA(1'b0), .intCONS(intCONS), d425 2 a426 2 .bus_pi_req_in(bus_pi_req_in), .interrupt_req(interrupt_req), d531 2 a532 5 .pageVALID(pageVALID), .pageWRITEABLE(pageWRITEABLE), .pageCACHEABLE(pageCACHEABLE), .pageUSER(pageUSER), .pageNUMBER(pageNUMBER) d556 20 d616 1 d618 3 a620 4 .dp(dp), .sc(sc), .fe(fe), .dispSCAD(dispSCAD) d634 1 a634 1 .timerINTR(timerINTR), @ 1.4 log @*** empty log message *** @ text @d135 3 a137 3 wire [ 0: 5] acBLOCK // wire [ 0: 2] currBLOCK = acBLOCK[0:2]; // wire [ 0: 2] prevBLOCK = acBLOCK[3:5]; // a190 1 wire vmaACREF; d295 1 a295 1 // d304 1 a304 1 .acBLOCK(acBLOCK), a314 1 .dbus(dbus), d316 1 d326 1 a326 1 .t(dp) d650 1 a650 2 .flagPCU(flagPCU), .flagUSER(flagUSER), a652 1 .vmaACREF(vmaACREF), @ 1.3 log @*** empty log message *** @ text @d126 1 a126 1 // Registers d130 8 a137 2 wire [ 0: 2] curr_block; // wire [ 0: 2] prev_block; // a228 2 wire [ 9:12] pxct; wire pxctON; d305 1 a305 2 .curr_block(curr_block), .prev_block(prev_block) d570 1 a570 3 .pxctON(pxctON), .prevEN(prevEN), .pxct(pxct) d586 1 d588 1 a588 4 .vmaPHYSICAL(vmaPHYSICAL), .vmaPREVIOUS(vmaPREVIOUS), .previous_block(prev_block), .current_block(curr_block), @ 1.2 log @*** empty log message *** @ text @d50 8 a57 7 module CPU(clk, rst, clken, consTIMEREN, consSTEP, consRUN, consEXEC, consCONT, consTRAPEN, consCACHEEN, intPWR, intCONS, bus_data_in, bus_data_out, bus_pi_req_in, bus_pi_req_out, bus_pi_current, crom, dp, pageNUMBER); d65 2 a66 2 input consTIMEREN; // Timer Enable input consSTEP; // Single Step d69 1 d73 2 a74 2 input intPWR; // Power Fail Interrupt input intCONS; // Console Interrupt d81 4 a84 1 d87 1 a87 1 output [16:26] pageNUMBER; d92 1 a92 1 d94 1 a94 1 a112 1 a120 1 wire intBADDATA = 1'b0; // FIXME d124 1 a124 1 d132 1 a132 1 d154 1 a154 1 d156 2 a157 2 wire trapEN = aprFLAGS[22]; wire pageEN = aprFLAGS[23]; d168 1 a168 1 d174 1 a174 1 wire vmaREADCYCLE = vmaFLAGS[ 3]; // 1 = Read Cycle (IO or Memory) d176 1 a176 1 wire vmaWRITECYCLE = vmaFLAGS[ 5]; // 1 = Write Cycle (IO or Memory) d179 1 a179 1 wire vmaPHYSICAL = vmaFLAGS[ 8]; d181 4 a184 4 wire vmaIOCYCLE = vmaFLAGS[10]; // 0 = Memory Cycle, 1 = IO 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 d190 1 a190 1 d204 2 a205 2 d226 1 a226 1 d236 1 a236 1 d240 1 a240 1 a250 1 wire [3:1] traps; d252 1 a252 1 d256 1 a256 1 d263 1 a263 1 wire [ 8:11] dispEA = {~JRST0, regIR_I, regXRZERO, 1'b0}; // EA Dispatch d275 2 a276 2 wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, consEXEC, iolatch, ~consCONT, timerINTR}; d281 1 a281 1 d294 11 a304 9 AC_BLOCK uAC_BLOCK(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .curr_block(curr_block), .prev_block(prev_block)); d309 17 a325 15 ALU uALU(.clk(clk), .rst(rst), .clken(clken), .dbus(dbus), .crom(crom), .aluLZero(aluLZero), .aluRZero(aluRZero), .aluLSign(aluLSign), .aluRSign(aluRSign), .aluAOV(aluAOV), .aluCRY0(aluCRY0), .aluCRY1(aluCRY1), .aluCRY2(aluCRY2), .aluQR37(aluQR37), .t(dp)); d331 13 a343 11 APR uAPR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .intPWR(intPWR), .intNXM(intNXM), .intBADDATA(intBADDATA), .intCONS(intCONS), .aprFLAGS(aprFLAGS), .bus_pi_req_out(bus_pi_req_out)); d349 4 a352 2 BYTE_DISP uBYTE_DISP(.dp(dp), .dispBYTE(dispBYTE)); d355 14 a368 8 BUS uBUS(.clk(clk), .rst(rst), .clken(clken), .dp(dp), .vmaFLAGS(vmaFLAGS), .busDATA(busDATA)); */ d374 12 a385 10 DBM uDBM(.crom(crom), .dbm0(dbm0), .dbm1(dbm1), .dbm2(dbm2), .dbm3(dbm3), .dbm4(dbm4), .dbm5(dbm5), .dbm6(dbm6), .dbm7(dbm7), .dbm(dbm)); d391 9 a399 7 DBUS uDBUS(.crom(crom), .forceRAMFILE(forceRAMFILE), .pcFLAGS({pcFLAGS, 1'b0, pi_new, 4'b1111, vmaADDR[26:35]}), .dp(dp), .ramfile(ramfile), .dbm(dbm), .dbus(dbus)); d405 8 a412 6 DROM uDROM(.clk(clk), .rst(rst), .clken(clken), .dbus(dbus), .crom(crom), .drom(drom)); d417 33 a449 12 INTR uINTR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .bus_pi_req_in(bus_pi_req_in), .interrupt_req(interrupt_req), .pi_new(pi_new), .pi_current(bus_pi_current), .pi_on(pi_on)); d453 9 a461 7 IOLATCH uIOLATCH(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .iolatch(iolatch)); d466 12 a477 10 regIR uIR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dbus(dbus), .prevEN(prevEN), .regIR(regIR), .xrPREV(xrPREV), .JRST0(JRST0)); d482 22 a503 20 USEQ uUSEQ(.clk(clk), .rst(rst), .clken(clken), .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)); d507 9 a515 5 NI_DISP uNI_DISP(.run(consRUN), .memory_cycle(memory_cycle), .traps(traps), .dispNI(dispNI)); d520 17 a536 15 PAGE_TABLES uPAGE_TABLES(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .vmaADDR(vmaADDR), .vmaFLAGS(vmaFLAGS), .pageVALID(pageVALID), .pageWRITEABLE(pageWRITEABLE), .pageCACHEABLE(pageCACHEABLE), .pageUSER(pageUSER), .pageNUMBER(pageNUMBER)); d541 30 a570 26 PCFLAGS uPCFLAGS(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .dbm(dbm), .scad(scad), .regIR(regIR), .aluAOV(aluAOV), .aluCRY0(aluCRY0), .aluCRY1(aluCRY1), .pcFLAGS(pcFLAGS), .skipJFCL(skipJFCL)); // // Pxct // PXCT uPXCT(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .pxctON(pxctON), .prevEN(prevEN), .pxct(pxct)); d576 17 a592 15 RAMFILE uRAMFILE(.clk(clk), .rst(rst), .clken(1'b1), .crom(crom), .dbus(dbus), .dbm(dbm), .regIR(regIR), .xrPREV(xrPREV), .vmaADDR(vmaADDR), .vmaPHYSICAL(vmaPHYSICAL), .vmaPREVIOUS(vmaPREVIOUS), .previous_block(prev_block), .current_block(curr_block), .ramfile(ramfile)); d597 12 a608 9 SCAD uSCAD(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .scad(scad), .dp(dp), .sc(sc), .fe(fe), .dispSCAD(dispSCAD)); d613 10 a622 8 TIMER uTIMER(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .timerEN(consTIMEREN), .timerINTR(timerINTR), .timerCOUNT(timerCOUNT)); d627 12 a638 12 TRAPS uTRAPS(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .pcFLAGS(pcFLAGS), .consTRAPEN(consTRAPEN), .trapEN(trapEN), .traps(traps), .trapCYCLE(trapCYCLE)); a641 18 VMA uVMA(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .consEXEC(consEXEC), .prevEN(prevEN), .flagPCU(flagPCU), .flagUSER(flagUSER), .vmaSWEEP(vmaSWEEP), .vmaEXTENDED(vmaEXTENDED), .vmaACREF(vmaACREF), .vmaFLAGS(vmaFLAGS), .vmaADDR(vmaADDR)); endmodule d643 17 d661 1 @ 1.1 log @Initial revision @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle d274 1 a274 1 iolatch, consCONT, timerINTR}; @ rtl/cpu/RCS/config.vh,v0000444000175100010010000000376012047014676013347 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.08.20.44.43; author E721269; state Exp; branches; next 1.1; 1.1 date 2012.11.03.05.13.36; author Rob; state Exp; branches; next ; desc @Configuration[4~ @ 1.2 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Global Configuration Information //! //! \details //! //! \todo //! //! \file //! config.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 INITRAM // Initialize am2901 RAM `define INITREGS // Initialize various registers to zero `define INITMEM // Load code into memory @ 1.1 log @Initial revision @ text @d47 3 a49 2 `undef INITRAM `undef INITREGS @ rtl/cpu/RCS/dbus.v,v0000444000175100010010000002023212053005450012643 0ustar RobNonehead 1.11; access; symbols; locks; comment @# @; 1.11 date 2012.11.20.22.58.47; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.19.15.57.51; author E721269; state Exp; branches; next 1.9; 1.9 date 2012.11.16.20.36.06; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.13.07.25.33; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.11.04.33.14; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.09.21.21.13; author E721269; state Exp; branches; next 1.5; 1.5 date 2012.11.03.05.19.11; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.01.05.48.17; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.20.02.42.19; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.12.06.27.02; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.44.37; author Rob; state Exp; branches; next ; desc @DBUS @ 1.11 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.10 log @*** empty log message *** @ text @d6 1 a6 1 //! DBUS Multiplexor a141 1 @ 1.9 log @*** empty log message *** @ text @d95 4 d104 1 a104 1 wire forceRAMFILE = ((vmaACREF & vmaREADCYCLE) | @ 1.8 log @*** empty log message *** @ text @d49 1 a49 1 module DBUS(crom, vmaADDR, vmaFLAGS, pcFLAGS, cacheHIT, dp, d55 1 a58 1 input cacheHIT; // Cache Hit @ 1.7 log @*** empty log message *** @ text @d49 2 a50 1 module DBUS(crom, vmaADDR, vmaFLAGS, pcFLAGS, dp, ramfile, dbm, dbus); d58 1 a98 2 wire cacheHIT = 1'b0; // FIXME @ 1.6 log @*** empty log message *** @ text @d49 1 a49 1 module DBUS(crom, forceRAMFILE, pcFLAGS, dp, ramfile, dbm, dbus); d54 7 a60 6 input forceRAMFILE; // Force Ramfile 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 d63 1 a63 1 // Microcode Decode d65 19 a83 2 wire [0:1] cromDBUS_SEL = `cromDBUS_SEL; d88 5 d94 2 a95 1 // DPE3/E70 (force ramfile) d98 4 a101 6 wire [0:1] dbusSEL = cromDBUS_SEL; /* FIXME: forceRAMFILE is broken and is stubbed out reg [0:1] dbusSEL; a102 9 always @@(cromDBUS_SEL or forceRAMFILE) begin if (forceRAMFILE && (cromDBUS_SEL == `cromDBUS_SEL_DBM)) dbusSEL <= `cromDBUS_SEL_RAM; else dbusSEL <= cromDBUS_SEL; end */ a110 1 // DPE3/E72 d112 1 a112 1 // DPE3/E73 a113 1 // DPE3/E100 d115 3 d119 1 a119 1 // DPE3/E40 d121 2 a122 2 always @@(dbusSEL or pcFLAGS or dp or ramfile or dbm) d124 1 a124 1 case (dbusSEL) d129 1 a129 1 `cromDBUS_SEL_RAM: d132 4 a135 1 dbus = dbm; @ 1.5 log @*** empty log message *** @ text @d61 4 d69 2 d77 2 d92 5 @ 1.4 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.3 log @*** empty log message *** @ text @d47 1 a47 1 `include "microcontroller/crom.vh" d49 1 a49 1 module DBUS(crom, force_ramfile, pcFLAGS, dp, ram, dbm, dbus); d54 1 a54 1 input force_ramfile; // Force Ramfile d57 1 a57 1 input [0:35] ram; // RAM File d68 3 d73 1 a73 1 always @@(cromDBUS_SEL or force_ramfile) d75 1 a75 1 if (force_ramfile && (cromDBUS_SEL == `cromDBUS_SEL_DBM)) d80 2 a81 1 d95 1 a95 1 always @@(dbusSEL or pcFLAGS or dp or ram or dbm) d103 1 a103 1 dbus = ram; @ 1.2 log @*** empty log message *** @ text @d49 1 a49 1 module DBUS(crom, force_ramfile, flags, dp, ram, dbm, dbus); d55 1 a55 1 input [0:35] flags; // PC Flags in Left Half d69 1 a69 1 d91 1 a91 1 always @@(dbusSEL or flags or dp or ram or dbm) d95 1 a95 1 dbus = flags; @ 1.1 log @Initial revision @ text @d55 1 a55 1 input [0:35] flags; // PC Flags in Left Half d61 17 a88 1 // DPE3/E70 (force ramfile) a89 3 wire [0:1] cromDBUS = `cromDBUS; wire [0:1] dbusSEL = {cromDBUS[0], cromDBUS[1] & ~(cromDBUS[0] & force_ramfile)}; d94 1 a94 1 `cromDBUS_FLAGS: d96 1 a96 1 `cromDBUS_DP: d98 1 a98 1 `cromDBUS_RAM: d100 1 a100 1 `cromDBUS_DBM: @ rtl/cpu/RCS/intf.v,v0000444000175100010010000001206412047135506012663 0ustar RobNonehead 1.2; access; symbols; locks; comment @# @; 1.2 date 2012.11.09.08.13.54; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.11.04.02.41.11; author Rob; state Exp; branches; next ; desc @@ 1.2 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `include "useq/crom.vh" module INTF(clk, rst, clken, crom, consRUN, consCONT, consEXEC, consHALT, 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 consRUN; // Console Run Switch input consCONT; // Console Continue Switch input consEXEC; // Console Execute Switch input consHALT; // 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 (consRUN) 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 (consEXEC) 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 (consCONT) cpuCONT <= 1'b1; else if (specCONS & `cromCONS_CLR_CONT) cpuCONT <= 1'b0; end end endmodule @ 1.1 log @Initial revision @ text @d76 1 a76 1 wire consEN = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_CONS); d80 2 d91 1 a91 1 else if (clken & consEN) d93 1 a93 1 if (`cromCONS_SET_HALT) d95 1 a95 1 else if (`cromCONS_CLR_HALT) d102 2 d112 1 a112 1 else if (clken & consEN) d116 1 a116 1 else if (`cromCONS_CLR_RUN) d123 2 d133 1 a133 1 else if (clken & consEN) d137 1 a137 1 else if (`cromCONS_CLR_EXEC) d144 2 d154 1 a154 1 else if (clken & consEN) d158 1 a158 1 else if (`cromCONS_CLR_CONT) @ rtl/cpu/RCS/page_tables.v,v0000444000175100010010000003024412047271010014160 0ustar RobNonehead 1.6; access; symbols; locks; comment @# @; 1.6 date 2012.11.09.21.13.43; author E721269; state Exp; branches; next 1.5; 1.5 date 2012.11.07.07.16.31; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.23.44; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.43.29; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.20.02.46.46; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.10.12.02.44.57; author Rob; state Exp; branches; next ; desc @Page Tables @ 1.6 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Page Tables //! //! \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 //! page_table.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 // `include "useq/crom.vh" `include "useq/drom.vh" module PAGE_TABLES(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 vmaUSER = vmaFLAGS[0]; // // VMA Logic // DPE5/E76 // DPE6/E53 // wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE ); wire pageWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA ) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA)); wire [0: 8] virtPAGE = vmaADDR[18:26]; wire [0:15] din = {dp[18], dp[21:22], vmaUSER, 1'b0, dp[25:35]}; // // Page memory // // 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 add 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: 8] readADDR; reg [0:15] pageTABLE1[0:255]; reg [0:15] pageTABLE2[0:255]; always @@(posedge clk or posedge rst) begin if (rst) readADDR <= 9'b0; else if (clken & vmaEN) begin readADDR <= virtPAGE; if (pageWRITE) begin if (~virtPAGE[0] | sweep) pageTABLE1[virtPAGE[1:8]] <= din; if ( virtPAGE[0] | sweep) pageTABLE2[virtPAGE[1:8]] <= din; end end end // // Page Table Read // wire [0:15] dout = (readADDR[0]) ? pageTABLE2[readADDR[1:8]] : pageTABLE1[readADDR[1:8]]; // // Fixup Page RAM data // assign pageFLAGS = dout[0: 4]; assign pageADDR = dout[5:15]; endmodule @ 1.5 log @*** empty log message *** @ text @d117 2 d127 11 a137 13 // // Even Memory // DPM6/E130 // DPM6/E154 // DPM6/E162 // DPM6/E184 // // Odd Memory // DPM6/E138 // DPM6/E146 // DPM6/E176 // DPM6/E192 @ 1.4 log @*** empty log message *** @ text @d78 2 a79 6 module PAGE_TABLES(clk, rst, clken, crom, drom, dp, vmaFLAGS, vmaADDR, pageVALID, pageWRITEABLE, pageCACHEABLE, pageUSER, pageNUMBER); d92 2 a93 5 output pageVALID; // output pageWRITEABLE; // output pageCACHEABLE; // output pageUSER; // output [16:26] pageNUMBER; // d99 1 a99 1 wire vmaUSER = vmaFLAGS[ 0]; d165 2 a166 2 wire [0:15] dout = (readADDR[0]) ? pageTABLE2[readADDR[1:8]] : pageTABLE1[readADDR[1:8]]; d171 2 a172 5 assign pageVALID = dout[0]; assign pageWRITEABLE = dout[1]; assign pageCACHEABLE = dout[2]; assign pageUSER = dout[3]; assign pageNUMBER = dout[5:15]; @ 1.3 log @*** empty log message *** @ text @d48 1 a48 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d34 2 a35 2 //! The Page Tables use asynchronous memory which won't work in //! an FPGA. Since the Page Table is addressed by the VMA d75 2 a76 2 `include "microcontroller/crom.vh" `include "microcontroller/drom.vh" d78 6 a83 6 module PAGE_TABLES(clk, rst, clken, crom, drom, dp, vma, vmaUSER, page_valid, page_writeable, page_cacheable, page_user, page_number); d94 13 a106 7 input [14:35] vma; // Virtural address input vmaUSER; // output page_valid; // output page_writeable; // output page_cacheable; // output page_user; // output [16:26] page_number; // d114 4 a117 2 wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire page_write = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); d119 13 a131 5 wire extended = `cromMEM_EXTADDR; // Put VMA Bits onto Bus wire loadVMA = `cromMEM_LOADVMA; // Load the VMA wire AREAD = `cromMEM_AREAD; // Let DROM select type and load VMA wire mem_fun = `cromMEM_CYCLE; // wire dromVMA = `dromVMA; // d133 2 a134 5 wire vma_en = ((mem_fun & loadVMA) | (mem_fun & AREAD & dromVMA) | (sweep)); d136 5 a141 1 // DPM6/E154 a142 1 // DPM6/E162 a143 1 // DPM6/E184 a145 5 reg [0:15] page_table[0:511]; reg [0: 8] read_addr; wire [0: 8] virt_page = vma[18:26]; wire [0:15] din = {dp[18], dp[21:22], vmaUSER, 1'b0, dp[25:35]}; d147 3 a149 10 // // FIXME DP has vma and data at different times. // need to register the address. // // // Page memory // d154 2 a155 2 read_addr <= 9'b000_000_000; else if (clken & vma_en) d157 8 a164 3 if (page_write) page_table[virt_page] <= din; read_addr <= virt_page; d167 7 a173 1 d177 6 a182 7 wire [0:15] dout = page_table[read_addr]; assign page_valid = dout[0]; assign page_writeable = dout[1]; assign page_cacheable = dout[2]; assign page_user = dout[3]; assign page_number = dout[5:15]; @ 1.1 log @Initial revision @ text @d9 22 a31 1 //! \todo d33 7 d78 6 a83 1 module PAGE_TABLES(clk, rst, clken, crom, drom, dp); d88 14 a101 7 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 d108 14 a121 41 wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire extended = `cromMEM_EXTADDR; // Put VMA Bits onto Bus wire loadVMA = `cromMEM_LOADVMA; // Load the VMA wire aread = `cromMEM_AREAD; // Let DROM select type and load VMA wire mem_fun = `cromMEM_CYCLE; // wire dromVMA = `dromVMA; // wire vma_en = ((mem_fun & loadVMA) | (mem_fun & aread & dromVMA) | (sweep)); // // Page Table // 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. // // 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 // d132 6 a137 1 /* -----\/----- EXCLUDED -----\/----- d139 4 a142 1 // FIXME d144 3 a146 5 reg [0:15] page_table[0:511]; reg [0: 8] rd_addr; wire [0: 8] virt_page = dp[18:26]; wire [0:15] din = {page_valid, page_writeable, page_cacheable, page_user, 1'b0 }; d160 5 a164 4 wire dout[0:15] = page_table[rd_addr]; d169 1 a169 4 -----/\----- EXCLUDED -----/\----- */ @ rtl/cpu/RCS/ks10.ucf,v0000444000175100010010000000163012040410376013000 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.10.20.02.48.20; author Rob; state Exp; branches; next ; desc @@ 1.1 log @Initial revision @ text @# # 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" 20 ns HIGH 50%; NET "uTIMER/uCLKGEN/clk8p2" TNM_NET = clk8p2; TIMESPEC TS_clk8p2 = PERIOD "clk8p2" 121.9512195121 ns HIGH 50%; #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/cpu/RCS/ks10.v,v0000444000175100010010000007113712040410460012473 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.10.20.02.49.18; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.12.01.42.41; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.09.29.06.27.41; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.00.45.54; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.47.25; author Rob; state Exp; branches; next ; desc @KS10 CPU @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 CPU //! //! \details //! //! \todo //! //! \file //! ks10.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2009, 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 // `include "microcontroller/crom.vh" `include "microcontroller/drom.vh" module KS10(clk, rst, clken, cons_run, cons_msec_en, cons_exec, cons_cont, consTRAPEN, bus_ac_lo, crom, t); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock enable input cons_run; // Run input cons_msec_en; // Timer Enable input cons_exec; // Execute input cons_cont; // Continue input consTRAPEN; // Enable Traps input bus_ac_lo; // Power Fail output [0:cromWidth-1] crom; // Control ROM output [0:35] t; // ALU Output Bus // // ROMS // wire [0:dromWidth-1] drom; // Dispatch ROM // // ALU // wire aluLZero; wire aluRZero; wire aluLSign; wire aluRSign; wire aluCRY0; wire aluCRY1; wire aluCRY2; wire aluQR37; wire aluZERO = aluLZero & aluRZero; wire txxx = (aluZERO != `dromTXXXEN); // // flags // wire trapEN; wire pageEN; wire page_fail = 1'b0; // FIXME wire apr_int_req; wire mem_wait; wire stop_main_memory; wire memory_cycle = 1'b0; // FIXME wire interrupt_req; wire iolatch; wire xr_previous; wire nxm_err = 1'b0; // FIXME wire bad_data_err = 1'b0; // FIXME wire int_10 = 1'b0; // FIXME wire force_ramfile = 1'b0; // FIXME wire previousEN; // // Registers // wire [ 0: 2] pi_new; wire [ 0: 3] xr; wire [ 0: 8] ir; wire [ 0: 3] ac; wire [ 9:12] pxct; wire [24:35] msec_count; // Millisecond timer wire [ 0:17] pcFLAGS; // PC flags wire [24:31] aprFLAGS; // wire [ 0: 2] curr_block; // wire [ 0: 2] prev_block; // wire [16:26] page_number; // wire ac_eq_zero; // AC selection is zero wire xr_eq_zero; // XR selection is zero // // PC Flags // wire flagAOV = pcFLAGS[ 0]; wire flagCRY0 = pcFLAGS[ 1]; wire flagCRY1 = pcFLAGS[ 2]; wire flagFOV = pcFLAGS[ 3]; wire flagFPD = pcFLAGS[ 4]; wire flagUSER = pcFLAGS[ 5]; wire flagUSERIO = pcFLAGS[ 6]; wire flagPCU = pcFLAGS[ 6]; wire flagTRAP2 = pcFLAGS[ 9]; wire flagTRAP1 = pcFLAGS[10]; wire flagFXU = pcFLAGS[11]; wire flagNODIV = pcFLAGS[12]; // // VMA Registers // wire [ 0:13] vmaFLAGS; wire [14:35] vmaADDR; wire vmaUSER = vmaFLAGS[ 0]; wire vmaEXEC = vmaFLAGS[ 1]; wire vmaFETCH = vmaFLAGS[ 2]; wire vmaREADCYCLE = vmaFLAGS[ 3]; wire vmaWRTESTCYCLE = vmaFLAGS[ 4]; wire vmaWRITECYCLE = vmaFLAGS[ 5]; wire vmaIORDWR = vmaFLAGS[ 6]; wire vmaCACHEIHN = vmaFLAGS[ 7]; wire vmaPHYSICAL = vmaFLAGS[ 8]; wire vmaPREVIOUS = vmaFLAGS[ 9]; wire vmaIO = vmaFLAGS[10]; wire vmaWRUCYCLE = vmaFLAGS[11]; wire vmaVECTORCYCLE = vmaFLAGS[12]; wire vmaIOBYTECYCLE = vmaFLAGS[13]; // // Busses // wire [ 0:35] dp; // ALU output bus wire [ 0:35] dbus; // wire [ 0:35] dbm; // wire [ 0:35] mb = 36'b0; // FIXME Memory Buffer wire [ 0:35] ram; // RAMFILE output wire [ 1: 7] bus_pi_req_out; // wire [ 1: 7] bus_pi_req_in = 7'b0; // // // SCAD, SC, and FE // wire [ 0: 9] scad; wire [ 0: 9] sc; wire sc_sign = sc[0]; wire [ 0: 9] fe; wire fe_sign = fe[0]; // // Traps // wire [3:1] traps; // // Dispatches // wire [ 8:11] dispSCAD; // SCAD dispatch wire [ 8:11] dispNI; // Next Instruction dispatch wire [ 8:11] dispBYTE; // Byte dispatch wire [ 8:11] dispMUL = {1'b0, aluQR37, 1'b0, 1'b0}; // Multiply dispatch wire [ 8:11] dispPF = 4'b0000; // Page Fail dispatch (depricated) wire [ 8:11] dispNORM = {aluZERO, dp[8:9], aluLSign}; // Normalize dispatch wire [ 8:11] dispEA = {~jrst0, indirect, xr_eq_zero, 1'b0};// EA Dispatch wire [ 0:11] dispDIAG = 12'b0000_0000_0000; // Diagnostic Dispatch // // Skips // wire jfcl_skip; wire [1:7] skip40 = {aluCRY0, aluLZero, aluRZero, flagUSER, flagFPD, ac_eq_zero, interrupt_req}; wire [1:7] skip20 = {aluCRY2, aluLSign, aluRSign, flagUSERIO, jfcl_skip, aluCRY1, txxx}; wire [1:7] skip10 = {trapCYCLE, aluZERO, sc_sign, cons_exec, iolatch, cons_cont, msec_intr}; // // DBM inputs // wire [0:35] dbm0 = {scad[1:9], 8'b1111_1111, scad[0], dispPF, trapEN, pageEN, aprFLAGS, apr_int_req, 3'b111}; wire [0:35] dbm1 = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; wire [0:35] dbm2 = {1'b0, scad[2:9], dp[9:17], 6'b111_111, msec_count[24:33], 2'b00}; wire [0:35] dbm3 = dp[0:35]; wire [0:35] dbm4 = {dp[18:35], dp[0:17]}; wire [0:35] dbm5 = {vmaFLAGS[0:13], vmaADDR[14:35]}; wire [0:35] dbm6 = mb[0:35]; wire [0:35] dbm7 = {`cromNUM, `cromNUM}; // // // AC_BLOCK uAC_BLOCK(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .curr_block(curr_block), .prev_block(prev_block)); // // Arithmetic Logic Unit // ALU uALU(.clk(clk), .rst(rst), .clken(clken), .dbus(dbus), .crom(crom), .aluLZero(aluLZero), .aluRZero(aluRZero), .aluLSign(aluLSign), .aluRSign(aluRSign), .aluAOV(aluAOV), .aluCRY0(aluCRY0), .aluCRY1(aluCRY1), .aluCRY2(aluCRY2), .aluQR37(aluQR37), .t(t)); // // APR // APR uAPR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .bus_ac_lo(bus_ac_lo), .nxm_err(nxm_err), .bad_data_err(bad_data_err), .int_10(int_10), .trapEN(trapEN), .pageEN(pageEN), .aprFLAGS(aprFLAGS), .apr_int_req(apr_int_req), .bus_pi_req_out(bus_pi_req_out)); // // Byte Dispatch // BYTE_DISP uBYTE_DISP(.dp(dp), .dispBYTE(dispBYTE)); // // // DBM uDBM(.crom(crom), .dbm0(dbm0), .dbm1(dbm1), .dbm2(dbm2), .dbm3(dbm3), .dbm4(dbm4), .dbm5(dbm5), .dbm6(dbm6), .dbm7(dbm7), .dbm(dbm)); // // DBUS MUX // DBUS uDBUS(.crom(crom), .force_ramfile(force_ramfile), .pcFLAGS({pcFLAGS, 1'b0, pi_new, 4'b1111, vmaADDR[26:35]}), .dp(dp), .ram(ram), .dbm(dbm), .dbus(dbus)); // // Dispatch ROM // DROM uDROM(.clk(clk), .rst(rst), .clken(clken), .addr(dbus[0:8]), .drom(drom)); // // // INTR uINTR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .bus_pi_req_in(bus_pi_req_in), .interrupt_req(interrupt_req), .pi_new(pi_new), .pi_on(pi_on)); // // // IOLATCH uIOLATCH(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .iolatch(iolatch)); // // Instruction Register // regIR uIR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dbus(dbus), .ir(ir), .ac(ac), .jrst0(jrst0)); assign ac_eq_zero = (ac == 4'b0000); // // Microcontroller // microcontroller u1(.clk(clk), .rst(rst), .clken(clken), .page_fail(page_fail), .dp(dp), .dispDIAG(dispDIAG), .dispMUL(dispMUL), .dispPF(dispPF), .dispNI(dispNI), .dispBYTE(dispBYTE), .dispEA(dispEA), .dispSCAD(dispSCAD), .dispNORM(dispNORM), .skip40(skip40), .skip20(skip20), .skip10(skip10), .ac(ac), .drom(drom), .crom(crom)); // // Next Instruction Dispatch // NI_DISP uNI_DISP(.run(cons_run), .memory_cycle(memory_cycle), .traps(traps), .dispNI(dispNI)); // // Page Tables // PAGE_TABLES uPAGE_TABLES(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .vma(vmaADDR), .vmaUSER(vmaUSER), .page_valid(page_valid), .page_writeable(page_writeable), .page_cacheable(page_cacheable), .page_user(page_user), .page_number(page_number)); // // PC Flags // PCFLAGS uPCFLAGS(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .dbm(dbm), .scad(scad), .ac(ac), .aluAOV(aluAOV), .aluCRY0(aluCRY0), .aluCRY1(aluCRY1), .pcFLAGS(pcFLAGS), .jfcl_skip(jfcl_skip)); // // Pxct // PXCT uPXCT(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .pxct_on(pxct_on), .previous_en(previousEN), .pxct(pxct)); // // RAMFILE // RAMFILE uRAMFILE(.clk(clk), .rst(rst), .clken(1'b1), .crom(crom), .dbus(dbus), .dbm(dbm), .ac(ac), .xr(xr), .xr_previous(xr_previous), .vmaADDR(vmaADDR), .vmaPHYSICAL(vmaPHYSICAL), .vmaPREVIOUS(vmaPREVIOUS), .previous_block(prev_block), .current_block(curr_block), .ram(ram)); // // // SCAD uSCAD(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .scad(scad), .dp(dp), .sc(sc), .fe(fe), .dispSCAD(dispSCAD)); // // One millisecond (more or less) interval timer. // TIMER uTIMER(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .msec_en(cons_msec_en), .msec_intr(msec_intr), .msec_count(msec_count)); // // Traps // TRAPS uTRAPS(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .pcFLAGS(pcFLAGS), .consTRAPEN(consTRAPEN), .trapEN(trapEN), .traps(traps), .trapCYCLE(trapCYCLE)); // // VMA // VMA uVMA(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .execute(cons_exec), .previousEN(previousEN), .flagPCU(flagPCU), .flagUSER(flagUSER), .vmaSWEEP(vmaSWEEP), .vmaEXTENDED(vmaEXTENDED), .vmaACREF(vmaACREF), .vmaFLAGS(vmaFLAGS), .vmaADDR(vmaADDR)); // // Index Register // regXR uXR(.clk(clk), .rst(rst), .clken(clken), .dbus(dbus), .crom(crom), .prev_en(previousEN), .xr(xr), .indirect(indirect), .xr_previous(xr_previous)); assign xr_eq_zero = (xr == 4'b0000); endmodule @ 1.4 log @*** empty log message *** @ text @d50 4 a53 1 module KS10(clk, rst, clken, run, msec_en, execute, d, t, crom); d58 11 a68 13 output [0:cromWidth-1] crom; // Control ROM input clk; // Clock input rst; // Reset input clken; // Clock enable input run; // Run (From Console) input msec_en; // Timer Enable (From Console) input execute; // Execute (From Console) input [0:35] d; output [0:35] t; wire ac_eq_zero; // AC selection is zero d74 16 a89 1 wire [0:dromWidth-1] drom; d95 15 a109 32 wire ov_flag; wire cry0_flag; wire cry1_flag; wire fov_flag; wire fpd_flag; wire pcu_flag; // Previous context user bit wire user_flag; wire userio_flag; wire trap2_flag; wire trap1_flag; wire fxu_flag; wire nodiv_flag; wire trap_en; wire page_en; wire page_fail = 1'b0; wire [ 0: 7] apr_flags; wire apr_int_req; wire vma_user; wire vma_fetch; wire vma_phys; wire vma_prev; wire mem_read; wire mem_write; wire mem_wr_test; wire cache_inh; wire vma_io; wire wru_cycle; wire vector_cycle; wire io_byte_cycle; wire force_ramfile = 1'b0; wire memory_cycle = 1'b1; d115 52 a166 6 wire [14:35] vma; wire [ 0: 2] pi_new; wire [ 0: 3] xr; wire [ 0: 8] ir; wire [ 0: 3] ac; wire [24:35] msec_count; // Millisecond timer d172 8 a179 5 wire [ 0:35] dp; // ALU output bus wire [ 0:35] dbus; // wire [ 0:35] dbm; // wire [ 0:35] mb; // wire [ 0: 9] ramfile_addr; d182 1 a182 1 // Dispatches d185 5 a189 8 wire [ 8:11] dispBYTE; // Byte dispatch wire [ 8:11] dispSCAD; // SCAD dispatch wire [ 8:11] dispNORM; // NORM dispatch wire [ 8:11] dispNI; // Next Instruction dispatch wire [ 8:11] dispPF = 4'b0000; wire [ 8:11] dispMUL = 4'b0000; wire [ 8:11] dispEA = 4'b0000; wire [ 0:11] dispDIAG = 12'b0000_0000_0000; d192 1 a192 1 // Skips d195 1 a195 3 wire [ 0: 7] skip40 = 8'b0000_0000; wire [ 0: 7] skip20 = 8'b0000_0000; wire [ 0: 7] skip10 = 8'b0000_0000; d198 1 a198 1 // SCAD, SC, and FE d201 8 a208 5 wire [ 0: 9] scad; wire [ 0: 9] sc; wire sc_sign = sc[0]; wire [ 0: 9] fe; wire fe_sign = fe[0]; d211 1 a211 1 // Traps d214 27 a240 3 wire trap3 = 1'b0; wire trap2 = 1'b0; wire trap1 = 1'b0; d242 11 d254 15 a268 2 wire [ 9:12] pxct; a269 1 d271 1 a271 1 // Next Instruction Dispatch d274 15 a288 8 NI_DISP uNI_DISP(.run(run), .memory_cycle(memory_cycle), .trap3(trap3), .trap2(trap2), .trap1(trap1), .dispNI(dispNI)); d290 1 a290 1 // Microcontroller d293 2 a294 19 microcontroller u1(.clk(clk), .rst(rst), .clken(clken), .page_fail(page_fail), .dp(dp), .dispDIAG(dispDIAG), .dispMUL(dispMUL), .dispPF(dispPF), .dispNI(dispNI), .dispBYTE(dispBYTE), .dispEA(dispEA), .dispSCAD(dispSCAD), .dispNORM(dispNORM), .skip40(skip40), .skip20(skip20), .skip10(skip10), .drom(drom), .crom(crom)); a296 1 // RAMFILE d298 2 d301 10 a310 7 wire [0:35] ram; RAMFILE uRAMFILE(.clk(clk), .clken(1'b1), .wr(ramfile_wr), .addr(ramfile_addr), .din(dbus), .dout(ram)); a315 7 wire [0:35] pc_flags = {ov_flag, cry0_flag, cry1_flag, fov_flag, fpd_flag, user_flag,// 0: 5 userio_flag, 2'b00, trap2_flag, trap1_flag, fxu_flag, // 6:11 nodiv_flag, 5'b00000, // 12:17 1'b0, pi_new, 2'b11, // 18:23 2'b11, vma[26:29], // 24:29 vma[30:35]}; // 30:36 d318 1 a318 1 .flags(pc_flags), d324 1 d326 1 a326 1 // Arithmetic Logic Unit d329 5 a333 14 ALU uALU(.clk(clk), .rst(rst), .dbus(dbus), .crom(crom), .multi_shift(1'b0), .divide_shift(1'b0), .ci(1'b0), .co(), .lZ(), .hZ(), .ovfl(), .sign(), .smear(), .t(dp)); d336 25 d364 8 a371 7 IR uIR(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dbus(dbus), .ir(ir), .ac(ac)); d374 4 d379 20 d400 1 a400 1 // Index Register d402 5 a406 12 XR uXR(.clk(clk), .rst(rst), .clken(clken), .dbus(dbus), .crom(crom), .prev_en(prev_en), .xr(xr), .indirect(indirect), .xr_prev(xr_prev)); assign xr_eq_zero = (xr == 4'b0000); d409 18 a426 4 // Dispatch ROM // Because the Dispatch ROM is registered instead of // combinational, the address is loaded when the Instruction // Register is loaded. d428 16 a443 6 DROM uDROM(.clk(clk), .clken(ir_load), .dbus(dbus), .drom(drom)); d446 1 a446 1 // Byte Dispatch d449 8 a456 2 BYTE_DISP uBYTE_DISP(.dp(dp), .dispBYTE(dispBYTE)); d459 1 a459 1 // d462 16 a477 20 wire [0:35] dbm0 = {scad[1:9], 8'b1111_1111, scad[0], dispPF, trap_en, page_en, apr_flags, apr_int_req, 3'b111}; wire [0:35] dbm1 = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; wire [0:35] dbm2 = {1'b0, scad[2:9], dp[9:17], 6'b111_111, msec_count[24:33], 2'b00}; wire [0:35] dbm3 = dp[0:35]; wire [0:35] dbm4 = {dp[18:35], dp[0:17]}; wire [0:35] dbm5 = {vma_user, 1'b0, vma_fetch, mem_read, mem_wr_test, mem_write, 1'b0, cache_inh, vma_phys, vma_prev, vma_io, wru_cycle, vector_cycle, io_byte_cycle, vma[14:35]}; wire [0:35] dbm6 = mb[0:35]; wire [0:35] dbm7 = {`cromNUM, `cromNUM}; DBM uDBM(.crom(crom), .dbm0(dbm0), .dbm1(dbm1), .dbm2(dbm2), .dbm3(dbm3), .dbm4(dbm4), .dbm5(dbm5), .dbm6(dbm6), .dbm7(dbm7), .dbm(dbm)); d483 2 a484 2 .rst(rst), .clken(clken), d494 1 d497 6 a502 6 .rst(rst), .clken(clken), .crom(crom), .msec_en(msec_en), .msec_intr(msec_intr), .msec_count(msec_count)); d505 1 a505 1 // d508 10 a517 35 VMA uVMA(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .execute(execute), .user_flag(user_flag), .pcu_flag(pcu_flag), .previous_en(previous_en), .wru_cycle(wru_cycle), .vector_cycle(vector_cycle), .iobyte_cycle(iobyte_cycle), .vma_sweep(vma_sweep), .vma_extended(vma_extended), .vma_user(vma_user), .vma_previous(vma_previous), .vma_physical(vma_physical), .vma_fetch(vma_fetch), .vma_io(vma_io), .vma_ac_ref(vma_ac_ref), .vma(vma)); // // // PXCT uPXCT(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .dp(dp), .pxct_on(pxct_on), .previous_en(previous_en), .pxct(pxct)); a518 2 // d520 1 d523 15 a537 8 TRAP_CYCLE uTRAP_CYCLE(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .trap3(trap3), .trap2(trap2), .trap1(trap1), .trap_cycle(trap_cycle)); d540 1 a541 8 // PAGE_TABLES uPAGE_TABLES(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp)); d543 11 a553 21 // // // FLAGS uFLAGS(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .drom(drom), .dp(dp), .cry0_flag(cry0_flag), .cry1_flag(cry1_flag), .fov_flag(fov_flag), .ov_flag(ov_flag), .fxu_flag(fxu_flag), .user_flag(user_flag), .trap1_flag(trap1_flag), .trap2_flag(trap2_flag), .nodiv_flag(nodiv_flag), .pcu_flag(pcu_flag), .userio_flag(userio_flag)); @ 1.3 log @*** empty log message *** @ text @d47 2 a48 1 `include "microcontroller/microcontroller.vh" d50 1 a50 1 module KS10(clk, rst, clken, d, t, crom); d59 3 d64 2 d68 5 a72 1 wire [0:35] dbus; d75 82 a156 11 wire [0:11] disp_diag = 12'b0000_0000_0000; wire [0: 3] disp_mul = 4'b0000; wire [0: 3] disp_pf = 4'b0000; wire [0: 3] disp_ni = 4'b0000; wire [0: 3] disp_byte = 4'b0000; wire [0: 3] disp_ea = 4'b0000; wire [0: 3] disp_scad = 4'b0000; wire [0: 7] skip_40 = 8'b0000_0000; wire [0: 7] skip_20 = 8'b0000_0000; wire [0: 7] skip_10 = 8'b0000_0000; d158 36 d195 49 a243 15 .rst(rst), .clken(clken), .disp_diag(disp_diag), .disp_mul(disp_mul), .disp_pf(disp_pf), .disp_ni(disp_ni), .disp_byte(disp_byte), .disp_ea(disp_ea), .disp_scad(disp_scad), .skip_40(skip_40), .skip_20(skip_20), .skip_10(skip_10), .drom(drom), .crom(crom)); d247 15 a261 14 alu u2(.clk(clk), .rst(rst), .crom(crom), .multi_shift(1'b0), .divide_shift(1'b0), .ci(1'b0), .co(), .lZ(), .hZ(), .ovfl(), .sign(), .smear(), .t(t)); a264 3 // DPEA/E55 // DPEA/E64 // DPEA/E93 d266 1 a266 5 wire [0:8] ir; wire [0:3] ac; wire ir_load = `cromSPEC_EN_40 && (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); d269 2 a270 1 .clken(ir_load), a278 2 // DPEA/E99 // DPEA/E93 d281 10 a290 12 wire [0:3] xr; wire xr_load = `cromSPEC_EN_20 && (`cromSPEC_SEL == `cromSPEC_SEL_LOADXR); XR u4(.clk(clk), .rst(rst), .clken(xr_load), .dbus(dbus), .prev_en(prev_en), .xr(xr), .indirect(indirect), .xr_prev(xr_prev)); d298 107 a404 3 // DPEA/E98 // DPEA/E117 // DPEA/E110 d407 12 a418 4 DROM u5(.clk(clk), .clken(ir_load), .dbus(dbus), .drom(drom)); d420 6 a425 1 d427 22 a448 1 d450 2 a451 1 @ 1.2 log @*** empty log message *** @ text @d49 1 a49 1 module ks10(clk, rst, d, t, crom); d57 1 a60 4 wire clken = 1'b1; wire ir_load; // Load Instruction Register wire xr_load; // Load Index Register d65 11 d80 11 a90 10 .disp_mul(), .disp_pf(), .disp_ni(), .disp_byte(), .disp_ea(), .disp_scad(), .skip_40(), .skip_20(), .skip_10(), .drom(), d120 8 a127 6 IR u3(.clk(clk), .rst(rst), .clken(ir_load), .dbus(dbus), .ir(ir), .ac(ac)); d138 2 @ 1.1 log @Initial revision @ text @d54 5 a58 4 input clk; // Clock input rst; // Reset input [0:35] d; output [0:35] t; a59 1 output [0:cromWidth-1] crom; // Control ROM d61 6 a66 8 wire clken = 1'b1; wire ir_load; // Load Instruction Register wire xr_load; // Load Index Register wire ac_eq_zero; // AC selection is zero wire [0:35] dbus; wire [0:dromWidth-1] drom; wire [0:3] xr; wire [0:3] ac; d109 2 d126 1 @ rtl/cpu/useq/0000755000175100010010000000000012026746000011611 5ustar RobNonertl/cpu/useq/crom.dat0000644000175100010010000046056112053071206013256 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/drom.vh0000644000175100010010000001003412053071206013106 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/crom.vh0000644000175100010010000004617712053071206013126 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/crom.v0000644000175100010010000001331112053071206012736 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 // `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/ks10.mcr0000644000175100010010000247344212053071206013111 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/crom.awk0000644000175100010010000000217712053071206013263 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/drom.dat0000644000175100010010000005020112053071206013241 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/skip.v0000644000175100010010000001243612053071206012753 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 assemler 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 // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `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'b000_000_000_001 : 12'b000_000_000_000; endmodule rtl/cpu/useq/drom.v0000644000175100010010000000631112053071206012741 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 // `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 syncrhronously 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.awk0000644000175100010010000000142612053071206013260 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/stack.v0000644000175100010010000001265212053071210013105 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 // `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/dispatch.v0000644000175100010010000001460612053071210013600 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 // `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/useq.v0000644000175100010010000002306512053071210012755 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 // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `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. Done this way, the address constants are obvious // and not embedded in the logic: therefore the intent is more // evident. 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 // 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 // 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'b000_000_000_000 : (pageFAIL) ? 12'b111_111_111_111 : (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/useq/RCS/0000755000175100010010000000000012027516474012253 5ustar RobNonertl/cpu/useq/RCS/ks10.mcr,v0000444000175100010010000247462012027516522014005 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.09.23.05.25.22; author Rob; state Exp; branches; next ; desc @KS10 Microcode listing @ 1.1 log @Initial revision @ text @; 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/RCS/makefile,v0000444000175100010010000000175212027516534014215 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.09.23.05.25.39; author Rob; state Exp; branches; next ; desc @makefile @ 1.1 log @Initial revision @ text @SRC = ks10.mcr all : crom.txt drom.txt crom.bin : makefile crom.awk ks10.mcr awk -f crom.awk ks10.mcr > crom.bin drom.txt : @@grep "^D [0-7][0-7][0-7][0-7]," < $(SRC) | sort |\ sed -e "s/;.*//" |\ sed -e "s/D \([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][0-7]\)/ O\"\2_\3_\4\", -- \1 /" > drom.txt clean : rm -rf drom.txt crom.txt disp : crom.txt @@cat < crom.txt |\ sed -e "s/[ ]*O\"[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][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].*/\1\2/" |\ sort |\ uniq dromdisp: drom.txt @@cat < drom.txt |\ sed -e "s/[ ]*O\"[0-7][0-7][0-7][0-7]_[0-7][0-7][0-7][0-7]_\([0-7]\)[0-7][0-7][0-7]\",.*/ \1/" |\ sort |\ uniq@ rtl/cpu/useq/RCS/disp.awk,v0000444000175100010010000000031312031442452014140 0ustar RobNonehead 1.1; access; symbols; locks; comment @# @; 1.1 date 2012.09.29.00.47.29; author Rob; state Exp; branches; next ; desc @@ 1.1 log @Initial revision @ text @{ print substr($0, 58, 6) }@ rtl/cpu/useq/RCS/crom.awk,v0000444000175100010010000000467312044615560014164 0ustar RobNonehead 1.4; access; symbols; locks; comment @# @; 1.4 date 2012.11.02.01.01.33; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.20.02.12.03; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.31.24; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.23.05.26.23; author Rob; state Exp; branches; next ; desc @Microcode Parser @ 1.4 log @*** empty log message *** @ text @BEGIN { 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" } } } @ 1.3 log @*** empty log message *** @ text @d3 8 @ 1.2 log @*** empty log message *** @ text @d23 1 a23 1 printf " 12'o%04o: c rrom <= 108'o%s_%s_%s_%s_%s_%s_%s_%s_%s;\n", d35 1 a35 1 printf " 12'o%04o: crom <= 108'o%s_%s_%s_%s_%s_%s_%s_%s_%s;\n", @ 1.1 log @Initial revision @ text @d2 1 a2 9 A["0"]="000"; A[1]="001"; A[2]="010"; A[3]="011"; A[4]="100"; A[5]="101"; A[6]="110"; A[7]="111"; FS="[, ;]"; d23 11 a33 7 #print "#" 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] for (j = 4; j <= 12; j++) { for (k = 1; k <= 4; k++) { printf A[substr(MAP[j, i], k, 1)] } } printf "\n" d35 11 a45 1 printf "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000\n" @ rtl/cpu/useq/RCS/drom.awk,v0000444000175100010010000000372512044615576014171 0ustar RobNonehead 1.4; access; symbols; locks; comment @# @; 1.4 date 2012.11.02.01.01.46; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.20.02.12.17; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.31.24; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.29.00.47.43; author Rob; state Exp; branches; next ; desc @Extract DROM from microcode listing @ 1.4 log @*** empty log message *** @ text @BEGIN { 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" } } } @ 1.3 log @*** empty log message *** @ text @d3 8 @ 1.2 log @*** empty log message *** @ text @d17 1 a17 1 printf " 9'o%03o: drom <= 36'o%s_%s_%s;\n", d23 1 a23 1 printf " 9'o%03o: drom <= 36'o%s_%s_%s;\n", @ 1.1 log @Initial revision @ text @d2 1 a2 9 A["0"]="000"; A[1]="001"; A[2]="010"; A[3]="011"; A[4]="100"; A[5]="101"; A[6]="110"; A[7]="111"; FS="[, ;]"; d15 1 a15 1 for (i = 0; i < 511; i++) { d17 5 a21 7 #print "#" i "#" " " MAP[4,i] " " MAP[5,i] " " MAP[6,i] for (j = 4; j <= 6; j++) { for (k = 1; k <= 4; k++) { printf A[substr(MAP[j, i], k, 1)] } } printf "\n" d23 5 a27 1 printf "000000000000000000000000000000000000\n" @ rtl/cpu/useq/RCS/dispatch.v,v0000444000175100010010000003453212046405100014470 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.07.07.14.06; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.03.05.27.40; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.01.05.34.35; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.20.02.15.18; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.12.01.36.34; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.11.00.36.52; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.11.00.35.53; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.41.31; author Rob; state Exp; branches; next ; desc @Microcontroller Dispatch @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.7 log @*** empty log message *** @ text @d74 1 a74 1 // Control ROM Dispatch Address d76 1 a76 1 d82 16 @ 1.6 log @*** empty log message *** @ text @d20 1 a20 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.5 log @*** empty log message *** @ text @d128 20 a147 18 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 d158 20 a177 18 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 a178 1 @ 1.4 log @*** empty log message *** @ text @d85 3 a87 2 dispSCAD or dispEN20 or dispEN10 or dispSEL or dispSELH) d149 4 @ 1.3 log @*** empty log message *** @ text @d49 4 a52 3 module DISPATCH(crom, disp_diag, disp_ret, disp_j, disp_aread, disp_mul, disp_pf, disp_ni, disp_byte, disp_ea, disp_scad, disp_addr); d57 15 a71 11 input [0:11] disp_diag; // Diagnostic dispatch input [0:11] disp_ret; // Microcode return dispatch input [0: 7] disp_j; // Jump dispatch input [0: 7] disp_aread; // Address Read dispatch input [8:11] disp_mul; // Multiply Dispatch input [8:11] disp_pf; // Page Fail Dispatch input [8:11] disp_ni; // Next Instruction Dispatch input [8:11] disp_byte; // Byte Size/Position Dispatch input [8:11] disp_ea; // Effective Address Mode Dispatch input [8:11] disp_scad; // SCAD Dispatch output reg [0:11] disp_addr; // Dispatch Addr d77 10 a86 8 wire disp_en_10 = `cromDISP_EN_10; wire disp_en_20 = `cromDISP_EN_20; wire disp_selh = `cromDISP_SELH; wire disp_sel = `cromDISP_SEL; always @@(disp_diag or disp_ret or disp_j or disp_aread or disp_mul or disp_pf or disp_ni or disp_byte or disp_ea or disp_scad or disp_en_20 or disp_en_10 or disp_sel or disp_selh) d89 6 a94 1 disp_addr[0:11] = 12'b000_000_000_000; d97 1 a97 1 // CROM Address Mux MSBs d100 1 a100 1 // CRA1/E151 d104 1 a104 1 if (disp_en_20) d106 1 a106 1 case (disp_selh) d108 1 a108 1 disp_addr[0:7] = disp_diag[0:7]; d110 1 a110 1 disp_addr[0:7] = disp_ret[0:7]; d112 1 a112 1 disp_addr[0:7] = disp_j[0:7]; d114 1 a114 1 disp_addr[0:7] = disp_aread[0:7]; d119 1 a119 1 // CROM Address Mux LSBs d126 43 a168 21 if (disp_en_10) begin case (disp_sel) `cromDISP_SEL_DIAG: disp_addr[8:11] = disp_diag[8:11]; `cromDISP_SEL_RET: disp_addr[8:11] = disp_ret[8:11]; `cromDISP_SEL_MULTIPLY: disp_addr[8:11] = disp_mul[8:11]; `cromDISP_SEL_PAGEFAIL: disp_addr[8:11] = disp_pf[8:11]; `cromDISP_SEL_NICOND: disp_addr[8:11] = disp_ni[8:11]; `cromDISP_SEL_BYTE: disp_addr[8:11] = disp_byte[8:11]; `cromDISP_SEL_EAMODE: disp_addr[8:11] = disp_ea[8:11]; `cromDISP_SEL_SCAD: disp_addr[8:11] = disp_scad[8:11]; endcase end @ 1.2 log @*** empty log message *** @ text @d55 13 a67 13 input [0:cromWidth-1] crom; // Control ROM Data input [0:11] disp_diag; // Diagnostic dispatch input [0:11] disp_ret; // Microcode return dispatch input [0: 7] disp_j; // Jump dispatch input [0: 7] disp_aread; // Address Read dispatch input [8:11] disp_mul; // Multiply Dispatch input [8:11] disp_pf; // Page Fail Dispatch input [8:11] disp_ni; // Next Instruction Dispatch input [8:11] disp_byte; // Byte Size/Position Dispatch input [8:11] disp_ea; // Effective Address Mode Dispatch input [8:11] disp_scad; // SCAD Dispatch output reg [0:11] disp_addr; // Dispatch Addr d71 1 a71 1 d76 1 a76 1 d81 1 a81 1 d91 1 a91 1 d113 1 a113 1 d130 1 a130 1 disp_addr[8:11] = disp_ea[8:11]; d136 1 a136 1 @ 1.1 log @Initial revision @ text @d53 1 a53 14 parameter cromWidth = `CROM_WIDTH; input [0:cromWidth-1] crom; // Control ROM Data input [0:11] disp_diag; // Diagnostic dispatch input [0:11] disp_ret; // Microcode return dispatch input [0: 7] disp_j; // Jump dispatch input [0: 7] disp_aread; // Address Read dispatch input [0: 3] disp_mul; // Multiply Dispatch input [0: 3] disp_pf; // Page Fail Dispatch input [0: 3] disp_ni; // Next Instruction Dispatch input [0: 3] disp_byte; // Byte Size/Position Dispatch input [0: 3] disp_ea; // Effective Address Mode Dispatch input [0: 3] disp_scad; // SCAD Dispatch output [0:11] disp_addr; // Dispatch Addr d55 13 d69 1 a69 1 // Control ROM Address d71 7 a77 3 reg [0:11] disp_addr; always @@(crom or disp_diag or disp_ret or disp_j or disp_aread or d79 1 a79 1 disp_scad) d92 1 a92 1 if (`cromDISP_EN_20) d94 1 a94 1 case (`cromDISP_SELH) d100 1 a100 1 disp_addr[0:7] = disp_j; d102 1 a102 1 disp_addr[0:7] = disp_aread; d114 1 a114 1 if (`cromDISP_EN_10) d116 1 a116 1 case (`cromDISP_SEL) d122 1 a122 1 disp_addr[8:11] = disp_mul; d124 1 a124 1 disp_addr[8:11] = disp_pf; d126 1 a126 1 disp_addr[8:11] = disp_ni; d128 1 a128 1 disp_addr[8:11] = disp_byte; d130 1 a130 1 disp_addr[8:11] = disp_ea; d132 1 a132 1 disp_addr[8:11] = disp_scad; @ rtl/cpu/useq/RCS/crom.v,v0000444000175100010010000117714712047013732013653 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.08.20.36.40; author E721269; state Exp; branches; next 1.7; 1.7 date 2012.11.03.05.28.01; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.02.01.03.02; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.01.05.31.31; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.20.02.14.14; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.01.35.23; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.31.55; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.42.44; author Rob; state Exp; branches; next ; desc @Microcontroller Control ROM @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.7 log @*** empty log message *** @ text @d75 1 a75 10 // CROM // Note ROM MSB is ignored. // Address buffers: // CRA7/E11, CRA7/E19, CRA7/E106, CRA7/E100, CRA7/E10, CRA7/E6, // CRA7/E93, CRA7/E68, CRA7/E80, CRA7/E94, CRA7/E20, CRA7/E5, // ROM: // CRA8/E14, CRA8/E23, CRA8/E28, CRA8/E38, CRA8/E41, CRA8/E50, // // Registers: // CRA6/E104, CRA6/E87, CRA6/E2, CRA6/E46, CRA6/E67, CRA6/E86, d77 3 d83 1 a83 1 a85 6 // // The KS10 microcode is extracted from the listing file by // a simple AWK script and inserted below. // a86 1 d90 8 a97 2 // Registered ROM // Note MSB of the address is ignored. If you need more than d101 46 a146 1 @ 1.6 log @*** empty log message *** @ text @d35 1 a35 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.5 log @*** empty log message *** @ text @d6 1 a6 1 //! Microcontroller Control ROM d89 1 d92 1 d94 2 a95 2 // This is KS10 MICROCODE V130. Do not edit this data. It is // extracted from the microcode listing file. d97 3 a99 2048 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; @ 1.4 log @*** empty log message *** @ text @d91 4 d2146 4 a2149 1 // @ 1.3 log @*** empty log message *** @ text @d6 1 a6 1 //! Microcontroller Control ROM d26 1 a26 1 //! d67 1 a67 1 d69 1 a69 1 input rst; // Clock Enable d72 1 a72 1 output reg [0:cromWidth-1] crom; // Output Data d87 3 a89 1 always @@(posedge clk or posedge rst) d91 2048 a2138 2060 if (rst) crom <= 108'b0; else if (clken) case(addr[1:11]) // 11 // 0000 1112 2233 3344 4555 6666 7778 8899 9900 // 0369 2581 4703 6925 8147 0369 2581 4703 6925 12'o0000: crom <= 108'o0002_3771_0012_4374_4007_0700_0000_0037_7777; 12'o0001: crom <= 108'o3676_3333_0004_7174_4007_0700_0410_0000_0212; 12'o0002: crom <= 108'o0013_3445_1212_4174_4007_0700_0000_0000_0000; 12'o0003: crom <= 108'o0100_4751_1203_4374_4007_0700_0000_0037_6000; 12'o0004: crom <= 108'o2476_4443_0000_4174_4107_0640_0000_0000_0062; 12'o0005: crom <= 108'o0004_4443_0000_4174_4007_0660_0000_0000_0000; 12'o0006: crom <= 108'o3412_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0007: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0010: crom <= 108'o0560_3771_0004_1276_6007_0701_0010_0000_1444; 12'o0011: crom <= 108'o0024_3771_0004_7274_4007_0701_0000_0000_0227; 12'o0012: crom <= 108'o0324_3333_0005_6174_4007_0700_0400_0000_0000; 12'o0013: crom <= 108'o0053_3551_1212_4374_4007_0700_0000_0000_0001; 12'o0014: crom <= 108'o1400_3333_0005_4174_4007_0571_0000_0000_0000; 12'o0015: crom <= 108'o1116_7441_0303_4174_4007_0700_0000_0000_0000; 12'o0016: crom <= 108'o1123_6551_0303_0274_4007_0700_0000_0000_0000; 12'o0017: crom <= 108'o1123_3551_0303_0274_4007_0700_0000_0000_0000; 12'o0020: crom <= 108'o2746_4221_0002_4174_0007_0700_0010_0000_0000; 12'o0021: crom <= 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; 12'o0022: crom <= 108'o3541_3333_0002_4175_5007_0701_0210_0000_0002; 12'o0023: crom <= 108'o3667_0111_0704_4170_4007_0700_0210_0023_1016; 12'o0024: crom <= 108'o3700_4223_0000_4364_4277_0700_0210_0000_0010; 12'o0025: crom <= 108'o1176_3333_0004_4174_4007_0621_0000_0000_0000; 12'o0026: crom <= 108'o2475_4443_0000_4174_4107_0700_0000_0000_0074; 12'o0027: crom <= 108'o2740_4751_1205_4374_4007_0700_0000_0000_0430; 12'o0030: crom <= 108'o0002_3773_0000_2274_4464_1700_0000_0001_0004; 12'o0031: crom <= 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; 12'o0032: crom <= 108'o0002_3333_0002_4174_4464_1700_0000_0001_0004; 12'o0033: crom <= 108'o3060_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0034: crom <= 108'o2556_0551_0202_2270_4007_0700_0200_0004_0012; 12'o0035: crom <= 108'o2760_3445_0403_4174_4007_0700_0000_0000_0000; 12'o0036: crom <= 108'o2556_3443_0200_4174_4007_0700_0200_0004_0112; 12'o0037: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; 12'o0040: crom <= 108'o0000_3771_0003_4365_5001_2700_0200_0000_0002; 12'o0041: crom <= 108'o0000_3771_0003_0276_6001_2700_0000_0000_0000; 12'o0042: crom <= 108'o0401_3771_0003_4365_5007_0700_0200_0000_0002; 12'o0043: crom <= 108'o0415_3771_0003_0276_6007_0700_0000_0000_0000; 12'o0044: crom <= 108'o0000_3333_0003_4174_4001_2530_3000_0041_5777; 12'o0045: crom <= 108'o0416_3772_0000_1275_5007_0701_0000_0000_1441; 12'o0046: crom <= 108'o0372_3770_0303_4344_4007_0700_0000_0000_0000; 12'o0047: crom <= 108'o0372_3771_0003_4365_5007_0700_0200_0000_0002; 12'o0050: crom <= 108'o0000_3770_0103_4365_5001_2700_0200_0014_0012; 12'o0051: crom <= 108'o0402_3771_0005_4365_5177_0521_3000_0041_2000; 12'o0052: crom <= 108'o0404_4443_0000_4174_4007_0040_0000_0000_0000; 12'o0053: crom <= 108'o0061_3447_1200_4174_4007_0700_0000_0000_0000; 12'o0054: crom <= 108'o1232_4552_0000_1275_5007_0701_0000_0000_1441; 12'o0055: crom <= 108'o3060_6551_1717_4374_4007_0700_0010_0000_0007; 12'o0056: crom <= 108'o3027_0001_1616_4174_4007_0700_0000_0000_0000; 12'o0057: crom <= 108'o3025_2225_0016_4174_4007_0700_4000_0000_0000; 12'o0060: crom <= 108'o3667_3443_0300_4174_4007_0700_0210_0003_0012; 12'o0061: crom <= 108'o0071_3771_0015_4374_4007_0700_0000_0000_0001; 12'o0062: crom <= 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; 12'o0063: crom <= 108'o1372_3333_0003_4174_4007_0520_0000_0000_0000; 12'o0064: crom <= 108'o3670_0111_0703_4170_4007_0700_0210_0003_0012; 12'o0065: crom <= 108'o2606_0111_0703_4174_4007_0700_0200_0004_0002; 12'o0066: crom <= 108'o3147_0661_0003_7274_4007_0701_0000_0000_0225; 12'o0067: crom <= 108'o2440_4571_1205_4374_4007_0700_0000_0024_1220; 12'o0070: crom <= 108'o3101_0553_0300_2274_4007_0700_0200_0004_0712; 12'o0071: crom <= 108'o0003_4751_1207_4374_4007_0700_0010_0000_0001; 12'o0072: crom <= 108'o3101_3443_0300_4174_4007_0700_0200_0004_0712; 12'o0073: crom <= 108'o1514_0111_0503_4174_4003_7700_0200_0003_0001; 12'o0074: crom <= 108'o3100_0553_0300_2274_4007_0700_0200_0004_0512; 12'o0075: crom <= 108'o0054_3447_0303_4174_4007_0700_0000_0000_0000; 12'o0076: crom <= 108'o3100_3443_0300_4174_4007_0700_0200_0004_0512; 12'o0077: crom <= 108'o2440_4571_1205_4374_4007_0700_0000_0024_1200; 12'o0100: crom <= 108'o0106_3333_0003_7174_4007_0700_0400_0000_0227; 12'o0101: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0423; 12'o0102: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0422; 12'o0103: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0421; 12'o0104: crom <= 108'o3676_3333_0004_7174_4007_0700_0410_0000_0212; 12'o0105: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0002; 12'o0106: crom <= 108'o0110_4221_0011_4364_4277_0700_0200_0000_0010; 12'o0107: crom <= 108'o0117_3443_0100_4174_4007_0700_0200_0014_0012; 12'o0110: crom <= 108'o0125_4221_0010_4174_4477_0700_0000_0000_0000; 12'o0111: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0423; 12'o0112: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0422; 12'o0113: crom <= 108'o3474_4751_1203_4374_4367_0700_0000_0000_0421; 12'o0114: crom <= 108'o3675_4223_0000_4364_4277_0700_0210_0000_0010; 12'o0115: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0002; 12'o0116: crom <= 108'o3674_4221_0004_4174_4007_0700_0200_0021_1016; 12'o0117: crom <= 108'o0363_3771_0002_4365_5617_0700_0200_0000_0002; 12'o0120: crom <= 108'o2774_4557_0006_1274_4007_0701_0010_0000_1441; 12'o0121: crom <= 108'o2764_4557_0004_1274_4007_0701_0000_0000_1442; 12'o0122: crom <= 108'o0122_3336_0604_4174_4046_2630_2000_0060_0000; 12'o0123: crom <= 108'o0004_3334_0604_4174_4004_1700_0000_0000_0000; 12'o0124: crom <= 108'o0171_3223_0000_1174_4007_0700_0400_0000_1443; 12'o0125: crom <= 108'o0131_4221_0013_4174_4257_0700_0000_0000_0000; 12'o0126: crom <= 108'o0142_1116_0604_4174_4046_2630_6000_0060_0000; 12'o0127: crom <= 108'o0004_1114_0604_4174_4004_1700_4000_0000_0000; 12'o0130: crom <= 108'o3075_3771_0003_0276_6007_0700_0010_0000_0000; 12'o0131: crom <= 108'o0162_3333_0013_7174_4007_0700_0400_0000_0230; 12'o0132: crom <= 108'o2055_4221_0017_4174_4007_0700_0010_0000_0000; 12'o0133: crom <= 108'o2030_3441_0305_1174_4007_0421_0000_0000_1441; 12'o0134: crom <= 108'o3671_3441_0104_4170_4007_0700_0010_0000_0000; 12'o0135: crom <= 108'o1400_0551_0501_4370_4007_0701_0000_0000_0001; 12'o0136: crom <= 108'o1400_4113_0305_4174_4007_0330_0000_0000_0020; 12'o0137: crom <= 108'o3613_3771_0005_4374_0007_0700_0000_0003_0130; 12'o0140: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_1005; 12'o0141: crom <= 108'o3607_4221_0014_4174_4007_0700_0010_0000_0000; 12'o0142: crom <= 108'o0122_0116_0604_4174_4046_2630_2000_0060_0000; 12'o0143: crom <= 108'o0004_0114_0604_4174_4004_1700_0000_0000_0000; 12'o0144: crom <= 108'o3043_4222_0000_4174_4007_0700_2010_0071_0033; 12'o0145: crom <= 108'o0144_3447_0303_4174_4007_0700_1000_0041_0001; 12'o0146: crom <= 108'o0142_3336_0604_4174_4046_2630_2000_0060_0000; 12'o0147: crom <= 108'o0004_3334_0604_4174_4004_1700_0000_0000_0000; 12'o0150: crom <= 108'o2551_3771_0002_4365_5217_0700_0210_0000_0002; 12'o0151: crom <= 108'o0343_4751_1217_4374_4007_0700_0000_0000_0120; 12'o0152: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o0153: crom <= 108'o2055_3444_1616_4174_4067_0700_0010_0000_0000; 12'o0154: crom <= 108'o3204_3227_0003_4174_4007_0700_0000_0000_0000; 12'o0155: crom <= 108'o2054_3333_0003_4174_4007_0621_0010_0000_0000; 12'o0156: crom <= 108'o2054_3333_0003_4174_4007_0621_0010_0000_0000; 12'o0157: crom <= 108'o3204_3227_0003_4174_4007_0700_0000_0000_0000; 12'o0160: crom <= 108'o1216_7443_0300_4174_4007_0621_0000_0000_0000; 12'o0161: crom <= 108'o0164_3333_0005_4174_4007_0621_0000_0000_0000; 12'o0162: crom <= 108'o0212_3333_0013_7174_4007_0700_0400_0000_0300; 12'o0163: crom <= 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; 12'o0164: crom <= 108'o0370_4443_0000_4174_4007_0700_2010_0071_0042; 12'o0165: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; 12'o0166: crom <= 108'o1177_3441_0304_4174_4007_0700_0000_0000_0000; 12'o0167: crom <= 108'o3177_4662_0000_4370_4007_0700_0000_0077_7000; 12'o0170: crom <= 108'o0172_0551_0505_2270_4007_0700_0000_0000_0000; 12'o0171: crom <= 108'o0563_3442_0300_4174_4007_0700_2010_0071_0043; 12'o0172: crom <= 108'o0556_5741_0505_4174_4003_7700_0200_0000_0010; 12'o0173: crom <= 108'o3225_3444_1616_4174_4067_0700_0000_0000_0000; 12'o0174: crom <= 108'o3263_0551_0505_2270_4007_0700_0200_0004_0512; 12'o0175: crom <= 108'o2763_3441_0416_4174_4007_0700_0000_0000_0000; 12'o0176: crom <= 108'o3263_3443_0500_4174_4007_0700_0200_0004_0512; 12'o0177: crom <= 108'o3204_2227_0003_4174_4007_0700_4000_0000_0000; 12'o0200: crom <= 108'o0200_3444_0303_4174_4043_4701_1000_0041_1777; 12'o0201: crom <= 108'o0110_0551_0201_2270_4156_4700_0200_0014_0012; 12'o0202: crom <= 108'o0322_3333_0003_4174_4003_4701_0010_0000_0000; 12'o0203: crom <= 108'o0110_3441_0201_4170_4156_4700_0200_0014_0012; 12'o0204: crom <= 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; 12'o0205: crom <= 108'o0366_0551_0202_2270_4007_0700_0200_0004_0012; 12'o0206: crom <= 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; 12'o0207: crom <= 108'o0366_3443_0200_4174_4007_0700_0200_0004_0012; 12'o0210: crom <= 108'o3255_4002_0000_4174_0007_0700_0000_0000_0000; 12'o0211: crom <= 108'o0213_0551_0202_2270_4007_0700_0000_0000_0000; 12'o0212: crom <= 108'o0214_3333_0013_7174_4007_0700_0400_0000_0301; 12'o0213: crom <= 108'o0000_5741_0203_4174_4001_3700_0200_0000_0342; 12'o0214: crom <= 108'o0223_4223_0000_1174_4007_0700_0400_0000_1443; 12'o0215: crom <= 108'o0366_0551_0202_2270_4007_0700_0200_0004_0112; 12'o0216: crom <= 108'o0610_4111_1204_4174_4007_0700_0000_0000_0000; 12'o0217: crom <= 108'o0366_3443_0200_4174_4007_0700_0200_0004_0112; 12'o0220: crom <= 108'o0221_3441_0301_4174_4007_0700_0200_0014_0012; 12'o0221: crom <= 108'o0100_3440_0404_0174_4156_4700_0400_0000_0000; 12'o0222: crom <= 108'o1400_3440_0404_0174_4007_0700_0400_0000_0000; 12'o0223: crom <= 108'o0226_3333_0007_1174_4007_0700_0400_0000_1444; 12'o0224: crom <= 108'o0323_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0225: crom <= 108'o0140_6553_0500_4374_4007_0321_0000_0033_0656; 12'o0226: crom <= 108'o0235_4221_0003_4174_4007_0700_2000_0071_0023; 12'o0227: crom <= 108'o2452_4553_0300_4374_4007_0331_0000_0000_0001; 12'o0230: crom <= 108'o3101_0553_0300_2274_4007_0701_0200_0004_0712; 12'o0231: crom <= 108'o3447_3441_0503_4174_4007_0700_0000_0000_0000; 12'o0232: crom <= 108'o3101_3443_0300_4174_4007_0700_0200_0004_0712; 12'o0233: crom <= 108'o3446_3770_0503_4334_4017_0700_0000_0032_6000; 12'o0234: crom <= 108'o3454_0553_0300_2274_4007_0701_0200_0004_0612; 12'o0235: crom <= 108'o0242_3333_0007_7174_4007_0700_0400_0000_0344; 12'o0236: crom <= 108'o3454_3443_0300_4174_4007_0700_0200_0004_0612; 12'o0237: crom <= 108'o3650_4571_1204_4374_4007_0700_0000_0021_1200; 12'o0240: crom <= 108'o3127_3333_0003_7174_4007_0700_0400_0000_0223; 12'o0241: crom <= 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; 12'o0242: crom <= 108'o0244_4223_0000_7174_4007_0700_0400_0000_0373; 12'o0243: crom <= 108'o2054_3333_0017_4174_4007_0621_0010_0000_0000; 12'o0244: crom <= 108'o0311_3771_0002_4374_4007_0700_0000_0000_0344; 12'o0245: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0246: crom <= 108'o3412_3333_0004_7174_4007_0700_0410_0000_0246; 12'o0247: crom <= 108'o3411_3771_0003_7274_4007_0701_0000_0000_0246; 12'o0250: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0251: crom <= 108'o1400_3333_0003_4174_4007_0520_0000_0000_0000; 12'o0252: crom <= 108'o1400_3333_0003_4174_4007_0621_0000_0000_0000; 12'o0253: crom <= 108'o1400_3333_0003_4174_4007_0421_0000_0000_0000; 12'o0254: crom <= 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; 12'o0255: crom <= 108'o0260_3333_0003_4174_4007_0520_0000_0000_0000; 12'o0256: crom <= 108'o0260_3333_0003_4174_4007_0621_0000_0000_0000; 12'o0257: crom <= 108'o0260_3333_0003_4174_4007_0421_0000_0000_0000; 12'o0260: crom <= 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; 12'o0261: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0262: crom <= 108'o0407_3447_0705_4174_4003_7700_0000_0000_0000; 12'o0263: crom <= 108'o3236_3444_0303_4174_4047_0700_0000_0000_0000; 12'o0264: crom <= 108'o3077_3333_0003_4174_4217_0700_0010_0000_0500; 12'o0265: crom <= 108'o0360_3333_0003_4174_4006_5701_0010_0000_0000; 12'o0266: crom <= 108'o0262_3447_0303_4174_4007_0700_1000_0041_0001; 12'o0267: crom <= 108'o1400_4443_0000_4174_4467_0700_0000_0005_0000; 12'o0270: crom <= 108'o0100_3440_0505_0174_4156_4700_0400_0000_0000; 12'o0271: crom <= 108'o0762_3770_0505_0174_4007_0520_0400_0000_0000; 12'o0272: crom <= 108'o0762_3770_0505_0174_4007_0621_0400_0000_0000; 12'o0273: crom <= 108'o0762_3770_0505_0174_4007_0421_0400_0000_0000; 12'o0274: crom <= 108'o0764_3440_0505_0174_4007_0700_0400_0000_0000; 12'o0275: crom <= 108'o0764_3770_0505_0174_4007_0520_0400_0000_0000; 12'o0276: crom <= 108'o0764_3770_0505_0174_4007_0621_0400_0000_0000; 12'o0277: crom <= 108'o0764_3770_0505_0174_4007_0421_0400_0000_0000; 12'o0300: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o0301: crom <= 108'o2551_3771_0002_4365_5217_0700_0210_0000_0002; 12'o0302: crom <= 108'o0016_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0303: crom <= 108'o2432_4553_1400_4374_4007_0331_0010_0007_7400; 12'o0304: crom <= 108'o0305_5111_0514_4170_4007_0700_0000_0000_0000; 12'o0305: crom <= 108'o3610_3770_1416_4344_4007_0700_0010_0000_0000; 12'o0306: crom <= 108'o0016_3447_0303_4174_4004_1700_1000_0041_0001; 12'o0307: crom <= 108'o3610_3770_1416_4344_4007_0700_0010_0000_0000; 12'o0310: crom <= 108'o2746_3333_0002_4175_5007_0701_0210_0000_0002; 12'o0311: crom <= 108'o0323_3771_0006_4374_4007_0700_0000_0000_0373; 12'o0312: crom <= 108'o2745_3741_0103_4074_4007_0700_0010_0000_0000; 12'o0313: crom <= 108'o0022_3333_0003_4175_5007_0701_0200_0000_0002; 12'o0314: crom <= 108'o2746_3333_0003_4175_5007_0701_0210_0000_0002; 12'o0315: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0316: crom <= 108'o0020_3333_0001_4175_5007_0701_0200_0000_0002; 12'o0317: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o0320: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o0321: crom <= 108'o2432_4553_1400_4374_4007_0331_0010_0007_7400; 12'o0322: crom <= 108'o0462_0007_0704_4174_4007_0511_0000_0000_0000; 12'o0323: crom <= 108'o0010_0111_0706_4174_4007_0700_0200_0000_0010; 12'o0324: crom <= 108'o0334_0111_0702_4174_4007_0700_0200_0000_0010; 12'o0325: crom <= 108'o0335_3333_0012_4174_4437_0700_0000_0000_0000; 12'o0326: crom <= 108'o0322_3446_0303_4174_4047_0700_1000_0041_0001; 12'o0327: crom <= 108'o2002_4553_1300_4374_4007_0321_0000_0000_2000; 12'o0330: crom <= 108'o1220_3333_0005_4174_4007_0520_0000_0000_0000; 12'o0331: crom <= 108'o3071_4551_0404_4374_0007_0700_0010_0037_7777; 12'o0332: crom <= 108'o3450_3771_0003_7274_4007_0700_0010_0000_0244; 12'o0333: crom <= 108'o1220_3333_0005_4174_4007_0520_0000_0000_0000; 12'o0334: crom <= 108'o0224_3333_0004_6174_4007_0630_2400_0060_0000; 12'o0335: crom <= 108'o1525_4223_0000_4364_4277_0700_0200_0000_0010; 12'o0336: crom <= 108'o3437_3771_0003_1276_6007_0701_0000_0000_1443; 12'o0337: crom <= 108'o2005_4111_1203_4174_4007_0700_0000_0000_0000; 12'o0340: crom <= 108'o0550_4443_0000_4174_4006_7701_0000_0031_0210; 12'o0341: crom <= 108'o3102_3770_0505_4334_4057_0700_0000_0073_0000; 12'o0342: crom <= 108'o3102_3770_0505_4334_4057_0700_0000_0074_0000; 12'o0343: crom <= 108'o0346_4221_0001_4174_4467_0700_0000_0000_0004; 12'o0344: crom <= 108'o3102_3770_0505_4334_4057_0700_0000_0075_0000; 12'o0345: crom <= 108'o3102_3770_0505_4334_4057_0700_0000_0076_0000; 12'o0346: crom <= 108'o0116_3771_0017_4374_4007_0700_0000_0000_0000; 12'o0347: crom <= 108'o3102_3770_0505_4334_4057_0700_0000_0077_0000; 12'o0350: crom <= 108'o3075_3441_0503_4174_4007_0700_0200_0003_0002; 12'o0351: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0352: crom <= 108'o3074_3770_0503_4334_4017_0700_0000_0032_6000; 12'o0353: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0354: crom <= 108'o1264_3446_1200_4174_4007_0700_2010_0071_0042; 12'o0355: crom <= 108'o3040_3444_0303_4174_4047_0700_0000_0000_0000; 12'o0356: crom <= 108'o3021_3224_0016_4174_4007_0700_0000_0000_0000; 12'o0357: crom <= 108'o3037_2222_0000_4174_4007_0700_4000_0000_0000; 12'o0360: crom <= 108'o3114_3333_0003_4174_4007_0700_1000_0031_7770; 12'o0361: crom <= 108'o3112_3770_0503_4334_4017_0700_0000_0041_0000; 12'o0362: crom <= 108'o3112_3770_0503_4334_4027_0700_0000_0041_0000; 12'o0363: crom <= 108'o0201_0111_0701_2170_4366_6700_0200_0010_0010; 12'o0364: crom <= 108'o3112_3770_0503_4334_4037_0700_0000_0041_0000; 12'o0365: crom <= 108'o3112_3770_0503_4334_4047_0700_0000_0041_0000; 12'o0366: crom <= 108'o0371_3771_0002_4361_5217_0700_0200_0000_0102; 12'o0367: crom <= 108'o3112_3770_0503_4334_4057_0700_0000_0041_0000; 12'o0370: crom <= 108'o3043_4662_0000_4374_0007_0700_0010_0037_7777; 12'o0371: crom <= 108'o0201_3443_0100_2174_4006_6700_0200_0010_0010; 12'o0372: crom <= 108'o0412_3333_0003_4174_4007_0520_3010_0041_2000; 12'o0373: crom <= 108'o0000_4221_0004_4174_4001_2700_0000_0000_0000; 12'o0374: crom <= 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0375: crom <= 108'o0002_2222_0000_4174_4004_1700_4000_0000_0000; 12'o0376: crom <= 108'o0377_2222_0000_4174_4007_0700_4000_0000_0000; 12'o0377: crom <= 108'o0002_2441_0303_4174_4004_1700_4000_0000_0000; 12'o0400: crom <= 108'o2747_3333_0003_4174_4007_0700_0200_0003_0012; 12'o0401: crom <= 108'o0406_0111_0702_4170_4007_0700_0200_0004_0312; 12'o0402: crom <= 108'o0445_0111_0703_4174_4007_0700_0200_0004_0312; 12'o0403: crom <= 108'o0432_0111_0703_4174_4007_0700_0200_0004_0312; 12'o0404: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o0405: crom <= 108'o0000_4443_0000_4174_4001_2700_0000_0000_0000; 12'o0406: crom <= 108'o0000_3771_0004_4365_5001_2700_0200_0000_0002; 12'o0407: crom <= 108'o0016_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0410: crom <= 108'o2775_3777_0006_0274_4007_0701_0010_0000_0000; 12'o0411: crom <= 108'o2777_0113_1616_1174_4007_0701_0400_0000_1441; 12'o0412: crom <= 108'o0001_4551_0303_4374_0004_1700_0000_0000_0777; 12'o0413: crom <= 108'o0001_3551_0303_4374_0004_1700_0000_0077_7000; 12'o0414: crom <= 108'o2765_3223_0000_1174_4007_0700_0400_0000_1442; 12'o0415: crom <= 108'o0000_3771_0004_1276_6001_2701_0000_0000_1441; 12'o0416: crom <= 108'o0431_3776_0005_0274_4007_0701_0000_0000_0000; 12'o0417: crom <= 108'o0302_0111_0503_4174_4003_4701_0000_0000_0000; 12'o0420: crom <= 108'o0420_3444_0303_4174_4063_4701_1000_0041_1777; 12'o0421: crom <= 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; 12'o0422: crom <= 108'o0262_3333_0003_4174_4003_4701_0010_0000_0000; 12'o0423: crom <= 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; 12'o0424: crom <= 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; 12'o0425: crom <= 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; 12'o0426: crom <= 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; 12'o0427: crom <= 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; 12'o0430: crom <= 108'o1376_3223_0000_4174_4007_0621_0000_0000_0000; 12'o0431: crom <= 108'o0044_3446_0505_4174_4007_0700_0000_0000_0000; 12'o0432: crom <= 108'o0451_3551_0505_4374_0007_0700_0000_0077_7000; 12'o0433: crom <= 108'o3222_5111_1217_4174_4007_0700_0000_0000_0000; 12'o0434: crom <= 108'o1515_3333_0003_4175_5007_0701_0200_0000_0002; 12'o0435: crom <= 108'o1400_3333_0003_4175_5007_0701_0200_0000_0002; 12'o0436: crom <= 108'o1377_3770_0303_4324_0457_0700_0000_0041_0000; 12'o0437: crom <= 108'o0433_0222_0000_4174_4007_0700_4000_0000_0000; 12'o0440: crom <= 108'o0440_3444_0303_4174_4063_4701_1000_0041_1777; 12'o0441: crom <= 108'o2214_3771_0004_1276_6007_0701_0010_0000_1441; 12'o0442: crom <= 108'o0262_3333_0003_4174_4003_4701_0010_0000_0000; 12'o0443: crom <= 108'o2170_0111_0706_4174_4007_0630_2000_0060_0000; 12'o0444: crom <= 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; 12'o0445: crom <= 108'o0451_4551_0505_4374_0007_0700_0000_0000_0777; 12'o0446: crom <= 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; 12'o0447: crom <= 108'o2172_4553_0600_4374_4007_0331_0000_0077_7777; 12'o0450: crom <= 108'o0440_3444_0303_4174_4063_4701_1000_0041_1777; 12'o0451: crom <= 108'o0452_4557_0004_4365_5007_0701_0200_0000_0002; 12'o0452: crom <= 108'o0467_3447_0503_4174_4007_0700_0000_0000_0000; 12'o0453: crom <= 108'o3227_3446_1616_4174_4047_0700_0000_0000_0000; 12'o0454: crom <= 108'o0454_3444_0303_4174_4447_0630_2000_0060_0000; 12'o0455: crom <= 108'o1515_3445_0303_4174_4007_0700_0000_0000_0000; 12'o0456: crom <= 108'o0327_3770_0303_4324_0453_7700_0000_0041_0000; 12'o0457: crom <= 108'o0453_3551_1313_4374_0007_0700_0000_0000_2000; 12'o0460: crom <= 108'o1074_0551_0703_7274_4007_0701_0010_0000_0242; 12'o0461: crom <= 108'o2142_4553_0600_4374_4007_0321_0000_0010_0000; 12'o0462: crom <= 108'o0016_3770_0303_4324_0454_1700_0000_0041_0000; 12'o0463: crom <= 108'o0462_0441_0303_4174_4003_4701_4000_0000_0000; 12'o0464: crom <= 108'o3335_7771_0003_7274_4007_0701_0000_0000_0242; 12'o0465: crom <= 108'o2132_1553_0300_4374_4007_0532_4000_0000_0012; 12'o0466: crom <= 108'o0462_3447_0303_4174_4007_0700_1000_0041_0001; 12'o0467: crom <= 108'o0471_3447_0303_4174_4007_0700_2000_0011_0000; 12'o0470: crom <= 108'o3667_3741_0105_4074_4007_0700_0010_0000_0000; 12'o0471: crom <= 108'o0000_3443_0100_4174_4001_2700_0200_0014_0012; 12'o0472: crom <= 108'o0472_3446_1616_4174_4046_2630_2000_0060_0000; 12'o0473: crom <= 108'o0453_3221_0017_4174_4006_2700_0000_0000_0000; 12'o0474: crom <= 108'o3664_3771_0003_4374_0007_0700_0010_0000_0000; 12'o0475: crom <= 108'o2714_3441_0301_4174_4467_0700_0000_0000_0004; 12'o0476: crom <= 108'o2016_3551_1313_4374_0007_0700_0000_0000_2000; 12'o0477: crom <= 108'o2017_3551_1313_4374_0007_0700_0000_0000_2000; 12'o0500: crom <= 108'o1074_0551_0703_7274_4007_0701_0010_0000_0242; 12'o0501: crom <= 108'o0750_3441_0304_4174_4007_0520_0000_0000_0000; 12'o0502: crom <= 108'o0767_3441_0301_4174_4007_0700_0200_0014_0012; 12'o0503: crom <= 108'o1400_4223_0000_1174_4007_0700_0400_0000_1441; 12'o0504: crom <= 108'o3270_1771_0003_7274_4007_0701_4000_0000_0242; 12'o0505: crom <= 108'o3450_3771_0013_4370_4007_0700_0010_0000_0005; 12'o0506: crom <= 108'o1515_3333_0005_4175_5007_0701_0200_0000_0002; 12'o0507: crom <= 108'o0500_3771_0013_4370_4007_0700_0000_0000_0003; 12'o0510: crom <= 108'o3450_3771_0013_4370_4007_0700_0010_0000_0012; 12'o0511: crom <= 108'o1402_3771_0003_0270_6007_0700_0000_0000_0000; 12'o0512: crom <= 108'o1402_3771_0003_0276_0007_0700_0000_0000_0000; 12'o0513: crom <= 108'o2040_3333_0017_4174_4007_0520_1000_0031_0202; 12'o0514: crom <= 108'o0514_3445_0505_4174_4007_0520_1000_0041_0004; 12'o0515: crom <= 108'o1006_3777_0003_4334_4057_0700_0000_0041_0000; 12'o0516: crom <= 108'o3365_2551_0705_1274_4007_0701_4000_0000_1443; 12'o0517: crom <= 108'o0513_0222_0000_4174_4007_0700_4000_0000_0000; 12'o0520: crom <= 108'o0520_3444_0303_4174_4043_4701_1000_0041_1777; 12'o0521: crom <= 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; 12'o0522: crom <= 108'o0322_3333_0003_4174_4003_4701_0010_0000_0000; 12'o0523: crom <= 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; 12'o0524: crom <= 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; 12'o0525: crom <= 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; 12'o0526: crom <= 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; 12'o0527: crom <= 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; 12'o0530: crom <= 108'o3251_4002_0000_4174_0007_0700_0000_0000_0000; 12'o0531: crom <= 108'o0532_3333_0004_4175_5007_0701_0200_0000_0002; 12'o0532: crom <= 108'o0435_3443_0200_4174_4007_0700_0200_0003_0312; 12'o0533: crom <= 108'o3444_1111_0703_4174_4007_0700_4000_0000_0000; 12'o0534: crom <= 108'o0534_3446_0505_4174_4057_0630_2000_0060_0000; 12'o0535: crom <= 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; 12'o0536: crom <= 108'o3250_4221_0013_4174_4007_0700_0000_0000_0000; 12'o0537: crom <= 108'o1074_0551_0703_7274_4007_0701_0000_0000_0242; 12'o0540: crom <= 108'o2274_3333_0004_7174_4007_0520_0410_0000_0242; 12'o0541: crom <= 108'o0750_3441_0304_4174_4007_0520_0000_0000_0000; 12'o0542: crom <= 108'o3450_3771_0013_4370_4007_0700_0010_0000_0005; 12'o0543: crom <= 108'o0563_3442_0300_4174_4007_0700_2010_0071_0043; 12'o0544: crom <= 108'o0544_3444_0505_4174_4057_0630_2000_0060_0000; 12'o0545: crom <= 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; 12'o0546: crom <= 108'o3306_0551_0704_7274_4007_0701_0000_0000_0242; 12'o0547: crom <= 108'o2766_3445_0404_4174_4467_0700_0000_0005_0000; 12'o0550: crom <= 108'o3104_4443_0000_4174_4007_0700_1000_0031_0000; 12'o0551: crom <= 108'o1264_3446_0316_4174_4007_0520_2010_0071_0042; 12'o0552: crom <= 108'o3103_3770_0505_4344_4007_0700_0000_0000_0000; 12'o0553: crom <= 108'o3024_3224_0016_4174_4007_0700_0000_0000_0000; 12'o0554: crom <= 108'o1046_3772_0000_1275_5007_0701_0000_0000_1441; 12'o0555: crom <= 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; 12'o0556: crom <= 108'o3400_3333_0005_7174_4001_2700_0400_0000_0241; 12'o0557: crom <= 108'o2056_3333_0005_4174_4007_0530_0000_0000_0000; 12'o0560: crom <= 108'o0620_3771_0005_1276_6007_0701_0010_0000_1443; 12'o0561: crom <= 108'o2140_0551_0404_1274_4007_0562_0010_0000_1444; 12'o0562: crom <= 108'o2214_0111_0705_4174_4007_0700_0010_0000_0000; 12'o0563: crom <= 108'o3002_3446_1200_4174_4007_0700_0010_0000_0000; 12'o0564: crom <= 108'o1500_3111_0503_4174_4003_7700_0200_0003_0001; 12'o0565: crom <= 108'o0600_0551_0505_1274_4007_0701_0000_0000_1443; 12'o0566: crom <= 108'o3364_3333_0003_7174_4007_0700_0400_0000_0247; 12'o0567: crom <= 108'o0004_0113_0404_4174_4464_1701_0000_0001_0001; 12'o0570: crom <= 108'o0571_3771_0003_4374_4007_0700_0000_0000_0000; 12'o0571: crom <= 108'o0370_3333_0005_7174_4007_0700_0410_0000_0226; 12'o0572: crom <= 108'o1515_3445_0303_4174_4007_0700_1020_0041_0001; 12'o0573: crom <= 108'o3143_3772_0000_4374_0007_0700_0000_0000_0000; 12'o0574: crom <= 108'o0500_3771_0013_4370_4007_0700_0000_0000_0003; 12'o0575: crom <= 108'o3265_3771_0005_1276_6007_0701_0000_0000_1444; 12'o0576: crom <= 108'o3305_3441_0304_4174_4007_0700_0000_0000_0000; 12'o0577: crom <= 108'o0630_3771_0004_1276_6007_0522_0000_0000_1443; 12'o0600: crom <= 108'o0621_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0601: crom <= 108'o2140_0111_0304_4174_4007_0561_0010_0000_0000; 12'o0602: crom <= 108'o0602_3445_0303_4174_4007_0630_2000_0060_0000; 12'o0603: crom <= 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0604: crom <= 108'o0340_3333_0003_4174_4006_5701_1010_0051_0770; 12'o0605: crom <= 108'o3333_3440_0404_1174_4007_0700_0400_0000_1444; 12'o0606: crom <= 108'o0555_3440_0303_0174_4467_0700_0400_0005_0000; 12'o0607: crom <= 108'o1000_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0610: crom <= 108'o3256_4111_0004_4174_4007_0700_0010_0000_0000; 12'o0611: crom <= 108'o1515_3447_0303_4174_4007_0700_1020_0041_0001; 12'o0612: crom <= 108'o3253_6111_0004_4174_4007_0700_0000_0000_0000; 12'o0613: crom <= 108'o2050_2441_0404_4174_4007_0561_4000_0000_0000; 12'o0614: crom <= 108'o0634_3447_0505_4174_4007_0700_2000_0041_1776; 12'o0615: crom <= 108'o0624_3447_0505_4174_4007_0700_2000_0031_1776; 12'o0616: crom <= 108'o3330_3771_0013_4370_4007_0700_0000_0000_0007; 12'o0617: crom <= 108'o0616_3551_0606_4374_0007_0700_0000_0040_0000; 12'o0620: crom <= 108'o0621_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0621: crom <= 108'o0622_0111_0505_4174_4007_0700_0000_0000_0000; 12'o0622: crom <= 108'o2140_0111_0404_4174_4007_0561_0010_0000_0000; 12'o0623: crom <= 108'o3001_3447_0606_4174_4007_0700_2010_0071_0043; 12'o0624: crom <= 108'o0624_3446_0505_4174_4047_0630_2000_0060_0000; 12'o0625: crom <= 108'o1053_3444_0505_4174_4047_0700_0000_0000_0000; 12'o0626: crom <= 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0627: crom <= 108'o0730_3442_0300_4174_4007_0700_2000_0071_0043; 12'o0630: crom <= 108'o3274_3771_0003_1276_6007_0701_0000_0000_1441; 12'o0631: crom <= 108'o2263_3771_0013_4370_4007_0700_0010_0000_0006; 12'o0632: crom <= 108'o0454_3777_0003_0274_4007_0631_2000_0060_0000; 12'o0633: crom <= 108'o3306_0551_0704_7274_4007_0701_0000_0000_0242; 12'o0634: crom <= 108'o0634_3444_0505_4174_4447_0630_2000_0060_0000; 12'o0635: crom <= 108'o1053_3444_0505_4174_4447_0700_0000_0000_0000; 12'o0636: crom <= 108'o2206_3333_0003_4174_4007_0700_0200_0004_0012; 12'o0637: crom <= 108'o0510_3333_0004_7174_4007_0700_0400_0000_0250; 12'o0640: crom <= 108'o2157_3440_0606_1174_4007_0700_0400_0000_1443; 12'o0641: crom <= 108'o3450_3333_0005_7174_4007_0700_0410_0000_0242; 12'o0642: crom <= 108'o1064_4662_0000_4374_0007_0700_0000_0037_7777; 12'o0643: crom <= 108'o1064_3662_0000_4374_0007_0700_0000_0040_0000; 12'o0644: crom <= 108'o0644_3446_0505_4174_4077_0630_2000_0060_0000; 12'o0645: crom <= 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; 12'o0646: crom <= 108'o0701_3447_0303_4174_4007_0700_0000_0000_0000; 12'o0647: crom <= 108'o3362_2551_0705_1274_4007_0701_4000_0000_1443; 12'o0650: crom <= 108'o3274_3441_0503_4174_4007_0700_0000_0000_0000; 12'o0651: crom <= 108'o3275_7771_0003_7274_4007_0701_0000_0000_0242; 12'o0652: crom <= 108'o3276_3770_0503_4334_4017_0700_0000_0032_6000; 12'o0653: crom <= 108'o3275_7771_0003_7274_4007_0701_0000_0000_0242; 12'o0654: crom <= 108'o2226_3770_0303_4344_4007_0700_2000_0071_0007; 12'o0655: crom <= 108'o2227_3770_0303_4344_4007_0700_0000_0000_0000; 12'o0656: crom <= 108'o2226_3447_0303_4174_4007_0700_2000_0071_0006; 12'o0657: crom <= 108'o3403_4551_0303_4374_4007_0700_0000_0000_0777; 12'o0660: crom <= 108'o0370_3771_0003_4374_4007_0700_0010_0000_0000; 12'o0661: crom <= 108'o2232_1553_0300_4374_4007_0532_4000_0000_0005; 12'o0662: crom <= 108'o3135_3223_0000_7174_4007_0700_0400_0000_0224; 12'o0663: crom <= 108'o2250_3333_0006_4174_4007_0520_0000_0000_0000; 12'o0664: crom <= 108'o0370_3771_0003_4374_4007_0700_0010_0000_0000; 12'o0665: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0666: crom <= 108'o3141_3333_0003_7174_4007_0700_0400_0000_0225; 12'o0667: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0670: crom <= 108'o1334_3333_0005_4174_4007_0520_0000_0000_0000; 12'o0671: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0672: crom <= 108'o3172_3441_0304_4174_4007_0700_0000_0000_0000; 12'o0673: crom <= 108'o2254_4553_0600_4374_4007_0321_0000_0010_0000; 12'o0674: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0041_1000; 12'o0675: crom <= 108'o2254_4553_0600_4374_4007_0321_0000_0020_0000; 12'o0676: crom <= 108'o0720_4443_0000_4174_4006_7701_2000_0041_1544; 12'o0677: crom <= 108'o2254_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0700: crom <= 108'o3443_0551_0303_7274_4007_0700_0010_0000_0241; 12'o0701: crom <= 108'o0706_3447_0303_4174_4037_0700_1020_0041_0001; 12'o0702: crom <= 108'o2244_3333_0003_4174_4007_0621_0000_0000_0000; 12'o0703: crom <= 108'o0246_3771_0013_4370_4007_0700_0000_0000_0011; 12'o0704: crom <= 108'o3404_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0705: crom <= 108'o3450_3771_0013_4370_4007_0700_0010_0000_0013; 12'o0706: crom <= 108'o0455_3445_0303_4174_4007_0700_0000_0000_0000; 12'o0707: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0710: crom <= 108'o3404_0111_0701_4174_4007_0700_0000_0000_0000; 12'o0711: crom <= 108'o2240_3771_0013_4370_4007_0700_0000_0000_0011; 12'o0712: crom <= 108'o0006_3333_0006_4174_4007_0520_0000_0000_0000; 12'o0713: crom <= 108'o3423_4551_0606_4374_0007_0700_0000_0007_7777; 12'o0714: crom <= 108'o0715_3771_0005_1276_6007_0701_0000_0000_1443; 12'o0715: crom <= 108'o2236_3443_0500_4174_4007_0700_0200_0004_0012; 12'o0716: crom <= 108'o3442_3447_0303_4174_4007_0700_0000_0000_0000; 12'o0717: crom <= 108'o3440_3770_0303_7174_0007_0700_0000_0000_0241; 12'o0720: crom <= 108'o1370_4443_0000_4174_4007_0630_2000_0060_0000; 12'o0721: crom <= 108'o2270_3333_0006_4174_4007_0520_0000_0000_0000; 12'o0722: crom <= 108'o3210_4443_0000_4174_4007_0700_2000_0031_0232; 12'o0723: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o0724: crom <= 108'o1264_4222_0000_4174_4007_0700_2010_0071_0032; 12'o0725: crom <= 108'o0721_5551_0606_4374_0007_0700_0000_0010_0000; 12'o0726: crom <= 108'o1054_3221_0016_4174_4007_0700_2000_0071_0043; 12'o0727: crom <= 108'o0721_3551_0606_4374_0007_0700_0000_0010_0000; 12'o0730: crom <= 108'o3002_4443_0000_4174_4007_0700_0010_0000_0000; 12'o0731: crom <= 108'o0721_3551_0606_4374_0007_0700_0000_0020_0000; 12'o0732: crom <= 108'o3002_3442_0500_4174_4007_0700_2010_0071_0043; 12'o0733: crom <= 108'o0004_3551_0606_4374_0004_1700_0000_0020_0000; 12'o0734: crom <= 108'o3233_3441_0416_4174_4007_0700_0000_0000_0000; 12'o0735: crom <= 108'o0731_5551_0606_4374_0007_0700_0000_0010_0000; 12'o0736: crom <= 108'o3235_3221_0017_4174_4007_0700_0000_0000_0000; 12'o0737: crom <= 108'o0721_3551_0606_4374_0007_0700_0000_0030_0000; 12'o0740: crom <= 108'o3450_3551_1313_4370_4007_0700_0010_0000_0012; 12'o0741: crom <= 108'o3416_3551_0606_4374_0007_0700_0000_0040_0000; 12'o0742: crom <= 108'o0742_3444_0505_4174_4077_0630_2000_0060_0000; 12'o0743: crom <= 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; 12'o0744: crom <= 108'o0250_3440_0303_0174_4003_7700_0400_0000_0000; 12'o0745: crom <= 108'o0250_4443_0000_4174_4003_7700_0000_0000_0000; 12'o0746: crom <= 108'o3416_3551_0606_4374_0007_0700_0000_0040_0000; 12'o0747: crom <= 108'o0752_3447_0303_4174_4007_0700_0000_0000_0000; 12'o0750: crom <= 108'o3307_4223_0000_1174_4007_0700_0400_0000_1443; 12'o0751: crom <= 108'o2263_3771_0013_4370_4007_0700_0010_0000_0004; 12'o0752: crom <= 108'o0706_3445_0303_4174_4037_0700_1020_0041_0001; 12'o0753: crom <= 108'o2147_3440_0606_0174_4007_0700_0400_0000_0000; 12'o0754: crom <= 108'o0533_3771_0003_1276_6003_7701_0000_0000_1443; 12'o0755: crom <= 108'o2271_3551_0606_4374_0007_0700_0000_0040_0000; 12'o0756: crom <= 108'o0002_3771_0003_7274_4004_1701_0000_0000_0244; 12'o0757: crom <= 108'o0003_3771_0003_1276_6004_1701_0000_0000_1444; 12'o0760: crom <= 108'o3450_3771_0013_4370_4007_0700_0010_0000_0012; 12'o0761: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0762: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0763: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o0764: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o0765: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o0766: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o0767: crom <= 108'o0514_4443_0000_4174_4007_0700_1000_0071_1764; 12'o0770: crom <= 108'o0770_3773_0000_4074_4003_1701_0000_0000_0000; 12'o0771: crom <= 108'o3622_3551_1414_4370_4007_0700_0000_0004_0000; 12'o0772: crom <= 108'o3623_3551_1414_4370_4007_0700_0000_0002_0000; 12'o0773: crom <= 108'o3624_3551_1414_4370_4007_0700_0000_0001_0000; 12'o0774: crom <= 108'o3625_3551_1414_4370_4007_0700_0000_0000_4000; 12'o0775: crom <= 108'o3626_3551_1414_4370_4007_0700_0000_0000_2000; 12'o0776: crom <= 108'o3627_3551_1414_4370_4007_0700_0000_0000_1000; 12'o0777: crom <= 108'o3630_3551_1414_4370_4007_0700_0000_0000_0400; 12'o1000: crom <= 108'o3767_4443_0000_4174_4007_0700_2010_0071_0007; 12'o1001: crom <= 108'o2552_4553_0300_4374_4007_0321_0000_0000_0077; 12'o1002: crom <= 108'o2550_0551_0303_7274_4007_0701_0000_0000_0215; 12'o1003: crom <= 108'o3772_0551_0303_7274_4007_0701_0010_0000_0215; 12'o1004: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1005: crom <= 108'o2601_3441_0301_4174_4007_0700_0000_0000_0000; 12'o1006: crom <= 108'o1023_4251_0303_4374_4007_0700_0000_0000_0077; 12'o1007: crom <= 108'o2546_4553_0300_4374_4007_0321_0000_0000_0077; 12'o1010: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1011: crom <= 108'o0303_4443_0000_4174_4007_0700_0000_0000_0000; 12'o1012: crom <= 108'o3002_3442_0300_4174_4007_0700_2010_0071_0043; 12'o1013: crom <= 108'o3647_3551_0505_0274_4007_0700_0000_0000_0000; 12'o1014: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1015: crom <= 108'o0060_4521_1205_4074_4007_0700_0000_0000_0000; 12'o1016: crom <= 108'o0243_3446_0403_4174_4007_0700_1000_0041_1576; 12'o1017: crom <= 108'o3647_5551_0505_0274_4007_0700_0000_0000_0000; 12'o1020: crom <= 108'o2275_3771_0013_4370_4007_0700_0010_0000_0011; 12'o1021: crom <= 108'o2120_3333_0004_4174_4007_0520_0000_0000_0000; 12'o1022: crom <= 108'o3312_3333_0003_7174_4007_0700_0400_0000_0245; 12'o1023: crom <= 108'o0100_3440_0303_1174_4156_4700_0400_0000_1441; 12'o1024: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1025: crom <= 108'o2715_3443_0300_4174_4007_0700_0200_0003_0012; 12'o1026: crom <= 108'o0534_4443_0000_4174_4007_0630_2000_0060_0000; 12'o1027: crom <= 108'o2442_4553_0300_4374_4007_0331_0000_0000_0001; 12'o1030: crom <= 108'o2122_4443_0000_4174_4007_0700_0010_0000_0000; 12'o1031: crom <= 108'o3315_3771_0003_7274_4007_0701_0000_0000_0244; 12'o1032: crom <= 108'o3315_3440_0404_1174_4007_0700_0400_0000_1443; 12'o1033: crom <= 108'o1036_3444_0505_4174_4007_0700_0000_0000_0000; 12'o1034: crom <= 108'o2716_3441_0302_4174_4617_0700_0000_0000_0100; 12'o1035: crom <= 108'o1034_3333_0002_4174_4167_0700_0000_0000_0000; 12'o1036: crom <= 108'o1064_3440_0505_0174_4007_0700_0400_0000_0000; 12'o1037: crom <= 108'o0003_3441_0503_4174_4004_1700_0000_0000_0000; 12'o1040: crom <= 108'o2642_3771_0003_7274_4007_0622_0010_0000_0423; 12'o1041: crom <= 108'o2642_3771_0003_7274_4007_0622_0010_0000_0424; 12'o1042: crom <= 108'o1047_3333_0004_7174_4007_0700_0400_0000_0423; 12'o1043: crom <= 108'o1047_3333_0004_7174_4007_0700_0400_0000_0424; 12'o1044: crom <= 108'o0220_3333_0005_4175_5003_7701_0200_0000_0002; 12'o1045: crom <= 108'o2720_3333_0005_4175_5007_0701_0200_0000_0002; 12'o1046: crom <= 108'o0614_3776_0005_0274_4007_0631_0000_0000_0000; 12'o1047: crom <= 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; 12'o1050: crom <= 108'o0560_3771_0004_1276_6007_0701_0010_0000_1444; 12'o1051: crom <= 108'o3331_3771_0005_1276_6007_0701_0000_0000_1444; 12'o1052: crom <= 108'o0460_4443_0000_4174_4007_0700_0000_0000_0000; 12'o1053: crom <= 108'o0642_0113_0505_0174_4007_0521_0400_0000_0000; 12'o1054: crom <= 108'o1264_5002_0000_4174_4007_0621_0010_0000_0000; 12'o1055: crom <= 108'o2466_3771_0004_2274_4007_0120_0000_0000_0000; 12'o1056: crom <= 108'o3247_3446_1200_4174_4007_0700_0000_0000_0000; 12'o1057: crom <= 108'o0001_3771_0003_7274_4124_1701_0000_0000_0422; 12'o1060: crom <= 108'o1060_3773_0000_4304_4003_1702_0000_0000_0000; 12'o1061: crom <= 108'o1503_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1062: crom <= 108'o3556_4553_0500_4374_4007_0321_0010_0076_0740; 12'o1063: crom <= 108'o3724_3771_0006_4374_4007_0700_0000_0000_0000; 12'o1064: crom <= 108'o0100_3223_0000_1174_4156_4700_0400_0000_1441; 12'o1065: crom <= 108'o1501_4571_1206_4374_4007_0700_0000_0037_0000; 12'o1066: crom <= 108'o3257_4521_0206_4374_4007_0700_0000_0000_0740; 12'o1067: crom <= 108'o1501_4571_1206_4374_4007_0700_0000_0037_0000; 12'o1070: crom <= 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1071: crom <= 108'o1503_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1072: crom <= 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1073: crom <= 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1074: crom <= 108'o2274_3333_0003_7174_4007_0520_0410_0000_0242; 12'o1075: crom <= 108'o0001_4221_0013_4170_4004_1700_0000_0000_0000; 12'o1076: crom <= 108'o0716_4443_0000_7174_4003_7700_0000_0000_0241; 12'o1077: crom <= 108'o0644_4443_0000_4174_4007_0630_2000_0060_0000; 12'o1100: crom <= 108'o2702_4221_0013_4170_4007_0370_0000_0000_0000; 12'o1101: crom <= 108'o3167_3771_0003_7274_4007_0701_0000_0000_0212; 12'o1102: crom <= 108'o1562_0111_0701_4174_4007_0700_0000_0000_0000; 12'o1103: crom <= 108'o3463_3771_0013_4370_4007_0700_0000_0000_0011; 12'o1104: crom <= 108'o3463_3771_0013_4370_4007_0700_0000_0000_0012; 12'o1105: crom <= 108'o2310_3771_0013_4370_4007_0700_0000_0000_0003; 12'o1106: crom <= 108'o3472_3771_0013_4370_4007_0700_0000_0000_0012; 12'o1107: crom <= 108'o3467_3771_0013_4370_4007_0700_0000_0000_0011; 12'o1110: crom <= 108'o3461_3771_0013_4370_4007_0700_0000_0000_0011; 12'o1111: crom <= 108'o2302_4221_0013_4170_4007_0700_0000_0000_0000; 12'o1112: crom <= 108'o2310_4221_0013_4170_4007_0700_0000_0000_0000; 12'o1113: crom <= 108'o2310_3771_0013_4370_4007_0700_0000_0000_0011; 12'o1114: crom <= 108'o3661_0111_0702_4170_4007_0700_0210_0004_0012; 12'o1115: crom <= 108'o3572_4551_0404_4370_4007_0700_0010_0077_0000; 12'o1116: crom <= 108'o1123_4551_0303_0274_4007_0700_0000_0000_0000; 12'o1117: crom <= 108'o1400_3333_0004_7174_4007_0700_0400_0000_0301; 12'o1120: crom <= 108'o3561_3771_0003_7274_4117_0700_0010_0000_0301; 12'o1121: crom <= 108'o3577_3333_0002_4174_4007_0700_0200_0003_0012; 12'o1122: crom <= 108'o1764_4443_0000_4174_4007_0700_0000_0000_0000; 12'o1123: crom <= 108'o0014_3440_0303_0174_4007_0700_0400_0000_0000; 12'o1124: crom <= 108'o3657_3333_0016_7174_4127_0700_0400_0000_0210; 12'o1125: crom <= 108'o1124_4443_0000_4174_4006_7653_2000_0060_0000; 12'o1126: crom <= 108'o3657_3333_0016_7174_4127_0700_0400_0000_0210; 12'o1127: crom <= 108'o2473_3333_0016_7174_4007_0700_0400_0000_0210; 12'o1130: crom <= 108'o3767_3771_0003_4365_5007_0700_0210_0000_0002; 12'o1131: crom <= 108'o1134_4553_0300_4374_4007_0321_0000_0000_0077; 12'o1132: crom <= 108'o2561_0551_0303_7274_4007_0701_0000_0000_0215; 12'o1133: crom <= 108'o2566_3770_0305_4344_4007_0670_0000_0000_0000; 12'o1134: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o1135: crom <= 108'o2622_4251_0304_4374_4007_0700_0010_0000_3777; 12'o1136: crom <= 108'o1143_4443_0000_4174_4007_0700_0200_0003_0002; 12'o1137: crom <= 108'o3737_3551_0606_4374_0007_0700_0000_0010_0000; 12'o1140: crom <= 108'o3561_3771_0003_7274_4117_0701_0010_0000_0301; 12'o1141: crom <= 108'o2673_4443_0000_4174_4007_0700_0000_0000_0000; 12'o1142: crom <= 108'o1507_4223_0000_4364_4277_0700_0200_0000_0010; 12'o1143: crom <= 108'o1477_3333_0003_4175_5007_0701_0200_0000_0002; 12'o1144: crom <= 108'o2724_3443_0300_4174_4007_0700_0200_0003_0312; 12'o1145: crom <= 108'o2723_3443_0300_4174_4007_0700_0200_0003_0312; 12'o1146: crom <= 108'o1147_4443_0000_4174_4467_0700_0000_0001_2000; 12'o1147: crom <= 108'o0221_3771_0001_4361_5007_0700_0200_0000_0002; 12'o1150: crom <= 108'o1152_0113_0503_0174_4407_0521_0400_0000_0000; 12'o1151: crom <= 108'o1154_0113_0503_0174_4407_0521_0400_0000_0000; 12'o1152: crom <= 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; 12'o1153: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0001_2000; 12'o1154: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0001_2000; 12'o1155: crom <= 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; 12'o1156: crom <= 108'o1510_0111_1104_4174_4007_0700_0010_0000_0000; 12'o1157: crom <= 108'o1160_3333_0010_4174_4007_0520_0000_0000_0000; 12'o1160: crom <= 108'o0310_3333_0004_4174_4007_0700_0200_0021_1016; 12'o1161: crom <= 108'o1162_3770_0203_4344_4007_0700_0000_0000_0000; 12'o1162: crom <= 108'o2745_4521_1203_4074_0007_0700_0010_0000_0000; 12'o1163: crom <= 108'o0314_3333_0004_4174_4007_0700_0200_0021_1016; 12'o1164: crom <= 108'o1165_3551_0505_4370_4007_0700_0000_0000_0001; 12'o1165: crom <= 108'o1166_4553_0300_4374_4007_0321_0000_0001_0000; 12'o1166: crom <= 108'o1167_3551_0505_4370_4007_0700_0000_0000_0004; 12'o1167: crom <= 108'o2743_3333_0005_4174_4007_0700_0200_0024_1016; 12'o1170: crom <= 108'o2753_0551_0303_0274_4467_0702_4000_0001_0001; 12'o1171: crom <= 108'o2752_7441_1205_4174_4007_0700_0000_0000_0000; 12'o1172: crom <= 108'o2753_2551_0303_0274_4467_0702_0000_0001_0001; 12'o1173: crom <= 108'o2753_2551_0303_0274_4467_0702_4000_0001_0001; 12'o1174: crom <= 108'o1404_4551_0404_4374_0007_0700_0000_0037_7777; 12'o1175: crom <= 108'o1404_3551_0404_4374_0007_0700_0000_0040_0000; 12'o1176: crom <= 108'o2755_3445_0404_4174_4007_0700_0000_0000_0000; 12'o1177: crom <= 108'o1500_3221_0003_4174_4003_7700_0200_0003_0001; 12'o1200: crom <= 108'o1202_3770_0404_4174_0007_0520_0000_0000_0000; 12'o1201: crom <= 108'o1500_7001_0003_4174_4003_7700_0200_0003_0001; 12'o1202: crom <= 108'o1404_3221_0003_4174_4467_0700_0000_0041_1000; 12'o1203: crom <= 108'o1404_7001_0003_4174_4467_0700_0000_0041_1000; 12'o1204: crom <= 108'o1500_4001_0004_4174_4003_7700_0200_0003_0001; 12'o1205: crom <= 108'o1206_4113_0616_4174_4007_0520_0000_0000_0000; 12'o1206: crom <= 108'o1500_7001_0004_4174_4003_7700_0200_0003_0001; 12'o1207: crom <= 108'o1404_7001_0004_4174_4467_0700_0000_0041_1000; 12'o1210: crom <= 108'o2773_3223_0000_1174_4007_0700_0400_0000_1441; 12'o1211: crom <= 108'o2767_7003_0000_1174_4007_0700_0400_0000_1441; 12'o1212: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o1213: crom <= 108'o1400_4443_0000_4174_4467_0700_0000_0041_1000; 12'o1214: crom <= 108'o0161_4221_0003_4174_4007_0700_0000_0000_0000; 12'o1215: crom <= 108'o0161_2441_0703_4174_4007_0700_4000_0000_0000; 12'o1216: crom <= 108'o3007_3441_0306_4174_4007_0700_0000_0000_0000; 12'o1217: crom <= 108'o0164_3333_0005_4174_4007_0621_0000_0000_0000; 12'o1220: crom <= 108'o1222_2113_0305_4174_4007_0521_4000_0000_0000; 12'o1221: crom <= 108'o1222_0113_0305_4174_4007_0521_0000_0000_0000; 12'o1222: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; 12'o1223: crom <= 108'o0161_3441_0603_4174_4007_0700_0000_0000_0000; 12'o1224: crom <= 108'o1230_3446_0505_4174_4007_0700_0000_0000_0000; 12'o1225: crom <= 108'o1226_3446_0505_4174_4007_0520_0000_0000_0000; 12'o1226: crom <= 108'o1230_4003_0000_4174_4007_0621_0000_0000_0000; 12'o1227: crom <= 108'o3012_4751_1217_4374_4007_0700_0000_0000_0005; 12'o1230: crom <= 108'o3015_3446_0505_4174_4047_0700_0000_0000_0000; 12'o1231: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; 12'o1232: crom <= 108'o3042_3446_0303_4174_4007_0700_0010_0000_0000; 12'o1233: crom <= 108'o1234_2113_0305_4174_4007_0521_4000_0000_0000; 12'o1234: crom <= 108'o1236_2113_0305_4174_4007_0620_4000_0000_0000; 12'o1235: crom <= 108'o3020_3221_0004_4174_4007_0700_0000_0000_0000; 12'o1236: crom <= 108'o0033_3333_0017_4174_4003_5701_0000_0000_0000; 12'o1237: crom <= 108'o1240_1003_0600_4174_4007_0521_4000_0000_0000; 12'o1240: crom <= 108'o0033_3333_0017_4174_4003_5701_0000_0000_0000; 12'o1241: crom <= 108'o3020_3221_0004_4174_4007_0700_0000_0000_0000; 12'o1242: crom <= 108'o3042_3442_0400_4174_4007_0700_0010_0000_0000; 12'o1243: crom <= 108'o3023_3221_0004_4174_4007_0700_0000_0000_0000; 12'o1244: crom <= 108'o3030_3440_1616_1174_4007_0700_0400_0000_1441; 12'o1245: crom <= 108'o3032_4223_0000_1174_4007_0700_0400_0000_1441; 12'o1246: crom <= 108'o3036_3442_0400_4174_4007_0700_0000_0000_0000; 12'o1247: crom <= 108'o3033_0112_0406_4174_4007_0700_0000_0000_0000; 12'o1250: crom <= 108'o0100_4003_0000_1174_4156_4700_0400_0000_1443; 12'o1251: crom <= 108'o3041_4002_0000_1174_4007_0700_0000_0000_1443; 12'o1252: crom <= 108'o3045_4221_0004_4174_4007_0700_0000_0000_0000; 12'o1253: crom <= 108'o1254_2222_0000_4174_4007_0621_4000_0000_0000; 12'o1254: crom <= 108'o3044_7441_0303_4174_4007_0700_0000_0000_0000; 12'o1255: crom <= 108'o3044_2441_0303_4174_4007_0700_4000_0000_0000; 12'o1256: crom <= 108'o3047_3446_0303_4174_4007_0700_0000_0000_0000; 12'o1257: crom <= 108'o3046_2441_0505_4174_4007_0700_4000_0000_0000; 12'o1260: crom <= 108'o1260_0114_0503_4174_4067_0630_2100_0060_0000; 12'o1261: crom <= 108'o3053_3444_1717_4174_4067_0700_0100_0000_0000; 12'o1262: crom <= 108'o3054_3444_0303_4174_4007_0700_0000_0000_0000; 12'o1263: crom <= 108'o1262_0111_0503_4174_4007_0700_0000_0000_0000; 12'o1264: crom <= 108'o3057_1114_0604_4174_4057_0700_4000_0000_0000; 12'o1265: crom <= 108'o3057_0114_0604_4174_4057_0700_0000_0000_0000; 12'o1266: crom <= 108'o3057_0114_0604_4174_4067_0700_0100_0000_0000; 12'o1267: crom <= 108'o0002_4444_0002_4174_4064_1700_0100_0000_0000; 12'o1270: crom <= 108'o3064_7772_0000_1274_4007_0701_0000_0000_1442; 12'o1271: crom <= 108'o3062_1772_0000_1274_4007_0701_4000_0000_1442; 12'o1272: crom <= 108'o3065_7772_0000_1274_4007_0701_0000_0000_1441; 12'o1273: crom <= 108'o3063_1772_0000_1274_4007_0701_4000_0000_1441; 12'o1274: crom <= 108'o3066_7771_0003_0274_4007_0700_0000_0000_0000; 12'o1275: crom <= 108'o3066_1771_0003_0274_4007_0701_4000_0000_0000; 12'o1276: crom <= 108'o2220_7441_0303_4174_4467_0700_0000_0001_0001; 12'o1277: crom <= 108'o2220_2441_0303_4174_4467_0701_4000_0001_0001; 12'o1300: crom <= 108'o2220_7441_0303_4174_4007_0700_0000_0000_0000; 12'o1301: crom <= 108'o2220_2441_0303_4174_4007_0700_4000_0000_0000; 12'o1302: crom <= 108'o1302_3447_0404_4174_4007_0630_2000_0060_0000; 12'o1303: crom <= 108'o3130_4557_0404_4374_4007_0701_0000_0000_0176; 12'o1304: crom <= 108'o1304_3447_0505_4174_4007_0630_2000_0060_0000; 12'o1305: crom <= 108'o1306_3333_0005_7174_4007_0621_0400_0000_0222; 12'o1306: crom <= 108'o0660_3442_0400_4174_4007_0700_2000_0071_0042; 12'o1307: crom <= 108'o1404_3771_0003_7274_4007_0701_0000_0000_0223; 12'o1310: crom <= 108'o0570_0662_0000_0274_4007_0522_2000_0071_0042; 12'o1311: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; 12'o1312: crom <= 108'o3145_0661_0005_7274_4407_0701_0000_0000_0223; 12'o1313: crom <= 108'o3144_1002_0700_4170_4007_0700_4000_0000_0000; 12'o1314: crom <= 108'o1314_3445_0303_4174_4007_0630_2000_0060_0000; 12'o1315: crom <= 108'o3152_4551_0505_4374_0007_0700_0000_0000_7777; 12'o1316: crom <= 108'o3663_3443_0400_4174_4007_0700_0210_0004_0712; 12'o1317: crom <= 108'o3154_4221_0006_4174_0007_0700_0000_0000_0000; 12'o1320: crom <= 108'o3164_3443_0600_4174_4007_0700_0200_0003_0312; 12'o1321: crom <= 108'o3162_3443_0600_4174_4007_0700_0200_0003_0312; 12'o1322: crom <= 108'o3165_4443_0000_4174_4007_0700_0000_0000_0000; 12'o1323: crom <= 108'o1324_2113_0603_4174_4007_0521_4000_0000_0000; 12'o1324: crom <= 108'o1400_4221_0013_4170_4007_0700_0000_0000_0000; 12'o1325: crom <= 108'o1326_0111_0704_4174_4007_0370_0000_0000_0000; 12'o1326: crom <= 108'o3162_0111_0706_4170_4007_0700_0200_0003_0312; 12'o1327: crom <= 108'o3164_0111_0706_4170_4007_0700_0200_0003_0312; 12'o1330: crom <= 108'o1400_4221_0013_4170_4007_0700_0000_0000_0000; 12'o1331: crom <= 108'o3166_0111_0706_4174_4007_0700_0000_0000_0000; 12'o1332: crom <= 108'o3175_4551_0303_4374_0007_0700_0000_0000_0777; 12'o1333: crom <= 108'o3175_3551_0303_4374_0007_0700_0000_0077_7000; 12'o1334: crom <= 108'o3175_4551_0505_4374_0007_0700_0000_0000_0777; 12'o1335: crom <= 108'o3175_3551_0505_4374_0007_0700_0000_0077_7000; 12'o1336: crom <= 108'o1336_3446_0505_4174_4047_0630_2000_0060_0000; 12'o1337: crom <= 108'o0420_0111_0503_4174_4003_4701_0000_0000_0000; 12'o1340: crom <= 108'o3176_4551_0606_4374_0007_0700_0000_0000_0777; 12'o1341: crom <= 108'o3176_3551_0606_4374_0007_0700_0000_0077_7000; 12'o1342: crom <= 108'o1344_3771_0003_0276_6007_0520_1000_0030_2000; 12'o1343: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; 12'o1344: crom <= 108'o3201_4551_0303_4374_0007_0700_0000_0000_0777; 12'o1345: crom <= 108'o3202_3551_0303_4374_0007_0700_0000_0077_7000; 12'o1346: crom <= 108'o1350_2113_0406_4174_4007_0311_4000_0000_0000; 12'o1347: crom <= 108'o1346_2445_0506_4174_4007_0700_4000_0000_0000; 12'o1350: crom <= 108'o1352_3447_0606_4174_4007_0700_0000_0000_0000; 12'o1351: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; 12'o1352: crom <= 108'o3665_3445_0303_4174_4007_0700_0010_0000_0000; 12'o1353: crom <= 108'o0144_2113_0604_4174_4007_0421_4000_0000_0000; 12'o1354: crom <= 108'o1356_2441_0305_4174_4007_0521_4000_0000_0000; 12'o1355: crom <= 108'o1363_4222_0000_4174_4007_0700_1000_0071_0233; 12'o1356: crom <= 108'o1360_4553_0500_4374_4007_0321_0000_0077_7000; 12'o1357: crom <= 108'o3205_4222_0000_4174_4007_0700_1000_0071_0244; 12'o1360: crom <= 108'o3205_4222_0000_4174_4007_0700_1000_0071_0244; 12'o1361: crom <= 108'o1363_4222_0000_4174_4007_0700_1000_0071_0233; 12'o1362: crom <= 108'o1362_3446_0303_4174_4047_0630_2000_0060_0000; 12'o1363: crom <= 108'o0420_3333_0003_4174_4003_4701_0000_0000_0000; 12'o1364: crom <= 108'o1363_4551_0303_4374_0007_0700_0000_0000_0777; 12'o1365: crom <= 108'o1363_3551_0303_4374_0007_0700_0000_0077_7000; 12'o1366: crom <= 108'o1366_3446_0303_4174_4047_0630_2000_0060_0000; 12'o1367: crom <= 108'o0063_3447_0705_4174_4003_7700_0000_0000_0000; 12'o1370: crom <= 108'o1370_3445_0303_4174_4007_0630_2000_0060_0000; 12'o1371: crom <= 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; 12'o1372: crom <= 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; 12'o1373: crom <= 108'o1374_3223_0000_4174_4007_0621_0000_0000_0000; 12'o1374: crom <= 108'o1514_0111_0703_4174_4003_7700_0200_0003_0001; 12'o1375: crom <= 108'o0073_7441_1205_4174_4007_0700_0000_0000_0000; 12'o1376: crom <= 108'o0420_3444_0303_4174_4063_4701_1000_0041_1777; 12'o1377: crom <= 108'o1514_4443_0000_4174_4003_7700_0200_0003_0001; 12'o1400: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o1401: crom <= 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; 12'o1402: crom <= 108'o1500_3770_0303_4344_4003_7700_0200_0003_0001; 12'o1403: crom <= 108'o1404_3333_0003_4174_4007_0520_0000_0000_0000; 12'o1404: crom <= 108'o1500_4443_0000_4174_4003_7700_0200_0003_0001; 12'o1405: crom <= 108'o1404_2441_0303_4174_4467_0701_4000_0001_0001; 12'o1406: crom <= 108'o0506_3771_0005_0276_6007_0700_0200_0003_0002; 12'o1407: crom <= 108'o1500_3771_0003_0276_0003_7700_0200_0003_0001; 12'o1410: crom <= 108'o1500_3771_0003_0270_6003_7700_0200_0003_0001; 12'o1411: crom <= 108'o1410_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1412: crom <= 108'o1407_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1413: crom <= 108'o0511_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1414: crom <= 108'o1500_3770_0303_4344_0003_7700_0200_0003_0001; 12'o1415: crom <= 108'o0512_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1416: crom <= 108'o1500_3770_0303_4340_4003_7700_0200_0003_0001; 12'o1417: crom <= 108'o1420_3333_0003_4174_4007_0530_0000_0000_0000; 12'o1420: crom <= 108'o1500_5731_0003_4174_4003_7700_0200_0003_0001; 12'o1421: crom <= 108'o1500_5431_1203_4174_4003_7700_0200_0003_0001; 12'o1422: crom <= 108'o1424_3333_0003_4174_4007_0530_0000_0000_0000; 12'o1423: crom <= 108'o1426_3333_0003_4174_4007_0520_0000_0000_0000; 12'o1424: crom <= 108'o1402_3771_0003_4374_0007_0700_0000_0000_0000; 12'o1425: crom <= 108'o1402_3771_0003_4374_0007_0700_0000_0077_7777; 12'o1426: crom <= 108'o1402_3771_0003_4370_4007_0700_0000_0000_0000; 12'o1427: crom <= 108'o1402_3771_0003_4370_4007_0700_0000_0077_7777; 12'o1430: crom <= 108'o1432_3333_0003_4174_4007_0520_0000_0000_0000; 12'o1431: crom <= 108'o1136_0111_0703_4174_4467_0701_0000_0001_0001; 12'o1432: crom <= 108'o1500_5371_0003_4174_4003_7700_0200_0003_0001; 12'o1433: crom <= 108'o1500_5341_1203_4174_4003_7700_0200_0003_0001; 12'o1434: crom <= 108'o3070_4551_0404_4374_0007_0700_0010_0037_7777; 12'o1435: crom <= 108'o2660_4553_0400_4374_4007_0331_0000_0002_0000; 12'o1436: crom <= 108'o1515_3440_0404_1174_4007_0700_0400_0000_1441; 12'o1437: crom <= 108'o1136_1111_0703_4174_4467_0701_4000_0001_0001; 12'o1440: crom <= 108'o0270_3771_0005_0276_6003_7700_0000_0000_0000; 12'o1441: crom <= 108'o1500_4221_0003_4174_4003_7700_0200_0003_0001; 12'o1442: crom <= 108'o1500_4551_0303_0274_4003_7700_0200_0003_0001; 12'o1443: crom <= 108'o1500_5551_0303_0274_4003_7700_0200_0003_0001; 12'o1444: crom <= 108'o1442_7441_0303_4174_4007_0700_0000_0000_0000; 12'o1445: crom <= 108'o1500_6551_0303_0274_4003_7700_0200_0003_0001; 12'o1446: crom <= 108'o1500_3551_0303_0274_4003_7700_0200_0003_0001; 12'o1447: crom <= 108'o1443_7441_0303_4174_4007_0700_0000_0000_0000; 12'o1450: crom <= 108'o1500_7551_0303_0274_4003_7700_0200_0003_0001; 12'o1451: crom <= 108'o1500_7771_0003_0274_4003_7700_0200_0003_0001; 12'o1452: crom <= 108'o0564_7771_0005_0274_4007_0700_0000_0000_0000; 12'o1453: crom <= 108'o1500_7441_0303_4174_4003_7700_0200_0003_0001; 12'o1454: crom <= 108'o1446_7441_0303_4174_4007_0700_0000_0000_0000; 12'o1455: crom <= 108'o1453_4551_0303_0274_4007_0700_0000_0000_0000; 12'o1456: crom <= 108'o1500_2441_0703_4174_4003_7700_4200_0003_0001; 12'o1457: crom <= 108'o1170_0551_0404_1274_4007_0562_0000_0000_1441; 12'o1460: crom <= 108'o2436_4443_0000_4174_4007_0700_0010_0000_0000; 12'o1461: crom <= 108'o2446_3771_0005_0276_6007_0700_0000_0000_0000; 12'o1462: crom <= 108'o0502_4551_1205_0276_6007_0622_0000_0000_0000; 12'o1463: crom <= 108'o1400_3440_0303_0174_4007_0700_0400_0000_0000; 12'o1464: crom <= 108'o0544_4443_0000_4174_4007_0630_2000_0060_0000; 12'o1465: crom <= 108'o1026_3333_0003_4174_4007_0700_2000_0031_5777; 12'o1466: crom <= 108'o0554_3333_0003_4174_4007_0330_3000_0041_4000; 12'o1467: crom <= 108'o1062_3771_0005_4365_5007_0700_0200_0000_0002; 12'o1470: crom <= 108'o0742_4443_0000_4174_4007_0630_2000_0060_0000; 12'o1471: crom <= 108'o1077_3333_0003_4174_4007_0700_2000_0031_5777; 12'o1472: crom <= 108'o1473_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1473: crom <= 108'o0014_4221_0005_4174_4003_7700_0000_0000_0000; 12'o1474: crom <= 108'o1475_3770_0303_4344_4007_0700_0000_0000_0000; 12'o1475: crom <= 108'o0014_4551_0305_0274_4003_7700_0000_0000_0000; 12'o1476: crom <= 108'o0250_2551_0303_0274_4003_7701_4000_0000_0000; 12'o1477: crom <= 108'o0744_3770_0303_4174_0007_0360_0000_0000_0000; 12'o1500: crom <= 108'o2607_3551_0606_4374_4007_0700_0000_0004_0000; 12'o1501: crom <= 108'o2670_3333_0005_7174_4007_0700_0400_0000_0213; 12'o1502: crom <= 108'o2656_3111_0506_4174_4007_0700_0000_0000_0000; 12'o1503: crom <= 108'o1140_4443_0000_4174_4007_0370_0000_0000_0000; 12'o1504: crom <= 108'o0434_4443_0000_4174_4007_0360_0000_0000_0000; 12'o1505: crom <= 108'o1515_3440_0404_1174_4007_0700_0400_0000_1441; 12'o1506: crom <= 108'o1505_3333_0003_4175_5007_0701_0200_0000_0002; 12'o1507: crom <= 108'o3762_3771_0003_7274_4007_0701_0000_0000_0210; 12'o1510: crom <= 108'o0001_4223_0000_4364_4274_1700_0200_0000_0010; 12'o1511: crom <= 108'o2700_3333_0003_4174_4467_0700_0000_0000_0004; 12'o1512: crom <= 108'o2704_3443_0300_4174_4007_0700_0200_0021_1016; 12'o1513: crom <= 108'o1563_3333_0005_4175_5007_0701_0200_0000_0002; 12'o1514: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_1000; 12'o1515: crom <= 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; 12'o1516: crom <= 108'o1400_3333_0003_4175_5007_0701_0200_0000_0002; 12'o1517: crom <= 108'o1515_3333_0003_4175_5007_0701_0200_0000_0002; 12'o1520: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o1521: crom <= 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; 12'o1522: crom <= 108'o0150_1113_0701_4170_4007_0700_4200_0004_0012; 12'o1523: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1524: crom <= 108'o1004_4443_0000_4174_4007_0340_0000_0000_0000; 12'o1525: crom <= 108'o2606_3443_0300_4174_4007_0700_0200_0004_0012; 12'o1526: crom <= 108'o0320_4443_0000_4174_4007_0340_0000_0000_0000; 12'o1527: crom <= 108'o1014_4443_0000_4174_4007_0340_0000_0000_0000; 12'o1530: crom <= 108'o1010_1113_0701_4170_4007_0040_4200_0004_0012; 12'o1531: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1532: crom <= 108'o0300_1113_0701_4170_4007_0040_4200_0004_0012; 12'o1533: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1534: crom <= 108'o1024_4443_0000_4174_4007_0340_0000_0000_0000; 12'o1535: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1536: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1537: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1540: crom <= 108'o0762_4443_0000_4174_4467_0551_0000_0001_0010; 12'o1541: crom <= 108'o1034_4443_0000_4174_4007_0340_0000_0000_0000; 12'o1542: crom <= 108'o0270_2551_0705_0274_4463_7702_4000_0001_0001; 12'o1543: crom <= 108'o2717_3771_0005_4365_5007_0700_0200_0000_0002; 12'o1544: crom <= 108'o2717_3741_0105_4074_4467_0700_0000_0005_0000; 12'o1545: crom <= 108'o2721_3771_0004_0276_6007_0701_0200_0004_0712; 12'o1546: crom <= 108'o2725_3771_0004_0276_6007_0701_0200_0004_0712; 12'o1547: crom <= 108'o0270_0551_1505_0274_4403_7701_0000_0000_0000; 12'o1550: crom <= 108'o2727_3741_0105_4074_4007_0700_0000_0000_0000; 12'o1551: crom <= 108'o2726_3770_0303_4344_0007_0700_0000_0000_0000; 12'o1552: crom <= 108'o2730_3741_0105_4074_4467_0700_0000_0005_0000; 12'o1553: crom <= 108'o3713_3551_0303_4374_0007_0700_0000_0016_0000; 12'o1554: crom <= 108'o2733_3441_0305_4174_4007_0700_0200_0003_0002; 12'o1555: crom <= 108'o2734_3771_0005_0276_6007_0700_0000_0000_0000; 12'o1556: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1557: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1560: crom <= 108'o1500_0551_0303_0274_4463_7701_0200_0001_0001; 12'o1561: crom <= 108'o1500_2551_0303_0274_4463_7701_4200_0001_0001; 12'o1562: crom <= 108'o2710_4221_0013_4170_4007_0370_0000_0000_0000; 12'o1563: crom <= 108'o2743_0111_0703_4174_4007_0700_0200_0024_1016; 12'o1564: crom <= 108'o0001_0111_0703_4170_4004_1700_0200_0023_1016; 12'o1565: crom <= 108'o3067_3771_0004_1276_6007_0701_0010_0000_1441; 12'o1566: crom <= 108'o2761_3447_0303_4174_4007_0700_0000_0000_0000; 12'o1567: crom <= 108'o0531_0113_0207_4174_4007_0700_0200_0003_0312; 12'o1570: crom <= 108'o1340_3771_0006_0276_6007_0521_1000_0040_2000; 12'o1571: crom <= 108'o2756_3442_0300_0174_4007_0700_0000_0000_0000; 12'o1572: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1573: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1574: crom <= 108'o1342_3441_0305_0174_4007_0621_0000_0000_0000; 12'o1575: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1576: crom <= 108'o1577_2441_0303_4174_4007_0700_4000_0000_0000; 12'o1577: crom <= 108'o0670_3771_0005_0276_6006_7701_2000_0020_2000; 12'o1600: crom <= 108'o3003_3441_0305_0174_4007_0700_0000_0000_0000; 12'o1601: crom <= 108'o3004_3441_0305_4174_4007_0700_0000_0000_0000; 12'o1602: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1603: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1604: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1605: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1606: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1607: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1610: crom <= 108'o0240_4443_0000_4174_4007_0360_0000_0000_0000; 12'o1611: crom <= 108'o0270_0551_0705_0274_4463_7702_0000_0001_0001; 12'o1612: crom <= 108'o0572_3771_0003_0276_6007_0700_1000_0031_1777; 12'o1613: crom <= 108'o0611_4551_1203_0276_6007_0700_1000_0041_0001; 12'o1614: crom <= 108'o2436_4443_0000_4174_4007_0700_0010_0000_0000; 12'o1615: crom <= 108'o1172_2551_0404_1274_4007_0562_4000_0000_1441; 12'o1616: crom <= 108'o1354_4553_0300_4374_4007_0321_0000_0077_7000; 12'o1617: crom <= 108'o0014_4551_0305_0274_4003_7700_0000_0000_0000; 12'o1620: crom <= 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; 12'o1621: crom <= 108'o3206_3333_0003_4174_4007_0700_2000_0041_4000; 12'o1622: crom <= 108'o0632_4222_0000_4174_4007_0700_0000_0000_0000; 12'o1623: crom <= 108'o0611_3771_0003_0276_6007_0700_1000_0041_0001; 12'o1624: crom <= 108'o3077_3333_0003_4174_4217_0701_1010_0073_0500; 12'o1625: crom <= 108'o0604_3443_0100_4174_4007_0700_0200_0014_0012; 12'o1626: crom <= 108'o0674_4222_0000_4174_4006_7701_0000_0041_1534; 12'o1627: crom <= 108'o3011_4112_0400_4174_4007_0700_0000_0000_0000; 12'o1630: crom <= 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; 12'o1631: crom <= 108'o2020_3442_0400_4174_4007_0700_2000_0071_0006; 12'o1632: crom <= 108'o0747_3777_0003_0274_4007_0701_1000_0031_1777; 12'o1633: crom <= 108'o0646_3777_0003_0274_4007_0701_1000_0041_0001; 12'o1634: crom <= 108'o3072_3775_0004_0274_4007_0701_0000_0000_0000; 12'o1635: crom <= 108'o3212_2441_0404_4174_4007_0700_4000_0000_0000; 12'o1636: crom <= 108'o0132_3441_0406_4174_4007_0700_0000_0000_0000; 12'o1637: crom <= 108'o3213_4557_0006_1274_4007_0701_0000_0000_1441; 12'o1640: crom <= 108'o3153_3771_0006_0276_6007_0700_0010_0000_0000; 12'o1641: crom <= 108'o2754_3441_0306_0174_4007_0700_0000_0000_0000; 12'o1642: crom <= 108'o3662_3440_0505_0174_4007_0700_0410_0000_0000; 12'o1643: crom <= 108'o3161_0551_0405_4370_4007_0701_0000_0000_0001; 12'o1644: crom <= 108'o2436_3441_0306_4174_4007_0700_0010_0000_0000; 12'o1645: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1646: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1647: crom <= 108'o1013_3441_0305_4174_4003_7700_0000_0000_0000; 12'o1650: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1651: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1652: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1653: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1654: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1655: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1656: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1657: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1660: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1661: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1662: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1663: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1664: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1665: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1666: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1667: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1670: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1671: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1672: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1673: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1674: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1675: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1676: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1677: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1700: crom <= 108'o0137_3771_0005_4374_4007_0700_0000_0001_0001; 12'o1701: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1702: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1703: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1704: crom <= 108'o3503_3771_0005_7274_4007_0701_0000_0000_0230; 12'o1705: crom <= 108'o3516_3771_0005_7274_4007_0701_0000_0000_0230; 12'o1706: crom <= 108'o3502_3771_0005_4304_4007_0701_0000_0000_0000; 12'o1707: crom <= 108'o3500_3771_0005_4304_4007_0701_0000_0000_0000; 12'o1710: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1711: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1712: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1713: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1714: crom <= 108'o2364_4553_0300_4374_4007_0331_0000_0001_0000; 12'o1715: crom <= 108'o3613_3441_1405_4174_4007_0700_0000_0000_0000; 12'o1716: crom <= 108'o0136_3441_1405_4174_4007_0700_0000_0000_0000; 12'o1717: crom <= 108'o3501_3441_1405_4174_4007_0700_0000_0000_0000; 12'o1720: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1721: crom <= 108'o2352_4551_1105_4374_0007_0700_0000_0050_7700; 12'o1722: crom <= 108'o3615_3443_0300_4174_4147_0700_0200_0000_0010; 12'o1723: crom <= 108'o3524_3443_0300_4174_4007_0700_0200_0004_0012; 12'o1724: crom <= 108'o2342_3445_0303_4174_4007_0700_2000_0071_0006; 12'o1725: crom <= 108'o2350_3447_1005_4174_4007_0700_2000_0071_0006; 12'o1726: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1727: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1730: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1731: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1732: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1733: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1734: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1735: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1736: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1737: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1740: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1741: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1742: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1743: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1744: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1745: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1746: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1747: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1750: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1751: crom <= 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; 12'o1752: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1753: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1754: crom <= 108'o3672_3443_0300_4174_4207_0700_0200_0004_0012; 12'o1755: crom <= 108'o3673_3443_0300_4174_4207_0700_0200_0003_0012; 12'o1756: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1757: crom <= 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; 12'o1760: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0215; 12'o1761: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0216; 12'o1762: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0220; 12'o1763: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0217; 12'o1764: crom <= 108'o3573_4451_1205_4324_4007_0700_0000_0000_0000; 12'o1765: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0302; 12'o1766: crom <= 108'o3613_3771_0005_7274_4007_0701_0000_0000_0227; 12'o1767: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o1770: crom <= 108'o3544_4443_0000_4174_4007_0703_0200_0006_0002; 12'o1771: crom <= 108'o3546_4443_0000_4174_4007_0703_0200_0006_0002; 12'o1772: crom <= 108'o3550_4443_0000_4174_4007_0703_0200_0006_0002; 12'o1773: crom <= 108'o3552_4443_0000_4174_4007_0703_0200_0006_0002; 12'o1774: crom <= 108'o3571_4443_0000_4174_4007_0700_0200_0004_0002; 12'o1775: crom <= 108'o3602_4443_0000_4174_4007_0700_0200_0004_0002; 12'o1776: crom <= 108'o3554_4443_0000_4174_4007_0703_0200_0006_0002; 12'o1777: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o2000: crom <= 108'o0440_7441_0303_4174_4003_4701_0000_0000_0000; 12'o2001: crom <= 108'o0440_2441_0303_4174_4003_4701_4000_0000_0000; 12'o2002: crom <= 108'o3211_7441_0303_4174_4007_0700_0000_0000_0000; 12'o2003: crom <= 108'o2004_3223_0000_4174_4007_0621_0000_0000_0000; 12'o2004: crom <= 108'o3211_7441_0303_4174_4007_0700_0000_0000_0000; 12'o2005: crom <= 108'o3211_2441_0303_4174_4007_0700_4000_0000_0000; 12'o2006: crom <= 108'o2010_5547_0505_0374_4007_0631_0000_0077_7400; 12'o2007: crom <= 108'o2010_3547_0505_0374_4007_0631_0000_0077_7400; 12'o2010: crom <= 108'o2012_3442_0600_4174_4007_0700_0000_0000_0000; 12'o2011: crom <= 108'o3215_3771_0016_0276_6007_0700_2000_0041_2000; 12'o2012: crom <= 108'o0153_3441_0516_4174_4007_0700_0010_0000_0000; 12'o2013: crom <= 108'o3214_3441_1605_4174_4007_0700_0000_0000_0000; 12'o2014: crom <= 108'o0153_3441_0316_4174_4007_0700_0010_0000_0000; 12'o2015: crom <= 108'o3217_3441_1603_4174_4007_0700_0000_0000_0000; 12'o2016: crom <= 108'o2016_3446_1616_4174_4047_0630_2000_0060_0000; 12'o2017: crom <= 108'o0453_3221_0017_4174_4007_0700_0000_0000_0000; 12'o2020: crom <= 108'o2020_3444_0303_4174_4047_0630_2000_0060_0000; 12'o2021: crom <= 108'o3230_3446_1200_4174_4007_0700_0000_0000_0000; 12'o2022: crom <= 108'o0732_5547_0606_4374_4007_0701_0000_0077_7400; 12'o2023: crom <= 108'o0732_3547_0606_4374_4007_0701_0000_0077_7400; 12'o2024: crom <= 108'o2025_0002_0500_4174_4007_0700_0000_0000_0000; 12'o2025: crom <= 108'o3240_3444_0303_4174_4047_0700_0000_0000_0000; 12'o2026: crom <= 108'o2027_0002_0500_4174_4007_0700_0000_0000_0000; 12'o2027: crom <= 108'o0520_3333_0003_4174_4003_4701_1000_0041_0002; 12'o2030: crom <= 108'o3243_4557_0004_1274_4007_0700_0000_0000_1441; 12'o2031: crom <= 108'o3241_7441_1717_4174_4007_0700_0000_0000_0000; 12'o2032: crom <= 108'o2034_5547_0303_4374_4007_0701_0000_0077_7400; 12'o2033: crom <= 108'o3244_7441_1717_4174_4007_0700_0000_0000_0000; 12'o2034: crom <= 108'o3042_3442_0400_4174_4007_0700_0010_0000_0000; 12'o2035: crom <= 108'o2036_2113_0305_4174_4007_0521_4000_0000_0000; 12'o2036: crom <= 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; 12'o2037: crom <= 108'o0724_3221_0004_4174_4007_0700_0000_0000_0000; 12'o2040: crom <= 108'o0520_3441_1603_4174_4003_4701_0000_0000_0000; 12'o2041: crom <= 108'o0200_3441_1603_4174_4003_4701_0000_0000_0000; 12'o2042: crom <= 108'o0520_3444_0303_4174_4043_4701_1000_0041_1777; 12'o2043: crom <= 108'o1515_3440_0303_1174_4007_0700_0400_0000_1441; 12'o2044: crom <= 108'o3252_7222_0000_4174_4007_0700_0000_0000_0000; 12'o2045: crom <= 108'o2046_2222_0000_4174_4007_0511_4000_0000_0000; 12'o2046: crom <= 108'o0200_7441_0303_4174_4003_4701_0000_0000_0000; 12'o2047: crom <= 108'o0200_2441_0303_4174_4003_4701_4000_0000_0000; 12'o2050: crom <= 108'o3254_7333_0003_0174_4007_0700_0400_0000_0000; 12'o2051: crom <= 108'o3254_2443_0300_0174_4007_0701_4400_0000_0000; 12'o2052: crom <= 108'o0200_3444_0303_4174_4043_4701_1000_0041_1777; 12'o2053: crom <= 108'o1515_3440_0303_1174_4007_0700_0400_0000_1441; 12'o2054: crom <= 108'o0023_3551_1313_4374_0004_1700_0000_0000_2000; 12'o2055: crom <= 108'o0023_5551_1313_4374_0004_1700_0000_0000_2000; 12'o2056: crom <= 108'o3400_3333_0005_7174_4001_2700_0400_0000_0241; 12'o2057: crom <= 108'o0556_3771_0005_4374_0007_0700_0000_0077_7777; 12'o2060: crom <= 108'o3556_4553_0500_4374_4007_0321_0010_0077_7000; 12'o2061: crom <= 108'o3556_4553_0400_4374_4007_0321_0010_0077_7000; 12'o2062: crom <= 108'o3460_4521_0306_4374_4007_0700_0010_0077_7000; 12'o2063: crom <= 108'o2066_2113_0305_1174_4007_0521_4400_0000_1443; 12'o2064: crom <= 108'o2062_3771_0003_0276_6007_0700_0000_0000_0000; 12'o2065: crom <= 108'o2110_3771_0006_0276_6007_0700_0000_0000_0000; 12'o2066: crom <= 108'o3264_7441_0503_4174_4007_0700_0000_0000_0000; 12'o2067: crom <= 108'o3264_7441_0303_4174_4007_0700_0000_0000_0000; 12'o2070: crom <= 108'o2070_4224_0003_4174_4026_7701_1000_0041_1770; 12'o2071: crom <= 108'o3560_4443_0000_4174_4007_0700_0010_0000_0000; 12'o2072: crom <= 108'o3267_7221_0003_4174_4007_0700_0000_0000_0000; 12'o2073: crom <= 108'o3302_3771_0003_7274_4007_0701_0000_0000_0211; 12'o2074: crom <= 108'o3271_3440_0303_1174_4007_0700_0400_0000_1443; 12'o2075: crom <= 108'o2074_1111_0503_4174_4007_0700_4000_0000_0000; 12'o2076: crom <= 108'o2077_0111_0503_4174_4007_0700_0000_0000_0000; 12'o2077: crom <= 108'o3273_3111_0603_4174_4007_0700_0000_0000_0000; 12'o2100: crom <= 108'o3277_3333_0003_7174_4007_0700_0400_0000_0211; 12'o2101: crom <= 108'o2102_1111_0704_4174_4007_0521_4000_0000_0000; 12'o2102: crom <= 108'o0650_3770_0305_4334_4016_7371_0000_0033_6000; 12'o2103: crom <= 108'o0546_4223_0000_1174_4007_0700_0400_0000_1443; 12'o2104: crom <= 108'o3664_0111_0403_4174_4007_0700_0010_0000_0000; 12'o2105: crom <= 108'o3720_3113_0306_0174_4007_0700_0400_0000_0000; 12'o2106: crom <= 108'o2107_0111_0703_4174_4007_0700_0000_0000_0000; 12'o2107: crom <= 108'o2112_0111_0703_4170_4007_0700_0200_0004_0012; 12'o2110: crom <= 108'o3556_4553_0600_4374_4007_0321_0010_0077_7000; 12'o2111: crom <= 108'o3556_4553_0600_4374_4007_0321_0010_0004_7777; 12'o2112: crom <= 108'o3662_4221_0003_4174_4007_0700_0010_0000_0000; 12'o2113: crom <= 108'o3320_3223_0000_7174_4007_0700_0400_0000_0244; 12'o2114: crom <= 108'o2106_2113_0604_4174_4007_0521_4000_0000_0000; 12'o2115: crom <= 108'o3401_3443_0600_4174_4007_0700_0200_0004_0012; 12'o2116: crom <= 108'o0250_4221_0013_4170_4003_7700_0000_0000_0000; 12'o2117: crom <= 108'o3311_3771_0003_1276_6007_0701_0000_0000_1441; 12'o2120: crom <= 108'o3323_3772_0000_7274_4007_0701_0000_0000_0244; 12'o2121: crom <= 108'o2116_4221_0003_4174_4007_0700_0000_0000_0000; 12'o2122: crom <= 108'o3451_3771_0003_1276_6007_0701_0010_0000_1444; 12'o2123: crom <= 108'o0340_3333_0003_4174_4006_5701_1000_0051_0770; 12'o2124: crom <= 108'o2220_3771_0004_1276_6007_0701_0010_0000_1444; 12'o2125: crom <= 108'o2220_3333_0004_7174_4007_0700_0410_0000_0250; 12'o2126: crom <= 108'o2130_3440_0404_1174_4007_0700_0400_0000_1444; 12'o2127: crom <= 108'o2160_3333_0003_7174_4007_0520_0400_0000_0247; 12'o2130: crom <= 108'o2154_3333_0006_4174_4007_0520_0010_0000_0000; 12'o2131: crom <= 108'o0616_4551_0303_4374_0003_7700_0000_0000_0777; 12'o2132: crom <= 108'o3335_7771_0003_7274_4007_0701_0000_0000_0242; 12'o2133: crom <= 108'o1050_3771_0005_1276_6007_0622_0000_0000_1443; 12'o2134: crom <= 108'o1050_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2135: crom <= 108'o3332_3775_0005_1276_6007_0701_0000_0000_1444; 12'o2136: crom <= 108'o3665_0551_0505_1274_4007_0700_0010_0000_1444; 12'o2137: crom <= 108'o0460_0113_0305_1174_4007_0701_0400_0000_1444; 12'o2140: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2141: crom <= 108'o3334_4551_0404_4374_0007_0700_0000_0037_7777; 12'o2142: crom <= 108'o3341_3771_0004_1276_6007_0701_0000_0000_1444; 12'o2143: crom <= 108'o3337_3771_0003_1276_6007_0701_0000_0000_1444; 12'o2144: crom <= 108'o3340_4551_0303_4374_0007_0700_0000_0037_7777; 12'o2145: crom <= 108'o3340_3551_0303_4374_0007_0700_0000_0040_0000; 12'o2146: crom <= 108'o2154_3770_0606_0174_4007_0520_0410_0000_0000; 12'o2147: crom <= 108'o0260_4221_0013_4170_4007_0700_0000_0000_0000; 12'o2150: crom <= 108'o2153_7771_0003_1274_4007_0700_0000_0000_1443; 12'o2151: crom <= 108'o2152_1771_0003_1274_4007_0621_4000_0000_1443; 12'o2152: crom <= 108'o2153_4571_1204_4374_4007_0700_0000_0040_0000; 12'o2153: crom <= 108'o3343_3440_0303_1174_4007_0700_0400_0000_1443; 12'o2154: crom <= 108'o3344_4223_0000_1174_4007_0700_0400_0000_1443; 12'o2155: crom <= 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2156: crom <= 108'o3345_4551_0606_4374_4007_0700_0000_0077_7000; 12'o2157: crom <= 108'o3363_3771_0003_0276_6007_0700_0000_0000_0000; 12'o2160: crom <= 108'o2170_4221_0006_4170_4007_0700_0000_0000_0000; 12'o2161: crom <= 108'o2164_3551_0606_4374_0007_0700_0000_0010_0000; 12'o2162: crom <= 108'o2160_3440_0404_1174_4007_0700_0400_0000_1441; 12'o2163: crom <= 108'o3347_0111_0704_4174_4007_0700_0000_0000_0000; 12'o2164: crom <= 108'o3071_4551_0404_4374_0007_0700_0010_0037_7777; 12'o2165: crom <= 108'o2220_3441_1617_4174_4007_0700_0210_0000_0010; 12'o2166: crom <= 108'o2162_3770_0303_0174_4007_0520_0400_0000_0000; 12'o2167: crom <= 108'o2216_1551_0404_6274_4007_0561_4000_0000_0000; 12'o2170: crom <= 108'o0441_3771_0003_0276_6007_0700_0000_0000_0000; 12'o2171: crom <= 108'o2174_3551_0606_4374_0007_0700_0000_0020_0000; 12'o2172: crom <= 108'o2174_3551_0606_4374_0007_0700_0000_0020_0000; 12'o2173: crom <= 108'o2174_0111_0706_4174_4007_0700_0000_0000_0000; 12'o2174: crom <= 108'o3460_3771_0003_1276_6007_0701_0010_0000_1443; 12'o2175: crom <= 108'o3350_4221_0005_4174_4007_0700_0000_0000_0000; 12'o2176: crom <= 108'o3373_3771_0004_7274_4007_0701_0000_0000_0250; 12'o2177: crom <= 108'o2200_3333_0006_4174_4007_0520_0000_0000_0000; 12'o2200: crom <= 108'o2157_3440_0606_1174_4007_0700_0400_0000_1443; 12'o2201: crom <= 108'o3352_3441_0603_4174_0007_0700_0000_0000_0000; 12'o2202: crom <= 108'o3374_0111_0704_4174_4007_0700_0000_0000_0000; 12'o2203: crom <= 108'o3370_3440_0303_0174_4007_0700_0400_0000_0000; 12'o2204: crom <= 108'o0562_2441_0705_4174_4467_0701_4000_0003_0000; 12'o2205: crom <= 108'o0260_4221_0013_4170_4467_0700_0000_0005_0000; 12'o2206: crom <= 108'o3660_4221_0013_4170_4007_0700_0010_0000_0000; 12'o2207: crom <= 108'o2210_4553_0600_4374_4007_0331_0000_0077_7777; 12'o2210: crom <= 108'o0637_4221_0003_4174_0007_0700_0000_0000_0000; 12'o2211: crom <= 108'o2212_4553_0600_4374_4007_0321_0000_0010_0000; 12'o2212: crom <= 108'o2213_3770_0303_4344_4007_0700_0000_0000_0000; 12'o2213: crom <= 108'o0637_4221_0003_4174_0007_0700_0000_0000_0000; 12'o2214: crom <= 108'o2165_0551_0616_4374_4007_0701_0000_0000_0344; 12'o2215: crom <= 108'o2677_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2216: crom <= 108'o2217_1111_0703_4174_4007_0700_4000_0000_0000; 12'o2217: crom <= 108'o3375_0551_0616_4374_4007_0701_0000_0000_0373; 12'o2220: crom <= 108'o0002_4551_0404_4374_0004_1700_0000_0037_7777; 12'o2221: crom <= 108'o3377_0551_0303_6274_4007_0700_0000_0000_0000; 12'o2222: crom <= 108'o0006_4551_0404_4374_0004_1700_0000_0037_7777; 12'o2223: crom <= 108'o2222_0111_0703_4174_4007_0700_0000_0000_0000; 12'o2224: crom <= 108'o3660_0115_0505_4174_4007_0700_0010_0000_0000; 12'o2225: crom <= 108'o0654_3333_0005_4174_4003_1701_0000_0000_0000; 12'o2226: crom <= 108'o2226_3447_0303_4174_4007_0630_2000_0060_0000; 12'o2227: crom <= 108'o3403_4551_0303_4374_4007_0700_0000_0000_0777; 12'o2230: crom <= 108'o2230_3447_0505_4174_4007_0630_2000_0060_0000; 12'o2231: crom <= 108'o0661_3333_0005_4174_4003_5701_0000_0000_0000; 12'o2232: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2233: crom <= 108'o0710_3333_0003_4174_4003_5701_0000_0000_0000; 12'o2234: crom <= 108'o1515_3770_0303_4334_4017_0700_0000_0041_0000; 12'o2235: crom <= 108'o2234_0111_0703_4174_4007_0700_1000_0051_0700; 12'o2236: crom <= 108'o3660_3772_0000_1275_5007_0701_0010_0000_1444; 12'o2237: crom <= 108'o3407_4443_0000_4174_4007_0700_0200_0003_0002; 12'o2240: crom <= 108'o2275_3771_0003_1276_6007_0701_0010_0000_1441; 12'o2241: crom <= 108'o0360_3333_0003_4174_4006_5701_0010_0000_0000; 12'o2242: crom <= 108'o0700_3447_0303_7174_4007_0700_0000_0000_0241; 12'o2243: crom <= 108'o0006_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2244: crom <= 108'o0705_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2245: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2246: crom <= 108'o3417_4751_1203_4374_4007_0700_0010_0000_0002; 12'o2247: crom <= 108'o0740_3771_0003_4365_5007_0621_0200_0000_0002; 12'o2250: crom <= 108'o0760_3771_0003_7274_4007_0622_0000_0000_0244; 12'o2251: crom <= 108'o2252_4251_0303_4374_4007_0700_0000_0000_0077; 12'o2252: crom <= 108'o3417_0111_0703_7174_4007_0700_0010_0000_0240; 12'o2253: crom <= 108'o0760_3771_0003_4365_5007_0700_0200_0000_0002; 12'o2254: crom <= 108'o3421_4551_0303_4374_4007_0700_0000_0000_0077; 12'o2255: crom <= 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2256: crom <= 108'o2260_3447_0303_4174_4007_0700_2000_0071_0000; 12'o2257: crom <= 108'o2256_3551_0303_4370_4007_0700_0000_0000_0200; 12'o2260: crom <= 108'o2260_3447_0303_4174_4007_0630_2000_0060_0000; 12'o2261: crom <= 108'o3432_0111_0306_4170_4007_0700_0000_0000_0000; 12'o2262: crom <= 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2263: crom <= 108'o0332_4443_0000_7174_4007_0700_0000_0000_0244; 12'o2264: crom <= 108'o3661_3445_0303_4174_4007_0700_0010_0000_0000; 12'o2265: crom <= 108'o2266_4553_0300_4374_4007_0331_0000_0000_0001; 12'o2266: crom <= 108'o0721_3441_0403_4174_4003_1701_0000_0000_0000; 12'o2267: crom <= 108'o2266_3770_0404_4344_4007_0700_0000_0000_0000; 12'o2270: crom <= 108'o0754_3333_0004_4174_4003_7530_0000_0000_0000; 12'o2271: crom <= 108'o0005_4251_0403_4374_4004_1700_0000_0007_7777; 12'o2272: crom <= 108'o1074_3771_0003_7274_4007_0701_0000_0000_0242; 12'o2273: crom <= 108'o1074_0551_0703_7274_4007_0701_0000_0000_0242; 12'o2274: crom <= 108'o0001_3771_0003_1276_6004_1701_0000_0000_1443; 12'o2275: crom <= 108'o3445_3771_0003_1276_6007_0701_0000_0000_1441; 12'o2276: crom <= 108'o3076_3333_0003_4174_4217_0701_1010_0073_0500; 12'o2277: crom <= 108'o0340_3333_0003_4174_4006_5701_1000_0051_0770; 12'o2300: crom <= 108'o3451_3771_0003_1276_6007_0701_0010_0000_1444; 12'o2301: crom <= 108'o2241_0113_0404_4174_4007_0701_1000_0077_0000; 12'o2302: crom <= 108'o3473_3771_0003_1276_6007_0701_0010_0000_1441; 12'o2303: crom <= 108'o2700_3440_0505_1174_4007_0700_0400_0000_1441; 12'o2304: crom <= 108'o3453_3441_0503_4174_4217_0700_0000_0000_0600; 12'o2305: crom <= 108'o3572_0111_0703_4174_4007_0700_0010_0000_0000; 12'o2306: crom <= 108'o3452_3770_0503_4334_4017_0700_0000_0032_6000; 12'o2307: crom <= 108'o2356_4221_0003_4174_4007_0700_0000_0000_0000; 12'o2310: crom <= 108'o3473_3771_0003_1276_6007_0701_0010_0000_1444; 12'o2311: crom <= 108'o2700_3440_0505_1174_4007_0700_0400_0000_1444; 12'o2312: crom <= 108'o3466_3440_0303_1174_4007_0700_0400_0000_1443; 12'o2313: crom <= 108'o2314_3441_0304_4174_4007_0700_0000_0000_0000; 12'o2314: crom <= 108'o3671_3551_0404_7274_4007_0701_0010_0000_0214; 12'o2315: crom <= 108'o3465_1111_0503_4174_4007_0700_4000_0000_0000; 12'o2316: crom <= 108'o3476_0111_1103_4364_4007_0700_0200_0024_1016; 12'o2317: crom <= 108'o3476_0111_1003_4364_4007_0700_0200_0024_1016; 12'o2320: crom <= 108'o2716_4443_0000_4174_4467_0700_0000_0001_0000; 12'o2321: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o2322: crom <= 108'o2323_3111_0405_4174_4007_0700_0000_0000_0000; 12'o2323: crom <= 108'o2324_4553_0300_4374_4007_0331_0000_0004_0000; 12'o2324: crom <= 108'o2325_5111_0405_4174_4007_0700_0000_0000_0000; 12'o2325: crom <= 108'o3510_3771_0006_4304_4007_0701_0000_0000_0000; 12'o2326: crom <= 108'o2327_5111_0406_4174_4007_0700_0000_0000_0000; 12'o2327: crom <= 108'o2330_4553_0300_4374_4007_0331_0000_0001_0000; 12'o2330: crom <= 108'o2331_3111_0406_4174_4007_0700_0000_0000_0000; 12'o2331: crom <= 108'o2332_4553_0300_4374_4007_0331_0000_0003_0000; 12'o2332: crom <= 108'o3513_3333_0006_4174_4007_0700_0000_0000_0000; 12'o2333: crom <= 108'o3511_3333_0005_4174_4007_0700_0000_0000_0000; 12'o2334: crom <= 108'o2336_4551_0303_4374_0007_0321_0000_0010_0000; 12'o2335: crom <= 108'o3525_4551_1111_4374_0007_0700_0000_0077_0077; 12'o2336: crom <= 108'o3527_4551_0305_4374_4007_0700_0000_0000_3777; 12'o2337: crom <= 108'o1400_3111_0311_4174_0477_0700_0000_0000_0000; 12'o2340: crom <= 108'o2340_3445_0505_4174_4007_0630_2000_0060_0000; 12'o2341: crom <= 108'o3530_4551_1111_4374_0007_0700_0000_0077_7774; 12'o2342: crom <= 108'o2342_3445_0303_4174_4007_0630_2000_0060_0000; 12'o2343: crom <= 108'o3533_3771_0005_7274_4007_0701_0000_0000_0230; 12'o2344: crom <= 108'o2345_3551_0505_4370_4007_0700_0000_0003_0000; 12'o2345: crom <= 108'o3535_3333_0005_4174_4257_0700_0000_0000_0000; 12'o2346: crom <= 108'o2406_3551_1010_4374_0007_0700_0000_0040_0000; 12'o2347: crom <= 108'o2406_5551_1010_4374_0007_0700_0000_0040_0000; 12'o2350: crom <= 108'o2350_3447_0505_4174_4007_0630_2000_0060_0000; 12'o2351: crom <= 108'o3540_4551_0505_4374_4007_0700_0000_0006_3777; 12'o2352: crom <= 108'o2354_3447_1106_4174_4007_0700_2010_0071_0006; 12'o2353: crom <= 108'o3614_3443_0300_4174_4007_0700_0200_0003_0012; 12'o2354: crom <= 108'o2354_3447_0606_4174_4007_0630_2000_0060_0000; 12'o2355: crom <= 108'o3543_4551_0606_4374_4007_0700_0000_0000_3777; 12'o2356: crom <= 108'o3564_3333_0003_7174_4007_0700_0400_0000_0301; 12'o2357: crom <= 108'o2305_3771_0003_7274_4007_0701_0000_0000_0300; 12'o2360: crom <= 108'o0002_3333_0003_7174_4004_1700_0400_0000_0303; 12'o2361: crom <= 108'o3566_3771_0003_7274_4007_0701_0000_0000_0302; 12'o2362: crom <= 108'o2363_3441_0604_4174_4007_0700_0000_0000_0000; 12'o2363: crom <= 108'o3576_3771_0005_7274_4007_0701_0000_0000_0300; 12'o2364: crom <= 108'o2365_4221_0014_4174_4007_0700_0000_0000_0000; 12'o2365: crom <= 108'o2366_4553_0300_4374_4007_0331_0000_0074_0000; 12'o2366: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o2367: crom <= 108'o3605_4551_0305_4374_4007_0700_0000_0000_0177; 12'o2370: crom <= 108'o2371_5111_0514_4174_0007_0700_0000_0000_0000; 12'o2371: crom <= 108'o2372_4553_0300_4374_4007_0331_0000_0000_4000; 12'o2372: crom <= 108'o2373_3111_0514_4174_0007_0700_0000_0000_0000; 12'o2373: crom <= 108'o2374_4553_0300_4374_4007_0331_0000_0000_0200; 12'o2374: crom <= 108'o2375_3551_1414_4370_4007_0700_0000_0000_0200; 12'o2375: crom <= 108'o2376_4553_0300_4374_4007_0331_0000_0000_0400; 12'o2376: crom <= 108'o2377_5551_1414_4370_4007_0700_0000_0000_0200; 12'o2377: crom <= 108'o2400_4553_0300_4374_4007_0331_0000_0000_2000; 12'o2400: crom <= 108'o2401_3111_0514_4170_4007_0700_0000_0000_0000; 12'o2401: crom <= 108'o0304_4553_0300_4374_4007_0331_0000_0000_1000; 12'o2402: crom <= 108'o3621_3771_0003_4374_4007_0700_0010_0037_7377; 12'o2403: crom <= 108'o3616_3771_0005_4374_4247_0700_0000_0000_1001; 12'o2404: crom <= 108'o2404_1111_0503_4174_4247_0630_6000_0060_1000; 12'o2405: crom <= 108'o2411_3333_0003_4174_4007_0700_0000_0000_0000; 12'o2406: crom <= 108'o3621_3771_0003_4374_4007_0700_0010_0037_7377; 12'o2407: crom <= 108'o3617_3771_0005_4374_4347_0700_0000_0000_1001; 12'o2410: crom <= 108'o2410_1111_0503_4174_4347_0630_6000_0060_1000; 12'o2411: crom <= 108'o3620_4223_0000_7174_4007_0700_0400_0000_0424; 12'o2412: crom <= 108'o3666_4571_1203_4374_4007_0700_0010_0024_1300; 12'o2413: crom <= 108'o2414_3771_0003_4364_4007_0331_0200_0000_0002; 12'o2414: crom <= 108'o3642_4221_0004_4174_4007_0700_0000_0000_0000; 12'o2415: crom <= 108'o3634_3445_0603_4174_4007_0700_0000_0000_0000; 12'o2416: crom <= 108'o2420_6553_0300_4374_4007_0321_0000_0026_4000; 12'o2417: crom <= 108'o3641_4521_1205_4074_4007_0700_0000_0000_0000; 12'o2420: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0101; 12'o2421: crom <= 108'o0470_4443_0000_4174_4007_0700_0200_0023_0002; 12'o2422: crom <= 108'o3642_0111_1504_4174_4007_0700_0000_0000_0000; 12'o2423: crom <= 108'o2424_4571_1203_4374_4007_0700_0000_0024_1240; 12'o2424: crom <= 108'o3666_3111_0403_4174_4007_0700_0010_0000_0000; 12'o2425: crom <= 108'o2426_3771_0016_4364_4007_0700_0200_0000_0002; 12'o2426: crom <= 108'o3663_0551_1005_4374_4007_0701_0010_0000_0100; 12'o2427: crom <= 108'o3643_0111_0504_4174_4007_0700_0200_0024_1016; 12'o2430: crom <= 108'o3644_4557_1606_4374_4007_0701_0000_0000_0774; 12'o2431: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0102; 12'o2432: crom <= 108'o3646_3771_0005_4374_4007_0700_0000_0004_0000; 12'o2433: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2434: crom <= 108'o0004_5111_0514_4170_4004_1700_0000_0000_0000; 12'o2435: crom <= 108'o3646_3447_0505_4174_4007_0700_0000_0000_0000; 12'o2436: crom <= 108'o2456_4443_0000_4174_4137_0700_0010_0000_0000; 12'o2437: crom <= 108'o0067_4443_0000_4174_4003_7700_0000_0000_0000; 12'o2440: crom <= 108'o3656_3113_0305_4174_4007_0701_0210_0000_0036; 12'o2441: crom <= 108'o1027_3771_0005_4364_4003_7700_0200_0000_0002; 12'o2442: crom <= 108'o2444_3447_0505_4174_4007_0700_2000_0071_0005; 12'o2443: crom <= 108'o0003_4551_0503_4374_4004_1700_0000_0000_0377; 12'o2444: crom <= 108'o2444_3447_0505_4174_4007_0630_2000_0060_0000; 12'o2445: crom <= 108'o0003_4551_0503_4374_4004_1700_0000_0000_0377; 12'o2446: crom <= 108'o2456_4443_0000_4174_4137_0700_0010_0000_0000; 12'o2447: crom <= 108'o0227_4443_0000_4174_4003_7700_0000_0000_0000; 12'o2450: crom <= 108'o3656_3333_0005_4175_5007_0701_0210_0000_0002; 12'o2451: crom <= 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; 12'o2452: crom <= 108'o2454_3445_0505_4174_4007_0700_2000_0071_0005; 12'o2453: crom <= 108'o3650_4571_1204_4374_4007_0700_0000_0021_1220; 12'o2454: crom <= 108'o2454_3445_0505_4174_4007_0630_2000_0060_0000; 12'o2455: crom <= 108'o3650_4571_1204_4374_4007_0700_0000_0021_1220; 12'o2456: crom <= 108'o3660_1113_0701_4170_4007_0700_4210_0004_0012; 12'o2457: crom <= 108'o3651_7441_0306_4174_4007_0700_0000_0000_0000; 12'o2460: crom <= 108'o2462_4553_0200_4374_4007_0321_0000_0000_0020; 12'o2461: crom <= 108'o2460_4713_1203_7174_4007_0700_0400_0000_0422; 12'o2462: crom <= 108'o3652_3771_0003_7274_4007_0701_0000_0000_0422; 12'o2463: crom <= 108'o1055_4443_0000_2174_4006_6700_0000_0000_0000; 12'o2464: crom <= 108'o2465_0551_0303_2270_4007_0701_0000_0000_0000; 12'o2465: crom <= 108'o3654_3443_0300_4174_4007_0700_0200_0004_0012; 12'o2466: crom <= 108'o0001_0551_0403_7274_4124_1701_0000_0000_0422; 12'o2467: crom <= 108'o3655_0551_0403_7274_4007_0701_0000_0000_0422; 12'o2470: crom <= 108'o2472_4443_0000_4174_4127_0630_2000_0060_0000; 12'o2471: crom <= 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2472: crom <= 108'o2470_4443_0000_4174_4127_0653_0000_0000_0000; 12'o2473: crom <= 108'o1501_4571_1206_4374_4007_0700_0000_0020_0000; 12'o2474: crom <= 108'o3670_0111_0704_4170_4007_0700_0210_0023_1016; 12'o2475: crom <= 108'o0005_4443_0000_4174_4107_0700_0000_0000_0074; 12'o2476: crom <= 108'o0117_3443_0100_4174_4007_0700_0200_0014_0012; 12'o2477: crom <= 108'o2500_4571_1203_4374_4007_0700_0000_0024_1200; 12'o2500: crom <= 108'o3666_3551_0303_4370_4007_0700_0010_0020_0000; 12'o2501: crom <= 108'o2716_3771_0002_4365_5617_0700_0200_0000_0002; 12'o2502: crom <= 108'o3700_3333_0012_4174_4437_0700_0000_0000_0000; 12'o2503: crom <= 108'o0002_3771_0004_7274_4004_1701_0000_0000_0212; 12'o2504: crom <= 108'o2746_3333_0000_4175_5007_0701_0210_0000_0002; 12'o2505: crom <= 108'o2746_3333_0002_4175_5007_0701_0210_0000_0002; 12'o2506: crom <= 108'o3701_3333_0001_4175_5007_0701_0200_0000_0002; 12'o2507: crom <= 108'o2510_3333_0003_4175_5007_0701_0200_0000_0002; 12'o2510: crom <= 108'o2746_3333_0003_7174_4007_0700_0410_0000_0211; 12'o2511: crom <= 108'o2746_3333_0003_4175_5007_0701_0210_0000_0002; 12'o2512: crom <= 108'o2511_3771_0003_7274_4007_0701_0000_0000_0212; 12'o2513: crom <= 108'o3702_3333_0005_4175_5007_0701_0200_0000_0002; 12'o2514: crom <= 108'o2746_3333_0006_4175_5007_0701_0210_0000_0002; 12'o2515: crom <= 108'o2746_3333_0010_4175_5007_0701_0210_0000_0002; 12'o2516: crom <= 108'o3703_3333_0007_4175_5007_0701_0200_0000_0002; 12'o2517: crom <= 108'o3704_3333_0011_4175_5007_0701_0200_0000_0002; 12'o2520: crom <= 108'o2746_3333_0012_4175_5007_0701_0210_0000_0002; 12'o2521: crom <= 108'o2746_3333_0014_4175_5007_0701_0210_0000_0002; 12'o2522: crom <= 108'o3705_3333_0013_4175_5007_0701_0200_0000_0002; 12'o2523: crom <= 108'o3706_3333_0015_4175_5007_0701_0200_0000_0002; 12'o2524: crom <= 108'o2746_3333_0016_4175_5007_0701_0210_0000_0002; 12'o2525: crom <= 108'o2746_3771_0003_7274_4007_0701_0010_0000_0210; 12'o2526: crom <= 108'o2525_3333_0017_4175_5007_0701_0200_0000_0002; 12'o2527: crom <= 108'o3707_3333_0003_4175_5007_0701_0200_0000_0002; 12'o2530: crom <= 108'o3727_3771_0013_4370_4007_0700_0000_0040_0002; 12'o2531: crom <= 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; 12'o2532: crom <= 108'o2533_3551_0606_4374_0007_0700_0000_0001_0000; 12'o2533: crom <= 108'o3732_4551_0606_4374_0007_0700_0000_0041_1000; 12'o2534: crom <= 108'o2534_3447_0505_4174_4007_0630_2000_0060_0000; 12'o2535: crom <= 108'o3734_4251_0505_4374_4007_0700_0000_0000_0777; 12'o2536: crom <= 108'o2540_3333_0006_4174_4007_0520_0000_0000_0000; 12'o2537: crom <= 108'o3774_3447_0504_4174_4007_0700_0000_0000_0000; 12'o2540: crom <= 108'o2544_3771_0004_7274_4007_0622_0000_0000_0423; 12'o2541: crom <= 108'o2542_3771_0004_7274_4007_0622_0000_0000_0424; 12'o2542: crom <= 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; 12'o2543: crom <= 108'o3735_0551_1103_4374_4007_0701_0000_0000_0540; 12'o2544: crom <= 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; 12'o2545: crom <= 108'o3735_0551_1003_4374_4007_0701_0000_0000_0540; 12'o2546: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2547: crom <= 108'o0602_3445_0303_4174_4007_0630_2000_0060_0000; 12'o2550: crom <= 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; 12'o2551: crom <= 108'o0030_4443_0000_2174_4006_6700_0000_0000_0000; 12'o2552: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2553: crom <= 108'o2555_4251_0304_4374_4007_0700_0000_0000_3777; 12'o2554: crom <= 108'o2552_4553_0300_4374_4007_0321_0000_0000_0077; 12'o2555: crom <= 108'o2622_3441_0403_4174_4007_0700_0010_0000_0000; 12'o2556: crom <= 108'o2551_3771_0002_4365_5217_0700_0200_0000_0002; 12'o2557: crom <= 108'o2560_3551_0303_7274_4007_0701_0000_0000_0220; 12'o2560: crom <= 108'o3075_4443_0000_4174_4007_0700_0210_0001_0002; 12'o2561: crom <= 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; 12'o2562: crom <= 108'o2562_3445_0404_4174_4007_0630_2000_0060_0000; 12'o2563: crom <= 108'o1040_3333_0006_4174_4007_0520_0000_0000_0000; 12'o2564: crom <= 108'o2562_4443_0000_4174_4007_0700_2000_0071_0007; 12'o2565: crom <= 108'o1134_4553_0300_4374_4007_0321_0000_0000_0077; 12'o2566: crom <= 108'o2600_3333_0003_7174_4007_0700_0400_0000_0426; 12'o2567: crom <= 108'o2570_4251_0505_4374_4007_0370_0000_0000_0777; 12'o2570: crom <= 108'o1000_4551_0303_4374_0007_0700_0000_0027_7000; 12'o2571: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2572: crom <= 108'o3745_3551_0606_4374_4007_0700_0000_0002_0000; 12'o2573: crom <= 108'o2574_4553_0600_4374_4007_0321_0000_0003_0000; 12'o2574: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2575: crom <= 108'o2603_3551_0303_7274_4007_0701_0000_0000_0220; 12'o2576: crom <= 108'o2604_3551_0303_4370_4007_0700_0000_0000_0001; 12'o2577: crom <= 108'o2604_4553_0300_4374_4007_0331_0000_0000_0001; 12'o2600: crom <= 108'o3561_3771_0003_7274_4117_0701_0010_0000_0301; 12'o2601: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0001; 12'o2602: crom <= 108'o1133_3771_0003_7274_4007_0701_0000_0000_0426; 12'o2603: crom <= 108'o3075_4443_0000_4174_4007_0700_0210_0001_0002; 12'o2604: crom <= 108'o2575_3551_0606_4374_0007_0700_0000_0004_0000; 12'o2605: crom <= 108'o2575_5551_1313_4374_0007_0700_0000_0002_0000; 12'o2606: crom <= 108'o2623_3771_0005_4365_5007_0700_0200_0000_0002; 12'o2607: crom <= 108'o2610_4553_1300_4374_4007_0331_0000_0040_0000; 12'o2610: crom <= 108'o2612_3441_0403_4174_4007_0700_2000_0071_0007; 12'o2611: crom <= 108'o3753_3771_0003_7274_4007_0701_0000_0000_0210; 12'o2612: crom <= 108'o2612_3445_0303_4174_4007_0630_2000_0060_0000; 12'o2613: crom <= 108'o3746_4551_0303_4374_0007_0700_0000_0000_0003; 12'o2614: crom <= 108'o2615_3551_0606_4374_0007_0700_0000_0000_2000; 12'o2615: crom <= 108'o3752_4551_0606_4370_4007_0700_0000_0000_0777; 12'o2616: crom <= 108'o2617_3551_0606_4374_4007_0700_0000_0004_0000; 12'o2617: crom <= 108'o2620_4553_1300_4374_4147_0321_0000_0000_4000; 12'o2620: crom <= 108'o3762_3551_0606_4374_4007_0700_0000_0002_0000; 12'o2621: crom <= 108'o3762_3333_0006_4174_4007_0700_0000_0000_0000; 12'o2622: crom <= 108'o3772_0551_0303_7274_4007_0701_0010_0000_0216; 12'o2623: crom <= 108'o2627_0111_0703_4174_4007_0700_0200_0004_0012; 12'o2624: crom <= 108'o0002_4551_0303_7274_4004_1701_0000_0000_0217; 12'o2625: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2626: crom <= 108'o2624_4553_0300_4374_4007_0321_0000_0077_0000; 12'o2627: crom <= 108'o2701_3771_0001_4361_5007_0700_0200_0000_0002; 12'o2630: crom <= 108'o2632_4553_0300_4374_4007_0321_0000_0030_0000; 12'o2631: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2632: crom <= 108'o2634_4553_0300_4374_4007_0321_0000_0010_0000; 12'o2633: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2634: crom <= 108'o2636_4553_0300_4374_4007_0321_0000_0020_0000; 12'o2635: crom <= 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2636: crom <= 108'o0003_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2637: crom <= 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2640: crom <= 108'o0004_3771_0003_4365_5004_1700_0200_0000_0002; 12'o2641: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2642: crom <= 108'o0007_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2643: crom <= 108'o3773_7441_1303_4174_4007_0700_0000_0000_0000; 12'o2644: crom <= 108'o0007_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2645: crom <= 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; 12'o2646: crom <= 108'o2650_1553_0500_4374_4007_0532_4000_0000_0340; 12'o2647: crom <= 108'o3775_0111_1104_4174_4007_0700_0200_0024_1016; 12'o2650: crom <= 108'o2652_1553_0500_4374_4007_0532_4000_0000_0400; 12'o2651: crom <= 108'o2652_0551_0404_4374_4007_0701_0000_0000_0600; 12'o2652: crom <= 108'o3775_0111_1004_4174_4007_0700_0200_0024_1016; 12'o2653: crom <= 108'o2647_0551_0404_4374_4007_0701_0000_0000_0220; 12'o2654: crom <= 108'o2656_3333_0004_4174_4007_0530_0000_0000_0000; 12'o2655: crom <= 108'o2654_3770_0404_4344_4007_0700_0000_0000_0000; 12'o2656: crom <= 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; 12'o2657: crom <= 108'o1435_5551_1313_4374_4007_0700_0000_0002_4000; 12'o2660: crom <= 108'o2661_3551_1313_4374_0007_0700_0000_0000_4000; 12'o2661: crom <= 108'o2662_4553_0400_4374_4007_0331_0000_0004_0000; 12'o2662: crom <= 108'o2663_3551_0606_4374_0007_0700_0000_0002_0000; 12'o2663: crom <= 108'o2664_4553_0400_4374_4007_0331_0000_0010_0000; 12'o2664: crom <= 108'o1500_3551_1313_4374_0007_0700_0000_0002_0000; 12'o2665: crom <= 108'o2666_4553_0600_4374_4007_0321_0000_0001_0000; 12'o2666: crom <= 108'o2656_3551_0606_4374_0007_0700_0000_0010_0000; 12'o2667: crom <= 108'o2607_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2670: crom <= 108'o1510_3771_0005_4354_4007_0700_0010_0000_0000; 12'o2671: crom <= 108'o1502_4551_0505_4374_0007_0700_0000_0040_1237; 12'o2672: crom <= 108'o0104_4751_1217_4374_4007_0700_0000_0000_0100; 12'o2673: crom <= 108'o2674_3771_0003_7274_4007_0611_0000_0000_0210; 12'o2674: crom <= 108'o2676_4553_0300_4374_4007_0321_0000_0010_0000; 12'o2675: crom <= 108'o1511_3771_0003_7274_4007_0701_0000_0000_0425; 12'o2676: crom <= 108'o1100_4443_0000_4174_4007_0700_0000_0000_0000; 12'o2677: crom <= 108'o2700_1111_0701_4170_4007_0700_4000_0000_0000; 12'o2700: crom <= 108'o1100_3333_0013_4174_4003_5701_0000_0000_0000; 12'o2701: crom <= 108'o2714_3333_0005_4174_4467_0700_0000_0001_0004; 12'o2702: crom <= 108'o1512_0551_1103_4374_4007_0701_0000_0000_0500; 12'o2703: crom <= 108'o0770_3551_1313_4374_0007_0700_0000_0001_0000; 12'o2704: crom <= 108'o1564_3333_0006_4175_5007_0701_0210_0000_0002; 12'o2705: crom <= 108'o2706_4553_1000_4374_4007_0321_0000_0040_0000; 12'o2706: crom <= 108'o2712_4521_1205_4074_4007_0700_0000_0000_0000; 12'o2707: crom <= 108'o1513_3741_0105_4074_4007_0700_0000_0000_0000; 12'o2710: crom <= 108'o1500_3441_0603_4174_4003_7700_0200_0003_0001; 12'o2711: crom <= 108'o2703_1111_0701_4174_4007_0700_4000_0000_0000; 12'o2712: crom <= 108'o1564_3333_0005_4175_5007_0701_0210_0000_0002; 12'o2713: crom <= 108'o1563_3333_0001_4175_5007_0701_0200_0000_0002; 12'o2714: crom <= 108'o0305_5551_1313_4374_4007_0700_0000_0001_0000; 12'o2715: crom <= 108'o0435_4521_1203_4074_4007_0700_0000_0000_0000; 12'o2716: crom <= 108'o0371_4713_1202_7174_4007_0700_0400_0000_0422; 12'o2717: crom <= 108'o1044_0551_1504_0274_4407_0311_0200_0003_0712; 12'o2720: crom <= 108'o0220_4443_0000_4174_4463_7700_0000_0001_2000; 12'o2721: crom <= 108'o2722_3771_0005_4365_5007_0700_0200_0000_0002; 12'o2722: crom <= 108'o1144_0551_0404_4374_4407_0311_0000_0077_7777; 12'o2723: crom <= 108'o0220_3333_0005_4175_5003_7701_0200_0000_0002; 12'o2724: crom <= 108'o2720_3333_0005_4175_5007_0701_0200_0000_0002; 12'o2725: crom <= 108'o1146_0551_0404_4374_4407_0311_0000_0077_7777; 12'o2726: crom <= 108'o1150_3771_0005_0276_6007_0521_0000_0000_0000; 12'o2727: crom <= 108'o0764_3440_0505_0174_4467_0700_0400_0005_0000; 12'o2730: crom <= 108'o2731_3443_0300_4174_4007_0700_0200_0003_0012; 12'o2731: crom <= 108'o2732_3333_0005_4175_5007_0701_0200_0000_0002; 12'o2732: crom <= 108'o1400_0551_0301_4370_4007_0701_0000_0000_0001; 12'o2733: crom <= 108'o0130_3770_0304_4344_4007_0700_0000_0000_0000; 12'o2734: crom <= 108'o2735_3770_0505_4344_4007_0700_0000_0000_0000; 12'o2735: crom <= 108'o2736_3443_0500_4174_4007_0700_0200_0004_0012; 12'o2736: crom <= 108'o0274_3771_0005_4365_5007_0700_0200_0000_0002; 12'o2737: crom <= 108'o1156_4751_1204_4374_4007_0700_0000_0000_0424; 12'o2740: crom <= 108'o2741_0111_1105_4174_4007_0700_0000_0000_0000; 12'o2741: crom <= 108'o2742_4521_1203_4074_4007_0700_0000_0000_0000; 12'o2742: crom <= 108'o1164_4553_0300_4374_4007_0321_0000_0000_0600; 12'o2743: crom <= 108'o2744_3771_0003_4365_5007_0700_0200_0000_0002; 12'o2744: crom <= 108'o0764_3333_0003_4174_4467_0700_0000_0000_0404; 12'o2745: crom <= 108'o0001_5551_0303_4374_0004_1700_0000_0000_0600; 12'o2746: crom <= 108'o0002_0111_0704_4170_4004_1700_0200_0023_1016; 12'o2747: crom <= 108'o2750_4551_0202_4374_0007_0700_0000_0077_7740; 12'o2750: crom <= 108'o2751_3333_0002_4175_5007_0701_0200_0000_0002; 12'o2751: crom <= 108'o2501_0111_0703_4170_4007_0700_0200_0004_0012; 12'o2752: crom <= 108'o1170_3111_0503_4170_4007_0700_0000_0000_0000; 12'o2753: crom <= 108'o1174_3770_0303_4174_0007_0520_0000_0000_0000; 12'o2754: crom <= 108'o0021_3772_0000_0275_5007_0700_2000_0071_0043; 12'o2755: crom <= 108'o1200_5113_0412_4174_4007_0621_0000_0000_0000; 12'o2756: crom <= 108'o2757_3441_0316_4174_4007_0700_0000_0000_0000; 12'o2757: crom <= 108'o0031_3771_0006_0276_6007_0700_2000_0071_0043; 12'o2760: crom <= 108'o1204_3770_0303_4174_0007_0520_0000_0000_0000; 12'o2761: crom <= 108'o2762_4117_0004_4174_4007_0700_0000_0000_0000; 12'o2762: crom <= 108'o0120_3441_0405_4174_4007_0350_0000_0000_0000; 12'o2763: crom <= 108'o0410_3227_0004_1174_4007_0700_0400_0000_1442; 12'o2764: crom <= 108'o0410_3777_0016_1276_6007_0701_0000_0000_1441; 12'o2765: crom <= 108'o0543_0111_1604_4174_4007_0700_0000_0000_0000; 12'o2766: crom <= 108'o1210_3770_0404_0174_4007_0520_0400_0000_0000; 12'o2767: crom <= 108'o2770_3772_0000_1275_5007_0701_0000_0000_1442; 12'o2770: crom <= 108'o2771_7003_0000_1174_4007_0700_0400_0000_1442; 12'o2771: crom <= 108'o2772_3772_0000_1275_5007_0701_0000_0000_1443; 12'o2772: crom <= 108'o2773_7003_0000_1174_4007_0700_0400_0000_1443; 12'o2773: crom <= 108'o1212_3741_0103_4074_4007_0520_0000_0000_0000; 12'o2774: crom <= 108'o2775_4221_0004_4174_4007_0700_0000_0000_0000; 12'o2775: crom <= 108'o2776_3442_0500_4174_4007_0700_2000_0071_0043; 12'o2776: crom <= 108'o0563_3447_0606_4174_4007_0700_0000_0000_0000; 12'o2777: crom <= 108'o2677_4443_0000_4174_4467_0700_0000_0003_0000; 12'o3000: crom <= 108'o3001_3446_0606_4174_4007_0700_0000_0000_0000; 12'o3001: crom <= 108'o0122_4226_0004_4174_4007_0630_2000_0060_0000; 12'o3002: crom <= 108'o0122_3446_1200_4174_4007_0630_2000_0060_0000; 12'o3003: crom <= 108'o1214_3772_0000_0275_5007_0520_0000_0000_0000; 12'o3004: crom <= 108'o3005_3771_0003_0276_6007_0700_0000_0000_0000; 12'o3005: crom <= 108'o3006_3772_0000_1275_5007_0701_0000_0000_1441; 12'o3006: crom <= 108'o0160_3333_0003_4174_4007_0621_0000_0000_0000; 12'o3007: crom <= 108'o3010_3221_0004_4174_4007_0700_0000_0000_0000; 12'o3010: crom <= 108'o0330_3333_0003_4174_4007_0520_0000_0000_0000; 12'o3011: crom <= 108'o1224_3447_0305_4174_4007_0421_0000_0000_0000; 12'o3012: crom <= 108'o3013_3662_0000_4374_0007_0700_0000_0060_0000; 12'o3013: crom <= 108'o3014_2222_0000_4174_4007_0700_4000_0000_0000; 12'o3014: crom <= 108'o3016_2446_0505_4174_4047_0700_0040_0000_0000; 12'o3015: crom <= 108'o3016_4751_1217_4374_4007_0700_0000_0000_0004; 12'o3016: crom <= 108'o3017_3221_0006_0174_4007_0700_0000_0000_0000; 12'o3017: crom <= 108'o0054_3777_0003_0274_4007_0520_0000_0000_0000; 12'o3020: crom <= 108'o0354_4552_0000_1275_5007_0701_0000_0000_1442; 12'o3021: crom <= 108'o3022_0002_1600_4174_4007_0700_0000_0000_0000; 12'o3022: crom <= 108'o1242_4003_0000_1174_4007_0700_0400_0000_1440; 12'o3023: crom <= 108'o0551_4552_0000_1275_5007_0701_0000_0000_1443; 12'o3024: crom <= 108'o0056_3333_0017_4174_4003_5701_0000_0000_0000; 12'o3025: crom <= 108'o3026_1772_0000_0274_4007_0701_0040_0000_0000; 12'o3026: crom <= 108'o1244_3223_0000_0174_4007_0621_0400_0000_0000; 12'o3027: crom <= 108'o3032_4113_1600_1174_4007_0700_0400_0000_1441; 12'o3030: crom <= 108'o3031_3551_1616_4374_0007_0700_0000_0040_0000; 12'o3031: crom <= 108'o3032_3440_1616_1174_4007_0700_0400_0000_1441; 12'o3032: crom <= 108'o1246_3333_0003_4174_4007_0520_0000_0000_0000; 12'o3033: crom <= 108'o3034_0111_0503_4174_4007_0700_0040_0000_0000; 12'o3034: crom <= 108'o3035_0002_0600_4174_4007_0700_0000_0000_0000; 12'o3035: crom <= 108'o3036_0111_0503_4174_4007_0700_0040_0000_0000; 12'o3036: crom <= 108'o0355_3333_0017_4174_4003_5701_0000_0000_0000; 12'o3037: crom <= 108'o3040_2444_0303_4174_4047_0700_0040_0000_0000; 12'o3040: crom <= 108'o1250_0113_0303_1174_4007_0521_0400_0000_1442; 12'o3041: crom <= 108'o0100_7003_0000_1174_4156_4700_0400_0000_1443; 12'o3042: crom <= 108'o0001_3446_0303_4174_4044_1700_0000_0000_0000; 12'o3043: crom <= 108'o1252_3333_0003_4174_4007_0520_0000_0000_0000; 12'o3044: crom <= 108'o3045_3771_0004_4374_4007_0700_0000_0010_0000; 12'o3045: crom <= 108'o1256_3333_0005_4174_4007_0520_0000_0000_0000; 12'o3046: crom <= 108'o1256_3551_0404_4374_4007_0700_0000_0004_0000; 12'o3047: crom <= 108'o3050_3447_0303_4174_4007_0700_0000_0000_0000; 12'o3050: crom <= 108'o3051_3447_0505_4174_4007_0700_0000_0000_0000; 12'o3051: crom <= 108'o3052_3447_0505_4174_4007_0700_0000_0000_0000; 12'o3052: crom <= 108'o1260_1114_0503_4174_4067_0630_6000_0060_0000; 12'o3053: crom <= 108'o1262_3447_0303_4174_4007_0520_0000_0000_0000; 12'o3054: crom <= 108'o3055_3444_0303_4174_4007_0700_0000_0000_0000; 12'o3055: crom <= 108'o3056_4002_1200_4174_4007_0700_0000_0000_0000; 12'o3056: crom <= 108'o0014_3333_0004_4174_4000_1701_0000_0000_0000; 12'o3057: crom <= 108'o1266_0115_0503_4174_4007_0630_2040_0060_0000; 12'o3060: crom <= 108'o3061_1772_0000_1274_4007_0701_4000_0000_1443; 12'o3061: crom <= 108'o1270_4003_0000_1174_4007_0621_0400_0000_1443; 12'o3062: crom <= 108'o1272_4003_0000_1174_4007_0621_0400_0000_1442; 12'o3063: crom <= 108'o1274_4003_0000_1174_4007_0621_0400_0000_1441; 12'o3064: crom <= 108'o1272_4003_0000_1174_4007_0700_0400_0000_1442; 12'o3065: crom <= 108'o1274_4003_0000_1174_4007_0700_0400_0000_1441; 12'o3066: crom <= 108'o0024_3440_0303_0174_4004_1700_0400_0000_0000; 12'o3067: crom <= 108'o3070_4551_0404_4374_0007_0700_0000_0037_7777; 12'o3070: crom <= 108'o1276_2441_0404_4174_4007_0621_4000_0000_0000; 12'o3071: crom <= 108'o1300_2441_0404_4174_4007_0621_4000_0000_0000; 12'o3072: crom <= 108'o3073_3443_0400_4174_4007_0701_1000_0077_0000; 12'o3073: crom <= 108'o0264_3771_0004_0276_6007_0700_0000_0000_0000; 12'o3074: crom <= 108'o3075_0111_0703_4170_4007_0700_0200_0003_0002; 12'o3075: crom <= 108'o0004_3333_0003_4175_5004_1701_0200_0000_0002; 12'o3076: crom <= 108'o0070_4443_0000_2174_4006_6700_0000_0000_0000; 12'o3077: crom <= 108'o0070_4443_0000_2174_4466_6700_0000_0003_0000; 12'o3100: crom <= 108'o3076_3771_0003_4361_5217_0700_0200_0000_0502; 12'o3101: crom <= 108'o0001_4551_1205_4365_5004_1700_0200_0000_0002; 12'o3102: crom <= 108'o0002_4257_0503_4374_4004_1701_0000_0000_0376; 12'o3103: crom <= 108'o3104_4221_0005_4174_0007_0700_1000_0031_0220; 12'o3104: crom <= 108'o3105_3447_0505_4174_4007_0700_1020_0041_0010; 12'o3105: crom <= 108'o3106_3333_0003_4174_4007_0700_1000_0031_7770; 12'o3106: crom <= 108'o3107_4222_0000_4174_4007_0700_0000_0000_0000; 12'o3107: crom <= 108'o3110_4224_0003_4174_4027_0700_1020_0041_0010; 12'o3110: crom <= 108'o3111_4224_0003_4174_4027_0700_0000_0000_0000; 12'o3111: crom <= 108'o0002_4001_0503_4174_4004_1700_0000_0000_0000; 12'o3112: crom <= 108'o3113_3447_1200_4174_4007_0700_0200_0003_0002; 12'o3113: crom <= 108'o0002_3333_0003_4175_5004_1701_0200_0000_0002; 12'o3114: crom <= 108'o3115_4222_0000_4174_4007_0700_0000_0000_0000; 12'o3115: crom <= 108'o3116_4224_0000_4174_4027_0700_1020_0041_0010; 12'o3116: crom <= 108'o3117_4224_0000_4174_4027_0700_0000_0000_0000; 12'o3117: crom <= 108'o3120_3333_0003_4174_4007_0701_1000_0073_0000; 12'o3120: crom <= 108'o3121_4443_0000_4174_4007_0700_1000_0051_0770; 12'o3121: crom <= 108'o3122_4002_1200_4174_4007_0700_1000_0031_0000; 12'o3122: crom <= 108'o3123_3444_0404_4174_4007_0700_1020_0041_0010; 12'o3123: crom <= 108'o3124_7221_0003_4174_4007_0700_0000_0000_0000; 12'o3124: crom <= 108'o3125_4111_0503_4174_4007_0700_0000_0000_0000; 12'o3125: crom <= 108'o3126_4001_0404_4174_4007_0700_0000_0000_0000; 12'o3126: crom <= 108'o3112_3111_0403_4174_4007_0700_0000_0000_0000; 12'o3127: crom <= 108'o1302_3770_0304_4344_4007_0700_2000_0071_0011; 12'o3130: crom <= 108'o3131_3771_0004_4374_0007_0700_0000_0000_0000; 12'o3131: crom <= 108'o3132_3333_0004_7174_4007_0700_0400_0000_0221; 12'o3132: crom <= 108'o3133_4557_0305_4374_4007_0701_0000_0000_7700; 12'o3133: crom <= 108'o3134_3770_0505_4344_4007_0700_2000_0071_0003; 12'o3134: crom <= 108'o1304_4221_0005_4174_0007_0700_0000_0000_0000; 12'o3135: crom <= 108'o3136_3772_0000_4370_4007_0700_0000_0000_0044; 12'o3136: crom <= 108'o3137_1662_0000_7274_4007_0701_4000_0000_0221; 12'o3137: crom <= 108'o3140_3771_0005_7274_4007_0701_0000_0000_0222; 12'o3140: crom <= 108'o0664_4443_0000_4174_4007_0700_2000_0071_0042; 12'o3141: crom <= 108'o3142_3771_0003_4374_4007_0700_0000_0077_7777; 12'o3142: crom <= 108'o1310_0661_0005_7274_4007_0622_0000_0000_0224; 12'o3143: crom <= 108'o1312_3333_0003_4174_4007_0421_0000_0000_0000; 12'o3144: crom <= 108'o1312_0551_0303_7274_4007_0701_0000_0000_0226; 12'o3145: crom <= 108'o3146_3441_0306_4174_4007_0700_2000_0071_0043; 12'o3146: crom <= 108'o0062_3772_0000_7274_4007_0701_0000_0000_0222; 12'o3147: crom <= 108'o3150_2555_0303_4374_4007_0701_4000_0000_0044; 12'o3150: crom <= 108'o3151_3770_0303_4344_4007_0700_2000_0071_0011; 12'o3151: crom <= 108'o1314_3771_0003_4370_4007_0700_0000_0000_0000; 12'o3152: crom <= 108'o1400_3113_0305_0174_4007_0700_0400_0000_0000; 12'o3153: crom <= 108'o1316_3770_0604_4344_4007_0700_0000_0000_0000; 12'o3154: crom <= 108'o3155_2112_0306_4174_4007_0700_4000_0000_0000; 12'o3155: crom <= 108'o3156_0001_0705_4174_4007_0700_0000_0000_0000; 12'o3156: crom <= 108'o3157_3770_0505_4344_0007_0700_0000_0000_0000; 12'o3157: crom <= 108'o3160_0551_0505_0274_4407_0701_0000_0000_0000; 12'o3160: crom <= 108'o0002_3771_0013_4370_4004_1700_0000_0000_0001; 12'o3161: crom <= 108'o1320_2113_0506_4174_4007_0331_4000_0000_0000; 12'o3162: crom <= 108'o1322_3223_0000_4174_4007_0671_0200_0000_0002; 12'o3163: crom <= 108'o1320_3772_0000_4365_5007_0700_0200_0000_0002; 12'o3164: crom <= 108'o3165_3223_0000_4174_4007_0701_0200_0000_0002; 12'o3165: crom <= 108'o1330_2113_0603_4174_4007_0521_4000_0000_0000; 12'o3166: crom <= 108'o3163_0111_0704_4170_4007_0700_0200_0004_0712; 12'o3167: crom <= 108'o3170_3770_0303_4344_4007_0700_0000_0000_0000; 12'o3170: crom <= 108'o3171_3771_0003_7270_4007_0701_0000_0000_0214; 12'o3171: crom <= 108'o1100_3440_0303_0174_4007_0700_0400_0000_0000; 12'o3172: crom <= 108'o3173_3441_0503_4174_4007_0700_2000_0041_2000; 12'o3173: crom <= 108'o3174_3441_0405_4174_4007_0700_2000_0020_0000; 12'o3174: crom <= 108'o1332_3333_0003_4174_4007_0520_1000_0041_2000; 12'o3175: crom <= 108'o1336_4222_0000_4174_4007_0630_2000_0060_0000; 12'o3176: crom <= 108'o0163_3442_0300_4174_4007_0700_2000_0071_0033; 12'o3177: crom <= 108'o3200_3441_0403_4174_4007_0700_1000_0041_0002; 12'o3200: crom <= 108'o0420_3446_0303_4174_4003_4701_1000_0041_1600; 12'o3201: crom <= 108'o3203_3441_0304_4174_4007_0700_1000_0031_0200; 12'o3202: crom <= 108'o3203_2441_0304_4174_4007_0700_5000_0031_0200; 12'o3203: crom <= 108'o1346_3445_0506_4174_4007_0520_0000_0000_0000; 12'o3204: crom <= 108'o1363_4222_0000_4174_4007_0700_0000_0000_0000; 12'o3205: crom <= 108'o1362_3446_0303_4174_4047_0700_2000_0071_0006; 12'o3206: crom <= 108'o3207_4222_0000_0174_4007_0700_0000_0000_0000; 12'o3207: crom <= 108'o1364_3771_0003_0276_6007_0520_1000_0040_2000; 12'o3210: crom <= 108'o1366_4443_0000_4174_4007_0630_2000_0060_0000; 12'o3211: crom <= 108'o1514_4221_0013_4174_4003_7700_0200_0003_0001; 12'o3212: crom <= 108'o1637_2441_0303_4174_4007_0700_0040_0000_0000; 12'o3213: crom <= 108'o2006_3777_0005_0274_4007_0521_2000_0020_2000; 12'o3214: crom <= 108'o3220_0002_0400_4174_4007_0700_0000_0000_0000; 12'o3215: crom <= 108'o3216_3442_0400_4174_4007_0700_2000_0020_0000; 12'o3216: crom <= 108'o2014_3333_0016_4174_4007_0700_1000_0041_2000; 12'o3217: crom <= 108'o3220_0002_0600_4174_4007_0700_0000_0000_0000; 12'o3220: crom <= 108'o3221_0116_0503_4174_4047_0700_0040_0000_0000; 12'o3221: crom <= 108'o0433_3444_0303_4174_4046_2700_0000_0000_0000; 12'o3222: crom <= 108'o3223_3444_0303_4174_4047_0700_1000_0041_1777; 12'o3223: crom <= 108'o3224_3444_0303_4174_4047_0700_1000_0041_1777; 12'o3224: crom <= 108'o2027_3002_1700_4170_4007_0700_0000_0000_0000; 12'o3225: crom <= 108'o3226_3444_1616_4174_4067_0700_0000_0000_0000; 12'o3226: crom <= 108'o0472_3446_1616_4174_4047_0630_2000_0060_0000; 12'o3227: crom <= 108'o0001_3446_1616_4174_4044_1700_0000_0000_0000; 12'o3230: crom <= 108'o3231_4662_0000_4374_0007_0700_0000_0007_7777; 12'o3231: crom <= 108'o3232_3221_0005_4174_4007_0700_0000_0000_0000; 12'o3232: crom <= 108'o0623_4557_0006_1274_4007_0700_0000_0000_1441; 12'o3233: crom <= 108'o3234_3227_0004_4174_4007_0700_2000_0011_0000; 12'o3234: crom <= 108'o2022_3777_0006_0274_4007_0521_1000_0040_2000; 12'o3235: crom <= 108'o1012_0111_1604_4174_4007_0700_0000_0000_0000; 12'o3236: crom <= 108'o3237_3447_0705_4174_4007_0700_0000_0000_0000; 12'o3237: crom <= 108'o2024_4553_1700_4374_4007_0321_0000_0020_0000; 12'o3240: crom <= 108'o2026_4553_1700_4374_4007_0321_0000_0010_0000; 12'o3241: crom <= 108'o3242_2441_0606_4174_4007_0700_4000_0000_0000; 12'o3242: crom <= 108'o2030_2331_0005_1174_4007_0521_0040_0000_1441; 12'o3243: crom <= 108'o2032_3777_0003_0274_4007_0521_1000_0030_2000; 12'o3244: crom <= 108'o3245_3547_0303_4374_4007_0701_0000_0077_7400; 12'o3245: crom <= 108'o3246_2442_0400_4174_4007_0700_4000_0000_0000; 12'o3246: crom <= 108'o2035_2446_0303_4174_4047_0700_0040_0000_0000; 12'o3247: crom <= 108'o0513_3444_1616_4174_4046_2700_0000_0000_0000; 12'o3250: crom <= 108'o1515_4113_0400_1174_4007_0700_0400_0000_1441; 12'o3251: crom <= 108'o2042_3223_0000_4174_4007_0621_0000_0000_0000; 12'o3252: crom <= 108'o2046_4221_0013_4174_4007_0700_0000_0000_0000; 12'o3253: crom <= 108'o2050_4221_0013_4174_4007_0700_0000_0000_0000; 12'o3254: crom <= 108'o0100_4113_0400_1174_4156_4700_0400_0000_1441; 12'o3255: crom <= 108'o2052_3223_0000_4174_4007_0621_0000_0000_0000; 12'o3256: crom <= 108'o0002_4553_1300_4374_4004_1321_0000_0000_2000; 12'o3257: crom <= 108'o3260_3111_0605_4174_0417_0700_0000_0000_0000; 12'o3260: crom <= 108'o3261_3333_0005_4174_4217_0700_0000_0000_0500; 12'o3261: crom <= 108'o3262_3333_0003_7174_4007_0700_0400_0000_0240; 12'o3262: crom <= 108'o0170_4443_0000_2174_4006_6700_0000_0000_0000; 12'o3263: crom <= 108'o3262_3771_0005_4361_5217_0700_0200_0000_0502; 12'o3264: crom <= 108'o0574_3333_0003_7174_4003_7700_0400_0000_0242; 12'o3265: crom <= 108'o3266_3333_0005_4174_4007_0700_1000_0041_6020; 12'o3266: crom <= 108'o2070_4222_0000_4174_4006_7701_1000_0041_1770; 12'o3267: crom <= 108'o0507_4113_0312_7174_4007_0700_0400_0000_0243; 12'o3270: crom <= 108'o2074_3771_0005_1276_6007_0522_0000_0000_1443; 12'o3271: crom <= 108'o3272_7771_0003_7274_4007_0701_0000_0000_0242; 12'o3272: crom <= 108'o2076_3333_0005_4174_4007_0520_0000_0000_0000; 12'o3273: crom <= 108'o1515_4221_0013_4170_4007_0700_0000_0000_0000; 12'o3274: crom <= 108'o2100_3440_0303_1174_4007_0670_0400_0000_1441; 12'o3275: crom <= 108'o2104_3440_0303_1174_4007_0700_0400_0000_1443; 12'o3276: crom <= 108'o3274_0111_0703_4170_4007_0700_0000_0000_0000; 12'o3277: crom <= 108'o3300_3333_0005_7174_4007_0700_0400_0000_0213; 12'o3300: crom <= 108'o3301_3333_0004_7174_4007_0700_0400_0000_0212; 12'o3301: crom <= 108'o2071_3333_0006_7174_4007_0700_0400_0000_0214; 12'o3302: crom <= 108'o3303_3771_0005_7274_4007_0701_0000_0000_0213; 12'o3303: crom <= 108'o3304_3771_0004_7274_4007_0701_0000_0000_0212; 12'o3304: crom <= 108'o3274_3771_0006_7274_4007_0701_0000_0000_0214; 12'o3305: crom <= 108'o3306_0111_0704_4174_4007_0700_0000_0000_0000; 12'o3306: crom <= 108'o0540_3771_0013_4370_4007_0700_0000_0000_0003; 12'o3307: crom <= 108'o3310_3113_0406_0174_4007_0700_0400_0000_0000; 12'o3310: crom <= 108'o0252_4221_0013_4170_4007_0700_0000_0000_0000; 12'o3311: crom <= 108'o1020_3333_0006_4174_4007_0520_0000_0000_0000; 12'o3312: crom <= 108'o3313_3440_0606_0174_4007_0700_0400_0000_0000; 12'o3313: crom <= 108'o3314_3771_0013_4370_4007_0700_0000_0000_0010; 12'o3314: crom <= 108'o1030_3333_0004_4174_4007_0520_0000_0000_0000; 12'o3315: crom <= 108'o3316_4111_1203_7174_4007_0700_0000_0000_0245; 12'o3316: crom <= 108'o3317_4551_1205_7274_4007_0700_0000_0000_0245; 12'o3317: crom <= 108'o3320_2111_0503_4174_4007_0700_4000_0000_0000; 12'o3320: crom <= 108'o3321_1111_0704_4174_4007_0700_4000_0000_0000; 12'o3321: crom <= 108'o3322_1111_0706_4174_4007_0700_4000_0000_0000; 12'o3322: crom <= 108'o2116_3333_0003_4174_4007_0621_0000_0000_0000; 12'o3323: crom <= 108'o3324_3771_0013_4370_4007_0700_0000_0000_0012; 12'o3324: crom <= 108'o1030_3223_0000_7174_4007_0700_0400_0000_0245; 12'o3325: crom <= 108'o3326_3333_0003_7174_4007_0700_0400_0000_0243; 12'o3326: crom <= 108'o3327_3771_0003_0276_6007_0700_0000_0000_0000; 12'o3327: crom <= 108'o2124_4521_0306_4374_4007_0700_0000_0077_7000; 12'o3330: crom <= 108'o0460_7333_0003_7174_4007_0700_0400_0000_0242; 12'o3331: crom <= 108'o2134_4553_0500_4374_4007_0321_0000_0076_0000; 12'o3332: crom <= 108'o2136_3445_0505_1174_4007_0700_0000_0000_1444; 12'o3333: crom <= 108'o0002_3440_0505_1174_4004_1700_0400_0000_1443; 12'o3334: crom <= 108'o0004_0111_0705_4174_4004_1700_0000_0000_0000; 12'o3335: crom <= 108'o3336_3111_0306_4174_4007_0700_0000_0000_0000; 12'o3336: crom <= 108'o2143_1111_0701_4170_4007_0700_4000_0000_0000; 12'o3337: crom <= 108'o2144_3771_0005_1276_6007_0522_0000_0000_1443; 12'o3340: crom <= 108'o2146_3440_0303_1174_4007_0700_0400_0000_1444; 12'o3341: crom <= 108'o3342_4551_0404_4374_0007_0700_0000_0037_7777; 12'o3342: crom <= 108'o2150_2441_0404_1174_4007_0621_4000_0000_1443; 12'o3343: crom <= 108'o2143_3440_0404_1174_4007_0700_0400_0000_1444; 12'o3344: crom <= 108'o0001_4223_0000_1174_4004_1700_0400_0000_1444; 12'o3345: crom <= 108'o3346_3771_0004_1276_6007_0701_0000_0000_1441; 12'o3346: crom <= 108'o2125_3771_0003_0276_6007_0700_2000_0071_0024; 12'o3347: crom <= 108'o2164_3551_0606_4374_0007_0700_0000_0004_0000; 12'o3350: crom <= 108'o3351_3441_0605_4170_4007_0700_0000_0000_0000; 12'o3351: crom <= 108'o2176_1111_0305_4174_4007_0421_4000_0000_0000; 12'o3352: crom <= 108'o3353_3440_0303_1174_4007_0700_0400_0000_1443; 12'o3353: crom <= 108'o3354_3771_0003_7274_4007_0701_0000_0000_0240; 12'o3354: crom <= 108'o3355_0111_0703_4174_4007_0700_0200_0004_0012; 12'o3355: crom <= 108'o3356_3771_0016_4365_5007_0700_0200_0000_0002; 12'o3356: crom <= 108'o3357_3771_0013_4370_4007_0700_0000_0000_0012; 12'o3357: crom <= 108'o3360_2113_0507_7174_4007_0701_4400_0000_0242; 12'o3360: crom <= 108'o3361_3441_1603_7174_4007_0700_0000_0000_0242; 12'o3361: crom <= 108'o0640_0551_0705_7274_4007_0521_0000_0000_0242; 12'o3362: crom <= 108'o3360_3440_0505_1174_4007_0700_0400_0000_1443; 12'o3363: crom <= 108'o3372_3771_0004_1276_6007_0701_0000_0000_1441; 12'o3364: crom <= 108'o0636_0551_0503_7274_4003_7701_0000_0000_0241; 12'o3365: crom <= 108'o3366_3771_0003_7274_4007_0701_0000_0000_0247; 12'o3366: crom <= 108'o3367_3771_0004_7274_4007_0701_0000_0000_0250; 12'o3367: crom <= 108'o2202_4553_0500_4374_4007_0321_0000_0004_0000; 12'o3370: crom <= 108'o3371_3440_0404_1174_4007_0700_0400_0000_1441; 12'o3371: crom <= 108'o3372_3440_0505_1174_4007_0700_0400_0000_1443; 12'o3372: crom <= 108'o2204_1111_0706_4174_4007_0531_4000_0000_0000; 12'o3373: crom <= 108'o1505_3771_0003_7274_4007_0701_0000_0000_0247; 12'o3374: crom <= 108'o2203_5551_0505_4374_0007_0700_0000_0004_0000; 12'o3375: crom <= 108'o3376_3333_0016_4174_4007_0700_0200_0000_0010; 12'o3376: crom <= 108'o2220_1551_0303_6274_4007_0522_4000_0000_0000; 12'o3377: crom <= 108'o3400_3333_0017_4174_4007_0700_0200_0000_0010; 12'o3400: crom <= 108'o2222_0551_0404_6274_4007_0561_0000_0000_0000; 12'o3401: crom <= 108'o3402_4221_0013_4170_4007_0700_0000_0000_0000; 12'o3402: crom <= 108'o2224_3770_0605_4344_4007_0700_0000_0000_0000; 12'o3403: crom <= 108'o2230_3447_0305_4174_4007_0700_2000_0071_0002; 12'o3404: crom <= 108'o3405_7441_0605_4174_4007_0700_1000_0071_0010; 12'o3405: crom <= 108'o3406_3441_0603_4174_4007_0701_1000_0043_0000; 12'o3406: crom <= 108'o2234_4553_0500_4374_4007_0321_0000_0003_0000; 12'o3407: crom <= 108'o3410_3223_0000_4174_4007_0701_0200_0000_0002; 12'o3410: crom <= 108'o3423_3440_0303_1174_4007_0700_0400_0000_1444; 12'o3411: crom <= 108'o0705_4251_0303_4374_4007_0700_0000_0007_7777; 12'o3412: crom <= 108'o3413_3771_0005_1276_6007_0701_0000_0000_1443; 12'o3413: crom <= 108'o3414_3443_0500_4174_4007_0700_0200_0003_0012; 12'o3414: crom <= 108'o3415_3771_0005_1276_6007_0701_0000_0000_1444; 12'o3415: crom <= 108'o2246_3333_0005_4175_5007_0701_0200_0000_0002; 12'o3416: crom <= 108'o0007_3440_0606_0174_4004_1700_0400_0000_0000; 12'o3417: crom <= 108'o3420_0551_0303_7274_4007_0701_0000_0000_0240; 12'o3420: crom <= 108'o0001_3443_0300_4174_4004_1700_0200_0004_0012; 12'o3421: crom <= 108'o3422_0115_0703_4174_4007_0700_0000_0000_0000; 12'o3422: crom <= 108'o3424_3333_0003_4174_4007_0701_2000_0007_0000; 12'o3423: crom <= 108'o3424_4443_0000_4174_4007_0700_2000_0071_0000; 12'o3424: crom <= 108'o3425_3333_0006_4174_4007_0701_1000_0073_0000; 12'o3425: crom <= 108'o3426_4443_0000_4174_4007_0700_1000_0051_0030; 12'o3426: crom <= 108'o3427_4443_0000_4174_4007_0700_1000_0040_0000; 12'o3427: crom <= 108'o3430_4443_0000_4174_4007_0700_1000_0041_0010; 12'o3430: crom <= 108'o3431_3777_0003_4334_4057_0700_2000_0041_0000; 12'o3431: crom <= 108'o2256_4251_0303_4374_4007_0630_0000_0000_0170; 12'o3432: crom <= 108'o3433_3770_0303_4334_4017_0700_0000_0041_0000; 12'o3433: crom <= 108'o3434_4551_0606_4374_0007_0700_0000_0070_0000; 12'o3434: crom <= 108'o3435_4551_0303_4374_4007_0700_0000_0003_0000; 12'o3435: crom <= 108'o3436_3111_0306_4174_0007_0700_0000_0000_0000; 12'o3436: crom <= 108'o2115_3440_0606_0174_4007_0700_0400_0000_0000; 12'o3437: crom <= 108'o2262_0113_0703_1174_4007_0521_0400_0000_1443; 12'o3440: crom <= 108'o3441_0551_0303_7274_4007_0700_0000_0000_0241; 12'o3441: crom <= 108'o0004_4553_0300_7274_4004_1622_0000_0000_0243; 12'o3442: crom <= 108'o3443_0551_0303_7274_4007_0701_0000_0000_0241; 12'o3443: crom <= 108'o2264_3333_0003_4174_4007_0700_0200_0004_0012; 12'o3444: crom <= 108'o2272_3770_0303_1174_4007_0520_0400_0000_1443; 12'o3445: crom <= 108'o0231_3770_0305_4334_4016_7701_0000_0033_6000; 12'o3446: crom <= 108'o3447_0111_0703_4170_4007_0700_0000_0000_0000; 12'o3447: crom <= 108'o2276_3440_0303_1174_4007_0700_0400_0000_1441; 12'o3450: crom <= 108'o2300_3441_0304_4174_4007_0700_0000_0000_0000; 12'o3451: crom <= 108'o2304_3770_0305_4334_4016_7701_0000_0033_6000; 12'o3452: crom <= 108'o3453_0111_0703_4170_4217_0700_0000_0000_0600; 12'o3453: crom <= 108'o0230_3440_0303_1174_4006_6701_1400_0073_1444; 12'o3454: crom <= 108'o3455_3771_0003_4361_5217_0700_0200_0000_0602; 12'o3455: crom <= 108'o0230_4443_0000_2174_4006_6700_0000_0000_0000; 12'o3456: crom <= 108'o3457_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3457: crom <= 108'o0010_3333_0003_7174_4004_1700_0400_0000_0244; 12'o3460: crom <= 108'o0001_4551_0303_4374_0004_1700_0000_0000_0777; 12'o3461: crom <= 108'o3462_3771_0003_7274_4007_0701_0000_0000_0214; 12'o3462: crom <= 108'o2310_0113_0703_0174_4007_0701_0400_0000_0000; 12'o3463: crom <= 108'o3464_1771_0003_7274_4007_0701_4000_0000_0242; 12'o3464: crom <= 108'o2312_3771_0005_1276_6007_0522_0000_0000_1443; 12'o3465: crom <= 108'o2700_3440_0303_1174_4007_0700_0400_0000_1443; 12'o3466: crom <= 108'o3470_0111_0503_4174_4007_0700_0000_0000_0000; 12'o3467: crom <= 108'o3470_1771_0003_7274_4007_0701_4000_0000_0242; 12'o3470: crom <= 108'o3471_3551_0303_7274_4007_0701_0000_0000_0214; 12'o3471: crom <= 108'o2700_3440_0303_0174_4007_0700_0400_0000_0000; 12'o3472: crom <= 108'o3464_7771_0003_7274_4007_0701_0000_0000_0242; 12'o3473: crom <= 108'o0001_3770_0305_4334_4014_1700_0000_0043_6000; 12'o3474: crom <= 108'o3475_3741_0104_4074_4007_0700_0000_0000_0000; 12'o3475: crom <= 108'o2316_3333_0004_7174_4007_0340_0400_0000_0425; 12'o3476: crom <= 108'o3477_3771_0002_4365_5617_0700_0200_0000_0002; 12'o3477: crom <= 108'o2320_4553_0200_4374_4007_0321_0000_0070_0000; 12'o3500: crom <= 108'o3501_4251_0505_4374_4007_0700_0000_0000_7770; 12'o3501: crom <= 108'o0260_4113_0305_4174_4007_0330_0000_0000_0000; 12'o3502: crom <= 108'o0136_4251_0505_4374_4007_0700_0000_0000_7770; 12'o3503: crom <= 108'o3504_5551_0505_4370_4007_0700_0000_0000_0007; 12'o3504: crom <= 108'o3505_4551_0304_4374_4007_0700_0000_0000_0007; 12'o3505: crom <= 108'o3506_3111_0405_4174_4007_0700_0000_0000_0000; 12'o3506: crom <= 108'o3507_4551_0304_4374_4007_0700_0000_0000_7760; 12'o3507: crom <= 108'o2322_4553_0300_4374_4007_0331_0000_0010_0000; 12'o3510: crom <= 108'o2326_4553_0300_4374_4007_0331_0000_0002_0000; 12'o3511: crom <= 108'o3512_3333_0005_4174_4257_0700_0000_0000_0000; 12'o3512: crom <= 108'o1400_3333_0005_7174_4007_0700_0400_0000_0230; 12'o3513: crom <= 108'o3514_3333_0006_4174_4237_0700_0000_0000_0000; 12'o3514: crom <= 108'o3515_5551_0606_4370_4007_0700_0000_0000_2000; 12'o3515: crom <= 108'o2333_3333_0006_4174_4237_0700_0000_0000_0000; 12'o3516: crom <= 108'o3517_3770_0505_4344_0007_0700_0000_0000_0000; 12'o3517: crom <= 108'o3520_4551_0505_4374_0007_0700_0000_0000_7760; 12'o3520: crom <= 108'o3521_4551_0505_4370_4007_0700_0000_0000_0007; 12'o3521: crom <= 108'o3522_3771_0004_4304_4007_0701_0000_0000_0000; 12'o3522: crom <= 108'o3523_4251_0404_4374_4007_0700_0000_0000_7770; 12'o3523: crom <= 108'o3613_3111_0405_4174_4007_0700_0000_0000_0000; 12'o3524: crom <= 108'o2334_3771_0003_4365_5007_0521_0200_0000_0002; 12'o3525: crom <= 108'o3526_4551_0303_4374_0007_0700_0000_0050_7700; 12'o3526: crom <= 108'o2336_4553_0300_4374_4007_0321_0000_0010_0000; 12'o3527: crom <= 108'o2340_4221_0005_4174_0007_0700_2000_0071_0007; 12'o3530: crom <= 108'o3531_4221_0011_4170_4007_0700_0000_0000_0000; 12'o3531: crom <= 108'o3532_3111_0511_4174_4007_0700_0000_0000_0000; 12'o3532: crom <= 108'o2406_3111_0311_4174_0477_0700_0000_0000_0000; 12'o3533: crom <= 108'o3534_4551_0505_4370_4007_0700_0000_0074_7777; 12'o3534: crom <= 108'o2344_4553_0300_4374_4007_0321_0000_0000_0020; 12'o3535: crom <= 108'o3536_3333_0005_7174_4007_0700_0400_0000_0230; 12'o3536: crom <= 108'o3537_3441_0310_4174_4007_0700_0000_0000_0000; 12'o3537: crom <= 108'o2346_4553_1000_4374_4007_0321_0000_0000_0040; 12'o3540: crom <= 108'o3613_4221_0005_4174_0007_0700_0000_0000_0000; 12'o3541: crom <= 108'o3542_4551_1105_4374_0007_0700_0000_0050_7700; 12'o3542: crom <= 108'o2354_3447_1106_4174_4007_0700_2000_0071_0006; 12'o3543: crom <= 108'o0001_3441_0605_4170_4004_1700_0000_0000_0000; 12'o3544: crom <= 108'o3545_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3545: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0215; 12'o3546: crom <= 108'o3547_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3547: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0216; 12'o3550: crom <= 108'o3551_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3551: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0220; 12'o3552: crom <= 108'o3553_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3553: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0217; 12'o3554: crom <= 108'o3555_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3555: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0227; 12'o3556: crom <= 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; 12'o3557: crom <= 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; 12'o3560: crom <= 108'o3561_3771_0003_7274_4117_0701_0000_0000_0301; 12'o3561: crom <= 108'o3562_4751_1205_4374_4007_0700_0000_0001_0000; 12'o3562: crom <= 108'o3563_0111_0503_4174_4007_0700_0000_0000_0000; 12'o3563: crom <= 108'o2356_3770_0303_4174_0007_0520_0000_0000_0000; 12'o3564: crom <= 108'o3565_3771_0003_7274_4007_0701_0000_0000_0303; 12'o3565: crom <= 108'o2360_1111_0503_4174_4007_0421_4000_0000_0000; 12'o3566: crom <= 108'o3567_3771_0005_4304_4007_0701_0000_0000_0000; 12'o3567: crom <= 108'o3570_3551_0505_4374_4007_0700_0000_0000_0040; 12'o3570: crom <= 108'o2360_3333_0005_4174_4237_0700_0000_0000_0000; 12'o3571: crom <= 108'o1114_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3572: crom <= 108'o0002_3333_0003_7174_4004_1700_0400_0000_0300; 12'o3573: crom <= 108'o3574_4451_1204_4324_4007_0700_0000_0000_0000; 12'o3574: crom <= 108'o3575_4451_1206_4324_4007_0700_0000_0000_0000; 12'o3575: crom <= 108'o2362_6113_0405_4174_4007_0621_0000_0000_0000; 12'o3576: crom <= 108'o1120_0551_0404_7274_4007_0671_0000_0000_0301; 12'o3577: crom <= 108'o3600_3333_0005_4175_5007_0701_0200_0000_0002; 12'o3600: crom <= 108'o3601_0111_0702_4170_4007_0700_0200_0003_0012; 12'o3601: crom <= 108'o1400_3333_0004_4175_5007_0701_0200_0000_0002; 12'o3602: crom <= 108'o3603_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3603: crom <= 108'o3604_3333_0003_7174_4007_0700_0400_0000_0302; 12'o3604: crom <= 108'o1400_3333_0003_7174_4007_0700_0400_0000_0303; 12'o3605: crom <= 108'o3606_3770_0505_4344_0007_0700_0000_0000_0000; 12'o3606: crom <= 108'o2370_4553_0300_4374_4007_0331_0000_0002_0000; 12'o3607: crom <= 108'o3610_3770_1416_4344_4007_0700_0000_0000_0000; 12'o3610: crom <= 108'o3611_2441_0716_4170_4007_0700_4000_0000_0000; 12'o3611: crom <= 108'o3612_4111_1416_4174_4007_0700_0000_0000_0000; 12'o3612: crom <= 108'o0010_7443_1600_4174_4434_1700_0000_0000_0000; 12'o3613: crom <= 108'o3614_3443_0300_4174_4007_0700_0200_0003_0012; 12'o3614: crom <= 108'o1400_3333_0005_4175_5007_0701_0200_0000_0002; 12'o3615: crom <= 108'o2402_4221_0003_4174_4007_0700_0000_0000_0000; 12'o3616: crom <= 108'o2404_3333_0003_4174_4247_0700_0000_0000_1000; 12'o3617: crom <= 108'o2410_3333_0003_4174_4347_0700_0000_0000_1000; 12'o3620: crom <= 108'o1400_4223_0000_7174_4007_0700_0400_0000_0423; 12'o3621: crom <= 108'o0001_4443_0000_4174_4004_1700_2000_0071_0375; 12'o3622: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0001; 12'o3623: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0002; 12'o3624: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0003; 12'o3625: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0004; 12'o3626: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0005; 12'o3627: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0006; 12'o3630: crom <= 108'o3631_4751_1206_4374_4007_0700_0000_0000_0007; 12'o3631: crom <= 108'o3632_4251_1403_4374_4007_0700_0000_0007_7577; 12'o3632: crom <= 108'o3633_7443_0300_4174_4437_0700_0000_0000_0000; 12'o3633: crom <= 108'o2412_4223_0000_4364_4277_0700_0200_0000_0010; 12'o3634: crom <= 108'o3635_0551_0303_4370_4007_0701_0000_0000_0040; 12'o3635: crom <= 108'o3636_0111_1003_4174_4007_0700_0000_0000_0000; 12'o3636: crom <= 108'o3637_3443_0300_4174_4007_0700_0200_0024_1016; 12'o3637: crom <= 108'o3640_3771_0003_4365_5007_0701_0200_0020_0012; 12'o3640: crom <= 108'o2416_6553_0300_4374_4007_0321_0000_0025_4340; 12'o3641: crom <= 108'o0060_4223_0000_4174_4467_0700_0000_0000_0004; 12'o3642: crom <= 108'o2422_3445_0303_4174_4007_0530_0000_0000_0000; 12'o3643: crom <= 108'o2430_3771_0005_4365_5007_0331_0200_0000_0002; 12'o3644: crom <= 108'o3645_3447_0606_4174_4007_0700_0000_0000_0000; 12'o3645: crom <= 108'o3637_0111_0605_4174_4007_0700_0200_0024_0012; 12'o3646: crom <= 108'o2434_4113_0514_4174_4007_0330_0000_0000_0000; 12'o3647: crom <= 108'o2446_3441_0603_4174_4007_0700_0000_0000_0000; 12'o3650: crom <= 108'o2450_3113_0304_4174_4007_0701_0200_0000_0036; 12'o3651: crom <= 108'o2460_4553_0600_4374_4007_0321_0000_0070_0000; 12'o3652: crom <= 108'o3653_3333_0002_4174_4217_0700_0000_0000_0000; 12'o3653: crom <= 108'o2464_4553_0200_4374_4007_0321_0000_0000_0017; 12'o3654: crom <= 108'o0001_3771_0003_4365_5124_1700_0200_0000_0002; 12'o3655: crom <= 108'o0001_4221_0003_4174_0124_1700_0000_0000_0000; 12'o3656: crom <= 108'o1124_3771_0016_4354_4007_0650_2000_0071_0200; 12'o3657: crom <= 108'o2470_4443_0000_4174_4007_0650_2000_0071_0777; 12'o3660: crom <= 108'o0001_3771_0003_4365_5004_1700_0200_0000_0002; 12'o3661: crom <= 108'o0001_3771_0004_4365_5004_1700_0200_0000_0002; 12'o3662: crom <= 108'o0001_3772_0000_4365_5004_1700_0200_0000_0002; 12'o3663: crom <= 108'o0001_4221_0004_4174_0004_1700_0000_0000_0000; 12'o3664: crom <= 108'o0001_0111_0703_4174_4004_1700_0000_0000_0000; 12'o3665: crom <= 108'o0001_3445_0505_4174_4004_1700_0000_0000_0000; 12'o3666: crom <= 108'o0001_3443_0300_4174_4004_1701_0200_0000_0036; 12'o3667: crom <= 108'o0004_3333_0005_4175_5004_1701_0200_0000_0002; 12'o3670: crom <= 108'o0001_3333_0001_4175_5004_1701_0200_0000_0002; 12'o3671: crom <= 108'o0001_3440_0404_0174_4004_1700_0400_0000_0000; 12'o3672: crom <= 108'o1515_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3673: crom <= 108'o1516_3771_0003_0276_6007_0700_0000_0000_0000; 12'o3674: crom <= 108'o2474_3333_0017_4175_5007_0701_0200_0000_0002; 12'o3675: crom <= 108'o2502_3771_0004_7274_4007_0422_0000_0000_0227; 12'o3676: crom <= 108'o3677_3771_0004_4354_4007_0700_0000_0000_0000; 12'o3677: crom <= 108'o0010_3333_0004_7174_4004_1700_0400_0000_0210; 12'o3700: crom <= 108'o2504_3333_0004_4174_4007_0700_0200_0021_1016; 12'o3701: crom <= 108'o2505_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3702: crom <= 108'o2514_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3703: crom <= 108'o2515_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3704: crom <= 108'o2520_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3705: crom <= 108'o2521_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3706: crom <= 108'o2524_0111_0704_4170_4007_0700_0200_0023_1016; 12'o3707: crom <= 108'o3710_3771_0003_7274_4007_0701_0000_0000_0211; 12'o3710: crom <= 108'o3711_3771_0004_7274_4007_0701_0000_0000_0210; 12'o3711: crom <= 108'o3712_3443_0400_4174_4007_0700_0200_0000_0010; 12'o3712: crom <= 108'o0006_3771_0004_7274_4004_1701_0000_0000_0212; 12'o3713: crom <= 108'o3714_3771_0006_4354_4007_0700_0000_0000_0000; 12'o3714: crom <= 108'o3715_4551_0606_4374_0007_0700_0000_0040_0000; 12'o3715: crom <= 108'o3716_3333_0006_7174_4007_0700_0400_0000_0210; 12'o3716: crom <= 108'o3717_3771_0005_7274_4007_0701_0000_0000_0230; 12'o3717: crom <= 108'o2530_4553_0500_4374_4007_0331_0000_0003_0000; 12'o3720: crom <= 108'o3721_3333_0006_7174_4007_0700_0400_0000_0214; 12'o3721: crom <= 108'o3722_3771_0006_4354_4007_0700_0000_0000_0000; 12'o3722: crom <= 108'o3723_3333_0006_7174_4007_0700_0400_0000_0210; 12'o3723: crom <= 108'o1060_3333_0004_7174_4007_0370_0400_0000_0212; 12'o3724: crom <= 108'o3725_3333_0006_7174_4007_0700_0400_0000_0160; 12'o3725: crom <= 108'o3726_3333_0006_7174_4007_0700_0400_0000_0161; 12'o3726: crom <= 108'o1501_4571_1206_4374_4007_0700_0000_0036_0000; 12'o3727: crom <= 108'o3730_4223_0000_4364_4277_0700_0200_0000_0010; 12'o3730: crom <= 108'o3731_3551_1313_4374_0007_0700_0000_0002_4000; 12'o3731: crom <= 108'o2532_4553_0600_4374_4007_0321_0000_0002_0000; 12'o3732: crom <= 108'o3733_6551_0606_4374_0007_0700_0000_0000_1000; 12'o3733: crom <= 108'o2534_3441_0605_4174_4007_0700_2000_0071_0007; 12'o3734: crom <= 108'o2536_4553_1000_4374_4007_0321_0000_0000_0040; 12'o3735: crom <= 108'o3736_3443_0300_4174_4007_0700_0200_0024_1016; 12'o3736: crom <= 108'o1000_3771_0003_4365_5007_0700_0200_0000_0002; 12'o3737: crom <= 108'o2572_4553_1300_4374_4007_0321_0000_0002_0000; 12'o3740: crom <= 108'o2061_3771_0004_1276_6007_0701_0000_0000_1443; 12'o3741: crom <= 108'o3456_0111_0703_4170_4007_0700_0210_0004_0012; 12'o3742: crom <= 108'o3325_4571_1203_4374_4007_0700_0000_0077_7777; 12'o3743: crom <= 108'o2156_3771_0006_1276_6007_0351_0000_0000_1443; 12'o3744: crom <= 108'o3456_0111_0703_4174_4007_0700_0210_0004_0012; 12'o3745: crom <= 108'o2576_4553_0600_4374_4007_0321_0000_0001_0000; 12'o3746: crom <= 108'o3747_4221_0013_4170_4007_0700_0000_0000_0000; 12'o3747: crom <= 108'o3750_3551_0606_4374_0007_0700_0000_0010_0000; 12'o3750: crom <= 108'o2614_4553_1300_4374_4007_0321_0000_0000_4000; 12'o3751: crom <= 108'o2111_3771_0006_0276_6007_0700_0000_0000_0000; 12'o3752: crom <= 108'o1500_3111_0603_4174_4003_7700_0200_0003_0001; 12'o3753: crom <= 108'o3755_3441_0305_4174_4007_0700_0000_0000_0000; 12'o3754: crom <= 108'o2060_3771_0005_1276_6007_0701_0000_0000_1443; 12'o3755: crom <= 108'o3756_5551_0305_4374_0007_0700_0000_0007_0000; 12'o3756: crom <= 108'o3757_3443_0500_4174_4007_0701_0200_0000_0030; 12'o3757: crom <= 108'o3760_4251_0404_4374_4007_0700_0000_0000_3777; 12'o3760: crom <= 108'o3761_3551_0406_4374_4007_0700_0000_0040_0000; 12'o3761: crom <= 108'o2616_4553_1300_4374_4007_0321_0000_0002_0000; 12'o3762: crom <= 108'o3763_3771_0004_7274_4007_0701_0000_0000_0212; 12'o3763: crom <= 108'o3764_3771_0005_7274_4007_0701_0000_0000_0213; 12'o3764: crom <= 108'o3765_3771_0006_7274_4007_0701_0000_0000_0214; 12'o3765: crom <= 108'o3766_3443_0300_4174_4007_0701_0200_0000_0032; 12'o3766: crom <= 108'o0000_3771_0003_7274_4004_1701_0000_0000_0211; 12'o3767: crom <= 108'o3770_3551_0304_4374_4007_0700_0000_0075_3777; 12'o3770: crom <= 108'o3771_4111_0413_4174_0007_0700_0000_0000_0000; 12'o3771: crom <= 108'o2630_3333_0003_4174_4007_0520_0000_0000_0000; 12'o3772: crom <= 108'o2640_3443_0300_4174_4007_0370_0200_0024_1016; 12'o3773: crom <= 108'o2644_4553_0300_4374_4007_0321_0000_0002_4000; 12'o3774: crom <= 108'o2646_3333_0006_4174_4007_0520_0000_0000_0000; 12'o3775: crom <= 108'o3776_3771_0004_4365_5007_0700_0200_0000_0002; 12'o3776: crom <= 108'o2654_4553_0500_4374_4007_0331_0000_0000_0001; 12'o3777: crom <= 108'o3720_3333_0003_7174_4007_0700_0400_0000_0211; endcase d2140 11 @ 1.2 log @*** empty log message *** @ text @d9 2 d12 4 a15 1 //! \todo d17 10 d64 1 a64 1 module CROM(clk, clken, addr, crom); d68 4 a71 3 input clk; // Clock input clken; // Clock Enable input [0:11] addr; // Address d76 9 a84 1 // Note ROM MSB is ignored. d86 2 a87 2 always @@(posedge clk) d89 5 a93 1 if (clken) d95 1 d1034 1 a1034 1 12'o1647: crom <= 108'o1013_3441_0305_4174_4003_7700_0000_0000_0000; d2147 2 a2148 1 endcase @ 1.1 log @Initial revision @ text @d51 1 a51 1 parameter cromWidth = `CROM_WIDTH; d53 4 a56 10 input clk; // Clock input clken; // Clock Enable input [0:11] addr; // Address output [0:cromWidth-1] crom; // Output Data reg [0:cromWidth-1] crom; reg [0:cromWidth-1] ROM[0:2047]; initial $readmemb(`CROM_DATA, ROM, 0, 2047); d66 2053 a2118 3 begin crom <= ROM[addr[1:11]]; end a2119 1 @ rtl/cpu/useq/RCS/drom.v,v0000444000175100010010000015173412047013742013646 0ustar RobNonehead 1.9; access; symbols; locks; comment @# @; 1.9 date 2012.11.08.20.36.47; author E721269; state Exp; branches; next 1.8; 1.8 date 2012.11.03.05.28.14; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.02.01.03.02; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.01.05.15.25; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.20.02.14.18; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.09.29.06.31.55; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.09.29.00.48.21; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.28.23.51.44; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.38.25; author Rob; state Exp; branches; next ; desc @Dispatch ROM @ 1.9 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 syncrhronously 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 @ 1.8 log @*** empty log message *** @ text @d68 1 a68 4 // 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 synchronous. Therefore when we load the IR // we also load the address of the DROM. d75 5 a79 4 // Dispatch ROM (DROM) // DPEA/E98 // DPEA/E117 // DPEA/E110 d83 1 a83 1 a85 6 // // The KS10 microcode is extracted from the listing file by // a simple AWK script and inserted below. // a86 1 d90 16 a105 1 // Registered ROM d110 1 a110 3 if (rst) drom <= 36'b0; else if (clken & loadIR) @ 1.7 log @*** empty log message *** @ text @d25 1 a25 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.6 log @*** empty log message *** @ text @d9 3 d13 3 a15 1 //! \todo d88 8 a95 512 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; d99 1 a99 1 // Synchronous ROM @ 1.5 log @*** empty log message *** @ text @d47 1 d50 1 a50 1 module DROM(clk, rst, clken, addr, drom); d52 1 d58 13 a70 2 input [0:8] addr; // Address output reg [0:dromWidth-1] drom; // Output Data d598 1 a598 1 // d603 3 a605 1 if (clken) @ 1.4 log @*** empty log message *** @ text @d1 594 a594 586 //////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Dispatch ROM (DROM) //! //! \details //! //! \todo //! //! \file //! drom.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2009, 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 // `include "drom.vh" module DROM(clk, clken, dbus, drom); parameter dromWidth = `DROM_WIDTH; input clk; // Clock input clken; // Clock Enable input [0:35] dbus; // Data Bus (Instruction Register) output reg [0:dromWidth-1] drom; // Output Data // // Dispatch ROM (DROM) // DPEA/E98 // DPEA/E117 // DPEA/E110 // always @@(posedge clk) begin if (clken) case (dbus[0:8]) // 0000 1112 2233 // 0369 2581 4703 9'o000: drom <= 36'o0000_1556_2100; 9'o001: drom <= 36'o0001_1740_2100; 9'o002: drom <= 36'o0002_1740_2100; 9'o003: drom <= 36'o0003_1740_2100; 9'o004: drom <= 36'o0002_1741_2100; 9'o005: drom <= 36'o0005_1740_2100; 9'o006: drom <= 36'o0006_1740_2100; 9'o007: drom <= 36'o0007_1740_2100; 9'o010: drom <= 36'o0001_1742_2100; 9'o011: drom <= 36'o0004_1742_2100; 9'o012: drom <= 36'o0001_1743_2100; 9'o013: drom <= 36'o0000_1743_2100; 9'o014: drom <= 36'o0001_1744_2100; 9'o015: drom <= 36'o0000_1744_2100; 9'o016: drom <= 36'o0002_1744_2100; 9'o017: drom <= 36'o0003_1744_2100; 9'o020: drom <= 36'o0000_1746_2100; 9'o021: drom <= 36'o0000_1747_2100; 9'o022: drom <= 36'o0000_1750_2100; 9'o023: drom <= 36'o0000_1751_2100; 9'o024: drom <= 36'o0001_1751_2100; 9'o025: drom <= 36'o0002_1751_2100; 9'o026: drom <= 36'o0004_1751_2100; 9'o027: drom <= 36'o0010_1751_2100; 9'o030: drom <= 36'o0000_1557_2100; 9'o031: drom <= 36'o0001_1557_2100; 9'o032: drom <= 36'o0002_1557_2100; 9'o033: drom <= 36'o0003_1557_2100; 9'o034: drom <= 36'o0004_1557_2100; 9'o035: drom <= 36'o0005_1557_2100; 9'o036: drom <= 36'o0006_1557_2100; 9'o037: drom <= 36'o0007_1557_2100; 9'o040: drom <= 36'o0000_1556_2100; 9'o041: drom <= 36'o0000_1556_2100; 9'o042: drom <= 36'o0000_1556_2100; 9'o043: drom <= 36'o0000_1556_2100; 9'o044: drom <= 36'o0000_1556_2100; 9'o045: drom <= 36'o0000_1556_2100; 9'o046: drom <= 36'o0000_1556_2100; 9'o047: drom <= 36'o0000_1556_2100; 9'o050: drom <= 36'o0000_1556_2100; 9'o051: drom <= 36'o0000_1556_2100; 9'o052: drom <= 36'o0000_1556_2100; 9'o053: drom <= 36'o0000_1556_2100; 9'o054: drom <= 36'o0000_1556_2100; 9'o055: drom <= 36'o0000_1556_2100; 9'o056: drom <= 36'o0000_1556_2100; 9'o057: drom <= 36'o0000_1556_2100; 9'o060: drom <= 36'o0000_1556_2100; 9'o061: drom <= 36'o0000_1556_2100; 9'o062: drom <= 36'o0000_1556_2100; 9'o063: drom <= 36'o0000_1556_2100; 9'o064: drom <= 36'o0000_1556_2100; 9'o065: drom <= 36'o0000_1556_2100; 9'o066: drom <= 36'o0000_1556_2100; 9'o067: drom <= 36'o0000_1556_2100; 9'o070: drom <= 36'o0000_1556_2100; 9'o071: drom <= 36'o0000_1556_2100; 9'o072: drom <= 36'o0000_1556_2100; 9'o073: drom <= 36'o0000_1556_2100; 9'o074: drom <= 36'o0000_1556_2100; 9'o075: drom <= 36'o0000_1556_2100; 9'o076: drom <= 36'o0000_1556_2100; 9'o077: drom <= 36'o0000_1556_2100; 9'o100: drom <= 36'o0000_1556_2100; 9'o101: drom <= 36'o0000_1661_2100; 9'o102: drom <= 36'o0000_1662_2100; 9'o103: drom <= 36'o0000_1663_2100; 9'o104: drom <= 36'o0000_1664_2100; 9'o105: drom <= 36'o0000_1551_3000; 9'o106: drom <= 36'o0000_1666_2100; 9'o107: drom <= 36'o0000_1667_2100; 9'o110: drom <= 36'o1100_1637_1100; 9'o111: drom <= 36'o1100_1635_1100; 9'o112: drom <= 36'o1105_1631_1100; 9'o113: drom <= 36'o1105_1636_1100; 9'o114: drom <= 36'o0205_1457_1100; 9'o115: drom <= 36'o0205_1615_1100; 9'o116: drom <= 36'o0205_1566_1100; 9'o117: drom <= 36'o0205_1627_1100; 9'o120: drom <= 36'o0205_1505_1100; 9'o121: drom <= 36'o0215_1434_1100; 9'o122: drom <= 36'o0701_1626_1100; 9'o123: drom <= 36'o0000_1467_3100; 9'o124: drom <= 36'o0300_1567_0100; 9'o125: drom <= 36'o0100_1565_0500; 9'o126: drom <= 36'o0711_1626_1100; 9'o127: drom <= 36'o0011_1616_1100; 9'o130: drom <= 36'o0000_1660_2100; 9'o131: drom <= 36'o0001_1660_2100; 9'o132: drom <= 36'o0001_1621_2100; 9'o133: drom <= 36'o0015_1610_1100; 9'o134: drom <= 36'o0000_1620_1500; 9'o135: drom <= 36'o0000_1624_1100; 9'o136: drom <= 36'o0000_1630_1500; 9'o137: drom <= 36'o0000_1634_1100; 9'o140: drom <= 36'o0701_1577_1100; 9'o141: drom <= 36'o0002_1660_2100; 9'o142: drom <= 36'o0702_1577_1700; 9'o143: drom <= 36'o0703_1577_1700; 9'o144: drom <= 36'o0711_1577_1100; 9'o145: drom <= 36'o0611_1577_0100; 9'o146: drom <= 36'o0712_1577_1700; 9'o147: drom <= 36'o0713_1577_1700; 9'o150: drom <= 36'o0701_1576_1100; 9'o151: drom <= 36'o0003_1660_2100; 9'o152: drom <= 36'o0702_1576_1700; 9'o153: drom <= 36'o0703_1576_1700; 9'o154: drom <= 36'o0711_1576_1100; 9'o155: drom <= 36'o0611_1576_0100; 9'o156: drom <= 36'o0712_1576_1700; 9'o157: drom <= 36'o0713_1576_1700; 9'o160: drom <= 36'o0701_1570_1100; 9'o161: drom <= 36'o0004_1660_2100; 9'o162: drom <= 36'o0702_1570_1700; 9'o163: drom <= 36'o0703_1570_1700; 9'o164: drom <= 36'o0711_1570_1100; 9'o165: drom <= 36'o0611_1570_0100; 9'o166: drom <= 36'o0712_1570_1700; 9'o167: drom <= 36'o0713_1570_1700; 9'o170: drom <= 36'o0701_1574_1100; 9'o171: drom <= 36'o0005_1660_2100; 9'o172: drom <= 36'o0702_1574_1700; 9'o173: drom <= 36'o0703_1574_1700; 9'o174: drom <= 36'o0711_1574_1100; 9'o175: drom <= 36'o0611_1574_0100; 9'o176: drom <= 36'o0712_1574_1700; 9'o177: drom <= 36'o0713_1574_1700; 9'o200: drom <= 36'o1015_1515_1100; 9'o201: drom <= 36'o0015_1515_3000; 9'o202: drom <= 36'o0116_1404_0700; 9'o203: drom <= 36'o0004_1504_1700; 9'o204: drom <= 36'o1015_1402_1100; 9'o205: drom <= 36'o0015_1402_3000; 9'o206: drom <= 36'o0116_1402_0700; 9'o207: drom <= 36'o0004_1402_1700; 9'o210: drom <= 36'o1015_1405_1100; 9'o211: drom <= 36'o0015_1405_3000; 9'o212: drom <= 36'o0116_1405_0700; 9'o213: drom <= 36'o0004_1405_1700; 9'o214: drom <= 36'o1015_1403_1100; 9'o215: drom <= 36'o0015_1515_3000; 9'o216: drom <= 36'o0116_1403_0700; 9'o217: drom <= 36'o0004_1403_1700; 9'o220: drom <= 36'o1015_1641_1100; 9'o221: drom <= 36'o0015_1641_3000; 9'o222: drom <= 36'o0016_1641_1700; 9'o223: drom <= 36'o0017_1641_1700; 9'o224: drom <= 36'o1005_1571_1100; 9'o225: drom <= 36'o0005_1571_3000; 9'o226: drom <= 36'o0016_1571_1700; 9'o227: drom <= 36'o0006_1571_1700; 9'o230: drom <= 36'o1005_1600_1100; 9'o231: drom <= 36'o0005_1600_3000; 9'o232: drom <= 36'o0016_1600_1700; 9'o233: drom <= 36'o0006_1600_1700; 9'o234: drom <= 36'o1005_1601_1100; 9'o235: drom <= 36'o0005_1601_3000; 9'o236: drom <= 36'o0016_1601_1700; 9'o237: drom <= 36'o0006_1601_1700; 9'o240: drom <= 36'o0400_1622_1000; 9'o241: drom <= 36'o0400_1632_1000; 9'o242: drom <= 36'o0400_1612_1000; 9'o243: drom <= 36'o0000_1462_2100; 9'o244: drom <= 36'o0000_1466_3000; 9'o245: drom <= 36'o0500_1470_1000; 9'o246: drom <= 36'o0500_1464_1000; 9'o247: drom <= 36'o0000_1665_2100; 9'o250: drom <= 36'o0015_1406_1500; 9'o251: drom <= 36'o0000_1640_2100; 9'o252: drom <= 36'o0005_1547_2100; 9'o253: drom <= 36'o0001_1547_2100; 9'o254: drom <= 36'o0000_1520_6000; 9'o255: drom <= 36'o0000_1540_2100; 9'o256: drom <= 36'o0000_1541_1100; 9'o257: drom <= 36'o1215_1553_0100; 9'o260: drom <= 36'o0000_1544_2100; 9'o261: drom <= 36'o0002_1543_3100; 9'o262: drom <= 36'o0002_1545_2100; 9'o263: drom <= 36'o0000_1546_2100; 9'o264: drom <= 36'o0000_1552_2100; 9'o265: drom <= 36'o0000_1550_2100; 9'o266: drom <= 36'o0000_1554_2100; 9'o267: drom <= 36'o0000_1555_2100; 9'o270: drom <= 36'o1015_1560_1100; 9'o271: drom <= 36'o0015_1560_3000; 9'o272: drom <= 36'o0016_1560_1700; 9'o273: drom <= 36'o0017_1560_1700; 9'o274: drom <= 36'o1015_1561_1100; 9'o275: drom <= 36'o0015_1561_3000; 9'o276: drom <= 36'o0016_1561_1700; 9'o277: drom <= 36'o0017_1561_1700; 9'o300: drom <= 36'o0000_1400_2100; 9'o301: drom <= 36'o0001_1476_2100; 9'o302: drom <= 36'o0002_1476_2100; 9'o303: drom <= 36'o0003_1476_2100; 9'o304: drom <= 36'o0004_1476_2100; 9'o305: drom <= 36'o0005_1476_2100; 9'o306: drom <= 36'o0006_1476_2100; 9'o307: drom <= 36'o0007_1476_2100; 9'o310: drom <= 36'o0000_1476_1100; 9'o311: drom <= 36'o0001_1476_1100; 9'o312: drom <= 36'o0002_1476_1100; 9'o313: drom <= 36'o0003_1476_1100; 9'o314: drom <= 36'o0004_1476_1100; 9'o315: drom <= 36'o0005_1476_1100; 9'o316: drom <= 36'o0006_1476_1100; 9'o317: drom <= 36'o0007_1476_1100; 9'o320: drom <= 36'o0000_1400_2100; 9'o321: drom <= 36'o0001_1440_2100; 9'o322: drom <= 36'o0002_1440_2100; 9'o323: drom <= 36'o0003_1440_2100; 9'o324: drom <= 36'o0004_1520_2100; 9'o325: drom <= 36'o0005_1440_2100; 9'o326: drom <= 36'o0006_1440_2100; 9'o327: drom <= 36'o0007_1440_2100; 9'o330: drom <= 36'o0000_1477_1100; 9'o331: drom <= 36'o0001_1477_1100; 9'o332: drom <= 36'o0002_1477_1100; 9'o333: drom <= 36'o0003_1477_1100; 9'o334: drom <= 36'o0004_1477_1100; 9'o335: drom <= 36'o0005_1477_1100; 9'o336: drom <= 36'o0006_1477_1100; 9'o337: drom <= 36'o0007_1477_1100; 9'o340: drom <= 36'o0000_1611_3000; 9'o341: drom <= 36'o0001_1611_2100; 9'o342: drom <= 36'o0002_1611_2100; 9'o343: drom <= 36'o0003_1611_2100; 9'o344: drom <= 36'o0004_1611_2100; 9'o345: drom <= 36'o0005_1611_2100; 9'o346: drom <= 36'o0006_1611_2100; 9'o347: drom <= 36'o0007_1611_2100; 9'o350: drom <= 36'o0000_1431_1500; 9'o351: drom <= 36'o0001_1431_1500; 9'o352: drom <= 36'o0002_1431_1500; 9'o353: drom <= 36'o0003_1431_1500; 9'o354: drom <= 36'o0004_1431_1500; 9'o355: drom <= 36'o0005_1431_1500; 9'o356: drom <= 36'o0006_1431_1500; 9'o357: drom <= 36'o0007_1431_1500; 9'o360: drom <= 36'o0000_1542_3000; 9'o361: drom <= 36'o0001_1542_2100; 9'o362: drom <= 36'o0002_1542_2100; 9'o363: drom <= 36'o0003_1542_2100; 9'o364: drom <= 36'o0004_1542_2100; 9'o365: drom <= 36'o0005_1542_2100; 9'o366: drom <= 36'o0006_1542_2100; 9'o367: drom <= 36'o0007_1542_2100; 9'o370: drom <= 36'o0000_1437_1500; 9'o371: drom <= 36'o0001_1437_1500; 9'o372: drom <= 36'o0002_1437_1500; 9'o373: drom <= 36'o0003_1437_1500; 9'o374: drom <= 36'o0004_1437_1500; 9'o375: drom <= 36'o0005_1437_1500; 9'o376: drom <= 36'o0006_1437_1500; 9'o377: drom <= 36'o0007_1437_1500; 9'o400: drom <= 36'o0015_1441_3000; 9'o401: drom <= 36'o0015_1441_3000; 9'o402: drom <= 36'o0016_1441_2700; 9'o403: drom <= 36'o0017_1441_2700; 9'o404: drom <= 36'o1015_1442_1100; 9'o405: drom <= 36'o0015_1442_3000; 9'o406: drom <= 36'o0016_1442_1700; 9'o407: drom <= 36'o0017_1442_1700; 9'o410: drom <= 36'o1015_1443_1100; 9'o411: drom <= 36'o0015_1443_3000; 9'o412: drom <= 36'o0016_1443_1700; 9'o413: drom <= 36'o0017_1443_1700; 9'o414: drom <= 36'o1015_1404_1100; 9'o415: drom <= 36'o0015_1404_3000; 9'o416: drom <= 36'o0016_1404_1700; 9'o417: drom <= 36'o0017_1404_1700; 9'o420: drom <= 36'o1015_1444_1100; 9'o421: drom <= 36'o0015_1444_3000; 9'o422: drom <= 36'o0016_1444_1700; 9'o423: drom <= 36'o0017_1444_1700; 9'o424: drom <= 36'o0000_1400_1100; 9'o425: drom <= 36'o0000_1400_2100; 9'o426: drom <= 36'o0116_1404_0700; 9'o427: drom <= 36'o0116_1404_0700; 9'o430: drom <= 36'o1015_1445_1100; 9'o431: drom <= 36'o0015_1445_3000; 9'o432: drom <= 36'o0016_1445_1700; 9'o433: drom <= 36'o0017_1445_1700; 9'o434: drom <= 36'o1015_1446_1100; 9'o435: drom <= 36'o0015_1446_3000; 9'o436: drom <= 36'o0016_1446_1700; 9'o437: drom <= 36'o0017_1446_1700; 9'o440: drom <= 36'o1015_1447_1100; 9'o441: drom <= 36'o0015_1447_3000; 9'o442: drom <= 36'o0016_1447_1700; 9'o443: drom <= 36'o0017_1447_1700; 9'o444: drom <= 36'o1015_1450_1100; 9'o445: drom <= 36'o0015_1450_3000; 9'o446: drom <= 36'o0016_1450_1700; 9'o447: drom <= 36'o0017_1450_1700; 9'o450: drom <= 36'o0015_1451_3000; 9'o451: drom <= 36'o0015_1451_3000; 9'o452: drom <= 36'o0016_1451_2700; 9'o453: drom <= 36'o0017_1451_2700; 9'o454: drom <= 36'o1015_1452_1100; 9'o455: drom <= 36'o0015_1452_3000; 9'o456: drom <= 36'o0016_1452_1700; 9'o457: drom <= 36'o0017_1452_1700; 9'o460: drom <= 36'o1015_1453_1100; 9'o461: drom <= 36'o0015_1453_3000; 9'o462: drom <= 36'o0016_1453_1700; 9'o463: drom <= 36'o0017_1453_1700; 9'o464: drom <= 36'o1015_1454_1100; 9'o465: drom <= 36'o0015_1454_3000; 9'o466: drom <= 36'o0016_1454_1700; 9'o467: drom <= 36'o0017_1454_1700; 9'o470: drom <= 36'o1015_1455_1100; 9'o471: drom <= 36'o0015_1455_3000; 9'o472: drom <= 36'o0016_1455_1700; 9'o473: drom <= 36'o0017_1455_1700; 9'o474: drom <= 36'o0015_1456_3000; 9'o475: drom <= 36'o0015_1456_3000; 9'o476: drom <= 36'o0016_1456_2700; 9'o477: drom <= 36'o0017_1456_2700; 9'o500: drom <= 36'o1015_1410_1100; 9'o501: drom <= 36'o0015_1410_3000; 9'o502: drom <= 36'o0016_1407_1700; 9'o503: drom <= 36'o0004_1404_1700; 9'o504: drom <= 36'o1015_1411_1100; 9'o505: drom <= 36'o0015_1411_3000; 9'o506: drom <= 36'o0016_1413_1700; 9'o507: drom <= 36'o0004_1414_1700; 9'o510: drom <= 36'o1015_1432_1100; 9'o511: drom <= 36'o0015_1432_3000; 9'o512: drom <= 36'o0116_1432_0700; 9'o513: drom <= 36'o0004_1432_1700; 9'o514: drom <= 36'o1015_1424_1100; 9'o515: drom <= 36'o0015_1424_3000; 9'o516: drom <= 36'o0116_1424_0700; 9'o517: drom <= 36'o0004_1424_1700; 9'o520: drom <= 36'o1015_1433_1100; 9'o521: drom <= 36'o0015_1433_3000; 9'o522: drom <= 36'o0116_1433_0700; 9'o523: drom <= 36'o0004_1433_1700; 9'o524: drom <= 36'o1015_1425_1100; 9'o525: drom <= 36'o0015_1425_3000; 9'o526: drom <= 36'o0116_1425_0700; 9'o527: drom <= 36'o0004_1425_1700; 9'o530: drom <= 36'o1015_1430_1100; 9'o531: drom <= 36'o0015_1430_3000; 9'o532: drom <= 36'o0116_1430_0700; 9'o533: drom <= 36'o0004_1430_1700; 9'o534: drom <= 36'o1015_1422_1100; 9'o535: drom <= 36'o0015_1422_3000; 9'o536: drom <= 36'o0116_1422_0700; 9'o537: drom <= 36'o0004_1422_1700; 9'o540: drom <= 36'o1015_1407_1100; 9'o541: drom <= 36'o0015_1407_3000; 9'o542: drom <= 36'o0016_1410_1700; 9'o543: drom <= 36'o0004_1404_1700; 9'o544: drom <= 36'o1015_1412_1100; 9'o545: drom <= 36'o0015_1412_3000; 9'o546: drom <= 36'o0016_1415_1700; 9'o547: drom <= 36'o0004_1416_1700; 9'o550: drom <= 36'o1015_1420_1100; 9'o551: drom <= 36'o0015_1420_3000; 9'o552: drom <= 36'o0116_1420_0700; 9'o553: drom <= 36'o0004_1420_1700; 9'o554: drom <= 36'o1015_1426_1100; 9'o555: drom <= 36'o0015_1426_3000; 9'o556: drom <= 36'o0116_1426_0700; 9'o557: drom <= 36'o0004_1426_1700; 9'o560: drom <= 36'o1015_1421_1100; 9'o561: drom <= 36'o0015_1421_3000; 9'o562: drom <= 36'o0116_1421_0700; 9'o563: drom <= 36'o0004_1421_1700; 9'o564: drom <= 36'o1015_1427_1100; 9'o565: drom <= 36'o0015_1427_3000; 9'o566: drom <= 36'o0116_1427_0700; 9'o567: drom <= 36'o0004_1427_1700; 9'o570: drom <= 36'o1015_1417_1100; 9'o571: drom <= 36'o0015_1417_3000; 9'o572: drom <= 36'o0116_1417_0700; 9'o573: drom <= 36'o0004_1417_1700; 9'o574: drom <= 36'o1015_1423_1100; 9'o575: drom <= 36'o0015_1423_3000; 9'o576: drom <= 36'o0116_1423_0700; 9'o577: drom <= 36'o0004_1423_1700; 9'o600: drom <= 36'o0000_1400_2100; 9'o601: drom <= 36'o0000_1400_2100; 9'o602: drom <= 36'o0000_1475_2100; 9'o603: drom <= 36'o0000_1474_2100; 9'o604: drom <= 36'o0000_1473_2100; 9'o605: drom <= 36'o0000_1472_2100; 9'o606: drom <= 36'o0004_1475_2100; 9'o607: drom <= 36'o0004_1474_2100; 9'o610: drom <= 36'o0000_1400_2100; 9'o611: drom <= 36'o0000_1400_2100; 9'o612: drom <= 36'o0000_1475_1100; 9'o613: drom <= 36'o0000_1474_1100; 9'o614: drom <= 36'o0000_1473_1100; 9'o615: drom <= 36'o0000_1472_1100; 9'o616: drom <= 36'o0004_1475_1100; 9'o617: drom <= 36'o0004_1474_1100; 9'o620: drom <= 36'o0005_1473_2100; 9'o621: drom <= 36'o0005_1472_2100; 9'o622: drom <= 36'o0001_1475_2100; 9'o623: drom <= 36'o0001_1474_2100; 9'o624: drom <= 36'o0001_1473_2100; 9'o625: drom <= 36'o0001_1472_2100; 9'o626: drom <= 36'o0005_1475_2100; 9'o627: drom <= 36'o0005_1474_2100; 9'o630: drom <= 36'o0005_1473_1100; 9'o631: drom <= 36'o0005_1472_1100; 9'o632: drom <= 36'o0001_1475_1100; 9'o633: drom <= 36'o0001_1474_1100; 9'o634: drom <= 36'o0001_1473_1100; 9'o635: drom <= 36'o0001_1472_1100; 9'o636: drom <= 36'o0005_1475_1100; 9'o637: drom <= 36'o0005_1474_1100; 9'o640: drom <= 36'o0006_1473_2100; 9'o641: drom <= 36'o0006_1472_2100; 9'o642: drom <= 36'o0002_1475_2100; 9'o643: drom <= 36'o0002_1474_2100; 9'o644: drom <= 36'o0002_1473_2100; 9'o645: drom <= 36'o0002_1472_2100; 9'o646: drom <= 36'o0006_1475_2100; 9'o647: drom <= 36'o0006_1474_2100; 9'o650: drom <= 36'o0006_1473_1100; 9'o651: drom <= 36'o0006_1472_1100; 9'o652: drom <= 36'o0002_1475_1100; 9'o653: drom <= 36'o0002_1474_1100; 9'o654: drom <= 36'o0002_1473_1100; 9'o655: drom <= 36'o0002_1472_1100; 9'o656: drom <= 36'o0006_1475_1100; 9'o657: drom <= 36'o0006_1474_1100; 9'o660: drom <= 36'o0007_1473_2100; 9'o661: drom <= 36'o0007_1472_2100; 9'o662: drom <= 36'o0003_1475_2100; 9'o663: drom <= 36'o0003_1474_2100; 9'o664: drom <= 36'o0003_1473_2100; 9'o665: drom <= 36'o0003_1472_2100; 9'o666: drom <= 36'o0007_1475_2100; 9'o667: drom <= 36'o0007_1474_2100; 9'o670: drom <= 36'o0007_1473_1100; 9'o671: drom <= 36'o0007_1472_1100; 9'o672: drom <= 36'o0003_1475_1100; 9'o673: drom <= 36'o0003_1474_1100; 9'o674: drom <= 36'o0003_1473_1100; 9'o675: drom <= 36'o0003_1472_1100; 9'o676: drom <= 36'o0007_1475_1100; 9'o677: drom <= 36'o0007_1474_1100; 9'o700: drom <= 36'o1200_1700_4100; 9'o701: drom <= 36'o1200_1720_4100; 9'o702: drom <= 36'o1216_1760_4700; 9'o703: drom <= 36'o0003_1650_2100; 9'o704: drom <= 36'o1200_1754_0100; 9'o705: drom <= 36'o1200_1755_0100; 9'o706: drom <= 36'o0006_1650_2100; 9'o707: drom <= 36'o0007_1650_2100; 9'o710: drom <= 36'o1210_1614_0100; 9'o711: drom <= 36'o1214_1614_0100; 9'o712: drom <= 36'o1210_1460_0100; 9'o713: drom <= 36'o1210_1461_0100; 9'o714: drom <= 36'o1210_1644_0100; 9'o715: drom <= 36'o1214_1644_0100; 9'o716: drom <= 36'o0006_1651_2100; 9'o717: drom <= 36'o0007_1651_2100; 9'o720: drom <= 36'o1200_1614_0100; 9'o721: drom <= 36'o1204_1614_0100; 9'o722: drom <= 36'o1200_1460_0100; 9'o723: drom <= 36'o1200_1461_0100; 9'o724: drom <= 36'o1200_1644_0100; 9'o725: drom <= 36'o1204_1644_0100; 9'o726: drom <= 36'o0006_1652_2100; 9'o727: drom <= 36'o0007_1652_2100; 9'o730: drom <= 36'o0000_1653_2100; 9'o731: drom <= 36'o0001_1653_2100; 9'o732: drom <= 36'o0002_1653_2100; 9'o733: drom <= 36'o0003_1653_2100; 9'o734: drom <= 36'o0004_1653_2100; 9'o735: drom <= 36'o0005_1653_2100; 9'o736: drom <= 36'o0006_1653_2100; 9'o737: drom <= 36'o0007_1653_2100; 9'o740: drom <= 36'o0000_1654_2100; 9'o741: drom <= 36'o0001_1654_2100; 9'o742: drom <= 36'o0002_1654_2100; 9'o743: drom <= 36'o0003_1654_2100; 9'o744: drom <= 36'o0004_1654_2100; 9'o745: drom <= 36'o0005_1654_2100; 9'o746: drom <= 36'o0006_1654_2100; 9'o747: drom <= 36'o0007_1654_2100; 9'o750: drom <= 36'o0000_1655_2100; 9'o751: drom <= 36'o0001_1655_2100; 9'o752: drom <= 36'o0002_1655_2100; 9'o753: drom <= 36'o0003_1655_2100; 9'o754: drom <= 36'o0004_1655_2100; 9'o755: drom <= 36'o0005_1655_2100; 9'o756: drom <= 36'o0006_1655_2100; 9'o757: drom <= 36'o0007_1655_2100; 9'o760: drom <= 36'o0000_1656_2100; 9'o761: drom <= 36'o0001_1656_2100; 9'o762: drom <= 36'o0002_1656_2100; 9'o763: drom <= 36'o0003_1656_2100; 9'o764: drom <= 36'o0004_1656_2100; 9'o765: drom <= 36'o0005_1656_2100; 9'o766: drom <= 36'o0006_1656_2100; 9'o767: drom <= 36'o0007_1656_2100; 9'o770: drom <= 36'o0000_1657_2100; 9'o771: drom <= 36'o0001_1657_2100; 9'o772: drom <= 36'o0002_1657_2100; 9'o773: drom <= 36'o0003_1657_2100; 9'o774: drom <= 36'o0004_1657_2100; 9'o775: drom <= 36'o0005_1657_2100; 9'o776: drom <= 36'o0006_1657_2100; 9'o777: drom <= 36'o0007_1657_2100; endcase end endmodule @ 1.3 log @*** empty log message *** @ text @d51 1 a51 1 parameter dromWidth = `DROM_WIDTH; d53 4 a56 14 input clk; // Clock input clken; // Clock Enable input [0:35] dbus; // Data Bus (Instruction Register) output [0:dromWidth-1] drom; // Output Data // // ROM Definition // reg [0:dromWidth-1] drom; reg [0:dromWidth-1] ROM[0:511]; initial $readmemb(`DROM_DATA, ROM, 0, 511); d68 516 a583 3 begin drom <= ROM[dbus[0:8]]; end @ 1.2 log @*** empty log message *** @ text @d47 1 a47 1 `include "microcontroller/drom.vh" d58 6 d69 1 a69 1 // DROM a73 3 reg [0:dromWidth-1] drom; reg [0:dromWidth-1] ROM[0:511]; @ 1.1 log @Initial revision @ text @d47 1 a47 1 `include "drom.vh" d49 1 a49 1 module DROM(clk, clken, addr, drom); d52 6 a57 5 input clk; // Clock input clken; // Clock Enable input [0:11] addr; // Address output [0:dromWidth-1] drom; // Output Data d63 4 a66 1 // ROM d68 1 a68 1 d71 1 a71 1 d76 2 a77 2 drom <= ROM[addr]; end @ rtl/cpu/useq/RCS/drom.vh,v0000444000175100010010000002036512047014034014004 0ustar RobNonehead 1.5; access; symbols; locks; comment @# @; 1.5 date 2012.11.08.20.37.45; author E721269; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.28.43; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.20.02.12.50; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.03.21.06; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.22.53.46; author Rob; state Exp; branches; next ; desc @Dispatch ROM definitions @ 1.5 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// // // 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 @ 1.4 log @*** empty log message *** @ text @d9 4 a12 9 // In the KS-10 implementation, the Dispatch ROM is unclocked // an the address is supplied by the Instruction Register (IR). // // In this implementation, the Dispatch ROM is address is // clocked when the Instruction Register is loaded. This // allows the Dispatch ROM to be implemented in an FPGA // compatible fashion. // // \notes a49 1 `define DROM_DATA "drom.bin" // DROM Data File d53 31 a83 7 // Note : See page 5-39 of EK-0KS10-TM-002 for info about dromTXXXEN. // The bit is not replicated into DROM DPEA/E114[2]. // Note : Four upper bits of dromJ are always "0001" (jump is always // between 1400 and 1777) and are hardwired in the KS10. The dromJ // field is the 8 lower bits. // Note : See figure 5-20 of EK-0KS10-TM-002 for mapping to ROM. // Note : dromI and dromAEQJ are aliases of each other. d86 15 a100 15 `define dromA drom[ 2: 5] // DROM DPEA/E114[ 0: 3] Operand Fetch Mode `define dromB drom[ 8:11] // DROM DPEA/E114[ 4: 7] Store result as `define dromROUND drom[ 8] // DROM DPEA/E114[4] Round the result `define dromMODE drom[ 9] // DROM DPEA/E114[5] Seperate Add/Sub & Mul/Div `define dromFL_B drom[10:11] // DROM DPEA/E114[ 6: 7] Store Floating-point results as `define dromJ drom[12:23] // DROM DPEA/E115[ 0: 7] Jump (see notes) `define dromACDISP drom[24] // DROM DPEA/E113[1] Dispatch on AC Field `define dromI drom[25] // DROM DPEA/E113[0] Immediate dispatch on J field. (see notes) `define dromAEQJ drom[25] // DROM DPEA/E113[0] Immediate dispatch on J field. (see notes) `define dromREADCYCLE drom[26] // DROM DPEA/E113[5] Start a read at AREAD `define dromWRTESTCYCLE drom[27] // DROM DPEA/E113[7] Start a write test at AREAD `define dromCOND_FUNC drom[28] // DROM DPEA/E113[3] Start a memory cycle on BWRITE `define dromVMA drom[29] // DROM DPEA/E113[4] Load the VMA on AREAD `define dromWRITECYCLE drom[30] // DROM DPEA/E113[6] Start a write on AREAD `define dromTXXXEN drom[ 9] // DROM DPEA/E113[5] Shown as DROM DPEA/E113[2] (see notes) @ 1.3 log @*** empty log message *** @ text @d27 1 a27 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d77 2 a78 2 `define dromREAD drom[26] // DROM DPEA/E113[5] Start a read at AREAD `define dromTEST drom[27] // DROM DPEA/E113[7] Start a write test at AREAD d81 1 a81 1 `define dromWRITE drom[30] // DROM DPEA/E113[6] Start a write on AREAD @ 1.1 log @Initial revision @ text @d6 1 a6 1 // Dispatch ROM (DROM) Definitions d16 1 a16 1 // d59 8 a66 1 // d68 15 a82 13 `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 dromFL_B drom[10:11] // Store Floating-point results as `define dromJ drom[12:23] // Jump `define dromACDISP drom[24] // Dispatch on AC Field `define dromI drom[25] // Immediate dispatch. DISP/AREAD does a DISP/DROM `define dromREAD drom[26] // Start a read at AREAD `define dromTEST 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 dromWRITE drom[30] // Start a write on AREAD @ rtl/cpu/useq/RCS/skip.v,v0000444000175100010010000002603312050366474013653 0ustar RobNonehead 1.8; access; symbols; locks; comment @# @; 1.8 date 2012.11.13.06.48.25; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.12.07.26.57; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.07.07.13.27; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.11.03.05.27.08; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.20.02.14.48; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.01.36.58; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.00.48.52; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.21.01.54; author Rob; state Exp; branches; next ; desc @Skip Logic @ 1.8 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 assemler 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 // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `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'b000_000_000_001 : 12'b000_000_000_000; endmodule @ 1.7 log @*** empty log message *** @ text @d87 1 a87 1 always @@(`cromSKIP_EN_40 or `cromSKIP_SEL or skip40) d125 1 a125 1 always @@(`cromSKIP_EN_20 or `cromSKIP_SEL or skip20) d163 1 a163 1 always @@(`cromSKIP_EN_10 or `cromSKIP_SEL or skip10) @ 1.6 log @*** empty log message *** @ text @d73 13 d87 25 d113 1 a113 1 // Control ROM Skip Address d115 3 a117 3 // Details: // A skip always advances the microsequencer program counter // from an even address to the next odd address. d119 1 a119 1 // Trace: a120 2 // DPEA/E45 // CRA2/E85 d123 1 a123 1 reg skip; d125 1 a125 1 always @@(`cromSKIP or skip40 or skip20 or skip10) a126 33 skip = 1'b0; // // DPEA/E45 // if (`cromSKIP_EN_40) begin case (`cromSKIP_SEL) 3'b000: skip = 1'b0; 3'b001: skip = skip40[1]; 3'b010: skip = skip40[2]; 3'b011: skip = skip40[3]; 3'b100: skip = skip40[4]; 3'b101: skip = skip40[5]; 3'b110: skip = skip40[6]; 3'b111: skip = skip40[7]; endcase end // // DPEA/E38 // d128 37 a164 25 begin case (`cromSKIP_SEL) 3'b000: skip = 1'b0; 3'b001: skip = skip20[1]; 3'b010: skip = skip20[2]; 3'b011: skip = skip20[3]; 3'b100: skip = skip20[4]; 3'b101: skip = skip20[5]; 3'b110: skip = skip20[6]; 3'b111: skip = skip20[7]; endcase end // // CRA2/E85 // d166 20 a185 20 begin case (`cromSKIP_SEL) 3'b000: skip = 1'b0; 3'b001: skip = skip10[1]; 3'b010: skip = skip10[2]; 3'b011: skip = skip10[3]; 3'b100: skip = skip10[4]; 3'b101: skip = skip10[5]; 3'b110: skip = skip10[6]; 3'b111: skip = skip10[7]; endcase end d198 3 a200 2 assign skipADDR = (skip) ? 12'b000_000_000_001 : 12'b000_000_000_000; @ 1.5 log @*** empty log message *** @ text @d68 1 a71 1 input [0:cromWidth-1] crom; // Control ROM Data d77 9 d172 11 @ 1.4 log @*** empty log message *** @ text @d34 1 a34 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.3 log @*** empty log message *** @ text @d68 3 a70 3 input [0:7] skip40; // Skip 40 bits input [0:7] skip20; // Skip 20 bits input [0:7] skip10; // Skip 10 bits d93 1 a93 1 skip = skip40[0]; d119 1 a119 1 skip = skip20[0]; d145 1 a145 1 skip = skip10[0]; @ 1.2 log @*** empty log message *** @ text @d9 2 d12 13 a24 1 //! \todo d61 2 a62 1 `include "microcontroller.vh" d64 1 a64 1 module SKIP(crom, skip_40, skip_20, skip_10, skip_addr); d68 3 a70 3 input [0:7] skip_40; input [0:7] skip_20; input [0:7] skip_10; d72 1 a72 1 output [0:11] skip_addr; // Skip Address d75 1 a75 1 // Skip Mux d78 3 a80 2 reg sk; always @@(`cromSKIP or skip_40 or skip_20 or skip_10) d83 1 a83 1 sk = 1'b0; d93 1 a93 1 sk = skip_40[0]; d95 1 a95 1 sk = skip_40[1]; d97 1 a97 1 sk = skip_40[2]; d99 1 a99 1 sk = skip_40[3]; d101 1 a101 1 sk = skip_40[4]; d103 1 a103 1 sk = skip_40[5]; d105 1 a105 1 sk = skip_40[6]; d107 1 a107 1 sk = skip_40[7]; d119 1 a119 1 sk = skip_20[0]; d121 1 a121 1 sk = skip_20[1]; d123 1 a123 1 sk = skip_20[2]; d125 1 a125 1 sk = skip_20[3]; d127 1 a127 1 sk = skip_20[4]; d129 1 a129 1 sk = skip_20[5]; d131 1 a131 1 sk = skip_20[6]; d133 1 a133 1 sk = skip_20[7]; d145 1 a145 1 sk = skip_10[0]; d147 1 a147 1 sk = skip_10[1]; d149 1 a149 1 sk = skip_10[2]; d151 1 a151 1 sk = skip_10[3]; d153 1 a153 1 sk = skip_10[4]; d155 1 a155 1 sk = skip_10[5]; d157 1 a157 1 sk = skip_10[6]; d159 1 a159 1 sk = skip_10[7]; d164 1 a164 1 assign skip_addr = (sk) ? 12'b000_000_000_001 : 12'b000_000_000_000; @ 1.1 log @Initial revision @ text @d64 1 a64 1 always @@(`cromSKIP) @ rtl/cpu/useq/RCS/ks10_its.mcr,v0000444000175100010010000260035212050544144014652 0ustar RobNonehead 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.11.13.22.23.24; author Rob; state Exp; branches; next ; desc @KS10 ITS Microcode @ 1.1 log @Initial revision @ text @; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 1 ; TABLE OF CONTENTS ; 3 MICROCODE CONDITIONAL ASSEMBLY PARAMETERS FOR ITS ; 34 MIT REVISION HISTORY ; 114 DEC REVISION HISTORY ; 246 HOW TO READ THE MICROCODE ; 455 CONDITIONAL ASSEMBLY DEFINITIONS ; 505 2901 REGISTER USAGE ; 542 MICROCODE FIELDS -- LISTING FORMAT ; 591 MICROCODE FIELDS -- DATAPATH CHIP ; 746 MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS ; 781 MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL ; 805 MICROCODE FIELDS -- SPEC ; 910 MICROCODE FIELDS -- DISPATCH ; 955 MICROCODE FIELDS -- SKIP ; 1007 MICROCODE FIELDS -- TIME CONTROL ; 1028 MICROCODE FIELDS -- RANDOM CONTROL BITS ; 1051 MICROCODE FIELDS -- NUMBER FIELD ; 1410 SUBFIELD DEFINITIONS FOR .RAMFILE ; 1425 DISPATCH ROM DEFINITIONS ; 1472 HOW TO READ MACROS ; 1634 MACROS -- DATA PATH CHIP -- GENERAL ; 1788 MACROS -- DATA PATH CHIP -- Q ; 1824 MACROS -- DATA PATH CHIP -- MISC. ; 1846 MACROS -- STORE IN AC ; 1880 MACROS -- MICROCODE WORK SPACE ; 1909 MACROS -- MEMORY CONTROL ; 1960 MACROS -- VMA ; 1978 MACROS -- TIME CONTROL ; 1992 MACROS -- SCAD, SC, FE LOGIC ; 2077 MACROS -- DATA PATH FIELD CONTROL ; 2094 MACROS -- SHIFT PATH CONTROL ; 2108 MACROS -- SPECIAL FUNCTIONS ; 2140 MACROS -- PC FLAGS ; 2171 MACROS -- PAGE FAIL FLAGS ; 2180 MACROS -- SINGLE SKIPS ; 2206 MACROS -- SPECIAL DISPATCH MACROS ; 2242 DISPATCH ROM MACROS ; 2287 POWER UP SEQUENCE ; 2378 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2523 ONE-PROCEED TRAP ; 2538 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2652 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2738 MOVE GROUP ; 2776 EXCH ; 2792 HALFWORD GROUP ; 2962 DMOVE, DMOVN, DMOVEM, DMOVNM ; 2994 BOOLEAN GROUP ; 3152 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 3253 ROTATES AND LOGICAL SHIFTS -- LSHC ; 3289 ROTATES AND LOGICAL SHIFTS -- ASHC ; 3329 ROTATES AND LOGICAL SHIFTS -- ROTC ; 3362 CIRC ; 3393 TEST GROUP ; 3548 COMPARE -- CAI, CAM ; 3618 ARITHMETIC SKIPS -- AOS, SOS, SKIP ; 3669 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3762 AC DECODE JUMPS -- JRST, JFCL ; 3875 EXTENDED ADDRESSING INSTRUCTIONS ; 3917 XCT, XCTR, XCTRI ; 3962 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 4061 STACK INSTRUCTIONS -- ADJSP ; 4095 SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA ; 4150 ILLEGAL INSTRUCTIONS AND UUO'S ; 4358 ARITHMETIC -- ADD, SUB ; 4388 ARITHMETIC -- DADD, DSUB ; 4422 ARITHMETIC -- MUL, IMUL ; 4474 ARITHMETIC -- DMUL ; 4618 ARITHMETIC -- DIV, IDIV ; 4697 ARITHMETIC -- DDIV ; 4820 ARITHMETIC -- DIVIDE SUBROUTINE ; 4886 ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE ; 4927 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4974 BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB ; 5053 BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE ; 5067 BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR ; 5102 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 5156 BYTE GROUP -- DEPOSIT BYTE IN MEMORY ; 5246 BYTE GROUP -- ADJUST BYTE POINTER ; 5409 BLT ; 5527 UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT ; 5599 FLOATING POINT -- FAD, FSB ; 5645 FLAOTING POINT -- FMP ; 5675 FLOATING POINT -- FDV ; 5726 FLOATING POINT -- FLTR, FSC ; 5762 FLOATING POINT -- FIX AND FIXR ; 5800 FLOATING POINT -- SINGLE PRECISION NORMALIZE ; 5866 FLOATING POINT -- ROUND ANSWER ; 5878 FLOATING POINT -- DFAD, DFSB ; 5968 FLOATING POINT -- DFMP ; 6030 FLOATING POINT -- DFDV ; 6085 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 6197 EXTEND -- DISPATCH ROM ENTRIES ; 6251 EXTEND -- INSTRUCTION SET DECODING ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 2 ; TABLE OF CONTENTS ; 6294 EXTEND -- MOVE STRING -- SETUP ; 6340 EXTEND -- MOVE STRING -- OFFSET/TRANSLATE ; 6372 EXTEND -- MOVE STRING -- MOVSRJ ; 6421 EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP ; 6446 EXTEND -- COMPARE STRING ; 6508 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6641 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6800 EXTEND -- EDIT -- MAIN LOOP ; 6855 EXTEND -- EDIT -- DECODE OPERATE GROUP ; 6875 EXTEND -- EDIT -- STOP EDIT ; 6891 EXTEND -- EDIT -- START SIGNIFICANCE ; 6899 EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION ; 6911 EXTEND -- EDIT -- PROCESS SOURCE BYTE ; 6975 EXTEND -- EDIT -- MESSAGE BYTE ; 6999 EXTEND -- EDIT -- SKIP ; 7014 EXTEND -- EDIT -- ADVANCE PATTERN POINTER ; 7048 EXTEND SUBROUTINES -- FILL OUT DESTINATION ; 7073 EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE ; 7111 EXTEND SUBROUTINES -- TRANSLATE ; 7198 EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE ; 7228 EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING ; 7250 EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS ; 7295 EXTEND -- PAGE FAIL CLEANUP ; 7337 TRAPS ; 7367 IO -- INTERNAL DEVICES ; 7486 IO -- INTERNAL DEVICES -- EBR & UBR ; 7619 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7740 IO -- INTERNAL DEVICES -- TIMER CONTROL ; 7790 IO -- INTERNAL DEVICES -- WRTIME & RDTIME ; 7830 IO -- INTERNAL DEVICES -- WRINT & RDINT ; 7845 IO -- INTERNAL DEVICES -- RDPI & WRPI ; 7888 IO -- INTERNAL DEVICES -- SUBROUTINES ; 8059 PRIORITY INTERRUPTS -- DISMISS SUBROUTINE ; 8075 ITS IO INSTRUCTIONS ; 8168 EXTERNAL IO INSTRUCTIONS ; 8365 SMALL SUBROUTINES ; 8392 UNDEFINED IO INSTRUCTIONS ; 8470 UMOVE AND UMOVEM ; 8526 WRITE HALT STATUS BLOCK ; 8622 ITS PAGE REFILL CODE ; 9057 PAGE FAIL REFIL LOGIC ; CROSS REFERENCE INDEX ; DCODE LOCATION / LINE # INDEX ; UCODE LOCATION / LINE # INDEX ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 3 ; DSK: KSHACK; ITS 15 15:29:13 12-JUNE-86 MICROCODE CONDITIONAL ASSEMBLY PARAMETERS FOR ITS ; 1 ;;;-*-Fundamental-*- ; 2 ; 3 .TOC "MICROCODE CONDITIONAL ASSEMBLY PARAMETERS FOR ITS" ; 4 ; 5 .SET/CIRC=1 ;Enable CIRC instruction. ; 6 ; 7 .SET/ITS=1 ;ITS style microcode. ; 8 ; 9 .SET/JPC=0 ;No JPC initially. ; 10 ; 11 .SET/1PROC=1 ;One-Proceed feature. ; 12 ; 13 .SET/PCST=1 ;PC Sample Table ; 14 ; 15 .SET/ITSIO=1 ;ITS I/O instructions. ; 16 ; 17 .SET/TEST=0 ;1 => Testing some new feature. ; 18 ; 19 MICROCODE VERSION/=<99:107> ; 20 UCV=262. ; 21 ; 22 HARDWARE OPTIONS/=<90:92> ; 23 HWOPT=0 ; 24 ; 25 HARDWARE SERIAL NUMBER/=<93:107> ; 26 HWSER=1729. ; 27 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 4 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE CONDITIONAL ASSEMBLY PARAMETERS FOR ITS ; 28 ;;;-*-Fundamental-*- ; 29 ; 30 .NOBIN ; 31 .TITLE "KS10 MICROCODE FOR ITS" ; 32 ;FROM KS10 MICROCODE V117, 12 JANUARY 1979 -- DON LEWINE ; 33 ; 34 .TOC "MIT REVISION HISTORY" ; 35 ; 36 ;;; 1/16/87 Merge in DEC versions 120-130 inclusive (see comments below) ; 37 ;;; Change floating-point code to keep its hands off flag bits ; 38 ;;; other than FLG.SN, so it doesn't interfere with one-proceed. ; 39 ;;; 8/1/86 262. Try T/4T at XCTGO, see if one-proc in ACs works. ; 40 ;;; Afraid not, foo. Took T/4T back out. ; 41 ;;; +++ microcode 261 released +++ ; 42 ;;; 6/8/86 Still 261. Fix XCTR BLT bug, addresses same, spaces different. ; 43 ;;; 5/86 261. One-proceed more or less works, fix page age bug. ; 44 ;;; 5/28/85 Version 261. Started on one-proceed feature. ; 45 ;;; 5/4/85 Version 260. Added ITS I/O instructions. ; 46 ;;; 11/24/84 Flushed PCLSRing hack. More trouble than it was worth. ; 47 ;;; Also moved main program level page fail words back to the ; 48 ;;; EPT. ; 49 ;;; 11/21/84 Fixed last bug in PCLSRing hack: The PC stored in the MUUO ; 50 ;;; old PC location needed to be incremented. ; 51 ;;; 11/20/84 OK, I gave in and made the PCLSRing hack obtain the new PC ; 52 ;;; from a new location as well. ; 53 ;;; 11/19/84 Fixed PCLSRing hack to also store context word. Fixed ; 54 ;;; RDUBR and WRUBR to deal in addresses rather than in page ; 55 ;;; numbers. ; 56 ;;; 11/16/84 Added special PCLSRing hack to page fail trapping. When ; 57 ;;; page fault occurs in user mode, a duplicate copy of the old ; 58 ;;; PC is stashed in the MUUO old PC location. ; 59 ;;; 11/2/84 Fixed quantum counter to count in same units as other ; 60 ;;; timers. Time spent at PI level is only approximately ; 61 ;;; accounted for. ; 62 ;;; 10/25/84 Added quantum counter. Moved main program level page ; 63 ;;; fail words back to UPT. Moved all page fail words down ; 64 ;;; to 440 to compact UPT and EPT. ; 65 ;;; 10/18/84 Fixed interval timer to keep more accurate time on the ; 66 ;;; average. ; 67 ;;; 10/17/84 Finishing touches on ITS paging. ; 68 ;;; 9/29/84 CIRC instruction. Version 259. ; 69 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 5 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MIT REVISION HISTORY ; 70 ; 71 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 72 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 74 ;;; ;;; ; 75 ;;; ;;; ; 76 ;;; COPYRIGHT (C) 1976, 1977, 1978, 1979, DIGITAL ;;; ; 77 ;;; EQUIPMENT CORP., MAYNARD, MASS. ;;; ; 78 ;;; ;;; ; 79 ;;; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ;;; ; 80 ;;; ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ;;; ; 81 ;;; ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT ;;; ; 82 ;;; NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, ;;; ; 83 ;;; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ;;; ; 84 ;;; ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND ;;; ; 85 ;;; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO ;;; ; 86 ;;; AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES ;;; ; 87 ;;; REMAIN IN DEC. ;;; ; 88 ;;; ;;; ; 89 ;;; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ;;; ; 90 ;;; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS ;;; ; 91 ;;; A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ;;; ; 92 ;;; ;;; ; 93 ;;; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR ;;; ; 94 ;;; RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS ;;; ; 95 ;;; NOT SUPPLIED BY DEC. ;;; ; 96 ;;; ;;; ; 97 ;;; DESIGNED AND WRITTEN BY: ;;; ; 98 ;;; DONALD A. LEWINE ;;; ; 99 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 100 ;;; MARLBORO, MASS. ;;; ; 101 ;;; MR1-2/E47 X6430 ;;; ; 102 ;;; ;;; ; 103 ;;; MAINTAINED BY: ;;; ; 104 ;;; DONALD A. LEWINE ;;; ; 105 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 106 ;;; MARLBORO, MASS. ;;; ; 107 ;;; MR1-2/E47 X6430 ;;; ; 108 ;;; ;;; ; 109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 110 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 111 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 112 ; 113 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 6 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 DEC REVISION HISTORY ; 114 .TOC "DEC REVISION HISTORY" ; 115 ; 116 ;REV WHY ; 117 ;1 START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510 ; 118 ;2 UPDATE TO KS10 VERSION 512 ; 119 ;3 FIX SOME DEFAULTS ; 120 ;4 CHANGE HARDWARE TO MATCH ECO #215 ; 121 ;5 START TO UPDATE IO MICROCODE ; 122 ;6 MORE WORK ON IO ; 123 ;7 MAKE INTERRUPT THE 8080 BE A PULSE. ; 124 ;10 ADD NEW RDIO AND WRIO ; 125 ;11 FIX PROBLEMS IN MUUO CODE & CORRECT T-FIELDS ; 126 ;12 FIX PROBLEMS IN DDIV ; 127 ;13 FIX UP PROBLEMS IN PI ; 128 ;14 TURN ON WRITE FOR FL-EXIT ; 129 ;15 FIX UP MAP INSTRUCTION ; 130 ;16 MORE WORK ON KI-STYLE MAP ; 131 ;17 INVERT HOLD RIGHT AND HOLD LEFT BITS ; 132 ;20 FIXUP WRIO & RDIO EFFECTIVE ADDRESS CALC. ; 133 ;21 FIX EDIT 15 ; 134 ;22 HAVE LSH USE FAST SHIFT HARDWARE ; 135 ;23 FIX T-FIELD VALUES FOR PRODUCTION HARDWARE ; 136 ;24 REMOVE WRITE TEST FROM IO READS & WRITES ; 137 ;25 REWRITE MUL & MULI TO BE FASTER AND SMALLER. ALSO MAKE ADJBP ; 138 ; USE NEW MULSUB ; 139 ;26 MAKE BYTES USE FAST SHIFT ECO. ; 140 ;27 MAKE SURE VMA FETCH IS CORRECT ; 141 ;30 MORE OF 25 (FORGOT FMP) ; 142 ;31 FIX SOME PROBLEMS WITH TRAPS ; 143 ;32 SPEED UP EFFECTIVE ADDRESS CALCULATION ; 144 ;33 MORE OF 32 ; 145 ;34 SPEED UP ASH & ROT ; 146 ;35 FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS ; 147 ;36 MORE OF 35 ; 148 ;37 FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F.P. ; 149 ;40 IMPROVE LISTING FORMAT ; 150 ;41 SPEEDUP KL-MODE PAGE REFILL ; 151 ;42 FIX UP DDIV ; 152 ;43 STILL MORE DDIV STUFF ; 153 ;44 CORRECT PROBLEMS IN D.P. PARITY STUFF ; 154 ;45 CORRECT THE BLT CLEAR-CORE CASE TO INTERRUPT CORRECTLY ; 155 ;46 MORE OF 45 ; 156 ;47 DO NOT ALLOW SOFTWARE INTERRUPTS IF THE PI LEVEL IS NOT ; 157 ; ACTIVE. ; 158 ;50 MAKE FDV WORK THE SAME AS THE KL10 ; 159 ;51 FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC. ; 160 ;52 FIX BUG IN HALT LOOP ; 161 ;53 FIX IOEA TO WORK IF NO @@ OR INDEXING ; 162 ;54 EDIT 47 BROKE JEN ; 163 ;55 FIX FLAGS IN MULTIPLY. ALSO CODE BUMS ; 164 ;56 MORE CODE BUMS ; 165 ;57 CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE ; 166 ; THE TRAP FLAGS. ; 167 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 7 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 DEC REVISION HISTORY ; 168 ; 169 ;60 CORRECT TRAPS SO THAT DSKEA RUNS RIGHT ; 170 ;61 MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!! ; 171 ;62 ONE MORE TRY AT EDIT 60. ; 172 ;63 CORRECT TOPS-10 STYLE PAGING SO THAT A WRITE VIOLATION SETS ; 173 ; BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED). ; 174 ;64 EDIT 63 BROKE HARD PAGE FAILS. (NXM, BAD DATA, AND IO NXM) ; 175 ;65 INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS. ; 176 ;66 IO NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK. ; 177 ;67 ON A BAD DATA ERROR, STORE THE BAD WORD IN AC BLOCK 7 WORD 0 AND ; 178 ; 1 ; 179 ;70 FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD ; 180 ; ANSWER. ; 181 ;71 CLEANUP SOME THINGS TO MAKE LIFE EASIER FOR FIELD SERVICE ; 182 ;72 LOOK FOR 1-MS TRAP ON @@ PAGE POINTERS AND ABORT REFILL IF ; 183 ; SET. ; 184 ;73 CORRECT EDIT 72. ; 185 ;74 EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD ; 186 ; DATA. CORRECT TO NOT CHECK PARITY. ; 187 ; ALSO CHANGE POP TO TIE UP BUS LESS. ; 188 ;75 EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:. ; 189 ;76 CORRECT BUG IN DFAD AND DFSB ; 190 ;77 FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED ; 191 ; BY EDIT 76 ; 192 ;100 CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE ; 193 ; KL10 ANSWERS FOR ALL NORMALIZED INPUTS ; 194 ; ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC. ; 195 ;101 DFDV OF 0.0 / -0.5 HANGS THE MACHINE ; 196 ;102 FIX CHOPPED FLOATING POINT INSTRUCTIONS ; 197 ;103 CORRECT DFDV ROUNDING BUG. ; 198 ;104 CORRECT PROBLEMS IN DFMP ; 199 ;105 RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN ; 200 ; WORDS GETS LOST SOMETIME. ; 201 ;106 MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE ; 202 ; A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULD. ; 203 ;107 PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS ; 204 ; CONTEXT ALL THE TIME. ; 205 ;110 FIX TYPO IN EDIT 103 ; 206 ;111 63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS ; 207 ; PROBLEM. ; 208 ;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 ******* ; 209 ; 210 ;112 FIX COMMENT IN TEST INSTRUCTIONS ; 211 ;113 CORRECT IOEA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING ; 212 ; IS USED. ; 213 ;114 CORRECT INTERRUPT BUG IN DMUL ; 214 ;115 CORRECT COMMENTS HALT STATUS BLOCK ; 215 ;116 CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE. ; 216 ;117 RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM TRASH ; 217 ; IN THE WRONG PLACE. NEED TO LOAD BR NOT AR. ; 218 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 8 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 DEC REVISION HISTORY ; 219 ; 220 ;DEC changes after MIT version 261, merged in where relevant ; 221 ; 222 ;120 FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH ; 223 ; INPUTS OF UNNORMALIZED ZEROS. THIS SHOULD NEVER HAPPEN WITH ; 224 ; FORTRAN OR ANY OTHER DEC LANGUAGE. ; 225 ;121 PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ ; 226 ; INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING ; 227 ; HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE ; 228 ; PASSAGE OF TIME. ; 229 ;122 DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO GET WRONG ; 230 ; ANSWER. HAD TO CLEAR FLAG WORD AT EXIT OF DFAD TO FIX PROBLEM ; 231 ;123 MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH ADDRESS FOR ; 232 ; PAGE FAIL CODE AT PFD:. ; 233 ;124 ADD ASSEMBLY OPTIONS FOR NOCST AND INHIBIT CST UPDATE. (not in MIT ucode) ; 234 ; ADD BLTUB/BLTBU TO GET UBA STYLE BYTES SWAPPED TO/FROM ILDB FORM. ; 235 ; ADD ASSEMBLY OPTIONS FOR KI/KL PAGE. NEED THE SPACE FOR BLTUB/BU. (not in MIT ucode) ; 236 ;125 SUPPORT THE "MAJOR/MINOR VERSION IN 136" UCODE STANDARD. (not in MIT ucode) ; 237 ; FIX BAD CONSTRAINT FOR INHCST ASSEMBLIES (NOT CURRENTLY USED) (not in MIT ucode) ; 238 ;126 FIX NON-TRIVIAL CASES OF RDUBR,WRUBR, AND PROCESS CONTEXT WORD. (not in MIT ucode) ; 239 ;127 JSR IN A TRAP CYCLE STORES E+1 SOMETIMES. TRAP CYCLE WAS NOT BEING ; 240 ; CLEARED (BY NICOND) BEFORE STARTING THE NEXT MEMORY READ. ; 241 ;130 FIX UCODE HANG WITH STOPPPED CLOCKS ON WR (KL-PAGING REGISTER) IF (not in MIT ucode) ; 242 ; PAGING IS ON. IDEALLY, WE WOULD REMOVE WRITE TEST FROM THE DROM ; 243 ; FIELD, BUT IT'S TOO LATE TO ECO THE ROMS. ; 244 ; RESTRICTION: WRITE KLPAGE REGISTER LOCATION MUST BE WRITABLE. ; 245 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 9 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ THE MICROCODE ; 246 .TOC "HOW TO READ THE MICROCODE" ; 247 ; 248 ; ; 249 ; ; 250 ; 1.0 FIELD DEFINITIONS ; 251 ; ; 252 ; THESE OCCUR AT THE BEGINNING OF THE LISTING, IN THE SOURCE FILE KS10.MIC ; 253 ; (CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM: ; 254 ; ; 255 ; SYMBOL/=M,J ; 256 ; ; 257 ; THE PARAMETER (J) IS MEANINGFUL WHEN "D" IS SPECIFIED AS THE DEFAULT MECHANISM, ; 258 ; AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS ; 259 ; SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS ; 260 ; THE DEFAULT VALUE FOR THIS FIELD. ; 261 ; ; 262 ; THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST BIT IN THE FIELD. THE ; 263 ; SAME METHOD IS USED AS FOR (R) BELOW. ; 264 ; ; 265 ; THE PARAMETER (R) GIVES THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE ; 266 ; RIGHTMOST BIT OF THE FIELD. BITS ARE NUMBERED FROM 0 ON THE LEFT. NOTE THAT ; 267 ; THE POSITION OF BITS IN THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO ; 268 ; THE ORDERING OF BITS IN THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP ; 269 ; AND SCATTERED. ; 270 ; ; 271 ; THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD. ; 272 ; THE LEGAL VALUES OF THIS PARAMETER ARE THE CHARACTERS "D", "F", "T", "P", OR ; 273 ; "+". ; 274 ; ; 275 ; "D" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE IS ; 276 ; SPECIFIED. ; 277 ; ; 278 ; "F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER FIELD. ; 279 ; ; 280 ; "T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE OF THE FIELD ; 281 ; DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS. "T" IS NOT ; 282 ; USED IN THE KS10. ; 283 ; ; 284 ; "P" IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF THE FIELD ; 285 ; SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS ODD. "P" IS NOT ; 286 ; USED ON THE KS10. ; 287 ; ; 288 ; "+" IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP ; 289 ; ADDRESS IS THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN ; 290 ; GENERAL, THE CURRENT LOCATION +1). ; 291 ; ; 292 ; IN GENERAL, A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE SELECT INPUTS ; 293 ; FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S. ; 294 ; ; 295 ; ; 296 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 10 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ THE MICROCODE ; 297 ; 298 ; 2.0 VALUE DEFINITIONS ; 299 ; ; 300 ; FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND ; 301 ; TO VALUES OF THE FIELD. THE FORM IS: ; 302 ; ; 303 ; SYMBOL=N ; 304 ; ; 305 ; "N" IS, IN OCTAL, THE VALUE OF SYMBOL WHEN USED IN THE FIELD. ; 306 ; ; 307 ; ; 308 ; ; 309 ; 3.0 LABEL DEFINITIONS ; 310 ; ; 311 ; A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE ; 312 ; MICROINSTRUCTION DEFINITION. THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE ; 313 ; VALUE OF THE SYMBOL IN THE FIELD NAMED "J". EXAMPLE: ; 314 ; ; 315 ; FOO: J/FOO ; 316 ; ; 317 ; THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE ; 318 ; "FOO". IT ALSO DEFINES THE SYMBOL "FOO" TO BE THE ADDRESS OF ITSELF. ; 319 ; THEREFORE, IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF. ; 320 ; ; 321 ; ; 322 ; ; 323 ; 4.0 COMMENTS ; 324 ; ; 325 ; A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY THE ; 326 ; ASSEMBLER. THIS TEXT IS AN EXAMPLE OF COMMENTS. ; 327 ; ; 328 ; ; 329 ; ; 330 ; 5.0 MICROINSTRUCTION DEFINITION ; 331 ; ; 332 ; A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, FOLLOWED BY SLASH ; 333 ; (/), FOLLOWED BY A VALUE. THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN ; 334 ; OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT ; 335 ; CONTAINS "8" AND/OR "9" AND/OR IS TERMINATED BY A PERIOD). SEVERAL FIELDS MAY ; 336 ; BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS ; 337 ; WITH COMMAS. EXAMPLE: ; 338 ; ; 339 ; AD/ZERO,RAMADR/AC*#,ACALU/AC+N,ACN/1,DBUS/DP ; 340 ; ; 341 ; ; 342 ; 6.0 CONTINUATION ; 343 ; ; 344 ; THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY ; 345 ; BREAKING IT AFTER ANY COMMA. IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT ; 346 ; CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON ; 347 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 11 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ THE MICROCODE ; 348 ; 349 ; THE FOLLOWING LINE. EXAMPLE: ; 350 ; READ [AR], ;LOOK AT EFFECTIVE ADDRESS ; 351 ; SKIP DP18, ;SEE IF RIGHT OR LEFT SHIFT ; 352 ; SC_SHIFT-1, ;PUT NUMBER OF PLACE TO ; 353 ; ;SHIFT IN SC ; 354 ; LOAD FE, ; AND IN FE ; 355 ; INST DISP ;GO DO THE SHIFT ; 356 ; ; 357 ; ; 358 ; ; 359 ; 7.0 MACROS ; 360 ; ; 361 ; A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR ; 362 ; MACROS. A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A ; 363 ; QUOTED STRING WHICH IS THE VALUE OF THE MACRO. EXAMPLE: ; 364 ; ; 365 ; LOAD VMA "MEM/1, LDVMA/1 ; 366 ; ; 367 ; THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO THE ; 368 ; APPEARANCE OF ITS VALUE. ; 369 ; ; 370 ; MACRO MAY HAVE PARAMETERS ENCLOSED IN []. FOR EXAMPLE, ; 371 ; ; 372 ; []_[] "AD/A,A/@@2,DEST/AD,B/@@1" ; 373 ; ; 374 ; THE @@1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET OF [] AND @@2 IS ; 375 ; REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF []. THUS ; 376 ; ; 377 ; [AR]_[ARX] ; 378 ; ; 379 ; HAS THE SAME EFFECT AS SAYING ; 380 ; ; 381 ; AD/A,A/ARX,DEST/AD,B/AR ; 382 ; ; 383 ; ; 384 ; SEE DESCRIPTION OF RULES FOR MACRO NAMES. ; 385 ; ; 386 ; 8.0 PSEUDO OPS ; 387 ; ; 388 ; THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS: ; 389 ; ; 390 ; .DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE ; 391 ; LOADED, AND THEREFORE THE FIELD DEFINITIONS AND MACROS WHICH ARE ; 392 ; MEANINGFUL IN SUBSEQUENT MICROCODE ; 393 ; .TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND ; 394 ; .TOC DEFINES AN ENTRY FOR THE TABLE OF CONTENTS AT THE BEGINNING. ; 395 ; .SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER, ; 396 ; .CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER, ; 397 ; .DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER. ; 398 ; .IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO, ; 399 ; .IFNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO, AND ; 400 ; .ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED. ; 401 ; .NOBIN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT, ; 402 ; .BIN TURN BINARY BACK ON AGAIN. ; 403 ; .WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM ; 404 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 12 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ THE MICROCODE ; 405 ; 406 ; 9.0 LOCATION CONTROL ; 407 ; ; 408 ; A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS. ; 409 ; ; 410 ; THE CHARACTER "=" AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF 0'S, 1'S, ; 411 ; AND/OR *'S, SPECIFIES A CONSTRAINT ON THE ADDRESS OF FOLLOWING ; 412 ; MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING ; 413 ; THE "=") IS THE NUMBER OF LOW-ORDER BITS CONSTRAINED IN THE ADDRESS. THE ; 414 ; MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS 0 BITS IN ; 415 ; THE POSITIONS CORRESPONDING TO 0'S IN THE CONSTRAINT STRING AND 1 BITS WHERE THE ; 416 ; CONSTRAINT HAS 1'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS. ; 417 ; ; 418 ; IF THERE ARE ANY 0'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF ; 419 ; <2**N> MICROWORDS, WHERE N IS THE NUMBER OF 0'S IN THE STRING. ALL LOCATIONS IN ; 420 ; THE BLOCK WILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING, ; 421 ; AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK. ; 422 ; ; 423 ; IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE ; 424 ; "0" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING ; 425 ; WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK. WITHIN A ; 426 ; BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS ; 427 ; PROGRESSION, IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS. THE ; 428 ; MICROASSEMBLER WILL LATER FILL THEM IN. ; 429 ; ; 430 ; A NULL CONSTRAINT STRING ("=" FOLLOWED BY ANYTHING BUT "0", "1", OR "*") SERVES ; 431 ; TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES: ; 432 ; ; 433 ; =0 ; 434 ; ; 435 ; THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO-- THE MICROASSEMBLER ; 436 ; FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS ; 437 ; INTO THEM. ; 438 ; ; 439 ; =11 ; 440 ; THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES. ; 441 ; SINCE THERE ARE NO 0'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION ; 442 ; MEETING THE CONSTRAINT. ; 443 ; ; 444 ; =0***** ; 445 ; ; 446 ; THIS SPECIFIES AN ADDRESS IN WHICH THE "40" BIT IS ZERO. DUE TO THE ; 447 ; IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE DEFAULT ADDRESS PROGRESSION ; 448 ; APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH ; 449 ; THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A ; 450 ; ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS. HOWEVER ; 451 ; NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT ; 452 ; MENTIONED ABOVE. ; 453 ; 454 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 13 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 CONDITIONAL ASSEMBLY DEFINITIONS ; 455 .TOC "CONDITIONAL ASSEMBLY DEFINITIONS" ; 456 ; 457 .DEFAULT/SIM=0 ;0=RUN ON REAL HARDWARE ; 458 ;1=RUN UNDER SIMULATOR ; 459 ; 460 .DEFAULT/FULL=1 ;0=INCLUDE ONLY BASIC INSTRUCTIONS ; 461 ;1=INCLUDE FULL INSTRUCTION SET ; 462 ; 463 .DEFAULT/CIRC=0 ;1=Assemble the CIRC instruction. ; 464 ; 465 .DEFAULT/ITS=0 ;0=DEC style microcode. ; 466 ;1=ITS style microcode. ; 467 ; 468 .DEFAULT/JPC=0 ;1=Assemble JPC feature. ; 469 ; 470 .DEFAULT/1PROC=0 ;1=Assemble one-proceed feature. ; 471 ; 472 .DEFAULT/PCST=0 ;1=Assemble PC sampling feature. ; 473 ; 474 .DEFAULT/ITSIO=0 ;1=Assemble ITS I/O instructions. ; 475 ; 476 .DEFAULT/TEST=0 ;1=Assemble some temporary experimental feature. ; 477 ; 478 .WIDTH/108 ;ONLY FIELDS BETWEEN BITS 0 AND 107 EVER ; 479 ; GET LOADED INTO THE CRAM. OTHER FIELDS ; 480 ; ARE USED FOR DEFAULTING PROCESS. ; 481 ; 482 ;THIS IS USELESS AND BRAIN DAMAGED ; 483 ;STUFF IS KEPT OUT OF DROM SPACE BY MORE GENERAL MECHANISMS ; 484 ;.REGION/0,1377/2000,3777/1400,1777 ; 485 ; ;TRY AND KEEP STUFF OUT OF DROM SPACE ; 486 ; 487 ;WRITE A RAM FILE WITH THE FIELDS REARRANGED SO THE 8080 CAN HACK THEM ; 488 ;The RAM file format appears to be: ; 489 ; ; 490 ;4000 sequential CRAM locations starting at 0. ; 491 ;Each location is 96 bits expressed as 8 12-bit bytes and one ; 492 ;padding byte packed into three words. Bytes are in right to ; 493 ;left order within 36-bit words, and also within the 96-bit ; 494 ;words. Thus RAM SRC through MARK are in the right 12 bits of ; 495 ;the first 36-bit word and J is in the middle 12 bits of the ; 496 ;third 36-bit word. Parity is even parity, computed separately ; 497 ;for the two halves of the word packaged on different boards. ; 498 ; ; 499 ;.RAMFILE takes the fields in left-to-right (pdp10) order, ; 500 ;thus the 8080's eight 12-bit bytes are given in order 2,1,0,5,4,3,pad,7,6 ; 501 ;One parity bit is for 0-4, the other is for 5-7. ; 502 ; 503 .RAMFILE/ AD,RSRC,DBM,DBUS,A,CLKL,CLKR,B, ;WORDS 2-1 RAMADR,DEST,LOADSC,LOADFE,CHKL,CHKR, OD ; 504 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 14 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 2901 REGISTER USAGE ; 505 .TOC "2901 REGISTER USAGE" ; 506 ; 507 ; !=========================================================================! ; 508 ;0: ! MAG (ONES IN BITS 1-36, REST ZERO) ! ; 509 ; !-------------------------------------------------------------------------! ; 510 ;1: ! PC (ADDRESS OF CURRENT INSTRUCTION + 1) ! ; 511 ; !-------------------------------------------------------------------------! ; 512 ;2: ! HR (CURRENT INSTRUCTION) ! ; 513 ; !-------------------------------------------------------------------------! ; 514 ;3: ! AR (TEMP -- MEM OP AT INST START) ! ; 515 ; !-------------------------------------------------------------------------! ; 516 ;4: ! ARX (TEMP -- LOW ORDER HALF OF DOUBLE PREC) ! ; 517 ; !-------------------------------------------------------------------------! ; 518 ;5: ! BR (TEMP) ! ; 519 ; !-------------------------------------------------------------------------! ; 520 ;6: ! BRX (TEMP -- LOW ORDER HALF OF DOUBLE PREC BR!BRX) ! ; 521 ; !-------------------------------------------------------------------------! ; 522 ;7: ! ONE (THE CONSTANT 1) ! ; 523 ; !-------------------------------------------------------------------------! ; 524 ;10: ! EBR (EXEC BASE REGISTER) ! ; 525 ; !-------------------------------------------------------------------------! ; 526 ;11: ! UBR (USER BASE REGISTER) ! ; 527 ; !-------------------------------------------------------------------------! ; 528 ;12: ! MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37) ! ; 529 ; !-------------------------------------------------------------------------! ; 530 ;13: ! FLG (FLAG BITS) ! PAGE FAIL CODE ! ; 531 ; !-------------------------------------------------------------------------! ; 532 ;14: ! PI (PI SYSTEM STATUS REGISTER [RDPI]) ! ; 533 ; !-------------------------------------------------------------------------! ; 534 ;15: ! XWD1 (1 IN EACH HALF WORD) ! ; 535 ; !-------------------------------------------------------------------------! ; 536 ;16: ! T0 (TEMP) ! ; 537 ; !-------------------------------------------------------------------------! ; 538 ;17: ! T1 (TEMP) ! ; 539 ; !=========================================================================! ; 540 ; 541 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 15 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- LISTING FORMAT ; 542 .TOC "MICROCODE FIELDS -- LISTING FORMAT" ; 543 ; 544 ; ; 3633 1561: ; 545 ; ; 3634 SUB: [AR]_AC-[AR], ; 546 ; ; 3635 AD FLAGS, 3T, ; 547 ; U 1561, 1500,2551,0303,0274,4463,7701,4200,0001,0001 ; 3636 EXIT ; 548 ; [--] [--] !!!! [][] !!![-][][-][]! !!! [----] ; 549 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! ! ; 550 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! +---- # (MAGIC NUMBER) ; 551 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! ; 552 ; ! ! !!!! ! ! !!!! ! ! ! ! !!+------------- MULTI PREC, MULTI SHIFT, CALL ; 553 ; ! ! !!!! ! ! !!!! ! ! ! ! !! (4S, 2S, 1S) ; 554 ; ! ! !!!! ! ! !!!! ! ! ! ! !+-------------- FM WRITE, MEM, DIVIDE ; 555 ; ! ! !!!! ! ! !!!! ! ! ! ! ! (4S, 2S, 1S) ; 556 ; ! ! !!!! ! ! !!!! ! ! ! ! +--------------- CRY38, LOAD SC, LOAD FE ; 557 ; ! ! !!!! ! ! !!!! ! ! ! ! (4S, 2S, 1S) ; 558 ; ! ! !!!! ! ! !!!! ! ! ! +----------------- T ; 559 ; ! ! !!!! ! ! !!!! ! ! ! ; 560 ; ! ! !!!! ! ! !!!! ! ! +------------------- SKIP ; 561 ; ! ! !!!! ! ! !!!! ! ! ; 562 ; ! ! !!!! ! ! !!!! ! +---------------------- DISP ; 563 ; ! ! !!!! ! ! !!!! ! ; 564 ; ! ! !!!! ! ! !!!! +------------------------ SPEC ; 565 ; ! ! !!!! ! ! !!!! ; 566 ; ! ! !!!! ! ! !!!+--------------------------- CLOCKS & PARITY ; 567 ; ! ! !!!! ! ! !!! (CLKR, GENR, CHKR, CLKL, GENL, CHKL) ; 568 ; ! ! !!!! ! ! !!+---------------------------- DBM ; 569 ; ! ! !!!! ! ! !! ; 570 ; ! ! !!!! ! ! !+----------------------------- DBUS ; 571 ; ! ! !!!! ! ! ! ; 572 ; ! ! !!!! ! ! +------------------------------ RAM ADDRESS ; 573 ; ! ! !!!! ! ! ; 574 ; ! ! !!!! ! +--------------------------------- B ; 575 ; ! ! !!!! ! ; 576 ; ! ! !!!! +----------------------------------- A ; 577 ; ! ! !!!! ; 578 ; ! ! !!!+------------------------------------- DEST ; 579 ; ! ! !!! ; 580 ; ! ! !!+-------------------------------------- RSRC ; 581 ; ! ! !! ; 582 ; ! ! !+--------------------------------------- LSRC ] ; 583 ; ! ! ! ] - AD ; 584 ; ! ! +---------------------------------------- ALU ] ; 585 ; ! ! ; 586 ; ! +--------------------------------------------- J ; 587 ; ! ; 588 ; LOCATION OF THIS MICRO WORD ; 589 ; 590 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 16 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- DATAPATH CHIP ; 591 .TOC "MICROCODE FIELDS -- DATAPATH CHIP" ; 592 ; 593 J/=<0:11>+ ;CRA1 ; 594 ;NEXT MICROCODE ADDRESS ; 595 ; 596 ;ALU FUNCTIONS ; 597 ; 598 ;NOTE: THE AD FIELD IS A 2 DIGIT FIELD. THE LEFT DIGIT IS THE ; 599 ; 2901 ALU FUNCTION. THE RIGHT DIGIT IS THE 2901 SRC CODE FOR ; 600 ; THE LEFT HALF. NORMALY THE RIGHT HALF SRC CODE IS THE SAME AS ; 601 ; THE LEFT HALF. ; 602 AD/=<12:17>D,44 ;DPE1 & DPE2 ; 603 A+Q=00 ; 604 A+B=01 ; 605 0+Q=02 ; 606 0+B=03 ; 607 0+A=04 ; 608 D+A=05 ; 609 D+Q=06 ; 610 0+D=07 ; 611 Q-A-.25=10 ; 612 B-A-.25=11 ; 613 Q-.25=12 ; 614 B-.25=13 ; 615 A-.25=14 ; 616 A-D-.25=15 ; 617 Q-D-.25=16 ; 618 -D-.25=17 ; 619 A-Q-.25=20 ; 620 A-B-.25=21 ; 621 -Q-.25=22 ; 622 -B-.25=23 ; 623 -A-.25=24 ; 624 D-A-.25=25 ; 625 D-Q-.25=26 ; 626 D-.25=27 ; 627 A.OR.Q=30 ; 628 A.OR.B=31 ; 629 Q=32 ; 630 B=33 ; 631 A=34 ; 632 D.OR.A=35 ; 633 D.OR.Q=36 ; 634 D=37 ; 635 A.AND.Q=40 ; 636 A.AND.B=41 ; 637 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 17 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- DATAPATH CHIP ; 638 ; 639 ;MORE ALU FUNCTIONS ; 640 ; 641 ZERO=42 ; 642 ; ZERO=43 ; 643 ; ZERO=44 ; 644 D.AND.A=45 ; 645 D.AND.Q=46 ; 646 ; ZERO=47 ; 647 .NOT.A.AND.Q=50 ; 648 .NOT.A.AND.B=51 ; 649 ; Q=52 ; 650 ; B=53 ; 651 ; A=54 ; 652 .NOT.D.AND.A=55 ; 653 .NOT.D.AND.Q=56 ; 654 ; ZERO=57 ; 655 A.XOR.Q=60 ; 656 A.XOR.B=61 ; 657 ; Q=62 ; 658 ; B=63 ; 659 ; A=64 ; 660 D.XOR.A=65 ; 661 D.XOR.Q=66 ; 662 ; D=67 ; 663 A.EQV.Q=70 ; 664 A.EQV.B=71 ; 665 .NOT.Q=72 ; 666 .NOT.B=73 ; 667 .NOT.A=74 ; 668 D.EQV.A=75 ; 669 D.EQV.Q=76 ; 670 .NOT.D=77 ; 671 ; 672 ;THIS FIELD IS THE RIGHTMOST 3 BITS OF THE ; 673 ; AD FIELD. IT IS USED ONLY TO DEFAULT THE RSRC ; 674 ; FIELD. ; 675 LSRC/=<15:17> ;DPE1 ; 676 ; 677 ;THIS IS THE SOURCE FOR THE RIGHT HALF OF THE ; 678 ; DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT ; 679 ; HALF WORDS DO SLIGHTLY DIFFERENT THINGS. ; 680 RSRC/=<18:20>F,LSRC ;DPE2 ; 681 AQ=0 ;A Q ; 682 AB=1 ;A B ; 683 0Q=2 ;0 Q ; 684 0B=3 ;0 B ; 685 0A=4 ;0 A ; 686 DA=5 ;D A ; 687 DQ=6 ;D Q ; 688 D0=7 ;D 0 ; 689 ; 690 ;DESTINATION CONTROL ; 691 ;SEE DPE1 AND DPE2 (2'S WEIGHT IS INVERTED ON DPE5) ; 692 DEST/=<21:23>D,3 ;DPE1 & DPE2 ; 693 A=0 ;A REG IS CHIP OUTPUT, AD IS WRITTEN ; 694 ; INTO REG FILE ; 695 AD=1 ;REG FILE GETS AD ; 696 Q_AD=2 ;REG FILE IS NOT LOADED ; 697 PASS=3 ;AD OUTPUT IS CHIP OUTPUT ; 698 ; Q AND REG FILE LEFT ALONE ; 699 Q_Q*2=4 ;ALSO REG FILE GETS AD*2 ; 700 AD*2=5 ;AND Q IS LEFT ALONE ; 701 Q_Q*.5=6 ;ALSO REG FILE GETS AD*.5 ; 702 AD*.5=7 ;AND Q IS LEFT ALONE ; 703 ; 704 ; <24:25> ;UNUSED ; 705 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 18 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- DATAPATH CHIP ; 706 ; 707 A/=<26:29> ;DPE1 & DPE2 ; 708 MAG=0 ; 709 PC=1 ; 710 HR=2 ; 711 AR=3 ; 712 ARX=4 ; 713 BR=5 ; 714 BRX=6 ; 715 ONE=7 ; 716 EBR=10 ; 717 UBR=11 ; 718 MASK=12 ; 719 FLG=13 ; 720 PI=14 ; 721 XWD1=15 ; 722 T0=16 ; 723 T1=17 ; 724 ; 725 ; <30:31> ;UNUSED ; 726 ; 727 B/=<32:35>D,0 ;DPE1 & DPE2 ; 728 MAG=0 ; 729 PC=1 ; 730 HR=2 ; 731 AR=3 ; 732 ARX=4 ; 733 BR=5 ; 734 BRX=6 ; 735 ONE=7 ; 736 EBR=10 ; 737 UBR=11 ; 738 MASK=12 ; 739 FLG=13 ; 740 PI=14 ; 741 XWD1=15 ; 742 T0=16 ; 743 T1=17 ; 744 ; 745 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 19 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS ; 746 .TOC "MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS" ; 747 ; 748 RAMADR/=<36:38>D,4 ;DPE6 ; 749 AC#=0 ;AC NUMBER ; 750 AC*#=1 ;AC .FN. # ; 751 XR#=2 ;INDEX REGISTER ; 752 VMA=4 ;VIRTUAL MEMORY REFERENCE ; 753 RAM=6 ;VMA SUPPLIES 10-BIT RAM ADDRESS ; 754 #=7 ;ABSOLUTE RAM FILE REFERENCE ; 755 ; 756 ; <39:39> ; 757 ; 758 ;LEFT HALF ON DPE3 AND RIGHT HALF ON DPE4 ; 759 DBUS/=<40:41>D,1 ;DPE3 & DPE4 ; 760 PC FLAGS=0 ;PC FLAGS IN LEFT HALF ; 761 PI NEW=0 ;NEW PI LEVEL IN BITS 19-21 ; 762 ; VMA=0 ;VMA IN BITS 27-35 ; 763 DP=1 ;DATA PATH ; 764 RAM=2 ;CACHE, AC'S AND WORKSPACE ; 765 DBM=3 ;DBM MIXER ; 766 ; 767 ;LEFT HALF ON DPM1 AND RIGHT HALF ON DPM2 ; 768 DBM/=<42:44>D,7 ;DPM1 & DPM2 ; 769 SCAD DIAG=0 ;(LH) SCAD DIAGNOSTIC ; 770 PF DISP=0 ;PAGE FAIL DISP IN BITS 18-21 ; 771 APR FLAGS=0 ;APR FLAGS IN BITS 22-35 ; 772 BYTES=1 ;5 COPIES OF SCAD 1-7 ; 773 EXP=2 ;LH=EXPONENT, RH=TIME FRACTION ; 774 DP=3 ;DATA PATH ; 775 DP SWAP=4 ;DATA PATH SWAPPED ; 776 VMA=5 ;VMA FLAGS,,VMA ; 777 MEM=6 ;MEMORY BUFFER ; 778 #=7 ;NUMBER FIELD IN BOTH HALVES ; 779 ; 780 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 20 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL ; 781 .TOC "MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL" ; 782 ; 783 AD PARITY OK/=<108>D,0 ;**NOT STORED IN CRAM** ; 784 ;THIS BIT IS A 1 IF THE ALU IS DOING ; 785 ; SOMETHING WHICH DOES NOT INVALIDATE ; 786 ; PARITY. IT DOES NOT APPEAR IN THE ; 787 ; REAL MACHINE. WE JUST USE IT TO SET ; 788 ; THE DEFAULT FOR GENR & GENL ; 789 ; 790 CLKL/=<45:45>D,1 ;DPE5 ; 791 ;CLOCK THE LEFT HALF OF THE MACHINE ; 792 GENL/=<46:46>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H ; 793 ;STORE PARITY FOR 2901 LEFT ; 794 CHKL/=<47:47> ;DPE4 FROM CRM2 PARITY CHK LEFT H ; 795 ;CHECK LEFT HALF DBUS PARITY ; 796 ; 797 CLKR/=<48:48>D,1 ;DPE5 ; 798 ;CLOCK THE RIGHT HALF OF THE MACHINE ; 799 GENR/=<49:49>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H ; 800 ;STORE PARITY FOR 2901 RIGHT ; 801 CHKR/=<50:50> ;DPE4 FROM CRM2 PARITY CHK RIGHT H ; 802 ;CHECK RIGHT HALF DBUS PARITY ; 803 ; 804 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 21 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- SPEC ; 805 .TOC "MICROCODE FIELDS -- SPEC" ; 806 ; 807 ; 808 ; ; 809 ;THE FOLLOWING SPECIAL FUNCTION ARE DECODED ON DPE1, DPE5, AND DPMA: ; 810 ; !=========================================================================! ; 811 ; !S! EFFECT ! CRA6 SPEC ! CRA6 SPEC ! CRA6 SPEC ! ; 812 ; !P! ON SHIFT ! EN 40 ! EN 20 ! EN 10 ! ; 813 ; !E! PATHS ! E102 ON DPE5 ! E101 ON DPE5 ! E410 ON DPMA ! ; 814 ; !C! (SEE DPE1) ! ! E411 ON DPMA ! E113 ON CRA2 ! ; 815 ; !=========================================================================! ; 816 ; !0! NORMAL ! CRY 18 INH ! PREVIOUS ! # ! ; 817 ; !-------------------------------------------------------------------------! ; 818 ; !1! ZERO ! IR LOAD ! XR LOAD ! CLR 1 MSEC ! ; 819 ; !-------------------------------------------------------------------------! ; 820 ; !2! ONES ! ! ! CLR IO LATCH ! ; 821 ; !-------------------------------------------------------------------------! ; 822 ; !3! ROT ! PI LOAD ! APR FLAGS ! CLR IO BUSY ! ; 823 ; !-------------------------------------------------------------------------! ; 824 ; !4! ASHC ! ASH TEST ! SET SWEEP ! PAGE WRITE ! ; 825 ; !-------------------------------------------------------------------------! ; 826 ; !5! LSHC ! EXP TEST ! APR EN ! NICOND ! ; 827 ; !-------------------------------------------------------------------------! ; 828 ; !6! DIV ! PC FLAGS ! PXCT OFF ! PXCT EN ! ; 829 ; !-------------------------------------------------------------------------! ; 830 ; !7! ROTC ! AC BLOCKS EN ! MEM CLR ! MEM WAIT ! ; 831 ; !=========================================================================! ; 832 ; THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE ; 833 ; DBM MIXER, AS FOLLOWS: ; 834 ; ; 835 ; !=====================================! ; 836 ; ! S ! ! ; 837 ; ! P ! ACTION WHEN DBM ! ; 838 ; ! E ! SELECTS DP ! ; 839 ; ! C ! GET DP BITS ! GET SCAD 1-7 ! ; 840 ; !=====================================! ; 841 ; ! 0 ! ALL ! NONE ! ; 842 ; !-------------------------------------! ; 843 ; ! 1 ! 7-35 ! 0-6 ! ; 844 ; !-------------------------------------! ; 845 ; ! 2 !0-6 AND 14-35 ! 7-13 ! ; 846 ; !-------------------------------------! ; 847 ; ! 3 !0-13 AND 21-35! 14-20 ! ; 848 ; !-------------------------------------! ; 849 ; ! 4 !0-20 AND 28-35! 21-27 ! ; 850 ; !-------------------------------------! ; 851 ; ! 5 ! 0-27 AND 35 ! 28-34 ! ; 852 ; !-------------------------------------! ; 853 ; ! 6 ! SAME AS ZERO ! ; 854 ; !-------------------------------------! ; 855 ; ! 7 ! SAME AS ZERO ! ; 856 ; !=====================================! ; 857 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 22 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- SPEC ; 858 ; 859 ;THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS ; 860 ; ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE ; 861 ; THE SELECT CODE. ; 862 ; 863 SPEC/=<51:56>D,0 ;DPE1 & DPE5 & DPM1 & DPMA ; 864 #=10 ;DECODE # BITS ; 865 CLRCLK=11 ;CLEAR 1MS NICOND FLAG ; 866 CLR IO LATCH=12 ;CLEAR IO LATCH ; 867 CLR IO BUSY=13 ;CLEAR IO BUSY ; 868 LDPAGE=14 ;WRITE PAGE TABLE ; 869 NICOND=15 ;DOING NICOND DISPATCH ; 870 LDPXCT=16 ;LOAD PXCT FLAGS ; 871 WAIT=17 ;MEM WAIT ; 872 PREV=20 ;FORCE PREVIOUS CONTEXT ; 873 LOADXR=21 ;LOAD XR #, USES PXCT FIELD TO SELECT ; 874 ; CORRECT AC BLOCK ; 875 APR FLAGS=23 ;LOAD APR FLAGS ; 876 CLRCSH=24 ;CLEAR CACHE ; 877 APR EN=25 ;SET APR ENABLES ; 878 MEMCLR=27 ;CLEAR PAGE FAULT CONDITION ; 879 SWEEP=34 ;SET SWEEP ; 880 PXCT OFF=36 ;TURN OFF THE EFFECT OF PXCT ; 881 INHCRY18=40 ;INHIBIT CARRY INTO LEFT HALF ; 882 LOADIR=41 ;LOAD THE IR ; 883 LDPI=43 ;LOAD PI SYSTEM ; 884 ASHOV=44 ;TEST RESULT OF ASH ; 885 EXPTST=45 ;TEST RESULT OF FLOATING POINT ; 886 FLAGS=46 ;CHANGE PC FLAGS ; 887 LDACBLK=47 ;LOAD AC BLOCK NUMBERS ; 888 LDINST=61 ;LOAD INSTRUCTION ; 889 ; 890 ;THE SPEC FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF ; 891 BYTE/=<54:56> ;DPM1 (SPEC SEL) ; 892 BYTE1=1 ; 893 BYTE2=2 ; 894 BYTE3=3 ; 895 BYTE4=4 ; 896 BYTE5=5 ; 897 ; 898 ;THE SPEC FIELD IS REDEFINED WHEN USED TO CONTROL SHIFT PATHS ; 899 SHSTYLE/=<54:56> ;DPE1 (SPEC SEL) ; 900 NORM=0 ;2 40-BIT REGISTERS ; 901 ZERO=1 ;SHIFT ZERO INTO 36 BITS (ASH TOP 2901) ; 902 ONES=2 ;SHIFT IN ONES ; 903 ROT=3 ;ROTATE ; 904 ASHC=4 ;ASHC ; 905 LSHC=5 ;LSHC ; 906 DIV=6 ;SPECIAL DIVIDE ; 907 ROTC=7 ;ROTATE DOUBLE ; 908 ; 909 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 23 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- DISPATCH ; 910 .TOC "MICROCODE FIELDS -- DISPATCH" ; 911 ; !=======================================================! ; 912 ; ! D ! CRA1 ! CRA1 ! DPEA ! ; 913 ; ! I ! DISP ! DISP ! DISP ! ; 914 ; ! S ! 10 ! 20 ! 40 ! ; 915 ; ! P ! ! ! ! ; 916 ; !=======================================================! ; 917 ; ! 0 ! DIAG ADR ! DIAG ADR ! 0 ! ; 918 ; !-------------------------------------------------------! ; 919 ; ! 1 ! RETURN ! RETURN ! DP 18-21 ! ; 920 ; !-------------------------------------------------------! ; 921 ; ! 2 ! MULTIPLY ! J ! J ! ; 922 ; !-------------------------------------------------------! ; 923 ; ! 3 ! PAGE FAIL ! AREAD ! AREAD ! ; 924 ; !-------------------------------------------------------! ; 925 ; ! 4 ! NICOND ! NOT USABLE ! NORM ! ; 926 ; !-------------------------------------------------------! ; 927 ; ! 5 ! BYTE ! NOT USABLE ! DP 32-35 ! ; 928 ; !-------------------------------------------------------! ; 929 ; ! 6 ! EA MODE ! NOT USABLE ! DROM A ! ; 930 ; !-------------------------------------------------------! ; 931 ; ! 7 ! SCAD ! NOT USABLE ! DROM B ! ; 932 ; !=======================================================! ; 933 ;NOTE: DISP EN 40 & DISP EN 10 ONLY CONTROL THE LOW 4 BITS OF THE ; 934 ; JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE HI 7 BITS. TO DO ; 935 ; SOMETHING TO ALL 11 BITS BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED. ; 936 ; 937 DISP/=<57:62>D,70 ;CRA1 & DPEA ; 938 CONSOLE=00 ;CONSOLE DISPATCH ; 939 DROM=12 ;DROM ; 940 AREAD=13 ;AREAD ; 941 DP LEFT=31 ;DP 18-21 ; 942 NORM=34 ;NORMALIZE ; 943 DP=35 ;DP 32-35 ; 944 ADISP=36 ;DROM A FIELD ; 945 BDISP=37 ;DROM B FIELD ; 946 RETURN=41 ;RETURN ; 947 MUL=62 ;MULTIPLY ; 948 PAGE FAIL=63 ;PAGE FAIL ; 949 NICOND=64 ;NEXT INSTRUCTION DISPATCH ; 950 BYTE=65 ;BYTE SIZE AND POSITION ; 951 EAMODE=66 ;EFFECTIVE ADDRESS MODE ; 952 SCAD0=67 ;J!2 IF SCAD BIT 0 = 1 ; 953 ; 954 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 24 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- SKIP ; 955 .TOC "MICROCODE FIELDS -- SKIP" ; 956 ; !=======================================================! ; 957 ; ! S ! CRA2 ! DPEA ! DPEA ! ; 958 ; ! K ! SKIP ! SKIP ! SKIP ! ; 959 ; ! I ! 10 ! 20 ! 40 ! ; 960 ; ! P ! ! ! ! ; 961 ; !=======================================================! ; 962 ; ! 0 ! 0 ! 0 ! 0 ! ; 963 ; !-------------------------------------------------------! ; 964 ; ! 1 ! TRAP CYCLE ! CRY 02 ! CARRY OUT ! ; 965 ; !-------------------------------------------------------! ; 966 ; ! 2 ! AD=0 ! ADL SIGN ! ADL=0 ! ; 967 ; !-------------------------------------------------------! ; 968 ; ! 3 ! SC SIGN ! ADR SIGN ! ADR=0 ! ; 969 ; !-------------------------------------------------------! ; 970 ; ! 4 ! EXECUTE ! USER IOT ! -USER ! ; 971 ; !-------------------------------------------------------! ; 972 ; ! 5 ! -BUS IO BUSY ! JFCL SKIP ! FPD FLAG ! ; 973 ; !-------------------------------------------------------! ; 974 ; ! 6 ! -CONTINUE ! CRY 01 ! AC # IS ZERO ! ; 975 ; !-------------------------------------------------------! ; 976 ; ! 7 ! -1 MSEC ! TXXX ! INTERRUPT REQ ! ; 977 ; !=======================================================! ; 978 ; 979 SKIP/=<63:68>D,70 ;CRA2 & DPEA ; 980 IOLGL=04 ;(.NOT.USER)!(USER IOT)!(CONSOLE EXECUTE MODE) ; 981 LLE=12 ;AD LEFT .LE. 0 ; 982 CRY0=31 ;AD CRY -2 ; 983 ADLEQ0=32 ;ADDER LEFT = 0 ; 984 ADREQ0=33 ;ADDER RIGHT = 0 ; 985 KERNEL=34 ;.NOT. USER ; 986 FPD=35 ;FIRST PART DONE ; 987 AC0=36 ;AC NUMBER IS ZERO ; 988 INT=37 ;INTERRUPT REQUEST ; 989 LE=42 ;(AD SIGN)!(AD.EQ.0) ; 990 CRY2=51 ;AD CRY 02 ; 991 DP0=52 ;AD SIGN ; 992 DP18=53 ;AD BIT 18 ; 993 IOT=54 ;USER IOT ; 994 JFCL=55 ;JFCL SKIP ; 995 CRY1=56 ;AD CRY 1 ; 996 TXXX=57 ;TEST INSTRUCTION SHOULD SKIP ; 997 TRAP CYCLE=61 ;THIS INSTRUCTION IS THE RESULT OF A ; 998 ; TRAP 1, 2, OR 3 ; 999 ADEQ0=62 ;AD.EQ.0 ; 1000 SC=63 ;SC SIGN BIT ; 1001 EXECUTE=64 ;CONSOLE EXECUTE MODE ; 1002 -IO BUSY=65 ;.NOT. I/O LATCH ; 1003 -CONTINUE=66 ;.NOT. CONTINUE ; 1004 -1 MS=67 ;.NOT. 1 MS. TIMER ; 1005 ; 1006 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 25 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- TIME CONTROL ; 1007 .TOC "MICROCODE FIELDS -- TIME CONTROL" ; 1008 ; 1009 DT/=<109:111>D,0 ;**NOT STORED IN CRAM** ; 1010 ;DEFAULT TIME FIELD (USED IN MACROS) ; 1011 ; CAN BE OVERRIDDEN IN MACRO CALL ; 1012 2T=0 ; 1013 3T=1 ; 1014 4T=2 ; 1015 5T=3 ; 1016 ; 1017 ; 1018 T/=<70:71>F,DT ;CSL5 (E601) ; 1019 ;CLOCK TICKS MINUS TWO REQUIRED TO ; 1020 ; DO A MICRO INSTRUCTION ; 1021 2T=0 ;TWO TICKS ; 1022 3T=1 ;THREE TICKS ; 1023 4T=2 ;FOUR TICKS ; 1024 5T=3 ;FIVE TICKS ; 1025 ; 1026 ; 1027 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 26 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- RANDOM CONTROL BITS ; 1028 .TOC "MICROCODE FIELDS -- RANDOM CONTROL BITS" ; 1029 ; 1030 CRY38/=<72> ;DPE5 ; 1031 ;INJECT A CARRY INTO THE 2901 ADDER ; 1032 LOADSC/=<73> ;DPM4 ; 1033 ;LOAD THE STEP COUNTER FROM THE SCAD ; 1034 LOADFE/=<74> ;DPM4 ; 1035 ;LOAD THE FE REGISTER FROM THE SCAD ; 1036 FMWRITE/=<75> ;DPE5 (E302) ; 1037 ;WRITE THE RAM FILE. ; 1038 MEM/=<76> ;DPM5 (E612) & DPE5 (E205) ; 1039 ;START (OR COMPLETE) A MEMORY OR I/O CYCLE UNDER ; 1040 ; CONTROL OF THE NUMBER FIELD. ; 1041 DIVIDE/=<77> ;DPE5 ; 1042 ;THIS MICROINSTRUCTION IS DOING A DIVIDE ; 1043 MULTI PREC/=<78> ;DPE5 ; 1044 ;MULTIPRECISION STEP IN DIVIDE, DFAD, DFSB ; 1045 MULTI SHIFT/=<79> ;CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT) ; 1046 ;FAST SHIFT ; 1047 CALL/=<80> ;CRA2 (STACK IS ON CRA3) ; 1048 ;THIS IS A CALL ; 1049 ; 1050 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 27 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1051 .TOC "MICROCODE FIELDS -- NUMBER FIELD" ; 1052 ; 1053 ;HERE IS THE GENERAL FIELD ; 1054 #/=<90:107> ;MANY PLACES ; 1055 ; 1056 ;# REDEFINED WHEN USED AS SCAD CONTROL: ; 1057 SCAD/=<90:92> ;DPM3 ; 1058 A*2=0 ; 1059 A.OR.B=1 ; 1060 A-B-1=2 ; 1061 A-B=3 ; 1062 A+B=4 ; 1063 A.AND.B=5 ; 1064 A-1=6 ; 1065 A=7 ; 1066 SCADA/=<93:95> ;DPM3 ; 1067 SC=0 ; 1068 S#=1 ; 1069 PTR44=2 ;44 AND BIT 6 (SEE DPM3) ; 1070 BYTE1=3 ; 1071 BYTE2=4 ; 1072 BYTE3=5 ; 1073 BYTE4=6 ; 1074 BYTE5=7 ; 1075 SCADB/=<96:97> ;DPM3 ; 1076 FE=0 ; 1077 EXP=1 ; 1078 SHIFT=2 ; 1079 SIZE=3 ; 1080 S#/=<98:107> ;DPM3 ; 1081 ; 1082 ;# REDEFINED WHEN USED AS STATE REGISTER CONTROL: ; 1083 STATE/=<90:107> ;NOT USED BY HARDWARE ; 1084 SIMPLE=0 ;SIMPLE INSTRUCTIONS ; 1085 BLT=1 ;BLT IN PROGRESS ; 1086 .IFNOT/ITS ; 1087 MAP=400002 ;MAP IN PROGRESS ; 1088 .ENDIF/ITS ; 1089 SRC=3 ;MOVE STRING SOURCE IN PROGRESS ; 1090 DST=4 ;MOVE STRING FILL IN PROGRESS ; 1091 SRC+DST=5 ;MOVE STRING DEST IN PROGRESS ; 1092 DSTF=6 ;FILLING DEST ; 1093 CVTDB=7 ;CONVERT DEC TO BIN ; 1094 COMP-DST=10 ;COMPARE DEST ; 1095 EDIT-SRC=11 ;EDIT SOURCE ; 1096 EDIT-DST=12 ;EDIT DEST ; 1097 EDIT-S+D=13 ;BOTH SRC AND DST POINTERS ; 1098 ; 1099 .IF/1PROC ; 1100 ;# AS PC FLAGS ; 1101 OIPBIT/=<98> ;BIT 8 OF PC IS ONE-PROCEED ON KS (NOT IN HARDWARE) ; 1102 .ENDIF/1PROC ; 1103 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 28 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1104 ; 1105 ;# REDEFINED WHEN USED AS WORSPACE ADDRESS ; 1106 ; 1107 WORK/=<98:107> ;DPE6 ; 1108 BADW0=160 ;AC BLK 7 WORD 0 (BAD DATA FROM MEMORY) ; 1109 .IFNOT/ITS ; 1110 BADW1=161 ;AC BLK 7 WORD 1 (BAD DATA FROM MEMORY) ; 1111 .ENDIF/ITS ; 1112 MUL=200 ;TEMP FOR MULTIPLY ; 1113 DIV=201 ;TEMP FOR DIVIDE ; 1114 SV.VMA=210 ;SAVE VMA ; 1115 SV.AR=211 ;SAVE AR ; 1116 SV.ARX=212 ;SAVE ARX ; 1117 SV.BR=213 ;SAVE BR ; 1118 SV.BRX=214 ;SAVE BRX ; 1119 .IF/ITS ; 1120 DBR1=215 ;Pointer to page table for user low addresses. ; 1121 DBR2=216 ;Pointer to page table for user high addresses. ; 1122 DBR3=217 ;Pointer to page table for exec high addresses. ; 1123 DBR4=220 ;Pointer to page table for exec low addresses. ; 1124 .IFNOT/ITS ; 1125 SBR=215 ;SPT BASE REGISTER ; 1126 CBR=216 ;CST BASE ADDRESS ; 1127 CSTM=217 ;CST MASK ; 1128 PUR=220 ;PROCESS USE REGISTER ; 1129 .ENDIF/ITS ; 1130 ADJP=221 ;"P" FOR ADJBP ; 1131 ADJS=222 ;"S" FOR ADJBP ; 1132 ADJPTR=223 ;BYTE POINTER FOR ADJBP ; 1133 ADJQ1=224 ;TEMP FOR ADJBP ; 1134 ADJR2=225 ;TEMP FOR ADJBP ; 1135 ADJBPW=226 ;(BYTES/WORD) FOR ADJBP ; 1136 HSBADR=227 ;ADDRESS OF HALT STATUS BLOCK ; 1137 APR=230 ;APR ENABLES ; 1138 ; 2.5 - 2.4 Both set if paging enabled. ; 1139 ; 2.3 - 1.5 Flags enabled ; 1140 ; 1.3 - 1.1 PI level ; 1141 ;More APR status is kept in APR FLAGS hardware: ; 1142 ; 2.3 - 1.5 Flags set ; 1143 ; 1.4 Some flag is interrupting ; 1144 .IF/JPC ; 1145 U.JPC=231 ;User mode JPC ; 1146 E.JPC=232 ;Exec mode JPC ; 1147 .ENDIF/JPC ; 1148 .IF/PCST ; 1149 PCST=233 ;AOBJN pointer to PC Sample Table ; 1150 .ENDIF/PCST ; 1151 ; 1152 ;THE FOLLOWING WORDS ARE USED BY EXTEND INSTRUCTION ; 1153 E0=240 ;ORIGINAL EFFECTIVE ADDRESS ; 1154 E1=241 ;EFFECTIVE ADDRESS OF WORD AT E0 ; 1155 SLEN=242 ;SOURCE LENGTH ; 1156 MSK=243 ;BYTE MASK ; 1157 FILL=244 ;FILL BYTE ; 1158 CMS=245 ;SRC BYTE IN STRING COMPARE ; 1159 FSIG=246 ;PLACE TO SAVE ARX WHILE STORING ; 1160 ; THE FLOAT CHAR ; 1161 BDH=247 ;BINARY BEING CONVERTED TO ; 1162 BDL=250 ; DECIMAL ; 1163 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 29 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1164 ; 1165 ;TIMER STUFF ; 1166 TIME0=300 ;HIGH ORDER 36 BITS OF TIME ; 1167 TIME1=301 ;LOW ORDER 36 BITS OF TIME ; 1168 PERIOD=302 ;INTERRUPT PERIOD ; 1169 TTG=303 ;TIME TO GO TO NEXT INTERRUPT ; 1170 .IF/ITS ; 1171 QUAN=304 ;Quantum counter incremented by TOCK except ; 1172 ;when PI in progress. ; 1173 .ENDIF/ITS ; 1174 ; 1175 ;DDIV STUFF ; 1176 AC0=314 ; 1177 AC1=315 ; 1178 AC2=316 ; 1179 AC3=317 ; 1180 DDIV SGN=320 ; 1181 DVSOR H=321 ; 1182 DVSOR L=322 ; 1183 ;POWERS OF TEN ; 1184 DECLO=344 ;LOW WORD ; 1185 DECHI=373 ;HIGH WORD ; 1186 ; 1187 YSAVE=422 ;Y OF LAST INDIRECT POINTER ; 1188 .IFNOT/ITS ; 1189 PTA.E=423 ;ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE) ; 1190 PTA.U=424 ;ADDRESS OF USER PAGE MAP ; 1191 .ENDIF/ITS ; 1192 TRAPPC=425 ;SAVED PC FROM TRAP CYCLE ; 1193 SV.AR1=426 ;ANOTHER PLACE TO SAVE AR ; 1194 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 30 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1195 ; 1196 ;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9) ; 1197 ; 1198 SETOV/=<90> ;DPE9 ; 1199 ;SET ARITHMETIC OVERFLOW ; 1200 SETFOV/=<91> ;SET FLOATING OVERFLOW ; 1201 SETNDV/=<92> ;SET NO DIVIDE ; 1202 ; 1203 ;--------------------------------------------------------------------- ; 1204 ; 1205 CLRFPD/=<93> ;CLEAR FIRST PART DONE ; 1206 SETFPD/=<94> ;SET FIRST PART DONE ; 1207 HOLD USER/=<95> ;WHEN THIS BIT IS SET IT: ; 1208 ; 1. PREVENTS SETTING USER IOT IN USER MODE ; 1209 ; 2. PREVENTS CLEARING USER IN USER MODE ; 1210 ; 1211 ;--------------------------------------------------------------------- ; 1212 ; 1213 ; <96> ;SPARE ; 1214 TRAP2/=<97> ;SET TRAP 2 ; 1215 TRAP1/=<98> ;SET TRAP 1 ; 1216 ; 1217 ;--------------------------------------------------------------------- ; 1218 ; 1219 LD PCU/=<99> ;LOAD PCU FROM USER ; 1220 ; <100> ;SPARE ; 1221 ; <101> ;SPARE ; 1222 ; 1223 ;--------------------------------------------------------------------- ; 1224 ; 1225 ; <102> ;SPARE ; 1226 ; <103> ;SPARE ; 1227 JFCLFLG/=<104> ;DO A JFCL INSTRUCTION ; 1228 ; 1229 ;--------------------------------------------------------------------- ; 1230 ; 1231 LD FLAGS/=<105> ;LOAD FLAGS FROM DP ; 1232 ; <106> ; 1233 ADFLGS/=<107> ;UPDATE CARRY FLAGS ; 1234 ; 1235 ;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL ; 1236 ; 1237 FORCE USER/=<90> ;FORCE USER MODE REFERENCE ; 1238 FORCE EXEC/=<91> ;FORCE EXEC MODE REFERENCE ; 1239 ; (DOES NOT WORK UNDER PXCT) ; 1240 FETCH/=<92> ;THIS IS AN INSTRUCTION FETCH ; 1241 ; 1242 ;--------------------------------------------------------------------- ; 1243 ; 1244 READ CYCLE/=<93> ;SELECT A READ CYCLE ; 1245 WRITE TEST/=<94> ;PAGE FAILE IF NOT WRITTEN ; 1246 WRITE CYCLE/=<95> ;SELECT A MEMORY WRITE CYCLE ; 1247 ; 1248 ;--------------------------------------------------------------------- ; 1249 ; 1250 ; <96> ;SPARE BIT ; 1251 DONT CACHE/=<97> ;DO NOT LOOK IN CACHE ; 1252 PHYSICAL/=<98> ;DO NOT INVOKE PAGING HARDWARE ; 1253 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 31 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1254 ; 1255 ;--------------------------------------------------------------------- ; 1256 ; 1257 PXCT/=<99:101> ;WHICH PXCT BITS TO LOOK AT ; 1258 CURRENT=0 ; 1259 E1=1 ; 1260 D1=3 ; 1261 BIS-SRC-EA=4 ; 1262 E2=5 ; 1263 BIS-DST-EA=6 ; 1264 D2=7 ; 1265 ; 1266 ;--------------------------------------------------------------------- ; 1267 ; 1268 AREAD/=<102> ;LET DROM SELECT SYSLE TYPE AND VMA LOAD ; 1269 DP FUNC/=<103> ;IGNORE # BITS 0-11 AND USE DP 0-13 INSTEAD ; 1270 ; DP9 MEANS "FORCE PREVIOUS" ; 1271 LDVMA/=<104> ;LOAD THE VMA ; 1272 ; 1273 ;--------------------------------------------------------------------- ; 1274 ; 1275 EXT ADR/=<105> ;PUT VMA BITS 14-17 ONTO BUS ; 1276 WAIT/=<106> ;START A MEMORY OR I/O CYCLE ; 1277 BWRITE/=<107> ;START A MEMORY CYCLE IF DROM ASKS FOR IT ; 1278 ; 1279 ;THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION ; 1280 ; 1281 ; <99> ;PREVIOUS ; 1282 IO CYCLE/=<100> ;THIS IS AN I/O CYCLE ; 1283 WRU CYCLE/=<101> ;WHO ARE YOU CYCLE ; 1284 ; 1285 ;--------------------------------------------------------------------- ; 1286 ; 1287 VECTOR CYCLE/=<102> ;READ INTERRUPT VECTOR ; 1288 IO BYTE/=<103> ;BYTE CYCLE ; 1289 ; <104> ; 1290 ; 1291 ;# REDEFINED WHEN USED AS PI RIGHT BITS ; 1292 PI.ZER/=<90:92> ;ZEROS ; 1293 PI.IP1/=<93> ;PI 1 IN PROG ; 1294 PI.IP2/=<94> ; 1295 PI.IP3/=<95> ; 1296 PI.IP4/=<96> ; 1297 PI.IP5/=<97> ; 1298 PI.IP6/=<98> ; 1299 PI.IP7/=<99> ; 1300 PI.ON/=<100> ;SYSTEM IS ON ; 1301 PI.CO1/=<101> ;CHAN 1 IS ON ; 1302 PI.CO2/=<102> ; 1303 I.CO3/=<103> ; 1304 I.CO4/=<104> ; 1305 I.CO5/=<105> ; 1306 I.CO6/=<106> ; 1307 I.CO7/=<107> ; 1308 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 32 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1309 ; 1310 ;# REDEFINED WHEN USED AS WRPI DATA ; 1311 PI.MBZ/=<90:93> ;MUST BE ZERO ; 1312 PI.DIR/=<94> ;DROP INTERRUPT REQUESTS ; 1313 PI.CLR/=<95> ;CLEAR SYSTEM ; 1314 PI.REQ/=<96> ;REQUEST INTERRUPT ; 1315 PI.TCN/=<97> ;TURN CHANNEL ON ; 1316 PI.TCF/=<98> ;TURN CHANNEL OFF ; 1317 PI.TSF/=<99> ;TURN SYSTEM OFF ; 1318 PI.TSN/=<100> ;TURN SYSTEM ON ; 1319 PI.SC1/=<101> ;SELECT CHANNEL 1 ; 1320 PI.SC2/=<102> ; 1321 PI.SC3/=<103> ; 1322 PI.SC4/=<104> ; 1323 PI.SC5/=<105> ; 1324 PI.SC6/=<106> ; 1325 PI.SC7/=<107> ; 1326 ; 1327 ;# REDEFINED WHEN USED AS AC CONTROL ; 1328 ; 1329 ; 1330 ;THIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6. THE NUMBER ; 1331 ; FIELD HAS THIS FORMAT IN <98:107>: ; 1332 ; ; 1333 ; !-----!-----!-----!-----!-----!-----!-----!-----!-----!-----! ; 1334 ; !CARRY! S8 ! S4 ! S2 ! S1 ! MODE! B8 ! B4 ! B2 ! B1 ! ; 1335 ; ! IN ! FUNCTION ! ! DATA INPUTS ! ; 1336 ; !-----!-----------------------!-----!-----------------------! ; 1337 ; ; 1338 ; 1339 ACALU/=<98:103> ; 1340 B=25 ; 1341 AC+N=62 ; 1342 ACN/=<104:107> ; 1343 ;AC NAMES FOR STRING INSTRUCTIONS ; 1344 SRCLEN=0 ;SOURCE LENGTH ; 1345 SRCP=1 ;SOURCE POINTER ; 1346 DLEN=3 ;DEST LENGTH ; 1347 DSTP=4 ;DEST POINTER ; 1348 MARK=3 ;POINTER TO MARK ; 1349 BIN0=3 ;HIGH WORD OF BINARY ; 1350 BIN1=4 ;LOW WORD OF BINARY ; 1351 ; 1352 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 33 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MICROCODE FIELDS -- NUMBER FIELD ; 1353 ; 1354 ;# FIELD REDEFINED WHEN USE AS APRID DATA ; 1355 ; 1356 MICROCODE OPTIONS/=<90:98> ; 1357 .IF/ITS ; 1358 OPT=020 ;4.5 Indicates ITS ucode, just like on KL. ; 1359 .IFNOT/ITS ; 1360 OPT=000 ; 1361 .ENDIF/ITS ; 1362 ; 1363 ;Actually defined in configuration file: ; 1364 ; ; 1365 ; MICROCODE VERSION/=<99:107> ; 1366 ; UCV=259. ; 1367 ; ; 1368 ; HARDWARE OPTIONS/=<90:92> ; 1369 ; HWOPT=0 ; 1370 ; ; 1371 ; HARDWARE SERIAL NUMBER/=<93:107> ; 1372 ; HWSER=4097. ; 1373 ; 1374 ;# FIELD REDEFINED WHEN USED AS A HALT CODE ; 1375 ; 1376 HALT/=<90:107> ; 1377 ;CODES 0 TO 77 ARE "NORMAL" HALTS ; 1378 POWER=0 ;POWER UP ; 1379 HALT=1 ;HALT INSTRUCTION ; 1380 CSL=2 ;CONSOLE HALT ; 1381 ;CODES 100 TO 777 ARE SOFTWARE ERRORS ; 1382 IOPF=100 ;I/O PAGE FAIL ; 1383 ILLII=101 ;ILLEGAL INTERRUPT INSTRUCTION ; 1384 ILLINT=102 ;BAD POINTER TO UNIBUS INTERRUPT VECTOR ; 1385 ;CODES 1000 TO 1777 ARE HARDWARE ERRORS ; 1386 BW14=1000 ;ILLEGAL BWRITE FUNCTION (BAD DROM) ; 1387 NICOND 5=1004 ;ILLEGAL NICOND DISPATCH ; 1388 MULERR=1005 ;VALUE COMPUTED FOR 10**21 WAS WRONG ; 1389 .IFNOT/FULL ; 1390 PAGEF=1777 ;PAGE FAIL IN SMALL MICROCODE ; 1391 .ENDIF/FULL ; 1392 ; 1393 ; 1394 ; 1395 ;# FIELD REDEFINED WHEN USED AS FLG BITS ; 1396 ; 1397 FLG.W/=<94> ;W BIT FROM PAGE MAP ; 1398 FLG.PI/=<95> ;PI CYCLE ; 1399 FLG.C/=<96> ;CACHE BIT FROM PAGE MAP ; 1400 FLG.SN/=<97> ;SPECIAL NEGATE IN FDV & DFDV ; 1401 .IF/1PROC ; 1402 FLG.1PROC/=<98> ;1-PROCEED IN PROGRESS ; 1403 FLG.2PROC/=<100> ;INSTRUCTION ACTUALLY RUNNING IF THIS IS SET TOO ; 1404 ;<99> RESERVED FOR JPC MODE ; 1405 .ENDIF/1PROC ; 1406 ; 1407 ;RIGHT HALF OF FLG USED TO RECOVER FROM PAGE FAILS ; 1408 ; 1409 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 34 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 SUBFIELD DEFINITIONS FOR .RAMFILE ; 1410 .TOC "SUBFIELD DEFINITIONS FOR .RAMFILE" ; 1411 ; 1412 SPEC HIGH/=<51:53> ; 1413 SPEC LOW/=<54:56> ; 1414 ; 1415 DISP HIGH/=<57:59> ; 1416 DISP LOW/=<60:62> ; 1417 ; 1418 SKIP HIGH/=<63:65> ; 1419 SKIP LOW/=<66:68> ; 1420 ; 1421 # HIGH/=<90:95> ; 1422 # LOW/=<96:107> ; 1423 ; 1424 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 35 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 DISPATCH ROM DEFINITIONS ; 1425 .TOC "DISPATCH ROM DEFINITIONS" ; 1426 ; 1427 ;ALL ON DPEA ; 1428 ; 1429 .DCODE ; 1430 A/=<2:5> ;OPERAND FETCH MODE ; 1431 READ=0 ;READ ; 1432 WRITE=1 ;WRITE ; 1433 DREAD=2 ;DOUBLE READ ; 1434 DBLAC=3 ;DOUBLE AC ; 1435 SHIFT=4 ;SIMPLE SHIFT ; 1436 DSHIFT=5 ;DOUBLE SHIFT ; 1437 FPI=6 ;FLOATING POINT IMMEDIATE ; 1438 FP=7 ;FLOATING POINT ; 1439 RD-PF=10 ;READ, THEN START PREFETCH ; 1440 DFP=11 ;DOUBLE FLOATING POINT ; 1441 IOT=12 ;CHECK FOR IO LEGAL THEN SAME AS I ; 1442 ; 1443 B/=<8:11> ;STORE RESULTS AS ; 1444 SELF=4 ;SELF ; 1445 DBLAC=5 ;DOUBLE AC ; 1446 DBLB=6 ;DOUBLE BOTH ; 1447 AC=15 ;AC ; 1448 MEM=16 ;MEMORY ; 1449 BOTH=17 ;BOTH ; 1450 ; 1451 ;B-FIELD WHEN USED IN FLOATING POINT OPERATIONS ; 1452 ROUND/=<8> ;ROUND THE RESULT ; 1453 MODE/=<9> ;SEPARATE ADD/SUB & MUL/DIV ETC. ; 1454 FL-B/=<10:11> ;STORE RESULTS AS ; 1455 AC=1 ;AC ; 1456 MEM=2 ;MEMORY ; 1457 BOTH=3 ;BOTH ; 1458 ; 1459 J/=<12:23> ;DISPATCH ADDRESS (MUST BE 1400 TO 1777) ; 1460 ; 1461 ACDISP/=<24> ;DISPATCH ON AC FIELD ; 1462 I/=<25> ;IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM ; 1463 ; IF THIS BIT IS SET. ; 1464 READ/=<26> ;START A READ AT AREAD ; 1465 TEST/=<27> ;START A WRITE TEST AT AREAD ; 1466 COND FUNC/=<28> ;START A MEMORY CYCLE ON BWRITE ; 1467 VMA/=<29>D,1 ;LOAD THE VMA ON AREAD ; 1468 WRITE/=<30> ;START A WRITE ON AREAD ; 1469 .UCODE ; 1470 ; 1471 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 36 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ MACROS ; 1472 .TOC "HOW TO READ MACROS" ; 1473 ; ; 1474 ; 1.0 REGISTER TRANSFER MACROS ; 1475 ; ; 1476 ; MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901 ; 1477 ; REGISTERS. THE NAMES OF THE 2901 REGISTERS ARE MACRO PARAMETERS AND ARE ; 1478 ; ENCLOSED IN []. A TYPICAL MACRO IS: ; 1479 ; ; 1480 ; [AR]_[AR]+[BR] ; 1481 ; ; 1482 ; THE SYMBOL _ IS PRONOUNCED "GETS". THE ABOVE MACRO WOULD BE READ "THE AR GETS ; 1483 ; THE AR PLUS THE BR". ; 1484 ; ; 1485 ; IF A MACRO DOES NOT HAVE A _ IN IT, THERE IS NO RESULT STORED. THUS, [AR]-[BR] ; 1486 ; JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ON THE VARIOUS ALU BITS. ; 1487 ; ; 1488 ; ; 1489 ; ; 1490 ; 1.1 SPECIAL SYMBOLS ; 1491 ; ; 1492 ; THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE NOT 2901 REGISTERS. ; 1493 ; THEY ARE DEFINED HERE: ; 1494 ; ; 1495 ; 1. AC -- THE AC SELECTED BY THE CURRENT INSTRUCTION. SEE DPEA ; 1496 ; ; 1497 ; 2. AC[] -- AC+N. AC[1] IS AC+1, AC[2] IS AC+2, ETC. ; 1498 ; ; 1499 ; 3. APR -- THE APR FLAGS FROM DPMA ; 1500 ; ; 1501 ; 4. EA -- THE EFFECTIVE ADDRESS. THAT IS, 0 IN THE LEFT HALF AND THE ; 1502 ; CONTENTS OF THE HR IN THE RIGHT HALF. ; 1503 ; ; 1504 ; 5. EXP -- THE F.P. EXPONENT FROM THE SCAD. [AR]_EXP WILL TAKE THE ; 1505 ; EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR. ; 1506 ; ; 1507 ; 6. FE -- THE FE REGISTER ; 1508 ; ; 1509 ; 7. FLAGS -- THE PC FLAGS (FROM DPE9) IN THE LEFT HALF. ; 1510 ; ; 1511 ; 8. Q -- THE Q REGISTER ; 1512 ; ; 1513 ; 9. RAM -- THE RAM FILE, RAM ADDRESS IS IN THE VMA. ; 1514 ; ; 1515 ; 10. P -- THE P FIELD OF THE BYTE POINTER. SAME IDEA AS EXP. ; 1516 ; ; 1517 ; 11. TIME -- THE 1MS. TIMER ; 1518 ; ; 1519 ; 12. VMA -- THE VMA. WHEN READ IT INCLUDES THE VMA FLAGS ; 1520 ; ; 1521 ; 13. XR -- INDEX REGISTER ; 1522 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 37 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ MACROS ; 1523 ; 1524 ; 14. XWD -- HALF WORD. USED TO GENERATE CONSTANTS. FOR EXAMPLE, [AR]_0 XWD ; 1525 ; [40] WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR. ; 1526 ; ; 1527 ; 15. +SIGN AND -SIGN -- SIGN BITS USED TO SIGN SMEAR F.P. NUMBERS. FOR ; 1528 ; EXAMPLE, [AR]_+SIGN WOULD CLEAR AR BITS 0 TO 8. ; 1529 ; ; 1530 ; 16. WORK[] -- LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE. FOR ; 1531 ; EXAMPLE, [AR]_WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE ; 1532 ; RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD. ; 1533 ; ; 1534 ; ; 1535 ; ; 1536 ; ; 1537 ; 1.2 LONG ; 1538 ; ; 1539 ; LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE Q REGISTER IS ALSO ; 1540 ; SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP. ; 1541 ; ; 1542 ; ; 1543 ; ; 1544 ; 2.0 MEMORY MACROS ; 1545 ; ; 1546 ; MEMORY IS INDICATED BY THE SYMBOL "MEM". WHEN WE ARE WAITING FOR DATA FROM ; 1547 ; MEMORY THE "MEM READ" MACRO IS USED. WHEN WE ARE SENDING DATA TO MEMORY, THE ; 1548 ; "MEM WRITE" MACRO IS USED. EXAMPLE, ; 1549 ; MEM READ, ;WAIT FOR MEMORY ; 1550 ; [AR]_MEM ;LOAD DATA INTO AR ; 1551 ; VMA_ IS USED THE LOAD THE VMA. THUS, VMA_[PC] LOADS THE VMA FROM THE PC. ; 1552 ; ; 1553 ; ; 1554 ; ; 1555 ; 3.0 TIME CONTROL ; 1556 ; ; 1557 ; THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL. THE FIRST, SELECTS THE RAM ; 1558 ; ADDRESS TO SPEED UP THE NEXT INSTRUCTION. THESE MACROS ARE AC, AC[], XR, VMA, ; 1559 ; WORK[]. THE SECOND, SETS THE TIME FIELD. THESE ARE 2T, 3T, 4T, AND 5T TO ; 1560 ; SELECT 2, 3, 4, OR 5 TICKS. ; 1561 ; ; 1562 ; ; 1563 ; ; 1564 ; 4.0 SCAD MACROS ; 1565 ; ; 1566 ; THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED. THERE ARE ; 1567 ; ONLY A FEW SYMBOLS USED. ; 1568 ; ; 1569 ; 1. FE -- THE FE REGISTER ; 1570 ; ; 1571 ; 2. SC -- THE SC REGISTER ; 1572 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 38 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 HOW TO READ MACROS ; 1573 ; 1574 ; 3. EXP -- THE EXPONENT FROM A F.P. NUMBER. FOR EXAMPLE FE_EXP LOADS THE ; 1575 ; FE FROM DP BITS 1-8. ; 1576 ; ; 1577 ; 4. SHIFT -- THE SHIFT COUNT FROM SHIFT INSTRUCTIONS. THAT IS DP BITS 18 ; 1578 ; AND 28-35. ; 1579 ; ; 1580 ; 5. S# -- THE SMALL NUMBER. THE 10 BIT MAGIC NUMBER INPUT TO THE SCADA ; 1581 ; MIXER. ; 1582 ; ; 1583 ; ; 1584 ; ; 1585 ; ; 1586 ; 5.0 CONTROL MACROS ; 1587 ; ; 1588 ; ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS. SOME EXAMPLES, ; 1589 ; HOLD LEFT ;DO NOT CLOCK LEFT HALF OF DP ; 1590 ; SET APR ENABLES ;LOAD APR ENABLES FROM DP ; 1591 ; SET NO DIVIDE ;SET NO DIVIDE PC FLAG ; 1592 ; ; 1593 ; ; 1594 ; ; 1595 ; 6.0 SKIPS ; 1596 ; ; 1597 ; ALL SKIPS CAUSE THE NEXT MICRO INSTRUCTION TO COME FROM THE ODD WORD OF AN ; 1598 ; EVEN/ODD PAIR. THE MACROS HAVE THE FORMAT OF SKIP COND. THEY SKIP IF CONDITION ; 1599 ; IS TRUE. SOME EXAMPLES, ; 1600 ; SKIP AD.EQ.0 ;SKIP IF ADDER OUTPUT IS ZERO ; 1601 ; SKIP IRPT ;SKIP IF INTERRUPT IS PENDING ; 1602 ; ; 1603 ; ; 1604 ; ; 1605 ; 7.0 DISPATCH MACROS ; 1606 ; ; 1607 ; DISPATCH MACROS CAUSE THE MACHINE TO GO TO ONE OF MANY PLACES. IN MOST CASES ; 1608 ; THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO. FOR EXAMPLE, MUL DISP, BYTE ; 1609 ; DISP. ; 1610 ; ; 1611 ; ; 1612 ; ; 1613 ; 8.0 SUPER MACROS ; 1614 ; ; 1615 ; THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES. FOR ; 1616 ; EXAMPLE, MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO ; 1617 ; THE MONITOR. WE COULD WRITE ; 1618 ; J/UUO ; 1619 ; BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP. INSTEAD WE WRITE, ; 1620 ; UUO ; 1621 ; THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND ; 1622 ; INSTRUCTION. WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION ; 1623 ; OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES. SOME EXAMPLES OF ; 1624 ; 1625 ; SUPER MACROS ARE: ; 1626 ; PAGE FAIL TRAP ;GENERATE A PAGE FAIL TRAP ; 1627 ; DONE ;THIS INSTRUCTION IS NOW COMPLETE ; 1628 ; ; USED WITH A SKIP OR DISP WHERE ; 1629 ; ; SOME PATHS ARE NOP'S ; 1630 ; HALT [] ;JUMP TO HALT LOOP. ARGUMENT IS A ; 1631 ; ; CODE ; 1632 ; 1633 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 39 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH CHIP -- GENERAL ; 1634 .TOC "MACROS -- DATA PATH CHIP -- GENERAL" ; 1635 ; 1636 .NOT.[] "AD/.NOT.A,A/@@1" ; 1637 []+[] "AD/A+B,A/@@1,B/@@2" ; 1638 []-[] "AD/A-B-.25,A/@@1,B/@@2,ADD .25" ; 1639 []-# "AD/A-D-.25,DBUS/DBM,DBM/#,A/@@1,ADD .25" ; 1640 [].AND.# "AD/D.AND.A,DBUS/DBM,DBM/#,A/@@1" ; 1641 [].AND.Q "AD/A.AND.Q,A/@@1,DEST/PASS" ; 1642 [].AND.[] "AD/A.AND.B,A/@@2,B/@@1,DEST/PASS" ; 1643 [].AND.NOT.[] "AD/.NOT.A.AND.B,A/@@2,B/@@1,DEST/PASS" ; 1644 [].OR.[] "AD/A.OR.B,A/@@2,B/@@1,DEST/PASS" ; 1645 [].XOR.# "AD/D.XOR.A,DBUS/DBM,DBM/#,A/@@1" ; 1646 [].XOR.VMA "AD/D.XOR.A,DBUS/DBM,DBM/VMA,A/@@1" ; 1647 [].XOR.[] "AD/A.XOR.B,A/@@2,B/@@1,DEST/PASS" ; 1648 []_#-[] "AD/D-A-.25,DEST/AD,A/@@2,B/@@1,DBUS/DBM,DBM/#,ADD .25" ; 1649 []_# "AD/D,DBUS/DBM,DBM/#,DEST/AD,B/@@1" ; 1650 []_-1 "AD/-A-.25,A/ONE,DEST/AD,B/@@1,ADD .25" ; 1651 []_-2 "AD/-A-.25,DEST/AD*2,A/ONE,B/@@1,ADD .25" ; 1652 []_-Q "AD/-Q-.25,DEST/AD,B/@@1,ADD .25" ; 1653 []_-Q*2 "AD/-Q-.25,DEST/AD*2,B/@@1,ADD .25" ; 1654 []_-Q*.5 "AD/-Q-.25,DEST/AD*.5,B/@@1,ADD .25" ; 1655 []_-[] "AD/-A-.25,A/@@2,DEST/AD,B/@@1,ADD .25" ; 1656 []_-[]-.25 "AD/-A-.25,A/@@2,DEST/AD,B/@@1" ; 1657 []_-[]*2 "AD/-A-.25,A/@@2,DEST/AD*2,B/@@1,ADD .25" ; 1658 []_.NOT.AC "AD/.NOT.D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1" ; 1659 []_.NOT.AC[] "AD/.NOT.D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD,B/@@1,DT/3T" ; 1660 []_.NOT.Q "AD/.NOT.Q,DEST/AD,B/@@1" ; 1661 []_.NOT.[] "AD/.NOT.A,A/@@2,DEST/AD,B/@@1" ; 1662 []_0 "AD/ZERO,DEST/AD,B/@@1" ; 1663 []_0*.5 LONG "AD/ZERO,DEST/Q_Q*.5,B/@@1" ; 1664 []_0 XWD [] "AD/47,DEST/AD,B/@@1,DBM/#,DBUS/DBM,#/@@2,RSRC/DA,A/MASK" ; 1665 []_AC "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,AD PARITY" ; 1666 []_-AC "AD/-D-.25,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,ADD .25" ; 1667 []_-AC[] "AD/-D-.25,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD,B/@@1,ADD .25,DT/3T" ; 1668 []_AC*.5 "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD*.5,B/@@1,DT/3T" ; 1669 []_AC*.5 LONG "AD/D,DBUS/RAM,RAMADR/AC#,DEST/Q_Q*.5,B/@@1,DT/3T" ; 1670 []_AC*2 "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD*2,B/@@1,DT/3T" ; 1671 []_AC+1 "AD/D+A,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@@1" ; 1672 []_AC+1000001 "AD/D+A,DBUS/RAM,RAMADR/AC#,A/XWD1,DEST/AD,B/@@1" ; 1673 []_AC+[] "AD/D+A,A/@@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,DT/3T" ; 1674 []_AC-1 "AD/D-A-.25,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@@1,ADD .25" ; 1675 []_AC-[] "AD/D-A-.25,A/@@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,ADD .25" ; 1676 []_AC-[]-.25 "AD/D-A-.25,A/@@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1" ; 1677 []_AC[]-[] "AD/D-A-.25,A/@@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD,B/@@1,ADD .25,DT/3T" ; 1678 []_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" ; 1679 []_AC[].AND.[] "AD/D.AND.A,A/@@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD,B/@@1,DT/3T" ; 1680 []_AC.AND.MASK "AD/D.AND.A,A/MASK,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,AD PARITY" ; 1681 []_AC[] "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD,B/@@1,AD PARITY,DT/3T" ; 1682 []_AC[]*2 "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD*2,B/@@1,AD PARITY,DT/3T" ; 1683 []_AC[]*.5 "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@2,DEST/AD*.5,B/@@1,AD PARITY,DT/3T" ; 1684 []_APR "AD/D,DBUS/DBM,DBM/APR FLAGS,DEST/AD,B/@@1,DT/3T" ; 1685 []_CURRENT AC [] "AD/D,DBUS/RAM,RAMADR/#,ACALU/B,ACN/@@2,DEST/AD,B/@@1,AD PARITY,DT/3T" ; 1686 []_EA FROM [] "AD/57,RSRC/0A,A/@@2,DEST/AD,B/@@1" ; 1687 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 40 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH CHIP -- GENERAL ; 1688 ; 1689 []_EA "AD/57,RSRC/0A,A/HR,DEST/AD,B/@@1" ; 1690 []_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 TES ; 1691 []_FE "AD/D,DEST/AD*.5,B/@@1,DBUS/DBM,DBM/DP,SCAD/A+B,SCADA/S#,S#/0,SCADB/FE,BYTE/BYTE5" ; 1692 []_FLAGS "AD/D.AND.A,DBUS/PC FLAGS,A/MASK,DEST/AD,B/@@1,RSRC/0Q" ; 1693 []_P "AD/D,DEST/A,A/@@1,B/@@1,DBUS/DBM,DBM/DP,BYTE/BYTE1,SCAD/A+B,SCADA/S#,S#/0,SCADB/FE" ; 1694 []_PC WITH FLAGS "AD/D,DBUS/PC FLAGS,RSRC/0A,A/PC,DEST/AD,B/@@1" ; 1695 []_Q "AD/Q,DEST/AD,B/@@1" ; 1696 []_Q*.5 "AD/Q,DEST/AD*.5,B/@@1" ; 1697 []_Q*2 "AD/Q,DEST/AD*2,B/@@1" ; 1698 []_Q*2 LONG "AD/Q,DEST/Q_Q*2,B/@@1" ; 1699 []_Q+1 "AD/A+Q,A/ONE,DEST/AD,B/@@1" ; 1700 []_RAM "AD/D,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@@1,AD PARITY" ; 1701 []_TIME "AD/44,RSRC/DA,A/MASK,DBUS/DBM,DBM/EXP,DEST/AD,B/@@1" ; 1702 []_VMA "AD/D,DEST/AD,B/@@1,DBUS/DBM,DBM/VMA" ; 1703 []_XR "AD/D,DBUS/RAM,RAMADR/XR#,DEST/AD,B/@@1" ; 1704 []_[] "AD/A,A/@@2,DEST/AD,B/@@1" ; 1705 []_[] SWAP "AD/D,DBUS/DBM,DBM/DP SWAP,DEST/A,A/@@2,B/@@1" ; 1706 []_[] XWD 0 "AD/45,DEST/AD,B/@@1,DBM/#,DBUS/DBM,#/@@2,RSRC/D0,A/MASK" ; 1707 []_[]*.5 "AD/A,A/@@2,DEST/AD*.5,B/@@1" ; 1708 []_[]*.5 LONG "AD/A,A/@@2,DEST/Q_Q*.5,B/@@1" ; 1709 []_[]*2 "AD/A,A/@@2,DEST/AD*2,B/@@1" ; 1710 []_[]*2 LONG "AD/A,A/@@2,DEST/Q_Q*2,B/@@1" ; 1711 []_[]*4 "AD/A+B,A/@@2,B/@@1,DEST/AD*2" ; 1712 []_[]+# "AD/D+A,DBUS/DBM,DBM/#,A/@@2,DEST/AD,B/@@1" ; 1713 []_[]+.25 "AD/0+A,A/@@2,DEST/AD,B/@@1, ADD .25" ; 1714 []_[]+0 "AD/0+A,A/@@2,DEST/AD,B/@@1" ; 1715 []_[]+1 "AD/A+B,A/ONE,B/@@1,B/@@2,DEST/AD" ; 1716 []_[]+1000001 "AD/D+A,A/@@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@@1" ; 1717 []_[]+AC "AD/D+A,A/@@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1" ; 1718 []_[]+AC[] "AD/D+A,A/@@2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@3,DEST/AD,B/@@1,DT/3T" ; 1719 []_[]+Q "AD/A+Q,A/@@2,DEST/AD,B/@@1" ; 1720 []_[]+RAM "AD/D+A,A/@@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@@1" ; 1721 []_[]+XR "AD/D+A,DBUS/RAM,RAMADR/XR#,A/@@2,DEST/AD,B/@@1,HOLD LEFT" ; 1722 []_[]+[] "AD/A+B,A/@@3,B/@@1,B/@@2,DEST/AD" ; 1723 []_[]+[]+.25 "AD/A+B,A/@@3,B/@@1,B/@@2,DEST/AD, ADD .25" ; 1724 []_[]-# "AD/A-D-.25,DBUS/DBM,DBM/#,A/@@2,DEST/AD,B/@@1, ADD .25" ; 1725 []_[]-1 "AD/B-A-.25,B/@@1,A/ONE,DEST/AD,ADD .25" ; 1726 []_[]-1000001 "AD/A-D-.25,A/@@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@@1,ADD .25" ; 1727 []_[]-AC "AD/A-D-.25,A/@@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@@1,ADD .25" ; 1728 []_[]-RAM "AD/A-D-.25,A/@@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@@1,ADD .25" ; 1729 []_[]-[] "AD/B-A-.25,B/@@1,B/@@2,A/@@3,DEST/AD,ADD .25" ; 1730 []_[]-[] REV "AD/A-B-.25,B/@@1,B/@@3,A/@@2,DEST/AD,ADD .25" ; 1731 []_[].AND.# "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD,A/@@2,B/@@1" ; 1732 []_[].AND.# CLR LH "AD/ZERO,RSRC/DA,DBUS/DBM,DBM/#,DEST/AD,A/@@2,B/@@1" ; 1733 []_[].AND.# CLR RH "AD/D.AND.A,RSRC/0Q,DBUS/DBM,DBM/#,DEST/AD,A/@@2,B/@@1" ; 1734 []_(AC[].AND.[])*.5 "AD/D.AND.A,DEST/AD*.5,A/@@3,B/@@1,RAMADR/AC*#,DBUS/RAM,ACALU/AC+N,ACN/@@2" ; 1735 []_(Q+1)*.5 "AD/A+Q,A/ONE,DEST/AD*.5,B/@@1" ; 1736 []_(#-[])*2 "AD/D-A-.25,DEST/AD*2,A/@@2,B/@@1,DBUS/DBM,DBM/#,ADD .25" ; 1737 []_(-[])*.5 "AD/-A-.25,A/@@2,DEST/AD*.5,B/@@1,ADD .25" ; 1738 []_(-[]-.25)*.5 LONG "AD/-A-.25,A/@@2,DEST/Q_Q*.5,B/@@1" ; 1739 []_(-[]-.25)*2 LONG "AD/-A-.25,A/@@2,DEST/Q_Q*2,B/@@1" ; 1740 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 41 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH CHIP -- GENERAL ; 1741 ; 1742 []_([].AND.#)*.5 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@@2,B/@@1" ; 1743 []_([].AND.#)*2 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@@2,B/@@1" ; 1744 []_([].AND.NOT.#)*.5 "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@@2,B/@@1" ; 1745 []_([].AND.NOT.#)*2 "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@@2,B/@@1" ; 1746 []_([].AND.[])*.5 "AD/A.AND.B,DEST/AD*.5,A/@@3,B/@@1,B/@@2" ; 1747 []_([].AND.[])*2 "AD/A.AND.B,DEST/AD*2,A/@@3,B/@@1,B/@@2" ; 1748 []_([].OR.#)*.5 "AD/D.OR.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@@2,B/@@1" ; 1749 []_([].OR.#)*2 "AD/D.OR.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@@2,B/@@1" ; 1750 []_([]+#)*2 "AD/D+A,DBUS/DBM,DBM/#,DEST/AD*2,A/@@2,B/@@1" ; 1751 []_([]+1)*2 "AD/A+B,A/ONE,B/@@1,B/@@2,DEST/AD*2" ; 1752 []_([]+[])*.5 LONG "AD/A+B,A/@@3,B/@@1,B/@@2,DEST/Q_Q*.5" ; 1753 []_([]+[])*2 LONG "AD/A+B,A/@@3,B/@@1,B/@@2,DEST/Q_Q*2" ; 1754 []_([]-[])*.5 LONG "AD/B-A-.25,A/@@3,B/@@1,B/@@2,DEST/Q_Q*.5, ADD .25" ; 1755 []_([]-[])*2 LONG "AD/B-A-.25,A/@@3,B/@@1,B/@@2,DEST/Q_Q*2, ADD .25" ; 1756 []_([]+[]+.25)*.5 LONG "AD/A+B,A/@@3,B/@@1,B/@@2,DEST/Q_Q*.5, ADD .25" ; 1757 []_[].AND.AC "AD/D.AND.A,DBUS/RAM,RAMADR/AC#,A/@@2,DEST/AD,B/@@1" ; 1758 []_[].AND.NOT.# "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,A/@@2,DEST/AD,B/@@1" ; 1759 []_[].AND.NOT.[] "AD/.NOT.A.AND.B,DEST/AD,B/@@1,B/@@2,A/@@3" ; 1760 []_[].AND.NOT.AC "AD/.NOT.D.AND.A,DBUS/RAM,RAMADR/AC#,A/@@2,DEST/AD,B/@@1" ; 1761 []_[].AND.Q "AD/A.AND.Q,A/@@2,DEST/AD,B/@@1" ; 1762 []_[].AND.[] "AD/A.AND.B,A/@@3,B/@@1,B/@@2,DEST/AD" ; 1763 []_[].EQV.AC "AD/D.EQV.A,DBUS/RAM,RAMADR/AC#,A/@@2,DEST/AD,B/@@1" ; 1764 []_[].EQV.Q "AD/A.EQV.Q,A/@@2,DEST/AD,B/@@1" ; 1765 []_[].OR.# "AD/D.OR.A,DBUS/DBM,DBM/#,A/@@2,DEST/AD,B/@@1" ; 1766 []_[].OR.AC "AD/D.OR.A,DBUS/RAM,RAMADR/AC#,A/@@2,DEST/AD,B/@@1" ; 1767 []_[].OR.FLAGS "AD/D.OR.A,DBUS/PC FLAGS,RSRC/0A,A/@@1,DEST/AD,B/@@1" ; 1768 []_[].OR.[] "AD/A.OR.B,A/@@3,B/@@2,B/@@1,DEST/AD" ; 1769 []_[].XOR.# "AD/D.XOR.A,DBUS/DBM,DBM/#,DEST/AD,A/@@2,B/@@1" ; 1770 []_[].XOR.AC "AD/D.XOR.A,DBUS/RAM,RAMADR/AC#,A/@@1,DEST/AD,B/@@2" ; 1771 []_[].XOR.[] "AD/A.XOR.B,A/@@3,B/@@1,B/@@2,DEST/AD" ; 1772 ; 1773 [] LEFT_0 "AD/57,RSRC/0B,DEST/AD,B/@@1" ; 1774 [] RIGHT_0 "AD/53,RSRC/D0,DEST/AD,B/@@1" ; 1775 [] LEFT_-1 "AD/54,RSRC/0B,DEST/AD,A/MASK,B/@@1" ; 1776 [] RIGHT_-1 "AD/53,RSRC/0A,DEST/AD,A/MASK,B/@@1" ; 1777 ; 1778 ; 1779 []_+SIGN "[@@1]_[@@1].AND.#, #/777, HOLD RIGHT" ; 1780 []_-SIGN "[@@1]_[@@1].OR.#, #/777000, HOLD RIGHT" ; 1781 ;THE FOLLOWING 2 MACROS ARE USED IN DOUBLE FLOATING STUFF ; 1782 ; THEY ASSUME THAT THE OPERAND HAS BEEN SHIFTED RIGHT 1 PLACE. ; 1783 ; THEY SHIFT 1 MORE PLACE ; 1784 []_+SIGN*.5 "AD/.NOT.D.AND.A,A/@@1,B/@@1,DEST/AD*.5,DBUS/DBM,DBM/#,#/777400,RSRC/0A" ; 1785 []_-SIGN*.5 "AD/D.OR.A,A/@@1,B/@@1,DEST/AD*.5,DBUS/DBM,DBM/#,#/777400,RSRC/0A" ; 1786 ; 1787 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 42 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH CHIP -- Q ; 1788 .TOC "MACROS -- DATA PATH CHIP -- Q" ; 1789 ; 1790 Q-[] "AD/Q-A-.25,A/@@1,ADD .25" ; 1791 Q.AND.NOT.[] "AD/.NOT.A.AND.Q,A/@@1,DEST/PASS" ; 1792 Q_[] "AD/A,DEST/Q_AD,A/@@1" ; 1793 Q_[]-[] "AD/A-B-.25,A/@@1,B/@@2,DEST/Q_AD,ADD .25" ; 1794 Q_[]+[] "AD/A+B,A/@@1,B/@@2,DEST/Q_AD" ; 1795 Q_[].AND.[] "AD/A.AND.B,A/@@1,B/@@2,DEST/Q_AD" ; 1796 Q_.NOT.AC[] "AD/.NOT.D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DEST/Q_AD,DT/3T" ; 1797 Q_-[] "AD/-A-.25,DEST/Q_AD,A/@@1, ADD .25" ; 1798 Q_-1 "Q_-[ONE]" ; 1799 Q_-AC[] "AD/-D-.25,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DEST/Q_AD,ADD .25,DT/3T" ; 1800 Q_-Q "AD/-Q-.25,ADD .25,DEST/Q_AD" ; 1801 Q_AC "AD/D,DBUS/RAM,RAMADR/AC#,DEST/Q_AD,CHK PARITY" ; 1802 Q_AC[] "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DEST/Q_AD,CHK PARITY,DT/3T" ; 1803 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/ ; 1804 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" ; 1805 Q_.NOT.Q "AD/.NOT.Q,DEST/Q_AD" ; 1806 Q_# "AD/D,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1807 Q_0 "AD/ZERO,DEST/Q_AD" ; 1808 Q_0 XWD [] "AD/47,DEST/Q_AD,DBM/#,DBUS/DBM,#/@@1,RSRC/DA,A/MASK" ; 1809 Q_Q+.25 "AD/0+Q,DEST/Q_AD,ADD .25" ; 1810 Q_Q+1 "AD/A+Q,A/ONE,DEST/Q_AD" ; 1811 Q_Q-1 "AD/Q-A-.25,A/ONE,DEST/Q_AD, ADD .25" ; 1812 Q_Q+AC "AD/D+Q,DBUS/RAM,RAMADR/AC#,DEST/Q_AD" ; 1813 Q_Q*.5 "[MAG]_[MASK]*.5 LONG, SHSTYLE/NORM" ; 1814 Q_Q*2 "[MASK]_[MAG]*2 LONG, SHSTYLE/NORM" ; 1815 Q_Q.OR.# "AD/D.OR.Q,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1816 Q_Q.AND.# "AD/D.AND.Q,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1817 Q_Q.AND.[] "AD/A.AND.Q,A/@@1,DEST/Q_AD" ; 1818 Q_Q.AND.NOT.[] "AD/.NOT.A.AND.Q,A/@@1,DEST/Q_AD" ; 1819 Q_Q+[] "AD/A+Q,A/@@1,DEST/Q_AD" ; 1820 Q_[].AND.Q "AD/A.AND.Q,A/@@1,DEST/Q_AD" ; 1821 Q_[].OR.Q "AD/A.OR.Q,A/@@1,DEST/Q_AD" ; 1822 ; 1823 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 43 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH CHIP -- MISC. ; 1824 .TOC "MACROS -- DATA PATH CHIP -- MISC." ; 1825 ; 1826 CLEAR []0 "AD/D.AND.A,A/@@1,DBUS/DBM,DBM/#,#/377777,DEST/AD,B/@@1,HOLD RIGHT" ; 1827 CLEAR ARX0 "CLEAR [ARX]0" ; 1828 ; 1829 ;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS ; 1830 READ XR "AD/D,DBUS/RAM,RAMADR/XR#" ; 1831 READ [] "AD/B,B/@@1" ; 1832 READ Q "AD/Q" ; 1833 ; 1834 ;TEST BITS IN REGISTERS (SKIP IF ZERO) ; 1835 TR [] "AD/D.AND.A,DBUS/DBM,DBM/#,A/@@1,SKIP ADR.EQ.0,DT/3T" ; 1836 TL [] "AD/D.AND.A,DBUS/DBM,DBM/#,A/@@1,SKIP ADL.EQ.0,DT/3T" ; 1837 ; 1838 ; 1839 ;CAUSE BITS -2 AND -1 TO MATCH BIT 0. ; 1840 FIX [] SIGN "AD/D,DEST/A,A/@@1,B/@@1,DBUS/DP,HOLD RIGHT" ; 1841 ; 1842 ;GENERATE A MASK IN Q AND ZERO A 2901 REGISTER ; 1843 GEN MSK [] "AD/ZERO,DEST/Q_Q*2,B/@@1,ONES" ; 1844 ; 1845 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 44 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- STORE IN AC ; 1846 .TOC "MACROS -- STORE IN AC" ; 1847 ; 1848 FM WRITE "FMWRITE/1" ; 1849 ; 1850 AC[]_[] VIA AD "AD/B,DEST/PASS,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE,CHK PARITY" ; 1851 AC_[] VIA AD "AD/B,DEST/PASS,B/@@1,RAMADR/AC#,DBUS/DP,FM WRITE,CHK PARITY" ; 1852 AC[]_[] "AD/A,DEST/A,B/@@2,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP, FM WRITE" ; 1853 AC[]_[] TEST "AD/D,DBUS/DP,DEST/A,B/@@2,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP, FM WRITE" ; 1854 AC[]_[]+1 "AD/A+B,DEST/PASS,A/ONE,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1855 AC[]_[]*2 "AD/A+B,DEST/PASS,A/@@2,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1856 AC_[] "AD/A,DEST/A,B/@@1,A/@@1,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1857 AC_[] TEST "AD/D,DBUS/DP,DEST/A,B/@@1,A/@@1,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1858 AC_[]+1 "AD/A+B,DEST/PASS,A/ONE,B/@@1,RAMADR/AC#, FM WRITE" ; 1859 AC_[]+Q "AD/A+Q,DEST/PASS,A/@@1,B/@@1,RAMADR/AC#, FM WRITE" ; 1860 AC[]_[]+Q "AD/A+Q,DEST/PASS,A/@@2,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1, FM WRITE" ; 1861 AC[]_[]-[] "AD/A-B-.25,DEST/PASS,B/@@3,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE,ADD .25" ; 1862 AC[]_[]+[] "AD/A+B,DEST/PASS,B/@@3,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1863 AC_[]+[] "AD/A+B,DEST/PASS,B/@@2,A/@@1,RAMADR/AC#,DBUS/DP,FM WRITE" ; 1864 AC_[]-[] "AD/A-B-.25,DEST/PASS,B/@@2,A/@@1,RAMADR/AC#,DBUS/DP,FM WRITE,ADD .25" ; 1865 AC[]_[].AND.[] "AD/A.AND.B,DEST/PASS,B/@@3,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1866 AC[]_Q.AND.[] "AD/A.AND.Q,DEST/PASS,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1867 AC[]_[].EQV.Q "AD/A.EQV.Q,DEST/PASS,A/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1868 AC[]_-[] "AD/-B-.25,DEST/PASS,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE,ADD .25" ; 1869 AC_-[] "AD/-A-.25,DEST/PASS,A/@@1,RAMADR/AC#,DBUS/DP, ADD .25,FM WRITE" ; 1870 AC_[].OR.[] "AD/A.OR.B,A/@@1,B/@@2,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1871 AC[]_.NOT.[] "AD/.NOT.B,DEST/PASS,B/@@2,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1872 AC_.NOT.[] "AD/.NOT.B,DEST/PASS,B/@@1,RAMADR/AC#,DBUS/DP,FM WRITE" ; 1873 AC[]_-Q "AD/-Q-.25,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE,ADD .25" ; 1874 AC_Q "AD/Q,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1875 AC[]_0 "AD/ZERO,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP, FM WRITE" ; 1876 AC[]_1 "AD/B,DEST/PASS,B/ONE,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP,FM WRITE" ; 1877 AC[]_Q "AD/Q,RAMADR/AC*#,ACALU/AC+N,ACN/@@1,DBUS/DP, FM WRITE" ; 1878 ; 1879 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 45 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- MICROCODE WORK SPACE ; 1880 .TOC "MACROS -- MICROCODE WORK SPACE" ; 1881 ; 1882 ; 1883 WORK[]_Q "AD/Q,DEST/PASS,RAMADR/#,WORK/@@1,FM WRITE" ; 1884 Q_WORK[] "AD/D,DEST/Q_AD,RAMADR/#,DBUS/RAM,WORK/@@1,DT/3T" ; 1885 WORK[]_0 "AD/ZERO,DEST/PASS,RAMADR/#,WORK/@@1,FM WRITE" ; 1886 WORK[]_1 "AD/B,DEST/PASS,RAMADR/#,WORK/@@1,B/ONE,FM WRITE" ; 1887 WORK[]_[] "AD/B,DEST/PASS,RAMADR/#,WORK/@@1,B/@@2,FM WRITE" ; 1888 WORK[]_[] CLR LH "AD/47,RSRC/AB,DEST/PASS,RAMADR/#,WORK/@@1,B/@@2,A/MASK,FM WRITE" ; 1889 WORK[]_[]-1 "AD/A-B-.25,A/@@2,B/ONE,DEST/PASS,RAMADR/#,WORK/@@1,FM WRITE, ADD .25" ; 1890 WORK[]_.NOT.[] "AD/.NOT.B,DEST/PASS,RAMADR/#,WORK/@@1,B/@@2,FM WRITE" ; 1891 WORK[]_[].AND.[] "AD/A.AND.B,DEST/PASS,RAMADR/#,WORK/@@1,A/@@2,B/@@3,FM WRITE" ; 1892 WORK[]_[]+[] "AD/A+B,DEST/PASS,RAMADR/#,WORK/@@1,A/@@2,B/@@3,FM WRITE" ; 1893 [].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1894 [].AND.WORK[] "AD/D.AND.A,A/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1895 []_[]+WORK[] "AD/D+A,A/@@2,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@3,DT/3T" ; 1896 []_[].AND.WORK[] "AD/D.AND.A,A/@@2,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@3,DT/3T" ; 1897 []_[].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@@2,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@3,DT/3T" ; 1898 []_[].OR.WORK[] "AD/D.OR.A,A/@@2,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@3,DT/3T" ; 1899 []_WORK[] "AD/D,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1900 []_.NOT.WORK[] "AD/.NOT.D,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1901 []_-WORK[] "AD/-D-.25,ADD .25,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1902 []_WORK[]+1 "AD/D+A,A/ONE,DEST/AD,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@2,DT/3T" ; 1903 Q_Q-WORK[] "AD/Q-D-.25,DEST/Q_AD,DBUS/RAM,RAMADR/#,WORK/@@1,ADD .25,DT/3T" ; 1904 []_[]-WORK[] "AD/A-D-.25,DEST/AD,A/@@2,B/@@1,DBUS/RAM,RAMADR/#,WORK/@@3,ADD .25,DT/3T" ; 1905 ; 1906 RAM_[] "AD/B,DEST/PASS,RAMADR/RAM,B/@@1,FM WRITE" ; 1907 ; 1908 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 46 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- MEMORY CONTROL ; 1909 .TOC "MACROS -- MEMORY CONTROL" ; 1910 ; 1911 MEM CYCLE "MEM/1" ; 1912 ; 1913 ;THE FOLLOWING MACROS CONTROL MEMORY ADDRESS ; 1914 LOAD VMA "MEM CYCLE,LDVMA/1" ; 1915 FORCE EXEC "FORCE EXEC/1" ; 1916 VMA PHYSICAL "PHYSICAL/1,FORCE EXEC/1,FORCE USER/0,EXT ADR/1,LOAD VMA" ; 1917 VMA PHYSICAL WRITE "LOAD VMA,VMA PHYSICAL,WAIT/1,MEM/1,WRITE CYCLE/1,WRITE TEST/0" ; 1918 VMA PHYSICAL READ "LOAD VMA,VMA PHYSICAL,WAIT/1,MEM/1,READ CYCLE/1,WRITE TEST/0" ; 1919 VMA EXTENDED "EXT ADR/1" ; 1920 ; 1921 PXCT EA "PXCT/E1" ; 1922 PXCT DATA "PXCT/D1" ; 1923 PXCT BLT DEST "PXCT/D1" ; 1924 PXCT BYTE PTR EA "PXCT/E2" ; 1925 PXCT BYTE DATA "PXCT/D2" ; 1926 PXCT STACK WORD "PXCT/D2" ; 1927 PXCT BLT SRC "PXCT/D2" ; 1928 PXCT EXTEND EA "PXCT/E2" ; 1929 ; 1930 ;THE FOLLOWING MACROS GET MEMORY CYCLES STARTED ; 1931 WRITE TEST "WRITE TEST/1,WAIT/1" ; 1932 START READ "MEM CYCLE,READ CYCLE/1,WAIT/1" ; 1933 START WRITE "MEM CYCLE,WRITE TEST,WRITE CYCLE/1,WAIT/1" ; 1934 START NO TEST WRITE "MEM CYCLE,WRITE CYCLE/1,WAIT/1" ; 1935 FETCH "START READ,FETCH/1,PXCT/CURRENT,WAIT/1" ; 1936 ; 1937 ;THE FOLLOWING MACROS COMPLETE MEMORY CYCLES ; 1938 MEM WAIT "MEM CYCLE,WAIT/1" ; 1939 MEM READ "MEM WAIT,DBUS/DBM,DBM/MEM" ; 1940 MEM WRITE "MEM WAIT,DT/3T" ; 1941 SPEC MEM READ "SPEC/WAIT,DBUS/DBM,DBM/MEM" ; 1942 SPEC MEM WRITE "SPEC/WAIT,DT/3T" ; 1943 ; 1944 ; 1945 ;THINGS WHICH WRITE MEMORY ; 1946 MEM_[] "AD/B,DEST/PASS,B/@@1,DBUS/DP,RAMADR/VMA,CHK PARITY" ; 1947 MEM_Q "AD/Q,DBUS/DP,RAMADR/VMA" ; 1948 ; 1949 ; 1950 ;THINGS WHICH READ MEMORY ; 1951 []_IO DATA "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@@1" ; 1952 []_MEM "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@@1,CHK PARITY" ; 1953 []_MEM THEN FETCH "AD/D,DBUS/DBM,RAMADR/VMA,DEST/A,A/PC,B/@@1,CHK PARITY, FETCH, LOAD VMA" ; 1954 []_MEM*.5 "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@@1,CHK PARITY" ; 1955 []_MEM.AND.MASK "AD/D.AND.A,A/MASK,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@@1,CHK PARITY" ; 1956 []_(MEM.AND.[])*.5 "AD/D.AND.A,A/@@2,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@@1,CHK PARITY" ; 1957 Q_MEM "AD/D,DBUS/DBM,RAMADR/VMA,DEST/Q_AD,CHK PARITY" ; 1958 []_MEM AND READ [] "AD/D,DBUS/DBM,RAMADR/VMA,DEST/A,B/@@1,A/@@2,CHK PARITY" ; 1959 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 47 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- VMA ; 1960 .TOC "MACROS -- VMA" ; 1961 ; 1962 VMA_[] "AD/A,A/@@1,DEST/PASS,LOAD VMA" ; 1963 VMA_[] WITH FLAGS "AD/A,A/@@1,DEST/PASS,LOAD VMA,WAIT/1, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T" ; 1964 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/ ; 1965 VMA_[]+1 "AD/A+B,A/ONE,B/@@1,DEST/AD,HOLD LEFT,LOAD VMA" ; 1966 VMA_[]-1 "AD/B-A-.25,A/ONE,B/@@1,ADD .25,HOLD LEFT,LOAD VMA" ; 1967 VMA_[]+XR "AD/D+A,DBUS/RAM,RAMADR/XR#,A/@@1,LOAD VMA" ; 1968 VMA_[]+[] "AD/A+B,DEST/PASS,A/@@1,B/@@2,LOAD VMA" ; 1969 ; 1970 NEXT [] PHYSICAL WRITE "AD/A+B,A/ONE,B/@@1,DEST/AD,HOLD LEFT,LOAD VMA, VMA PHYSICAL, START WRITE" ; 1971 ; 1972 ;MACROS TO LOAD A 2901 REGISTER WITH VMA FLAG BITS ; 1973 []_VMA FLAGS "AD/45,DEST/AD,B/@@1,DBM/#,DBUS/DBM,RSRC/D0,A/MASK" ; 1974 []_VMA IO READ "[@@1]_VMA FLAGS,READ CYCLE/1,IO CYCLE/1,WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, FOR ; 1975 []_VMA IO WRITE "[@@1]_VMA FLAGS,WRITE CYCLE/1,IO CYCLE/1,WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, F ; 1976 ; 1977 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 48 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- TIME CONTROL ; 1978 .TOC "MACROS -- TIME CONTROL" ; 1979 ; 1980 AC "RAMADR/AC#" ; 1981 AC[] "RAMADR/AC*#,ACALU/AC+N,ACN/@@1" ; 1982 XR "RAMADR/XR#" ; 1983 VMA "RAMADR/VMA" ; 1984 WORK[] "RAMADR/#, WORK/@@1" ; 1985 ; 1986 2T "T/2T" ; 1987 3T "T/3T" ; 1988 4T "T/4T" ; 1989 5T "T/5T" ; 1990 ; 1991 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 49 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SCAD, SC, FE LOGIC ; 1992 .TOC "MACROS -- SCAD, SC, FE LOGIC" ; 1993 ; 1994 LOAD SC "LOADSC/1" ; 1995 LOAD FE "LOADFE/1" ; 1996 STEP SC "SCAD/A-1,SCADA/SC,LOAD SC,SKIP/SC" ; 1997 SHIFT "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1, LOAD FE, MULTI SHIFT/1" ; 1998 ; 1999 SC_SC-1 "SCAD/A-1,SCADA/SC,LOAD SC" ; 2000 SC_SHIFT "SCAD/A+B,SCADA/S#,S#/0,SCADB/SHIFT,LOAD SC" ; 2001 SC_SHIFT-1 "SCAD/A+B,SCADA/S#,S#/1777,SCADB/SHIFT,LOAD SC" ; 2002 SC_SHIFT-2 "SCAD/A+B,SCADA/S#,S#/1776,SCADB/SHIFT,LOAD SC" ; 2003 SC_-SHIFT "SCAD/A-B,SCADA/S#,S#/0000,SCADB/SHIFT,LOAD SC" ; 2004 SC_-SHIFT-1 "SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1777,LOAD SC" ; 2005 SC_-SHIFT-2 "SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1776,LOAD SC" ; 2006 SC_SC-EXP "SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD SC" ; 2007 SC_SC-EXP-1 "SCAD/A-B-1,SCADA/SC,SCADB/EXP,LOAD SC" ; 2008 SC_SC-FE-1 "SCAD/A-B-1,SCADA/SC,SCADB/FE,LOAD SC" ; 2009 SC_SC-FE "SCAD/A-B,SCADA/SC,SCADB/FE,LOAD SC" ; 2010 SC_EXP "SCAD/A+B,SCADA/S#,S#/0,SCADB/EXP,LOAD SC" ; 2011 SC_S#-FE "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD SC" ; 2012 SC_FE+S# "SCAD/A+B,SCADA/S#,SCADB/FE,LOAD SC" ; 2013 SC_FE "SCAD/A.OR.B,SCADA/S#,S#/0,SCADB/FE,LOAD SC" ; 2014 SC_S# "SCAD/A,SCADA/S#,LOAD SC" ; 2015 ; 2016 ; 2017 SC_36. "SC_S#,S#/36." ; 2018 SC_35. "SC_S#,S#/35." ; 2019 SC_34. "SC_S#,S#/34." ; 2020 SC_28. "SC_S#,S#/28." ; 2021 SC_27. "SC_S#,S#/27." ; 2022 SC_26. "SC_S#,S#/26." ; 2023 SC_24. "SC_S#,S#/24." ; 2024 SC_22. "SC_S#,S#/22." ; 2025 SC_20. "SC_S#,S#/20." ; 2026 SC_19. "SC_S#,S#/19." ; 2027 SC_14. "SC_S#,S#/14." ; 2028 SC_11. "SC_S#,S#/11." ; 2029 SC_9. "SC_S#,S#/9." ; 2030 SC_8. "SC_S#,S#/8." ; 2031 SC_7 "SC_S#,S#/7" ; 2032 SC_6 "SC_S#,S#/6" ; 2033 SC_5 "SC_S#,S#/5" ; 2034 SC_4 "SC_S#,S#/4" ; 2035 SC_3 "SC_S#,S#/3" ; 2036 SC_2 "SC_S#,S#/2" ; 2037 SC_1 "SC_S#,S#/1" ; 2038 SC_0 "SC_S#,S#/0." ; 2039 SC_-1 "SC_S#,S#/1777" ; 2040 SC_-2 "SC_S#,S#/1776" ; 2041 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 50 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SCAD, SC, FE LOGIC ; 2042 ; 2043 FE_-FE "SCAD/A-B,SCADA/S#,S#/0,SCADB/FE,LOAD FE" ; 2044 FE_-FE-1 "SCAD/A-B,SCADA/S#,S#/1777,SCADB/FE,LOAD FE" ; 2045 FE_FE-19 "SCAD/A+B,SCADB/FE,SCADA/S#,S#/1550,LOAD FE" ; 2046 FE_-FE+S# "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE" ; 2047 FE_FE+SC "SCAD/A+B,SCADA/SC,SCADB/FE, LOAD FE" ; 2048 FE_FE.AND.S# "SCAD/A.AND.B,SCADA/S#,SCADB/FE, LOAD FE" ; 2049 FE_P "SCAD/A,SCADA/BYTE1, LOAD FE" ; 2050 FE_S "SCAD/A+B, SCADA/S#, S#/0 ,SCADB/SIZE, LOAD FE" ; 2051 FE_S+2 "SCAD/A+B, SCADA/S#, S#/20, SCADB/SIZE, LOAD FE" ; 2052 FE_-S-20 "SCAD/A-B,SCADA/S#,S#/1760,SCADB/SIZE, LOAD FE" ; 2053 FE_-S-10 "SCAD/A-B,SCADA/S#,S#/1770,SCADB/SIZE, LOAD FE" ; 2054 FE_S# "SCAD/A,SCADA/S#,LOAD FE" ; 2055 FE_S#-FE "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE" ; 2056 FE_-2 "FE_S#,S#/1776" ; 2057 FE_-12. "FE_S#,S#/1764" ; 2058 FE_0 "FE_S#,S#/0" ; 2059 FE_-1 "FE_S#,S#/1777" ; 2060 FE_FE+1 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1,LOAD FE" ; 2061 FE_FE+2 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/2,LOAD FE" ; 2062 FE_FE+10 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/10,LOAD FE" ; 2063 FE_FE-1 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1777,LOAD FE" ; 2064 FE_FE+4 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/4,LOAD FE" ; 2065 FE_EXP "SCAD/A+B,SCADA/S#,S#/0,SCADB/EXP,LOAD FE" ; 2066 FE_SC+EXP "SCAD/A+B,SCADA/SC,SCADB/EXP,LOAD FE" ; 2067 FE_SC-EXP "SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD FE" ; 2068 FE_FE+P "SCAD/A+B,SCADA/BYTE1,SCADB/FE, LOAD FE" ; 2069 FE_FE-200 "SCAD/A+B,SCADA/S#,S#/1600,SCADB/FE,LOAD FE" ; 2070 FE_-FE+200 "SCAD/A-B,SCADA/S#,S#/200,SCADB/FE,LOAD FE" ; 2071 FE_FE+S# "SCAD/A+B,SCADA/S#,SCADB/FE,LOAD FE" ; 2072 ; 2073 ; 2074 GEN 17-FE "SCAD/A-B,SCADA/S#,S#/210,SCADB/FE" ; 2075 ; 2076 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 51 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- DATA PATH FIELD CONTROL ; 2077 .TOC "MACROS -- DATA PATH FIELD CONTROL" ; 2078 ; 2079 HOLD LEFT "CLKL/0,GENL/0" ; 2080 ADL PARITY "GENL/1" ; 2081 CHK PARITY L "CHKL/1" ; 2082 ; 2083 HOLD RIGHT "CLKR/0,GENR/0" ; 2084 ADR PARITY "GENR/1" ; 2085 CHK PARITY R "CHKR/1" ; 2086 ; 2087 AD PARITY "AD PARITY OK/1" ; 2088 CHK PARITY "CHKL/1,CHKR/1" ; 2089 BAD PARITY "CHKL/0,CHKR/0" ; 2090 ; 2091 INH CRY18 "SPEC/INHCRY18" ; 2092 ; 2093 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 52 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SHIFT PATH CONTROL ; 2094 .TOC "MACROS -- SHIFT PATH CONTROL" ; 2095 ; 2096 ASH "SHSTYLE/NORM" ;ASH SHIFT ; 2097 LSH "SHSTYLE/NORM" ;LSH SHIFT (SAME HARDWARE AS ASH BUT ; 2098 ; BITS -2 AND -1 ARE PRESET TO ZERO) ; 2099 ROT "SHSTYLE/ROT" ; 2100 LSHC "SHSTYLE/LSHC" ; 2101 ASHC "SHSTYLE/ASHC" ; 2102 ROTC "SHSTYLE/ROTC" ; 2103 ONES "SHSTYLE/ONES" ;SHIFT IN 1 BITS ; 2104 DIV "SHSTYLE/DIV" ;SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT ; 2105 ; COMPLEMENT BIT AS IT GOES AROUND) ; 2106 ; 2107 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 53 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SPECIAL FUNCTIONS ; 2108 .TOC "MACROS -- SPECIAL FUNCTIONS" ; 2109 ; 2110 LOAD IR "SPEC/LOADIR" ;LOAD INSTRUCTION REG FROM ; 2111 ; DBUS0-DBUS8, LOAD AC# FROM ; 2112 ; DBUS9-DBUS12 ; 2113 ; UPDATE LAST-INST-PUBLIC PC FLAG ; 2114 LOAD INST "SPEC/LDINST" ; 2115 LOAD INST EA "SPEC/LOADXR,PXCT/CURRENT" ; 2116 LOAD BYTE EA "SPEC/LOADXR,PXCT/E2" ; 2117 LOAD IND EA "SPEC/LOADXR,PXCT/E1" ; 2118 LOAD SRC EA "SPEC/LOADXR,PXCT/BIS-SRC-EA" ; 2119 LOAD DST EA "SPEC/LOADXR,PXCT/BIS-DST-EA" ; 2120 ADD .25 "CRY38/1" ;GENERATE CARRY IN TO BIT 37 ; 2121 CALL [] "CALL/1,J/@@1" ;CALL A SUBROUTINE ; 2122 LOAD PXCT "SPEC/LDPXCT" ;LOAD PXCT FLAGS IF EXEC MODE ; 2123 TURN OFF PXCT "SPEC/PXCT OFF" ; 2124 LOAD PAGE TABLE "SPEC/LDPAGE" ; 2125 LOAD AC BLOCKS "SPEC/LDACBLK" ; 2126 SWEEP "SPEC/SWEEP,PHYSICAL/1" ; 2127 CLRCSH "SPEC/CLRCSH,PHYSICAL/1" ; 2128 LOAD PI "SPEC/LDPI" ; 2129 SET HALT "SPEC/#,#/74" ; 2130 CLEAR CONTINUE "SPEC/#,#/40" ; 2131 CLEAR EXECUTE "SPEC/#,#/20" ; 2132 CLEAR RUN "SPEC/#,#/10" ; 2133 UNHALT "SPEC/#,#/62" ; 2134 SET APR ENABLES "SPEC/APR EN" ; 2135 ABORT MEM CYCLE "DBUS/DBM,RAMADR/VMA,DBM/MEM,AD/ZERO,SPEC/MEMCLR,LOAD VMA" ; 2136 CLR IO BUSY "SPEC/CLR IO BUSY" ; 2137 CLR IO LATCH "SPEC/CLR IO LATCH" ; 2138 ; 2139 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 54 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- PC FLAGS ; 2140 .TOC "MACROS -- PC FLAGS" ; 2141 ; 2142 CHANGE FLAGS "SPEC/FLAGS" ; 2143 ; 2144 SET AROV "CHANGE FLAGS, HOLD USER/1, SETOV/1, TRAP1/1" ; 2145 SET FOV "CHANGE FLAGS, HOLD USER/1, SETFOV/1, TRAP1/1" ; 2146 SET NO DIVIDE "CHANGE FLAGS, HOLD USER/1, SETOV/1, SETNDV/1, TRAP1/1" ; 2147 SET FL NO DIVIDE "SET NO DIVIDE, SETFOV/1" ; 2148 ; 2149 ASH AROV "SPEC/ASHOV" ; 2150 SET FPD "CHANGE FLAGS, HOLD USER/1, SETFPD/1" ; 2151 CLR FPD "CHANGE FLAGS, HOLD USER/1, CLRFPD/1" ; 2152 ; 2153 SET PDL OV "CHANGE FLAGS, HOLD USER/1, TRAP2/1" ; 2154 SET TRAP1 "CHANGE FLAGS, HOLD USER/1, TRAP1/1" ; 2155 SET TRAP3 "CHANGE FLAGS, HOLD USER/1, TRAP1/1, TRAP2/1" ; 2156 ; 2157 LOAD PCU "CHANGE FLAGS, LD PCU/1" ; 2158 UPDATE USER "CHANGE FLAGS, HOLD USER/1" ; 2159 LEAVE USER "CHANGE FLAGS, HOLD USER/0" ; 2160 ; 2161 JFCL FLAGS "CHANGE FLAGS, HOLD USER/1, JFCLFLG/1" ; 2162 ; 2163 LOAD FLAGS "CHANGE FLAGS, LD FLAGS/1" ; 2164 EXP TEST "SPEC/EXPTST" ; 2165 AD FLAGS "CHANGE FLAGS, ADFLGS/1, HOLD USER/1" ; 2166 ; 2167 NO DIVIDE "SET NO DIVIDE, J/NIDISP" ; 2168 FL NO DIVIDE "SET FL NO DIVIDE, J/NIDISP" ; 2169 ; 2170 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 55 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- PAGE FAIL FLAGS ; 2171 .TOC "MACROS -- PAGE FAIL FLAGS" ; 2172 ; 2173 STATE_[] "[FLG]_#,STATE/@@1,HOLD LEFT" ; 2174 END STATE "[FLG]_0, HOLD LEFT" ; 2175 ; 2176 END BLT "END STATE" ; 2177 END MAP "END STATE" ; 2178 ; 2179 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 56 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SINGLE SKIPS ; 2180 .TOC "MACROS -- SINGLE SKIPS" ; 2181 ;SKIPS IF: ; 2182 SKIP IF AC0 "SKIP/AC0" ;THE AC NUMBER IS ZERO ; 2183 SKIP DP0 "SKIP/DP0" ;DP BIT 0=1 ; 2184 SKIP DP18 "SKIP/DP18" ;DP BIT 18=1 ; 2185 SKIP AD.EQ.0 "SKIP/ADEQ0,DT/3T" ;ADDER OUTPUT IS ZERO ; 2186 SKIP AD.LE.0 "SKIP/LE,DT/3T" ;ADDER OUTPUT IS LESS THAN OR EQUAL ; 2187 ; TO ZERO. ; 2188 SKIP ADL.LE.0 "SKIP/LLE,DT/3T" ;ADDER LEFT IS LESS THAN OR EQUAL ; 2189 ; TO ZERO. ; 2190 SKIP FPD "SKIP/FPD" ;FIRST-PART-DONE PC FLAG IS SET ; 2191 SKIP KERNEL "SKIP/KERNEL" ;USER=0 ; 2192 SKIP IO LEGAL "SKIP/IOLGL" ;USER=0 OR USER IOT=1 ; 2193 SKIP CRY0 "SKIP/CRY0" ;ADDER BIT CRY0=1 (NOT PC FLAG BIT) ; 2194 SKIP CRY1 "SKIP/CRY1" ;ADDER BIT CRY1=1 (NOT PC FLAG BIT) ; 2195 SKIP CRY2 "SKIP/CRY2,DT/3T" ;ADDER BIT CRY2=1 ; 2196 SKIP JFCL "SKIP/JFCL" ;IF JFCL SHOULD JUMP ; 2197 SKIP ADL.EQ.0 "SKIP/ADLEQ0" ;ALU BITS -2 TO 17 = 0 ; 2198 SKIP ADR.EQ.0 "SKIP/ADREQ0" ;ALU BITS 18-35 = 0 ; 2199 SKIP IRPT "SKIP/INT" ;INTERRUPT IS PENDING ; 2200 SKIP -1MS "SKIP/-1 MS" ;DON'T SKIP IF 1MS TIMER HAS EXPIRED. ; 2201 SKIP AC REF "SKIP/ACREF" ;VMA IS 0-17 ; 2202 SKIP EXECUTE "SKIP/EXECUTE" ;CONSOLE EXECUTE ; 2203 TXXX TEST "SKIP/TXXX" ;TEST INSTRUCTION SHOULD SKIP ; 2204 ; 2205 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 57 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 MACROS -- SPECIAL DISPATCH MACROS ; 2206 .TOC "MACROS -- SPECIAL DISPATCH MACROS" ; 2207 ; 2208 NEXT INST "DISP/NICOND,SPEC/NICOND,J/NICOND" ; 2209 NEXT INST FETCH "DISP/NICOND,SPEC/NICOND,J/NICOND-FETCH" ; 2210 EA MODE DISP "DISP/EAMODE,RAMADR/XR#" ; 2211 AREAD "DISP/AREAD,WAIT/1,AREAD/1,MEM/1,J/0" ; 2212 B DISP "DISP/BDISP" ; 2213 BWRITE DISP "B DISP,MEM/1,BWRITE/1,WRITE CYCLE/1,J/BWRITE" ; 2214 INST DISP "DISP/DROM,J/0" ; 2215 EXIT "BWRITE DISP,SPEC/0, WRITE TEST/1" ; 2216 AD FLAGS EXIT "BWRITE DISP, WRITE TEST/0, AD FLAGS" ; 2217 FL-EXIT "WRITE CYCLE/1,WRITE TEST/1,MEM/1,BWRITE/1,B DISP,J/FL-BWRITE" ; 2218 TEST DISP "B DISP,J/TEST-TABLE" ; 2219 SKIP-COMP DISP "B DISP,J/SKIP-COMP-TABLE" ; 2220 JUMP DISP "B DISP,J/JUMP-TABLE" ; 2221 DONE "VMA_[PC],LOAD VMA, FETCH, NEXT INST FETCH" ; 2222 JUMPA "[PC]_[AR],HOLD LEFT,LOAD VMA,FETCH,NEXT INST FETCH" ; 2223 UUO "[HR]_[HR].AND.#,#/777740,HOLD RIGHT,J/UUOGO" ; 2224 LUUO "[AR]_0 XWD [40], J/LUUO1" ; 2225 PAGE FAIL TRAP "TL [FLG], FLG.PI/1, J/PFT" ; 2226 TAKE INTERRUPT "[FLG]_[FLG].OR.#,FLG.PI/1,HOLD RIGHT,J/PI" ; 2227 TAKE 1-PROCEED TRAP "[FLG]_[FLG].AND.NOT.#,FLG.1PROC/1,FLG.2PROC/1,HOLD RIGHT,J/1PROC-TRAP" ; 2228 INTERRUPT TRAP "WORK[SV.AR]_[AR], J/ITRAP" ; 2229 MUL DISP "DISP/MUL" ; 2230 DIV DISP "DISP/DIV" ; 2231 BYTE DISP "DISP/BYTE, DT/3T" ; 2232 SCAD DISP "DISP/SCAD0" ;SKIP (2'S WEIGHT) IS SCAD IS MINUS ; 2233 RETURN [] "DISP/RETURN,J/@@1" ; 2234 PI DISP "DISP/PI" ; 2235 NORM DISP "DISP/NORM,DT/3T" ; 2236 DISMISS "TR [PI], #/077400, CALL [JEN1],DT/3T" ; 2237 CALL LOAD PI "[T0]_[PI] SWAP, CALL [LDPI2]" ; 2238 HALT [] "AD/47,DEST/AD,B/T1,DBM/#,DBUS/DBM,HALT/@@1,RSRC/DA,A/MASK, J/HALTED" ; 2239 CLEANUP DISP "READ [FLG], DBUS/DP, DISP/DP, 3T, J/CLEANUP" ; 2240 ; 2241 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 58 ; DSK: KSHACK; KS10 47 21:53:04 16-JAN-87 DISPATCH ROM MACROS ; 2242 .TOC "DISPATCH ROM MACROS" ; 2243 .DCODE ; 2244 ; 2245 ;"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS ; 2246 ; 2247 I "I/1" ; 2248 I-PF "I/1,VMA/0,READ/1" ; 2249 R "A/READ,READ/1" ; 2250 R-PF "A/RD-PF,READ/1" ; 2251 W "A/WRITE,TEST/1" ; 2252 RW "A/READ,TEST/1,READ/1" ; 2253 IW "I/1,TEST/1" ;IMMED WHICH STORE IN E. (SETZM, ETC.) ; 2254 IR "I/1,READ/1" ;START READ A GO TO EXECUTE CODE ; 2255 DBL R "A/DREAD,READ/1" ;AR!ARX _ E!E+1 ; 2256 DBL AC "A/DBLAC" ; 2257 SH "A/SHIFT,VMA/0,READ/1" ; 2258 SHC "A/DSHIFT,VMA/0,READ/1" ; 2259 FL-R "A/FP,READ/1" ;FLOATING POINT READ ; 2260 FL-RW "A/FP,READ/1,TEST/1" ; 2261 FL-I "A/FPI,READ/0" ;FLOATING POINT IMMEDIATE ; 2262 DBL FL-R "A/DFP,READ/1" ; 2263 IOT "A/IOT" ;CHECK FOR IO LEGAL ; 2264 ; 2265 ;"B FIELD" MACROS SAY HOW TO STORE RESULTS ; 2266 ; 2267 AC "B/AC" ; 2268 M "B/MEM,TEST/1,COND FUNC/1" ; 2269 B "B/BOTH,TEST/1,COND FUNC/1" ; 2270 S "B/SELF,TEST/1,COND FUNC/1" ; 2271 DAC "B/DBLAC" ; 2272 DBL B "B/DBLB,TEST/1,COND FUNC/1" ; 2273 FL-AC "FL-B/AC" ;FLOATING POINT ; 2274 FL-MEM "FL-B/MEM,TEST/1,COND FUNC/1" ;FLOATING POINT TO MEMORY ; 2275 FL-BOTH "FL-B/BOTH,TEST/1,COND FUNC/1" ;FLOATING POINT TO BOTH ; 2276 ROUND "ROUND/1" ;FLOATING POINT ROUNDED ; 2277 ; 2278 ; 2279 ;CONTROL BITS ; 2280 W TEST "TEST/1" ; 2281 AC DISP "ACDISP/1" ; 2282 .UCODE ; 2283 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 59 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 DISPATCH ROM MACROS ; 2284 ;;;-*-Fundamental-*- ; 2285 ; 2286 .BIN ; 2287 .TOC "POWER UP SEQUENCE" ; 2288 ; 2289 .UCODE ; 2290 ; 2291 ;HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON ; 2292 ; 2293 U 0000, 0002,3771,0012,4374,4007,0700,0000,0037,7777 ; 2294 0: [MASK]_#, #/377777 ;BUILD A MASK WITH U 0002, 0016,3445,1212,4174,4007,0700,0000,0000,0000 ; 2295 [MASK]_[MASK]*2 ; A ONE IN 36-BITS AND 0 U 0016, 0030,3551,1212,4374,4007,0700,0000,0000,0001 ; 2296 [MASK]_[MASK].OR.#,#/1 ; IN BITS -2,-1,36,37 U 0030, 0053,3447,1200,4174,4007,0700,0000,0000,0000 ; 2297 [MAG]_[MASK]*.5 ;MAKE CONSTANT U 0053, 0060,3771,0015,4374,4007,0700,0000,0000,0001 ; 2298 [XWD1]_#, #/1 ;CONSTANT WITH 1 IN EACH ; 2299 ; HALF WORD ; 2300 [ONE]_0 XWD [1], ;THE CONSTANT 1 U 0060, 0003,4751,1207,4374,4007,0700,0010,0000,0001 ; 2301 CALL/1 ;RESET STACK (CAN NEVER RETURN ; 2302 ; TO WHERE MR LEFT US) ; 2303 .IFNOT/ITS ; 2304 3: [AR]_0 XWD [376000] ;ADDRESS OF HALT STATUS ; 2305 ; BLOCK ; 2306 .IF/ITS U 0003, 0070,4751,1203,4374,4007,0700,0000,0000,0500 ; 2307 3: [AR]_0 XWD [500] ; ITS makes it 500, so start that way... ; 2308 .ENDIF/ITS U 0070, 0136,3333,0003,7174,4007,0700,0400,0000,0227 ; 2309 WORK[HSBADR]_[AR] ;SAVE FOR HALT LOOP U 0136, 0231,4221,0011,4364,4277,0700,0200,0000,0010 ; 2310 [UBR]_0, ABORT MEM CYCLE ;CLEAR THE UBR AND RESET ; 2311 ; MEMORY CONTROL LOGIC U 0231, 0236,4221,0010,4174,4477,0700,0000,0000,0000 ; 2312 [EBR]_0, LOAD AC BLOCKS ;CLEAR THE EBR AND FORCE ; 2313 ; PREVIOUS AND CURRENT AC ; 2314 ; BLOCKS TO ZERO U 0236, 0253,4221,0013,4174,4257,0700,0000,0000,0000 ; 2315 [FLG]_0, SET APR ENABLES ;CLEAR THE STATUS FLAGS AND ; 2316 ; DISABLE ALL APR CONDITIONS U 0253, 0271,3333,0013,7174,4007,0700,0400,0000,0230 ; 2317 WORK[APR]_[FLG] ;ZERO REMEMBERED ENABLES ; 2318 U 0271, 0301,3333,0013,7174,4007,0700,0400,0000,0300 ; 2319 WORK[TIME0]_[FLG] ;CLEAR TIME BASE U 0301, 0306,3333,0013,7174,4007,0700,0400,0000,0301 ; 2320 WORK[TIME1]_[FLG] ; .. ; 2321 .IF/PCST U 0306, 0311,3333,0013,7174,4007,0700,0400,0000,0233 ; 2322 WORK[PCST]_[FLG] ;Turn off PC sampling ; 2323 .ENDIF/PCST ; 2324 .IF/FULL U 0311, 0377,4223,0000,1174,4007,0700,0400,0000,1443 ; 2325 AC[BIN0]_0 ;COMPUTE A TABLE OF POWERS OF U 0377, 0401,3333,0007,1174,4007,0700,0400,0000,1444 ; 2326 AC[BIN1]_1 ; TEN U 0401, 0406,4221,0003,4174,4007,0700,2000,0071,0023 ; 2327 [AR]_0, SC_19. ;WE WANT TO GET 22 NUMBERS U 0406, 0435,3333,0007,7174,4007,0700,0400,0000,0344 ; 2328 WORK[DECLO]_1 ;STARTING WITH 1 U 0435, 0506,4223,0000,7174,4007,0700,0400,0000,0373 ; 2329 WORK[DECHI]_0 ; .. U 0506, 0511,3771,0002,4374,4007,0700,0000,0000,0344 ; 2330 [HR]_#, WORK/DECLO ;ADDRESS OF LOW WORD U 0511, 0527,3771,0006,4374,4007,0700,0000,0000,0373 ; 2331 [BRX]_#, WORK/DECHI ;ADDRESS OF HIGH WORD U 0527, 0010,0111,0706,4174,4007,0700,0200,0000,0010 ; 2332 TENLP: [BRX]_[BRX]+1, LOAD VMA ;ADDRESS THE HIGH WORD ; 2333 =0* [ARX]_AC[BIN1], ;LOW WORD TO ARX U 0010, 1310,3771,0004,1276,6007,0701,0010,0000,1444 ; 2334 CALL [DBSLOW] ;MULTIPLY BY TEN U 0012, 0553,3333,0005,6174,4007,0700,0400,0000,0000 ; 2335 RAM_[BR] ;SAVE HIGH WORD U 0553, 0556,0111,0702,4174,4007,0700,0200,0000,0010 ; 2336 [HR]_[HR]+1, LOAD VMA ;WHERE TO STORE LOW WORD U 0556, 0006,3333,0004,6174,4007,0630,2400,0060,0000 ; 2337 RAM_[ARX], STEP SC ;STORE LOW WORD AND SEE IF ; 2338 ; WE ARE DONE U 0006, 0527,4443,0000,4174,4007,0700,0000,0000,0000 ; 2339 =0 J/TENLP ;NOT YET--KEEP GOING U 0007, 0020,6553,0500,4374,4007,0321,0000,0033,0656 ; 2340 [BR].XOR.#, 3T, SKIP ADL.EQ.0, #/330656 ; 2341 ;DID WE GET THE RIGHT ANSWER ; 2342 ; IN THE TOP 18 BITS? U 0020, 2404,4751,1217,4374,4007,0700,0000,0000,1005 ; 2343 =0**0 HALT [MULERR] ;NO--CPU IS BROKEN ; 2344 .ENDIF/FULL ; 2345 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 60 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 POWER UP SEQUENCE ; 2346 U 0021, 3472,4221,0014,4174,4007,0700,0010,0000,0000 ; 2347 =0**1 [PI]_0, CALL [LOADPI] ;CLEAR PI STATE ; 2348 =1**1 ;CLEAR REGISTERS SO NO ; 2349 ;PARITY ERROR HAPPEN ; 2350 .IFNOT/FULL ; 2351 [ARX]_0 ;WRITTEN WHILE COMPUTING POWERS ; 2352 [BR]_0 ;OF 10 ; 2353 [BRX]_0 ; 2354 .ENDIF/FULL U 0031, 0563,4751,1217,4374,4007,0700,0000,0000,0120 ; 2355 [T1]_0 XWD [120] ;RH OF 120 CONTAINS START ADDRESS ; 2356 ; FOR SIMULATOR. FOR THE REAL ; 2357 ; MACHINE IT IS JUST DATA WITH ; 2358 ; GOOD PARITY. ; 2359 = ; 2360 ;THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE ; 2361 ; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN ; 2362 ; VERSIONS ; 2363 .IF/SIM ; 2364 VMA_[T1], START READ ;READ THE WORD ; 2365 MEM READ, [PC]_MEM, HOLD LEFT, J/START ; 2366 ;GO FIRE UP SIMULATOR AT THE ; 2367 ; PROGRAMS STARTING ADDRESS ; 2368 .IFNOT/SIM ; 2369 [PC]_0, ;CLEAR LH OF PC ; 2370 LEAVE USER, ;ENTER EXEC MODE U 0563, 0632,4221,0001,4174,4467,0700,0000,0000,0004 ; 2371 LOAD FLAGS ;CLEAR TRAP FLAGS ; 2372 [T1]_#, HALT/POWER, ;LOAD T1 WITH POWER UP CODE U 0632, 2416,3771,0017,4374,4007,0700,0000,0000,0000 ; 2373 J/PWRON ;ENTER HALT LOOP. DO NOT STORE ; 2374 ; HALT STATUS BLOCK ; 2375 .ENDIF/SIM ; 2376 ; 2377 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 61 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2378 .TOC "THE INSTRUCTION LOOP -- START NEXT INSTRUCTION" ; 2379 ; 2380 ;ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO'S END UP HERE ; 2381 1400: U 1400, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 2382 DONE: DONE U 1401, 0070,0111,0701,4170,4156,4700,0200,0014,0012 ; 2383 1401: VMA_[PC]+1, NEXT INST FETCH, FETCH ; 2384 =0 U 0014, 0070,0111,0701,4170,4156,4700,0200,0014,0012 ; 2385 SKIP: VMA_[PC]+1, NEXT INST FETCH, FETCH U 0015, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 2386 DONE ; 2387 ; 2388 ; 2389 ;16-WAY DISPATCH BASED ON NEXT INSTRUCTION ; 2390 =0000 ; 2391 NICOND: ; 2392 ; 2393 =0001 [AR]_0 XWD [423], ;TRAP TYPE 3 ; 2394 ; GET ADDRESS OF TRAP INST ; 2395 TURN OFF PXCT, ;CLEAR PXCT U 0061, 3364,4751,1203,4374,4367,0700,0000,0000,0423 ; 2396 J/TRAP ;PROCESS TRAP (INOUT.MIC) ; 2397 =0010 [AR]_0 XWD [422], ;TRAP TYPE 2 ; 2398 TURN OFF PXCT, ;CLEAR PXCT U 0062, 3364,4751,1203,4374,4367,0700,0000,0000,0422 ; 2399 J/TRAP ;GO TRAP ; 2400 =0011 [AR]_0 XWD [421], ;TRAP TYPE 1 ; 2401 TURN OFF PXCT, ;TURN OF PXCT U 0063, 3364,4751,1203,4374,4367,0700,0000,0000,0421 ; 2402 J/TRAP ;GO TRAP U 0065, 2404,4751,1217,4374,4007,0700,0000,0000,0002 ; 2403 =0101 HALT [CSL] ;"HA" COMMAND TO 8080 ; 2404 =0111 ; 2405 START: VMA_[PC], ;LOAD VMA ; 2406 FETCH, ;INDICATE INSTRUCTION FETCH U 0067, 0077,3443,0100,4174,4007,0700,0200,0014,0012 ; 2407 J/XCTGO ;GO GET INSTRUCTION ; 2408 ;THE NEXT SET OF CASES ARE USED WHEN THERE IS A FETCH ; 2409 ; IN PROGESS ; 2410 =1000 ; 2411 NICOND-FETCH: ; 2412 =1001 [AR]_0 XWD [423], ;TRAP TYPE 3 ; 2413 TURN OFF PXCT, U 0071, 3364,4751,1203,4374,4367,0700,0000,0000,0423 ; 2414 J/TRAP ; 2415 =1010 [AR]_0 XWD [422], ;TRAP TYPE 2 ; 2416 TURN OFF PXCT, U 0072, 3364,4751,1203,4374,4367,0700,0000,0000,0422 ; 2417 J/TRAP ; 2418 =1011 [AR]_0 XWD [421], ;TRAP TYPE 1 ; 2419 TURN OFF PXCT, U 0073, 3364,4751,1203,4374,4367,0700,0000,0000,0421 ; 2420 J/TRAP U 0075, 2404,4751,1217,4374,4007,0700,0000,0000,0002 ; 2421 =1101 HALT [CSL] ;"HA" COMMAND TO 8080 ; 2422 =1111 ; 2423 .IF/1PROC ; 2424 XCTGO: MEM READ, ;WAIT FOR MEMORY ; 2425 [HR]_MEM AND READ [FLG], ;PUT DATA IN HR ; 2426 LOAD INST, ;LOAD IR & AC # ; 2427 NORM DISP, ;TEST FLG<8> (1-PROCEED FLAG) U 0077, 0013,3770,1302,4365,5613,4701,0200,0000,0002 ; 2428 J/INCPC ;GO BUMP PC ; 2429 .IFNOT/1PROC ; 2430 XCTGO: MEM READ, ;WAIT FOR MEMORY ; 2431 [HR]_MEM, ;PUT DATA IN HR ; 2432 LOAD INST, ;LOAD IR & AC # ; 2433 J/INCPC ;GO BUMP PC ; 2434 .ENDIF/1PROC ; 2435 = ; 2436 ; 2437 .IF/1PROC ; 2438 =1011 ;FOR NORM DISP AT XCTGO ; 2439 .ENDIF/1PROC ; 2440 ;HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR ; 2441 ; EFFECTIVE ADDRESS LOGIC TO SETTLE ; 2442 INCPC: VMA_[PC]+1, ;ADDRESS OF NEXT INSTRUCTION ; 2443 FETCH/1, ;INSTRUCTION FETCH ; 2444 TURN OFF PXCT, ;CLEAR EFFECT OF PXCT ; 2445 EA MODE DISP, ;DISPATCH OFF INDEXING AND @@ U 0013, 0101,0111,0701,2170,4366,6700,0200,0010,0010 ; 2446 J/EACALC ; 2447 .IF/1PROC ; 2448 ;COME HERE WHEN FLG.1PROC IS SET U 0017, 0022,4553,1300,4374,4007,0321,0000,0000,0200 ; 2449 TL [FLG], FLG.2PROC/1 ;Skip if this is the first time through U 0022, 0751,5551,1313,4374,0007,0700,0000,0000,1200 ; 2450 =0 TAKE 1-PROCEED TRAP U 0023, 0013,3551,1313,4374,0007,0700,0000,0000,0200 ; 2451 [FLG]_[FLG].OR.#, FLG.2PROC/1, HOLD RIGHT, J/INCPC ;Trap next time ; 2452 .ENDIF/1PROC ; 2453 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 62 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2454 ; 2455 ;MAIN EFFECTIVE ADDRESS CALCULATION ; 2456 =0001 ; 2457 EACALC: ; 2458 ; ; 2459 ; THE FIRST 4 CASES ARE USED ONLY FOR JRST ; 2460 ; ; 2461 ; 2462 ;CASE 0 -- JRST 0,FOO(XR) ; 2463 [PC]_[HR]+XR, ;UPDATE PC ; 2464 HOLD LEFT, ;ONLY RH ; 2465 LOAD VMA, FETCH, ;START GETTING IT U 0101, 0070,0551,0201,2270,4156,4700,0200,0014,0012 ; 2466 NEXT INST FETCH ;START NEXT INST ; 2467 ; 2468 ;CASE 2 -- JRST 0,FOO ; 2469 [PC]_[HR], ;NEW PC ; 2470 HOLD LEFT, ;ONLY RH ; 2471 LOAD VMA, FETCH, ;START GETTING IT U 0103, 0070,3441,0201,4170,4156,4700,0200,0014,0012 ; 2472 NEXT INST FETCH ;START NEXT INST ; 2473 ; 2474 ;CASE 4 -- JRST 0,@@FOO(XR) ; 2475 [HR]_[HR]+XR, ;ADD IN INDEX ; 2476 START READ, ;START TO FETCH @@ WORD ; 2477 LOAD VMA, ;PUT ADDRESS IN VMA U 0105, 0642,0551,0202,2270,4007,0700,0200,0004,0012 ; 2478 J/FETIND ;GO DO MEM WAIT (FORGET ABOUT JRST) ; 2479 ; 2480 ;CASE 6 -- JRST 0,@@FOO ; 2481 VMA_[HR], ;LOAD UP ADDRESS ; 2482 START READ, ;START TO FETCH @@ WORD U 0107, 0642,3443,0200,4174,4007,0700,0200,0004,0012 ; 2483 J/FETIND ;GO DO MEM WAIT (FORGET ABOUT JRST) ; 2484 ; 2485 ; ; 2486 ;THESE 4 ARE FOR THE NON-JRST CASE ; 2487 ; ; 2488 ; 2489 ;CASE 10 -- JUST INDEXING ; 2490 INDEX: [HR]_[HR]+XR, ;ADD IN INDEX REGISTER U 0111, 0113,0551,0202,2270,4007,0700,0000,0000,0000 ; 2491 HOLD LEFT ;JUST DO RIGHT HALF ; 2492 ; 2493 ;CASE 12 -- NO INDEXING OR INDIRECT ; 2494 NOMOD: [AR]_EA, ;PUT 0,,E IN AR U 0113, 0000,5741,0203,4174,4001,3700,0200,0000,0342 ; 2495 PXCT DATA, AREAD ;DO ONE OR MORE OF THE FOLLWING ; 2496 ; ACCORDING TO THE DROM: ; 2497 ;1. LOAD VMA ; 2498 ;2. START READ OR WRITE ; 2499 ;3. DISPATCH TO 40-57 ; 2500 ; OR DIRECTLY TO EXECUTE CODE ; 2501 ; 2502 ;CASE 14 -- BOTH INDEXING AND INDIRECT ; 2503 BOTH: [HR]_[HR]+XR, ;ADD IN INDEX REGISTER ; 2504 LOAD VMA, PXCT EA, ;PUT ADDRESS IN VMA U 0115, 0642,0551,0202,2270,4007,0700,0200,0004,0112 ; 2505 START READ, J/FETIND ;START CYCLE AND GO WAIT FOR DATA ; 2506 ; 2507 ;CASE 16 -- JUST INDIRECT ; 2508 INDRCT: VMA_[HR], ;LOAD ADDRESS OF @@ WORD U 0117, 0642,3443,0200,4174,4007,0700,0200,0004,0112 ; 2509 START READ, PXCT EA ;START CYCLE ; 2510 ; 2511 ; 2512 ;HERE TO FETCH INDIRECT WORD ; 2513 FETIND: MEM READ, [HR]_MEM, ;GET DATA WORD ; 2514 HOLD LEFT, ;JUST RIGHT HALF U 0642, 0722,3771,0002,4361,5217,0700,0200,0000,0102 ; 2515 LOAD IND EA ;RELOAD @@ AND INDEX FLOPS ; 2516 ; 2517 XCT2: VMA_[PC], ;PUT PC BACK IN VMA ; 2518 FETCH/1, ;TURN ON FETCH FLAG ; 2519 EA MODE DISP, ;REDO CALCULATION FOR U 0722, 0101,3443,0100,2174,4006,6700,0200,0010,0010 ; 2520 J/EACALC ; NEW WORD ; 2521 ; 2522 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 63 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ONE-PROCEED TRAP ; 2523 .TOC "ONE-PROCEED TRAP" ; 2524 ; 2525 .IF/1PROC ; 2526 1PROC-TRAP: U 0751, 0752,4751,1203,4374,4007,0700,0000,0000,0432 ; 2527 [AR]_0 XWD [432] ; 432 in UPT gets old PC. ; 2528 [AR]_[AR]+[UBR], U 0752, 0763,0111,1103,4174,4007,0700,0200,0021,1016 ; 2529 VMA PHYSICAL WRITE U 0763, 0771,3741,0104,4074,4007,0700,0000,0000,0000 ; 2530 [ARX]_PC WITH FLAGS U 0771, 1016,3333,0004,4175,5007,0701,0200,0000,0002 ; 2531 MEM WRITE, MEM_[ARX] ; 2532 [AR]_[AR]+1, ; 433 in UPT holds new PC. ; 2533 VMA PHYSICAL READ, U 1016, 2611,0111,0703,4174,4007,0700,0200,0024,1016 ; 2534 J/GOEXEC ; 2535 .ENDIF/1PROC ; 2536 ; 2537 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 64 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2538 .TOC "THE INSTRUCTION LOOP -- FETCH ARGUMENTS" ; 2539 ;HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH ; 2540 ; 2541 ;CASE 0 -- READ (E) ; 2542 40: MEM READ, ;WAIT FOR DATA ; 2543 [AR]_MEM, ;PUT WORD IN AR U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002 ; 2544 INST DISP ;GO TO EXECUTE CODE ; 2545 ; 2546 ;CASE 1 -- WRITE (E) ; 2547 41: [AR]_AC, ;PUT AC IN AR U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000 ; 2548 INST DISP ;GO TO EXECUTE CODE ; 2549 ; 2550 ;CASE 2 -- DOUBLE READ ; 2551 42: MEM READ, ;WAIT FOR DATA U 0042, 1022,3771,0003,4365,5007,0700,0200,0000,0002 ; 2552 [AR]_MEM ;PUT HI WORD IN AR ; 2553 VMA_[HR]+1, PXCT DATA, ;POINT TO E+1 U 1022, 1042,0111,0702,4170,4007,0700,0200,0004,0312 ; 2554 START READ ;START MEMORY CYCLE ; 2555 MEM READ, ;WAIT FOR DATA ; 2556 [ARX]_MEM, ;LOW WORD IN ARX U 1042, 0000,3771,0004,4365,5001,2700,0200,0000,0002 ; 2557 INST DISP ;GO TO EXECUTE CODE ; 2558 ; 2559 ;CASE 3 -- DOUBLE AC U 0043, 1061,3771,0003,0276,6007,0700,0000,0000,0000 ; 2560 43: [AR]_AC ;GET HIGH AC ; 2561 [ARX]_AC[1], ;PUT C(AC+1) IN ARX U 1061, 0000,3771,0004,1276,6001,2701,0000,0000,1441 ; 2562 INST DISP ;GO TO EXECUTE CODE ; 2563 ; 2564 ;CASE 4 -- SHIFT ; 2565 44: ; 2566 SHIFT: READ [AR], ;LOOK AT EFFECTIVE ADDRESS ; 2567 SKIP DP18, ;SEE IF LEFT OR RIGHT ; 2568 SC_SHIFT-1, ;PUT NUMBER OF PLACES TO SHIFT IN ; 2569 LOAD FE, ; SC AND FE U 0044, 0000,3333,0003,4174,4001,2530,3000,0041,5777 ; 2570 INST DISP ;GO DO THE SHIFT ; 2571 ; 2572 ;CASE 5 -- SHIFT COMBINED U 0045, 1071,3772,0000,1275,5007,0701,0000,0000,1441 ; 2573 45: Q_AC[1] ;PUT LOW WORD IN Q U 1071, 1076,3776,0005,0274,4007,0701,0000,0000,0000 ; 2574 [BR]_AC*.5 LONG ;PUT AC IN BR & SHIFT BR!Q RIGHT ; 2575 [BR]_[BR]*.5 LONG, ;SHIFT BR!Q 1 MORE PLACE RIGHT U 1076, 0044,3446,0505,4174,4007,0700,0000,0000,0000 ; 2576 J/SHIFT ;GO DO SHIFT SETUP ; 2577 ; 2578 ;CASE 6 -- FLOATING POINT IMMEDIATE ; 2579 46: [AR]_[AR] SWAP, ;FLIP BITS TO LEFT HALF U 0046, 0024,3770,0303,4344,4007,0700,0000,0000,0000 ; 2580 J/FPR0 ;JOIN COMMON F.P. CODE ; 2581 ; 2582 ;CASE 7 -- FLOATING POINT ; 2583 47: MEM READ, ;WAIT FOR MEMORY (SPEC/MEM WAIT) U 0047, 0024,3771,0003,4365,5007,0700,0200,0000,0002 ; 2584 [AR]_MEM ;DATA INTO AR ; 2585 =0 ; 2586 FPR0: READ [AR], ;LOOK AT NUMBER ; 2587 SC_EXP, FE_EXP, ;PUT EXPONENT IN SC & FE ; 2588 SKIP DP0, ;SEE IF NEGATIVE U 0024, 0034,3333,0003,4174,4007,0520,3010,0041,2000 ; 2589 CALL [ARSIGN] ;EXTEND AR SIGN ; 2590 FPR1: [ARX]_0, ;ZERO ARX U 0025, 0000,4221,0004,4174,4001,2700,0000,0000,0000 ; 2591 INST DISP ;GO TO EXECUTE CODE ; 2592 ; 2593 ;CASE 10 -- READ THEN PREFETCH ; 2594 50: MEM READ, ;WAIT FOR DATA ; 2595 [AR]_MEM THEN FETCH, ;PUT DATA IN AR AND START A READ ; 2596 ; VMA HAS PC+1. U 0050, 0000,3770,0103,4365,5001,2700,0200,0014,0012 ; 2597 INST DISP ;GO DO IT ; 2598 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 65 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2599 ; 2600 ;CASE 11 -- DOUBLE FLOATING READ ; 2601 51: SPEC MEM READ, ;WAIT FOR DATA ; 2602 [BR]_MEM, ;HOLD IN BR ; 2603 SC_EXP, FE_EXP, ;SAVE EXPONENT U 0051, 0026,3771,0005,4365,5177,0521,3000,0041,2000 ; 2604 SKIP DP0, 3T ;SEE IF MINUS ; 2605 =0 [AR]_[AR]+1, ;POINT TO E+1 ; 2606 LOAD VMA, PXCT DATA, ;PUT IN VMA U 0026, 1112,0111,0703,4174,4007,0700,0200,0004,0312 ; 2607 START READ, J/DFPR1 ;GO GET POSITIVE DATA ; 2608 [AR]_[AR]+1, ;POINT TO E+1 ; 2609 LOAD VMA, PXCT DATA, ;PUT IN VMA U 0027, 1111,0111,0703,4174,4007,0700,0200,0004,0312 ; 2610 START READ ;GO GET NEGATIVE DATA ; 2611 [BR]_-SIGN, ;SMEAR MINUS SIGN U 1111, 1131,3551,0505,4374,0007,0700,0000,0077,7000 ; 2612 J/DFPR2 ;CONTINUE BELOW U 1112, 1131,4551,0505,4374,0007,0700,0000,0000,0777 ; 2613 DFPR1: [BR]_+SIGN ;SMEAR PLUS SIGN ; 2614 DFPR2: MEM READ, 3T, ;WAIT FOR MEMORY ; 2615 [ARX]_(MEM.AND.[MAG])*.5, U 1131, 1137,4557,0004,4365,5007,0701,0200,0000,0002 ; 2616 ASH ;SET SHIFT PATHS U 1137, 1141,3447,0503,4174,4007,0700,0000,0000,0000 ; 2617 [AR]_[BR]*.5 ;SHIFT AR ; 2618 [AR]_[AR]*.5, ;COMPLETE SHIFTING U 1141, 1154,3447,0303,4174,4007,0700,2000,0011,0000 ; 2619 SC_FE ;PAGE FAIL MAY HAVE ZAPPED ; 2620 ; THE SC. ; 2621 VMA_[PC], FETCH, ;GET NEXT INST U 1154, 0000,3443,0100,4174,4001,2700,0200,0014,0012 ; 2622 INST DISP ;DO THIS ONE ; 2623 ; 2624 ;CASE 12 -- TEST FOR IO LEGAL U 0052, 0032,4443,0000,4174,4007,0040,0000,0000,0000 ; 2625 52: SKIP IO LEGAL ;IS IO LEGAL? U 0032, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 2626 =0 UUO ;NO U 0033, 0000,4443,0000,4174,4001,2700,0000,0000,0000 ; 2627 INST DISP ;YES--DO THE INSTRUCTION ; 2628 ; 2629 ; 2630 ;CASE 13 -- RESERVED ; 2631 ;53: ; 2632 ; 2633 ;CASE 14 -- RESERVED ; 2634 ;54: ; 2635 ; 2636 ;CASE 15 -- RESERVED ; 2637 ;55: ; 2638 ; 2639 ;CASE 16 -- RESERVED ; 2640 ;56: ; 2641 ; 2642 ;CASE 17 -- RESERVED ; 2643 ;57: ; 2644 ; 2645 ;EXTEND AR SIGN. ; 2646 ;CALL WITH SKIP ON AR0, RETURNS 1 ALWAYS ; 2647 =0 U 0034, 0001,4551,0303,4374,0004,1700,0000,0000,0777 ; 2648 ARSIGN: [AR]_+SIGN, RETURN [1] ;EXTEND + SIGN U 0035, 0001,3551,0303,4374,0004,1700,0000,0077,7000 ; 2649 [AR]_-SIGN, RETURN [1] ;EXTEND - SIGN ; 2650 ; 2651 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 66 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2652 .TOC "THE INSTRUCTION LOOP -- STORE ANSWERS" ; 2653 ; 2654 ;NOTE: INSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY ; 2655 ; (E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST ; 2656 ; SO THAT IF A PAGE FAIL HAPPENS THE AC IS ; 2657 ; STILL INTACT. ; 2658 ; 2659 1500: ; 2660 BWRITE: ;BASE ADDRESS OF BWRITE DISPATCH ; 2661 ; 2662 ;CASE 0 -- RESERVED ; 2663 ;1500: ; 2664 ; 2665 ;CASE 1 -- RESERVED ; 2666 ;1501: ; 2667 ; 2668 ;CASE 2 -- RESERVED ; 2669 ;1502: ; 2670 ; 2671 ;CASE 3 -- RESERVED ; 2672 ;1503: ; 2673 ; 2674 ;CASE 4 -- STORE SELF ; 2675 1504: ; 2676 STSELF: SKIP IF AC0, ;IS AC # ZERO? U 1504, 0036,4443,0000,4174,4007,0360,0000,0000,0000 ; 2677 J/STBTH1 ;GO TO STORE BOTH CASE ; 2678 ; 2679 ;CASE 5 -- STORE DOUBLE AC ; 2680 1505: ; 2681 DAC: AC[1]_[ARX], ;STORE AC 1 U 1505, 1515,3440,0404,1174,4007,0700,0400,0000,1441 ; 2682 J/STAC ;GO STORE AC ; 2683 ; 2684 ;CASE 6 -- STORE DOUBLE BOTH (KA10 STYLE MEM_AR ONLY) ; 2685 1506: ; 2686 STDBTH: MEM WRITE, ;WAIT FOR MEMORY ; 2687 MEM_[AR], ;STORE AR U 1506, 1505,3333,0003,4175,5007,0701,0200,0000,0002 ; 2688 J/DAC ;NOW STORE AC & AC+1 ; 2689 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 67 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2690 ; 2691 ;CASE 7 -- RESERVED ; 2692 ;1507: ; 2693 ; 2694 ;CASE 10 -- RESERVED ; 2695 ;1510: ; 2696 ; 2697 ;CASE 11 -- RESERVED ; 2698 ;1511: ; 2699 ; 2700 ;CASE 12 -- RESERVED ; 2701 ;1512: ; 2702 ; 2703 ;CASE 13 -- RESERVED ; 2704 ;1513: ; 2705 ; 2706 ;CASE 14 -- RESERVED ; 2707 1514: ; 2708 FL-BWRITE: ;THE NEXT 4 CASES ARE ALSO ; 2709 ;USED IN FLOATING POINT U 1514, 2404,4751,1217,4374,4007,0700,0000,0000,1000 ; 2710 HALT [BW14] ; 2711 ; 2712 ;CASE 15 -- STORE AC ; 2713 1515: ; 2714 STAC: AC_[AR], ;STORE AC U 1515, 0060,3440,0303,0174,4156,4700,0400,0000,0000 ; 2715 NEXT INST ;DO NEXT INSTRUCTION ; 2716 ; 2717 ;CASE 16 -- STORE IN MEMORY ; 2718 1516: ; 2719 STMEM: MEM WRITE, ;WAIT FOR MEMORY ; 2720 MEM_[AR], ;STORE AR U 1516, 1400,3333,0003,4175,5007,0701,0200,0000,0002 ; 2721 J/DONE ;START FETCH OF NEXT ; 2722 ; 2723 ;CASE 17 -- STORE BOTH ; 2724 1517: ; 2725 STBOTH: MEM WRITE, ;WAIT FOR MEMORY ; 2726 MEM_[AR], ;STORE AR U 1517, 1515,3333,0003,4175,5007,0701,0200,0000,0002 ; 2727 J/STAC ;NOW STORE AC ; 2728 ; 2729 =0 ; 2730 STBTH1: MEM WRITE, ;WAIT FOR MEMORY ; 2731 MEM_[AR], ;STORE AR U 0036, 1515,3333,0003,4175,5007,0701,0200,0000,0002 ; 2732 J/STAC ;NOW STORE AC ; 2733 STORE: MEM WRITE, ;WAIT FOR MEMORY ; 2734 MEM_[AR], ;STORE AC U 0037, 1400,3333,0003,4175,5007,0701,0200,0000,0002 ; 2735 J/DONE ;START NEXT INST ; 2736 ; 2737 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 68 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 MOVE GROUP ; 2738 .TOC "MOVE GROUP" ; 2739 ; 2740 .DCODE D 0200, 1015,1515,1100 ; 2741 200: R-PF, AC, J/STAC ;MOVE D 0201, 0015,1515,3000 ; 2742 I-PF, AC, J/STAC ;MOVEI D 0202, 0116,1404,0700 ; 2743 W, M, J/MOVE ;MOVEM D 0203, 0004,1504,1700 ; 2744 RW, S, J/STSELF ;MOVES ; 2745 D 0204, 1015,1402,1100 ; 2746 204: R-PF, AC, J/MOVS ;MOVS D 0205, 0015,1402,3000 ; 2747 I-PF, AC, J/MOVS ;MOVSI D 0206, 0116,1402,0700 ; 2748 W, M, J/MOVS ;MOVSM D 0207, 0004,1402,1700 ; 2749 RW, S, J/MOVS ;MOVSS ; 2750 D 0210, 1015,1405,1100 ; 2751 210: R-PF, AC, J/MOVN ;MOVN D 0211, 0015,1405,3000 ; 2752 I-PF, AC, J/MOVN ;MOVNI D 0212, 0116,1405,0700 ; 2753 W, M, J/MOVN ;MOVNM D 0213, 0004,1405,1700 ; 2754 RW, S, J/MOVN ;MOVNS ; 2755 D 0214, 1015,1403,1100 ; 2756 214: R-PF, AC, J/MOVM ;MOVM D 0215, 0015,1515,3000 ; 2757 I-PF, AC, J/STAC ;MOVMI D 0216, 0116,1403,0700 ; 2758 W, M, J/MOVM ;MOVMM D 0217, 0004,1403,1700 ; 2759 RW, S, J/MOVM ;MOVNS ; 2760 .UCODE ; 2761 ; 2762 1402: U 1402, 1500,3770,0303,4344,4003,7700,0200,0003,0001 ; 2763 MOVS: [AR]_[AR] SWAP,EXIT ; 2764 ; 2765 1403: U 1403, 1404,3333,0003,4174,4007,0520,0000,0000,0000 ; 2766 MOVM: READ [AR], SKIP DP0, J/MOVE ; 2767 ; 2768 1404: U 1404, 1500,4443,0000,4174,4003,7700,0200,0003,0001 ; 2769 MOVE: EXIT ; 2770 1405: ; 2771 MOVN: [AR]_-[AR], ;NEGATE NUMBER ; 2772 AD FLAGS, 3T, ;UPDATE FLAGS U 1405, 1404,2441,0303,4174,4467,0701,4000,0001,0001 ; 2773 J/MOVE ;STORE ANSWER ; 2774 ; 2775 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 69 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 EXCH ; 2776 .TOC "EXCH" ; 2777 ; 2778 .DCODE D 0250, 0015,1406,1500 ; 2779 250: R,W TEST, AC, J/EXCH ; 2780 .UCODE ; 2781 ; 2782 1406: ; 2783 EXCH: [BR]_AC, ;COPY AC TO THE BR U 1406, 1166,3771,0005,0276,6007,0700,0200,0003,0002 ; 2784 START WRITE ;START A WRITE CYCLE ; 2785 MEM WRITE, ;COMPLETE WRITE CYCLE ; 2786 MEM_[BR], ;STORE BR (AC) IN MEMORY U 1166, 1515,3333,0005,4175,5007,0701,0200,0000,0002 ; 2787 J/STAC ;STORE THE AR IN AC. NOTE: AR ; 2788 ; WAS LOADED WITH MEMORY OPERAND ; 2789 ; AS PART OF INSTRUCTION DISPATCH ; 2790 ; 2791 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 70 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 HALFWORD GROUP ; 2792 .TOC "HALFWORD GROUP" ; 2793 ; DESTINATION LEFT HALF ; 2794 ; 2795 .DCODE D 0500, 1015,1410,1100 ; 2796 500: R-PF, AC, J/HLL D 0501, 0015,1410,3000 ; 2797 I-PF, AC, J/HLL D 0502, 0016,1407,1700 ; 2798 RW, M, J/HRR ;HLLM = HRR EXCEPT FOR STORE D 0503, 0004,1404,1700 ; 2799 RW, S, J/MOVE ;HLLS = MOVES ; 2800 D 0504, 1015,1411,1100 ; 2801 R-PF, AC, J/HRL D 0505, 0015,1411,3000 ; 2802 I-PF, AC, J/HRL D 0506, 0016,1413,1700 ; 2803 RW, M, J/HRLM D 0507, 0004,1414,1700 ; 2804 RW, S, J/HRLS ; 2805 D 0510, 1015,1432,1100 ; 2806 510: R-PF, AC, J/HLLZ D 0511, 0015,1432,3000 ; 2807 I-PF, AC, J/HLLZ D 0512, 0116,1432,0700 ; 2808 W, M, J/HLLZ D 0513, 0004,1432,1700 ; 2809 RW, S, J/HLLZ ; 2810 D 0514, 1015,1424,1100 ; 2811 R-PF, AC, J/HRLZ D 0515, 0015,1424,3000 ; 2812 I-PF, AC, J/HRLZ D 0516, 0116,1424,0700 ; 2813 W, M, J/HRLZ D 0517, 0004,1424,1700 ; 2814 RW, S, J/HRLZ ; 2815 D 0520, 1015,1433,1100 ; 2816 520: R-PF, AC, J/HLLO D 0521, 0015,1433,3000 ; 2817 I-PF, AC, J/HLLO D 0522, 0116,1433,0700 ; 2818 W, M, J/HLLO D 0523, 0004,1433,1700 ; 2819 RW, S, J/HLLO ; 2820 D 0524, 1015,1425,1100 ; 2821 R-PF, AC, J/HRLO D 0525, 0015,1425,3000 ; 2822 I-PF, AC, J/HRLO D 0526, 0116,1425,0700 ; 2823 W, M, J/HRLO D 0527, 0004,1425,1700 ; 2824 RW, S, J/HRLO ; 2825 D 0530, 1015,1430,1100 ; 2826 530: R-PF, AC, J/HLLE D 0531, 0015,1430,3000 ; 2827 I-PF, AC, J/HLLE D 0532, 0116,1430,0700 ; 2828 W, M, J/HLLE D 0533, 0004,1430,1700 ; 2829 RW, S, J/HLLE ; 2830 D 0534, 1015,1422,1100 ; 2831 R-PF, AC, J/HRLE D 0535, 0015,1422,3000 ; 2832 I-PF, AC, J/HRLE D 0536, 0116,1422,0700 ; 2833 W, M, J/HRLE D 0537, 0004,1422,1700 ; 2834 RW, S, J/HRLE ; 2835 ; 2836 ; DESTINATION RIGHT HALF ; 2837 D 0540, 1015,1407,1100 ; 2838 540: R-PF, AC, J/HRR D 0541, 0015,1407,3000 ; 2839 I-PF, AC, J/HRR D 0542, 0016,1410,1700 ; 2840 RW, M, J/HLL ;HRRM = HLL EXCEPT FOR STORE D 0543, 0004,1404,1700 ; 2841 RW, S, J/MOVE ;HRRS = MOVES ; 2842 D 0544, 1015,1412,1100 ; 2843 R-PF, AC, J/HLR D 0545, 0015,1412,3000 ; 2844 I-PF, AC, J/HLR D 0546, 0016,1415,1700 ; 2845 RW, M, J/HLRM D 0547, 0004,1416,1700 ; 2846 RW, S, J/HLRS ; 2847 D 0550, 1015,1420,1100 ; 2848 550: R-PF, AC, J/HRRZ D 0551, 0015,1420,3000 ; 2849 I-PF, AC, J/HRRZ D 0552, 0116,1420,0700 ; 2850 W, M, J/HRRZ D 0553, 0004,1420,1700 ; 2851 RW, S, J/HRRZ ; 2852 D 0554, 1015,1426,1100 ; 2853 R-PF, AC, J/HLRZ D 0555, 0015,1426,3000 ; 2854 I-PF, AC, J/HLRZ D 0556, 0116,1426,0700 ; 2855 W, M, J/HLRZ D 0557, 0004,1426,1700 ; 2856 RW, S, J/HLRZ ; 2857 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 71 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 HALFWORD GROUP ; 2858 D 0560, 1015,1421,1100 ; 2859 560: R-PF, AC, J/HRRO D 0561, 0015,1421,3000 ; 2860 I-PF, AC, J/HRRO D 0562, 0116,1421,0700 ; 2861 W, M, J/HRRO D 0563, 0004,1421,1700 ; 2862 RW, S, J/HRRO ; 2863 D 0564, 1015,1427,1100 ; 2864 R-PF, AC, J/HLRO D 0565, 0015,1427,3000 ; 2865 I-PF, AC, J/HLRO D 0566, 0116,1427,0700 ; 2866 W, M, J/HLRO D 0567, 0004,1427,1700 ; 2867 RW, S, J/HLRO ; 2868 D 0570, 1015,1417,1100 ; 2869 570: R-PF, AC, J/HRRE D 0571, 0015,1417,3000 ; 2870 I-PF, AC, J/HRRE D 0572, 0116,1417,0700 ; 2871 W, M, J/HRRE D 0573, 0004,1417,1700 ; 2872 RW, S, J/HRRE ; 2873 D 0574, 1015,1423,1100 ; 2874 R-PF, AC, J/HLRE D 0575, 0015,1423,3000 ; 2875 I-PF, AC, J/HLRE D 0576, 0116,1423,0700 ; 2876 W, M, J/HLRE D 0577, 0004,1423,1700 ; 2877 RW, S, J/HLRE ; 2878 ; 2879 .UCODE ; 2880 ; 2881 ;FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE ; 2882 ; 2883 ;THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF ; 2884 ; AC INTO AR TO DO A HRR. OBVIOUS THING FOR HLL. ; 2885 1407: U 1407, 1500,3771,0003,0276,0003,7700,0200,0003,0001 ; 2886 HRR: [AR]_AC,HOLD RIGHT,EXIT ; 2887 1410: U 1410, 1500,3771,0003,0270,6003,7700,0200,0003,0001 ; 2888 HLL: [AR]_AC,HOLD LEFT,EXIT ; 2889 ; 2890 ;HRL FLOW: ; 2891 ;AT HRL AR CONTAINS: ; 2892 ; ; 2893 ; !------------------!------------------! ; 2894 ; ! LH OF (E) ! RH OF (E) ! ; 2895 ; !------------------!------------------! ; 2896 ; ; 2897 ;AR_AR SWAP GIVES: ; 2898 ; ; 2899 ; !------------------!------------------! ; 2900 ; ! RH OF (E) ! LH OF (E) ! ; 2901 ; !------------------!------------------! ; 2902 ; ; 2903 ;AT HLL, AR_AC,HOLD LEFT GIVES: ; 2904 ; ; 2905 ; !------------------!------------------! ; 2906 ; ! RH OF (E) ! RH OF AC ! ; 2907 ; !------------------!------------------! ; 2908 ; ; 2909 ;THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC). ; 2910 ; THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR. ; 2911 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 72 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 HALFWORD GROUP ; 2912 ; 2913 1411: U 1411, 1410,3770,0303,4344,4007,0700,0000,0000,0000 ; 2914 HRL: [AR]_[AR] SWAP,J/HLL ; 2915 1412: U 1412, 1407,3770,0303,4344,4007,0700,0000,0000,0000 ; 2916 HLR: [AR]_[AR] SWAP,J/HRR ; 2917 ; 2918 1413: U 1413, 1202,3770,0303,4344,4007,0700,0000,0000,0000 ; 2919 HRLM: [AR]_[AR] SWAP U 1202, 1402,3771,0003,0270,6007,0700,0000,0000,0000 ; 2920 [AR]_AC,HOLD LEFT,J/MOVS ; 2921 1414: U 1414, 1500,3770,0303,4344,0003,7700,0200,0003,0001 ; 2922 HRLS: [AR]_[AR] SWAP,HOLD RIGHT,EXIT ; 2923 ; 2924 1415: U 1415, 1232,3770,0303,4344,4007,0700,0000,0000,0000 ; 2925 HLRM: [AR]_[AR] SWAP U 1232, 1402,3771,0003,0276,0007,0700,0000,0000,0000 ; 2926 [AR]_AC,HOLD RIGHT,J/MOVS ; 2927 1416: U 1416, 1500,3770,0303,4340,4003,7700,0200,0003,0001 ; 2928 HLRS: [AR]_[AR] SWAP,HOLD LEFT,EXIT ; 2929 ; 2930 ;NOW THE HALFWORD OPS WHICH CONTROL THE "OTHER" HALF. ; 2931 ; ENTER WITH 0,,E (E) OR (AC) IN AR ; 2932 ; 2933 1417: U 1417, 1420,3333,0003,4174,4007,0530,0000,0000,0000 ; 2934 HRRE: READ [AR],SKIP DP18 ; 2935 1420: U 1420, 1500,5731,0003,4174,4003,7700,0200,0003,0001 ; 2936 HRRZ: [AR] LEFT_0, EXIT ; 2937 1421: U 1421, 1500,5431,1203,4174,4003,7700,0200,0003,0001 ; 2938 HRRO: [AR] LEFT_-1, EXIT ; 2939 ; 2940 1422: U 1422, 1424,3333,0003,4174,4007,0530,0000,0000,0000 ; 2941 HRLE: READ [AR],SKIP DP18 ; 2942 1424: U 1424, 1402,3771,0003,4374,0007,0700,0000,0000,0000 ; 2943 HRLZ: [AR]_#,#/0,HOLD RIGHT,J/MOVS ; 2944 1425: U 1425, 1402,3771,0003,4374,0007,0700,0000,0077,7777 ; 2945 HRLO: [AR]_#,#/777777,HOLD RIGHT,J/MOVS ; 2946 ; 2947 1423: U 1423, 1426,3333,0003,4174,4007,0520,0000,0000,0000 ; 2948 HLRE: READ [AR],SKIP DP0 ; 2949 1426: U 1426, 1402,3771,0003,4370,4007,0700,0000,0000,0000 ; 2950 HLRZ: [AR]_#,#/0,HOLD LEFT,J/MOVS ; 2951 1427: U 1427, 1402,3771,0003,4370,4007,0700,0000,0077,7777 ; 2952 HLRO: [AR]_#,#/777777,HOLD LEFT,J/MOVS ; 2953 ; 2954 1430: U 1430, 1432,3333,0003,4174,4007,0520,0000,0000,0000 ; 2955 HLLE: READ [AR],SKIP DP0 ; 2956 1432: U 1432, 1500,5371,0003,4174,4003,7700,0200,0003,0001 ; 2957 HLLZ: [AR] RIGHT_0, EXIT ; 2958 1433: U 1433, 1500,5341,1203,4174,4003,7700,0200,0003,0001 ; 2959 HLLO: [AR] RIGHT_-1, EXIT ; 2960 ; 2961 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 73 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 DMOVE, DMOVN, DMOVEM, DMOVNM ; 2962 .TOC "DMOVE, DMOVN, DMOVEM, DMOVNM" ; 2963 ; 2964 .DCODE D 0120, 0205,1505,1100 ; 2965 120: DBL R, DAC, J/DAC D 0121, 0215,1434,1100 ; 2966 DBL R, AC, J/DMOVN ; 2967 .UCODE ; 2968 ; 2969 1434: U 1434, 2736,4551,0404,4374,0007,0700,0010,0037,7777 ; 2970 DMOVN: CLEAR ARX0, CALL [DBLNGA] U 1436, 1515,3440,0404,1174,4007,0700,0400,0000,1441 ; 2971 1436: AC[1]_[ARX], J/STAC ; 2972 ; 2973 .DCODE D 0124, 0300,1567,0100 ; 2974 124: DBL AC, J/DMOVN1 D 0125, 0100,1565,0500 ; 2975 W, J/DMOVNM ; 2976 .UCODE ; 2977 ; 2978 ; 2979 1565: U 1565, 2735,3771,0004,1276,6007,0701,0010,0000,1441 ; 2980 DMOVNM: [ARX]_AC[1],CALL [DBLNEG] ; 2981 1567: ; 2982 DMOVN1: [HR]+[ONE], ;GET E+1 ; 2983 LOAD VMA, ;PUT THAT IN VMA ; 2984 START WRITE, ;STORE IN E+1 U 1567, 1247,0113,0207,4174,4007,0700,0200,0003,0312 ; 2985 PXCT DATA ;DATA CYCLE U 1247, 1253,3333,0004,4175,5007,0701,0200,0000,0002 ; 2986 MEM WRITE, MEM_[ARX] ;STORE LOW WORD ; 2987 VMA_[HR], ;GET E ; 2988 LOAD VMA, ;SAVE IN VMA ; 2989 PXCT DATA, ;OPERAND STORE ; 2990 START WRITE, ;START MEM CYCLE U 1253, 0037,3443,0200,4174,4007,0700,0200,0003,0312 ; 2991 J/STORE ;GO STORE AR ; 2992 ; 2993 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 74 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BOOLEAN GROUP ; 2994 .TOC "BOOLEAN GROUP" ; 2995 ; 2996 .DCODE D 0400, 0015,1441,3000 ; 2997 400: I-PF, AC, J/SETZ D 0401, 0015,1441,3000 ; 2998 I-PF, AC, J/SETZ D 0402, 0016,1441,2700 ; 2999 IW, M, J/SETZ D 0403, 0017,1441,2700 ; 3000 IW, B, J/SETZ ; 3001 .UCODE ; 3002 ; 3003 1441: U 1441, 1500,4221,0003,4174,4003,7700,0200,0003,0001 ; 3004 SETZ: [AR]_0, EXIT ; 3005 ; 3006 .DCODE D 0404, 1015,1442,1100 ; 3007 404: R-PF, AC, J/AND D 0405, 0015,1442,3000 ; 3008 I-PF, AC, J/AND D 0406, 0016,1442,1700 ; 3009 RW, M, J/AND D 0407, 0017,1442,1700 ; 3010 RW, B, J/AND ; 3011 .UCODE ; 3012 ; 3013 1442: U 1442, 1500,4551,0303,0274,4003,7700,0200,0003,0001 ; 3014 AND: [AR]_[AR].AND.AC,EXIT ; 3015 ; 3016 .DCODE D 0410, 1015,1443,1100 ; 3017 410: R-PF, AC, J/ANDCA D 0411, 0015,1443,3000 ; 3018 I-PF, AC, J/ANDCA D 0412, 0016,1443,1700 ; 3019 RW, M, J/ANDCA D 0413, 0017,1443,1700 ; 3020 RW, B, J/ANDCA ; 3021 .UCODE ; 3022 ; 3023 1443: U 1443, 1500,5551,0303,0274,4003,7700,0200,0003,0001 ; 3024 ANDCA: [AR]_[AR].AND.NOT.AC,EXIT ; 3025 ; 3026 .DCODE D 0414, 1015,1404,1100 ; 3027 414: R-PF, AC, J/MOVE ;SETM = MOVE D 0415, 0015,1404,3000 ; 3028 I-PF, AC, J/MOVE D 0416, 0016,1404,1700 ; 3029 RW, M, J/MOVE ;SETMM = NOP THAT WRITES MEMORY D 0417, 0017,1404,1700 ; 3030 RW, B, J/MOVE ;SETMB = MOVE THAT WRITES MEMORY ; 3031 D 0420, 1015,1444,1100 ; 3032 420: R-PF, AC, J/ANDCM D 0421, 0015,1444,3000 ; 3033 I-PF, AC, J/ANDCM D 0422, 0016,1444,1700 ; 3034 RW, M, J/ANDCM D 0423, 0017,1444,1700 ; 3035 RW, B, J/ANDCM ; 3036 .UCODE ; 3037 ; 3038 1444: U 1444, 1442,7441,0303,4174,4007,0700,0000,0000,0000 ; 3039 ANDCM: [AR]_.NOT.[AR],J/AND ; 3040 ; 3041 .DCODE D 0424, 0000,1400,1100 ; 3042 424: R, J/DONE D 0425, 0000,1400,2100 ; 3043 I, J/DONE D 0426, 0116,1404,0700 ; 3044 W, M, J/MOVE ;SETAM = MOVEM D 0427, 0116,1404,0700 ; 3045 W, M, J/MOVE ;SETAB, TOO ; 3046 .UCODE ; 3047 ; 3048 .DCODE D 0430, 1015,1445,1100 ; 3049 430: R-PF, AC, J/XOR D 0431, 0015,1445,3000 ; 3050 I-PF, AC, J/XOR D 0432, 0016,1445,1700 ; 3051 RW, M, J/XOR D 0433, 0017,1445,1700 ; 3052 RW, B, J/XOR ; 3053 .UCODE ; 3054 ; 3055 1445: U 1445, 1500,6551,0303,0274,4003,7700,0200,0003,0001 ; 3056 XOR: [AR]_[AR].XOR.AC,EXIT ; 3057 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 75 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BOOLEAN GROUP ; 3058 ; 3059 .DCODE D 0434, 1015,1446,1100 ; 3060 434: R-PF, AC, J/IOR D 0435, 0015,1446,3000 ; 3061 I-PF, AC, J/IOR D 0436, 0016,1446,1700 ; 3062 RW, M, J/IOR D 0437, 0017,1446,1700 ; 3063 RW, B, J/IOR ; 3064 .UCODE ; 3065 ; 3066 1446: U 1446, 1500,3551,0303,0274,4003,7700,0200,0003,0001 ; 3067 IOR: [AR]_[AR].OR.AC,EXIT ; 3068 ; 3069 .DCODE D 0440, 1015,1447,1100 ; 3070 440: R-PF, AC, J/ANDCB D 0441, 0015,1447,3000 ; 3071 I-PF, AC, J/ANDCB D 0442, 0016,1447,1700 ; 3072 RW, M, J/ANDCB D 0443, 0017,1447,1700 ; 3073 RW, B, J/ANDCB ; 3074 .UCODE ; 3075 ; 3076 1447: U 1447, 1443,7441,0303,4174,4007,0700,0000,0000,0000 ; 3077 ANDCB: [AR]_.NOT.[AR],J/ANDCA ; 3078 ; 3079 .DCODE D 0444, 1015,1450,1100 ; 3080 444: R-PF, AC, J/EQV D 0445, 0015,1450,3000 ; 3081 I-PF, AC, J/EQV D 0446, 0016,1450,1700 ; 3082 RW, M, J/EQV D 0447, 0017,1450,1700 ; 3083 RW, B, J/EQV ; 3084 .UCODE ; 3085 ; 3086 1450: U 1450, 1500,7551,0303,0274,4003,7700,0200,0003,0001 ; 3087 EQV: [AR]_[AR].EQV.AC,EXIT ; 3088 ; 3089 .DCODE D 0450, 0015,1451,3000 ; 3090 450: I-PF, AC, J/SETCA D 0451, 0015,1451,3000 ; 3091 I-PF, AC, J/SETCA D 0452, 0016,1451,2700 ; 3092 IW, M, J/SETCA D 0453, 0017,1451,2700 ; 3093 IW, B, J/SETCA ; 3094 .UCODE ; 3095 ; 3096 1451: U 1451, 1500,7771,0003,0274,4003,7700,0200,0003,0001 ; 3097 SETCA: [AR]_.NOT.AC,EXIT ; 3098 ; 3099 .DCODE D 0454, 1015,1452,1100 ; 3100 454: R-PF, AC, J/ORCA D 0455, 0015,1452,3000 ; 3101 I-PF, AC, J/ORCA D 0456, 0016,1452,1700 ; 3102 RW, M, J/ORCA D 0457, 0017,1452,1700 ; 3103 RW, B, J/ORCA ; 3104 .UCODE ; 3105 ; 3106 1452: U 1452, 1273,7771,0005,0274,4007,0700,0000,0000,0000 ; 3107 ORCA: [BR]_.NOT.AC U 1273, 1500,3111,0503,4174,4003,7700,0200,0003,0001 ; 3108 [AR]_[AR].OR.[BR],EXIT ; 3109 ; 3110 .DCODE D 0460, 1015,1453,1100 ; 3111 460: R-PF, AC, J/SETCM D 0461, 0015,1453,3000 ; 3112 I-PF, AC, J/SETCM D 0462, 0016,1453,1700 ; 3113 RW, M, J/SETCM D 0463, 0017,1453,1700 ; 3114 RW, B, J/SETCM ; 3115 .UCODE ; 3116 ; 3117 1453: U 1453, 1500,7441,0303,4174,4003,7700,0200,0003,0001 ; 3118 SETCM: [AR]_.NOT.[AR],EXIT ; 3119 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 76 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BOOLEAN GROUP ; 3120 ; 3121 .DCODE D 0464, 1015,1454,1100 ; 3122 464: R-PF, AC, J/ORCM D 0465, 0015,1454,3000 ; 3123 I-PF, AC, J/ORCM D 0466, 0016,1454,1700 ; 3124 RW, M, J/ORCM D 0467, 0017,1454,1700 ; 3125 RW, B, J/ORCM ; 3126 .UCODE ; 3127 ; 3128 1454: U 1454, 1446,7441,0303,4174,4007,0700,0000,0000,0000 ; 3129 ORCM: [AR]_.NOT.[AR],J/IOR ; 3130 ; 3131 .DCODE D 0470, 1015,1455,1100 ; 3132 470: R-PF, AC, J/ORCB D 0471, 0015,1455,3000 ; 3133 I-PF, AC, J/ORCB D 0472, 0016,1455,1700 ; 3134 RW, M, J/ORCB D 0473, 0017,1455,1700 ; 3135 RW, B, J/ORCB ; 3136 .UCODE ; 3137 ; 3138 1455: U 1455, 1453,4551,0303,0274,4007,0700,0000,0000,0000 ; 3139 ORCB: [AR]_[AR].AND.AC,J/SETCM ; 3140 ; 3141 .DCODE D 0474, 0015,1456,3000 ; 3142 474: I-PF, AC, J/SETO D 0475, 0015,1456,3000 ; 3143 I-PF, AC, J/SETO D 0476, 0016,1456,2700 ; 3144 IW, M, J/SETO D 0477, 0017,1456,2700 ; 3145 IW, B, J/SETO ; 3146 .UCODE ; 3147 ; 3148 1456: U 1456, 1500,2441,0703,4174,4003,7700,4200,0003,0001 ; 3149 SETO: [AR]_-[ONE], EXIT ; 3150 ; 3151 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 77 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 3152 .TOC "ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO" ; 3153 ; 3154 .DCODE D 0240, 0400,1622,1000 ; 3155 240: SH, J/ASH D 0241, 0400,1632,1000 ; 3156 SH, J/ROT D 0242, 0400,1612,1000 ; 3157 SH, J/LSH D 0243, 0000,1462,2100 ; 3158 I, J/JFFO D 0244, 0000,1466,3000 ; 3159 I-PF, J/ASHC D 0245, 0500,1470,1000 ; 3160 245: SHC, J/ROTC D 0246, 0500,1464,1000 ; 3161 SHC, J/LSHC ; 3162 .IF/CIRC D 0247, 0000,1665,2100 ; 3163 I, J/CIRC ;That's whats in the DROM... ; 3164 .ENDIF/CIRC ; 3165 .UCODE ; 3166 ; 3167 ; 3168 ;HERE IS THE CODE FOR LOGICAL SHIFT. THE EFFECTIVE ADDRESS IS ; 3169 ; IN AR. ; 3170 1612: ; 3171 LSH: [AR]_AC, ;PICK UP AC ; 3172 FE_-FE-1, ;NEGATIVE SHIFT U 1612, 1314,3771,0003,0276,6007,0700,1000,0031,1777 ; 3173 J/LSHL ;SHIFT LEFT ; 3174 1613: [AR]_AC.AND.MASK, ;MAKE IT LOOK POSITIVE ; 3175 FE_FE+1, ;UNDO -1 AT SHIFT U 1613, 1324,4551,1203,0276,6007,0700,1000,0041,0001 ; 3176 J/ASHR ;GO SHIFT RIGHT ; 3177 ; 3178 LSHL: [AR]_[AR]*2, ;SHIFT LEFT U 1314, 1515,3445,0303,4174,4007,0700,1020,0041,0001 ; 3179 SHIFT, J/STAC ;FAST SHIFT & GO STORE AC ; 3180 ; 3181 ;HERE IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS IS ; 3182 ; IN AR. ; 3183 ; 3184 ASH36 LEFT "[AR]_[AR]*2 LONG, ASHC, STEP SC, ASH AROV" ; 3185 ; 3186 1622: U 1622, 1435,4222,0000,4174,4007,0700,0000,0000,0000 ; 3187 ASH: Q_0, J/ASHL0 ;HARDWARE ONLY DOES ASHC ; 3188 1623: [AR]_AC, ;GET THE ARGUMENT U 1623, 1324,3771,0003,0276,6007,0700,1000,0041,0001 ; 3189 FE_FE+1 ;FE HAS NEGATIVE SHIFT COUNT ; 3190 ASHR: [AR]_[AR]*.5, ;SHIFT RIGHT ; 3191 ASH, SHIFT, ;FAST SHIFT U 1324, 1515,3447,0303,4174,4007,0700,1020,0041,0001 ; 3192 J/STAC ;STORE AC WHEN DONE ; 3193 ; 3194 ASHL0: [AR]_AC*.5, ;GET INTO 9 CHIPS U 1435, 0054,3777,0003,0274,4007,0631,2000,0060,0000 ; 3195 STEP SC ;SEE IF NULL SHIFT ; 3196 =0 U 0054, 0054,3444,0303,4174,4447,0630,2000,0060,0000 ; 3197 ASHL: ASH36 LEFT, J/ASHL ;SHIFT LEFT ; 3198 ;SLOW BECAUSE WE HAVE TO ; 3199 ; TEST FOR OVERFLOW ; 3200 U 0055, 1515,3445,0303,4174,4007,0700,0000,0000,0000 ; 3201 ASHX: [AR]_[AR]*2, J/STAC ;SHIFT BACK INTO 10 CHIPS ; 3202 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 78 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 3203 ; 3204 ;HERE IS THE CODE FOR ROTATE. THE EFFECTIVE ADDRESS IS ; 3205 ; IN AR. ; 3206 1632: ; 3207 ROT: [AR]_AC*.5, ;PICK UP THE AC (& SHIFT) ; 3208 FE_-FE-1, ;NEGATIVE SHIFT COUNT U 1632, 1575,3777,0003,0274,4007,0701,1000,0031,1777 ; 3209 J/ROTL ;ROTATE LEFT ; 3210 1633: [AR]_AC*.5, ;PICK UP THE AC (& SHIFT) U 1633, 1463,3777,0003,0274,4007,0701,1000,0041,0001 ; 3211 FE_FE+1 ;NEGATIVE SHIFT COUNT U 1463, 1507,3447,0303,4174,4007,0700,0000,0000,0000 ; 3212 [AR]_[AR]*.5 ;PUT IN 9 DIPS ; 3213 [AR]_[AR]*.5, ;SHIFT RIGHT U 1507, 1564,3447,0303,4174,4037,0700,1020,0041,0001 ; 3214 ROT, SHIFT ;FAST SHIFT U 1564, 0055,3445,0303,4174,4007,0700,0000,0000,0000 ; 3215 ASHXX: [AR]_[AR]*2,J/ASHX ;SHIFT TO STD PLACE ; 3216 U 1575, 1617,3447,0303,4174,4007,0700,0000,0000,0000 ; 3217 ROTL: [AR]_[AR]*.5 ;PUT IN RIGHT 36-BITS ; 3218 [AR]_[AR]*2, ;ROTATE LEFT ; 3219 ROT, SHIFT, ;FAST SHIFT U 1617, 1564,3445,0303,4174,4037,0700,1020,0041,0001 ; 3220 J/ASHXX ;ALL DONE--SHIFT BACK ; 3221 ; 3222 1462: ; 3223 JFFO: [BR]_AC.AND.MASK, 4T, ;GET AC WITH NO SIGN U 1462, 0056,4551,1205,0276,6007,0622,0000,0000,0000 ; 3224 SKIP AD.EQ.0 ; EXTENSION. SKIP IF ; 3225 ; ZERO. ; 3226 =0 [PC]_[AR], ;NOT ZERO--JUMP ; 3227 LOAD VMA, FETCH, ;GET NEXT INST U 0056, 1645,3441,0301,4174,4007,0700,0200,0014,0012 ; 3228 J/JFFO1 ;ENTER LOOP U 0057, 1400,4223,0000,1174,4007,0700,0400,0000,1441 ; 3229 AC[1]_0, J/DONE ;ZERO--DONE ; 3230 U 1645, 0120,4443,0000,4174,4007,0700,1000,0071,1764 ; 3231 JFFO1: FE_-12. ;WHY -12.? WELL THE ; 3232 ; HARDWARE LOOKS AT ; 3233 ; BIT -2 SO THE FIRST ; 3234 ; 2 STEPS MOVE THE BR ; 3235 ; OVER. WE ALSO LOOK AT ; 3236 ; THE DATA BEFORE THE SHIFT ; 3237 ; SO WE END UP GOING 1 PLACE ; 3238 ; TOO MANY. THAT MEANS THE ; 3239 ; FE SHOULD START AT -3. ; 3240 ; HOWEVER, WE COUNT THE FE BY ; 3241 ; 4 (BECAUSE THE 2 LOW ORDER ; 3242 ; BITS DO NOT COME BACK) SO ; 3243 ; FE_-12. ; 3244 =0 ; 3245 JFFOL: [BR]_[BR]*2, ;SHIFT LEFT ; 3246 FE_FE+4, ;COUNT UP BIT NUMBER U 0120, 0120,3445,0505,4174,4007,0520,1000,0041,0004 ; 3247 SKIP DP0, J/JFFOL ;LOOP TILL WE FIND THE BIT U 0121, 1745,3777,0003,4334,4057,0700,0000,0041,0000 ; 3248 [AR]_FE ;GET ANSWER BACK U 1745, 2001,4251,0303,4374,4007,0700,0000,0000,0077 ; 3249 [AR]_[AR].AND.# CLR LH,#/77 ;MASK TO 1 COPY U 2001, 0060,3440,0303,1174,4156,4700,0400,0000,1441 ; 3250 AC[1]_[AR], NEXT INST ;STORE AND EXIT ; 3251 ; 3252 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 79 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ROTATES AND LOGICAL SHIFTS -- LSHC ; 3253 .TOC "ROTATES AND LOGICAL SHIFTS -- LSHC" ; 3254 ; 3255 ;SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "LSHC" IS DONE: ; 3256 ; ; 3257 ; !-! !----!------------------------------------! ; 3258 ; !0!-->!0000! HIGH ORDER 36 BITS ! RAM FILE ; 3259 ; !-! !----!------------------------------------! ; 3260 ; ^ ; 3261 ; : ; 3262 ; .................................... ; 3263 ; : ; 3264 ; !----!------------------------------------! ; 3265 ; !0000! LOW ORDER 36 BITS ! Q-REGISTER ; 3266 ; !----!------------------------------------! ; 3267 ; ^ ; 3268 ; : ; 3269 ; !-! ; 3270 ; !0! ; 3271 ; !-! ; 3272 ; ; 3273 ; 3274 1464: U 1464, 0124,4443,0000,4174,4007,0630,2000,0060,0000 ; 3275 LSHC: STEP SC, J/LSHCL U 1465, 2004,3333,0003,4174,4007,0700,2000,0031,5777 ; 3276 1465: READ [AR], SC_-SHIFT-1 U 2004, 0122,4443,0000,4174,4007,0630,2000,0060,0000 ; 3277 STEP SC ; 3278 =0 U 0122, 0122,3446,0505,4174,4057,0630,2000,0060,0000 ; 3279 LSHCR: [BR]_[BR]*.5 LONG,STEP SC,LSHC,J/LSHCR U 0123, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3280 [BR]_[BR]*2 LONG,J/LSHCX ; 3281 ; 3282 =0 U 0124, 0124,3444,0505,4174,4057,0630,2000,0060,0000 ; 3283 LSHCL: [BR]_[BR]*2 LONG,LSHC,STEP SC,J/LSHCL U 0125, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3284 [BR]_[BR]*2 LONG U 2041, 2046,3444,0505,4174,4007,0700,0000,0000,0000 ; 3285 LSHCX: [BR]_[BR]*2 LONG U 2046, 2107,3440,0505,0174,4007,0700,0400,0000,0000 ; 3286 AC_[BR], J/ASHCQ1 ; 3287 ; 3288 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 80 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ROTATES AND LOGICAL SHIFTS -- ASHC ; 3289 .TOC "ROTATES AND LOGICAL SHIFTS -- ASHC" ; 3290 ; 3291 ; 3292 1466: ; 3293 ASHC: READ [AR], ;PUT AR ON DP ; 3294 SC_SHIFT, LOAD FE, ;PUT SHIFT IN BOTH SC AND FE U 1466, 0126,3333,0003,4174,4007,0330,3000,0041,4000 ; 3295 SKIP ADR.EQ.0 ;SEE IF NULL SHIFT ; 3296 =0 Q_AC[1], ;NOT NULL--GET LOW WORD U 0126, 2067,3772,0000,1275,5007,0701,0000,0000,1441 ; 3297 J/ASHC1 ;CONTINUE BELOW U 0127, 0060,4443,0000,4174,4156,4700,0000,0000,0000 ; 3298 NIDISP: NEXT INST ;NULL--ALL DONE ; 3299 ASHC1: [BR]_AC*.5 LONG, ;GET HIGH WORD ; 3300 ;AND SHIFT Q U 2067, 0130,3776,0005,0274,4007,0631,0000,0000,0000 ; 3301 SKIP/SC ;SEE WHICH DIRECTION ; 3302 =0 [BR]_[BR]*.5, ;ADJUST POSITION ; 3303 SC_FE+S#, S#/1776, ;SUBRTACT 2 FROM FE U 0130, 0134,3447,0505,4174,4007,0700,2000,0041,1776 ; 3304 J/ASHCL ;GO LEFT ; 3305 [BR]_[BR]*.5, ;ADJUST POSITION U 0131, 0132,3447,0505,4174,4007,0700,2000,0031,1776 ; 3306 SC_S#-FE, S#/1776 ;SC_-2-FE, SC_+# OF STEPS ; 3307 =0 ;HERE TO GO RIGHT ; 3308 ASHCR: [BR]_[BR]*.5 LONG, ;GO RIGHT ; 3309 ASHC, ;SET DATA PATHS FOR ASHC (SEE DPE1) U 0132, 0132,3446,0505,4174,4047,0630,2000,0060,0000 ; 3310 STEP SC, J/ASHCR ;COUNT THE STEP AND KEEP LOOPING ; 3311 [BR]_[BR]*2 LONG, ;PUT BACK WHERE IT GOES U 0133, 2077,3444,0505,4174,4047,0700,0000,0000,0000 ; 3312 ASHC, J/ASHCX ;COMPLETE INSTRUCTION ; 3313 ; 3314 =0 ; 3315 ASHCL: [BR]_[BR]*2 LONG, ;GO LEFT ; 3316 ASHC, ASH AROV, ;SEE IF OVERFLOW U 0134, 0134,3444,0505,4174,4447,0630,2000,0060,0000 ; 3317 STEP SC, J/ASHCL ;LOOP OVER ALL PLACES ; 3318 [BR]_[BR]*2 LONG, ;SHIFT BACK WHERE IT GOES U 0135, 2077,3444,0505,4174,4447,0700,0000,0000,0000 ; 3319 ASHC, ASH AROV ;CAN STILL OVERFLOW ; 3320 ASHCX: AC_[BR]+[BR], 3T, ;PUT BACK HIGH WORD U 2077, 0140,0113,0505,0174,4007,0521,0400,0000,0000 ; 3321 SKIP DP0 ;SEE HOW TO FIX LOW SIGN ; 3322 =0 Q_Q.AND.#, #/377777, ;POSITIVE, CLEAR LOW SIGN U 0140, 2107,4662,0000,4374,0007,0700,0000,0037,7777 ; 3323 HOLD RIGHT, J/ASHCQ1 ;GO STORE ANSWER ; 3324 Q_Q.OR.#, #/400000, ;NEGATIVE, SET LOW SIGN U 0141, 2107,3662,0000,4374,0007,0700,0000,0040,0000 ; 3325 HOLD RIGHT ;IN LEFT HALF U 2107, 0060,3223,0000,1174,4156,4700,0400,0000,1441 ; 3326 ASHCQ1: AC[1]_Q, NEXT INST ;PUT BACK Q AND EXIT ; 3327 ; 3328 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 81 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ROTATES AND LOGICAL SHIFTS -- ROTC ; 3329 .TOC "ROTATES AND LOGICAL SHIFTS -- ROTC" ; 3330 ; 3331 ;SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE: ; 3332 ; ; 3333 ; !----!------------------------------------! ; 3334 ; .....>!0000! HIGH ORDER 36 BITS ! RAM FILE ; 3335 ; : !----!------------------------------------! ; 3336 ; : ^ ; 3337 ; : : ; 3338 ; : ............................................ ; 3339 ; : : ; 3340 ; : : !----!------------------------------------! ; 3341 ; : ..!0000! LOW ORDER 36 BITS ! Q-REGISTER ; 3342 ; : !----!------------------------------------! ; 3343 ; : ^ ; 3344 ; : : ; 3345 ; :..............................................: ; 3346 ; ; 3347 ; 3348 1470: U 1470, 0144,4443,0000,4174,4007,0630,2000,0060,0000 ; 3349 ROTC: STEP SC, J/ROTCL U 1471, 2246,3333,0003,4174,4007,0700,2000,0031,5777 ; 3350 1471: READ [AR], SC_-SHIFT-1 U 2246, 0142,4443,0000,4174,4007,0630,2000,0060,0000 ; 3351 STEP SC ; 3352 =0 U 0142, 0142,3446,0505,4174,4077,0630,2000,0060,0000 ; 3353 ROTCR: [BR]_[BR]*.5 LONG,STEP SC,ROTC,J/ROTCR U 0143, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3354 [BR]_[BR]*2 LONG,J/LSHCX ; 3355 ; 3356 =0 U 0144, 0144,3444,0505,4174,4077,0630,2000,0060,0000 ; 3357 ROTCL: [BR]_[BR]*2 LONG,ROTC,STEP SC,J/ROTCL ; 3358 [BR]_[BR]*2 LONG, U 0145, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3359 J/LSHCX ; 3360 ; 3361 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 82 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 CIRC ; 3362 .TOC "CIRC" ; 3363 ; 3364 .IF/CIRC ; 3365 ; 3366 1665: U 1665, 2257,3772,0000,1275,5007,0701,0000,0000,1441 ; 3367 CIRC: Q_AC[1] ;PUT LOW WORD IN Q U 2257, 2310,3776,0005,0274,4007,0701,0000,0000,0000 ; 3368 [BR]_AC*.5 LONG ;PUT AC IN BR & SHIFT BR!Q RIGHT U 2310, 2324,3446,0505,4174,4007,0700,0000,0000,0000 ; 3369 [BR]_[BR]*.5 LONG ;SHIFT BR!Q 1 MORE PLACE RIGHT ; 3370 READ [AR], ;LOOK AT EFFECTIVE ADDRESS ; 3371 SKIP DP18, ;SEE IF LEFT OR RIGHT U 2324, 0146,3333,0003,4174,4007,0530,2000,0041,5777 ; 3372 SC_SHIFT-1 ;PUT NUMBER OF PLACES TO SHIFT IN ; 3373 ; SC AND FE (ASSUMING LEFT SHIFT) U 0146, 0150,4443,0000,4174,4007,0630,2000,0060,0000 ; 3374 =0 STEP SC, J/CIRCL ;GO LEFT SHIFT U 0147, 2406,3333,0003,4174,4007,0700,2000,0031,5777 ; 3375 READ [AR], SC_-SHIFT-1 ;CORRECT FOR RIGHT SHIFT U 2406, 0152,4443,0000,4174,4007,0630,2000,0060,0000 ; 3376 STEP SC, J/CIRCR ;GO RIGHT SHIFT ; 3377 U 2425, 2427,3446,0505,4174,4077,0700,0000,0000,0000 ; 3378 CIRCLA: [BR]_[BR]*.5 LONG, ROTC ;BOTH WORDS RIGHT U 2427, 0150,3445,0505,4174,4037,0630,2000,0060,0000 ; 3379 [BR]_[BR]*2, ROT, STEP SC ;FIRST WORD LEFT, STEP ; 3380 =0 U 0150, 2425,3445,0505,4174,4037,0700,0000,0000,0000 ; 3381 CIRCL: [BR]_[BR]*2, ROT, J/CIRCLA ;FIRST WORD LEFT U 0151, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3382 [BR]_[BR]*2 LONG, J/LSHCX ;DONE ; 3383 U 2437, 2442,3444,0505,4174,4077,0700,0000,0000,0000 ; 3384 CIRCRA: [BR]_[BR]*2 LONG, ROTC ;BOTH WORDS LEFT U 2442, 0152,3447,0505,4174,4037,0630,2000,0060,0000 ; 3385 [BR]_[BR]*.5, ROT, STEP SC ;FIRST WORD RIGHT, STEP ; 3386 =0 U 0152, 2437,3447,0505,4174,4037,0700,0000,0000,0000 ; 3387 CIRCR: [BR]_[BR]*.5, ROT, J/CIRCRA ;FIRST WORD RIGHT U 0153, 2041,3444,0505,4174,4007,0700,0000,0000,0000 ; 3388 [BR]_[BR]*2 LONG, J/LSHCX ;DONE ; 3389 ; 3390 .ENDIF/CIRC ; 3391 ; 3392 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 83 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 TEST GROUP ; 3393 .TOC "TEST GROUP" ; 3394 ; 3395 .DCODE ; 3396 ; 3397 ;SPECIAL MACROS USED ONLY IN B-FIELD OF TEST INSTRUCTIONS ; 3398 TN- "B/4" ; 3399 TNE "B/0" ; 3400 WORD-TNE "B/10" ;USED IN TIOE ; 3401 TNA "B/0" ; 3402 TNN "B/4" ; 3403 WORD-TNN "B/14" ;USED IN TION ; 3404 TZ- "B/5" ; 3405 TZE "B/1" ; 3406 TZA "B/1" ; 3407 TZN "B/5" ; 3408 TC- "B/6" ; 3409 TCE "B/2" ; 3410 TCA "B/2" ; 3411 TCN "B/6" ; 3412 TO- "B/7" ; 3413 TOE "B/3" ; 3414 TOA "B/3" ; 3415 TON "B/7" ; 3416 D 0600, 0000,1400,2100 ; 3417 600: I, J/DONE ;TRN- IS NOP D 0601, 0000,1400,2100 ; 3418 I, J/DONE ;SO IS TLN- D 0602, 0000,1475,2100 ; 3419 I, TNE, J/TDXX D 0603, 0000,1474,2100 ; 3420 I, TNE, J/TSXX D 0604, 0000,1473,2100 ; 3421 I, TNA, J/TDX D 0605, 0000,1472,2100 ; 3422 I, TNA, J/TSX D 0606, 0004,1475,2100 ; 3423 I, TNN, J/TDXX D 0607, 0004,1474,2100 ; 3424 I, TNN, J/TSXX ; 3425 D 0610, 0000,1400,2100 ; 3426 610: I, J/DONE ;TDN- IS A NOP D 0611, 0000,1400,2100 ; 3427 I, J/DONE ;TSN- ALSO D 0612, 0000,1475,1100 ; 3428 R, TNE, J/TDXX D 0613, 0000,1474,1100 ; 3429 R, TNE, J/TSXX D 0614, 0000,1473,1100 ; 3430 R, TNA, J/TDX D 0615, 0000,1472,1100 ; 3431 R, TNA, J/TSX D 0616, 0004,1475,1100 ; 3432 R, TNN, J/TDXX D 0617, 0004,1474,1100 ; 3433 R, TNN, J/TSXX ; 3434 D 0620, 0005,1473,2100 ; 3435 620: I, TZ-, J/TDX D 0621, 0005,1472,2100 ; 3436 I, TZ-, J/TSX D 0622, 0001,1475,2100 ; 3437 I, TZE, J/TDXX D 0623, 0001,1474,2100 ; 3438 I, TZE, J/TSXX D 0624, 0001,1473,2100 ; 3439 I, TZA, J/TDX D 0625, 0001,1472,2100 ; 3440 I, TZA, J/TSX D 0626, 0005,1475,2100 ; 3441 I, TZN, J/TDXX D 0627, 0005,1474,2100 ; 3442 I, TZN, J/TSXX ; 3443 D 0630, 0005,1473,1100 ; 3444 630: R, TZ-, J/TDX D 0631, 0005,1472,1100 ; 3445 R, TZ-, J/TSX D 0632, 0001,1475,1100 ; 3446 R, TZE, J/TDXX D 0633, 0001,1474,1100 ; 3447 R, TZE, J/TSXX D 0634, 0001,1473,1100 ; 3448 R, TZA, J/TDX D 0635, 0001,1472,1100 ; 3449 R, TZA, J/TSX D 0636, 0005,1475,1100 ; 3450 R, TZN, J/TDXX D 0637, 0005,1474,1100 ; 3451 R, TZN, J/TSXX ; 3452 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 84 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 TEST GROUP ; 3453 D 0640, 0006,1473,2100 ; 3454 640: I, TC-, J/TDX D 0641, 0006,1472,2100 ; 3455 I, TC-, J/TSX D 0642, 0002,1475,2100 ; 3456 I, TCE, J/TDXX D 0643, 0002,1474,2100 ; 3457 I, TCE, J/TSXX D 0644, 0002,1473,2100 ; 3458 I, TCA, J/TDX D 0645, 0002,1472,2100 ; 3459 I, TCA, J/TSX D 0646, 0006,1475,2100 ; 3460 I, TCN, J/TDXX D 0647, 0006,1474,2100 ; 3461 I, TCN, J/TSXX ; 3462 D 0650, 0006,1473,1100 ; 3463 650: R, TC-, J/TDX D 0651, 0006,1472,1100 ; 3464 R, TC-, J/TSX D 0652, 0002,1475,1100 ; 3465 R, TCE, J/TDXX D 0653, 0002,1474,1100 ; 3466 R, TCE, J/TSXX D 0654, 0002,1473,1100 ; 3467 R, TCA, J/TDX D 0655, 0002,1472,1100 ; 3468 R, TCA, J/TSX D 0656, 0006,1475,1100 ; 3469 R, TCN, J/TDXX D 0657, 0006,1474,1100 ; 3470 R, TCN, J/TSXX D 0660, 0007,1473,2100 ; 3471 660: I, TO-, J/TDX D 0661, 0007,1472,2100 ; 3472 I, TO-, J/TSX D 0662, 0003,1475,2100 ; 3473 I, TOE, J/TDXX D 0663, 0003,1474,2100 ; 3474 I, TOE, J/TSXX D 0664, 0003,1473,2100 ; 3475 I, TOA, J/TDX D 0665, 0003,1472,2100 ; 3476 I, TOA, J/TSX D 0666, 0007,1475,2100 ; 3477 I, TON, J/TDXX D 0667, 0007,1474,2100 ; 3478 I, TON, J/TSXX ; 3479 D 0670, 0007,1473,1100 ; 3480 670: R, TO-, J/TDX D 0671, 0007,1472,1100 ; 3481 R, TO-, J/TSX D 0672, 0003,1475,1100 ; 3482 R, TOE, J/TDXX D 0673, 0003,1474,1100 ; 3483 R, TOE, J/TSXX D 0674, 0003,1473,1100 ; 3484 R, TOA, J/TDX D 0675, 0003,1472,1100 ; 3485 R, TOA, J/TSX D 0676, 0007,1475,1100 ; 3486 R, TON, J/TDXX D 0677, 0007,1474,1100 ; 3487 R, TON, J/TSXX ; 3488 ; 3489 .UCODE ; 3490 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 85 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 TEST GROUP ; 3491 ; 3492 ;THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE(IMMEDIATE OR MEMORY) ; 3493 ; IN THE A FIELD, DISPATCH TO HERE ON THE J FIELD, AND RE-DISPATCH ; 3494 ; FOR THE MODIFICATION ON THE B FIELD. ; 3495 ; 3496 ; ENTER WITH 0,E OR (E) IN AR, B FIELD BITS 2 AND 3 AS FOLLOWS: ; 3497 ; 0 0 NO MODIFICATION ; 3498 ; 0 1 0S ; 3499 ; 1 0 COMPLEMENT ; 3500 ; 1 1 ONES ; 3501 ; THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE ; 3502 ; ORDER OF INSTRUCTIONS AT TGROUP. ; 3503 ; 3504 ;THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE ; 3505 ; OF THE SKIP ; 3506 ; 1 SKIP IF AC.AND.MASK .NE. 0 (TXX- AND TXXN) ; 3507 ; 0 SKIP IF AC.AND.MASK .EQ. 0 (TXXA AND TXXE) ; 3508 ; 3509 ;BIT 0 IS UNUSED AND MUST BE ZERO ; 3510 ; 3511 ; 3512 1472: U 1472, 1473,3770,0303,4344,4007,0700,0000,0000,0000 ; 3513 TSX: [AR]_[AR] SWAP ;TSXX AND TLXX ; 3514 1473: U 1473, 0154,4221,0005,4174,4003,7700,0000,0000,0000 ; 3515 TDX: [BR]_0,TEST DISP ; ALWAYS AND NEVER SKIP CASES ; 3516 ; 3517 1474: U 1474, 1475,3770,0303,4344,4007,0700,0000,0000,0000 ; 3518 TSXX: [AR]_[AR] SWAP ;TSXE, TSXN, TLXE, TLXN ; 3519 1475: ; 3520 TDXX: [BR]_[AR].AND.AC, ;TDXE, TDXN, TRXE, TRXN U 1475, 0154,4551,0305,0274,4003,7700,0000,0000,0000 ; 3521 TEST DISP ; 3522 ; 3523 ;TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM ; 3524 ; 3525 =1100 ; 3526 TEST-TABLE: ; 3527 ; 3528 ;CASE 0 & 4 -- TXNX U 0154, 1400,3333,0005,4174,4007,0571,0000,0000,0000 ; 3529 TXXX: READ [BR], TXXX TEST, 3T, J/DONE ; 3530 ; 3531 ;CASE 1 & 5 -- TXZ AND TXZX U 0155, 2444,7441,0303,4174,4007,0700,0000,0000,0000 ; 3532 [AR]_.NOT.[AR],J/TXZX ; 3533 ; 3534 ;CASE 2 & 6 -- TXC AND TXCX U 0156, 2446,6551,0303,0274,4007,0700,0000,0000,0000 ; 3535 [AR]_[AR].XOR.AC,J/TDONE ; 3536 ; 3537 ;CASE 3 & 7 -- TXO AND TXOX U 0157, 2446,3551,0303,0274,4007,0700,0000,0000,0000 ; 3538 [AR]_[AR].OR.AC,J/TDONE ; 3539 ; 3540 ;THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF ; 3541 ; AD.EQ.0 AND DROM B IS 0-3 OR AD.NE.0 AND DROM B IS 4-7. ; 3542 U 2444, 2446,4551,0303,0274,4007,0700,0000,0000,0000 ; 3543 TXZX: [AR]_[AR].AND.AC U 2446, 0154,3440,0303,0174,4007,0700,0400,0000,0000 ; 3544 TDONE: AC_[AR],J/TXXX ; 3545 ; READ BR,TXXX TEST,J/DONE ; 3546 ; 3547 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 86 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 COMPARE -- CAI, CAM ; 3548 .TOC "COMPARE -- CAI, CAM" ; 3549 ; 3550 .DCODE ; 3551 ; 3552 ;SPECIAL B-FIELD ENCODING USED BY SKIP-JUMP-COMPARE CLASS ; 3553 ; INSTRUCTIONS: ; 3554 ; 3555 SJC- "B/0" ;NEVER ; 3556 SJCL "B/1" ;LESS ; 3557 SJCE "B/2" ;EQUAL ; 3558 SJCLE "B/3" ;LESS EQUAL ; 3559 SJCA "B/4" ;ALWAYS ; 3560 SJCGE "B/5" ;GREATER THAN OR EQUAL ; 3561 SJCN "B/6" ;NOT EQUAL ; 3562 SJCG "B/7" ;GREATER ; 3563 ; 3564 .UCODE ; 3565 ; 3566 ;COMPARE TABLE ; 3567 =1000 ; 3568 SKIP-COMP-TABLE: ; 3569 ; 3570 ;CASE 0 -- NEVER U 0170, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 3571 DONE ; 3572 ; 3573 ;CASE 1 -- LESS U 0171, 1400,3333,0003,4174,4007,0520,0000,0000,0000 ; 3574 READ [AR], SKIP DP0,J/DONE ; 3575 ; 3576 ;CASE 2 -- EQUAL U 0172, 1400,3333,0003,4174,4007,0621,0000,0000,0000 ; 3577 SKIPE: READ [AR], SKIP AD.EQ.0,J/DONE ; 3578 ; 3579 ;CASE 3 -- LESS OR EQUAL U 0173, 1400,3333,0003,4174,4007,0421,0000,0000,0000 ; 3580 READ [AR], SKIP AD.LE.0,J/DONE ; 3581 ; 3582 ;CASE 4 -- ALWAYS U 0174, 0070,0111,0701,4170,4156,4700,0200,0014,0012 ; 3583 VMA_[PC]+1, NEXT INST FETCH, FETCH ; 3584 ; 3585 ;CASE 5 -- GREATER THAN OR EQUAL U 0175, 0014,3333,0003,4174,4007,0520,0000,0000,0000 ; 3586 READ [AR], SKIP DP0,J/SKIP ; 3587 ; 3588 ;CASE 6 -- NOT EQUAL U 0176, 0014,3333,0003,4174,4007,0621,0000,0000,0000 ; 3589 READ [AR], SKIP AD.EQ.0,J/SKIP ; 3590 ; 3591 ;CASE 7 -- GREATER U 0177, 0014,3333,0003,4174,4007,0421,0000,0000,0000 ; 3592 READ [AR], SKIP AD.LE.0,J/SKIP ; 3593 ; 3594 .DCODE D 0300, 0000,1400,2100 ; 3595 300: I, SJC-, J/DONE ;CAI D 0301, 0001,1476,2100 ; 3596 I, SJCL, J/CAIM D 0302, 0002,1476,2100 ; 3597 I, SJCE, J/CAIM D 0303, 0003,1476,2100 ; 3598 I, SJCLE, J/CAIM D 0304, 0004,1476,2100 ; 3599 I, SJCA, J/CAIM D 0305, 0005,1476,2100 ; 3600 I, SJCGE, J/CAIM D 0306, 0006,1476,2100 ; 3601 I, SJCN, J/CAIM D 0307, 0007,1476,2100 ; 3602 I, SJCG, J/CAIM ; 3603 D 0310, 0000,1476,1100 ; 3604 310: R, SJC-, J/CAIM ;CAM D 0311, 0001,1476,1100 ; 3605 R, SJCL, J/CAIM D 0312, 0002,1476,1100 ; 3606 R, SJCE, J/CAIM D 0313, 0003,1476,1100 ; 3607 R, SJCLE, J/CAIM D 0314, 0004,1476,1100 ; 3608 R, SJCA, J/CAIM D 0315, 0005,1476,1100 ; 3609 R, SJCGE, J/CAIM D 0316, 0006,1476,1100 ; 3610 R, SJCN, J/CAIM D 0317, 0007,1476,1100 ; 3611 R, SJCG, J/CAIM ; 3612 .UCODE ; 3613 ; 3614 1476: U 1476, 0170,2551,0303,0274,4003,7701,4000,0000,0000 ; 3615 CAIM: [AR]_AC-[AR], 3T, SKIP-COMP DISP ; 3616 ; 3617 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 87 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC SKIPS -- AOS, SOS, SKIP ; 3618 .TOC "ARITHMETIC SKIPS -- AOS, SOS, SKIP" ; 3619 ;ENTER WITH (E) IN AR ; 3620 ; 3621 .DCODE D 0330, 0000,1477,1100 ; 3622 330: R, SJC-, J/SKIPS ;NOT A NOP IF AC .NE. 0 D 0331, 0001,1477,1100 ; 3623 R, SJCL, J/SKIPS D 0332, 0002,1477,1100 ; 3624 R, SJCE, J/SKIPS D 0333, 0003,1477,1100 ; 3625 R, SJCLE, J/SKIPS D 0334, 0004,1477,1100 ; 3626 R, SJCA, J/SKIPS D 0335, 0005,1477,1100 ; 3627 R, SJCGE, J/SKIPS D 0336, 0006,1477,1100 ; 3628 R, SJCN, J/SKIPS D 0337, 0007,1477,1100 ; 3629 R, SJCG, J/SKIPS ; 3630 .UCODE ; 3631 ; 3632 1477: ; 3633 SKIPS: FIX [AR] SIGN, U 1477, 0160,3770,0303,4174,0007,0360,0000,0000,0000 ; 3634 SKIP IF AC0 U 0160, 0170,3440,0303,0174,4003,7700,0400,0000,0000 ; 3635 =0 AC_[AR],SKIP-COMP DISP U 0161, 0170,4443,0000,4174,4003,7700,0000,0000,0000 ; 3636 SKIP-COMP DISP ; 3637 ; 3638 .DCODE D 0350, 0000,1431,1500 ; 3639 350: RW, SJC-, J/AOS D 0351, 0001,1431,1500 ; 3640 RW, SJCL, J/AOS D 0352, 0002,1431,1500 ; 3641 RW, SJCE, J/AOS D 0353, 0003,1431,1500 ; 3642 RW, SJCLE, J/AOS D 0354, 0004,1431,1500 ; 3643 RW, SJCA, J/AOS D 0355, 0005,1431,1500 ; 3644 RW, SJCGE, J/AOS D 0356, 0006,1431,1500 ; 3645 RW, SJCN, J/AOS D 0357, 0007,1431,1500 ; 3646 RW, SJCG, J/AOS ; 3647 .UCODE ; 3648 ; 3649 1431: U 1431, 2522,0111,0703,4174,4467,0701,0000,0001,0001 ; 3650 AOS: [AR]_[AR]+1, 3T, AD FLAGS U 2522, 2550,4443,0000,4174,4007,0700,0200,0003,0002 ; 3651 XOS: START WRITE U 2550, 1477,3333,0003,4175,5007,0701,0200,0000,0002 ; 3652 MEM WRITE,MEM_[AR],J/SKIPS ; 3653 ; 3654 .DCODE D 0370, 0000,1437,1500 ; 3655 370: RW, SJC-, J/SOS D 0371, 0001,1437,1500 ; 3656 RW, SJCL, J/SOS D 0372, 0002,1437,1500 ; 3657 RW, SJCE, J/SOS D 0373, 0003,1437,1500 ; 3658 RW, SJCLE, J/SOS D 0374, 0004,1437,1500 ; 3659 RW, SJCA, J/SOS D 0375, 0005,1437,1500 ; 3660 RW, SJCGE, J/SOS D 0376, 0006,1437,1500 ; 3661 RW, SJCN, J/SOS D 0377, 0007,1437,1500 ; 3662 RW, SJCG, J/SOS ; 3663 .UCODE ; 3664 ; 3665 1437: U 1437, 2522,1111,0703,4174,4467,0701,4000,0001,0001 ; 3666 SOS: [AR]_[AR]-1, 3T, AD FLAGS, J/XOS ; 3667 ; 3668 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 88 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3669 .TOC "CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ" ; 3670 ; ENTER WITH E IN AR ; 3671 ; 3672 =1000 ; 3673 JUMP-TABLE: ; 3674 ; 3675 ;CASE 0 -- NEVER U 0210, 0060,3440,0505,0174,4156,4700,0400,0000,0000 ; 3676 AC_[BR], NEXT INST ; 3677 ; 3678 ;CASE 1 -- LESS U 0211, 0162,3770,0505,0174,4007,0520,0400,0000,0000 ; 3679 AC_[BR] TEST, SKIP DP0, J/JUMP- ; 3680 ; 3681 ;CASE 2 -- EQUAL U 0212, 0162,3770,0505,0174,4007,0621,0400,0000,0000 ; 3682 AC_[BR] TEST, SKIP AD.EQ.0, J/JUMP- ; 3683 ; 3684 ;CASE 3 -- LESS THAN OR EQUAL U 0213, 0162,3770,0505,0174,4007,0421,0400,0000,0000 ; 3685 AC_[BR] TEST, SKIP AD.LE.0, J/JUMP- ; 3686 ; 3687 ;CASE 4 -- ALWAYS U 0214, 0164,3440,0505,0174,4007,0700,0400,0000,0000 ; 3688 JMPA: AC_[BR], J/JUMPA ; 3689 ; 3690 ;CASE 5 -- GREATER THAN OR EQUAL TO U 0215, 0164,3770,0505,0174,4007,0520,0400,0000,0000 ; 3691 AC_[BR] TEST, SKIP DP0, J/JUMPA ; 3692 ; 3693 ;CASE 6 -- NOT EQUAL U 0216, 0164,3770,0505,0174,4007,0621,0400,0000,0000 ; 3694 AC_[BR] TEST, SKIP AD.EQ.0, J/JUMPA ; 3695 ; 3696 ;CASE 7 -- GREATER U 0217, 0164,3770,0505,0174,4007,0421,0400,0000,0000 ; 3697 AC_[BR] TEST, SKIP AD.LE.0, J/JUMPA ; 3698 ; 3699 =0 U 0162, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 3700 JUMP-: DONE U 0163, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3701 JUMPA ; 3702 ; 3703 =0 U 0164, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3704 JUMPA: JUMPA U 0165, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 3705 DONE ; 3706 ; 3707 ; 3708 .DCODE D 0320, 0000,1400,2100 ; 3709 320: I, SJC-, J/DONE D 0321, 0001,1440,2100 ; 3710 I, SJCL, J/JUMP D 0322, 0002,1440,2100 ; 3711 I, SJCE, J/JUMP D 0323, 0003,1440,2100 ; 3712 I, SJCLE, J/JUMP D 0324, 0004,1520,2100 ; 3713 I, SJCA, J/JRST D 0325, 0005,1440,2100 ; 3714 I, SJCGE, J/JUMP D 0326, 0006,1440,2100 ; 3715 I, SJCN, J/JUMP D 0327, 0007,1440,2100 ; 3716 I, SJCG, J/JUMP ; 3717 .UCODE ; 3718 ; 3719 1440: U 1440, 0210,3771,0005,0276,6003,7700,0000,0000,0000 ; 3720 JUMP: [BR]_AC,JUMP DISP ; 3721 ; 3722 .DCODE D 0340, 0000,1611,3000 ; 3723 340: I-PF, SJC-, J/AOJ D 0341, 0001,1611,2100 ; 3724 I, SJCL, J/AOJ D 0342, 0002,1611,2100 ; 3725 I, SJCE, J/AOJ D 0343, 0003,1611,2100 ; 3726 I, SJCLE, J/AOJ D 0344, 0004,1611,2100 ; 3727 I, SJCA, J/AOJ D 0345, 0005,1611,2100 ; 3728 I, SJCGE, J/AOJ D 0346, 0006,1611,2100 ; 3729 I, SJCN, J/AOJ D 0347, 0007,1611,2100 ; 3730 I, SJCG, J/AOJ ; 3731 .UCODE ; 3732 ; 3733 1611: U 1611, 0210,0551,0705,0274,4463,7702,0000,0001,0001 ; 3734 AOJ: [BR]_AC+1, AD FLAGS, 4T, JUMP DISP ; 3735 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 89 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3736 ; 3737 .DCODE D 0360, 0000,1542,3000 ; 3738 360: I-PF, SJC-, J/SOJ D 0361, 0001,1542,2100 ; 3739 I, SJCL, J/SOJ D 0362, 0002,1542,2100 ; 3740 I, SJCE, J/SOJ D 0363, 0003,1542,2100 ; 3741 I, SJCLE, J/SOJ D 0364, 0004,1542,2100 ; 3742 I, SJCA, J/SOJ D 0365, 0005,1542,2100 ; 3743 I, SJCGE, J/SOJ D 0366, 0006,1542,2100 ; 3744 I, SJCN, J/SOJ D 0367, 0007,1542,2100 ; 3745 I, SJCG, J/SOJ ; 3746 .UCODE ; 3747 ; 3748 1542: U 1542, 0210,2551,0705,0274,4463,7702,4000,0001,0001 ; 3749 SOJ: [BR]_AC-1, AD FLAGS, 4T, JUMP DISP ; 3750 ; 3751 .DCODE D 0252, 0005,1547,2100 ; 3752 252: I, SJCGE, J/AOBJ D 0253, 0001,1547,2100 ; 3753 I, SJCL, J/AOBJ ; 3754 .UCODE ; 3755 ; 3756 1547: ; 3757 AOBJ: [BR]_AC+1000001, ;ADD 1 TO BOTH HALF WORDS ; 3758 INH CRY18, 3T, ;NO CARRY INTO LEFT HALF U 1547, 0210,0551,1505,0274,4403,7701,0000,0000,0000 ; 3759 JUMP DISP ;HANDLE EITHER AOBJP OR AOBJN ; 3760 ; 3761 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 90 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 AC DECODE JUMPS -- JRST, JFCL ; 3762 .TOC "AC DECODE JUMPS -- JRST, JFCL" ; 3763 ; 3764 .DCODE D 0254, 0000,1520,6000 ; 3765 254: I,VMA/0, AC DISP, J/JRST ;DISPATCHES TO 1 OF 16 ; 3766 ; PLACES ON AC BITS D 0255, 0000,1540,2100 ; 3767 I, J/JFCL ; 3768 .UCODE ; 3769 ; 3770 ;JRST DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS ; 3771 ; 3772 =0000 ; 3773 1520: U 1520, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3774 JRST: JUMPA ;(0) JRST 0, U 1521, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3775 1521: JUMPA ;(1) PORTAL IS SAME AS JRST ; 3776 1522: VMA_[PC]-1, START READ, ;(2) JRSTF U 1522, 0064,1113,0701,4170,4007,0700,4200,0004,0012 ; 3777 J/JRSTF U 1523, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3778 1523: UUO ;(3) U 1524, 0200,4443,0000,4174,4007,0340,0000,0000,0000 ; 3779 1524: SKIP KERNEL, J/HALT ;(4) HALT ; 3780 1525: ; 3781 XJRSTF0: VMA_[AR], START READ, ;(5) XJRSTF U 1525, 2555,3443,0300,4174,4007,0700,0200,0004,0012 ; 3782 J/XJRSTF U 1526, 0240,4443,0000,4174,4007,0340,0000,0000,0000 ; 3783 1526: SKIP KERNEL, J/XJEN ;(6) XJEN U 1527, 0204,4443,0000,4174,4007,0340,0000,0000,0000 ; 3784 1527: SKIP KERNEL, J/XPCW ;(7) XPCW ; 3785 1530: VMA_[PC]-1, START READ, ;(10) U 1530, 0202,1113,0701,4170,4007,0040,4200,0004,0012 ; 3786 SKIP IO LEGAL, J/JRST10 U 1531, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3787 1531: UUO ;(11) ; 3788 1532: VMA_[PC]-1, START READ, ;(12) JEN U 1532, 0220,1113,0701,4170,4007,0040,4200,0004,0012 ; 3789 SKIP IO LEGAL, J/JEN U 1533, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3790 1533: UUO ;(13) U 1534, 0206,4443,0000,4174,4007,0340,0000,0000,0000 ; 3791 1534: SKIP KERNEL, J/SFM ;(14) SFM U 1535, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3792 1535: UUO ;(15) U 1536, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3793 1536: UUO ;(16) U 1537, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3794 1537: UUO ;(17) ; 3795 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 91 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 AC DECODE JUMPS -- JRST, JFCL ; 3796 ; 3797 =0* ; 3798 JRSTF: MEM READ, ;WAIT FOR DATA ; 3799 [HR]_MEM, ;STICK IN HR ; 3800 LOAD INST EA, ;LOAD @@ AND XR U 0064, 2551,3771,0002,4365,5217,0700,0210,0000,0002 ; 3801 CALL [JRST0] ;COMPUTE EA AGAIN U 0066, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3802 JUMPA ;JUMP ; 3803 U 2551, 0110,4443,0000,2174,4006,6700,0000,0000,0000 ; 3804 JRST0: EA MODE DISP ;WHAT TYPE OF EA? ; 3805 =100* ; 3806 .IF/1PROC ; 3807 [BR]_XR, ;INDEXED ; 3808 LOAD FLAGS, ;GET FLAGS FROM XR ; 3809 UPDATE USER, ;ALLOW USER TO SET U 0110, 2553,3771,0005,2274,4467,0700,0000,0001,0004 ; 3810 J/JRST2 ; 3811 ; 3812 [BR]_[HR], ;PLAIN ; 3813 LOAD FLAGS, ;LOAD FLAGS FROM INST ; 3814 UPDATE USER, ;ALLOW USER TO SET U 0112, 2553,3441,0205,4174,4467,0700,0000,0001,0004 ; 3815 J/JRST2 ; 3816 .IFNOT/1PROC ; 3817 READ XR, ;INDEXED ; 3818 LOAD FLAGS, ;GET FLAGS FROM XR ; 3819 UPDATE USER, ;ALLOW USER TO SET ; 3820 RETURN [2] ;ALL DONE ; 3821 ; 3822 READ [HR], ;PLAIN ; 3823 LOAD FLAGS, ;LOAD FLAGS FROM INST ; 3824 UPDATE USER, ;ALLOW USER TO SET ; 3825 RETURN [2] ;RETURN ; 3826 .ENDIF/1PROC ; 3827 [HR]_[HR]+XR, ;BOTH ; 3828 LOAD VMA, ;FETCH IND WORD ; 3829 START READ, ;START MEM CYCLE U 0114, 2552,0551,0202,2270,4007,0700,0200,0004,0012 ; 3830 J/JRST1 ;CONTINUE BELOW ; 3831 ; 3832 VMA_[HR], ;INDIRECT ; 3833 START READ, ;FETCH IND WORD ; 3834 PXCT EA, ;SETUP PXCT STUFF U 0116, 2552,3443,0200,4174,4007,0700,0200,0004,0112 ; 3835 J/JRST1 ;CONTINUE BELOW ; 3836 ; 3837 JRST1: MEM READ, ;WAIT FOR DATA ; 3838 [HR]_MEM, ;LOAD THE HR ; 3839 LOAD INST EA, ;LOAD @@ AND XR U 2552, 2551,3771,0002,4365,5217,0700,0200,0000,0002 ; 3840 J/JRST0 ;LOOP BACK ; 3841 ; 3842 .IF/1PROC ;BR HAS PC FLAGS THAT WERE JUST LOADED U 2553, 0166,4553,0500,4374,4007,0321,0000,0000,1000 ; 3843 JRST2: TL [BR], OIPBIT/1 ;ARE WE TRYING TO ONE-PROCEED? U 0166, 0002,3551,1313,4374,0004,1700,0000,0000,1000 ; 3844 =0 [FLG]_[FLG].OR.#, FLG.1PROC/1, HOLD RIGHT, RETURN [2] U 0167, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 3845 RETURN [2] ; 3846 .ENDIF/1PROC ; 3847 ; 3848 =0 U 0200, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3849 HALT: UUO ;USER MODE U 0201, 2554,3441,0301,4174,4007,0700,0000,0000,0000 ; 3850 [PC]_[AR] ;EXEC MODE--CHANGE PC U 2554, 2404,4751,1217,4374,4007,0700,0000,0000,0001 ; 3851 HALT [HALT] ;HALT INSTRUCTION ; 3852 ; 3853 =0 U 0202, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3854 JRST10: UUO U 0203, 0223,4443,0000,4174,4007,0700,0000,0000,0000 ; 3855 J/JEN2 ;DISMISS INTERRUPT ; 3856 =0000 U 0220, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3857 JEN: UUO ; FLAGS ; 3858 MEM READ, ; 3859 [HR]_MEM, ;GET INST ; 3860 LOAD INST EA, ;LOAD XR & @@ U 0221, 2551,3771,0002,4365,5217,0700,0210,0000,0002 ; 3861 CALL [JRST0] ;COMPUTE FLAGS ; 3862 =0011 U 0223, 2340,4553,1400,4374,4007,0331,0010,0007,7400 ; 3863 JEN2: DISMISS ;DISMISS INTERRUPT U 0227, 3473,3770,1416,4344,4007,0700,0010,0000,0000 ; 3864 =0111 CALL LOAD PI ;RELOAD PI HARDWARE U 0237, 0070,3441,0301,4170,4156,4700,0200,0014,0012 ; 3865 =1111 JUMPA ;GO JUMP ; 3866 = ; 3867 ; 3868 1540: ; 3869 JFCL: JFCL FLAGS, ;ALL DONE IN HARDWARE ; 3870 SKIP JFCL, ;SEE IF SKIPS ; 3871 3T, ;ALLOW TIME U 1540, 0162,4443,0000,4174,4467,0551,0000,0001,0010 ; 3872 J/JUMP- ;JUMP IF WE SHOULD ; 3873 ; 3874 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 92 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 EXTENDED ADDRESSING INSTRUCTIONS ; 3875 .TOC "EXTENDED ADDRESSING INSTRUCTIONS" ; 3876 ; 3877 =0000 U 0240, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3878 XJEN: UUO ;HERE IF USER MODE U 0241, 2340,4553,1400,4374,4007,0331,0010,0007,7400 ; 3879 DISMISS ;CLEAR HIGHEST INTERRUPT U 0245, 0255,3333,0012,4174,4437,0700,0000,0000,0000 ; 3880 =0101 READ [MASK], LOAD PI ;NO MORE INTERRUPTS ; 3881 =1101 ABORT MEM CYCLE, ;AVOID INTERRUPT PAGE FAIL U 0255, 1525,4223,0000,4364,4277,0700,0200,0000,0010 ; 3882 J/XJRSTF0 ;START READING FLAG WORD ; 3883 = ; 3884 U 2555, 2556,3771,0005,4365,5007,0700,0200,0000,0002 ; 3885 XJRSTF: MEM READ, [BR]_MEM ;PUT FLAGS IN BR ; 3886 [AR]_[AR]+1, ;INCREMENT ADDRESS ; 3887 LOAD VMA, ;PUT RESULT IN VMA U 2556, 2557,0111,0703,4174,4007,0700,0200,0004,0012 ; 3888 START READ ;START MEMORY ; 3889 MEM READ, [PC]_MEM, ;PUT DATA IN PC U 2557, 2560,3771,0001,4361,5007,0700,0200,0000,0002 ; 3890 HOLD LEFT ;IGNORE SECTION NUMBER ; 3891 READ [BR], LOAD FLAGS, ;LOAD NEW FLAGS U 2560, 2561,3333,0005,4174,4467,0700,0000,0001,0004 ; 3892 UPDATE USER ;SET BUT DON'T CLEAR USER FLAG ; 3893 PISET: [FLG]_[FLG].AND.NOT.#, ;CLEAR PI CYCLE ; 3894 FLG.PI/1, HOLD RIGHT, ;RELOAD PI HARDWARE U 2561, 2301,5551,1313,4374,0007,0700,0000,0001,0000 ; 3895 J/PIEXIT ; IN CASE THIS IS AN ; 3896 ; INTERRUPT INSTRUCTION ; 3897 ; 3898 =0 U 0204, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3899 XPCW: UUO ;USER MODE U 0205, 0230,4521,1205,4074,4007,0700,0000,0000,0000 ; 3900 [BR]_FLAGS ;PUT FLAGS IN BR ; 3901 =0*0 ; 3902 PIXPCW: VMA_[AR], START WRITE, ;STORE FLAGS U 0230, 3554,3443,0300,4174,4007,0700,0210,0003,0012 ; 3903 CALL [STOBR] ;PUT BR IN MEMORY ; 3904 =1*0 VMA_[AR]+1, LOAD VMA, ; 3905 START WRITE, ;PREPEARE TO STORE PC U 0234, 3555,0111,0703,4170,4007,0700,0210,0003,0012 ; 3906 CALL [STOPC] ;PUT PC IN MEMORY ; 3907 =1*1 [AR]_[AR]+1, ;DO NEW PC PART U 0235, 2555,0111,0703,4174,4007,0700,0200,0004,0002 ; 3908 START READ, J/XJRSTF ; 3909 = ; 3910 ; 3911 =0 U 0206, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3912 SFM: UUO U 0207, 2562,3443,0300,4174,4007,0700,0200,0003,0012 ; 3913 VMA_[AR], START WRITE ;STORE FLAGS U 2562, 0037,4521,1203,4074,4007,0700,0000,0000,0000 ; 3914 [AR]_FLAGS, J/STORE ;STORE AND EXIT ; 3915 ; 3916 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 93 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 XCT, XCTR, XCTRI ; 3917 .TOC "XCT, XCTR, XCTRI" ; 3918 ; 3919 .DCODE ; 3920 .IF/ITS D 0102, 0000,1662,2100 ; 3921 102: I, J/XCTRI D 0103, 0000,1663,2100 ; 3922 I, J/XCTR ; 3923 .ENDIF/ITS D 0256, 0000,1541,1100 ; 3924 256: R, J/XCT ;OPERAND FETCHED AS DATA ; 3925 .UCODE ; 3926 ; 3927 .IF/ITS ; 3928 1662: U 1662, 0224,4443,0000,4174,4007,0340,0000,0000,0000 ; 3929 XCTRI: SKIP KERNEL, J/XCTR1 ; 3930 1663: U 1663, 0224,4443,0000,4174,4007,0340,0000,0000,0000 ; 3931 XCTR: SKIP KERNEL, J/XCTR1 ; 3932 =0 U 0224, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 3933 XCTR1: UUO U 0225, 2563,3333,0002,4174,4167,0700,0200,0004,0002 ; 3934 READ [HR], LOAD PXCT, START READ U 2563, 1541,3771,0003,4365,5007,0700,0200,0000,0002 ; 3935 = MEM READ, [AR]_MEM, J/XCT ; 3936 ; 3937 1541: ; 3938 XCT: [HR]_[AR], ;STUFF INTO HR ; 3939 DBUS/DP, ;PLACE ON DBUS FOR IR ; 3940 LOAD INST, ;LOAD IR, AC, XR, ETC. U 1541, 2564,3441,0302,4174,4617,0700,0000,0000,0100 ; 3941 PXCT/E1 ;ALLOW XR TO BE PREVIOUS ; 3942 XCT1: WORK[YSAVE]_[HR] CLR LH,;SAVE FOR IO INSTRUCTIONS U 2564, 0722,4713,1202,7174,4007,0700,0400,0000,0422 ; 3943 J/XCT2 ;GO EXECUTE IT ; 3944 .IFNOT/ITS ; 3945 1541: ; 3946 XCT: SKIP KERNEL ;SEE IF MAY BE PXCT ; 3947 =0 ; 3948 XCT1A: [HR]_[AR], ;STUFF INTO HR ; 3949 DBUS/DP, ;PLACE ON DBUS FOR IR ; 3950 LOAD INST, ;LOAD IR, AC, XR, ETC. ; 3951 PXCT/E1, ;ALLOW XR TO BE PREVIOUS ; 3952 J/XCT1 ;CONTINUE BELOW ; 3953 READ [HR], ;LOAD PXCT FLAGS ; 3954 LOAD PXCT, ; .. ; 3955 J/XCT1A ;CONTINUE WITH NORMAL FLOW ; 3956 ; 3957 XCT1: WORK[YSAVE]_[HR] CLR LH,;SAVE FOR IO INSTRUCTIONS ; 3958 J/XCT2 ;GO EXECUTE IT ; 3959 .ENDIF/ITS ; 3960 ; 3961 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 94 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 3962 .TOC "STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ" ; 3963 ; 3964 .DCODE D 0260, 0000,1544,2100 ; 3965 260: I, B/0, J/PUSHJ D 0261, 0002,1543,3100 ; 3966 IR, B/2, J/PUSH D 0262, 0002,1545,2100 ; 3967 I, B/2, J/POP D 0263, 0000,1546,2100 ; 3968 I, J/POPJ ; 3969 .UCODE ; 3970 ; 3971 ;ALL START WITH E IN AR ; 3972 1543: ; 3973 PUSH: MEM READ, ;PUT MEMOP IN BR U 1543, 2565,3771,0005,4365,5007,0700,0200,0000,0002 ; 3974 [BR]_MEM ; .. ; 3975 PUSH1: [ARX]_AC+1000001, ;BUMP BOTH HALVES OF AC ; 3976 INH CRY18, ;NO CARRY ; 3977 LOAD VMA, ;START TO STORE ITEM ; 3978 START WRITE, ;START MEM CYCLE ; 3979 PXCT STACK WORD, ;THIS IS THE STACK DATA WORD ; 3980 3T, ;ALLOW TIME ; 3981 SKIP CRY0, ;GO TO STMAC, SKIP IF PDL OV U 2565, 0232,0551,1504,0274,4407,0311,0200,0003,0712 ; 3982 J/STMAC ; .. ; 3983 ; 3984 1544: ; 3985 PUSHJ: [BR]_PC WITH FLAGS, ;COMPUTE UPDATED FLAGS ; 3986 CLR FPD, ;CLEAR FIRST-PART-DONE U 1544, 2565,3741,0105,4074,4467,0700,0000,0005,0000 ; 3987 J/PUSH1 ; AND JOIN PUSH CODE ; 3988 ; 3989 =0 ; 3990 STMAC: MEM WRITE, ;WAIT FOR MEMORY ; 3991 MEM_[BR], ;STORE BR ON STACK ; 3992 B DISP, ;SEE IF PUSH OR PUSHJ U 0232, 0250,3333,0005,4175,5003,7701,0200,0000,0002 ; 3993 J/JSTAC ;BELOW ; 3994 ;WE MUST STORE THE STACK WORD PRIOR TO SETTING PDL OV IN CASE OF ; 3995 ; PAGE FAIL. ; 3996 MEM WRITE, ;WAIT FOR MEMORY U 0233, 2566,3333,0005,4175,5007,0701,0200,0000,0002 ; 3997 MEM_[BR] ;STORE BR ; 3998 SETPDL: SET PDL OV, ;OVERFLOW ; 3999 B DISP, ;SEE IF PUSH OR PUSHJ U 2566, 0250,4443,0000,4174,4463,7700,0000,0001,2000 ; 4000 J/JSTAC ;BELOW ; 4001 ; 4002 =00 ; 4003 JSTAC: [PC]_[AR], ;PUSHJ--LOAD PC ; 4004 LOAD VMA, ;LOAD ADDRESS U 0250, 0251,3441,0301,4174,4007,0700,0200,0014,0012 ; 4005 FETCH ;GET NEXT INST ; 4006 JSTAC1: AC_[ARX], ;STORE BACK STACK PTR U 0251, 0060,3440,0404,0174,4156,4700,0400,0000,0000 ; 4007 NEXT INST ;DO NEXT INST ; 4008 AC_[ARX], ;UPDATE STACK POINTER U 0252, 1400,3440,0404,0174,4007,0700,0400,0000,0000 ; 4009 J/DONE ;DO NEXT INST ; 4010 = ; 4011 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 95 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 4012 ; 4013 1545: ; 4014 POP: [ARX]_AC, ;GET POINTER ; 4015 LOAD VMA, ;ADDRESS OF STACK WORD ; 4016 START READ, 3T, ;START CYCLE U 1545, 2567,3771,0004,0276,6007,0701,0200,0004,0712 ; 4017 PXCT STACK WORD ;FOR PXCT ; 4018 ; 4019 MEM READ, ;LOAD BR (QUIT IF PAGE FAIL) U 2567, 2570,3771,0005,4365,5007,0700,0200,0000,0002 ; 4020 [BR]_MEM ;STACK WORD TO BR ; 4021 ; 4022 [ARX]_[ARX]+#, ;UPDATE POINTER ; 4023 #/777777, ;-1 IN EACH HALF ; 4024 INH CRY18, 3T, ;BUT NO CARRY U 2570, 0242,0551,0404,4374,4407,0311,0000,0077,7777 ; 4025 SKIP CRY0 ;SEE IF OVERFLOW ; 4026 ; 4027 =0 VMA_[AR], ;EFFECTIVE ADDRESS ; 4028 PXCT DATA, ;FOR PXCT ; 4029 START WRITE, ;WHERE TO STORE RESULT U 0242, 2572,3443,0300,4174,4007,0700,0200,0003,0312 ; 4030 J/POPX1 ;OVERFLOW ; 4031 ; 4032 VMA_[AR], ;EFFECTIVE ADDRESS ; 4033 PXCT DATA, ;FOR PXCT U 0243, 2571,3443,0300,4174,4007,0700,0200,0003,0312 ; 4034 START WRITE ;WHERE TO STORE RESULT ; 4035 ; 4036 MEM WRITE, ;WAIT FOR MEM ; 4037 MEM_[BR], ;STORE BR ; 4038 B DISP, ;POP OR POPJ? U 2571, 0250,3333,0005,4175,5003,7701,0200,0000,0002 ; 4039 J/JSTAC ;STORE POINTER ; 4040 ; 4041 ; 4042 POPX1: MEM WRITE, ;WAIT FOR MEMORY ; 4043 MEM_[BR], ;STORE BR U 2572, 2566,3333,0005,4175,5007,0701,0200,0000,0002 ; 4044 J/SETPDL ;GO SET PDL OV ; 4045 ; 4046 1546: ; 4047 POPJ: [ARX]_AC, ;GET POINTER ; 4048 LOAD VMA, ;POINT TO STACK WORD ; 4049 PXCT STACK WORD, 3T, ;FOR PXCT U 1546, 2573,3771,0004,0276,6007,0701,0200,0004,0712 ; 4050 START READ ;START READ ; 4051 [ARX]_[ARX]+#, ;UPDATE POINTER ; 4052 #/777777, ;-1 IN BOTH HALFS ; 4053 INH CRY18, 3T, ;INHIBIT CARRY 18 U 2573, 0246,0551,0404,4374,4407,0311,0000,0077,7777 ; 4054 SKIP CRY0 ;SEE IF OVERFLOW U 0246, 0247,4443,0000,4174,4467,0700,0000,0001,2000 ; 4055 =0 SET PDL OV ;SET OVERFLOW ; 4056 MEM READ, [PC]_MEM, ;STICK DATA IN PC ; 4057 HOLD LEFT, ;NO FLAGS U 0247, 0251,3771,0001,4361,5007,0700,0200,0000,0002 ; 4058 J/JSTAC1 ;STORE POINTER ; 4059 ; 4060 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 96 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 STACK INSTRUCTIONS -- ADJSP ; 4061 .TOC "STACK INSTRUCTIONS -- ADJSP" ; 4062 ; 4063 .DCODE D 0105, 0000,1551,3000 ; 4064 105: I-PF, B/0, J/ADJSP ; 4065 .UCODE ; 4066 ; 4067 1551: ; 4068 ADJSP: [AR]_[AR] SWAP, ;MAKE 2 COPIES OF RH U 1551, 2574,3770,0303,4344,0007,0700,0000,0000,0000 ; 4069 HOLD RIGHT ; 4070 [BR]_AC, ;READ AC, SEE IF MINUS ; 4071 3T, U 2574, 0256,3771,0005,0276,6007,0521,0000,0000,0000 ; 4072 SKIP DP0 ; 4073 =0 AC_[BR]+[AR], ;UPDATE AC ; 4074 INH CRY18, ;NO CARRY ; 4075 SKIP DP0, ;SEE IF STILL OK ; 4076 3T, ;ALLOW TIME U 0256, 0260,0113,0503,0174,4407,0521,0400,0000,0000 ; 4077 J/ADJSP1 ;TEST FOR OFLO ; 4078 AC_[BR]+[AR], ;UPDATE AC ; 4079 INH CRY18, ;NO CARRY ; 4080 SKIP DP0, ;SEE IF STILL MINUS ; 4081 3T, ;ALLOW TIME FOR SKIP U 0257, 0262,0113,0503,0174,4407,0521,0400,0000,0000 ; 4082 J/ADJSP2 ;CONTINUE BELOW ; 4083 ; 4084 =0 U 0260, 0060,4443,0000,4174,4156,4700,0000,0000,0000 ; 4085 ADJSP1: NEXT INST ;NO OVERFLOW ; 4086 SET PDL OV, ;SET PDL OV U 0261, 0127,4443,0000,4174,4467,0700,0000,0001,2000 ; 4087 J/NIDISP ;GO DO NICOND DISP ; 4088 ; 4089 =0 ; 4090 ADJSP2: SET PDL OV, ;SET PDL OV U 0262, 0127,4443,0000,4174,4467,0700,0000,0001,2000 ; 4091 J/NIDISP ;GO DO NICOND DISP U 0263, 0060,4443,0000,4174,4156,4700,0000,0000,0000 ; 4092 NEXT INST ;NO OVERFLOW ; 4093 ; 4094 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 97 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA ; 4095 .TOC "SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA" ; 4096 ; 4097 .DCODE D 0264, 0000,1552,2100 ; 4098 264: I, J/JSR D 0265, 0000,1550,2100 ; 4099 I, J/JSP D 0266, 0000,1554,2100 ; 4100 I, J/JSA D 0267, 0000,1555,2100 ; 4101 I, J/JRA ; 4102 .UCODE ; 4103 ; 4104 1550: U 1550, 2575,3741,0105,4074,4007,0700,0000,0000,0000 ; 4105 JSP: [BR]_PC WITH FLAGS ;GET PC WITH FLAGS ; 4106 CLR FPD, ;CLEAR FIRST-PART-DONE ; 4107 AC_[BR], ;STORE FLAGS U 2575, 0164,3440,0505,0174,4467,0700,0400,0005,0000 ; 4108 J/JUMPA ;GO JUMP ; 4109 ; 4110 1552: ; 4111 JSR: [BR]_PC WITH FLAGS, ;GET PC WITH FLAGS U 1552, 2576,3741,0105,4074,4467,0700,0000,0005,0000 ; 4112 CLR FPD ;CLEAR FIRST-PART-DONE ; 4113 VMA_[AR], ;EFFECTIVE ADDRESS U 2576, 2577,3443,0300,4174,4007,0700,0200,0003,0012 ; 4114 START WRITE ;STORE OLD PC WORD ; 4115 MEM WRITE, ;WAIT FOR MEMORY U 2577, 2600,3333,0005,4175,5007,0701,0200,0000,0002 ; 4116 MEM_[BR] ;STORE ; 4117 [PC]_[AR]+1000001, ;PC _ E+1 ; 4118 HOLD LEFT, ;NO JUNK IN LEFT ; 4119 3T, ;ALLOW TIME FOR DBM U 2600, 1400,0551,0301,4370,4007,0701,0000,0000,0001 ; 4120 J/DONE ;[127] START AT E+1 ; 4121 ;[127] MUST NICOND TO CLEAR TRAP CYCLE ; 4122 ; 4123 ; 4124 1554: ; 4125 JSA: [BR]_[AR], ;SAVE E U 1554, 2601,3441,0305,4174,4007,0700,0200,0003,0002 ; 4126 START WRITE ;START TO STORE U 2601, 0270,3770,0304,4344,4007,0700,0000,0000,0000 ; 4127 [ARX]_[AR] SWAP ;ARX LEFT _ E ; 4128 =0*0 [AR]_AC, ;GET OLD AC U 0270, 2743,3771,0003,0276,6007,0700,0010,0000,0000 ; 4129 CALL [IBPX] ;SAVE AR IN MEMORY ; 4130 =1*0 [ARX]_[PC], ;ARX NOW HAS E,,PC ; 4131 HOLD LEFT, ; .. U 0274, 3560,3441,0104,4170,4007,0700,0010,0000,0000 ; 4132 CALL [AC_ARX] ;GO PUT ARX IN AC ; 4133 =1*1 [PC]_[BR]+1000001, ;NEW PC ; 4134 3T, ;ALLOW TIME ; 4135 HOLD LEFT, ;NO JUNK IN PC LEFT U 0275, 1400,0551,0501,4370,4007,0701,0000,0000,0001 ; 4136 J/DONE ;[127] START AT E+1 ; 4137 ;[127] MUST NICOND TO CLEAR TRAP CYCLE ; 4138 = ; 4139 ; 4140 1555: U 1555, 2602,3771,0005,0276,6007,0700,0000,0000,0000 ; 4141 JRA: [BR]_AC ;GET AC U 2602, 2603,3770,0505,4344,4007,0700,0000,0000,0000 ; 4142 [BR]_[BR] SWAP ;OLD E IN BR RIGHT ; 4143 VMA_[BR], ;LOAD VMA U 2603, 2604,3443,0500,4174,4007,0700,0200,0004,0012 ; 4144 START READ ;FETCH SAVED AC ; 4145 MEM READ, ;WAIT FOR MEMORY ; 4146 [BR]_MEM, ;LOAD BR WITH SAVE AC U 2604, 0214,3771,0005,4365,5007,0700,0200,0000,0002 ; 4147 J/JMPA ;GO JUMP ; 4148 ; 4149 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 98 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ILLEGAL INSTRUCTIONS AND UUO'S ; 4150 .TOC "ILLEGAL INSTRUCTIONS AND UUO'S" ; 4151 ;LUUO'S TRAP TO CURRENT CONTEXT ; 4152 ; 4153 .DCODE D 0030, 0000,1557,2100 ; 4154 030: I, B/0, J/LUUO D 0031, 0001,1557,2100 ; 4155 I, B/1, J/LUUO D 0032, 0002,1557,2100 ; 4156 I, B/2, J/LUUO D 0033, 0003,1557,2100 ; 4157 I, B/3, J/LUUO D 0034, 0004,1557,2100 ; 4158 I, B/4, J/LUUO D 0035, 0005,1557,2100 ; 4159 I, B/5, J/LUUO D 0036, 0006,1557,2100 ; 4160 I, B/6, J/LUUO D 0037, 0007,1557,2100 ; 4161 I, B/7, J/LUUO ; 4162 ; 4163 ;MONITOR UUO'S -- TRAP TO EXEC ; 4164 D 0040, 0000,1556,2100 ; 4165 040: I, J/MUUO ;CALL D 0041, 0000,1556,2100 ; 4166 I, J/MUUO ;INIT D 0042, 0000,1556,2100 ; 4167 I, J/MUUO D 0043, 0000,1556,2100 ; 4168 I, J/MUUO D 0044, 0000,1556,2100 ; 4169 I, J/MUUO D 0045, 0000,1556,2100 ; 4170 I, J/MUUO D 0046, 0000,1556,2100 ; 4171 I, J/MUUO D 0047, 0000,1556,2100 ; 4172 I, J/MUUO ;CALLI D 0050, 0000,1556,2100 ; 4173 I, J/MUUO ;OPEN D 0051, 0000,1556,2100 ; 4174 I, J/MUUO ;TTCALL D 0052, 0000,1556,2100 ; 4175 I, J/MUUO D 0053, 0000,1556,2100 ; 4176 I, J/MUUO D 0054, 0000,1556,2100 ; 4177 I, J/MUUO D 0055, 0000,1556,2100 ; 4178 I, J/MUUO ;RENAME D 0056, 0000,1556,2100 ; 4179 I, J/MUUO ;IN D 0057, 0000,1556,2100 ; 4180 I, J/MUUO ;OUT D 0060, 0000,1556,2100 ; 4181 I, J/MUUO ;SETSTS D 0061, 0000,1556,2100 ; 4182 I, J/MUUO ;STATO D 0062, 0000,1556,2100 ; 4183 I, J/MUUO ;GETSTS D 0063, 0000,1556,2100 ; 4184 I, J/MUUO ;STATZ D 0064, 0000,1556,2100 ; 4185 I, J/MUUO ;INBUF D 0065, 0000,1556,2100 ; 4186 I, J/MUUO ;OUTBUF D 0066, 0000,1556,2100 ; 4187 I, J/MUUO ;INPUT D 0067, 0000,1556,2100 ; 4188 I, J/MUUO ;OUTPUT D 0070, 0000,1556,2100 ; 4189 I, J/MUUO ;CLOSE D 0071, 0000,1556,2100 ; 4190 I, J/MUUO ;RELEAS D 0072, 0000,1556,2100 ; 4191 I, J/MUUO ;MTAPE D 0073, 0000,1556,2100 ; 4192 I, J/MUUO ;UGETF D 0074, 0000,1556,2100 ; 4193 I, J/MUUO ;USETI D 0075, 0000,1556,2100 ; 4194 I, J/MUUO ;USETO D 0076, 0000,1556,2100 ; 4195 I, J/MUUO ;LOOKUP D 0077, 0000,1556,2100 ; 4196 I, J/MUUO ;ENTER ; 4197 ; 4198 ;EXPANSION OPCODES ; 4199 D 0100, 0000,1556,2100 ; 4200 100: I, J/UUO ;UJEN D 0101, 0000,1661,2100 ; 4201 I, J/UUO101 ; 4202 .IFNOT/ITS ; 4203 I, J/UUO102 ;XCTRI in ITS ; 4204 I, J/UUO103 ;XCTR in ITS ; 4205 .ENDIF/ITS ; 4206 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 99 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ILLEGAL INSTRUCTIONS AND UUO'S ; 4207 ; 4208 ;RESERVED OPCODES ; 4209 D 0000, 0000,1556,2100 ; 4210 000: I, J/UUO D 0104, 0000,1664,2100 ; 4211 104: I, J/JSYS ;JSYS D 0106, 0000,1666,2100 ; 4212 106: I, J/UUO106 D 0107, 0000,1667,2100 ; 4213 I, J/UUO107 D 0130, 0000,1660,2100 ; 4214 130: I, B/0, J/FP-LONG ;UFA D 0131, 0001,1660,2100 ; 4215 I, B/1, J/FP-LONG ;DFN D 0141, 0002,1660,2100 ; 4216 141: I, B/2, J/FP-LONG ;FADL D 0151, 0003,1660,2100 ; 4217 151: I, B/3, J/FP-LONG ;FSBL D 0161, 0004,1660,2100 ; 4218 161: I, B/4, J/FP-LONG ;FMPL D 0171, 0005,1660,2100 ; 4219 171: I, B/5, J/FP-LONG ;FDVL ; 4220 .IFNOT/CIRC ; 4221 247: I, J/UUO247 ;RESERVED ; 4222 .ENDIF/CIRC ; 4223 .UCODE ; 4224 ; 4225 1661: U 1661, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4226 UUO101: UUO ; 4227 ; 4228 .IFNOT/ITS ; 4229 1662: ; 4230 UUO102: UUO ;XCTRI in ITS ; 4231 1663: ; 4232 UUO103: UUO ;XCTR in ITS ; 4233 .ENDIF/ITS ; 4234 ; 4235 1664: U 1664, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4236 JSYS: UUO ; 4237 1666: U 1666, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4238 UUO106: UUO ; 4239 1667: U 1667, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4240 UUO107: UUO ; 4241 1660: U 1660, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4242 FP-LONG:UUO ; 4243 .IFNOT/CIRC ; 4244 1665: ; 4245 UUO247: UUO ; 4246 .ENDIF/CIRC ; 4247 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 100 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ILLEGAL INSTRUCTIONS AND UUO'S ; 4248 ; 4249 ;HERE FOR UUO'S WHICH TRAP TO EXEC ; 4250 1556: ; 4251 UUO: ;THIS TAG IS USED FOR ILLEGAL THINGS WHICH DO UUO TRAPS ; 4252 MUUO: ;THIS TAG IS USED FOR MONITOR CALL INSTRUCTIONS ; 4253 [HR]_[HR].AND.#, ;MASK OUT @@ AND XR ; 4254 #/777740, ;MASK U 1556, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 4255 HOLD RIGHT ;KEEP RIGHT ; 4256 ;THE UUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO UUOGO U 2605, 0264,4751,1204,4374,4007,0700,0000,0000,0424 ; 4257 UUOGO: [ARX]_0 XWD [424] ;HERE FROM UUO MACRO ; 4258 ;GET OFFSET TO UPT ; 4259 =0 [ARX]_[ARX]+[UBR], ;ADDRESS OF MUUO WORD U 0264, 3547,0111,1104,4174,4007,0700,0010,0000,0000 ; 4260 CALL [ABORT] ;STOP MEMORY ; 4261 READ [EBR], ;KL PAGING U 0265, 0266,3333,0010,4174,4007,0520,0000,0000,0000 ; 4262 SKIP DP0 ; ?? ; 4263 =0 READ [ARX], ;GET THE ADDRESS ; 4264 LOAD VMA, ;START WRITE ; 4265 VMA PHYSICAL WRITE, ;ABSOLUTE ADDRESS U 0266, 0310,3333,0004,4174,4007,0700,0200,0021,1016 ; 4266 J/KIMUUO ;GO STORE KI STYLE U 0267, 0272,3770,0203,4344,4007,0700,0000,0000,0000 ; 4267 [AR]_[HR] SWAP ;PUT IN RIGHT HALF ; 4268 =0 [AR]_FLAGS, ;FLAGS IN LEFT HALF ; 4269 HOLD RIGHT, ;JUST WANT FLAGS U 0272, 2613,4521,1203,4074,0007,0700,0010,0000,0000 ; 4270 CALL [UUOFLG] ;CLEAR TRAP FLAGS ; 4271 READ [ARX], ;LOOK AT ADDRESS ; 4272 LOAD VMA, ;LOAD THE VMA U 0273, 0074,3333,0004,4174,4007,0700,0200,0021,1016 ; 4273 VMA PHYSICAL WRITE ;STORE FLAG WORD ; 4274 =0* MEM WRITE, ;WAIT FOR MEMORY U 0074, 2614,3333,0003,4175,5007,0701,0210,0000,0002 ; 4275 MEM_[AR], CALL [NEXT] ;STORE ; 4276 MEM WRITE, ;WAIT FOR MEMORY U 0076, 0300,3333,0001,4175,5007,0701,0200,0000,0002 ; 4277 MEM_[PC] ;STORE FULL WORD PC ; 4278 =000 [HR]_0, ;SAVE E U 0300, 2614,4221,0002,4174,0007,0700,0010,0000,0000 ; 4279 HOLD RIGHT, CALL [NEXT] ;BUT CLEAR OPCODE ; 4280 =010 ; 4281 UUOPCW: MEM WRITE, ;WAIT FOR MEMORY ; 4282 MEM_[HR], ;STORE INSTRUCTION IN KI ; 4283 ; OR FULL WORD E IN KL U 0302, 3431,3333,0002,4175,5007,0701,0210,0000,0002 ; 4284 CALL [GETPCW] ;GET PROCESS-CONTEXT-WORD ; 4285 ; 4286 =011 NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD U 0303, 3554,0111,0704,4170,4007,0700,0210,0023,1016 ; 4287 CALL [STOBR] ;STORE PROCESS CONTEXT WORD ; 4288 ; 4289 ;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS U 0307, 2606,4751,1205,4374,4007,0700,0000,0000,0430 ; 4290 =111 [BR]_0 XWD [430] ;OFFSET INTO UPT ; 4291 = U 2606, 2607,0111,1105,4174,4007,0700,0000,0000,0000 ; 4292 [BR]_[BR]+[UBR] ;ADDRESS OF WORD U 2607, 2610,4521,1203,4074,4007,0700,0000,0000,0000 ; 4293 [AR]_FLAGS ;GET FLAGS ; 4294 TL [AR], ;LOOK AT FLAGS U 2610, 0276,4553,0300,4374,4007,0321,0000,0000,0600 ; 4295 #/600 ;TRAP SET? ; 4296 =0 [BR]_[BR].OR.#, ;YES--POINT TO TRAP CASE ; 4297 #/1, ; .. U 0276, 0277,3551,0505,4370,4007,0700,0000,0000,0001 ; 4298 HOLD LEFT ;LEAVE LEFT ALONE ; 4299 TL [AR], ;USER OR EXEC U 0277, 0304,4553,0300,4374,4007,0321,0000,0001,0000 ; 4300 #/10000 ; .. ; 4301 =0 [BR]_[BR].OR.#, ;USER ; 4302 #/4, ;POINT TO USER WORDS U 0304, 0305,3551,0505,4370,4007,0700,0000,0000,0004 ; 4303 HOLD LEFT ; 4304 READ [BR], ;LOOK AT ADDRESS ; 4305 LOAD VMA, ;PLACE IN VMA ; 4306 VMA PHYSICAL, ;PHYSICAL ADDRESS U 0305, 2611,3333,0005,4174,4007,0700,0200,0024,1016 ; 4307 START READ ;GET NEW PC WORD ; 4308 ;;Page fault delivering code joins in here. ; 4309 ;;J/EAPF1 DEC Paging ; 4310 ;;J/PFTRAP1 ITS Paging ; 4311 GOEXEC: MEM READ, ;WAIT FOR DATA U 2611, 2612,3771,0003,4365,5007,0700,0200,0000,0002 ; 4312 [AR]_MEM ;STICK IN AR ; 4313 READ [AR], ;LOOK AT DATA ; 4314 LOAD FLAGS, ;LOAD NEW FLAGS ; 4315 LEAVE USER, ;ALLOW USER TO LOAD ; 4316 LOAD PCU, ;SET PCU FROM USER U 2612, 0164,3333,0003,4174,4467,0700,0000,0000,0404 ; 4317 J/JUMPA ;JUMP ; 4318 ; 4319 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 101 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ILLEGAL INSTRUCTIONS AND UUO'S ; 4320 ; 4321 ;HERE FOR TOPS-10 STYLE PAGING ; 4322 ; 4323 =00 ; 4324 KIMUUO: MEM WRITE, ;STORE INSTRUCTION U 0310, 2614,3333,0002,4175,5007,0701,0210,0000,0002 ; 4325 MEM_[HR], CALL [NEXT] ;IN MEMORY ; 4326 =10 [AR]_PC WITH FLAGS, ;GET PC WORD U 0312, 2613,3741,0103,4074,4007,0700,0010,0000,0000 ; 4327 CALL [UUOFLG] ;CLEAR TRAP FLAGS ; 4328 =11 MEM WRITE, ;STORE PC WORD ; 4329 MEM_[AR], ; .. U 0313, 0302,3333,0003,4175,5007,0701,0200,0000,0002 ; 4330 J/UUOPCW ;GO STORE PROCESS CONTEXT ; 4331 ; 4332 UUOFLG: [AR]_[AR].AND.NOT.#, ;CLEAR TRAP FLAGS ; 4333 #/600, HOLD RIGHT, ; IN WORD TO SAVE U 2613, 0001,5551,0303,4374,0004,1700,0000,0000,0600 ; 4334 RETURN [1] ; BACK TO CALLER ; 4335 ; 4336 NEXT: NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD U 2614, 0002,0111,0704,4170,4004,1700,0200,0023,1016 ; 4337 RETURN [2] ; 4338 ; 4339 ;HERE FOR LUUO'S ; 4340 1557: U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 4341 LUUO: [AR]_0 XWD [40] ;AR GET CONSTANT 40 ; 4342 ;THE LUUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO LUUO1 ; 4343 400: ;FOR SIMULATOR ; 4344 LUUO1: READ [AR], ;LOAD 40 INTO ; 4345 LOAD VMA, ; THE VMA AND U 0400, 2615,3333,0003,4174,4007,0700,0200,0003,0012 ; 4346 START WRITE ; PREPARE TO STORE ; 4347 [HR]_[HR].AND.#, ;CLEAR OUT INDEX AND @@ ; 4348 #/777740, ; .. U 2615, 2616,4551,0202,4374,0007,0700,0000,0077,7740 ; 4349 HOLD RIGHT ; 4350 MEM WRITE, ;STORE LUUO IN 40 U 2616, 2617,3333,0002,4175,5007,0701,0200,0000,0002 ; 4351 MEM_[HR] ; 4352 VMA_[AR]+1, ;POINT TO 41 ; 4353 LOAD VMA, ;PUT 41 IN VMA ; 4354 START READ, ;START FETCH U 2617, 2375,0111,0703,4170,4007,0700,0200,0004,0012 ; 4355 J/CONT1 ;GO EXECUTE THE INSTRUCTION ; 4356 ; 4357 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 102 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- ADD, SUB ; 4358 .TOC "ARITHMETIC -- ADD, SUB" ; 4359 ; 4360 .DCODE D 0270, 1015,1560,1100 ; 4361 270: R-PF, AC, J/ADD D 0271, 0015,1560,3000 ; 4362 I-PF, AC, J/ADD D 0272, 0016,1560,1700 ; 4363 RW, M, J/ADD D 0273, 0017,1560,1700 ; 4364 RW, B, J/ADD ; 4365 .UCODE ; 4366 ; 4367 1560: ; 4368 ADD: [AR]_[AR]+AC, ;DO THE ADD U 1560, 1500,0551,0303,0274,4463,7701,0200,0001,0001 ; 4369 AD FLAGS EXIT, 3T ;UPDATE CARRY FLAGS ; 4370 ;STORE ANSWER ; 4371 ;MISSES 3-TICKS BY 3 NS. ; 4372 ; 4373 ; 4374 .DCODE D 0274, 1015,1561,1100 ; 4375 274: R-PF, AC, J/SUB D 0275, 0015,1561,3000 ; 4376 I-PF, AC, J/SUB D 0276, 0016,1561,1700 ; 4377 RW, M, J/SUB D 0277, 0017,1561,1700 ; 4378 RW, B, J/SUB ; 4379 .UCODE ; 4380 ; 4381 1561: ; 4382 SUB: [AR]_AC-[AR], ;DO THE SUBTRACT U 1561, 1500,2551,0303,0274,4463,7701,4200,0001,0001 ; 4383 AD FLAGS EXIT, 3T ;UPDATE PC CARRY FLAGS ; 4384 ;ALL DONE ; 4385 ;MISSES 3-TICKS BY 3 NS. ; 4386 ; 4387 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 103 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DADD, DSUB ; 4388 .TOC "ARITHMETIC -- DADD, DSUB" ; 4389 ; 4390 .DCODE D 0114, 0205,1457,1100 ; 4391 114: DBL R, DAC, J/DADD D 0115, 0205,1615,1100 ; 4392 DBL R, DAC, J/DSUB ; 4393 .UCODE ; 4394 ; 4395 1457: ; 4396 DADD: [ARX]_[ARX]+AC[1], 4T, ;ADD LOW WORDS U 1457, 0314,0551,0404,1274,4007,0562,0000,0000,1441 ; 4397 SKIP CRY1 ;SEE IF CARRY TO HIGH WORD ; 4398 =0 ; 4399 DADD1: [AR]_[AR]+AC, ;ADD HIGH WORDS ; 4400 ADD .25, ;ADD IN ANY CARRY FROM LOW WORD ; 4401 AD FLAGS, 4T, ;UPDATE PC FLAGS U 0314, 2621,0551,0303,0274,4467,0702,4000,0001,0001 ; 4402 J/CPYSGN ;COPY SIGN TO LOW WORD U 0315, 2620,7441,1205,4174,4007,0700,0000,0000,0000 ; 4403 [BR]_.NOT.[MASK] ;SET BITS 35 AND 36 IN ; 4404 [AR]_[AR].OR.[BR], ; AR SO THAT ADD .25 WILL U 2620, 0314,3111,0503,4170,4007,0700,0000,0000,0000 ; 4405 HOLD LEFT, J/DADD1 ; ADD 1. ; 4406 ; 4407 1615: ; 4408 DSUB: [ARX]_AC[1]-[ARX], 4T, ;SUBTRACT LOW WORD U 1615, 0316,2551,0404,1274,4007,0562,4000,0000,1441 ; 4409 SKIP CRY1 ;SEE IF CARRY ; 4410 =0 [AR]_AC-[AR]-.25, ;NO CARRY ; 4411 AD FLAGS, 4T, ;UPDATE PC FLAGS U 0316, 2621,2551,0303,0274,4467,0702,0000,0001,0001 ; 4412 J/CPYSGN ;GO COPY SIGN ; 4413 [AR]_AC-[AR], 4T, ;THERE WAS A CARRY U 0317, 2621,2551,0303,0274,4467,0702,4000,0001,0001 ; 4414 AD FLAGS ;UPDATE CARRY FLAGS ; 4415 U 2621, 0320,3770,0303,4174,0007,0520,0000,0000,0000 ; 4416 CPYSGN: FIX [AR] SIGN, SKIP DP0 U 0320, 1404,4551,0404,4374,0007,0700,0000,0037,7777 ; 4417 =0 [ARX]_[ARX].AND.#, #/377777, HOLD RIGHT, J/MOVE U 0321, 1404,3551,0404,4374,0007,0700,0000,0040,0000 ; 4418 [ARX]_[ARX].OR.#, #/400000, HOLD RIGHT, J/MOVE ; 4419 ; 4420 ; 4421 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 104 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- MUL, IMUL ; 4422 .TOC "ARITHMETIC -- MUL, IMUL" ; 4423 ; 4424 .DCODE D 0220, 1015,1641,1100 ; 4425 220: R-PF, AC, J/IMUL D 0221, 0015,1641,3000 ; 4426 I-PF, AC, J/IMUL D 0222, 0016,1641,1700 ; 4427 RW, M, J/IMUL D 0223, 0017,1641,1700 ; 4428 RW, B, J/IMUL ; 4429 .UCODE ; 4430 1641: U 1641, 2622,3441,0306,0174,4007,0700,0000,0000,0000 ; 4431 IMUL: [BRX]_[AR], AC ;COPY C(E) U 2622, 0100,3772,0000,0275,5007,0700,2000,0071,0043 ; 4432 Q_AC, SC_35. ;GET THE AC ; 4433 =0** [BRX]_[BRX]*.5 LONG, ;SHIFT RIGHT U 0100, 2646,3446,0606,4174,4007,0700,0010,0000,0000 ; 4434 CALL [MULSUB] ;MULTIPLY U 0104, 0322,3333,0004,4174,4007,0621,0000,0000,0000 ; 4435 READ [ARX], SKIP AD.EQ.0 ;SEE IF FITS U 0322, 2623,3445,0404,4174,4007,0700,0000,0000,0000 ; 4436 =0 [ARX]_[ARX]*2, J/IMUL2 ;NOT ZERO--SHIFT LEFT U 0323, 1500,3221,0003,4174,4003,7700,0200,0003,0001 ; 4437 IMUL1: [AR]_Q, EXIT ;POSITIVE ; 4438 ; 4439 IMUL2: [MASK].AND.NOT.[ARX], ;SEE IF ALL SIGN BITS U 2623, 0324,5113,0412,4174,4007,0621,0000,0000,0000 ; 4440 SKIP AD.EQ.0 ; .. ; 4441 =0 FIX [ARX] SIGN, ;NOT ALL SIGN BITS U 0324, 0326,3770,0404,4174,0007,0520,0000,0000,0000 ; 4442 SKIP DP0, J/IMUL3 ;GIVE + OR - OVERFLOW U 0325, 1500,7001,0003,4174,4003,7700,0200,0003,0001 ; 4443 [AR]_[MAG].EQV.Q, EXIT ;NEGATIVE ; 4444 =0 U 0326, 1404,3221,0003,4174,4467,0700,0000,0041,1000 ; 4445 IMUL3: [AR]_Q, SET AROV, J/MOVE U 0327, 1404,7001,0003,4174,4467,0700,0000,0041,1000 ; 4446 [AR]_[MAG].EQV.Q, SET AROV, J/MOVE ; 4447 ; 4448 ; 4449 .DCODE D 0224, 1005,1571,1100 ; 4450 224: R-PF, DAC, J/MUL D 0225, 0005,1571,3000 ; 4451 I-PF, DAC, J/MUL D 0226, 0016,1571,1700 ; 4452 RW, M, J/MUL D 0227, 0006,1571,1700 ; 4453 RW, DBL B, J/MUL ; 4454 .UCODE ; 4455 ; 4456 ; 4457 1571: U 1571, 2624,3442,0300,0174,4007,0700,0000,0000,0000 ; 4458 MUL: Q_[AR], AC ;COPY C(E) U 2624, 2625,3441,0316,4174,4007,0700,0000,0000,0000 ; 4459 [T0]_[AR] ;SAVE FOR OVERFLOW TEST U 2625, 0102,3771,0006,0276,6007,0700,2000,0071,0043 ; 4460 [BRX]_AC, SC_35. ;GET THE AC ; 4461 =0** [BRX]_[BRX]*.5 LONG, ;SHIFT OVER U 0102, 2646,3446,0606,4174,4007,0700,0010,0000,0000 ; 4462 CALL [MULSUB] ;MULTIPLY U 0106, 2626,3445,0403,4174,4007,0700,0000,0000,0000 ; 4463 [AR]_[ARX]*2 ;SHIFT OVER U 2626, 0330,3770,0303,4174,0007,0520,0000,0000,0000 ; 4464 FIX [AR] SIGN, SKIP DP0 ;SEE IF NEGATIVE ; 4465 =0 [ARX]_[MAG].AND.Q, ;POSITIVE U 0330, 1500,4001,0004,4174,4003,7700,0200,0003,0001 ; 4466 EXIT U 0331, 0332,4113,0616,4174,4007,0520,0000,0000,0000 ; 4467 [T0].AND.[BRX], SKIP DP0 ;TRIED TO SQUARE 1B0? U 0332, 1500,7001,0004,4174,4003,7700,0200,0003,0001 ; 4468 =0 [ARX]_[MAG].EQV.Q, EXIT ;NO ; 4469 [ARX]_[MAG].EQV.Q, ;YES U 0333, 1404,7001,0004,4174,4467,0700,0000,0041,1000 ; 4470 SET AROV, J/MOVE ; 4471 ; 4472 ; 4473 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 105 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DMUL ; 4474 .TOC "ARITHMETIC -- DMUL" ; 4475 ; 4476 .DCODE D 0116, 0205,1566,1100 ; 4477 116: DBL R, DAC, J/DMUL ; 4478 .UCODE ; 4479 ; 4480 .IF/FULL ; 4481 1566: U 1566, 2627,3447,0303,4174,4007,0700,0000,0000,0000 ; 4482 DMUL: [AR]_[AR]*.5 ;SHIFT MEM OPERAND RIGHT U 2627, 2630,4117,0004,4174,4007,0700,0000,0000,0000 ; 4483 [ARX]_([ARX].AND.[MAG])*.5 ; 4484 [BR]_[ARX], ;COPY LOW WORD U 2630, 0340,3441,0405,4174,4007,0350,0000,0000,0000 ; 4485 SKIP FPD ;SEE IF FIRST PART DONE ; 4486 ; ; 4487 ; BRX * BR ==> C(E+1) * C(AC+1) ; 4488 ; ; 4489 =000 [BRX]_(AC[1].AND.[MAG])*.5, 3T, ;GET LOW AC U 0340, 2642,4557,0006,1274,4007,0701,0010,0000,1441 ; 4490 CALL [DMULGO] ;START MULTIPLY ; 4491 [ARX]_(AC[2].AND.[MAG])*.5, 3T, ;FIRST PART DONE U 0341, 2632,4557,0004,1274,4007,0701,0000,0000,1442 ; 4492 J/DMUL1 ;GO DO SECOND PART U 0344, 0222,3223,0000,1174,4007,0700,0400,0000,1443 ; 4493 =100 AC[3]_Q ;SALT AWAY 1 WORD OF PRODUCT ; 4494 = ; 4495 ; ; 4496 ; BRX * Q ==> C(E) * C(AC+1) ; 4497 ; ; 4498 =0** Q_[AR], SC_35., ;GO MULT NEXT HUNK U 0222, 0351,3442,0300,4174,4007,0700,2010,0071,0043 ; 4499 CALL [QMULT] ; .. U 0226, 2631,3441,0416,4174,4007,0700,0000,0000,0000 ; 4500 [T0]_[ARX] ;SAVE PRODUCT ; 4501 AC[2]_Q, [ARX]_Q*.5, ;SAVE PRODUCT U 2631, 0342,3227,0004,1174,4007,0700,0400,0000,1442 ; 4502 J/DMUL2 ;GO DO HIGH HALF U 2632, 0342,3777,0016,1276,6007,0701,0000,0000,1441 ; 4503 DMUL1: [T0]_AC[1]*.5 ;RESTORE T0 ; 4504 =0*0 ; 4505 ; ; 4506 ; BRX * BR ==> C(AC) * C(E+1) ; 4507 ; ; 4508 DMUL2: [BRX]_AC*.5, ;PREPARE TO DO HIGH HALF U 0342, 2643,3777,0006,0274,4007,0701,0010,0000,0000 ; 4509 CALL [DBLMUL] ; GO DO IT ; 4510 AC[1]_[T0]*2, 3T, ;INTERRUPT, SAVE T0 U 0343, 2645,0113,1616,1174,4007,0701,0400,0000,1441 ; 4511 J/DMLINT ;SET FPD AND INTERRUPT U 0346, 2633,3223,0000,1174,4007,0700,0400,0000,1442 ; 4512 AC[2]_Q ;SAVE PRODUCT ; 4513 = U 2633, 0350,0111,1604,4174,4007,0700,0000,0000,0000 ; 4514 [ARX]_[ARX]+[T0] ;PREPARE FOR LAST MUL ; 4515 ; ; 4516 ; BRX * Q ==> C(AC) * C(E) ; 4517 ; ; 4518 =0** Q_[AR], SC_35., ;DO THE LAST MULTIPLY U 0350, 0351,3442,0300,4174,4007,0700,2010,0071,0043 ; 4519 CALL [QMULT] ; GO DO IT ; 4520 [ARX]_[ARX]*2, ;SHIFT BACK U 0354, 2634,3445,0404,4174,4467,0700,0000,0005,0000 ; 4521 CLR FPD ;CLEAR FPD ; 4522 U 2634, 0334,3770,0404,0174,4007,0520,0400,0000,0000 ; 4523 AC_[ARX] TEST, SKIP DP0 ;PUT BACK INTO AC U 0334, 2641,3223,0000,1174,4007,0700,0400,0000,1441 ; 4524 =0 AC[1]_Q, J/DMTRAP ;POSITIVE U 0335, 2635,7003,0000,1174,4007,0700,0400,0000,1441 ; 4525 AC[1]_[MAG].EQV.Q ;NEGATIVE U 2635, 2636,3772,0000,1275,5007,0701,0000,0000,1442 ; 4526 Q_AC[2] U 2636, 2637,7003,0000,1174,4007,0700,0400,0000,1442 ; 4527 AC[2]_[MAG].EQV.Q U 2637, 2640,3772,0000,1275,5007,0701,0000,0000,1443 ; 4528 Q_AC[3] U 2640, 2641,7003,0000,1174,4007,0700,0400,0000,1443 ; 4529 AC[3]_[MAG].EQV.Q ; 4530 DMTRAP: [AR]_PC WITH FLAGS, ;LOOK AT FLAGS U 2641, 0336,3741,0103,4074,4007,0520,0000,0000,0000 ; 4531 SKIP DP0 ;SEE IF AROV SET? U 0336, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 4532 =0 DONE ;NO--ALL DONE U 0337, 1400,4443,0000,4174,4467,0700,0000,0041,1000 ; 4533 SET AROV, J/DONE ;YES--FORCE TRAP 1 ALSO ; 4534 ; 4535 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 106 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DMUL ; 4536 ; 4537 ;WAYS TO CALL MULTIPLY U 2642, 2643,4221,0004,4174,4007,0700,0000,0000,0000 ; 4538 DMULGO: [ARX]_0 ;CLEAR ARX U 2643, 2644,3442,0500,4174,4007,0700,2000,0071,0043 ; 4539 DBLMUL: Q_[BR], SC_35. U 2644, 0351,3447,0606,4174,4007,0700,0000,0000,0000 ; 4540 [BRX]_[BRX]*.5 ; 4541 =0** ; 4542 QMULT: Q_Q*.5, U 0351, 2650,3446,1200,4174,4007,0700,0010,0000,0000 ; 4543 CALL [MULTIPLY] ; 4544 [ARX]+[ARX], AD FLAGS, ;TEST FOR OVERFLOW U 0355, 0004,0113,0404,4174,4464,1701,0000,0001,0001 ; 4545 3T, RETURN [4] ;AND RETURN ; 4546 U 2645, 2507,4443,0000,4174,4467,0700,0000,0003,0000 ; 4547 DMLINT: SET FPD, J/FIXPC ;SET FPD, BACKUP PC ; 4548 ; INTERRUPT ; 4549 .IFNOT/FULL ; 4550 1566: ; 4551 DMUL: UUO ; 4552 .ENDIF/FULL ; 4553 ; 4554 ;MULTIPLY SUBROUTINE ; 4555 ;ENTERED WITH: ; 4556 ; MULTIPLIER IN Q ; 4557 ; MULTIPLICAND IN BRX ; 4558 ;RETURNS 4 WITH PRODUCT IN ARX!Q ; 4559 ; 4560 MUL STEP "A/BRX,B/ARX,DEST/Q_Q*.5,ASHC,STEP SC,MUL DISP" ; 4561 MUL FINAL "A/BRX,B/ARX,DEST/Q_Q*2" ; 4562 U 2646, 2647,3446,0606,4174,4007,0700,0000,0000,0000 ; 4563 MULSUB: [BRX]_[BRX]*.5 LONG ; 4564 MULSB1: [ARX]_0*.5 LONG, ;CLEAR ARX AND SHIFT Q ; 4565 STEP SC, ;COUNT FIRST STEP U 2647, 0352,4226,0004,4174,4007,0630,2000,0060,0000 ; 4566 J/MUL+ ;ENTER LOOP ; 4567 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 107 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DMUL ; 4568 ; 4569 ;MULTIPLY SUBROUTINE ; 4570 ;ENTERED WITH: ; 4571 ; MULTIPLIER IN Q ; 4572 ; MULTIPLICAND IN BRX ; 4573 ; PARTIAL PRODUCT IN ARX ; 4574 ;RETURNS 4 WITH Q*BRX+ARX IN ARX!Q ; 4575 ; 4576 MULTIPLY: ; 4577 Q_Q*.5, ;SHIFT Q ; 4578 STEP SC, ;COUNT FIRST STEP U 2650, 0352,3446,1200,4174,4007,0630,2000,0060,0000 ; 4579 J/MUL+ ;ENTER LOOP ; 4580 ; 4581 ;HERE FOR POSITIVE STEPS ; 4582 =010 ;0 IN A POSITIVE STEP ; 4583 MUL+: AD/B, ;DON'T ADD ; 4584 MUL STEP, ;SHIFT U 0352, 0352,3336,0604,4174,4046,2630,2000,0060,0000 ; 4585 J/MUL+ ;KEEP POSITIVE ; 4586 =011 ;DONE ; 4587 AD/B, ;DON'T ADD ; 4588 MUL FINAL, ;SHIFT U 0353, 0004,3334,0604,4174,4004,1700,0000,0000,0000 ; 4589 RETURN [4] ;SHIFT Q AND RETURN ; 4590 =110 ;1 IN A POSITIVE STEP ; 4591 AD/B-A-.25, ADD .25, ;SUBTRACT ; 4592 MUL STEP, ;SHIFT AND COUNT U 0356, 0362,1116,0604,4174,4046,2630,6000,0060,0000 ; 4593 J/MUL- ;NEGATIVE NOW ; 4594 =111 ;DONE ; 4595 AD/B-A-.25, ADD .25, ;SUBTRACT ; 4596 MUL FINAL, ;SHIFT U 0357, 0004,1114,0604,4174,4004,1700,4000,0000,0000 ; 4597 RETURN [4] ; AND RETURN ; 4598 ; 4599 ;HERE FOR NEGATIVE STEPS ; 4600 =010 ;0 IN NEGATIVE STEP ; 4601 MUL-: AD/A+B, ;ADD ; 4602 MUL STEP, ;SHIFT AND COUNT U 0362, 0352,0116,0604,4174,4046,2630,2000,0060,0000 ; 4603 J/MUL+ ;POSITIVE NOW ; 4604 =011 ;DONE ; 4605 AD/A+B, ;ADD ; 4606 MUL FINAL, ;SHIFT U 0363, 0004,0114,0604,4174,4004,1700,0000,0000,0000 ; 4607 RETURN [4] ;FIX Q AND RETURN ; 4608 =110 ;1 IN NEGATIVE STEP ; 4609 AD/B, ;DON'T ADD ; 4610 MUL STEP, ;SHIFT AND COUNT U 0366, 0362,3336,0604,4174,4046,2630,2000,0060,0000 ; 4611 J/MUL- ;STILL NEGATIVE ; 4612 =111 ;DONE ; 4613 AD/B, ;DON'T ADD ; 4614 MUL FINAL, ;SHIFT U 0367, 0004,3334,0604,4174,4004,1700,0000,0000,0000 ; 4615 RETURN [4] ;FIX Q AND RETURN ; 4616 ; 4617 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 108 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DIV, IDIV ; 4618 .TOC "ARITHMETIC -- DIV, IDIV" ; 4619 ; 4620 .DCODE D 0230, 1005,1600,1100 ; 4621 230: R-PF, DAC, J/IDIV D 0231, 0005,1600,3000 ; 4622 I-PF, DAC, J/IDIV D 0232, 0016,1600,1700 ; 4623 RW, M, J/IDIV D 0233, 0006,1600,1700 ; 4624 RW, DBL B, J/IDIV ; 4625 D 0234, 1005,1601,1100 ; 4626 234: R-PF, DAC, J/DIV D 0235, 0005,1601,3000 ; 4627 I-PF, DAC, J/DIV D 0236, 0016,1601,1700 ; 4628 RW, M, J/DIV D 0237, 0006,1601,1700 ; 4629 RW, DBL B, J/DIV ; 4630 .UCODE ; 4631 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 109 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DIV, IDIV ; 4632 ; 4633 1600: U 1600, 2651,3441,0305,0174,4007,0700,0000,0000,0000 ; 4634 IDIV: [BR]_[AR], AC ;COPY MEMORY OPERAND ; 4635 Q_AC, ;LOAD Q U 2651, 0360,3772,0000,0275,5007,0520,0000,0000,0000 ; 4636 SKIP DP0 ;SEE IF MINUS ; 4637 =0 [AR]_0, ;EXTEND + SIGN U 0360, 0371,4221,0003,4174,4007,0700,0000,0000,0000 ; 4638 J/DIV1 ;NOW SAME AS DIV ; 4639 [AR]_-1, ;EXTEND - SIGN U 0361, 0371,2441,0703,4174,4007,0700,4000,0000,0000 ; 4640 J/DIV1 ;SAME AS DIV ; 4641 ; 4642 1601: U 1601, 2652,3441,0305,4174,4007,0700,0000,0000,0000 ; 4643 DIV: [BR]_[AR] ;COPY MEM OPERAND U 2652, 2653,3771,0003,0276,6007,0700,0000,0000,0000 ; 4644 [AR]_AC ;GET AC U 2653, 2654,3772,0000,1275,5007,0701,0000,0000,1441 ; 4645 Q_AC[1] ;AND AC+1 ; 4646 READ [AR], ;TEST FOR NO DIVIDE U 2654, 0370,3333,0003,4174,4007,0621,0000,0000,0000 ; 4647 SKIP AD.EQ.0 ; 4648 =000 .NOT.[AR], ;SEE IF ALL SIGN BITS IN AR ; 4649 SKIP AD.EQ.0, ; .. U 0370, 0364,7443,0300,4174,4007,0621,0000,0000,0000 ; 4650 J/DIVA ;CONTINUE BELOW ; 4651 =001 ; 4652 DIV1: READ [BR], ;SEE IF DIVIDE BY U 0371, 0374,3333,0005,4174,4007,0621,0000,0000,0000 ; 4653 SKIP AD.EQ.0 ; ZERO ; 4654 =100 ; 4655 DIV2: SC_34., ;NOT ZERO--LOAD STEP COUNT U 0374, 0510,4443,0000,4174,4007,0700,2010,0071,0042 ; 4656 CALL [DIVSUB] ;DIVIDE U 0375, 0127,4443,0000,4174,4467,0700,0000,0051,1000 ; 4657 =101 NO DIVIDE ;DIVIDE BY ZERO ; 4658 =110 [ARX]_[AR], ;COPY REMAINDER U 0376, 0323,3441,0304,4174,4007,0700,0000,0000,0000 ; 4659 J/IMUL1 ;STORE ANSWER ; 4660 = ; 4661 ; 4662 ; 4663 =0 ; 4664 DIVA: [BRX]_[AR], ;HIGH WORD IS NOT SIGNS U 0364, 2655,3441,0306,4174,4007,0700,0000,0000,0000 ; 4665 J/DIVB ;GO TEST FOR NO DIVIDE ; 4666 READ [BR], ;ALL SIGN BITS ; 4667 SKIP AD.EQ.0, ;SEE IF ZERO DIVIDE U 0365, 0374,3333,0005,4174,4007,0621,0000,0000,0000 ; 4668 J/DIV2 ;BACK TO MAIN FLOW ; 4669 U 2655, 2656,3221,0004,4174,4007,0700,0000,0000,0000 ; 4670 DIVB: [ARX]_Q ;MAKE ABS VALUES ; 4671 READ [AR], ;SEE IF + U 2656, 0404,3333,0003,4174,4007,0520,0000,0000,0000 ; 4672 SKIP DP0 ; 4673 =00 READ [BR], ;SEE IF + ; 4674 SKIP DP0, U 0404, 0372,3333,0005,4174,4007,0520,0000,0000,0000 ; 4675 J/DIVC ;CONTINUE BELOW ; 4676 CLEAR [ARX]0, ;FLUSH DUPLICATE SIGN U 0405, 2737,4551,0404,4374,0007,0700,0010,0037,7777 ; 4677 CALL [DBLNG1] ;NEGATE AR!ARX ; 4678 =11 READ [BR], ;SEE IF TOO BIG ; 4679 SKIP DP0, U 0407, 0372,3333,0005,4174,4007,0520,0000,0000,0000 ; 4680 J/DIVC ; 4681 = ; 4682 =0 ; 4683 DIVC: [AR]-[BR], ;COMPUTE DIFFERENCE ; 4684 SKIP DP0, ;SEE IF IT GOES ; 4685 3T, ;ALLOW TIME U 0372, 0402,2113,0305,4174,4007,0521,4000,0000,0000 ; 4686 J/NODIV ;TEST ; 4687 [AR]+[BR], ; 4688 SKIP DP0, ;SAME TEST FOR -VE BR ; 4689 3T, U 0373, 0402,0113,0305,4174,4007,0521,0000,0000,0000 ; 4690 J/NODIV ; 4691 =0 U 0402, 0127,4443,0000,4174,4467,0700,0000,0051,1000 ; 4692 NODIV: NO DIVIDE ;TOO BIG ; 4693 [AR]_[BRX], ;FITS U 0403, 0371,3441,0603,4174,4007,0700,0000,0000,0000 ; 4694 J/DIV1 ;GO BACK AND DIVIDE ; 4695 ; 4696 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 110 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DDIV ; 4697 .TOC "ARITHMETIC -- DDIV" ; 4698 ; 4699 .DCODE D 0117, 0205,1627,1100 ; 4700 117: DBL R, DAC, J/DDIV ; 4701 .UCODE ; 4702 ; 4703 .IF/FULL ; 4704 1627: U 1627, 2657,4112,0400,4174,4007,0700,0000,0000,0000 ; 4705 DDIV: Q_[ARX].AND.[MAG] ;COPY LOW WORD ; 4706 [BR]_[AR]*.5, ;COPY MEMORY OPERAND U 2657, 0410,3447,0305,4174,4007,0421,0000,0000,0000 ; 4707 SKIP AD.LE.0 ;SEE IF POSITIVE ; 4708 =0 [BR]_[BR]*.5 LONG, ;POSITIVE U 0410, 0414,3446,0505,4174,4007,0700,0000,0000,0000 ; 4709 J/DDIV1 ;CONTINUE BELOW ; 4710 [BR]_[BR]*.5 LONG, ;NEGATIVE OR ZERO U 0411, 0412,3446,0505,4174,4007,0520,0000,0000,0000 ; 4711 SKIP DP0 ;SEE WHICH? ; 4712 =0 [MAG].AND.Q, ;SEE IF ALL ZERO U 0412, 0414,4003,0000,4174,4007,0621,0000,0000,0000 ; 4713 SKIP AD.EQ.0, J/DDIV1 ;CONTINUE BELOW U 0413, 2660,4751,1217,4374,4007,0700,0000,0000,0005 ; 4714 [T1]_0 XWD [5] ;NEGATE MEM OP ; 4715 Q_Q.OR.#, #/600000, ;SIGN EXTEND THE LOW U 2660, 2661,3662,0000,4374,0007,0700,0000,0060,0000 ; 4716 HOLD RIGHT ; WORD U 2661, 2662,2222,0000,4174,4007,0700,4000,0000,0000 ; 4717 Q_-Q ;MAKE Q POSITIVE ; 4718 [BR]_(-[BR]-.25)*.5 LONG, ;NEGATE HIGH WORD ; 4719 ASHC, MULTI PREC/1, ;USE CARRY FROM LOW WORD U 2662, 2664,2446,0505,4174,4047,0700,0040,0000,0000 ; 4720 J/DDIV3 ;CONTINUE BELOW ; 4721 =0 ; 4722 DDIV1: [BR]_[BR]*.5 LONG, ;SHIFT OVER 1 PLACE U 0414, 2663,3446,0505,4174,4047,0700,0000,0000,0000 ; 4723 ASHC, J/DDIV2 ;CONTINUE BELOW U 0415, 0127,4443,0000,4174,4467,0700,0000,0051,1000 ; 4724 NO DIVIDE ;DIVIDE BY ZERO U 2663, 2664,4751,1217,4374,4007,0700,0000,0000,0004 ; 4725 DDIV2: [T1]_0 XWD [4] ;MEM OPERAND IS POSITIVE U 2664, 2665,3221,0006,0174,4007,0700,0000,0000,0000 ; 4726 DDIV3: [BRX]_Q, AC ;COPY Q ; 4727 U 2665, 0416,3777,0003,0274,4007,0520,0000,0000,0000 ; 4728 [AR]_AC*.5, 2T, SKIP DP0 ;GET AC--SEE IF NEGATIVE ; 4729 =0*1*0 ; 4730 DDIV3A: Q_AC[1].AND.[MAG], ;POSITIVE (OR ZERO) U 0416, 0420,4552,0000,1275,5007,0701,0000,0000,1441 ; 4731 J/DDIV4 ;CONTINUE BELOW ; 4732 [T1]_[T1].XOR.#, ;NEGATIVE U 0417, 2726,6551,1717,4374,4007,0700,0010,0000,0007 ; 4733 #/7, CALL [QDNEG] ;UPDATE SAVED FLAGS ; 4734 =1*1*1 [AR]_[AR]*.5, ;SHIFT AR OVER U 0437, 0416,3447,0303,4174,4007,0700,0000,0000,0000 ; 4735 J/DDIV3A ;GO BACK AND LOAD Q ; 4736 = ; 4737 =0 ; 4738 DDIV4: [AR]_[AR]*.5 LONG, ;SHIFT AR OVER U 0420, 2710,3446,0303,4174,4007,0700,0010,0000,0000 ; 4739 CALL [DDIVS] ;SHIFT 1 MORE PLACE U 0421, 0422,2113,0305,4174,4007,0521,4000,0000,0000 ; 4740 [AR]-[BR], 3T, SKIP DP0 ;TEST MAGNITUDE ; 4741 =0 [AR]-[BR], 2T, U 0422, 0424,2113,0305,4174,4007,0620,4000,0000,0000 ; 4742 SKIP AD.EQ.0, J/DDIV5 U 0423, 2666,3221,0004,4174,4007,0700,0000,0000,0000 ; 4743 [ARX]_Q, J/DDIV5A ;ANSWER FITS ; 4744 ; 4745 =0 U 0424, 0533,3333,0017,4174,4003,5701,0000,0000,0000 ; 4746 DDIV5: READ [T1], 3T, DISP/DP, J/NODDIV U 0425, 0426,1003,0600,4174,4007,0521,4000,0000,0000 ; 4747 Q-[BRX], 3T, SKIP DP0 U 0426, 0533,3333,0017,4174,4003,5701,0000,0000,0000 ; 4748 =0 READ [T1], 3T, DISP/DP, J/NODDIV U 0427, 2666,3221,0004,4174,4007,0700,0000,0000,0000 ; 4749 [ARX]_Q ;COPY LOW WORD ; 4750 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 111 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DDIV ; 4751 ; 4752 ;HERE WITH EVERYTHING SETUP AND READY TO GO U 2666, 0345,4552,0000,1275,5007,0701,0000,0000,1442 ; 4753 DDIV5A: Q_AC[2].AND.[MAG] U 0345, 0460,3446,1200,4174,4007,0700,2010,0071,0042 ; 4754 =0* Q_Q*.5, SC_34., CALL [DBLDIV] U 0347, 2667,3224,0016,4174,4007,0700,0000,0000,0000 ; 4755 [T0]_Q*2 LONG U 2667, 2670,0002,1600,4174,4007,0700,0000,0000,0000 ; 4756 Q_Q+[T0] U 2670, 0430,4003,0000,1174,4007,0700,0400,0000,1440 ; 4757 AC[0]_Q.AND.[MAG] ;STORE ANSWER U 0430, 2710,3442,0400,4174,4007,0700,0010,0000,0000 ; 4758 =0 Q_[ARX], CALL [DDIVS] ;SHIFT OUT EXTRA ZERO BIT U 0431, 2671,3221,0004,4174,4007,0700,0000,0000,0000 ; 4759 [ARX]_Q ; .. U 2671, 0434,4552,0000,1275,5007,0701,0000,0000,1443 ; 4760 Q_AC[3].AND.[MAG] ; 4761 =0* [T0]_[AR]*.5 LONG, ;SHIFT Q, PUT AR ON DP ; 4762 SC_34., ;LOAD SHIFT COUNT ; 4763 SKIP DP0, ;LOOK AT AR SIGN U 0434, 0460,3446,0316,4174,4007,0520,2010,0071,0042 ; 4764 CALL [DBLDIV] ;GO DIVIDE U 0436, 2672,3224,0016,4174,4007,0700,0000,0000,0000 ; 4765 [T0]_Q*2 LONG U 2672, 0456,3333,0017,4174,4003,5701,0000,0000,0000 ; 4766 READ [T1], 3T, DISP/DP ;WHAT SIGN IS QUO ; 4767 =1110 [T0]_[T0]+Q, ;POSITIVE QUO U 0456, 2675,0001,1616,4174,4007,0700,0000,0000,0000 ; 4768 J/DDIV5B ;CONTINUE BELOW U 0457, 2673,2225,0016,4174,4007,0700,4000,0000,0000 ; 4769 [T0]_-Q*2 ;NEGATIVE QUO ; 4770 AD/-D-.25, DBUS/RAM, 3T, ; 4771 RAMADR/AC#, DEST/Q_AD, U 2673, 2674,1772,0000,0274,4007,0701,0040,0000,0000 ; 4772 MULTI PREC/1 U 2674, 0432,3223,0000,0174,4007,0621,0400,0000,0000 ; 4773 AC_Q, SKIP AD.EQ.0 U 0432, 2676,3440,1616,1174,4007,0700,0400,0000,1441 ; 4774 =0 AC[1]_[T0], J/DDIV5C U 0433, 2700,4223,0000,1174,4007,0700,0400,0000,1441 ; 4775 AC[1]_0, J/DDIV6 ; 4776 U 2675, 2700,4113,1600,1174,4007,0700,0400,0000,1441 ; 4777 DDIV5B: AC[1]_[T0].AND.[MAG], J/DDIV6 ;STORE LOW WORD IN + CASE ; 4778 U 2676, 2677,3551,1616,4374,0007,0700,0000,0040,0000 ; 4779 DDIV5C: [T0]_[T0].OR.#, #/400000, HOLD RIGHT U 2677, 2700,3440,1616,1174,4007,0700,0400,0000,1441 ; 4780 AC[1]_[T0] ; 4781 U 2700, 0440,3333,0003,4174,4007,0520,0000,0000,0000 ; 4782 DDIV6: READ [AR], SKIP DP0 ;LOOK AT AR SIGN ; 4783 =0 U 0440, 2704,3442,0400,4174,4007,0700,0000,0000,0000 ; 4784 DDIV7: Q_[ARX], J/DDIV8 U 0441, 2701,0112,0406,4174,4007,0700,0000,0000,0000 ; 4785 Q_[ARX]+[BRX] ; 4786 [AR]_[AR]+[BR], U 2701, 2702,0111,0503,4174,4007,0700,0040,0000,0000 ; 4787 MULTI PREC/1 U 2702, 2703,0002,0600,4174,4007,0700,0000,0000,0000 ; 4788 Q_Q+[BRX] ; 4789 [AR]_[AR]+[BR], U 2703, 2704,0111,0503,4174,4007,0700,0040,0000,0000 ; 4790 MULTI PREC/1 U 2704, 0475,3333,0017,4174,4003,5701,0000,0000,0000 ; 4791 DDIV8: READ [T1], 3T, DISP/DP ; 4792 =1101 ; 4793 DDIV8A: [AR]_[AR]*2 LONG, ASHC, ;POSITIVE REMAINDER U 0475, 2706,3444,0303,4174,4047,0700,0000,0000,0000 ; 4794 J/DDIV9 ;CONTINUE BELOW U 0477, 2705,2222,0000,4174,4007,0700,4000,0000,0000 ; 4795 Q_-Q ;NEGATE REMAINDER IN AR!Q ; 4796 [AR]_(-[AR]-.25)*2 LONG, U 2705, 2706,2444,0303,4174,4047,0700,0040,0000,0000 ; 4797 MULTI PREC/1, ASHC ; 4798 ; 4799 DDIV9: AC[2]_[AR]+[AR], 3T, U 2706, 0442,0113,0303,1174,4007,0521,0400,0000,1442 ; 4800 SKIP DP0 ; 4801 =0 AC[3]_Q.AND.[MAG], U 0442, 0060,4003,0000,1174,4156,4700,0400,0000,1443 ; 4802 NEXT INST U 0443, 2707,4002,0000,1174,4007,0700,0000,0000,1443 ; 4803 Q_Q.AND.[MAG], AC[3] ; 4804 AC[3]_[MAG].EQV.Q, U 2707, 0060,7003,0000,1174,4156,4700,0400,0000,1443 ; 4805 NEXT INST ; 4806 ; 4807 ; 4808 ;HERE IF WE WANT TO SET NO DIVIDE ; 4809 =11011 U 0533, 2726,4443,0000,4174,4007,0700,0010,0000,0000 ; 4810 NODDIV: CALL [QDNEG] ;FIXUP AC TO AC+3 U 0537, 0127,4443,0000,4174,4467,0700,0000,0051,1000 ; 4811 NO DIVIDE ;ABORT DIVIDE ; 4812 U 2710, 0001,3446,0303,4174,4044,1700,0000,0000,0000 ; 4813 DDIVS: [AR]_[AR]*.5 LONG, ASHC, RETURN [1] ; 4814 .IFNOT/FULL ; 4815 1627: ; 4816 DDIV: UUO ; 4817 .ENDIF/FULL ; 4818 ; 4819 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 112 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DIVIDE SUBROUTINE ; 4820 .TOC "ARITHMETIC -- DIVIDE SUBROUTINE" ; 4821 ; 4822 ;HERE IS THE SUBROUTINE TO DO DIVIDE ; 4823 ;ENTER WITH: ; 4824 ; AR!Q = D'END ; 4825 ; BR = D'SOR ; 4826 ;RETURN 2 WITH: ; 4827 ; AR = REMAINDER ; 4828 ; Q = QUOTIENT ; 4829 ;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL ; 4830 ; ; 4831 =1000 ; 4832 DIVSUB: Q_Q.AND.#, ;CLEAR SIGN BIT IN ; 4833 #/377777, ;MASK ; 4834 HOLD RIGHT, ;JUST CLEAR BIT 0 U 0510, 2711,4662,0000,4374,0007,0700,0010,0037,7777 ; 4835 CALL [DIVSGN] ;DO REAL DIVIDE U 0514, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 4836 =1100 RETURN [2] ;ALL POSITIVE U 0515, 0002,2222,0000,4174,4004,1700,4000,0000,0000 ; 4837 =1101 Q_-Q, RETURN [2] ;-QUO +REM U 0516, 0517,2222,0000,4174,4007,0700,4000,0000,0000 ; 4838 =1110 Q_-Q ;ALL NEGATIVE U 0517, 0002,2441,0303,4174,4004,1700,4000,0000,0000 ; 4839 =1111 [AR]_-[AR], RETURN [2] ;NEGATIVE REMAINDER ; 4840 ; 4841 ;HERE IS THE INNER DIVIDE SUBROUTINE ; 4842 ;SAME SETUP AS DIVSUB ; 4843 ;RETURNS WITH AR AND Q POSITIVE AND ; 4844 ; 14 IF ALL POSITIVE ; 4845 ; 15 IF -QUO ; 4846 ; 16 IF ALL NEGATIVE ; 4847 ; 17 IF NEGATIVE REMAINDER ; 4848 ; 4849 BASIC DIV STEP "DEST/Q_Q*2, DIV, A/BR, B/AR, STEP SC" ; 4850 DIV STEP "BASIC DIV STEP, AD/A+B, DIVIDE/1" ; 4851 FIRST DIV STEP "BASIC DIV STEP, AD/B-A-.25, ADD .25" ; 4852 U 2711, 0444,3333,0003,4174,4007,0520,0000,0000,0000 ; 4853 DIVSGN: READ [AR], SKIP DP0 U 0444, 2713,4221,0004,4174,4007,0700,0000,0000,0000 ; 4854 =0 [ARX]_0, J/DVSUB2 ;REMAINDER IS POSITIVE U 0445, 0446,2222,0000,4174,4007,0621,4000,0000,0000 ; 4855 Q_-Q, SKIP AD.EQ.0 ;COMPLEMENT LOW WORD U 0446, 2712,7441,0303,4174,4007,0700,0000,0000,0000 ; 4856 =0 [AR]_.NOT.[AR], J/DVSUB1 ;COMPLEMENT HI WORD U 0447, 2712,2441,0303,4174,4007,0700,4000,0000,0000 ; 4857 [AR]_-[AR] ;TWO'S COMPLEMENT HI WORD SINCE ; 4858 ; LOW WORD WAS ZERO U 2712, 2713,3771,0004,4374,4007,0700,0000,0010,0000 ; 4859 DVSUB1: [ARX]_#, #/100000 ;REMAINDER IS NEGATIVE U 2713, 0450,3333,0005,4174,4007,0520,0000,0000,0000 ; 4860 DVSUB2: READ [BR], SKIP DP0 ;IS THE DIVISOR NEGATIVE ; 4861 =0 ; 4862 DVSUB3: [AR]_[AR]*.5 LONG, ;START TO PUT IN 9-CHIPS U 0450, 2715,3446,0303,4174,4007,0700,0000,0000,0000 ; 4863 J/DIVSET ;JOIN MAIN STREAM U 0451, 2714,2441,0505,4174,4007,0700,4000,0000,0000 ; 4864 [BR]_-[BR] ;COMPLEMENT DIVISOR ; 4865 [ARX]_[ARX].OR.#, ;ADJUST SIGN OF QUOTIENT U 2714, 0450,3551,0404,4374,4007,0700,0000,0004,0000 ; 4866 #/40000, J/DVSUB3 ;USE 9 CHIPS U 2715, 2716,3447,0303,4174,4007,0700,0000,0000,0000 ; 4867 DIVSET: [AR]_[AR]*.5 U 2716, 2717,3447,0505,4174,4007,0700,0000,0000,0000 ; 4868 [BR]_[BR]*.5 U 2717, 2720,3447,0505,4174,4007,0700,0000,0000,0000 ; 4869 [BR]_[BR]*.5 U 2720, 0452,1114,0503,4174,4067,0630,6000,0060,0000 ; 4870 FIRST DIV STEP ; 4871 ;HERE IS THE MAIN DIVIDE LOOP ; 4872 =0 U 0452, 0452,0114,0503,4174,4067,0630,2100,0060,0000 ; 4873 DIVIDE: DIV STEP, J/DIVIDE U 0453, 2721,3444,1717,4174,4067,0700,0100,0000,0000 ; 4874 [T1]_[T1]*2 LONG, DIVIDE/1, DIV U 2721, 0454,3447,0303,4174,4007,0520,0000,0000,0000 ; 4875 [AR]_[AR]*.5, SKIP DP0 ; 4876 =0 U 0454, 2722,3444,0303,4174,4007,0700,0000,0000,0000 ; 4877 FIX++: [AR]_[AR]*2 LONG, J/FIX1++ U 0455, 0454,0111,0503,4174,4007,0700,0000,0000,0000 ; 4878 [AR]_[AR]+[BR], J/FIX++ U 2722, 2723,3444,0303,4174,4007,0700,0000,0000,0000 ; 4879 FIX1++: [AR]_[AR]*2 LONG U 2723, 2724,4002,1200,4174,4007,0700,0000,0000,0000 ; 4880 Q_[MASK].AND.Q ; 4881 READ [ARX], 3T, ;RETURN TO 1 OF 4 PLACES ; 4882 DISP/1, ;BASED ON SIGN OF RESULT U 2724, 0014,3333,0004,4174,4000,1701,0000,0000,0000 ; 4883 J/14 ;RETURN ; 4884 ; 4885 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 113 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE ; 4886 .TOC "ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE" ; 4887 .IF/FULL ; 4888 ;CALL WITH: ; 4889 ; AR!ARX!Q = 3 WORD DV'END ; 4890 ; BR!BRX = 2 WORD DV'SOR ; 4891 ;RETURN 2 WITH: ; 4892 ; AR!ARX = 2 WORD REMAINDER ; 4893 ; CORRECT IF POSITIVE (Q IS ODD) ; 4894 ; WRONG (BY BR!BRX) IF NEGATIVE (Q IS EVEN) ; 4895 ; Q = 1 WORD QUOTIENT ; 4896 ;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL ; 4897 ; ; 4898 ;NOTE: THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS ; 4899 ; ; 4900 =0 ; 4901 ;HERE FOR NORMAL STARTUP ; 4902 DBLDIV: [ARX]_([ARX]-[BRX])*2 LONG, ;SUBTRACT LOW WORD U 0460, 2725,1114,0604,4174,4057,0700,4000,0000,0000 ; 4903 LSHC, J/DIVHI ;GO ENTER LOOP ; 4904 ;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR ; 4905 [ARX]_([ARX]+[BRX])*2 LONG, ;CORRECTION STEP U 0461, 2725,0114,0604,4174,4057,0700,0000,0000,0000 ; 4906 LSHC, J/DIVHI ;GO ENTER LOOP ; 4907 ; 4908 ;HERE IS DOUBLE DIVIDE LOOP ; 4909 DIVHI: AD/A+B, ;ADD (HARDWARE MAY OVERRIDE) ; 4910 A/BR, B/AR, ;OPERANDS ARE AR AND BR ; 4911 DEST/AD*2, ;SHIFT LEFT ; 4912 SHSTYLE/NORM, ;SET SHIFT PATHS (SEE DPE1) ; 4913 MULTI PREC/1, ;INJECT SAVED BITS U 2725, 0462,0115,0503,4174,4007,0630,2040,0060,0000 ; 4914 STEP SC ;COUNT DOWN LOOP ; 4915 =0 AD/A+B, ;ADD (HARDWARE MAY OVERRIDE) ; 4916 A/BRX, B/ARX, ;LOW WORDS ; 4917 DEST/Q_Q*2, ;SHIFT WHOLE MESS LEFT ; 4918 SHSTYLE/DIV, ;SET SHIFT PATHS (SEE DPE1) ; 4919 DIVIDE/1, ;SAVE BITS U 0462, 2725,0114,0604,4174,4067,0700,0100,0000,0000 ; 4920 J/DIVHI ;KEEP LOOPING ; 4921 ;HERE WHEN ALL DONE ; 4922 DEST/Q_Q*2, DIV, ;SHIFT IN LAST Q BIT ; 4923 DIVIDE/1, ;GENERATE BIT U 0463, 0002,4444,0002,4174,4064,1700,0100,0000,0000 ; 4924 B/HR, RETURN [2] ;ZERO HR AND RETURN ; 4925 ; 4926 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 114 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4927 .TOC "ARITHMETIC -- SUBROUTINES FOR ARITHMETIC" ; 4928 ; 4929 ;QUAD WORD NEGATE ; 4930 ;ARGUMENT IN AC!AC1!AC2!AC3 ; 4931 ;LEAVES COPY OF AC!AC1 IN AR!Q ; 4932 ;RETURNS TO CALL!24 U 2726, 2727,1772,0000,1274,4007,0701,4000,0000,1443 ; 4933 QDNEG: Q_-AC[3] ; 4934 AC[3]_Q.AND.[MAG], ;PUT BACK LOW WORD U 2727, 0464,4003,0000,1174,4007,0621,0400,0000,1443 ; 4935 SKIP AD.EQ.0 ;SEE IF ANY CARRY ; 4936 =0 U 0464, 2732,7772,0000,1274,4007,0701,0000,0000,1442 ; 4937 COM2A: Q_.NOT.AC[2], J/COM2 ;CARRY--DO 1'S COMPLEMENT U 0465, 2730,1772,0000,1274,4007,0701,4000,0000,1442 ; 4938 Q_-AC[2] ;NEXT WORD ; 4939 AC[2]_Q.AND.[MAG], ;PUT BACK WORD U 2730, 0466,4003,0000,1174,4007,0621,0400,0000,1442 ; 4940 SKIP AD.EQ.0 ; 4941 =0 U 0466, 2733,7772,0000,1274,4007,0701,0000,0000,1441 ; 4942 COM1A: Q_.NOT.AC[1], J/COM1 U 0467, 2731,1772,0000,1274,4007,0701,4000,0000,1441 ; 4943 Q_-AC[1] ; 4944 AC[1]_Q.AND.[MAG], U 2731, 0470,4003,0000,1174,4007,0621,0400,0000,1441 ; 4945 SKIP AD.EQ.0 ; 4946 =0 U 0470, 2734,7771,0003,0274,4007,0700,0000,0000,0000 ; 4947 COM0A: [AR]_.NOT.AC, J/COM0 U 0471, 2734,1771,0003,0274,4007,0701,4000,0000,0000 ; 4948 [AR]_-AC, 3T, J/COM0 ; 4949 U 2732, 0466,4003,0000,1174,4007,0700,0400,0000,1442 ; 4950 COM2: AC[2]_Q.AND.[MAG], J/COM1A U 2733, 0470,4003,0000,1174,4007,0700,0400,0000,1441 ; 4951 COM1: AC[1]_Q.AND.[MAG], J/COM0A U 2734, 0024,3440,0303,0174,4004,1700,0400,0000,0000 ; 4952 COM0: AC_[AR], RETURN [24] ; 4953 .ENDIF/FULL ; 4954 ; 4955 ;DOUBLE WORD NEGATE ; 4956 ;ARGUMENT IN AR AND ARX ; 4957 ;RETURNS TO CALL!2 ; 4958 U 2735, 2736,4551,0404,4374,0007,0700,0000,0037,7777 ; 4959 DBLNEG: CLEAR ARX0 ;FLUSH DUPLICATE SIGN ; 4960 DBLNGA: [ARX]_-[ARX], ;FLIP LOW WORD U 2736, 0472,2441,0404,4174,4007,0621,4000,0000,0000 ; 4961 SKIP AD.EQ.0 ;SEE IF CARRY ; 4962 =0 [AR]_.NOT.[AR], ;NO CARRY-- 1 COMP U 0472, 1572,7441,0303,4174,4467,0700,0000,0001,0001 ; 4963 AD FLAGS, J/CLARX0 ;CLEAR LOW SIGN ; 4964 [AR]_-[AR], ;CARRY U 0473, 1572,2441,0303,4174,4467,0701,4000,0001,0001 ; 4965 AD FLAGS, 3T, J/CLARX0 ; 4966 ; 4967 ;SAME THING BUT DOES NOT SET PC FLAGS U 2737, 0500,2441,0404,4174,4007,0621,4000,0000,0000 ; 4968 DBLNG1: [ARX]_-[ARX], SKIP AD.EQ.0 U 0500, 1572,7441,0303,4174,4007,0700,0000,0000,0000 ; 4969 =0 [AR]_.NOT.[AR], J/CLARX0 U 0501, 1572,2441,0303,4174,4007,0700,4000,0000,0000 ; 4970 [AR]_-[AR], J/CLARX0 ; 4971 ; 4972 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 115 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4973 .NOBIN ; 4974 .TOC "BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB" ; 4975 ; 4976 ; 4977 ;ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER ; 4978 ;IN THE AR. ALL INSTRUCTIONS SHARE COMMON SUBROUTINES. ; 4979 ; 4980 ;IBP OR ADJBP ; 4981 ;IBP IF AC#0, ADJBP OTHERWISE ; 4982 ; HERE WITH THE BASE POINTER IN AR ; 4983 ; 4984 ;HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS: ; 4985 ; THE AR IS PUT ON THE DP. ; 4986 ; THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD ; 4987 ; THE SCAD COMPUTES P-S ; 4988 ; IBPS IS CALLED WITH A 4-WAY DISPATCH ON SCAD0 AND FIRST-PART-DONE ; 4989 ;THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS ; 4990 ; IN THE MICRO ASSEMBLER ; 4991 ; 4992 IBP DP "AD/D, DEST/A, A/AR, B/BR, DBUS/DBM, DBM/DP, BYTE/BYTE1" ; 4993 IBP SCAD "SCAD/A-B, SCADA/BYTE1, SCADB/SIZE" ; 4994 IBP SPEC "SCAD DISP, SKIP FPD" ; 4995 CALL IBP "IBP DP, IBP SCAD, IBP SPEC, CALL [IBPS], DT/3T" ; 4996 ; 4997 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" ; 4998 ; 4999 ;THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT ; 5000 ; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT 1S. ; 5001 BYTE STEP "SCAD/A+B,SCADA/S#,S#/1770,SCADB/FE,LOAD FE, 3T,SCAD DISP" ; 5002 ; 5003 .BIN ; 5004 ; 5005 .DCODE D 0133, 0015,1610,1100 ; 5006 133: R, AC, J/IBP ;OR ADJBP D 0134, 0000,1620,1500 ; 5007 134: R,W TEST, J/ILDB ;CAN'T USE RPW BECAUSE OF FPD D 0135, 0000,1624,1100 ; 5008 R, J/LDB D 0136, 0000,1630,1500 ; 5009 R,W TEST, J/IDPB D 0137, 0000,1634,1100 ; 5010 R, J/DPB ; 5011 .UCODE ; 5012 1610: U 1610, 0520,4443,0000,4174,4007,0360,0000,0000,0000 ; 5013 IBP: SKIP IF AC0 ;SEE IF ADJBP ; 5014 =000 WORK[ADJPTR]_[AR], ;SAVE POINTER U 0520, 2775,3333,0003,7174,4007,0700,0400,0000,0223 ; 5015 J/ADJBP ;GO ADJUST BYTE POINTER U 0521, 0540,3770,0305,4334,4016,7351,0010,0033,6000 ; 5016 =001 CALL IBP ;BUMP BYTE POINTER U 0525, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 5017 =101 DONE ;POINTER STORED ; 5018 = ; 5019 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 116 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB ; 5020 ; 5021 1620: U 1620, 0540,3770,0305,4334,4016,7351,0010,0033,6000 ; 5022 ILDB: CALL IBP ;BUMP BYTE POINTER ; 5023 1624: ; 5024 LDB: READ [AR], ;LOOK AT POINTER ; 5025 LOAD BYTE EA, FE_P, 3T, ;GET STUFF OUT OF POINTER U 1624, 2745,3333,0003,4174,4217,0701,1010,0073,0500 ; 5026 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS U 1625, 0474,3443,0100,4174,4007,0700,0200,0014,0012 ; 5027 1625: VMA_[PC], FETCH ;START FETCH OF NEXT INST ; 5028 =0* READ [AR], ;LOOK AT POINTER ; 5029 FE_FE.AND.S#, S#/0770, ;MASK OUT JUNK IN FE ; 5030 BYTE DISP, ;DISPATCH ON BYTE SIZE U 0474, 0550,3333,0003,4174,4006,5701,1010,0051,0770 ; 5031 CALL [LDB1] ;GET BYTE ; 5032 AC_[AR], CLR FPD, ;STORE AC U 0476, 0127,3440,0303,0174,4467,0700,0400,0005,0000 ; 5033 J/NIDISP ;GO DO NEXT INST ; 5034 ; 5035 1630: U 1630, 0540,3770,0305,4334,4016,7351,0010,0033,6000 ; 5036 IDPB: CALL IBP ;BUMP BYTE POINTER ; 5037 1634: U 1634, 2740,3775,0004,0274,4007,0701,0000,0000,0000 ; 5038 DPB: [ARX]_AC*2 ;PUT 7 BIT BYTE IN 28-34 ; 5039 AD/A, A/ARX, SCAD/A, ;PUT THE BYTE INTO ; 5040 SCADA/BYTE5, 3T, ; INTO THE FE REGISTER U 2740, 2741,3443,0400,4174,4007,0701,1000,0077,0000 ; 5041 LOAD FE ; FE REGISTER U 2741, 0504,3771,0004,0276,6007,0700,0000,0000,0000 ; 5042 [ARX]_AC ;PUT BYTE IN ARX ; 5043 =100 READ [AR], ;LOOK AT BYTE POINTER ; 5044 LOAD BYTE EA, ;LOAD UP EFFECTIVE ADDRESS U 0504, 2745,3333,0003,4174,4217,0700,0010,0000,0500 ; 5045 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS ; 5046 READ [AR], ;LOOK AT POINTER AGAIN ; 5047 BYTE DISP, ;DISPATCH ON SIZE U 0505, 0560,3333,0003,4174,4006,5701,0010,0000,0000 ; 5048 CALL [DPB1] ;GO STORE BYTE U 0507, 1400,4443,0000,4174,4467,0700,0000,0005,0000 ; 5049 =111 CLR FPD, J/DONE ;ALL DONE ; 5050 = ; 5051 ; 5052 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 117 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE ; 5053 .TOC "BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE" ; 5054 ; 5055 =00 U 0540, 2743,3441,0503,4174,4007,0700,0200,0003,0002 ; 5056 IBPS: [AR]_[BR], START WRITE, J/IBPX ;NO OVERFLOW, BR HAS ANSWER U 0541, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 5057 RETURN [4] ;FIRST PART DONE SET U 0542, 2742,3770,0503,4334,4017,0700,0000,0032,6000 ; 5058 SET P TO 36-S, J/NXTWRD ;WORD OVERFLOW U 0543, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 5059 RETURN [4] ;FPD WAS SET IGNORE OVERFLOW ; 5060 ; AND RETURN ; 5061 U 2742, 2743,0111,0703,4170,4007,0700,0200,0003,0002 ; 5062 NXTWRD: [AR]_[AR]+1, HOLD LEFT, START WRITE ;BUMP Y AND RETURN U 2743, 0004,3333,0003,4175,5004,1701,0200,0000,0002 ; 5063 IBPX: MEM WRITE, MEM_[AR], RETURN [4] ; 5064 ; 5065 ; 5066 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 118 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR ; 5067 .TOC "BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR" ; 5068 ; 5069 ;ENTER WITH POINTER IN AR ; 5070 ;RETURN1 WITH (EA) IN VMA AND WORD IN BR ; 5071 BYTEAS: EA MODE DISP, ;HERE TO AVOID FPD U 2744, 0530,4443,0000,2174,4006,6700,0000,0000,0000 ; 5072 J/BYTEA0 ;GO COMPUTE EA ; 5073 BYTEA: SET FPD, ;SET FIRST-PART-DONE U 2745, 0530,4443,0000,2174,4466,6700,0000,0003,0000 ; 5074 EA MODE DISP ;DISPATCH ; 5075 =100* ; 5076 BYTEA0: VMA_[AR]+XR, ;INDEXING ; 5077 START READ, ;FETCH DATA WORD ; 5078 PXCT BYTE DATA, ;FOR PXCT U 0530, 2747,0553,0300,2274,4007,0700,0200,0004,0712 ; 5079 J/BYTFET ;GO WAIT ; 5080 VMA_[AR], ;PLAIN ; 5081 START READ, ;START CYCLE ; 5082 PXCT BYTE DATA, ;FOR PXCT U 0532, 2747,3443,0300,4174,4007,0700,0200,0004,0712 ; 5083 J/BYTFET ;GO WAIT ; 5084 VMA_[AR]+XR, ;BOTH ; 5085 START READ, ;START CYCLE ; 5086 PXCT BYTE PTR EA, ;FOR PXCT U 0534, 2746,0553,0300,2274,4007,0700,0200,0004,0512 ; 5087 J/BYTIND ;GO DO INDIRECT ; 5088 VMA_[AR], ;JUST @@ ; 5089 START READ, ;START READ U 0536, 2746,3443,0300,4174,4007,0700,0200,0004,0512 ; 5090 PXCT BYTE PTR EA ;FOR PXCT ; 5091 BYTIND: MEM READ, ;WAIT FOR @@ WORD ; 5092 [AR]_MEM, ;PUT IN AR ; 5093 HOLD LEFT, ;JUST IN RH (SAVE P & S) ; 5094 LOAD BYTE EA, ;LOOP BACK U 2746, 2744,3771,0003,4361,5217,0700,0200,0000,0502 ; 5095 J/BYTEAS ; .. ; 5096 ; 5097 BYTFET: MEM READ, ;WAIT FOR BYTE DATA ; 5098 [BR]_MEM.AND.MASK, ; WORD. UNSIGNED U 2747, 0001,4551,1205,4365,5004,1700,0200,0000,0002 ; 5099 RETURN [1] ;RETURN TO CALLER ; 5100 ; 5101 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 119 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 5102 .TOC "BYTE GROUP -- LOAD BYTE SUBROUTINE" ; 5103 ; 5104 ;CALL WITH: ; 5105 ; WORD IN BR ; 5106 ; POINTER IN AR ; 5107 ; P IN FE ; 5108 ; BYTE DISPATCH ; 5109 ;RETURN2 WITH BYTE IN AR ; 5110 LDB SCAD "SCAD/A,BYTE/BYTE5" ; 5111 7-BIT LDB "AD/D,DBUS/DBM,DBM/DP,DEST/A,A/BR,B/BR, LDB SCAD" ; 5112 ; 5113 =000 ; 5114 LDB1: GEN 17-FE, 3T, ;GO SEE IF ALL THE BITS ; 5115 SCAD DISP, ; ARE IN THE LEFT HALF U 0550, 0544,4443,0000,4174,4006,7701,0000,0031,0210 ; 5116 J/LDBSWP ;GO TO LDBSWP & SKIP IF LH ; 5117 ; 5118 ;HERE ARE THE 7-BIT BYTES U 0551, 2750,3770,0505,4334,4057,0700,0000,0073,0000 ; 5119 =001 7-BIT LDB, SCADA/BYTE1, J/LDB7 U 0552, 2750,3770,0505,4334,4057,0700,0000,0074,0000 ; 5120 =010 7-BIT LDB, SCADA/BYTE2, J/LDB7 U 0554, 2750,3770,0505,4334,4057,0700,0000,0075,0000 ; 5121 =100 7-BIT LDB, SCADA/BYTE3, J/LDB7 U 0555, 2750,3770,0505,4334,4057,0700,0000,0076,0000 ; 5122 =101 7-BIT LDB, SCADA/BYTE4, J/LDB7 U 0557, 2750,3770,0505,4334,4057,0700,0000,0077,0000 ; 5123 =111 7-BIT LDB, SCADA/BYTE5, J/LDB7 ; 5124 = ; 5125 ; 5126 ;FOR 7-BIT BYTES WE HAVE BYTE IN BR 28-35 AND JUNK IN REST OF BR. ; 5127 ; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT. ; 5128 LDB7: AD/ZERO,RSRC/DA, ;LH_ZERO, RH_D.AND.A ; 5129 DBUS/DBM,DBM/#,#/376, ;D INPUT IS 376 ; 5130 A/BR, ;A IS BR ; 5131 B/AR, ;PUT RESULT IN AR ; 5132 DEST/AD*.5, 3T, ;SHIFT RESULT 1 PLACE U 2750, 0002,4257,0503,4374,4004,1701,0000,0000,0376 ; 5133 RETURN [2] ;RETURN TO CALLER ; 5134 ; 5135 ;HERE FOR NORMAL BYTES ; 5136 =00 ; 5137 LDBSWP: FE_-FE, ;MAKE P NEGATIVE U 0544, 2752,4443,0000,4174,4007,0700,1000,0031,0000 ; 5138 J/LDBSH ;JOIN MAIN LDB LOOP U 0546, 2751,3770,0505,4344,4007,0700,0000,0000,0000 ; 5139 =10 [BR]_[BR] SWAP ;SHIFT 18 STEPS ; 5140 = ; 5141 [BR]_0, HOLD RIGHT, ;PUT ZERO IN LH U 2751, 2752,4221,0005,4174,0007,0700,1000,0031,0220 ; 5142 FE_-FE+S#, S#/220 ;UPDATE FE ; 5143 LDBSH: [BR]_[BR]*.5, ;SHIFT RIGHT ; 5144 FE_FE+10, ;UPDATE THE FE U 2752, 2753,3447,0505,4174,4007,0700,1020,0041,0010 ; 5145 MULTI SHIFT/1 ;FAST SHIFT U 2753, 2754,3333,0003,4174,4007,0700,1000,0031,7770 ; 5146 READ [AR], FE_-S-10 ;GET SIZE U 2754, 2755,4222,0000,4174,4007,0700,0000,0000,0000 ; 5147 Q_0 ;CLEAR Q ; 5148 GEN MSK [AR], ;PUT MASK IN Q (WIPEOUT AR) ; 5149 FE_FE+10, ;COUNT UP ALL STEPS U 2755, 2756,4224,0003,4174,4027,0700,1020,0041,0010 ; 5150 MULTI SHIFT/1 ;FAST SHIFT U 2756, 2757,4224,0003,4174,4027,0700,0000,0000,0000 ; 5151 GEN MSK [AR] ;ONE MORE BIT U 2757, 0002,4001,0503,4174,4004,1700,0000,0000,0000 ; 5152 [AR]_[BR].AND.Q, RETURN [2] ; 5153 ; 5154 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 120 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 5155 .NOBIN ; 5156 .TOC "BYTE GROUP -- DEPOSIT BYTE IN MEMORY" ; 5157 ; 5158 ;FLOW FOR DPB (NOT 7-BIT BYTE) ; 5159 ; ; 5160 ;FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT ; 5161 ; S PLACES GIVING: ; 5162 ; 5163 ; ARX Q ; 5164 ; +------------------!------------------+ ; 5165 ; !111111111111000000!000000000000111111! ; 5166 ; +------------------!------------------+ ; 5167 ; !<--->! ; 5168 ; S BITS ; 5169 ; ; 5170 ; 5171 ;NOW THE AC IS LOAD INTO THE ARX AND BOTH THE ARX AND Q ; 5172 ; ARE SHIFTED LEFT P BITS GIVING: ; 5173 ; 5174 ; +------------------!------------------+ ; 5175 ; !??????BBBBBB000000!000000111111000000! ; 5176 ; +------------------!------------------+ ; 5177 ; <----><----> <----><----> ; 5178 ; JUNK BYTE MASK P BITS ; 5179 ; ; 5180 ; 5181 ;AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND ; 5182 ; THE BR WITH .NOT. Q TO ZERO THE BITS FOR THE BYTE ; 5183 ; AND AND ARX WITH Q TO MASK OUT THE JUNK THIS GIVES: ; 5184 ; ; 5185 ; ARX ; 5186 ; +------------------+ ; 5187 ; !000000BBBBBB000000! ; 5188 ; +------------------! ; 5189 ; ; 5190 ; AR ; 5191 ; +------------------+ ; 5192 ; !DDDDDD000000DDDDDD! ; 5193 ; +------------------+ ; 5194 ; ; 5195 ;WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER. ; 5196 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 121 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- DEPOSIT BYTE IN MEMORY ; 5197 ; 5198 .BIN ; 5199 ; 5200 ;DEPOSIT BYTE SUBROUTINE ; 5201 ;CALL WITH: ; 5202 ; BYTE POINTER IN AR ; 5203 ; BYTE TO STORE IN ARX ; 5204 ; WORD TO MERGE WITH IN BR ; 5205 ; (E) OF BYTE POINTER IN VMA ; 5206 ; 7-BIT BYTE IN FE ; 5207 ; BYTE DISPATCH ; 5208 ;RETURN2 WITH BYTE IN MEMORY ; 5209 ; ; 5210 DPB SCAD "SCAD/A+B,SCADA/S#,SCADB/FE,S#/0" ; 5211 7-BIT DPB "AD/D,DEST/A,A/BR,DBUS/DBM,DBM/DP,B/AR, DPB SCAD" ; 5212 ; 5213 =000 U 0560, 2762,3333,0003,4174,4007,0700,1000,0031,7770 ; 5214 DPB1: READ [AR], FE_-S-10, J/DPBSLO ;NOT SPECIAL U 0561, 2760,3770,0503,4334,4017,0700,0000,0041,0000 ; 5215 =001 7-BIT DPB, BYTE/BYTE1, J/DPB7 U 0562, 2760,3770,0503,4334,4027,0700,0000,0041,0000 ; 5216 =010 7-BIT DPB, BYTE/BYTE2, J/DPB7 U 0564, 2760,3770,0503,4334,4037,0700,0000,0041,0000 ; 5217 =100 7-BIT DPB, BYTE/BYTE3, J/DPB7 U 0565, 2760,3770,0503,4334,4047,0700,0000,0041,0000 ; 5218 =101 7-BIT DPB, BYTE/BYTE4, J/DPB7 U 0567, 2760,3770,0503,4334,4057,0700,0000,0041,0000 ; 5219 =111 7-BIT DPB, BYTE/BYTE5, J/DPB7 ; 5220 = U 2760, 2761,3447,1200,4174,4007,0700,0200,0003,0002 ; 5221 DPB7: [MAG]_[MASK]*.5, START WRITE U 2761, 0002,3333,0003,4175,5004,1701,0200,0000,0002 ; 5222 MEM WRITE, MEM_[AR], RETURN [2] ; 5223 ; 5224 U 2762, 2763,4222,0000,4174,4007,0700,0000,0000,0000 ; 5225 DPBSLO: Q_0 ;CLEAR Q ; 5226 GEN MSK [MAG], ;GENERATE MASK IN Q (ZAP MAG) ; 5227 FE_FE+10, ;COUNT STEPS U 2763, 2764,4224,0000,4174,4027,0700,1020,0041,0010 ; 5228 MULTI SHIFT/1 ;FAST SHIFT U 2764, 2765,4224,0000,4174,4027,0700,0000,0000,0000 ; 5229 GEN MSK [MAG] ;ONE MORE BITS U 2765, 2766,3333,0003,4174,4007,0701,1000,0073,0000 ; 5230 READ [AR], 3T, FE_P ;AMOUNT TO SHIFT U 2766, 2767,4443,0000,4174,4007,0700,1000,0051,0770 ; 5231 FE_FE.AND.S#, S#/0770 ;MASK OUT JUNK ; 5232 Q_Q.AND.[MASK], ;CLEAR BITS 36 AND 37 U 2767, 2770,4002,1200,4174,4007,0700,1000,0031,0000 ; 5233 FE_-FE ;MINUS NUMBER OF STEPS ; 5234 [ARX]_[ARX]*2 LONG, ;SHIFT BYTE AND MASK ; 5235 FE_FE+10, ;COUNT OUT STEPS U 2770, 2771,3444,0404,4174,4007,0700,1020,0041,0010 ; 5236 MULTI SHIFT/1 ;FAST SHIFT ; 5237 ;AT THIS POINT WE HAVE DONE ALL THE SHIFTING WE NEED. THE BYTE IS ; 5238 ; IN ARX AND THE MASK IS IN Q. U 2771, 2772,7221,0003,4174,4007,0700,0000,0000,0000 ; 5239 [AR]_.NOT.Q U 2772, 2773,4111,0503,4174,4007,0700,0000,0000,0000 ; 5240 [AR]_[AR].AND.[BR] U 2773, 2774,4001,0404,4174,4007,0700,0000,0000,0000 ; 5241 [ARX]_[ARX].AND.Q ; 5242 [AR]_[AR].OR.[ARX], U 2774, 2760,3111,0403,4174,4007,0700,0000,0000,0000 ; 5243 J/DPB7 ; 5244 ; 5245 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 122 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- ADJUST BYTE POINTER ; 5246 .TOC "BYTE GROUP -- ADJUST BYTE POINTER" ; 5247 .IF/FULL ; 5248 ;FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE ; 5249 ; FOLLOWING FORMULA: ; 5250 ; ; 5251 ; ( P ) ( 36-P ) ; 5252 ; BYTES PER WORD = INT( --- ) + INT( ---- ) ; 5253 ; ( S ) ( S ) ; 5254 ; ; 5255 ;THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE: ; 5256 ; !=====================================! ; 5257 ; ! 6 !////////////! 12 ! 6 ! ; 5258 ; !=====================================! ; 5259 ; P=18 AND S=12 ; 5260 ; ; 5261 ;WE GET 3 BYTES/WORD IF THE BYTES FALL IN THE NATURAL PLACE: ; 5262 ; !=====================================! ; 5263 ; ! 12 !\\\\\\\\\\\\! 12 ! ; 5264 ; !=====================================! ; 5265 ; P=12 AND S=12 ; 5266 ; 5267 ;WE COME HERE WITH THE BYTE POINTER IN AR, AND ADJPTR ; 5268 ADJBP: [ARX]_[AR] SWAP, ;MOVE SIZE OVER U 2775, 0502,3770,0304,4344,4007,0700,2000,0071,0011 ; 5269 SC_9. ;READY TO SHIFT ; 5270 =0 ; 5271 ADJBP0: [ARX]_[ARX]*.5, ;SHIFT P OVER ; 5272 STEP SC, ; .. U 0502, 0502,3447,0404,4174,4007,0630,2000,0060,0000 ; 5273 J/ADJBP0 ; .. ; 5274 [ARX]_([ARX].AND.#)*.5, ;SHIFT AND MASK ; 5275 3T, ;WAIT U 0503, 2776,4557,0404,4374,4007,0701,0000,0000,0176 ; 5276 #/176 ;6 BIT MASK ; 5277 [ARX]_#, ;CLEAR LH ; 5278 #/0, ; .. U 2776, 2777,3771,0004,4374,0007,0700,0000,0000,0000 ; 5279 HOLD RIGHT ; .. U 2777, 3000,3333,0004,7174,4007,0700,0400,0000,0221 ; 5280 WORK[ADJP]_[ARX] ;SAVE P ; 5281 [BR]_([AR].AND.#)*.5, ;START ON S ; 5282 3T, ;EXTRACT S U 3000, 3001,4557,0305,4374,4007,0701,0000,0000,7700 ; 5283 #/007700 ; .. ; 5284 [BR]_[BR] SWAP, ;SHIFT 18 PLACES U 3001, 3002,3770,0505,4344,4007,0700,2000,0071,0003 ; 5285 SC_3 ; .. ; 5286 [BR]_0, ;CLEAR LH U 3002, 0512,4221,0005,4174,0007,0700,0000,0000,0000 ; 5287 HOLD RIGHT ; .. ; 5288 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 123 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- ADJUST BYTE POINTER ; 5289 ; 5290 =0 ; 5291 ADJBP1: [BR]_[BR]*.5, ;SHIFT S OVER ; 5292 STEP SC, ; .. U 0512, 0512,3447,0505,4174,4007,0630,2000,0060,0000 ; 5293 J/ADJBP1 ; .. ; 5294 WORK[ADJS]_[BR], ;SALT S AWAY U 0513, 0522,3333,0005,7174,4007,0621,0400,0000,0222 ; 5295 SKIP AD.EQ.0 ;SEE IF ZERO ; 5296 =0 Q_[ARX], ;DIVIDE P BY S ; 5297 SC_34., ;STEP COUNT U 0522, 0524,3442,0400,4174,4007,0700,2000,0071,0042 ; 5298 J/ADJBP2 ;SKIP NEXT WORD U 0523, 1404,3771,0003,7274,4007,0701,0000,0000,0223 ; 5299 [AR]_WORK[ADJPTR], J/MOVE ;S=0 -- SAME AS MOVE ; 5300 =0* ; 5301 ADJBP2: [AR]_#, ;FILL AR WITH SIGN BITS ; 5302 #/0, ;POSITIVE U 0524, 0510,3771,0003,4374,4007,0700,0010,0000,0000 ; 5303 CALL [DIVSUB] ;GO DIVIDE U 0526, 3003,3223,0000,7174,4007,0700,0400,0000,0224 ; 5304 WORK[ADJQ1]_Q ;SAVE QUOTIENT ; 5305 Q_#, ;COMPUTE (36-P)/S ; 5306 #/36., ; .. U 3003, 3004,3772,0000,4370,4007,0700,0000,0000,0044 ; 5307 HOLD LEFT ;SMALL ANSWER U 3004, 3005,1662,0000,7274,4007,0701,4000,0000,0221 ; 5308 Q_Q-WORK[ADJP] ;SUBTRACT P U 3005, 3006,3771,0005,7274,4007,0701,0000,0000,0222 ; 5309 [BR]_WORK[ADJS] ;DIVIDE BY S U 3006, 0545,4443,0000,4174,4007,0700,2000,0071,0042 ; 5310 SC_34. ;STEP COUNT ; 5311 =0* [AR]_#, ;MORE SIGN BITS ; 5312 #/0, ; .. U 0545, 0510,3771,0003,4374,4007,0700,0010,0000,0000 ; 5313 CALL [DIVSUB] ;GO DIVIDE U 0547, 3007,3333,0003,7174,4007,0700,0400,0000,0225 ; 5314 WORK[ADJR2]_[AR] ;SAVE REMAINDER ; 5315 [AR]_#, ;ASSUME NEGATIVE ADJ U 3007, 3010,3771,0003,4374,4007,0700,0000,0077,7777 ; 5316 #/777777 ;EXTEND SIGN ; 5317 AD/D+Q, ;BR_(P/S)+((36-P)/S) ; 5318 DEST/AD, ; .. ; 5319 B/BR, ; .. ; 5320 RAMADR/#, ; .. ; 5321 DBUS/RAM, ; .. ; 5322 WORK/ADJQ1, ; .. ; 5323 4T, ; .. U 3010, 0570,0661,0005,7274,4007,0622,0000,0000,0224 ; 5324 SKIP AD.EQ.0 ;SEE IF ZERO ; 5325 =0 Q_Q+AC, ;GET ADJUSTMENT ; 5326 SC_34., ;STEP COUNT ; 5327 SKIP DP0, ;GO DO DIVIDE ; 5328 4T, ;WAIT FOR DP U 0570, 0574,0662,0000,0274,4007,0522,2000,0071,0042 ; 5329 J/ADJBP3 ;BELOW U 0571, 0127,4443,0000,4174,4467,0700,0000,0051,1000 ; 5330 NO DIVIDE ;0 BYTES/WORD ; 5331 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 124 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- ADJUST BYTE POINTER ; 5332 ; 5333 ;WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE ; 5334 ; REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE ; 5335 ; QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW ; 5336 ; P FIELD IS COMPUTED BY: ; 5337 ; ; 5338 ; ( ( 36-P )) ; 5339 ; NEW P = 36-((R * S) + RMDR( ---- )) ; 5340 ; ( ( S )) ; 5341 ; ; 5342 ;WE NOW HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. DIVIDE TO GET ; 5343 ; WORDS TO ADJUST BY. ; 5344 =00 ; 5345 ADJBP3: [AR]_#, ;POSITIVE ADJUSTMENT U 0574, 0575,3771,0003,4374,4007,0700,0000,0000,0000 ; 5346 #/0. ; 5347 WORK[ADJBPW]_[BR], ;SAVE BYTES/WORD & COMPUTE U 0575, 0510,3333,0005,7174,4007,0700,0410,0000,0226 ; 5348 CALL [DIVSUB] ; ADJ/(BYTES/WORD) ; 5349 ;WE NOW WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE ; 5350 =11 Q_#, ;ONLY RIGHT HALF ; 5351 #/0, ; .. U 0577, 3011,3772,0000,4374,0007,0700,0000,0000,0000 ; 5352 HOLD RIGHT ; .. ; 5353 = ; 5354 READ [AR], ;ALREADY + U 3011, 0572,3333,0003,4174,4007,0421,0000,0000,0000 ; 5355 SKIP AD.LE.0 ; .. ; 5356 =0 ; 5357 ADJBP4: AD/D+Q, ;ADD Q TO POINTER AND STORE ; 5358 DEST/AD, ; .. ; 5359 B/BR, ;RESULT TO BR ; 5360 RAMADR/#, ;PTR IS IN RAM ; 5361 DBUS/RAM, ; .. ; 5362 WORK/ADJPTR, ; .. ; 5363 INH CRY18, ;JUST RH ; 5364 3T, ;WAIT FOR RAM U 0572, 3013,0661,0005,7274,4407,0701,0000,0000,0223 ; 5365 J/ADJBP5 ;CONTINUE BELOW ; 5366 Q_Q-1, ;NO--MAKE Q SMALLER U 0573, 3012,1002,0700,4170,4007,0700,4000,0000,0000 ; 5367 HOLD LEFT ; .. ; 5368 [AR]_[AR]+WORK[ADJBPW], ;MAKE REM BIGGER U 3012, 0572,0551,0303,7274,4007,0701,0000,0000,0226 ; 5369 J/ADJBP4 ;NOW HAVE + REMAINDER ; 5370 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 125 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- ADJUST BYTE POINTER ; 5371 ; 5372 ADJBP5: [BRX]_[AR], ;COMPUTE R*S U 3013, 3014,3441,0306,4174,4007,0700,2000,0071,0043 ; 5373 SC_35. ;STEP COUNT U 3014, 0602,3772,0000,7274,4007,0701,0000,0000,0222 ; 5374 Q_WORK[ADJS] ;GET S ; 5375 =01* [BRX]_[BRX]*.5 LONG, ;SHIFT OVER U 0602, 2646,3446,0606,4174,4007,0700,0010,0000,0000 ; 5376 CALL [MULSUB] ; .. ; 5377 AD/D+Q, ;AR_(R*S)+RMDR(36-P)/S ; 5378 DEST/AD, ; .. ; 5379 B/AR, ; .. ; 5380 RAMADR/#, ; .. ; 5381 3T, ; .. ; 5382 DBUS/RAM, ; .. U 0606, 3015,0661,0003,7274,4007,0701,0000,0000,0225 ; 5383 WORK/ADJR2 ; .. ; 5384 [AR]_(#-[AR])*2, ;COMPUTE 36-AR ; 5385 3T, ;AND START LEFT U 3015, 3016,2555,0303,4374,4007,0701,4000,0000,0044 ; 5386 #/36. ; .. ; 5387 [AR]_[AR] SWAP, ;PUT THE POSITION BACK U 3016, 3017,3770,0303,4344,4007,0700,2000,0071,0011 ; 5388 SC_9. ; .. ; 5389 [AR]_#, ;CLEAR JUNK FROM RH ; 5390 #/0, ; .. U 3017, 0600,3771,0003,4370,4007,0700,0000,0000,0000 ; 5391 HOLD LEFT ; .. ; 5392 =0 ; 5393 ADJBP6: [AR]_[AR]*2, ;LOOP OVER ALL BITS ; 5394 STEP SC, ; .. U 0600, 0600,3445,0303,4174,4007,0630,2000,0060,0000 ; 5395 J/ADJBP6 ; .. ; 5396 [BR]_[BR].AND.#, ; .. ; 5397 #/007777, ; .. U 0601, 3020,4551,0505,4374,0007,0700,0000,0000,7777 ; 5398 HOLD RIGHT ; .. ; 5399 AC_[AR].OR.[BR], ;ALL DONE U 3020, 1400,3113,0305,0174,4007,0700,0400,0000,0000 ; 5400 J/DONE ; 5401 .IFNOT/FULL ; 5402 ; 5403 ADJBP: UUO ;NO ADJBP IN SMALL ; 5404 ; MICROCODE ; 5405 .ENDIF/FULL ; 5406 ; 5407 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 126 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BYTE GROUP -- ADJUST BYTE POINTER ; 5408 .NOBIN ; 5409 .TOC "BLT" ; 5410 ; 5411 ;THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF ; 5412 ; THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE LAST WORD ; 5413 ; OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION ; 5414 ; BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING ; 5415 ; THE SOURCE BLOCK (IN THE LH), AND THE FIRST WORD FOLLOWING THE DEST- ; 5416 ; INATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE DESTINATION ; 5417 ; BLOCK, IT WILL BE A COPY OF THE LAST WORD OF THE SOURCE BLOCK. ; 5418 ; 5419 ;IN ADDITION, A SPECIAL-CASE CHECK IS MADE FOR THE CASE IN WHICH EACH ; 5420 ; WORD STORED IS USED AS THE SOURCE OF THE NEXT TRANSFER. IN THIS CASE, ; 5421 ; ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH ; 5422 ; TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP. ; 5423 .BIN ; 5424 ; 5425 ;HERE TO SETUP FOR A BLT/UBABLT, AC IN BRX, E.A. IN AR ; 5426 ;RETURN 2 WITH ; 5427 ; AR FINAL ADDR ; 5428 ; ARX SRC ADDR ; 5429 ; BR FINAL CONTENTS OF AC ; 5430 ; BRX DST ADDR ; 5431 ; READ OF FIRST SRC WORD IN PROGRESS, STATE=BLT U 3021, 0604,3770,0604,4344,4007,0700,0000,0000,0000 ; 5432 SETBLT: [ARX]_[BRX] SWAP ;COPY AC TO ARX (DST,,SRC) ; 5433 =0 VMA_[ARX], ;ADDRESS OF FIRST WORD ; 5434 START READ, ; 5435 PXCT BLT SRC, U 0604, 3550,3443,0400,4174,4007,0700,0210,0004,0712 ; 5436 CALL [CLARXL] ;CLEAR THE LEFT HALF OF ; 5437 [BRX]_0, ; BOTH SRC AND DEST U 0605, 3022,4221,0006,4174,0007,0700,0000,0000,0000 ; 5438 HOLD RIGHT U 3022, 3023,2112,0306,4174,4007,0700,4000,0000,0000 ; 5439 Q_[AR]-[BRX] ;NUMBER OF WORDS TO MOVE U 3023, 3024,0001,0705,4174,4007,0700,0000,0000,0000 ; 5440 [BR]_Q+1 ;LENGTH +1 ; 5441 [BR]_[BR] SWAP, ;COPY TO BOTH HALFS U 3024, 3025,3770,0505,4344,0007,0700,0000,0000,0000 ; 5442 HOLD RIGHT ; 5443 [BR]_AC+[BR], ;FINAL AC U 3025, 3026,0551,0505,0274,4407,0701,0000,0000,0000 ; 5444 INH CRY18 ;KEEP AC CORRECT IF DEST IS 777777 U 3026, 0002,3771,0013,4370,4004,1700,0000,0000,0001 ; 5445 STATE_[BLT],RETURN [2] ;SET PAGE FAIL FLAGS ; 5446 ; 5447 .DCODE D 0251, 0000,1640,2100 ; 5448 251: I, J/BLT ; 5449 .UCODE ; 5450 ; 5451 1640: U 1640, 3021,3771,0006,0276,6007,0700,0010,0000,0000 ; 5452 BLT: [BRX]_AC,CALL [SETBLT] ;FETCH THE AC, SETUP BR, BRX, ARX, STATE ; 5453 1642: AC_[BR], ;STORE BACK IN AC U 1642, 3546,3440,0505,0174,4007,0700,0410,0000,0000 ; 5454 CALL [LOADQ] ;LOAD FIRST WORD INTO Q ; 5455 1643: [BR]_[ARX]+1000001, ;SRC+1 ; 5456 3T, U 1643, 3027,0551,0405,4370,4007,0701,0000,0000,0001 ; 5457 HOLD LEFT ; 5458 [BR]-[BRX], 3T, ; Check for core clearing case ; 5459 SKIP ADR.EQ.0, U 3027, 0610,2113,0506,4174,4007,0331,4000,0000,0000 ; 5460 J/BLTLP1 ; 5461 ; 5462 =0 ; This instruction is part of the loop for the normal case ; 5463 BLTLP1: VMA_[BRX], ;NOT CLEARING CORE, GET DEST ADR ; 5464 START WRITE, ;START TO STORE NEXT WORD ; 5465 PXCT BLT DEST, ;WHERE TO STORE U 0610, 0613,3443,0600,4174,4007,0700,0200,0003,0312 ; 5466 J/BLTGO ; 5467 U 0611, 3030,3771,0005,4354,4007,0700,0000,0000,0000 ; 5468 [BR]_VMA ; This is the clear core case. ; 5469 ; Fetch back source VMA with flags. ; 5470 VMA_[BRX], ; Start first write ; 5471 START WRITE, U 3030, 3031,3443,0600,4174,4007,0700,0200,0003,0312 ; 5472 PXCT BLT DEST ; 5473 [BR].XOR.VMA, ; Compare destination VMA flags with source ; 5474 SKIP DP0, 3T, ; flags to see if user mode bits match. U 3031, 0612,6553,0500,4354,4007,0521,0000,0000,0000 ; 5475 J/BLTCLR ; Skips if they mismatch into normal case. ; 5476 ; 5477 =0 ; 5478 BLTCLR: MEM WRITE, ; This instruction is part of the loop for ; 5479 MEM_Q, ; The clear core case. ; 5480 SKIP/-1 MS, ; 1 MS timer up? U 0612, 0616,3223,0000,4174,4007,0671,0200,0000,0002 ; 5481 J/BLTCL1 ; 5482 BLTGO: MEM WRITE, ;STORE U 0613, 3032,3223,0000,4174,4007,0701,0200,0000,0002 ; 5483 MEM_Q ; 5484 BLTGOT: [BRX]-[AR], ;BELOW E? U 3032, 0614,2113,0603,4174,4007,0521,4000,0000,0000 ; 5485 SKIP DP0, 3T ; 5486 =0 END BLT, U 0614, 1400,4221,0013,4170,4007,0700,0000,0000,0000 ; 5487 J/DONE U 0615, 3033,0111,0706,4174,4007,0700,0000,0000,0000 ; 5488 [BRX]_[BRX]+1 ; Update destination address ; 5489 VMA_[ARX]+1, ; and source address at the same time! ; 5490 LOAD VMA, ; 5491 PXCT BLT SRC, U 3033, 3034,0111,0704,4170,4007,0700,0200,0004,0712 ; 5492 START READ ; 5493 MEM READ, ; 5494 Q_MEM, U 3034, 0610,3772,0000,4365,5007,0700,0200,0000,0002 ; 5495 J/BLTLP1 ; 5496 ; 5497 =0 U 0616, 3032,4443,0000,4174,4007,0700,0000,0000,0000 ; 5498 BLTCL1: J/BLTGOT ;GO TAKE INTERRUPT ; 5499 [BRX]-[AR], ;BELOW E? ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 127 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BLT U 0617, 0620,2113,0603,4174,4007,0521,4000,0000,0000 ; 5500 SKIP DP0, 3T ; 5501 =0 END BLT, ;NO--STOP BLT U 0620, 1400,4221,0013,4170,4007,0700,0000,0000,0000 ; 5502 J/DONE ; 5503 [ARX]_[ARX]+1, ;FOR PAGE FAIL LOGIC U 0621, 0622,0111,0704,4174,4007,0370,0000,0000,0000 ; 5504 SKIP IRPT ; 5505 =0 VMA_[BRX]+1, ; 5506 LOAD VMA, ; 5507 PXCT BLT DEST, ; 5508 START WRITE, ;YES--KEEP STORING U 0622, 0612,0111,0706,4170,4007,0700,0200,0003,0312 ; 5509 J/BLTCLR ; 5510 VMA_[BRX]+1, ;INTERRUPT ; 5511 LOAD VMA, ; 5512 PXCT BLT DEST, ; 5513 START WRITE, U 0623, 0613,0111,0706,4170,4007,0700,0200,0003,0312 ; 5514 J/BLTGO ; 5515 ; 5516 ; Cleanup dispatch for BLT does: ; 5517 ; [AR]_WORK[SV.ARX], J/BLT-CLEANUP ; 5518 ; (Remember, you can't touch BRX here!) ; 5519 BLT-CLEANUP: U 3035, 3036,3770,0303,4344,4007,0700,0000,0000,0000 ; 5520 [AR]_[AR] SWAP ;PUT SRC IN LEFT HALF ; 5521 [AR]_WORK[SV.BRX], U 3036, 3037,3771,0003,7270,4007,0701,0000,0000,0214 ; 5522 HOLD LEFT ; 5523 AC_[AR], ;STORE THE AC AND RETURN U 3037, 2520,3440,0303,0174,4007,0700,0400,0000,0000 ; 5524 J/CLEANED ; 5525 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 128 ; DSK: KSHACK; SIMPLE 41 22:17:15 16-JAN-87 BLT ; 5526 ; 5527 .TOC "UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT" ; 5528 ; 5529 ;THESE INSTRUCTION MOVE WORDS FROM BYTE TO UNIBUS AND UNIBUS TO BYTE ; 5530 ;FORMAT. FORMATS ARE: ; 5531 ; ; 5532 ;BYTE FORMAT: ; 5533 ; ; 5534 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 5535 ; ;; BYTE 0 ;; BYTE 1 ;; BYTE 2 ;; BYTE 3 ;; 4 BITS ;; ; 5536 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 5537 ; ; 5538 ;UNIBUS FORMAT: ; 5539 ; ; 5540 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 5541 ; ;; 2 BITS ;; BYTE 1 ;; BYTE 0 ;; 2 BITS ;; BYTE 3 ;; BYTE 2 ;; ; 5542 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 5543 ; ; 5544 ; 5545 ;---This DEC code seems to have been written by someone who didn't understand macros ; 5546 ; 5547 =0* ; 5548 BLTX: [BRX]_AC, ;FETCH THE AC (DEST IN RH) U 0624, 3021,3771,0006,0276,6007,0700,0010,0000,0000 ; 5549 CALL [SETBLT] ;DO THE REST OF THE SETUP U 0626, 3040,3440,0505,0174,4007,0700,0400,0000,0000 ; 5550 AC_[BR] ;STORE THE FINAL AC IN AC ; 5551 BLTXLP: MEM READ, ;READ THE SOURCE WORD ; 5552 Q_MEM, ;FROM MEMORY U 3040, 0636,3772,0000,4365,5003,7700,0200,0000,0002 ; 5553 B DISP ;SKIP IF BLTUB (OPCODE 717) ; 5554 =110 Q_Q*.5, ;BLTBU (OPCODE 716) - SHIFT RIGHT 1 BIT U 0636, 3046,3446,1200,4174,4007,0700,0000,0000,0000 ; 5555 J/BLTBU1 ;CONTINUE INSTRUCTION ; 5556 AD/D.AND.Q,DBUS/DBM, ;BLTUB - MASK LOW BYTES, SHIFT LEFT U 0637, 0630,4665,0017,4374,4007,0700,0000,0000,0377 ; 5557 DBM/#,#/377,DEST/AD*2,B/T1 ;AND STORE RESULT ; 5558 =00 FE_S#,S#/1767, ;-9 MORE BITS TO PUT LOW BYTE OF LH U 0630, 3053,4443,0000,4174,4007,0700,1010,0071,1767 ; 5559 CALL [T1LSH] ; IN TOP OF LH SHIFT LEFT ; 5560 =01 FE_S#,S#/1772, ;-6 BITS TO PUT HI BYTE TO RIGHT U 0631, 3054,4443,0000,4174,4007,0700,1010,0071,1772 ; 5561 CALL [Q_RSH] ; OF LOW BYTE. U 0633, 3041,4662,0000,4374,4007,0700,0000,0000,1774 ; 5562 =11 Q_Q.AND.#,#/001774 ;KEEP ONLY HI BYTES ; 5563 = ; 5564 AD/A.OR.Q,A/T1,DEST/AD, ;MERGE PAIRS OF BYTES. NOW SWAPPED, U 3041, 3042,3001,1717,4174,4007,0700,0000,0000,0000 ; 5565 B/T1 ;BUT STILL IN HALF-WORDS ; 5566 AD/57,RSRC/0A,A/T1, ;CLEAR LH OF Q WHILE LOADING U 3042, 3043,5742,1700,4174,4007,0700,0000,0000,0000 ; 5567 DEST/Q_AD ;RH WITH LOW WORD U 3043, 3044,3444,0012,4174,4007,0700,0000,0000,0000 ; 5568 Q_Q*2 ;SHIFT LOW WORD ACROSS 1/2 WORD U 3044, 3045,3444,0012,4174,4007,0700,0000,0000,0000 ; 5569 Q_Q*2 ;AND INTO FINAL POSITION ; 5570 [T1]_[T1].AND.# CLR RH, ;CLEAR ALL BUT HIGH 16-BIT WORD U 3045, 3052,4521,1717,4374,4007,0700,0000,0077,7774 ; 5571 #/777774,J/BLTXV ;FROM T1 AND CONTINUE U 3046, 3047,3446,1200,4174,4007,0700,0000,0000,0000 ; 5572 BLTBU1: Q_Q*.5 ;NOW IN 1/2 WORDS U 3047, 3050,3446,1200,4170,4007,0700,0000,0000,0000 ; 5573 Q_Q*.5,HOLD LEFT ;INSERT A NULL BIT IN RH U 3050, 3051,3446,1200,4170,4007,0700,0000,0000,0000 ; 5574 Q_Q*.5,HOLD LEFT ;ONE MORE - NOW IN HALF WORDS ; 5575 AD/D.AND.Q,DBUS/DBM, ;BUT NOT SWAPPED. COPY RIGHT BYTE U 3051, 0640,4665,0017,4374,4007,0700,0000,0000,0377 ; 5576 DBM/#,#/377,DEST/AD*2,B/T1 ;TO T1 AND SHIFT LEFT 1 POSITION ; 5577 =00 FE_S#,S#/1771, ;-7 BITS MORE U 0640, 3053,4443,0000,4174,4007,0700,1010,0071,1771 ; 5578 CALL [T1LSH] ;TO FINAL RESTING PLACE ; 5579 =01 FE_S#,S#/1770, ;-8. LEFT BYTES MOVE RIGHT U 0641, 3054,4443,0000,4174,4007,0700,1010,0071,1770 ; 5580 CALL [Q_RSH] ;TO FINAL RESTING PLACE U 0643, 3052,4662,0000,4374,4007,0700,0000,0000,0377 ; 5581 =11 Q_Q.AND.#,#/377 ;WANT ONLY THE NEW BYTES ; 5582 = ; 5583 BLTXV: Q_[T1].OR.Q, ;MERGE RESULTS U 3052, 3055,3002,1700,4174,4007,0700,0000,0000,0000 ; 5584 J/BLTXW ;AND STUFF IN MEMORY U 3053, 0001,3445,1717,4174,4004,1700,1020,0041,0001 ; 5585 T1LSH: [T1]_[T1]*2,SHIFT,RETURN [1] U 3054, 0002,3446,1200,4174,4004,1700,1020,0041,0001 ; 5586 Q_RSH: Q_Q*.5,SHIFT,RETURN [2] ; 5587 BLTXW: VMA_[BRX],START WRITE, ;DEST TO VMA U 3055, 3056,3443,0600,4174,4007,0700,0200,0003,0312 ; 5588 PXCT BLT DEST U 3056, 3057,3223,0000,4174,4007,0701,0200,0000,0002 ; 5589 MEM WRITE,MEM_Q ;STORE U 3057, 0634,2113,0603,4174,4007,0521,4000,0000,0000 ; 5590 [BRX]-[AR],3T,SKIP DP0 ;DONE? U 0634, 1400,4221,0013,4170,4007,0700,0000,0000,0000 ; 5591 =0 END BLT,J/DONE ;YES U 0635, 3060,0111,0706,4174,4007,0700,0000,0000,0000 ; 5592 [BRX]_[BRX]+1 ;NO, INC DEST ; 5593 VMA_[ARX]+1,LOAD VMA, ; AND SOURCE (LOADING VMA) ; 5594 PXCT BLT SRC,START READ, ;START UP MEMORY U 3060, 3040,0111,0704,4170,4007,0700,0200,0004,0712 ; 5595 J/BLTXLP ;AND CONTINUE WITH NEXT WORD ; 5596 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 129 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT ; 5597 ;;;-*-Fundamental-*- ; 5598 ; 5599 .TOC "FLOATING POINT -- FAD, FSB" ; 5600 ; 5601 .DCODE D 0140, 0701,1577,1100 ; 5602 140: FL-R, FL-AC, J/FAD D 0142, 0702,1577,1700 ; 5603 142: FL-RW, FL-MEM, J/FAD D 0143, 0703,1577,1700 ; 5604 FL-RW, FL-BOTH, J/FAD D 0144, 0711,1577,1100 ; 5605 FL-R, FL-AC, ROUND, J/FAD D 0145, 0611,1577,0100 ; 5606 FL-I, FL-AC, ROUND, J/FAD D 0146, 0712,1577,1700 ; 5607 FL-RW, FL-MEM, ROUND, J/FAD D 0147, 0713,1577,1700 ; 5608 FL-RW, FL-BOTH, ROUND, J/FAD ; 5609 D 0150, 0701,1576,1100 ; 5610 150: FL-R, FL-AC, J/FSB D 0152, 0702,1576,1700 ; 5611 152: FL-RW, FL-MEM, J/FSB D 0153, 0703,1576,1700 ; 5612 FL-RW, FL-BOTH, J/FSB D 0154, 0711,1576,1100 ; 5613 FL-R, FL-AC, ROUND, J/FSB D 0155, 0611,1576,0100 ; 5614 FL-I, FL-AC, ROUND, J/FSB D 0156, 0712,1576,1700 ; 5615 FL-RW, FL-MEM, ROUND, J/FSB D 0157, 0713,1576,1700 ; 5616 FL-RW, FL-BOTH, ROUND, J/FSB ; 5617 .UCODE ; 5618 ; 5619 ;BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN AR ; 5620 ; SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE. ; 5621 1576: U 1576, 1577,2441,0303,4174,4007,0700,4000,0000,0000 ; 5622 FSB: [AR]_-[AR] ;MAKE MEMOP NEGATIVE ; 5623 ; 5624 1577: U 1577, 0625,3771,0005,0276,6006,7701,2000,0020,2000 ; 5625 FAD: [BR]_AC, SC_SC-EXP-1, 3T, SCAD DISP ; 5626 =0* U 0625, 0646,3333,0005,4174,4007,0520,0000,0000,0000 ; 5627 FAS1: READ [BR], SKIP DP0, J/FAS2 ;BR .LE. AR U 0627, 3061,3441,0304,4174,4007,0700,0000,0000,0000 ; 5628 [ARX]_[AR] ;SWAP AR AND BR U 3061, 3062,3441,0503,4174,4007,0700,2000,0041,2000 ; 5629 [AR]_[BR], SC_EXP U 3062, 3063,3441,0405,4174,4007,0700,2000,0020,0000 ; 5630 [BR]_[ARX], SC_SC-FE-1 ;NUMBER OF SHIFT STEPS U 3063, 0644,3333,0003,4174,4007,0520,1000,0041,2000 ; 5631 READ [AR], FE_EXP, 2T, SKIP DP0 U 0644, 3064,4551,0303,4374,0007,0700,0000,0000,0777 ; 5632 =0 [AR]_+SIGN, J/FAS3 U 0645, 3064,3551,0303,4374,0007,0700,0000,0077,7000 ; 5633 [AR]_-SIGN, J/FAS3 ; 5634 ; 5635 =0 ;SIGN SMEAR BR AND UNNORMALIZE U 0646, 3064,4551,0505,4374,0007,0700,0000,0000,0777 ; 5636 FAS2: [BR]_+SIGN, J/FAS3 U 0647, 3064,3551,0505,4374,0007,0700,0000,0077,7000 ; 5637 [BR]_-SIGN, J/FAS3 ; 5638 U 3064, 0650,4222,0000,4174,4007,0630,2000,0060,0000 ; 5639 FAS3: Q_0, STEP SC ; 5640 =0 U 0650, 0650,3446,0505,4174,4047,0630,2000,0060,0000 ; 5641 FAS4: [BR]_[BR]*.5 LONG, STEP SC, ASHC, J/FAS4 U 0651, 0740,0111,0503,4174,4003,4701,0000,0000,0000 ; 5642 [AR]_[AR]+[BR], NORM DISP, J/SNORM ; 5643 ; 5644 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 130 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLAOTING POINT -- FMP ; 5645 .TOC "FLAOTING POINT -- FMP" ; 5646 ; 5647 .DCODE D 0160, 0701,1570,1100 ; 5648 160: FL-R, FL-AC, J/FMP D 0162, 0702,1570,1700 ; 5649 162: FL-RW, FL-MEM, J/FMP D 0163, 0703,1570,1700 ; 5650 FL-RW, FL-BOTH, J/FMP ; 5651 D 0164, 0711,1570,1100 ; 5652 FL-R, FL-AC, ROUND, J/FMP D 0165, 0611,1570,0100 ; 5653 FL-I, FL-AC, ROUND, J/FMP D 0166, 0712,1570,1700 ; 5654 FL-RW, FL-MEM, ROUND, J/FMP D 0167, 0713,1570,1700 ; 5655 FL-RW, FL-BOTH, ROUND, J/FMP ; 5656 .UCODE ; 5657 ; 5658 1570: ; 5659 FMP: [BRX]_AC, ;GET AC ; 5660 FE_SC+EXP, 3T, ;EXPONENT OF ANSWER U 1570, 0652,3771,0006,0276,6007,0521,1000,0040,2000 ; 5661 SKIP DP0 ;GET READY TO SMEAR SIGN U 0652, 3065,4551,0606,4374,0007,0700,0000,0000,0777 ; 5662 =0 [BRX]_+SIGN, J/FMP1 ;POSITIVE U 0653, 3065,3551,0606,4374,0007,0700,0000,0077,7000 ; 5663 [BRX]_-SIGN, J/FMP1 ;NEGATIVE U 3065, 0603,3442,0300,4174,4007,0700,2000,0071,0033 ; 5664 FMP1: Q_[AR], SC_27. ;GET MEMORY OPERAND ; 5665 =01* [BRX]_[BRX]*.5 LONG, ;SHIFT RIGHT U 0603, 2646,3446,0606,4174,4007,0700,0010,0000,0000 ; 5666 CALL [MULSUB] ;MULTIPLY ; 5667 Q_Q.AND.#, #/777000, ;WE ONLY COMPUTED U 0607, 3066,4662,0000,4370,4007,0700,0000,0077,7000 ; 5668 HOLD LEFT ; 27 BITS U 3066, 3067,3441,0403,4174,4007,0700,1000,0041,0002 ; 5669 [AR]_[ARX], FE_FE+2 ;SET SHIFT PATHS ; 5670 [AR]_[AR]*.5 LONG, ;SHIFT OVER ; 5671 FE_FE-200, ;ADJUST EXPONENT U 3067, 0740,3446,0303,4174,4003,4701,1000,0041,1600 ; 5672 NORM DISP, J/SNORM ;NORMALIZE & EXIT ; 5673 ; 5674 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 131 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- FDV ; 5675 .TOC "FLOATING POINT -- FDV" ; 5676 ; 5677 .DCODE D 0170, 0701,1574,1100 ; 5678 170: FL-R, FL-AC, J/FDV D 0172, 0702,1574,1700 ; 5679 172: FL-RW, FL-MEM, J/FDV D 0173, 0703,1574,1700 ; 5680 FL-RW, FL-BOTH, J/FDV ; 5681 D 0174, 0711,1574,1100 ; 5682 FL-R, FL-AC, ROUND, J/FDV D 0175, 0611,1574,0100 ; 5683 FL-I, FL-AC, ROUND, J/FDV D 0176, 0712,1574,1700 ; 5684 FL-RW, FL-MEM, ROUND, J/FDV D 0177, 0713,1574,1700 ; 5685 FL-RW, FL-BOTH, ROUND, J/FDV ; 5686 .UCODE ; 5687 ; 5688 ; 5689 1574: U 1574, 0654,3441,0305,0174,4007,0621,0000,0000,0000 ; 5690 FDV: [BR]_[AR], SKIP AD.EQ.0, AC ;COPY DIVSOR SEE IF 0 ; 5691 =0 ; 5692 [AR]_AC, FE_SC-EXP, SKIP DP0, ;GET AC & COMPUTE NEW U 0654, 0656,3771,0003,0276,6007,0520,1000,0030,2000 ; 5693 J/FDV0 ; EXPONENT U 0655, 0127,4443,0000,4174,4467,0700,0000,0071,1000 ; 5694 FL NO DIVIDE ;DIVIDE BY ZERO ; 5695 =0 U 0656, 3070,4551,0303,4374,0007,0700,0000,0000,0777 ; 5696 FDV0: [AR]_+SIGN, J/FDV1 U 0657, 3071,3551,0303,4374,0007,0700,0000,0077,7000 ; 5697 [AR]_-SIGN, J/FDV2 U 3070, 3072,3441,0304,4174,4007,0700,1000,0031,0200 ; 5698 FDV1: [ARX]_[AR],FE_-FE+200,J/FDV3 ;COMPUTE 2*DVND U 3071, 3072,2441,0304,4174,4007,0700,5000,0031,0200 ; 5699 FDV2: [ARX]_-[AR],FE_-FE+200,J/FDV3 ;ABSOLUTE VALUE U 3072, 0660,3445,0506,4174,4007,0520,0000,0000,0000 ; 5700 FDV3: [BRX]_[BR]*2, SKIP DP0 ;ABSOLUTE VALUE ; 5701 =0 U 0660, 0662,2113,0406,4174,4007,0311,4000,0000,0000 ; 5702 FDV4: [ARX]-[BRX], SKIP CRY0, 3T, J/FDV5 ;FLOATING NO DIV? U 0661, 0660,2445,0506,4174,4007,0700,4000,0000,0000 ; 5703 [BRX]_-[BR]*2, J/FDV4 ;FORCE ABSOLUTE VALUE ; 5704 =0 U 0662, 0664,3447,0606,4174,4007,0700,0000,0000,0000 ; 5705 FDV5: [BRX]_[BRX]*.5, J/FDV6 ;SHIFT BACK ARX U 0663, 0127,4443,0000,4174,4467,0700,0000,0071,1000 ; 5706 FL NO DIVIDE ;UNNORMALIZED INPUT ; 5707 =0 ; 5708 FDV6: [AR]_[AR]*2, ;DO NOT DROP A BIT U 0664, 3552,3445,0303,4174,4007,0700,0010,0000,0000 ; 5709 CALL [SBRL] ;AT FDV7+1 U 0665, 0704,2113,0604,4174,4007,0421,4000,0000,0000 ; 5710 [BRX]-[ARX], SKIP AD.LE.0 ;IS ANSWER .LE. 1? ; 5711 =00100 U 0704, 2711,4222,0000,4174,4007,0700,2010,0071,0033 ; 5712 FDV7: Q_0, SC_27., CALL [DIVSGN] ;DIVIDE U 0705, 0704,3447,0303,4174,4007,0700,1000,0041,0001 ; 5713 =00101 [AR]_[AR]*.5, FE_FE+1, J/FDV7 ;SCALE DV'END ; 5714 =01100 U 0714, 3073,3227,0003,4174,4007,0700,0000,0000,0000 ; 5715 FDV8: [AR]_Q*.5, J/FDV9 ;PUT ANSWER IN AR ; 5716 =01101 READ [AR], SKIP AD.EQ.0, ;-VE ANSWER, LOOK AT RMDR U 0715, 1132,3333,0003,4174,4007,0621,0010,0000,0000 ; 5717 CALL [SETSN] ; SEE HOW TO NEGATE ; 5718 =01110 READ [AR], SKIP AD.EQ.0, ;-VE ANSWER, LOOK AT RMDR U 0716, 1132,3333,0003,4174,4007,0621,0010,0000,0000 ; 5719 CALL [SETSN] ; SEE HOW TO NEGATE U 0717, 3073,3227,0003,4174,4007,0700,0000,0000,0000 ; 5720 =01111 [AR]_Q*.5, J/FDV9 ;PUT ANSWER IN AR U 0737, 3073,2227,0003,4174,4007,0700,4000,0000,0000 ; 5721 =11111 [AR]_-Q*.5, J/FDV9 ;ZERO RMDR ; 5722 U 3073, 0675,4222,0000,4174,4007,0700,0000,0000,0000 ; 5723 FDV9: Q_0, J/SNORM0 ;GO NORMALIZE ; 5724 ; 5725 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 132 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- FLTR, FSC ; 5726 .TOC "FLOATING POINT -- FLTR, FSC" ; 5727 ; 5728 .DCODE D 0127, 0011,1616,1100 ; 5729 127: R, FL-AC,ROUND, J/FLTR D 0132, 0001,1621,2100 ; 5730 132: I, FL-AC, J/FSC ; 5731 .UCODE ; 5732 ; 5733 1616: U 1616, 0666,4553,0300,4374,4007,0321,0000,0077,7000 ; 5734 FLTR: [AR].AND.#, #/777000, 3T, SKIP ADL.EQ.0 ;SMALL POS NUMBER? U 0666, 0670,2441,0305,4174,4007,0521,4000,0000,0000 ; 5735 =0 [BR]_-[AR], SKIP DP0, 3T, J/FLTR1 ;NO--SEE IF MINUS U 0667, 0675,4222,0000,4174,4007,0700,1000,0071,0233 ; 5736 Q_0, FE_S#, S#/233, J/SNORM0 ;FITS IN 27 BITS ; 5737 =0 ; 5738 FLTR1: [BR].AND.#, #/777000, 3T, U 0670, 0672,4553,0500,4374,4007,0321,0000,0077,7000 ; 5739 SKIP ADL.EQ.0, J/FLTR1A ;SMALL NEGATIVE NUMBER U 0671, 3074,4222,0000,4174,4007,0700,1000,0071,0244 ; 5740 Q_0, FE_S#, S#/244, J/FLTR2 ;LARGE POS NUMBER ; 5741 =0 U 0672, 3074,4222,0000,4174,4007,0700,1000,0071,0244 ; 5742 FLTR1A: Q_0, FE_S#, S#/244, J/FLTR2 ;BIG NUMBER U 0673, 0675,4222,0000,4174,4007,0700,1000,0071,0233 ; 5743 Q_0, FE_S#, S#/233, J/SNORM0 ;FITS IN 27 BITS ; 5744 ;AT THIS POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST ; 5745 ; SHIFT 8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT ; 5746 ; THIS IS THE RARE CASE ANYWAY. U 3074, 0674,3446,0303,4174,4047,0700,2000,0071,0006 ; 5747 FLTR2: [AR]_[AR]*.5 LONG, ASHC, SC_6 ;SHOVE OVER TO THE RIGHT ; 5748 =0 ; 5749 FLTR3: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT RIGHT 9 PLACES U 0674, 0674,3446,0303,4174,4047,0630,2000,0060,0000 ; 5750 STEP SC, J/FLTR3 ; SO IT WILL FIT U 0675, 0740,3333,0003,4174,4003,4701,0000,0000,0000 ; 5751 SNORM0: READ [AR], NORM DISP, J/SNORM ;NORMALIZE ANSWER ; 5752 ; 5753 ; 5754 1621: U 1621, 3075,3333,0003,4174,4007,0700,2000,0041,4000 ; 5755 FSC: READ [AR], SC_SHIFT U 3075, 3076,4222,0000,0174,4007,0700,0000,0000,0000 ; 5756 Q_0, AC ;DON'T SHIFT IN JUNK U 3076, 0676,3771,0003,0276,6007,0520,1000,0040,2000 ; 5757 [AR]_AC, FE_SC+EXP, SKIP DP0 ;SIGN SMEAR U 0676, 0675,4551,0303,4374,0007,0700,0000,0000,0777 ; 5758 =0 [AR]_+SIGN, J/SNORM0 U 0677, 0675,3551,0303,4374,0007,0700,0000,0077,7000 ; 5759 [AR]_-SIGN, J/SNORM0 ; 5760 ; 5761 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 133 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- FIX AND FIXR ; 5762 .TOC "FLOATING POINT -- FIX AND FIXR" ; 5763 ; 5764 .DCODE D 0122, 0701,1626,1100 ; 5765 122: FL-R, FL-AC, J/FIX D 0126, 0711,1626,1100 ; 5766 126: FL-R, FL-AC,ROUND, J/FIX ; 5767 .UCODE ; 5768 ; 5769 1626: ; 5770 FIX: Q_0, SCAD/A+B, SCADA/S#, ;CLEAR Q, SEE IF ; 5771 S#/1534, SCADB/FE, 3T, ; ANSWER FITS IN U 1626, 0700,4222,0000,4174,4006,7701,0000,0041,1534 ; 5772 SCAD DISP ; 35 BITS. U 0700, 0127,4443,0000,4174,4467,0700,0000,0041,1000 ; 5773 =0* SET AROV, J/NIDISP ;TOO BIG U 0702, 0701,4443,0000,4174,4006,7701,2000,0041,1544 ; 5774 SC_FE+S#, S#/1544, 3T, SCAD DISP ;NEED TO MOVE LEFT? U 0701, 0710,4443,0000,4174,4007,0630,2000,0060,0000 ; 5775 =0* STEP SC, J/FIXL U 0703, 3077,4443,0000,4174,4007,0700,2000,0031,0232 ; 5776 SC_S#-FE, S#/232 ;NUMBER OF PLACES TO SHIFT ; 5777 ; RIGHT U 3077, 0706,4443,0000,4174,4007,0630,2000,0060,0000 ; 5778 STEP SC ;ALREADY THERE ; 5779 =0 ; 5780 FIXR: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT BINARY POINT U 0706, 0706,3446,0303,4174,4047,0630,2000,0060,0000 ; 5781 STEP SC, J/FIXR ; TO BIT 35.5 U 0707, 0723,3447,0705,4174,4003,7700,0000,0000,0000 ; 5782 [BR]_[ONE]*.5, B DISP, J/FIXX ;WHICH KIND OF FIX? ; 5783 ; 5784 =0 U 0710, 0710,3445,0303,4174,4007,0630,2000,0060,0000 ; 5785 FIXL: [AR]_[AR]*2, STEP SC, J/FIXL ;SHIFT LEFT U 0711, 0060,3440,0303,0174,4156,4700,0400,0000,0000 ; 5786 AC_[AR], NEXT INST ;WE ARE NOW DONE ; 5787 ; 5788 =0*11 U 0723, 0712,3333,0003,4174,4007,0520,0000,0000,0000 ; 5789 FIXX: READ [AR], SKIP DP0, J/FIXT ;FIX--SEE IF MINUS U 0733, 1514,0111,0503,4174,4003,7700,0200,0003,0001 ; 5790 FIXX1: [AR]_[AR]+[BR], FL-EXIT ;FIXR--ROUND UP ; 5791 =0 U 0712, 0060,3440,0303,0174,4156,4700,0400,0000,0000 ; 5792 FIXT: AC_[AR], NEXT INST ;FIX & +, TRUNCATE U 0713, 0720,3223,0000,4174,4007,0621,0000,0000,0000 ; 5793 READ Q, SKIP AD.EQ.0 ;NEGATIVE--ANY FRACTION? U 0720, 1514,0111,0703,4174,4003,7700,0200,0003,0001 ; 5794 =0 [AR]_[AR]+1, FL-EXIT ;YES--ROUND UP ; 5795 [BR]_.NOT.[MASK], ;MAYBE--GENERATE .75 U 0721, 0733,7441,1205,4174,4007,0700,0000,0000,0000 ; 5796 J/FIXX1 ;ROUND UP IF BIT 36 OR ; 5797 ; 37 SET ; 5798 ; 5799 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 134 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- SINGLE PRECISION NORMALIZE ; 5800 .TOC "FLOATING POINT -- SINGLE PRECISION NORMALIZE" ; 5801 ; 5802 ;NORMALIZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT ; 5803 ; 4 SIGNALS: DP=0, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES ; 5804 ; ARE: ; 5805 ; 5806 ; DP=0 DP08 DP09 DP00 ACTION TO TAKE ; 5807 ; 0 0 0 0 SHIFT LEFT ; 5808 ; ; 5809 ; 0 0 0 1 NEGATE AND RETRY ; 5810 ; ; 5811 ; 0 0 1 0 ALL DONE ; 5812 ; ; 5813 ; 0 0 1 1 NEGATE AND RETRY ; 5814 ; ; 5815 ; 0 1 0 0 SHIFT RIGHT ; 5816 ; ; 5817 ; 0 1 0 1 NEGATE AND RETRY ; 5818 ; ; 5819 ; 0 1 1 0 SHIFT RIGHT ; 5820 ; ; 5821 ; 0 1 1 1 NEGATE AND RETRY ; 5822 ; ; 5823 ; 1 - - - LOOK AT Q BITS ; 5824 ; 5825 ;ENTER HERE WITH UNNORMALIZED NUMBER IN AR!Q. FE HOLDS THE NEW ; 5826 ; EXPONENT. CALL WITH NORM DISP ; 5827 =0000 ;9-WAY DISPATCH U 0740, 0740,3444,0303,4174,4063,4701,1000,0041,1777 ; 5828 SNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM U 0741, 0726,2222,0000,4174,4007,0311,4000,0000,0000 ; 5829 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0742, 0732,3333,0003,4174,4003,4701,0010,0000,0000 ; 5830 READ [AR], NORM DISP, CALL [SROUND] U 0743, 0726,2222,0000,4174,4007,0311,4000,0000,0000 ; 5831 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0744, 0732,3447,0303,4174,4007,0700,1010,0041,0001 ; 5832 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0745, 0726,2222,0000,4174,4007,0311,4000,0000,0000 ; 5833 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0746, 0732,3447,0303,4174,4007,0700,1010,0041,0001 ; 5834 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0747, 0726,2222,0000,4174,4007,0311,4000,0000,0000 ; 5835 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0750, 0724,3223,0000,4174,4007,0621,0000,0000,0000 ; 5836 READ Q, SKIP AD.EQ.0, J/SNORM1 U 0756, 0725,3770,0303,4324,0457,0700,0000,0041,0000 ; 5837 =1110 [AR]_EXP, J/FLEX ; 5838 = ; 5839 =0 U 0724, 0740,3444,0303,4174,4063,4701,1000,0041,1777 ; 5840 SNORM1: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM U 0725, 1514,4443,0000,4174,4003,7700,0200,0003,0001 ; 5841 FLEX: FL-EXIT ; 5842 ; 5843 =0 U 0726, 0760,7441,0303,4174,4003,4701,0000,0000,0000 ; 5844 SNNEG: [AR]_.NOT.[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD ; 5845 ; (NO CARRY) U 0727, 0760,2441,0303,4174,4003,4701,4000,0000,0000 ; 5846 [AR]_-[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD (W/CARRY) ; 5847 =0000 U 0760, 0760,3444,0303,4174,4063,4701,1000,0041,1777 ; 5848 SNNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM U 0762, 0732,3333,0003,4174,4003,4701,0010,0000,0000 ; 5849 =0010 READ [AR], NORM DISP, CALL [SROUND] U 0764, 0732,3447,0303,4174,4007,0700,1010,0041,0001 ; 5850 =0100 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0766, 0732,3447,0303,4174,4007,0700,1010,0041,0001 ; 5851 =0110 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0770, 0760,3444,0303,4174,4063,4701,1000,0041,1777 ; 5852 =1000 [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM ;[120] U 0776, 0767,3770,0303,4324,0453,7700,0000,0041,0000 ; 5853 =1110 [AR]_EXP, B DISP ; 5854 = U 0767, 0730,4553,1300,4374,4007,0321,0000,0000,2000 ; 5855 =0111 TL [FLG], FLG.SN/1, J/SNNOT ; 5856 [AR]_[AR].AND.[MASK], ;CLEAR ANY LEFT OVER BITS U 0777, 0735,4111,1203,4174,4007,0700,0000,0000,0000 ; 5857 J/SNNOT1 ; 5858 =0 U 0730, 3100,7441,0303,4174,4007,0700,0000,0000,0000 ; 5859 SNNOT: [AR]_.NOT.[AR], J/SNNOT2 U 0731, 0734,3223,0000,4174,4007,0621,0000,0000,0000 ; 5860 READ Q, SKIP AD.EQ.0 U 0734, 3100,7441,0303,4174,4007,0700,0000,0000,0000 ; 5861 =0 [AR]_.NOT.[AR], J/SNNOT2 U 0735, 3100,2441,0303,4174,4007,0700,4000,0000,0000 ; 5862 SNNOT1: [AR]_-[AR], J/SNNOT2 ;NORMAL NEGATE AND EXIT U 3100, 3101,5551,1313,4374,0007,0700,0000,0000,2000 ; 5863 SNNOT2: [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT U 3101, 1514,4443,0000,4174,4003,7700,0200,0003,0001 ; 5864 FL-EXIT ; 5865 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 135 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- ROUND ANSWER ; 5866 .TOC "FLOATING POINT -- ROUND ANSWER" ; 5867 ; 5868 =*01* U 0732, 1007,3447,0705,4174,4003,7700,0000,0000,0000 ; 5869 SROUND: [BR]_[ONE]*.5, B DISP, J/SRND1 U 0736, 0732,3447,0303,4174,4007,0700,1000,0041,0001 ; 5870 [AR]_[AR]*.5, FE_FE+1, J/SROUND ;WE WENT TOO FAR ; 5871 =0111 U 1007, 0016,4443,0000,4174,4004,1700,0000,0000,0000 ; 5872 SRND1: RETURN [16] ;NOT ROUNDING INSTRUCTION U 1017, 0753,0111,0503,4174,4003,4701,0000,0000,0000 ; 5873 [AR]_[AR]+[BR], NORM DISP U 0753, 0016,4443,0000,4174,4004,1700,0000,0000,0000 ; 5874 =*01* RETURN [16] U 0757, 0016,3447,0303,4174,4004,1700,1000,0041,0001 ; 5875 [AR]_[AR]*.5, FE_FE+1, RETURN [16] ; 5876 ; 5877 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 136 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- DFAD, DFSB ; 5878 .TOC "FLOATING POINT -- DFAD, DFSB" ; 5879 ; 5880 .DCODE D 0110, 1100,1637,1100 ; 5881 110: DBL FL-R, J/DFAD D 0111, 1100,1635,1100 ; 5882 111: DBL FL-R, J/DFSB ; 5883 .UCODE ; 5884 ; 5885 ;ENTER FROM A-READ CODE WITH: ; 5886 ;FE/ EXP ; 5887 ;SC/ EXP ; 5888 ;AR/ C(E) SHIFT RIGHT 2 PLACES ; 5889 ;ARX/ C(E+1) SHIFTED RIGHT 1 PLACE ; 5890 1635: U 1635, 3102,2441,0404,4174,4007,0700,4000,0000,0000 ; 5891 DFSB: [ARX]_-[ARX] ;NEGATE LOW WORD U 3102, 1637,2441,0303,4174,4007,0700,0040,0000,0000 ; 5892 [AR]_-[AR]-.25, MULTI PREC/1 ; 5893 1637: U 1637, 3103,4557,0006,1274,4007,0701,0000,0000,1441 ; 5894 DFAD: [BRX]_(AC[1].AND.[MAG])*.5, 3T ;GET LOW WORD ; 5895 [BR]_AC*.5, 3T, ;GET AC AND START TO SHIFT ; 5896 SC_SC-EXP-1, ;NUMBER OF PLACES TO SHIFT U 3103, 0754,3777,0005,0274,4007,0521,2000,0020,2000 ; 5897 SKIP DP0 ;SEE WHAT SIGN ; 5898 =0 [BR]_+SIGN*.5, 3T, ;SIGN SMEAR U 0754, 0772,5547,0505,0374,4007,0631,0000,0077,7400 ; 5899 AC, SKIP/SC, J/DFAS1 ;SEE WHICH IS BIGGER ; 5900 [BR]_-SIGN*.5, 3T, ;SIGN SMEAR U 0755, 0772,3547,0505,0374,4007,0631,0000,0077,7400 ; 5901 AC, SKIP/SC, J/DFAS1 ;SEE WHICH IS BIGGER ; 5902 =0 ; 5903 DFAS1: Q_[BRX], ;AR IS BIGGER U 0772, 0774,3442,0600,4174,4007,0700,0000,0000,0000 ; 5904 J/DFAS2 ;ADJUST BR!Q ; 5905 [T0]_AC, ;BR IS BIGGER OR EQUAL U 0773, 3105,3771,0016,0276,6007,0700,2000,0041,2000 ; 5906 SC_EXP, 2T, J/DFAS3 ;SET SC TO THAT EXPONENT ; 5907 ; 5908 ;HERE IF AR!ARX IS GREATER THAN BR!BRX ; 5909 =0 U 0774, 1003,3441,0516,4174,4007,0700,0010,0000,0000 ; 5910 DFAS2: [T0]_[BR], CALL [DFADJ] ;ADJUST BR!Q U 0775, 3104,3441,1605,4174,4007,0700,0000,0000,0000 ; 5911 [BR]_[T0] ;PUT ANSWER BACK U 3104, 3110,0002,0400,4174,4007,0700,0000,0000,0000 ; 5912 Q_Q+[ARX], J/DFAS5 ;ADD LOW WORDS ; 5913 ; 5914 ;HERE IS BR!BRX IF GREATER THAN OR EQUAL TO AR!ARX ; 5915 DFAS3: Q_[ARX], ;SETUP TO SHIFT AR!ARX U 3105, 3106,3442,0400,4174,4007,0700,2000,0020,0000 ; 5916 SC_SC-FE-1 ;COMPUTE # OF PLACES U 3106, 1000,3333,0016,4174,4007,0700,1000,0041,2000 ; 5917 READ [T0], FE_EXP ;EXPONENT OF ANSWER U 1000, 1003,3441,0316,4174,4007,0700,0010,0000,0000 ; 5918 =0 [T0]_[AR], CALL [DFADJ] ;ADJUST AR!Q U 1001, 3107,3441,1603,4174,4007,0700,0000,0000,0000 ; 5919 [AR]_[T0] ;PUT ANSWER BACK U 3107, 3110,0002,0600,4174,4007,0700,0000,0000,0000 ; 5920 Q_Q+[BRX], J/DFAS5 ;ADD LOW WORDS ; 5921 ; 5922 ;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO ; 5923 ; AR!Q ; 5924 DFAS5: [AR]_([AR]+[BR])*.5 LONG, ;ADD HIGH WORDS U 3110, 3111,0116,0503,4174,4047,0700,0040,0000,0000 ; 5925 MULTI PREC/1, ASHC ;INJECT SAVED CRY2 ; 5926 [AR]_[AR]*2 LONG, ;SHIFT BACK LEFT U 3111, 1033,3444,0303,4174,4046,2700,0000,0000,0000 ; 5927 ASHC, MUL DISP ;SEE IF WE LOST A 1 ; 5928 =1011 U 1033, 3112,5111,1217,4174,4007,0700,0000,0000,0000 ; 5929 DFAS6: [T1]_[T1].AND.NOT.[MASK], J/DFAS7 U 1037, 1033,0222,0000,4174,4007,0700,4000,0000,0000 ; 5930 Q_Q+.25, J/DFAS6 ; 5931 DFAS7: [AR]_[AR]*2 LONG, ASHC, ;PUT IN GUARD BITS U 3112, 3113,3444,0303,4174,4047,0700,1000,0041,1777 ; 5932 FE_FE-1 ; 5933 [AR]_[AR]*2 LONG, ASHC, U 3113, 3114,3444,0303,4174,4047,0700,1000,0041,1777 ; 5934 FE_FE-1 U 3114, 1027,3002,1700,4170,4007,0700,0000,0000,0000 ; 5935 Q_[T1].OR.Q, HOLD LEFT, J/DNORM0 ; 5936 ; 5937 ;SUBROUTINE TO ADJUST NUMBER IN T0!Q ; 5938 ;RETURNS 1 WITH ; 5939 ; T0!Q ADJUSTED ; 5940 ; FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT) ; 5941 ; T1 HAS Q TWO STEPS PRIOR TO BEING DONE ; 5942 DFADJ "STEP SC, ASHC, MUL DISP" ; 5943 ; 5944 =0**11 ; 5945 DFADJ: [T0]_[T0]*2 LONG, DIV, ;MOVE EVERYTHING 2 PLACES U 1003, 1133,3444,1616,4174,4067,0700,0010,0000,0000 ; 5946 CALL [CLRSN] U 1023, 3115,3444,1616,4174,4067,0700,0000,0000,0000 ; 5947 [T0]_[T0]*2 LONG, DIV U 3115, 3116,3444,1616,4174,4067,0700,0000,0000,0000 ; 5948 [T0]_[T0]*2 LONG, DIV ; 5949 [T0]_[T0]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE U 3116, 1052,3446,1616,4174,4047,0630,2000,0060,0000 ; 5950 STEP SC ; 5951 =1010 ; 5952 DFADJ1: [T0]_[T0]*.5 LONG, ;UNNORMALIZE T0!Q U 1052, 1052,3446,1616,4174,4046,2630,2000,0060,0000 ; 5953 DFADJ, J/DFADJ1 ;LOOP TILL DONE ; 5954 DFADJ2: [T1]_Q, ;SAVE GUARD BITS U 1053, 1073,3221,0017,4174,4006,2700,0000,0000,0000 ; 5955 MUL DISP, J/DFADJ5 ;LOOK AT LAST BIT U 1056, 1004,3551,1313,4374,0007,0700,0000,0000,2000 ; 5956 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ3 U 1057, 1005,3551,1313,4374,0007,0700,0000,0000,2000 ; 5957 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ4 ; 5958 ; 5959 =0 U 1004, 1004,3446,1616,4174,4047,0630,2000,0060,0000 ; 5960 DFADJ3: [T0]_[T0]*.5 LONG, ASHC, STEP SC, J/DFADJ3 U 1005, 1073,3221,0017,4174,4007,0700,0000,0000,0000 ; 5961 DFADJ4: [T1]_Q ;SAVE 2 GUARD BITS ; 5962 =1011 U 1073, 3117,3446,1616,4174,4047,0700,0000,0000,0000 ; 5963 DFADJ5: [T0]_[T0]*.5 LONG, ASHC, J/DFADJ6 U 1077, 1073,3551,1313,4374,0007,0700,0000,0000,2000 ; 5964 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ5 U 3117, 0001,3446,1616,4174,4044,1700,0000,0000,0000 ; 5965 DFADJ6: [T0]_[T0]*.5 LONG, ASHC, RETURN [1] ; 5966 ; 5967 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 137 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- DFMP ; 5968 .TOC "FLOATING POINT -- DFMP" ; 5969 ; 5970 .DCODE D 0112, 1105,1631,1100 ; 5971 112: DBL FL-R, DAC, J/DFMP ; 5972 .UCODE ; 5973 ; 5974 ;SAME ENTRY CONDITIONS AS DFAD/DFSB ; 5975 1631: U 1631, 1010,3442,0400,4174,4007,0700,2000,0071,0006 ; 5976 DFMP: Q_[ARX], SC_6 ;SHIFT MEM OP 8 PLACES ; 5977 =0 ; 5978 DFMP1: [AR]_[AR]*2 LONG, ASHC, ;SHIFT U 1010, 1010,3444,0303,4174,4047,0630,2000,0060,0000 ; 5979 STEP SC, J/DFMP1 U 1011, 3120,3446,1200,4174,4007,0700,0000,0000,0000 ; 5980 Q_Q*.5 U 3120, 3121,4662,0000,4374,0007,0700,0000,0007,7777 ; 5981 Q_Q.AND.#, #/077777, HOLD RIGHT U 3121, 3122,3221,0005,4174,4007,0700,0000,0000,0000 ; 5982 [BR]_Q ;COPY LOW WORD ; 5983 ; ; 5984 ; BRX * BR ==> C(E+1) * C(AC+1) ; 5985 ; U 3122, 0531,4557,0006,1274,4007,0700,0000,0000,1441 ; 5986 [BRX]_(AC[1].AND.[MAG])*.5 ;GET LOW AC U 0531, 2647,3447,0606,4174,4007,0700,2010,0071,0043 ; 5987 =0** [BRX]_[BRX]*.5, SC_35., CALL [MULSB1] ; 5988 ; ; 5989 ; BRX * Q ==> C(E) * C(AC+1) ; 5990 ; U 0535, 0761,3442,0300,4174,4007,0700,2000,0071,0043 ; 5991 Q_[AR], SC_35. ;GO MULT NEXT HUNK U 0761, 2650,4443,0000,4174,4007,0700,0010,0000,0000 ; 5992 =0** CALL [MULTIPLY] U 0765, 3123,3441,0416,4174,4007,0700,0000,0000,0000 ; 5993 [T0]_[ARX] ;SAVE PRODUCT U 3123, 3124,3227,0004,4174,4007,0700,2000,0011,0000 ; 5994 [ARX]_Q*.5, SC_FE ;PUT IN NEXT STEP ; 5995 ; ; 5996 ; BRX * BR ==> C(AC) * C(E+1) ; 5997 ; ; 5998 [BRX]_AC*.5, ;PREPARE TO DO HIGH HALF ; 5999 FE_SC+EXP, ;EXPONENT ON ANSWER U 3124, 1012,3777,0006,0274,4007,0521,1000,0040,2000 ; 6000 SKIP DP0, 3T U 1012, 1002,5547,0606,4374,4007,0701,0000,0077,7400 ; 6001 =0 [BRX]_+SIGN*.5, 3T, J/DFMP2 U 1013, 1002,3547,0606,4374,4007,0701,0000,0077,7400 ; 6002 [BRX]_-SIGN*.5, 3T ; 6003 =0** U 1002, 2650,3442,0500,4174,4007,0700,2010,0071,0043 ; 6004 DFMP2: Q_[BR], SC_35., CALL [MULTIPLY] ;GO MULTIPLY U 1006, 3125,3221,0017,4174,4007,0700,0000,0000,0000 ; 6005 [T1]_Q ;SAVE FOR ROUNDING U 3125, 1020,0111,1604,4174,4007,0700,0000,0000,0000 ; 6006 [ARX]_[ARX]+[T0] ;PREPARE FOR LAST MUL ; 6007 ; ; 6008 ; BRX * Q ==> C(AC) * C(E) ; 6009 ; ; 6010 =0** Q_[AR], SC_35., ;DO THE LAST MULTIPLY U 1020, 2650,3442,0300,4174,4007,0700,2010,0071,0043 ; 6011 CALL [MULTIPLY] ; .. ; 6012 ; 6013 ;OK, WE NOW HAVE THE PRODUCT IN ARX!Q!T1. ALL WE NEED TO DO ; 6014 ; IS SOME BIT DIDDLES TO GET EVERYTHING IN THE RIGHT PLACE ; 6015 [AR]_[ARX]*.5 LONG, ;SHIFT THE ANSWER U 1024, 1043,3446,0403,4174,4007,0700,1000,0041,1576 ; 6016 FE_FE+S#, S#/1576 ;CORRECT EXPONENT ; 6017 =0**11 READ [T1], SKIP AD.EQ.0, ;SEE IF LOW ORDER 1 U 1043, 1132,3333,0017,4174,4007,0621,0010,0000,0000 ; 6018 CALL [SETSN] ; BITS AROUND SOMEPLACE U 1063, 3126,3444,0303,4174,4047,0700,0000,0000,0000 ; 6019 [AR]_[AR]*2 LONG, ASHC ;SHIFT LEFT U 3126, 3127,3447,0705,4174,4007,0700,0000,0000,0000 ; 6020 [BR]_[ONE]*.5 ;PLACE TO INSTERT BITS U 3127, 1014,4553,1700,4374,4007,0321,0000,0020,0000 ; 6021 TL [T1], #/200000 ;ANYTHING TO INJECT? U 1014, 1015,0002,0500,4174,4007,0700,0000,0000,0000 ; 6022 =0 Q_Q+[BR] ;YES--PUT IT IN U 1015, 3130,3444,0303,4174,4047,0700,0000,0000,0000 ; 6023 [AR]_[AR]*2 LONG, ASHC ;MAKE ROOM FOR MORE U 3130, 1026,4553,1700,4374,4007,0321,0000,0010,0000 ; 6024 TL [T1], #/100000 ;ANOTHER BIT NEEDED U 1026, 1027,0002,0500,4174,4007,0700,0000,0000,0000 ; 6025 =0 Q_Q+[BR] ;YES--PUT IN LAST BIT ; 6026 DNORM0: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO U 1027, 1120,3333,0003,4174,4003,4701,1000,0041,0002 ; 6027 FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS ; 6028 ; 6029 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 138 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- DFDV ; 6030 .TOC "FLOATING POINT -- DFDV" ; 6031 ; 6032 .DCODE D 0113, 1105,1636,1100 ; 6033 113: DBL FL-R, DAC, J/DFDV ; 6034 .UCODE ; 6035 1636: U 1636, 1066,3441,0406,4174,4007,0700,0000,0000,0000 ; 6036 DFDV: [BRX]_[ARX] ;COPY OPERAND (COULD SAVE TIME ; 6037 ; WITH SEPERATE A-READ FOR DFDV) U 1066, 1133,4221,0017,4174,4007,0700,0010,0000,0000 ; 6038 =1**10 [T1]_0, CALL [CLRSN] ;CLEAR FLAG ; 6039 [BR]_[AR], SKIP AD.LE.0, ;SEE IF POSITIVE U 1067, 1030,3441,0305,1174,4007,0421,0000,0000,1441 ; 6040 AC[1] ;WARM UP RAM ; 6041 =0 ; 6042 DFDV1: [ARX]_(AC[1].AND.[MAG])*.5, ;POSITIVE--GET AC U 1030, 3133,4557,0004,1274,4007,0700,0000,0000,1441 ; 6043 J/DFDV2 ; AND CONTINUE BELOW U 1031, 3131,7441,1717,4174,4007,0700,0000,0000,0000 ; 6044 [T1]_.NOT.[T1] ;DV'SOR NEGATIVE (OR ZERO) U 3131, 3132,2441,0606,4174,4007,0700,4000,0000,0000 ; 6045 [BRX]_-[BRX] ;NEGATE LOW WORD ; 6046 AD/-B-.25, B/BR, DEST/AD, ;NEGATE HIGH WORD ; 6047 MULTI PREC/1, 3T, ;ADDING IN CRY02 ; 6048 SKIP DP0, AC[1], ;SEE IF STILL NEGATIVE U 3132, 1030,2331,0005,1174,4007,0521,0040,0000,1441 ; 6049 J/DFDV1 ; .. ; 6050 DFDV2: [AR]_AC*.5, ;GET AC AND SHIFT ; 6051 FE_SC-EXP, 3T, ;COMPUTE NEW EXPONENT U 3133, 1034,3777,0003,0274,4007,0521,1000,0030,2000 ; 6052 SKIP DP0 ;SEE IF NEGATIVE U 1034, 1040,5547,0303,4374,4007,0701,0000,0077,7400 ; 6053 =0 [AR]_+SIGN*.5, 3T, J/DFDV3 ;POSITIVE U 1035, 3134,7441,1717,4174,4007,0700,0000,0000,0000 ; 6054 [T1]_.NOT.[T1] ;NEGATIVE OR ZERO U 3134, 3135,3547,0303,4374,4007,0701,0000,0077,7400 ; 6055 [AR]_-SIGN*.5, 3T ;SIGN SMEAR U 3135, 3136,2442,0400,4174,4007,0700,4000,0000,0000 ; 6056 Q_-[ARX] ;NEGATE OPERAND ; 6057 [AR]_(-[AR]-.25)*.5 LONG, ;NEGATE HIGH WORD ; 6058 MULTI PREC/1, ;USE SAVED CARRY U 3136, 1041,2446,0303,4174,4047,0700,0040,0000,0000 ; 6059 ASHC, J/DFDV4 ;CONTINUE BELOW ; 6060 =0 ; 6061 DFDV3: Q_[ARX], ;COPY OPERAND U 1040, 2710,3442,0400,4174,4007,0700,0010,0000,0000 ; 6062 CALL [DDIVS] ;SHIFT OVER U 1041, 1044,2113,0305,4174,4007,0521,4000,0000,0000 ; 6063 DFDV4: [AR]-[BR], 3T, SKIP DP0 ;SEE IF OVERFLOW U 1044, 0127,4443,0000,4174,4467,0700,0000,0071,1000 ; 6064 =0 FL NO DIVIDE U 1045, 1060,3221,0004,4174,4007,0700,0000,0000,0000 ; 6065 [ARX]_Q ;START DIVISION U 1060, 0460,4222,0000,4174,4007,0700,2010,0071,0032 ; 6066 =0* Q_0, SC_26., CALL [DBLDIV] U 1062, 1070,3221,0016,4174,4007,0700,2000,0071,0043 ; 6067 [T0]_Q, SC_35. ; 6068 =0* Q_Q.AND.NOT.[MAG], ;SEE IF ODD ; 6069 SKIP AD.EQ.0, ;SKIP IF EVEN U 1070, 0460,5002,0000,4174,4007,0621,0010,0000,0000 ; 6070 CALL [DBLDIV] ;GO DIVIDE U 1072, 3137,3446,1200,4174,4007,0700,0000,0000,0000 ; 6071 Q_Q*.5 ;MOVE ANSWER OVER ; 6072 = ; 6073 [T0]_[T0]*2 LONG, ASHC, ;DO FIRST NORM STEP U 3137, 1113,3444,1616,4174,4046,2700,0000,0000,0000 ; 6074 MUL DISP ; SEE IF A 1 FELL OUT ; 6075 =1011 ; 6076 DFDV4A: READ [T1], SKIP DP0, ;SHOULD RESULT BE NEGATIVE ; 6077 FE_S#-FE, S#/202, ;CORRECT EXPONENT U 1113, 1046,3333,0017,4174,4007,0520,1000,0031,0202 ; 6078 J/DFDV4B ;LOOK BELOW U 1117, 1113,0222,0000,4174,4007,0700,4000,0000,0000 ; 6079 Q_Q+.25, J/DFDV4A ;PUT BACK THE BIT ; 6080 =0 U 1046, 1120,3441,1603,4174,4003,4701,0000,0000,0000 ; 6081 DFDV4B: [AR]_[T0], NORM DISP, J/DNORM ;PLUS U 1047, 1100,3441,1603,4174,4003,4701,0000,0000,0000 ; 6082 [AR]_[T0], NORM DISP, J/DNNORM ;MINUS ; 6083 ; 6084 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 139 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 6085 .TOC "FLOATING POINT -- DOUBLE PRECISION NORMALIZE" ; 6086 ; 6087 ;NORMALIZE AR!Q ; 6088 ;DNORM0: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO ; 6089 ; FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS ; 6090 =0000 ; 6091 DNORM: [AR]_[AR]*2 LONG, ;SHIFT LEFT ; 6092 FE_FE-1, ASHC, ;ADJUST EXPONENT U 1120, 1120,3444,0303,4174,4043,4701,1000,0041,1777 ; 6093 NORM DISP, J/DNORM ;TRY AGAIN U 1121, 1054,4553,1300,4374,4007,0321,0000,0000,2000 ; 6094 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 6095 READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR U 1122, 1032,3333,0003,4174,4003,4701,0010,0000,0000 ; 6096 CALL [DROUND] ; AND ROUND ANSWER U 1123, 1054,4553,1300,4374,4007,0321,0000,0000,2000 ; 6097 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 6098 [AR]_[AR]*.5 LONG, ASHC, U 1124, 1032,3446,0303,4174,4047,0700,1010,0041,0001 ; 6099 FE_FE+1, CALL [DROUND] U 1125, 1054,4553,1300,4374,4007,0321,0000,0000,2000 ; 6100 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 6101 [AR]_[AR]*.5 LONG, ASHC, U 1126, 1032,3446,0303,4174,4047,0700,1010,0041,0001 ; 6102 FE_FE+1, CALL [DROUND] U 1127, 1054,4553,1300,4374,4007,0321,0000,0000,2000 ; 6103 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 6104 Q_[MAG].AND.Q, ;HIGH WORD IS ZERO U 1130, 3141,4002,0000,4174,0007,0700,0000,0000,0000 ; 6105 HOLD RIGHT, J/DNORM1 ;GO TEST LOW WORD U 1136, 3140,5551,1313,4374,0007,0700,0000,0000,2000 ; 6106 =1110 [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT ;[122] CLEAR FLG.SN ; 6107 = ; 6108 AC[1]_[ARX].AND.[MAG], ;STORE LOW WORD U 3140, 1515,4113,0400,1174,4007,0700,0400,0000,1441 ; 6109 J/STAC ;GO DO HIGH WORD ; 6110 U 3141, 1050,3223,0000,4174,4007,0621,0000,0000,0000 ; 6111 DNORM1: READ Q, SKIP AD.EQ.0 ;TEST LOW WORD ; 6112 =0 [AR]_[AR]*2 LONG, ;LOW WORD IS NON-ZERO ; 6113 FE_FE-1, ASHC, ;ADJUST EXPONENT U 1050, 1120,3444,0303,4174,4043,4701,1000,0041,1777 ; 6114 NORM DISP, J/DNORM ;KEEP LOOKING U 1051, 1515,3440,0303,1174,4007,0700,0400,0000,1441 ; 6115 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO ; 6116 ; 6117 ;HERE TO NORMALIZE NEGATIVE D.P. RESULTS ; 6118 =0 U 1054, 3142,7222,0000,4174,4007,0700,0000,0000,0000 ; 6119 DNEG: Q_.NOT.Q, J/DNEG1 ;ONES COMP U 1055, 1064,2222,0000,4174,4007,0511,4000,0000,0000 ; 6120 Q_-Q, SKIP CRY2, J/DNEG2 U 3142, 1064,5551,1313,4374,0007,0700,0000,0000,2000 ; 6121 DNEG1: [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT ; 6122 =0 ; 6123 DNEG2: [AR]_.NOT.[AR], ;NO CARRY U 1064, 1100,7441,0303,4174,4003,4701,0000,0000,0000 ; 6124 NORM DISP, J/DNNORM ;GO NORMALIZE ; 6125 [AR]_-[AR], ;CARRY U 1065, 1100,2441,0303,4174,4003,4701,4000,0000,0000 ; 6126 NORM DISP, J/DNNORM ;NORMALIZE ; 6127 ; 6128 =000* ; 6129 DNNORM: [AR]_[AR]*2 LONG, ;SHIFT 1 PLACE ; 6130 FE_FE-1, ASHC, ;ADJUST EXPONENT U 1100, 1100,3444,0303,4174,4043,4701,1000,0041,1777 ; 6131 NORM DISP, J/DNNORM ;LOOP TILL DONE ; 6132 =001* READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR U 1102, 1032,3333,0003,4174,4003,4701,0010,0000,0000 ; 6133 CALL [DROUND] ; AND ROUND ANSWER ; 6134 =010* [AR]_[AR]*.5 LONG, ASHC, U 1104, 1032,3446,0303,4174,4047,0700,1010,0041,0001 ; 6135 FE_FE+1, CALL [DROUND] ; 6136 =011* [AR]_[AR]*.5 LONG, ASHC, U 1106, 1032,3446,0303,4174,4047,0700,1010,0041,0001 ; 6137 FE_FE+1, CALL [DROUND] ; 6138 =100* Q_[MAG].AND.Q, ;HIGH WORD IS ZERO U 1110, 3145,4002,0000,4174,0007,0700,0000,0000,0000 ; 6139 HOLD RIGHT, J/DNNRM1 ;GO TEST LOW WORD U 1116, 1140,4111,1204,4174,4007,0700,0000,0000,0000 ; 6140 =111* [ARX]_[ARX].AND.[MASK] ;REMOVE ROUNDING BIT ; 6141 = ; 6142 =00 [ARX]_[ARX].AND.[MAG], ;ALSO CLEAR SIGN U 1140, 3146,4111,0004,4174,4007,0700,0010,0000,0000 ; 6143 CALL [CHKSN] ;ONES COMP? ; 6144 =10 [ARX]_[ARX].XOR.[MAG], ;YES--ONES COMP U 1142, 3143,6111,0004,4174,4007,0700,0000,0000,0000 ; 6145 J/DNN1 ;CONTINUE BELOW ; 6146 =11 [ARX]_-[ARX], 3T, ;NEGATE RESULT U 1143, 1074,2441,0404,4174,4007,0561,4000,0000,0000 ; 6147 SKIP CRY1, J/DNN2 ; 6148 = U 3143, 1074,5551,1313,4374,0007,0700,0000,0000,2000 ; 6149 DNN1: [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT ;CLEAR FLAG ; 6150 =0 U 1074, 3144,7333,0003,0174,4007,0700,0400,0000,0000 ; 6151 DNN2: AC_.NOT.[AR], J/DNORM2 U 1075, 3144,2443,0300,0174,4007,0701,4400,0000,0000 ; 6152 AC_-[AR], 3T ; 6153 DNORM2: AC[1]_[ARX].AND.[MAG], ;STORE LOW WORD U 3144, 0060,4113,0400,1174,4156,4700,0400,0000,1441 ; 6154 NEXT INST ;ALL DONE ; 6155 U 3145, 1114,3223,0000,4174,4007,0621,0000,0000,0000 ; 6156 DNNRM1: READ Q, SKIP AD.EQ.0 ;TEST LOW WORD ; 6157 =0 [AR]_[AR]*2 LONG, ;LOW WORD IS NON-ZERO ; 6158 FE_FE-1, ASHC, ;ADJUST EXPONENT U 1114, 1100,3444,0303,4174,4043,4701,1000,0041,1777 ; 6159 NORM DISP, J/DNNORM ;KEEP LOOKING U 1115, 1515,3440,0303,1174,4007,0700,0400,0000,1441 ; 6160 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO ; 6161 U 3146, 0002,4553,1300,4374,4004,1321,0000,0000,2000 ; 6162 CHKSN: TL [FLG], FLG.SN/1, RETURN [2] ; 6163 ; 6164 ;SUBROUTINE TO SET/CLEAR FLG.SN ; 6165 ;CALL WITH: ; 6166 ; CALL [SETSN], SKIP IF WE SHOULD CLEAR ; 6167 ;RETURNS 23 ; 6168 =0 U 1132, 0023,3551,1313,4374,0004,1700,0000,0000,2000 ; 6169 SETSN: [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, RETURN [23] U 1133, 0023,5551,1313,4374,0004,1700,0000,0000,2000 ; 6170 CLRSN: [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT, RETURN [23] ; 6171 ; 6172 ; 6173 ;SUBROUTINE TO ROUND A FLOATING POINT NUMBER ; 6174 ;CALL WITH: ; 6175 ; NUMBER IN AR!Q AND NORM DISP ; 6176 ;RETURNS 16 WITH ROUNDED NUMBER IN AR!ARX ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 140 ; DSK: KSHACK; FLT 5 21:53:03 16-JAN-87 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 6177 ; ; 6178 =*01* ; 6179 DROUND: [ARX]_(Q+1)*.5, ;ROUND AND SHIFT ; 6180 SKIP CRY2, ;SEE IF OVERFLOW U 1032, 1152,0007,0704,4174,4007,0511,0000,0000,0000 ; 6181 J/DRND1 ;COMPLETE ROUNDING ; 6182 [AR]_[AR]*.5 LONG, ;WE WENT TOO FAR U 1036, 1032,3446,0303,4174,4047,0700,1000,0041,0001 ; 6183 FE_FE+1, ASHC, J/DROUND ;SHIFT BACK AND ROUND ; 6184 =*010 U 1152, 0016,3770,0303,4324,0454,1700,0000,0041,0000 ; 6185 DRND1: [AR]_EXP, RETURN [16] ;NO OVERFLOW ; 6186 =011 [AR]_[AR]+.25, ;ADD CARRY (BITS 36 AND 37 ; 6187 ; ARE COPIES OF Q BITS) ; 6188 NORM DISP, ;SEE IF OVERFLOW U 1153, 1152,0441,0303,4174,4003,4701,4000,0000,0000 ; 6189 J/DRND1 ; .. ; 6190 =110 [AR]_[AR]*.5, ;SHIFT RIGHT ; 6191 FE_FE+1, ;KEEP EXP RIGHT U 1156, 1152,3447,0303,4174,4007,0700,1000,0041,0001 ; 6192 J/DRND1 ;ALL SET NOW ; 6193 = ; 6194 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 141 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 6195 ;;;-*-Fundamental-*- ; 6196 ; 6197 .TOC "EXTEND -- DISPATCH ROM ENTRIES" ; 6198 ; 6199 .DCODE D 0001, 0001,1740,2100 ; 6200 001: I, SJCL, J/L-CMS D 0002, 0002,1740,2100 ; 6201 I, SJCE, J/L-CMS D 0003, 0003,1740,2100 ; 6202 I, SJCLE, J/L-CMS D 0004, 0002,1741,2100 ; 6203 I, B/2, J/L-EDIT D 0005, 0005,1740,2100 ; 6204 I, SJCGE, J/L-CMS D 0006, 0006,1740,2100 ; 6205 I, SJCN, J/L-CMS D 0007, 0007,1740,2100 ; 6206 I, SJCG, J/L-CMS ; 6207 D 0010, 0001,1742,2100 ; 6208 010: I, B/1, J/L-DBIN ;CVTDBO D 0011, 0004,1742,2100 ; 6209 I, B/4, J/L-DBIN ;CVTDBT D 0012, 0001,1743,2100 ; 6210 I, B/1, J/L-BDEC ;CVTBDO D 0013, 0000,1743,2100 ; 6211 I, B/0, J/L-BDEC ;CVTBDT ; 6212 D 0014, 0001,1744,2100 ; 6213 014: I, B/1, J/L-MVS ;MOVSO D 0015, 0000,1744,2100 ; 6214 I, B/0, J/L-MVS ;MOVST D 0016, 0002,1744,2100 ; 6215 I, B/2, J/L-MVS ;MOVSLJ D 0017, 0003,1744,2100 ; 6216 I, B/3, J/L-MVS ;MOVSRJ ; 6217 D 0020, 0000,1746,2100 ; 6218 020: I, J/L-XBLT D 0021, 0000,1747,2100 ; 6219 I, J/L-SPARE-A D 0022, 0000,1750,2100 ; 6220 I, J/L-SPARE-B D 0023, 0000,1751,2100 ; 6221 I, B/0, J/L-SPARE-C D 0024, 0001,1751,2100 ; 6222 I, B/1, J/L-SPARE-C D 0025, 0002,1751,2100 ; 6223 I, B/2, J/L-SPARE-C D 0026, 0004,1751,2100 ; 6224 I, B/4, J/L-SPARE-C D 0027, 0010,1751,2100 ; 6225 I, B/10, J/L-SPARE-C ; 6226 .UCODE ; 6227 ; 6228 1740: U 1740, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6229 L-CMS: LUUO ; 6230 1741: U 1741, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6231 L-EDIT: LUUO ; 6232 1742: U 1742, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6233 L-DBIN: LUUO ; 6234 1743: U 1743, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6235 L-BDEC: LUUO ; 6236 1744: U 1744, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6237 L-MVS: LUUO ; 6238 1746: U 1746, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6239 L-XBLT: LUUO ; 6240 1747: U 1747, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6241 L-SPARE-A: LUUO ; 6242 1750: U 1750, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6243 L-SPARE-B: LUUO ; 6244 1751: U 1751, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 6245 L-SPARE-C: LUUO ; 6246 ; 6247 ;NOTE: WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE ; 6248 ; AT EXTEND DOES A RANGE CHECK. ; 6249 ; 6250 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 142 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- INSTRUCTION SET DECODING ; 6251 .TOC "EXTEND -- INSTRUCTION SET DECODING" ; 6252 ; 6253 ;EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES ; 6254 ; 1740-1747 IF NOT UNDER EXTEND ; 6255 ; 3740-3747 IF UNDER EXTEND ; 6256 ; 6257 .DCODE D 0123, 0000,1467,3100 ; 6258 123: I,READ/1, J/EXTEND ; 6259 .UCODE ; 6260 ; 6261 1467: U 1467, 1021,3771,0005,4365,5007,0700,0200,0000,0002 ; 6262 EXTEND: MEM READ, [BR]_MEM ;FETCH INSTRUCTION ; 6263 =0** TL [BR], #/760740, ;IN RANGE 0-17 (AND AC#=0) U 1021, 3556,4553,0500,4374,4007,0321,0010,0076,0740 ; 6264 CALL [BITCHK] ;TRAP IF NON-ZERO BITS FOUND ; 6265 [BRX]_[HR].AND.# CLR RH, ;SPLIT OUT AC NUMBER U 1025, 3147,4521,0206,4374,4007,0700,0000,0000,0740 ; 6266 #/000740 ; FROM EXTEND INSTRUCTION ; 6267 [BR]_[BR].OR.[BRX], ;LOAD IR AND AC # U 3147, 3150,3111,0605,4174,0417,0700,0000,0000,0000 ; 6268 HOLD RIGHT, LOAD IR ; .. ; 6269 READ [BR], LOAD BYTE EA, ;LOAD XR # U 3150, 3151,3333,0005,4174,4217,0700,0000,0000,0500 ; 6270 J/EXTEA0 ;COMPUTE E1 ; 6271 U 3151, 3152,3333,0003,7174,4007,0700,0400,0000,0240 ; 6272 EXTEA0: WORK[E0]_[AR] U 3152, 1170,4443,0000,2174,4006,6700,0000,0000,0000 ; 6273 EXTEA1: EA MODE DISP ; 6274 =100* U 1170, 1172,0551,0505,2270,4007,0700,0000,0000,0000 ; 6275 EXTEA: [BR]_[BR]+XR ; 6276 EXTDSP: [BR]_EA FROM [BR], LOAD VMA, U 1172, 1216,5741,0505,4174,4003,7700,0200,0000,0010 ; 6277 B DISP, J/EXTEXT U 1174, 3153,0551,0505,2270,4007,0700,0200,0004,0512 ; 6278 [BR]_[BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, J/EXTIND U 1176, 3153,3443,0500,4174,4007,0700,0200,0004,0512 ; 6279 VMA_[BR], START READ, PXCT EXTEND EA ; 6280 U 3153, 3152,3771,0005,4361,5217,0700,0200,0000,0502 ; 6281 EXTIND: MEM READ, [BR]_MEM, HOLD LEFT, LOAD BYTE EA, J/EXTEA1 ; 6282 ; 6283 ;HERE TO EXTEND SIGN FOR OFFSET MODES ; 6284 =1110 ; 6285 EXTEXT: WORK[E1]_[BR], ;SAVE E1 U 1216, 3400,3333,0005,7174,4001,2700,0400,0000,0241 ; 6286 DISP/DROM, J/3400 ;GO TO EXTENDED EXECUTE CODE U 1217, 1134,3333,0005,4174,4007,0530,0000,0000,0000 ; 6287 READ [BR], SKIP DP18 ;NEED TO EXTEND SIGN ; 6288 =0 WORK[E1]_[BR], ;POSITIVE U 1134, 3400,3333,0005,7174,4001,2700,0400,0000,0241 ; 6289 DISP/DROM, J/3400 ; 6290 [BR]_#, #/777777, HOLD RIGHT, ;NEGATIVE U 1135, 1216,3771,0005,4374,0007,0700,0000,0077,7777 ; 6291 J/EXTEXT ; 6292 ; 6293 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 143 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- MOVE STRING -- SETUP ; 6294 .TOC "EXTEND -- MOVE STRING -- SETUP" ; 6295 ; 6296 ;HERE TO MOVE A STRING ; 6297 ;COME HERE WITH: ; 6298 ; AR/ E0 ; 6299 ; BR/ E1 ; 6300 ; ; 6301 3744: ; 6302 MVS: [AR]_[AR]+1, ;GO FETCH FILL ; 6303 LOAD VMA, ; BYTE ; 6304 START READ, ; .. U 3744, 3346,0111,0703,4174,4007,0700,0210,0004,0012 ; 6305 CALL [GTFILL] ;SUBROUTINE TO COMPLETE U 3754, 1101,3771,0005,1276,6007,0701,0000,0000,1443 ; 6306 3754: [BR]_AC[DLEN] ;GET DEST LENGTH AND FLAGS ; 6307 =0** TL [BR], #/777000, ;ANY FLAGS SET? U 1101, 3556,4553,0500,4374,4007,0321,0010,0077,7000 ; 6308 CALL [BITCHK] ;SEE IF ILLEGAL U 1105, 1144,3771,0003,0276,6007,0700,0000,0000,0000 ; 6309 [AR]_AC ;GET SRC LENGTH AND FLAGS ; 6310 =0 [BRX]_[AR].AND.# CLR RH, ;COPY FLAGS TO BRX ; 6311 #/777000, ; .. U 1144, 3350,4521,0306,4374,4007,0700,0010,0077,7000 ; 6312 CALL [CLRFLG] ;CLEAR FLAGS IN AR ; 6313 ;NEW DLEN IS - ; 6314 AC[DLEN]_[AR]-[BR], 3T, ;COMPUTE DIFFERENCE U 1145, 1146,2113,0305,1174,4007,0521,4400,0000,1443 ; 6315 SKIP DP0 ;WHICH IS SHORTER? ; 6316 =0 [AR]_.NOT.[BR], ;DESTINATION U 1146, 3154,7441,0503,4174,4007,0700,0000,0000,0000 ; 6317 J/MVS1 ;GET NEGATIVE LENGTH U 1147, 3154,7441,0303,4174,4007,0700,0000,0000,0000 ; 6318 [AR]_.NOT.[AR] ;SOURCE ; 6319 MVS1: WORK[SLEN]_[AR], ; .. U 3154, 1234,3333,0003,7174,4003,7700,0400,0000,0242 ; 6320 B DISP ;SEE WHAT TYPE OF MOVE ; 6321 ;SLEN NOW HAS --1 ; 6322 =1100 U 1234, 1160,3771,0013,4370,4007,0700,0000,0000,0003 ; 6323 STATE_[SRC], J/MOVELP ;TRANSLATE--ALL SET U 1235, 3155,3771,0005,1276,6007,0701,0000,0000,1444 ; 6324 [BR]_AC[DSTP], J/MVSO ;OFFSET BUILD MASK ; 6325 [ARX]_[AR], ;LEFT JUSTIFY U 1236, 3175,3441,0304,4174,4007,0700,0000,0000,0000 ; 6326 J/MOVST0 ; .. ; 6327 [ARX]_AC[DLEN], ;RIGHT JUSTIFY ; 6328 SKIP DP0, 4T, ;WHICH IS SHORTER? U 1237, 1200,3771,0004,1276,6007,0522,0000,0000,1443 ; 6329 J/MOVRJ ; 6330 U 3155, 3156,3333,0005,4174,4007,0700,1000,0041,6020 ; 6331 MVSO: READ [BR], FE_S+2 ;GET DST BYTE SIZE U 3156, 1155,4222,0000,4174,4006,7701,1000,0041,1770 ; 6332 Q_0, BYTE STEP ;BUILD AN S BIT MASK ; 6333 =0* U 1155, 1155,4224,0003,4174,4026,7701,1000,0041,1770 ; 6334 MVSO1: GEN MSK [AR], BYTE STEP, J/MVSO1 U 1157, 3157,7221,0003,4174,4007,0700,0000,0000,0000 ; 6335 [AR]_.NOT.Q ;BITS WHICH MUST NOT BE SET ; 6336 WORK[MSK]_[AR].AND.[MASK], ;SAVE FOR SRCMOD U 3157, 1167,4113,0312,7174,4007,0700,0400,0000,0243 ; 6337 J/MOVLP0 ;GO ENTER LOOP ; 6338 ; 6339 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 144 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- MOVE STRING -- OFFSET/TRANSLATE ; 6340 .TOC "EXTEND -- MOVE STRING -- OFFSET/TRANSLATE" ; 6341 ; 6342 ;HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES ; 6343 =000 ; 6344 MOVELP: [AR]_WORK[SLEN]+1, ;UPDATE STRING LENGTH U 1160, 2104,0551,0703,7274,4007,0701,0010,0000,0242 ; 6345 CALL [SRCMOD] ;GET A SOURCE BYTE ; 6346 =001 [ARX]_[AR], SKIP DP0, ;(1) LENGTH EXHAUSTED U 1161, 1230,3441,0304,4174,4007,0520,0000,0000,0000 ; 6347 J/MOVST2 ; SEE IF FILL IS NEEDED ; 6348 =100 [AR]_-WORK[SLEN], ;(4) ABORT U 1164, 3160,1771,0003,7274,4007,0701,4000,0000,0242 ; 6349 J/MVABT ; .. ; 6350 STATE_[SRC+DST], ;(5) NORMAL--STORE DST BYTE U 1165, 3340,3771,0013,4370,4007,0700,0010,0000,0005 ; 6351 CALL [PUTDST] ; .. ; 6352 =111 U 1167, 1160,3771,0013,4370,4007,0700,0000,0000,0003 ; 6353 MOVLP0: STATE_[SRC], J/MOVELP ;(7) DPB DONE ; 6354 = ; 6355 ; 6356 ;HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE ; 6357 ; 6358 MVABT: [BR]_AC[DLEN], ;WHICH STRING IS LONGER U 3160, 1150,3771,0005,1276,6007,0522,0000,0000,1443 ; 6359 SKIP DP0, 4T ; 6360 =0 U 1150, 3161,3440,0303,1174,4007,0700,0400,0000,1443 ; 6361 MVABT1: AC[DLEN]_[AR], J/MVABT2 ;PUT AWAY DEST LEN ; 6362 [AR]_[AR]-[BR], ;DEST LEN WAS GREATER U 1151, 1150,1111,0503,4174,4007,0700,4000,0000,0000 ; 6363 J/MVABT1 ;STICK BACK IN AC ; 6364 U 3161, 3162,7771,0003,7274,4007,0701,0000,0000,0242 ; 6365 MVABT2: [AR]_.NOT.WORK[SLEN] ;GET UNDECREMENTED SLEN U 3162, 1162,3333,0005,4174,4007,0520,0000,0000,0000 ; 6366 READ [BR], SKIP DP0 ;NEED TO FIXUP SRC? U 1162, 1163,0111,0503,4174,4007,0700,0000,0000,0000 ; 6367 =0 [AR]_[AR]+[BR] ;SRC LONGER BY (DLEN) U 1163, 3163,3111,0603,4174,4007,0700,0000,0000,0000 ; 6368 MVEND: [AR]_[AR].OR.[BRX] ;PUT BACK SRC FLAGS U 3163, 1515,4221,0013,4170,4007,0700,0000,0000,0000 ; 6369 END STATE, J/STAC ;ALL DONE ; 6370 ; 6371 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 145 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- MOVE STRING -- MOVSRJ ; 6372 .TOC "EXTEND -- MOVE STRING -- MOVSRJ" ; 6373 ; 6374 =00 U 1200, 3164,3771,0003,1276,6007,0701,0000,0000,1441 ; 6375 MOVRJ: [AR]_AC[SRCP], J/MVSKP ;SRC LONGER, SKIP OVER SOME ; 6376 STATE_[DSTF], ;DST LONGER, FILL IT U 1201, 2103,3771,0013,4370,4007,0700,0010,0000,0006 ; 6377 CALL [MOVFIL] ; .. ; 6378 =11 [ARX]_WORK[SLEN]+1, ;DONE FILLING U 1203, 3176,0551,0704,7274,4007,0701,0000,0000,0242 ; 6379 J/MOVST1 ;GO MOVE STRING ; 6380 ; 6381 ;HERE TO SKIP OVER EXTRA SOURCE BYTES ; 6382 MVSKP: AC[SRCP]_[AR], ;PUT POINTER BACK U 3164, 1204,3440,0303,1174,4007,0670,0400,0000,1441 ; 6383 SKIP -1MS ;[121] Is there a timer interrupt? U 1204, 3167,3333,0003,7174,4007,0700,0400,0000,0211 ; 6384 =0 WORK[SV.AR]_[AR], J/MVSK2 ;[121][123] Yes, save regs for interrupt. ; 6385 [ARX]_[ARX]-1, 3T, ;DONE SKIPPING? U 1205, 1206,1111,0704,4174,4007,0521,4000,0000,0000 ; 6386 SKIP DP0 ; 6387 =0 IBP DP, IBP SCAD, ;NO--START THE IBP ; 6388 SCAD DISP, SKIP IRPT, ;4-WAY DISPATCH U 1206, 1210,3770,0305,4334,4016,7371,0000,0033,6000 ; 6389 3T, J/MVSKP1 ;GO BUMP POINTER ; 6390 AC[DLEN]_0, ;LENGTHS ARE NOW EQUAL U 1207, 1226,4223,0000,1174,4007,0700,0400,0000,1443 ; 6391 J/MOVST4 ;GO MOVE STRING ; 6392 ; 6393 =00 U 1210, 3164,3441,0503,4174,4007,0700,0000,0000,0000 ; 6394 MVSKP1: [AR]_[BR], J/MVSKP ;NO OVERFLOW ; 6395 [AR]_.NOT.WORK[SLEN], ;INTERRUPT [121] or timer U 1211, 3165,7771,0003,7274,4007,0701,0000,0000,0242 ; 6396 J/MVSK3 ; .. ; 6397 SET P TO 36-S, ;WORD OVERFLOW U 1212, 3166,3770,0503,4334,4017,0700,0000,0032,6000 ; 6398 J/MVSKP2 ;FIXUP Y U 1213, 3165,7771,0003,7274,4007,0701,0000,0000,0242 ; 6399 [AR]_.NOT.WORK[SLEN] ;INTERRUPT U 3165, 1214,3440,0303,1174,4007,0700,0400,0000,1443 ; 6400 MVSK3: AC[DLEN]_[AR] ;RESET DLEN ; 6401 =0 [AR]_[AR]+[ARX], U 1214, 3551,0111,0403,4174,4007,0700,0010,0000,0000 ; 6402 CALL [INCAR] ;ADD 1 TO AR ; 6403 AC_[AR].OR.[BRX], ;PUT BACK FLAGS U 1215, 3602,3113,0306,0174,4007,0700,0400,0000,0000 ; 6404 J/ITRAP ;DO INTERRUPT TRAP ; 6405 ; 6406 MVSKP2: [AR]_[AR]+1, HOLD LEFT, ;BUMP Y U 3166, 3164,0111,0703,4170,4007,0700,0000,0000,0000 ; 6407 J/MVSKP ;KEEP GOING ; 6408 ; 6409 ;BEGIN EDIT [123] U 3167, 3170,3333,0005,7174,4007,0700,0400,0000,0213 ; 6410 MVSK2: WORK[SV.BR]_[BR] ;SAVE ALL U 3170, 3171,3333,0004,7174,4007,0700,0400,0000,0212 ; 6411 WORK[SV.ARX]_[ARX] ;THE REGISTERS U 3171, 1171,3333,0006,7174,4007,0700,0400,0000,0214 ; 6412 WORK[SV.BRX]_[BRX] ;FOR THE TICK U 1171, 3442,4443,0000,4174,4007,0700,0010,0000,0000 ; 6413 =0* CALL [TICK] ;UPDATE CLOCK AND SET INTERUPT U 1173, 3172,3771,0003,7274,4007,0701,0000,0000,0211 ; 6414 [AR]_WORK[SV.AR] ;NOW PUT U 3172, 3173,3771,0005,7274,4007,0701,0000,0000,0213 ; 6415 [BR]_WORK[SV.BR] ;THEM ALL U 3173, 3174,3771,0004,7274,4007,0701,0000,0000,0212 ; 6416 [ARX]_WORK[SV.ARX] ;BACK SO WE ; 6417 [BRX]_WORK[SV.BRX], ;CAN CONTINUE U 3174, 3164,3771,0006,7274,4007,0701,0000,0000,0214 ; 6418 J/MVSKP ; 6419 ;END EDIT [123] ; 6420 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 146 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP ; 6421 .TOC "EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP" ; 6422 ; 6423 ;HERE FOR NO-MODIFICATION STRING MOVES U 3175, 3176,0111,0704,4174,4007,0700,0000,0000,0000 ; 6424 MOVST0: [ARX]_[ARX]+1 ;CANT DO [ARX]_[AR]+1 U 3176, 1220,3771,0013,4370,4007,0700,0000,0000,0003 ; 6425 MOVST1: STATE_[SRC] ;PREPARE FOR PAGE FAIL ; 6426 =000 ; 6427 WORK[SLEN]_[ARX], ;GO GET A SOURCE BYTE U 1220, 2142,3333,0004,7174,4007,0520,0410,0000,0242 ; 6428 SKIP DP0, CALL [GSRC] ; .. ; 6429 MOVSTX: [ARX]_[AR], ;SHORT STRING RAN OUT U 1221, 1230,3441,0304,4174,4007,0520,0000,0000,0000 ; 6430 SKIP DP0, J/MOVST2 ;GO SEE IF FILL NEEDED ; 6431 =010 STATE_[SRC+DST], ;WILL NEED TO BACK UP BOTH POINTERS U 1222, 3340,3771,0013,4370,4007,0700,0010,0000,0005 ; 6432 CALL [PUTDST] ;STORE BYTE ; 6433 =110 ; 6434 MOVST4: [ARX]_WORK[SLEN]+1, ;COUNT DOWN LENGTH U 1226, 3176,0551,0704,7274,4007,0701,0000,0000,0242 ; 6435 J/MOVST1 ;LOOP OVER STRING ; 6436 = ; 6437 =00 U 1230, 3177,4223,0000,1174,4007,0700,0400,0000,1443 ; 6438 MOVST2: AC[DLEN]_0, J/MOVST3 ;CLEAR DEST LEN, REBUILD SRC U 1231, 2103,3771,0013,4370,4007,0700,0010,0000,0004 ; 6439 STATE_[DST], CALL [MOVFIL] ;FILL OUT DEST U 1233, 1313,3440,0606,0174,4007,0700,0400,0000,0000 ; 6440 =11 AC_[BRX], J/ENDSKP ;ALL DONE ; 6441 U 3177, 3200,3113,0406,0174,4007,0700,0400,0000,0000 ; 6442 MOVST3: AC_[ARX].OR.[BRX] ;REBUILD SRC U 3200, 0172,4221,0013,4170,4007,0700,0000,0000,0000 ; 6443 END STATE, J/SKIPE ; .. ; 6444 ; 6445 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 147 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- COMPARE STRING ; 6446 .TOC "EXTEND -- COMPARE STRING" ; 6447 ; 6448 3740: U 3740, 1103,3771,0004,1276,6007,0701,0000,0000,1443 ; 6449 CMS: [ARX]_AC[DLEN] ;GET DEST LEN U 1103, 3556,4553,0400,4374,4007,0321,0010,0077,7000 ; 6450 =0** TL [ARX], #/777000, CALL [BITCHK] U 1107, 1223,3771,0006,0276,6007,0700,0000,0000,0000 ; 6451 [BRX]_AC ;GET SRC LEN U 1223, 3556,4553,0600,4374,4007,0321,0010,0077,7000 ; 6452 =0** TL [BRX], #/777000, CALL [BITCHK] U 1227, 1224,2113,0604,4174,4007,0521,4000,0000,0000 ; 6453 [BRX]-[ARX], 3T, SKIP DP0 ;WHICH STRING IS LONGER? U 1224, 1225,0111,0703,4174,4007,0700,0000,0000,0000 ; 6454 =0 [AR]_[AR]+1 ;SRC STRING IS LONGER U 1225, 1240,0111,0703,4170,4007,0700,0200,0004,0012 ; 6455 VMA_[AR]+1, START READ ;DST STRING ; 6456 =0 [AR]_0, ;FORCE FIRST COMPARE TO BE ; 6457 ;EQUAL U 1240, 3546,4221,0003,4174,4007,0700,0010,0000,0000 ; 6458 CALL [LOADQ] ;PUT FILL INTO Q ; 6459 WORK[FILL]_Q, ;SAVE FILLER U 1241, 3210,3223,0000,7174,4007,0700,0400,0000,0244 ; 6460 J/CMS2 ;ENTER LOOP ; 6461 ; 6462 ;HERE IS THE COMPARE LOOP. ; 6463 ; ARX/ CONATINS REMAINING DEST LENGTH ; 6464 ; BRX/ CONTAINS REMAINING SOURCE LENGTH ; 6465 =0 ; 6466 CMS3: ;BYTES ARE NOT EQUAL ; 6467 END STATE, ;NO MORE SPECIAL PAGE FAIL ACTION U 1242, 0170,4221,0013,4170,4003,7700,0000,0000,0000 ; 6468 SKIP-COMP DISP ;SEE SKIP-COMP-TABLE U 1243, 3201,3771,0003,1276,6007,0701,0000,0000,1441 ; 6469 CMS4: [AR]_AC[SRCP] ;GET BYTE POINTER U 3201, 1244,3333,0006,4174,4007,0520,0000,0000,0000 ; 6470 READ [BRX], SKIP DP0 ;MORE IN SOURCE STRING? ; 6471 =00 STATE_[EDIT-SRC], ;PREPARE FOR PAGE FAIL U 1244, 2143,3771,0013,4370,4007,0700,0010,0000,0011 ; 6472 CALL [GETSRC] ; GO GET BYTE ; 6473 READ [ARX], SKIP DP0, ;NO MORE SRC--SEE IF MORE DEST U 1245, 1254,3333,0004,4174,4007,0520,0000,0000,0000 ; 6474 J/CMS5 ; .. U 1246, 3202,3333,0003,7174,4007,0700,0400,0000,0245 ; 6475 WORK[CMS]_[AR] ;SAVE SRC BYTE ; 6476 = U 3202, 3203,3440,0606,0174,4007,0700,0400,0000,0000 ; 6477 AC_[BRX] ;PUT BACK SRC LEN U 3203, 3204,3771,0013,4370,4007,0700,0000,0000,0010 ; 6478 STATE_[COMP-DST] ;HAVE TO BACK UP IF DST FAILS U 3204, 1250,3333,0004,4174,4007,0520,0000,0000,0000 ; 6479 READ [ARX], SKIP DP0 ;ANY MORE DEST? ; 6480 =00 U 1250, 1256,4443,0000,4174,4007,0700,0010,0000,0000 ; 6481 CMS6: CALL [CMPDST] ;MORE DEST BYTES ; 6482 [AR]_WORK[FILL], ;OUT OF DEST BYTES U 1251, 3205,3771,0003,7274,4007,0701,0000,0000,0244 ; 6483 J/CMS7 ;GO DO COMPARE U 1252, 3205,3440,0404,1174,4007,0700,0400,0000,1443 ; 6484 AC[DLEN]_[ARX] ;GOT A BYTE, UPDATE LENGTH ; 6485 = ; 6486 CMS7: [AR]_[AR].AND.[MASK], ;MAKE MAGNITUDES U 3205, 3206,4111,1203,7174,4007,0700,0000,0000,0245 ; 6487 WORK[CMS] ;WARM UP RAM U 3206, 3207,4551,1205,7274,4007,0700,0000,0000,0245 ; 6488 [BR]_[MASK].AND.WORK[CMS], 2T ;GET SRC MAGNITUDE U 3207, 3210,2111,0503,4174,4007,0700,4000,0000,0000 ; 6489 [AR]_[BR]-[AR] REV ;UNSIGNED COMPARE U 3210, 3211,1111,0704,4174,4007,0700,4000,0000,0000 ; 6490 CMS2: [ARX]_[ARX]-1 ;UPDATE LENGTHS U 3211, 3212,1111,0706,4174,4007,0700,4000,0000,0000 ; 6491 [BRX]_[BRX]-1 ; .. U 3212, 1242,3333,0003,4174,4007,0621,0000,0000,0000 ; 6492 READ [AR], SKIP AD.EQ.0, J/CMS3 ;SEE IF EQUAL ; 6493 ; 6494 =0 U 1254, 3213,3772,0000,7274,4007,0701,0000,0000,0244 ; 6495 CMS5: Q_WORK[FILL], J/CMS8 ;MORE DST--GET SRC FILL U 1255, 1242,4221,0003,4174,4007,0700,0000,0000,0000 ; 6496 [AR]_0, J/CMS3 ;STRINGS ARE EQUAL U 3213, 3214,3771,0013,4370,4007,0700,0000,0000,0012 ; 6497 CMS8: STATE_[EDIT-DST] ;JUST DST POINTER ON PAGE FAIL U 3214, 1250,3223,0000,7174,4007,0700,0400,0000,0245 ; 6498 WORK[CMS]_Q, J/CMS6 ;MORE DST--SAVE SRC FILL ; 6499 ; 6500 =0 ; 6501 CMPDST: [AR]_AC[DSTP], ;GET DEST POINTER U 1256, 3341,3771,0003,1276,6007,0701,0010,0000,1444 ; 6502 CALL [IDST] ;UPDATE IT ; 6503 READ [AR], ;LOOK AT BYTE POINTER ; 6504 FE_FE.AND.S#, S#/0770, ;MASK OUT BIT 6 U 1257, 0550,3333,0003,4174,4006,5701,1000,0051,0770 ; 6505 BYTE DISP, J/LDB1 ;GO LOAD BYTE ; 6506 ; 6507 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 148 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6508 .TOC "EXTEND -- DECIMAL TO BINARY CONVERSION" ; 6509 ; 6510 3742: U 3742, 3215,4571,1203,4374,4007,0700,0000,0077,7777 ; 6511 DBIN: [AR]_[777777] XWD 0 ;IF WE ARE IN OFFSET MODE U 3215, 3216,3333,0003,7174,4007,0700,0400,0000,0243 ; 6512 WORK[MSK]_[AR] ; ONLY ALLOW 18 BITS ; 6513 ;RANGE CHECKED (0-10) LATER U 3216, 3217,3771,0003,0276,6007,0700,0000,0000,0000 ; 6514 [AR]_AC ;GET SRC LENGTH ; 6515 [BRX]_[AR].AND.# CLR RH, ;SPLIT OUT FLAGS U 3217, 1175,4521,0306,4374,4007,0700,0000,0077,7000 ; 6516 #/777000 ; .. ; 6517 =0* [ARX]_AC[BIN1], ;GET LOW WORD U 1175, 1572,3771,0004,1276,6007,0701,0010,0000,1444 ; 6518 CALL [CLARX0] ;CLEAR BIT 0 OF ARX U 1177, 1260,3440,0404,1174,4007,0700,0400,0000,1444 ; 6519 AC[BIN1]_[ARX] ;STORE BACK ; 6520 =0 READ [BRX], SKIP DP0, ;IS S ALREADY SET? U 1260, 1326,3333,0006,4174,4007,0520,0010,0000,0000 ; 6521 CALL [CLRBIN] ;GO CLEAR BIN IF NOT ; 6522 [AR]_[AR].AND.#, ;CLEAR FLAGS FROM LENGTH ; 6523 #/000777, HOLD RIGHT, ; .. U 1261, 1276,4551,0303,4374,0003,7700,0000,0000,0777 ; 6524 B DISP ;SEE IF OFFSET OR TRANSLATE ; 6525 =1110 U 1276, 3220,3771,0013,4370,4007,0700,0000,0000,0007 ; 6526 DBIN1: STATE_[CVTDB], J/DBIN2 ;TRANSLATE--LEAVE S ALONE ; 6527 [BRX]_[BRX].OR.#, ;OFFSET--FORCE S TO 1 ; 6528 #/400000, HOLD RIGHT, U 1277, 1276,3551,0606,4374,0007,0700,0000,0040,0000 ; 6529 J/DBIN1 U 3220, 1262,7333,0003,7174,4007,0700,0400,0000,0242 ; 6530 DBIN2: WORK[SLEN]_.NOT.[AR] ;STORE -SLEN-1 ; 6531 ; 6532 ;HERE IS THE MAIN LOOP ; 6533 =0*0 U 1262, 2104,0551,0703,7274,4007,0701,0010,0000,0242 ; 6534 DBINLP: [AR]_WORK[SLEN]+1, CALL [SRCMOD] ;(0) GET MODIFIED SRC BYTE ; 6535 TL [BRX], #/100000, ;(1) DONE, IS M SET? U 1263, 1304,4553,0600,4374,4007,0321,0000,0010,0000 ; 6536 J/DBXIT ; 6537 [AR]_.NOT.WORK[SLEN], ;(4) ABORT U 1266, 3225,7771,0003,7274,4007,0701,0000,0000,0242 ; 6538 J/DBABT ; .. ; 6539 [AR]-#, #/10., ;(5) NORMAL--SEE IF 0-9 U 1267, 1264,1553,0300,4374,4007,0532,4000,0000,0012 ; 6540 4T, SKIP DP18 ; .. ; 6541 =0 [AR]_.NOT.WORK[SLEN], ;DIGIT TOO BIG U 1264, 3225,7771,0003,7274,4007,0701,0000,0000,0242 ; 6542 J/DBABT ;GO ABORT CVT ; 6543 ; 6544 ;HERE TO ADD IN A DIGIT ; 6545 [BR]_AC[BIN0], 4T, ;GET HIGH BINARY U 1265, 1270,3771,0005,1276,6007,0622,0000,0000,1443 ; 6546 SKIP AD.EQ.0 ;SEE IF SMALL ; 6547 =00 ; 6548 DBSLO: [ARX]_AC[BIN1], ;TOO BIG U 1270, 1310,3771,0004,1276,6007,0701,0010,0000,1444 ; 6549 CALL [DBSLOW] ;GO USE DOUBLE PRECISION PATHS ; 6550 [BR]_AC[BIN1], ;GET LOW WORD U 1271, 3221,3771,0005,1276,6007,0701,0000,0000,1444 ; 6551 J/DBFAST ;MIGHT FIT IN 1 WORD U 1272, 1262,4443,0000,4174,4007,0700,0000,0000,0000 ; 6552 J/DBINLP ;RETURN FROM DBSLOW ; 6553 ;GO DO NEXT DIGIT ; 6554 = U 3221, 1274,4553,0500,4374,4007,0321,0000,0076,0000 ; 6555 DBFAST: TL [BR], #/760000 ;WILL RESULT FIT IN 36 BITS? U 1274, 1270,4443,0000,4174,4007,0700,0000,0000,0000 ; 6556 =0 J/DBSLO ;MAY NOT FIT--USE DOUBLE WORD U 1275, 3222,3775,0005,1276,6007,0701,0000,0000,1444 ; 6557 [BR]_AC[BIN1]*2 ;COMPUTE AC*2 U 3222, 1300,3445,0505,1174,4007,0700,0000,0000,1444 ; 6558 [BR]_[BR]*2, AC[BIN1] ;COMPUTE AC*4 ; 6559 =0 [BR]_[BR]+AC[BIN1], 2T, ;COMPUTE AC*5 U 1300, 3552,0551,0505,1274,4007,0700,0010,0000,1444 ; 6560 CALL [SBRL] ;COMPUTE AC*10 ; 6561 AC[BIN1]_[AR]+[BR], 3T, ;NEW BINARY RESULT U 1301, 1262,0113,0305,1174,4007,0701,0400,0000,1444 ; 6562 J/DBINLP ;DO NEXT DIGIT ; 6563 ; 6564 ;HERE IF NUMBER DOES NOT FIT IN ONE WORD ; 6565 ; 6566 =000 ; 6567 DBSLOW: [BR]_AC[BIN0], ;FETCH HIGH WORD U 1310, 1330,3771,0005,1276,6007,0701,0010,0000,1443 ; 6568 CALL [MULBY4] ;MULTIPLY BY 4 ; 6569 [ARX]_[ARX]+AC[BIN1], ;COMPUTE VALUE * 5 ; 6570 SKIP CRY1, 4T, ;SEE IF OVERFLOW U 1311, 1302,0551,0404,1274,4007,0562,0010,0000,1444 ; 6571 CALL [ADDCRY] ;GO ADD CARRY U 1315, 1320,0551,0505,1274,4007,0701,0000,0000,1443 ; 6572 =101 [BR]_[BR]+AC[BIN0] ;ADD IN HIGH WORD ; 6573 = U 1320, 1331,4443,0000,4174,4007,0700,0010,0000,0000 ; 6574 =000 CALL [DBLDBL] ;MAKE * 10 ; 6575 [ARX]_[ARX]+[AR], 3T, ;ADD IN NEW DIGIT ; 6576 SKIP CRY1, ;SEE IF OVERFLOW U 1321, 1302,0111,0304,4174,4007,0561,0010,0000,0000 ; 6577 CALL [ADDCRY] ;ADD IN THE CARRY U 1325, 3223,3440,0404,1174,4007,0700,0400,0000,1444 ; 6578 =101 AC[BIN1]_[ARX] ;PUT BACK ANSWER ; 6579 = ; 6580 AC[BIN0]_[BR], ; .. U 3223, 0002,3440,0505,1174,4004,1700,0400,0000,1443 ; 6581 RETURN [2] ;GO DO NEXT BYTE ; 6582 ; 6583 ;HERE TO DOUBLE BR!ARX ; 6584 =000 U 1330, 1331,4443,0000,4174,4007,0700,0010,0000,0000 ; 6585 MULBY4: CALL [DBLDBL] ;DOUBLE TWICE U 1331, 1332,0111,0505,4174,4007,0700,0000,0000,0000 ; 6586 DBLDBL: [BR]_[BR]+[BR] ;DOUBLE HIGH WORD FIRST ; 6587 ;(SO WE DON'T DOUBLE CARRY) ; 6588 [ARX]_[ARX]+[ARX], ;DOUBLE LOW WORD ; 6589 SKIP CRY1, 3T, ;SEE IF CARRY U 1332, 1302,0111,0404,4174,4007,0561,0010,0000,0000 ; 6590 CALL [ADDCRY] ;ADD IN CARRY U 1336, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 6591 =110 RETURN [1] ;ALL DONE ; 6592 = ; 6593 ; 6594 ;HERE TO ADD THE CARRY ; 6595 =0 U 1302, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 6596 ADDCRY: RETURN [4] ;NO CARRY U 1303, 3224,4551,0404,4374,0007,0700,0000,0037,7777 ; 6597 CLEAR [ARX]0 ;KEEP LOW WORD POSITIVE ; 6598 [BR]_[BR]+1, ;ADD CARRY U 3224, 0004,0111,0705,4174,4004,1700,0000,0000,0000 ; 6599 RETURN [4] ;ALL DONE ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 149 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6600 ; 6601 ;HERE TO ABORT CONVERSION U 3225, 3226,3111,0306,4174,4007,0700,0000,0000,0000 ; 6602 DBABT: [BRX]_[BRX].OR.[AR] ;PUT BACK UNUSED LENGTH ; 6603 [PC]_[PC]-1, HOLD LEFT, ;DO NOT SKIP U 3226, 1305,1111,0701,4170,4007,0700,4000,0000,0000 ; 6604 J/DBDONE ;GO FIX UP SIGN COPY ; 6605 ; 6606 ;HERE AT END ; 6607 =0 ; 6608 DBXIT: [ARX]_AC[BIN1], ;GET LOW WORD U 1304, 3231,3771,0004,1276,6007,0701,0000,0000,1444 ; 6609 J/DBNEG ;GO NEGATE U 1305, 3227,3771,0003,1276,6007,0701,0000,0000,1444 ; 6610 DBDONE: [AR]_AC[BIN1] ;FETCH LOW WORD ; 6611 [BR]_AC[BIN0], 4T, ;GET HIGH WORD U 3227, 1306,3771,0005,1276,6007,0522,0000,0000,1443 ; 6612 SKIP DP0 ;WHAT SIGN U 1306, 3230,4551,0303,4374,0007,0700,0000,0037,7777 ; 6613 =0 CLEAR [AR]0, J/DBDN1 ;POSITIVE U 1307, 3230,3551,0303,4374,0007,0700,0000,0040,0000 ; 6614 [AR]_[AR].OR.#, #/400000, HOLD RIGHT U 3230, 1312,3440,0303,1174,4007,0700,0400,0000,1444 ; 6615 DBDN1: AC[BIN1]_[AR] ;STORE AC BACK ; 6616 =0 AC_[BRX] TEST, ;RETURN FLAGS U 1312, 1326,3770,0606,0174,4007,0520,0410,0000,0000 ; 6617 SKIP DP0, CALL [CLRBIN] ;CLEAR BIN IS S=0 U 1313, 0014,4221,0013,4170,4007,0700,0000,0000,0000 ; 6618 ENDSKP: END STATE, J/SKIP ;NO--ALL DONE ; 6619 U 3231, 3232,4551,0404,4374,0007,0700,0000,0037,7777 ; 6620 DBNEG: CLEAR ARX0 ;CLEAR EXTRA SIGN BIT ; 6621 [ARX]_-[ARX], 3T, ;NEGATE AND SEE IF U 3232, 1316,2441,0404,1174,4007,0621,4000,0000,1443 ; 6622 SKIP AD.EQ.0, AC[BIN0] ; ANY CARRY U 1316, 1323,7771,0003,1274,4007,0700,0000,0000,1443 ; 6623 =0 [AR]_.NOT.AC[BIN0], 2T, J/STAC34 ;NO CARRY ; 6624 [AR]_-AC[BIN0], 3T, ;CARRY U 1317, 1322,1771,0003,1274,4007,0621,4000,0000,1443 ; 6625 SKIP AD.EQ.0 ;SEE IF ALL ZERO U 1322, 1323,4571,1204,4374,4007,0700,0000,0040,0000 ; 6626 =0 [ARX]_[400000] XWD 0 ;MAKE COPY OF SIGN ; 6627 ; UNLESS HIGH WORD IS ZERO U 1323, 3233,3440,0303,1174,4007,0700,0400,0000,1443 ; 6628 STAC34: AC[BIN0]_[AR] ;PUT BACK ANSWER U 3233, 1305,3440,0404,1174,4007,0700,0400,0000,1444 ; 6629 AC[BIN1]_[ARX], J/DBDONE ; .. ; 6630 ; 6631 ;HELPER SUBROUTINE TO CLEAR AC[BIN0] AND AC[BIN1] IF S=0 ; 6632 ;CALL WITH: ; 6633 ; READ [BRX], SKIP DP0, CALL [CLRBIN] ; 6634 ;RETURNS 1 ALWAYS ; 6635 =0 U 1326, 3234,4223,0000,1174,4007,0700,0400,0000,1443 ; 6636 CLRBIN: AC[BIN0]_0, J/CLRB1 U 1327, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 6637 RETURN [1] U 3234, 0001,4223,0000,1174,4004,1700,0400,0000,1444 ; 6638 CLRB1: AC[BIN1]_0, RETURN [1] ; 6639 ; 6640 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 150 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6641 .TOC "EXTEND -- BINARY TO DECIMAL CONVERSION" ; 6642 ; 6643 3743: ; 6644 BDEC: [BRX]_AC[DLEN], ;GET LENGTH AND FLAGS U 3743, 1334,3771,0006,1276,6007,0351,0000,0000,1443 ; 6645 SKIP FPD ;CONTINUE FROM INTERUPT? ; 6646 =0 [BRX]_[BRX].AND.#, ;JUST KEEP THE FLAGS ; 6647 #/777000, ; .. U 1334, 3235,4551,0606,4374,4007,0700,0000,0077,7000 ; 6648 J/BDEC0 ;COMPUTE NEW FLAGS U 1335, 3253,3771,0003,0276,6007,0700,0000,0000,0000 ; 6649 DOCVT: [AR]_AC, J/DOCVT1 ;ALL SET PRIOR TO TRAP U 3235, 3236,3771,0004,1276,6007,0701,0000,0000,1441 ; 6650 BDEC0: [ARX]_AC[1] ;GET LOW BINARY U 3236, 1340,3771,0003,0276,6007,0700,2000,0071,0024 ; 6651 [AR]_AC, SC_20. ;GET HIGH WORD, SET STEP COUNT ; 6652 =0* WORK[BDL]_[ARX], ;SAVE IN CASE OF ABORT U 1340, 1572,3333,0004,7174,4007,0700,0410,0000,0250 ; 6653 CALL [CLARX0] ;MAKE SURE BIT 0 IS OFF ; 6654 WORK[BDH]_[AR], ;SAVE HIGH WORD AND U 1342, 1344,3333,0003,7174,4007,0520,0400,0000,0247 ; 6655 SKIP DP0 ; TEST SIGN ; 6656 =0 ; 6657 BDEC1: [BRX]_0, HOLD LEFT, ;POSITIVE, CLEAR RH OF BRX U 1344, 1350,4221,0006,4170,4007,0700,0000,0000,0000 ; 6658 J/BDEC3 ;COMPUTE # OF DIGITS REQUIRED ; 6659 [BRX]_[BRX].OR.#, ;NEGATIVE, SET M U 1345, 1341,3551,0606,4374,0007,0700,0000,0010,0000 ; 6660 #/100000, HOLD RIGHT ; .. ; 6661 =0* U 1341, 2737,4551,0404,4374,0007,0700,0010,0037,7777 ; 6662 BDEC2: CLEAR ARX0, CALL [DBLNG1] ;NEGATE AR!ARX ; 6663 AC_[AR] TEST, ;PUT BACK ANSWER U 1343, 1346,3770,0303,0174,4007,0520,0400,0000,0000 ; 6664 SKIP DP0 ;IF STILL MINUS WE HAVE ; 6665 ; 1B0, AND NO OTHER BITS U 1346, 1344,3440,0404,1174,4007,0700,0400,0000,1441 ; 6666 =0 AC[1]_[ARX], J/BDEC1 ;POSITIVE NOW U 1347, 3237,0111,0704,4174,4007,0700,0000,0000,0000 ; 6667 [ARX]_[ARX]+1 ;JUST 1B0--ADD 1 ; 6668 [BRX]_[BRX].OR.#, ;AND REMEMBER THAT WE DID ; 6669 #/040000, HOLD RIGHT, ; IN LEFT HALF OF AC+3 U 3237, 1341,3551,0606,4374,0007,0700,0000,0004,0000 ; 6670 J/BDEC2 ; NEGATE IT AGAIN ; 6671 =0 U 1350, 1361,3771,0003,0276,6007,0700,0000,0000,0000 ; 6672 BDEC3: [AR]_AC, J/BDEC4 ;GET HIGH AC ; 6673 [BRX]_[BRX].OR.#, ;NO LARGER POWER OF 10 FITS ; 6674 #/200000, ;SET N FLAG (CLEARLY NOT 0) U 1351, 1354,3551,0606,4374,0007,0700,0000,0020,0000 ; 6675 HOLD RIGHT, J/BDEC5 ;SETUP TO FILL, ETC. ; 6676 =001 ; 6677 BDEC4: [ARX]_AC[1], ;GET HIGH WORD U 1361, 1512,3771,0004,1276,6007,0701,0010,0000,1441 ; 6678 CALL [BDSUB] ;SEE IF 10**C(BRX) FITS ; 6679 =011 [BRX]_[BRX]+1, ;NUMBER FITS--TRY A LARGER ONE U 1363, 1350,0111,0706,4174,4007,0630,2000,0060,0000 ; 6680 STEP SC, J/BDEC3 ;UNLESS WE ARE OUT OF NUMBERS U 1367, 1352,4553,0600,4374,4007,0331,0000,0077,7777 ; 6681 =111 TR [BRX], #/777777 ;ANY DIGITS REQUIRED? ; 6682 = ; 6683 =0 [BRX]_[BRX].OR.#, ;SOME DIGITS NEEDED, ; 6684 #/200000, HOLD RIGHT, ; SET N FLAG U 1352, 1354,3551,0606,4374,0007,0700,0000,0020,0000 ; 6685 J/BDEC5 ;CONTINUE BELOW U 1353, 1354,0111,0706,4174,4007,0700,0000,0000,0000 ; 6686 [BRX]_[BRX]+1 ;ZERO--FORCE AT LEAST 1 DIGIT ; 6687 ; 6688 =0 ; 6689 BDEC5: [AR]_AC[DLEN], ;GET LENGTH U 1354, 3350,3771,0003,1276,6007,0701,0010,0000,1443 ; 6690 CALL [CLRFLG] ;REMOVE FLAGS FROM AR U 1355, 3240,4221,0005,4174,4007,0700,0000,0000,0000 ; 6691 [BR]_0 U 3240, 3241,3441,0605,4170,4007,0700,0000,0000,0000 ; 6692 [BR]_[BRX], HOLD LEFT ;GET # OF DIGITS NEEDED ; 6693 [BR]_[BR]-[AR], ;NUMBER OF FILLS NEEDED U 3241, 1356,1111,0305,4174,4007,0421,4000,0000,0000 ; 6694 SKIP AD.LE.0 ;SEE IF ENOUGH ROOM ; 6695 =0 [ARX]_WORK[BDL], ;DOES NOT FIT IN SPACE ALLOWED U 1356, 3263,3771,0004,7274,4007,0701,0000,0000,0250 ; 6696 J/BDABT ; DO NOT DO CONVERT U 1357, 1364,3333,0006,4174,4007,0520,0000,0000,0000 ; 6697 READ [BRX], SKIP DP0 ;IS L ALREADY SET ; 6698 =0 AC[DLEN]_[BRX], ;NO--NO FILLERS U 1364, 1335,3440,0606,1174,4007,0700,0400,0000,1443 ; 6699 J/DOCVT ;GO CHURN OUT THE NUMBER ; 6700 ; 6701 ; 6702 ;HERE TO STORE LEADING FILLERS U 1365, 3242,3441,0603,4174,0007,0700,0000,0000,0000 ; 6703 [AR]_[BRX], HOLD RIGHT ;MAKE SURE THE FLAGS GET SET U 3242, 3243,3440,0303,1174,4007,0700,0400,0000,1443 ; 6704 AC[DLEN]_[AR] ; BEFORE WE PAGE FAIL U 3243, 3244,3771,0003,7274,4007,0701,0000,0000,0240 ; 6705 [AR]_WORK[E0] ;ADDRESS OF FILL (-1) ; 6706 [AR]_[AR]+1, LOAD VMA, ;FETCH FILLER U 3244, 3245,0111,0703,4174,4007,0700,0200,0004,0012 ; 6707 START READ U 3245, 3246,3771,0016,4365,5007,0700,0200,0000,0002 ; 6708 MEM READ, [T0]_MEM ;GET FILLER INTO AR U 3246, 3247,3771,0013,4370,4007,0700,0000,0000,0012 ; 6709 STATE_[EDIT-DST] ;PAGE FAILS BACKUP DST U 3247, 3250,2113,0507,7174,4007,0701,4400,0000,0242 ; 6710 WORK[SLEN]_[BR]-1, 3T ;SAVE # OF FILLERS U 3250, 3251,3441,1603,7174,4007,0700,0000,0000,0242 ; 6711 BDFILL: [AR]_[T0], WORK[SLEN] ;RESTORE FILL BYTE AND ; 6712 ; WARM UP RAM FILE ; 6713 [BR]_WORK[SLEN]+1, 3T, ;MORE FILLERS NEEDED? U 3251, 1370,0551,0705,7274,4007,0521,0000,0000,0242 ; 6714 SKIP DP0 U 1370, 1335,3440,0606,1174,4007,0700,0400,0000,1443 ; 6715 =000 AC[DLEN]_[BRX], J/DOCVT ;ALL DONE FIX FLAGS AND CONVERT ; 6716 =001 WORK[SLEN]_[BR], ;SAVE UPDATED LENGTH U 1371, 3340,3333,0005,7174,4007,0700,0410,0000,0242 ; 6717 CALL [PUTDST] ; AND STORE FILLER U 1377, 3252,2551,0705,1274,4007,0701,4000,0000,1443 ; 6718 =111 [BR]_AC[DLEN]-1 ;COUNT DOWN STRING LENGTH ; 6719 = U 3252, 3250,3440,0505,1174,4007,0700,0400,0000,1443 ; 6720 AC[DLEN]_[BR], J/BDFILL ;KEEP FILLING ; 6721 ; 6722 ;HERE TO STORE THE ANSWER ; 6723 ; 6724 DOCVT1: [ARX]_AC[1], ;GET LOW WORD U 3253, 3262,3771,0004,1276,6007,0701,0000,0000,1441 ; 6725 J/DOCVT2 ;ENTER LOOP FROM BOTTOM ; 6726 =010 ; 6727 BDECLP: [BR]_[BR]+1, ;COUNT DIGITS U 1602, 1512,0111,0705,4174,4007,0700,0010,0000,0000 ; 6728 CALL [BDSUB] ;KEEP SUBTRACTING 10**C(BRX) U 1606, 3254,3333,0003,7174,4007,0700,0400,0000,0247 ; 6729 =110 WORK[BDH]_[AR] ;SAVE BINARY ; 6730 = ; 6731 [AR]_[BR]+WORK[E1], ;OFFSET DIGIT U 3254, 1676,0551,0503,7274,4003,7701,0000,0000,0241 ; 6732 B DISP ;SEE WHICH MODE ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 151 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6733 =1110 READ [AR], LOAD VMA, ;TRANSLATE, START READING TABLE U 1676, 1500,3333,0003,4174,4007,0700,0200,0004,0012 ; 6734 START READ, J/BDTBL ; GO GET ENTRY FROM TABLE U 1677, 2000,3333,0004,7174,4007,0700,0400,0000,0250 ; 6735 BDSET: WORK[BDL]_[ARX] ;SAVE LOW BINARY U 2000, 3340,3771,0013,4370,4007,0700,0010,0000,0012 ; 6736 =00* STATE_[EDIT-DST], CALL [PUTDST] U 2006, 3255,2551,0705,1274,4007,0701,4000,0000,1443 ; 6737 =11* [BR]_AC[DLEN]-1 ;UPDATE STRING LENGTH U 3255, 3256,3771,0003,7274,4007,0701,0000,0000,0247 ; 6738 [AR]_WORK[BDH] U 3256, 3257,3771,0004,7274,4007,0701,0000,0000,0250 ; 6739 [ARX]_WORK[BDL] U 3257, 1372,4553,0500,4374,4007,0321,0000,0004,0000 ; 6740 TL [BR], #/040000 ;ARE WE CONVERTING 1B0? U 1372, 3264,0111,0704,4174,4007,0700,0000,0000,0000 ; 6741 =0 [ARX]_[ARX]+1, J/BDCFLG ;YES--FIX THE NUMBER AND CLEAR FLAG U 1373, 3260,3440,0303,0174,4007,0700,0400,0000,0000 ; 6742 DOCVT3: AC_[AR] U 3260, 3261,3440,0404,1174,4007,0700,0400,0000,1441 ; 6743 AC[1]_[ARX] U 3261, 3262,3440,0505,1174,4007,0700,0400,0000,1443 ; 6744 AC[DLEN]_[BR] ;STORE BACK NEW STRING LENGTH U 3262, 1374,1111,0706,4174,4007,0531,4000,0000,0000 ; 6745 DOCVT2: [BRX]_[BRX]-1, 3T, SKIP DP18 U 1374, 1602,2441,0705,4174,4467,0701,4000,0003,0000 ; 6746 =0 [BR]_-1, SET FPD, 3T, J/BDECLP U 1375, 0014,4221,0013,4170,4467,0700,0000,0005,0000 ; 6747 END STATE, CLR FPD, J/SKIP ; 6748 ; 6749 ;HERE TO TRANSLATE 1 DIGIT ; 6750 =0 ; 6751 BDTBL: END STATE, ;DON'T CHANGE BYTE POINTER IF ; 6752 ; THIS PAGE FAILS U 1500, 3544,4221,0013,4170,4007,0700,0010,0000,0000 ; 6753 CALL [LOADAR] ;GO PUT WORD IN AR U 1501, 1502,4553,0600,4374,4007,0331,0000,0077,7777 ; 6754 TR [BRX], #/777777 ;LAST DIGIT U 1502, 1677,4221,0003,4174,0007,0700,0000,0000,0000 ; 6755 =0 [AR]_0, HOLD RIGHT, J/BDSET U 1503, 1510,4553,0600,4374,4007,0321,0000,0010,0000 ; 6756 TL [BRX], #/100000 ;AND NEGATIVE U 1510, 1511,3770,0303,4344,4007,0700,0000,0000,0000 ; 6757 =0 [AR]_[AR] SWAP ;LAST AND MINUS, USE LH U 1511, 1677,4221,0003,4174,0007,0700,0000,0000,0000 ; 6758 [AR]_0, HOLD RIGHT, J/BDSET ; 6759 U 3263, 1505,3771,0003,7274,4007,0701,0000,0000,0247 ; 6760 BDABT: [AR]_WORK[BDH], J/DAC ; 6761 ; 6762 BDCFLG: [BR]_[BR].AND.NOT.#, ;CLEAR FLAG THAT TELLS US ; 6763 #/040000, HOLD RIGHT, ; TO SUBTRACT 1 AND U 3264, 1373,5551,0505,4374,0007,0700,0000,0004,0000 ; 6764 J/DOCVT3 ; CONTINUE CONVERTING ; 6765 ; 6766 ;SUBROUTINE TO SUBRTACT A POWER OF 10 FROM AR!ARX ; 6767 ;CALL WITH: ; 6768 ; AR!ARX/ NUMBER TO BE CONVERTED ; 6769 ; BRX(RIGHT)/ POWER OF 10 ; 6770 ;RETURNS: ; 6771 ; 2 RESULT IS STILL POSITIVE ; 6772 ; 6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE) ; 6773 =0 ; 6774 BDSUB: [T0]_[BRX]+#, 3T, WORK/DECLO, ;ADDRESS OF LOW WORD U 1512, 1360,0551,0616,4374,4007,0701,0000,0000,0344 ; 6775 J/BDSUB1 ;NO INTERRUPT U 1513, 2507,4443,0000,4174,4007,0700,0000,0000,0000 ; 6776 J/FIXPC ;INTERRUPT ; 6777 =0* ; 6778 BDSUB1: [T1]_[T0], LOAD VMA, ;PUT IN VMA, U 1360, 1572,3441,1617,4174,4007,0700,0210,0000,0010 ; 6779 CALL [CLARX0] ;FIX UP SIGN OF LOW WORD ; 6780 [ARX]_[ARX]-RAM, 3T, ;SUBTRACT U 1362, 1562,1551,0404,6274,4007,0561,4000,0000,0000 ; 6781 SKIP CRY1 ;SEE IF OVERFLOW U 1562, 1563,1111,0703,4174,4007,0700,4000,0000,0000 ; 6782 =0 [AR]_[AR]-1 ;PROCESS CARRY U 1563, 3265,0551,0616,4374,4007,0701,0000,0000,0373 ; 6783 [T0]_[BRX]+#, 3T, WORK/DECHI ;ADDRESS OF HIGH WORD U 3265, 3266,3333,0016,4174,4007,0700,0200,0000,0010 ; 6784 READ [T0], LOAD VMA ;PLACE IN VMA ; 6785 [AR]_[AR]-RAM, 4T, ;SUBTRACT U 3266, 1572,1551,0303,6274,4007,0522,4000,0000,0000 ; 6786 SKIP DP0 ;SEE IF IT FIT ; 6787 =0 ; 6788 CLARX0: CLEAR ARX0, ;IT FIT, KEEP LOW WORD + U 1572, 0002,4551,0404,4374,0004,1700,0000,0037,7777 ; 6789 RETURN [2] ; AND RETURN U 1573, 3267,0551,0303,6274,4007,0700,0000,0000,0000 ; 6790 [AR]_[AR]+RAM ;RESTORE U 3267, 3270,3333,0017,4174,4007,0700,0200,0000,0010 ; 6791 READ [T1], LOAD VMA U 3270, 1604,0551,0404,6274,4007,0561,0000,0000,0000 ; 6792 [ARX]_[ARX]+RAM, 3T, SKIP CRY1 ; 6793 =0 ; 6794 BDSUB2: CLEAR ARX0, ;KEEP LOW WORD + U 1604, 0006,4551,0404,4374,0004,1700,0000,0037,7777 ; 6795 RETURN [6] ;RETURN OVERFLOW ; 6796 [AR]_[AR]+1, ;ADD BACK THE CARRY U 1605, 1604,0111,0703,4174,4007,0700,0000,0000,0000 ; 6797 J/BDSUB2 ;COMPLETE SUBTRACT ; 6798 ; 6799 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 152 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- MAIN LOOP ; 6800 .TOC "EXTEND -- EDIT -- MAIN LOOP" ; 6801 ; 6802 ;HERE FOR EDIT INSTRUCTION ; 6803 ;CALL WITH: ; 6804 ; AR/ E0 ADDRESS OF FILL, FLOAT, AND MESSAGE TABLE ; 6805 ; BR/ E1 TRANSLATE TABLE ; 6806 ; ; 6807 3741: ; 6808 EDIT: VMA_[AR]+1, START READ, ;FIRST GET FILL BYTE U 3741, 3346,0111,0703,4170,4007,0700,0210,0004,0012 ; 6809 CALL [GTFILL] ;GO GET IT U 3751, 1333,3771,0006,0276,6007,0700,0000,0000,0000 ; 6810 3751: [BRX]_AC ;GET PATTERN POINTER ; 6811 =0** TL [BRX], #/047777, ;MAKE SURE SECTION 0 U 1333, 3556,4553,0600,4374,4007,0321,0010,0004,7777 ; 6812 CALL [BITCHK] ; .. U 1337, 3271,3443,0600,4174,4007,0700,0200,0004,0012 ; 6813 EDITLP: VMA_[BRX], START READ ;FETCH PATTERN WORD U 3271, 3272,4221,0013,4170,4007,0700,0000,0000,0000 ; 6814 END STATE ;NO SPECIAL PAGE FAIL ACTION U 3272, 1646,3770,0605,4344,4007,0700,0000,0000,0000 ; 6815 [BR]_[BRX] SWAP ;GET PBN IN BITS 20 & 21 ; 6816 =0 [BR]_[BR]*4, ; .. U 1646, 3544,0115,0505,4174,4007,0700,0010,0000,0000 ; 6817 CALL [LOADAR] ;GET PATTERN WORD U 1647, 2014,3333,0005,4174,4003,1701,0000,0000,0000 ; 6818 READ [BR], 3T, DISP/DP LEFT ; 6819 =1100 U 2014, 1670,3770,0303,4344,4007,0700,2000,0071,0007 ; 6820 [AR]_[AR] SWAP, SC_7, J/MOVPAT ;(0) BITS 0-8 U 2015, 1671,3770,0303,4344,4007,0700,0000,0000,0000 ; 6821 [AR]_[AR] SWAP, J/MSKPAT ;(1) BITS 9-17 U 2016, 1670,3447,0303,4174,4007,0700,2000,0071,0006 ; 6822 [AR]_[AR]*.5, SC_6, J/MOVPAT ;(2) BITS 18-27 U 2017, 3273,4551,0303,4374,4007,0700,0000,0000,0777 ; 6823 [AR]_[AR].AND.#, #/777, J/EDISP ;(3) BITS 28-35 ; 6824 =0 U 1670, 1670,3447,0303,4174,4007,0630,2000,0060,0000 ; 6825 MOVPAT: [AR]_[AR]*.5, STEP SC, J/MOVPAT ;SHIFT OVER U 1671, 3273,4551,0303,4374,4007,0700,0000,0000,0777 ; 6826 MSKPAT: [AR]_[AR].AND.#, #/777 ; 6827 ; 6828 ;HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR U 3273, 1672,3447,0305,4174,4007,0700,2000,0071,0002 ; 6829 EDISP: [BR]_[AR]*.5, SC_2 ;SHIFT OVER ; 6830 =0 U 1672, 1672,3447,0505,4174,4007,0630,2000,0060,0000 ; 6831 EDISP1: [BR]_[BR]*.5, STEP SC, J/EDISP1 U 1673, 2021,3333,0005,4174,4003,5701,0000,0000,0000 ; 6832 READ [BR], 3T, DISP/DP ;LOOK AT HIGH 3 BITS ; 6833 =0001 ;(0) OPERATE GROUP ; 6834 [AR]-#, #/5, 4T, ; SEE IF 0-4 U 2021, 1674,1553,0300,4374,4007,0532,4000,0000,0005 ; 6835 SKIP DP18, J/EDOPR ; 6836 ;(1) MESSAGE BYTE ; 6837 READ [BRX], SKIP DP0, U 2023, 2062,3333,0006,4174,4007,0520,0000,0000,0000 ; 6838 J/EDMSG ; 6839 ;(2) UNDEFINED U 2025, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6840 J/EDNOP ; 6841 ;(3) UNDEFINED U 2027, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6842 J/EDNOP ; 6843 ;(4) UNDEFINED U 2031, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6844 J/EDNOP ; 6845 ;(5) SKIP IF M SET ; 6846 TL [BRX], #/100000, U 2033, 2072,4553,0600,4374,4007,0321,0000,0010,0000 ; 6847 J/EDSKP ; 6848 ;(6) SKIP IF N SET ; 6849 TL [BRX], #/200000, U 2035, 2072,4553,0600,4374,4007,0321,0000,0020,0000 ; 6850 J/EDSKP ; 6851 ;(7) SKIP ALWAYS U 2037, 2072,4443,0000,4174,4007,0700,0000,0000,0000 ; 6852 J/EDSKP ; 6853 ; 6854 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 153 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- DECODE OPERATE GROUP ; 6855 .TOC "EXTEND -- EDIT -- DECODE OPERATE GROUP" ; 6856 ; 6857 ;HERE FOR OPERATE GROUP. SKIP IF IN RANGE ; 6858 =0 U 1674, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6859 EDOPR: J/EDNOP ;OUT OF RANGE U 1675, 2050,3333,0003,4174,4003,5701,0000,0000,0000 ; 6860 READ [AR], 3T, DISP/DP ;DISPATCH ON TYPE U 2050, 3274,0111,0701,4174,4007,0700,0000,0000,0000 ; 6861 =1000 [PC]_[PC]+1, J/EDSTOP ;(0) STOP EDIT ; 6862 STATE_[EDIT-SRC], ;(1) SELECT SOURCE BYTE U 2051, 2005,3771,0013,4370,4007,0700,0000,0000,0011 ; 6863 J/EDSEL ; 6864 READ [BRX], SKIP DP0, ;(2) START SIGNIFICANCE U 2052, 1756,3333,0006,4174,4007,0520,0000,0000,0000 ; 6865 J/EDSSIG ; 6866 [BRX]_[BRX].AND.#, ;(3) FIELD SEPERATOR ; 6867 #/77777, HOLD RIGHT, U 2053, 3313,4551,0606,4374,0007,0700,0000,0007,7777 ; 6868 J/EDNOP U 2054, 2055,3771,0005,1276,6007,0701,0000,0000,1443 ; 6869 [BR]_AC[MARK] ;(4) EXCHANGE MARK AND DEST ; 6870 VMA_[BR], START READ, U 2055, 2002,3443,0500,4174,4007,0700,0200,0004,0012 ; 6871 J/EDEXMD ; 6872 = ; 6873 ; 6874 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 154 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- STOP EDIT ; 6875 .TOC "EXTEND -- EDIT -- STOP EDIT" ; 6876 ; 6877 ;HERE TO END AN EDIT OPERATION. PC IS SET TO SKIP IF NORMAL END ; 6878 ; OR NON-SKIP IF ABORT ; 6879 EDSTOP: [BR]_.NOT.[BRX], ;AD WILL NOT DO D.AND.NOT.A U 3274, 3275,7441,0605,4174,4007,0700,1000,0071,0010 ; 6880 FE_S#, S#/10 ;PRESET FE U 3275, 3276,3441,0603,4174,4007,0701,1000,0043,0000 ; 6881 [AR]_[BRX], 3T, FE_FE+P ;MOVE POINTER, UPBATE PBN ; 6882 [BR].AND.#, 3T, ;WAS OLD NUMBER 3? U 3276, 1752,4553,0500,4374,4007,0321,0000,0003,0000 ; 6883 #/030000, SKIP ADL.EQ.0 ; .. ; 6884 =0 U 1752, 1515,3770,0303,4334,4017,0700,0000,0041,0000 ; 6885 EDSTP1: [AR]_P, J/STAC ;NO--ALL DONE ; 6886 [AR]_[AR]+1, ;YES--BUMP WORD # ; 6887 FE_FE.AND.S#, S#/0700, ;KEEP ONLY FLAG BITS U 1753, 1752,0111,0703,4174,4007,0700,1000,0051,0700 ; 6888 J/EDSTP1 ;GO STOP EDIT ; 6889 ; 6890 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 155 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- START SIGNIFICANCE ; 6891 .TOC "EXTEND -- EDIT -- START SIGNIFICANCE" ; 6892 ; 6893 ;HERE WITH DST POINTER IN AR ; 6894 =110 U 1756, 3302,4443,0000,4174,4007,0700,0010,0000,0000 ; 6895 EDSSIG: CALL [EDFLT] ;STORE FLT CHAR U 1757, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6896 J/EDNOP ;DO NEXT PATTERN BYTE ; 6897 ; 6898 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 156 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION ; 6899 .TOC "EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION" ; 6900 ; 6901 ;HERE WITH ADDRESS OF MARK POINTER IN BR ; 6902 =0 ; 6903 EDEXMD: Q_AC[DSTP], ;GET DEST POINTER U 2002, 3544,3772,0000,1275,5007,0701,0010,0000,1444 ; 6904 CALL [LOADAR] ;GO PUT MARK IN AR U 2003, 3277,4443,0000,4174,4007,0700,0200,0003,0002 ; 6905 START WRITE ;START WRITE. SEPERATE STEP TO AVOID ; 6906 ; PROBLEM ON DPM5 U 3277, 3300,3223,0000,4174,4007,0701,0200,0000,0002 ; 6907 MEM WRITE, MEM_Q ;PUT OLD DEST IN MARK U 3300, 3313,3440,0303,1174,4007,0700,0400,0000,1444 ; 6908 AC[DSTP]_[AR], J/EDNOP ;PUT BACK DEST POINTER ; 6909 ; 6910 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 157 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- PROCESS SOURCE BYTE ; 6911 .TOC "EXTEND -- EDIT -- PROCESS SOURCE BYTE" ; 6912 ; 6913 =0* ; 6914 EDSEL: [AR]_AC[SRCP], ;PICK UP SRC POINTER U 2005, 2143,3771,0003,1276,6007,0701,0010,0000,1441 ; 6915 CALL [GETSRC] ;GET SOURCE BYTE U 2007, 2040,3447,0303,7174,4007,0700,0000,0000,0241 ; 6916 [AR]_[AR]*.5, WORK[E1] ;PREPARE TO TRANSLATE ; 6917 =000 [AR]_[AR]+WORK[E1], ;GO TRANSLATE BY HALFWORDS U 2040, 3333,0551,0303,7274,4007,0700,0010,0000,0241 ; 6918 2T, CALL [TRNAR] ; .. ; 6919 =010 ; 6920 EDFILL: READ [AR], ;(2) NO SIGNIFICANCE, GO FILL ; 6921 SKIP AD.EQ.0, ; SEE IF ANY FILLER U 2042, 2010,3333,0003,4174,4007,0621,0000,0000,0000 ; 6922 J/EDFIL1 ; GO TO IT ; 6923 STATE_[EDIT-SRC], ;(3) SIG START, DO FLOAT CHAR U 2043, 2056,3771,0013,4370,4007,0700,0000,0000,0011 ; 6924 J/EDSFLT U 2044, 3274,4443,0000,4174,4007,0700,0000,0000,0000 ; 6925 =100 J/EDSTOP ;(4) ABORT ; 6926 =101 ; 6927 EDSPUT: STATE_[EDIT-S+D], ;(5) NORMAL, STORE AT DST U 2045, 3340,3771,0013,4370,4007,0700,0010,0000,0013 ; 6928 CALL [PUTDST] ; .. ; 6929 =111 U 2047, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6930 J/EDNOP ;(7) BYTE STORED ; 6931 = ; 6932 ; 6933 ;HERE TO COMPLETE STORING FILL ; 6934 =0 U 2010, 2045,4443,0000,4174,4007,0700,0000,0000,0000 ; 6935 EDFIL1: J/EDSPUT ;STORE FILLER U 2011, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6936 J/EDNOP ;NO FILLER TO STORE ; 6937 ; 6938 ;HERE TO DO FLOAT BYTE ; 6939 =110 ; 6940 EDSFLT: WORK[FSIG]_[ARX], ;SAVE SIG CHAR U 2056, 3302,3333,0004,7174,4007,0700,0410,0000,0246 ; 6941 CALL [EDFLT] ;STORE FLOAT CHAR U 2057, 3301,3771,0003,7274,4007,0701,0000,0000,0246 ; 6942 [AR]_WORK[FSIG] ;RESTORE CHAR ; 6943 [AR]_[AR].AND.# CLR LH, ;JUST KEEP THE BYTE IN CASE ; 6944 #/77777, ; DEST BYTE .GT. 15 BITS U 3301, 2045,4251,0303,4374,4007,0700,0000,0007,7777 ; 6945 J/EDSPUT ;GO STORE CHAR WHICH STARTED THIS ALL ; 6946 ; 6947 ;SUBRUTINE TO PROCESS FLOAT CHAR ; 6948 ;CALL WITH: ; 6949 ; AR/ POINTER TO STORE @@ MARK ; 6950 ;RETURN 7 WITH FLOAT STORED U 3302, 3303,3771,0005,1276,6007,0701,0000,0000,1443 ; 6951 EDFLT: [BR]_AC[MARK] ;ADDRESS OF MARK POINTER U 3303, 3304,3443,0500,4174,4007,0700,0200,0003,0012 ; 6952 VMA_[BR], START WRITE ;READY TO STORE U 3304, 3305,3771,0005,1276,6007,0701,0000,0000,1444 ; 6953 [BR]_AC[DSTP] ;GET DST POINTER U 3305, 2012,3333,0005,4175,5007,0701,0200,0000,0002 ; 6954 MEM WRITE, MEM_[BR] ;STORE POINTER ; 6955 =0 [AR]_0 XWD [2], ;FETCH FLOAT CHAR U 2012, 3307,4751,1203,4374,4007,0700,0010,0000,0002 ; 6956 CALL [EDBYTE] ;GET TBL BYTE ; 6957 MEM READ, [AR]_MEM, ;GET FLOAT CHAR U 2013, 2060,3771,0003,4365,5007,0621,0200,0000,0002 ; 6958 SKIP AD.EQ.0 ;SEE IF NULL ; 6959 =000 ; 6960 [FLG]_[FLG].OR.#, ;REMEMBER TO BACKUP DST POINTER ; 6961 STATE/EDIT-DST, ; WILL ALSO BACKUP SRC IF CALLED ; 6962 HOLD LEFT, ; FROM SELECT U 2060, 3340,3551,1313,4370,4007,0700,0010,0000,0012 ; 6963 CALL [PUTDST] ; STORE FLOAT ; 6964 =001 [BRX]_[BRX].OR.#, #/400000, U 2061, 3306,3551,0606,4374,0007,0700,0000,0040,0000 ; 6965 HOLD RIGHT, J/EDFLT1 ;NULL ; 6966 =110 [BRX]_[BRX].OR.#, #/400000, U 2066, 3306,3551,0606,4374,0007,0700,0000,0040,0000 ; 6967 HOLD RIGHT, J/EDFLT1 ;MARK STORED ; 6968 = ; 6969 EDFLT1: AC_[BRX], ;SAVE FLAGS SO WE DON'T ; 6970 ;TRY TO DO THIS AGAIN IF ; 6971 ;NEXT STORE PAGE FAILS U 3306, 0007,3440,0606,0174,4004,1700,0400,0000,0000 ; 6972 RETURN [7] ;AND RETURN ; 6973 ; 6974 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 158 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- MESSAGE BYTE ; 6975 .TOC "EXTEND -- EDIT -- MESSAGE BYTE" ; 6976 ; 6977 ;HERE WITH SKIP ON S ; 6978 =0 ; 6979 EDMSG: [AR]_WORK[FILL], ;GET FILL BYTE ; 6980 SKIP AD.EQ.0, 4T, ;SEE IF NULL U 2062, 2070,3771,0003,7274,4007,0622,0000,0000,0244 ; 6981 J/EDMSG1 ;GO STORE ; 6982 [AR]_[AR].AND.# CLR LH, ;GET OFFSET INTO TABLE U 2063, 2064,4251,0303,4374,4007,0700,0000,0000,0077 ; 6983 #/77 ; 6984 =0 [AR]_[AR]+1, WORK[E0], ;PLUS 1 U 2064, 3307,0111,0703,7174,4007,0700,0010,0000,0240 ; 6985 CALL [EDBYTE] ;GET TBL BYTE U 2065, 2070,3771,0003,4365,5007,0700,0200,0000,0002 ; 6986 MEM READ, [AR]_MEM ;FROM MEMORY ; 6987 =000 ; 6988 EDMSG1: STATE_[EDIT-DST], ;WHAT TO DO ON PAGE FAILS U 2070, 3340,3771,0013,4370,4007,0700,0010,0000,0012 ; 6989 CALL [PUTDST] ;STORE MESSAGE BYTE U 2071, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6990 =001 J/EDNOP ;NULL FILLER U 2076, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 6991 =110 J/EDNOP ;NEXT BYTE ; 6992 = ; 6993 U 3307, 3310,0551,0303,7274,4007,0701,0000,0000,0240 ; 6994 EDBYTE: [AR]_[AR]+WORK[E0] ;GET OFFSET INTO TABLE ; 6995 VMA_[AR], START READ, ;START MEMORY CYCLE U 3310, 0001,3443,0300,4174,4004,1700,0200,0004,0012 ; 6996 RETURN [1] ;RETURN TO CALLER ; 6997 ; 6998 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 159 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- SKIP ; 6999 .TOC "EXTEND -- EDIT -- SKIP" ; 7000 ; 7001 =0 ; 7002 ;HERE TO SKIP ALWAYS ; 7003 EDSKP: [AR]_[AR].AND.#, #/77, ;JUST KEEP SKIP DISTANCE U 2072, 3311,4551,0303,4374,4007,0700,0000,0000,0077 ; 7004 J/EDSKP1 ;CONTINUE BELOW ; 7005 ;HERE IF WE DO NOT WANT TO SKIP U 2073, 3313,4443,0000,4174,4007,0700,0000,0000,0000 ; 7006 J/EDNOP U 3311, 3312,0115,0703,4174,4007,0700,0000,0000,0000 ; 7007 EDSKP1: [AR]_([AR]+1)*2 ;GIVE 1 EXTRA SKIP ; 7008 READ [AR], SCAD/A*2, ;PUT THE ADJUSTMENT ; 7009 SCADA/BYTE5, 3T, LOAD SC, ; THE SC U 3312, 3314,3333,0003,4174,4007,0701,2000,0007,0000 ; 7010 J/EDNOP1 ;JOIN MAIN LOOP ; 7011 ; 7012 ; 7013 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 160 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- EDIT -- ADVANCE PATTERN POINTER ; 7014 .TOC "EXTEND -- EDIT -- ADVANCE PATTERN POINTER" ; 7015 U 3313, 3314,4443,0000,4174,4007,0700,2000,0071,0000 ; 7016 EDNOP: SC_0 ;NO SKIP U 3314, 3315,3333,0006,4174,4007,0701,1000,0073,0000 ; 7017 EDNOP1: READ [BRX], 3T, FE_P ;PUT PBN IN FE U 3315, 3316,4443,0000,4174,4007,0700,1000,0051,0030 ; 7018 FE_FE.AND.S#, S#/30 ;JUST BYTE # U 3316, 3317,4443,0000,4174,4007,0700,1000,0040,0000 ; 7019 FE_FE+SC ;ADD IN ANY SKIP DISTANCE U 3317, 3320,4443,0000,4174,4007,0700,1000,0041,0010 ; 7020 FE_FE+S#, S#/10 ;BUMP PBN ; 7021 [AR]_FE, ;GET NUMBER OF WORDS U 3320, 3321,3777,0003,4334,4057,0700,2000,0041,0000 ; 7022 LOAD SC ;PUT MSB WHERE IT CAN BE TESTED ; 7023 ; QUICKLY ; 7024 [AR]_[AR].AND.# CLR LH, ;KEEP ONLY 1 COPY U 3321, 2074,4251,0303,4374,4007,0630,0000,0000,0170 ; 7025 #/170, SKIP/SC ; .. ; 7026 =0 ; 7027 EDN1A: [AR]_[AR]*.5, SC_0, U 2074, 2100,3447,0303,4174,4007,0700,2000,0071,0000 ; 7028 J/EDNOP2 ;READY TO SHIFT OFF BYTE WITHIN ; 7029 ; WORD ; 7030 [AR]_[AR].OR.#, #/200, ;GET THE SIGN BIT OF THE FE ; 7031 HOLD LEFT, ; INTO THE AR. ONLY HAPPENS ON U 2075, 2074,3551,0303,4370,4007,0700,0000,0000,0200 ; 7032 J/EDN1A ; SKP 76 OR SKP 77 ; 7033 =0 U 2100, 2100,3447,0303,4174,4007,0630,2000,0060,0000 ; 7034 EDNOP2: [AR]_[AR]*.5, STEP SC, J/EDNOP2 ; 7035 [BRX]_[BRX]+[AR], ;UPDATE WORD ADDRESS U 2101, 3322,0111,0306,4170,4007,0700,0000,0000,0000 ; 7036 HOLD LEFT U 3322, 3323,3770,0303,4334,4017,0700,0000,0041,0000 ; 7037 [AR]_P ;PUT PBN BACK IN BRX ; 7038 [BRX]_[BRX].AND.#, ;JUST KEEP FLAGS ; 7039 #/700000, ; .. U 3323, 3324,4551,0606,4374,0007,0700,0000,0070,0000 ; 7040 HOLD RIGHT ; 7041 [AR]_[AR].AND.#, ;JUST KEEP PBN U 3324, 3325,4551,0303,4374,4007,0700,0000,0003,0000 ; 7042 #/030000 ; 7043 [BRX]_[BRX].OR.[AR], ;FINAL ANSWER U 3325, 3326,3111,0306,4174,0007,0700,0000,0000,0000 ; 7044 HOLD RIGHT U 3326, 1337,3440,0606,0174,4007,0700,0400,0000,0000 ; 7045 AC_[BRX], J/EDITLP ;DO NEXT FUNCTION ; 7046 ; 7047 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 161 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- FILL OUT DESTINATION ; 7048 .TOC "EXTEND SUBROUTINES -- FILL OUT DESTINATION" ; 7049 ; 7050 ;CALL WITH ; 7051 ; AC[DLEN]/ NEGATIVE NUMBER OF BYTES LEFT IN DEST ; 7052 ; FILL/ FILL BYTE ; 7053 ; RETURN [2] WITH FILLERS STORED ; 7054 ; ; 7055 ;NOTE: THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE ; 7056 ; BECAUSE EVERY BYTE STORE DOES A MEMORY READ. ; 7057 ; ; 7058 =01* ; 7059 MOVF1: [AR]_WORK[FILL], 2T, ;GET FILL BYTE U 1603, 3340,3771,0003,7274,4007,0700,0010,0000,0244 ; 7060 CALL [PUTDST] ;PLACE IN DEST U 1607, 3327,3771,0003,1276,6007,0701,0000,0000,1443 ; 7061 [AR]_AC[DLEN] ;AMOUNT LEFT ; 7062 AC[DLEN]_[AR]+1, 3T, ;STORE UPDATED LEN U 3327, 2102,0113,0703,1174,4007,0521,0400,0000,1443 ; 7063 SKIP DP0 ; AND SEE IF DONE U 2102, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 7064 =0 RETURN [2] ;DONE U 2103, 1603,4443,0000,7174,4007,0700,0000,0000,0244 ; 7065 MOVFIL: WORK[FILL], J/MOVF1 ;DO ANOTHER BYTE ; 7066 ;ENTERING HERE SAVES 150NS ; 7067 ; PER BYTE BUT COSTS 300NS ; 7068 ; PER FIELD MOVED. I ASSUME (BUT DO ; 7069 ; NOT KNOW) THAT THIS SPEEDS ; 7070 ; THINGS UP. ; 7071 ; 7072 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 162 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE ; 7073 .TOC"EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE" ; 7074 ; 7075 ;CALL WITH: ; 7076 ;SLEN = MINUS LENGTH OF STRING ; 7077 ;MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO) ; 7078 ;E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET) ; 7079 ; [AR]_WORK[SLEN]+1, CALL [SRCMOD] ; 7080 ;RETURNS: ; 7081 ; 1 LENGTH EXHAUSTED ; 7082 ; 2 (EDIT ONLY) NO SIGNIFICANCE ; 7083 ; 3 (EDIT ONLY) SIGNIFICANCE START: ; 7084 ; 4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE ; 7085 ; 5 NORMAL: BYTE IN AR ; 7086 ; ; 7087 ;DROM B SET AS FOLLOWS: ; 7088 ; 0 TRANSLATE ; 7089 ; 1 OFFSET ; 7090 ; 2 EDIT ; 7091 ; 4 CVTDBT ; 7092 =00 ; 7093 SRCMOD: WORK[SLEN]_[AR], ;PUT BACK SOURCE LENGTH ; 7094 SKIP DP0, ;SEE IF DONE U 2104, 2142,3333,0003,7174,4007,0520,0410,0000,0242 ; 7095 CALL [GSRC] ;GET A SOURCE BYTE U 2105, 0001,4221,0013,4170,4004,1700,0000,0000,0000 ; 7096 END STATE, RETURN [1] ;DONE U 2106, 2116,4443,0000,7174,4003,7700,0000,0000,0241 ; 7097 WORK[E1], B DISP ;OFFSET OR TRANSLATE? ; 7098 = U 2116, 3332,3447,0303,4174,4007,0700,0000,0000,0000 ; 7099 =1110 [AR]_[AR]*.5, J/XLATE ;TRANSLATE U 2117, 3330,3770,0303,7174,0007,0700,0000,0000,0241 ; 7100 FIX [AR] SIGN, WORK[E1] ;IF WE ARE PROCESSING FULL WORD ; 7101 ; BYTES, AND THEY ARE NEGATIVE, ; 7102 ; AND THE OFFSET IS POSITIVE THEN ; 7103 ; WE HAVE TO MAKE BITS -1 AND -2 ; 7104 ; COPIES OF THE SIGN BIT. U 3330, 3331,0551,0303,7274,4007,0700,0000,0000,0241 ; 7105 [AR]_[AR]+WORK[E1], 2T ;OFFSET ; 7106 [AR].AND.WORK[MSK], ;VALID BYTE? ; 7107 SKIP AD.EQ.0, 4T, ;SKIP IF OK U 3331, 0004,4553,0300,7274,4004,1622,0000,0000,0243 ; 7108 RETURN [4] ;RETURN 4 IF BAD, 5 IF OK ; 7109 ; 7110 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 163 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- TRANSLATE ; 7111 .TOC "EXTEND SUBROUTINES -- TRANSLATE" ; 7112 ; 7113 ;HERE WITH BYTE IN AR 1-36. FETCH TABLE ENTRY. U 3332, 3333,0551,0303,7274,4007,0701,0000,0000,0241 ; 7114 XLATE: [AR]_[AR]+WORK[E1] ;COMPUTE ADDRESS ; 7115 TRNAR: READ [AR], LOAD VMA, ;FETCH WORD U 3333, 2110,3333,0003,4174,4007,0700,0200,0004,0012 ; 7116 START READ ; .. ; 7117 =0 [AR]_[AR]*2, ;GET BACK LSB ; 7118 ;BIT 36 IS NOT PRESERVED ; 7119 ; BY PAGE FAILS U 2110, 3545,3445,0303,4174,4007,0700,0010,0000,0000 ; 7120 CALL [LOADARX] ;PUT ENTRY IN ARX U 2111, 2112,4553,0300,4374,4007,0331,0000,0000,0001 ; 7121 TR [AR], #/1 ;WHICH HALF? ; 7122 =0 ; 7123 XLATE1: [AR]_[ARX], 3T, ;RH -- COPY TO AR ; 7124 DISP/DP LEFT, ;DISPATCH ON CODE U 2112, 2121,3441,0403,4174,4003,1701,0000,0000,0000 ; 7125 J/TRNFNC ;DISPATCH TABLE ; 7126 [ARX]_[ARX] SWAP, ;LH -- FLIP AROUND U 2113, 2112,3770,0404,4344,4007,0700,0000,0000,0000 ; 7127 J/XLATE1 ;START SHIFT ; 7128 ; 7129 ;HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY ; 7130 ; THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD. WE ; 7131 ; DISPATCH ON FUNCTION AND HAVE: ; 7132 ; BRX/ FLAGS ; 7133 ; ARX/ TABLE ENTRY IN RH ; 7134 ; ; 7135 =0001 ; 7136 ;(0) NOP ; 7137 TRNFNC: READ [BRX], SKIP DP0, ;S FLAG ALREADY SET? U 2121, 2114,3333,0006,4174,4007,0520,0000,0000,0000 ; 7138 J/TRNRET ; .. ; 7139 ;(1) ABORT U 2123, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 7140 RETURN [4] ; 7141 ;(2) CLEAR M FLAG ; 7142 [BRX]_[BRX].AND.NOT.#, ; 7143 #/100000, HOLD RIGHT, U 2125, 2121,5551,0606,4374,0007,0700,0000,0010,0000 ; 7144 J/TRNFNC ; 7145 ;(3) SET M FLAG ; 7146 [BRX]_[BRX].OR.#, ; 7147 #/100000, HOLD RIGHT, U 2127, 2121,3551,0606,4374,0007,0700,0000,0010,0000 ; 7148 J/TRNFNC ; 7149 ;(4) SET N FLAG ; 7150 TRNSIG: [BRX]_[BRX].OR.#, ; 7151 #/200000, HOLD RIGHT, U 2131, 2121,3551,0606,4374,0007,0700,0000,0020,0000 ; 7152 J/TRNFNC ; 7153 ;(5) SET N FLAG THEN ABORT ; 7154 [BRX]_[BRX].OR.#, ; 7155 #/200000, HOLD RIGHT, U 2133, 0004,3551,0606,4374,0004,1700,0000,0020,0000 ; 7156 RETURN [4] ; 7157 ;(6) CLEAR M THEN SET N ; 7158 [BRX]_[BRX].AND.NOT.#, ; 7159 #/100000, HOLD RIGHT, U 2135, 2131,5551,0606,4374,0007,0700,0000,0010,0000 ; 7160 J/TRNSIG ; 7161 ;(7) SET N AND M ; 7162 [BRX]_[BRX].OR.#, ; 7163 #/300000, HOLD RIGHT, U 2137, 2121,3551,0606,4374,0007,0700,0000,0030,0000 ; 7164 J/TRNFNC ; 7165 ; 7166 ;HERE TO COMPLETE A TRANSLATE ; 7167 ; 7168 =0 ; 7169 TRNRET: READ [ARX], SKIP DP18, ;S-FLAG IS ZERO ; 7170 B DISP, SKIP DP18, ;SEE IF EDIT OR SIG START U 2114, 2154,3333,0004,4174,4003,7530,0000,0000,0000 ; 7171 J/TRNSS ; .. ; 7172 TRNSS1: [AR]_[ARX].AND.# CLR LH, ;S IS SET, JUST RETURN BYTE U 2115, 0005,4251,0403,4374,4004,1700,0000,0007,7777 ; 7173 #/77777, RETURN [5] ; .. ; 7174 ; 7175 =1100 ; 7176 TRNSS: [AR]_AC[DLEN], ;NO SIG ON MOVE OR D2B U 2154, 2173,3771,0003,1276,6003,7701,0000,0000,1443 ; 7177 B DISP, J/TRNNS1 ;SEE IF D2B ; 7178 [BRX]_[BRX].OR.#, ;SIG START ON MOVE OR D2B ; 7179 #/400000, HOLD RIGHT, U 2155, 2115,3551,0606,4374,0007,0700,0000,0040,0000 ; 7180 J/TRNSS1 ;RETURN BYTE ; 7181 [AR]_WORK[FILL], ;EDIT--NO SIG RETURN FILL U 2156, 0002,3771,0003,7274,4004,1701,0000,0000,0244 ; 7182 RETURN [2] ; .. ; 7183 [AR]_AC[DSTP], ;EDIT--START OF SIG U 2157, 0003,3771,0003,1276,6004,1701,0000,0000,1444 ; 7184 RETURN [3] ; .. ; 7185 ; 7186 =1011 U 2173, 3334,1111,0703,4174,4007,0700,4000,0000,0000 ; 7187 TRNNS1: [AR]_[AR]-1, J/TRNNS2 ;COMPENSATE FOR IGNORING SRC ; 7188 [AR]_WORK[SLEN]+1, ;DEC TO BIN HAS NO DEST LENGTH U 2177, 2104,0551,0703,7274,4007,0701,0000,0000,0242 ; 7189 J/SRCMOD ;JUST UPDATE SRC LENTH ; 7190 TRNNS2: AC[DLEN]_[AR] TEST, ;PUT BACK DLEN AND U 3334, 2140,3770,0303,1174,4007,0520,0400,0000,1443 ; 7191 SKIP DP0 ; SEE WHICH IS NOW SHORTER ; 7192 =0 [AR]_WORK[SLEN], ;DEST IS SHORTER. DO NOT CHANGE U 2140, 2104,3771,0003,7274,4007,0701,0000,0000,0242 ; 7193 J/SRCMOD ; AMOUNT LEFT ; 7194 [AR]_WORK[SLEN]+1, ;GO LOOK AT NEXT BYTE U 2141, 2104,0551,0703,7274,4007,0701,0000,0000,0242 ; 7195 J/SRCMOD ; 7196 ; 7197 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 164 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE ; 7198 .TOC "EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE" ; 7199 ; 7200 ;CALL: ; 7201 ; GSRC WITH SKIP ON SOURCE LENGTH ; 7202 ; GETSRC IF LENGHT IS OK ; 7203 ;WITH: ; 7204 ; AC1/ SOURCE BYTE POINTER ; 7205 ;RETURNS: ; 7206 ; 1 IF LENGTH RAN OUT ; 7207 ; 2 IF OK (BYTE IN AR) ; 7208 ; ; 7209 =0 ; 7210 GSRC: [AR]_AC[DLEN], ;LENGTH RAN OUT U 2142, 0001,3771,0003,1276,6004,1701,0000,0000,1443 ; 7211 RETURN [1] ;RESTORE AR AND RETURN U 2143, 3335,3771,0003,1276,6007,0701,0000,0000,1441 ; 7212 GETSRC: [AR]_AC[SRCP] ;GET SRC PTR ; 7213 IBP DP, IBP SCAD, ;UPDATE BYTE POINTER U 3335, 2145,3770,0305,4334,4016,7701,0000,0033,6000 ; 7214 SCAD DISP, 3T ;SEE IF OFLOW U 2145, 3337,3441,0503,4174,4007,0700,0000,0000,0000 ; 7215 =01 [AR]_[BR], J/GSRC1 ;NO OFLOW U 2147, 3336,3770,0503,4334,4017,0700,0000,0032,6000 ; 7216 SET P TO 36-S ;RESET P U 3336, 3337,0111,0703,4170,4007,0700,0000,0000,0000 ; 7217 [AR]_[AR]+1, HOLD LEFT ;BUMP Y ; 7218 U 3337, 2150,3440,0303,1174,4007,0700,0400,0000,1441 ; 7219 GSRC1: AC[SRCP]_[AR] ;STORE UPDATED POINTER ; 7220 =0 READ [AR], LOAD BYTE EA, ;SETUP TO FIGURE OUT U 2150, 2744,3333,0003,4174,4217,0701,1010,0073,0500 ; 7221 FE_P, 3T, CALL [BYTEAS] ; EFFECTIVE ADDRESS ; 7222 READ [AR], ;LOOK AT POINTER ; 7223 BYTE DISP, ;SEE IF 7 BIT ; 7224 FE_FE.AND.S#, S#/0770, ;MASK OUT P FIELD U 2151, 0550,3333,0003,4174,4006,5701,1000,0051,0770 ; 7225 J/LDB1 ;GO GET THE BYTE ; 7226 ; 7227 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 165 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING ; 7228 .TOC "EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING" ; 7229 ; 7230 ;CALL WITH: ; 7231 ; AR/ BYTE TO STORE ; 7232 ; AC4/ DESTINATION BYTE POINTER ; 7233 ;RETURNS: ; 7234 ; AR & AC4/ UPDATED BYTE POINTER ; 7235 ; ARX/ BYTE TO STORE ; 7236 ; BR/ WORD TO MERGE WITH ; 7237 ; 6 ALWAYS ; 7238 ; U 3340, 2152,3441,0304,4174,4007,0700,0000,0000,0000 ; 7239 PUTDST: [ARX]_[AR] ;SAVE BYTE ; 7240 =0 [AR]_AC[DSTP], ;GET DEST POINTER U 2152, 3341,3771,0003,1276,6007,0701,0010,0000,1444 ; 7241 CALL [IDST] ;BUMP DEST POINTER ; 7242 AD/A+B, A/ARX, B/ARX, ;SHIFT 7-BIT BYTE TO ; 7243 SCAD/A, 3T, ; NATURAL PLACE, AND PUT U 2153, 2020,0113,0404,4174,4007,0701,1000,0077,0000 ; 7244 SCADA/BYTE5, LOAD FE ; INTO FE ; 7245 =0* READ [AR], BYTE DISP, ;GO PUT BYTE IN MEMORY U 2020, 0560,3333,0003,4174,4006,5701,0010,0000,0000 ; 7246 CALL [DPB1] ; .. U 2022, 0006,4443,0000,4174,4004,1700,0000,0000,0000 ; 7247 RETURN [6] ;ALL DONE ; 7248 ; 7249 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 166 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS ; 7250 .TOC "EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS" ; 7251 ; 7252 ; 7253 ;SUBROUTINE TO BUMP DST POINTERS ; 7254 ;CALL WITH: ; 7255 ; AR/ AC[DSTP] ; 7256 ; RETURN 1 WITH UPDATED POINTER STORED ; 7257 ; U 3341, 2024,3770,0305,4334,4016,7701,0000,0033,6000 ; 7258 IDST: IBP DP, IBP SCAD, SCAD DISP, 3T U 2024, 3343,3441,0503,4174,4217,0700,0000,0000,0600 ; 7259 =0* [AR]_[BR], LOAD DST EA, J/IDSTX U 2026, 3342,3770,0503,4334,4017,0700,0000,0032,6000 ; 7260 SET P TO 36-S U 3342, 3343,0111,0703,4170,4217,0700,0000,0000,0600 ; 7261 [AR]_[AR]+1, HOLD LEFT, LOAD DST EA ; 7262 IDSTX: AC[DSTP]_[AR], 3T, ;STORE PTR BACK U 3343, 2030,3440,0303,1174,4006,6701,1400,0073,1444 ; 7263 FE_P, DISP/EAMODE ;SAVE P FOR CMPDST ; 7264 =100* U 2030, 2747,0553,0300,2274,4007,0701,0200,0004,0712 ; 7265 DSTEA: VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T, J/BYTFET U 2032, 2747,3443,0300,4174,4007,0700,0200,0004,0712 ; 7266 VMA_[AR], START READ, PXCT BYTE DATA, J/BYTFET U 2034, 3344,0553,0300,2274,4007,0701,0200,0004,0612 ; 7267 VMA_[AR]+XR, START READ, PXCT/BIS-DST-EA, 3T, J/DSTIND U 2036, 3344,3443,0300,4174,4007,0700,0200,0004,0612 ; 7268 VMA_[AR], START READ, PXCT/BIS-DST-EA, J/DSTIND ; 7269 U 3344, 3345,3771,0003,4361,5217,0700,0200,0000,0602 ; 7270 DSTIND: MEM READ, [AR]_MEM, HOLD LEFT, LOAD DST EA U 3345, 2030,4443,0000,2174,4006,6700,0000,0000,0000 ; 7271 EA MODE DISP, J/DSTEA ; 7272 ; 7273 ; 7274 ;HERE TO TEST ILLEGAL BITS SET ; 7275 ;CALL WITH: ; 7276 ; SKIP IF ALL BITS LEGAL ; 7277 ; RETURN [4] IF OK, ELSE DO UUO ; 7278 ; ; 7279 3556: ;EXTEND OF 0 COMES HERE U 3556, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7280 BITCHK: UUO U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 7281 3557: RETURN [4] ; 7282 ; 7283 ;HERE TO PUT FILL IN [AR] AND WORK[FILL] ; 7284 GTFILL: MEM READ, ;WAIT FOR DATA U 3346, 3347,3771,0003,4365,5007,0700,0200,0000,0002 ; 7285 [AR]_MEM ;PLACE IN AR ; 7286 WORK[FILL]_[AR], ;SAVE FOR LATER U 3347, 0010,3333,0003,7174,4004,1700,0400,0000,0244 ; 7287 RETURN [10] ;RETURN TO CALLER ; 7288 ; 7289 ;SUBROUTINE TO CLEAR FLAGS IN AR ; 7290 CLRFLG: [AR]_[AR].AND.#, ;CLEAR FLAGS IN AR ; 7291 #/000777, ; .. U 3350, 0001,4551,0303,4374,0004,1700,0000,0000,0777 ; 7292 HOLD RIGHT, RETURN [1] ; 7293 ; 7294 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 167 ; DSK: KSHACK; EXTEND 4 20:01:38 16-JAN-87 EXTEND -- PAGE FAIL CLEANUP ; 7295 .TOC "EXTEND -- PAGE FAIL CLEANUP" ; 7296 ; 7297 ;BACK UP SOURCE POINTER ; 7298 =0 ; 7299 BACKS: [AR]_AC[SRCP], U 2160, 3363,3771,0003,1276,6007,0701,0010,0000,1441 ; 7300 CALL [BACKBP] ;BACKUP BP U 2161, 3656,3440,0505,1174,4007,0700,0400,0000,1441 ; 7301 AC[SRCP]_[BR], J/CLDISP ; 7302 U 3351, 3352,3771,0003,7274,4007,0701,0000,0000,0214 ; 7303 CMSDST: [AR]_WORK[SV.BRX] ;GET OLD SRC LEN U 3352, 2162,0113,0703,0174,4007,0701,0400,0000,0000 ; 7304 AC_[AR]+1, 3T ;BACK UP ; 7305 ;BACK UP DESTINATION POINTER ; 7306 =0 ; 7307 BACKD: [AR]_AC[DSTP], U 2162, 3363,3771,0003,1276,6007,0701,0010,0000,1444 ; 7308 CALL [BACKBP] U 2163, 3656,3440,0505,1174,4007,0700,0400,0000,1444 ; 7309 AC[DSTP]_[BR], J/CLDISP ; 7310 ; 7311 ;FAILURES DURING MOVE STRING (BACKUP LENGTHS) U 3353, 3354,1771,0003,7274,4007,0701,4000,0000,0242 ; 7312 STRPF: [AR]_-WORK[SLEN] ;GET AMOUNT LEFT ; 7313 STRPF0: [BR]_AC[DLEN], 4T, ;WHICH STRING IS LONGER? U 3354, 2164,3771,0005,1276,6007,0522,0000,0000,1443 ; 7314 SKIP DP0 ; 7315 =0 U 2164, 3356,3440,0303,1174,4007,0700,0400,0000,1443 ; 7316 STRPF1: AC[DLEN]_[AR], J/STPF1A ;SRC LONGER U 2165, 2166,3441,0304,4174,4007,0700,0000,0000,0000 ; 7317 [ARX]_[AR] ;COPY SRC LENGTH ; 7318 =0 [ARX]_[ARX].OR.WORK[SV.BRX], ;REBUILD FLAGS U 2166, 3560,3551,0404,7274,4007,0701,0010,0000,0214 ; 7319 CALL [AC_ARX] ;RESET AC]SLEN] U 2167, 3355,1111,0503,4174,4007,0700,4000,0000,0000 ; 7320 [AR]_[AR]-[BR] ;MAKE DEST LEN ; 7321 STRPF3: AC[DLEN]_[AR], ;PUT BACK DEST LEN U 3355, 3656,3440,0303,1174,4007,0700,0400,0000,1443 ; 7322 J/CLDISP ;DO NEXT CLEANUP ; 7323 U 3356, 3360,0111,0503,4174,4007,0700,0000,0000,0000 ; 7324 STPF1A: [AR]_[AR]+[BR], J/STRPF2 ; 7325 U 3357, 3360,1771,0003,7274,4007,0701,4000,0000,0242 ; 7326 PFDBIN: [AR]_-WORK[SLEN] ;RESTORE LENGTH U 3360, 3361,3551,0303,7274,4007,0701,0000,0000,0214 ; 7327 STRPF2: [AR]_[AR].OR.WORK[SV.BRX] U 3361, 3656,3440,0303,0174,4007,0700,0400,0000,0000 ; 7328 PFGAC0: AC_[AR], J/CLDISP ;PUT BACK SRC LEN AND FLAGS ; 7329 U 3362, 3354,7771,0003,7274,4007,0701,0000,0000,0242 ; 7330 STRPF4: [AR]_.NOT.WORK[SLEN], J/STRPF0 ; 7331 ; 7332 BACKBP: IBP DP, SCAD/A+B, SCADA/BYTE1, SCADB/SIZE, ;P_P+S U 3363, 0001,3770,0305,4334,4014,1700,0000,0043,6000 ; 7333 RETURN [1] ; 7334 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 168 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTEND -- PAGE FAIL CLEANUP ; 7335 ;;;-*-Fundamental-*- ; 7336 ; 7337 .TOC "TRAPS" ; 7338 U 3364, 3365,3741,0104,4074,4007,0700,0000,0000,0000 ; 7339 TRAP: [ARX]_PC WITH FLAGS ;SAVE THE PC WHICH CAUSED THE ; 7340 WORK[TRAPPC]_[ARX], ; TRAP U 3365, 2170,3333,0004,7174,4007,0340,0400,0000,0425 ; 7341 SKIP KERNEL ;SEE IF UBR OR EBR ; 7342 =0 [AR]_[AR]+[UBR], ;ADDRESS OF INSTRUCTION ; 7343 MEM READ, ;WAIT FOR PREFETCH TO GET INTO THE CACHE. ; 7344 ; MAY PAGE FAIL BUT THAT IS OK ; 7345 START READ, ;START FETCH ; 7346 VMA PHYSICAL, ;ABSOLUTE ADDRESSING U 2170, 3366,0111,1103,4364,4007,0700,0200,0024,1016 ; 7347 J/TRP1 ;JOIN COMMON CODE ; 7348 ; 7349 [AR]_[AR]+[EBR], ;WE COME HERE IN EXEC MODE ; 7350 MEM READ, ;WAIT FOR PREFETCH TO GET INTO THE CACHE. ; 7351 ; MAY PAGE FAIL BUT THAT IS OK ; 7352 START READ, ;START FETCH ; 7353 VMA PHYSICAL, ;ABSOLUTE ADDRESSING U 2171, 3366,0111,1003,4364,4007,0700,0200,0024,1016 ; 7354 J/TRP1 ;JOIN COMMON CODE ; 7355 ; 7356 TRP1: MEM READ, [HR]_MEM, ;PLACE INSTRUCTION IN HR U 3366, 3367,3771,0002,4365,5617,0700,0200,0000,0002 ; 7357 LOAD INST ;LOAD IR, XR, @@ ; 7358 [HR].AND.#, ;TEST TO SEE IF THIS ; 7359 #/700000, 3T, ; IS A UUO U 3367, 2174,4553,0200,4374,4007,0321,0000,0070,0000 ; 7360 SKIP ADL.EQ.0 ; 7361 =0 CHANGE FLAGS, ;NOT A UUO ; 7362 HOLD USER/1, ;CLEAR TRAP FLAGS U 2174, 2564,4443,0000,4174,4467,0700,0000,0001,0000 ; 7363 J/XCT1 ;DO THE INSTRUCTION U 2175, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7364 UUO ;DO THE UUO ; 7365 ; 7366 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 169 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES ; 7367 .TOC "IO -- INTERNAL DEVICES" ; 7368 ; 7369 .DCODE D 0700, 1200,1700,4100 ; 7370 700: IOT,AC DISP, J/GRP700 D 0701, 1200,1720,4100 ; 7371 IOT,AC DISP, J/GRP701 ; 7372 .UCODE ; 7373 U 1701, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7374 1701: UUO ;DATAI APR, U 1702, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7375 1702: UUO ;BLKO APR, U 1703, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7376 1703: UUO ;DATAO APR, U 1706, 3372,3771,0005,4304,4007,0701,0000,0000,0000 ; 7377 1706: [BR]_APR, J/APRSZ ;CONSZ APR, U 1707, 3370,3771,0005,4304,4007,0701,0000,0000,0000 ; 7378 1707: [BR]_APR, J/APRSO ;CONSO APR, ; 7379 1710: U 1710, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7380 RDERA: UUO ;BLKI PI, U 1711, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7381 1711: UUO ;DATAI PI, U 1712, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7382 1712: UUO ;BLKO PI, U 1713, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7383 1713: UUO ;DATAO PI, U 1716, 3373,3441,1405,4174,4007,0700,0000,0000,0000 ; 7384 1716: [BR]_[PI], J/CONSZ ;CONSZ PI, U 1717, 3371,3441,1405,4174,4007,0700,0000,0000,0000 ; 7385 1717: [BR]_[PI], J/CONSO ;CONSO PI, ; 7386 ; 7387 .IFNOT/ITS ; 7388 1720: ; 7389 GRP701: UUO ;BLKI PAG, ; 7390 .ENDIF/ITS U 1726, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7391 1726: UUO ;CONSZ PAG, U 1727, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7392 1727: UUO ;CONSO PAG, ; 7393 ; 7394 ;680I AND CACHE SWEEP STUFF U 1730, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7395 1730: UUO ;BLKI ; 7396 .IF/PCST U 1731, 3476,3771,0005,7274,4007,0701,0000,0000,0233 ; 7397 1731: [BR]_WORK[PCST], J/RTNREG ;Read PC sample table pointer ; 7398 .IFNOT/PCST ; 7399 1731: UUO ;DATAI ; 7400 .ENDIF/PCST U 1732, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7401 1732: UUO ;BLKO ; 7402 .IF/PCST U 1733, 3374,3443,0300,4174,4007,0700,0200,0004,0012 ; 7403 1733: VMA_[AR], START READ, J/WRPCST ;Write PC sample table pointer ; 7404 .IFNOT/PCST ; 7405 1733: UUO ;DATAO ; 7406 .ENDIF/PCST U 1734, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7407 1734: UUO ;CONO U 1735, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7408 1735: UUO ;CONI U 1736, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7409 1736: UUO ;CONSZ U 1737, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7410 1737: UUO ;CONSO ; 7411 U 3370, 3371,4251,0505,4374,4007,0700,0000,0000,7770 ; 7412 APRSO: [BR]_[BR].AND.# CLR LH, #/7770 U 3371, 0014,4113,0305,4174,4007,0330,0000,0000,0000 ; 7413 CONSO: [BR].AND.[AR], SKIP ADR.EQ.0, J/SKIP ; 7414 U 3372, 3373,4251,0505,4374,4007,0700,0000,0000,7770 ; 7415 APRSZ: [BR]_[BR].AND.# CLR LH, #/7770 U 3373, 1400,4113,0305,4174,4007,0330,0000,0000,0000 ; 7416 CONSZ: [BR].AND.[AR], SKIP ADR.EQ.0, J/DONE ; 7417 ; 7418 .IF/PCST U 3374, 3375,3771,0005,4365,5007,0700,0200,0000,0002 ; 7419 WRPCST: MEM READ, [BR]_MEM U 3375, 1400,3333,0005,7174,4007,0700,0400,0000,0233 ; 7420 WORK[PCST]_[BR], J/DONE ; 7421 .ENDIF/PCST ; 7422 ; 7423 1700: ; 7424 GRP700: ; 7425 APRID: [BR]_#, ; 7426 HARDWARE OPTIONS/HWOPT, U 1700, 0137,3771,0005,4374,4007,0700,0000,0000,3301 ; 7427 HARDWARE SERIAL NUMBER/HWSER ; 7428 137: [BR]_#, ; 7429 MICROCODE OPTIONS/OPT, ; 7430 MICROCODE VERSION/UCV, ; 7431 HOLD RIGHT, U 0137, 3476,3771,0005,4374,0007,0700,0000,0002,0406 ; 7432 J/RTNREG ; 7433 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 170 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES ; 7434 ; 7435 1704: U 1704, 3376,3771,0005,7274,4007,0701,0000,0000,0230 ; 7436 WRAPR: [BR]_WORK[APR] ; 7437 [BR]_[BR].AND.NOT.#, ;CLEAR THE OLD PIA U 3376, 3377,5551,0505,4370,4007,0700,0000,0000,0007 ; 7438 #/7, HOLD LEFT ; .. U 3377, 3400,4551,0304,4374,4007,0700,0000,0000,0007 ; 7439 [ARX]_[AR].AND.#, #/7 ;PUT NEW PIA IN ARX U 3400, 3401,3111,0405,4174,4007,0700,0000,0000,0000 ; 7440 [BR]_[BR].OR.[ARX] ;PUT NEW PIA IN BR ; 7441 [ARX]_[AR].AND.#, ;MASK THE DATA BITS U 3401, 3402,4551,0304,4374,4007,0700,0000,0000,7760 ; 7442 #/007760 ; DOWN TO ENABLES U 3402, 2200,4553,0300,4374,4007,0331,0000,0010,0000 ; 7443 TR [AR], #/100000 ;WANT TO ENABLE ANY? U 2200, 2201,3111,0405,4174,4007,0700,0000,0000,0000 ; 7444 =0 [BR]_[BR].OR.[ARX] ;YES--SET THEM U 2201, 2202,4553,0300,4374,4007,0331,0000,0004,0000 ; 7445 TR [AR], #/40000 ;WANT TO DISABLE ANY? U 2202, 2203,5111,0405,4174,4007,0700,0000,0000,0000 ; 7446 =0 [BR]_[BR].AND.NOT.[ARX] ;YES--CLEAR THEM U 2203, 3403,3771,0006,4304,4007,0701,0000,0000,0000 ; 7447 [BRX]_APR ;GET CURRENT STATUS U 3403, 2204,4553,0300,4374,4007,0331,0000,0002,0000 ; 7448 TR [AR], #/20000 ;WANT TO CLEAR FLAGS? U 2204, 2205,5111,0406,4174,4007,0700,0000,0000,0000 ; 7449 =0 [BRX]_[BRX].AND.NOT.[ARX] ;YES--CLEAR BITS U 2205, 2206,4553,0300,4374,4007,0331,0000,0001,0000 ; 7450 TR [AR], #/10000 ;WANT TO SET ANY FLAGS? U 2206, 2207,3111,0406,4174,4007,0700,0000,0000,0000 ; 7451 =0 [BRX]_[BRX].OR.[ARX] ;YES--SET FLAGS U 2207, 2210,4553,0300,4374,4007,0331,0000,0003,0000 ; 7452 TR [AR], #/30000 ;ANY CHANGE AT ALL? ; 7453 =0 READ [BRX], ;YES--LOAD NEW FLAGS U 2210, 3406,3333,0006,4174,4007,0700,0000,0000,0000 ; 7454 J/WRAPR2 ;TURN OFF INTERRUPT 8080 U 2211, 3404,3333,0005,4174,4007,0700,0000,0000,0000 ; 7455 WRAPR1: READ [BR] ;FIX DPM TIMING BUG ; 7456 READ [BR], ;ENABLE CONDITIONS U 3404, 3405,3333,0005,4174,4257,0700,0000,0000,0000 ; 7457 SET APR ENABLES ; 7458 WORK[APR]_[BR], ;SAVE FOR RDAPR U 3405, 1400,3333,0005,7174,4007,0700,0400,0000,0230 ; 7459 J/DONE ;ALL DONE ; 7460 ; 7461 WRAPR2: READ [BRX], ;LOAD NEW FLAGS U 3406, 3407,3333,0006,4174,4237,0700,0000,0000,0000 ; 7462 SPEC/APR FLAGS ; .. ; 7463 [BRX]_[BRX].AND.NOT.#, ;CLEAR INTERRUPT THE 8080 U 3407, 3410,5551,0606,4370,4007,0700,0000,0000,2000 ; 7464 #/002000, HOLD LEFT ; FLAG ; 7465 READ [BRX], ;LOAD NEW FLAGS ; 7466 SPEC/APR FLAGS, ; .. U 3410, 2211,3333,0006,4174,4237,0700,0000,0000,0000 ; 7467 J/WRAPR1 ;LOOP BACK ; 7468 ; 7469 1705: U 1705, 3411,3771,0005,7274,4007,0701,0000,0000,0230 ; 7470 RDAPR: [BR]_WORK[APR] ; 7471 [BR]_[BR] SWAP, ;PUT ENABLES IN BOTH U 3411, 3412,3770,0505,4344,0007,0700,0000,0000,0000 ; 7472 HOLD RIGHT ; HALVES ; 7473 [BR]_[BR].AND.#, ;SAVE ENABLES IN LH ; 7474 #/7760, ; U 3412, 3413,4551,0505,4374,0007,0700,0000,0000,7760 ; 7475 HOLD RIGHT ; 7476 [BR]_[BR].AND.#, ;SAVE PIA IN RH ; 7477 #/7, U 3413, 3414,4551,0505,4370,4007,0700,0000,0000,0007 ; 7478 HOLD LEFT U 3414, 3415,3771,0004,4304,4007,0701,0000,0000,0000 ; 7479 [ARX]_APR ;READ THE APR FLAGS ; 7480 [ARX]_[ARX].AND.# CLR LH, ;MASK OUT JUNK U 3415, 3416,4251,0404,4374,4007,0700,0000,0000,7770 ; 7481 #/007770 ;KEEP 8 FLAGS ; 7482 [BR]_[BR].OR.[ARX], ;MASH THE STUFF TOGETHER U 3416, 3476,3111,0405,4174,4007,0700,0000,0000,0000 ; 7483 J/RTNREG ;RETURN ; 7484 ; 7485 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 171 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- EBR & UBR ; 7486 .TOC "IO -- INTERNAL DEVICES -- EBR & UBR" ; 7487 ; 7488 .IF/ITS ; 7489 1723: U 1723, 3417,3443,0300,4174,4007,0700,0200,0004,0012 ; 7490 WRUBR: VMA_[AR], START READ ; 7491 MEM READ, [AR]_MEM, U 3417, 2212,3771,0003,4365,5007,0521,0200,0000,0002 ; 7492 3T, SKIP DP0 ; Load AC blocks? ; 7493 =0 [AR]_[AR].AND.#, ; No: Clear those bits in argument. ; 7494 #/100003, ; 7495 HOLD RIGHT, U 2212, 3420,4551,0303,4374,0007,0700,0000,0010,0003 ; 7496 J/WRUBR1 ; 7497 [UBR]_[UBR].AND.#, ; Yes: Clear those bits in UBR. ; 7498 #/100003, U 2213, 3420,4551,1111,4374,0007,0700,0000,0010,0003 ; 7499 HOLD RIGHT U 3420, 2214,4553,0300,4374,4007,0321,0000,0010,0000 ; 7500 WRUBR1: TL [AR], #/100000 ; Set base address? ; 7501 =0 [UBR]_[UBR].AND.# CLR RH, ; Yes: Clear those bits in UBR. ; 7502 #/407700, U 2214, 3421,4521,1111,4374,4007,0700,0000,0040,7700 ; 7503 J/WRUBR2 ; 7504 [AR]_[AR].AND.# CLR RH, ; No: Clear those bits in argument. U 2215, 3421,4521,0303,4374,4007,0700,0000,0040,7700 ; 7505 #/407700 ; 7506 WRUBR2: [UBR]_[UBR].OR.[AR], ; Put it all together ; 7507 LOAD AC BLOCKS, ; and tell the hardware. U 3421, 2276,3111,0311,4174,4477,0700,0000,0000,0000 ; 7508 J/SWEEP ; 7509 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 172 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- EBR & UBR ; 7510 ; 7511 .IFNOT/ITS ; 7512 1723: ; 7513 WRUBR: VMA_[AR], ;LOAD E INTO VMA ; 7514 START READ ;START MEMORY ; 7515 MEM READ, ;WAIT FOR DATA ; 7516 [AR]_MEM, 3T, ;PUT IT INTO THE AR ; 7517 SKIP DP0 ;SEE IF WE WANT TO LOAD ; 7518 ; AC BLOCK NUMBERS ; 7519 =0 [AR]_[AR].AND.#, ;NO--CLEAR JUNK IN AR ; 7520 #/100000, ; LEAVE ONLY LOAD UBR ; 7521 HOLD RIGHT, ; IN LEFT HALF ; 7522 SKIP ADL.EQ.0, 3T, ;SEE IF WE WANT TO LOAD ; 7523 J/ACBSET ;SKIP AROUND UBR LOAD ; 7524 [UBR]_[UBR].AND.#, ;MASK OUT THE OLD ; 7525 #/770077, ; AC BLOCK NUMBERS ; 7526 HOLD RIGHT ;IN THE LEFT HALF ; 7527 [AR].AND.#, ;SEE IF WE WANT TO LOAD ; 7528 #/100000, 3T, ; UBR ALSO ; 7529 SKIP ADL.EQ.0 ; 7530 =0 ; 7531 ACBSET: [BR]_[AR].AND.#, ;COPY UBR PAGE NUMBER ; 7532 #/17777, ; INTO BR ; 7533 J/SETUBR ;GO LOAD UBR ; 7534 [UBR]_[UBR].OR.[AR], ;DO NOT LOAD UBR ; 7535 ; PUT AC BLOCK # IN ; 7536 HOLD RIGHT, ; THE LEFT HALF ; 7537 LOAD AC BLOCKS, ;LOAD HARDWARE ; 7538 J/DONE ;ALL DONE ; 7539 ; 7540 SETUBR: [BR]_0, ;CLEAR BR LEFT ; 7541 SC_7, ;PUT THE COUNT IN SC ; 7542 HOLD RIGHT ; 7543 =0 ; 7544 STUBRS: [BR]_[BR]*2, ;SHIFT BR OVER ; 7545 STEP SC, ; 9 PLACES ; 7546 J/STUBRS ; 7547 [UBR]_[UBR].AND.#, ;MASK OUT OLD UBR ; 7548 #/777774, ; BITS IN ; 7549 HOLD RIGHT ; LEFT HALF ; 7550 [UBR]_0, ;CLEAR RIGHT HALF ; 7551 HOLD LEFT ; 7552 [UBR]_[UBR].OR.[BR] ;PUT IN PAGE TABLE ADDRESS ; 7553 [UBR]_[UBR].OR.[AR], ;PUT IN AC BLOCK # ; 7554 HOLD RIGHT, ; IN LEFT HALF ; 7555 LOAD AC BLOCKS, ;TELL HARDWARE ; 7556 J/SWEEP ;CLEAR CACHE ; 7557 .ENDIF/ITS ; 7558 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 173 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- EBR & UBR ; 7559 ; 7560 1724: U 1724, 2216,3445,0303,4174,4007,0700,2000,0071,0006 ; 7561 WREBR: [AR]_[AR]*2, SC_6 ; 7562 =0 U 2216, 2216,3445,0303,4174,4007,0630,2000,0060,0000 ; 7563 WREBR1: [AR]_[AR]*2, STEP SC, J/WREBR1 ; 7564 .IF/FULL ;DO NOT ENABLE PAGING IN SMALL ; 7565 ; MICROCODE. U 2217, 3422,3771,0005,7274,4007,0701,0000,0000,0230 ; 7566 [BR]_WORK[APR] U 3422, 3423,4551,0505,4370,4007,0700,0000,0074,7777 ; 7567 [BR]_[BR].AND.#, #/747777, HOLD LEFT U 3423, 2220,4553,0300,4374,4007,0321,0000,0000,0020 ; 7568 [AR].AND.#, #/20, 3T, SKIP ADL.EQ.0 U 2220, 2221,3551,0505,4370,4007,0700,0000,0003,0000 ; 7569 =0 [BR]_[BR].OR.#, #/030000, HOLD LEFT U 2221, 3424,3333,0005,4174,4257,0700,0000,0000,0000 ; 7570 READ [BR], SET APR ENABLES U 3424, 3425,3333,0005,7174,4007,0700,0400,0000,0230 ; 7571 WORK[APR]_[BR] ; 7572 .ENDIF/FULL U 3425, 3426,3441,0310,4174,4007,0700,0000,0000,0000 ; 7573 [EBR]_[AR] U 3426, 2222,4553,1000,4374,4007,0321,0000,0000,0040 ; 7574 [EBR].AND.#, #/40, 3T, SKIP ADL.EQ.0 U 2222, 2276,3551,1010,4374,0007,0700,0000,0040,0000 ; 7575 =0 [EBR]_[EBR].OR.#, #/400000, HOLD RIGHT, J/SWEEP U 2223, 2276,5551,1010,4374,0007,0700,0000,0040,0000 ; 7576 [EBR]_[EBR].AND.NOT.#, #/400000, HOLD RIGHT, J/SWEEP ; 7577 ; 7578 1725: U 1725, 2224,3447,1005,4174,4007,0700,2000,0071,0006 ; 7579 RDEBR: [BR]_[EBR]*.5, SC_6 ; 7580 =0 U 2224, 2224,3447,0505,4174,4007,0630,2000,0060,0000 ; 7581 RDEBR1: [BR]_[BR]*.5, STEP SC, J/RDEBR1 U 2225, 3427,4551,0505,4374,4007,0700,0000,0006,3777 ; 7582 [BR]_[BR].AND.#, #/63777 ;MASK TO JUST EBR ; 7583 [BR]_0, ;CLEAR LEFT HALF ; 7584 HOLD RIGHT, ; BITS U 3427, 3476,4221,0005,4174,0007,0700,0000,0000,0000 ; 7585 J/RTNREG ;RETURN ANSWER ; 7586 ; 7587 .IF/ITS ; 7588 1721: U 1721, 3430,3441,1105,4174,4007,0700,0000,0000,0000 ; 7589 RDUBR: [BR]_[UBR] ; 7590 [BR]_[BR].AND.#, ; 7591 #/507703, ; 7592 HOLD RIGHT, U 3430, 3476,4551,0505,4374,0007,0700,0000,0050,7703 ; 7593 J/RTNREG ; 7594 U 3431, 3432,3441,1105,4174,4007,0700,0000,0000,0000 ; 7595 GETPCW: [BR]_[UBR] ; 7596 [BR]_[BR].AND.#, ; 7597 #/507703, ; 7598 HOLD RIGHT, U 3432, 0001,4551,0505,4374,0004,1700,0000,0050,7703 ; 7599 RETURN [1] ; 7600 ; 7601 .IFNOT/ITS ; 7602 1721: ; 7603 RDUBR: [BR]_[UBR] ; 7604 =0 [BRX]_[BR]*.5, SC_6, CALL [GTPCW1] ; 7605 [BR]_[BR].AND.#, ;JUST RETURN USEFUL ; 7606 #/507700, HOLD RIGHT, ; BITS ; 7607 J/RTNREG ; 7608 ; 7609 ; 7610 GETPCW: [BR]_[UBR] ; 7611 [BRX]_[BR]*.5, SC_6 ; 7612 =0 ; 7613 GTPCW1: [BRX]_[BRX]*.5, STEP SC, J/GTPCW1 ; 7614 [BRX]_[BRX].AND.#, #/17777 ; 7615 [BR]_[BRX], HOLD LEFT, RETURN [1] ; 7616 .ENDIF/ITS ; 7617 ; 7618 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 174 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7619 .TOC "IO -- INTERNAL DEVICES -- KL PAGING REGISTERS" ; 7620 ; 7621 .DCODE D 0702, 1216,1760,4700 ; 7622 702: IOT,AC DISP, M, J/GRP702 ; 7623 .UCODE ; 7624 ; 7625 .IF/ITS ; 7626 1760: ; 7627 GRP702: U 1760, 3476,3771,0005,7274,4007,0701,0000,0000,0215 ; 7628 SDBR1: [BR]_WORK[DBR1], J/RTNREG ; 7629 1761: U 1761, 3476,3771,0005,7274,4007,0701,0000,0000,0216 ; 7630 SDBR2: [BR]_WORK[DBR2], J/RTNREG ; 7631 1762: U 1762, 3476,3771,0005,7274,4007,0701,0000,0000,0217 ; 7632 SDBR3: [BR]_WORK[DBR3], J/RTNREG ; 7633 1763: U 1763, 3476,3771,0005,7274,4007,0701,0000,0000,0220 ; 7634 SDBR4: [BR]_WORK[DBR4], J/RTNREG ; 7635 .IFNOT/ITS ; 7636 1760: ; 7637 GRP702: ; 7638 RDSPB: [BR]_WORK[SBR], J/RTNREG ; 7639 1761: ; 7640 RDCSB: [BR]_WORK[CBR], J/RTNREG ; 7641 1762: ; 7642 RDPUR: [BR]_WORK[PUR], J/RTNREG ; 7643 1763: ; 7644 RDCSTM: [BR]_WORK[CSTM], J/RTNREG ; 7645 .ENDIF/ITS ; 7646 ; 7647 1766: U 1766, 3476,3771,0005,7274,4007,0701,0000,0000,0227 ; 7648 RDHSB: [BR]_WORK[HSBADR], J/RTNREG ; 7649 ; 7650 .IFNOT/ITS ; 7651 1767: UUO ; 7652 .IF/ITS ; 7653 1767: U 1767, 3433,3771,0004,7274,4007,0701,0000,0000,0215 ; 7654 SPM: [ARX]_WORK[DBR1] U 3433, 3434,3443,0300,4174,4007,0700,0200,0003,0012 ; 7655 VMA_[AR], START WRITE U 3434, 2226,3333,0004,4175,5007,0701,0200,0000,0002 ; 7656 MEM WRITE, MEM_[ARX] U 2226, 3435,3771,0004,7274,4007,0701,0010,0000,0216 ; 7657 =0 [ARX]_WORK[DBR2], CALL [SPM-NEXT] U 2227, 2230,3333,0004,4175,5007,0701,0200,0000,0002 ; 7658 MEM WRITE, MEM_[ARX] U 2230, 3435,3771,0004,7274,4007,0701,0010,0000,0304 ; 7659 =0 [ARX]_WORK[QUAN], CALL [SPM-NEXT] ; 7660 .IFNOT/JPC U 2231, 1400,3333,0004,4175,5007,0701,0200,0000,0002 ; 7661 MEM WRITE, MEM_[ARX], J/DONE ; 7662 .IF/JPC ; 7663 MEM WRITE, MEM_[ARX] ; 7664 =0 [ARX]_WORK[U.JPC], CALL [SPM-NEXT] ; 7665 MEM WRITE, MEM_[ARX] ; 7666 =0 [ARX]_WORK[E.JPC], CALL [SPM-NEXT] ; 7667 MEM WRITE, MEM_[ARX], J/DONE ; 7668 .ENDIF/JPC ; 7669 = ; 7670 ; 7671 SPM-NEXT: U 3435, 0001,0111,0703,4170,4004,1700,0200,0003,0012 ; 7672 [AR]_[AR]+1, LOAD VMA, HOLD LEFT, START WRITE, RETURN [1] ; 7673 ; 7674 .ENDIF/ITS ; 7675 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 175 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7676 ; 7677 .IF/ITS ; 7678 ;;; These guys could be careful and only sweep half of the page table (but all ; 7679 ;;; of the cache). ; 7680 1770: U 1770, 2276,3333,0003,7174,4007,0700,0400,0000,0215 ; 7681 LDBR1: WORK[DBR1]_[AR], J/SWEEP ; 7682 1771: U 1771, 2276,3333,0003,7174,4007,0700,0400,0000,0216 ; 7683 LDBR2: WORK[DBR2]_[AR], J/SWEEP ; 7684 1772: U 1772, 2276,3333,0003,7174,4007,0700,0400,0000,0217 ; 7685 LDBR3: WORK[DBR3]_[AR], J/SWEEP ; 7686 1773: U 1773, 2276,3333,0003,7174,4007,0700,0400,0000,0220 ; 7687 LDBR4: WORK[DBR4]_[AR], J/SWEEP ; 7688 .IFNOT/ITS ; 7689 1770: ; 7690 WRSPB: START READ ; 7691 MEM READ, [AR]_MEM ; 7692 WORK[SBR]_[AR], J/DONE ; 7693 1771: ; 7694 WRCSB: START READ ; 7695 MEM READ, [AR]_MEM ; 7696 WORK[CBR]_[AR], J/DONE ; 7697 1772: ; 7698 WRPUR: START READ ; 7699 MEM READ, [AR]_MEM ; 7700 WORK[PUR]_[AR], J/DONE ; 7701 1773: ; 7702 WRCSTM: START READ ; 7703 MEM READ, [AR]_MEM ; 7704 WORK[CSTM]_[AR], J/DONE ; 7705 .ENDIF/ITS ; 7706 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 176 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7707 ; 7708 1776: U 1776, 3436,4443,0000,4174,4007,0700,0200,0004,0002 ; 7709 WRHSB: START READ U 3436, 3437,3771,0003,4365,5007,0700,0200,0000,0002 ; 7710 MEM READ, [AR]_MEM U 3437, 1400,3333,0003,7174,4007,0700,0400,0000,0227 ; 7711 WORK[HSBADR]_[AR], J/DONE ; 7712 ; 7713 .IFNOT/ITS ; 7714 1777: UUO ; 7715 .IF/ITS ; 7716 1777: U 1777, 3440,4443,0000,4174,4007,0700,0200,0004,0002 ; 7717 LPMR: START READ U 3440, 3441,3771,0004,4365,5007,0700,0200,0000,0002 ; 7718 MEM READ, [ARX]_MEM U 3441, 2232,3333,0004,7174,4007,0700,0400,0000,0215 ; 7719 WORK[DBR1]_[ARX] ; 7720 =0 [AR]_[AR]+1, LOAD VMA, HOLD LEFT, START READ, U 2232, 3545,0111,0703,4170,4007,0700,0210,0004,0012 ; 7721 CALL [LOADARX] U 2233, 2234,3333,0004,7174,4007,0700,0400,0000,0216 ; 7722 WORK[DBR2]_[ARX] ; 7723 =0 [AR]_[AR]+1, LOAD VMA, HOLD LEFT, START READ, U 2234, 3545,0111,0703,4170,4007,0700,0210,0004,0012 ; 7724 CALL [LOADARX] ; 7725 .IFNOT/JPC U 2235, 2276,3333,0004,7174,4007,0700,0400,0000,0304 ; 7726 WORK[QUAN]_[ARX], J/SWEEP ; 7727 .IF/JPC ; 7728 WORK[QUAN]_[ARX] ; 7729 =0 [AR]_[AR]+1, LOAD VMA, HOLD LEFT, START READ, ; 7730 CALL [LOADARX] ; 7731 WORK[U.JPC]_[ARX] ; 7732 =0 [AR]_[AR]+1, LOAD VMA, HOLD LEFT, START READ, ; 7733 CALL [LOADARX] ; 7734 WORK[E.JPC]_[ARX], J/SWEEP ; 7735 .ENDIF/JPC ; 7736 = ; 7737 .ENDIF/ITS ; 7738 ; 7739 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 177 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- TIMER CONTROL ; 7740 .TOC "IO -- INTERNAL DEVICES -- TIMER CONTROL" ; 7741 ; 7742 TICK: [AR]_WORK[TIME1], ;[123] GET LOW WORD U 3442, 3443,3771,0003,7274,4117,0701,0000,0000,0301 ; 7743 SPEC/CLRCLK ;[123] CLEAR CLOCK FLAG U 3443, 3444,4751,1205,4374,4007,0700,0000,0001,0000 ; 7744 TOCK: [BR]_0 XWD [10000] ;2^12 UNITS PER MS U 3444, 3445,0111,0503,4174,4007,0700,0000,0000,0000 ; 7745 [AR]_[AR]+[BR] ;INCREMENT THE TIMER U 3445, 2236,3770,0303,4174,0007,0520,0000,0000,0000 ; 7746 FIX [AR] SIGN, SKIP DP0 ;SEE IF IT OVERFLOWED ; 7747 =0 ; 7748 TOCK1: WORK[TIME1]_[AR], ;STORE THE NEW TIME U 2236, 3446,3333,0003,7174,4007,0700,0400,0000,0301 ; 7749 J/TOCK2 ;SKIP OVER THE OVERFLOW CODE U 2237, 2120,3771,0003,7274,4007,0701,0000,0000,0300 ; 7750 [AR]_WORK[TIME0] ;GET HIGH WORD ; 7751 =0* [AR]_[AR]+1, ;BUMP IT U 2120, 3455,0111,0703,4174,4007,0700,0010,0000,0000 ; 7752 CALL [WRTIM1] ;STORE BACK IN RAM ; 7753 [AR]_0, ;CAUSE LOW WORD WORD U 2122, 2236,4221,0003,4174,4007,0700,0000,0000,0000 ; 7754 J/TOCK1 ; TO GET STORED ; 7755 ; 7756 .IF/ITS ; 7757 TOCK2: TR [PI], PI.IP1/1, ;PI in progress? ; 7758 PI.IP2/1, PI.IP3/1, ; 7759 PI.IP4/1, PI.IP5/1, U 3446, 2240,4553,1400,4374,4007,0331,0000,0007,7400 ; 7760 PI.IP6/1, PI.IP7/1 ; 7761 =0 ; 7762 TOCK3: [AR]_WORK[TTG], ;Yes: Skip quantum counter. U 2240, 3450,3771,0003,7274,4007,0701,0000,0000,0303 ; 7763 J/TOCK4 U 2241, 3447,0551,0503,7274,4007,0701,0000,0000,0304 ; 7764 [AR]_[BR]+WORK[QUAN] ;No: Increment quantum counter. ; 7765 = WORK[QUAN]_[AR], U 3447, 2240,3333,0003,7174,4007,0700,0400,0000,0304 ; 7766 J/TOCK3 ; 7767 ; 7768 TOCK4: [AR]_[AR]-[BR], ;COUNT DOWN TIME TO GO U 3450, 2242,1111,0503,4174,4007,0421,4000,0000,0000 ; 7769 SKIP AD.LE.0 ;SEE IF IT TIMED OUT ; 7770 =0 ; 7771 TOCK5: WORK[TTG]_[AR], ;SAVE NEW TIME TO GO U 2242, 0002,3333,0003,7174,4004,1700,0400,0000,0303 ; 7772 RETURN [2] ;ALL DONE U 2243, 3451,0551,0303,7274,4007,0701,0000,0000,0302 ; 7773 [AR]_[AR]+WORK[PERIOD] ;WHY THROW AWAY ALL THAT ACCURACY? ; 7774 .IFNOT/ITS ; 7775 TOCK2: [AR]_WORK[TTG] ; 7776 [AR]_[AR]-[BR], ;COUNT DOWN TIME TO GO ; 7777 SKIP AD.LE.0 ;SEE IF IT TIMED OUT ; 7778 =0 ; 7779 TOCK5: WORK[TTG]_[AR], ;SAVE NEW TIME TO GO ; 7780 RETURN [2] ;ALL DONE ; 7781 [AR]_WORK[PERIOD] ; 7782 .ENDIF/ITS U 3451, 3452,3771,0005,4304,4007,0701,0000,0000,0000 ; 7783 [BR]_APR ;GET CURRENT FLAGS U 3452, 3453,3551,0505,4374,4007,0700,0000,0000,0040 ; 7784 [BR]_[BR].OR.#, #/40 ;SET TIMER INTERRUPT FLAG ; 7785 READ [BR], ;PLACE ON DP AND ; 7786 SPEC/APR FLAGS, ; LOAD INTO HARDWARE U 3453, 2242,3333,0005,4174,4237,0700,0000,0000,0000 ; 7787 J/TOCK5 ;ALL DONE ; 7788 ; 7789 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 178 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- WRTIME & RDTIME ; 7790 .TOC "IO -- INTERNAL DEVICES -- WRTIME & RDTIME" ; 7791 ; 7792 1774: U 1774, 3454,4443,0000,4174,4007,0700,0200,0004,0002 ; 7793 WRTIME: START READ ;FETCH WORD AT E ; 7794 MEM READ, ;WAIT FOR DATA U 3454, 2244,3771,0003,4365,5007,0700,0200,0000,0002 ; 7795 [AR]_MEM ;PUT WORD IN AR ; 7796 =00 VMA_[HR]+1, ;BUMP E ; 7797 START READ, ;START MEMORY U 2244, 3545,0111,0702,4170,4007,0700,0210,0004,0012 ; 7798 CALL [LOADARX] ;PUT DATA IN ARX ; 7799 [ARX]_[ARX].AND.#, ;CLEAR PART HELD IN ; 7800 #/770000, ; HARDWARE COUNTER U 2245, 3455,4551,0404,4370,4007,0700,0010,0077,0000 ; 7801 HOLD LEFT, CALL [WRTIM1] ; 7802 =11 WORK[TIME1]_[ARX], ;IN WORK SPACE U 2247, 1400,3333,0004,7174,4007,0700,0400,0000,0301 ; 7803 J/DONE ;NEXT INSTRUCTION ; 7804 = ; 7805 WRTIM1: WORK[TIME0]_[AR], ;SAVE THE NEW VALUE U 3455, 0002,3333,0003,7174,4004,1700,0400,0000,0300 ; 7806 RETURN [2] ; 7807 ; 7808 1764: U 1764, 3456,4451,1205,4324,4007,0700,0000,0000,0000 ; 7809 RDTIME: [BR]_TIME ;READ THE TIME U 3456, 3457,4451,1204,4324,4007,0700,0000,0000,0000 ; 7810 [ARX]_TIME ; AGAIN U 3457, 3460,4451,1206,4324,4007,0700,0000,0000,0000 ; 7811 [BRX]_TIME ; AGAIN ; 7812 [BR].XOR.[ARX], ;SEE IF STABLE U 3460, 2250,6113,0405,4174,4007,0621,0000,0000,0000 ; 7813 SKIP AD.EQ.0 ; .. U 2250, 2251,3441,0604,4174,4007,0700,0000,0000,0000 ; 7814 =0 [ARX]_[BRX] ;NO THEN NEXT TRY MUST BE OK U 2251, 3461,3771,0005,7274,4007,0701,0000,0000,0300 ; 7815 [BR]_WORK[TIME0] ; 7816 [ARX]_[ARX]+WORK[TIME1], ;COMBINE PARTS U 3461, 2254,0551,0404,7274,4007,0671,0000,0000,0301 ; 7817 SKIP/-1 MS ;SEE IF OVERFLOW HAPPENED ; 7818 =00 SPEC/CLRCLK, ;CLEAR CLOCK FLAG ; 7819 [AR]_WORK[TIME1], 2T, ;GET LOW WORD FOR TOCK U 2254, 3443,3771,0003,7274,4117,0700,0010,0000,0301 ; 7820 CALL [TOCK] ;UPDATE CLOCKS ; 7821 READ [HR], LOAD VMA, ;DID NOT OVERFLOW U 2255, 3462,3333,0002,4174,4007,0700,0200,0003,0012 ; 7822 START WRITE, J/RDTIM1 ;STORE ANSWER U 2256, 1764,4443,0000,4174,4007,0700,0000,0000,0000 ; 7823 J/RDTIME ;TRY AGAIN ; 7824 = U 3462, 3463,3333,0005,4175,5007,0701,0200,0000,0002 ; 7825 RDTIM1: MEM WRITE, MEM_[BR] U 3463, 3464,0111,0702,4170,4007,0700,0200,0003,0012 ; 7826 VMA_[HR]+1, LOAD VMA, START WRITE U 3464, 1400,3333,0004,4175,5007,0701,0200,0000,0002 ; 7827 MEM WRITE, MEM_[ARX], J/DONE ; 7828 ; 7829 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 179 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- WRINT & RDINT ; 7830 .TOC "IO -- INTERNAL DEVICES -- WRINT & RDINT" ; 7831 ; 7832 ; 7833 1775: U 1775, 3465,4443,0000,4174,4007,0700,0200,0004,0002 ; 7834 WRINT: START READ U 3465, 3466,3771,0003,4365,5007,0700,0200,0000,0002 ; 7835 MEM READ, [AR]_MEM U 3466, 3467,3333,0003,7174,4007,0700,0400,0000,0302 ; 7836 WORK[PERIOD]_[AR] ; 7837 WORK[TTG]_[AR], U 3467, 1400,3333,0003,7174,4007,0700,0400,0000,0303 ; 7838 J/DONE ; 7839 ; 7840 1765: ; 7841 RDINT: [BR]_WORK[PERIOD], U 1765, 3476,3771,0005,7274,4007,0701,0000,0000,0302 ; 7842 J/RTNREG ; 7843 ; 7844 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 180 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- RDPI & WRPI ; 7845 .TOC "IO -- INTERNAL DEVICES -- RDPI & WRPI" ; 7846 ; 7847 1715: U 1715, 3476,3441,1405,4174,4007,0700,0000,0000,0000 ; 7848 RDPI: [BR]_[PI], J/RTNREG ; 7849 ; 7850 1714: U 1714, 2252,4553,0300,4374,4007,0331,0000,0001,0000 ; 7851 WRPI: TR [AR], PI.CLR/1 U 2252, 2253,4221,0014,4174,4007,0700,0000,0000,0000 ; 7852 =0 [PI]_0 U 2253, 2260,4553,0300,4374,4007,0331,0000,0074,0000 ; 7853 TR [AR], PI.MBZ/17 ; 7854 U 2260, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 7855 =0 UUO U 2261, 3470,4551,0305,4374,4007,0700,0000,0000,0177 ; 7856 [BR]_[AR].AND.#,#/177 U 3470, 3471,3770,0505,4344,0007,0700,0000,0000,0000 ; 7857 [BR]_[BR] SWAP, HOLD RIGHT U 3471, 2262,4553,0300,4374,4007,0331,0000,0002,0000 ; 7858 TR [AR], PI.DIR/1 U 2262, 2263,5111,0514,4174,0007,0700,0000,0000,0000 ; 7859 =0 [PI]_[PI].AND.NOT.[BR], HOLD RIGHT U 2263, 2264,4553,0300,4374,4007,0331,0000,0000,4000 ; 7860 TR [AR], PI.REQ/1 U 2264, 2265,3111,0514,4174,0007,0700,0000,0000,0000 ; 7861 =0 [PI]_[PI].OR.[BR], HOLD RIGHT U 2265, 2266,4553,0300,4374,4007,0331,0000,0000,0200 ; 7862 TR [AR], PI.TSN/1 U 2266, 2267,3551,1414,4370,4007,0700,0000,0000,0200 ; 7863 =0 [PI]_[PI].OR.#,PI.ON/1, HOLD LEFT U 2267, 2270,4553,0300,4374,4007,0331,0000,0000,0400 ; 7864 TR [AR], PI.TSF/1 U 2270, 2271,5551,1414,4370,4007,0700,0000,0000,0200 ; 7865 =0 [PI]_[PI].AND.NOT.#,PI.ON/1, HOLD LEFT U 2271, 2272,4553,0300,4374,4007,0331,0000,0000,2000 ; 7866 TR [AR], PI.TCN/1 U 2272, 2273,3111,0514,4170,4007,0700,0000,0000,0000 ; 7867 =0 [PI]_[PI].OR.[BR], HOLD LEFT U 2273, 2300,4553,0300,4374,4007,0331,0000,0000,1000 ; 7868 TR [AR], PI.TCF/1 U 2300, 2301,5111,0514,4170,4007,0700,0000,0000,0000 ; 7869 =0**0 [PI]_[PI].AND.NOT.[BR], HOLD LEFT U 2301, 3473,3770,1416,4344,4007,0700,0010,0000,0000 ; 7870 PIEXIT: CALL LOAD PI ; 7871 =1**1 U 2311, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 7872 DONE ; 7873 = ; 7874 ; 7875 ; 7876 ;SUBROUTINE TO LOAD PI HARDWARE ; 7877 ;CALL WITH: ; 7878 ; CALL LOAD PI ; 7879 ;RETURNS 10 WITH PI HARDWARE LOADED ; 7880 ; U 3472, 3473,3770,1416,4344,4007,0700,0000,0000,0000 ; 7881 LOADPI: [T0]_[PI] SWAP ;PUT ACTIVE CHANS IN LH U 3473, 3474,2441,0716,4170,4007,0700,4000,0000,0000 ; 7882 LDPI2: [T0]_-1, HOLD LEFT ;DONT MASK RH U 3474, 3475,4111,1416,4174,4007,0700,0000,0000,0000 ; 7883 [T0]_[T0].AND.[PI] ;ONLY REQUEST CHANS THAT ARE ON ; 7884 .NOT.[T0], LOAD PI, ;RELOAD HARDWARE U 3475, 0010,7443,1600,4174,4434,1700,0000,0000,0000 ; 7885 RETURN [10] ;RETURN TO CALLER ; 7886 ; 7887 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 181 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7888 .TOC "IO -- INTERNAL DEVICES -- SUBROUTINES" ; 7889 ; 7890 ; 7891 ;HERE WITH SOMETHING IN BR STORE IT @@AR U 3476, 3477,3443,0300,4174,4007,0700,0200,0003,0012 ; 7892 RTNREG: VMA_[AR], START WRITE U 3477, 1400,3333,0005,4175,5007,0701,0200,0000,0002 ; 7893 MEM WRITE, MEM_[BR], J/DONE ; 7894 ; 7895 ;CACHE SWEEP ; 7896 ; 7897 1722: ; 7898 CLRPT: VMA_[AR], ;PUT CORRECT ADDRESS IN VMA U 1722, 3500,3443,0300,4174,4147,0700,0200,0000,0010 ; 7899 LOAD PAGE TABLE ;GET SET TO WRITE PAGE TABLE U 3500, 1720,4221,0003,4174,4007,0700,0000,0000,0000 ; 7900 [AR]_0 ;CLEAR ENTRY ; 7901 .IF/ITS ; 7902 1720: ; 7903 GRP701: U 1720, 3501,3771,0003,4374,4007,0700,0000,0037,7377 ; 7904 CLRCSH: [AR]_#, #/377377 ;INITIAL VMA VALUE U 3501, 3502,4443,0000,4174,4007,0700,2000,0071,0375 ; 7905 SC_S#, S#/375 ;LOAD THE SC WITH NUMBER OF STEPS ; 7906 .IFNOT/ITS ; 7907 =0 [AR]_#,#/377377, ;INITIAL VMA VALUE ; 7908 CALL [SSWEEP] ;LOAD THE SC ; 7909 .ENDIF/ITS ; 7910 [BR]_#, #/1001, ;CONSTANT TO KEEP ADDING U 3502, 3503,3771,0005,4374,4247,0700,0000,0000,1001 ; 7911 CLRCSH ;START TO CLEAR CACHE U 3503, 2274,3333,0003,4174,4247,0700,0000,0000,1000 ; 7912 READ [AR], CLRCSH ;FIRST THING TO CLEAR ; 7913 =0 ; 7914 CLRPTL: [AR]_[AR]-[BR], ;UPDATE AR (AND PUT ON DP) ; 7915 CLRCSH, ;SWEEP ON NEXT STEP ; 7916 STEP SC, ;SKIP IF WE ARE DONE U 2274, 2274,1111,0503,4174,4247,0630,6000,0060,1000 ; 7917 J/CLRPTL ;LOOP FOR ALL ENTRIES ; 7918 .IFNOT/ITS ; 7919 READ [AR], J/ZAPPTA ;CLEAR LAST ENTRY ; 7920 .IF/ITS U 2275, 1400,3333,0003,4174,4007,0700,0000,0000,0000 ; 7921 READ [AR], J/DONE ;Clear last entry. ; 7922 .ENDIF/ITS ; 7923 ; 7924 =0 ; 7925 SWEEP: [AR]_#,#/377377, ;INITIAL VMA VALUE U 2276, 3505,3771,0003,4374,4007,0700,0010,0037,7377 ; 7926 CALL [SSWEEP] ;LOAD NUMBER OF STEPS INTO SC ; 7927 [BR]_#, #/1001, ;CONSTANT TO KEEP ADDING U 2277, 3504,3771,0005,4374,4347,0700,0000,0000,1001 ; 7928 SWEEP ;START SWEEP U 3504, 2302,3333,0003,4174,4347,0700,0000,0000,1000 ; 7929 READ [AR], SWEEP ;FIRST THING TO CLEAR ; 7930 =0 ; 7931 SWEEPL: [AR]_[AR]-[BR], ;UPDATE AR (AND PUT ON DP) ; 7932 SWEEP, ;SWEEP ON NEXT STEP ; 7933 STEP SC, ;SKIP IF WE ARE DONE U 2302, 2302,1111,0503,4174,4347,0630,6000,0060,1000 ; 7934 J/SWEEPL ;LOOP FOR ALL ENTRIES ; 7935 ;CLEAR LAST ENTRY AND ; 7936 .IF/ITS U 2303, 1400,4221,0003,4174,4007,0700,0000,0000,0000 ; 7937 [AR]_0, J/DONE ;Clear last entry. ; 7938 .IFNOT/ITS ; 7939 ZAPPTA: WORK[PTA.U]_0 ; FORGET PAGE TABLE ADDRESS ; 7940 WORK[PTA.E]_0, ;FORGET PAGE TABLE ADDRESS ; 7941 J/DONE ;ALL DONE ; 7942 .ENDIF/ITS ; 7943 ; 7944 SSWEEP: SC_S#, S#/375, ;NUMBER OF STEPS U 3505, 0001,4443,0000,4174,4004,1700,2000,0071,0375 ; 7945 RETURN [1] ;RETURN ; 7946 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 182 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7947 ; 7948 ;WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL ; 7949 ; LOGIC. IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP ; 7950 ; TO RESTART PROPERLY. ; 7951 ; 7952 ;FIRST SET THE CORRECT PI IN PROGRESS BIT ; 7953 ; [FLG]_[FLG].OR.#,FLG.PI/1, HOLD RIGHT, ; 7954 ; J/PI ;SET PI CYCLE AND PROCESS PI ; 7955 =1000 ; 7956 PI: AD/D, DBUS/PI NEW, ;LOOK AT NEW LEVEL ; 7957 DISP/DP LEFT, 3T, ;DISPATCH ON IT U 2330, 2330,3773,0000,4074,4003,1701,0000,0000,0000 ; 7958 J/PI ;GO TO 1 OF NEXT 7 PLACES U 2331, 3506,3551,1414,4370,4007,0700,0000,0004,0000 ; 7959 =1001 [PI]_[PI].OR.#, #/040000, HOLD LEFT, J/PIP1 U 2332, 3507,3551,1414,4370,4007,0700,0000,0002,0000 ; 7960 =1010 [PI]_[PI].OR.#, #/020000, HOLD LEFT, J/PIP2 U 2333, 3510,3551,1414,4370,4007,0700,0000,0001,0000 ; 7961 =1011 [PI]_[PI].OR.#, #/010000, HOLD LEFT, J/PIP3 U 2334, 3511,3551,1414,4370,4007,0700,0000,0000,4000 ; 7962 =1100 [PI]_[PI].OR.#, #/004000, HOLD LEFT, J/PIP4 U 2335, 3512,3551,1414,4370,4007,0700,0000,0000,2000 ; 7963 =1101 [PI]_[PI].OR.#, #/002000, HOLD LEFT, J/PIP5 U 2336, 3513,3551,1414,4370,4007,0700,0000,0000,1000 ; 7964 =1110 [PI]_[PI].OR.#, #/001000, HOLD LEFT, J/PIP6 U 2337, 3514,3551,1414,4370,4007,0700,0000,0000,0400 ; 7965 =1111 [PI]_[PI].OR.#, #/000400, HOLD LEFT, J/PIP7 U 3506, 3515,4751,1206,4374,4007,0700,0000,0000,0001 ; 7966 PIP1: [BRX]_0 XWD [1], J/PI10 ;REMEMBER WE ARE AT LEVEL 1 U 3507, 3515,4751,1206,4374,4007,0700,0000,0000,0002 ; 7967 PIP2: [BRX]_0 XWD [2], J/PI10 ;REMEMBER WE ARE AT LEVEL 2 U 3510, 3515,4751,1206,4374,4007,0700,0000,0000,0003 ; 7968 PIP3: [BRX]_0 XWD [3], J/PI10 ;REMEMBER WE ARE AT LEVEL 3 U 3511, 3515,4751,1206,4374,4007,0700,0000,0000,0004 ; 7969 PIP4: [BRX]_0 XWD [4], J/PI10 ;REMEMBER WE ARE AT LEVEL 4 U 3512, 3515,4751,1206,4374,4007,0700,0000,0000,0005 ; 7970 PIP5: [BRX]_0 XWD [5], J/PI10 ;REMEMBER WE ARE AT LEVEL 5 U 3513, 3515,4751,1206,4374,4007,0700,0000,0000,0006 ; 7971 PIP6: [BRX]_0 XWD [6], J/PI10 ;REMEMBER WE ARE AT LEVEL 6 U 3514, 3515,4751,1206,4374,4007,0700,0000,0000,0007 ; 7972 PIP7: [BRX]_0 XWD [7], J/PI10 ;REMEMBER WE ARE AT LEVEL 7 ; 7973 ; 7974 PI10: [AR]_[PI].AND.# CLR LH, ;TURN OFF PI SYSTEM U 3515, 3516,4251,1403,4374,4007,0700,0000,0007,7577 ; 7975 #/077577 ; TILL WE ARE DONE U 3516, 3517,7443,0300,4174,4437,0700,0000,0000,0000 ; 7976 .NOT.[AR], LOAD PI ; .. U 3517, 2304,4223,0000,4364,4277,0700,0200,0000,0010 ; 7977 ABORT MEM CYCLE ;NO MORE TRAPS ; 7978 =0 [AR]_VMA IO READ, ;SETUP TO READ WRU BITS ; 7979 WRU CYCLE/1, ; .. U 2304, 3553,4571,1203,4374,4007,0700,0010,0024,1300 ; 7980 CALL [STRTIO] ;START THE CYCLE ; 7981 MEM READ, ;WAIT FOR DATA ; 7982 [AR]_IO DATA, 3T, ;PUT DATA IN AR U 2305, 2306,3771,0003,4364,4007,0331,0200,0000,0002 ; 7983 SKIP ADR.EQ.0 ;SEE IF ANYONE THERE U 2306, 3530,4221,0004,4174,4007,0700,0000,0000,0000 ; 7984 =0 [ARX]_0, J/VECINT ;YES--VECTORED INTERRUPT U 2307, 3520,3445,0603,4174,4007,0700,0000,0000,0000 ; 7985 [AR]_[BRX]*2 ;N*2 ; 7986 [AR]_[AR]+#, #/40, 3T, ;2*N+40 U 3520, 3521,0551,0303,4370,4007,0701,0000,0000,0040 ; 7987 HOLD LEFT ; .. ; 7988 [AR]_[AR]+[EBR], ;ABSOULTE ADDRESS OF U 3521, 3522,0111,1003,4174,4007,0700,0000,0000,0000 ; 7989 J/PI40 ; INTERRUPT INSTRUCTION ; 7990 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 183 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7991 ; 7992 ;HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR] U 3522, 3523,3443,0300,4174,4007,0700,0200,0024,1016 ; 7993 PI40: VMA_[AR], VMA PHYSICAL READ ;FETCH THE INSTRUCTION ; 7994 PI50: MEM READ, [AR]_MEM, LOAD VMA, ;FETCH INSTRUCTION U 3523, 3524,3771,0003,4365,5007,0701,0200,0020,0012 ; 7995 3T, FORCE EXEC ;E IS EXEC MODE U 3524, 2312,6553,0300,4374,4007,0321,0000,0025,4340 ; 7996 [AR].XOR.#, #/254340, 3T, SKIP ADL.EQ.0 U 2312, 2320,6553,0300,4374,4007,0321,0000,0026,4000 ; 7997 =0 [AR].XOR.#, #/264000, SKIP ADL.EQ.0, 3T, J/PIJSR U 2313, 3525,4521,1205,4074,4007,0700,0000,0000,0000 ; 7998 [BR]_FLAGS ;SAVE FLAGS ; 7999 AD/ZERO, LOAD FLAGS, U 3525, 0230,4223,0000,4174,4467,0700,0000,0000,0004 ; 8000 J/PIXPCW ;ENTER EXEC MODE AND ASSUME ; 8001 ; WE HAVE AN XPCW ; 8002 ;IF WE HALT HERE ON A VECTORED INTERRUPT, WE HAVE ; 8003 ; T0/ WHAT WE READ FROM BUS AS VECTOR ; 8004 ; ARX/ EPT+100+DEVICE ; 8005 ; BR/ ADDRESS OF ILLEGAL INSTRUCTION ; 8006 ; BRX/ VECTOR (MASKED AND SHIFTED) ; 8007 .IFNOT/1PROC ; 8008 =0 ; 8009 PIJSR: HALT [ILLII] ;NOT A JSR OR XPCW ; 8010 START WRITE, FORCE EXEC ;PREPARE TO STORE OLD PC ; 8011 =0*0 [BR]_PC WITH FLAGS, ;OLD PC ; 8012 CALL [STOBR] ;STORE OLD PC ; 8013 =1*0 [AR]_#, #/0, HOLD RIGHT, ;PREPARE TO CLEAR FLAGS ; 8014 CALL [INCAR] ;BUMP POINTER ; 8015 =1*1 [PC]_[AR], LOAD FLAGS, ;NEW PC ; 8016 J/PISET ;CLEAR PI CYCLE & START ; 8017 ; INTERRUPT PROGRAM ; 8018 = ; 8019 .IF/1PROC ; 8020 =0*0 U 2320, 2404,4751,1217,4374,4007,0700,0000,0000,0101 ; 8021 PIJSR: HALT [ILLII] ;NOT A JSR OR XPCW ; 8022 =0*1 START WRITE, FORCE EXEC, ;STORE OLD PC U 2321, 3661,4443,0000,4174,4007,0700,0210,0023,0002 ; 8023 CALL [STORE-INT-PC] U 2325, 3526,3771,0003,4374,0007,0700,0000,0000,0000 ; 8024 =1*1 [AR]_#, #/0, HOLD RIGHT ;PREPARE TO CLEAR FLAGS U 3526, 3527,0111,0703,4170,4007,0700,0000,0000,0000 ; 8025 [AR]_[AR]+1, HOLD LEFT ;BUMP POINTER ; 8026 [PC]_[AR], LOAD FLAGS, ;NEW PC U 3527, 2561,3441,0301,4174,4467,0700,0000,0000,0004 ; 8027 J/PISET ;CLEAR PI CYCLE & START ; 8028 ; INTERRUPT PROGRAM ; 8029 .ENDIF/1PROC ; 8030 ; 8031 ;HERE TO PROCESS A VECTORED INTERRUPT. AT THIS POINT: ; 8032 ; AR/ WRU BITS (BIT 18 FOR DEVICE 0) ; 8033 ; ARX/ 0 ; 8034 VECINT: [AR]_[AR]*2, ;SHIFT LEFT (UNSHIFTED ON DP) U 3530, 2314,3445,0303,4174,4007,0530,0000,0000,0000 ; 8035 SKIP DP18 ;ANYONE THERE? ; 8036 =0 [ARX]_[ARX]+[XWD1], ;NO--BUMP BOTH HALVES U 2314, 3530,0111,1504,4174,4007,0700,0000,0000,0000 ; 8037 J/VECINT ;KEEP LOOKING ; 8038 [AR]_VMA IO READ, ;SETUP FOR VECTOR CYCLE U 2315, 2316,4571,1203,4374,4007,0700,0000,0024,1240 ; 8039 VECTOR CYCLE/1 ; .. ; 8040 =0 [AR]_[AR].OR.[ARX], ;PUT IN UNIT NUMBER U 2316, 3553,3111,0403,4174,4007,0700,0010,0000,0000 ; 8041 CALL [STRTIO] ;START CYCLE ; 8042 MEM READ, ;WAIT FOR VECTOR (SEE DPM5) U 2317, 2322,3771,0016,4364,4007,0700,0200,0000,0002 ; 8043 [T0]_IO DATA ;GET VECTOR ; 8044 =0 [BR]_[EBR]+#, 3T, #/100, ;EPT+100 U 2322, 3550,0551,1005,4374,4007,0701,0010,0000,0100 ; 8045 CALL [CLARXL] ;CLEAR ARX LEFT ; 8046 [ARX]_[ARX]+[BR], ;EPT+100+DEVICE U 2323, 3531,0111,0504,4174,4007,0700,0200,0024,1016 ; 8047 VMA PHYSICAL READ ;FETCH WORD ; 8048 MEM READ, [BR]_MEM, 3T, ;GET POINTER U 3531, 2326,3771,0005,4365,5007,0331,0200,0000,0002 ; 8049 SKIP ADR.EQ.0 ;SEE IF NON-ZERO ; 8050 =0 [BRX]_([T0].AND.#)*.5, 3T, ;OK--MAKE VECTOR MOD 400 U 2326, 3532,4557,1606,4374,4007,0701,0000,0000,0774 ; 8051 #/774, J/VECIN1 ; AND SHIFT OVER U 2327, 2404,4751,1217,4374,4007,0700,0000,0000,0102 ; 8052 HALT [ILLINT] U 3532, 3533,3447,0606,4174,4007,0700,0000,0000,0000 ; 8053 VECIN1: [BRX]_[BRX]*.5 ;SHIFT 1 MORE PLACE ; 8054 [BR]_[BR]+[BRX], ;ADDRESS OF WORD TO USE ; 8055 LOAD VMA, FORCE EXEC, ;FORCE EXEC VIRTUAL ADDRESS U 3533, 3523,0111,0605,4174,4007,0700,0200,0024,0012 ; 8056 START READ, J/PI50 ;GO GET INSTRUCTION ; 8057 ; 8058 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 184 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 PRIORITY INTERRUPTS -- DISMISS SUBROUTINE ; 8059 .TOC "PRIORITY INTERRUPTS -- DISMISS SUBROUTINE" ; 8060 ; 8061 ;SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS ; 8062 ;RETURNS 4 ALWAYS ; 8063 ; 8064 ;DISMISS: ; 8065 ; TR [PI], #/077400 ;ANY PI IN PROGRESS? ; 8066 =0 U 2340, 3534,3771,0005,4374,4007,0700,0000,0004,0000 ; 8067 JEN1: [BR]_#, PI.IP1/1, J/DSMS1 ;YES--START LOOP U 2341, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 8068 RETURN [4] ;NO--JUST RETURN ; 8069 U 3534, 2342,4113,0514,4174,4007,0330,0000,0000,0000 ; 8070 DSMS1: [PI].AND.[BR], SKIP ADR.EQ.0 U 2342, 0004,5111,0514,4170,4004,1700,0000,0000,0000 ; 8071 =0 [PI]_[PI].AND.NOT.[BR], HOLD LEFT, RETURN [4] U 2343, 3534,3447,0505,4174,4007,0700,0000,0000,0000 ; 8072 [BR]_[BR]*.5, J/DSMS1 ; 8073 ; 8074 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 185 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 ITS IO INSTRUCTIONS ; 8075 .TOC "ITS IO INSTRUCTIONS" ; 8076 ; 8077 .IF/ITSIO ; 8078 ; 8079 .DCODE D 0710, 1210,1614,0100 ; 8080 710: IOT, B/10, J/IORDI ; IORDI D 0711, 1214,1614,0100 ; 8081 711: IOT, B/14, J/IORDI ; IORDQ D 0712, 1210,1460,0100 ; 8082 712: IOT, B/10, J/IORD ; IORD D 0713, 1210,1461,0100 ; 8083 713: IOT, B/10, J/IOWR ; IOWR D 0714, 1210,1644,0100 ; 8084 714: IOT, B/10, J/IOWRI ; IOWRI D 0715, 1214,1644,0100 ; 8085 715: IOT, B/14, J/IOWRI ; IOWRQ ; 8086 D 0720, 1200,1614,0100 ; 8087 720: IOT, B/0, J/IORDI ; IORDBI D 0721, 1204,1614,0100 ; 8088 721: IOT, B/4, J/IORDI ; IORDBQ D 0722, 1200,1460,0100 ; 8089 722: IOT, B/0, J/IORD ; IORDB D 0723, 1200,1461,0100 ; 8090 723: IOT, B/0, J/IOWR ; IOWRB D 0724, 1200,1644,0100 ; 8091 724: IOT, B/0, J/IOWRI ; IOWRBI D 0725, 1204,1644,0100 ; 8092 725: IOT, B/4, J/IOWRI ; IOWRBQ ; 8093 .UCODE ; 8094 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 186 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 ITS IO INSTRUCTIONS ; 8095 ; 8096 1460: ; 8097 IORD: CLR IO BUSY, U 1460, 3535,3443,0300,4174,4137,0700,0200,0004,0012 ; 8098 VMA_[AR], START READ ; 8099 MEM READ, [AR]_MEM, U 3535, 3536,3771,0003,4365,5007,0700,0200,0000,0002 ; 8100 J/IORD0 ; 8101 ; 8102 1614: ; 8103 IORDI: CLR IO BUSY, U 1614, 2130,4443,0000,4174,4133,7700,0000,0000,0000 ; 8104 B DISP ; Which bus? ; 8105 =10** [AR]_#, #/3, HOLD RIGHT, ; Unibus I U 2130, 3536,3771,0003,4374,0007,0700,0000,0000,0003 ; 8106 J/IORD0 ; 8107 [AR]_#, #/1, HOLD RIGHT, ; Unibus Q U 2134, 3536,3771,0003,4374,0007,0700,0000,0000,0001 ; 8108 J/IORD0 ; 8109 ; 8110 IORD0: CLR IO LATCH, U 3536, 0244,4443,0000,4174,4123,7700,0000,0000,0000 ; 8111 B DISP ; Which mode? ; 8112 =01** [ARX]_VMA IO READ, ; Byte mode ; 8113 IO BYTE/1, U 0244, 2344,4571,1204,4374,4007,0700,0000,0024,1220 ; 8114 J/IORD1 U 0254, 2344,4571,1204,4374,4007,0700,0000,0024,1200 ; 8115 [ARX]_VMA IO READ ; Word mode ; 8116 =0 ; 8117 IORD1: VMA_[AR].OR.[ARX] WITH FLAGS, ; Set up VMA U 2344, 3542,3113,0304,4174,4007,0701,0210,0000,0036 ; 8118 CALL [IOWAIT] ; and wait for it ; 8119 MEM READ, [BR]_IO DATA, ; Get data U 2345, 0566,3771,0005,4364,4003,7700,0200,0000,0002 ; 8120 B DISP ; Which mode? U 0566, 2346,4553,0300,4374,4007,0331,0000,0000,0001 ; 8121 =01** TR [AR], #/1, J/IORD2 ; Byte mode: which half? U 0576, 1400,3440,0505,0174,4007,0700,0400,0000,0000 ; 8122 IORDEX: AC_[BR], J/DONE ; Word mode: return it ; 8123 ; 8124 =0 U 2346, 2350,3447,0505,4174,4007,0700,2000,0071,0005 ; 8125 IORD2: [BR]_[BR]*.5, SC_5, J/IORD3 ; Odd byte: go shift it U 2347, 0576,4551,0505,4374,4007,0700,0000,0000,0377 ; 8126 [BR]_[BR].AND.#, #/377, J/IORDEX ; Even byte: return it ; 8127 ; 8128 =0 U 2350, 2350,3447,0505,4174,4007,0630,2000,0060,0000 ; 8129 IORD3: [BR]_[BR]*.5, STEP SC, J/IORD3 ; Shift it U 2351, 0576,4551,0505,4374,4007,0700,0000,0000,0377 ; 8130 [BR]_[BR].AND.#, #/377, J/IORDEX ; And return it ; 8131 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 187 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 ITS IO INSTRUCTIONS ; 8132 ; 8133 1461: ; 8134 IOWR: CLR IO BUSY, U 1461, 3537,3443,0300,4174,4137,0700,0200,0004,0012 ; 8135 VMA_[AR], START READ ; 8136 MEM READ, [AR]_MEM, U 3537, 3540,3771,0003,4365,5007,0700,0200,0000,0002 ; 8137 J/IOWR0 ; 8138 ; 8139 1644: ; 8140 IOWRI: CLR IO BUSY, U 1644, 2132,4443,0000,4174,4133,7700,0000,0000,0000 ; 8141 B DISP ; Which bus? ; 8142 =10** [AR]_#, #/3, HOLD RIGHT, ; Unibus I U 2132, 3540,3771,0003,4374,0007,0700,0000,0000,0003 ; 8143 J/IOWR0 ; 8144 [AR]_#, #/1, HOLD RIGHT, ; Unibus Q U 2136, 3540,3771,0003,4374,0007,0700,0000,0000,0001 ; 8145 J/IOWR0 ; 8146 ; 8147 IOWR0: [BR]_AC, ; Data to write ; 8148 CLR IO LATCH, U 3540, 1366,3771,0005,0276,6123,7700,0000,0000,0000 ; 8149 B DISP ; Which mode? U 1366, 2354,4553,0300,4374,4007,0331,0000,0000,0001 ; 8150 =01** TR [AR], #/1, J/IOWR2 ; Byte mode: which half? U 1376, 3541,4571,1204,4374,4007,0700,0000,0021,1200 ; 8151 [ARX]_VMA IO WRITE ; Word mode U 3541, 2352,3113,0304,4174,4007,0701,0200,0000,0036 ; 8152 IOWR1: VMA_[AR].OR.[ARX] WITH FLAGS ; Set up VMA ; 8153 =0 MEM WRITE, MEM_[BR], ; Put data U 2352, 3542,3333,0005,4175,5007,0701,0210,0000,0002 ; 8154 CALL [IOWAIT] ; and wait for it U 2353, 0070,3443,0100,4174,4156,4700,0200,0014,0012 ; 8155 DONE ; thats it ; 8156 ; 8157 =0 U 2354, 2356,3445,0505,4174,4007,0700,2000,0071,0005 ; 8158 IOWR2: [BR]_[BR]*2, SC_5, J/IOWR3 ; Odd byte: go shift it U 2355, 3541,4571,1204,4374,4007,0700,0000,0021,1220 ; 8159 [ARX]_VMA IO WRITE, IO BYTE/1, J/IOWR1 ; Even byte: all set ; 8160 ; 8161 =0 U 2356, 2356,3445,0505,4174,4007,0630,2000,0060,0000 ; 8162 IOWR3: [BR]_[BR]*2, STEP SC, J/IOWR3 ; Shift it U 2357, 3541,4571,1204,4374,4007,0700,0000,0021,1220 ; 8163 [ARX]_VMA IO WRITE, IO BYTE/1, J/IOWR1 ; All set ; 8164 ; 8165 .ENDIF/ITSIO ; 8166 ; 8167 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 188 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTERNAL IO INSTRUCTIONS ; 8168 .TOC "EXTERNAL IO INSTRUCTIONS" ; 8169 ; 8170 .IFNOT/ITSIO ; 8171 ; 8172 .DCODE ; 8173 710: IOT, WORD-TNE, J/TIOX ; 8174 711: IOT, WORD-TNN, J/TIOX ; 8175 720: IOT, TNE, J/TIOX ; 8176 721: IOT, TNN, J/TIOX ; 8177 .UCODE ; 8178 ; 8179 1614: ; 8180 TIOX: CALL [IORD] ; 8181 1617: [BR]_[AR].AND.AC, TEST DISP ; 8182 ; 8183 .DCODE ; 8184 712: IOT, B/10, J/RDIO ; 8185 713: IOT, B/10, J/WRIO ; 8186 722: IOT, B/0, J/RDIO ; 8187 723: IOT, B/0, J/WRIO ; 8188 .UCODE ; 8189 ; 8190 1460: ; 8191 RDIO: CALL [IORD] ; 8192 1463: AC_[AR], J/DONE ; 8193 ; 8194 1461: ; 8195 WRIO: [BR]_AC, J/IOWR ; 8196 ; 8197 .DCODE ; 8198 714: IOT, B/10, J/BIXUB ; 8199 715: IOT, B/14, J/BIXUB ; 8200 724: IOT, B/0, J/BIXUB ; 8201 725: IOT, B/4, J/BIXUB ; 8202 .UCODE ; 8203 ; 8204 1644: ; 8205 BIXUB: [BRX]_[AR], ;SAVE EFFECTIVE ADDRESS ; 8206 CALL [IORD] ;GO GET THE DATA ; 8207 1647: [BR]_[AR], ;COPY DATA ITEM ; 8208 B DISP ;SEE IF SET OR CLEAR ; 8209 =1011 [BR]_[BR].OR.AC, ;SET BITS ; 8210 J/BIXUB1 ;GO DO WRITE ; 8211 [BR]_[BR].AND.NOT.AC, ;CLEAR BITS ; 8212 J/BIXUB1 ;GO DO WRITE ; 8213 ; 8214 BIXUB1: [AR]_[BRX], ;RESTORE ADDRESS ; 8215 J/IOWR ; 8216 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 189 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTERNAL IO INSTRUCTIONS ; 8217 ; 8218 ;SUBROUTINE TO READ FROM AN IO DEVICE ; 8219 ;CALL WITH: ; 8220 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 8221 ; INSTRUCTION IN HR ; 8222 ;RETURN 3 WITH WORD OR BYTE IN AR ; 8223 ; ; 8224 =0 ; 8225 IORD: CLR IO BUSY, ;CLEAR BUSY ; 8226 CALL [IOEA] ;COMPUTE IO EA ; 8227 B DISP ; 8228 =10111 [BR]_VMA IO READ, ;BYTE MODE ; 8229 IO BYTE/1, ;SET BYTE FLAG ; 8230 J/IORD1 ;GO DO C/A CYCLE ; 8231 =11111 [BR]_VMA IO READ ;WORD MODE ; 8232 = ; 8233 =0 ; 8234 IORD1: VMA_[AR].OR.[BR] WITH FLAGS, ; 8235 CALL [IOWAIT] ;WAIT FOR THINGS COMPLETE ; 8236 MEM READ, ;MAKE SURE REALLY READY ; 8237 [BR]_IO DATA, ;PUT DATA IN BR ; 8238 B DISP ;SEE IF BYTE MODE ; 8239 =0111 TR [AR], #/1, J/IORD2 ;BYTE MODE SEE IF ODD ; 8240 [AR]_[BR], RETURN [3] ;ALL DONE ; 8241 ; 8242 ;HERE ON WORD MODE ; 8243 =0 ; 8244 IORD2: [BR]_[BR]*.5, SC_5, ;LEFT BYTE ; 8245 J/IORD3 ;GO SHIFT IT ; 8246 [AR]_[BR].AND.#, ;MASK IT ; 8247 #/377, RETURN [3] ;ALL DONE ; 8248 ; 8249 =0 ; 8250 IORD3: [BR]_[BR]*.5, ;SHIFT OVER ; 8251 STEP SC, J/IORD3 ; .. ; 8252 [AR]_[BR].AND.#, ;MASK IT ; 8253 #/377, RETURN [3] ;ALL DONE ; 8254 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 190 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTERNAL IO INSTRUCTIONS ; 8255 ; 8256 ;ROUTINE TO WRITE TO AN IO DEVICE ; 8257 ;CALL WITH: ; 8258 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 8259 ; INSTRUCTION IN HR ; 8260 ; WORD OR BYTE IN BR ; 8261 ;RETURNS BACK TO USER ; 8262 ; ; 8263 =0 ; 8264 IOWR: CLR IO BUSY, ;CLEAR BUSY ; 8265 CALL [IOEA] ;COMPUTE IO EA ; 8266 B DISP ; 8267 =10111 TR [AR], #/1, J/IOWR2 ;BYTE MODE ; 8268 =11111 [ARX]_VMA IO WRITE ;SETUP FLAGS ; 8269 = ; 8270 IOWR1: VMA_[AR].OR.[ARX] WITH FLAGS ; 8271 =0 MEM WRITE, MEM_[BR], ;SEND DATA ; 8272 CALL [IOWAIT] ;WAIT FOR DATA ; 8273 DONE ;RETURN ; 8274 ; 8275 ;HERE FOR BYTE MODE ; 8276 =0 ; 8277 IOWR2: [BR]_[BR]*2, SC_5, ;ODD--MOVE LEFT ; 8278 J/IOWR3 ; .. ; 8279 [ARX]_VMA IO WRITE, ;SETUP FLAGS ; 8280 IO BYTE/1, J/IOWR1 ; .. ; 8281 ; 8282 =0 ; 8283 IOWR3: [BR]_[BR]*2, STEP SC, ;SHIFT LEFT ; 8284 J/IOWR3 ;KEEP SHIFTING ; 8285 [ARX]_VMA IO WRITE, ;SETUP FLAGS ; 8286 IO BYTE/1, J/IOWR1 ; .. ; 8287 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 191 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTERNAL IO INSTRUCTIONS ; 8288 ; 8289 ;HERE TO COMPUTE IO EFFECTIVE ADDRESS ; 8290 ;CALL WITH: ; 8291 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 8292 ; INSTRUCTION IN HR ; 8293 ;RETURN 1 WITH EA IN AR ; 8294 ; ; 8295 =0 ; 8296 IOEA: VMA_[PC]-1, ;GET INSTRUCTION ; 8297 START READ, ; .. ; 8298 CALL [LOADAR] ;PUT WORD IN AR ; 8299 [BRX]_.NOT.[AR] ;SEE IF IN RANGE 700-777 ; 8300 TL [BRX], #/700000 ; .. ; 8301 =0 ; 8302 IOEA1: TL [HR], #/20, J/IOEA2 ;INDIRECT? ; 8303 WORK[YSAVE]_[AR] CLR LH, ;DIRECT IO INSTRUCTION ; 8304 J/IOEA1 ;SAVE Y FOR EA CALCULATION ; 8305 =0 ; 8306 IOEA2: [AR]_WORK[YSAVE], ;@@--GET SAVED Y ; 8307 J/IOEAI ;GET Y AND GO ; 8308 EA MODE DISP ;WAS THERE INDEXING? ; 8309 =1101 [ARX]_XR, SKIP ADL.LE.0, ;SEE IF LOCAL OR GLOBAL INDEXING ; 8310 2T, J/IOEAX ; .. ; 8311 [AR]_WORK[YSAVE], ;JUST PLAIN IO ; 8312 CLR IO LATCH, RETURN [1] ; 8313 ; 8314 IOEAI: READ [HR], DBUS/DP, ;LOAD XR FLOPS IN CASE ; 8315 LOAD INST EA ; THERE IS INDEXING ; 8316 TL [HR], #/17 ;WAS THERE ALSO INDEXING ; 8317 =0 [AR]_[AR]+XR, 3T, HOLD LEFT ;YES--ADD IN INDEX VALUE ; 8318 VMA_[AR], START READ ;FETCH DATA WORD ; 8319 MEM READ, [AR]_MEM, ;GO GET DATA WORD ; 8320 CLR IO LATCH, RETURN [1] ; 8321 ; 8322 =0 ; 8323 IOEAX: [AR]_[ARX]+WORK[YSAVE], ;GLOBAL INDEXING ; 8324 CLR IO LATCH, RETURN [1] ; 8325 [AR]_[ARX]+WORK[YSAVE] ;LOCAL INDEXING ; 8326 [AR]_0, HOLD RIGHT, ; 8327 CLR IO LATCH, RETURN [1] ; 8328 ; 8329 .ENDIF/ITSIO ; 8330 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 192 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 EXTERNAL IO INSTRUCTIONS ; 8331 ; 8332 ;WAIT FOR IO TO COMPLETE ; 8333 ;RETURNS 1 OR PAGE FAILS ; 8334 ; ; 8335 IOWAIT: SC_S#, S#/200, ;DELAY ; 8336 [T0]_VMA, ;GET VMA U 3542, 2360,3771,0016,4354,4007,0650,2000,0071,0200 ; 8337 SKIP/-IO BUSY ;SEE IF BUSY YET ; 8338 =00 ; 8339 IOW1: CLR IO LATCH, ;WENT BUSY ; 8340 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 2360, 3543,3333,0016,7174,4127,0700,0400,0000,0210 ; 8341 J/IOW2 ;WAIT FOR IT TO CLEAR ; 8342 SC_SC-1, SCAD DISP, 5T, ;SEE IF DONE YET ; 8343 SKIP/-IO BUSY, ; .. U 2361, 2360,4443,0000,4174,4006,7653,2000,0060,0000 ; 8344 J/IOW1 ;BACK TO LOOP ; 8345 CLR IO LATCH, ;WENT BUSY AND TIMEOUT ; 8346 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 2362, 3543,3333,0016,7174,4127,0700,0400,0000,0210 ; 8347 J/IOW2 ; .. ; 8348 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 2363, 2367,3333,0016,7174,4007,0700,0400,0000,0210 ; 8349 J/IOW5 ;GO TRAP ; 8350 ; 8351 IOW2: SC_S#, S#/777, ;GO TIME IO U 3543, 2364,4443,0000,4174,4007,0650,2000,0071,0777 ; 8352 SKIP/-IO BUSY ; .. ; 8353 =0 ; 8354 IOW3: CLR IO LATCH, ;TRY TO CLEAR LATCH U 2364, 2366,4443,0000,4174,4127,0630,2000,0060,0000 ; 8355 STEP SC, J/IOW4 ;STILL BUSY U 2365, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 8356 RETURN [1] ;IDLE ; 8357 ; 8358 =0 ; 8359 IOW4: CLR IO LATCH, 5T, ;TRY TO CLEAR LATCH ; 8360 SKIP/-IO BUSY, ;SEE IF STILL BUSY U 2366, 2364,4443,0000,4174,4127,0653,0000,0000,0000 ; 8361 J/IOW3 ; .. U 2367, 3610,4571,1206,4374,4007,0700,0000,0020,0000 ; 8362 IOW5: [BRX]_[200000] XWD 0, J/HARD ; 8363 ; 8364 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 193 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 SMALL SUBROUTINES ; 8365 .TOC "SMALL SUBROUTINES" ; 8366 ; 8367 ;HERE ARE A COLLECTION ON 1-LINE SUBROUTINES ; 8368 LOADAR: MEM READ, [AR]_MEM, ;FROM MEMORY TO AR U 3544, 0001,3771,0003,4365,5004,1700,0200,0000,0002 ; 8369 RETURN [1] ;RETURN TO CALLER ; 8370 U 3545, 0001,3771,0004,4365,5004,1700,0200,0000,0002 ; 8371 LOADARX: MEM READ, [ARX]_MEM, RETURN [1] ; 8372 U 3546, 0001,3772,0000,4365,5004,1700,0200,0000,0002 ; 8373 LOADQ: MEM READ, Q_MEM, RETURN [1] ; 8374 U 3547, 0001,4223,0000,4364,4274,1700,0200,0000,0010 ; 8375 ABORT: ABORT MEM CYCLE, RETURN [1] ; 8376 U 3550, 0001,4221,0004,4174,0004,1700,0000,0000,0000 ; 8377 CLARXL: [ARX]_0, HOLD RIGHT, RETURN [1] ; 8378 U 3551, 0001,0111,0703,4174,4004,1700,0000,0000,0000 ; 8379 INCAR: [AR]_[AR]+1, RETURN [1] ; 8380 U 3552, 0001,3445,0505,4174,4004,1700,0000,0000,0000 ; 8381 SBRL: [BR]_[BR]*2, RETURN [1] ; 8382 U 3553, 0001,3443,0300,4174,4004,1701,0200,0000,0036 ; 8383 STRTIO: VMA_[AR] WITH FLAGS, RETURN [1] ; 8384 U 3554, 0004,3333,0005,4175,5004,1701,0200,0000,0002 ; 8385 STOBR: MEM WRITE, MEM_[BR], RETURN [4] ; 8386 U 3555, 0001,3333,0001,4175,5004,1701,0200,0000,0002 ; 8387 STOPC: MEM WRITE, MEM_[PC], RETURN [1] ; 8388 U 3560, 0001,3440,0404,0174,4004,1700,0400,0000,0000 ; 8389 AC_ARX: AC_[ARX], RETURN [1] ; 8390 ; 8391 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 194 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 UNDEFINED IO INSTRUCTIONS ; 8392 .TOC "UNDEFINED IO INSTRUCTIONS" ; 8393 ; 8394 .DCODE D 0703, 0003,1650,2100 ; 8395 703: I, B/3, J/IOT700 D 0706, 0006,1650,2100 ; 8396 706: I, B/6, J/IOT700 D 0707, 0007,1650,2100 ; 8397 I, B/7, J/IOT700 ; 8398 D 0716, 0006,1651,2100 ; 8399 716: I, B/6, J/IOT710 D 0717, 0007,1651,2100 ; 8400 I, B/7, J/IOT710 ; 8401 D 0726, 0006,1652,2100 ; 8402 726: I, B/6, J/IOT720 D 0727, 0007,1652,2100 ; 8403 I, B/7, J/IOT720 ; 8404 D 0730, 0000,1653,2100 ; 8405 730: I, B/0, J/IOT730 D 0731, 0001,1653,2100 ; 8406 I, B/1, J/IOT730 D 0732, 0002,1653,2100 ; 8407 I, B/2, J/IOT730 D 0733, 0003,1653,2100 ; 8408 I, B/3, J/IOT730 D 0734, 0004,1653,2100 ; 8409 I, B/4, J/IOT730 D 0735, 0005,1653,2100 ; 8410 I, B/5, J/IOT730 D 0736, 0006,1653,2100 ; 8411 I, B/6, J/IOT730 D 0737, 0007,1653,2100 ; 8412 I, B/7, J/IOT730 ; 8413 D 0740, 0000,1654,2100 ; 8414 740: I, B/0, J/IOT740 D 0741, 0001,1654,2100 ; 8415 I, B/1, J/IOT740 D 0742, 0002,1654,2100 ; 8416 I, B/2, J/IOT740 D 0743, 0003,1654,2100 ; 8417 I, B/3, J/IOT740 D 0744, 0004,1654,2100 ; 8418 I, B/4, J/IOT740 D 0745, 0005,1654,2100 ; 8419 I, B/5, J/IOT740 D 0746, 0006,1654,2100 ; 8420 I, B/6, J/IOT740 D 0747, 0007,1654,2100 ; 8421 I, B/7, J/IOT740 ; 8422 D 0750, 0000,1655,2100 ; 8423 750: I, B/0, J/IOT750 D 0751, 0001,1655,2100 ; 8424 I, B/1, J/IOT750 D 0752, 0002,1655,2100 ; 8425 I, B/2, J/IOT750 D 0753, 0003,1655,2100 ; 8426 I, B/3, J/IOT750 D 0754, 0004,1655,2100 ; 8427 I, B/4, J/IOT750 D 0755, 0005,1655,2100 ; 8428 I, B/5, J/IOT750 D 0756, 0006,1655,2100 ; 8429 I, B/6, J/IOT750 D 0757, 0007,1655,2100 ; 8430 I, B/7, J/IOT750 ; 8431 D 0760, 0000,1656,2100 ; 8432 760: I, B/0, J/IOT760 D 0761, 0001,1656,2100 ; 8433 I, B/1, J/IOT760 D 0762, 0002,1656,2100 ; 8434 I, B/2, J/IOT760 D 0763, 0003,1656,2100 ; 8435 I, B/3, J/IOT760 D 0764, 0004,1656,2100 ; 8436 I, B/4, J/IOT760 D 0765, 0005,1656,2100 ; 8437 I, B/5, J/IOT760 D 0766, 0006,1656,2100 ; 8438 I, B/6, J/IOT760 D 0767, 0007,1656,2100 ; 8439 I, B/7, J/IOT760 ; 8440 D 0770, 0000,1657,2100 ; 8441 770: I, B/0, J/IOT770 D 0771, 0001,1657,2100 ; 8442 I, B/1, J/IOT770 D 0772, 0002,1657,2100 ; 8443 I, B/2, J/IOT770 D 0773, 0003,1657,2100 ; 8444 I, B/3, J/IOT770 D 0774, 0004,1657,2100 ; 8445 I, B/4, J/IOT770 D 0775, 0005,1657,2100 ; 8446 I, B/5, J/IOT770 D 0776, 0006,1657,2100 ; 8447 I, B/6, J/IOT770 D 0777, 0007,1657,2100 ; 8448 I, B/7, J/IOT770 ; 8449 .UCODE ; 8450 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 195 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 UNDEFINED IO INSTRUCTIONS ; 8451 ; 8452 1650: U 1650, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8453 IOT700: UUO ; 8454 1651: U 1651, 0624,4443,0000,4174,4007,0700,0000,0000,0000 ; 8455 IOT710: J/BLTX ;GO TO COMMON CODE FOR UBABLT INSTRS ; 8456 1652: U 1652, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8457 IOT720: UUO ; 8458 1653: U 1653, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8459 IOT730: UUO ; 8460 1654: U 1654, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8461 IOT740: UUO ; 8462 1655: U 1655, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8463 IOT750: UUO ; 8464 1656: U 1656, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8465 IOT760: UUO ; 8466 1657: U 1657, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8467 IOT770: UUO ; 8468 ; 8469 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 196 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 UMOVE AND UMOVEM ; 8470 .TOC "UMOVE AND UMOVEM" ; 8471 ; 8472 .DCODE D 0704, 1200,1754,0100 ; 8473 704: IOT, J/UMOVE D 0705, 1200,1755,0100 ; 8474 IOT, J/UMOVEM ; 8475 .UCODE ; 8476 ; 8477 1754: ; 8478 UMOVE: VMA_[AR], ;LOAD VMA ; 8479 START READ, ;START MEMORY U 1754, 3561,3443,0300,4174,4207,0700,0200,0004,0012 ; 8480 SPEC/PREV ;FORCE PREVIOUS ; 8481 MEM READ, ;WAIT FOR MEMORY ; 8482 [AR]_MEM, ;PUT DATA IN AR U 3561, 1515,3771,0003,4365,5007,0700,0200,0000,0002 ; 8483 J/STAC ;GO PUT AR IN AC ; 8484 ; 8485 1755: ; 8486 UMOVEM: VMA_[AR], ;LOAD VMA ; 8487 START WRITE, ;START MEMORY U 1755, 3562,3443,0300,4174,4207,0700,0200,0003,0012 ; 8488 SPEC/PREV ;FORCE PREVIOUS ; 8489 [AR]_AC, ;FETCH AC U 3562, 1516,3771,0003,0276,6007,0700,0000,0000,0000 ; 8490 J/STMEM ;STORE IN MEMORY ; 8491 ; 8492 ;HERE WITH HALT CODE IN THE T1 ; 8493 =010* ; 8494 HALTED: WORK[SV.ARX]_[ARX], ;SAVE TEMP REGISTER U 2404, 3565,3333,0004,7174,4007,0700,0410,0000,0212 ; 8495 CALL [SAVVMA] ;PUT VMA IN WORK[SV.VMA] ; 8496 =110* ABORT MEM CYCLE, ;ABORT CYCLE IN PROGRESS U 2414, 3564,4223,0000,4364,4277,0700,0210,0000,0010 ; 8497 CALL [WRTHSB] ;WRITE HALT STATUS BLOCK ; 8498 =111* U 2416, 3563,4221,0004,4174,4007,0700,0200,0021,1016 ; 8499 PWRON: [ARX]_0, VMA PHYSICAL WRITE ;STORE HALT CODE ; 8500 = U 3563, 2370,3333,0017,4175,5007,0701,0200,0000,0002 ; 8501 MEM WRITE, MEM_[T1] ; IN LOCATION 0 ; 8502 =0 NEXT [ARX] PHYSICAL WRITE, U 2370, 3555,0111,0704,4170,4007,0700,0210,0023,1016 ; 8503 CALL [STOPC] U 2371, 0005,4443,0000,4174,4107,0700,0000,0000,0074 ; 8504 H1: SET HALT, J/HALTLP ;TELL CONSOLE WE HAVE HALTED ; 8505 ; 8506 ; 8507 4: UNHALT, ;RESET CONSOLE U 0004, 2372,4443,0000,4174,4107,0640,0000,0000,0062 ; 8508 SKIP EXECUTE, J/CONT ;SEE IF CO OR EX ; 8509 5: U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000 ; 8510 HALTLP: SKIP/-CONTINUE, J/4 ;WAIT FOR CONTINUE ; 8511 ; 8512 =0 ; 8513 CONT: VMA_[PC], ;LOAD PC INTO VMA ; 8514 FETCH, ;START READ U 2372, 0077,3443,0100,4174,4007,0700,0200,0014,0012 ; 8515 J/XCTGO ;DO THE INSTRUCTION U 2373, 2374,4571,1203,4374,4007,0700,0000,0024,1200 ; 8516 [AR]_VMA IO READ ;PUT FLAGS IN AR ; 8517 =0 [AR]_[AR].OR.#, ;PUT IN ADDRESS ; 8518 #/200000, HOLD LEFT, ; OF CSL REGISTER U 2374, 3553,3551,0303,4370,4007,0700,0010,0020,0000 ; 8519 CALL [STRTIO] ; 8520 CONT1: MEM READ, ;WAIT FOR DATA ; 8521 [HR]_MEM, ;PUT IN HR ; 8522 LOAD INST, ;LOAD IR, ETC. U 2375, 2564,3771,0002,4365,5617,0700,0200,0000,0002 ; 8523 J/XCT1 ;GO DO THE INSTRUCTION ; 8524 ; 8525 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 197 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 WRITE HALT STATUS BLOCK ; 8526 .TOC "WRITE HALT STATUS BLOCK" ; 8527 ; 8528 ;THE HALT STATUS BLOCK LOOKS LIKE: ; 8529 ; 8530 ; !=======================================================! ; 8531 ; !00! MAG ! ; 8532 ; !-------------------------------------------------------! ; 8533 ; !01! PC ! ; 8534 ; !-------------------------------------------------------! ; 8535 ; !02! HR ! ; 8536 ; !-------------------------------------------------------! ; 8537 ; !03! AR ! ; 8538 ; !-------------------------------------------------------! ; 8539 ; !04! ARX ! ; 8540 ; !-------------------------------------------------------! ; 8541 ; !05! BR ! ; 8542 ; !-------------------------------------------------------! ; 8543 ; !06! BRX ! ; 8544 ; !-------------------------------------------------------! ; 8545 ; !07! ONE ! ; 8546 ; !-------------------------------------------------------! ; 8547 ; !10! EBR ! ; 8548 ; !-------------------------------------------------------! ; 8549 ; !11! UBR ! ; 8550 ; !-------------------------------------------------------! ; 8551 ; !12! MASK ! ; 8552 ; !-------------------------------------------------------! ; 8553 ; !13! FLG ! ; 8554 ; !-------------------------------------------------------! ; 8555 ; !14! PI ! ; 8556 ; !-------------------------------------------------------! ; 8557 ; !15! XWD1 ! ; 8558 ; !-------------------------------------------------------! ; 8559 ; !16! T0 ! ; 8560 ; !-------------------------------------------------------! ; 8561 ; !17! T1 ! ; 8562 ; !=======================================================! ; 8563 ; ! VMA FLAGS ! VMA ! ; 8564 ; !=======================================================! ; 8565 ; 8566 ;START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY ; 8567 1: WORK[SV.ARX]_[ARX], ;SAVE TEMP REGISTER U 0001, 3565,3333,0004,7174,4007,0700,0410,0000,0212 ; 8568 CALL [SAVVMA] ;WORK[SV.VMA]_VMA U 0011, 2124,3771,0004,7274,4007,0701,0000,0000,0227 ; 8569 11: [ARX]_WORK[HSBADR] U 2124, 3567,4223,0000,4364,4277,0700,0210,0000,0010 ; 8570 =10* ABORT MEM CYCLE, CALL [DUMP] U 2126, 2371,4443,0000,4174,4107,0700,0000,0000,0074 ; 8571 SET HALT, J/H1 ; 8572 ; 8573 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 198 ; DSK: KSHACK; INOUT 50 20:00:51 16-JAN-87 WRITE HALT STATUS BLOCK ; 8574 ; 8575 WRTHSB: [ARX]_WORK[HSBADR], ;GET ADDRESS OF HSB U 3564, 2376,3771,0004,7274,4007,0422,0000,0000,0227 ; 8576 SKIP AD.LE.0, 4T ;SEE IF VALID ; 8577 =0 READ [MASK], LOAD PI, ;TURN OFF PI SYSTEM U 2376, 3567,3333,0012,4174,4437,0700,0000,0000,0000 ; 8578 J/DUMP ; AND GO TAKE DUMP ; 8579 [ARX]_WORK[SV.ARX], U 2377, 0002,3771,0004,7274,4004,1701,0000,0000,0212 ; 8580 RETURN [2] ;DO NOT DUMP ANYTHING ; 8581 U 3565, 3566,3771,0004,4354,4007,0700,0000,0000,0000 ; 8582 SAVVMA: [ARX]_VMA ; 8583 WORK[SV.VMA]_[ARX], U 3566, 0010,3333,0004,7174,4004,1700,0400,0000,0210 ; 8584 RETURN [10] ; 8585 ; 8586 ;DUMP OUT THE 2901 U 3567, 2144,3333,0004,4174,4007,0700,0200,0021,1016 ; 8587 DUMP: READ [ARX], VMA PHYSICAL WRITE U 2144, 2614,3333,0000,4175,5007,0701,0210,0000,0002 ; 8588 =0* MEM WRITE, MEM_[MAG], CALL [NEXT] U 2146, 3570,3333,0001,4175,5007,0701,0200,0000,0002 ; 8589 MEM WRITE, MEM_[PC] U 3570, 2400,0111,0704,4170,4007,0700,0200,0023,1016 ; 8590 NEXT [ARX] PHYSICAL WRITE U 2400, 2614,3333,0002,4175,5007,0701,0210,0000,0002 ; 8591 =0* MEM WRITE, MEM_[HR], CALL [NEXT] U 2402, 2401,3333,0003,4175,5007,0701,0200,0000,0002 ; 8592 MEM WRITE, MEM_[AR] U 2401, 2614,3333,0003,7174,4007,0700,0410,0000,0211 ; 8593 =0* WORK[SV.AR]_[AR], CALL [NEXT] U 2403, 2405,3771,0003,7274,4007,0701,0000,0000,0212 ; 8594 [AR]_WORK[SV.ARX] U 2405, 2614,3333,0003,4175,5007,0701,0210,0000,0002 ; 8595 =0* MEM WRITE, MEM_[AR], CALL [NEXT] U 2407, 3571,3333,0005,4175,5007,0701,0200,0000,0002 ; 8596 MEM WRITE, MEM_[BR] U 3571, 2410,0111,0704,4170,4007,0700,0200,0023,1016 ; 8597 NEXT [ARX] PHYSICAL WRITE U 2410, 2614,3333,0006,4175,5007,0701,0210,0000,0002 ; 8598 =0* MEM WRITE, MEM_[BRX], CALL [NEXT] U 2412, 3572,3333,0007,4175,5007,0701,0200,0000,0002 ; 8599 MEM WRITE, MEM_[ONE] U 3572, 2411,0111,0704,4170,4007,0700,0200,0023,1016 ; 8600 NEXT [ARX] PHYSICAL WRITE U 2411, 2614,3333,0010,4175,5007,0701,0210,0000,0002 ; 8601 =0* MEM WRITE, MEM_[EBR], CALL [NEXT] U 2413, 3573,3333,0011,4175,5007,0701,0200,0000,0002 ; 8602 MEM WRITE, MEM_[UBR] U 3573, 2415,0111,0704,4170,4007,0700,0200,0023,1016 ; 8603 NEXT [ARX] PHYSICAL WRITE U 2415, 2614,3333,0012,4175,5007,0701,0210,0000,0002 ; 8604 =0* MEM WRITE, MEM_[MASK], CALL [NEXT] U 2417, 3574,3333,0013,4175,5007,0701,0200,0000,0002 ; 8605 MEM WRITE, MEM_[FLG] U 3574, 2420,0111,0704,4170,4007,0700,0200,0023,1016 ; 8606 NEXT [ARX] PHYSICAL WRITE U 2420, 2614,3333,0014,4175,5007,0701,0210,0000,0002 ; 8607 =0* MEM WRITE, MEM_[PI], CALL [NEXT] U 2422, 3575,3333,0015,4175,5007,0701,0200,0000,0002 ; 8608 MEM WRITE, MEM_[XWD1] U 3575, 2421,0111,0704,4170,4007,0700,0200,0023,1016 ; 8609 NEXT [ARX] PHYSICAL WRITE U 2421, 2614,3333,0016,4175,5007,0701,0210,0000,0002 ; 8610 =0* MEM WRITE, MEM_[T0], CALL [NEXT] U 2423, 2424,3333,0017,4175,5007,0701,0200,0000,0002 ; 8611 MEM WRITE, MEM_[T1] U 2424, 2614,3771,0003,7274,4007,0701,0010,0000,0210 ; 8612 =0* [AR]_WORK[SV.VMA], CALL [NEXT] U 2426, 3576,3333,0003,4175,5007,0701,0200,0000,0002 ; 8613 MEM WRITE, MEM_[AR] U 3576, 3577,3771,0003,7274,4007,0701,0000,0000,0211 ; 8614 HSBDON: [AR]_WORK[SV.AR] U 3577, 3600,3771,0004,7274,4007,0701,0000,0000,0210 ; 8615 [ARX]_WORK[SV.VMA] U 3600, 3601,3443,0400,4174,4007,0700,0200,0000,0010 ; 8616 VMA_[ARX] ; 8617 [ARX]_WORK[SV.ARX], U 3601, 0006,3771,0004,7274,4004,1701,0000,0000,0212 ; 8618 RETURN [6] ; 8619 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 199 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 WRITE HALT STATUS BLOCK ; 8620 ; -*- Fundamental -*- ; 8621 ; 8622 .TOC "ITS PAGE REFILL CODE" ; 8623 ; 8624 .IF/ITS ; 8625 ; 8626 CLEANUP DONE "END STATE, SKIP IRPT, J/PFTRAP" ; 8627 CLEANUP AND TRAP "[AR]_WORK[SV.VMA], SKIP/TRAP CYCLE, J/CLTRP" ; 8628 ; 8629 ;ITS page table entry: ; 8630 ; (when shifted left once the valid bit, cache bit, write bit and page ; 8631 ; number will be in the right place for loading the hardware.) ; 8632 PTE VALID/=<91> ;2.8 (internal to the microcode) ; 8633 PTE AGE/=<94> ;2.5 ; 8634 ALL=1 ; (actually a field of length 1) ; 8635 PTE WRITE/=<94> ;2.5 (internal to the microcode) ; 8636 PTE CACHE/=<95> ;2.4 ; 8637 PTE PAGE/=<98:107> ;2.1 - 1.1 ; 8638 ; 8639 ;Hardware page table control bits: ; 8640 PT VALID/=<90> ;2.9 ; 8641 PT WRITE/=<93> ;2.6 ; 8642 PT CACHE/=<94> ;2.5 ; 8643 PT PAGE/=<97:107> ;2.2 - 1.1 ; 8644 EVEN=3776 ; 8645 ALL=3777 ; 8646 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 200 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8647 ; 8648 ; VMA flags: Page fail word flags: ; 8649 ;4.9 User mode User mode ; 8650 ;FORCE USER ; 8651 ;4.8 Exec mode Nonexistent IO register ; 8652 NONEXISTENT IO REGISTER/=<91> ;J/IOW5 ; 8653 ;4.7 Instruction fetch Nonexistent memory ; 8654 NONEXISTENT MEMORY/=<92> ;J/PFD ; 8655 ;4.6 Read Uncorrectable memory error ; 8656 UNCORRECTABLE MEMORY ERROR/=<93> ;J/PFD, J/BADDATA ; 8657 ;4.5 Write test ; 8658 ;WRITE TEST ; 8659 ;4.4 Write Memory write ; 8660 ;WRITE CYCLE ; 8661 ;4.3 2.9 from page table entry ; 8662 ;4.2 Don't cache 2.8 from page table entry ; 8663 PAGE ACCESS/=<96:97> ; 8664 ;4.1 Physical Physical ; 8665 ;PHYSICAL ; 8666 ;3.4 - 1.1 Address Address ; 8667 ADDRESS HIGH/=<104:107> ; 8668 MEMORY=3 ;20 bits of physical memory address. ; 8669 IO=17 ;22 bits of IO address. ; 8670 ALL=17 ; 8671 ; 8672 ; (These VMA flags only from DP:) ; 8673 ;3.8 IO cycle IO cycle ; 8674 ;IO CYCLE ; 8675 ;3.7 WRU cycle ; 8676 ;3.6 Vector cycle ; 8677 ;3.5 Byte cycle IO byte cycle ; 8678 ;IO BYTE ; 8679 ; 8680 ; (These VMA flags only from #:) ; 8681 ;3.9 - 3.7 XCTR control ; 8682 ;3.6 Hack for AREAD: DROM supplies 4.6 - 4.4 and 3.4 ; 8683 ;3.5 Ignore 4.9 - 3.7 from # and use 4.9 - 3.5 from DP instead. ; 8684 ;3.4 Load the VMA ; 8685 ;3.3 Extended address: Use 3.4 - 3.1 ; 8686 ;3.2 Wait: Start a cycle. ; 8687 ;3.1 Hack for BWRITE: DROM supplies 3.2 ; 8688 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 201 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8689 ; 8690 .DCODE D 0257, 1215,1553,0100 ; 8691 257: IOT, AC, J/UUO257 ;Used to be MAP ; 8692 .UCODE ; 8693 ; 8694 1553: U 1553, 2605,4551,0202,4374,0007,0700,0000,0077,7740 ; 8695 UUO257: UUO ; 8696 ; 8697 ;The hardware comes here with a page fail or pending interrupt: ; 8698 3777: ; 8699 PAGE-FAIL: U 3777, 3602,3333,0003,7174,4007,0700,0400,0000,0211 ; 8700 WORK[SV.AR]_[AR] ; 8701 ;;INTERRUPT-TRAP macro (which nobody uses) does the above and comes ; 8702 ;;here: U 3602, 3603,3333,0004,7174,4007,0700,0400,0000,0212 ; 8703 ITRAP: WORK[SV.ARX]_[ARX] ;J/MVSKP U 3603, 3604,3333,0006,7174,4007,0700,0400,0000,0214 ; 8704 WORK[SV.BRX]_[BRX] U 3604, 3605,3771,0006,4354,4007,0700,0000,0000,0000 ; 8705 [BRX]_VMA ;BRX: FLAGS,,VMA ; 8706 WORK[SV.VMA]_[BRX], U 3605, 2440,3333,0006,7174,4007,0370,0400,0000,0210 ; 8707 SKIP IRPT ;See if interrupt (saves a dispatch) ; 8708 =0000 ; 8709 PFD: DBM/PF DISP, DBUS/DBM, ;Puts page fail condition on ; 8710 AD/D, DEST/PASS, 4T, ;DP 18-21. U 2440, 2440,3773,0000,4304,4003,1702,0000,0000,0000 ; 8711 DISP/DP LEFT, J/PFD ;Dispatch on it. ; 8712 =0001 WORK[SV.BR]_[BR], ;(1) Interrupt U 2441, 3613,3333,0005,7174,4007,0700,0400,0000,0213 ; 8713 J/PF-INT ; 8714 =0011 [BRX]_IO DATA, ;(3) Parity ; 8715 AD PARITY OK/0, ;Don't look at parity. U 2443, 3606,3771,0006,4374,4007,0700,0000,0000,0000 ; 8716 J/BADDATA ; 8717 =0101 [BRX]_[100000] XWD 0, ;(5) NXM U 2445, 3610,4571,1206,4374,4007,0700,0000,0010,0000 ; 8718 J/HARD ; 8719 =0111 [BRX]_[140000] XWD 0, ;(7) NXM & Parity U 2447, 3610,4571,1206,4374,4007,0700,0000,0014,0000 ; 8720 J/HARD ; 8721 =1000 WORK[SV.BR]_[BR], ;(10) Read-only page U 2450, 3622,3333,0005,7174,4007,0700,0400,0000,0213 ; 8722 J/PFMAP ; 8723 =1001 WORK[SV.BR]_[BR], ;[123] (11) 1 ms timer and movsrj U 2451, 3613,3333,0005,7174,4007,0700,0400,0000,0213 ; 8724 J/PF-INT ; 8725 =1010 WORK[SV.BR]_[BR], ;(12) Nonexistent page U 2452, 3622,3333,0005,7174,4007,0700,0400,0000,0213 ; 8726 J/PFMAP ; 8727 =1011 WORK[SV.BR]_[BR], ;(13) Exec/User mismatch U 2453, 3622,3333,0005,7174,4007,0700,0400,0000,0213 ; 8728 J/PFMAP ; 8729 = ; 8730 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 202 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8731 ; 8732 ;Here is how a hard memory error is handled: ; 8733 BADDATA: U 3606, 3607,3333,0006,7174,4007,0700,0400,0000,0160 ; 8734 WORK[BADW0]_[BRX] ;Save bad word. U 3607, 3610,4571,1206,4374,4007,0700,0000,0004,0000 ; 8735 [BRX]_[040000] XWD 0 ; 8736 ;;I/O failures come here from J/IOW5 with 200000 in BRX: U 3610, 2430,3333,0005,7174,4007,0700,0400,0000,0213 ; 8737 HARD: WORK[SV.BR]_[BR] ;Finally save BR ; 8738 =0 [BR]_VMA, ;VMA for page fail word. U 2430, 3547,3771,0005,4354,4007,0700,0010,0000,0000 ; 8739 CALL [ABORT] ;Clear page fault condition. ; 8740 [BR]_[BR].AND.#, ;Save interesting flags: ; 8741 FORCE USER/1, PHYSICAL/1, ; 8742 IO CYCLE/1, IO BYTE/1, U 2431, 3611,4551,0505,4374,0007,0700,0000,0040,1237 ; 8743 ADDRESS HIGH/ALL, HOLD RIGHT U 3611, 3612,3111,0506,4174,4007,0700,0000,0000,0000 ; 8744 = [BRX]_[BRX].OR.[BR] ;BRX: Page fail word U 3612, 2502,4553,1300,4374,4007,0321,0000,0001,0000 ; 8745 PAGE FAIL TRAP ; 8746 ; 8747 ;Here is what happens when the initial dispatch on the page fail condition ; 8748 ;tells us an interrupt is pending: U 3613, 2434,4443,0000,4174,4007,0370,0000,0000,0000 ; 8749 PF-INT: SKIP IRPT ;Timer trap? ; 8750 =00 [AR]_WORK[TIME1], ;Yes: Get low word. ; 8751 SPEC/CLRCLK, ; Clear clock flag. U 2434, 3443,3771,0003,7274,4117,0701,0010,0000,0301 ; 8752 CALL [TOCK] ; Do the update. TOCK returns 2. U 2435, 2504,3771,0003,7274,4007,0611,0000,0000,0210 ; 8753 CLEANUP AND TRAP ;No: External interrupt. Jump away U 2436, 3614,4223,0000,4364,4277,0700,0200,0000,0010 ; 8754 ABORT MEM CYCLE ;Clear 1ms flags. ; 8755 = ; 8756 .IF/PCST ;Take a PC sample every millisecond U 3614, 3615,3771,0003,7274,4007,0701,0000,0000,0210 ; 8757 [AR]_WORK[SV.VMA] ;Recover VMA and flags U 3615, 2432,3771,0004,7274,4007,0521,0000,0000,0233 ; 8758 [ARX]_WORK[PCST], SKIP DP0 ;Skip if PC sampling is enabled U 2432, 3651,3771,0004,7274,4007,0701,0000,0000,0212 ; 8759 =0 [ARX]_WORK[SV.ARX], J/PAGE-CONTINUE1 ;Disabled or table full U 2433, 3616,3741,0105,4074,4007,0700,0000,0000,0000 ; 8760 [BR]_PC WITH FLAGS U 3616, 2454,4553,0300,4374,4007,0321,0000,0010,0000 ; 8761 TL [AR], FETCH/1 ;Skip if PC points at current instruction U 2454, 2455,1111,0705,4170,4007,0700,4000,0000,0000 ; 8762 =0 [BR]_[BR]-1, HOLD LEFT ;No, back up the PC that gets stored U 2455, 3617,0113,0415,7174,4007,0700,0400,0000,0233 ; 8763 WORK[PCST]_[ARX]+[XWD1] ;Increment the AOBJN pointer U 3617, 3620,5731,0004,4174,4007,0700,0000,0000,0000 ; 8764 [ARX] LEFT_0 ;Clear high bits of physical address damn it U 3620, 3621,3443,0400,4174,4007,0700,0200,0021,1016 ; 8765 VMA_[ARX], VMA PHYSICAL WRITE ;Store PC into sample table U 3621, 3650,3333,0005,4175,5007,0701,0200,0000,0002 ; 8766 MEM WRITE, MEM_[BR], J/PAGE-CONTINUE ; 8767 .IFNOT/PCST ; 8768 [AR]_WORK[SV.VMA], ;Restore VMA and continue where ; 8769 J/PAGE-CONTINUE ; we left off. ; 8770 .ENDIF/PCST ; 8771 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 203 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8772 ; 8773 ;Here we handle a soft page failure. BRX contains VMA FLAGS,,VMA. U 3622, 3623,4223,0000,4364,4277,0700,0200,0000,0010 ; 8774 PFMAP: ABORT MEM CYCLE ;Clear page fail condition. U 3623, 2456,4553,0600,4374,4007,0321,0000,0002,0000 ; 8775 TL [BRX], WRITE TEST/1 ;Write test? ; 8776 =0 [BRX]_[BRX].OR.#, ;Yes: Turn into simple write. U 2456, 2457,3551,0606,4374,0007,0700,0000,0001,0000 ; 8777 WRITE CYCLE/1, HOLD RIGHT ; 8778 [BRX]_[BRX].AND.#, ;Save interesting flags: ; 8779 FORCE USER/1, WRITE CYCLE/1, PHYSICAL/1, U 2457, 3624,4551,0606,4374,0007,0700,0000,0041,1003 ; 8780 ADDRESS HIGH/MEMORY, HOLD RIGHT ; 8781 = [AR]_[BRX], ;Copy virtual address and U 3624, 2460,3441,0603,4174,4007,0700,2000,0071,0011 ; 8782 SC_9. ;prepare to shift 11 places. ; 8783 =0 ; 8784 PFMAP1: [AR]_[AR]*.5, ;Right adjust page # U 2460, 2460,3447,0303,4174,4007,0630,2000,0060,0000 ; 8785 STEP SC, J/PFMAP1 ; 8786 [AR]_[AR].AND.# CLR LH, ;AR: index off DBR U 2461, 3625,4251,0303,4374,4007,0700,0000,0000,0077 ; 8787 #/77 U 3625, 2462,3333,0006,4174,4007,0520,0000,0000,0000 ; 8788 = READ [BRX], SKIP DP0 ;User ref? ; 8789 =0 READ [BRX], SKIP DP18, ;Exec high ref? U 2462, 2466,3333,0006,4174,4007,0530,0000,0000,0000 ; 8790 J/EXEC-DBR ; 8791 READ [BRX], SKIP DP18, ;User high ref? U 2463, 2464,3333,0006,4174,4007,0530,0000,0000,0000 ; 8792 J/USER-DBR ; 8793 = ; 8794 ; 8795 =0 ; 8796 USER-DBR: ; 8797 [AR]_[AR]+WORK[DBR1], ;User low U 2464, 3626,0551,0303,7274,4007,0701,0000,0000,0215 ; 8798 J/GOTDBR ; 8799 [AR]_[AR]+WORK[DBR2], ;User high U 2465, 3626,0551,0303,7274,4007,0701,0000,0000,0216 ; 8800 J/GOTDBR ; 8801 = ; 8802 ; 8803 =0 ; 8804 EXEC-DBR: ; 8805 [AR]_[AR]+WORK[DBR4], ;Exec low U 2466, 3626,0551,0303,7274,4007,0701,0000,0000,0220 ; 8806 J/GOTDBR ; 8807 [AR]_[AR]+WORK[DBR3], ;Exec high U 2467, 3626,0551,0303,7274,4007,0701,0000,0000,0217 ; 8808 J/GOTDBR ; 8809 = ; 8810 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 204 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8811 ; 8812 ;BRX: Original VMA FLAGS,,VMA modified as for a page fail word. ; 8813 ;AR: Address of page table word. U 3626, 3627,3443,0300,4174,4007,0700,0200,0024,1016 ; 8814 GOTDBR: VMA_[AR], START READ, VMA PHYSICAL U 3627, 3630,3771,0005,4365,5007,0700,0200,0000,0002 ; 8815 MEM READ, [BR]_MEM U 3630, 2470,4553,0600,4374,4007,0331,0000,0000,2000 ; 8816 TR [BRX], #/2000 ;Odd? ; 8817 =0 [ARX]_[BR], ;Yes: entry is in right half, just copy it U 2470, 3631,3441,0504,4174,4007,0700,0000,0000,0000 ; 8818 J/PTWRH ; into ARX. ; 8819 [ARX]_[BR] SWAP, ;No: entry is in left half, so copy in ARX U 2471, 3632,3770,0504,4344,4007,0700,0000,0000,0000 ; 8820 J/PTWLH ; is swapped first. ; 8821 = ; 8822 ; 8823 PTWRH: [BR]_[BR].AND.NOT.#, ;BR gets the word to write back with the ; 8824 PTE AGE/ALL, ; age bits cleared in the right half. ; 8825 HOLD LEFT, U 3631, 2472,5551,0505,4370,4007,0530,0000,0002,0000 ; 8826 SKIP DP18, J/PTWTST ;Test 2.9 of entry. ; 8827 ; 8828 PTWLH: [BR]_[BR].AND.NOT.#, ;BR gets the word to write back with the ; 8829 PTE AGE/ALL, ; age bits cleared in the left half. ; 8830 HOLD RIGHT, U 3632, 2472,5551,0505,4374,0007,0520,0000,0002,0000 ; 8831 SKIP DP0, J/PTWTST ;Test 2.9 of entry. ; 8832 ; 8833 =0 U 2472, 2474,4553,0400,4374,4007,0331,0000,0020,0000 ; 8834 PTWTST: TR [ARX], #/200000, J/PTWTS0 ;0X: Test 2.8 U 2473, 2476,4553,0400,4374,4007,0331,0000,0020,0000 ; 8835 TR [ARX], #/200000, J/PTWTS1 ;1X: Test 2.8 ; 8836 = ; 8837 ; 8838 =0 ; 8839 PTWTS0: [BRX]_[BRX].OR.#, ;01: Read only ; 8840 PAGE ACCESS/1, ;Indicate that in page fail word. ; 8841 HOLD RIGHT, U 2474, 3633,3551,0606,4374,0007,0700,0000,0000,2000 ; 8842 J/READ-ONLY U 2475, 2502,4553,1300,4374,4007,0321,0000,0001,0000 ; 8843 PAGE FAIL TRAP ;00: Not accessible. ; 8844 = ; 8845 ; 8846 =0 ; 8847 PTWTS1: [ARX]_[ARX].OR.#, ;11: Read/Write ; 8848 PTE WRITE/1, ;Set Writable bit in page table. ; 8849 HOLD LEFT, U 2476, 3634,3551,0404,4370,4007,0700,0000,0002,0000 ; 8850 J/PAGE-REFILL ; 8851 [BRX]_[BRX].OR.#, ;10: Read/Write/First ; 8852 PAGE ACCESS/2, ;Indicate that in page fail word. ; 8853 HOLD RIGHT, U 2477, 3633,3551,0606,4374,0007,0700,0000,0000,4000 ; 8854 J/READ-ONLY ; 8855 = ; 8856 ; 8857 READ-ONLY: ; 8858 TL [BRX], ;Were we perhaps trying to write? U 3633, 2500,4553,0600,4374,4007,0321,0000,0001,0000 ; 8859 WRITE CYCLE/1 U 2500, 2502,4553,1300,4374,4007,0321,0000,0001,0000 ; 8860 =0 PAGE FAIL TRAP ;That would be a problem wouldn't it! ; 8861 [ARX]_[ARX].AND.NOT.#, ;Clear writable bit in page table. ; 8862 PTE WRITE/1, ; 8863 HOLD LEFT, U 2501, 3634,5551,0404,4370,4007,0700,0000,0002,0000 ; 8864 J/PAGE-REFILL ; 8865 = ; 8866 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 205 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8867 ; 8868 ;BRX: Original VMA FLAGS,,VMA modified as for a page fail word. ; 8869 ;AR: Address of page table word. ; 8870 ;ARX: Half formed page table entry in right half. ; 8871 ;BR: Original page table word with the age bit set. ; 8872 PAGE-REFILL: ; 8873 VMA_[AR], ;Prepare to put the word back. ; 8874 START WRITE, U 3634, 3635,3443,0300,4174,4007,0700,0200,0023,1016 ; 8875 VMA PHYSICAL ; 8876 MEM WRITE, ;Write it back. U 3635, 3636,3333,0005,4175,5007,0701,0200,0000,0002 ; 8877 MEM_[BR] U 3636, 3637,3771,0003,7274,4007,0701,0000,0000,0210 ; 8878 [AR]_WORK[SV.VMA] ;AR: For PAGE-CONTINUE to use. ; 8879 [BR]_[AR].AND.NOT.#, ;Clear bits which start a cycle. ; 8880 READ CYCLE/1, WRITE CYCLE/1, U 3637, 3640,5551,0305,4374,0007,0700,0000,0007,0000 ; 8881 WRITE TEST/1, HOLD RIGHT ; 8882 [BR]_[AR].AND.NOT.#, ;Make DEC page number even. U 3640, 3641,5551,0305,4370,4007,0700,0000,0000,1000 ; 8883 #/1000, HOLD LEFT U 3641, 3642,3443,0500,4174,4007,0701,0200,0000,0030 ; 8884 VMA_[BR], 3T, DP FUNC/1 ;Restore VMA and set User according to ; 8885 ;what it was. ; 8886 [ARX]_([ARX].OR.#)*2, ;Set Valid bit and shift into position. ; 8887 3T, PTE VALID/1, U 3642, 3643,3555,0404,4374,4147,0701,0000,0020,0000 ; 8888 LOAD PAGE TABLE ;Load page table on next instruction. ; 8889 [ARX]_[ARX].AND.# CLR LH, ;Mask out all but the correct ; 8890 PT VALID/1, PT WRITE/1, ; bits. Make the DEC physical U 3643, 3644,4251,0404,4374,4007,0700,0000,0046,3776 ; 8891 PT CACHE/1, PT PAGE/EVEN ; page number even. ; 8892 [BR]_[BR].OR.#, ;Make DEC page number in VMA odd. U 3644, 3645,3551,0505,4370,4007,0700,0000,0000,1000 ; 8893 #/1000, HOLD LEFT U 3645, 3646,3443,0500,4174,4007,0701,0200,0000,0030 ; 8894 VMA_[BR], 3T, DP FUNC/1 ;Restore VMA again for the odd page. ; 8895 [ARX]_[ARX].OR.#, ;Then the odd physical page. ; 8896 #/1, HOLD LEFT, U 3646, 3647,3551,0404,4370,4147,0700,0000,0000,0001 ; 8897 LOAD PAGE TABLE ;Load page table on next instruction. ; 8898 READ [ARX], U 3647, 3650,3333,0004,4174,4007,0700,0000,0000,0000 ; 8899 J/PAGE-CONTINUE ; 8900 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 206 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8901 ; 8902 ;Return to interrupted microinstruction after a successful page table ; 8903 ;reload or a timer trap. AR should contain the right VMA to restart the ; 8904 ;memory cycle. ; 8905 PAGE-CONTINUE: U 3650, 3651,3771,0004,7274,4007,0701,0000,0000,0212 ; 8906 [ARX]_WORK[SV.ARX] ;Restore saved stuff ; 8907 PAGE-CONTINUE1: U 3651, 3652,3771,0005,7274,4007,0701,0000,0000,0213 ; 8908 [BR]_WORK[SV.BR] U 3652, 3653,3771,0006,7274,4007,0701,0000,0000,0214 ; 8909 [BRX]_WORK[SV.BRX] ; 8910 VMA_[AR], ;MAKE MEM REQUEST ; 8911 DP FUNC/1, 3T, ;FROM DATA PATH U 3653, 3654,3443,0300,4174,4007,0701,0200,0000,0032 ; 8912 WAIT/1 ;WAIT FOR PREVIOUS CYCLE TO ; 8913 ; COMPLETE. (NEED THIS TO ; 8914 ; START ANOTHER CYCLE) ; 8915 [AR]_WORK[SV.AR], U 3654, 0000,3771,0003,7274,4004,1701,0000,0000,0211 ; 8916 RETURN [0] ; 8917 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 207 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8918 ; 8919 ;;; Here we have hair to back us out of an instruction in case we have to ; 8920 ;;; deliver a page fault or an interrupt. Think of it as micro PCLSRing. ; 8921 ;;; Anybody who comes to this page to deliver a page fault better have set ; 8922 ;;; up BRX to contain the right page fail word first. Cleanup handlers ; 8923 ;;; better not smash it either. ; 8924 ; 8925 ;PAGE FAIL TRAP macro does: ; 8926 ; TL [FLG], FLG.PI/1, ;PI cycle? ; 8927 ; J/PFT ; 8928 =0 U 2502, 2404,4751,1217,4374,4007,0700,0000,0000,0100 ; 8929 PFT: HALT [IOPF] ;Yes: IO Page Failure U 2503, 2504,3771,0003,7274,4007,0611,0000,0000,0210 ; 8930 CLEANUP AND TRAP ;No: deliver hard page fault. ; 8931 = ; 8932 ; 8933 ;CLEANUP AND TRAP macro does: ; 8934 ; [AR]_WORK[SV.VMA], ; 8935 ; SKIP/TRAP CYCLE, ;See if trap cycle. ; 8936 ; J/CLTRP ; 8937 =0 ; 8938 CLTRP: TL [AR], FETCH/1, ;Is this an instruction fetch? U 2504, 2506,4553,0300,4374,4007,0321,0000,0010,0000 ; 8939 J/CLTRP1 U 2505, 3655,3771,0003,7274,4007,0701,0000,0000,0425 ; 8940 [AR]_WORK[TRAPPC] ;This is a trap cycle. ; 8941 = READ [AR], LOAD FLAGS, ;Restore PC flags. U 3655, 3656,3333,0003,4174,4467,0700,0000,0000,0004 ; 8942 J/CLDISP ; 8943 ; 8944 =0 ; 8945 .IF/1PROC ;Fault/interrupt while in instruction fetch U 2506, 2510,4553,1300,4374,4007,0321,0000,0000,0200 ; 8946 CLTRP1: TL [FLG], FLG.2PROC/1, J/CLTRP2 ; 8947 .IFNOT/1PROC ; 8948 CLTRP1: CLEANUP DONE ;Instruction fetch: Everything is clean. ; 8949 .ENDIF/1PROC ; 8950 ;;Many things jump here to backup the PC and cleanup. U 2507, 3656,1111,0701,4170,4007,0700,4000,0000,0000 ; 8951 FIXPC: [PC]_[PC]-1, HOLD LEFT ; 8952 = ;;Many things jump here to cleanup. U 3656, 2520,3333,0013,4174,4003,5701,0000,0000,0000 ; 8953 CLDISP: READ [FLG], DBUS/DP, DISP/DP, 3T, J/CLEANUP ; 8954 ;;CLEANUP DISP macro (which nobody uses) does the above. ; 8955 ; 8956 .IF/1PROC ; 8957 =0 U 2510, 0751,5551,1313,4374,0007,0700,0000,0000,1200 ; 8958 CLTRP2: TAKE 1-PROCEED TRAP ;Take one-proceed trap instead of this one U 2511, 2512,4221,0013,4170,4007,0370,0000,0000,0000 ; 8959 CLEANUP DONE ; 8960 .ENDIF/1PROC ; 8961 ; 8962 =0000 ; 8963 CLEANUP: ;;Dispatch table to cleanup after a page fault or interrupt. ; 8964 CLEANED: ;;J/BLT-CLEANUP ;(0) Normal case: No more cleanup needed. U 2520, 2512,4221,0013,4170,4007,0370,0000,0000,0000 ; 8965 CLEANUP DONE ;Go deliver page fault or interrupt. ; 8966 =0001 [AR]_WORK[SV.ARX], ;(1) BLT U 2521, 3035,3771,0003,7274,4007,0701,0000,0000,0212 ; 8967 J/BLT-CLEANUP ; 8968 ;(2) Unused. ; 8969 =0011 STATE_[EDIT-SRC], ;(3) SRC IN STRING MOVE U 2523, 3353,3771,0013,4370,4007,0700,0000,0000,0011 ; 8970 J/STRPF ; 8971 =0100 STATE_[EDIT-DST], ;(4) DST IN STRING MOVE U 2524, 3353,3771,0013,4370,4007,0700,0000,0000,0012 ; 8972 J/STRPF ; 8973 =0101 STATE_[SRC], ;(5) SRC+DST IN STRING MOVE U 2525, 2162,3771,0013,4370,4007,0700,0000,0000,0003 ; 8974 J/BACKD ; 8975 =0110 STATE_[EDIT-DST], ;(6) FILL IN MOVSRJ U 2526, 3362,3771,0013,4370,4007,0700,0000,0000,0012 ; 8976 J/STRPF4 ; 8977 =0111 STATE_[EDIT-SRC], ;(7) DEC TO BIN U 2527, 3357,3771,0013,4370,4007,0700,0000,0000,0011 ; 8978 J/PFDBIN ; 8979 =1000 STATE_[EDIT-SRC], ;(10) SRC+DST IN COMP U 2530, 3351,3771,0013,4370,4007,0700,0000,0000,0011 ; 8980 J/CMSDST U 2531, 2160,4221,0013,4170,4007,0700,0000,0000,0000 ; 8981 =1001 END STATE, J/BACKS ;(11) EDIT SRC FAIL U 2532, 2162,4221,0013,4170,4007,0700,0000,0000,0000 ; 8982 =1010 END STATE, J/BACKD ;(12) EDIT DST FAIL ; 8983 =1011 STATE_[EDIT-SRC], ;(13) SRC+DST IN EDIT U 2533, 2162,3771,0013,4370,4007,0700,0000,0000,0011 ; 8984 J/BACKD ; 8985 = ; 8986 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 208 ; DSK: KSHACK; ITSPAG 98 20:01:24 16-JAN-87 ITS PAGE REFILL CODE ; 8987 ; 8988 ;CLEANUP DONE macro does: ; 8989 ; END STATE, SKIP IRPT, J/PFTRAP ; 8990 =0 ; 8991 PFTRAP: TR [PI], ;Here to deliver page fault after cleanup. ; 8992 PI.IP1/1, PI.IP2/1, ; This hack figures out what 3 locations to ; 8993 PI.IP3/1, PI.IP4/1, ; use to deliver the page fault. U 2512, 2514,4553,1400,4374,4007,0331,0000,0007,4000 ; 8994 J/PFTDSP U 2513, 2330,3551,1313,4374,0007,0700,0000,0001,0000 ; 8995 TAKE INTERRUPT ;Here to deliver interrupt after cleanup. ; 8996 ; J/PI after setting FLG.PI ; 8997 = ; 8998 ; 8999 =0 U 2514, 2516,4553,1400,4374,4007,0331,0000,0006,0000 ; 9000 PFTDSP: TR [PI], PI.IP1/1, PI.IP2/1, J/PFTDS1 U 2515, 2534,4553,1400,4374,4007,0331,0000,0000,3000 ; 9001 TR [PI], PI.IP5/1, PI.IP6/1, J/PFTDS0 ; 9002 =0 U 2516, 2536,4553,1400,4374,4007,0331,0000,0004,0000 ; 9003 PFTDS1: TR [PI], PI.IP1/1, J/PFTD11 U 2517, 2540,4553,1400,4374,4007,0331,0000,0001,0000 ; 9004 TR [PI], PI.IP3/1, J/PFTD10 ; 9005 =0 U 2534, 2542,4553,1400,4374,4007,0331,0000,0000,2000 ; 9006 PFTDS0: TR [PI], PI.IP5/1, J/PFTD01 U 2535, 2544,4553,1400,4374,4007,0331,0000,0000,0400 ; 9007 TR [PI], PI.IP7/1, J/PFTD00 ; 9008 =0 U 2536, 3657,4751,1203,4374,4007,0700,0000,0000,0443 ; 9009 PFTD11: [AR]_0 XWD [443], J/PFTRAP1 U 2537, 3657,4751,1203,4374,4007,0700,0000,0000,0446 ; 9010 [AR]_0 XWD [446], J/PFTRAP1 ; 9011 =0 U 2540, 3657,4751,1203,4374,4007,0700,0000,0000,0451 ; 9012 PFTD10: [AR]_0 XWD [451], J/PFTRAP1 U 2541, 3657,4751,1203,4374,4007,0700,0000,0000,0454 ; 9013 [AR]_0 XWD [454], J/PFTRAP1 ; 9014 =0 U 2542, 3657,4751,1203,4374,4007,0700,0000,0000,0457 ; 9015 PFTD01: [AR]_0 XWD [457], J/PFTRAP1 U 2543, 3657,4751,1203,4374,4007,0700,0000,0000,0462 ; 9016 [AR]_0 XWD [462], J/PFTRAP1 ; 9017 =0 U 2544, 3657,4751,1203,4374,4007,0700,0000,0000,0465 ; 9018 PFTD00: [AR]_0 XWD [465], J/PFTRAP1 U 2545, 3657,4751,1203,4374,4007,0700,0000,0000,0440 ; 9019 [AR]_0 XWD [440], J/PFTRAP1 ; 9020 = ; 9021 ; 9022 PFTRAP1: ; 9023 [AR]_[AR]+[EBR], ; Where to store PFW U 3657, 3660,0111,1003,4174,4007,0700,0200,0021,1016 ; 9024 VMA PHYSICAL WRITE ; 9025 MEM WRITE, ; Store PFW U 3660, 2172,3333,0006,4175,5007,0701,0200,0000,0002 ; 9026 MEM_[BRX] ; 9027 .IF/1PROC ; 9028 =0** NEXT [AR] PHYSICAL WRITE, ; Where to store old PC U 2172, 3661,0111,0703,4170,4007,0700,0210,0023,1016 ; 9029 CALL [STORE-INT-PC] ; 9030 .IFNOT/1PROC ; 9031 NEXT [AR] PHYSICAL WRITE ; Where to store old PC ; 9032 [BR]_PC WITH FLAGS ; Get old PC ; 9033 MEM WRITE, ; Store old PC ; 9034 MEM_[BR] ; 9035 .ENDIF/1PROC ; 9036 [AR]_[AR]+1, ; Where to get new PC ; 9037 VMA PHYSICAL READ, U 2176, 2611,0111,0703,4174,4007,0700,0200,0024,1016 ; 9038 J/GOEXEC ; 9039 ; 9040 .IF/1PROC ; 9041 STORE-INT-PC: U 3661, 3662,3741,0105,4074,4007,0700,0000,0000,0000 ; 9042 [BR]_PC WITH FLAGS ; Get old PC U 3662, 2546,4553,1300,4374,4007,0321,0000,0000,1000 ; 9043 TL [FLG], FLG.1PROC/1 ; Was the instruction being one-proceeded? ; 9044 =0 [BR]_[BR].OR.#, OIPBIT/1, ;It was, turn pc flag back on U 2546, 3663,3551,0505,4374,0007,0700,0000,0000,1000 ; 9045 HOLD RIGHT, J/STORE-INT-PC-2 ; 9046 STORE-INT-PC-1: U 2547, 0004,3333,0005,4175,5004,1701,0200,0000,0002 ; 9047 MEM WRITE, MEM_[BR], RETURN [4] ; 9048 STORE-INT-PC-2: ; 9049 [FLG]_[FLG].AND.NOT.#, FLG.1PROC/1, ;Clear 1-proceed flags U 3663, 2547,5551,1313,4374,0007,0700,0000,0000,1200 ; 9050 FLG.2PROC/1, HOLD RIGHT, J/STORE-INT-PC-1 ; 9051 .ENDIF/1PROC ; 9052 .ENDIF/ITS ; 9053 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 209 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 ITS PAGE REFILL CODE ; 9054 ;;;-*-Fundamental-*- ; 9055 ; 9056 .NOBIN ; 9057 .TOC "PAGE FAIL REFIL LOGIC" ; 9058 ; 9059 .IFNOT/ITS ; 9060 ; 9061 ;WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE ; 9062 ; TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED ; 9063 ; THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE. ; 9064 ; ; 9065 ;THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE ; 9066 ; SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER, ; 9067 ; THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT. ; 9068 ; 9069 ;THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE: ; 9070 ; 9071 ;THING WHERE KEPT USE ; 9072 ;OLD VMA WORKSPACE WORD 210 SAVES VMA ; 9073 ;OLD AR WORKSPACE WORD 211 SAVES AR ; 9074 ;OLD ARX WORKSPACE WORD 212 SAVES ARX ; 9075 ;OLD BR WORKSPACE WORD 213 SAVES BR ; 9076 ;OLD BRX WORKSPACE WORD 214 SAVES BRX ; 9077 ;KL PAGING BIT EBR BIT 1 (IN 2901) INDICATES KL STYLE (TOPS-20) PAGING ; 9078 ; INSTEAD OF KI STYLE (TOPS-10 AND DIAGNOSTIC) ; 9079 ; MODE PAGING ; 9080 ;W BIT FLG BIT 4 PAGE CAN BE WRITTEN ; 9081 ;C BIT FLG BIT 6 DATA IN THIS PAGE MAY BE PUT ; 9082 ; INTO CACHE ; 9083 ;PI CYCLE FLG BIT 5 STORING OLD PC DURING PI ; 9084 ;MAP FLAG FLG BIT 18 MAP INSTRUCTION IN PROGRESS ; 9085 ;CLEANUP CODE FLG BITS 32-35 WHAT TO DO SO INSTRUCTION MAY BE ; 9086 ; RESTARTED ; 9087 ;SPT BASE WORKSPACE WORD 215 ADDRESS OF SHARED-POINTER-TABLE ; 9088 ;CST BASE WORKSPACE WORD 216 ADDRESS OF CORE-STATUS-TABLE ; 9089 ;CST MASK WORKSPACE WORD 217 BITS TO KEEP ON CST UPDATE ; 9090 ;CST DATA (PUR) WORKSPACE WORD 220 BITS TO SET ON CST UPDATE ; 9091 ;PAGE TABLE ADDRESS AR WHERE THIS PAGE TABLE IS LOCATED ; 9092 ;PHYSICAL PAGE # (PPN) AR RESULT OF THIS PROCESS ; 9093 ;CST ENTRY AR CORE STATUS TABLE ENTRY ; 9094 ;SPT ENTRY AR WORD FROM SPT ; 9095 ;PAGE TABLE ENTRY AR WORD FROM PT ; 9096 ;PAGE NUMBER BR INDEX INTO CURENT PAGE TABLE ; 9097 ;PAGE FAIL WORD BRX WHAT HAPPENED (ALSO MAP RESULT) ; 9098 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 210 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9099 ; 9100 ; ; 9101 ; ; 9102 ; ; 9103 ; KL10 PAGING - WORD FORMATS ; 9104 ; ; 9105 ;Section Pointer ; 9106 ; ; 9107 ;The section pointer is found in the user or exec section table. ; 9108 ;(Part of UPT or EPT.) ; 9109 ; ; 9110 ;Section pointer provides (via the SPT) the physical address of ; 9111 ;the PAGE TABLE for the given section. ; 9112 ; ; 9113 ; Code: 0 No-access (trap) ; 9114 ; 1 Immediate ; 9115 ; 2 Share ; 9116 ; 3 Indirect ; 9117 ; 4-7 Unused, reserved ; 9118 ; ; 9119 ; 0 1 2 3 4 5 6 18 35 ; 9120 ; +----+-+-+-+-+---------+-------------------------+ ; 9121 ; !CODE!P!W! !C!/////////! PAGE TABLE IDENTIFIER ! ; 9122 ; !010 ! ! ! ! !/////////! (SPT INDEX) ! ; 9123 ; +----+-+-+-+-+---------+-------------------------+ ; 9124 ; ; 9125 ; NORMAL SECTION POINTER (Code = 2) ; 9126 ; ; 9127 ; 0 2 3 4 5 6 9 18 35 ; 9128 ; +----+-+-+-+-+---+-----------+------------------------+ ; 9129 ; !CODE!P!W! !C!///!SECTION !SECTION TABLE IDENTIFIER! ; 9130 ; !011 ! ! ! ! !///!TABLE INDEX! (SPT INDEX) ! ; 9131 ; +----+-+-+-+-+---+-----------+------------------------+ ; 9132 ; ; 9133 ; INDIRECT SECTION POINTER (Code = 3) ; 9134 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 211 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9135 ; 9136 ;PAGE POINTERS ; 9137 ; ; 9138 ;FOUND IN PAGE TABLES ; 9139 ; ; 9140 ; 0 1 2 3 4 5 6 12 35 ; 9141 ; +----+-+-+-+-+----+------------------------------+ ; 9142 ; !CODE!P!W! !C!////! PHYSICAL ADDRESS OF PAGE ! ; 9143 ; !001 ! ! ! ! !////! ! ; 9144 ; +----+-+-+-+-+----+------------------------------+ ; 9145 ; ; 9146 ; IMMEDIATE POINTER (code field = 1) ; 9147 ; ; 9148 ; B12-35 give PHYSICAL ADDRESS OF PAGE ; 9149 ; if B12-17 >< 0, page not in core-trap ; 9150 ; if B12-17 = 0, B23-35 give CORE PAGE ; 9151 ; NUMBER of page, B18-22 MBZ ; 9152 ; ; 9153 ; ; 9154 ; ; 9155 ; ; 9156 ; ; 9157 ; 0 2 3 6 18 35 ; 9158 ; +-----+-------+---------+------------------------+ ; 9159 ; !CODE !SAME AS!/////////! SPT INDEX ! ; 9160 ; !010 ! IMMED.!/////////! ! ; 9161 ; +-----+-------+---------+------------------------+ ; 9162 ; ; 9163 ; SHARED POINTER (code field = 2) ; 9164 ; ; 9165 ; B18-35 Give SPT INDEX (SPTX). SPTX + SPT BASE ; 9166 ; ADDRESS = physical core address of word ; 9167 ; holding physical address of page. ; 9168 ; 9169 ; 0 1 2 3 6 9 17 18 35 ; 9170 ; +----+--------+---+-------+----------------------+ ; 9171 ; !CODE!SAME AS !///! PAGE ! PAGE TABLE IDENTIFIER! ; 9172 ; !011 ! IMMED. !///!NUMBER ! (SPT INDEX) ! ; 9173 ; +----+--------+---+-------+----------------------+ ; 9174 ; ; 9175 ; INDIRECT POINTER (code field = 3) ; 9176 ; ; 9177 ; This pointer type causes another pointer to be fetched ; 9178 ; and interpreted. The new pointer is found in word N ; 9179 ; (B9-17) of the page addressed by C(SPT + SPTX). ; 9180 ; ; 9181 ; ; 9182 ; ; 9183 ; SPT ENTRY ; 9184 ; ; 9185 ; Found in the SPT, i.e., when fetching C(SPT +SPTX) ; 9186 ; ; 9187 ; 12 35 ; 9188 ; +--------------------+---------------------------+ ; 9189 ; !////////////////////! PHYSICAL ADDRESS OF PAGE ! ; 9190 ; !////////////////////! OR PAGE TABLE ! ; 9191 ; +--------------------+---------------------------+ ; 9192 ; ; 9193 ; B12-35 Give PHYSICAL ADDRESS of page. ; 9194 ; ; 9195 ; The base address (physical core address) of the SPT ; 9196 ; resides in one AC of the reserved AC block. ; 9197 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 212 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9198 ; 9199 ;PHYSICAL STORAGE ADDRESS ; 9200 ; ; 9201 ;Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES. ; 9202 ; ; 9203 ; 12 17 18 23 35 ; 9204 ; +---------+----+-----------------+ ; 9205 ; ! !MBZ ! CORE PAGE NUMBER! ; 9206 ; ! ! ! IF B12-17 = 0 ! ; 9207 ; +---------+----+-----------------+ ; 9208 ; ; 9209 ; If B12-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e., ; 9210 ; B14-26 of physical core address) of page and B18-22 ; 9211 ; MBZ. If B12-17 >< 0, then address is not core and ; 9212 ; pager traps. ; 9213 ; ; 9214 ; ; 9215 ; ; 9216 ;CORE STATUS TABLE ENTRY ; 9217 ; ; 9218 ;Found when fetching C(CBR + CORE PAGENO) ; 9219 ; ; 9220 ; 0 5 32 34 35 ; 9221 ; +-------+-------------------------------+------+-+ ; 9222 ; ! CODE ! ! !M! ; 9223 ; +-------+-------------------------------+------+-+ ; 9224 ; ; 9225 ; B0-5 are code field: ; 9226 ; ; 9227 ; 0 - unavailable, trap ; 9228 ; ; 9229 ; 1-77 - available ; 9230 ; ; 9231 ; ; 9232 ; ; 9233 ; B32-34 reserved for future hardware specification. ; 9234 ; ; 9235 ; B35 is "modified" bit, set on any write ref to page. ; 9236 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 213 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9237 ; 9238 ;QUANTITIES IN HARDWARE REGISTERS ; 9239 ; ; 9240 ;SPT SPT Base Register ; 9241 ; ; 9242 ; 14 35 ; 9243 ; +--------------------------------+ ; 9244 ; ! PHYSICAL CORE WORD ADDRESS ! ; 9245 ; +--------------------------------+ ; 9246 ; ; 9247 ;CBR CST Base Register ; 9248 ; ; 9249 ; 14 35 ; 9250 ; +--------------------------------+ ; 9251 ; ! PHYSICAL CORE WORD ADDRESS ! ; 9252 ; +--------------------------------+ ; 9253 ; ; 9254 ;CSTMSK CST Update Mask ; 9255 ; ; 9256 ; 0 32 35 ; 9257 ; +------------------------------------------+---+-+ ; 9258 ; ! MASK !111!1! ; 9259 ; +------------------------------------------+---+-+ ; 9260 ; ; 9261 ; ANDed with CST word during update ; 9262 ; ; 9263 ;(B32-35 must be all 1's to preserve existing CST information) ; 9264 ; ; 9265 ;CSTDATA CST Update Data ; 9266 ; ; 9267 ; 0 32 34 35 ; 9268 ; +------------------------------------------+---+-+ ; 9269 ; ! DATA !000!0! ; 9270 ; +------------------------------------------+---+-+ ; 9271 ; ; 9272 ; IORed with CST word during update ; 9273 ; ; 9274 ;(B32-35 must be all 0's to preserve existing CST information) ; 9275 ; ; 9276 ;All unspecified bits and fields are reserved for future ; 9277 ;specification by DEC. ; 9278 ; ; 9279 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 214 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9280 ; 9281 .BIN ; 9282 ; 9283 .DCODE ; 9284 257: IOT, AC, J/MAP ; 9285 .UCODE ; 9286 ; 9287 1553: ; 9288 MAP: [AR]_[AR].OR.#, ;ASSUME PHYSICAL REF ; 9289 #/160000, ;FAKE ANSWER (Set Accessible, Writable, ; 9290 HOLD RIGHT ;and "Software".) ; 9291 [BRX]_VMA ;PUT VMA AND FLAGS IN BRX ; 9292 [BRX]_[BRX].AND.#, ;JUST KEEP USER BIT ; 9293 #/400000, HOLD RIGHT ; .. ; 9294 WORK[SV.VMA]_[BRX] ;SAVE IN WORKSPACE ; 9295 [BR]_WORK[APR] ;GET APR FLAGS ; 9296 TR [BR], #/030000 ;PAGING ENABLED? ; 9297 =0 STATE_[MAP], J/PFMAP ;YES--DO REAL MAP ; 9298 AC_[AR], NEXT INST ;NO--RETURN VIRTUAL ADDRESS ; 9299 ;HARDWARE COMES HERE ON PAGE TABLE NOT VALID (OR INTERRUPT) WHEN ; 9300 ; STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING ; 9301 ; MEM WAIT IS SAVED ON THE STACK. ; 9302 3777: ; 9303 PAGE-FAIL: ; 9304 WORK[SV.AR]_[AR] ; 9305 ITRAP: WORK[SV.BRX]_[BRX] ; 9306 [BRX]_VMA ; 9307 WORK[SV.VMA]_[BRX] ; 9308 WORK[SV.ARX]_[ARX], ; 9309 SKIP IRPT ;SEE IF INTERRUPT (SAVE DISPATCH) ; 9310 =0000 ; 9311 PFD: DBM/PF DISP, DBUS/DBM, ;BRING CODE TO 2901'S ; 9312 AD/D, DEST/PASS, 4T, ;PUT ON DP 18-21 ; 9313 DISP/DP LEFT, J/PFD ;DISPATCH ON IT ; 9314 =0001 ;(1) INTERRUPT ; 9315 WORK[SV.BR]_[BR], J/PFPI1 ; 9316 =0011 ;(3) BAD DATA FROM MEMORY ; 9317 [BRX]_IO DATA, ;GET THE BAD DATA ; 9318 AD PARITY OK/0, ; DO NOT LOOK AT PARITY ; 9319 J/BADDATA ;SAVE IN AC BLK 7 ; 9320 =0101 ;(5) NXM ERROR ; 9321 [BRX]_[370000] XWD 0, J/HARD ; 9322 =0111 ;(7) NXM & BAD DATA ; 9323 [BRX]_[370000] XWD 0, J/HARD ; 9324 =1000 ;(10) WRITE VIOLATION ; 9325 WORK[SV.BR]_[BR], J/PFMAP ; 9326 =1010 ;(12) PAGE NOT VALID ; 9327 WORK[SV.BR]_[BR], J/PFMAP ; 9328 =1011 ;(13) EXEC/USER MISMATCH ; 9329 WORK[SV.BR]_[BR], J/PFMAP ; 9330 = ; 9331 ; 9332 BADDATA: ; 9333 WORK[BADW0]_[BRX] ;SAVE BAD WORD ; 9334 WORK[BADW1]_[BRX] ;AGAIN ; 9335 [BRX]_[360000] XWD 0, J/HARD ; 9336 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 215 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9337 ; 9338 ;WE HAVE SAVED AR, ARX, BR AND BRX. WE MERGE IN HERE FROM MAP ; 9339 ; INSTRUCTION, SAVE THE VMA AND START THE PAGE FAIL WORD. ; 9340 PFMAP: ABORT MEM CYCLE ;CLEAR PAGE FAIL ; 9341 [FLG]_[FLG].OR.#, ;PRESET W AND C TO 1 ; 9342 FLG.W/1, FLG.C/1, ;BITS INVOLVED ; 9343 HOLD RIGHT ;LEAVE RH ALONE ; 9344 TL [BRX], WRITE TEST/1 ;IS THIS A WRITE TEST? ; 9345 =0 [BRX]_[BRX].OR.#, ; 9346 #/10000, ; 9347 HOLD RIGHT ;YES--TURN INTO WRITE REF ; 9348 [BRX]_[BRX].AND.#, ;START PAGE FAIL WORD ; 9349 #/411000, ;SAVE 3 INTERESTING BITS ; 9350 HOLD RIGHT ;SAVE VIRTUAL ADDRESS ; 9351 ;USER ADDR (400000) ; 9352 ;WRITE REF (010000) ; 9353 ;PAGED REF (001000) ; 9354 [BRX]_[BRX].XOR.#, ;FIX BIT 8 ; 9355 #/1000, HOLD RIGHT ; 9356 [BR]_[BRX], ;COPY VIRTUAL ADDRESS ; 9357 SC_7 ;PREPARE TO SHIFT 9 PLACES ; 9358 =0 ; 9359 PF25: [BR]_[BR]*.5, ;RIGHT ADJUST PAGE # ; 9360 STEP SC, ;COUNT SHIFT STEPS ; 9361 J/PF25 ;LOOP FOR 9 ; 9362 [BR]_[BR].AND.# CLR LH, ;MASK TO 9 BITS ; 9363 #/777 ; .. ; 9364 TL [EBR], ;KI MODE REFILL? ; 9365 #/40 ;FLAG BIT ; 9366 =0 READ [BRX], ;USER REF? (KL MODE) ; 9367 SKIP DP0, ; .. ; 9368 J/PF30 ;CONTINUE AT PF30 ; 9369 [ARX]_[BR]*.5, ;KI10 MODE REFILL ; 9370 J/KIFILL ;GO HANDLE EASY CASE ; 9371 ; 9372 ;HERE IN TOPS-20 MODE ; 9373 ;PICK UP CORRECT SECTION POINTER ; 9374 =0 ; 9375 PF30: [ARX]_WORK[PTA.E], ;EXEC MODE ; 9376 SKIP AD.EQ.0, 4T, ;SEE IF VALID ; 9377 J/PF35 ;CONTINUE BELOW ; 9378 [ARX]_WORK[PTA.U], ;USER MODE ; 9379 SKIP AD.EQ.0, 4T ;SEE IF VALID ; 9380 =0 VMA_[ARX]+[BR], ;POINTER VALID ; 9381 VMA PHYSICAL READ, ;START MEMORY ; 9382 J/PF77 ;CONTINUE BELOW ; 9383 [AR]_[UBR]+#, 3T, ;USER MODE ; 9384 #/540, ;OFFSET TO UPT ; 9385 J/PF40 ;GO GET POINTER ; 9386 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 216 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9387 ; 9388 =0 ; 9389 PF35: VMA_[ARX]+[BR], ;POINTER VALID ; 9390 VMA PHYSICAL READ, ;START MEMORY ; 9391 J/PF77 ;CONTINUE BELOW ; 9392 [AR]_[EBR]+#, 3T, ;EXEC MODE ; 9393 #/540 ;OFFSET TO EPT ; 9394 PF40: VMA_[AR], ;LOAD THE VMA ; 9395 START READ, ;START THE MEMORY CRANKING ; 9396 VMA PHYSICAL ;ABSOLUTE ADDRESS ; 9397 MEM READ, ;WAIT FOR MEMORY ; 9398 [AR]_MEM ;POINT POINTER IN AR ; 9399 ;LOOK AT SECTION POINTER AND DISPATCH ON TYPE ; 9400 =000 ; 9401 PF45: SC_7, ;FETCH SECTION 0 POINTER ; 9402 CALL [SETPTR] ;FIGURE OUT POINTER TYPE ; 9403 SECIMM: TL [AR], ;IMMEDIATE POINTER ; 9404 #/77, ;TEST FOR 12-17 = 0 ; 9405 J/PF50 ;CONTINUE AT PF50 ; 9406 [AR]_[AR]+WORK[SBR], ;SHARED SECTION ; 9407 J/SECSHR ;GO FETCH POINTER FROM SPT ; 9408 [AR]_[AR]+WORK[SBR], ;INDIRECT SECTION POINTER ; 9409 CALL [RDPT] ;GO FETCH SPT ENTRY ; 9410 =111 TL [AR], ;12 TO 17 = 0? ; 9411 #/77 ; .. ; 9412 = ; 9413 =0 PAGE FAIL TRAP ;NO ; 9414 [AR]_[AR]*2, ;FIRST SHIFT ; 9415 STEP SC ;SC WAS LOADED AT PF45 ; 9416 =0*0 ; 9417 PF60: [AR]_[AR]*2, ;CONVERT TO ADDRESS OF ; 9418 STEP SC, ; SECTION TABLE ; 9419 J/PF60 ; 9420 CALL [RDPT] ;READ SECTION TABLE ; 9421 =1*1 J/PF45 ;TRY AGAIN ; 9422 = ; 9423 ; 9424 ;HERE FOR SHARED SECTION. AR GETS THE ADDRESS OF PAGE TABLE ; 9425 =0** ; 9426 SECSHR: CALL [RDPT] ;READ WORD FROM SPT ; 9427 TL [AR], #/77 ;TEST FOR BITS 12-17 = 0 ; 9428 ; 9429 ;HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON ; 9430 ; BITS 12 THRU 17 EQUAL TO ZERO ; 9431 =0 ; 9432 PF50: PAGE FAIL TRAP ;BITS 12-17 .NE. 0 ; 9433 [ARX]_[AR].AND.# CLR LH, ;PAGE NUMBER OF PAGE TABLE ; 9434 #/3777 ;11 BIT PHYSICAL PAGE # ; 9435 =0* [AR]_[ARX], ;COPY ADDRESS ; 9436 CALL [UPCST] ;UPDATE CST0 ; 9437 PF70: [AR]_[AR].OR.WORK[PUR] ;PUT IN NEW AGE AND ; 9438 ; USE BITS ; 9439 =0** START NO TEST WRITE, ;START MEMORY WRITE ; 9440 CALL [IBPX] ;GO STORE IN MEMORY ; 9441 SC_7 ;THIS CAN BE BUMMED ; 9442 =0 ; 9443 PF75: [ARX]_[ARX]*2, ;CONVERT PAGE NUMBER TO ; 9444 STEP SC, ; PAGE ADDRESS ; 9445 J/PF75 ;LOOP OVER 9 STEPS ; 9446 ; 9447 ;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY. GO ; 9448 ; READ IT AND START ANALYSIS ; 9449 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 217 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9450 ; 9451 ;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE ; 9452 ; ADDRESS OF THE PAGE TABLE IN PTA.E OR PTA.U SO THAT WE DO NOT ; 9453 ; HAVE TO DO THE SECTION LOOKUP EVERY TIME. ; 9454 READ [BRX], SKIP DP0 ;USER OR EXEC REF? ; 9455 =000 [AR]_WORK[PTA.E], ;EXEC MODE ; 9456 SKIP AD.EQ.0, 4T, ;SEE IF SET YET ; 9457 CALL [SHDREM] ;SHOULD WE REMEMBER PTR ; 9458 [AR]_WORK[PTA.U], ;USER MODE ; 9459 SKIP AD.EQ.0, 4T, ;SEE IF SET YET ; 9460 CALL [SHDREM] ;SHOULD WE REMEMBER PTR ; 9461 WORK[PTA.E]_[ARX], ;SAVE FOR EXEC ; 9462 J/PF76 ;CONTINUE BELOW ; 9463 WORK[PTA.U]_[ARX], ;SAVE FOR USER ; 9464 J/PF76 ;CONTINUE BELOW ; 9465 =111 ; 9466 PF76: VMA_[ARX]+[BR], ;READ PAGE POINTER ; 9467 START READ, ; 9468 VMA PHYSICAL ; 9469 = ; 9470 =00 ; 9471 PF77: MEM READ, ;START ANALYSIS OF POINTER ; 9472 [AR]_MEM, ; 9473 CALL [SETPTR] ; 9474 PTRIMM: TL [AR], ;IMMEDIATE POINTER ; 9475 #/77, ;CHECK FOR BITS 0-5 ; 9476 J/PF80 ;GO TO PF80 ; 9477 [AR]_[AR]+WORK[SBR], ;SHARED POINTER ; 9478 J/PTRSHR ;GO TO READ SPT ; 9479 ; 9480 ;INDIRECT POINTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE ; 9481 PTRIND: [BR]_[AR] SWAP, ;PUT IN RIGHT HALF ; 9482 SKIP/-1 MS ;DID CLOCK GO OFF ; 9483 =0 WORK[SV.AR1]_[AR], ;YES--UPDATE CLOCK ; 9484 J/PFTICK ; .. ; 9485 [BR]_[BR].AND.# CLR LH, ;UPDATE PAGE # AND RESTART ; 9486 #/777, ;MASK FOR PAGE # ; 9487 SKIP IRPT ;SEE IF THIS IS A LOOP ; 9488 =0 [AR]_[AR].AND.#, ;CHANGE INDIRECT POINTER ; 9489 #/277000, ; INTO SHARE POINTER ; 9490 HOLD RIGHT, ; .. ; 9491 J/PF45 ;GO BACK AND TRY AGAIN ; 9492 PAGE FAIL TRAP ;POINTER LOOP ; 9493 ; 9494 =0** ; 9495 PTRSHR: CALL [RDPT] ;GO LOOK AT POINTER ; 9496 TL [AR], ;BITS 12-17 .EQ. 0? ; 9497 #/77 ; 9498 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 218 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9499 ; 9500 ;HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO ; 9501 =00 ; 9502 PF80: PAGE FAIL TRAP ;NO--TAKE A TRAP ; 9503 [ARX]_[AR].AND.# CLR LH,;SAVE PHYSICAL PAGE # ; 9504 #/3777, ;MASK TO 13 BITS ; 9505 CALL [UPCST] ;UPDATE CST0 ; 9506 ;HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK ; 9507 ; AT WRITABLE AND WRITTEN BITS ; 9508 =11 ; 9509 PF90: [BRX]_[BRX].OR.#, ;TRANSLATION IS VALID ; 9510 #/100000, HOLD RIGHT ; .. ; 9511 TL [FLG], FLG.W/1 ;IS THIS PAGE WRITABLE? ; 9512 =0 [BRX]_[BRX].OR.#, ;YES--INDICATE THAT IN PFW ; 9513 #/020000, ; 9514 J/PF100 ;NOT WRITE VIOLATION ; 9515 TL [BRX], ;IS THIS A WRITE REF? ; 9516 WRITE TEST/1, WRITE CYCLE/1 ; 9517 =0 PAGE FAIL TRAP ;WRITE VIOLATION ; 9518 PF107: [AR]_[AR].OR.WORK[PUR], ;PUT IN NEW AGE ; 9519 J/PF110 ;GO TO STORE CST ENTRY ; 9520 ; 9521 =0* ; 9522 PFTICK: [AR]_WORK[TIME1], ;UPDATE TIMER ; 9523 SPEC/CLRCLK, CALL [TOCK] ; 9524 [AR]_WORK[SV.AR1], ;RESTORE AR ; 9525 J/PTRIND ;GO TRY AGAIN ; 9526 ; 9527 ;HERE IF PAGE IS WRITABLE ; 9528 PF100: TL [BRX], WRITE CYCLE/1 ;IS THIS A WRITE REF? ; 9529 =0 [AR]_[AR].OR.#, ;YES--SET WRITTEN BIT ; 9530 #/1, ; 9531 HOLD LEFT, ; 9532 J/PF105 ; 9533 TR [AR], ;NOT WRITE, ALREADY WRITTEN? ; 9534 #/1 ; 9535 =0 ; 9536 PF105: [BRX]_[BRX].OR.#, ;WRITTEN SET BIT ; 9537 #/040000, ;MARK PAGE AS ; 9538 HOLD RIGHT, ;WRITABLE ; 9539 J/PF107 ;STORE CST WORD ; 9540 [FLG]_[FLG].AND.NOT.#, ;NOT WRITTEN, CAUSE TRAP ON ; 9541 FLG.W/1, ; WRITE ATTEMPT ; 9542 HOLD RIGHT, ;ONLY CLEAR LH ; 9543 J/PF107 ; 9544 =0** ; 9545 PF110: START NO TEST WRITE, ; 9546 CALL [IBPX] ;STORE CST ENTRY ; 9547 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 219 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9548 ; 9549 ;HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS ; 9550 ; (IN BRX) RELOAD PAGE TABLE. ; 9551 PFDONE: TR [FLG], ;MAP INSTRUCTION? ; 9552 #/400000 ; 9553 =0 [AR]_[ARX], ;GET PHYSCIAL PAGE # ; 9554 SC_7, ;PREPARE TO CONVERT TO ; 9555 J/PF130 ; WORD ADDRESS ; 9556 [AR]_WORK[SV.VMA],;RESTORE VMA ; 9557 J/PF120 ; 9558 =0 ; 9559 PF130: [AR]_[AR]*2, ;CONVERT TO WORD # ; 9560 STEP SC, ; 9561 J/PF130 ; 9562 [AR]_[AR].AND.#, ;JUST ADDRESS BITS ; 9563 #/3, ; 9564 HOLD RIGHT ; 9565 END MAP ;CLEAR MAP FLAGS ; 9566 [BRX]_[BRX].OR.#, ;TURN ON THE TRANSLATION ; 9567 #/100000, ; VALID BIT ; 9568 HOLD RIGHT ; IN LEFT HALF ONLY ; 9569 TL [FLG], FLG.C/1 ;CACHE BIT SET? ; 9570 =0 [BRX]_[BRX].OR.#, ;YES--SET IN MAP WORD ; 9571 #/002000, HOLD RIGHT ; .. ; 9572 [BRX]_[BRX].AND.#, ;PRESERVE WORD # ; 9573 #/777, HOLD LEFT ; IN PAGE FAIL WORD ; 9574 [AR]_[AR].OR.[BRX], ;COMPLETE MAP INSTRUCTION ; 9575 EXIT ; 9576 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 220 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9577 ; 9578 PF120: [BR]_[AR] ;COPY PAGE FAIL WORD ; 9579 [BR]_[AR].AND.NOT.#, ;CLEAR BITS WHICH START A CYCLE ; 9580 READ CYCLE/1, ; .. ; 9581 WRITE CYCLE/1, ; .. ; 9582 WRITE TEST/1, ; .. ; 9583 HOLD RIGHT ;JUST DO LEFT HALF ; 9584 VMA_[BR], 3T, ;RESTORE VMA ; 9585 DP FUNC/1 ;SET USER ACCORDING TO WHAT IT WAS ; 9586 [ARX]_[ARX].AND.# CLR LH, ;JUST KEEP PAGE # ; 9587 #/3777 ; .. ; 9588 [BRX]_[ARX].OR.#, #/400000 ;SET VALID BITS ; 9589 TL [FLG], FLG.W/1 ;WANT WRITE SET? ; 9590 =0 [BRX]_[BRX].OR.#, #/040000 ;SET WRITE BIT ; 9591 TL [FLG], FLG.C/1, ;WANT CACHE SET? ; 9592 LOAD PAGE TABLE ;LOAD PAGE TABLE ON NEXT ; 9593 ; MICRO INSTRUCTION ; 9594 =0 [BRX]_[BRX].OR.#, ;SET CACHE BIT ; 9595 #/020000, J/PF125 ;CACHE BIT ; 9596 READ [BRX] ;LOAD PAGE TABLE ; 9597 PF125: [ARX]_WORK[SV.ARX] ; 9598 [BR]_WORK[SV.BR] ; 9599 [BRX]_WORK[SV.BRX] ; 9600 VMA_[AR], ;MAKE MEM REQUEST ; 9601 DP FUNC/1, 3T, ;FROM DATA PATH ; 9602 WAIT/1 ;WAIT FOR PREVIOUS CYCLE TO ; 9603 ; COMPLETE. (NEED THIS TO ; 9604 ; START ANOTHER CYCLE) ; 9605 [AR]_WORK[SV.AR], ; 9606 RETURN [0] ; 9607 ;SUBROUTINE TO START CST UPDATE ; 9608 ;CALL WITH: ; 9609 ; AR/ PHYSICAL PAGE NUMBER ; 9610 ;RETURN 2 WITH ENTRY IN AR, PAGE FAIL IF AGE TOO SMALL ; 9611 =0** ; 9612 UPCST: [AR]_[AR]+WORK[CBR], ;ADDRESS OF CST0 ENTRY ; 9613 CALL [RDPT] ;READ OLD VALUE ; 9614 TL [AR], ;0 - 5 = 0? ; 9615 #/770000 ; .. ; 9616 =0 [AR]_[AR].AND.WORK[CSTM], ;CLEAR AGE FIELD ; 9617 RETURN [2] ;AGE IS NOT ZERO ; 9618 PAGE FAIL TRAP ;AGE TOO SMALL ; 9619 ; 9620 ;SUBROUTINE TO LOOK AT PAGE POINTER ; 9621 ;CALL WITH POINTER IN AR ; 9622 ;RETURNS 1 IF TYPE 1 ; 9623 ;RETURNS 2 IF TYPE 2 ; 9624 ;RETURNS 3 IF TYPE 3 ; 9625 ;GOES TO PFT IF TYPE 0 OR 4 THRU 7 ; 9626 SETPTR: [ARX]_[AR].OR.#, ;AND C AND W BITS ; 9627 #/753777 ; OF ALL POINTERS ; 9628 [FLG]_[FLG].AND.[ARX], ; .. ; 9629 HOLD RIGHT ;KEEP IN LH OF FLG ; 9630 READ [AR], ;TYPE 4,5,6 OR 7? ; 9631 SKIP DP0 ; .. ; 9632 =0 TL [AR], ;HERE WE TEST FOR TYPE ; 9633 #/300000, ; ZERO POINTER ; 9634 J/STPTR1 ;CHECK AT STPTR1 ; 9635 PAGE FAIL TRAP ;BAD TYPE ; 9636 =0 ; 9637 STPTR1: TL [AR], ;NOT ZERO ; 9638 #/100000, ;SEPERATE TYPE 2 ; 9639 J/STPTR2 ; .. ; 9640 PAGE FAIL TRAP ;TYPE 0 ; 9641 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 221 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9642 ; 9643 =0 ; 9644 STPTR2: TL [AR], ;SEPERATE TYPE 1 ; 9645 #/200000, ; AND 3 ; 9646 J/STPTR3 ; .. ; 9647 RETURN [2] ;TYPE 2 ; 9648 ; 9649 =0 ; 9650 STPTR3: RETURN [3] ;TYPE 3 ; 9651 RETURN [1] ;TYPE 1 ; 9652 ; 9653 ;SUBROUTINE TO FETCH A PAGE POINTER OR CST ENTRY ; 9654 ;CALL WITH ADDRESS IN AR ; 9655 ;RETURN 4 WITH WORD IN AR ; 9656 ; ; 9657 RDPT: VMA_[AR], ;LOAD THE VMA ; 9658 START READ, ;START MEM CYCLE ; 9659 VMA PHYSICAL, ;ABSOLUTE ADDRESS ; 9660 SKIP IRPT ;CHECK FOR INTERRUPTS ; 9661 =0 MEM READ, ;NO INTERRUPTS ; 9662 [AR]_MEM, ;PUT THE DATA INTO AR ; 9663 RETURN [4] ;AND RETURN ; 9664 PAGE FAIL TRAP ;INTERRUPT ; 9665 ; 9666 ; 9667 ;SUBROUTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR ; 9668 ;CALL WITH SKIP ON ADR.EQ.0 ; 9669 ;RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT ; 9670 ; ; 9671 =0 ; 9672 SHDREM: RETURN [7] ;INDIRECT PTR ; 9673 [AR]_.NOT.[FLG] ;FLIP BITS ; 9674 TL [AR], FLG.W/1, FLG.C/1 ;BOTH BITS SET ; 9675 =0 RETURN [7] ;NO--DON'T STORE ; 9676 RETURN [2] ;STORE ; 9677 ; 9678 ;HERE IN KI10 MODE ; 9679 ;BR CONTAINS PAGE # AND ARX CONTAINS PAGE #/2 ; 9680 ; 9681 KIFILL: READ [BRX], ;USER REF? ; 9682 SKIP DP0 ; .. ; 9683 =0 [BR]-#, ;EXEC--LESS THAN 340? ; 9684 #/340, ; .. ; 9685 SKIP DP18, 4T, ; .. ; 9686 J/KIF10 ;FOLLOW EXEC PATH ; 9687 KIUPT: [ARX]_[ARX]+[UBR], ;POINTER TO PAGE MAP ENTRY ; 9688 LOAD VMA, ;PUT ADDRESS IN VMA ; 9689 VMA PHYSICAL, ;ABSOLUTE ADDRESS ; 9690 START READ, ;FETCH UPT WORD ; 9691 J/KIF30 ;JOIN COMMON CODE ; 9692 =0 ; 9693 KIF10: [BR]-#, ;EXEC ADDRESS .GE. 340 ; 9694 #/400, ; SEE IF .GT. 400 ; 9695 SKIP DP18, 4T, ; .. ; 9696 J/KIEPT ;LOOK AT KIF20 ; 9697 [ARX]_[ARX]+#, 3T, ;EXEC ADDRESS .LT. 340 ; 9698 #/600, ;IN EBR+600 ; 9699 J/KIEPT ;JOIN COMMON CODE ; 9700 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 222 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9701 ; 9702 =0 ; 9703 KIEPT: [ARX]_[ARX]+[EBR], ;ADD OFFSET TO ; 9704 LOAD VMA, ; EPT ; 9705 START READ, ;START FETCH ; 9706 VMA PHYSICAL, ;ABSOLUTE ADDRESS ; 9707 J/KIF30 ;GO GET POINTER ; 9708 [ARX]_[ARX]+#, ;PER PROCESS PAGE ; 9709 #/220, 3T, ; IS IN UPT + 400 ; 9710 J/KIUPT ;JOIN COMMON CODE ; 9711 KIF30: MEM READ, ;WAIT FOR DATA ; 9712 [ARX]_MEM ;PLACE IT IN ARX ; 9713 TR [BR], ;SEE IF EVEN OR ODD ; 9714 #/1 ; .. ; 9715 ; 9716 =0 ; 9717 KIF40: READ [ARX], ;ODD ; 9718 SKIP DP18, ;SEE IF VALID ; 9719 J/KIF50 ;JOIN COMMON CODE ; 9720 [ARX]_[ARX] SWAP, ;EVEN--FLIP AROUND ; 9721 J/KIF40 ; AND CONTINUE ; 9722 ; 9723 =0 ; 9724 KIF50: PAGE FAIL TRAP ; 9725 ;AT THIS POINT WE HAVE THE PAGE MAP ENTRY IN RH OF AR ; 9726 [FLG]_[FLG].AND.NOT.#, ;CLEAR W AND C ; 9727 FLG.W/1, FLG.C/1 ; FLAGS ; 9728 TR [ARX], #/020000 ;CACHE ENABLED? ; 9729 =0 [FLG]_[FLG].OR.#, ;SET CACHE BITS ; 9730 FLG.C/1, HOLD RIGHT ; .. ; 9731 TR [ARX], #/040000 ;DO NOT CACHE ; 9732 ;SEE IF CACHE BIT SET ; 9733 =0 [BRX]_[BRX].OR.#, ;COPY BITS TO BRX ; 9734 #/020000, ; 9735 HOLD RIGHT ; 9736 TR [ARX], ; .. ; 9737 #/100000 ; 9738 =0 [FLG]_[FLG].OR.#, ;SAVE W ; 9739 FLG.W/1, ; .. ; 9740 HOLD RIGHT, ; .. ; 9741 J/KIF90 ;ALL DONE ; 9742 TL [BRX], ;W=0, WRITE REF? ; 9743 WRITE CYCLE/1 ; 9744 =0 ; 9745 KIF80: [BRX]_[BRX].OR.#, ;WRITE FAILURE ; 9746 #/100000, HOLD RIGHT, ;INDICATE THAT ACCESS WAS ON ; 9747 J/KIF50 ;GO PAGE FAIL ; 9748 J/PFDONE ;ALL DONE ; 9749 ; 9750 KIF90: [BRX]_[BRX].OR.#, ;PAGE IS WRITABLE ; 9751 #/40000, ;TURN ON IN BRX ; 9752 J/PFDONE ;ALL SET ; 9753 ; 9754 ;HERE ON HARD PAGE FAILURES ; 9755 HARD: WORK[SV.BR]_[BR] ;SAVE BR (CLEANUP MAY NEED IT) ; 9756 =0 [BR]_VMA, ;BUILD PAGE FAIL WORD ; 9757 CALL [ABORT] ;CLEAR ERROR ; 9758 [BR]_[BR].AND.#, ;SAVE THE FLAGS ; 9759 #/401237, ; .. ; 9760 HOLD RIGHT ; .. ; 9761 [BRX]_[BRX].OR.[BR], ;COMPLETE PAGE FAIL WORD ; 9762 J/KIF50 ;GO TRAP ; 9763 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 223 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9764 ; 9765 PFPI1: SKIP IRPT ;TIMER TRAP? ; 9766 =00 ; 9767 [AR]_WORK[TIME1], ;YES--GET LOW WORD ; 9768 SPEC/CLRCLK, ;CLEAR CLOCK FLAG ; 9769 CALL [TOCK] ;DO THE UPDATE ; 9770 J/PFT1 ;EXTERNAL INTERRUPT ; 9771 ABORT MEM CYCLE ;CLEAR 1MS FLAGS ; 9772 = ; 9773 PFPI2: [AR]_WORK[SV.VMA], ;RESTORE VMA ; 9774 J/PF125 ; 9775 ; 9776 ; 9777 ;HERE ON PAGE FAIL TRAP ; 9778 =0 ; 9779 PFT: HALT [IOPF] ;IO PAGE FAILURE ; 9780 PFT1: [AR]_WORK[SV.VMA], ; 9781 SKIP/TRAP CYCLE ;SEE IF TRAP CYCLE ; 9782 =0 TL [AR], FETCH/1, ;IS THIS AN INSTRUCTION FETCH ; 9783 J/PFT1A ;GO LOOK BELOW ; 9784 [AR]_WORK[TRAPPC] ;RESTORE PC ; 9785 READ [AR], LOAD FLAGS, J/CLDISP ; 9786 =0 ; 9787 PFT1A: J/CLEANED ;YES--NO PC TO BACK UP ; 9788 FIXPC: [PC]_[PC]-1, HOLD LEFT ;DATA FAILURE--BACKUP PC ; 9789 =0 ; 9790 CLDISP: CLEANUP DISP ;GO CLEANUP AFTER PAGE FAIL ; 9791 =0000 ; 9792 CLEANUP: ; 9793 CLEANED: ;(0) NORMAL CASE ; 9794 END STATE, SKIP IRPT, ;NO MORE CLEANUP NEEDED ; 9795 J/PFT2 ;HANDLE PAGE FAIL OR INTERRUPT ; 9796 [AR]_WORK[SV.ARX], ;(1) BLT ; 9797 J/BLT-CLEANUP ; 9798 [PC]_[PC]+1, ;(2) MAP ; 9799 J/MAPDON ; 9800 STATE_[EDIT-SRC], ;(3) SRC IN STRING MOVE ; 9801 J/STRPF ; 9802 STATE_[EDIT-DST], ;(4) DST IN STRING MOVE ; 9803 J/STRPF ; 9804 STATE_[SRC], ;(5) SRC+DST IN STRING MOVE ; 9805 J/BACKD ; 9806 STATE_[EDIT-DST], ;(6) FILL IN MOVSRJ ; 9807 J/STRPF4 ; 9808 STATE_[EDIT-SRC], ;(7) DEC TO BIN ; 9809 J/PFDBIN ; 9810 STATE_[EDIT-SRC], ;(10) SRC+DST IN COMP ; 9811 J/CMSDST ; 9812 END STATE, J/BACKS ;(11) EDIT SRC FAIL ; 9813 END STATE, J/BACKD ;(12) EDIT DST FAIL ; 9814 STATE_[EDIT-SRC], ;(13) SRC+DST IN EDIT ; 9815 J/BACKD ; 9816 = ; 9817 î ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 224 ; DSK: KSHACK; PAGEF 10 02:03:53 8-OCT-84 PAGE FAIL REFIL LOGIC ; 9818 ; 9819 =0 ; 9820 PFT2: [AR]_[UBR]+#, ;PREPARE TO STORE PFW ; 9821 #/500, 3T, ; 9822 J/PFT10 ; 9823 PFT3: TAKE INTERRUPT ;PROCESS INTERRUPT ; 9824 PFT10: VMA_[AR], ;WHERE TO STORE PFW ; 9825 VMA PHYSICAL WRITE ; 9826 =0 MEM WRITE, ;STORE PFW ; 9827 MEM_[BRX], ; 9828 CALL [NEXTAR] ;ADVANCE POINTER TO ; 9829 ;PREPARE TO STORE PC ; 9830 TL [EBR], #/400000 ;KL PAGING? ; 9831 =0 [BR]_FLAGS,J/EAPF ;YES--DO EXTENDED THING ; 9832 [BR]_PC WITH FLAGS ;GET OLD PC ; 9833 MEM WRITE, ;STORE OLD PC ; 9834 MEM_[BR], ; 9835 J/EAPF1 ; 9836 ; 9837 MAPDON: END STATE, ;CLEAR MAP BIT ; 9838 SKIP IRPT ;ANY INTERRUPT? ; 9839 =0 [AR]_[BRX], ;RETURN PAGE FAIL WORD ; 9840 EXIT ; 9841 [PC]_[PC]-1, J/PFT3 ;INTERRUPTED OUT OF MAP ; 9842 ; RETRY INSTRUCTION ; 9843 ; 9844 ; 9845 =0 ; 9846 EAPF: MEM WRITE, MEM_[BR], ;STORE FLAGS ; 9847 CALL [NEXTAR] ;STORE PC WORD ; 9848 MEM WRITE, MEM_[PC] ; .. ; 9849 EAPF1: [AR]_[AR]+1, ; 9850 VMA PHYSICAL READ, ; 9851 J/GOEXEC ; 9852 ; 9853 NEXTAR: NEXT [AR] PHYSICAL WRITE, RETURN [1] ; 9854 ; 9855 .ENDIF/ITS ; 9856 ; Number of Micro Words used: ; D Words= 512 ; U Words= 1980 END ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 225 ; CROSS REFERENCE LISTING (U) A 707 # AR 711 # 2579 2618 2648 2649 2714 2763 2771 2914 2916 2919 2922 2925 2928 3014 3024 3039 3056 3067 3077 3087 3118 3129 3139 3178 3190 3197 3201 3212 3213 3215 3217 3218 3226 3249 3250 3513 3518 3520 3532 3535 3538 3543 3544 3615 3633 3635 3701 3704 3774 3775 3781 3802 3850 3865 3902 3913 3938 4003 4027 4032 4068 4113 4117 4125 4127 4294 4299 4332 4368 4382 4399 4410 4413 4416 4431 4458 4459 4464 4482 4498 4518 4634 4643 4648 4658 4664 4683 4687 4706 4734 4738 4740 4741 4761 4793 4796 4799 4813 4839 4856 4857 4862 4867 4875 4877 4879 4952 4962 4964 4969 4970 5016 5022 5032 5036 5076 5080 5084 5088 5268 5281 5368 5372 5384 5387 5393 5399 5439 5520 5523 5622 5628 5632 5633 5664 5670 5690 5696 5697 5698 5699 5708 5713 5734 5735 5747 5749 5758 5759 5780 5785 5786 5792 5828 5832 5834 5837 5840 5844 5846 5848 5850 5851 5852 5853 5859 5861 5862 5870 5875 5892 5918 5926 5931 5933 5978 5991 6010 6019 6023 6039 6053 6055 6057 6063 6091 6098 6101 6112 6115 6123 6125 6129 6134 6136 6152 6157 6160 6182 6185 6186 6190 6310 6314 6318 6325 6336 6346 6361 6382 6387 6400 6403 6429 6515 6522 6539 6561 6575 6602 6613 6614 6615 6628 6663 6693 6704 6742 6757 6785 6790 6820 6821 6822 6823 6825 6826 6829 6834 6885 6908 6916 6917 6943 6982 6994 6995 7003 7024 7027 7030 7034 7035 7037 7041 7043 7099 7100 7105 7106 7114 7117 7121 7190 7213 7219 7239 7258 7262 7265 7266 7267 7268 7290 7316 7317 7321 7327 7328 7332 7403 7413 7416 7439 7441 7443 7445 7448 7450 7452 7490 7493 7500 7504 7506 7561 7563 7568 7573 7655 7746 7773 7851 7853 7856 7858 7860 7862 7864 7866 7868 7892 7898 7976 7986 7993 7996 7997 8026 8034 8098 8117 8121 8135 8150 8152 8383 8478 8486 8517 8761 8784 8786 8797 8799 8805 8807 8814 8873 8879 8882 8910 8938 ARX 712 # 2681 2970 2971 4006 4008 4022 4051 4396 4408 4417 4418 4436 4439 4441 4463 4484 4500 4520 4523 4544 4676 4705 4758 4784 4785 4865 4959 4960 4968 5039 5234 5241 5242 5271 5274 5296 5433 5455 5630 5669 5702 5891 5912 5915 5976 5993 6015 6036 6056 6061 6108 6146 6153 6401 6442 6450 6484 6519 6569 6578 6588 6597 6620 6621 6629 6662 6666 6743 6780 6788 6792 6794 7123 7126 7172 7242 7318 7440 7444 7446 7449 7451 7480 7482 7799 7812 7816 8040 8389 8616 8763 8765 8834 8835 8847 8861 8886 8889 8895 BR 713 # 2340 2575 2611 2613 2617 3108 3245 3279 3280 3283 3284 3285 3286 3302 3305 3308 3311 3315 3318 3320 3353 3354 3357 3358 3369 3378 3379 3381 3382 3384 3385 3387 3388 3676 3679 3682 3685 3688 3691 3694 3697 3843 4073 4078 4107 4133 4142 4143 4296 4301 4404 4539 4708 4710 4718 4722 4786 4789 4864 4868 4869 4870 4873 4878 4910 5056 5058 5119 5120 5121 5122 5123 5130 5139 5143 5152 5215 5216 5217 5218 5219 5240 5284 5291 5396 5441 5443 5453 5458 5473 5550 5629 5636 5637 5641 5642 5700 5703 5738 5790 5873 5898 5900 5910 5924 6004 6022 6025 6263 6275 6276 6278 6279 6307 6316 6362 6367 6394 6397 6489 6555 6558 6559 6572 6580 6586 6710 6720 6731 6740 6744 6762 6816 6831 6870 6882 6952 7215 7216 7259 7260 7301 7309 7320 7324 7412 7415 7437 7471 7473 7476 7567 7569 7581 7582 7590 7596 7745 7764 7768 7784 7857 7859 7861 7867 7869 7914 7931 8046 8070 8071 8072 8122 8125 8126 8129 8130 8158 8162 8381 8740 8744 8817 8819 8823 8828 8884 8892 8894 9044 BRX 714 # 4433 4461 4467 4540 4563 4584 4588 4592 4596 4602 4606 4610 4614 4693 4747 4788 4902 4905 4916 5375 5432 5463 5470 5484 5499 5587 5590 5662 5663 5665 5705 5710 5903 5920 5987 6001 6002 6045 6267 6368 6440 6452 6453 6477 6527 6535 6616 6646 6659 6668 6673 6681 6683 6692 6698 6703 6715 6754 6756 6774 6783 6811 6813 6815 6846 6849 6866 6879 6881 6964 6966 6969 7038 7045 7142 7146 7150 7154 7158 7162 7178 7463 7814 7985 8053 8054 8775 8776 8778 8781 8816 8839 8851 8858 EBR 716 # 7349 7574 7575 7576 7579 7988 8044 9023 FLG 719 # 2425 2449 2450 2451 3844 3893 5855 5863 5956 5957 5964 6094 6097 6100 6103 6106 6121 6149 6162 6169 6170 6960 8745 8843 8860 8946 8958 8995 9043 9049 HR 710 # 2463 2469 2475 2481 2490 2494 2503 2508 2626 2982 2987 3778 3787 3790 3792 3793 3794 3812 3827 3832 3849 3854 3857 3878 3899 3912 3933 4226 4236 4238 4240 4242 4253 4267 4347 6265 7280 7358 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7855 8453 8457 8459 8461 8463 8465 8467 8695 MAG 708 # 2615 4443 4446 4465 4468 4469 4483 4489 4491 4525 4527 4529 4712 4730 4753 4757 4760 4801 4803 4804 4934 4939 4944 4950 4951 5568 5569 5894 5986 6042 6068 6104 6138 6142 6144 MASK 718 # 2295 2296 2297 2300 2307 2343 2355 2393 2397 2400 2403 2412 2415 2418 2421 2527 2710 2938 2959 3174 3223 3851 3900 3914 3942 4257 4268 4290 4293 4341 4403 4542 4577 4714 4725 4754 4880 5098 5221 5232 5554 5572 5573 5574 5586 5795 5856 5929 5980 6071 6140 6229 6231 6233 6235 6237 6239 6241 6243 6245 6486 6488 6511 6626 6955 7744 7809 7810 7811 7966 7967 7968 7969 7970 7971 7972 7978 7998 8021 8038 8052 8112 8115 8151 8159 8163 8362 8516 8717 8719 8735 8929 9009 9010 9012 9013 9015 9016 9018 9019 ONE 715 # 2332 2336 2383 2385 2442 2532 2553 2605 2608 3149 3583 3650 3666 3734 3749 3776 3785 3788 3886 3904 3907 4286 4336 4352 4639 5062 5366 5440 5488 5489 5503 5505 5510 5592 5593 5782 5794 5869 6020 6179 6302 6344 6378 6385 6406 6424 6434 6454 6455 6490 6491 6534 6598 6603 6667 6679 6686 6706 6713 6718 6727 6737 6741 6745 6746 6782 6796 6808 6861 6886 6984 7007 7062 7187 7188 7194 7217 7261 7304 7672 7720 7723 7751 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 226 ; CROSS REFERENCE LISTING 7796 7826 7882 8025 8379 8502 8590 8597 8600 8603 8606 8609 8762 8951 9028 9036 PC 709 # 2382 2386 2405 2517 2530 2595 2621 3571 3700 3705 3985 4105 4111 4130 4326 4530 4532 5017 5027 7339 7872 8155 8513 8760 9042 PI 720 # 3863 3864 3879 7384 7385 7757 7848 7863 7865 7870 7881 7883 7959 7960 7961 7962 7963 7964 7965 7974 8991 9000 9001 9003 9004 9006 9007 T0 722 # 4510 4514 4756 4767 4774 4777 4779 4780 5911 5919 5945 5947 5948 5949 5952 5960 5963 5965 6006 6073 6081 6082 6711 6778 7884 8050 T1 723 # 4732 4874 5564 5566 5570 5583 5585 5935 6021 6024 6044 6054 UBR 717 # 2528 4259 4292 7342 7497 7501 7589 7595 XWD1 721 # 3757 3975 8036 (D) A 1430 # DBLAC 1434 # 2974 DFP 1440 # 5881 5882 5971 6033 DREAD 1433 # 2965 2966 4391 4392 4477 4700 DSHIFT 1436 # 3160 3161 FP 1438 # 5602 5603 5604 5605 5607 5608 5610 5611 5612 5613 5615 5616 5648 5649 5650 5652 5654 5655 5678 5679 5680 5682 5684 5685 5765 5766 FPI 1437 # 5606 5614 5653 5683 IOT 1441 # 7370 7371 7622 8080 8081 8082 8083 8084 8085 8087 8088 8089 8090 8091 8092 8473 8474 8691 RD-PF 1439 # 2741 2746 2751 2756 2796 2801 2806 2811 2816 2821 2826 2831 2838 2843 2848 2853 2859 2864 2869 2874 3007 3017 3027 3032 3049 3060 3070 3080 3100 3111 3122 3132 4361 4375 4425 4450 4621 4626 READ 1431 # 2744 2749 2754 2759 2779 2798 2799 2803 2804 2809 2814 2819 2824 2829 2834 2840 2841 2845 2846 2851 2856 2862 2867 2872 2877 3009 3010 3019 3020 3029 3030 3034 3035 3042 3051 3052 3062 3063 3072 3073 3082 3083 3102 3103 3113 3114 3124 3125 3134 3135 3428 3429 3430 3431 3432 3433 3444 3445 3446 3447 3448 3449 3450 3451 3463 3464 3465 3466 3467 3468 3469 3470 3480 3481 3482 3483 3484 3485 3486 3487 3604 3605 3606 3607 3608 3609 3610 3611 3622 3623 3624 3625 3626 3627 3628 3629 3639 3640 3641 3642 3643 3644 3645 3646 3655 3656 3657 3658 3659 3660 3661 3662 3924 4363 4364 4377 4378 4427 4428 4452 4453 4623 4624 4628 4629 5006 5007 5008 5009 5010 5729 SHIFT 1435 # 3155 3156 3157 WRITE 1432 # 2743 2748 2753 2758 2808 2813 2818 2823 2828 2833 2850 2855 2861 2866 2871 2876 2975 3044 3045 (U) ACALU 1339 # AC+N 1341 # 2325 2326 2333 2561 2573 2681 2971 2980 3229 3250 3296 3326 3367 4396 4408 4489 4491 4493 4501 4503 4510 4512 4524 4525 4526 4527 4528 4529 4645 4730 4753 4757 4760 4774 4775 4777 4780 4799 4801 4803 4804 4933 4934 4937 4938 4939 4942 4943 4944 4950 4951 5894 5986 6040 6042 6048 6108 6115 6153 6160 6306 6314 6324 6327 6358 6361 6375 6382 6390 6400 6438 6449 6469 6484 6501 6517 6519 6545 6548 6550 6557 6558 6559 6561 6567 6569 6572 6578 6580 6608 6610 6611 6615 6622 6623 6624 6628 6629 6636 6638 6644 6650 6666 6677 6689 6698 6704 6715 6718 6720 6724 6737 6743 6744 6869 6903 6908 6914 6951 6953 7061 7062 7176 7183 7190 7210 7212 7219 7240 7262 7299 7301 7307 7309 7313 7316 7321 B 1340 # (D) ACDISP 1461 # 3765 7370 7371 7622 (U) ACN 1342 # 2561 2573 2681 2971 2980 3229 3250 3296 3326 3367 4396 4408 4489 4491 4493 4501 4503 4510 4512 4524 4525 4526 4527 4528 4529 4645 4730 4753 4757 4760 4774 4775 4777 4780 4799 4801 4803 4804 4933 4934 4937 4938 4939 4942 4943 4944 4950 4951 5894 5986 6040 6042 6048 6108 6115 6153 6160 6650 6666 6677 6724 6743 BIN0 1349 # 2325 6545 6567 6572 6580 6611 6622 6623 6624 6628 6636 BIN1 1350 # 2326 2333 6517 6519 6548 6550 6557 6558 6559 6561 6569 6578 6608 6610 6615 6629 6638 DLEN 1346 # 6306 6314 6327 6358 6361 6390 6400 6438 6449 6484 6644 6689 6698 6704 6715 6718 6720 6737 6744 7061 7062 7176 7190 7210 7313 7316 7321 DSTP 1347 # 6324 6501 6903 6908 6953 7183 7240 7262 7307 7309 MARK 1348 # 6869 6951 SRCLEN 1344 # SRCP 1345 # 6375 6382 6469 6914 7212 7219 7299 7301 (U) AD 602 # 2300 2307 2343 2355 2393 2397 2400 2403 2412 2415 2418 2421 2494 2527 2710 2936 2938 2957 2959 3851 3942 4257 4290 4341 4714 4725 5566 6229 6231 6233 6235 6237 6239 6241 6243 6245 6276 6511 6626 6955 7744 7809 7810 7811 7966 7967 7968 7969 7970 7971 7972 7978 8021 8038 8052 8112 8115 8151 8159 8163 8362 8516 8717 8719 8735 8764 8929 9009 9010 9012 9013 9015 9016 9018 9019 A 631 # 2295 2297 2382 2386 2405 2469 2481 2508 2517 2575 2617 2618 2621 2681 2714 2971 2987 3178 3190 3197 3201 3212 3213 3215 3217 3218 3226 3245 3250 3279 3280 3283 3284 3285 3286 3302 3305 3308 3311 3315 3318 3353 3354 3357 3358 3369 3378 3379 3381 3382 3384 3385 3387 3388 3544 3571 3635 3676 3688 3700 3701 3704 3705 3774 3775 3781 3802 3812 3832 3850 3865 3902 3913 3938 4003 4006 4008 4027 4032 4107 4113 4125 4130 4143 4431 4433 4436 4458 4459 4461 4463 4482 4484 4498 4500 4518 4520 4532 4539 4540 4542 4563 4577 4634 4643 4658 4664 4693 4706 4708 4710 4722 4734 4738 4754 4758 4761 4774 4780 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 227 ; CROSS REFERENCE LISTING 4784 4793 4813 4862 4867 4868 4869 4874 4875 4877 4879 4952 5017 5027 5032 5039 5056 5080 5088 5143 5221 5234 5271 5291 5296 5372 5375 5393 5433 5453 5463 5470 5523 5550 5554 5568 5569 5572 5573 5574 5585 5586 5587 5628 5629 5630 5641 5664 5665 5669 5670 5690 5698 5700 5705 5708 5713 5747 5749 5780 5782 5785 5786 5792 5828 5832 5834 5840 5848 5850 5851 5852 5869 5870 5875 5903 5910 5911 5915 5918 5919 5926 5931 5933 5945 5947 5948 5949 5952 5960 5963 5965 5976 5978 5980 5987 5991 5993 6004 6010 6015 6019 6020 6023 6036 6039 6061 6071 6073 6081 6082 6091 6098 6101 6112 6115 6129 6134 6136 6157 6160 6182 6190 6279 6325 6346 6361 6382 6394 6400 6429 6440 6477 6484 6519 6558 6578 6580 6615 6628 6629 6666 6692 6698 6703 6704 6711 6715 6720 6742 6743 6744 6778 6813 6822 6825 6829 6831 6870 6881 6908 6916 6952 6969 6995 7027 7034 7045 7099 7117 7123 7215 7219 7239 7259 7262 7266 7268 7301 7309 7316 7317 7321 7328 7384 7385 7403 7490 7561 7563 7573 7579 7581 7589 7595 7655 7814 7848 7872 7892 7898 7985 7993 8026 8034 8053 8072 8098 8122 8125 8129 8135 8155 8158 8162 8381 8383 8389 8478 8486 8513 8616 8765 8781 8784 8814 8817 8873 8884 8894 8910 A+B 604 # 2332 2336 2383 2385 2442 2528 2532 2553 2605 2608 2982 3320 3583 3650 3886 3904 3907 4073 4078 4259 4286 4292 4336 4352 4510 4514 4544 4601 4605 4687 4785 4786 4789 4799 4873 4878 4905 4909 4915 5062 5488 5489 5503 5505 5510 5592 5593 5642 5790 5794 5873 5924 6006 6302 6367 6401 6406 6424 6454 6455 6561 6575 6586 6588 6598 6667 6679 6686 6706 6727 6741 6796 6808 6816 6861 6886 6984 7007 7035 7062 7217 7242 7261 7304 7324 7342 7349 7672 7720 7723 7745 7751 7796 7826 7988 8025 8036 8046 8054 8379 8502 8590 8597 8600 8603 8606 8609 8763 9023 9028 9036 A+Q 603 # 4756 4767 4788 5440 5912 5920 6022 6025 6179 A-.25 615 # A-B-.25 620 # 4683 4740 4741 5439 5458 5484 5499 5590 5702 5710 6063 6314 6453 6489 6710 A-D-.25 616 # 6539 6780 6785 6834 A-Q-.25 619 # A.AND.B 636 # 4467 4483 4705 4777 5240 5856 6108 6140 6142 6153 6336 6486 7413 7416 7883 8070 A.AND.Q 635 # 4465 4712 4757 4801 4803 4880 4934 4939 4944 4950 4951 5152 5232 5241 6104 6138 A.EQV.B 664 # A.EQV.Q 663 # 4443 4446 4468 4469 4525 4527 4529 4804 A.OR.B 628 # 3108 4404 5242 5399 6267 6368 6403 6442 6602 7043 7440 7444 7451 7482 7506 7861 7867 8040 8117 8152 8744 A.OR.Q 627 # 5564 5583 5935 A.XOR.B 656 # 6144 7812 A.XOR.Q 655 # B 630 # 2309 2317 2319 2320 2322 2326 2328 2335 2337 2531 2566 2586 2687 2720 2726 2731 2734 2766 2786 2934 2941 2948 2955 2986 3276 3293 3350 3370 3375 3529 3574 3577 3580 3586 3589 3592 3652 3880 3891 3934 3991 3997 4037 4043 4116 4261 4263 4271 4275 4277 4282 4304 4313 4325 4329 4344 4351 4435 4583 4587 4609 4613 4646 4652 4666 4671 4673 4678 4746 4748 4766 4782 4791 4853 4860 4881 5014 5024 5028 5043 5046 5063 5146 5214 5222 5230 5280 5294 5314 5347 5354 5627 5631 5716 5718 5751 5755 5789 5830 5849 5917 6017 6026 6076 6095 6132 6269 6272 6285 6287 6288 6319 6331 6366 6384 6410 6411 6412 6427 6470 6473 6475 6479 6492 6503 6512 6520 6652 6654 6697 6716 6729 6733 6735 6784 6791 6818 6832 6837 6860 6864 6920 6940 6954 7008 7017 7093 7115 7137 7169 7220 7222 7245 7286 7340 7420 7453 7455 7456 7458 7461 7465 7570 7571 7656 7658 7661 7681 7683 7685 7687 7711 7719 7722 7726 7748 7765 7771 7785 7802 7805 7821 7825 7827 7836 7837 7893 7912 7921 7929 8153 8340 8346 8348 8385 8387 8494 8501 8567 8577 8583 8587 8588 8589 8591 8592 8593 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8700 8703 8704 8706 8712 8721 8723 8725 8727 8734 8737 8766 8788 8789 8791 8877 8898 8941 8953 9026 9047 B-.25 614 # B-A-.25 612 # 3666 3776 3785 3788 4591 4595 4870 4902 6362 6385 6490 6491 6603 6693 6745 6782 7187 7320 7768 7914 7931 8762 8951 D 634 # 2294 2298 2330 2331 2333 2372 2425 2513 2530 2543 2547 2552 2556 2560 2561 2573 2574 2579 2584 2595 2602 2763 2783 2886 2888 2914 2916 2919 2920 2922 2925 2926 2928 2943 2945 2950 2952 2980 3171 3188 3194 3207 3210 3248 3296 3299 3367 3368 3513 3518 3633 3679 3682 3685 3691 3694 3697 3720 3799 3807 3838 3859 3864 3885 3889 3935 3974 3985 4014 4020 4047 4056 4068 4070 4105 4111 4127 4128 4141 4142 4146 4267 4312 4326 4416 4432 4441 4460 4464 4503 4508 4523 4526 4528 4530 4635 4644 4645 4728 4859 5016 5022 5036 5038 5042 5058 5092 5119 5120 5121 5122 5123 5139 5215 5216 5217 5218 5219 5268 5277 5284 5299 5301 5305 5309 5311 5315 5345 5350 5374 5387 5389 5432 5441 5445 5452 5468 5494 5520 5521 5548 5552 5625 5659 5692 5757 5837 5853 5895 5905 5998 6050 6185 6262 6281 6290 6306 6309 6323 6324 6327 6350 6353 6358 6375 6376 6387 6397 6414 6415 6416 6417 6425 6431 6439 6449 6451 6469 6471 6478 6482 6495 6497 6501 6514 6517 6526 6545 6548 6550 6557 6567 6608 6610 6611 6616 6644 6649 6650 6651 6663 6672 6677 6689 6695 6705 6708 6709 6724 6736 6738 6739 6757 6760 6810 6815 6820 6821 6862 6869 6885 6903 6914 6923 6927 6942 6951 6953 6957 6979 6986 6988 7021 7037 7059 7061 7100 7126 7176 7181 7183 7190 7192 7210 7212 7213 7216 7240 7258 7260 7270 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 228 ; CROSS REFERENCE LISTING 7285 7299 7303 7307 7313 7332 7339 7356 7377 7378 7397 7419 7425 7428 7436 7447 7470 7471 7479 7491 7566 7628 7630 7632 7634 7648 7654 7657 7659 7710 7718 7742 7746 7750 7762 7783 7795 7815 7819 7835 7841 7857 7870 7881 7904 7910 7925 7927 7956 7982 7994 8024 8043 8048 8067 8099 8105 8107 8119 8136 8142 8144 8147 8336 8368 8371 8373 8482 8489 8521 8569 8575 8579 8582 8594 8612 8614 8615 8617 8705 8710 8714 8738 8750 8753 8757 8758 8759 8760 8815 8819 8878 8906 8908 8909 8915 8930 8940 8966 8969 8971 8973 8975 8977 8979 8983 9042 D+A 608 # 2463 2475 2490 2503 3734 3757 3827 3975 4022 4051 4117 4133 4368 4396 4399 5076 5084 5368 5443 5455 6275 6278 6344 6378 6434 6534 6559 6569 6572 6713 6731 6774 6783 6790 6792 6917 6994 7105 7114 7188 7194 7265 7267 7764 7773 7816 7986 8044 8797 8799 8805 8807 D+Q 609 # 5317 5325 5357 5377 D-.25 626 # D-A-.25 624 # 3615 3749 4382 4408 4410 4413 5384 6718 6737 D-Q-.25 625 # D.AND.A 644 # 2449 2613 2615 2626 2648 2970 3014 3139 3174 3223 3520 3543 3778 3787 3790 3792 3793 3794 3843 3849 3854 3857 3863 3878 3879 3899 3900 3912 3914 3933 4226 4236 4238 4240 4242 4253 4268 4293 4294 4299 4347 4417 4489 4491 4676 4730 4753 4760 4959 5098 5274 5281 5396 5570 5632 5636 5662 5696 5734 5738 5758 5855 5894 5986 6021 6024 6042 6094 6097 6100 6103 6162 6263 6265 6307 6310 6450 6452 6488 6515 6522 6535 6555 6597 6613 6620 6646 6662 6681 6740 6754 6756 6788 6794 6811 6823 6826 6846 6849 6866 6882 7003 7038 7041 7106 7121 7280 7290 7358 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7439 7441 7443 7445 7448 7450 7452 7473 7476 7493 7497 7500 7501 7504 7567 7568 7574 7582 7590 7596 7757 7799 7851 7853 7855 7856 7858 7860 7862 7864 7866 7868 7998 8050 8121 8126 8130 8150 8453 8457 8459 8461 8463 8465 8467 8695 8740 8745 8761 8775 8778 8816 8834 8835 8843 8858 8860 8938 8946 8991 9000 9001 9003 9004 9006 9007 9043 D.AND.Q 645 # 3322 4832 5556 5562 5575 5581 5667 5981 D.EQV.A 668 # 3087 D.EQV.Q 669 # D.OR.A 632 # 2296 2451 2611 2649 3067 3538 3844 4296 4301 4418 4779 4865 5633 5637 5663 5697 5759 5900 5956 5957 5964 6002 6055 6169 6527 6614 6659 6668 6673 6683 6960 6964 6966 7030 7146 7150 7154 7162 7178 7318 7327 7569 7575 7784 7863 7959 7960 7961 7962 7963 7964 7965 8517 8776 8839 8847 8851 8886 8892 8895 8995 9044 D.OR.Q 633 # 3324 4715 D.XOR.A 660 # 2340 3056 3535 4732 5473 7996 7997 D.XOR.Q 661 # Q 629 # 3326 4437 4445 4493 4501 4501 4512 4524 4670 4726 4743 4749 4755 4759 4765 4773 5304 5479 5483 5589 5715 5720 5793 5836 5860 5954 5961 5982 5994 6005 6065 6067 6111 6156 6459 6498 6907 Q-.25 613 # Q-A-.25 611 # 4747 5366 Q-D-.25 617 # 5308 ZERO 641 # 2310 2310 2312 2315 2325 2327 2329 2347 2369 2590 3004 3187 3229 3249 3515 3881 4278 4538 4564 4637 4775 4854 5128 5141 5147 5148 5151 5225 5226 5229 5286 5437 5486 5501 5591 5639 5712 5723 5736 5740 5742 5743 5756 5770 6038 6066 6332 6334 6369 6390 6438 6443 6456 6467 6496 6618 6636 6638 6657 6691 6747 6751 6755 6758 6814 6943 6982 7024 7096 7172 7412 7415 7480 7583 7753 7852 7900 7937 7974 7977 7984 7999 8375 8377 8496 8499 8570 8754 8774 8786 8889 8959 8965 8981 8982 -A-.25 623 # 2771 3149 4639 4718 4796 4839 4857 4864 4960 4964 4968 4970 5622 5699 5703 5735 5846 5862 5891 5892 6045 6056 6057 6125 6146 6152 6621 6746 7882 -B-.25 622 # 6046 -D-.25 618 # 4770 4933 4938 4943 4948 6348 6624 7312 7326 -Q-.25 621 # 4717 4769 4795 4837 4838 4855 5721 5829 5831 5833 5835 6120 .NOT.A 667 # 3039 3077 3118 3129 3532 4403 4648 4856 4962 4969 5795 5844 5859 5861 6044 6054 6123 6316 6318 6879 7884 7976 .NOT.A.AND.B 648 # 4439 5929 7446 7449 7859 7869 8071 .NOT.A.AND.Q 647 # 6068 .NOT.B 666 # 6151 6530 .NOT.D 670 # 3097 3107 4937 4942 4947 6365 6395 6399 6537 6541 6623 7330 .NOT.D.AND.A 652 # 2450 3024 3893 4332 5863 5898 6001 6053 6106 6121 6149 6170 6762 7142 7158 7437 7463 7576 7865 8823 8828 8861 8879 8882 8958 9049 .NOT.D.AND.Q 653 # .NOT.Q 665 # 5239 6119 6335 0+A 607 # 6186 0+B 606 # 0+D 610 # 0+Q 605 # 5930 6079 (U) AD PARITY OK 783 # 2333 2547 2560 2561 2783 2886 2888 2920 2926 2980 3171 3174 3188 3223 3720 4014 4047 4070 4128 4141 4460 4503 4644 5042 5452 5548 5625 5659 5692 5757 5905 6306 6309 6324 6327 6358 6375 6449 6451 6469 6501 6514 6517 6545 6548 6550 6557 6567 6608 6610 6611 6644 6649 6650 6651 6672 6677 6689 6724 6810 6869 6914 6951 6953 7061 7176 7183 7210 7212 7240 7299 7307 7313 8147 8489 8715 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 229 ; CROSS REFERENCE LISTING (U) ADDRESS HIGH 8667 # ALL 8670 # 8743 IO 8669 # MEMORY 8668 # 8780 (U) ADFLGS 1233 # 2772 3650 3666 3734 3749 4369 4383 4401 4411 4414 4544 4963 4965 (U) AREAD 1268 # 2495 (U) B 727 # AR 731 # 2307 2309 2327 2393 2397 2400 2412 2415 2418 2494 2527 2528 2528 2532 2532 2543 2547 2552 2560 2566 2579 2584 2586 2595 2605 2605 2608 2608 2617 2618 2648 2649 2687 2714 2720 2726 2731 2734 2763 2766 2771 2886 2888 2914 2916 2919 2920 2922 2925 2926 2928 2934 2936 2938 2941 2943 2945 2948 2950 2952 2955 2957 2959 3004 3014 3024 3039 3056 3067 3077 3087 3097 3108 3108 3118 3129 3139 3149 3171 3174 3178 3188 3190 3194 3197 3201 3207 3210 3212 3213 3215 3217 3218 3248 3249 3250 3276 3293 3350 3370 3375 3513 3518 3532 3535 3538 3543 3544 3574 3577 3580 3586 3589 3592 3615 3633 3635 3650 3650 3652 3666 3886 3886 3904 3907 3907 3914 3935 4068 4073 4078 4128 4267 4268 4275 4293 4312 4313 4326 4329 4332 4341 4344 4352 4368 4382 4399 4404 4404 4410 4413 4416 4437 4443 4445 4446 4463 4464 4482 4530 4637 4639 4644 4646 4671 4693 4728 4734 4738 4782 4786 4786 4789 4789 4793 4796 4799 4813 4839 4853 4856 4857 4862 4867 4870 4873 4875 4877 4878 4878 4879 4910 4947 4948 4952 4962 4964 4969 4970 5014 5024 5028 5032 5043 5046 5056 5058 5062 5062 5063 5092 5131 5146 5148 5151 5152 5214 5215 5216 5217 5218 5219 5222 5230 5239 5240 5240 5242 5242 5299 5301 5311 5314 5315 5345 5354 5368 5379 5384 5387 5389 5393 5484 5499 5520 5521 5523 5590 5622 5629 5631 5632 5633 5642 5642 5669 5670 5692 5696 5697 5708 5713 5715 5716 5718 5720 5721 5747 5749 5751 5755 5757 5758 5759 5780 5785 5786 5789 5790 5790 5792 5794 5794 5828 5830 5832 5834 5837 5840 5844 5846 5848 5849 5850 5851 5852 5853 5856 5856 5859 5861 5862 5870 5873 5873 5875 5892 5919 5924 5924 5926 5931 5933 5978 6015 6019 6023 6026 6050 6053 6055 6057 6081 6082 6091 6095 6098 6101 6112 6115 6123 6125 6129 6132 6134 6136 6151 6157 6160 6182 6185 6186 6190 6229 6231 6233 6235 6237 6239 6241 6243 6245 6272 6302 6302 6309 6316 6318 6319 6334 6335 6344 6348 6361 6362 6362 6365 6367 6367 6368 6368 6375 6382 6384 6394 6395 6397 6399 6400 6401 6401 6406 6406 6414 6454 6454 6455 6456 6469 6475 6482 6486 6486 6489 6489 6492 6496 6501 6503 6511 6512 6514 6522 6530 6534 6537 6541 6610 6613 6614 6615 6623 6624 6628 6649 6651 6654 6663 6672 6689 6703 6704 6705 6706 6706 6711 6729 6731 6733 6738 6742 6755 6757 6758 6760 6782 6785 6790 6796 6796 6808 6820 6821 6822 6823 6825 6826 6860 6881 6885 6886 6886 6908 6914 6916 6917 6920 6942 6943 6955 6957 6979 6982 6984 6984 6986 6994 7003 7007 7007 7008 7021 7024 7027 7030 7034 7037 7041 7059 7061 7062 7093 7099 7100 7105 7114 7115 7117 7123 7172 7176 7181 7183 7187 7188 7190 7192 7194 7210 7212 7215 7216 7217 7217 7219 7220 7222 7240 7245 7259 7260 7261 7261 7262 7270 7285 7286 7290 7299 7303 7304 7307 7312 7316 7320 7320 7321 7324 7324 7326 7327 7328 7330 7342 7342 7349 7349 7491 7493 7504 7561 7563 7672 7672 7681 7683 7685 7687 7710 7711 7720 7720 7723 7723 7742 7745 7745 7746 7748 7750 7751 7751 7753 7762 7764 7765 7768 7768 7771 7773 7795 7805 7819 7835 7836 7837 7900 7904 7912 7914 7914 7921 7925 7929 7931 7931 7937 7974 7978 7982 7985 7986 7988 7988 7994 8024 8025 8025 8034 8038 8040 8040 8099 8105 8107 8136 8142 8144 8368 8379 8379 8482 8489 8516 8517 8592 8593 8594 8595 8612 8613 8614 8700 8750 8753 8757 8781 8784 8786 8797 8799 8805 8807 8878 8915 8930 8940 8941 8966 9009 9010 9012 9013 9015 9016 9018 9019 9023 9023 9028 9036 9036 ARX 732 # 2333 2337 2530 2531 2556 2561 2590 2615 2681 2970 2971 2980 2986 3975 4006 4008 4014 4022 4047 4051 4127 4130 4257 4259 4259 4263 4271 4286 4336 4396 4408 4417 4418 4435 4436 4441 4465 4468 4469 4483 4483 4491 4501 4514 4514 4520 4523 4538 4544 4564 4584 4588 4592 4596 4602 4606 4610 4614 4658 4670 4676 4743 4749 4759 4854 4859 4865 4881 4902 4902 4905 4905 4916 4959 4960 4968 5038 5042 5234 5241 5268 5271 5274 5277 5280 5432 5489 5503 5503 5593 5628 5698 5699 5710 5891 5994 6006 6006 6042 6065 6140 6140 6142 6142 6144 6144 6146 6179 6325 6327 6346 6378 6385 6411 6416 6424 6424 6427 6429 6434 6449 6453 6473 6479 6484 6490 6517 6519 6548 6569 6575 6575 6578 6588 6588 6597 6608 6620 6621 6626 6629 6650 6652 6662 6666 6667 6667 6677 6695 6724 6735 6739 6741 6741 6743 6780 6788 6792 6794 6940 7126 7169 7239 7242 7317 7318 7339 7340 7439 7441 7479 7480 7654 7656 7657 7658 7659 7661 7718 7719 7722 7726 7799 7802 7810 7814 7816 7827 7984 8036 8036 8046 8046 8112 8115 8117 8151 8152 8159 8163 8371 8377 8389 8494 8499 8502 8567 8569 8575 8579 8582 8583 8587 8590 8597 8600 8603 8606 8609 8615 8617 8703 8758 8759 8764 8817 8819 8847 8861 8886 8889 8895 8898 8906 BR 733 # 2335 2574 2575 2602 2611 2613 2783 2786 3107 3223 3245 3279 3280 3283 3284 3285 3286 3299 3302 3305 3308 3311 3315 3318 3320 3353 3354 3357 3358 3368 3369 3378 3379 3381 3382 3384 3385 3387 3388 3515 3520 3529 3676 3679 3682 3685 3688 3691 3694 3697 3720 3734 3749 3757 3807 3812 3885 3891 3900 3974 3985 3991 3997 4020 4037 4043 4070 4105 4107 4111 4116 4125 4141 4142 4146 4290 4292 4292 4296 4301 4304 4403 4484 4634 4643 4652 4666 4673 4678 4683 4687 4706 4708 4710 4718 4722 4740 4741 4860 4864 4868 4869 5016 5022 5036 5098 5119 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 230 ; CROSS REFERENCE LISTING 5120 5121 5122 5123 5139 5141 5143 5281 5284 5286 5291 5294 5309 5319 5347 5359 5396 5399 5440 5441 5443 5453 5455 5468 5550 5625 5627 5630 5636 5637 5641 5690 5735 5782 5795 5869 5895 5898 5900 5911 5982 6020 6039 6046 6063 6262 6267 6267 6269 6275 6276 6278 6281 6285 6287 6288 6290 6306 6314 6324 6331 6358 6366 6387 6410 6415 6488 6545 6550 6557 6558 6559 6561 6567 6572 6580 6586 6586 6598 6598 6611 6691 6692 6693 6693 6713 6716 6718 6720 6727 6727 6737 6744 6746 6762 6815 6816 6818 6829 6831 6832 6869 6879 6951 6953 6954 7213 7258 7301 7309 7313 7332 7377 7378 7384 7385 7397 7412 7413 7415 7416 7419 7420 7425 7428 7436 7437 7440 7440 7444 7444 7446 7446 7455 7456 7458 7470 7471 7473 7476 7482 7482 7566 7567 7569 7570 7571 7579 7581 7582 7583 7589 7590 7595 7596 7628 7630 7632 7634 7648 7744 7783 7784 7785 7809 7812 7815 7825 7841 7848 7856 7857 7893 7910 7927 7998 8044 8048 8054 8054 8067 8072 8119 8122 8125 8126 8129 8130 8147 8153 8158 8162 8381 8385 8596 8712 8721 8723 8725 8727 8737 8738 8740 8760 8762 8766 8815 8823 8828 8877 8879 8882 8892 8908 9042 9044 9047 BRX 734 # 2331 2332 2332 4431 4433 4460 4461 4489 4508 4540 4563 4664 4726 4785 5372 5375 5437 5439 5452 5458 5488 5488 5505 5510 5548 5592 5592 5659 5662 5663 5665 5700 5702 5703 5705 5894 5986 5987 5998 6001 6002 6036 6045 6265 6310 6403 6412 6417 6440 6442 6451 6470 6477 6491 6515 6520 6527 6602 6602 6616 6644 6646 6657 6659 6668 6673 6679 6679 6683 6686 6686 6697 6698 6715 6745 6810 6837 6864 6866 6964 6966 6969 7017 7035 7035 7038 7043 7043 7045 7137 7142 7146 7150 7154 7158 7162 7178 7447 7449 7449 7451 7451 7453 7461 7463 7465 7811 7966 7967 7968 7969 7970 7971 7972 8050 8053 8362 8598 8704 8705 8706 8714 8717 8719 8734 8735 8744 8744 8776 8778 8788 8789 8791 8839 8851 8909 9026 EBR 736 # 2312 4261 7573 7575 7576 8601 FLG 739 # 2315 2317 2319 2320 2322 2450 2451 3844 3893 5445 5486 5501 5591 5863 5956 5957 5964 6106 6121 6149 6169 6170 6323 6350 6353 6369 6376 6425 6431 6439 6443 6467 6471 6478 6497 6526 6618 6709 6736 6747 6751 6814 6862 6923 6927 6960 6988 7096 8605 8953 8958 8959 8965 8969 8971 8973 8975 8977 8979 8981 8982 8983 8995 9049 HR 730 # 2330 2336 2336 2425 2475 2490 2503 2513 2553 2626 3778 3787 3790 3792 3793 3794 3799 3827 3838 3849 3854 3857 3859 3878 3899 3912 3933 3934 3938 3942 4226 4236 4238 4240 4242 4253 4278 4282 4325 4347 4351 4924 7280 7356 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7796 7821 7826 7855 8453 8457 8459 8461 8463 8465 8467 8521 8591 8695 MAG 728 # 2297 4542 4577 4705 4754 4777 5221 5226 5229 5554 5572 5573 5574 5586 5980 6071 6108 6153 8588 MASK 738 # 2294 2295 2296 3880 4439 5568 5569 6336 8577 8604 ONE 735 # 2300 2326 2328 2982 6710 8599 PC 729 # 2369 2383 2385 2442 2463 2469 3226 3583 3701 3704 3774 3775 3776 3785 3788 3802 3850 3865 3889 4003 4056 4117 4133 4277 6603 6861 6861 8026 8387 8589 8951 PI 740 # 2347 7852 7859 7859 7861 7861 7863 7865 7867 7867 7869 7869 7959 7960 7961 7962 7963 7964 7965 8070 8071 8071 8607 T0 742 # 3864 4459 4467 4500 4503 4510 4755 4761 4765 4767 4769 4774 4779 4780 5905 5910 5917 5918 5945 5947 5948 5949 5952 5960 5963 5965 5993 6067 6073 6708 6774 6783 6784 7870 7881 7882 7883 7883 8043 8336 8340 8346 8348 8610 T1 743 # 2343 2355 2372 2403 2421 2710 3851 4714 4725 4732 4746 4748 4766 4791 4874 5557 5565 5570 5576 5585 5929 5929 5954 5961 6005 6017 6038 6044 6054 6076 6778 6791 8021 8052 8501 8611 8929 UBR 737 # 2310 7497 7501 7506 7506 8602 XWD1 741 # 2298 8608 8763 (D) B 1443 # 3419 3420 3421 3422 3423 3424 3428 3429 3430 3431 3432 3433 3435 3436 3437 3438 3439 3440 3441 3442 3444 3445 3446 3447 3448 3449 3450 3451 3454 3455 3456 3457 3458 3459 3460 3461 3463 3464 3465 3466 3467 3468 3469 3470 3471 3472 3473 3474 3475 3476 3477 3478 3480 3481 3482 3483 3484 3485 3486 3487 3595 3596 3597 3598 3599 3600 3601 3602 3604 3605 3606 3607 3608 3609 3610 3611 3622 3623 3624 3625 3626 3627 3628 3629 3639 3640 3641 3642 3643 3644 3645 3646 3655 3656 3657 3658 3659 3660 3661 3662 3709 3710 3711 3712 3713 3714 3715 3716 3723 3724 3725 3726 3727 3728 3729 3730 3738 3739 3740 3741 3742 3743 3744 3745 3752 3753 3965 3966 3967 4064 4154 4155 4156 4157 4158 4159 4160 4161 4214 4215 4216 4217 4218 4219 6200 6201 6202 6203 6204 6205 6206 6208 6209 6210 6211 6213 6214 6215 6216 6221 6222 6223 6224 6225 8080 8081 8082 8083 8084 8085 8087 8088 8089 8090 8091 8092 8395 8396 8397 8399 8400 8402 8403 8405 8406 8407 8408 8409 8410 8411 8412 8414 8415 8416 8417 8418 8419 8420 8421 8423 8424 8425 8426 8427 8428 8429 8430 8432 8433 8434 8435 8436 8437 8438 8439 8441 8442 8443 8444 8445 8446 8447 8448 AC 1447 # 2741 2742 2746 2747 2751 2752 2756 2757 2779 2796 2797 2801 2802 2806 2807 2811 2812 2816 2817 2821 2822 2826 2827 2831 2832 2838 2839 2843 2844 2848 2849 2853 2854 2859 2860 2864 2865 2869 2870 2874 2875 2966 2997 2998 3007 3008 3017 3018 3027 3028 3032 3033 3049 3050 3060 3061 3070 3071 3080 3081 3090 3091 3100 3101 3111 3112 3122 3123 3132 3133 3142 3143 4361 4362 4375 4376 4425 4426 5006 8691 BOTH 1449 # 3000 3010 3020 3030 3035 3052 3063 3073 3083 3093 3103 3114 3125 3135 3145 4364 4378 4428 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 231 ; CROSS REFERENCE LISTING DBLAC 1445 # 2965 4391 4392 4450 4451 4477 4621 4622 4626 4627 4700 5971 6033 DBLB 1446 # 4453 4624 4629 MEM 1448 # 2743 2748 2753 2758 2798 2803 2808 2813 2818 2823 2828 2833 2840 2845 2850 2855 2861 2866 2871 2876 2999 3009 3019 3029 3034 3044 3045 3051 3062 3072 3082 3092 3102 3113 3124 3134 3144 4363 4377 4427 4452 4623 4628 7622 SELF 1444 # 2744 2749 2754 2759 2799 2804 2809 2814 2819 2824 2829 2834 2841 2846 2851 2856 2862 2867 2872 2877 (U) BWRITE 1277 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 4369 4383 4437 4443 4466 4468 5790 5794 5841 5864 (U) BYTE 891 # BYTE1 892 # 5016 5022 5036 5058 5215 6387 6397 6885 7037 7213 7216 7258 7260 7332 BYTE2 893 # 5216 BYTE3 894 # 5217 BYTE4 895 # 5218 BYTE5 896 # 3248 5119 5120 5121 5122 5123 5219 7021 (U) CALL 1047 # 2301 2334 2347 2589 2970 2980 3801 3861 3863 3864 3879 3903 3906 4129 4132 4260 4270 4275 4279 4284 4287 4325 4327 4434 4462 4490 4499 4509 4519 4543 4656 4677 4733 4739 4754 4758 4764 4810 4835 5016 5022 5026 5031 5036 5045 5048 5303 5313 5348 5376 5436 5452 5454 5549 5559 5561 5578 5580 5666 5709 5712 5717 5719 5830 5832 5834 5849 5850 5851 5910 5918 5946 5987 5992 6004 6011 6018 6038 6062 6066 6070 6096 6099 6102 6133 6135 6137 6143 6264 6305 6308 6312 6345 6351 6377 6402 6413 6428 6432 6439 6450 6452 6458 6472 6481 6502 6518 6521 6534 6549 6560 6568 6571 6574 6577 6585 6590 6617 6653 6662 6678 6690 6717 6728 6736 6753 6779 6809 6812 6817 6895 6904 6915 6918 6928 6941 6956 6963 6985 6989 7060 7095 7120 7221 7241 7246 7300 7308 7319 7657 7659 7721 7724 7752 7798 7801 7820 7870 7926 7980 8023 8041 8045 8118 8154 8495 8497 8503 8519 8568 8570 8588 8591 8593 8595 8598 8601 8604 8607 8610 8612 8739 8752 9029 (U) CHKL 794 # 2425 2513 2531 2543 2552 2556 2573 2584 2595 2602 2615 2687 2720 2726 2731 2734 2786 2986 3296 3367 3652 3799 3838 3859 3885 3889 3935 3974 3991 3997 4020 4037 4043 4056 4116 4146 4275 4277 4282 4312 4325 4329 4351 4432 4526 4528 4635 4645 4730 4753 4760 5063 5092 5098 5222 5494 5552 6262 6281 6708 6903 6954 6957 6986 7270 7285 7356 7419 7491 7656 7658 7661 7710 7718 7795 7825 7827 7835 7893 7994 8048 8099 8136 8153 8368 8371 8373 8385 8387 8482 8501 8521 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8815 8877 9026 9047 (U) CHKR 801 # 2425 2513 2531 2543 2552 2556 2573 2584 2595 2602 2615 2687 2720 2726 2731 2734 2786 2986 3296 3367 3652 3799 3838 3859 3885 3889 3935 3974 3991 3997 4020 4037 4043 4056 4116 4146 4275 4277 4282 4312 4325 4329 4351 4432 4526 4528 4635 4645 4730 4753 4760 5063 5092 5098 5222 5494 5552 6262 6281 6708 6903 6954 6957 6986 7270 7285 7356 7419 7491 7656 7658 7661 7710 7718 7795 7825 7827 7835 7893 7994 8048 8099 8136 8153 8368 8371 8373 8385 8387 8482 8501 8521 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8815 8877 9026 9047 (U) CLKL 790 # 2383 2385 2442 2463 2464 2470 2475 2490 2491 2503 2514 2553 2888 2920 2928 2950 2952 3583 3701 3704 3774 3775 3776 3785 3788 3802 3827 3865 3890 3904 4057 4118 4131 4135 4286 4298 4303 4336 4352 4405 5062 5093 5307 5367 5391 5445 5457 5486 5489 5501 5505 5510 5522 5573 5574 5591 5593 5668 5935 6275 6278 6281 6323 6350 6353 6369 6376 6406 6425 6431 6439 6443 6455 6467 6471 6478 6497 6526 6603 6618 6657 6692 6709 6736 6747 6751 6808 6814 6862 6923 6927 6962 6988 7031 7036 7096 7217 7261 7270 7438 7464 7478 7567 7569 7672 7720 7723 7796 7801 7826 7863 7865 7867 7869 7882 7959 7960 7961 7962 7963 7964 7965 7987 8025 8071 8502 8518 8590 8597 8600 8603 8606 8609 8762 8825 8849 8863 8883 8893 8896 8951 8959 8965 8969 8971 8973 8975 8977 8979 8981 8982 8983 9028 (U) CLKR 797 # 2450 2451 2611 2613 2626 2648 2649 2886 2922 2926 2943 2945 2970 3323 3325 3633 3778 3787 3790 3792 3793 3794 3844 3849 3854 3857 3878 3894 3899 3912 3933 4069 4226 4236 4238 4240 4242 4255 4269 4279 4333 4349 4416 4417 4418 4441 4464 4676 4716 4779 4834 4959 5141 5279 5287 5352 5398 5438 5442 5632 5633 5636 5637 5662 5663 5696 5697 5758 5759 5837 5853 5863 5956 5957 5964 5981 6105 6106 6121 6139 6149 6169 6170 6185 6268 6290 6523 6528 6597 6613 6614 6620 6660 6662 6669 6675 6684 6703 6755 6758 6763 6788 6794 6867 6965 6967 7040 7044 7100 7143 7147 7151 7155 7159 7163 7179 7280 7292 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7431 7472 7475 7495 7499 7575 7576 7584 7592 7598 7746 7855 7857 7859 7861 8024 8105 8107 8142 8144 8377 8453 8457 8459 8461 8463 8465 8467 8695 8743 8777 8780 8830 8841 8853 8881 8958 8995 9045 9050 (U) CLRFPD 1205 # 3986 4106 4112 4521 5032 5049 6747 (D) COND FUNC 1466 # 2743 2744 2748 2749 2753 2754 2758 2759 2798 2799 2803 2804 2808 2809 2813 2814 2818 2819 2823 2824 2828 2829 2833 2834 2840 2841 2845 2846 2850 2851 2855 2856 2861 2862 2866 2867 2871 2872 2876 2877 2999 3000 3009 3010 3019 3020 3029 3030 3034 3035 3044 3045 3051 3052 3062 3063 3072 3073 3082 3083 3092 3093 3102 3103 3113 3114 3124 3125 3134 3135 3144 3145 4363 4364 4377 4378 4427 4428 4452 4453 4623 4624 4628 4629 5603 5604 5607 5608 5611 5612 5615 5616 5649 5650 5654 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 232 ; CROSS REFERENCE LISTING 5655 5679 5680 5684 5685 7622 (U) CRY38 1030 # 2771 3149 3615 3666 3749 3776 3785 3788 4382 4400 4408 4413 4591 4595 4639 4683 4717 4740 4741 4747 4769 4795 4837 4838 4839 4855 4857 4864 4870 4902 4933 4938 4943 4948 4960 4964 4968 4970 5308 5366 5384 5439 5458 5484 5499 5590 5622 5699 5702 5703 5710 5721 5735 5829 5831 5833 5835 5846 5862 5891 5930 6045 6056 6063 6079 6120 6125 6146 6152 6186 6314 6348 6362 6385 6453 6489 6490 6491 6539 6603 6621 6624 6693 6710 6718 6737 6745 6746 6780 6782 6785 6834 7187 7312 7320 7326 7768 7882 7914 7931 8762 8951 (U) DBM 768 # APR FLAGS 771 # 7377 7378 7447 7479 7783 BYTES 772 # DP 774 # 3248 5016 5022 5036 5058 5119 5120 5121 5122 5123 5215 5216 5217 5218 5219 6387 6397 6885 7021 7037 7213 7216 7258 7260 7332 DP SWAP 775 # 2579 2763 2914 2916 2919 2922 2925 2928 3513 3518 3864 4068 4127 4142 4267 5139 5268 5284 5387 5432 5441 5520 6757 6815 6820 6821 7126 7471 7857 7870 7881 8819 EXP 773 # 5837 5853 6185 7809 7810 7811 MEM 777 # 2310 2424 2513 2542 2551 2555 2583 2594 2601 2614 3798 3837 3858 3881 3885 3889 3935 3973 4019 4056 4145 4311 5091 5097 5493 5551 6262 6281 6708 6957 6986 7270 7284 7343 7350 7356 7419 7491 7710 7718 7794 7835 7977 7981 7994 8042 8048 8099 8119 8136 8368 8371 8373 8375 8481 8496 8520 8570 8754 8774 8815 PF DISP 770 # 8709 SCAD DIAG 769 # VMA 776 # 5468 5473 8336 8582 8705 8738 # 778 # 2294 2296 2298 2300 2307 2330 2331 2340 2343 2355 2372 2393 2397 2400 2403 2412 2415 2418 2421 2449 2450 2451 2527 2611 2613 2626 2648 2649 2710 2943 2945 2950 2952 2970 3249 3322 3324 3778 3787 3790 3792 3793 3794 3843 3844 3849 3851 3854 3857 3863 3878 3879 3893 3899 3912 3933 4022 4051 4117 4133 4226 4236 4238 4240 4242 4253 4257 4290 4294 4296 4299 4301 4332 4341 4347 4417 4418 4676 4714 4715 4725 4732 4779 4832 4859 4865 4959 5129 5274 5277 5281 5301 5305 5311 5315 5345 5350 5384 5389 5396 5445 5455 5557 5562 5570 5576 5581 5632 5633 5636 5637 5662 5663 5667 5696 5697 5734 5738 5758 5759 5855 5863 5898 5900 5956 5957 5964 5981 6001 6002 6021 6024 6053 6055 6094 6097 6100 6103 6106 6121 6149 6162 6169 6170 6229 6231 6233 6235 6237 6239 6241 6243 6245 6263 6265 6290 6307 6310 6323 6350 6353 6376 6425 6431 6439 6450 6452 6471 6478 6497 6511 6515 6522 6526 6527 6535 6539 6555 6597 6613 6614 6620 6626 6646 6659 6662 6668 6673 6681 6683 6709 6736 6740 6754 6756 6762 6774 6783 6788 6794 6811 6823 6826 6834 6846 6849 6862 6866 6882 6923 6927 6943 6955 6960 6964 6966 6982 6988 7003 7024 7030 7038 7041 7121 7142 7146 7150 7154 7158 7162 7172 7178 7280 7290 7358 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7412 7415 7425 7428 7437 7439 7441 7443 7445 7448 7450 7452 7463 7473 7476 7480 7493 7497 7500 7501 7504 7567 7568 7569 7574 7575 7576 7582 7590 7596 7744 7757 7784 7799 7851 7853 7855 7856 7858 7860 7862 7863 7864 7865 7866 7868 7904 7910 7925 7927 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7974 7978 7986 7996 7997 8021 8024 8038 8044 8050 8052 8067 8105 8107 8112 8115 8121 8126 8130 8142 8144 8150 8151 8159 8163 8362 8453 8457 8459 8461 8463 8465 8467 8516 8517 8695 8717 8719 8735 8740 8745 8761 8775 8776 8778 8786 8816 8823 8828 8834 8835 8839 8843 8847 8851 8858 8860 8861 8879 8882 8886 8889 8892 8895 8929 8938 8946 8958 8969 8971 8973 8975 8977 8979 8983 8991 8995 9000 9001 9003 9004 9006 9007 9009 9010 9012 9013 9015 9016 9018 9019 9043 9044 9049 (U) DBUS 759 # DBM 765 # 2294 2296 2298 2300 2307 2310 2330 2331 2340 2343 2355 2372 2393 2397 2400 2403 2412 2415 2418 2421 2424 2425 2449 2450 2451 2513 2513 2527 2542 2543 2551 2552 2555 2556 2579 2583 2584 2594 2595 2601 2602 2611 2613 2614 2615 2626 2648 2649 2710 2763 2914 2916 2919 2922 2925 2928 2943 2945 2950 2952 2970 3248 3249 3322 3324 3513 3518 3778 3787 3790 3792 3793 3794 3798 3799 3837 3838 3843 3844 3849 3851 3854 3857 3858 3859 3863 3864 3878 3879 3881 3885 3885 3889 3889 3893 3899 3912 3933 3935 3935 3973 3974 4019 4020 4022 4051 4056 4056 4068 4117 4127 4133 4142 4145 4146 4226 4236 4238 4240 4242 4253 4257 4267 4290 4294 4296 4299 4301 4311 4312 4332 4341 4347 4417 4418 4676 4714 4715 4725 4732 4779 4832 4859 4865 4959 5016 5022 5036 5058 5091 5092 5097 5098 5119 5120 5121 5122 5123 5129 5139 5215 5216 5217 5218 5219 5268 5274 5277 5281 5284 5301 5305 5311 5315 5345 5350 5384 5387 5389 5396 5432 5441 5445 5455 5468 5473 5493 5494 5520 5551 5552 5556 5562 5570 5575 5581 5632 5633 5636 5637 5662 5663 5667 5696 5697 5734 5738 5758 5759 5837 5853 5855 5863 5898 5900 5956 5957 5964 5981 6001 6002 6021 6024 6053 6055 6094 6097 6100 6103 6106 6121 6149 6162 6169 6170 6185 6229 6231 6233 6235 6237 6239 6241 6243 6245 6262 6262 6263 6265 6281 6281 6290 6307 6310 6323 6350 6353 6376 6387 6397 6425 6431 6439 6450 6452 6471 6478 6497 6511 6515 6522 6526 6527 6535 6539 6555 6597 6613 6614 6620 6626 6646 6659 6662 6668 6673 6681 6683 6708 6708 6709 6736 6740 6754 6756 6757 6762 6774 6783 6788 6794 6811 6815 6820 6821 6823 6826 6834 6846 6849 6862 6866 6882 6885 6923 6927 6943 6955 6957 6957 6960 6964 6966 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 233 ; CROSS REFERENCE LISTING 6982 6986 6986 6988 7003 7021 7024 7030 7037 7038 7041 7121 7126 7142 7146 7150 7154 7158 7162 7172 7178 7213 7216 7258 7260 7270 7270 7280 7284 7285 7290 7332 7343 7350 7356 7356 7358 7364 7374 7375 7376 7377 7378 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7412 7415 7419 7419 7425 7428 7437 7439 7441 7443 7445 7447 7448 7450 7452 7463 7471 7473 7476 7479 7480 7491 7491 7493 7497 7500 7501 7504 7567 7568 7569 7574 7575 7576 7582 7590 7596 7710 7710 7718 7718 7744 7757 7783 7784 7794 7795 7799 7809 7810 7811 7835 7835 7851 7853 7855 7856 7857 7858 7860 7862 7863 7864 7865 7866 7868 7870 7881 7904 7910 7925 7927 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7974 7977 7978 7981 7982 7986 7994 7994 7996 7997 8021 8024 8038 8042 8043 8044 8048 8048 8050 8052 8067 8099 8099 8105 8107 8112 8115 8119 8119 8121 8126 8130 8136 8136 8142 8144 8150 8151 8159 8163 8336 8362 8368 8368 8371 8371 8373 8373 8375 8453 8457 8459 8461 8463 8465 8467 8481 8482 8496 8516 8517 8520 8521 8570 8582 8695 8705 8709 8714 8717 8719 8735 8738 8740 8745 8754 8761 8774 8775 8776 8778 8786 8815 8815 8816 8819 8823 8828 8834 8835 8839 8843 8847 8851 8858 8860 8861 8879 8882 8886 8889 8892 8895 8929 8938 8946 8958 8969 8971 8973 8975 8977 8979 8983 8991 8995 9000 9001 9003 9004 9006 9007 9009 9010 9012 9013 9015 9016 9018 9019 9043 9044 9049 DP 763 # 2325 2326 2531 2681 2687 2714 2720 2726 2731 2734 2786 2971 2986 3229 3250 3286 3320 3326 3544 3633 3635 3652 3676 3679 3679 3682 3682 3685 3685 3688 3691 3691 3694 3694 3697 3697 3939 3991 3997 4006 4008 4037 4043 4073 4078 4107 4116 4275 4277 4282 4325 4329 4351 4416 4441 4464 4493 4501 4510 4512 4523 4523 4524 4525 4527 4529 4757 4773 4774 4775 4777 4780 4799 4801 4804 4934 4939 4944 4950 4951 4952 5032 5063 5222 5399 5453 5479 5483 5523 5550 5589 5786 5792 6108 6115 6151 6152 6153 6160 6314 6361 6382 6390 6400 6403 6438 6440 6442 6477 6484 6519 6561 6578 6580 6615 6616 6616 6628 6629 6636 6638 6663 6663 6666 6698 6704 6715 6720 6742 6743 6744 6907 6908 6954 6969 7045 7062 7100 7190 7190 7219 7262 7301 7309 7316 7321 7328 7656 7658 7661 7746 7825 7827 7893 8122 8153 8385 8387 8389 8501 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8877 8953 9026 9047 PC FLAGS 760 # 2530 3900 3914 3985 4105 4111 4268 4293 4326 4530 7339 7998 8760 9042 PI NEW 761 # 7956 RAM 764 # 2333 2463 2475 2490 2503 2547 2560 2561 2573 2574 2783 2886 2888 2920 2926 2980 3014 3024 3056 3067 3087 3097 3107 3139 3171 3174 3188 3194 3207 3210 3223 3296 3299 3367 3368 3520 3535 3538 3543 3615 3720 3734 3749 3757 3807 3827 3975 4014 4047 4070 4128 4141 4368 4382 4396 4399 4408 4410 4413 4432 4460 4489 4491 4503 4508 4526 4528 4635 4644 4645 4728 4730 4753 4760 4770 4933 4937 4938 4942 4943 4947 4948 5038 5042 5076 5084 5299 5308 5309 5321 5325 5361 5368 5374 5382 5443 5452 5521 5548 5625 5659 5692 5757 5894 5895 5905 5986 5998 6042 6050 6275 6278 6306 6309 6324 6327 6344 6348 6358 6365 6375 6378 6395 6399 6414 6415 6416 6417 6434 6449 6451 6469 6482 6488 6495 6501 6514 6517 6534 6537 6541 6545 6548 6550 6557 6559 6567 6569 6572 6608 6610 6611 6623 6624 6644 6649 6650 6651 6672 6677 6689 6695 6705 6713 6718 6724 6731 6737 6738 6739 6760 6780 6785 6790 6792 6810 6869 6903 6914 6917 6942 6951 6953 6979 6994 7059 7061 7105 7106 7114 7176 7181 7183 7188 7192 7194 7210 7212 7240 7265 7267 7299 7303 7307 7312 7313 7318 7326 7327 7330 7397 7436 7470 7566 7628 7630 7632 7634 7648 7654 7657 7659 7742 7750 7762 7764 7773 7815 7816 7819 7841 8147 8489 8569 8575 8579 8594 8612 8614 8615 8617 8750 8753 8757 8758 8759 8797 8799 8805 8807 8878 8906 8908 8909 8915 8930 8940 8966 (U) DEST 692 # A 693 # 2425 2579 2595 2681 2714 2763 2914 2916 2919 2922 2925 2928 2971 3250 3286 3513 3518 3544 3633 3635 3676 3679 3682 3685 3688 3691 3694 3697 3864 4006 4008 4068 4107 4127 4142 4267 4416 4441 4464 4523 4774 4780 4952 5016 5022 5032 5036 5058 5119 5120 5121 5122 5123 5139 5215 5216 5217 5218 5219 5268 5284 5387 5432 5441 5453 5520 5523 5550 5786 5792 5837 5853 6115 6160 6185 6361 6382 6387 6397 6400 6440 6477 6484 6519 6578 6580 6615 6616 6628 6629 6663 6666 6698 6704 6715 6720 6742 6743 6744 6757 6815 6820 6821 6885 6908 6969 7037 7045 7100 7126 7190 7213 7216 7219 7258 7260 7262 7301 7309 7316 7321 7328 7332 7471 7746 7857 7870 7881 8122 8389 8819 AD 695 # 2294 2296 2298 2300 2307 2310 2312 2315 2327 2330 2331 2332 2333 2336 2343 2347 2355 2369 2372 2383 2385 2393 2397 2400 2403 2412 2415 2418 2421 2442 2450 2451 2463 2469 2475 2490 2494 2503 2513 2527 2528 2530 2532 2543 2547 2552 2553 2556 2560 2561 2584 2590 2602 2605 2608 2611 2613 2626 2648 2649 2710 2771 2783 2886 2888 2920 2926 2936 2938 2943 2945 2950 2952 2957 2959 2970 2980 3004 3014 3024 3039 3056 3067 3077 3087 3097 3107 3108 3118 3129 3139 3149 3171 3174 3188 3223 3226 3249 3515 3520 3532 3535 3538 3543 3583 3615 3650 3666 3701 3704 3720 3734 3749 3757 3774 3775 3778 3787 3790 3792 3793 3794 3799 3802 3807 3812 3827 3838 3844 3849 3850 3851 3854 3857 3859 3865 3878 3885 3886 3889 3893 3899 3900 3904 3907 3912 3914 3933 3935 3938 3974 3975 3985 4003 4014 4020 4022 4047 4051 4056 4070 4105 4111 4117 4125 4128 4130 4133 4141 4146 4226 4236 4238 4240 4242 4253 4257 4259 4268 4278 4286 4290 4292 4293 4296 4301 4312 4326 4332 4336 4341 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 234 ; CROSS REFERENCE LISTING 4347 4352 4368 4382 4396 4399 4403 4404 4408 4410 4413 4417 4418 4431 4437 4443 4445 4446 4459 4460 4465 4468 4469 4484 4500 4514 4530 4538 4634 4637 4639 4643 4644 4658 4664 4670 4676 4693 4714 4725 4726 4732 4743 4749 4759 4767 4779 4786 4789 4839 4854 4856 4857 4859 4864 4865 4878 4947 4948 4959 4960 4962 4964 4968 4969 4970 5042 5056 5062 5092 5098 5141 5152 5239 5240 5241 5242 5277 5286 5299 5301 5309 5311 5315 5318 5345 5358 5368 5372 5378 5389 5396 5437 5440 5443 5445 5452 5455 5468 5486 5488 5489 5501 5503 5505 5510 5521 5548 5564 5570 5591 5592 5593 5622 5625 5628 5629 5630 5632 5633 5636 5637 5642 5659 5662 5663 5669 5690 5692 5696 5697 5698 5699 5735 5757 5758 5759 5790 5794 5795 5844 5846 5856 5859 5861 5862 5863 5873 5891 5892 5905 5910 5911 5918 5919 5929 5954 5956 5957 5961 5964 5982 5993 6005 6006 6036 6038 6039 6044 6045 6046 6054 6065 6067 6081 6082 6106 6121 6123 6125 6140 6142 6144 6146 6149 6169 6170 6186 6229 6231 6233 6235 6237 6239 6241 6243 6245 6262 6265 6267 6275 6276 6278 6281 6290 6302 6306 6309 6310 6316 6318 6323 6324 6325 6327 6335 6344 6346 6348 6350 6353 6358 6362 6365 6367 6368 6369 6375 6376 6378 6385 6394 6395 6399 6401 6406 6414 6415 6416 6417 6424 6425 6429 6431 6434 6439 6443 6449 6451 6454 6455 6456 6467 6469 6471 6478 6482 6486 6488 6489 6490 6491 6496 6497 6501 6511 6514 6515 6517 6522 6526 6527 6534 6537 6541 6545 6548 6550 6559 6567 6569 6572 6575 6586 6588 6597 6598 6602 6603 6608 6610 6611 6613 6614 6618 6620 6621 6623 6624 6626 6644 6646 6649 6650 6651 6657 6659 6662 6667 6668 6672 6673 6677 6679 6683 6686 6689 6691 6692 6693 6695 6703 6705 6706 6708 6709 6711 6713 6718 6724 6727 6731 6736 6737 6738 6739 6741 6745 6746 6747 6751 6755 6758 6760 6762 6774 6778 6780 6782 6783 6785 6788 6790 6792 6794 6796 6808 6810 6814 6823 6826 6861 6862 6866 6869 6879 6881 6886 6914 6917 6923 6927 6942 6943 6951 6953 6955 6957 6960 6964 6966 6979 6982 6984 6986 6988 6994 7003 7024 7030 7035 7038 7041 7043 7059 7061 7096 7105 7114 7123 7142 7146 7150 7154 7158 7162 7172 7176 7178 7181 7183 7187 7188 7192 7194 7210 7212 7215 7217 7239 7240 7259 7261 7270 7280 7285 7290 7299 7303 7307 7312 7313 7317 7318 7320 7324 7326 7327 7330 7339 7342 7349 7356 7364 7374 7375 7376 7377 7378 7380 7381 7382 7383 7384 7385 7391 7392 7395 7397 7401 7407 7408 7409 7410 7412 7415 7419 7425 7428 7436 7437 7439 7440 7441 7444 7446 7447 7449 7451 7463 7470 7473 7476 7479 7480 7482 7491 7493 7497 7501 7504 7506 7566 7567 7569 7573 7575 7576 7582 7583 7589 7590 7595 7596 7628 7630 7632 7634 7648 7654 7657 7659 7672 7710 7718 7720 7723 7742 7744 7745 7750 7751 7753 7762 7764 7768 7773 7783 7784 7795 7796 7799 7809 7810 7811 7814 7815 7816 7819 7826 7835 7841 7848 7852 7855 7856 7859 7861 7863 7865 7867 7869 7882 7883 7900 7904 7910 7914 7925 7927 7931 7937 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7974 7978 7982 7984 7986 7988 7994 7998 8021 8024 8025 8026 8036 8038 8040 8043 8044 8046 8048 8052 8054 8067 8071 8099 8105 8107 8112 8115 8119 8126 8130 8136 8142 8144 8147 8151 8159 8163 8336 8362 8368 8371 8377 8379 8453 8457 8459 8461 8463 8465 8467 8482 8489 8499 8502 8516 8517 8521 8569 8575 8579 8582 8590 8594 8597 8600 8603 8606 8609 8612 8614 8615 8617 8695 8705 8714 8717 8719 8735 8738 8740 8744 8750 8753 8757 8758 8759 8760 8762 8764 8776 8778 8781 8786 8797 8799 8805 8807 8815 8817 8823 8828 8839 8847 8851 8861 8878 8879 8882 8889 8892 8895 8906 8908 8909 8915 8929 8930 8940 8951 8958 8959 8965 8966 8969 8971 8973 8975 8977 8979 8981 8982 8983 8995 9009 9010 9012 9013 9015 9016 9018 9019 9023 9028 9036 9042 9044 9049 AD*.5 702 # 2297 2615 2617 2618 3190 3194 3207 3210 3212 3213 3217 3248 3302 3305 3385 3387 4482 4483 4489 4491 4501 4503 4508 4540 4706 4728 4734 4867 4868 4869 4875 5132 5143 5221 5271 5274 5281 5291 5705 5713 5715 5720 5721 5782 5832 5834 5850 5851 5869 5870 5875 5894 5895 5898 5900 5986 5987 5994 5998 6001 6002 6020 6042 6050 6053 6055 6179 6190 6822 6825 6829 6831 6916 7021 7027 7034 7099 7579 7581 8050 8053 8072 8125 8129 8784 AD*2 700 # 2295 3178 3201 3215 3218 3245 3379 3381 4436 4463 4520 4769 4911 5038 5384 5393 5557 5576 5585 5700 5703 5708 5785 6557 6558 6816 7007 7117 7561 7563 7985 8034 8158 8162 8381 8886 PASS 697 # 2309 2317 2319 2320 2322 2326 2328 2329 2335 2337 2382 2386 2405 2481 2508 2517 2531 2621 2687 2720 2726 2731 2734 2786 2986 2987 3320 3571 3652 3700 3705 3781 3832 3902 3913 3942 3991 3997 4027 4032 4037 4043 4073 4078 4113 4116 4143 4275 4277 4282 4325 4329 4351 4439 4467 4510 4525 4527 4529 4532 4712 4757 4777 4799 4801 4804 4934 4939 4944 4950 4951 5014 5017 5027 5063 5080 5088 5222 5280 5294 5304 5314 5347 5433 5463 5470 5587 6108 6151 6152 6153 6272 6279 6285 6288 6314 6319 6336 6384 6410 6411 6412 6427 6459 6475 6498 6512 6530 6561 6652 6654 6710 6716 6729 6735 6813 6870 6940 6952 6954 6995 7062 7093 7266 7268 7286 7304 7340 7403 7413 7416 7420 7458 7490 7571 7655 7656 7658 7661 7681 7683 7685 7687 7711 7719 7722 7726 7748 7765 7771 7802 7805 7812 7825 7827 7836 7837 7872 7892 7893 7898 7993 8070 8098 8117 8135 8152 8153 8155 8340 8346 8348 8383 8385 8387 8478 8486 8494 8501 8513 8567 8583 8588 8589 8591 8592 8593 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8616 8700 8703 8704 8706 8710 8712 8721 8723 8725 8727 8734 8737 8763 8765 8766 8814 8873 8877 8884 8894 8910 9026 9047 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 235 ; CROSS REFERENCE LISTING Q_AD 696 # 2573 3187 3296 3322 3324 3367 4432 4458 4498 4518 4526 4528 4539 4635 4645 4705 4715 4717 4730 4753 4756 4758 4760 4771 4784 4785 4788 4795 4803 4832 4837 4838 4855 4880 4933 4937 4938 4942 4943 5147 5225 5232 5296 5305 5308 5325 5350 5366 5374 5439 5494 5552 5562 5567 5581 5583 5639 5664 5667 5712 5723 5736 5740 5742 5743 5756 5770 5829 5831 5833 5835 5903 5912 5915 5920 5930 5935 5976 5981 5991 6004 6010 6022 6025 6056 6061 6066 6068 6079 6104 6119 6120 6138 6332 6495 6903 8373 Q_Q*.5 701 # 2574 2575 3279 3299 3308 3353 3368 3369 3378 4433 4461 4542 4563 4564 4577 4584 4592 4602 4610 4708 4710 4718 4722 4738 4754 4761 4813 4862 5375 5554 5572 5573 5574 5586 5641 5665 5670 5747 5749 5780 5924 5949 5952 5960 5963 5965 5980 6015 6057 6071 6098 6101 6134 6136 6182 Q_Q*2 699 # 3197 3280 3283 3284 3285 3311 3315 3318 3354 3357 3358 3382 3384 3388 4588 4596 4606 4614 4755 4765 4793 4796 4870 4873 4874 4877 4879 4902 4905 4917 4922 5148 5151 5226 5229 5234 5568 5569 5828 5840 5848 5852 5926 5931 5933 5945 5947 5948 5978 6019 6023 6073 6091 6112 6129 6157 6334 (U) DISP 937 # 4882 ADISP 944 # AREAD 940 # 2495 BDISP 945 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 3515 3521 3615 3635 3636 3720 3734 3749 3759 3992 3999 4038 4369 4383 4437 4443 4466 4468 5553 5782 5790 5794 5841 5853 5864 5869 6277 6320 6468 6524 6732 7097 7170 7177 8104 8111 8120 8141 8149 BYTE 950 # 5030 5047 6505 7223 7245 CONSOLE 938 # DP 943 # 4746 4748 4766 4791 6832 6860 8953 DP LEFT 941 # 6818 7124 7957 8711 DROM 939 # 2544 2548 2557 2562 2570 2591 2597 2622 2627 6286 6289 EAMODE 951 # 2445 2519 3804 5071 5074 6273 7263 7271 MUL 947 # 4584 4592 4602 4610 5927 5953 5955 6074 NICOND 949 # 2382 2383 2385 2386 2466 2472 2715 3250 3298 3326 3571 3583 3676 3700 3701 3704 3705 3774 3775 3802 3865 4007 4085 4092 4532 4802 4805 5017 5786 5792 6154 7872 8155 NORM 942 # 2427 5642 5672 5751 5828 5830 5840 5844 5846 5848 5849 5852 5873 6026 6081 6082 6093 6095 6114 6124 6126 6131 6132 6159 6188 PAGE FAIL 948 # RETURN 946 # 2648 2649 3844 3845 4334 4337 4545 4589 4597 4607 4615 4813 4836 4837 4839 4924 4952 5057 5059 5063 5099 5133 5152 5222 5445 5585 5586 5872 5874 5875 5965 6162 6169 6170 6185 6581 6591 6596 6599 6637 6638 6789 6795 6972 6996 7064 7096 7108 7140 7156 7173 7182 7184 7211 7247 7281 7287 7292 7333 7599 7672 7772 7806 7885 7945 8068 8071 8356 8369 8371 8373 8375 8377 8379 8381 8383 8385 8387 8389 8580 8584 8618 8916 9047 SCAD0 952 # 5016 5022 5036 5115 5625 5772 5774 6332 6334 6388 7214 7258 8342 (U) DISP HIGH 1415 # (U) DISP LOW 1416 # (U) DIVIDE 1041 # 4873 4874 4919 4923 (U) DONT CACHE 1251 # (U) DP FUNC 1269 # 8117 8152 8383 8884 8894 8911 (U) DT 1009 # 2T 1012 # 3T 1013 # 2333 2427 2449 2531 2561 2573 2574 2686 2719 2725 2730 2733 2785 2980 2986 3194 3207 3210 3224 3296 3299 3367 3368 3577 3580 3589 3592 3652 3682 3685 3694 3697 3843 3863 3863 3879 3879 3990 3996 4036 4042 4115 4274 4276 4281 4294 4299 4324 4328 4350 4396 4408 4435 4440 4503 4508 4526 4528 4645 4647 4649 4653 4667 4707 4713 4728 4730 4742 4753 4760 4773 4855 4933 4935 4937 4938 4940 4942 4943 4945 4961 4968 5016 5022 5030 5036 5038 5047 5063 5222 5295 5299 5308 5309 5324 5355 5368 5374 5443 5478 5482 5521 5589 5642 5672 5690 5710 5716 5718 5751 5793 5828 5830 5836 5840 5844 5846 5848 5849 5852 5855 5860 5873 5895 5998 6017 6021 6024 6026 6039 6050 6069 6081 6082 6093 6094 6095 6097 6100 6103 6111 6114 6120 6124 6126 6131 6132 6156 6159 6162 6180 6188 6263 6306 6307 6324 6327 6344 6348 6358 6365 6375 6378 6395 6399 6414 6415 6416 6417 6434 6449 6450 6452 6469 6482 6488 6492 6495 6501 6505 6517 6534 6535 6537 6541 6545 6546 6548 6550 6555 6557 6559 6567 6569 6572 6608 6610 6611 6622 6623 6624 6625 6644 6650 6677 6681 6689 6694 6695 6705 6713 6718 6724 6731 6737 6738 6739 6740 6754 6756 6760 6811 6846 6849 6869 6903 6907 6914 6917 6921 6942 6951 6953 6954 6958 6979 6980 6994 7059 7061 7105 7106 7107 7114 7121 7176 7181 7183 7188 7192 7194 7210 7212 7223 7240 7245 7299 7303 7307 7312 7313 7318 7326 7327 7330 7377 7378 7397 7436 7443 7445 7447 7448 7450 7452 7470 7479 7500 7566 7628 7630 7632 7634 7648 7654 7656 7657 7658 7659 7661 7742 7750 7757 7762 7764 7769 7773 7783 7813 7815 7816 7819 7825 7827 7841 7851 7853 7858 7860 7862 7864 7866 7868 7893 8117 8121 8150 8152 8153 8383 8385 8387 8501 8569 8575 8576 8579 8588 8589 8591 8592 8594 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8612 8613 8614 8615 8617 8745 8750 8753 8757 8758 8759 8761 8766 8775 8797 8799 8805 8807 8816 8834 8835 8843 8858 8860 8876 8878 8906 8908 8909 8915 8930 8938 8940 8946 8966 8991 9000 9001 9003 9004 9006 9007 9025 9043 9047 4T 1014 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 236 ; CROSS REFERENCE LISTING 5T 1015 # (U) EXT ADR 1275 # 2529 2533 4265 4273 4286 4306 4336 7346 7353 7993 8047 8117 8152 8383 8499 8502 8587 8590 8597 8600 8603 8606 8609 8765 8814 8875 9024 9028 9037 (U) FETCH 1240 # 2382 2383 2385 2386 2406 2443 2465 2471 2518 2595 2621 3227 3571 3583 3700 3701 3704 3705 3774 3775 3802 3865 4005 4532 5017 5027 7872 8155 8514 8761 8938 (D) FL-B 1454 # AC 1455 # 5602 5605 5606 5610 5613 5614 5648 5652 5653 5678 5682 5683 5729 5730 5765 5766 BOTH 1457 # 5604 5608 5612 5616 5650 5655 5680 5685 MEM 1456 # 5603 5607 5611 5615 5649 5654 5679 5684 (U) FLG.1PROC 1402 # 2450 3844 8958 9043 9049 (U) FLG.2PROC 1403 # 2449 2450 2451 8946 8958 9050 (U) FLG.C 1399 # (U) FLG.PI 1398 # 3894 8745 8843 8860 8995 (U) FLG.SN 1400 # 5855 5863 5956 5957 5964 6094 6097 6100 6103 6106 6121 6149 6162 6169 6170 (U) FLG.W 1397 # (U) FMWRITE 1036 # 2309 2317 2319 2320 2322 2325 2326 2328 2329 2335 2337 2681 2714 2971 3229 3250 3286 3320 3326 3544 3635 3676 3679 3682 3685 3688 3691 3694 3697 3942 4006 4008 4073 4078 4107 4493 4501 4510 4512 4523 4524 4525 4527 4529 4757 4773 4774 4775 4777 4780 4799 4801 4804 4934 4939 4944 4950 4951 4952 5014 5032 5280 5294 5304 5314 5347 5399 5453 5523 5550 5786 5792 6108 6115 6151 6152 6153 6160 6272 6285 6288 6314 6319 6336 6361 6382 6384 6390 6400 6403 6410 6411 6412 6427 6438 6440 6442 6459 6475 6477 6484 6498 6512 6519 6530 6561 6578 6580 6615 6616 6628 6629 6636 6638 6652 6654 6663 6666 6698 6704 6710 6715 6716 6720 6729 6735 6742 6743 6744 6908 6940 6969 7045 7062 7093 7190 7219 7262 7286 7301 7304 7309 7316 7321 7328 7340 7420 7458 7571 7681 7683 7685 7687 7711 7719 7722 7726 7748 7765 7771 7802 7805 7836 7837 8122 8340 8346 8348 8389 8494 8567 8583 8593 8700 8703 8704 8706 8712 8721 8723 8725 8727 8734 8737 8763 (U) FORCE EXEC 1238 # 2529 2533 4265 4273 4286 4306 4336 7346 7353 7978 7993 7995 8022 8038 8047 8055 8112 8115 8151 8159 8163 8499 8502 8516 8587 8590 8597 8600 8603 8606 8609 8765 8814 8875 9024 9028 9037 (U) FORCE USER 1237 # 2529 2533 4265 4273 4286 4306 4336 7346 7353 7978 7993 8038 8047 8112 8115 8151 8159 8163 8499 8502 8516 8587 8590 8597 8600 8603 8606 8609 8741 8765 8779 8814 8875 9024 9028 9037 (U) GENL 792 # 2383 2385 2442 2463 2464 2470 2475 2490 2491 2503 2514 2553 2888 2920 2928 2950 2952 3583 3701 3704 3774 3775 3776 3785 3788 3802 3827 3865 3890 3904 4057 4118 4131 4135 4286 4298 4303 4336 4352 4405 5062 5093 5307 5367 5391 5445 5457 5486 5489 5501 5505 5510 5522 5573 5574 5591 5593 5668 5935 6275 6278 6281 6323 6350 6353 6369 6376 6406 6425 6431 6439 6443 6455 6467 6471 6478 6497 6526 6603 6618 6657 6692 6709 6736 6747 6751 6808 6814 6862 6923 6927 6962 6988 7031 7036 7096 7217 7261 7270 7438 7464 7478 7567 7569 7672 7720 7723 7796 7801 7826 7863 7865 7867 7869 7882 7959 7960 7961 7962 7963 7964 7965 7987 8025 8071 8502 8518 8590 8597 8600 8603 8606 8609 8762 8825 8849 8863 8883 8893 8896 8951 8959 8965 8969 8971 8973 8975 8977 8979 8981 8982 8983 9028 (U) GENR 799 # 2450 2451 2611 2613 2626 2648 2649 2886 2922 2926 2943 2945 2970 3323 3325 3633 3778 3787 3790 3792 3793 3794 3844 3849 3854 3857 3878 3894 3899 3912 3933 4069 4226 4236 4238 4240 4242 4255 4269 4279 4333 4349 4416 4417 4418 4441 4464 4676 4716 4779 4834 4959 5141 5279 5287 5352 5398 5438 5442 5632 5633 5636 5637 5662 5663 5696 5697 5758 5759 5837 5853 5863 5956 5957 5964 5981 6105 6106 6121 6139 6149 6169 6170 6185 6268 6290 6523 6528 6597 6613 6614 6620 6660 6662 6669 6675 6684 6703 6755 6758 6763 6788 6794 6867 6965 6967 7040 7044 7100 7143 7147 7151 7155 7159 7163 7179 7280 7292 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7431 7472 7475 7495 7499 7575 7576 7584 7592 7598 7746 7855 7857 7859 7861 8024 8105 8107 8142 8144 8377 8453 8457 8459 8461 8463 8465 8467 8695 8743 8777 8780 8830 8841 8853 8881 8958 8995 9045 9050 (U) HALT 1376 # BW14 1386 # 2710 CSL 1380 # 2403 2421 HALT 1379 # 3851 ILLII 1383 # 8021 ILLINT 1384 # 8052 IOPF 1382 # 8929 MULERR 1388 # 2343 NICOND 5 1387 # POWER 1378 # 2372 (U) HARDWARE OPTIONS 22 # HWOPT 23 # 7426 (U) HARDWARE SERIAL NUM 25 # HWSER 26 # 7427 (U) HOLD USER 1207 # 2370 2772 3650 3666 3734 3749 3809 3814 3869 3892 3986 3998 4055 4086 4090 4106 4112 4315 4369 4383 4401 4411 4414 4445 4446 4470 4521 4533 4544 4547 4657 4692 4724 4811 4963 4965 5032 5049 5073 5330 5694 5706 5773 6064 6746 6747 7362 (D) I 1462 # 2742 2747 2752 2757 2797 2802 2807 2812 2817 2822 2827 2832 2839 2844 2849 2854 2860 2865 2870 2875 2997 2998 2999 3000 3008 3018 3028 3033 3043 3050 3061 3071 3081 3090 3091 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 237 ; CROSS REFERENCE LISTING 3092 3093 3101 3112 3123 3133 3142 3143 3144 3145 3158 3159 3163 3417 3418 3419 3420 3421 3422 3423 3424 3426 3427 3435 3436 3437 3438 3439 3440 3441 3442 3454 3455 3456 3457 3458 3459 3460 3461 3471 3472 3473 3474 3475 3476 3477 3478 3595 3596 3597 3598 3599 3600 3601 3602 3709 3710 3711 3712 3713 3714 3715 3716 3723 3724 3725 3726 3727 3728 3729 3730 3738 3739 3740 3741 3742 3743 3744 3745 3752 3753 3765 3767 3921 3922 3965 3966 3967 3968 4064 4098 4099 4100 4101 4154 4155 4156 4157 4158 4159 4160 4161 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4200 4201 4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4362 4376 4426 4451 4622 4627 5448 5730 6200 6201 6202 6203 6204 6205 6206 6208 6209 6210 6211 6213 6214 6215 6216 6218 6219 6220 6221 6222 6223 6224 6225 6258 8395 8396 8397 8399 8400 8402 8403 8405 8406 8407 8408 8409 8410 8411 8412 8414 8415 8416 8417 8418 8419 8420 8421 8423 8424 8425 8426 8427 8428 8429 8430 8432 8433 8434 8435 8436 8437 8438 8439 8441 8442 8443 8444 8445 8446 8447 8448 (U) I.CO3 1303 # (U) I.CO4 1304 # (U) I.CO5 1305 # (U) I.CO6 1306 # (U) I.CO7 1307 # (U) IO BYTE 1288 # 8113 8159 8163 8742 (U) IO CYCLE 1282 # 7978 8038 8112 8115 8151 8159 8163 8516 8742 (U) J 593 # 2495 2544 2548 2557 2562 2570 2591 2597 2622 2627 2648 2649 3844 3845 4334 4337 4545 4589 4597 4607 4615 4813 4836 4837 4839 4883 4924 4952 5057 5059 5063 5099 5133 5152 5222 5445 5585 5586 5872 5874 5875 5965 6162 6169 6170 6185 6286 6289 6581 6591 6596 6599 6637 6638 6789 6795 6972 6996 7064 7096 7108 7140 7156 7173 7182 7184 7211 7247 7281 7287 7292 7333 7599 7672 7772 7806 7885 7945 8068 8071 8356 8369 8371 8373 8375 8377 8379 8381 8383 8385 8387 8389 8510 8580 8584 8618 8916 9047 ABORT 4260 8375 # 8739 AC_ARX 4132 7319 8389 # ADD 4361 4362 4363 4364 4368 # ADDCRY 6571 6577 6590 6596 # ADJBP 5015 5268 # ADJBP0 5271 # 5273 ADJBP1 5291 # 5293 ADJBP2 5298 5301 # ADJBP3 5329 5345 # ADJBP4 5357 # 5369 ADJBP5 5365 5372 # ADJBP6 5393 # 5395 ADJSP 4064 4068 # ADJSP1 4077 4085 # ADJSP2 4082 4090 # AND 3007 3008 3009 3010 3014 # 3039 ANDCA 3017 3018 3019 3020 3024 # 3077 ANDCB 3070 3071 3072 3073 3077 # ANDCM 3032 3033 3034 3035 3039 # AOBJ 3752 3753 3757 # AOJ 3723 3724 3725 3726 3727 3728 3729 3730 3734 # AOS 3639 3640 3641 3642 3643 3644 3645 3646 3650 # APRID 7425 # APRSO 7378 7412 # APRSZ 7377 7415 # ARSIGN 2589 2648 # ASH 3155 3187 # ASHC 3159 3293 # ASHC1 3297 3299 # ASHCL 3304 3315 # 3317 ASHCQ1 3286 3323 3326 # ASHCR 3308 # 3310 ASHCX 3312 3320 # ASHL 3197 # 3197 ASHL0 3187 3194 # ASHR 3176 3190 # ASHX 3201 # 3215 ASHXX 3215 # 3220 BACKBP 7300 7308 7332 # BACKD 7307 # 8974 8982 8984 BACKS 7299 # 8981 BADDATA 8716 8733 # BDABT 6696 6760 # BDCFLG 6741 6762 # BDEC 6644 # BDEC0 6648 6650 # BDEC1 6657 # 6666 BDEC2 6662 # 6670 BDEC3 6658 6672 # 6680 BDEC4 6672 6677 # BDEC5 6675 6685 6689 # BDECLP 6727 # 6746 BDFILL 6711 # 6720 BDSET 6735 # 6755 6758 BDSUB 6678 6728 6774 # BDSUB1 6775 6778 # BDSUB2 6794 # 6797 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 238 ; CROSS REFERENCE LISTING BDTBL 6734 6751 # BITCHK 6264 6308 6450 6452 6812 7280 # BLT 5448 5452 # BLT-CLEANUP 5519 # 8967 BLTBU1 5555 5572 # BLTCLR 5475 5478 # 5509 BLTCL1 5481 5498 # BLTGOT 5484 # 5498 BLTGO 5466 5482 # 5514 BLTLP1 5460 5463 # 5495 BLTX 5548 # 8455 BLTXLP 5551 # 5595 BLTXV 5571 5583 # BLTXW 5584 5587 # BOTH 2503 # BWRITE 2660 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 4369 4383 4437 4443 4466 4468 BYTEAS 5071 # 5095 7221 BYTEA 5026 5045 5073 # BYTEA0 5072 5076 # BYTFET 5079 5083 5097 # 7265 7266 BYTIND 5087 5091 # CAIM 3596 3597 3598 3599 3600 3601 3602 3604 3605 3606 3607 3608 3609 3610 3611 3615 # CHKSN 6143 6162 # CIRC 3163 3367 # CIRCLA 3378 # 3381 CIRCL 3374 3381 # CIRCRA 3384 # 3387 CIRCR 3376 3387 # CLARXL 5436 8045 8377 # CLARX0 4963 4965 4969 4970 6518 6653 6779 6788 # CLDISP 7301 7309 7322 7328 8942 8953 # CLEANED 5524 8964 # CLEANUP 8953 8963 # CLRB1 6636 6638 # CLRBIN 6521 6617 6636 # CLRCSH 7904 # CLRFLG 6312 6690 7290 # CLRPTL 7914 # 7917 CLRPT 7898 # CLRSN 5946 6038 6170 # CLTRP 8753 8930 8938 # CLTRP1 8939 8946 # CLTRP2 8946 8958 # CMPDST 6481 6501 # CMS 6449 # CMS2 6460 6490 # CMS3 6466 # 6492 6496 CMS4 6469 # CMS5 6474 6495 # CMS6 6481 # 6498 CMS7 6483 6486 # CMS8 6495 6497 # CMSDST 7303 # 8980 COM0 4947 4948 4952 # COM0A 4947 # 4951 COM1 4942 4951 # COM1A 4942 # 4950 COM2 4937 4950 # COM2A 4937 # CONSO 7385 7413 # CONSZ 7384 7416 # CONT 8508 8513 # CONT1 4355 8520 # CPYSGN 4402 4412 4416 # DAC 2681 # 2688 2965 6760 DADD 4391 4396 # DADD1 4399 # 4405 DBABT 6538 6542 6602 # DBDN1 6613 6615 # DBDONE 6604 6610 # 6629 DBFAST 6551 6555 # DBIN 6511 # DBIN1 6526 # 6529 DBIN2 6526 6530 # DBINLP 6534 # 6552 6562 DBLDBL 6574 6585 6586 # DBLDIV 4754 4764 4902 # 6066 6070 DBLMUL 4509 4539 # DBLNEG 2980 4959 # DBLNGA 2970 4960 # DBLNG1 4677 4968 # 6662 DBNEG 6609 6620 # DBSLOW 2334 6549 6567 # DBSLO 6548 # 6556 DBXIT 6536 6608 # DDIV 4700 4705 # DDIV1 4709 4713 4722 # DDIV2 4723 4725 # DDIV3A 4730 # 4735 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 239 ; CROSS REFERENCE LISTING DDIV3 4720 4726 # DDIV4 4731 4738 # DDIV5A 4743 4753 # DDIV5B 4768 4777 # DDIV5C 4774 4779 # DDIV5 4742 4746 # DDIV6 4775 4777 4782 # DDIV7 4784 # DDIV8A 4793 # DDIV8 4784 4791 # DDIV9 4794 4799 # DDIVS 4739 4758 4813 # 6062 DFAD 5881 5894 # DFADJ 5910 5918 5945 # DFADJ1 5952 # 5953 DFADJ2 5954 # DFADJ3 5956 5960 # 5960 DFADJ4 5957 5961 # DFADJ5 5955 5963 # 5964 DFADJ6 5963 5965 # DFAS1 5899 5901 5903 # DFAS2 5904 5910 # DFAS3 5906 5915 # DFAS5 5912 5920 5924 # DFAS6 5929 # 5930 DFAS7 5929 5931 # DFDV 6033 6036 # DFDV1 6042 # 6049 DFDV2 6043 6050 # DFDV3 6053 6061 # DFDV4A 6076 # 6079 DFDV4B 6078 6081 # DFDV4 6059 6063 # DFMP 5971 5976 # DFMP1 5978 # 5979 DFMP2 6001 6004 # DFPR1 2607 2613 # DFPR2 2612 2614 # DFSB 5882 5891 # DIV 4626 4627 4628 4629 4643 # DIV1 4638 4640 4652 # 4694 DIV2 4655 # 4668 DIVA 4650 4664 # DIVB 4665 4670 # DIVC 4675 4680 4683 # DIVHI 4903 4906 4909 # 4920 DIVIDE 4873 # 4873 DIVSET 4863 4867 # DIVSGN 4835 4853 # 5712 DIVSUB 4656 4832 # 5303 5313 5348 DMLINT 4511 4547 # DMOVNM 2975 2980 # DMOVN 2966 2970 # DMOVN1 2974 2982 # DMTRAP 4524 4530 # DMUL 4477 4482 # DMUL1 4492 4503 # DMUL2 4502 4508 # DMULGO 4490 4538 # DNEG 6094 6097 6100 6103 6119 # DNEG1 6119 6121 # DNEG2 6120 6123 # DNN1 6145 6149 # DNN2 6147 6151 # DNNORM 6082 6124 6126 6129 # 6131 6159 DNNRM1 6139 6156 # DNORM 6027 6081 6091 # 6093 6114 DNORM0 5935 6026 # DNORM1 6105 6111 # DNORM2 6151 6153 # DOCVT 6649 # 6699 6715 DOCVT1 6649 6724 # DOCVT2 6725 6745 # DOCVT3 6742 # 6764 DONE 2382 # 2721 2735 3042 3043 3229 3417 3418 3426 3427 3529 3574 3577 3580 3595 3709 4009 4120 4136 4533 5049 5400 5487 5502 5591 7416 7420 7459 7661 7711 7803 7827 7838 7893 7921 7937 8122 DPB 5010 5038 # DPB1 5048 5214 # 7246 DPB7 5215 5216 5217 5218 5219 5221 # 5243 DPBSLO 5214 5225 # DRND1 6181 6185 # 6189 6192 DROUND 6096 6099 6102 6133 6135 6137 6179 # 6183 DSMS1 8067 8070 # 8072 DSTEA 7265 # 7271 DSTIND 7267 7268 7270 # DSUB 4392 4408 # DUMP 8570 8578 8587 # DVSUB1 4856 4859 # DVSUB2 4854 4860 # DVSUB3 4862 # 4866 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 240 ; CROSS REFERENCE LISTING EACALC 2446 2457 # 2520 EDBYTE 6956 6985 6994 # EDEXMD 6871 6903 # EDFILL 6920 # EDFIL1 6922 6935 # EDFLT 6895 6941 6951 # EDFLT1 6965 6967 6969 # EDISP 6823 6829 # EDISP1 6831 # 6831 EDIT 6808 # EDITLP 6813 # 7045 EDMSG 6838 6979 # EDMSG1 6981 6988 # EDN1A 7027 # 7032 EDNOP 6840 6842 6844 6859 6868 6896 6908 6930 6936 6990 6991 7006 7016 # EDNOP1 7010 7017 # EDNOP2 7028 7034 # 7034 EDOPR 6835 6859 # EDSEL 6863 6914 # EDSFLT 6924 6940 # EDSKP 6847 6850 6852 7003 # EDSKP1 7004 7007 # EDSPUT 6927 # 6935 6945 EDSSIG 6865 6895 # EDSTOP 6861 6879 # 6925 EDSTP1 6885 # 6888 ENDSKP 6440 6618 # EQV 3080 3081 3082 3083 3087 # EXCH 2779 2783 # EXEC-DBR 8790 8804 # EXTDSP 6276 # EXTEA 6275 # EXTEA0 6270 6272 # EXTEA1 6273 # 6281 EXTEND 6258 6262 # EXTEXT 6277 6285 # 6291 EXTIND 6278 6281 # FAD 5602 5603 5604 5605 5606 5607 5608 5625 # FAS1 5627 # FAS2 5627 5636 # FAS3 5632 5633 5636 5637 5639 # FAS4 5641 # 5641 FDV 5678 5679 5680 5682 5683 5684 5685 5690 # FDV0 5693 5696 # FDV1 5696 5698 # FDV2 5697 5699 # FDV3 5698 5699 5700 # FDV4 5702 # 5703 FDV5 5702 5705 # FDV6 5705 5708 # FDV7 5712 # 5713 FDV8 5715 # FDV9 5715 5720 5721 5723 # FETIND 2478 2483 2505 2513 # FIX 5765 5766 5770 # FIX++ 4877 # 4878 FIX1++ 4877 4879 # FIXL 5775 5785 # 5785 FIXPC 4547 6776 8951 # FIXR 5780 # 5781 FIXT 5789 5792 # FIXX 5782 5789 # FIXX1 5790 # 5796 FL-BWRITE 2708 # 5790 5794 5841 5864 FLEX 5837 5841 # FLTR 5729 5734 # FLTR1A 5739 5742 # FLTR1 5735 5738 # FLTR2 5740 5742 5747 # FLTR3 5749 # 5750 FMP 5648 5649 5650 5652 5653 5654 5655 5659 # FMP1 5662 5663 5664 # FP-LONG 4214 4215 4216 4217 4218 4219 4242 # FPR0 2580 2586 # FPR1 2590 # FSB 5610 5611 5612 5613 5614 5615 5616 5622 # FSC 5730 5755 # GETPCW 4284 7595 # GETSRC 6472 6915 7212 # GOEXEC 2534 4311 # 9038 GOTDBR 8798 8800 8806 8808 8814 # GRP700 7370 7424 # GRP701 7371 7903 # GRP702 7622 7627 # GSRC 6428 7095 7210 # GSRC1 7215 7219 # GTFILL 6305 6809 7284 # H1 8504 # 8571 HALT 3779 3849 # HALTED 2343 2403 2421 2710 3851 8021 8052 8494 # 8929 HALTLP 8504 8510 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 241 ; CROSS REFERENCE LISTING HARD 8362 8718 8720 8737 # HLL 2796 2797 2840 2888 # 2914 HLLE 2826 2827 2828 2829 2955 # HLLO 2816 2817 2818 2819 2959 # HLLZ 2806 2807 2808 2809 2957 # HLR 2843 2844 2916 # HLRE 2874 2875 2876 2877 2948 # HLRM 2845 2925 # HLRO 2864 2865 2866 2867 2952 # HLRS 2846 2928 # HLRZ 2853 2854 2855 2856 2950 # HRL 2801 2802 2914 # HRLE 2831 2832 2833 2834 2941 # HRLM 2803 2919 # HRLO 2821 2822 2823 2824 2945 # HRLS 2804 2922 # HRLZ 2811 2812 2813 2814 2943 # HRR 2798 2838 2839 2886 # 2916 HRRE 2869 2870 2871 2872 2934 # HRRO 2859 2860 2861 2862 2938 # HRRZ 2848 2849 2850 2851 2936 # HSBDON 8614 # IBP 5006 5013 # IBPS 5016 5022 5036 5056 # IBPX 4129 5056 5063 # IDIV 4621 4622 4623 4624 4634 # IDPB 5009 5036 # IDST 6502 7241 7258 # IDSTX 7259 7262 # ILDB 5007 5022 # IMUL 4425 4426 4427 4428 4431 # IMUL1 4437 # 4659 IMUL2 4436 4439 # IMUL3 4442 4445 # INCAR 6402 8379 # INCPC 2428 2442 # 2451 INDEX 2490 # INDRCT 2508 # IOR 3060 3061 3062 3063 3067 # 3129 IORD 8082 8089 8097 # IORD0 8100 8106 8108 8110 # IORD1 8114 8117 # IORD2 8121 8125 # IORD3 8125 8129 # 8129 IORDEX 8122 # 8126 8130 IORDI 8080 8081 8087 8088 8103 # IOT700 8395 8396 8397 8453 # IOT710 8399 8400 8455 # IOT720 8402 8403 8457 # IOT730 8405 8406 8407 8408 8409 8410 8411 8412 8459 # IOT740 8414 8415 8416 8417 8418 8419 8420 8421 8461 # IOT750 8423 8424 8425 8426 8427 8428 8429 8430 8463 # IOT760 8432 8433 8434 8435 8436 8437 8438 8439 8465 # IOT770 8441 8442 8443 8444 8445 8446 8447 8448 8467 # IOW1 8339 # 8344 IOW2 8341 8347 8351 # IOW3 8354 # 8361 IOW4 8355 8359 # IOW5 8349 8362 # IOWAIT 8118 8154 8335 # IOWR 8083 8090 8134 # IOWR0 8137 8143 8145 8147 # IOWR1 8152 # 8159 8163 IOWR2 8150 8158 # IOWR3 8158 8162 # 8162 IOWRI 8084 8085 8091 8092 8140 # ITRAP 6404 8703 # JEN 3789 3857 # JEN1 3863 3879 8067 # JEN2 3855 3863 # JFCL 3767 3869 # JFFO 3158 3223 # JFFO1 3228 3231 # JFFOL 3245 # 3247 JMPA 3688 # 4147 JRA 4101 4141 # JRST 3713 3765 3774 # JRST0 3801 3804 # 3840 3861 JRST1 3830 3835 3837 # JRST10 3786 3854 # JRST2 3810 3815 3843 # JRSTF 3777 3798 # JSA 4100 4125 # JSP 4099 4105 # JSR 4098 4111 # JSTAC 3993 4000 4003 # 4039 JSTAC1 4006 # 4058 JSYS 4211 4236 # JUMP 3710 3711 3712 3714 3715 3716 3720 # JUMP-TABLE 3673 # 3720 3734 3749 3759 JUMP- 3679 3682 3685 3700 # 3872 JUMPA 3688 3691 3694 3697 3704 # 4108 4317 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 242 ; CROSS REFERENCE LISTING KIMUUO 4266 4324 # L-BDEC 6210 6211 6235 # L-CMS 6200 6201 6202 6204 6205 6206 6229 # L-DBIN 6208 6209 6233 # L-EDIT 6203 6231 # L-MVS 6213 6214 6215 6216 6237 # L-SPARE-A 6219 6241 # L-SPARE-B 6220 6243 # L-SPARE-C 6221 6222 6223 6224 6225 6245 # L-XBLT 6218 6239 # LDB 5008 5024 # LDB1 5031 5114 # 6505 7225 LDB7 5119 5120 5121 5122 5123 5128 # LDBR1 7681 # LDBR2 7683 # LDBR3 7685 # LDBR4 7687 # LDBSH 5138 5143 # LDBSWP 5116 5137 # LDPI2 3864 7870 7882 # LOADAR 6753 6817 6904 8368 # LOADARX 7120 7721 7724 7798 8371 # LOADPI 2347 7881 # LOADQ 5454 6458 8373 # LPMR 7717 # LSH 3157 3171 # LSHC 3161 3275 # LSHCL 3275 3283 # 3283 LSHCR 3279 # 3279 LSHCX 3280 3285 # 3354 3359 3382 3388 LSHL 3173 3178 # LUUO 4154 4155 4156 4157 4158 4159 4160 4161 4341 # LUUO1 4344 # 6229 6231 6233 6235 6237 6239 6241 6243 6245 MOVE 2743 2766 2769 # 2773 2799 2841 3027 3028 3029 3030 3044 3045 4417 4418 4445 4446 4470 5299 MOVELP 6323 6344 # 6353 MOVF1 7059 # 7065 MOVFIL 6377 6439 7065 # MOVLP0 6337 6353 # MOVM 2756 2758 2759 2766 # MOVN 2751 2752 2753 2754 2771 # MOVPAT 6820 6822 6825 # 6825 MOVRJ 6329 6375 # MOVS 2746 2747 2748 2749 2763 # 2920 2926 2943 2945 2950 2952 MOVSTX 6429 # MOVST0 6326 6424 # MOVST1 6379 6425 # 6435 MOVST2 6347 6430 6438 # MOVST3 6438 6442 # MOVST4 6391 6434 # MSKPAT 6821 6826 # MUL 4450 4451 4452 4453 4458 # MUL+ 4566 4579 4583 # 4585 4603 MUL- 4593 4601 # 4611 MULBY4 6568 6585 # MULSB1 4564 # 5987 MULSUB 4434 4462 4563 # 5376 5666 MULTIPLY 4543 4576 # 5992 6004 6011 MUUO 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4252 # MVABT 6349 6358 # MVABT1 6361 # 6363 MVABT2 6361 6365 # MVEND 6368 # MVS 6302 # MVS1 6317 6319 # MVSK2 6384 6410 # MVSK3 6396 6400 # MVSKP 6375 6382 # 6394 6407 6418 MVSKP1 6389 6394 # MVSKP2 6398 6406 # MVSO 6324 6331 # MVSO1 6334 # 6334 NEXT 4275 4279 4325 4336 # 8588 8591 8593 8595 8598 8601 8604 8607 8610 8612 NICOND 2391 # 2715 3250 3298 3326 3676 4007 4085 4092 4802 4805 5786 5792 6154 NICOND-FETCH 2382 2383 2385 2386 2411 # 2466 2472 3571 3583 3700 3701 3704 3705 3774 3775 3802 3865 4532 5017 7872 8155 NIDISP 3298 # 4087 4091 4657 4692 4724 4811 5033 5330 5694 5706 5773 6064 NODDIV 4746 4748 4810 # NODIV 4686 4690 4692 # NOMOD 2494 # NXTWRD 5058 5062 # ORCA 3100 3101 3102 3103 3107 # ORCB 3132 3133 3134 3135 3139 # ORCM 3122 3123 3124 3125 3129 # PAGE-CONTINUE 8766 8899 8905 # PAGE-CONTINUE1 8759 8907 # PAGE-FAIL 8699 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 243 ; CROSS REFERENCE LISTING PAGE-REFILL 8850 8864 8872 # PF-INT 8713 8724 8749 # PFD 8709 # 8711 PFDBIN 7326 # 8978 PFGAC0 7328 # PFMAP 8722 8726 8728 8774 # PFMAP1 8784 # 8785 PFT 8745 8843 8860 8929 # PFTD00 9007 9018 # PFTD01 9006 9015 # PFTD10 9004 9012 # PFTD11 9003 9009 # PFTDSP 8994 9000 # PFTDS0 9001 9006 # PFTDS1 9000 9003 # PFTRAP 8959 8965 8991 # PFTRAP1 9009 9010 9012 9013 9015 9016 9018 9019 9022 # PI 7956 # 7958 8995 PI10 7966 7967 7968 7969 7970 7971 7972 7974 # PI40 7989 7993 # PI50 7994 # 8056 PIEXIT 3895 7870 # PIJSR 7997 8021 # PIP1 7959 7966 # PIP2 7960 7967 # PIP3 7961 7968 # PIP4 7962 7969 # PIP5 7963 7970 # PIP6 7964 7971 # PIP7 7965 7972 # PISET 3893 # 8027 PIXPCW 3902 # 8000 POP 3967 4014 # POPJ 3968 4047 # POPX1 4030 4042 # PTWLH 8820 8828 # PTWRH 8818 8823 # PTWTST 8826 8831 8834 # PTWTS0 8834 8839 # PTWTS1 8835 8847 # PUSH 3966 3973 # PUSH1 3975 # 3987 PUSHJ 3965 3985 # PUTDST 6351 6432 6717 6736 6928 6963 6989 7060 7239 # PWRON 2373 8499 # QDNEG 4733 4810 4933 # QMULT 4499 4519 4542 # Q_RSH 5561 5580 5586 # RDAPR 7470 # RDEBR 7579 # RDEBR1 7581 # 7581 RDERA 7380 # RDHSB 7648 # RDINT 7841 # RDPI 7848 # RDTIME 7809 # 7823 RDTIM1 7822 7825 # RDUBR 7589 # READ-ONLY 8842 8854 8857 # ROT 3156 3207 # ROTC 3160 3349 # ROTCL 3349 3357 # 3357 ROTCR 3353 # 3353 ROTL 3209 3217 # RTNREG 7397 7432 7483 7585 7593 7628 7630 7632 7634 7648 7842 7848 7892 # SAVVMA 8495 8568 8582 # SBRL 5709 6560 8381 # SDBR1 7628 # SDBR2 7630 # SDBR3 7632 # SDBR4 7634 # SETBLT 5432 # 5452 5549 SETCA 3090 3091 3092 3093 3097 # SETCM 3111 3112 3113 3114 3118 # 3139 SETO 3142 3143 3144 3145 3149 # SETPDL 3998 # 4044 SETSN 5717 5719 6018 6169 # SETZ 2997 2998 2999 3000 3004 # SFM 3791 3912 # SHIFT 2566 # 2576 SKIP 2385 # 3586 3589 3592 6618 6747 7413 SKIP-COMP-TABLE 3568 # 3615 3635 3636 6468 SKIPE 3577 # 6443 SKIPS 3622 3623 3624 3625 3626 3627 3628 3629 3633 # 3652 SNNEG 5829 5831 5833 5835 5844 # SNNORM 5844 5846 5848 # 5848 5852 SNNOT 5855 5859 # SNNOT1 5857 5862 # SNNOT2 5859 5861 5862 5863 # SNORM 5642 5672 5751 5828 # 5828 5840 SNORM0 5723 5736 5743 5751 # 5758 5759 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 244 ; CROSS REFERENCE LISTING SNORM1 5836 5840 # SOJ 3738 3739 3740 3741 3742 3743 3744 3745 3749 # SOS 3655 3656 3657 3658 3659 3660 3661 3662 3666 # SPM 7654 # SPM-NEXT 7657 7659 7671 # SRCMOD 6345 6534 7093 # 7189 7193 7195 SRND1 5869 5872 # SROUND 5830 5832 5834 5849 5850 5851 5869 # 5870 SSWEEP 7926 7944 # STAC 2682 2714 # 2727 2732 2741 2742 2757 2787 2971 3179 3192 3201 6109 6115 6160 6369 6885 8483 STAC34 6623 6628 # START 2405 # STBOTH 2725 # STBTH1 2677 2730 # STDBTH 2686 # STMAC 3982 3990 # STMEM 2719 # 8490 STOBR 3903 4287 8385 # STOPC 3906 8387 # 8503 STORE 2733 # 2991 3914 STORE-INT-PC 8023 9029 9041 # STORE-INT-PC-1 9046 # 9050 STORE-INT-PC-2 9045 9048 # STPF1A 7316 7324 # STRPF 7312 # 8970 8972 STRPF0 7313 # 7330 STRPF1 7316 # STRPF2 7324 7327 # STRPF3 7321 # STRPF4 7330 # 8976 STRTIO 7980 8041 8383 # 8519 STSELF 2676 # 2744 SUB 4375 4376 4377 4378 4382 # SWEEPL 7931 # 7934 SWEEP 7508 7575 7576 7681 7683 7685 7687 7726 7925 # T1LSH 5559 5578 5585 # TDONE 3535 3538 3544 # TDX 3421 3430 3435 3439 3444 3448 3454 3458 3463 3467 3471 3475 3480 3484 3515 # TDXX 3419 3423 3428 3432 3437 3441 3446 3450 3456 3460 3465 3469 3473 3477 3482 3486 3520 # TENLP 2332 # 2339 TEST-TABLE 3515 3521 3526 # TICK 6413 7742 # TOCK 7744 # 7820 8752 TOCK1 7748 # 7754 TOCK2 7749 7757 # TOCK3 7762 # 7766 TOCK4 7763 7768 # TOCK5 7771 # 7787 TRAP 2396 2399 2402 2414 2417 2420 7339 # TRNAR 6918 7115 # TRNFNC 7125 7137 # 7144 7148 7152 7164 TRNNS1 7177 7187 # TRNNS2 7187 7190 # TRNRET 7138 7169 # TRNSIG 7150 # 7160 TRNSS 7171 7176 # TRNSS1 7172 # 7180 TRP1 7347 7354 7356 # TSX 3422 3431 3436 3440 3445 3449 3455 3459 3464 3468 3472 3476 3481 3485 3513 # TSXX 3420 3424 3429 3433 3438 3442 3447 3451 3457 3461 3466 3470 3474 3478 3483 3487 3518 # TXXX 3529 # 3544 TXZX 3532 3543 # UMOVEM 8474 8486 # UMOVE 8473 8478 # USER-DBR 8792 8796 # UUO 4200 4210 4251 # UUO101 4201 4226 # UUO106 4212 4238 # UUO107 4213 4240 # UUO257 8691 8695 # UUOFLG 4270 4327 4332 # UUOGO 2626 3778 3787 3790 3792 3793 3794 3849 3854 3857 3878 3899 3912 3933 4226 4236 4238 4240 4242 4257 # 7280 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7855 8453 8457 8459 8461 8463 8465 8467 8695 UUOPCW 4281 # 4330 VECINT 7984 8034 # 8037 VECIN1 8051 8053 # WRAPR 7436 # WRAPR1 7455 # 7467 WRAPR2 7454 7461 # WREBR 7561 # WREBR1 7563 # 7563 WRHSB 7709 # WRINT 7834 # WRPCST 7403 7419 # WRPI 7851 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 245 ; CROSS REFERENCE LISTING WRTHSB 8497 8575 # WRTIME 7793 # WRTIM1 7752 7801 7805 # WRUBR 7490 # WRUBR1 7496 7500 # WRUBR2 7503 7506 # XCT 3924 3935 3938 # XCT1 3942 # 7363 8523 XCT2 2517 # 3943 XCTGO 2407 2424 # 8515 XCTR 3922 3931 # XCTR1 3929 3931 3933 # XCTRI 3921 3929 # XJEN 3783 3878 # XJRSTF 3782 3885 # 3908 XJRSTF0 3781 # 3882 XLATE 7099 7114 # XLATE1 7123 # 7127 XOR 3049 3050 3051 3052 3056 # XOS 3651 # 3666 XPCW 3784 3899 # 1PROC-TRAP 2450 2526 # 8958 (D) J 1459 # (U) JFCLFLG 1227 # 3869 (U) LD FLAGS 1231 # 2371 3808 3813 3891 4314 7999 8026 8941 (U) LD PCU 1219 # 4316 (U) LDVMA 1271 # 2310 2332 2336 2382 2382 2383 2385 2386 2386 2405 2442 2465 2471 2477 2481 2504 2508 2517 2529 2529 2533 2533 2553 2595 2606 2609 2621 2983 2987 2988 3227 3571 3571 3583 3700 3700 3701 3704 3705 3705 3774 3775 3776 3781 3785 3788 3802 3828 3832 3865 3881 3887 3902 3904 3904 3913 3977 4004 4015 4027 4032 4048 4113 4143 4264 4265 4265 4272 4273 4273 4286 4286 4305 4306 4336 4336 4345 4352 4353 4532 4532 5017 5017 5027 5076 5080 5084 5088 5433 5463 5470 5489 5490 5505 5506 5510 5511 5587 5593 5593 6276 6278 6279 6303 6455 6706 6733 6778 6784 6791 6808 6813 6870 6952 6995 7115 7265 7266 7267 7268 7346 7353 7403 7490 7655 7672 7720 7723 7796 7821 7826 7826 7872 7872 7892 7898 7977 7993 7993 7993 7994 8047 8047 8055 8098 8117 8135 8152 8155 8155 8375 8383 8478 8486 8496 8499 8499 8502 8502 8513 8570 8587 8587 8590 8590 8597 8597 8600 8600 8603 8603 8606 8606 8609 8609 8616 8754 8765 8765 8765 8774 8814 8814 8873 8875 8884 8894 8910 9024 9024 9028 9028 9037 9037 (U) LOADFE 1034 # 2569 2587 2603 3172 3175 3179 3189 3191 3208 3211 3214 3219 3231 3246 3294 5025 5029 5041 5137 5142 5144 5146 5149 5214 5227 5230 5231 5233 5235 5558 5560 5577 5579 5585 5586 5631 5660 5669 5671 5692 5698 5699 5713 5736 5740 5742 5743 5757 5828 5832 5834 5840 5848 5850 5851 5852 5870 5875 5917 5932 5934 5999 6016 6027 6051 6077 6092 6099 6102 6113 6130 6135 6137 6158 6183 6191 6331 6332 6334 6504 6880 6881 6887 7017 7018 7019 7020 7221 7224 7244 7263 (U) LOADSC 1032 # 2327 2337 2568 2587 2603 2619 3195 3197 3275 3276 3277 3279 3283 3294 3303 3306 3310 3317 3349 3350 3351 3353 3357 3372 3374 3375 3376 3379 3385 4432 4460 4498 4518 4539 4565 4578 4584 4592 4602 4610 4655 4754 4762 4870 4873 4914 5269 5272 5285 5292 5297 5310 5326 5373 5388 5394 5625 5629 5630 5639 5641 5664 5712 5747 5750 5755 5774 5775 5776 5778 5781 5785 5896 5906 5916 5950 5953 5960 5976 5979 5987 5991 5994 6004 6010 6066 6067 6651 6680 6820 6822 6825 6829 6831 7009 7016 7022 7027 7034 7561 7563 7579 7581 7905 7916 7933 7944 8125 8129 8158 8162 8335 8342 8351 8355 8782 8785 (U) LSRC 675 # (U) MACRO% ABORT MEM CYCLE 2135 # 2310 3881 7977 8375 8496 8570 8754 8774 AC 1980 # 4431 4458 4634 4726 5690 5756 5899 5901 AC[] 1981 # 4803 6040 6048 6558 6622 AC[]_Q 1877 # 3326 4493 4501 4512 4524 AC[]_Q.AND.[] 1866 # 4757 4801 4934 4939 4944 4950 4951 AC[]_[] 1852 # 2681 2971 3250 4774 4780 6115 6160 6361 6382 6400 6484 6519 6578 6580 6615 6628 6629 6666 6698 6704 6715 6720 6743 6744 6908 7219 7262 7301 7309 7316 7321 AC[]_[] TEST 1853 # 7190 AC[]_[] VIA AD 1850 # AC[]_[]*2 1855 # 4510 AC[]_[]+1 1854 # 7062 AC[]_[]+Q 1860 # AC[]_[]+[] 1862 # 4799 6561 AC[]_[]-[] 1861 # 6314 AC[]_[].AND.[] 1865 # 4777 6108 6153 AC[]_[].EQV.Q 1867 # 4525 4527 4529 4804 AC[]_-Q 1873 # AC[]_-[] 1868 # AC[]_.NOT.[] 1871 # AC[]_0 1875 # 2325 3229 4775 6390 6438 6636 6638 AC[]_1 1876 # 2326 AC_-[] 1869 # 6152 AC_.NOT.[] 1872 # 6151 AC_Q 1874 # 4773 AC_[] 1856 # 2714 3286 3544 3635 3676 3688 4006 4008 4107 4952 5032 5453 5523 5550 5786 5792 6440 6477 6742 6969 7045 7328 8122 8389 AC_[] TEST 1857 # 3679 3682 3685 3691 3694 3697 4523 6616 6663 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 246 ; CROSS REFERENCE LISTING AC_[] VIA AD 1851 # AC_[]+1 1858 # 7304 AC_[]+Q 1859 # AC_[]+[] 1863 # 3320 4073 4078 AC_[]-[] 1864 # AC_[].OR.[] 1870 # 5399 6403 6442 AD FLAGS 2165 # 2772 3650 3666 3734 3749 4369 4383 4401 4411 4414 4544 4963 4965 AD FLAGS EXIT 2216 # 4369 4383 AD PARITY 2087 # 2333 2547 2560 2561 2783 2886 2888 2920 2926 2980 3171 3174 3188 3223 3720 4014 4047 4070 4128 4141 4460 4503 4644 5042 5452 5548 5625 5659 5692 5757 5905 6306 6309 6324 6327 6358 6375 6449 6451 6469 6501 6514 6517 6545 6548 6550 6557 6567 6608 6610 6611 6644 6649 6650 6651 6672 6677 6689 6724 6810 6869 6914 6951 6953 7061 7176 7183 7210 7212 7240 7299 7307 7313 8147 8489 ADD .25 2120 # 2771 3149 3615 3666 3749 3776 3785 3788 4382 4400 4408 4413 4591 4595 4639 4683 4717 4740 4741 4747 4769 4795 4837 4838 4839 4855 4857 4864 4870 4902 4933 4938 4943 4948 4960 4964 4968 4970 5308 5366 5384 5439 5458 5484 5499 5590 5622 5699 5702 5703 5710 5721 5735 5829 5831 5833 5835 5846 5862 5891 5930 6045 6056 6063 6079 6120 6125 6146 6152 6186 6314 6348 6362 6385 6453 6489 6490 6491 6539 6603 6621 6624 6693 6710 6718 6737 6745 6746 6780 6782 6785 6834 7187 7312 7320 7326 7768 7882 7914 7931 8762 8951 ADL PARITY 2080 # ADR PARITY 2084 # AREAD 2211 # 2495 ASH 2096 # 2616 3191 ASH AROV 2149 # 3197 3316 3319 ASH36 LEFT 3184 # 3197 ASHC 2101 # 3197 3309 3312 3316 3319 4584 4592 4602 4610 4719 4723 4793 4797 4813 5641 5747 5749 5780 5925 5927 5931 5933 5949 5953 5960 5963 5965 5978 6019 6023 6059 6073 6092 6098 6101 6113 6130 6134 6136 6158 6183 B DISP 2212 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 3515 3521 3615 3635 3636 3720 3734 3749 3759 3992 3999 4038 4369 4383 4437 4443 4466 4468 5553 5782 5790 5794 5841 5853 5864 5869 6277 6320 6468 6524 6732 7097 7170 7177 8104 8111 8120 8141 8149 BAD PARITY 2089 # BASIC DIV STEP 4849 # 4870 4873 BWRITE DISP 2213 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 4369 4383 4437 4443 4466 4468 BYTE DISP 2231 # 5030 5047 6505 7223 7245 BYTE STEP 5001 # 6332 6334 CALL IBP 4995 # 5016 5022 5036 CALL LOAD PI 2237 # 3864 7870 CALL [] 2121 # 2334 2347 2589 2970 2980 3801 3861 3863 3864 3879 3903 3906 4129 4132 4260 4270 4275 4279 4284 4287 4325 4327 4434 4462 4490 4499 4509 4519 4543 4656 4677 4733 4739 4754 4758 4764 4810 4835 5016 5022 5026 5031 5036 5045 5048 5303 5313 5348 5376 5436 5452 5454 5549 5559 5561 5578 5580 5666 5709 5712 5717 5719 5830 5832 5834 5849 5850 5851 5910 5918 5946 5987 5992 6004 6011 6018 6038 6062 6066 6070 6096 6099 6102 6133 6135 6137 6143 6264 6305 6308 6312 6345 6351 6377 6402 6413 6428 6432 6439 6450 6452 6458 6472 6481 6502 6518 6521 6534 6549 6560 6568 6571 6574 6577 6585 6590 6617 6653 6662 6678 6690 6717 6728 6736 6753 6779 6809 6812 6817 6895 6904 6915 6918 6928 6941 6956 6963 6985 6989 7060 7095 7120 7221 7241 7246 7300 7308 7319 7657 7659 7721 7724 7752 7798 7801 7820 7870 7926 7980 8023 8041 8045 8118 8154 8495 8497 8503 8519 8568 8570 8588 8591 8593 8595 8598 8601 8604 8607 8610 8612 8739 8752 9029 CHANGE FLAGS 2142 # 2370 2371 2772 3650 3666 3734 3749 3808 3809 3813 3814 3869 3891 3892 3986 3998 4055 4086 4090 4106 4112 4314 4315 4316 4369 4383 4401 4411 4414 4445 4446 4470 4521 4533 4544 4547 4657 4692 4724 4811 4963 4965 5032 5049 5073 5330 5694 5706 5773 6064 6746 6747 7361 7999 8026 8941 CHK PARITY 2088 # 2425 2513 2531 2543 2552 2556 2573 2584 2595 2602 2615 2687 2720 2726 2731 2734 2786 2986 3296 3367 3652 3799 3838 3859 3885 3889 3935 3974 3991 3997 4020 4037 4043 4056 4116 4146 4275 4277 4282 4312 4325 4329 4351 4432 4526 4528 4635 4645 4730 4753 4760 5063 5092 5098 5222 5494 5552 6262 6281 6708 6903 6954 6957 6986 7270 7285 7356 7419 7491 7656 7658 7661 7710 7718 7795 7825 7827 7835 7893 7994 8048 8099 8136 8153 8368 8371 8373 8385 8387 8482 8501 8521 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8815 8877 9026 9047 CHK PARITY L 2081 # CHK PARITY R 2085 # CLEANUP AND TRAP 8627 # 8753 8930 CLEANUP DISP 2239 # CLEANUP DONE 8626 # 8959 8965 CLEAR ARX0 1827 # 2970 4959 6620 6662 6788 6794 CLEAR CONTINUE 2130 # CLEAR EXECUTE 2131 # CLEAR RUN 2132 # CLEAR []0 1826 # 2970 4676 4959 6597 6613 6620 6662 6788 6794 CLR FPD 2151 # 3986 4106 4112 4521 5032 5049 6747 CLR IO BUSY 2136 # 8097 8103 8134 8140 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 247 ; CROSS REFERENCE LISTING CLR IO LATCH 2137 # 8110 8148 8339 8345 8354 8359 CLRCSH 2127 # 7911 7912 7915 DFADJ 5942 # 5953 DISMISS 2236 # 3863 3879 DIV 2104 # 4870 4873 4874 4922 5828 5840 5848 5852 5945 5947 5948 DIV DISP 2230 # DIV STEP 4850 # 4873 DONE 2221 # 2382 2386 3571 3700 3705 4532 5017 7872 8155 DPB SCAD 5210 # 5215 5216 5217 5218 5219 EA MODE DISP 2210 # 2445 2519 3804 5071 5074 6273 7271 END BLT 2176 # 5486 5501 5591 END MAP 2177 # END STATE 2174 # 5486 5501 5591 6369 6443 6467 6618 6747 6751 6814 7096 8959 8965 8981 8982 EXIT 2215 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 4437 4443 4466 4468 EXP TEST 2164 # 5837 5853 6185 FETCH 1935 # 2382 2383 2385 2386 2406 2465 2471 2595 2621 3227 3571 3583 3700 3701 3704 3705 3774 3775 3802 3865 4005 4532 5017 5027 7872 8155 8514 FE_-1 2059 # FE_-12. 2057 # 3231 FE_-2 2056 # FE_-FE 2043 # 5137 5233 FE_-FE+200 2070 # 5698 5699 FE_-FE+S# 2046 # 5142 FE_-FE-1 2044 # 3172 3208 FE_-S-10 2053 # 5146 5214 FE_-S-20 2052 # FE_0 2058 # FE_EXP 2065 # 2587 2603 5631 5917 FE_FE+1 2060 # 3175 3189 3211 5713 5832 5834 5850 5851 5870 5875 6099 6102 6135 6137 6183 6191 FE_FE+10 2062 # 5144 5149 5227 5235 FE_FE+2 2061 # 5669 FE_FE+4 2064 # 3246 FE_FE+P 2068 # 6881 FE_FE+S# 2071 # 6016 6027 7020 FE_FE+SC 2047 # 7019 FE_FE-1 2063 # 5828 5840 5848 5852 5932 5934 6092 6113 6130 6158 FE_FE-19 2045 # FE_FE-200 2069 # 5671 FE_FE.AND.S# 2048 # 5029 5231 6504 6887 7018 7224 FE_P 2049 # 5025 5230 7017 7221 7263 FE_S 2050 # FE_S# 2054 # 3231 5558 5560 5577 5579 5736 5740 5742 5743 6880 FE_S#-FE 2055 # 6077 FE_S+2 2051 # 6331 FE_SC+EXP 2066 # 5660 5757 5999 FE_SC-EXP 2067 # 5692 6051 FIRST DIV STEP 4851 # 4870 FIX [] SIGN 1840 # 3633 4416 4441 4464 7100 7746 FL NO DIVIDE 2168 # 5694 5706 6064 FL-EXIT 2217 # 5790 5794 5841 5864 FM WRITE 1848 # 2309 2317 2319 2320 2322 2325 2326 2328 2329 2335 2337 2681 2714 2971 3229 3250 3286 3320 3326 3544 3635 3676 3679 3682 3685 3688 3691 3694 3697 3942 4006 4008 4073 4078 4107 4493 4501 4510 4512 4523 4524 4525 4527 4529 4757 4773 4774 4775 4777 4780 4799 4801 4804 4934 4939 4944 4950 4951 4952 5014 5032 5280 5294 5304 5314 5347 5399 5453 5523 5550 5786 5792 6108 6115 6151 6152 6153 6160 6272 6285 6288 6314 6319 6336 6361 6382 6384 6390 6400 6403 6410 6411 6412 6427 6438 6440 6442 6459 6475 6477 6484 6498 6512 6519 6530 6561 6578 6580 6615 6616 6628 6629 6636 6638 6652 6654 6663 6666 6698 6704 6710 6715 6716 6720 6729 6735 6742 6743 6744 6908 6940 6969 7045 7062 7093 7190 7219 7262 7286 7301 7304 7309 7316 7321 7328 7340 7420 7458 7571 7681 7683 7685 7687 7711 7719 7722 7726 7748 7765 7771 7802 7805 7836 7837 8122 8340 8346 8348 8389 8494 8567 8583 8593 8700 8703 8704 8706 8712 8721 8723 8725 8727 8734 8737 8763 FORCE EXEC 1915 # 7995 8022 8055 GEN 17-FE 2074 # 5114 GEN MSK [] 1843 # 5148 5151 5226 5229 6334 HALT [] 2238 # 2343 2403 2421 2710 3851 8021 8052 8929 HOLD LEFT 2079 # 2383 2385 2442 2463 2464 2470 2475 2490 2491 2503 2514 2553 2888 2920 2928 2950 2952 3583 3701 3704 3774 3775 3776 3785 3788 3802 3827 3865 3890 3904 4057 4118 4131 4135 4286 4298 4303 4336 4352 4405 5062 5093 5307 5367 5391 5445 5457 5486 5489 5501 5505 5510 5522 5573 5574 5591 5593 5668 5935 6275 6278 6281 6323 6350 6353 6369 6376 6406 6425 6431 6439 6443 6455 6467 6471 6478 6497 6526 6603 6618 6657 6692 6709 6736 6747 6751 6808 6814 6862 6923 6927 6962 6988 7031 7036 7096 7217 7261 7270 7438 7464 7478 7567 7569 7672 7720 7723 7796 7801 7826 7863 7865 7867 7869 7882 7959 7960 7961 7962 7963 7964 7965 7987 8025 8071 8502 8518 8590 8597 8600 8603 8606 8609 8762 8825 8849 8863 8883 8893 8896 8951 8959 8965 8969 8971 8973 8975 8977 8979 8981 8982 8983 9028 HOLD RIGHT 2083 # 2450 2451 2611 2613 2626 2648 2649 2886 2922 2926 2943 2945 2970 3323 3325 3633 3778 3787 3790 3792 3793 3794 3844 3849 3854 3857 3878 3894 3899 3912 3933 4069 4226 4236 4238 4240 4242 4255 4269 4279 4333 4349 4416 4417 4418 4441 4464 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 248 ; CROSS REFERENCE LISTING 4676 4716 4779 4834 4959 5141 5279 5287 5352 5398 5438 5442 5632 5633 5636 5637 5662 5663 5696 5697 5758 5759 5837 5853 5863 5956 5957 5964 5981 6105 6106 6121 6139 6149 6169 6170 6185 6268 6290 6523 6528 6597 6613 6614 6620 6660 6662 6669 6675 6684 6703 6755 6758 6763 6788 6794 6867 6965 6967 7040 7044 7100 7143 7147 7151 7155 7159 7163 7179 7280 7292 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7431 7472 7475 7495 7499 7575 7576 7584 7592 7598 7746 7855 7857 7859 7861 8024 8105 8107 8142 8144 8377 8453 8457 8459 8461 8463 8465 8467 8695 8743 8777 8780 8830 8841 8853 8881 8958 8995 9045 9050 IBP DP 4992 # 5016 5022 5036 6387 7213 7258 7332 IBP SCAD 4993 # 5016 5022 5036 6387 7213 7258 IBP SPEC 4994 # 5016 5022 5036 INH CRY18 2091 # 3758 3976 4024 4053 4074 4079 5363 5444 INST DISP 2214 # 2544 2548 2557 2562 2570 2591 2597 2622 2627 INTERRUPT TRAP 2228 # JFCL FLAGS 2161 # 3869 JUMP DISP 2220 # 3720 3734 3749 3759 JUMPA 2222 # 3701 3704 3774 3775 3802 3865 LDB SCAD 5110 # 5119 5120 5121 5122 5123 LEAVE USER 2159 # 2370 4315 LOAD AC BLOCKS 2125 # 2312 7507 LOAD BYTE EA 2116 # 5025 5044 5094 6269 6281 7220 LOAD DST EA 2119 # 7259 7261 7270 LOAD FE 1995 # 2569 2587 2603 3172 3175 3179 3189 3191 3208 3211 3214 3219 3231 3246 3294 5025 5029 5041 5137 5142 5144 5146 5149 5214 5227 5230 5231 5233 5235 5558 5560 5577 5579 5585 5586 5631 5660 5669 5671 5692 5698 5699 5713 5736 5740 5742 5743 5757 5828 5832 5834 5840 5848 5850 5851 5852 5870 5875 5917 5932 5934 5999 6016 6027 6051 6077 6092 6099 6102 6113 6130 6135 6137 6158 6183 6191 6331 6332 6334 6504 6880 6881 6887 7017 7018 7019 7020 7221 7224 7244 7263 LOAD FLAGS 2163 # 2371 3808 3813 3891 4314 7999 8026 8941 LOAD IND EA 2117 # 2515 LOAD INST 2114 # 2426 3940 7357 8522 LOAD INST EA 2115 # 3800 3839 3860 LOAD IR 2110 # 6268 LOAD PAGE TABLE 2124 # 7899 8888 8897 LOAD PCU 2157 # 4316 LOAD PI 2128 # 3880 7884 7976 8577 LOAD PXCT 2122 # 3934 LOAD SC 1994 # 2327 2337 2568 2587 2603 2619 3195 3197 3275 3276 3277 3279 3283 3294 3303 3306 3310 3317 3349 3350 3351 3353 3357 3372 3374 3375 3376 3379 3385 4432 4460 4498 4518 4539 4565 4578 4584 4592 4602 4610 4655 4754 4762 4870 4873 4914 5269 5272 5285 5292 5297 5310 5326 5373 5388 5394 5625 5629 5630 5639 5641 5664 5712 5747 5750 5755 5774 5775 5776 5778 5781 5785 5896 5906 5916 5950 5953 5960 5976 5979 5987 5991 5994 6004 6010 6066 6067 6651 6680 6820 6822 6825 6829 6831 7009 7016 7022 7027 7034 7561 7563 7579 7581 7905 7916 7933 7944 8125 8129 8158 8162 8335 8342 8351 8355 8782 8785 LOAD SRC EA 2118 # LOAD VMA 1914 # 2310 2332 2336 2382 2382 2383 2385 2386 2386 2405 2442 2465 2471 2477 2481 2504 2508 2517 2529 2529 2533 2533 2553 2595 2606 2609 2621 2983 2987 2988 3227 3571 3571 3583 3700 3700 3701 3704 3705 3705 3774 3775 3776 3781 3785 3788 3802 3828 3832 3865 3881 3887 3902 3904 3904 3913 3977 4004 4015 4027 4032 4048 4113 4143 4264 4265 4265 4272 4273 4273 4286 4286 4305 4306 4336 4336 4345 4352 4353 4532 4532 5017 5017 5027 5076 5080 5084 5088 5433 5463 5470 5489 5490 5505 5506 5510 5511 5587 5593 5593 6276 6278 6279 6303 6455 6706 6733 6778 6784 6791 6808 6813 6870 6952 6995 7115 7265 7266 7267 7268 7346 7353 7403 7490 7655 7672 7720 7723 7796 7821 7826 7826 7872 7872 7892 7898 7977 7993 7993 7993 7994 8047 8047 8055 8098 8117 8135 8152 8155 8155 8375 8383 8478 8486 8496 8499 8499 8502 8502 8513 8570 8587 8587 8590 8590 8597 8597 8600 8600 8603 8603 8606 8606 8609 8609 8616 8754 8765 8765 8765 8774 8814 8814 8873 8875 8884 8894 8910 9024 9024 9028 9028 9037 9037 LSH 2097 # LSHC 2100 # 3279 3283 4903 4906 LUUO 2224 # 6229 6231 6233 6235 6237 6239 6241 6243 6245 MEM CYCLE 1911 # 2310 2332 2336 2382 2382 2382 2383 2383 2385 2385 2386 2386 2386 2405 2406 2424 2442 2465 2465 2471 2471 2476 2477 2481 2482 2504 2505 2508 2509 2513 2517 2529 2529 2531 2533 2533 2542 2551 2553 2554 2555 2583 2594 2595 2595 2606 2607 2609 2610 2614 2621 2621 2686 2719 2725 2730 2733 2784 2785 2983 2984 2986 2987 2988 2990 3227 3227 3571 3571 3571 3583 3583 3651 3652 3700 3700 3700 3701 3701 3704 3704 3705 3705 3705 3774 3774 3775 3775 3776 3776 3781 3781 3785 3785 3788 3788 3798 3802 3802 3828 3829 3832 3833 3837 3858 3865 3865 3881 3885 3887 3888 3889 3902 3902 3904 3904 3905 3908 3913 3913 3934 3935 3973 3977 3978 3990 3996 4004 4005 4015 4016 4019 4027 4029 4032 4034 4036 4042 4048 4050 4056 4113 4114 4115 4126 4143 4144 4145 4264 4265 4265 4272 4273 4273 4274 4276 4281 4286 4286 4286 4305 4306 4307 4311 4324 4328 4336 4336 4336 4345 4346 4350 4352 4353 4354 4532 4532 4532 5017 5017 5017 5027 5027 5056 5062 5063 5076 5077 5080 5081 5084 5085 5088 5089 5091 5097 5221 5222 5433 5434 5463 5464 5470 5471 5478 5482 5489 5490 5492 5493 5505 5506 5508 5510 5511 5513 5551 5587 5587 5589 5593 5593 5594 6262 6276 6278 6278 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 249 ; CROSS REFERENCE LISTING 6279 6279 6281 6303 6304 6455 6455 6706 6707 6708 6733 6734 6778 6784 6791 6808 6808 6813 6813 6870 6870 6905 6907 6952 6952 6954 6957 6986 6995 6995 7115 7116 7265 7265 7266 7266 7267 7267 7268 7268 7270 7284 7343 7345 7346 7350 7352 7353 7356 7403 7403 7419 7490 7490 7491 7655 7655 7656 7658 7661 7672 7672 7709 7710 7717 7718 7720 7720 7723 7723 7793 7794 7796 7797 7821 7822 7825 7826 7826 7826 7827 7834 7835 7872 7872 7872 7892 7892 7893 7898 7977 7981 7993 7993 7993 7994 7994 8022 8042 8047 8047 8048 8055 8056 8098 8098 8099 8117 8119 8135 8135 8136 8152 8153 8155 8155 8155 8368 8371 8373 8375 8383 8385 8387 8478 8479 8481 8486 8487 8496 8499 8499 8501 8502 8502 8502 8513 8514 8520 8570 8587 8587 8588 8589 8590 8590 8590 8591 8592 8595 8596 8597 8597 8597 8598 8599 8600 8600 8600 8601 8602 8603 8603 8603 8604 8605 8606 8606 8606 8607 8608 8609 8609 8609 8610 8611 8613 8616 8754 8765 8765 8765 8766 8774 8814 8814 8814 8815 8873 8874 8875 8876 8884 8894 8910 9024 9024 9025 9028 9028 9028 9037 9037 9047 MEM READ 1939 # 2424 2513 2542 2551 2555 2583 2594 2614 3798 3837 3858 3885 3889 3935 3973 4019 4056 4145 4311 5091 5097 5493 5551 6262 6281 6708 6957 6986 7270 7284 7343 7350 7356 7419 7491 7710 7718 7794 7835 7981 7994 8042 8048 8099 8119 8136 8368 8371 8373 8481 8520 8815 MEM WAIT 1938 # 2424 2513 2531 2542 2551 2555 2583 2594 2614 2686 2719 2725 2730 2733 2785 2986 3652 3798 3837 3858 3885 3889 3935 3973 3990 3996 4019 4036 4042 4056 4115 4145 4274 4276 4281 4311 4324 4328 4350 5063 5091 5097 5222 5478 5482 5493 5551 5589 6262 6281 6708 6907 6954 6957 6986 7270 7284 7343 7350 7356 7419 7491 7656 7658 7661 7710 7718 7794 7825 7827 7835 7893 7981 7994 8042 8048 8099 8119 8136 8153 8368 8371 8373 8385 8387 8481 8501 8520 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8815 8876 9025 9047 MEM WRITE 1940 # 2531 2686 2719 2725 2730 2733 2785 2986 3652 3990 3996 4036 4042 4115 4274 4276 4281 4324 4328 4350 5063 5222 5478 5482 5589 6907 6954 7656 7658 7661 7825 7827 7893 8153 8385 8387 8501 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8876 9025 9047 MEM_Q 1947 # 5479 5483 5589 6907 MEM_[] 1946 # 2531 2687 2720 2726 2731 2734 2786 2986 3652 3991 3997 4037 4043 4116 4275 4277 4282 4325 4329 4351 5063 5222 6954 7656 7658 7661 7825 7827 7893 8153 8385 8387 8501 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8766 8877 9026 9047 MUL DISP 2229 # 4584 4592 4602 4610 5927 5953 5955 6074 MUL FINAL 4561 # 4588 4596 4606 4614 MUL STEP 4560 # 4584 4592 4602 4610 NEXT INST 2208 # 2715 3250 3298 3326 3676 4007 4085 4092 4802 4805 5786 5792 6154 NEXT INST FETCH 2209 # 2382 2383 2385 2386 2466 2472 3571 3583 3700 3701 3704 3705 3774 3775 3802 3865 4532 5017 7872 8155 NEXT [] PHYSICAL WR 1970 # 4286 4336 8502 8590 8597 8600 8603 8606 8609 9028 NO DIVIDE 2167 # 4657 4692 4724 4811 5330 NORM DISP 2235 # 2427 5642 5672 5751 5828 5830 5840 5844 5846 5848 5849 5852 5873 6026 6081 6082 6093 6095 6114 6124 6126 6131 6132 6159 6188 ONES 2103 # 5148 5151 5226 5229 6334 PAGE FAIL TRAP 2225 # 8745 8843 8860 PI DISP 2234 # PXCT BLT DEST 1923 # 5465 5472 5507 5512 5588 PXCT BLT SRC 1927 # 5435 5491 5594 PXCT BYTE DATA 1925 # 5078 5082 7265 7266 PXCT BYTE PTR EA 1924 # 5086 5090 PXCT DATA 1922 # 2495 2553 2606 2609 2985 2989 4028 4033 PXCT EA 1921 # 2504 2509 3834 PXCT EXTEND EA 1928 # 6278 6279 PXCT STACK WORD 1926 # 3979 4017 4049 Q-[] 1790 # 4747 Q.AND.NOT.[] 1791 # Q_# 1806 # 5305 5350 Q_-1 1798 # Q_-AC[] 1799 # 4933 4938 4943 Q_-Q 1800 # 4717 4795 4837 4838 4855 5829 5831 5833 5835 6120 Q_-[] 1797 # 6056 Q_.NOT.AC[] 1796 # 4937 4942 Q_.NOT.Q 1805 # 6119 Q_0 1807 # 3187 5147 5225 5639 5712 5723 5736 5740 5742 5743 5756 5770 6066 6332 Q_0 XWD [] 1808 # Q_AC 1801 # 4432 4635 Q_AC[] 1802 # 2573 3296 3367 4526 4528 4645 6903 Q_AC[].AND.MASK 1803 # Q_AC[].AND.[] 1804 # 4730 4753 4760 Q_MEM 1957 # 5494 5552 8373 Q_Q*.5 1813 # 4542 4577 4754 5554 5572 5573 5574 5586 5980 6071 Q_Q*2 1814 # 5568 5569 Q_Q+.25 1809 # 5930 6079 Q_Q+1 1810 # Q_Q+AC 1812 # 5325 Q_Q+[] 1819 # 4756 4788 5912 5920 6022 6025 Q_Q-1 1811 # 5366 Q_Q-WORK[] 1903 # 5308 Q_Q.AND.# 1816 # 3322 4832 5562 5581 5667 5981 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 250 ; CROSS REFERENCE LISTING Q_Q.AND.NOT.[] 1818 # 6068 Q_Q.AND.[] 1817 # 4803 5232 Q_Q.OR.# 1815 # 3324 4715 Q_WORK[] 1884 # 5374 6495 Q_[] 1792 # 4458 4498 4518 4539 4758 4784 5296 5664 5903 5915 5976 5991 6004 6010 6061 Q_[]+[] 1794 # 4785 Q_[]-[] 1793 # 5439 Q_[].AND.Q 1820 # 4880 6104 6138 Q_[].AND.[] 1795 # 4705 Q_[].OR.Q 1821 # 5583 5935 RAM_[] 1906 # 2335 2337 READ Q 1832 # 5793 5836 5860 6111 6156 READ XR 1830 # READ [] 1831 # 2566 2586 2766 2934 2941 2948 2955 3276 3293 3350 3370 3375 3529 3574 3577 3580 3586 3589 3592 3880 3891 3934 4261 4263 4271 4304 4313 4344 4435 4646 4652 4666 4671 4673 4678 4746 4748 4766 4782 4791 4853 4860 4881 5024 5028 5043 5046 5146 5214 5230 5354 5627 5631 5716 5718 5751 5755 5789 5830 5849 5917 6017 6026 6076 6095 6132 6269 6287 6331 6366 6470 6473 6479 6492 6503 6520 6697 6733 6784 6791 6818 6832 6837 6860 6864 6920 7008 7017 7115 7137 7169 7220 7222 7245 7453 7455 7456 7461 7465 7570 7785 7821 7912 7921 7929 8577 8587 8788 8789 8791 8898 8941 8953 RETURN [] 2233 # 2648 2649 3844 3845 4334 4337 4545 4589 4597 4607 4615 4813 4836 4837 4839 4924 4952 5057 5059 5063 5099 5133 5152 5222 5445 5585 5586 5872 5874 5875 5965 6162 6169 6170 6185 6581 6591 6596 6599 6637 6638 6789 6795 6972 6996 7064 7096 7108 7140 7156 7173 7182 7184 7211 7247 7281 7287 7292 7333 7599 7672 7772 7806 7885 7945 8068 8071 8356 8369 8371 8373 8375 8377 8379 8381 8383 8385 8387 8389 8580 8584 8618 8916 9047 ROT 2099 # 3214 3219 3379 3381 3385 3387 ROTC 2102 # 3353 3357 3378 3384 SCAD DISP 2232 # 5016 5022 5036 5115 5625 5772 5774 6332 6334 6388 7214 7258 8342 SC_-1 2039 # SC_-2 2040 # SC_-SHIFT 2003 # SC_-SHIFT-1 2004 # 3276 3350 3375 SC_-SHIFT-2 2005 # SC_0 2038 # 7016 7027 SC_1 2037 # SC_11. 2028 # SC_14. 2027 # SC_19. 2026 # 2327 SC_2 2036 # 6829 SC_20. 2025 # 6651 SC_22. 2024 # SC_24. 2023 # SC_26. 2022 # 6066 SC_27. 2021 # 5664 5712 SC_28. 2020 # SC_3 2035 # 5285 SC_34. 2019 # 4655 4754 4762 5297 5310 5326 SC_35. 2018 # 4432 4460 4498 4518 4539 5373 5987 5991 6004 6010 6067 SC_36. 2017 # SC_4 2034 # SC_5 2033 # 8125 8158 SC_6 2032 # 5747 5976 6822 7561 7579 SC_7 2031 # 6820 SC_8. 2030 # SC_9. 2029 # 5269 5388 8782 SC_EXP 2010 # 2587 2603 5629 5906 SC_FE 2013 # 2619 5994 SC_FE+S# 2012 # 3303 5774 SC_S# 2014 # 2327 4432 4460 4498 4518 4539 4655 4754 4762 5269 5285 5297 5310 5326 5373 5388 5664 5712 5747 5976 5987 5991 6004 6010 6066 6067 6651 6820 6822 6829 7016 7027 7561 7579 7905 7944 8125 8158 8335 8351 8782 SC_S#-FE 2011 # 3306 5776 SC_SC-1 1999 # 8342 SC_SC-EXP 2006 # SC_SC-EXP-1 2007 # 5625 5896 SC_SC-FE 2009 # SC_SC-FE-1 2008 # 5630 5916 SC_SHIFT 2000 # 3294 5755 SC_SHIFT-1 2001 # 2568 3372 SC_SHIFT-2 2002 # SET APR ENABLES 2134 # 2315 7457 7570 SET AROV 2144 # 4445 4446 4470 4533 5773 SET FL NO DIVIDE 2147 # 5694 5706 6064 SET FOV 2145 # SET FPD 2150 # 4547 5073 6746 SET HALT 2129 # 8504 8571 SET NO DIVIDE 2146 # 4657 4692 4724 4811 5330 5694 5706 6064 SET PDL OV 2153 # 3998 4055 4086 4090 SET P TO 36-S 4997 # 5058 6397 7216 7260 SET TRAP1 2154 # SET TRAP3 2155 # SHIFT 1997 # 3179 3191 3214 3219 5585 5586 SKIP AC REF 2201 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 251 ; CROSS REFERENCE LISTING SKIP AD.EQ.0 2185 # 3224 3577 3589 3682 3694 4435 4440 4647 4649 4653 4667 4713 4742 4773 4855 4935 4940 4945 4961 4968 5295 5324 5690 5716 5718 5793 5836 5860 6017 6069 6111 6156 6492 6546 6622 6625 6921 6958 6980 7107 7813 SKIP AD.LE.0 2186 # 3580 3592 3685 3697 4707 5355 5710 6039 6694 7769 8576 SKIP ADL.EQ.0 2197 # 2340 2449 3843 4294 4299 5734 5739 5855 6021 6024 6094 6097 6100 6103 6162 6263 6307 6450 6452 6535 6555 6740 6756 6811 6846 6849 6883 7360 7500 7568 7574 7996 7997 8745 8761 8775 8843 8858 8860 8938 8946 9043 SKIP ADL.LE.0 2188 # SKIP ADR.EQ.0 2198 # 3295 3863 3879 5459 6681 6754 7121 7413 7416 7443 7445 7448 7450 7452 7757 7851 7853 7858 7860 7862 7864 7866 7868 7983 8049 8070 8121 8150 8816 8834 8835 8991 9000 9001 9003 9004 9006 9007 SKIP CRY0 2193 # 3981 4025 4054 5702 5829 5831 5833 5835 SKIP CRY1 2194 # 4397 4409 6147 6570 6576 6589 6781 6792 SKIP CRY2 2195 # 6120 6180 SKIP DP0 2183 # 2588 2604 2766 2948 2955 3247 3321 3574 3586 3679 3691 4072 4075 4080 4262 4416 4442 4464 4467 4523 4531 4636 4672 4674 4679 4684 4688 4711 4728 4740 4747 4763 4782 4800 4853 4860 4875 5327 5474 5485 5500 5590 5627 5631 5661 5692 5700 5735 5757 5789 5897 6000 6048 6052 6063 6076 6315 6328 6346 6359 6366 6386 6428 6430 6453 6470 6473 6479 6520 6612 6617 6655 6664 6697 6714 6786 6837 6864 7063 7094 7137 7191 7314 7492 7746 8758 8788 8831 SKIP DP18 2184 # 2567 2934 2941 3371 6287 6540 6745 6835 7169 7170 8035 8789 8791 8826 SKIP EXECUTE 2202 # 8508 SKIP FPD 2190 # 4485 5016 5022 5036 6645 SKIP IF AC0 2182 # 2676 3634 5013 SKIP IO LEGAL 2192 # 2625 3786 3789 SKIP IRPT 2199 # 5504 6388 8707 8749 8959 8965 SKIP JFCL 2196 # 3870 SKIP KERNEL 2191 # 3779 3783 3784 3791 3929 3931 7341 SKIP -1MS 2200 # 6383 SKIP-COMP DISP 2219 # 3615 3635 3636 6468 SPEC MEM READ 1941 # 2601 SPEC MEM WRITE 1942 # START NO TEST WRITE 1934 # START READ 1932 # 2382 2383 2385 2386 2406 2465 2471 2476 2482 2505 2509 2554 2595 2607 2610 2621 3227 3571 3583 3700 3701 3704 3705 3774 3775 3776 3781 3785 3788 3802 3829 3833 3865 3888 3908 3934 4005 4016 4050 4144 4307 4354 4532 5017 5027 5077 5081 5085 5089 5434 5492 5594 6278 6279 6304 6455 6707 6734 6808 6813 6870 6995 7116 7265 7266 7267 7268 7345 7352 7403 7490 7709 7717 7720 7723 7793 7797 7834 7872 8056 8098 8135 8155 8479 8514 8814 START WRITE 1933 # 2784 2984 2990 3651 3902 3905 3913 3978 4029 4034 4114 4126 4286 4336 4346 5056 5062 5221 5464 5471 5508 5513 5587 6905 6952 7655 7672 7822 7826 7892 8022 8487 8502 8590 8597 8600 8603 8606 8609 8874 9028 STATE_[] 2173 # 5445 6323 6350 6353 6376 6425 6431 6439 6471 6478 6497 6526 6709 6736 6862 6923 6927 6988 8969 8971 8973 8975 8977 8979 8983 STEP SC 1996 # 2337 3195 3197 3275 3277 3279 3283 3310 3317 3349 3351 3353 3357 3374 3376 3379 3385 4565 4578 4584 4592 4602 4610 4870 4873 4914 5272 5292 5394 5639 5641 5750 5775 5778 5781 5785 5950 5953 5960 5979 6680 6825 6831 7034 7563 7581 7916 7933 8129 8162 8355 8785 SWEEP 2126 # 7928 7929 7932 TAKE INTERRUPT 2226 # 8995 TAKE 1-PROCEED TRAP 2227 # 2450 8958 TEST DISP 2218 # 3515 3521 TL [] 1836 # 2449 3843 4294 4299 5855 6021 6024 6094 6097 6100 6103 6162 6263 6307 6450 6452 6535 6555 6740 6756 6811 6846 6849 7500 8745 8761 8775 8843 8858 8860 8938 8946 9043 TR [] 1835 # 3863 3879 6681 6754 7121 7443 7445 7448 7450 7452 7757 7851 7853 7858 7860 7862 7864 7866 7868 8121 8150 8816 8834 8835 8991 9000 9001 9003 9004 9006 9007 TURN OFF PXCT 2123 # 2395 2398 2401 2413 2416 2419 2444 TXXX TEST 2203 # 3529 UNHALT 2133 # 8507 UPDATE USER 2158 # 3809 3814 3892 UUO 2223 # 2626 3778 3787 3790 3792 3793 3794 3849 3854 3857 3878 3899 3912 3933 4226 4236 4238 4240 4242 7280 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7855 8453 8457 8459 8461 8463 8465 8467 8695 VMA 1983 # VMA EXTENDED 1919 # VMA PHYSICAL 1916 # 2529 2533 4265 4273 4286 4306 4336 7346 7353 7993 8047 8499 8502 8587 8590 8597 8600 8603 8606 8609 8765 8814 8875 9024 9028 9037 VMA PHYSICAL READ 1918 # 2533 7993 8047 9037 VMA PHYSICAL WRITE 1917 # 2529 4265 4273 8499 8587 8765 9024 VMA_[] 1962 # 2382 2386 2405 2481 2508 2517 2621 2987 3571 3700 3705 3781 3832 3902 3913 4027 4032 4113 4143 4532 5017 5027 5080 5088 5433 5463 5470 5587 6279 6813 6870 6952 6995 7266 7268 7403 7490 7655 7872 7892 7898 7993 8098 8135 8155 8478 8486 8513 8616 8765 8814 8873 8884 8894 8910 VMA_[] WITH FLAGS 1963 # 8383 VMA_[]+1 1965 # 2383 2385 2442 2553 3583 3904 4352 5489 5505 5510 5593 6455 6808 7796 7826 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 252 ; CROSS REFERENCE LISTING VMA_[]+XR 1967 # 5076 5084 7265 7267 VMA_[]+[] 1968 # VMA_[]-1 1966 # 3776 3785 3788 VMA_[].OR.[] WITH F 1964 # 8117 8152 WORK[] 1984 # 6487 6711 6916 6984 7065 7097 7100 WORK[]_.NOT.[] 1890 # 6530 WORK[]_0 1885 # 2329 WORK[]_1 1886 # 2328 WORK[]_Q 1883 # 5304 6459 6498 WORK[]_[] 1887 # 2309 2317 2319 2320 2322 5014 5280 5294 5314 5347 6272 6285 6288 6319 6384 6410 6411 6412 6427 6475 6512 6652 6654 6716 6729 6735 6940 7093 7286 7340 7420 7458 7571 7681 7683 7685 7687 7711 7719 7722 7726 7748 7765 7771 7802 7805 7836 7837 8340 8346 8348 8494 8567 8583 8593 8700 8703 8704 8706 8712 8721 8723 8725 8727 8734 8737 WORK[]_[] CLR LH 1888 # 3942 WORK[]_[]+[] 1892 # 8763 WORK[]_[]-1 1889 # 6710 WORK[]_[].AND.[] 1891 # 6336 WRITE TEST 1931 # 2784 2984 2990 3651 3902 3905 3913 3978 4029 4034 4114 4126 4286 4336 4346 5056 5062 5221 5464 5471 5508 5513 5587 6905 6952 7655 7672 7822 7826 7892 8022 8487 8502 8590 8597 8600 8603 8606 8609 8874 9028 XR 1982 # [] LEFT_-1 1775 # 2938 [] LEFT_0 1773 # 2936 8764 [] RIGHT_-1 1776 # 2959 [] RIGHT_0 1774 # 2957 []+[] 1637 # 2982 4544 4687 []-# 1639 # 6539 6834 []-[] 1638 # 4683 4740 4741 5458 5484 5499 5590 5702 5710 6063 6453 [].AND.# 1640 # 5734 5738 6882 7358 7568 7574 [].AND.NOT.WORK[] 1893 # [].AND.NOT.[] 1643 # 4439 [].AND.Q 1641 # 4712 [].AND.WORK[] 1894 # 7106 [].AND.[] 1642 # 4467 7413 7416 8070 [].OR.[] 1644 # [].XOR.# 1645 # 2340 7996 7997 [].XOR.VMA 1646 # 5473 [].XOR.[] 1647 # 7812 []_# 1649 # 2294 2298 2330 2331 2372 2943 2945 2950 2952 4859 5277 5301 5311 5315 5345 5389 5445 6290 6323 6350 6353 6376 6425 6431 6439 6471 6478 6497 6526 6709 6736 6862 6923 6927 6988 7425 7428 7904 7910 7925 7927 8024 8067 8105 8107 8142 8144 8969 8971 8973 8975 8977 8979 8983 []_#-[] 1648 # []_(#-[])*2 1736 # 5384 []_(-[])*.5 1737 # []_(-[]-.25)*.5 LON 1738 # 4718 6057 []_(-[]-.25)*2 LONG 1739 # 4796 []_(AC[].AND.[])*.5 1734 # 4489 4491 5894 5986 6042 []_(MEM.AND.[])*.5 1956 # 2615 []_(Q+1)*.5 1735 # 6179 []_([]+#)*2 1750 # []_([]+1)*2 1751 # 7007 []_([]+[])*.5 LONG 1752 # 5924 []_([]+[])*2 LONG 1753 # 4905 []_([]+[]+.25)*.5 L 1756 # []_([]-[])*.5 LONG 1754 # []_([]-[])*2 LONG 1755 # 4902 []_([].AND.#)*.5 1742 # 5274 5281 8050 []_([].AND.#)*2 1743 # []_([].AND.NOT.#)*. 1744 # []_([].AND.NOT.#)*2 1745 # []_([].AND.[])*.5 1746 # 4483 []_([].AND.[])*2 1747 # []_([].OR.#)*.5 1748 # []_([].OR.#)*2 1749 # 8886 []_+SIGN 1779 # 2613 2648 5632 5636 5662 5696 5758 []_+SIGN*.5 1784 # 5898 6001 6053 []_-1 1650 # 4639 6746 7882 []_-2 1651 # []_-AC 1666 # 4948 []_-AC[] 1667 # 6624 []_-Q 1652 # []_-Q*.5 1654 # 5721 []_-Q*2 1653 # 4769 []_-SIGN 1780 # 2611 2649 5633 5637 5663 5697 5759 []_-SIGN*.5 1785 # 5900 6002 6055 []_-WORK[] 1901 # 6348 7312 7326 []_-[] 1655 # 2771 3149 4839 4857 4864 4960 4964 4968 4970 5622 5699 5735 5846 5862 5891 6045 6125 6146 6621 []_-[]*2 1657 # 5703 []_-[]-.25 1656 # 5892 []_.NOT.AC[] 1659 # 6623 []_.NOT.AC 1658 # 3097 3107 4947 []_.NOT.Q 1660 # 5239 6335 []_.NOT.WORK[] 1900 # 6365 6395 6399 6537 6541 7330 []_.NOT.[] 1661 # 3039 3077 3118 3129 3532 4403 4856 4962 4969 5795 5844 5859 5861 6044 6054 6123 6316 6318 6879 []_0 1662 # 2310 2312 2315 2327 2347 2369 2590 3004 3515 4278 4538 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 253 ; CROSS REFERENCE LISTING 4637 4854 5141 5286 5437 5486 5501 5591 6038 6369 6443 6456 6467 6496 6618 6657 6691 6747 6751 6755 6758 6814 7096 7583 7753 7852 7900 7937 7984 8377 8499 8959 8965 8981 8982 []_0 XWD [] 1664 # 2300 2307 2355 2393 2397 2400 2412 2415 2418 2527 4257 4290 4341 4714 4725 6229 6231 6233 6235 6237 6239 6241 6243 6245 6955 7744 7966 7967 7968 7969 7970 7971 7972 9009 9010 9012 9013 9015 9016 9018 9019 []_0*.5 LONG 1663 # 4564 []_AC[] 1681 # 2333 2561 2980 6306 6324 6327 6358 6375 6449 6469 6501 6517 6545 6548 6550 6567 6608 6610 6611 6644 6650 6677 6689 6724 6869 6914 6951 6953 7061 7176 7183 7210 7212 7240 7299 7307 7313 []_AC[]*.5 1683 # 4503 []_AC[]*2 1682 # 6557 []_AC[]-1 1678 # 6718 6737 []_AC[]-[] 1677 # 4408 []_AC[].AND.[] 1679 # []_AC 1665 # 2547 2560 2783 2886 2888 2920 2926 3171 3188 3720 4014 4047 4070 4128 4141 4460 4644 5042 5452 5548 5625 5659 5692 5757 5905 6309 6451 6514 6649 6651 6672 6810 8147 8489 []_AC*.5 1668 # 3194 3207 3210 4508 4728 5895 5998 6050 []_AC*.5 LONG 1669 # 2574 3299 3368 []_AC*2 1670 # 5038 []_AC+1 1671 # 3734 []_AC+1000001 1672 # 3757 3975 []_AC+[] 1673 # 5443 []_AC-1 1674 # 3749 []_AC-[] 1675 # 3615 4382 4413 []_AC-[]-.25 1676 # 4410 []_AC.AND.MASK 1680 # 3174 3223 []_APR 1684 # 7377 7378 7447 7479 7783 []_CURRENT AC [] 1685 # []_EA 1689 # 2494 []_EA FROM [] 1686 # 6276 []_EXP 1690 # 5837 5853 6185 []_FE 1691 # 3248 7021 []_FLAGS 1692 # 3900 3914 4268 4293 7998 []_IO DATA 1951 # 7982 8043 8119 8714 []_MEM 1952 # 2513 2543 2552 2556 2584 2602 3799 3838 3859 3885 3889 3935 3974 4020 4056 4146 4312 5092 6262 6281 6708 6957 6986 7270 7285 7356 7419 7491 7710 7718 7795 7835 7994 8048 8099 8136 8368 8371 8482 8521 8815 []_MEM AND READ [] 1958 # 2425 []_MEM THEN FETCH 1953 # 2595 []_MEM*.5 1954 # []_MEM.AND.MASK 1955 # 5098 []_P 1693 # 6885 7037 []_PC WITH FLAGS 1694 # 2530 3985 4105 4111 4326 4530 7339 8760 9042 []_Q 1695 # 4437 4445 4670 4726 4743 4749 4759 5954 5961 5982 6005 6065 6067 []_Q*.5 1696 # 4501 5715 5720 5994 []_Q*2 1697 # []_Q*2 LONG 1698 # 4755 4765 []_Q+1 1699 # 5440 []_RAM 1700 # []_TIME 1701 # 7809 7810 7811 []_VMA 1702 # 5468 8336 8582 8705 8738 []_VMA FLAGS 1973 # 7978 8038 8112 8115 8151 8159 8163 8516 []_VMA IO READ 1974 # 7978 8038 8112 8115 8516 []_VMA IO WRITE 1975 # 8151 8159 8163 []_WORK[] 1899 # 5299 5309 5521 6414 6415 6416 6417 6482 6695 6705 6738 6739 6760 6942 6979 7059 7181 7192 7303 7397 7436 7470 7566 7628 7630 7632 7634 7648 7654 7657 7659 7742 7750 7762 7815 7819 7841 8569 8575 8579 8594 8612 8614 8615 8617 8750 8753 8757 8758 8759 8878 8906 8908 8909 8915 8930 8940 8966 []_WORK[]+1 1902 # 6344 6378 6434 6534 6713 7188 7194 []_XR 1703 # 3807 []_[] 1704 # 2469 3226 3701 3704 3774 3775 3802 3812 3850 3865 3938 4003 4125 4130 4431 4459 4484 4500 4634 4643 4658 4664 4693 5056 5372 5628 5629 5630 5669 5690 5698 5910 5911 5918 5919 5993 6036 6039 6081 6082 6325 6346 6394 6429 6692 6703 6711 6778 6881 7123 7215 7239 7259 7317 7384 7385 7573 7589 7595 7814 7848 8026 8781 8817 []_[] SWAP 1705 # 2579 2763 2914 2916 2919 2922 2925 2928 3513 3518 3864 4068 4127 4142 4267 5139 5268 5284 5387 5432 5441 5520 6757 6815 6820 6821 7126 7471 7857 7870 7881 8819 []_[] XWD 0 1706 # 6511 6626 8362 8717 8719 8735 []_[]*.5 1707 # 2297 2617 2618 3190 3212 3213 3217 3302 3305 3385 3387 4482 4540 4706 4734 4867 4868 4869 4875 5143 5221 5271 5291 5705 5713 5782 5832 5834 5850 5851 5869 5870 5875 5987 6020 6190 6822 6825 6829 6831 6916 7027 7034 7099 7579 7581 8053 8072 8125 8129 8784 []_[]*.5 LONG 1708 # 2575 3279 3308 3353 3369 3378 4433 4461 4542 4563 4577 4708 4710 4722 4738 4754 4761 4813 4862 5375 5554 5572 5573 5574 5586 5641 5665 5670 5747 5749 5780 5949 5952 5960 5963 5965 5980 6015 6071 6098 6101 6134 6136 6182 []_[]*2 1709 # 2295 3178 3201 3215 3218 3245 3379 3381 4436 4463 4520 5393 5585 5700 5708 5785 6558 7117 7561 7563 7985 8034 8158 8162 8381 []_[]*2 LONG 1710 # 3197 3280 3283 3284 3285 3311 3315 3318 3354 3357 3358 3382 3384 3388 4793 4874 4877 4879 5234 5568 5569 5828 5840 5848 5852 5926 5931 5933 5945 5947 5948 5978 6019 6023 6073 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 254 ; CROSS REFERENCE LISTING 6091 6112 6129 6157 []_[]*4 1711 # 6816 []_[]+# 1712 # 4022 4051 6774 6783 7986 8044 []_[]+.25 1713 # 6186 []_[]+0 1714 # []_[]+1 1715 # 2332 2336 2532 2605 2608 3650 3886 3907 5062 5488 5503 5592 5794 6302 6406 6424 6454 6598 6667 6679 6686 6706 6727 6741 6796 6861 6886 6984 7217 7261 7672 7720 7723 7751 8025 8379 9036 []_[]+1000001 1716 # 4117 4133 5455 []_[]+AC 1717 # 4368 4399 []_[]+AC[] 1718 # 4396 6559 6569 6572 []_[]+Q 1719 # 4767 []_[]+RAM 1720 # 6790 6792 []_[]+WORK[] 1895 # 5368 6731 6917 6994 7105 7114 7764 7773 7816 8797 8799 8805 8807 []_[]+XR 1721 # 2463 2475 2490 2503 3827 6275 6278 []_[]+[] 1722 # 2528 4259 4292 4514 4786 4789 4878 5642 5790 5873 6006 6367 6401 6575 6586 6588 7035 7324 7342 7349 7745 7988 8036 8046 8054 9023 []_[]+[]+.25 1723 # []_[]-# 1724 # []_[]-1 1725 # 3666 6385 6490 6491 6603 6745 6782 7187 8762 8951 []_[]-1000001 1726 # []_[]-AC 1727 # []_[]-RAM 1728 # 6780 6785 []_[]-WORK[] 1904 # []_[]-[] 1729 # 6362 6693 7320 7768 7914 7931 []_[]-[] REV 1730 # 6489 []_[].AND.AC 1757 # 3014 3139 3520 3543 []_[].AND.NOT.# 1758 # 2450 3893 4332 5863 6106 6121 6149 6170 6762 7142 7158 7437 7463 7576 7865 8823 8828 8861 8879 8882 8958 9049 []_[].AND.NOT.AC 1760 # 3024 []_[].AND.NOT.WORK[ 1897 # []_[].AND.NOT.[] 1759 # 5929 7446 7449 7859 7869 8071 []_[].AND.Q 1761 # 4465 5152 5241 []_[].AND.WORK[] 1896 # 6488 []_[].AND.[] 1762 # 5240 5856 6140 6142 6486 7883 []_[].AND.# 1731 # 2613 2626 2648 3778 3787 3790 3792 3793 3794 3849 3854 3857 3878 3899 3912 3933 4226 4236 4238 4240 4242 4253 4347 4417 5396 5632 5636 5662 5696 5758 6522 6646 6823 6826 6866 7003 7038 7041 7280 7290 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7439 7441 7473 7476 7493 7497 7567 7582 7590 7596 7799 7855 7856 8126 8130 8453 8457 8459 8461 8463 8465 8467 8695 8740 8778 []_[].AND.# CLR LH 1732 # 3249 6943 6982 7024 7172 7412 7415 7480 7974 8786 8889 []_[].AND.# CLR RH 1733 # 5570 6265 6310 6515 7501 7504 []_[].EQV.AC 1763 # 3087 []_[].EQV.Q 1764 # 4443 4446 4468 4469 []_[].OR.# 1765 # 2296 2451 2611 2649 3844 4296 4301 4418 4779 4865 5633 5637 5663 5697 5759 5956 5957 5964 6169 6527 6614 6659 6668 6673 6683 6960 6964 6966 7030 7146 7150 7154 7162 7178 7569 7575 7784 7863 7959 7960 7961 7962 7963 7964 7965 8517 8776 8839 8847 8851 8892 8895 8995 9044 []_[].OR.AC 1766 # 3067 3538 []_[].OR.FLAGS 1767 # []_[].OR.WORK[] 1898 # 7318 7327 []_[].OR.[] 1768 # 3108 4404 5242 6267 6368 6602 7043 7440 7444 7451 7482 7506 7861 7867 8040 8744 []_[].XOR.AC 1770 # 3056 3535 []_[].XOR.[] 1771 # 6144 []_[].XOR.# 1769 # 4732 .NOT.[] 1636 # 4648 7884 7976 2T 1986 # 4728 4741 5631 5906 6488 6559 6623 6918 7059 7105 7819 3T 1987 # 2340 2604 2614 2772 3320 3529 3615 3650 3666 3758 3871 3980 4016 4024 4049 4053 4071 4076 4081 4119 4134 4369 4383 4489 4491 4510 4545 4685 4689 4740 4746 4747 4748 4766 4770 4791 4799 4881 4948 4965 5025 5040 5114 5132 5230 5275 5282 5364 5381 5385 5456 5458 5474 5485 5500 5590 5625 5660 5702 5734 5735 5738 5771 5774 5829 5831 5833 5835 5894 5895 5898 5900 6000 6001 6002 6047 6051 6053 6055 6063 6146 6152 6314 6332 6334 6385 6389 6453 6561 6575 6589 6621 6624 6710 6713 6745 6746 6774 6780 6783 6792 6818 6832 6860 6881 6882 7009 7017 7062 7123 7214 7221 7243 7258 7262 7265 7267 7304 7359 7492 7568 7574 7957 7982 7986 7995 7996 7997 8044 8048 8050 8884 8887 8894 8911 8953 4T 1988 # 3223 3734 3749 4396 4401 4408 4411 4413 5323 5328 6328 6359 6540 6545 6570 6611 6785 6834 6980 7107 7313 8576 8710 5T 1989 # 8342 8359 7-BIT DPB 5211 # 5215 5216 5217 5218 5219 7-BIT LDB 5111 # 5119 5120 5121 5122 5123 (D) MACRO% AC 2267 # 2741 2742 2746 2747 2751 2752 2756 2757 2779 2796 2797 2801 2802 2806 2807 2811 2812 2816 2817 2821 2822 2826 2827 2831 2832 2838 2839 2843 2844 2848 2849 2853 2854 2859 2860 2864 2865 2869 2870 2874 2875 2966 2997 2998 3007 3008 3017 3018 3027 3028 3032 3033 3049 3050 3060 3061 3070 3071 3080 3081 3090 3091 3100 3101 3111 3112 3122 3123 3132 3133 3142 3143 4361 4362 4375 4376 4425 4426 5006 8691 AC DISP 2281 # 3765 7370 7371 7622 B 2269 # 3000 3010 3020 3030 3035 3052 3063 3073 3083 3093 3103 3114 3125 3135 3145 4364 4378 4428 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 255 ; CROSS REFERENCE LISTING DAC 2271 # 2965 4391 4392 4450 4451 4477 4621 4622 4626 4627 4700 5971 6033 DBL AC 2256 # 2974 DBL B 2272 # 4453 4624 4629 DBL FL-R 2262 # 5881 5882 5971 6033 DBL R 2255 # 2965 2966 4391 4392 4477 4700 FL-AC 2273 # 5602 5605 5606 5610 5613 5614 5648 5652 5653 5678 5682 5683 5729 5730 5765 5766 FL-BOTH 2275 # 5604 5608 5612 5616 5650 5655 5680 5685 FL-I 2261 # 5606 5614 5653 5683 FL-MEM 2274 # 5603 5607 5611 5615 5649 5654 5679 5684 FL-R 2259 # 5602 5605 5610 5613 5648 5652 5678 5682 5765 5766 FL-RW 2260 # 5603 5604 5607 5608 5611 5612 5615 5616 5649 5650 5654 5655 5679 5680 5684 5685 I 2247 # 3043 3158 3163 3417 3418 3419 3420 3421 3422 3423 3424 3426 3427 3435 3436 3437 3438 3439 3440 3441 3442 3454 3455 3456 3457 3458 3459 3460 3461 3471 3472 3473 3474 3475 3476 3477 3478 3595 3596 3597 3598 3599 3600 3601 3602 3709 3710 3711 3712 3713 3714 3715 3716 3724 3725 3726 3727 3728 3729 3730 3739 3740 3741 3742 3743 3744 3745 3752 3753 3765 3767 3921 3922 3965 3967 3968 4098 4099 4100 4101 4154 4155 4156 4157 4158 4159 4160 4161 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4200 4201 4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 5448 5730 6200 6201 6202 6203 6204 6205 6206 6208 6209 6210 6211 6213 6214 6215 6216 6218 6219 6220 6221 6222 6223 6224 6225 6258 8395 8396 8397 8399 8400 8402 8403 8405 8406 8407 8408 8409 8410 8411 8412 8414 8415 8416 8417 8418 8419 8420 8421 8423 8424 8425 8426 8427 8428 8429 8430 8432 8433 8434 8435 8436 8437 8438 8439 8441 8442 8443 8444 8445 8446 8447 8448 I-PF 2248 # 2742 2747 2752 2757 2797 2802 2807 2812 2817 2822 2827 2832 2839 2844 2849 2854 2860 2865 2870 2875 2997 2998 3008 3018 3028 3033 3050 3061 3071 3081 3090 3091 3101 3112 3123 3133 3142 3143 3159 3723 3738 4064 4362 4376 4426 4451 4622 4627 IOT 2263 # 7370 7371 7622 8080 8081 8082 8083 8084 8085 8087 8088 8089 8090 8091 8092 8473 8474 8691 IR 2254 # 3966 IW 2253 # 2999 3000 3092 3093 3144 3145 M 2268 # 2743 2748 2753 2758 2798 2803 2808 2813 2818 2823 2828 2833 2840 2845 2850 2855 2861 2866 2871 2876 2999 3009 3019 3029 3034 3044 3045 3051 3062 3072 3082 3092 3102 3113 3124 3134 3144 4363 4377 4427 4452 4623 4628 7622 R 2249 # 2779 3042 3428 3429 3430 3431 3432 3433 3444 3445 3446 3447 3448 3449 3450 3451 3463 3464 3465 3466 3467 3468 3469 3470 3480 3481 3482 3483 3484 3485 3486 3487 3604 3605 3606 3607 3608 3609 3610 3611 3622 3623 3624 3625 3626 3627 3628 3629 3924 5006 5007 5008 5009 5010 5729 R-PF 2250 # 2741 2746 2751 2756 2796 2801 2806 2811 2816 2821 2826 2831 2838 2843 2848 2853 2859 2864 2869 2874 3007 3017 3027 3032 3049 3060 3070 3080 3100 3111 3122 3132 4361 4375 4425 4450 4621 4626 ROUND 2276 # 5605 5606 5607 5608 5613 5614 5615 5616 5652 5653 5654 5655 5682 5683 5684 5685 5729 5766 RW 2252 # 2744 2749 2754 2759 2798 2799 2803 2804 2809 2814 2819 2824 2829 2834 2840 2841 2845 2846 2851 2856 2862 2867 2872 2877 3009 3010 3019 3020 3029 3030 3034 3035 3051 3052 3062 3063 3072 3073 3082 3083 3102 3103 3113 3114 3124 3125 3134 3135 3639 3640 3641 3642 3643 3644 3645 3646 3655 3656 3657 3658 3659 3660 3661 3662 4363 4364 4377 4378 4427 4428 4452 4453 4623 4624 4628 4629 S 2270 # 2744 2749 2754 2759 2799 2804 2809 2814 2819 2824 2829 2834 2841 2846 2851 2856 2862 2867 2872 2877 SH 2257 # 3155 3156 3157 SHC 2258 # 3160 3161 SJC- 3555 # 3595 3604 3622 3639 3655 3709 3723 3738 SJCA 3559 # 3599 3608 3626 3643 3659 3713 3727 3742 SJCE 3557 # 3597 3606 3624 3641 3657 3711 3725 3740 6201 SJCG 3562 # 3602 3611 3629 3646 3662 3716 3730 3745 6206 SJCGE 3560 # 3600 3609 3627 3644 3660 3714 3728 3743 3752 6204 SJCL 3556 # 3596 3605 3623 3640 3656 3710 3724 3739 3753 6200 SJCLE 3558 # 3598 3607 3625 3642 3658 3712 3726 3741 6202 SJCN 3561 # 3601 3610 3628 3645 3661 3715 3729 3744 6205 TC- 3408 # 3454 3455 3463 3464 TCA 3410 # 3458 3459 3467 3468 TCE 3409 # 3456 3457 3465 3466 TCN 3411 # 3460 3461 3469 3470 TN- 3398 # TNA 3401 # 3421 3422 3430 3431 TNE 3399 # 3419 3420 3428 3429 TNN 3402 # 3423 3424 3432 3433 TO- 3412 # 3471 3472 3480 3481 TOA 3414 # 3475 3476 3484 3485 TOE 3413 # 3473 3474 3482 3483 TON 3415 # 3477 3478 3486 3487 TZ- 3404 # 3435 3436 3444 3445 TZA 3406 # 3439 3440 3448 3449 TZE 3405 # 3437 3438 3446 3447 TZN 3407 # 3441 3442 3450 3451 W 2251 # 2743 2748 2753 2758 2808 2813 2818 2823 2828 2833 2850 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 256 ; CROSS REFERENCE LISTING 2855 2861 2866 2871 2876 2975 3044 3045 W TEST 2280 # 2779 5007 5009 WORD-TNE 3400 # WORD-TNN 3403 # (U) MEM 1038 # 2310 2332 2336 2382 2382 2382 2383 2383 2385 2385 2386 2386 2386 2405 2406 2424 2442 2465 2465 2471 2471 2476 2477 2481 2482 2495 2504 2505 2508 2509 2513 2517 2529 2529 2529 2531 2533 2533 2533 2542 2551 2553 2554 2555 2583 2594 2595 2595 2606 2607 2609 2610 2614 2621 2621 2686 2719 2725 2730 2733 2763 2769 2784 2785 2886 2888 2922 2928 2936 2938 2957 2959 2983 2984 2986 2987 2988 2990 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 3227 3227 3571 3571 3571 3583 3583 3651 3652 3700 3700 3700 3701 3701 3704 3704 3705 3705 3705 3774 3774 3775 3775 3776 3776 3781 3781 3785 3785 3788 3788 3798 3802 3802 3828 3829 3832 3833 3837 3858 3865 3865 3881 3885 3887 3888 3889 3902 3902 3904 3904 3905 3908 3913 3913 3934 3935 3973 3977 3978 3990 3996 4004 4005 4015 4016 4019 4027 4029 4032 4034 4036 4042 4048 4050 4056 4113 4114 4115 4126 4143 4144 4145 4264 4265 4265 4265 4272 4273 4273 4273 4274 4276 4281 4286 4286 4286 4305 4306 4307 4311 4324 4328 4336 4336 4336 4345 4346 4350 4352 4353 4354 4369 4383 4437 4443 4466 4468 4532 4532 4532 5017 5017 5017 5027 5027 5056 5062 5063 5076 5077 5080 5081 5084 5085 5088 5089 5091 5097 5221 5222 5433 5434 5463 5464 5470 5471 5478 5482 5489 5490 5492 5493 5505 5506 5508 5510 5511 5513 5551 5587 5587 5589 5593 5593 5594 5790 5794 5841 5864 6262 6276 6278 6278 6279 6279 6281 6303 6304 6455 6455 6706 6707 6708 6733 6734 6778 6784 6791 6808 6808 6813 6813 6870 6870 6905 6907 6952 6952 6954 6957 6986 6995 6995 7115 7116 7265 7265 7266 7266 7267 7267 7268 7268 7270 7284 7343 7345 7346 7350 7352 7353 7356 7403 7403 7419 7490 7490 7491 7655 7655 7656 7658 7661 7672 7672 7709 7710 7717 7718 7720 7720 7723 7723 7793 7794 7796 7797 7821 7822 7825 7826 7826 7826 7827 7834 7835 7872 7872 7872 7892 7892 7893 7898 7977 7981 7993 7993 7993 7993 7994 7994 8022 8042 8047 8047 8047 8048 8055 8056 8098 8098 8099 8117 8117 8119 8135 8135 8136 8152 8152 8153 8155 8155 8155 8368 8371 8373 8375 8383 8383 8385 8387 8478 8479 8481 8486 8487 8496 8499 8499 8499 8501 8502 8502 8502 8513 8514 8520 8570 8587 8587 8587 8588 8589 8590 8590 8590 8591 8592 8595 8596 8597 8597 8597 8598 8599 8600 8600 8600 8601 8602 8603 8603 8603 8604 8605 8606 8606 8606 8607 8608 8609 8609 8609 8610 8611 8613 8616 8754 8765 8765 8765 8765 8766 8774 8814 8814 8814 8815 8873 8874 8875 8876 8884 8894 8910 9024 9024 9024 9025 9028 9028 9028 9037 9037 9037 9047 (U) MICROCODE OPTIONS 1356 # OPT 1358 # 7429 (U) MICROCODE VERSION 19 # UCV 20 # 7430 (D) MODE 1453 # (U) MULTI PREC 1043 # 4719 4772 4787 4790 4797 4913 5892 5925 6047 6058 (U) MULTI SHIFT 1045 # 3179 3191 3214 3219 5145 5150 5228 5236 5585 5586 (U) NONEXISTENT IO REGI 8652 # (U) NONEXISTENT MEMORY 8654 # (U) OIPBIT 1101 # 3843 9044 (U) PAGE ACCESS 8663 # 8840 8852 (U) PHYSICAL 1252 # 2529 2533 4265 4273 4286 4306 4336 7346 7353 7911 7912 7915 7928 7929 7932 7978 7993 8038 8047 8112 8115 8151 8159 8163 8499 8502 8516 8587 8590 8597 8600 8603 8606 8609 8741 8765 8779 8814 8875 9024 9028 9037 (U) PI.CLR 1313 # 7851 (U) PI.CO1 1301 # (U) PI.CO2 1302 # (U) PI.DIR 1312 # 7858 (U) PI.IP1 1293 # 7757 8067 8992 9000 9003 (U) PI.IP2 1294 # 7758 8992 9000 (U) PI.IP3 1295 # 7758 8993 9004 (U) PI.IP4 1296 # 7759 8993 (U) PI.IP5 1297 # 7759 9001 9006 (U) PI.IP6 1298 # 7760 9001 (U) PI.IP7 1299 # 7760 9007 (U) PI.MBZ 1311 # 7853 (U) PI.ON 1300 # 7863 7865 (U) PI.REQ 1314 # 7860 (U) PI.SC1 1319 # (U) PI.SC2 1320 # (U) PI.SC3 1321 # (U) PI.SC4 1322 # (U) PI.SC5 1323 # (U) PI.SC6 1324 # (U) PI.SC7 1325 # (U) PI.TCF 1316 # 7868 (U) PI.TCN 1315 # 7866 (U) PI.TSF 1317 # 7864 (U) PI.TSN 1318 # 7862 (U) PI.ZER 1292 # (U) PT CACHE 8642 # 8891 (U) PT PAGE 8643 # ALL 8645 # EVEN 8644 # 8891 (U) PT VALID 8640 # 8890 (U) PT WRITE 8641 # 8890 (U) PTE AGE 8633 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 257 ; CROSS REFERENCE LISTING ALL 8634 # 8824 8829 (U) PTE CACHE 8636 # (U) PTE PAGE 8637 # (U) PTE VALID 8632 # 8887 (U) PTE WRITE 8635 # 8848 8862 (U) PXCT 1257 # BIS-DST-EA 1263 # 7259 7261 7267 7268 7270 BIS-SRC-EA 1261 # CURRENT 1258 # 2382 2383 2385 2386 2406 2465 2471 2595 2621 3227 3571 3583 3700 3701 3704 3705 3774 3775 3800 3802 3839 3860 3865 4005 4532 5017 5027 7872 8155 8514 D1 1260 # 2495 2553 2606 2609 2985 2989 4028 4033 5465 5472 5507 5512 5588 D2 1264 # 3979 4017 4049 5078 5082 5435 5491 5594 7265 7266 E1 1259 # 2504 2509 2515 3834 3941 E2 1262 # 5025 5044 5086 5090 5094 6269 6278 6279 6281 7220 (U) RAMADR 748 # AC# 749 # 2547 2560 2574 2714 2783 2886 2888 2920 2926 3014 3024 3056 3067 3087 3097 3107 3139 3171 3174 3188 3194 3207 3210 3223 3286 3299 3320 3368 3520 3535 3538 3543 3544 3615 3635 3676 3679 3682 3685 3688 3691 3694 3697 3720 3734 3749 3757 3975 4006 4008 4014 4047 4070 4073 4078 4107 4128 4141 4368 4382 4399 4410 4413 4431 4432 4458 4460 4508 4523 4634 4635 4644 4726 4728 4771 4773 4947 4948 4952 5032 5038 5042 5325 5399 5443 5452 5453 5523 5548 5550 5625 5659 5690 5692 5756 5757 5786 5792 5895 5899 5901 5905 5998 6050 6151 6152 6309 6403 6440 6442 6451 6477 6514 6616 6649 6651 6663 6672 6742 6810 6969 7045 7304 7328 8122 8147 8389 8489 AC*# 750 # 2325 2326 2333 2561 2573 2681 2971 2980 3229 3250 3296 3326 3367 4396 4408 4489 4491 4493 4501 4503 4510 4512 4524 4525 4526 4527 4528 4529 4645 4730 4753 4757 4760 4774 4775 4777 4780 4799 4801 4803 4804 4933 4934 4937 4938 4939 4942 4943 4944 4950 4951 5894 5986 6040 6042 6048 6108 6115 6153 6160 6306 6314 6324 6327 6358 6361 6375 6382 6390 6400 6438 6449 6469 6484 6501 6517 6519 6545 6548 6550 6557 6558 6559 6561 6567 6569 6572 6578 6580 6608 6610 6611 6615 6622 6623 6624 6628 6629 6636 6638 6644 6650 6666 6677 6689 6698 6704 6715 6718 6720 6724 6737 6743 6744 6869 6903 6908 6914 6951 6953 7061 7062 7176 7183 7190 7210 7212 7219 7240 7262 7299 7301 7307 7309 7313 7316 7321 RAM 753 # 2335 2337 6780 6785 6790 6792 VMA 752 # 2310 2425 2513 2531 2543 2552 2556 2584 2595 2602 2615 2687 2720 2726 2731 2734 2786 2986 3652 3799 3838 3859 3881 3885 3889 3935 3974 3991 3997 4020 4037 4043 4056 4116 4146 4275 4277 4282 4312 4325 4329 4351 5063 5092 5098 5222 5479 5483 5494 5552 5589 6262 6281 6708 6907 6954 6957 6986 7270 7285 7356 7419 7491 7656 7658 7661 7710 7718 7795 7825 7827 7835 7893 7977 7982 7994 8043 8048 8099 8119 8136 8153 8368 8371 8373 8375 8385 8387 8482 8496 8501 8521 8570 8588 8589 8591 8592 8595 8596 8598 8599 8601 8602 8604 8605 8607 8608 8610 8611 8613 8714 8754 8766 8774 8815 8877 9026 9047 XR# 751 # 2445 2463 2475 2490 2503 2519 3804 3807 3827 5071 5074 5076 5084 6273 6275 6278 7265 7267 7271 # 754 # 2309 2317 2319 2320 2322 2328 2329 3942 5014 5280 5294 5299 5304 5308 5309 5314 5320 5347 5360 5368 5374 5380 5521 6272 6285 6288 6319 6336 6344 6348 6365 6378 6384 6395 6399 6410 6411 6412 6414 6415 6416 6417 6427 6434 6459 6475 6482 6487 6488 6495 6498 6512 6530 6534 6537 6541 6652 6654 6695 6705 6710 6711 6713 6716 6729 6731 6735 6738 6739 6760 6916 6917 6940 6942 6979 6984 6994 7059 7065 7093 7097 7100 7105 7106 7114 7181 7188 7192 7194 7286 7303 7312 7318 7326 7327 7330 7340 7397 7420 7436 7458 7470 7566 7571 7628 7630 7632 7634 7648 7654 7657 7659 7681 7683 7685 7687 7711 7719 7722 7726 7742 7748 7750 7762 7764 7765 7771 7773 7802 7805 7815 7816 7819 7836 7837 7841 8340 8346 8348 8494 8567 8569 8575 8579 8583 8593 8594 8612 8614 8615 8617 8700 8703 8704 8706 8712 8721 8723 8725 8727 8734 8737 8750 8753 8757 8758 8759 8763 8797 8799 8805 8807 8878 8906 8908 8909 8915 8930 8940 8966 (D) READ 1464 # 2741 2742 2744 2746 2747 2749 2751 2752 2754 2756 2757 2759 2779 2796 2797 2798 2799 2801 2802 2803 2804 2806 2807 2809 2811 2812 2814 2816 2817 2819 2821 2822 2824 2826 2827 2829 2831 2832 2834 2838 2839 2840 2841 2843 2844 2845 2846 2848 2849 2851 2853 2854 2856 2859 2860 2862 2864 2865 2867 2869 2870 2872 2874 2875 2877 2965 2966 2997 2998 3007 3008 3009 3010 3017 3018 3019 3020 3027 3028 3029 3030 3032 3033 3034 3035 3042 3049 3050 3051 3052 3060 3061 3062 3063 3070 3071 3072 3073 3080 3081 3082 3083 3090 3091 3100 3101 3102 3103 3111 3112 3113 3114 3122 3123 3124 3125 3132 3133 3134 3135 3142 3143 3155 3156 3157 3159 3160 3161 3428 3429 3430 3431 3432 3433 3444 3445 3446 3447 3448 3449 3450 3451 3463 3464 3465 3466 3467 3468 3469 3470 3480 3481 3482 3483 3484 3485 3486 3487 3604 3605 3606 3607 3608 3609 3610 3611 3622 3623 3624 3625 3626 3627 3628 3629 3639 3640 3641 3642 3643 3644 3645 3646 3655 3656 3657 3658 3659 3660 3661 3662 3723 3738 3924 3966 4064 4361 4362 4363 4364 4375 4376 4377 4378 4391 4392 4425 4426 4427 4428 4450 4451 4452 4453 4477 4621 4622 4623 4624 4626 4627 4628 4629 4700 5006 5007 5008 5009 5010 5602 5603 5604 5605 5606 5607 5608 5610 5611 5612 5613 5614 5615 5616 5648 5649 5650 5652 5653 5654 5655 5678 5679 5680 5682 5683 5684 5685 5729 5765 5766 5881 5882 5971 6033 6258 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 258 ; CROSS REFERENCE LISTING (U) READ CYCLE 1244 # 2382 2383 2385 2386 2406 2465 2471 2476 2482 2505 2509 2533 2554 2595 2607 2610 2621 3227 3571 3583 3700 3701 3704 3705 3774 3775 3776 3781 3785 3788 3802 3829 3833 3865 3888 3908 3934 4005 4016 4050 4144 4307 4354 4532 5017 5027 5077 5081 5085 5089 5434 5492 5594 6278 6279 6304 6455 6707 6734 6808 6813 6870 6995 7116 7265 7266 7267 7268 7345 7352 7403 7490 7709 7717 7720 7723 7793 7797 7834 7872 7978 7993 8038 8047 8056 8098 8112 8115 8135 8155 8479 8514 8516 8814 8880 9037 (D) ROUND 1452 # 5605 5606 5607 5608 5613 5614 5615 5616 5652 5653 5654 5655 5682 5683 5684 5685 5729 5766 (U) RSRC 680 # AB 682 # 3942 AQ 681 # D0 688 # 2957 6511 6626 7978 8038 8112 8115 8151 8159 8163 8362 8516 8717 8719 8735 DA 686 # 2300 2307 2343 2355 2393 2397 2400 2403 2412 2415 2418 2421 2527 2710 3249 3851 4257 4290 4341 4714 4725 5128 6229 6231 6233 6235 6237 6239 6241 6243 6245 6943 6955 6982 7024 7172 7412 7415 7480 7744 7809 7810 7811 7966 7967 7968 7969 7970 7971 7972 7974 8021 8052 8786 8889 8929 9009 9010 9012 9013 9015 9016 9018 9019 DQ 687 # 0A 685 # 2494 2530 2959 3985 4105 4111 4326 4530 5566 5898 5900 6001 6002 6053 6055 6276 7339 8760 9042 0B 684 # 2936 2938 8764 0Q 683 # 3900 3914 4268 4293 5570 6265 6310 6515 7501 7504 7998 (U) S# 1080 # 2327 2568 2587 2587 2603 2603 2619 3172 3175 3179 3189 3191 3208 3211 3214 3219 3231 3246 3248 3276 3294 3303 3306 3350 3372 3375 4432 4460 4498 4518 4539 4655 4754 4762 5029 5114 5137 5142 5144 5146 5149 5214 5215 5216 5217 5218 5219 5227 5231 5233 5235 5269 5285 5297 5310 5326 5373 5388 5558 5560 5577 5579 5585 5586 5629 5631 5664 5669 5671 5698 5699 5712 5713 5736 5740 5742 5743 5747 5755 5771 5774 5776 5828 5832 5834 5837 5840 5848 5850 5851 5852 5853 5870 5875 5906 5917 5932 5934 5976 5987 5991 5994 6004 6010 6016 6027 6066 6067 6077 6092 6099 6102 6113 6130 6135 6137 6158 6183 6185 6191 6331 6332 6334 6504 6651 6820 6822 6829 6880 6885 6887 7016 7018 7020 7021 7027 7037 7224 7561 7579 7905 7944 8125 8158 8335 8351 8782 (U) SCAD 1057 # A 1065 # 2327 3231 4432 4460 4498 4518 4539 4655 4754 4762 5025 5039 5119 5120 5121 5122 5123 5230 5269 5285 5297 5310 5326 5373 5388 5558 5560 5577 5579 5664 5712 5736 5740 5742 5743 5747 5976 5987 5991 6004 6010 6066 6067 6651 6820 6822 6829 6880 7016 7017 7027 7221 7243 7263 7561 7579 7905 7944 8125 8158 8335 8351 8782 A*2 1058 # 7008 A+B 1062 # 2568 2587 2587 2603 2603 3175 3179 3189 3191 3211 3214 3219 3246 3248 3294 3303 3372 5144 5149 5215 5216 5217 5218 5219 5227 5235 5585 5586 5629 5631 5660 5669 5671 5713 5755 5757 5770 5774 5828 5832 5834 5837 5840 5848 5850 5851 5852 5853 5870 5875 5906 5917 5932 5934 5999 6016 6027 6092 6099 6102 6113 6130 6135 6137 6158 6183 6185 6191 6331 6332 6334 6881 6885 7019 7020 7021 7037 7332 A-1 1064 # 2337 3195 3197 3275 3277 3279 3283 3310 3317 3349 3351 3353 3357 3374 3376 3379 3385 4565 4578 4584 4592 4602 4610 4870 4873 4914 5272 5292 5394 5639 5641 5750 5775 5778 5781 5785 5950 5953 5960 5979 6680 6825 6831 7034 7563 7581 7916 7933 8129 8162 8342 8355 8785 A-B 1061 # 3172 3208 3276 3306 3350 3375 5016 5022 5036 5058 5114 5137 5142 5146 5214 5233 5692 5698 5699 5776 6051 6077 6387 6397 7213 7216 7258 7260 A-B-1 1060 # 5625 5630 5896 5916 A.AND.B 1063 # 5029 5231 6504 6887 7018 7224 A.OR.B 1059 # 2619 5994 (U) SCADA 1066 # BYTE1 1070 # 5016 5022 5025 5036 5119 5230 6387 6881 7017 7213 7221 7258 7263 7332 BYTE2 1071 # 5120 BYTE3 1072 # 5121 BYTE4 1073 # 5122 BYTE5 1074 # 5040 5123 7009 7244 PTR44 1069 # 5058 6397 7216 7260 S# 1068 # 2327 2568 2587 2587 2603 2603 2619 3172 3175 3179 3189 3191 3208 3211 3214 3219 3231 3246 3248 3276 3294 3303 3306 3350 3372 3375 4432 4460 4498 4518 4539 4655 4754 4762 5029 5114 5137 5142 5144 5146 5149 5214 5215 5216 5217 5218 5219 5227 5231 5233 5235 5269 5285 5297 5310 5326 5373 5388 5558 5560 5577 5579 5585 5586 5629 5631 5664 5669 5671 5698 5699 5712 5713 5736 5740 5742 5743 5747 5755 5770 5774 5776 5828 5832 5834 5837 5840 5848 5850 5851 5852 5853 5870 5875 5906 5917 5932 5934 5976 5987 5991 5994 6004 6010 6016 6027 6066 6067 6077 6092 6099 6102 6113 6130 6135 6137 6158 6183 6185 6191 6331 6332 6334 6504 6651 6820 6822 6829 6880 6885 6887 7016 7018 7020 7021 7027 7037 7224 7561 7579 7905 7944 8125 8158 8335 8351 8782 SC 1067 # 2337 3195 3197 3275 3277 3279 3283 3310 3317 3349 3351 3353 3357 3374 3376 3379 3385 4565 4578 4584 4592 4602 4610 4870 4873 4914 5272 5292 5394 5625 5630 5639 5641 5660 5692 5750 5757 5775 5778 5781 5785 5896 5916 5950 5953 5960 5979 5999 6051 6680 6825 6831 7019 7034 7563 7581 7916 7933 8129 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 259 ; CROSS REFERENCE LISTING 8162 8342 8355 8785 (U) SCADB 1075 # EXP 1077 # 2587 2587 2603 2603 5625 5629 5631 5660 5692 5757 5896 5906 5917 5999 6051 FE 1076 # 2619 3172 3175 3179 3189 3191 3208 3211 3214 3219 3246 3248 3303 3306 5029 5114 5137 5142 5144 5149 5215 5216 5217 5218 5219 5227 5231 5233 5235 5585 5586 5630 5669 5671 5698 5699 5713 5771 5774 5776 5828 5832 5834 5837 5840 5848 5850 5851 5852 5853 5870 5875 5916 5932 5934 5994 6016 6027 6077 6092 6099 6102 6113 6130 6135 6137 6158 6183 6185 6191 6332 6334 6504 6881 6885 6887 7018 7019 7020 7021 7037 7224 SHIFT 1078 # 2568 3276 3294 3350 3372 3375 5755 SIZE 1079 # 5016 5022 5036 5058 5146 5214 6331 6387 6397 7213 7216 7258 7260 7332 (U) SETFOV 1200 # 5694 5706 6064 (U) SETFPD 1206 # 4547 5073 6746 (U) SETNDV 1201 # 4657 4692 4724 4811 5330 5694 5706 6064 (U) SETOV 1198 # 4445 4446 4470 4533 4657 4692 4724 4811 5330 5694 5706 5773 6064 (U) SHSTYLE 899 # ASHC 904 # 3197 3309 3312 3316 3319 4584 4592 4602 4610 4719 4723 4793 4797 4813 5641 5747 5749 5780 5925 5927 5931 5933 5949 5953 5960 5963 5965 5978 6019 6023 6059 6073 6092 6098 6101 6113 6130 6134 6136 6158 6183 DIV 906 # 4870 4873 4874 4918 4922 5828 5840 5848 5852 5945 5947 5948 LSHC 905 # 3279 3283 4903 4906 NORM 900 # 2616 3191 4542 4577 4754 4912 5554 5568 5569 5572 5573 5574 5586 5980 6071 ONES 902 # 5148 5151 5226 5229 6334 ROT 903 # 3214 3219 3379 3381 3385 3387 ROTC 907 # 3353 3357 3378 3384 ZERO 901 # (U) SKIP 979 # AC0 987 # 2676 3634 5013 ADEQ0 999 # 3224 3577 3589 3682 3694 4435 4440 4647 4649 4653 4667 4713 4742 4773 4855 4935 4940 4945 4961 4968 5295 5324 5690 5716 5718 5793 5836 5860 6017 6069 6111 6156 6492 6546 6622 6625 6921 6958 6980 7107 7813 ADLEQ0 983 # 2340 2449 3843 4294 4299 5734 5739 5855 6021 6024 6094 6097 6100 6103 6162 6263 6307 6450 6452 6535 6555 6740 6756 6811 6846 6849 6883 7360 7500 7568 7574 7996 7997 8745 8761 8775 8843 8858 8860 8938 8946 9043 ADREQ0 984 # 3295 3863 3879 5459 6681 6754 7121 7413 7416 7443 7445 7448 7450 7452 7757 7851 7853 7858 7860 7862 7864 7866 7868 7983 8049 8070 8121 8150 8816 8834 8835 8991 9000 9001 9003 9004 9006 9007 CRY0 982 # 3981 4025 4054 5702 5829 5831 5833 5835 CRY1 995 # 4397 4409 6147 6570 6576 6589 6781 6792 CRY2 990 # 6120 6180 DP0 991 # 2588 2604 2766 2948 2955 3247 3321 3574 3586 3679 3691 4072 4075 4080 4262 4416 4442 4464 4467 4523 4531 4636 4672 4674 4679 4684 4688 4711 4728 4740 4747 4763 4782 4800 4853 4860 4875 5327 5474 5485 5500 5590 5627 5631 5661 5692 5700 5735 5757 5789 5897 6000 6048 6052 6063 6076 6315 6328 6346 6359 6366 6386 6428 6430 6453 6470 6473 6479 6520 6612 6617 6655 6664 6697 6714 6786 6837 6864 7063 7094 7137 7191 7314 7492 7746 8758 8788 8831 DP18 992 # 2567 2934 2941 3371 6287 6540 6745 6835 7169 7170 8035 8789 8791 8826 EXECUTE 1001 # 8508 FPD 986 # 4485 5016 5022 5036 6645 INT 988 # 5504 6388 8707 8749 8959 8965 IOLGL 980 # 2625 3786 3789 IOT 993 # JFCL 994 # 3870 KERNEL 985 # 3779 3783 3784 3791 3929 3931 7341 LE 989 # 3580 3592 3685 3697 4707 5355 5710 6039 6694 7769 8576 LLE 981 # SC 1000 # 2337 3195 3197 3275 3277 3279 3283 3301 3310 3317 3349 3351 3353 3357 3374 3376 3379 3385 4565 4578 4584 4592 4602 4610 4870 4873 4914 5272 5292 5394 5639 5641 5750 5775 5778 5781 5785 5899 5901 5950 5953 5960 5979 6680 6825 6831 7025 7034 7563 7581 7916 7933 8129 8162 8355 8785 TRAP CYCLE 997 # 8753 8930 TXXX 996 # 3529 -1 MS 1004 # 5480 6383 7817 -CONTINUE 1003 # 8510 -IO BUSY 1002 # 8337 8343 8352 8360 (U) SKIP HIGH 1418 # (U) SKIP LOW 1419 # (U) SPEC 863 # 2763 2769 2886 2888 2922 2928 2936 2938 2957 2959 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 4437 4443 4466 4468 APR EN 877 # 2315 7457 7570 APR FLAGS 875 # 7462 7466 7786 ASHOV 884 # 3197 3316 3319 CLR IO BUSY 867 # 8097 8103 8134 8140 CLR IO LATCH 866 # 8110 8148 8339 8345 8354 8359 CLRCLK 865 # 7743 7818 8751 CLRCSH 876 # 7911 7912 7915 EXPTST 885 # 5837 5853 6185 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 260 ; CROSS REFERENCE LISTING FLAGS 886 # 2370 2371 2772 3650 3666 3734 3749 3808 3809 3813 3814 3869 3891 3892 3986 3998 4055 4086 4090 4106 4112 4314 4315 4316 4369 4383 4401 4411 4414 4445 4446 4470 4521 4533 4544 4547 4657 4692 4724 4811 4963 4965 5032 5049 5073 5330 5694 5706 5773 6064 6746 6747 7361 7999 8026 8941 INHCRY18 881 # 3758 3976 4024 4053 4074 4079 5363 5444 LDACBLK 887 # 2312 7507 LDINST 888 # 2426 3940 7357 8522 LDPAGE 868 # 7899 8888 8897 LDPI 883 # 3880 7884 7976 8577 LDPXCT 870 # 3934 LOADIR 882 # 6268 LOADXR 873 # 2515 3800 3839 3860 5025 5044 5094 6269 6281 7220 7259 7261 7270 MEMCLR 878 # 2310 3881 7977 8375 8496 8570 8754 8774 NICOND 869 # 2382 2383 2385 2386 2466 2472 2715 3250 3298 3326 3571 3583 3676 3700 3701 3704 3705 3774 3775 3802 3865 4007 4085 4092 4532 4802 4805 5017 5786 5792 6154 7872 8155 PREV 872 # 8480 8488 PXCT OFF 880 # 2395 2398 2401 2413 2416 2419 2444 SWEEP 879 # 7928 7929 7932 WAIT 871 # 2601 # 864 # 8504 8507 8571 (U) SPEC HIGH 1412 # (U) SPEC LOW 1413 # (U) STATE 1083 # BLT 1085 # 5445 COMP-DST 1094 # 6478 CVTDB 1093 # 6526 DST 1090 # 6439 DSTF 1092 # 6376 EDIT-DST 1096 # 6497 6709 6736 6961 6988 8971 8975 EDIT-S+D 1097 # 6927 EDIT-SRC 1095 # 6471 6862 6923 8969 8977 8979 8983 SIMPLE 1084 # SRC 1089 # 6323 6353 6425 8973 SRC+DST 1091 # 6350 6431 (U) SWITCH% CIRC 5 463 3162 3164 3364 3390 4220 4222 4243 4246 FULL 460 1389 1391 2324 2344 2350 2354 4480 4549 4552 4703 4814 4817 4887 4953 5247 5401 5405 7564 7572 ITS 7 465 1086 1088 1109 1111 1119 1124 1129 1170 1173 1188 1191 1357 1359 1361 2303 2306 2308 3920 3923 3927 3944 3959 4202 4205 4228 4233 7387 7390 7488 7511 7557 7587 7601 7616 7625 7635 7645 7650 7652 7674 7677 7688 7705 7713 7715 7737 7756 7774 7782 7901 7906 7909 7918 7920 7922 7936 7938 7942 8624 9052 9059 9855 ITSIO 15 474 8077 8165 8170 8329 JPC 9 468 1144 1147 7660 7662 7668 7725 7727 7735 PCST 13 472 1148 1150 2321 2323 7396 7398 7400 7402 7404 7406 7418 7421 8756 8767 8770 SIM 457 2363 2368 2375 TEST 17 476 1PROC 11 470 1099 1102 1401 1405 2423 2429 2434 2437 2439 2447 2452 2525 2535 3806 3816 3826 3842 3846 8007 8019 8029 8945 8947 8949 8956 8960 9027 9030 9035 9040 9051 (U) T 1018 # 2T 1021 # 4728 4741 5631 5906 6488 6559 6623 6918 7059 7105 7819 3T 1022 # 2340 2604 2614 2772 3320 3529 3615 3650 3666 3758 3871 3980 4016 4024 4049 4053 4071 4076 4081 4119 4134 4369 4383 4489 4491 4510 4545 4685 4689 4740 4746 4747 4748 4766 4770 4791 4799 4881 4948 4965 5025 5040 5114 5132 5230 5275 5282 5364 5381 5385 5456 5458 5474 5485 5500 5590 5625 5660 5702 5734 5735 5738 5771 5774 5829 5831 5833 5835 5894 5895 5898 5900 6000 6001 6002 6047 6051 6053 6055 6063 6146 6152 6314 6332 6334 6385 6389 6453 6561 6575 6589 6621 6624 6710 6713 6745 6746 6774 6780 6783 6792 6818 6832 6860 6881 6882 7009 7017 7062 7123 7214 7221 7243 7258 7262 7265 7267 7304 7359 7492 7568 7574 7957 7982 7986 7995 7996 7997 8044 8048 8050 8884 8887 8894 8911 8953 4T 1023 # 3223 3734 3749 4396 4401 4408 4411 4413 5323 5328 6328 6359 6540 6545 6570 6611 6785 6834 6980 7107 7313 8576 8710 5T 1024 # 8342 8359 (D) TEST 1465 # 2743 2743 2744 2744 2748 2748 2749 2749 2753 2753 2754 2754 2758 2758 2759 2759 2779 2798 2798 2799 2799 2803 2803 2804 2804 2808 2808 2809 2809 2813 2813 2814 2814 2818 2818 2819 2819 2823 2823 2824 2824 2828 2828 2829 2829 2833 2833 2834 2834 2840 2840 2841 2841 2845 2845 2846 2846 2850 2850 2851 2851 2855 2855 2856 2856 2861 2861 2862 2862 2866 2866 2867 2867 2871 2871 2872 2872 2876 2876 2877 2877 2975 2999 2999 3000 3000 3009 3009 3010 3010 3019 3019 3020 3020 3029 3029 3030 3030 3034 3034 3035 3035 3044 3044 3045 3045 3051 3051 3052 3052 3062 3062 3063 3063 3072 3072 3073 3073 3082 3082 3083 3083 3092 3092 3093 3093 3102 3102 3103 3103 3113 3113 3114 3114 3124 3124 3125 3125 3134 3134 3135 3135 3144 3144 3145 3145 3639 3640 3641 3642 3643 3644 3645 3646 3655 3656 3657 3658 3659 3660 3661 3662 4363 4363 4364 4364 4377 4377 4378 4378 4427 4427 4428 4428 4452 4452 4453 4453 4623 4623 4624 4624 4628 4628 4629 4629 5007 5009 5603 5603 5604 5604 5607 5607 5608 5608 5611 5611 5612 5612 5615 5615 5616 5616 5649 5649 5650 5650 5654 5654 5655 5655 5679 5679 5680 5680 5684 5684 5685 5685 7622 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 261 ; CROSS REFERENCE LISTING (U) TRAP1 1215 # 4445 4446 4470 4533 4657 4692 4724 4811 5330 5694 5706 5773 6064 (U) TRAP2 1214 # 3998 4055 4086 4090 (U) UNCORRECTABLE MEMOR 8656 # (U) VECTOR CYCLE 1287 # 8039 (D) VMA 1467 # 2742 2747 2752 2757 2797 2802 2807 2812 2817 2822 2827 2832 2839 2844 2849 2854 2860 2865 2870 2875 2997 2998 3008 3018 3028 3033 3050 3061 3071 3081 3090 3091 3101 3112 3123 3133 3142 3143 3155 3156 3157 3159 3160 3161 3723 3738 3765 4064 4362 4376 4426 4451 4622 4627 (U) WAIT 1276 # 2382 2382 2383 2383 2385 2385 2386 2386 2406 2406 2424 2465 2465 2471 2471 2476 2482 2495 2505 2509 2513 2529 2531 2533 2542 2551 2554 2555 2583 2594 2595 2595 2607 2610 2614 2621 2621 2686 2719 2725 2730 2733 2784 2784 2785 2984 2984 2986 2990 2990 3227 3227 3571 3571 3583 3583 3651 3651 3652 3700 3700 3701 3701 3704 3704 3705 3705 3774 3774 3775 3775 3776 3781 3785 3788 3798 3802 3802 3829 3833 3837 3858 3865 3865 3885 3888 3889 3902 3902 3905 3905 3908 3913 3913 3934 3935 3973 3978 3978 3990 3996 4005 4005 4016 4019 4029 4029 4034 4034 4036 4042 4050 4056 4114 4114 4115 4126 4126 4144 4145 4265 4273 4274 4276 4281 4286 4286 4307 4311 4324 4328 4336 4336 4346 4346 4350 4354 4532 4532 5017 5017 5027 5027 5056 5056 5062 5062 5063 5077 5081 5085 5089 5091 5097 5221 5221 5222 5434 5464 5464 5471 5471 5478 5482 5492 5493 5508 5508 5513 5513 5551 5587 5587 5589 5594 6262 6278 6279 6281 6304 6455 6707 6708 6734 6808 6813 6870 6905 6905 6907 6952 6952 6954 6957 6986 6995 7116 7265 7266 7267 7268 7270 7284 7343 7345 7350 7352 7356 7403 7419 7490 7491 7655 7655 7656 7658 7661 7672 7672 7709 7710 7717 7718 7720 7723 7793 7794 7797 7822 7822 7825 7826 7826 7827 7834 7835 7872 7872 7892 7892 7893 7981 7993 7994 8022 8022 8042 8047 8048 8056 8098 8099 8117 8119 8135 8136 8152 8153 8155 8155 8368 8371 8373 8383 8385 8387 8479 8481 8487 8487 8499 8501 8502 8502 8514 8514 8520 8587 8588 8589 8590 8590 8591 8592 8595 8596 8597 8597 8598 8599 8600 8600 8601 8602 8603 8603 8604 8605 8606 8606 8607 8608 8609 8609 8610 8611 8613 8765 8766 8814 8815 8874 8874 8876 8912 9024 9025 9028 9028 9037 9047 (U) WORK 1107 # AC0 1176 # AC1 1177 # AC2 1178 # AC3 1179 # ADJBPW 1135 # 5347 5368 ADJP 1130 # 5280 5308 ADJPTR 1132 # 5014 5299 5362 ADJQ1 1133 # 5304 5322 ADJR2 1134 # 5314 5383 ADJS 1131 # 5294 5309 5374 APR 1137 # 2317 7436 7458 7470 7566 7571 BADW0 1108 # 8734 BDH 1161 # 6654 6729 6738 6760 BDL 1162 # 6652 6695 6735 6739 CMS 1158 # 6475 6487 6488 6498 DBR1 1120 # 7628 7654 7681 7719 8797 DBR2 1121 # 7630 7657 7683 7722 8799 DBR3 1122 # 7632 7685 8807 DBR4 1123 # 7634 7687 8805 DDIV SGN 1180 # DECHI 1185 # 2329 2331 6783 DECLO 1184 # 2328 2330 6774 DIV 1113 # DVSOR H 1181 # DVSOR L 1182 # E0 1153 # 6272 6705 6984 6994 E1 1154 # 6285 6288 6731 6916 6917 7097 7100 7105 7114 FILL 1157 # 6459 6482 6495 6979 7059 7065 7181 7286 FSIG 1159 # 6940 6942 HSBADR 1136 # 2309 7648 7711 8569 8575 MSK 1156 # 6336 6512 7106 MUL 1112 # PCST 1149 # 2322 7397 7420 8758 8763 PERIOD 1168 # 7773 7836 7841 QUAN 1171 # 7659 7726 7764 7765 SLEN 1155 # 6319 6344 6348 6365 6378 6395 6399 6427 6434 6530 6534 6537 6541 6710 6711 6713 6716 7093 7188 7192 7194 7312 7326 7330 SV.ARX 1116 # 6411 6416 8494 8567 8579 8594 8617 8703 8759 8906 8966 SV.AR 1115 # 6384 6414 8593 8614 8700 8915 SV.AR1 1193 # SV.BRX 1118 # 5521 6412 6417 7303 7318 7327 8704 8909 SV.BR 1117 # 6410 6415 8712 8721 8723 8725 8727 8737 8908 SV.VMA 1114 # 8340 8346 8348 8583 8612 8615 8706 8753 8757 8878 8930 TIME0 1166 # 2319 7750 7805 7815 TIME1 1167 # 2320 7742 7748 7802 7816 7819 8750 TRAPPC 1192 # 7340 8940 TTG 1169 # 7762 7771 7837 YSAVE 1187 # 3942 (D) WRITE 1468 # (U) WRITE CYCLE 1246 # 2529 2763 2769 2784 2886 2888 2922 2928 2936 2938 2957 2959 2984 2990 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 3651 3902 3905 3913 3978 4029 4034 4114 4126 4265 4273 4286 4336 4346 4369 4383 4437 4443 4466 4468 5056 5062 5221 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 262 ; CROSS REFERENCE LISTING 5464 5471 5508 5513 5587 5790 5794 5841 5864 6905 6952 7655 7672 7822 7826 7892 8022 8151 8159 8163 8487 8499 8502 8587 8590 8597 8600 8603 8606 8609 8765 8777 8779 8859 8874 8880 9024 9028 (U) WRITE TEST 1245 # 2529 2533 2763 2769 2784 2886 2888 2922 2928 2936 2938 2957 2959 2984 2990 3004 3014 3024 3056 3067 3087 3097 3108 3118 3149 3651 3902 3905 3913 3978 4029 4034 4114 4126 4265 4273 4286 4336 4346 4369 4383 4437 4443 4466 4468 5056 5062 5221 5464 5471 5508 5513 5587 5790 5794 5841 5864 6905 6952 7655 7672 7822 7826 7892 7978 7993 8022 8038 8047 8112 8115 8151 8159 8163 8487 8499 8502 8516 8587 8590 8597 8600 8603 8606 8609 8765 8775 8874 8881 9024 9028 9037 (U) WRU CYCLE 1283 # 7979 (U) # 1054 # 2294 2296 2298 2300 2307 2340 2355 2393 2397 2400 2412 2415 2418 2527 2611 2613 2626 2648 2649 2943 2945 2950 2952 2970 3249 3322 3324 3778 3787 3790 3792 3793 3794 3849 3854 3857 3863 3878 3879 3899 3912 3933 4023 4052 4117 4133 4226 4236 4238 4240 4242 4254 4257 4290 4295 4297 4300 4302 4333 4341 4348 4417 4418 4676 4714 4715 4725 4733 4779 4833 4859 4866 4959 5129 5276 5278 5283 5302 5306 5312 5316 5346 5351 5386 5390 5397 5455 5557 5562 5571 5576 5581 5632 5633 5636 5637 5662 5663 5667 5696 5697 5734 5738 5758 5759 5898 5900 5981 6001 6002 6021 6024 6053 6055 6229 6231 6233 6235 6237 6239 6241 6243 6245 6263 6266 6290 6307 6311 6450 6452 6511 6516 6523 6528 6535 6539 6555 6597 6613 6614 6620 6626 6647 6660 6662 6669 6674 6681 6684 6740 6754 6756 6763 6788 6794 6811 6823 6826 6834 6846 6849 6867 6883 6944 6955 6964 6966 6983 7003 7025 7030 7039 7042 7121 7143 7147 7151 7155 7159 7163 7173 7179 7280 7291 7359 7364 7374 7375 7376 7380 7381 7382 7383 7391 7392 7395 7401 7407 7408 7409 7410 7412 7415 7438 7439 7442 7443 7445 7448 7450 7452 7464 7474 7477 7481 7494 7498 7500 7502 7505 7567 7568 7569 7574 7575 7576 7582 7591 7597 7744 7784 7800 7855 7856 7904 7910 7925 7927 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7975 7986 7996 7997 8024 8044 8051 8105 8107 8121 8126 8130 8142 8144 8150 8362 8453 8457 8459 8461 8463 8465 8467 8504 8507 8518 8571 8695 8717 8719 8735 8787 8816 8834 8835 8883 8893 8896 9009 9010 9012 9013 9015 9016 9018 9019 (U) # HIGH 1421 # (U) # LOW 1422 # ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 263 ; LOCATION / LINE NUMBER INDEX ; DCODE LOC'N 0 1 2 3 4 5 6 7 D 0000 4210 6200 6201 6202 6203 6204 6205 6206 D 0010 6208 6209 6210 6211 6213 6214 6215 6216 D 0020 6218 6219 6220 6221 6222 6223 6224 6225 D 0030 4154 4155 4156 4157 4158 4159 4160 4161 D 0040 4165 4166 4167 4168 4169 4170 4171 4172 D 0050 4173 4174 4175 4176 4177 4178 4179 4180 D 0060 4181 4182 4183 4184 4185 4186 4187 4188 D 0070 4189 4190 4191 4192 4193 4194 4195 4196 D 0100 4200 4201 3921 3922 4211 4064 4212 4213 D 0110 5881 5882 5971 6033 4391 4392 4477 4700 D 0120 2965 2966 5765 6258 2974 2975 5766 5729 D 0130 4214 4215 5730 5006 5007 5008 5009 5010 D 0140 5602 4216 5603 5604 5605 5606 5607 5608 D 0150 5610 4217 5611 5612 5613 5614 5615 5616 D 0160 5648 4218 5649 5650 5652 5653 5654 5655 D 0170 5678 4219 5679 5680 5682 5683 5684 5685 D 0200 2741 2742 2743 2744 2746 2747 2748 2749 D 0210 2751 2752 2753 2754 2756 2757 2758 2759 D 0220 4425 4426 4427 4428 4450 4451 4452 4453 D 0230 4621 4622 4623 4624 4626 4627 4628 4629 D 0240 3155 3156 3157 3158 3159 3160 3161 3163 D 0250 2779 5448 3752 3753 3765 3767 3924 8691 D 0260 3965 3966 3967 3968 4098 4099 4100 4101 D 0270 4361 4362 4363 4364 4375 4376 4377 4378 D 0300 3595 3596 3597 3598 3599 3600 3601 3602 D 0310 3604 3605 3606 3607 3608 3609 3610 3611 D 0320 3709 3710 3711 3712 3713 3714 3715 3716 D 0330 3622 3623 3624 3625 3626 3627 3628 3629 D 0340 3723 3724 3725 3726 3727 3728 3729 3730 D 0350 3639 3640 3641 3642 3643 3644 3645 3646 D 0360 3738 3739 3740 3741 3742 3743 3744 3745 D 0370 3655 3656 3657 3658 3659 3660 3661 3662 D 0400 2997 2998 2999 3000 3007 3008 3009 3010 D 0410 3017 3018 3019 3020 3027 3028 3029 3030 D 0420 3032 3033 3034 3035 3042 3043 3044 3045 D 0430 3049 3050 3051 3052 3060 3061 3062 3063 D 0440 3070 3071 3072 3073 3080 3081 3082 3083 D 0450 3090 3091 3092 3093 3100 3101 3102 3103 D 0460 3111 3112 3113 3114 3122 3123 3124 3125 D 0470 3132 3133 3134 3135 3142 3143 3144 3145 D 0500 2796 2797 2798 2799 2801 2802 2803 2804 D 0510 2806 2807 2808 2809 2811 2812 2813 2814 D 0520 2816 2817 2818 2819 2821 2822 2823 2824 D 0530 2826 2827 2828 2829 2831 2832 2833 2834 D 0540 2838 2839 2840 2841 2843 2844 2845 2846 D 0550 2848 2849 2850 2851 2853 2854 2855 2856 D 0560 2859 2860 2861 2862 2864 2865 2866 2867 D 0570 2869 2870 2871 2872 2874 2875 2876 2877 D 0600 3417 3418 3419 3420 3421 3422 3423 3424 D 0610 3426 3427 3428 3429 3430 3431 3432 3433 D 0620 3435 3436 3437 3438 3439 3440 3441 3442 D 0630 3444 3445 3446 3447 3448 3449 3450 3451 D 0640 3454 3455 3456 3457 3458 3459 3460 3461 D 0650 3463 3464 3465 3466 3467 3468 3469 3470 D 0660 3471 3472 3473 3474 3475 3476 3477 3478 D 0670 3480 3481 3482 3483 3484 3485 3486 3487 D 0700 7370 7371 7622 8395 8473 8474 8396 8397 D 0710 8080 8081 8082 8083 8084 8085 8399 8400 D 0720 8087 8088 8089 8090 8091 8092 8402 8403 D 0730 8405 8406 8407 8408 8409 8410 8411 8412 D 0740 8414 8415 8416 8417 8418 8419 8420 8421 D 0750 8423 8424 8425 8426 8427 8428 8429 8430 D 0760 8432 8433 8434 8435 8436 8437 8438 8439 D 0770 8441 8442 8443 8444 8445 8446 8447 8448 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 264 ; LOCATION / LINE NUMBER INDEX ; UCODE LOC'N 0 1 2 3 4 5 6 7 U 0000 2294: 8567: 2295 2307: 8507: 8510: 2339= 2340= U 0010 2333= 8569: 2335= 2442= 2385= 2386= 2296 2449= U 0020 2343= 2347= 2450= 2451= 2586= 2590= 2605= 2608= U 0030 2297 2355= 2626= 2627= 2648= 2649= 2730= 2733= U 0040 2542: 2547: 2551: 2560: 2566: 2573: 2579: 2583: U 0050 2594: 2601: 2625: 2298 3197= 3201= 3226= 3229= U 0060 2300 2393= 2397= 2400= 3798= 2403= 3802= 2405= U 0070 2309 2412= 2415= 2418= 4274= 2421= 4276= 2424= U 0100 4433= 2463= 4461= 2469= 4435= 2475= 4463= 2481= U 0110 3807= 2490= 3812= 2494= 3827= 2503= 3832= 2508= U 0120 3245= 3248= 3279= 3280= 3283= 3284= 3296= 3298= U 0130 3302= 3305= 3308= 3311= 3315= 3318= 2310 7428: U 0140 3322= 3324= 3353= 3354= 3357= 3358= 3374= 3375= U 0150 3381= 3382= 3387= 3388= 3529= 3532= 3535= 3538= U 0160 3635= 3636= 3700= 3701= 3704= 3705= 3844= 3845= U 0170 3571= 3574= 3577= 3580= 3583= 3586= 3589= 3592= U 0200 3849= 3850= 3854= 3855= 3899= 3900= 3912= 3913= U 0210 3676= 3679= 3682= 3685= 3688= 3691= 3694= 3697= U 0220 3857= 3858= 4498= 3863= 3933= 3934= 4500= 3864= U 0230 3902= 2312 3990= 3996= 3904= 3907= 2315 3865= U 0240 3878= 3879= 4027= 4032= 8112= 3880= 4055= 4056= U 0250 4003= 4006= 4008= 2317 8115= 3881= 4073= 4078= U 0260 4085= 4086= 4090= 4092= 4259= 4261= 4263= 4267= U 0270 4128= 2319 4268= 4271= 4130= 4133= 4296= 4299= U 0300 4278= 2320 4281= 4286= 4301= 4304= 2322 4290= U 0310 4324= 2325 4326= 4328= 4399= 4403= 4410= 4413= U 0320 4417= 4418= 4436= 4437= 4441= 4443= 4445= 4446= U 0330 4465= 4467 4468= 4469= 4524= 4525= 4532= 4533= U 0340 4489= 4491= 4508= 4510= 4493= 4754= 4512= 4755= U 0350 4518= 4542= 4583= 4587= 4520= 4544= 4591= 4595= U 0360 4637= 4639= 4601= 4605= 4664= 4666= 4609= 4613= U 0370 4648= 4652= 4683= 4687= 4655= 4657= 4658= 2326 U 0400 4344: 2327 4692= 4693= 4673= 4676= 2328 4678= U 0410 4708= 4710= 4712= 4714= 4722= 4724= 4730= 4732= U 0420 4738= 4740= 4741= 4743= 4746= 4747= 4748= 4749= U 0430 4758= 4759= 4774= 4775= 4761= 2329 4765= 4734= U 0440 4784= 4785= 4801= 4803= 4854= 4855= 4856= 4857= U 0450 4862= 4864= 4873= 4874= 4877= 4878= 4767= 4769= U 0460 4902= 4905= 4915= 4922= 4937= 4938= 4942= 4943= U 0470 4947= 4948= 4962= 4964= 5028= 4793= 5032= 4795= U 0500 4969= 4970= 5271= 5274= 5043= 5046= 2330 5049= U 0510 4832= 2331 5291= 5294= 4836= 4837= 4838= 4839= U 0520 5014= 5016= 5296= 5299= 5301= 5017= 5304= 2332 U 0530 5076= 5987= 5080= 4810= 5084= 5991= 5088= 4811= U 0540 5056= 5057= 5058= 5059= 5137= 5311= 5139= 5314= U 0550 5114= 5119= 5120= 2336 5121= 5122= 2337 5123= U 0560 5214= 5215= 5216= 2369 5217= 5218= 8121= 5219= U 0570 5325= 5330= 5357= 5366= 5345= 5347= 8122= 5350= U 0600 5393= 5396= 5375= 5665= 5433= 5437= 5377= 5667= U 0610 5463= 5468= 5478= 5482= 5486= 5488= 5498= 5499= U 0620 5501= 5503= 5505= 5510= 5548= 5627= 5550= 5628= U 0630 5558= 5560= 2372 5562= 5591= 5592= 5554= 5556= U 0640 5577= 5579= 2513= 5581= 5632= 5633= 5636= 5637= U 0650 5641= 5642= 5662= 5663= 5692= 5694= 5696= 5697= U 0660 5702= 5703= 5705= 5706= 5708= 5710= 5735= 5736= U 0670 5738= 5740= 5742= 5743= 5749= 5751= 5758= 5759= U 0700 5773= 5775= 5774= 5776= 5712= 5713= 5780= 5782 U 0710 5785= 5786= 5792= 5793 5715= 5716= 5718= 5720= U 0720 5794= 5795= 2517= 5789= 5840= 5841= 5844= 5846= U 0730 5859= 5860= 5869= 5790= 5861= 5862= 5870= 5721= U 0740 5828= 5829= 5830= 5831= 5832= 5833= 5834= 5835= U 0750 5836= 2527= 2528= 5874= 5898= 5900= 5837= 5875= U 0760 5848= 5992= 5849= 2530= 5850= 5993= 5851= 5855= U 0770 5852= 2531= 5903= 5905= 5910= 5911= 5853= 5856= U 1000 5918= 5919= 6004= 5945= 5960= 5961= 6005= 5872= U 1010 5978= 5980= 6001= 6002= 6022= 6023= 2532= 5873= U 1020 6010= 6263= 2553 5947= 6015= 6265= 6025= 6026= U 1030 6042= 6044= 6179= 5929= 6053= 6054= 6182= 5930= U 1040 6061= 6063= 2555 6017= 6064= 6065= 6081= 6082= U 1050 6112= 6115= 5952= 5954= 6119= 6120= 5956 5957 U 1060 6066= 2561 6067= 6019= 6123= 6125= 6038= 6039= U 1070 6068= 2574 6071= 5963= 6151= 6152= 2575 5964= U 1100 6129= 6307= 6132= 6450= 6134= 6309= 6136= 6451= U 1110 6138= 2611 2613 6076= 6157= 6160= 6140= 6079= U 1120 6091= 6094= 6095= 6097= 6098= 6100= 6101= 6103= U 1130 6104= 2614 6169= 6170= 6288= 6290= 6106= 2617 U 1140 6142= 2618 6144= 6146= 6310= 6314 6316= 6318= U 1150 6361= 6362= 6185= 6186= 2621 6334= 6190= 6335= U 1160 6344= 6346= 6367= 6368= 6348= 6350= 2785 6353= U 1170 6275= 6413= 6276= 6414= 6278= 6517= 6279= 6519= U 1200 6375= 6376= 2920 6378= 6384= 6385= 6387= 6390= ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 265 ; LOCATION / LINE NUMBER INDEX ; UCODE LOC'N 0 1 2 3 4 5 6 7 U 1210 6394= 6395= 6397= 6399= 6401= 6403= 6285= 6287= U 1220 6427= 6429= 6431= 6452= 6454= 6455 6434= 6453= U 1230 6438= 6439= 2926 6440= 6323= 6324= 6325= 6327= U 1240 6456= 6459= 6467= 6469= 6471= 6473= 6475= 2986 U 1250 6481= 6482= 6484= 2987 6495= 6496= 6501= 6503= U 1260 6520= 6522 6534= 6535= 6541= 6545= 6537= 6539= U 1270 6548= 6550= 6552= 3108 6556= 6557= 6526= 6527= U 1300 6559= 6561= 6596= 6597= 6608= 6610= 6613= 6614= U 1310 6567= 6569= 6616= 6618= 3178 6572= 6623= 6624= U 1320 6574= 6575= 6626= 6628= 3190 6578= 6636= 6637= U 1330 6585= 6586= 6588= 6811= 6646= 6649= 6591= 6813= U 1340 6652= 6662= 6654= 6663= 6657= 6659= 6666= 6667 U 1350 6672= 6673= 6683= 6686= 6689= 6691= 6695= 6697= U 1360 6778= 6677= 6780= 6679= 6698= 6703= 8150= 6681= U 1370 6715= 6716= 6741= 6742= 6746= 6747= 8151= 6718= U 1400 2382: 2383: 2763: 2766: 2769: 2771: 2783: 2886: U 1410 2888: 2914: 2916: 2919: 2922: 2925: 2928: 2934: U 1420 2936: 2938: 2941: 2948: 2943: 2945: 2950: 2952: U 1430 2955: 3650: 2957: 2959: 2970: 3194 2971: 3666: U 1440 3720: 3004: 3014: 3024: 3039: 3056: 3067: 3077: U 1450 3087: 3097: 3107: 3118: 3129: 3139: 3149: 4396: U 1460 8097: 8134: 3223: 3212 3275: 3276: 3293: 6262: U 1470 3349: 3350: 3513: 3515: 3518: 3520: 3615: 3633: U 1500 6751= 6754= 6755= 6756= 2676: 2681: 2686: 3213 U 1510 6757= 6758= 6774= 6776= 2710: 2714: 2719: 2725: U 1520 3774: 3775: 3776: 3778: 3779: 3781: 3783: 3784: U 1530 3785: 3787: 3788: 3790: 3791: 3792: 3793: 3794: U 1540 3869: 3938: 3749: 3973: 3985: 4014: 4047: 3757: U 1550 4105: 4068: 4111: 8695: 4125: 4141: 4253: 4341: U 1560 4368: 4382: 6782= 6783= 3215 2980: 4482: 2982: U 1570 5659: 4458: 6788= 6790= 5690: 3217 5622: 5625: U 1600 4634: 4643: 6727= 7059= 6794= 6796= 6729= 7061= U 1610 5013: 3734: 3171: 3174: 8103: 4408: 5734: 3218 U 1620 5022: 5755: 3187: 3188: 5024: 5027: 5770: 4705: U 1630 5036: 5976: 3207: 3210: 5038: 5891: 6036: 5894: U 1640 5452: 4431: 5453: 5455: 8140: 3231 6816= 6818 U 1650 8453: 8455: 8457: 8459: 8461: 8463: 8465: 8467: U 1660 4242: 4226: 3929: 3931: 4236: 3367: 4238: 4240: U 1670 6825= 6826= 6831= 6832= 6859= 6860= 6733= 6735= U 1700 7425: 7374: 7375: 7376: 7436: 7470: 7377: 7378: U 1710 7380: 7381: 7382: 7383: 7851: 7848: 7384: 7385: U 1720 7904: 7589: 7898: 7490: 7561: 7579: 7391: 7392: U 1730 7395: 7397: 7401: 7403: 7407: 7408: 7409: 7410: U 1740 6229: 6231: 6233: 6235: 6237: 3249 6239: 6241: U 1750 6243: 6245: 6885= 6886= 8478: 8486: 6895= 6896= U 1760 7628: 7630: 7632: 7634: 7809: 7841: 7648: 7654: U 1770 7681: 7683: 7685: 7687: 7793: 7834: 7709: 7717: U 2000 6736= 3250 6903= 6905= 3277 6914= 6737= 6916= U 2010 6935= 6936= 6955= 6957= 6820= 6821= 6822= 6823= U 2020 7245= 6834= 7247= 6837= 7259= 6840= 7260= 6842= U 2030 7265= 6844= 7266= 6846= 7267= 6849= 7268= 6852= U 2040 6917= 3285 6920= 6923= 6925= 6927= 3286 6930= U 2050 6861= 6862= 6864= 6866= 6869= 6870= 6940= 6942= U 2060 6960= 6964= 6979= 6982= 6984= 6986= 6966= 3299 U 2070 6988= 6990= 7003= 7006= 7027= 7030= 6991= 3320 U 2100 7034= 7035= 7064= 7065= 7093= 7096= 7097= 3326 U 2110 7117= 7121= 7123= 7126= 7169= 7172= 7099= 7100= U 2120 7751= 7137= 7753= 7140= 8570= 7142= 8571= 7146= U 2130 8105= 7150= 8142= 7154= 8107= 7158= 8144= 7162= U 2140 7192= 7194= 7210= 7212= 8588= 7215= 8589= 7216= U 2150 7220= 7222= 7240= 7242= 7176= 7178= 7181= 7183= U 2160 7299= 7301= 7307= 7309= 7316= 7317= 7318= 7320= U 2170 7342= 7349= 9028= 7187= 7361= 7364= 9036= 7188= U 2200 7444= 7445= 7446= 7447= 7449= 7450= 7451= 7452= U 2210 7453= 7455= 7493= 7497= 7501= 7504= 7563= 7566= U 2220 7569= 7570= 7575= 7576= 7581= 7582= 7657= 7658= U 2230 7659= 7661= 7720= 7722= 7723= 7726= 7748= 7750= U 2240 7762= 7764= 7771= 7773= 7796= 7799= 3351 7802= U 2250 7814= 7815= 7852= 7853= 7818= 7821= 7823= 3368 U 2260 7855= 7856= 7859= 7860= 7861= 7862= 7863= 7864= U 2270 7865= 7866= 7867= 7868= 7914= 7921= 7925= 7927= U 2300 7869= 7870= 7931= 7937= 7978= 7981= 7984= 7985= U 2310 3369 7872= 7997= 7998= 8036= 8038= 8040= 8042= U 2320 8021= 8022= 8044= 8046= 3370 8024= 8050= 8052= U 2330 7956= 7959= 7960= 7961= 7962= 7963= 7964= 7965= U 2340 8067= 8068= 8071= 8072= 8117= 8119 8125= 8126= U 2350 8129= 8130= 8153= 8155= 8158= 8159 8162= 8163= U 2360 8339= 8342= 8345= 8348= 8354= 8356= 8359= 8362= U 2370 8502= 8504= 8513= 8516= 8517= 8520= 8577= 8579= U 2400 8591= 8593= 8592= 8594= 8494= 8595= 3376 8596= U 2410 8598= 8601= 8599= 8602= 8496= 8604= 8499= 8605= ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 266 ; LOCATION / LINE NUMBER INDEX ; UCODE LOC'N 0 1 2 3 4 5 6 7 U 2420 8607= 8610= 8608= 8611= 8612= 3378 8613= 3379 U 2430 8738= 8740= 8759= 8760= 8750= 8753= 8754= 3384 U 2440 8709= 8712= 3385 8714= 3543 8717= 3544 8719= U 2450 8721= 8723= 8725= 8727= 8762= 8763= 8776= 8778= U 2460 8784= 8786= 8789= 8791= 8797= 8799= 8805= 8807= U 2470 8817= 8819= 8834= 8835= 8839= 8843= 8847= 8851= U 2500 8860= 8861= 8929= 8930= 8938= 8940= 8946= 8951= U 2510 8958= 8959= 8991= 8995= 9000= 9001= 9003= 9004= U 2520 8965= 8966= 3651 8969= 8971= 8973= 8975= 8977= U 2530 8979= 8981= 8982= 8983= 9006= 9007= 9009= 9010= U 2540 9012= 9013= 9015= 9016= 9018= 9019= 9044= 9047= U 2550 3652 3804 3837 3843 3851 3885 3886 3889 U 2560 3891 3893 3914 3935 3942 3975 3998 4019 U 2570 4022 4036 4042 4051 4070 4106 4113 4115 U 2600 4117 4127 4142 4143 4145 4257 4292 4293 U 2610 4294 4311 4313 4332 4336 4347 4350 4352 U 2620 4404 4416 4432 4439 4459 4460 4464= 4483 U 2630 4484 4501= 4503= 4514 4523 4526 4527 4528 U 2640 4529 4530 4538 4539 4540 4547= 4563 4564 U 2650 4577 4635 4644 4645 4646 4670 4671 4706 U 2660 4715 4717 4718 4725 4726 4728 4753 4756= U 2670 4757= 4760 4766 4770 4773 4777 4779 4780 U 2700 4782 4786 4788 4789 4791 4796= 4799 4804 U 2710 4813= 4853 4859 4860 4865 4867 4868 4869 U 2720 4870 4875 4879 4880 4881 4909 4933 4934 U 2730 4939 4944 4950 4951 4952 4959 4960 4968 U 2740 5039 5042 5062 5063 5071 5073 5091 5097 U 2750 5128 5141 5143 5146 5147 5148 5151 5152 U 2760 5221 5222 5225 5226 5229 5230 5231 5232 U 2770 5234 5239 5240 5241 5242 5268 5277 5280 U 3000 5281 5284 5286 5305 5308 5309 5310 5315= U 3010 5317= 5354 5368 5372 5374 5384= 5387= 5389 U 3020 5399 5432 5439 5440 5441 5443 5445 5458 U 3030 5470 5473 5484 5489 5493 5520 5521 5523 U 3040 5551 5564 5566 5568 5569 5570 5572 5573 U 3050 5574 5575 5583 5585 5586 5587 5589 5590 U 3060 5593 5629= 5630= 5631 5639 5664 5669= 5670= U 3070 5698 5699 5700 5723 5747 5756 5757 5778= U 3100 5863= 5864= 5892 5895 5912 5915 5917 5920 U 3110 5924 5926 5931= 5933= 5935= 5948= 5949= 5965= U 3120 5981 5982 5986 5994 5998 6006= 6020= 6021 U 3130 6024 6045 6046 6050 6055 6056 6057 6073 U 3140 6108 6111 6121 6149 6153 6156 6162 6267= U 3150 6269= 6272 6273 6281 6319 6331 6332 6336= U 3160 6358 6365 6366 6369 6382 6400 6406 6410 U 3170 6411 6412 6415= 6416 6417 6424 6425 6442 U 3200 6443 6470 6477 6478 6479 6486 6488 6489 U 3210 6490 6491 6492 6497 6498 6512 6514 6515 U 3220 6530 6555 6558 6580 6598 6602 6603 6611 U 3230 6615 6620 6621 6629 6638 6650 6651 6668 U 3240 6692 6693 6704 6705 6706 6708 6709 6710 U 3250 6711 6713 6720 6724 6731 6738 6739 6740 U 3260 6743 6744 6745 6760 6762 6784 6785 6791 U 3270 6792 6814= 6815= 6829 6879 6881 6882 6907 U 3300 6908 6943 6951 6952 6953 6954 6969 6994 U 3310 6995 7007 7008 7016 7017 7018 7019 7020 U 3320 7021 7024 7037 7038 7041 7043 7045 7062= U 3330 7105 7106 7114 7115 7190= 7213 7217= 7219 U 3340 7239 7258 7261 7262 7270 7271 7284 7286 U 3350 7290 7303 7304 7312 7313 7321 7324 7326 U 3360 7327 7328 7330 7332 7339 7340 7356 7358 U 3370 7412 7413 7415 7416 7419 7420 7437 7439 U 3400 7440 7441 7443 7448 7456 7458 7461 7463 U 3410 7465 7471 7473 7476 7479 7480 7482 7491 U 3420 7500 7506 7567 7568 7571 7573 7574 7583 U 3430 7590 7595 7596 7655 7656 7672 7710 7711 U 3440 7718 7719 7742 7744 7745 7746 7757 7765 U 3450 7768 7783 7784 7785 7794 7805 7810 7811 U 3460 7812 7816 7825 7826 7827 7835 7836 7837 U 3470 7857 7858 7881 7882 7883 7884 7892 7893 U 3500 7900 7905 7910 7912 7929 7944 7966 7967 U 3510 7968 7969 7970 7971 7972 7974 7976 7977 U 3520 7986 7988 7993 7994 7996 7999 8025 8026 U 3530 8034 8048 8053 8054 8070 8099 8110 8136 U 3540 8147= 8152= 8335 8351 8368 8371 8373 8375 U 3550 8377 8379 8381 8383 8385 8387 7280: 7281: U 3560 8389 8481 8489 8501 8575 8582 8583 8587 U 3570 8590 8597= 8600 8603= 8606= 8609 8614 8615 U 3600 8616 8617 8703 8704 8705 8706 8734 8735 U 3610 8737 8744 8745 8749 8757 8758 8761 8764 U 3620 8765 8766 8774 8775 8781 8788 8814 8815 ; DSK: KSHACK; ITS MCR 22:17:29 16-JAN-87 MICRO 116 KS10 MICROCODE FOR ITS PAGE 267 ; LOCATION / LINE NUMBER INDEX ; UCODE LOC'N 0 1 2 3 4 5 6 7 U 3630 8816 8823 8828 8858 8873 8876 8878 8879 U 3640 8882 8884 8886 8889 8892 8894 8895 8898 U 3650 8906 8908 8909 8910 8915 8941 8953 9023 U 3660 9025 9042= 9043= 9049 U 3670 U 3700 U 3710 U 3720 U 3730 U 3740 6449: 6808: 6511: 6644: 6302: U 3750 6810: 6306: U 3760 U 3770 3579� U 4000 2294� 2295 NO ERRORS DETECTED END OF MICRO CODE ASSEMBLY USED 295.00 SECONDS @ rtl/cpu/useq/RCS/useq.v,v0000444000175100010010000005220112051705002013637 0ustar RobNonehead 1.12; access; symbols; locks; comment @# @; 1.12 date 2012.11.17.12.58.40; author Rob; state Exp; branches; next 1.11; 1.11 date 2012.11.16.20.31.22; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.09.20.41.24; author E721269; state Exp; branches; next 1.9; 1.9 date 2012.11.08.20.38.20; author E721269; state Exp; branches; next 1.8; 1.8 date 2012.11.07.07.12.20; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.03.05.26.51; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.01.05.37.23; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.20.02.15.33; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.12.03.06.28; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.01.38.08; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.03.21.28; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.40.43; author Rob; state Exp; branches; next ; desc @Microcontroller @ 1.12 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `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. Done this way, the address constants are obvious // and not embedded in the logic: therefore the intent is more // evident. 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 // 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 // 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'b000_000_000_000 : (pageFAIL) ? 12'b111_111_111_111 : (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 @ 1.11 log @*** empty log message *** @ text @d156 18 d176 1 a176 1 always @@(dromAEQJ, dromACDISP, dromJ, dromA, regIR_AC) d179 1 a179 4 if (dromACDISP) dispAREAD = {dromJ[0:7], regIR_AC}; // 1400 to 1777 (4 upper address were hardwired) else dispAREAD = {dromJ[0:7], dromJ[8:11]}; // 1400 to 1777 (4 upper address were hardwired) d195 1 a195 1 .dispJ(dromJ), d208 1 a208 1 @ 1.10 log @*** empty log message *** @ text @d193 1 a193 1 d195 1 a195 1 // CROM Reset d197 1 a197 1 // Details: d200 1 a200 1 // be handled explicitly. This synchronizes the reset negation. d202 1 a202 15 // Notes: // This implementation is different than the KS10 implementation. // reg reset; always @@(posedge clk or posedge rst) begin if (rst) reset <= 1'b1; else if (clken) reset <= 1'b0; end; // // Address 'MUX' d204 8 a211 3 // Details // Per comments above, this mux is modified to force the CROM // address to zero at reset. d213 2 a214 1 // The Microcode should begin execution at address o0000. d216 2 a217 2 // The Page Fail address is hard coded to address o3777 // in the microcode. d220 8 a227 4 // Note that the microcode address space is 12-bits but only // 11-bits (2048 microcode words) are actually implemented. // That will allow us to double the amount of microcode without // changing the micro-architecture. d244 1 a244 1 assign addr = (reset) ? 12'b000_000_000_000 : @ 1.9 log @*** empty log message *** @ text @d6 1 a6 1 //! Microcontroller d93 8 @ 1.8 log @*** empty log message *** @ text @d156 1 a156 1 dispAREAD = dromJ; // 1400 to 1777 (4 upper address were hardwired) @ 1.7 log @*** empty log message *** @ text @d82 1 a82 1 d95 8 a102 6 SKIP uSKIP(.crom(crom), .skip40(skip40), .skip20(skip20), .skip10(skip10), .skipADDR(skipADDR)); d106 2 d136 1 d166 19 a184 17 DISPATCH uDISPATCH(.crom(crom), .dp(dp), .dispDIAG(dispDIAG), .dispRET(dispRET), .dispJ(dromJ), .dispAREAD(dispAREAD), .dispMUL(dispMUL), .dispPF(dispPF), .dispNI(dispNI), .dispBYTE(dispBYTE), .dispEA(dispEA), .dispSCAD(dispSCAD), .dispNORM(dispNORM), .dispDROM_A(dromA), .dispDROM_B(dromB), .dispADDR(dispADDR)); d187 4 a190 1 // The CROM registers have been absorbed by the synchronous FPGA ROM. d192 4 a195 1 // be handled exlicitly. This synchronizes the reset negation. d206 1 a206 1 a208 2 // Per comments above, this mux is modified to force the // CROM address to zero at reset. d210 14 a223 6 // The Page Fail address is hard coded to o1777 in the // microcode. Note that the microcode address space is // 12-bits but only 11-bits (2048 microcode words) are // actually implemented. That will allow us to double // the amount of microcode without changing the micro- // architecture. d225 1 d240 2 a241 2 assign addr = (reset) ? 12'b000_000_000_000 : (pageFAIL) ? 12'b111_111_111_111 : d248 33 a280 5 CROM uCROM(.clk(clk), .clken(clken), .rst(rst), .addr(addr), .crom(crom)); d286 9 a294 6 STACK uSTACK(.clk(clk), .rst(rst), .clken(clken), .crom(crom), .addrIN(addr), .addrOUT(dispRET)); @ 1.6 log @*** empty log message *** @ text @d19 1 a19 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.5 log @*** empty log message *** @ text @d9 1 a9 1 //! This file implements the KS10 microcontroller. d12 1 a12 1 //! microcontroller.v d49 4 a52 4 module microcontroller(clk, rst, clken, page_fail, dp, dispDIAG, dispMUL, dispPF, dispNI, dispBYTE, dispEA, dispSCAD, dispNORM, skip40, skip20, skip10, ac, drom, crom); d60 1 a60 1 input page_fail; // Page Fail d73 1 a73 1 input [0: 3] ac; // Accumulator d78 6 d109 1 a109 1 // it's thing. The optimizer will determen that these lines d111 1 a111 1 // constants. Done this way, the address constants are obvious d145 1 a145 1 always @@(dromAEQJ, dromACDISP, dromJ, dromA, ac) d149 1 a149 1 dispAREAD = {dromJ[0:7], ac[0:3]}; // 1400 to 1777 (4 upper address were hardwired) d180 15 d196 2 d199 24 a222 15 // CRA1/E24 // CRA1/E26 // CRA1/E18 // CRA1/E25 // CRA1/E35 // CRA1/E9 // CRA1/E186 // CRA1/E174 // CRA1/E183 // CRA1/E184 // CRA1/E121 // CRA1/E111 // assign addr = (page_fail) ? 12'b111_111_111_111 : (dispADDR | skipADDR | `cromJ); @ 1.4 log @*** empty log message *** @ text @d70 3 a72 3 input [0: 7] skip40; // Skip 40 input [0: 7] skip20; // Skip 20 input [0: 7] skip10; // Skip 10 d190 1 a190 1 assign addr = (page_fail) ? 12'b111_111_111_111 : dispADDR | skipADDR | `cromJ; @ 1.3 log @*** empty log message *** @ text @d143 1 a143 1 dispAREAD = {dromJ[0:7], ac[9:12]}; // 1400 to 1777 (4 upper address were hardwired) @ 1.2 log @*** empty log message *** @ text @d9 1 a9 2 //! //! \todo d46 7 a52 1 `include "microcontroller.vh" a53 4 module microcontroller(clk, rst, clken, disp_diag, disp_mul, disp_pf, disp_ni, disp_byte, disp_ea, disp_scad, skip_40, skip_20, skip_10, drom, crom); d57 19 a75 15 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:11] disp_diag; // Diagnostic Addr input [0: 3] disp_mul; // Multiply Dispatch input [0: 3] disp_pf; // Page Fail Dispatch input [0: 3] disp_ni; // Next Instruction Dispatch input [0: 3] disp_byte; // Byte Size/Position Dispatch input [0: 3] disp_ea; // Effective Address Mode Dispatch input [0: 3] disp_scad; // SCAD Dispatch input [0: 7] skip_40; // Skip 40 input [0: 7] skip_20; // Skip 20 input [0: 7] skip_10; // Skip 10 input [0:dromWidth-1] drom; // Dispatch ROM Data output [0:cromWidth-1] crom; // Control ROM Data d82 1 a82 15 wire [0:11] disp_ret; // Note: // The KS10 logic decodes "x0xx01" (CRA2/E34) but only // 001 and 041 are used by the microcode. // 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 d85 1 a85 1 // Page Fail d88 1 a88 5 wire page_fail = 1'b0; // // Skip Logic // a89 1 wire [0:11] skip_addr; d91 4 a94 4 .skip_40(skip_40), .skip_20(skip_20), .skip_10(skip_10), .skip_addr(skip_addr)); d99 1 a99 1 // In the KS10, the J value is constained to be between 1400 d103 49 a151 1 // it's thing. d154 1 a154 4 wire [0:11] disp_addr; wire dromAEQJ = 1'b0; wire [0:11] dromJ = `dromJ; wire [0: 7] disp_aread = (`dromAEQJ) ? 8'b00_00_0010 : {4'b00_11, dromJ[4:7]}; d157 32 a188 11 .disp_diag(disp_diag), .disp_ret(disp_ret), .disp_j(dromJ[0:7]), .disp_aread(disp_aread), .disp_mul(disp_mul), .disp_pf(disp_pf), .disp_ni(disp_ni), .disp_byte(disp_byte), .disp_ea(disp_ea), .disp_scad(disp_scad), .disp_addr(disp_addr)); d190 1 a190 7 // // Address MUX // assign addr = (rst) ? 12'b000_000_000_000 : (page_fail) ? 12'b111_111_111_111 : disp_addr | skip_addr | crom[`cromJ]; a191 1 d195 1 a195 1 d198 1 d205 1 a205 1 d209 4 a212 5 .call(`cromCALL), .ret(ret), .addr_in(addr), .addr_out(disp_ret)); @ 1.1 log @Initial revision @ text @d50 2 a51 2 disp_mul, disp_pf, disp_ni, disp_byte, disp_ea, disp_scad, skip_40, skip_20, skip_10, drom, crom); d56 15 a70 15 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:11] disp_diag; // Diagnostic Addr input [0: 3] disp_mul; // Multiply Dispatch input [0: 3] disp_pf; // Page Fail Dispatch input [0: 3] disp_ni; // Next Instruction Dispatch input [0: 3] disp_byte; // Byte Size/Position Dispatch input [0: 3] disp_ea; // Effective Address Mode Dispatch input [0: 3] disp_scad; // SCAD Dispatch input [0: 8] skip_40; // Skip 40 input [0: 8] skip_20; // Skip 20 input [0: 8] skip_10; // Skip 10 input [0:dromWidth-1] drom; // Dispatch ROM Data output [0:cromWidth-1] crom; // Control ROM Data d77 1 a77 1 wire [0:11] ret_addr; d84 8 a91 8 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 d97 1 a97 1 wire page_fail = 1'b0; d112 6 d120 1 d122 2 a123 4 wire [0:11] dromJ = `dromJ; wire [0: 7] disp_aread = (dromAEQJ) ? {2'b00, dromAEQJ, dromAEQJ, dromJ} : {2'b00, dromAEQJ, dromAEQJ, 4'b0000}; d128 1 a128 1 .disp_j(disp_j), a140 2 d166 1 a166 1 .addr_out(ret_addr)); @ rtl/cpu/useq/RCS/stack.v,v0000444000175100010010000002343412052614122014000 0ustar RobNonehead 1.7; access; symbols; locks; comment @# @; 1.7 date 2012.11.20.05.42.40; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.11.08.20.38.09; author E721269; state Exp; branches; next 1.5; 1.5 date 2012.11.07.07.12.53; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.11.03.05.27.00; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.11.01.05.13.13; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.10.12.01.37.38; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.20.58.27; author Rob; state Exp; branches; next ; desc @Microsequencer Call/Return Stack @ 1.7 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// //! //! 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 // `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 @ 1.6 log @*** empty log message *** @ text @d101 1 a101 1 // Last Address d104 4 d116 1 a116 1 reg [0:11] lastADDR; d121 1 a121 1 lastADDR <= 12'b0; d123 1 a123 1 lastADDR <= addrIN; d188 1 a188 1 stack[wp] <= lastADDR; @ 1.5 log @*** empty log message *** @ text @d137 1 a137 1 wire [0: 3] wp = sp + 1; // Write pointer d174 1 a174 1 reg [0:11] stack[0:15]; // Dual Ported Stack Memory d187 4 @ 1.4 log @*** empty log message *** @ text @d61 1 a61 1 module STACK(clk, rst, clken, crom, addrIN, addrOUT); d65 7 a71 6 input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:11] addrIN; // Calling address for stack output [0:11] addrOUT; // Return address from stack d74 1 a74 1 // Return Instruction Decode: d76 4 a79 3 // Note: // The KS10 logic decodes a 'return dispatch' as "x0xx01" // but only 001 and 041 are used by the microcode. d81 2 a82 2 // CRA2/E33 // CRA2/E34 d85 1 a85 8 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 a86 15 // // Call Decode: // wire call = `cromCALL; // // Stack Pointer // The stack pointer is incremented on a 'call' and decremented // on a 'return' instruction - otherwise the stack pointer does // not change. // reg [0:3] sp; // Stack pointer d102 2 d106 1 d111 1 a111 1 d113 1 a113 1 d121 7 a127 1 d129 14 a142 1 // Stack d159 4 a162 3 // This impelementation saves all ths KS10 logic to // dynamically change RAM address depending if a 'call' or // 'return' instruction is being processed. d164 1 d172 1 a172 1 d174 1 a174 2 reg [0:11] stack[0:15]; // Dual Ported Stack Memory wire [0: 3] wp = sp + 1; // Write pointer d184 1 a184 3 begin stack[wp] <= lastADDR; end d189 1 a189 1 endmodule @ 1.3 log @*** empty log message *** @ text @d32 1 a32 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.2 log @*** empty log message *** @ text @d169 1 d173 1 a173 1 always @@(posedge clk) d175 6 a180 1 if (call) @ 1.1 log @Initial revision @ text @d10 13 a22 1 //! \todo d59 5 a63 1 module STACK(clk, rst, clken, call, ret, addr_in, addr_out); d65 32 a96 12 input clk; // Clock input rst; // Reset input clken; // Clock Enable input call; // Call (push addr on stack) input ret; // Return (pop addr from stack) input [0:11] addr_in; // Calling address for stack output [0:11] addr_out; // Return address from stack reg [0:11] stack[0:15]; // Dual Ported Stack Memory reg [0:3] sp; // Stack pointer wire [0:3] wp; // Write pointer reg [0:3] rp; // Read pointer; d100 3 d105 2 d110 2 a111 2 sp <= 4'b0000; else d114 1 a114 1 sp <= sp + 1; d116 1 a116 1 sp <= sp - 1; a119 2 assign wp = sp + 1; d121 46 a166 1 // Dual Port RAM d169 3 d176 1 a176 1 stack[wp] <= addr_in; a177 1 rp <= sp; d180 1 a180 1 assign addr_out = stack[rp]; @ rtl/cpu/useq/RCS/crom.vh,v0000444000175100010010000012371112053004746014010 0ustar RobNonehead 1.16; access; symbols; locks; comment @# @; 1.16 date 2012.11.20.22.53.24; author Rob; state Exp; branches; next 1.15; 1.15 date 2012.11.15.16.05.18; author Rob; state Exp; branches; next 1.14; 1.14 date 2012.11.13.22.23.01; author Rob; state Exp; branches; next 1.13; 1.13 date 2012.11.11.04.26.58; author Rob; state Exp; branches; next 1.12; 1.12 date 2012.11.08.19.41.07; author E721269; state Exp; branches; next 1.11; 1.11 date 2012.11.07.07.09.20; author Rob; state Exp; branches; next 1.10; 1.10 date 2012.11.04.02.29.03; author Rob; state Exp; branches; next 1.9; 1.9 date 2012.11.03.05.28.31; author Rob; state Exp; branches; next 1.8; 1.8 date 2012.11.02.01.02.23; author Rob; state Exp; branches; next 1.7; 1.7 date 2012.11.01.05.32.10; author Rob; state Exp; branches; next 1.6; 1.6 date 2012.10.20.02.13.58; author Rob; state Exp; branches; next 1.5; 1.5 date 2012.10.12.06.24.48; author Rob; state Exp; branches; next 1.4; 1.4 date 2012.10.12.05.46.17; author Rob; state Exp; branches; next 1.3; 1.3 date 2012.10.12.01.35.50; author Rob; state Exp; branches; next 1.2; 1.2 date 2012.09.29.06.32.26; author Rob; state Exp; branches; next 1.1; 1.1 date 2012.09.28.23.43.07; author Rob; state Exp; branches; next ; desc @Microcontroller Control ROM definitions @ 1.16 log @*** empty log message *** @ text @//////////////////////////////////////////////////////////////////// // // 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 @ 1.15 log @*** empty log message *** @ text @d9 1 a9 1 // This file contains the Control ROM microcode field d119 1 a119 1 `define cromRAMADDR_SEL_VMA 3'b100 // d199 6 a204 1 `define cromSPEC_BYTE crom[54:56] // Byte Select d302 1 a302 1 // Overloaded with Number Field d309 1 a309 1 // Overloaded with Number Field d323 1 a323 1 `define cromMEM_CYCLE_SEL crom[102:103] // See above. Select Cycle type as a group. d338 1 a338 1 // Overloaded with Number Field d343 1 a343 1 `define cromSETNDV crom[92] // Set no divide d355 1 a355 1 `define cromJFCLFLAG crom[104] // JFCL instruction d375 2 a376 2 `define cromACALU_FUN_NUM 6'o25; // NUM `define cromACALU_FUN_ADDAC 6'o62; // AC + NUM d380 1 a380 1 // Overloaded with Number Field d402 1 a402 1 // Overloaded with Number Field d406 1 a406 1 // d417 1 a417 1 // Overloaded with Number Field @ 1.14 log @*** empty log message *** @ text @d164 1 a164 1 `define cromSPEC_SEL_CRY18INH 3'b000 // 10: Carry into Left Half inhibit d166 1 a166 1 `define cromSPEC_SEL_CONS 3'b000 // 40: Console @ 1.13 log @*** empty log message *** @ text @d318 1 @ 1.12 log @*** empty log message *** @ text @d131 1 a131 1 `define cromDBUS_SEL_RAM 2'b10 // RAM file @ 1.11 log @*** empty log message *** @ text @a49 1 `define CROM_DATA "crom.bin" // CROM Data File @ 1.10 log @*** empty log message *** @ text @d165 24 a188 18 `define cromSPEC_SEL_CONS 3'b000 // Console `define cromSPEC_SEL_PREVIOUS 3'b000 // Force Previous Context `define cromSPEC_SEL_CRY18INH 3'b000 // Carry into Left Half inhibit `define cromSPEC_SEL_LOADIR 3'b001 // Load IR `define cromSPEC_SEL_LOADXR 3'b001 // Load XR `define cromSPEC_SEL_CLR1MSEC 3'b001 // CLR Interval Timer `define cromSPEC_SEL_LOADPI 3'b011 // Load PI `define cromSPEC_SEL_APRFLAGS 3'b011 // Load APR Flags `define cromSPEC_SEL_ASHTEST 3'b100 // ASH Test `define cromSPEC_SEL_PAGEWRITE 3'b100 // PAGE WRITE `define cromSPEC_SEL_EXPTEST 3'b101 // EXP Test `define cromSPEC_SEL_LOADAPR 3'b101 // Load APR `define cromSPEC_SEL_LOADNICOND 3'b101 // Load NICOND `define cromSPEC_SEL_PXCTEN 3'b110 // Enable PXCT `define cromSPEC_SEL_PXCTOFF 3'b110 // Turn off PXCT `define cromSPEC_SEL_PCFLAGS 3'b110 // Load PC FLAGS `define cromSPEC_SEL_LOADACBLK 3'b111 // Load AC Block `define cromSPEC_SEL_CLRCACHE 3'b100 // Clear/Sweep cache @ 1.9 log @*** empty log message *** @ text @d165 1 d388 15 @ 1.8 log @*** empty log message *** @ text @d22 1 a22 1 // Copyright (C) 2009, 2012 Rob Doyle @ 1.7 log @*** empty log message *** @ text @d351 7 a357 5 // // +-----+-----+-----+-----+-----+-----+-----+-----+-----+-----+ // |CARRY| S8 | S4 | S2 | S1 | MODE| B8 | B4 | B2 | B1 | // | IN | FUNCTION | | DATA INPUTS | // +-----+-----------------------+-----+-----------------------+ d360 1 a360 4 `define cromACALU_CI crom[98] // AC ALU Carry In `define cromACALU_FUN crom[99:102] // AC ALU Function `define cromACALU_MODE crom[103] // AC ALU Mode `define cromACALU_EXTFUN crom[98:103] // AC ALU Extended Function d362 3 @ 1.6 log @*** empty log message *** @ text @d172 3 a174 3 `define cromSPEC_SEL_ASHTEST 3'b100 // ASH Test `define cromSPEC_SEL_PAGEWRITE 3'b100 // PAGE WRITE `define cromSPEC_SEL_EXPTEST 3'b101 // EXP Test d204 4 a207 4 `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 d209 16 a224 16 `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 d244 1 a244 1 `define cromFMWRITE crom[75] // Write to RAM FILE d358 5 a362 5 `define cromACALU_CI crom[98] // AC ALU Carry In `define cromACALU_FUN crom[99:102] // AC ALU Function `define cromACALU_MODE crom[103] // AC ALU Mode `define cromACALU_EXTFUN crom[98:103] // AC ALU Extended Function `define cromACALU_NUM crom[104:107] // AC ALU Number @ 1.5 log @*** empty log message *** @ text @d115 9 a123 9 `define cromRAMADR_SEL crom[36:38] // RAMFILE address mux `define cromRAMADR_SEL_AC 3'b000 // AC `define cromRAMADR_SEL_xxx 3'b001 // `define cromRAMADR_SEL_XR 3'b010 // XR `define cromRAMADR_SEL_SPARE3 3'b011 // Not used `define cromRAMADR_SEL_VMA 3'b100 // VMA `define cromRAMADR_SEL_SPARE5 3'b101 // Not used `define cromRAMADR_SEL_RAM 3'b110 // `define cromRAMADR_SEL_NUM 3'b111 // d153 2 a154 2 `define cromCLKL crom[45] // ALU Left Clock Enable `define cromCLKR crom[48] // ALU Right Clock Enable d166 1 d171 4 d179 1 d200 25 a224 25 `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_SEL crom[60:62] // DISP Select (low 8 bits) `define cromDISP_SELH_DIAG 2'b00 `define cromDISP_SELH_RET 2'b01 `define cromDISP_SELH_J 2'b10 `define cromDISP_SELH_AREAD 2'b11 `define cromDISP_SEL_DIAG 3'b000 `define cromDISP_SEL_RET 3'b001 `define cromDISP_SEL_MULTIPLY 3'b010 `define cromDISP_SEL_PAGEFAIL 3'b011 `define cromDISP_SEL_NICOND 3'b100 `define cromDISP_SEL_BYTE 3'b101 `define cromDISP_SEL_EAMODE 3'b110 `define cromDISP_SEL_SCAD 3'b111 `define cromDISP_SEL_ZERO 3'b000 `define cromDISP_SEL_DP18TO21 3'b001 `define cromDISP_SEL_J 3'b010 `define cromDISP_SEL_AREAD 3'b011 `define cromDISP_SEL_NORM 3'b100 `define cromDISP_SEL_DP32TO35 3'b101 `define cromDISP_SEL_DROMA 3'b110 `define cromDISP_SEL_DROMB 3'b111 d226 1 d228 2 d231 4 a234 4 `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 d237 1 a237 1 // d240 5 d246 4 d278 1 a278 1 `define cromSCAD_BSEL_SHIFT 2'b10 // d281 15 d298 1 d305 1 a305 1 `define cromMEM_WRITETEST crom[94] // Page Fail if not written d307 1 a307 1 `define cromMEM_DONTCACHE crom[97] // Don't lock in cache d310 1 a310 1 `define cromMEM_AREAD crom[102] // Let DROM select sysle type and VMA load d325 2 a326 1 // a328 11 `define cromT crom[69:71] // `define cromCRY38 crom[72] // `define cromLOADSC crom[73] // Load Step Counter from SCAD `define cromLOADFE crom[74] // Load FE Register from SCAD `define cromFMWRITE crom[75] // Write to RAM FILE `define cromDIVIDE crom[72] // `define cromMULTIPREC crom[78] // `define cromMULTISHIFT crom[79] // `define cromCALL crom[80] // `define cromNUM crom[90:107] // `define cromSTATE crom[90:107] // d334 1 a334 1 `define cromHOLDUSER crom[95] // d336 27 a362 4 `define cromTRAP2 crom[97] // Set trap 2 `define cromTRAP1 crom[98] // Set trap 1 `define cromSNUM crom[98:107] // Small Number field (10-bit) for SCAD `define cromLDPCU crom[99] // Load PCU d366 1 d387 2 a388 14 // // `define cromSPARE2 crom[100] // Spare `define cromSPARE3 crom[101] // Spare `define cromSPARE4 crom[102] // Spare `define cromSPARE5 crom[103] // Spare `define cromJFCLFLG crom[104] // Do a JFCL instruction `define cromLDFLAGS crom[105] // Load flags from DP `define cromSPARE6 crom[106] // `define cromADFLGS crom[107] // // // d391 1 a391 1 `define cromWORK crom[98:107] // d394 1 a394 1 // @ 1.4 log @*** empty log message *** @ text @d9 2 d12 1 a12 1 // \notes d129 5 a133 5 `define cromDBUS crom[40:41] // DBUS MUX Select `define cromDBUS_FLAGS 2'b00 // PC Flags `define cromDBUS_DP 2'b01 // Datapath `define cromDBUS_RAM 2'b10 // RAM file `define cromDBUS_DBM 2'b11 // DBM Mux @ 1.3 log @*** empty log message *** @ text @d6 1 a6 1 // Control ROM (CROM) Definitions d47 2 a48 2 `define CROM_WIDTH 108 // CROM Width `define CROM_DATA "crom.bin" // CROM Data File d52 1 a52 1 // d54 1 a54 1 `define cromJ crom[0:11] // Jump address d58 1 d61 9 a69 9 `define cromFUN crom[12:14] // ALU Function `define cromFUN_ADD 3'b000 `define cromFUN_SUBR 3'b001 `define cromFUN_SUBS 3'b010 `define cromFUN_ORRS 3'b011 `define cromFUN_ANDRS 3'b100 `define cromFUN_NOTRS 3'b101 `define cromFUN_EXOR 3'b110 `define cromFUN_EXNOR 3'b111 d77 8 a84 8 `define cromSRC_AQ 3'b000 `define cromSRC_AB 3'b001 `define cromSRC_ZQ 3'b010 `define cromSRC_ZB 3'b011 `define cromSRC_ZA 3'b100 `define cromSRC_DA 3'b101 `define cromSRC_DQ 3'b110 `define cromSRC_DZ 3'b111 d86 1 a86 1 // d88 23 d113 9 a121 14 `define cromDST crom[21:23] // ALU Destinations `define cromDST_QREG 3'b000 `define cromDST_NOP 3'b001 `define cromDST_RAMA 3'b010 `define cromDST_RAMF 3'b011 `define cromDST_RAMQD 3'b100 `define cromDST_RAMD 3'b101 `define cromDST_RAMQU 3'b110 `define cromDST_RAMU 3'b111 `define cromALU_A crom[26:29] // ALU A Address `define cromALU_B crom[32:35] // ALU B Address `define cromRAMADR crom[36:38] // RAM File address d127 5 a131 5 `define cromDBUS crom[40:41] // DBUS `define cromDBUS_FLAGS 2'b00 // PC Flags in left half `define cromDBUS_DP 2'b01 // Datapath `define cromDBUS_RAM 2'b10 // RAM file `define cromDBUS_DBM 2'b11 // DBM Mux d137 9 a145 9 `define cromDBM_SEL crom[42:44] // `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 `define cromDBM_SEL_NUM 3'b111 // Number field d151 2 a152 2 `define cromCLKL crom[45] // ALU Left Clock Enable `define cromCLKR crom[48] // ALU Right Clock Enable d158 28 a185 27 `define cromSPEC crom[51:56] // Spec Select `define cromSPEC_EN_40 crom[51] // `define cromSPEC_EN_20 crom[52] // `define cromSPEC_EN_10 crom[53] // `define cromSPEC_SEL crom[54:56] // `define cromSPEC_SEL_PREVIOUS 3'b000 // Force Previous Context `define cromSPEC_SEL_LOADIR 3'b001 // Load IR `define cromSPEC_SEL_LOADXR 3'b001 // Load XR `define cromSPEC_SEL_CLR1MSEC 3'b001 // CLR Interval Timer `define cromSPEC_SEL_LOADPI 3'b011 // Load PI `define cromSPEC_SEL_LOADAPR 3'b101 // Load APR `define cromSPEC_SEL_LOADNICOND 3'b101 // Load NICOND `define cromSPEC_SEL_PXCTEN 3'b110 // Enable PXCT `define cromSPEC_SEL_PXCTOFF 3'b110 // Turn off PXCT `define cromSPEC_SEL_LOADACBLK 3'b111 // Load AC Block `define cromSPEC_SEL_CLRCACHE 3'b100 // Clear/Sweep cache `define cromSPEC_SHSTYLE crom[54:56] // Shift Style `define cromSPEC_SHSTYLE_NORM 3'b000 `define cromSPEC_SHSTYLE_ZERO 3'b001 `define cromSPEC_SHSTYLE_ONES 3'b010 `define cromSPEC_SHSTYLE_ROT 3'b011 `define cromSPEC_SHSTYLE_ASHC 3'b100 `define cromSPEC_SHSTYLE_LSHC 3'b101 `define cromSPEC_SHSTYLE_DIV 3'b110 `define cromSPEC_SHSTYLE_ROTC 3'b111 `define cromSPEC_BYTE crom[54:56] // Byte Select d191 18 a208 18 `define cromDISP crom[57:62] `define cromDISP_EN_40 (~crom[57]) `define cromDISP_EN_20 (~crom[58]) `define cromDISP_EN_10 (~crom[59]) `define cromDISP_SELH crom[61:62] `define cromDISP_SEL crom[60:62] `define cromDISP_SELH_DIAG 2'b00 `define cromDISP_SELH_RET 2'b01 `define cromDISP_SELH_J 2'b10 `define cromDISP_SELH_AREAD 2'b11 `define cromDISP_SEL_DIAG 3'b000 `define cromDISP_SEL_RET 3'b001 `define cromDISP_SEL_MULTIPLY 3'b010 `define cromDISP_SEL_PAGEFAIL 3'b011 `define cromDISP_SEL_NICOND 3'b100 `define cromDISP_SEL_BYTE 3'b101 `define cromDISP_SEL_EAMODE 3'b110 `define cromDISP_SEL_SCAD 3'b111 d215 2 a216 2 `define cromDISP_SEL_DROMA 3'b110 `define cromDISP_SEL_DROMB 3'b111 d219 5 a223 5 `define cromSKIP crom[63:68] `define cromSKIP_EN_40 (~crom[63]) `define cromSKIP_EN_20 (~crom[64]) `define cromSKIP_EN_10 (~crom[65]) `define cromSKIP_SEL crom[66:68] d229 1 a229 1 `define cromMEM_CYCLE crom[76] // Start/complete a memory or IO cycle using # field d235 25 a259 25 `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 // `define cromSCAD_ASEL_S 3'b001 // `define cromSCAD_ASEL_PTR44 3'b010 // `define cromSCAD_ASEL_BYTE1 3'b011 // `define cromSCAD_ASEL_BYTE2 3'b100 // `define cromSCAD_ASEL_BYTE3 3'b101 // `define cromSCAD_ASEL_BYTE4 3'b110 // `define cromSCAD_ASEL_BYTE5 3'b111 // `define cromSCAD_BSEL crom[96:97] // SCAD B MUX Select `define cromSCAD_BSEL_FE 2'b00 // `define cromSCAD_BSEL_EXP 2'b01 // `define cromSCAD_BSEL_SHIFT 2'b10 // `define cromSCAD_BSEL_SIZE 2'b11 // d281 6 a286 1 // These are only defined when cromMEM_DPFUNC is asserted d288 3 a290 4 `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 d292 22 d316 1 a316 1 // d319 16 a334 30 `define cromT crom[69:71] // `define cromCRY38 crom[72] // `define cromLOADSC crom[73] // Load Step Counter from SCAD `define cromLOADFE crom[74] // Load FE Register from SCAD `define cromFMWRITE crom[75] // Write to RAM FILE `define cromDIVIDE crom[72] // `define cromMULTIPREC crom[78] // `define cromMULTISHIFT crom[79] // `define cromCALL crom[80] // `define cromSNUM crom[98:107] // `define cromNUM crom[90:107] // `define cromSTATE crom[90:107] // `define cromSETOV crom[90] // Set arithmetic overflow `define cromPI_ZER crom[90:92] // `define cromSETFOV crom[91] // Set floating point overflow `define cromSETNDV crom[92] // Set no divide `define cromCLRFPD crom[93] // Clear first part done `define cromPI_IP1 crom[93] // PI 1 in progress `define cromSETFPD crom[94] // Set first part done `define cromPI_IP2 crom[94] // PI 2 in progress `define cromHOLDUSER crom[95] // `define cromPI_IP3 crom[95] // PI 3 in progress `define cromSPARE1 crom[96] // Spare `define cromPI_IP4 crom[96] // PI 4 in progress `define cromTRAP2 crom[97] // Set trap 2 `define cromPI_IP5 crom[97] // PI 5 in progress `define cromTRAP1 crom[98] // Set trap 1 `define cromPI_IP6 crom[98] // PI 6 in progress `define cromLDPCU crom[99] // Load PCU `define cromPI_IP7 crom[99] // PI 7 in progress d340 9 d353 1 a353 7 `define cromSPARE2 crom[100] // Spare `define cromPI_ON crom[100] // PI is on `define cromSPARE3 crom[101] // Spare `define cromPI_CO11 crom[101] // Chan 1 is on `define cromSPARE4 crom[102] // Spare `define cromPI_CO12 crom[102] // Chan 2 is on `define cromSPARE5 crom[103] // Spare d355 3 a357 12 `define cromI_CO3 crom[103] // `define cromJFCLFLG crom[104] // Do a JFCL instruction `define cromI_CO4 crom[104] // `define cromLDFLAGS crom[105] // Load flags from DP `define cromI_CO5 crom[105] // `define cromSPARE6 crom[106] // `define cromI_CO6 crom[106] // `define cromADFLGS crom[107] // `define cromI_CO7 crom[107] // `define cromWORK crom[98:107] // `define cromDT crom[109:111] // Not used d359 1 @ 1.2 log @*** empty log message *** @ text @d103 29 a131 2 `define cromDBUS crom[40:41] // `define cromDBM crom[42:44] // d140 15 a154 6 `define cromSPEC_EN_40 crom[51] `define cromSPEC_EN_20 crom[52] `define cromSPEC_EN_10 crom[53] `define cromSPEC_SEL crom[54:56] `define cromSPEC_SEL_LOADIR 3'b001 `define cromSPEC_SEL_LOADXR 3'b001 d189 8 d199 15 a213 5 `define cromSKIP crom[63:68] `define cromSKIP_EN_40 (~crom[63]) `define cromSKIP_EN_20 (~crom[64]) `define cromSKIP_EN_10 (~crom[65]) `define cromSKIP_SEL crom[66:68] d215 59 a273 1 `define cromT crom[68:71] // a277 1 `define cromMEM crom[76] // Start/complete a memory or IO cycle a281 3 `define cromSCAD crom[90:92] // SCAD ALU OP `define cromSCADA crom[93:95] // `define cromSCADB crom[96:97] // a285 1 `define cromFORCEUSER crom[90] // Force user mode reference a287 1 `define cromFORCEEXEC crom[91] // Force exec mode reference a288 1 `define cromFETCH crom[92] // This is an instruction fetch a289 1 `define cromREADCYCLE crom[93] // Select a read cycle a291 1 `define cromWRITETEST crom[94] // Page Fail if not written a293 1 `define cromWRITECYCLE crom[95] // a298 1 `define cromDONTCACHE crom[97] // Don't lock in cache a299 1 `define cromPHYSICAL crom[98] // Don't invoke paging hardare d303 9 a311 1 `define cromPCXT crom[99:101] // Which PCXT bits to look at a312 1 `define cromIOCYCLE crom[100] // This is an IO cycle a314 1 `define cromWRUCYCLE crom[101] // This is a "who are u" cycle a316 2 `define cromVECTORCYC crom[102] // Read vector interrupt `define cromAREAD crom[102] // d319 1 a319 2 `define cromIOBYTE crom[103] // This is a byte cycle `define cromDPFUNC crom[103] // a321 1 `define cromLDVMA crom[104] // a323 1 `define cromEXTADR crom[105] // a325 1 `define cromWAIT crom[106] // a327 1 `define cromBWRITE crom[107] // @ 1.1 log @Initial revision @ text @d47 1 a47 1 `define CROM_WIDTH 107 // CROM Width d113 7 @